Hi Vinodh
I tried this coding as part of your link, but it contains Run-time error as Object Required.
Anything needs to be added in my VB Project, i have already added the BAPI ActiveX contol in my project.
Pls sugges me.
Dim boOrder As Object 'Business object SalesOrder
Dim oPartners As Object 'Parameter OrderPartners of BAPI method
Dim oHeader As Object 'Parameter OrderHeaderIn of BAPI method
Dim oItemsIn As Object 'Parameter OrderItemsIn of BAPI method
Dim oReturn As Object 'Parameter Return of BAPI method
Private Sub Form_Load()
'Connect to business object SalesOrder
'(this creates an anonymous object with an empty key field):
Set boOrder = oBAPICtrl.GetSAPObject("SalesOrder")
'Get structure/table objects:
Set oPartners = oBAPICtrl.DimAs(boOrder, "CreateFromData", "OrderPartners")
Set oHeader = oBAPICtrl.DimAs(boOrder, "CreateFromData", "OrderHeaderIn")
Set oItemsIn = oBAPICtrl.DimAs(boOrder, "CreateFromData", "OrderItemsIn")
'Fill header:
oHeader.Value("DOC_TYPE") = "TA" 'Standard order
oHeader.Value("SALES_ORG") = "0001" 'Sales organization
oHeader.Value("DISTR_CHAN") = "01" 'Sales channel
oHeader.Value("DIVISION") = "01" 'Division
oHeader.Value("PO_NUMBER") = "" 'Customer purchase orderNumber
oHeader.Value("PRICE_DATE") = Now 'Date
'Fill partners:
oPartners.Rows.Add
oPartners.Value(1, "PARTN_ROLE") = "AG" 'PartnerRoll: Person posting the order
oPartners.Value(1, "PARTN_NUMB") = "0000010096" 'Customer number
'Fill items:
oItemsIn.Rows.Add
oItemsIn.Value(1, "REQ_QTY") = "0000000010000" 'Quantity
oItemsIn.Value(1, "MATERIAL") = "BERLINER" 'Product ID
oItemsIn.Value(1, "COND_VALUE") = "1432" 'Rate
'Call the method:
boOrder.CreateFromData OrderHeaderIn:=oHeader, _
OrderPartners:=oPartners, _
OrderItemsIn:=oItemsIn, _
Return:=oReturn
'Free the business objects:
Set boOrder = Nothing
End Sub
Regards
Rajaram
Bluesky
