BAPI_MATERIAL_SAVEDATA Use For Material Extension Full Program Example in SAP ABAP

Material Extension  Full Program Example in SAP ABAP.

BAPI_MATERIAL_SAVEDATA Use For Material Extension in SAP ABAP.

REPORT zrmm_material_master_upld.
INCLUDE zrmm_material_master_upld_top.
INCLUDE zrmm_material_master_upld_ss.
INCLUDE zrmm_material_master_upld_sub.

******************  I  N I T I A L I Z A T I O N   *************
INITIALIZATION.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
  PERFORM f4_help.

START-OF-SELECTION.
PERFORM get_data.

  IF r_int = abap_true.
    PERFORM f_fill_matnr.
  ELSEIF r_ext = abap_true.
    gt_final[] = gt_final_ext[].
  ENDIF.

  IF gt_final[] IS NOT INITIAL.
    PERFORM f_create_material_master.

***** MSG Handling
    PERFORM : f_build_header,
              f_download_msg.
  ENDIF.
**&---------------------------------------------------------------------*
**& Form F4_HELP
**&---------------------------------------------------------------------*
**& text
**&---------------------------------------------------------------------*
**& -->  p1        text
**& <--  p2        text
**&---------------------------------------------------------------------*
FORM f4_help .
  CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      program_name  = syst-cprog
      dynpro_number = syst-dynnr
    IMPORTING
      file_name     = p_path.
ENDFORM.

================================================================

TABLES:bapimathead,
       bapi_makt,
       bapi_mara,
       bapi_marax,
       bapi_marc,
       bapi_marcx,
       bapi_mard,
       bapi_mardx,
       bapi_mpop,
       bapi_mpopx,
       bapi_mbew,
       bapi_mbewx,
       bapi_mvke,
       bapi_mvkex,
       bapi_mlgt,
       bapi_mlgtx,
       bapi_mpgd,
       bapi_mpgdx .

TYPES : BEGIN OF ty_ext_final,
          matnr(40),
          mtart(4),
          werks(4),
          lgort(4),
          vkorg(4),
          vtweg(2),
          maktx(40),
          meins(3),
          matkl(9),
          bismt(40),   """"
          spart(2),
          mtpos_mara(4),
          brgew(17),
*          gewei(3),
          ntgew(13),
          taxkm(1),
          taxkm1(1),
          taxkm2(1),
          taxkm3(1),
          taxkm4(1),
          ktgrm(2),
          mtpos(4),
***          New ADD
*          MVGR1(3),
*          MVGR2(3),
*          MVGR3(3),
*          MVGR4(3),
*          MVGR5(3),
****          New ADD
****      new add
          mtbfp(2),
          xchpf(1),
*          kautb(1),
****
          tragr(4),
          ladgr(4),
          prctr(10),
          steuc(16),
          ekgrp(3),
          vabme(1),
          taxim(1),
          disgr(4),
          dismm(2),
          minbe(10),             "New added
          dispo(3),
          mabst(17),
          disls(2),
          beskz(1),
          dzeit(3),
          plifz(3),
          webaz(3),
*          perkz(1),
*          strgr(2),
*          mtvfp(2),
*          sbdkz(1),
*          prmod(1),
*          peran(3),
*          anzpr(3),
*          kzini(1),
*          siggr(9),
*          modav(1),
          fevor(3),
          sfcpf(6),
          mhdrz(4),
          mhdhb(4),
          iprkz(1),
*
          sled_bbd(1),
          sernp(4),
          bwtty(1),
          bklas(4),
          mlast(1),
*          stprs_1(14),
          peinh_1(5),
          vprsv_1(1),

          losgr(17),
**          vprsv(1),
**          peinh(5),
**          stprs(14),
          umren2_1(5),
          umren3_1(5),
          umren4_1(5),
          meinh2_1(3),

          umren2_2(5),
          umren3_2(5),
          umren4_2(5),
          meinh2_2(3),

*          umren2_3(5),
*          umren3_3(5),
*          umren4_3(5),
*          meinh2_3(3),

          "po_text(250),
          po_text1(50),
          po_text2(50),
          po_text3(50),
          po_text4(50),
          po_text5(50),

        END OF ty_ext_final,

        BEGIN OF ty_int_final,
          mtart(4),
          werks(4),
          lgort(4),
          vkorg(4),
          vtweg(2),
          maktx(40),
          meins(3),
          matkl(9),
          bismt(40),   """"
          spart(2),
          mtpos_mara(4),
          brgew(17),
*          gewei(3),
          ntgew(13),
          taxkm(1),
          taxkm1(1),
          taxkm2(1),
          taxkm3(1),
          taxkm4(1),
          ktgrm(2),
          mtpos(4),
