1、金蝶KIS財務接口使用說明(專業(yè)版)版本1.0目錄1、概述32、應用范圍33、接口說明34、調用示列55、備注71、概述接口插件名稱為KISProfessionalPlugin.dll；該接口用到三個類，Voucher和VoucherEntry和clsDataBase。Voucher為憑證頭類,VoucherEntry為憑證科目明細類（該類的對象作為類Voucher的一個屬性使用），clsDataBase為數(shù)據(jù)庫操作類。2、應用范圍Ø 金蝶KIS專業(yè)版V9.0及以上版本3、接口說明一、Voucher類屬性和方法說明（1）Voucher類屬性列表屬性名稱類型讀寫性必填備注VchGrou

2、p字符型可讀可寫是憑證字VchNum整形可讀可寫否憑證號：根據(jù)系統(tǒng)設置是否允許修改憑證號，不允許修改時，傳入憑證號時失效，系統(tǒng)自動生成憑證號VchReference字符型可讀可寫否參考信息VouchEntryVoucherEntry類對象可讀可寫是憑證明細類對象數(shù)組VchDate日期型可讀可寫是憑證日期VchSerialNum整形可讀可寫否憑證序號：可傳入，未傳入時系統(tǒng)自動生成VchAttachment整形可讀可寫否憑證附件數(shù)VchTranDate日期型可讀可寫否業(yè)務日期，未傳入則取憑證日期nCount整形可讀不可寫否憑證明細類對象個數(shù)ErrNumber長整形可讀不可寫否返回保存不成功的錯誤號

3、（如果大于512，則為驗證錯誤號，否則為系統(tǒng)錯誤號）ErrDescription字符型可讀不可寫否返回保存不成功的錯誤描述。（2）Voucher類方法列表函數(shù)名稱返回類型參數(shù)說明備注InsertEntry布爾型無參數(shù)插入一個憑證明細對象，插入成功返回True，否則返回FalseSave（byval sDsn As String）布爾型sDsn數(shù)據(jù)庫連接字符串保存憑證，成功返回True，否則返回False二、VoucherEntry類屬性和方法說明（1）VoucherEntry類屬性列表屬性名稱類型讀寫性必填備注AcctID字符型可讀可寫是科目代碼VchExp字符型可讀可寫否摘要（憑證的第一條科

4、目必填）VchCyid字符型可讀可寫是幣別編號VchDebit貨幣型可讀可寫科目為借方必填，否則必須不填。借方金額VchCredit貨幣型可讀可寫科目為貸方必填，否則必須不填。貸方金額VchQty雙精度型可讀可寫否數(shù)量VchPrice雙精度型可讀可寫否單價VchSettleNo字符型可讀可寫否結算號VchSettleCode字符型可讀可寫否結算方式編號VchTransID字符型可讀可寫否往來業(yè)務編號ItemID字符型可讀可寫否核算項目ID：如果科目有多個核算項目，則核算項目ID用逗號隔開傳入，例如：212，552ExchangeRate雙精度型可讀可寫否對應傳入幣別的匯率：如果傳入?yún)R率則必須大

5、于0，不傳入則從KIS系統(tǒng)取傳入幣別對應的匯率三、clsDataBase類屬性和方法說明（1）clsDataBase類屬性列表屬性名稱類型讀寫性必填備注ConnADODB.Connection可讀不可寫否數(shù)據(jù)庫連接對象（2）clsDataBase類方法列表函數(shù)或者過程名稱返回類型參數(shù)說明備注BeginTrans無無參數(shù)開始一個事務InitConnection無strConnectionString為數(shù)據(jù)庫連接字符串初始化數(shù)據(jù)庫連接對象CommitTrans無無參數(shù)提交一個事務RollBackTrans無無參數(shù)回滾一個事務4、調用示列Private sub cmdSave_Click()Dim

6、objCn As Object Dim strConn As String Dim i As Integer Dim strErrorNum As StringDim strErrorDesc As StringSet objCn = CreateObject(“KISProfessionalPlugin.clsDataBase”)/初始化數(shù)據(jù)庫連接對象objCn.InitConnection (strConn) /strConn傳入的數(shù)據(jù)庫連接字符串objCn.BeginTrans/開始一個事務/循環(huán)保存憑證，每次循環(huán)保存一張憑證。For i = 0 To 3 If Not Savedata

7、 (i, strErrorNum, strErrorDesc) ThenobjCn.RollBackTrans/出錯回滾事務MsgBox "保存第" & i & "個憑證失?。∈≡颍哄e誤號：" & strErrorNum & " 錯誤描述：" & strErrorDescExit Sub End IfNextobjCn.CommitTrans/提交事務 Set objCn=NothingMsgBox "保存成功！"End sub/保存憑證過程Private Functio

8、nSavedata(ByVal i As Variant, ByRef errornum As Variant, ByRef errorDesc As Variant) As BooleanDim obj As ObjectSet obj = CreateObject(“KISProfessionalPlugin.Voucher”)/-”憑證頭”-obj.VchGroup = "收"obj.VchAttachment = 2obj.VchDate = CDate("2006-07-25") /下面的代碼說明怎么新增一個憑證科目明細，注意：在為obj對象的

9、屬性VouchEntry賦值前，要先執(zhí)行obj.InsertEntry（新增一個憑證科目明細對象）/新增一個借方憑證科目明細obj.InsertEntryobj.VouchEntry(obj.nCount - 1).VchExp = "現(xiàn)金"obj.VouchEntry(obj.nCount - 1).AcctID = "1001.01"obj.VouchEntry(obj.nCount - 1).VchDebit = 100obj.VouchEntry(obj.nCount - 1).VchCyid = "RMB"。/新增一個貸方憑

10、證科目明細obj.InsertEntryobj.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