如何解决具有Excel的SAP BAPI-BAPI_PLANNEDORDER_GET_DETAIL
我知道之前对此有一些疑问。但是,没有一个因素足以使我找到解决当前问题的方法。
到目前为止的代码
Sub GetPlannedOrderNums()
'--------
'Logon
'--------
Dim ws As Worksheet
Dim fRow As Long
Set ws = ThisWorkbook.Worksheets("Sheet1")
Dim sapConn As Object 'Declare variant
Set sapConn = CreateObject("SAP.Functions") 'Create ActiveX object
With sapConn.CONNECTION
.Destination = "**" 'SAP HOST
.ApplicationServer = "**" 'SAP SYSTEM
.Client = "**"
.User = "**" 'SOME VALID SAP LONG
.Password = "**" 'valid password
.SystemNumber = "**" 'for multiple logical systems
End With
If sapConn.CONNECTION.Logon(1,False) <> True Then 'Try Logon
MsgBox "Cannot Log on to SAP"
End If
If sapConn.CONNECTION.IsConnected Then
'--------
'Define function
'--------
Dim objRfcFunc As Object
Set objRfcFunc = sapConn.Add("BAPI_PLANNEDORDER_GET_DETAIL")
'--------
'Then set values
'--------
With ws
fRow = .Cells(.Rows.Count,5).End(xlUp).Row
End With
objRfcFunc.Value("MATNR") = "**"
objRfcFunc.Value("WERKS") = "**"
objRfcFunc.Value("DISPO") = "**"
objRfcFunc.Value("Production Scheduler") = "**"
If objRfcFunc.Call = False Then
MsgBox "Call failure" + objRfcFunc.Exception
End If
End If
End Sub
代码的最终目标
为n个物料运行BAPI,并为每个唯一的物料编号检索1个计划订单号。我没有继续进行独特的部分,因为我觉得我需要首先使BAPI正常工作。
未解决的问题
我知道此代码不完整。我一直坚持前进的方向和方法,但未能找到有关此特定问题的任何信息。 BAPI的必填字段是物料编号,工厂,MRP控制器和生产计划程序。 登录部分正常工作,但是代码在对象处中断(很可能是由于字段错误所致)。
问题
- 我如何知道BAPI所需的参数?我无权访问SE37或SE80。我在这里找到的名字是全能的Google使用的。
- 通过Excel的BAPI的语法如何?登录部分可以,但是我很难找到有关如何正确设置和编程它的任何答案。
任何指向正确方向或一般帮助的指针将不胜感激!
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。