bos_listevent_plugins.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_ListEvent_PlugIns"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Description = "This is ListEvents Interface Class, made by K3BOSPLUGINSWIZAED"
 
'定义 ListEvents 接口. 必须具有的声明, 以此来获得事件
Private WithEvents m_ListInterface  As ListEvents
Attribute m_ListInterface.VB_VarHelpID = -1
 
Public Sub Show(ByVal oListInterface As Object)
 
    'ListEvents 接口实现
    '注意: 此方法必须存在, 请勿修改
    Set m_ListInterface = oListInterface
 
End Sub

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

End Sub


Private Sub m_ListInterface_AfterSelList(ByVal RsId As ADODB.Recordset, VectList As KFO.IVector)
Dim D As KFO.Dictionary
Dim rs As New ADODB.Recordset
Dim rt As New ADODB.Recordset
Dim strsql As String
Dim strt As String

'用于区分不同类别的招标单据并分情况处理
Set D = m_ListInterface.GetCurrentSelRowInfo()
    
strt = "select type from t_BOS200000022 where FID = " & D.GetValue("FID")
Set rt = m_ListInterface.K3Lib.GetData(strt)

If rt.Fields("Type") = 2 Then Exit Sub

strsql = "select MaterielNo,Amount from t_BOS200000022Entry2 where FID= " & D.GetValue("FID") & " and FEntryID =" & D.GetValue("FEntryID")
Set rs = m_ListInterface.K3Lib.GetData(strsql)

If rs.RecordCount > 0 Then
      dblqty = rs!Amount
      
      Set rs = m_ListInterface.K3Lib.GetData("Select FNumber From t_ICitem where FItemID =" & rs.Fields("MaterielNo"))
      strMar = rs.Fields(0)
End If
'以上是自动赋值
End Sub

Private Sub m_ListInterface_FinishMultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, ByVal lBusinessLevel As Long, ByVal lCheckStatus As Long, bSendMessage As Boolean)

'用于将审核后的开，评标结果写入中标记录中
    Dim rt As New ADODB.Recordset
    Dim rs As New ADODB.Recordset
    Dim re As New ADODB.Recordset
    Dim rr As New ADODB.Recordset
    Dim strsql As String
    Dim str As String
    Dim strq As String
    Dim strr As String
    Dim strt As String
    Dim D As KFO.Dictionary
    
    Set D = m_ListInterface.GetCurrentSelRowInfo()

    strsql = "select VictualerName,Price from t_BOS200000024Entry2 where FID=(select fid from t_BOS200000024 where fid = " & D.GetValue("FID") & ") and checkbox =1"
    Set rs = m_ListInterface.K3Lib.GetData(strsql)
    
    strr = "select FID from t_BOS200000139  where FNo=(select FNo from t_BOS200000024 where fid=" & D.GetValue("FID") & ")"
    Set rr = m_ListInterface.K3Lib.GetData(strr)
    
    strt = "select type from t_BOS200000022 where BillNo = (select FNo from t_BOS200000024 where Fid =" & D.GetValue("FID") & ")"
    Set rt = m_ListInterface.K3Lib.GetData(strt)
    
    If rt.Fields("Type") = 2 Then
    
                            strq = "Insert into t_BOS200000139Entry2 (VName,Price,FID,PPrice,SSum) VALUES ('" & rs!VictualerName & "','" & rs!Price & "','" & rr!FID & "','" & rs!Price & "','" & rs!Price & "')"
                             m_ListInterface.K3Lib.GetData (strq)
    Else
    
                            str = "select FBase,Amount from t_BOS200000024 where fid = " & D.GetValue("FID")
                            Set re = m_ListInterface.K3Lib.GetData(str)

                            strq = "Insert into t_BOS200000139Entry2 (VName,Price,FID,PPrice,SSum,DNumber,Amount) VALUES ('" & rs!VictualerName & "','" & rs!Price & "','" & rr!FID & "','" & rs!Price & "','" & rs!Price * CSng(re!Amount) & "','" & re!FBase & "','" & re!Amount & "')"
                            m_ListInterface.K3Lib.GetData (strq)
    End If
End Sub