Creating the Sales Order using the bapi BAPI_SALESORDER_CREATEFROMDAT2

Question

Hi,
My problem is , i have created one module pool program for accelerating the Sales Order creation.
I am using the bapi BAPI_SALESORDER_CREATEFROMDAT2 for sales order creation. After executing the program
bapi is given an errot that, incomplete sales order document is saved.
Can any body tell me plz what are the necessary fields i need to take in the header and item level , so that the complete
document will be saved through BAPI.
<removed_by_moderator>
Thanks
Edited by: Julius Bussche on Jan 11, 2010 12:09 PM

Answer 1

TABLES: VBAK,                             "Sales Document: Header Data
        VBAP.                             "Sales Document: Item Data
*************************************WORK AREA DECELERATION************************
DATA: BEGIN OF WA_HEADER,
        LI    TYPE I,                      "LINE TYPE
        AUART TYPE VBAK-AUART,             "Sales Document Type
        VKORG TYPE VBAK-VKORG,             "Sales Organization
        VTWEG TYPE VBAK-VTWEG,             "Distribution Channel
        SPART TYPE VBAK-SPART,             "Division
        KUNNR TYPE BAPIPARNR-PARTN_NUMB,   "Customer number
      END OF WA_HEADER.
DATA: BEGIN OF WA_ITEM,
        LI     TYPE I,
        MATNR  TYPE VBAP-MATNR,            "MATERIAL NUMBER
        ZMENG  TYPE VBAP-ZMENG,           "QUANTITY
      END OF WA_ITEM.
***********************************INTERNAL TABLE DECELERATION***************************************
DATA: IT_HEADER      LIKE TABLE OF WA_HEADER WITH HEADER LINE.                   "IT FOR HEADER
DATA: IT_ITEM        LIKE TABLE OF WA_ITEM WITH HEADER LINE.                     "IT FOR ITEM
DATA: IT             LIKE VBAK OCCURS 0 WITH HEADER LINE.
***************************SALES ORDER INTERNAL TABLE DECELERATION********************************
DATA:
      HEADER  TYPE TABLE OF BAPISDHEAD WITH HEADER LINE,        "SALES HEADER DATA
      ITEMS   TYPE TABLE OF BAPIITEMIN WITH HEADER LINE,         "SALES ITEM DATA
      PARTNERS TYPE TABLE OF BAPIPARTNR WITH HEADER LINE.      "SALLES PARTNERS
***********************************DYNAMIC FIEL PATH GETTING DECELERATION************************
DATA : HL_FIELD_NAME TYPE DYNPREAD-FIELDNAME VALUE 'G_P_SPATH',              "SCREEN FIELD NAME
       HL_FILE_NAME  TYPE IBIPPARMS-PATH VALUE 'G_P_SPATH',                  "Local file for upload/download
       IL_FIELD_NAME TYPE DYNPREAD-FIELDNAME VALUE 'G_P_EPATH',              "SCREEN FIELD NAME
       IL_FILE_NAME  TYPE IBIPPARMS-PATH VALUE 'G_P_EPATH',                  "Local file for upload/download
       FL_FIELD_NAME TYPE DYNPREAD-FIELDNAME VALUE 'G_P_EPATH',              "SCREEN FIELD NAME
       FL_FILE_NAME  TYPE IBIPPARMS-PATH VALUE 'G_P_EPATH'.                  "Local file for upload/download
DATA : CTR TYPE I .
DATA : CTR2 TYPE STRING.
DATA : CTR1 TYPE STRING.
Sales document number
DATA : L_VBELN LIKE BAPIVBELN-VBELN.
SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE T1.
SELECTION-SCREEN : SKIP.
PARAMETER        : P_HPATH TYPE STRING.
PARAMETER        : P_IPATH TYPE STRING.
SELECTION-SCREEN : SKIP.
SELECTION-SCREEN : END OF BLOCK B1.
SELECTION-SCREEN : BEGIN OF BLOCK B2 WITH FRAME TITLE T2.
SELECTION-SCREEN : SKIP.
SELECTION-SCREEN : BEGIN OF LINE.
SELECTION-SCREEN : PUSHBUTTON 10(14) UPLOAD USER-COMMAND CLICK1.
SELECTION-SCREEN : END OF LINE.
SELECTION-SCREEN   END OF BLOCK B2.
******************************************INITIALIZATION.***************************************************
INITIALIZATION.
  T1       = 'Putchase Order Source File Path'.
  T2       = 'Push Button'.
  UPLOAD   = 'Upload'.
