金蝶KIS财务接口使用说明

概述

接口插件名称为KISProfessionalPlugin.dll；该接口用到三个类，Voucher和VoucherEntry和clsDataBase。Voucher为’凭证头’类, VoucherEntry为凭证科目明细类（该类的对象作为类Voucher的一个属性使用），clsDataBase为数据库操作类。

应用范围

 金蝶KIS专业版V13.0及以上版本，

接口说明

一、Voucher类属性和方法说明
（1）Voucher类属性列表
属性名称 类型 读写性 必填 备注
VchGroup 字符型 可读可写 是 凭证字
VchNum 整形 可读可写 否 凭证号：根据系统设置是否允许修改凭证号，不允许修改时，传入凭证号时失效，系统自动生成凭证号
VchReference 字符型 可读可写 否 参考信息
VouchEntry VoucherEntry类对象 可读可写 是 凭证明细类对象数组
VchDate 日期型 可读可写 是 凭证日期
VchSerialNum 整形 可读可写 否 凭证序号：可传入，未传入时系统自动生成
VchAttachment 整形 可读可写 否 凭证附件数
VchTranDate 日期型 可读可写 否 业务日期，未传入则取凭证日期
nCount 整形 可读不可写 否 凭证明细类对象个数
ErrNumber 长整形 可读不可写 否 返回保存不成功的错误号（如果大于512，则为验证错误号，否则为系统错误号）
ErrDescription 字符型 可读不可写 否 返回保存不成功的错误描述。

（2）Voucher类方法列表
函数名称 返回类型 参数说明 备注
InsertEntry 布尔型 无参数 插入一个凭证明细对象，插入成功返回True，否则返回False
Save（byval sDsn As String） 布尔型 sDsn—数据库连接字符串 保存凭证，成功返回True，否则返回False

二、VoucherEntry类属性和方法说明
（1）VoucherEntry类属性列表
属性名称 类型 读写性 必填 备注
AcctID 字符型 可读可写 是 科目代码
VchExp 字符型 可读可写 否 摘要（凭证的第一条科目必填）
VchCyid 字符型 可读可写 是 币别编号
VchDebit 货币型 可读可写 科目为借方必填，否则必须不填。 借方金额
VchCredit 货币型 可读可写 科目为贷方必填，否则必须不填。 贷方金额
VchQty 双精度型 可读可写 否 数量
VchPrice 双精度型 可读可写 否 单价
VchSettleNo 字符型 可读可写 否 结算号
VchSettleCode 字符型 可读可写 否 结算方式编号
VchTransID 字符型 可读可写 否 往来业务编号
ItemID 字符型 可读可写 否 核算项目ID：如果科目有多个核算项目，则核算项目ID用逗号隔开传入，例如：212，552
ExchangeRate 双精度型 可读可写 否 对应传入币别的汇率：如果传入汇率则必须大于0，不传入则从KIS系统取传入币别对应的汇率

三、clsDataBase类属性和方法说明
（1）clsDataBase类属性列表
属性名称 类型 读写性 必填 备注
Conn ADODB.Connection 可读不可写 否 数据库连接对象

（2）clsDataBase类方法列表
函数或者过程名称 返回类型 参数说明 备注
BeginTrans 无 无参数 开始一个事务
InitConnection 无 strConnectionString为数据库连接字符串 初始化数据库连接对象
CommitTrans 无 无参数 提交一个事务
RollBackTrans 无 无参数 回滚一个事务

调用示列

Private sub cmdSave_Click()
Dim objCn As Object
Dim strConn As String
Dim i As Integer
Dim strErrorNum As String
Dim strErrorDesc As String
Dim obj as object

Set obj = CreateObject(“KISAppSDK.CDataSource”)
Set objCn = obj. Connection
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
objCn.CommitTrans’//提交事务
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.Voucher”)

‘//////----”凭证头”----------
		obj.VchGroup = "收"
		obj.VchAttachment = 2

obj.VchDate = CDate(“2006-07-25”)

	‘//下面的代码说明怎么新增一个凭证科目明细，注意：在为obj对象的属性VouchEntry赋值前，要先执行obj.InsertEntry（新增一个凭证科目明细对象）

	     ‘//新增一个借方凭证科目明细
		obj.InsertEntry
		obj.VouchEntry(obj.nCount - 1).VchExp = "现金"
    	obj.VouchEntry(obj.nCount - 1).AcctID = " 1001.01"
		obj.VouchEntry(obj.nCount - 1).VchDebit = 100    
		obj.VouchEntry(obj.nCount - 1).VchCyid = "RMB"
		。。。。。。
		‘//新增一个贷方凭证科目明细
		obj.InsertEntry
		obj.VouchEntry(obj.nCount - 1).VchExp = "销售出库"
    	obj.VouchEntry(obj.nCount - 1).AcctID = " 4101.03 "

obj.VouchEntry(obj.nCount - 1). VchCredit= 100 （注意这里和上面VchDebit不同）
obj.VouchEntry(obj.nCount - 1).VchCyid = “RMB”
obj.VouchEntry(obj.nCount - 1).ItemID = “152,100,162”
obj.VouchEntry(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

备注

凭证至少有一个贷方和一个借方，凭证借贷要平衡。