仅供个人参考
金蝶KIS财务接口使用说明
(专业版)
版本1.0
目录
1、概述......................................................................................................................................32、应用范围..............................................................................................................................33、接口说明..............................................................................................................................34、调用示列..............................................................................................................................55、备注......................................................................................................................................7
1、概述
接口插件名称为KISProfessionalPlugin.dll；该接口用到三个类，Voucher和VoucherEntry和clsDataBase。Voucher为’凭证头’类,VoucherEntry为凭证科目明细类（该类的对象作为类Voucher的一个属性使用），clsDataBase为数据库操作类。
2、应用范围
一、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 | 双精度型 | 可读可写 | 否 无 | 水印对应传入币 |
不得用于商业用途
仅供个人参考
|
|
|
| 别的汇率：如 |
三、clsDataBase类属性和方法说明
（1）clsDataBase类属性列表
属性名称 | 类型 | 读写性 | 必填 | 备注 |
Conn | ADODB.Connection | 可读不可写 | 否 | 数据库连接对象 |
（2）clsDataBase类方法列表
| ||||||||||||||||||||||
4、调用示列 | | |||||||||||||||||||||
| ||||||||||||||||||||||
Dim strErrorNum | As String | |||||||||||||||||||||
Dim strErrorDesc | As String | |||||||||||||||||||||
SetobjCn =CreateObject(“KISProfessionalPlugin.clsDataBase”)
‘//初始化数据库连接对象
objCn.InitConnection(strConn) ‘//strConn传入的数据库连接字符串objCn.BeginTrans ‘//开始一个事务
‘//循环保存凭证，每次循环保存一张凭证。
Fori = 0 To 3
IfNot Savedata(i, strErrorNum, strErrorDesc) Then
objCn.RollBackTrans’//出错回滚事务
MsgBox"保存第"& i & "个凭证失败！失败原因：错误号："& strErrorNum& " 错误描述："& strErrorDesc
ExitSub
EndIf
Next
objCn.CommitTrans’//提交事务
Set objCn=Nothing
不得用于商业用途
仅供个人参考
MsgBox "保存成功！"
Endsub
‘//保存凭证过程
PrivateFunction Savedata(ByVali As Variant, ByRef errornum As Variant, ByRef errorDesc As Variant)As Boolean
Dimobj AsObject
Setobj = 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.InsertEntryobj.VouchEntry(obj.nCount - 1).VchExp = "销售出库"。。。。。。
obj.VouchEntry(obj.nCount - 1).ItemID = "152,100,162"
obj.VouchEntry(obj.nCount - 1).VchTransID = "343434"
。。。。。。
Savedata= obj.Save()’//保存
'//保存失败返回错误编号和错误描述
IfNot Savedata Then
errornum= obj.ErrNumber
errorDesc= obj.ErrDescription
EndIf
Setobj = Nothing
Endfunction
5、备注
凭证至少有一个贷方和一个借方，凭证借贷要平衡。
不得用于商业用途
仅供个人参考
仅供个人用于学习、研究；不得用于商业用途。
Forpersonal use only in study and research; not for commercial use.
Nurfür den persönlichen für Studien, Forschung, zu kommerziellenZwecken verwendet werden.
Pourl 'étude et la recherche uniquement à des fins personnelles; pas àdes fins commerciales.
толькодля людей, которые используются дляобучения, исследований и не должныиспользоваться в коммерческих целях.
以下正文
不得用于商业用途