金蝶k3中间层开发说明

1. 代码根据实际情况修改下面

你们的调拨类型如果是自定义，修改FRefType字段名

另外更新规则如果不是这样，修改update语句

 

Set rs = cn.Execute("Select FName From t_SubMessage Where FInterID =(Select FRefType From ICStockbill  Where FInterID = " & CStr(lInterID) & ")")

           

            If rs.Fields(0) = "成本调拨" Then

                cn.Execute ("Update ICStockBillEntry set " & GetSqlFieldEntry("未还回数量", "D01") & " = FQty - isnull(" & GetSqlFieldEntry("已还回数量", "D01") & ",0) Where FInterID = " & CStr(lInterID))

            End If

                  

        

 

1. 工程属性设置好：

 

 

 

 

1. 生成dll，同时有vbr

 

 

 

 

1. updateobject.exe部署方法：

vbr文件放到vbr中，sql放注册插件语句，server里面放dll

 

 

 

中间层服务器运行updateobjects.exe,分别安装server,database

 

客户端安装vbr时候会提示输入服务器的IP，如果开发在一台机器上就127.0.0.1

 

 

1. 手动部署方法：如果server2008的中间层服务器，可能updateobject.exe会找不到金蝶文件夹，可以手动部署：

Sql直接sqlserver执行；

Dll拷贝到任意目录，然后拖拽到组建管理的ebok3包

 

 

 

 

         客户端Vbr还是可以用updateobject在客户端注册

 

1. 调试方法

代码不好走断电调试，可以用err.raise 凑合做调试

如果报错了，重新生成dll，k3会占用无法覆盖dll，那么关闭k3客户端，然后进程里面删除所有dllhost中所有者是network的。