cancel
Showing results for 
Search instead for 
Did you mean: 

BAPI_ALM_CONF_CREATE mit vba

0 Kudos

Hallo,

ich möchte Stunden für einen Auftrag via BAPI im SAP erfassen.

Leider meldet mir die Schnittstelle immer, das der angegebene Auftrag nicht vorhanden ist. Allerdings gibt es diesem im SAP und ich kann dort auch manuell Stunden erfassen via IW41. Hat jemand einen Tip, woran es liegen kann?

Der Auftrag mit dem ich gerade Teste ist nicht von mir selbst angelegt. Ich bin jedoch dort als Betriebsingenieur hinterlegt.!!!

Codeauszug ... mit eigener SAP-Klasse

With SAP
.ConnectionParm.Host = "xxx"
.ConnectionParm.System = "xxx"
.ConnectionParm.SystemNr = "xx"
.ConnectionParm.Client = "xxx"
.ConnectionParm.User = "xxxxxx"
If .LogOn = True Then
If .InitBAPI("BAPI_ALM_CONF_CREATE") = True Then 'IW41

.ExportParms("POST_WRONG_ENTRIES") = 2

.ExportParms("TESTRUN") = "X"

'Stundwerte übergeben _____________________________________
Set SAPTab = .FuncTable("TimeTickets")
If SAPTab.RowCount = 0 Then SAPTab.AppendRow
SAPTab.Value(SAPTab.RowCount, "ORDERID") = "40002788"
SAPTab.Value(SAPTab.RowCount, "OPERATION") = "0010"
SAPTab.Value(SAPTab.RowCount, "WORK_CNTR") = "xxxxx"
SAPTab.Value(SAPTab.RowCount, "PLANT") = "xxxx"
SAPTab.Value(SAPTab.RowCount, "PERS_NO") = xxxxxx
SAPTab.Value(SAPTab.RowCount, "ACT_WORK_2") = 2
SAPTab.Value(SAPTab.RowCount, "POSTG_DATE") = "20181005"
SAPTab.Value(SAPTab.RowCount, "EXEC_START_DATE") = "20181005"
SAPTab.Value(SAPTab.RowCount, "EXEC_START_TIME") = "070000"
SAPTab.Value(SAPTab.RowCount, "EXEC_FIN_DATE") = "20181005"
SAPTab.Value(SAPTab.RowCount, "EXEC_FIN_TIME") = "145400"
SAPTab.Value(SAPTab.RowCount, "CONF_TEXT") = "xxxxx"

.Call

Danach meldet BAPI das der Auftrag nicht vorhanden ist ...?

Accepted Solutions (0)

Answers (0)