在金蝶 k3 的工业单据中的事件 m_BillTransfer_HookInvoke

Posted 2023-04-08

在金蝶 k3 的工业单据中的事件 m_BillTransfer_HookInvoke(ByVal pEventID As Long, Para As KFO.IDictionary）什么时候触发

参考技术A 审核的时候触发追问

这里不支持调试吗？另外KFO.IDictionary的值怎么取得呢？

追答

他是中间层

追问

是不是中间层的都不支持调试

追答

支持调试

追问

怎么在选单后隐藏自定义的字段呢？

追答

单据加载前修改数据库显示属性

金蝶生成二维码

金蝶单据只支持一维码生成，不具备二维码生成，但是通过金蝶后台开发，是可以生成二维码的，这个技术已经实现了

 

这是我在BOS单上做的开发，当单据保存的时候，金蝶的图片框会自动生产一张二维码

 

 

说下解题思路：

 

单据保存的时候，通过VB进行事件触发，连接由C#开发的WebService，并将单据号发给它，c#接收数据，生成二维码，再将二维码保存到数据库里，实现间接生成

 

Private Sub m_BillInterface_AfterSave(bCancel As Boolean)
        
        Dim soapClient As New SoapClient30
        Dim z As String
        
        z = m_BillInterface.GetFieldValue("FBillNo")　　　　　　　　//获取单据号
        
        z = "http://192.168.30.2:12345/Service.asmx/ErWeiMa?text=" + z　　　　//组合成WebService地址和参数
        
        Set xmlHTTP = CreateObject("Microsoft.XMLHTTP")　　　　　　　　　　　　//访问WebService

　　　　 xmlHTTP.Open "GET", z, True 

　　　　 xmlHTTP.Send 

End Sub

 

 

需要完整源码的，可以私信给我