vb调用K3接口

2009-12-28 07:39:34 669 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

实战金蝶K3 WISE API：多语言集成与自定义接口开发指南本文详细介绍了金蝶K3 WISE API的多语言集成与自定义接口开发实战指南。通过VB、Delphi、C#和Java等多种编程语言的代码示例，展示了如何高效调用API实现基础资料管理、财务数据操作等功能，并提供了自动化服务程序和自定义API接口的开发方法，助力企业快速实现系统集成与数据交互。阅读详情

现在我们有一个项目，他们公司用的K3的财务软件，现在我们有些业务想实时的调用K3的财务凭证，所以我们尝试用vb来调用k3凭证接口，来达到新增凭证，默认是凭证的审核状态，由于我都VB之前都不是很了解，请各位大侠只能我一下
Private Sub Command1_Click()
Dim voucher As New KFO.Dictionary
Dim GlData As New EBCGLView.GlData
Dim GLView As New EBCGLView.GLView
Dim dtvect As KFO.Vector
Dim Dt As KFO.Dictionary
Dim obj As ADODB.Recordset
Dim ReturnCollection As Object
'vchdate = DateSerial(GlData.SystemProfile.GLGetCurrentYear, GlData.SystemProfile.GLGetCurrentPeriod, 1)
vchdate = DateSerial(2009, 12, 1)
voucher("FDate") = vchdate
voucher("FGroup") = "记"
voucher("FNumber") = Val(111)

Dim voucherentry As New KFO.Vector
Dim tempentry As New KFO.Dictionary

'Set tempentry = New KFO.Dictionary
tempentry("FExplanation") = "凭证录入检测-分录1"
tempentry("FAccountID") = 1014
tempentry("FCurrencyID") = 1
tempentry("FDC") = 1
tempentry("FAmountFor") = 100
tempentry("FAmount") = 100
tempentry("Fdebit") = 100
tempentry("Fcredit") = -100
Set dtvect = New KFO.Vector
Set obj = GlData.GetAccountItem(1014)
For i = 0 To obj.RecordCount - 1
Set ReturnCollection = GLView.ItemLookup(obj("FItemClassID"))
Set Dt = New KFO.Dictionary
Dt("FItemClassID") = ReturnCollection.ReturnObject.ItemClassID
Dt("FItemID") = ReturnCollection.ReturnObject.ItemID
dtvect.Add Dt
obj.MoveNext
Next i
Set tempentry("_Details") = dtvect
voucherentry.Add tempentry

Set tempentry = New KFO.Dictionary
tempentry("FExplanation") = "凭证录入检测-分录2"
tempentry("FAccountID") = 1045
tempentry("FCurrencyID") = 1
tempentry("FDC") = 0
tempentry("FAmountFor") = 100
tempentry("FAmount") = 100
Set dtvect = New KFO.Vector
Set obj = GlData.GetAccountItem(1045)
For i = 0 To obj.RecordCount - 1
'Set ReturnCollection = GLView.ItemLookup(obj("FItemClassID"))
Set Dt = New KFO.Dictionary
'Dt("FItemClassID") = ReturnCollection.ReturnObject.ItemClassID
'Dt("FItemID") = ReturnCollection.ReturnObject.ItemID
dtvect.Add Dt
obj.MoveNext
Next i
Set tempentry("_Details") = dtvect
voucherentry.Add tempentry

Set voucher("_Entries") = voucherentry

Dim cre As Object, voucherid As Long
Set cre = CreateObject("EBSGLVoucher.VoucherUpdate")
voucherid = cre.Create(k3login.PropsString, voucher)
Set cre = Nothing

End Sub

报错的是这句Set obj = GlData.GetAccountItem(1014) ，报的错是没有发现数据源名称且没有制定默认驱动程序，大哥们，急啊！

...全文