bos_stockbillpriceadj.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_StockBillPriceAdj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'''''''''''''''''''''''''''''''''''''''''''''''
''暂估处理单
''建立日期：2005-12-28
''建立人：倪树祥
'''''''''''''''''''''''''''''''''''''''''''''''''
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_Change(ByVal dct As KFO.IDictionary, ByVal dctFld As KFO.IDictionary, ByVal Col As Long, ByVal Row As Long, Cancel As Boolean)
    On Error GoTo Errhandle
    ''字段改变之后触发
    Select Case Trim(dct.GetValue("FFieldName"))
        Case "FStockIDBegin"
            m_BillInterface.SetFieldValue "FStockIDEnd", m_BillInterface.GetFieldValue("FStockIDBegin", , Enu_ValueType_FFND)
        Case "FSupplyIDBegin"
            m_BillInterface.SetFieldValue "FSupplyIDEnd", m_BillInterface.GetFieldValue("FSupplyIDBegin", , Enu_ValueType_FFND)
        Case "FMItemIDBegin"
            m_BillInterface.SetFieldValue "FMItemIDEnd", m_BillInterface.GetFieldValue("FMItemIDBegin", , Enu_ValueType_FFND)
        Case "FDateBegin"
            m_BillInterface.SetFieldValue "FDateEnd", m_BillInterface.GetFieldValue("FDateBegin")
    End Select
    
    Exit Sub
Errhandle:
    MsgBox err.Description, vbCritical, "金蝶提示"
End Sub


Private Sub m_BillInterface_MultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, ByVal lBusinessLevel As Long, ByVal lCheckLevel As Long, ByVal lCheckStatus As Long, bSendCheckMessage As Boolean, bSendAcceptMessage As Boolean, sMessageTitle As String, sMessage As String, Cancel As Boolean)
On Error GoTo Errhandle
    If lCheckLevel = lBusinessLevel Then
        m_BillInterface.K3Lib.UpdateData " exec IC_SP_StockBillPriceAdj " & m_BillInterface.CurBillID & ",1"
    End If
    
    Exit Sub
Errhandle:
  MsgBox "审核处理过程中发生错误,无法审核！", vbCritical + vbOKOnly, "金蝶提示"
  Cancel = True
  
End Sub

Private Sub m_BillInterface_UnMultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, ByVal lBusinessLevel As Long, ByVal lCheckStatus As Long, ByVal lLastCheckFrom As Long, ByVal lLastCheckTo As Long, bSendMessage As Boolean, Cancel As Boolean)
    
    On Error GoTo Errhandle
        If lLastCheckTo = lBusinessLevel Then
            m_BillInterface.K3Lib.UpdateData " exec IC_SP_StockBillPriceAdj " & m_BillInterface.CurBillID & ",-1"
        End If
        
        Exit Sub
Errhandle:
      MsgBox "反审核处理过程中发生错误,无法反审核！", vbCritical + vbOKOnly, "金蝶提示"
      Cancel = True
End Sub

Private Sub m_ListInterface_MultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, ByVal lBusinessLevel As Long, ByVal lCheckLevel As Long, ByVal lCheckStatus As Long, bSendCheckMessage As Boolean, bSendAcceptMessage As Boolean, sMessageTitle As String, sMessage As String, Cancel As Boolean)
    On Error GoTo Errhandle
    If lCheckLevel = lBusinessLevel Then
        m_ListInterface.K3Lib.UpdateData " exec IC_SP_StockBillPriceAdj " & m_ListInterface.GetCurrentSelRowInfo("FID") & ",1"
    End If
    
    Exit Sub
Errhandle:
  MsgBox "审核处理过程中发生错误,无法审核！", vbCritical + vbOKOnly, "金蝶提示"
  Cancel = True
End Sub

Private Sub m_ListInterface_UnMultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, ByVal lBusinessLevel As Long, ByVal lCheckStatus As Long, ByVal lLastCheckFrom As Long, ByVal lLastCheckTo As Long, bSendMessage As Boolean, Cancel As Boolean)
    On Error GoTo Errhandle
        If lLastCheckTo = lBusinessLevel Then
            m_ListInterface.K3Lib.UpdateData " exec IC_SP_StockBillPriceAdj " & m_ListInterface.GetCurrentSelRowInfo("FID") & ",-1"
        End If
        
        Exit Sub
Errhandle:
      MsgBox "反审核处理过程中发生错误,无法反审核！", vbCritical + vbOKOnly, "金蝶提示"
      Cancel = True
End Sub