Problem calling BAPI GoodsMovement from VB6.0

Former Member — Thu, 14 Feb 2008 10:06:34 GMT

Hi all,

could anyone give me some advise? The BAPI returns the message cost centre does not exists, but if I look up in our SAP-System the cost centre exists.

VB-Code----

Dim oGoodsmvt As Object

'Importparameter BAPI

Dim oGoodsmvt_Header As Object

Dim oGoodsmvt_Code

Dim oTestrun As String

'Exportparameter BAPI

Dim oGoodsmvt_Headret As Object

'Unterparameter von Headret

Dim oMaterialdocument As Object

Dim oMatdocumentyear As Object

‘Tables BAPI

Dim oGoodsmvt_Item As Object

Dim oGoodsmvt_Serialnumber As Object

Dim oGoodsmvt_Return As Object

Dim ReturnMessage as String

Dim MATERIAL As String

Dim PLANT As String

Dim STGE_LOC As String

Dim MOVE_TYPE As String

Dim BATCH As String

Dim ENTRY_QNT As Integer

Dim ENTRY_UOM As String

Dim COSTCENTER As String

Dim GR_RCPT As String

Dim j As Integer

'Fill variables

COSTCENTER = ...

Set oGoodsmvt = SAPBAPIControl1.GetSAPObject("GoodsMovement")

'Importparameter

Set oGoodsmvt_Header = SAPBAPIControl1.DimAs(oGoodsmvt, "CreateFromData", "GoodsmvtHeader")

Set oGoodsmvt_Code = SAPBAPIControl1.DimAs(oGoodsmvt, "CreateFromData", "GoodsmvtCode")

oTestrun = "X"

'Exportparameter

Set oGoodsmvt_Headret = SAPBAPIControl1.DimAs(oGoodsmvt, "CreateFromData", "GoodsmvtHeadret")

'Tables

Set oGoodsmvt_Item = SAPBAPIControl1.DimAs(oGoodsmvt, "CreateFromData", "GoodsmvtItem")

Set oGoodsmvt_Serialnumber = SAPBAPIControl1.DimAs(oGoodsmvt, "CreateFromData", "GoodsmvtSerialnumber")

Set oGoodsmvt_Return = SAPBAPIControl1.DimAs(oGoodsmvt, "CreateFromData", "Return")

oGoodsmvt_Return.Refresh

oGoodsmvt_Header.value("PSTNG_DATE") = Format(Now, "DD.MM.YYYY")

oGoodsmvt_Header.value("DOC_DATE") = Format(Now, "DD.MM.YYYY")

oGoodsmvt_Code.value("gm_code") = "03"

oGoodsmvt_Item.Rows.Add

oGoodsmvt_Item.value(j, "MATERIAL") = MATERIAL

oGoodsmvt_Item.value(j, "PLANT") = PLANT

oGoodsmvt_Item.value(j, "MOVE_TYPE") = MOVE_TYPE

oGoodsmvt_Item.value(j, "MVT_IND") = MVT_IND

oGoodsmvt_Item.value(j, "STGE_LOC") = STGE_LOC

oGoodsmvt_Item.value(j, "ENTRY_QNT") = ENTRY_QNT

oGoodsmvt_Item.value(j, "ENTRY_UOM") = ENTRY_UOM

oGoodsmvt_Item.value(j, "COSTCENTER") = COSTCENTER

oGoodsmvt_Item.value(j, "GR_RCPT") = GR_RCPT

If Err.Number <> 0 Then

MsgBox "Create Data Error"

Exit Function

End If

'*****--~~call BAPI~~--*****

Call oGoodsmvt.CreateFromData(GoodsmvtHeader:=oGoodsmvt_Header, GoodsmvtCode:=oGoodsmvt_Code, Testrun:=oTestrun, _

GoodsmvtItem:=oGoodsmvt_Item, GoodsmvtSerialnumber:=oGoodsmvt_Serialnumber, Return:=oGoodsmvt_Return)

If Not IsEmpty(oGoodsmvt_Return) Then

ReturnMessage = "Typ: " & oGoodsmvt_Return(1, "Type") & vbCrLf

ReturnMessage = ReturnMessage & "ID: " & oGoodsmvt_Return(1, "ID") & vbCrLf

ReturnMessage = ReturnMessage & "No: " & oGoodsmvt_Return(1, "Number") & vbCrLf

ReturnMessage = ReturnMessage & "Message: " & oGoodsmvt_Return(1, "Message") & vbCrLf

ReturnMessage = ReturnMessage & "Log_No: " & oGoodsmvt_Return(1, "LOG_NO") & vbCrLf

ReturnMessage = ReturnMessage & "No: " & oGoodsmvt_Return(1, "LOG_MSG_NO") & vbCrLf

ReturnMessage = ReturnMessage & ": " & oGoodsmvt_Return(1, "PARAMETER") & vbCrLf

ReturnMessage = ReturnMessage & ": " & oGoodsmvt_Return(1, "ROW") & vbCrLf

ReturnMessage = ReturnMessage & ": " & oGoodsmvt_Return(1, "FIELD") & vbCrLf

ReturnMessage = ReturnMessage & ": " & oGoodsmvt_Return(1, "SYSTEM")

MsgBox (ReturnMessage)

End If

VB-Code----

Regards Oliver

Re: Problem calling BAPI GoodsMovement from VB6.0

Former Member — Thu, 14 Feb 2008 11:04:02 GMT

leading zero's ? capitals?

Re: Problem calling BAPI GoodsMovement from VB6.0

Former Member — Thu, 14 Feb 2008 11:54:55 GMT

Thanks!

I used leading zeros at the material-no. but not at the cost centre!!!

Re: Problem calling BAPI GoodsMovement from VB6.0

Former Member — Thu, 14 Feb 2008 11:59:04 GMT

1. Can you check the validity of Cost Center still exists.

2. Is the cost center and controllling area combination is correct.

Reward if this info is useful.

Thanks,

Re: Problem calling BAPI GoodsMovement from VB6.0

Former Member — Thu, 14 Feb 2008 11:59:37 GMT

Now I get a document number but in the returnmessage is no "S" for success. Some more advices?

Re: Problem calling BAPI GoodsMovement from VB6.0

Former Member — Thu, 14 Feb 2008 13:01:50 GMT

Is it "I" ? if the message says "document posted" then it is ok I guess.

Re: Problem calling BAPI GoodsMovement from VB6.0

Former Member — Thu, 14 Feb 2008 13:07:23 GMT

It returns nothing.

Message: -2147352565 Bad index

Re: Problem calling BAPI GoodsMovement from VB6.0

Former Member — Fri, 19 Oct 2012 03:39:09 GMT

though an old thread it helped me today

topic Re: Problem calling BAPI GoodsMovement from VB6.0 in Application Development and Automation Discussions

Problem calling BAPI GoodsMovement from VB6.0

Re: Problem calling BAPI GoodsMovement from VB6.0

Re: Problem calling BAPI GoodsMovement from VB6.0

Re: Problem calling BAPI GoodsMovement from VB6.0

Re: Problem calling BAPI GoodsMovement from VB6.0

Re: Problem calling BAPI GoodsMovement from VB6.0

Re: Problem calling BAPI GoodsMovement from VB6.0

Re: Problem calling BAPI GoodsMovement from VB6.0