新建单据保存问题

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

我参照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

错误截图：