新建单据保存问题
金蝶云社区-云社区用户6SBo0821
云社区用户6SBo0821
0人赞赏了该文章 1150次浏览 未经作者许可,禁止转载编辑于2016年07月15日 00:02:43

请问在合同(应收)序时簿界面,我在菜单上新建一个按钮,点击按钮在后台生成其他应收单(应为有其他的操作要处理,所以没有使用标准的下推),通过序时簿插件能实现吗?

我参照bos外部接口调用说明使用如下的方法,调试时报了一个错误如下截图,另外sDSN的取到的值为“”,请问是什么原因?
'初始化BOS单据对象
Set oDataSrv = CreateObject("K3ClassTpl.DataSrv")
oDataSrv.ClassTypeID = 200000016
Set oTableInfo = oDataSrv.TableInfo
'获取BOS单据空的数据包
Set oData = oDataSrv.GetEmptyBill
sDsn = getConn
Set oSrv = CreateObject("K3MClass. ClassUpdate ")
‘-----------------------------
Declare Function [i]GetCurrentProcessId[/i]Lib "kernel32" Alias "[i]GetCurrentProcessId[/i]"() As Long Private Function getConn() As String
Dim spmMgr As Object
Dim lProc As Long
lProc = GetCurrentProcessId()
Set spmMgr = CreateObject("PropsMgr.ShareProps")
If IsObject(spmMgr.GetProperty(lProc, "PropsString")) Then getConn = spmMgr.GetProperty(lProc, "PropsString")
Else getConn = spmMgr.GetProperty(lProc, "PropsString")
End If
Set spmMgr = Nothing
End Function

错误截图: