欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "GetBillInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Description = "This is Industry Bill Interface Class, made by K3BOSPLUGINSWIZAED"
 
'定義插件對象接口. 必須具有的聲明, 以此來(lái)獲得事件
Private WithEvents m_BillTransfer   As k3BillTransfer.Bill
Attribute m_BillTransfer.VB_VarHelpID = -1
 
Public Sub Show(ByVal oBillTransfer As Object)
 
    '接口實(shí)現
    '注意: 此方法必須存在, 請勿修改
    Set m_BillTransfer = oBillTransfer
 
End Sub

Private Sub Class_Terminate()
 
    '釋放接口對象
    '注意: 此方法必須存在, 請勿修改
    Set m_BillTransfer = Nothing

End Sub

Private Sub m_BillTransfer_LoadBillEnd(ByVal ShowType As Long)
   
    Dim FItemIDCol As Integer
    Dim FStockQtyCol As Integer
    Dim SqlStr As String * 300
    Dim FnumberStr As String * 100
    Dim StockQty As Integer
    Dim StockQtyShow As Integer
   
   
    Dim TEntryctl As Variant
   
    MsgBox "此程序在正常運行?。?！"
    TEntryctl = m_BillTransfer.EntryCtl
    '找到物料所在列位置
    For j = 1 To UBound(TEntryctl)
        If UCase(TEntryctl(j).fieldname) = UCase("FItemID") Then
            FItemIDCol = j
            Exit For
        End If
    Next
   
    With m_BillTransfer.BillForm.vsEntrys
        .Row = 0
        For i = 1 To .MaxCols

            If .Text = "即時(shí)庫存" Then
                FStockQtyCol = i
                Exit For
            End If
            MsgBox m_BillTransfer.BillForm.vsEntrys.Text
        Next
    End With
    '判斷采購訂單每一條分錄對應的采購申請單分錄 數量是否有超出
   
    For i = 1 To UBound(TEntryctl(FItemIDCol).DInterID)
        Dim Rs As ADODB.Recordset
        Set Rs = New ADODB.Recordset
        FnumberStr = m_BillTransfer.GetGridText(i, FItemIDCol)
       
       
        SqlStr = "select sum(a.fqty) as qty from icinventory a , t_icitem b  where a.fitemid = b.fitemid and fnumber = " & "'" & FnumberStr & "'"
        Rs.Open SqlStr, m_BillTransfer.Cnnstring, 0, 1
       
        If Not Rs.EOF Then
                m_BillTransfer.SetGridText i, FStockQtyCol, Val(Rs.Fields(0).Value) & ""
                MsgBox Val(Rs.Fields(0).Value) & "|" & FStockQtyCol & "|" & i & ""
        End If
       
        Rs.Close
    Next i
    m_BillTransfer.DoRefreshControl
End Sub