***          New ADD
*          MVGR1(3),
*          MVGR2(3),
*          MVGR3(3),
*          MVGR4(3),
*          MVGR5(3),
****          New ADD

****      new add
          mtbfp(2),
          xchpf(1),
*          kautb(1),
****
          tragr(4),
          ladgr(4),
          prctr(10),
          steuc(16),
          ekgrp(3),
          vabme(1),
          taxim(1),
          disgr(4),
          dismm(2),
          minbe(10),             "New added
          dispo(3),
          mabst(17),
          disls(2),
          beskz(1),
          dzeit(3),
          plifz(3),
          webaz(3),
*          perkz(1),
*          strgr(2),
*          mtvfp(2),
*          sbdkz(1),
*          prmod(1),
*          peran(3),
*          anzpr(3),
*          kzini(1),
*          siggr(9),
*          modav(1),
          fevor(3),
          sfcpf(6),
          mhdrz(4),
          mhdhb(4),
          iprkz(1),

          sled_bbd(1),
          sernp(4),
          bwtty(1),
          bklas(4),
          mlast(1),
*          stprs_1(14),
          peinh_1(5),
          vprsv_1(1),

          losgr(17),
**          vprsv(1),
**          peinh(5),
**          stprs(14),
          umren2_1(5),
          umren3_1(5),
          umren4_1(5),
          meinh2_1(3),

          umren2_2(5),
          umren3_2(5),
          umren4_2(5),
          meinh2_2(3),

*          umren2_3(5),
*          umren3_3(5),
*          umren4_3(5),
*          meinh2_3(3),
          po_text1 TYPE TDLINE , "(50),
          po_text2(50),
          po_text3(50),
          po_text4(50),
          po_text5(50),
        END OF ty_int_final.


DATA : gt_final     TYPE STANDARD TABLE OF ty_ext_final,
       gs_final     TYPE ty_ext_final,

       gt_final_ext TYPE STANDARD TABLE OF ty_ext_final,
       gs_final_ext TYPE ty_ext_final,

       gt_final_int TYPE STANDARD TABLE OF ty_int_final,
       gs_final_int TYPE ty_int_final.

DATA: gt_file_data  TYPE truxs_t_text_data.


DATA : it_mlan  TYPE STANDARD TABLE OF bapi_mlan,
       wa_mlan  TYPE bapi_mlan,

       it_marm  TYPE STANDARD TABLE OF bapi_marm,
       it_marmx TYPE STANDARD TABLE OF bapi_marmx,

       it_makt  TYPE STANDARD TABLE OF bapi_makt,
       wa_makt  TYPE bapi_makt,

       wa_marm  TYPE bapi_marm,
       wa_marmx TYPE bapi_marmx.

DATA : it_return LIKE bapiret2,
       wa_return TYPE bapiret2.



DATA :it_excel TYPE STANDARD TABLE OF alsmex_tabline,
      wa_excel TYPE                   alsmex_tabline.
FIELD-SYMBOLS: <fs>.

TYPES : BEGIN OF ty_header,
          f_name TYPE char75,
        END OF ty_header,

        BEGIN OF msg,
          line       TYPE i,
          type       TYPE char10,
          message_v1 TYPE symsgv,
          maktx      TYPE makt-maktx,
          message    TYPE bapi_msg,
        END OF msg.


DATA : lv_desktop TYPE string,
       lv_line    TYPE i.

DATA: lt_header TYPE STANDARD TABLE OF ty_header,
      ls_header TYPE ty_header,

      it_msg    TYPE STANDARD TABLE OF msg,
      wa_msg    TYPE msg.

=======================================================================================

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS : P_PATH LIKE RLGRAP-FILENAME OBLIGATORY,
             P_STROW TYPE I OBLIGATORY,
             P_EDROW TYPE I OBLIGATORY.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN : BEGIN OF BLOCK b2 WITH FRAME title text-002.
  PARAMETERS : r_int RADIOBUTTON GROUP rd1 DEFAULT 'X',
               r_ext RADIOBUTTON GROUP rd1.
  SELECTION-SCREEN : end of BLOCK b2.

======================================================================================

*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM get_data .
  DATA : index    TYPE i.
  IF r_ext = abap_true.

    CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
      EXPORTING
        filename                = p_path
        i_begin_col             = 1
        i_begin_row             = p_strow
        i_end_col               = 100
        i_end_row               = p_edrow
      TABLES
        intern                  = it_excel
      EXCEPTIONS
        inconsistent_parameters = 1
        upload_ole              = 2
        OTHERS                  = 3.
    IF sy-subrc <> 0.
      MESSAGE 'ERROR OCCUR IN READING THE EXCEL FILE' TYPE 'I'.
      STOP.
    ENDIF.

    LOOP AT it_excel INTO wa_excel.
      index = wa_excel-col.
      ASSIGN COMPONENT index OF STRUCTURE gs_final_ext TO <fs>.
      <fs> = wa_excel-value.
      AT END OF row.
