金蝶kis财务接口说明v1.0(2)

《金蝶kis财务接口说明v1.0(2)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、金蝶KIS财务接口使用说明(专业版)版本1.0目录1、概述32、应用范围33、接口说明34、调用示列55、备注71、概述接口插件名称为KISProfessionalPlugin.dll；该接口用到三个类，Voucher和VoucherEntry和clsDataBase。Voucher为’凭证头’类,VoucherEntry为凭证科目明细类（该类的对象作为类Voucher的一个属性使用），clsDataBase为数据库操作类。2、应用范围Ø金蝶KIS专业版V9.0及以上版本3、接口说明一、Voucher类属性和方法说明（1）Voucher类

2、属性列表属性名称类型读写性必填备注VchGroup字符型可读可写是凭证字VchNum整形可读可写否凭证号：根据系统设置是否允许修改凭证号，不允许修改时，传入凭证号时失效，系统自动生成凭证号VchReference字符型可读可写否参考信息VouchEntryVoucherEntry类对象可读可写是凭证明细类对象数组VchDate日期型可读可写是凭证日期VchSerialNum整形可读可写否凭证序号：可传入，未传入时系统自动生成VchAttachment整形可读可写否凭证附件数VchTranDate日期型可读可写否业务日期，未传入则取凭证日期

3、nCount整形可读不可写否凭证明细类对象个数ErrNumber长整形可读不可写否返回保存不成功的错误号（如果大于512，则为验证错误号，否则为系统错误号）ErrDescription字符型可读不可写否返回保存不成功的错误描述。（2）Voucher类方法列表函数名称返回类型参数说明备注InsertEntry布尔型无参数插入一个凭证明细对象，插入成功返回True，否则返回FalseSave（byvalsDsnAsString）布尔型sDsn—数据库连接字符串保存凭证，成功返回True，否则返回False二、VoucherEntry类属性和方

4、法说明（1）VoucherEntry类属性列表属性名称类型读写性必填备注AcctID字符型可读可写是科目代码VchExp字符型可读可写否摘要（凭证的第一条科目必填）VchCyid字符型可读可写是币别编号VchDebit货币型可读可写科目为借方必填，否则必须不填。借方金额VchCredit货币型可读可写科目为贷方必填，否则必须不填。贷方金额VchQty双精度型可读可写否数量VchPrice双精度型可读可写否单价VchSettleNo字符型可读可写否结算号VchSettleCode字符型可读可写否结算方式编号VchTransID字符型可读可写

5、否往来业务编号ItemID字符型可读可写否核算项目ID：如果科目有多个核算项目，则核算项目ID用逗号隔开传入，例如：212，552ExchangeRate双精度型可读可写否对应传入币别的汇率：如果传入汇率则必须大于0，不传入则从KIS系统取传入币别对应的汇率三、clsDataBase类属性和方法说明（1）clsDataBase类属性列表属性名称类型读写性必填备注ConnADODB.Connection可读不可写否数据库连接对象（2）clsDataBase类方法列表函数或者过程名称返回类型参数说明备注BeginTrans无无参数开始一个事务

6、InitConnection无strConnectionString为数据库连接字符串初始化数据库连接对象CommitTrans无无参数提交一个事务RollBackTrans无无参数回滚一个事务4、调用示列PrivatesubcmdSave_Click()DimobjCnAsObjectDimstrConnAsStringDimiAsIntegerDimstrErrorNumAsStringDimstrErrorDescAsStringSetobjCn=CreateObject(“KISProfessionalPlugin.clsData

7、Base”)‘//初始化数据库连接对象objCn.InitConnection(strConn)‘//strConn传入的数据库连接字符串objCn.BeginTrans‘//开始一个事务‘//循环保存凭证，每次循环保存一张凭证。Fori=0To3IfNotSavedata(i,strErrorNum,strErrorDesc)ThenobjCn.RollBackTrans’//出错回滚事务MsgBox"保存第"&i&"个凭证失败！失败原因：错误号："&strErrorNum&"错误描述："&strErrorDescExitSubEndI

8、fNextobjCn.CommitTrans’//提交事务SetobjCn=NothingMsgBox"保存成功！"Endsub‘//保存凭证过程PrivateFunctionSavedata