金蝶生成二维码

Posted 2020-10-04 唐尧

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

 

这是我在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

 

 

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