bos_bidbill.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_BidBill"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'''''''''''''''''''''''''''''''''''''''''''''''
''招投标标书:根据物料、辅助属性和单价进行汇总
''建立日期：2005-08-27
''建立人：倪树祥
'''''''''''''''''''''''''''''''''''''''''''''''''

'定义 BillEvent 接口. 必须具有的声明, 以此来获得事件
Private WithEvents m_BillInterface  As BillEvent
Attribute m_BillInterface.VB_VarHelpID = -1
 
Public Sub Show(ByVal oBillInterface As Object)
 
    'BillEvent 接口实现
    '注意: 此方法必须存在, 请勿修改
    Set m_BillInterface = oBillInterface

End Sub

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

End Sub
'合同分录里相同物料
Private Sub m_BillInterface_AfterSave(bCancel As Boolean)
    Dim rsRec As New ADODB.Recordset
    Dim strSql As String
    Dim lngCurrRow As Long

On Error GoTo Errhandle

    lngCurrRow = 1

    strSql = "select t3.FNumber as FNumber,t1.FAuxItem,mu.FNumber as FUnitNumber,sum(FAmount) as FAmountSum,min(FDeliveryDate) as FDeliveryDate,t1.FPrice,t1.FEntryNote from t_EP_PB_BidBillEntry t1 inner join t_icitem t3 on t1.FMItem=t3.FItemid and t1.FID=" & m_BillInterface.GetFieldValue("FID") & " inner join t_MeasureUnit mu on t1.FUnitID = mu.FMeasureUnitID group by t3.FNumber,FAuxItem,mu.FNumber,FPrice,t1.FEntryNote"
    Set rsRec = m_BillInterface.K3Lib.GetData(strSql)
    '如果合并物料后记录和合并前相同则退出
    'add by christin 20060809
    If rsRec.EOF Or rsRec.RecordCount = m_BillInterface.Data("page2").UBound Then
       Exit Sub
    End If
    
    m_BillInterface.DeleteEntryData 2
    While Not rsRec.EOF
        m_BillInterface.InsertNewRowAndFill 2, lngCurrRow, "FMItem", rsRec("FNumber"), "FAuxItem", rsRec("FAuxItem"), "FUnitID", rsRec("FUnitNumber"), "FAmount", rsRec("FAmountSum"), "FDeliveryDate", rsRec("FDeliveryDate"), "FPrice", rsRec("FPrice"), "FEntryNote", rsRec("FEntryNote")
        lngCurrRow = lngCurrRow + 1
        rsRec.MoveNext
    Wend
    
Errhandle:

End Sub