K3WIES 笔记

Posted 2020-06-25 swallow123

金蝶 k3 BOS开发百问百答 ：

http://www.docin.com/p-509465103.html

vb6.0工业单据 增加工具栏按钮：

Private Sub m_BillTransfer_LoadBillEnd(ByVal ShowType As Long)
      With m_BillTransfer.BillForm.tlbTool.Buttons
        .Add .Count + 1, "BtnIn", "引入数据", , 21
    End With
    iRow = 0
    iCol = 0
End Sub
Private Sub m_BillTransfer_RetEvents(ByVal Para As KFO.IDictionary)
 
    ‘TODO: 请在此处添加代码响应事件 RetEvents
On Error GoTo ErrHandle
    If Para("EventID") = "Bill_ButtonClick" And Para("EventIDProp") = 1 Then
        If Para("Para")("Button").Key = "BtnIn" Then
        ‘触发内容

            
            
        End If
    End If
        
    Exit Sub
ErrHandle:
    ‘MsgBox Err.Description, vbInformation, "金蝶提示"
End Sub

 工业单据：装载数据之后触发事件(下推生成单据或者修改单据)

Private Sub m_BillTransfer_EndBillFormActive()

end sub

 

新单开发 装载数据事件（下推单据后装载分录数据过程中触发事件）：

Private Sub m_BillInterface_AfterFillRow(ByVal lRow As Long, ByVal dctPage As KFO.IDictionary, ByVal dctEntryData As KFO.IDictionary, ByVal dctLink As KFO.IDictionary)
  end sub