2022年2022年金蝶专业版财务接口说明 .pdf

金蝶 KIS 财务接口使用说明(专业版) 版本 1.0 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 7 页 - - - - - - - - - 目录1、概述 . 32、应用范围 . 33、接口说明 . 34、调用示列 . 55、备注 . 7名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 7 页 - - - - - - - - - 1、概述接 口 插 件 名 称 为KISProfessionalPlugin.dll ； 该 接 口 用 到 三 个 类 ， Voucher 和VoucherEntry 和 clsDataBase。 Voucher 为?凭证头 ? 类, VoucherEntry 为凭证科目明细类 （该类的对象作为类Voucher 的一个属性使用） ，clsDataBase 为数据库操作类。2、应用范围金蝶 KIS 专业版 V9.0 及以上版本3、接口说明一、 Voucher 类属性和方法说明（1）Voucher 类属性列表属性名称类型读写性必填备注VchGroup 字符型可读可写是凭证字VchNum 整形可读可写否凭证号：根据系统设置是否允许修改凭证号，不允许修改时，传入凭证号时失效，系统自动生成凭证号VchReference 字符型可读可写否参考信息VouchEntry VoucherEntry 类对象可读可写是凭证明细类对象数组VchDate 日期型可读可写是凭证日期VchSerialNum 整形可读可写否凭证序号：可传入，未传入时系统自动生成VchAttachment 整形可读可写否凭证附件数VchTranDate 日期型可读可写否业务日期，未传入则取凭证日期nCount 整形可读不可写否凭证明细类对象个数ErrNumber 长整形可读不可写否返回保存不成功的错误号（如果大于512，则为验证错误号，否则为系统错误号）ErrDescription 字符型可读不可写否返回保存不成功的错误描述。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 7 页 - - - - - - - - - （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 系统取传 入 币 别 对应的汇率名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 7 页 - - - - - - - - - 三、 clsDataBase 类属性和方法说明（1）clsDataBase 类属性列表属性名称类型读写性必填备注Conn ADODB.Connection 可读不可写否数据库连接对象（2）clsDataBase 类方法列表函数或者过程名称返回类型参数说明备注BeginTrans 无无参数开始一个事务InitConnection 无strConnectionString为 数据库连接字符串初始化数据库连接对象CommitTrans 无无参数提交一个事务RollBackTrans 无无参数回滚一个事务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 objCn.CommitTrans ? /提交事务Set objCn=Nothing MsgBox 保存成功！ End sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 7 页 - - - - - - - - - ,/保存凭证过程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.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 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 7 页 - - - - - - - - - 5、备注凭证至少有一个贷方和一个借方，凭证借贷要平衡。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 7 页 - - - - - - - - -