bos_bidback.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_BidBack"
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_beforesave(bCancel As Boolean)
    Dim lngNowRow As Long
    Dim lngCurrRow As Long
    Dim strNowFSupplier As String
    Dim strCurrFSupplier As String
    
On Error GoTo Errhandle

    For lngNowRow = 1 To m_BillInterface.BillEntrys(1).MaxRows
        strNowFSupplier = Trim(m_BillInterface.GetFieldValue("FSupplier", lngNowRow))
        
        For lngCurrRow = lngNowRow + 1 To m_BillInterface.BillEntrys(1).MaxRows
            strCurrFSupplier = Trim(m_BillInterface.GetFieldValue("FSupplier", lngCurrRow))
            If strNowFSupplier = strCurrFSupplier Then
                MsgBox "第 " & lngCurrRow & " 行和第 " & lngNowRow & " 行供应商重复！", vbCritical + vbOKOnly, "金蝶提示"
                bCancel = True
                Exit Sub
            End If
        Next
    Next
    
Errhandle:
    bCancel = False
End Sub