凭证接口使用

从第三方系统获取数据生成K3中的凭证，参考文档

设置核算项目的实例，是需要在已经成功建立凭证分录对象的基础上使用。怎么设置凭证对象，可参考以下详细的例子：

Dim Voucher As Object '凭证对象  
Dim detail As Object 'EBCGL.VoucherDetail  
Dim vchEntries As Object 'EBCGL.VoucherEntrySet     '保存一张凭证对应的所有分录  
Dim vchEntry As Object 'EBCGL.VoucherEntry  '分录数据  
Dim vchDetails As Object  'EBCGL.VoucherDetailSet  
Dim vchDetail As Object 'EBCGL.VoucherDetail '核算项目数据  
Dim lEntryCount As Long '凭证分录数目  
Dim lDetailCount As Long '核算项目数目 
Dim i As Long  
Dim j As Long  

Set Voucher = CreateObject("EBCGL.Voucher")  
'创建凭证对象  
Voucher.Construct Nothing, Nothing  

Set vchEntries = Voucher.Entries  
'假设凭证包含三条分录，携带一个核算项目  
lEntryCount = 3  
lDetailCount = 1  
For i = 1 To lEntryCount  
    vchEntries.Add  
     Set vchEntry = vchEntries(i)  
     Set vchDetails = vchEntry.Details  
     For j = 1 To lDetailCount  
        vchDetails.Add  
        Set vchDetail = vchDetails(i)  
        vchDetail.ItemClassId = 核算项目类别  
        vchDetail.ItemName = 核算项目名称  
        vchDetail.itemNumber = 核算项目代码  
        vchDetail.ItemID = 核算项目内码  
     Next  
Next  

 

 '保存凭证

 Voucher.SaveChanges