金蝶K3工业老单中间层开发示例

二次开发实现的步骤：

第一步、新建组件工程（假设工程名为ReDevPro，包含一个类名为  clsReDev的类模块），引用k3BillTransfer 组件和其他你要使用的组件例如ADO--Microsoft ActiveX Data Objects 2.1 Library等。

第二步、在clsReDev类代码中声明

    Private WithEvents m_BillTransfer As k3BillTransfer.Bill。

第三步、必须添加以下代码否则系统不能够传递事件到你的组件中

       Public Sub Show(ByVal o As Object)

             Set m_BillTransfer = o

       End Sub

第四步、在m_BillTransfer的各事件中编写相应处理代码。例如

     Private Sub m_BillTransfer_BillInitialize()

         Set cn = New ADODB.Connection

         cn.CursorLocation = adUseClient

        cn.Open m_BillTransfer.Cnnstring

     End Sub

 

二次开发实现的步骤—续：

 

第五步、编写完成以后编译你的工程

第六步、注册二次开发组件使单据调用时能触发

  在表t_ThirdpartyComponent中增加二次开发组件记录，各字段

       含义为

FTypeID:二次开发插件类型，0为客户端插件；2为中间层插件

FTypeDetailID：单据类型ID，客户端表示