凭证二开凭证二开凭证二开凭证二开凭证二开

这是k3里的凭证二次开发功能，我想找一份kis专业版的。自己试了不行。
凭证保存(中间层)这个二次开发是可以做的。
凭证新增(界面数据)这个专业版里做不出来.
If OptVch(1).Value = True Then '凭证新增(界面数据)
Mode = 0
ReturnVoucherID = 0
Dim Voucher As Object
Set Voucher = CreateVoucher
If Voucher Is Nothing Then Exit Sub
Dim rel As KDVBF.Relevancy
Set rel = New KDVBF.Relevancy '建立输入对象
Set rel.EditObject = Voucher '设置凭证数据对象到Rel参数
rel.MultiEdit = False '是否允许多张凭证编辑
' Set K3Login = Nothing
Vch.LoadVoucher Mode, , rel, , ReturnVoucherID
MsgVoucher ReturnVoucherID