从vb呼叫BAPI_PRODORDCONF_GET_TT_PROP

2020-09-21 19:52发布

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


大家好,

我尝试了很多如何将thic bapi放入vb,但是没有成功。 对我来说,这不是来自vb的第一个bapi呼叫,通常我对它们没有问题。

问题是,如何以及在何处将CONF_NO从其BAPI放入TIMETICKETS表中。

有这种情况的例子吗?

Thx,斯拉夫科

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


大家好,

我尝试了很多如何将thic bapi放入vb,但是没有成功。 对我来说,这不是来自vb的第一个bapi呼叫,通常我对它们没有问题。

问题是,如何以及在何处将CONF_NO从其BAPI放入TIMETICKETS表中。

有这种情况的例子吗?

Thx,斯拉夫科

付费偷看设置
发送
3条回答
追夢秋陽
1楼 · 2020-09-21 20:11.采纳回答

在建立确认表TIMETICKETS时,请使用CONF_NO或ORDERID,SEQUENCE,OPERATION和SUB_OPER字段。

您是否可以像

那样张贴代码的一部分

设置obSapFn = CreateObject(  " SAP.Functions")
 设置obProdOrdConf = obSapFn.Add(" BAPI_PRODORDCONF_GET_TT_PROP")
 设置obTblProdOrdConf = obProdOrdConf.Tables(" TIMETICKETS")
 obTblProdOrdConf.FreeTable
 ‘以某种循环向表中添加行
 obTblProdOrdConf.Rows.Add
 obTblProdOrdConf.Value(obTblProdOrdConf.RowCount," CONF_NO")= rueck 
Nan4612
2楼-- · 2020-09-21 20:29

您能否澄清一下您的问题-您是从哪里获得CONF_NO的问题吗? p>你好,

感谢两个回答,这对我有很大帮助。 现在,我可以从SAP中读取通知并发回确认。

Slavko,

梦想连接
3楼-- · 2020-09-21 20:23

看起来类似下面的代码。

'调用BAPI RFC_GET_TABLE_ENTRIES的示例
 显式期权
 作为SAPFunctions的公共函数OCX.SAPFunctions
 私人LogonControl为SAPLogonCtrl.SAPLogonControl
 专用R3Connection作为SAPLogonCtrl.Connection
 Dim Func作为SAPFunctionsOCX.Function
 将公用iTABLE_NAME作为SAPFunctionsOCX.Parameter
 将公共eNUMBER_OF_ENTRIES作为SAPFunctionsOCX.Parameter
 公共tENTRIES作为SAPTableFactoryCtrl.Table

 私人子主要()
     Dim ix作为整数
     昏暗retcd为布尔
     昏暗的SilentLogon为布尔值
     设置LogonControl = CreateObject(" SAP.LogonControl.1")
     设置函数= CreateObject(" SAP.Functions")
     设置TableFactory = CreateObject(" SAP.TableFactory.1")
     设置R3Connection = LogonControl.NewConnection
     R3Connection.Client =" 000"
     R3Connection.ApplicationServer =" 192.168.69.111"
     R3Connection.Language =" EN"
     R3Connection.User ="开发者"
     R3Connection.Password =" 19920607"
     R3Connection.System =" WAS"
     R3Connection.SystemID =" $ WebAS"
     R3Connection.SystemNumber =" 18"
     R3Connection.UseSAPLogonIni =假
     SilentLogon =真
    
     retcd = R3Connection.Logon(0,SilentLogon)
     如果retcd <> True,则MsgBox"登录失败":退出子
     Functions.Connection = R3Connection
    
     设置Func = Functions.Add(" RFC_GET_TABLE_ENTRIES")
     设置iTABLE_NAME = Func.Exports(" TABLE_NAME")
     设置eNUMBER_OF_ENTRIES =功能导入(" NUMBER_OF_ENTRIES")
     设置tENTRIES = Func.Tables(" ENTRIES")
     iTABLE_NAME.Value =" TCURR"
     功能通话
     调试打印eNUMBER_OF_ENTRIES
     对于ix = 1到tENTRIES.RowCount
         调试打印tENTRIES(ix,1)
     下一个
     R3Connection.logoff
 结束Sub 

一周热门 更多>