Configured Sales Order Items using BAPI_SALESORDER_CREATE

Question

Hello
I am trying to use the BAPI_SALESORDER_CREATEFROMDAT2 to create a Sales Order for a Configured Item .
I get my item on the Sales Order but no Configuration Data behind it .
I am populating the the order_items_in & order_items_inx tables and linking using po_itm_no fields .
I am also populating the order_cfgs_ref , order_cfgs_inst , order_cfgs_value fields with the relevant Characteristics data .
I have looked at the SAP Note 549563 and can see no differences between the info on that and what I am doing .
Does anyone have any advice or experience of doing this ?
Regards
Paul

Answer 1

Hi all,
I managed to create a dummy sales order in SAP R/3 using the DCOM Connector and Borland Delphi 7.0 Professional.
Hoping the below listed example will help, here we go:
    ctrlBAPI: TSAPBAPIControl;
var
  order, header, items, partners, ret: Variant;
     try
           order := ctrlBAPI.GetSAPObject('SalesOrder');
           header := ctrlBAPI.DimAs(order, 'CreateFromDat1', 'OrderHeaderIn');
           items := ctrlBAPI.DimAs(order, 'CreateFromDat1', 'OrderItemsIn');
           partners := ctrlBAPI.DimAs(order, 'CreateFromDat1', 'OrderPartners');
           ret := ctrlBAPI.DimAs(order, 'CreateFromDat1', 'Return');
           // The values....
           header.Value('DOC_TYPE') := 'TA';  
{ the order type is as you see it when you log in with language 'DE' }
           header.Value('SALES_ORG') := '2000';
           header.Value('DISTR_CHAN') := '10';
           header.Value('DIVISION') := '10';
           header.Value('REQ_DATE_H') := now;
           header.Value('PURCH_NO') := 'Test BAPI Delphi';
           partners.Rows.Add;
           partners.Value(1, 'PARTN_ROLE') := 'AG';
{ The partner function is as you see it when you log in with language 'DE' }
           partners.Value(1, 'PARTN_NUMB') := 'M9531057';
           // Line 1...
           items.Rows.Add;
           items.Value(1, 'MATERIAL') := '000000000000000354';
           items.Value(1, 'REQ_QTY') := '00000003';
           // Line 2
           items.Rows.Add;
           items.Value(2, 'MATERIAL') := '000000000000003595';
           items.Value(2, 'REQ_QTY') := '00000005';   
           // Insert this order in R/3...
           order.CreateFromDat1( OrderHeaderIn := header,
                   OrderItemsIn := items,
                   OrderPartners := partners,
                   Return := ret);
           ShowMessage('Return type: ' + ret.Value('TYPE') + #13 + 'Message: ' + ret.Value('MESSAGE'));
        except
                on E:Exception do
                        ShowMessage(E.Message)
        end;
If you need more help, do not hesitate to ask,
Bogdan CIOC