Create the material details from excel file using BAPI in ABAP.

 FM- BAPI_MATERIAL_SAVEDATA

Step 1: Create the excel sheet with mandatory fields.





Step 2: Goto SE38 and create an executable program.

Report program.

REPORT zab_bapi_material_create_excel.

TYPES: BEGIN OF ty_mara,
         matnr TYPE mara-matnr,
         mbrsh TYPE mara-mbrsh,
         mtart TYPE mara-mtart,
         maktx TYPE makt-maktx,
         meins TYPE mara-meins,
         matkl TYPE mara-matkl,
       END OF ty_mara.

DATA: lw_mara   TYPE ty_mara,
      it_mara   TYPE TABLE OF ty_mara,
      lw_head TYPE BAPIMATHEAD,
      lw_bmara type BAPI_MARA,
      LW_MARAX TYPE BAPI_MARAX,
      it_mdesc type TABLE OF BAPI_MAKT ,
      lw_mdesc type  BAPI_MAKT,
      it_raw    TYPE truxs_t_text_data,
      lw_return TYPE bapiret2,
      it_return TYPE TABLE OF bapiret2.


PARAMETERS: p_file TYPE ibipparms-path DEFAULT 'C:\Users\JFR2KOR\Documents\material.xlsx'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL FUNCTION 'F4_FILENAME'
    IMPORTING
      file_name = p_file.

START-OF-SELECTION.
  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
      i_line_header        = 'X'
      i_tab_raw_data       = it_raw
      i_filename           = p_file
    TABLES
      i_tab_converted_data = it_mara
    EXCEPTIONS
      conversion_failed    = 1
      OTHERS               = 2.
*  cl_demo_output=>display( it_mara ).

  LOOP AT it_mara into lw_mara.
    clear: lw_head,lw_bmara,lw_mdesc,lw_return.
    lw_head-material = lw_mara-matnr.
    lw_head-ind_sector = lw_mara-mbrsh.
    lw_head-matl_type = lw_mara-mtart.
    lw_bmara-matl_group = lw_mara-matkl.
    lw_bmara-base_uom = lw_mara-meins.
    LW_MARAX-base_uom = 'X'.
    lw_marax-matl_group = 'X'.

    lw_mdesc-matl_desc = lw_mara-maktx.
    lw_mdesc-langu = 'EN'.
    APPEND lw_mdesc to it_mdesc.

    CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
      EXPORTING
        headdata                    = lw_head
        CLIENTDATA                  = lw_bmara
        CLIENTDATAX                 = lw_marax

     IMPORTING
       RETURN                      = lw_return
     TABLES
       MATERIALDESCRIPTION         = it_mdesc.

    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
    APPEND lw_return to it_return.

  ENDLOOP.
  LOOP AT it_return INTO lw_return.
    IF lw_return is INITIAL.
      WRITE: / 'Material created sucessfully'.
    ELSE.
      write : / lw_return-message.

    ENDIF.

  ENDLOOP.


Input



Output




Check The data.

1. Goto SE11 and give table name as MARA.

2. Goto Contents give material number.


3. Execute.



Comments

Post a Comment

Popular posts from this blog

New syntax for append- VALUE (new syntax 7.4+) in ABAP

Image
* We use APPEND statement to insert the records at the last of the internal table. * In SAP ABAP new syntax, we can use VALUE expression instead of APPEND statement. * Value expression is a powerful mechanism to declare as well as initialize the internal tables. * It is a powerful utility where we can achieve the result with minimal coding. * Value expression is of 2 types.      -  Define the type before using it with VALUE keyword. The type defined is structure type  or table type.      -  Using # character for type and use it with VALUE keyword. Report REPORT  zab_rp_append_value . TYPES :  BEGIN  OF  ls_stu ,          st_id ( 10 )    TYPE  n ,          st_name ( 15 )  TYPE  c ,         END  OF  ls_stu . DATA :  lt_stu  TYPE  TABLE...
Read more

Read statement new syntax in ABAP. (7.4+).

Image
*  Before ABAP 7.4, we used READ TABLE statement to read the first matching record from the internal table  based upon key or index . * In SAP ABAP new syntax, instead of READ TABLE , we can use the table expressions. * We need to use the square bracket [ ], In the square bracket, we need to specify the key or index. * While using table expression, If the table entry does not exist, system throws the exception CX_SY_ITAB_LINE_NOT_FOUND. * Use line_exists statement to check the existence of a record. Report REPORT  zab_rp_read_new . TABLES :   vbak . SELECT-OPTIONS :   s_vbeln  FOR  vbak - vbeln . SELECT  vbeln , erdat , erzet , ernam , auart         FROM  vbak         INTO  TABLE  @DATA ( lt_vbak )          WHERE  vbeln  IN  @s_vbeln . WRITE :   'Index value'  COLOR  5 . READ  T...
Read more

Concatenation new syntax( 7.4+ ).

Image
  Report REPORT  zab_rp_concat_7_4 . DATA :   lv_str1    TYPE  string  VALUE  'ajay' ,       lv_str2    TYPE  string  VALUE  'babu' ,       lv_str3    TYPE  string  VALUE  'varikallu' ,       lv_final1  TYPE  string ,       lv_final2  TYPE  string . CONCATENATE  lv_str1 lv_str2 lv_str3  INTO  lv_final1  SEPARATED  BY  space . WRITE :   /  'Old syntax: '  ,  lv_final1  COLOR  4 . lv_final2  =  | { lv_str1 } { lv_str2 } { lv_str3 } | . WRITE :   /  'New syntax: '  ,  lv_final2  COLOR  5 . Output ****** *********** ******** Thank You ****** ******* *********
Read more