*      APPEND wa_final TO it_final.
        APPEND gs_final_ext TO gt_final_ext.
        CLEAR gs_final_ext.
      ENDAT.
    ENDLOOP.

*    CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
*      EXPORTING
*        i_line_header        = abap_true
*        i_tab_raw_data       = gt_file_data
*        i_filename           = p_file
*      TABLES
*        i_tab_converted_data = gt_final_ext[]
*      EXCEPTIONS
*        conversion_failed    = 1
*        OTHERS               = 2.
*    IF sy-subrc <> 0.
*      MESSAGE ID sy-msgid
*              TYPE sy-msgty
*              NUMBER sy-msgno
*              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
*    ENDIF.
*    SORT gt_final_ext BY matnr.
  ELSEIF r_int = abap_true.


    CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
      EXPORTING
        filename                = p_path
        i_begin_col             = 1
        i_begin_row             = p_strow
        i_end_col               = 100
        i_end_row               = p_edrow
      TABLES
        intern                  = it_excel
      EXCEPTIONS
        inconsistent_parameters = 1
        upload_ole              = 2
        OTHERS                  = 3.
    IF sy-subrc <> 0.
      MESSAGE 'ERROR OCCUR IN READING THE EXCEL FILE' TYPE 'I'.
      STOP.
    ENDIF.

    LOOP AT it_excel INTO wa_excel.
      index = wa_excel-col.
      ASSIGN COMPONENT index OF STRUCTURE gs_final_int TO <fs>.
      <fs> = wa_excel-value.
      AT END OF row.
*      APPEND wa_final TO it_final.
        APPEND gs_final_int TO gt_final_int.
        CLEAR gs_final_int.
      ENDAT.
    ENDLOOP.

*   BREAK-POINT.

*    CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
*      EXPORTING
*        i_line_header        = abap_true
*        i_tab_raw_data       = gt_file_data
*        i_filename           = p_file
*      TABLES
*        i_tab_converted_data = gt_final_int[]
*      EXCEPTIONS
*        conversion_failed    = 1
*        OTHERS               = 2.
*    IF sy-subrc <> 0.
*      MESSAGE ID sy-msgid
*              TYPE sy-msgty
*              NUMBER sy-msgno
*              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
*    ENDIF.
  ENDIF.

*  BREAK-POINT.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form UPLOAD_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM f_fill_matnr .

  DATA : lv_lines TYPE i.
  DATA :lv_new_mat_total TYPE bapimatall-req_numbers,
        required_numbers LIKE  bapimatall-req_numbers,
        lt_material      TYPE STANDARD TABLE OF  bapimatinr,
        lt_material1     TYPE STANDARD TABLE OF  bapimatinr,
        ls_material      TYPE bapimatinr,
        material_type    LIKE  bapimatdoa-matl_type.


  DESCRIBE TABLE gt_final_int LINES lv_lines.

  IF lv_lines > 255 .
    MESSAGE : 'For Internal material Number range only 255 line is allowed.' TYPE 'E'.
  ENDIF.
  DESCRIBE TABLE gt_final_int LINES lv_new_mat_total ."lv_lines.


  READ TABLE gt_final_int INTO DATA(ls_f_int) INDEX 1.

  CALL FUNCTION 'BAPI_MATERIAL_GETINTNUMBER'
    EXPORTING
      material_type    = ls_f_int-mtart "'ZROH'
*     INDUSTRY_SECTOR  = ' '
      required_numbers = lv_new_mat_total
* IMPORTING
*     RETURN           =
    TABLES
      material_number  = lt_material.



  LOOP AT gt_final_int INTO gs_final_int.
    MOVE-CORRESPONDING gs_final_int TO gs_final_ext.
    READ TABLE lt_material INTO ls_material INDEX 1.
    IF sy-subrc = 0.
      gs_final_ext-matnr = ls_material-material.
    ENDIF.
    APPEND gs_final_ext TO gt_final.
    DELETE lt_material WHERE material = ls_material-material.
    CLEAR : gs_final_int ,gs_final_ext , ls_material.
  ENDLOOP.

*  BREAK-POINT.
ENDFORM.
**&---------------------------------------------------------------------*
**& Form F_CREATE_MATERIAL_MASTER
**&---------------------------------------------------------------------*
**& text
**&---------------------------------------------------------------------*
**& -->  p1        text
**& <--  p2        text
**&---------------------------------------------------------------------*
FORM f_create_material_master .
  DATA: ls_header LIKE thead,
        lt_lines  TYPE STANDARD TABLE OF tline WITH HEADER LINE.

  lv_line = p_strow.
  LOOP AT gt_final INTO gs_final.
    CLEAR : bapimathead , bapi_mara , bapi_marax , bapi_makt, bapi_marc, bapi_marcx,
            bapi_mard, bapi_mardx, bapi_mpop, bapi_mpopx, bapi_mbew, bapi_mbewx,
            bapi_mvke, bapi_mvkex, bapi_mlgt, bapi_mlgtx, bapi_mpgd, bapi_mpgdx.
