新增文章

文章标题分类内容

Private Sub m_BillInterface_MenuBarClick(ByVal BOSTool As K3ClassEvents.BOSTool, Cancel As Boolean)  '菜单事件

Select Case BOSTool.ToolName
    
    Case "MyMenu": aFill       '填写数值
    Case "MenuWG": aOpenBill   '打开单据 指定的外购入库单
            
    Case Else
    End Select

End Sub

Private Sub aOpenBill()   '打开单据 指定的外购入库单

Dim aK3BosActive As Object
    Dim aFInterID As Long
    Dim aSql As String
    
    Dim aRecordset As ADODB.Recordset

aSql = "select top 1 FInterID from ICStockBillEntry where FSourceTranType=" & m_BillInterface.FID & " and FSourceInterId =" & m_BillInterface.Data("FID")
    Set aRecordset = m_BillInterface.K3Lib.GetData(aSql)
    
    If aRecordset.RecordCount > 0 Then
    
        aFInterID = CLng(aRecordset("FInterID").Value)
        Set aK3BosActive = CreateObject("K3BosActive.Application")
        
       aK3BosActive.ShowK3Bill -1, aFInterID    'Bill.FClassTypeID = -1 / Bill.FID = aFInterID  BOS单据 对应ICClassType的FID；工业单据 对应ICTransType的FID（要取负数）
        
'       aK3BosActive.ShowK3Bill 1007105, 1016   'Bill.FClassTypeID = 1007105 / Bill.FID = 1016  委外订单（BOS）
        
    Else
        MsgBox "没有关联的入库单"
        
    End If
    
    Set aK3BosActive = Nothing
    Set aRecordset = Nothing
End Sub