vb script for bapi SAP.BAPI.1

» cetin - vd script syntax

Dim boOrder
Dim oPartners
Dim oHeaderIn
Dim oItemsIn
Dim oCommit
Dim oReturn
Dim oBapiService
Dim bResult

set boOrder = oBAPI.GetSAPObject("SalesOrder")

Set oHeaderIn = oBAPI.DimAs(boOrder, "CreateFromDat1", "OrderHeaderIn")
Set oItemsIn = oBAPI.DimAs(boOrder, "CreateFromDat1", "OrderItemsIn")
Set oPartners = oBAPI.DimAs(boOrder, "CreateFromDat1", "OrderPartners")

oHeaderIn.Value("DOC_TYPE") = "ZA"
oHeaderIn.Value("SALES_ORG") = "BG01"
oHeaderIn.Value("DISTR_CHAN") = "01"
oHeaderIn.Value("DIVISION") = "00"
oHeaderIn.Value("SALES_GRP") = "016"
oHeaderIn.Value("SALES_OFF") = "BG01"
oHeaderIn.Value("PURCH_NO") = "123"
oHeaderIn.Value("PURCH_DATE") = "20020729"
oHeaderIn.Value("REF_1") = "BORLOS"
oHeaderIn.Value("INCOTERMS1") = "FOB"
oHeaderIn.Value("INCOTERMS2") = "GEMLIK"
oHeaderIn.Value("PMNTTRMS") = "BL01"
oHeaderIn.Value("ORD_REASON") = "PM"
oHeaderIn.Value("PRICE_DATE") = "20020729"
oItemsIn.Rows.Add
oItemsIn.Value(1, "ITM_NUMBER") = "000010"
oItemsIn.Value(1, "MATERIAL") = "GUMRUK GEMLIK"
oItemsIn.Value(1, "REQ_QTY") = "1000"
oPartners.Rows.Add
oPartners.Value(1, "PARTN_ROLE") = "AG"
oPartners.Value(1, "PARTN_NUMB") = "0001041002"
oPartners.Rows.Add
oPartners.Value(2, "PARTN_ROLE") = "RE"
oPartners.Value(2, "PARTN_NUMB") = "0001041002"
oPartners.Rows.Add
oPartners.Value(3, "PARTN_ROLE") = "RG"
oPartners.Value(3, "PARTN_NUMB") = "0001041002"
oPartners.Rows.Add
oPartners.Value(4, "PARTN_ROLE") = "WE"
oPartners.Value(4, "PARTN_NUMB") = "0001041002"

boOrder.CreateFromDat1 OrderHeaderIn:=OrderItemsIn , _
OrderPartners:=oPartners, _
OrderItemsIn:=oItemsIn

above code runs in VB but does not run in VB script.
What is wrong?
Thanks in advance
cetin

-- posted by cetin

Permalink Print Discussion Email Discussion Join the latest discussions

» sswie - Re: vd script syntax

Hi cetin,

I am new to the SAP VBScript role with a lot of experience in vbscript and asp but little knowledge of SAP interfaces.

I am looking for assistance/references to do the following:

1. How in vbscript I can call the contents of a table in SAP (e.g. to act as a lookup in an asp page)

2. How can I post transactions back into SAP using the BAPI and how do I know which BAPI to use? For example, in your posting you obviously know the fields and the code to execute where do I find this info?

Appreciate any help you can give.

Regards
Andrew

-- posted by sswie

Permalink Print Discussion Email Discussion Join the latest discussions

» nickfry - Re: Re: vd script syntax

In response to Re: vd script syntax posted by sswie:

Hi Andrew

Were you able to find any resources using BAPI from VB? I am currently trying to create some applications that will post invoices via BAPI but can find very little help on the subject. Any pointers that you can give will be most welcome.

Cheers
Nick

-- posted by nickfry

Permalink Print Discussion Email Discussion Join the latest discussions

» mk496 - Re: vd script syntax

In response to vd script syntax posted by cetin:

Hi,
You have probably incorrect format in this line:

boOrder.CreateFromDat1 OrderHeaderIn:=OrderItemsIn , _
OrderPartners:=oPartners, _
OrderItemsIn:=oItemsIn

I have used method call bat in such a format:

boOrder.CreateFromDat1 OrderHeaderIn OrderPartners
OrderItemsIn

Set OrderItemsIn = OrderHeaderIn
Set oPartners = OrderPartners
Set oItemsIn = OrderItemsIn

(maybe with comas in first line, I tested with other BAPI, with one parameter and it works).

I dont know if You have in other places bugs, but in this I am sure. You must test.

Regards
MK

-- posted by mk496

Permalink Print Discussion Email Discussion Join the latest discussions

» mpshankar - Error in BAPI in SAP SD Module

Dim bapictrl As Object
Dim boOrder As Object
Dim oPartner As Object
Dim oItemin As Object
Dim oHeader As Object
Dim oreturn As Object
Dim oConnection As Object

Private Sub Command1_Click()
Dim x As String
oHeader.Value("DOC_TYPE") = Text1(0)
oHeader.Value("SALES_ORG") = Text1(1)
oHeader.Value("DISTR_CHAN") = Text1(2)
oHeader.Value("DIVISION") = Text1(3)
oHeader.Value("PRICE_DATE") = Text1(4)
oHeader.Value("PURCH_NO") = Text1(5)

oPartner.rows.Add
oPartner.Value(1, "PARTN_ROLE") = Text1(6)
oPartner.Value(1, "PARTN_NUMB") = Text1(7)

oItemin.rows.Add
oItemin.Value(1, "REQ_QTY") = Text1(8)
oItemin.Value(1, "MATERIAL") = Text1(9)
oItemin.Value(1, "COND_VALUE") = Text1(10)

orderitemsin:=oItemin, orderpartners:=oPartner, soldtoparty:=oSoldto, shiptoparty:=oShipto, return:=oreturn
x = oreturn.Value("message")
If x = "" Then
MsgBox "Transaction Complete"
Else
MsgBox x
End If
End Sub

Private Sub Form_Load()
Text1(4) = Format(Now, "mm/dd/yyyy")
Set bapictrl = CreateObject("SAP.BAPI.1")
Set oConnection = bapictrl.connection
oConnection.logon

Set boOrder = bapictrl.getsapobject("SalesOrder")
Set oPartner = bapictrl.dimas(boOrder, "CreateFromDat1", "OrderPartners")
Set oItemin = bapictrl.dimas(boOrder, "CreateFromDat1", "OrderItemsIn")
Set oHeader = bapictrl.dimas(boOrder, "CreateFromDat1", "OrderHeaderIn")
End Sub

In the above program, i got the error message like "Please enter ship to party or sold to party"

Please help me to overcome this problem

Thanks in Advance

-- posted by mpshankar

Permalink Print Discussion Email Discussion Join the latest discussions