****************  Feeling Header data
    IF r_ext = abap_true .
      CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
        EXPORTING
          input  = gs_final-matnr
        IMPORTING
          output = gs_final-matnr
*     EXCEPTIONS
*         LENGTH_ERROR       = 1
*         OTHERS = 2
        .
      IF sy-subrc <> 0.
* Implement suitable error handling here
      ENDIF.
    ENDIF .
    bapimathead-material = gs_final-matnr.
    bapimathead-material_long = gs_final-matnr.
    bapimathead-matl_type = gs_final-mtart.
    bapimathead-ind_sector = 'S'.
    bapimathead-basic_view = 'X'.
    bapimathead-sales_view = 'X'.
    bapimathead-purchase_view = 'X'.
    bapimathead-forecast_view = 'X'.
    bapimathead-storage_view = 'X'.
    bapimathead-account_view = 'X'.
    bapimathead-cost_view = 'X'.
    bapimathead-mrp_view = 'X'.
    bapimathead-work_sched_view = 'X'.
    bapimathead-quality_view = 'X'.
**************  End of header data

**************  Feeling Material description : MAKT
    REFRESH : it_makt.
    wa_makt-langu = 'E'.
    wa_makt-langu_iso = 'EN'.
    wa_makt-matl_desc = gs_final-maktx.
    APPEND wa_makt TO it_makt.
************** ENd of material description

**************  Feelinf material data : MARA
    bapi_mara-matl_group = gs_final-matkl.
    CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT'
      EXPORTING
        input          = gs_final-meins
        language       = sy-langu
      IMPORTING
        output         = gs_final-meins
      EXCEPTIONS
        unit_not_found = 1
        OTHERS         = 2.
    IF sy-subrc <> 0.
* Implement suitable error handling here
    ENDIF.

    bapi_mara-base_uom = gs_final-meins.
    bapi_mara-old_mat_no = gs_final-bismt.
*BAPI_MARA- = gs_final-brgew.
    IF gs_final-ntgew IS NOT INITIAL.
      bapi_mara-net_weight = gs_final-ntgew.

      bapi_mara-unit_of_wt = 'KG'             ." Joy gs_final-gewei.
    ENDIF.

    bapi_mara-division = gs_final-spart.
    bapi_mara-item_cat = gs_final-mtpos_mara.
    bapi_mara-trans_grp = gs_final-tragr.
*    bapi_mara-minremlife = gs_final-mhdrz.
*    bapi_mara-shelf_life = gs_final-mhdhb.
*    bapi_mara-sled_bbd = gs_final-sled_bbd.
    bapi_mara-var_ord_un = gs_final-vabme.

*    CALL FUNCTION 'CONVERSION_EXIT_PERKZ_INPUT'
*      EXPORTING
*        input  = gs_final-iprkz
*      IMPORTING
*        output = bapi_mara-period_ind_expiration_date.

*    bapi_mara-period_ind_expiration_date = gs_final-iprkz.
    bapi_mara-batch_mgmt = gs_final-xchpf.


    bapi_marax-matl_group =  'X'.
    bapi_marax-base_uom =    'X'.
*    bapi_marax-old_mat_no =  'X'.
*BAPI_MARA- = gs_final-brgew.'X'.
    IF gs_final-ntgew IS NOT INITIAL.
      bapi_marax-net_weight =  'X'.
      bapi_marax-unit_of_wt =  'X'.
    ENDIF.
    bapi_marax-division =    'X'.
    bapi_marax-item_cat =    'X'.
    bapi_marax-trans_grp =   'X'.
    bapi_marax-minremlife =  'X'.
    bapi_marax-shelf_life =  'X'.
    bapi_marax-sled_bbd =    'X'.
    bapi_marax-var_ord_un = 'X'.
    bapi_marax-period_ind_expiration_date = 'X'.
    bapi_marax-batch_mgmt = 'X'.
    bapi_marax-old_mat_no = gs_final-bismt.



*********** Material Data at plant level  : MARC
    bapi_marc-plant   = gs_final-werks.
    bapi_marc-ctrl_code   = gs_final-steuc.
    bapi_marc-pur_group   = gs_final-ekgrp.
