bos_infoaddbill.cls

金蝶地磅称重插件

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BOS_InfoAddBill"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'''''''''''''''''''''''''''''''''''''''''''''''
''销售发货通知调整单:调整销售发货通知单的发货数量
''建立日期：2005-08-17
''建立人：倪树祥
'''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
'定义 BillEvent 接口. 必须具有的声明, 以此来获得事件
Private WithEvents m_BillInterface  As BillEvent
Attribute m_BillInterface.VB_VarHelpID = -1
'定义 ListEvents 接口. 必须具有的声明, 以此来获得事件
Private WithEvents m_ListInterface  As ListEvents
Attribute m_ListInterface.VB_VarHelpID = -1
 
 Public Sub Show(ByVal oBosInterface As Object)
    'BillEvent 接口实现
    '注意: 此方法必须存在, 请勿修改
    Select Case VBA.TypeName(oBosInterface)
        Case "BillEvent"
            Set m_BillInterface = oBosInterface
        Case "ListEvents"
            Set m_ListInterface = oBosInterface
    End Select
End Sub

Private Sub Class_Terminate()
    '释放接口对象
    '注意: 此方法必须存在, 请勿修改
    Set m_BillInterface = Nothing
    Set m_ListInterface = Nothing
    
End Sub


Private Sub m_BillInterface_AfterMultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, ByVal lBusinessLevel As Long, ByVal lCheckLevel As Long, ByVal lCheckStatus As Long, ByVal Success As Boolean)
'如果是业务审核级次，则调整销售发货通知单的数量
    If lCheckLevel = lBusinessLevel Then
        m_BillInterface.K3Lib.UpdateData " exec Xs_Sp_InfoQtyAdd  @CheckType = 1, @InfoQtyAddID = " & m_BillInterface.CurBillID
    End If
    
End Sub

Private Sub m_BillInterface_AfterSelBill(ByVal lSelBillType As Long)
    Dim strMItem As String
    Dim lngCurrRow As Long
On Error GoTo DealOver
    '把当前选单次数置为1
    lngCurrRow = 1
    While (1)
        strMItem = m_BillInterface.GetFieldValue("FMItem", lngCurrRow)
        If strMItem <> Null Or Trim(strMItem) <> "" Then
            m_BillInterface.SetFieldValue "FInfoAddedTimes", 1, lngCurrRow
        Else
            GoTo DealOver
        End If
        lngCurrRow = lngCurrRow + 1
    Wend
DealOver:

End Sub

Private Sub m_BillInterface_AfterUnMultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, ByVal lBusinessLevel As Long, ByVal lCheckLevel As Long, ByVal lCheckStatus As Long, ByVal Success As Boolean)
    If lCheckLevel = lBusinessLevel Then
        m_BillInterface.K3Lib.UpdateData " exec Xs_Sp_InfoQtyAdd  @CheckType = -1, @InfoQtyAddID = " & m_BillInterface.CurBillID
    End If
End Sub

Private Sub m_ListInterface_AfterMultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, ByVal lBusinessLevel As Long, ByVal lCheckLevel As Long, ByVal lCheckStatus As Long, ByVal Success As Boolean)
'如果是业务审核级次，则调整销售发货通知单的数量
    If lCheckLevel = lBusinessLevel Then
        m_ListInterface.K3Lib.UpdateData "exec Xs_Sp_InfoQtyAdd  @CheckType = 1, @InfoQtyAddID = " & m_ListInterface.GetCurrentSelRowInfo("FID")
    End If
End Sub


Private Sub m_ListInterface_AfterUnMultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, ByVal lBusinessLevel As Long, ByVal lCheckLevel As Long, ByVal lCheckStatus As Long, ByVal Success As Boolean)
    If lCheckLevel = lBusinessLevel Then
        m_ListInterface.K3Lib.UpdateData "exec Xs_Sp_InfoQtyAdd  @CheckType = -1, @InfoQtyAddID = " & m_ListInterface.GetCurrentSelRowInfo("FID")
    End If
End Sub