金蝶KIS财务接口使用说明

小咪咪 2022-12-29 14:21 303阅读 0赞

### 金蝶KIS财务接口使用说明 ###

*   *  [概述][Link 1]
     *  [应用范围][Link 2]
     *  [接口说明][Link 3]
     *  [调用示列][Link 4]
     *  [备注][Link 5]

## 概述 ##

接口插件名称为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

*  1
 *  2
 *  3

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 "

*  1
 *  2
 *  3
 *  4
 *  5
 *  6
 *  7
 *  8
 *  9
 *  10
 *  11
 *  12
 *  13

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

## 备注 ##

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

[Link 1]: https://blog.csdn.net/sjzjhc/article/details/103888752?ops_request_misc=%25257B%252522request%25255Fid%252522%25253A%252522160869627416780258057312%252522%25252C%252522scm%252522%25253A%25252220140713.130102334.pc%25255Fall.%252522%25257D&request_id=160869627416780258057312&biz_id=0&utm_medium=distribute.pc_search_result.none-task-blog-2~all~first_rank_v2~rank_v29-10-103888752.pc_search_result_no_baidu_js&utm_term=%E9%87%91%E8%9D%B6kis%E4%BA%91#_2
[Link 2]: https://blog.csdn.net/sjzjhc/article/details/103888752?ops_request_misc=%25257B%252522request%25255Fid%252522%25253A%252522160869627416780258057312%252522%25252C%252522scm%252522%25253A%25252220140713.130102334.pc%25255Fall.%252522%25257D&request_id=160869627416780258057312&biz_id=0&utm_medium=distribute.pc_search_result.none-task-blog-2~all~first_rank_v2~rank_v29-10-103888752.pc_search_result_no_baidu_js&utm_term=%E9%87%91%E8%9D%B6kis%E4%BA%91#_6
[Link 3]: https://blog.csdn.net/sjzjhc/article/details/103888752?ops_request_misc=%25257B%252522request%25255Fid%252522%25253A%252522160869627416780258057312%252522%25252C%252522scm%252522%25253A%25252220140713.130102334.pc%25255Fall.%252522%25257D&request_id=160869627416780258057312&biz_id=0&utm_medium=distribute.pc_search_result.none-task-blog-2~all~first_rank_v2~rank_v29-10-103888752.pc_search_result_no_baidu_js&utm_term=%E9%87%91%E8%9D%B6kis%E4%BA%91#_10
[Link 4]: https://blog.csdn.net/sjzjhc/article/details/103888752?ops_request_misc=%25257B%252522request%25255Fid%252522%25253A%252522160869627416780258057312%252522%25252C%252522scm%252522%25253A%25252220140713.130102334.pc%25255Fall.%252522%25257D&request_id=160869627416780258057312&biz_id=0&utm_medium=distribute.pc_search_result.none-task-blog-2~all~first_rank_v2~rank_v29-10-103888752.pc_search_result_no_baidu_js&utm_term=%E9%87%91%E8%9D%B6kis%E4%BA%91#_66
[Link 5]: https://blog.csdn.net/sjzjhc/article/details/103888752?ops_request_misc=%25257B%252522request%25255Fid%252522%25253A%252522160869627416780258057312%252522%25252C%252522scm%252522%25253A%25252220140713.130102334.pc%25255Fall.%252522%25257D&request_id=160869627416780258057312&biz_id=0&utm_medium=distribute.pc_search_result.none-task-blog-2~all~first_rank_v2~rank_v29-10-103888752.pc_search_result_no_baidu_js&utm_term=%E9%87%91%E8%9D%B6kis%E4%BA%91#_130