*    bapi_marc-profit_ctr   = gs_final-prctr.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input  = gs_final-prctr
      IMPORTING
        output = bapi_marc-profit_ctr.

    IF gs_final-dismm = 'PD' OR gs_final-dismm = 'VB'.
      bapi_marc-mrp_group   = gs_final-disgr.
      bapi_marc-mrp_type   = gs_final-dismm.
      bapi_marc-mrp_ctrler   = gs_final-dispo.
      bapi_marc-max_stock   = gs_final-mabst.
      bapi_marc-lotsizekey   = gs_final-disls.
      bapi_marc-proc_type   = gs_final-beskz.
      bapi_marc-inhseprodt   = gs_final-dzeit.
    ELSE.
      bapi_marc-mrp_type   = gs_final-dismm.
    ENDIF.
    bapi_marc-loadinggrp   = gs_final-ladgr.

    bapi_marc-serno_prof   = gs_final-sernp.
    bapi_marc-plnd_delry   = gs_final-plifz.
    bapi_marc-gr_pr_time   = gs_final-webaz.
*    bapi_marc-period_ind   = gs_final-perkz.
*    bapi_marc-plan_strgp   = gs_final-strgr.
    bapi_marc-availcheck   = '02'."gs_final-mtvfp.
*    bapi_marc-dep_req_id   = gs_final-sbdkz.
    bapi_marc-production_scheduler   = gs_final-fevor.
    bapi_marc-lot_size   = gs_final-losgr.
*    bapi_marc-auto_p_ord   = gs_final-kautb.
    bapi_marc-prodprof   = gs_final-sfcpf.
*BAPI_MARC-   = gs_final-
*BAPI_MARC-   = gs_final-



*BAPI_MARCx-  = ='X'.
*BAPI_MARCx-  = ='X'.
*BAPI_MARCx-  = ='X'.



    bapi_marcx-plant  = gs_final-werks."'X'.
    bapi_marcx-ctrl_code  = 'X'.
    bapi_marcx-pur_group  = 'X'.
    bapi_marcx-profit_ctr  = 'X'.
    bapi_marcx-loadinggrp  = 'X'.

    IF gs_final-dismm = 'PD' OR gs_final-dismm = 'VB'.
      bapi_marcx-mrp_group  = 'X'.
      bapi_marcx-mrp_type  = 'X'.
      bapi_marcx-mrp_ctrler  = 'X'.
      bapi_marcx-max_stock   = 'X'.
      bapi_marcx-lotsizekey  = 'X'.
      bapi_marcx-proc_type  = 'X'.
      bapi_marcx-inhseprodt  = 'X'.
      bapi_marcx-serno_prof = 'X' .
    ELSE.
      bapi_marcx-mrp_type  = 'X'.
    ENDIF.

    bapi_marcx-plnd_delry  = 'X'.
    bapi_marcx-gr_pr_time  = 'X'.
    bapi_marcx-period_ind  = 'X'.
    bapi_marcx-plan_strgp  = 'X'.
    bapi_marcx-availcheck  = 'X'.
    bapi_marcx-dep_req_id  = 'X'.
    bapi_marcx-lot_size   = 'X'.
    bapi_marcx-production_scheduler  = 'X'.
    bapi_marcx-prodprof   = 'X'.
    bapi_marcx-auto_p_ord   = 'X'.


    IF gs_final-dismm = 'VB'.
      bapi_marc-reorder_pt   = gs_final-minbe.
      bapi_marcx-reorder_pt  = 'X'.
    ENDIF.

************* End of Material Data at plant level  : MARC



************* Material Data at Storage Location Level : MARD
    IF gs_final-mtart NE 'ZSRV'.
      bapi_mard-plant  = gs_final-werks.
      bapi_mard-stge_loc  = gs_final-lgort.
      bapi_mardx-plant = gs_final-werks ."'X'.
      bapi_mardx-stge_loc = gs_final-lgort ."'X'.
    ENDIF.

************* End of Material Data at Storage Location Level : MARD

************* Forecast Parameters : MPOP
    bapi_mpop-plant = gs_final-werks.
*    bapi_mpop-fore_model = gs_final-prmod.
*    bapi_mpop-hist_vals = gs_final-peran.
*    bapi_mpop-fore_pds = gs_final-anzpr.
*    bapi_mpop-initialize = gs_final-kzini.
*    bapi_mpop-tracklimit = gs_final-siggr.
*    bapi_mpop-model_sp = gs_final-modav.

    bapi_mpopx-plant = gs_final-werks.
    bapi_mpopx-fore_model = 'X'.
    bapi_mpopx-hist_vals = 'X'.
    bapi_mpopx-fore_pds = 'X'.
    bapi_mpopx-initialize = 'X'.
    bapi_mpopx-tracklimit = 'X'.
    bapi_mpopx-model_sp = 'X'.
************* End of  Forecast Parameters : MPOP


