VB调用SAP BAPI时如何获取和解析BAPI的table对象?

cafeson 2007-06-25 12:57:20
Set BAPICox = CreateObject("SAP.BAPI.1")
Set objBAPI = BAPICox.GetSAPObject("GoodsMovement")
Set oGoodsmvtCode = BAPICox.DimAs(objBAPI, "CreateFromData", "GoodsmvtCode")
Set oGoodsmvtHeader = BAPICox.DimAs(objBAPI, "CreateFromData", "GoodsmvtHeader")
Set oGoodsmvtItem = BAPICox.DimAs(objBAPI, "CreateFromData", "GoodsmvtItem")
Set wReturn = BAPICox.DimAs(objBAPI, "CreateFromData", "Return")

oGoodsmvtCode.Value("GM_CODE") = "04"
oGoodsmvtHeader.Value("HEADER_TXT") = "Testing for TAS"
oGoodsmvtHeader.Value("REF_DOC_NO") = "MO00001"
'Item
oGoodsmvtItem.Rows.Add
oGoodsmvtItem.Value(nCount, "MATERIAL") = "SC2-201-01115S"
oGoodsmvtItem.Value(nCount, "PLANT") = "SCA1"
oGoodsmvtItem.Value(nCount, "STGE_LOC") = "L001"
oGoodsmvtItem.Value(nCount, "MOVE_TYPE") = "311"

oGoodsmvtItem.Value(nCount, "ENTRY_QNT") = 12
oGoodsmvtItem.Value(nCount, "MOVE_STLOC") = "LW01"
Call objBAPI.CreateFromData(oGoodsmvtCode, oGoodsmvtHeader,oGoodsmvtItem,oGoodsmvtHeadret,wReturn)

strSAPDoc = objBAPI.MaterialDocument
strReturn = objBAPI.MatDocumentYear
//VB调用SAP BAPI时如何获取和解析BAPI的table对象?
//objBAPI.getTables 或者objBAPI.tables
...全文
537 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
cafeson 2007-08-02
  • 打赏
  • 举报
回复
算了,不用VB。用Java解决了。
CathySun118 2007-06-25
  • 打赏
  • 举报
回复
不知道,up

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