Bapi for sales order

Question

hi all ,
could any one give me the step by step procedure how to creat a sales order using bapi.  i found BAPI_SALESORDER_CREATEFROMDAT2 this the bapi ... but iam not sure about the passing the parameters. please it would be help ful.
the fields which i have to upload are
order type - or
organisational data -1000 ,10  ,00.
sold to party - 1000
purchase oder number- 10
purchase order date - 31 03 2005
required dlivery date- 5 4 07
material - p-103
quantity 10
regards
reena

Answer 1

Hi,
Please check the code below:
DATA ok_code LIKE sy-ucomm.
  DATA:
Order partners
li_order_partners TYPE STANDARD TABLE OF bapiparnr,
l_order_partners LIKE bapiparnr,
Structures for order header
  l_order_header_in LIKE bapisdhd1,
  l_order_header_inx LIKE bapisdhd1x,
Tables for order items
  li_order_items_in TYPE STANDARD TABLE OF bapisditm,
  l_order_items_in LIKE bapisditm,
  li_order_items_inx TYPE STANDARD TABLE OF bapisditmx,
  l_order_items_inx LIKE bapisditmx,
Return table from bapi call
  li_return TYPE STANDARD TABLE OF bapiret2,
  l_return TYPE bapiret2,
Sales document number
l_vbeln LIKE bapivbeln-vbeln,
Error flag
  l_errflag(1) TYPE c.
  DATA: BEGIN OF lt_itab OCCURS 0,
                       vbeln(10),
                       augru(3),
                       bstkd(10),
                       ean11(18),
       END OF lt_itab.
START-OF-SELECTION.
  CALL SCREEN 100.
Build partner information
  CLEAR l_order_partners.
  l_order_partners-partn_role = 'AG'. "Remember German codes !
  l_order_partners-partn_numb = itab-st.
  APPEND l_order_partners TO li_order_partners.
Build order header
Update flag
  l_order_header_inx-updateflag = 'I'.
Sales document type
  l_order_header_in-doc_type = 'YR30'.
  l_order_header_inx-doc_type = 'X'.
customer reference
  l_order_header_in-ord_reason = lt_itab-augru.
  l_order_header_inx-ord_reason = 'X'.
Distribution channel
  l_order_header_in-refdoctype = lt_itab-vbeln.
  l_order_header_inx-doc_type = 'X'.
Purchase order
  l_order_header_in-purch_no_c = lt_itab-bstkd.
  l_order_header_inx-purch_no_c = 'X'.
Build order item(s) - Only 1 is used in this example
  l_order_items_in-ean_upc = lt_itab-ean11.
  l_order_items_inx-ean_upc = lt_itab-ean11.
  l_order_items_in-material = itab-matnr.
  l_order_items_inx-material = 'X'.
  l_order_items_in-comp_quant = itab-qty.
  l_order_items_inx-comp_quant = 'X'.
  APPEND l_order_items_in TO li_order_items_in.
  l_order_items_inx-updateflag = 'I'.
  APPEND l_order_items_inx TO li_order_items_inx.
CALL Bapi
MODULE user_command_0100 INPUT.
  CASE sy-ucomm.
    WHEN 'CREATE'.
  CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
    EXPORTING
      order_header_in  = l_order_header_in
      order_header_inx = l_order_header_inx
      testrun          = 'X'
        IMPORTING
          salesdocument    = l_vbeln
    TABLES
      return           = li_return
      order_items_in   = li_order_items_in
      order_items_inx  = li_order_items_inx.
          order_partners   = li_order_partners.
  PERFORM error.
   WHEN 'EXIT'.
     LEAVE PROGRAM.
ENDCASE.
*ENDMODULE. " USER_COMMAND_0100 INPUT
ENDFORM.                    " call_bapi
Check and write Return table
FORM error.
  DATA: l_errflag(1) TYPE c,
Return table from bapi call
  li_return TYPE STANDARD TABLE OF bapiret2,
  l_return TYPE bapiret2.
  LEAVE TO LIST-PROCESSING.
  CLEAR l_errflag.
WRITE: / 'Sales dcoument: ', l_vbeln.
  LOOP AT li_return INTO l_return.
    WRITE: / l_return-type, l_return-message(50).
    IF l_return-type = 'E'.
      l_errflag = 'X'.
    ENDIF.
  ENDLOOP.
  PERFORM commit.
ENDFORM. " ERROR INPUT
No errors - Commit
FORM commit.
  DATA: l_errflag(1) TYPE c.
  IF l_errflag IS INITIAL.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
  ENDIF.
ENDFORM. " COMMIT INPUT
Regards
Kannaiah