************* TAX Data
    REFRESH it_mlan.
    CLEAR wa_mlan.
    wa_mlan-depcountry = 'IN'.
    wa_mlan-depcountry_iso = 'IN'.
    wa_mlan-tax_type_1 = 'JOSG'.
    wa_mlan-taxclass_1 = gs_final-taxkm.
    wa_mlan-tax_ind = gs_final-taxim.
    APPEND wa_mlan TO it_mlan.

    wa_mlan-depcountry = 'IN'.
    wa_mlan-depcountry_iso = 'IN'.
    wa_mlan-tax_type_1 = 'JOCG'.
    wa_mlan-taxclass_1 = gs_final-taxkm1.
    wa_mlan-tax_ind = gs_final-taxim.
    APPEND wa_mlan TO it_mlan.

    wa_mlan-depcountry = 'IN'.
    wa_mlan-depcountry_iso = 'IN'.
    wa_mlan-tax_type_1 = 'JOIG'.
    wa_mlan-taxclass_1 = gs_final-taxkm2.
    wa_mlan-tax_ind = gs_final-taxim.
    APPEND wa_mlan TO it_mlan.

    wa_mlan-depcountry = 'IN'.
    wa_mlan-depcountry_iso = 'IN'.
    wa_mlan-tax_type_1 = 'JOUG'.
    wa_mlan-taxclass_1 = gs_final-taxkm3.
    wa_mlan-tax_ind = gs_final-taxim.
    APPEND wa_mlan TO it_mlan.


    wa_mlan-depcountry = 'IN'.
    wa_mlan-depcountry_iso = 'IN'.
    wa_mlan-tax_type_1 = 'JTC1'.
    wa_mlan-taxclass_1 = gs_final-taxkm4.
    wa_mlan-tax_ind = gs_final-taxim.
    APPEND wa_mlan TO it_mlan.
*    wa_mlan-taxclass_2 = gs_final-taxkm1.
*    wa_mlan-taxclass_3 = gs_final-taxkm2.
*    wa_mlan-taxclass_4 = gs_final-taxkm3.


************* End of TAX Data

************* Sales Data : MVKE
    bapi_mvke-sales_org = gs_final-vkorg.
    bapi_mvke-distr_chan = gs_final-vtweg.
    bapi_mvke-acct_assgt = gs_final-ktgrm.
    bapi_mvke-item_cat = gs_final-mtpos.

    IF r_ext = abap_true.
*      bapi_mvke-matl_grp_1 = gs_final-mvgr1.
*      bapi_mvke-matl_grp_2 = gs_final-mvgr2.
*      bapi_mvke-matl_grp_3 = gs_final-mvgr3.
*      bapi_mvke-matl_grp_4 = gs_final-mvgr4.
*      bapi_mvke-matl_grp_5 = gs_final-mvgr5.
    ENDIF.
    bapi_mvkex-sales_org = gs_final-vkorg.
    bapi_mvkex-distr_chan = gs_final-vtweg.
    bapi_mvkex-acct_assgt  = 'X'.
    bapi_mvkex-item_cat = 'X'.

    IF r_ext = abap_true.

      bapi_mvkex-matl_grp_1 = 'X'.
      bapi_mvkex-matl_grp_2 = 'X'.
      bapi_mvkex-matl_grp_3 = 'X'.
      bapi_mvkex-matl_grp_4 = 'X'.
      bapi_mvkex-matl_grp_5 = 'X'.
    ENDIF.
************* End of Sales Data : MVKE


************* Valuation Area : MBEW
    bapi_mbew-val_area = gs_final-werks.
    bapi_mbew-val_class = gs_final-bklas.
    bapi_mbew-price_ctrl = gs_final-vprsv_1.
    bapi_mbew-price_unit = gs_final-peinh_1.
    bapi_mbew-val_cat = gs_final-bwtty.
*    bapi_mbew-std_price = gs_final-stprs.
    bapi_mbew-ml_settle = gs_final-mlast.
*BAPI_MBEW- = gs_final-
    bapi_mbewx-val_area = gs_final-werks.
    bapi_mbewx-val_class = 'X'.
    bapi_mbewx-price_ctrl = 'X'.
    bapi_mbewx-price_unit = 'X'.
    bapi_mbewx-std_price = 'X'.
    bapi_mbewx-val_cat   = 'X'.
    bapi_mbewx-ml_settle = 'X'.

    IF gs_final-mtart = 'ZSRV'.
      bapi_mbew-pr_ctrl_pp    = 'V'.
      bapi_mbewx-pr_ctrl_pp   = 'X'.

      bapi_mbew-price_ctrl    = 'V'.
      bapi_mbewx-price_ctrl   = 'X'.

      bapi_mbew-pr_ctrl_py    = 'V'.
      bapi_mbewx-pr_ctrl_py   = 'X'.
    ENDIF.

