新增文章

文章标题分类内容

Private WithEvents m_ListInterface  As ListEvents  '定义 ListEvents 接口. 必须具有的声明, 以此来获得事件

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

Private Sub m_ListInterface_MenuBarClick(ByVal BOSTool As K3ClassEvents.BOSTool, Cancel As Boolean)

Dim vctSelectedBillInfo As KFO.Vector, rs As ADODB.Recordset
    Dim sSql As String, i As Long
    
    Select Case BOSTool.ToolName
    
    Case "mnuPushOldBill_1", "mnuBackData"   'mnuPushOldBill_1 下推 1 外购入库   mnuBackData 选单
    
        Set vctSelectedBillInfo = m_ListInterface.GetSelectedBillInfo
        
        sSql = "select distinct FFetchAdd from t_BOS200000003 where "
        
        For i = 1 To vctSelectedBillInfo.Size
        
            If Not i = vctSelectedBillInfo.Size Then
                sSql = sSql & "FID=" & vctSelectedBillInfo(i)("FID") & " or "
            Else
                sSql = sSql & "FID=" & vctSelectedBillInfo(i)("FID")
            End If
        Next
        
        Set rs = m_ListInterface.K3Lib.GetData(sSql)
        
        If rs.RecordCount > 1 Then
        
            MsgBox "所选单据交货地点必须相同", vbCritical, m_ListInterface.K3Lib.LoadKDString("金蝶提示")
            
            Cancel = True  '取消 下推操作
        End If
        
    Case Else
    End Select
    
    Set vctSelectedBillInfo = Nothing
    Set rs = Nothing
End Sub