在单据上显示即时库存列！

在单据上显示即时库存列！

VERSION 1.0 CLASS BEGIN

MultiUse = -1 'True

Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone

MTSTransactionMode = 0 'NotAnMTSObject END

Attribute VB_Name = \Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = True

Attribute VB_Description = \Class, made by K3BOSPLUGINSWIZAED\

'定义插件对象接口. 必须具有的声明, 以此来获得事件 Private WithEvents m_BillTransfer As k3BillTransfer.Bill Attribute m_BillTransfer.VB_VarHelpID = -1

Public Sub Show(ByVal oBillTransfer As Object)

'接口实现

'注意: 此方法必须存在, 请勿修改 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(\ FItemIDCol = j Exit For End If Next

With m_BillTransfer.BillForm.vsEntrys .Row = 0

For i = 1 To .MaxCols If .Text = \即时库存\ 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 = \

icinventory a , t_icitem b where a.fitemid = b.fitemid and fnumber = \ 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) & \ End If

Rs.Close Next i

m_BillTransfer.DoRefreshControl End Sub

本文来源：https://www.bwwdw.com/article/zugx.html