*BAPI_MBEWX- = 'X'.
************* END of Valuation Area : MBEW

************* Unit of measure
    REFRESH : it_marm , it_marmx.
    CLEAR : wa_marm.

*     bapi_mara-base_uom

****     Gross weight
    wa_marm-unit_of_wt = 'KG'.  "bapi_mara-base_uom.
    wa_marm-alt_unit = bapi_mara-base_uom."'KG'.   "bapi_mara-base_uom.
    wa_marm-gross_wt = gs_final-brgew.
    APPEND wa_marm TO it_marm.

    wa_marmx-unit_of_wt = 'KG'. "bapi_mara-base_uom.
    wa_marmx-alt_unit = bapi_mara-base_uom.
    wa_marmx-gross_wt = 'X'."gs_final-brgew.
    APPEND wa_marmx TO it_marmx.
***
*    CLEAR : wa_marm , wa_marmx.
    IF gs_final-umren2_1 IS NOT INITIAL AND gs_final-umren3_1 IS NOT INITIAL
      AND gs_final-umren4_1 IS NOT INITIAL AND gs_final-meinh2_1 IS NOT INITIAL.
      wa_marm-denominatr = gs_final-umren2_1.
      wa_marm-alt_unit = gs_final-umren3_1.
      wa_marm-numerator = gs_final-umren4_1.
      wa_marm-alt_unit_iso = gs_final-meinh2_1.
      APPEND wa_marm TO it_marm.

      wa_marmx-denominatr  = 'X'.
      wa_marmx-numerator  = 'X'.
      wa_marmx-alt_unit = gs_final-umren3_1 .
      wa_marmx-alt_unit_iso = gs_final-meinh2_1.
      APPEND wa_marmx TO it_marmx.
    ELSE.
*      REFRESH: it_marm , it_marmx.
    ENDIF.

*    wa_marm-denominatr = gs_final-umren3.
*    wa_marm-numerator = gs_final-umrez3.
*    APPEND wa_marm TO it_marm.
*
*    wa_marm-denominatr = gs_final-umren4.
*    wa_marm-numerator = gs_final-umrez4.
*    APPEND wa_marm TO it_marm.
*    wa_marm-denominatr = gs_final-.
*    APPEND wa_marm TO it_marm.

*************
    CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
      EXPORTING
        headdata             = bapimathead
        clientdata           = bapi_mara
        clientdatax          = bapi_marax
        plantdata            = bapi_marc
        plantdatax           = bapi_marcx
        forecastparameters   = bapi_mpop
        forecastparametersx  = bapi_mpopx
*       PLANNINGDATA         =
*       PLANNINGDATAX        =
        storagelocationdata  = bapi_mard
        storagelocationdatax = bapi_mardx
        valuationdata        = bapi_mbew
        valuationdatax       = bapi_mbewx
*       WAREHOUSENUMBERDATA  =
*       WAREHOUSENUMBERDATAX =
        salesdata            = bapi_mvke
        salesdatax           = bapi_mvkex
        storagetypedata      = bapi_mlgt
        storagetypedatax     = bapi_mlgtx
*       FLAG_ONLINE          = ' '
*       FLAG_CAD_CALL        = ' '
*       NO_DEQUEUE           = ' '
*       NO_ROLLBACK_WORK     = ' '
*       CLIENTDATACWM        =
*       CLIENTDATACWMX       =
*       VALUATIONDATACWM     =
*       VALUATIONDATACWMX    =
      IMPORTING
        return               = it_return
      TABLES
        materialdescription  = it_makt
        unitsofmeasure       = it_marm
        unitsofmeasurex      = it_marmx
*       INTERNATIONALARTNOS  =
*       MATERIALLONGTEXT     =
        taxclassifications   = it_mlan