*******************************************AT SELECTION SCREE EVENT********************************************
AT SELECTION-SCREEN.
  CASE SY-UCOMM.
    WHEN 'CLICK1'.
      IF P_HPATH IS INITIAL AND P_IPATH IS INITIAL.      "CHECKING BTHE THE TEXT BOX
        MESSAGE I009.
      ELSE.
        PERFORM SELECT.                                  "CALLING THE SELECT SUBROUTINE
      ENDIF.
    WHEN OTHERS.
      MESSAGE 'PRESS FORM BUTTON' TYPE 'I'.      "WHEN EXECUTE BUTTON IS PRESSED
  ENDCASE.
***********************************GETTING HEADER FIEL PATH*******************************************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_HPATH.
  CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      PROGRAM_NAME  = SYST-CPROG
      DYNPRO_NUMBER = SYST-DYNNR
      FIELD_NAME    = HL_FIELD_NAME
    IMPORTING
      FILE_NAME     = HL_FILE_NAME.
  P_HPATH = HL_FILE_NAME.
***********************************GETTING ITEM FIEL PATH*******************************************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_IPATH.
  CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      PROGRAM_NAME  = SYST-CPROG
      DYNPRO_NUMBER = SYST-DYNNR
      FIELD_NAME    = IL_FIELD_NAME
    IMPORTING
      FILE_NAME     = IL_FILE_NAME.
  P_IPATH = IL_FILE_NAME.
START-OF-SELECTION.
*&      Form  SELECT
      text
-->  p1        text
<--  p2        text
FORM SELECT .
  CALL FUNCTION 'GUI_UPLOAD'             " function resposible to get the local flat
      EXPORTING                          " and upload it in a internal table
        FILENAME            = P_HPATH
        FILETYPE            = 'ASC'
        HAS_FIELD_SEPARATOR = '#'
      TABLES
        DATA_TAB            = IT_HEADER.
  CALL FUNCTION 'GUI_UPLOAD'             " function resposible to get the local flat
      EXPORTING                          " and upload it in a internal table
        FILENAME            = P_IPATH
        FILETYPE            = 'ASC'
        HAS_FIELD_SEPARATOR = '#'
      TABLES
        DATA_TAB            = IT_ITEM.
  LOOP AT IT_HEADER.
    Initialize Header values
    HEADER-DOC_TYPE     =  IT_HEADER-AUART.
    HEADER-SALES_ORG    =  IT_HEADER-VKORG.
    HEADER-DISTR_CHAN   =  IT_HEADER-VTWEG.
    HEADER-DIVISION     =  IT_HEADER-SPART.
    APPEND HEADER.
    PARTNERS-PARTN_ROLE = 'WE'.
    PARTNERS-PARTN_NUMB = IT_HEADER-KUNNR.
    APPEND PARTNERS.
    CTR = 10.
    LOOP AT IT_ITEM WHERE LI = IT_HEADER-LI.
      CTR2 = CTR.
      CONCATENATE '0000' CTR2 INTO CTR1.
***Initialize Item values
     ITEMS-ITM_NUMBER   = IT_ITEM-ITEM.
      ITEMS-ITM_NUMBER   = CTR1.
      ITEMS-MATERIAL     = IT_ITEM-MATNR.
      ITEMS-REQ_QTY   = IT_ITEM-ZMENG.
      APPEND ITEMS.
      CTR = CTR + 10.
    ENDLOOP.
    CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT1'
      EXPORTING
        ORDER_HEADER_IN = HEADER                      "SALES HEADER DATA
      IMPORTING
        SALESDOCUMENT   = L_VBELN                        "RETRIEVED SALES DOCUMENT NUMBER
      TABLES
        ORDER_ITEMS_IN  = ITEMS                       "SALES ITEM LEVEL DATA
        ORDER_PARTNERS  = PARTNERS.                    "SAKES PARTNERS
    APPEND L_VBELN TO IT.
    COMMIT WORK AND WAIT.
    CLEAR : HEADER , ITEMS[] ,PARTNERS,CTR,CTR1,CTR2.
    REFRESH : ITEMS.
  ENDLOOP.
  IF IT[] IS NOT INITIAL.
    LOOP AT IT.
      WRITE: / 'SALES ORDER', IT-VBELN , 'CREATED'.
    ENDLOOP.
    LEAVE TO LIST-PROCESSING.
    SET PF-STATUS SPACE.
  ELSE.
    MESSAGE I044.
  ENDIF .
ENDFORM.                    " SELECT