bos_billevent_ipb.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_BillEvent_Ipb"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'定义 BillEvent 接口. 必须具有的声明, 以此来获得事件
Private WithEvents m_BillInterface  As BillEvent
Attribute m_BillInterface.VB_VarHelpID = -1
Public Sub Show(ByVal oBosInterface As Object)
 'BillEvent 接口实现
    '注意: 此方法必须存在, 请勿修改
Set m_BillInterface = oBosInterface
End Sub
Private Sub Class_Terminate()
 
    '释放接口对象
    '注意: 此方法必须存在, 请勿修改
    Set m_BillInterface = Nothing

End Sub
Private Sub m_BillInterface_beforesave(ByRef bCancel As Boolean)
    '用于判断交货日期和投标截至日期的有效性
    If Not (CDate(m_BillInterface.GetFieldValue("deliverydate")) >= CDate(m_BillInterface.GetFieldValue("enddate")) And CDate(m_BillInterface.GetFieldValue("enddate")) >= CDate(m_BillInterface.GetFieldValue("makedate"))) Then
            MsgBox "请检查投标截止日期和交货日期是否正确！", vbInformation, "金蝶提示"
            bCancel = True
    End If
End Sub