*       RETURNMESSAGES       =
*       PRTDATA              =
*       PRTDATAX             =
*       EXTENSIONIN          =
*       EXTENSIONINX         =
*       UNITSOFMEASURECWM    =
*       UNITSOFMEASURECWMX   =
      .

    IF it_return-type NE 'E' .
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
*   WAIT          =
* IMPORTING
*   RETURN        =
        .
      wa_msg-line = lv_line.
      wa_msg-message = it_return-message.
      wa_msg-message_v1 = it_return-message_v1.
      wa_msg-maktx     = gs_final-maktx.
      wa_msg-type = it_return-type.

      APPEND wa_msg TO it_msg.

      IF gs_final-po_text1 IS NOT INITIAL.
        CLEAR: ls_header  .
        REFRESH : lt_lines.

        ls_header-tdobject  = 'MATERIAL'.
        ls_header-tdname    = gs_final-matnr.
        ls_header-tdid      = 'BEST'.
        ls_header-tdspras   = sy-langu.


        CONCATENATE gs_final-po_text1 ' '
                   INTO DATA(lv_text) SEPARATED BY space .
        lt_lines-tdline = lv_text ."gs_final-po_text.
        APPEND lt_lines.

        CLEAR lv_text.
        CONCATENATE  gs_final-po_text2 ' '
                    INTO lv_text SEPARATED BY space .
        lt_lines-tdline = lv_text ."gs_final-po_text.
        APPEND lt_lines.

        CLEAR lv_text.
        CONCATENATE  gs_final-po_text3 ' '
                  INTO lv_text SEPARATED BY space .
        lt_lines-tdline = lv_text ."gs_final-po_text.
        APPEND lt_lines.

        CLEAR lv_text.
        CONCATENATE  gs_final-po_text4 ' '
                  INTO lv_text SEPARATED BY space .
        lt_lines-tdline = lv_text ."gs_final-po_text.
        APPEND lt_lines.

        CLEAR lv_text.
        CONCATENATE  gs_final-po_text5 ' '
                  INTO lv_text SEPARATED BY space .
        lt_lines-tdline = lv_text ."gs_final-po_text.
        APPEND lt_lines.


        CALL FUNCTION 'SAVE_TEXT'
          EXPORTING
            client          = sy-mandt
            header          = ls_header
            savemode_direct = 'X'
          TABLES
            lines           = lt_lines
          EXCEPTIONS
            OTHERS          = 1.
*    REFRESH :lt_lines.
*   CONCATENATE  gs_final-po_text3 gs_final-po_text4
*               INTO DATA(lv_text1) SEPARATED BY space .
*        lt_lines-tdline = lv_text1 ."gs_final-po_text.
*        APPEND lt_lines.
*
*        CALL FUNCTION 'SAVE_TEXT'
*          EXPORTING
*            client          = sy-mandt
*            header          = ls_header
*            savemode_direct = 'X'
*          TABLES
*            lines           = lt_lines
*          EXCEPTIONS
*            OTHERS          = 1.
      ENDIF.
    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
*   IMPORTING
*     RETURN        =
        .

      wa_msg-line = lv_line.
      wa_msg-message = it_return-message.
      wa_msg-message_v1 = it_return-message_v1.
      wa_msg-type = it_return-type.
      APPEND wa_msg TO it_msg.
    ENDIF.
*    BREAK-POINT.

    lv_line = lv_line + 1.
  ENDLOOP.
ENDFORM.

*&---------------------------------------------------------------------*
*& Form F_BUILD_HEADER
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM f_build_header .
  ls_header-f_name = 'Line Number'.
  APPEND ls_header TO lt_header.
  CLEAR ls_header.

  ls_header-f_name = 'Type'.
  APPEND ls_header TO lt_header.
  CLEAR ls_header.

  ls_header-f_name = 'Material Number'.
  APPEND ls_header TO lt_header.
  CLEAR ls_header.

  ls_header-f_name = 'Material Desc'.
  APPEND ls_header TO lt_header.
  CLEAR ls_header.

  ls_header-f_name = 'Message'.
  APPEND ls_header TO lt_header.
  CLEAR ls_header.

  ls_header-f_name = ''.
  APPEND ls_header TO lt_header.
  CLEAR ls_header.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form F_DOWNLOAD_MSG
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM f_download_msg .

  CALL METHOD cl_gui_frontend_services=>get_desktop_directory
    CHANGING
      desktop_directory = lv_desktop
    EXCEPTIONS
      cntl_error        = 1.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  CALL METHOD cl_gui_cfw=>update_view.


  CONCATENATE lv_desktop '\Shakambari' '\Material Master' '\Material Upload' '_' sy-datum '_' sy-uzeit '.xls' INTO lv_desktop.
*BREAK-POINT.
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
*     BIN_FILESIZE            =
      filename                = lv_desktop
      filetype                = 'DAT'
*     APPEND                  = 'X'
      write_field_separator   = 'X'
    TABLES
      data_tab                = it_msg
      fieldnames              = lt_header
    EXCEPTIONS
      file_write_error        = 1
      no_batch                = 2
      gui_refuse_filetransfer = 3
      invalid_type            = 4
      no_authority            = 5
      unknown_error           = 6
      header_not_allowed      = 7
      separator_not_allowed   = 8
      filesize_not_allowed    = 9
      header_too_long         = 10
      dp_error_create         = 11
      dp_error_send           = 12
      dp_error_write          = 13
      unknown_dp_error        = 14
      access_denied           = 15
      dp_out_of_memory        = 16
      disk_full               = 17
      dp_timeout              = 18
      file_not_found          = 19
      dataprovider_exception  = 20
      control_flush_error     = 21
      OTHERS                  = 22.
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.


ENDFORM.