金蝶KIS财务接口说明V1.0(2)

金蝶KIS财务接口使用说明
(专业版)
版本1.0
目录
1、概述 (3)
2、应用范围 (3)
3、接口说明 (3)
4、调用示列 (5)
5、备注 (7)
1、概述
接口插件名称为KISProfessionalPlugin.dll；该接口用到三个类，V oucher和V oucherEntry和clsDataBase。

V oucher为’凭证头’类, V oucherEntry为凭证科目明细类（该类的对象作为类V oucher的一个属性使用），clsDataBase为数据库操作类。

2、应用范围
➢金蝶KIS专业版V9.0及以上版本
3、接口说明
一、V oucher类属性和方法说明
（1）V oucher类属性列表
（2）V oucher类方法列表
二、V oucherEntry类属性和方法说明
三、clsDataBase类属性和方法说明
（2）clsDataBase类方法列表
4、调用示列
Private sub cmdSave_Click()
Dim objCn As Object
Dim strConn As String
Dim i As Integer
Dim strErrorNum As String
Dim strErrorDesc As String
Set objCn = CreateObject(“KISProfessionalPlugin.clsDataBase”)
‘//初始化数据库连接对象
objCn.InitConnection (strConn) ‘//strConn传入的数据库连接字符串
objCn.BeginTrans ‘//开始一个事务
‘//循环保存凭证，每次循环保存一张凭证。

For i = 0 To 3
If Not Savedata (i, strErrorNum, strErrorDesc) Then
objCn.RollBackTrans’//出错回滚事务
MsgBox "保存第" & i & "个凭证失败！失败原因：错误号：" &
strErrorNum & " 错误描述：" & strErrorDesc
Exit Sub
End If
Next
mitTrans’//提交事务
Set objCn=Nothing
MsgBox "保存成功！"
End sub
‘//保存凭证过程
Private Function Savedata(ByVal i As Variant, ByRef errornum As Variant, ByRef errorDesc As
Variant) As Boolean
Dim obj As Object
Set obj = CreateObject (“KISProfessionalPlugin.V oucher”)
‘//////----”凭证头”----------
obj.VchGroup = "收"
obj.VchAttachment = 2
obj.VchDate = CDate("2006-07-25")
‘//下面的代码说明怎么新增一个凭证科目明细，注意：在为obj对象的属性VouchEntry赋值前，要先执行obj.InsertEntry（新增一个凭证科目明细对象）
‘//新增一个借方凭证科目明细
obj.InsertEntry
obj.V ouchEntry(obj.nCount - 1).VchExp = "现金"
obj.V ouchEntry(obj.nCount - 1).AcctID = " 1001.01"
obj.V ouchEntry(obj.nCount - 1).VchDebit = 100
obj.V ouchEntry(obj.nCount - 1).VchCyid = "RMB"。

‘//新增一个贷方凭证科目明细
obj.InsertEntry
obj.V ouchEntry(obj.nCount - 1).VchExp = "销售出库"
obj.V ouchEntry(obj.nCount - 1).AcctID = " 4101.03 "
obj.V ouchEntry(obj.nCount - 1). VchCredit= 100 （注意这里和上面VchDebit
不同）
obj.V ouchEntry(obj.nCount - 1).VchCyid = "RMB"
obj.V ouchEntry(obj.nCount - 1).ItemID = "152,100,162"
obj.V ouchEntry(obj.nCount - 1).VchTransID = "343434"。

Savedata = obj.Save()’//保存
'//保存失败返回错误编号和错误描述
If Not Savedata Then
errornum = obj.ErrNumber
errorDesc = obj.ErrDescription
End If
Set obj = Nothing
End function
5、备注
凭证至少有一个贷方和一个借方，凭证借贷要平衡。