2 SAP & E-cology Integration ABAP Program

1. Query Region

FUNCTION ZMMIP004.
*"----------------------------------------------------------------------
*"*"Local Interface
*"  EXPORTING
*"     VALUE(EV_MSGTY) TYPE  BAPI_MTYPE
*"     VALUE(EV_MESSAGE) TYPE  BAPI_MSG
*"  TABLES
*"      ET_OUTPUT STRUCTURE  T005U
*"----------------------------------------------------------------------
  SELECT *
    FROM T005U

    INTO TABLE et_output
    WHERE  SPRAS = 1 AND land1 = 'CN'.

  IF et_output[] IS NOT INITIAL.
    ev_msgty = 'S'.
  ELSE.
    ev_msgty = 'E'.
    ev_message = 'No Data'.
    RETURN.
  ENDIF.
ENDFUNCTION.

2. Query Counry

FUNCTION zmmip005 .
*"----------------------------------------------------------------------
*"*"Local Interface
*"  IMPORTING
*"     VALUE(IV_LAND1) TYPE  LAND1 OPTIONAL
*"     VALUE(IV_LANDX) TYPE  LANDX OPTIONAL
*"  EXPORTING
*"     VALUE(EV_MSGTY) TYPE  BAPI_MTYPE
*"     VALUE(EV_MESSAGE) TYPE  BAPI_MSG
*"  TABLES
*"      ET_OUTPUT STRUCTURE  ZSMMIP005
*"----------------------------------------------------------------------
  DATA: lv_where TYPE string.
  DATA: con_name TYPE landx.
  IF iv_land1 IS NOT INITIAL.
    CONCATENATE lv_where 'land1 = iv_land1' 'AND' INTO lv_where SEPARATED BY space.
  ENDIF.

  IF iv_landx IS NOT INITIAL.
    CONCATENATE '%' iv_landx '%' INTO con_name.
    CONCATENATE lv_where 'landx LIKE con_name'  'AND' INTO lv_where SEPARATED BY space.
  ENDIF.

  IF lv_where IS NOT INITIAL.
    SHIFT lv_where RIGHT DELETING TRAILING 'AND'.
  ENDIF.

  SELECT LAND1 LANDX
    FROM t005t

    INTO TABLE et_output
    WHERE (lv_where).

  IF et_output[] IS NOT INITIAL.
    ev_msgty = 'S'.
  ELSE.
    ev_msgty = 'E'.
    ev_message = 'No data'.
    RETURN.
  ENDIF.
ENDFUNCTION.

3. Query Language

FUNCTION zmmip006.
*"----------------------------------------------------------------------
*"*"Local Interface
*"  IMPORTING
*"     VALUE(IV_SPRSL) TYPE  SPRAS OPTIONAL
*"     VALUE(IV_SPTXT) TYPE  SPTXT OPTIONAL
*"  EXPORTING
*"     VALUE(EV_MSGTY) TYPE  BAPI_MTYPE
*"     VALUE(EV_MESSAGE) TYPE  BAPI_MSG
*"  TABLES
*"      ET_OUTPUT STRUCTURE  ZSMMIP006
*"----------------------------------------------------------------------

  DATA: lv_where TYPE string.
  DATA: con_name TYPE sptxt.
  data: ty_data type TABLE OF t002t.

  IF iv_sprsl IS NOT INITIAL.
    CONCATENATE lv_where 'sprsl = iv_sprsl' 'AND' INTO lv_where SEPARATED BY space.
  ENDIF.

  IF iv_sptxt IS NOT INITIAL.
    CONCATENATE '%' iv_sptxt '%' INTO con_name.
    CONCATENATE lv_where 'sptxt LIKE con_name'  'AND' INTO lv_where SEPARATED BY space.
  ENDIF.

  IF  lv_where IS NOT INITIAL.
    SHIFT lv_where RIGHT DELETING TRAILING 'AND'.
  ENDIF.
  select SPRSL sptxt from  t002t into table ty_data[] where spras = 1.
  
  SELECT b~laiso , a~sptxt
    FROM t002t AS a
    LEFT JOIN t002 AS b  ON b~spras = a~SPRSL
    INTO TABLE @et_output
    WHERE (lv_where) and a~spras = 1 .

  IF et_output[] IS NOT INITIAL.
    ev_msgty = 'S'.
  ELSE.
    ev_msgty = 'E'.
    ev_message = 'No data'.
    RETURN.
  ENDIF.
ENDFUNCTION.

4. Query G/L account master (company code)

FUNCTION zmmip007.
*"----------------------------------------------------------------------
*"*"Local Interface
*"  IMPORTING
*"     VALUE(IV_SAKNR) TYPE  STRING OPTIONAL
*"  EXPORTING
*"     VALUE(EV_MESSAGE) TYPE  BAPI_MSG
*"     VALUE(EV_MSGTY) TYPE  BAPI_MTYPE
*"  TABLES
*"      ET_OUTPUT STRUCTURE  ZSMMIP007
*"----------------------------------------------------------------------
  DATA: lv_where TYPE string.
  DATA: con_name TYPE string.
  " IF iv_saknr IS NOT INITIAL.
  "    CONCATENATE lv_where 'saknr = iv_saknr' 'AND' INTO lv_where SEPARATED BY space.
  "  ENDIF.
  CONCATENATE lv_where  'skb1~bukrs = ''1100'' or skb1~bukrs = ''1200'' AND'   INTO lv_where SEPARATED BY space.
  IF iv_saknr IS NOT INITIAL.
    CONCATENATE '%' iv_saknr '%' INTO con_name.
    CONCATENATE lv_where 'skb1~saknr LIKE con_name'  'AND' INTO lv_where SEPARATED BY space.
  ENDIF.

  IF  lv_where IS NOT INITIAL.
    SHIFT lv_where RIGHT DELETING TRAILING 'AND'.
  ENDIF.

  SELECT
          skb1~bukrs
          skb1~saknr"G/L Account Number
          skat~txt50 "G/L Account Long Text
        INTO CORRESPONDING FIELDS OF TABLE et_output
        FROM skb1
      JOIN skat ON skb1~saknr = skat~saknr
   WHERE (lv_where).
  IF et_output[] IS NOT INITIAL.
    ev_msgty = 'S'.
  ELSE.
    ev_msgty = 'E'.
    ev_message = 'No data'.
    RETURN.
  ENDIF.
ENDFUNCTION.

5. Query Rules for 'Allocation' Field Layout data

FUNCTION zmmip008.
*"----------------------------------------------------------------------
*"*"Local Interface
*"  IMPORTING
*"     VALUE(IV_ZUAWA) TYPE  DZUAWA OPTIONAL
*"     VALUE(IV_NAME1) TYPE  NAME1_ZUN OPTIONAL
*"  EXPORTING
*"     VALUE(EV_MSGTY) TYPE  BAPI_MTYPE
*"     VALUE(EV_MESSAGE) TYPE  BAPI_MSG
*"  TABLES
*"      ET_OUTPUT STRUCTURE  ZSMMIP008
*"----------------------------------------------------------------------
  DATA: lv_where TYPE string.
  DATA: con_name TYPE NAME1_ZUN.

  IF iv_zuawa IS NOT INITIAL.
    CONCATENATE lv_where 'zuawa = iv_zuawa' 'AND' INTO lv_where SEPARATED BY space.
  ENDIF.

  IF iv_name1 IS NOT INITIAL.
    CONCATENATE '%' iv_name1  '%' INTO con_name.
    CONCATENATE lv_where 'name1 LIKE con_name'  'AND' INTO lv_where SEPARATED BY space.
  ENDIF.

  IF  lv_where IS NOT INITIAL.
    SHIFT lv_where RIGHT DELETING TRAILING 'AND'.
  ENDIF.

  SELECT zuawa name1 FELD1
    FROM TZUN
    INTO CORRESPONDING FIELDS OF TABLE et_output
    WHERE (lv_where).

  IF et_output[] IS NOT INITIAL.
    ev_msgty = 'S'.
  ELSE.
    ev_msgty = 'E'.
    ev_message = 'No data'.
    RETURN.
  ENDIF.
ENDFUNCTION.

6. Query Own Explanations for Terms of Payment

FUNCTION zmmip009.
*"----------------------------------------------------------------------
*"*"Local Interface
*"  IMPORTING
*"     VALUE(IV_ZTERM) TYPE  DZTERM OPTIONAL
*"     VALUE(IV_VTEXT) TYPE  DZTERM_BEZ OPTIONAL
*"  EXPORTING
*"     VALUE(EV_MSGTY) TYPE  BAPI_MTYPE
*"     VALUE(EV_MESSAGE) TYPE  BAPI_MSG
*"  TABLES
*"      ET_OUTPUT STRUCTURE  TVZBT
*"----------------------------------------------------------------------


  DATA: lv_where TYPE string.
  DATA: con_name TYPE  dzterm_bez.


  IF iv_zterm IS NOT INITIAL.
    CONCATENATE lv_where 'zterm = iv_zterm' 'AND' INTO lv_where SEPARATED BY space.
  ENDIF.

  IF iv_vtext IS NOT INITIAL.
    CONCATENATE '%' iv_vtext '%' INTO con_name.
    CONCATENATE lv_where 'vtext LIKE con_name'  'AND' INTO lv_where SEPARATED BY space.
  ENDIF.

  IF  lv_where IS NOT INITIAL.
    SHIFT lv_where RIGHT DELETING TRAILING 'AND'.
  ENDIF.

  SELECT
    t052u~zterm,
    t052u~TEXT1 as VTEXT
    FROM t052u
    join T052 on t052~zterm = t052u~zterm and KOART = 'K'
    WHERE spras = 1

    INTO CORRESPONDING FIELDS OF  TABLE @et_output.

  IF et_output[] IS NOT INITIAL.
    ev_msgty = 'S'.
  ELSE.
    ev_msgty = 'E'.
    ev_message = 'No Data'.
    RETURN.
  ENDIF.
ENDFUNCTION.

7. Create new vendor

FUNCTION zmmip010.
*"----------------------------------------------------------------------
*"*"Local Interface
*"  IMPORTING
*"     VALUE(IV_BUKRS) TYPE  LFB1-BUKRS
*"     VALUE(IV_AKONT) TYPE  LFB1-AKONT
*"     VALUE(IV_ZUAWA) TYPE  LFB1-ZUAWA
*"     VALUE(IV_ZTERM) TYPE  LFB1-ZTERM
*"     VALUE(IV_BU_SORT1_TXT) TYPE  BUS000FLDS-BU_SORT1_TXT
*"     VALUE(IV_BU_SORT2_TXT) TYPE  BUS000FLDS-BU_SORT2_TXT OPTIONAL
*"     VALUE(IV_COUNTRY) TYPE  ADDR2_DATA-COUNTRY
*"     VALUE(IV_REGION) TYPE  ADDR2_DATA-REGION
*"     VALUE(IV_STREET) TYPE  ADDR2_DATA-STREET
*"     VALUE(IV_LANGU) TYPE  T002-LAISO
*"     VALUE(IV_POST_CODE1) TYPE  ADDR2_DATA-POST_CODE1
*"     VALUE(IV_NO) TYPE  CHAR8 OPTIONAL
*"     VALUE(IV_NAME_ORG1) TYPE  BU_NAMEOR1
*"     VALUE(IV_NAME_ORG2) TYPE  BU_NAMEOR2 OPTIONAL
*"     VALUE(IV_CITY) TYPE  ADDR2_DATA-CITY1
*"     VALUE(IV_CREATION_GROUP) TYPE  BAPIBUS1006_HEAD-PARTN_GRP
*"       DEFAULT 'MM05'
*"  EXPORTING
*"     VALUE(EV_MSGTY) TYPE  BAPI_MTYPE
*"     VALUE(EV_MESSAGE) TYPE  BAPI_MSG
*"     VALUE(EV_SAP_NO) TYPE  BAPIBUS1006_HEAD-BPARTNER
*"----------------------------------------------------------------------


  lw_data-bukrs = iv_bukrs.
  lw_data-akont  = iv_akont.
  lw_data-zuawa = iv_zuawa.
  lw_data-termtj = iv_zterm.
  lw_data-bu_sort1_txt = iv_bu_sort1_txt.
  lw_data-bu_sort2_txt = iv_bu_sort2_txt.
  lw_data-country = iv_country.
  lw_data-region = iv_region.
  lw_data-street  = iv_street.
  lw_data-langu = iv_langu.
  lw_data-post_code1 = iv_post_code1.
  lw_data-name_org1  = iv_name_org1.
  lw_data-name_org2  = iv_name_org2.
  lw_data-city1 = iv_city.
  lw_data-creation_group = iv_creation_group.

  APPEND lw_data TO gt_data.

  SELECT * INTO TABLE lt_tb003 FROM tb003.
  lt_comp = gt_data.
  SORT lt_comp BY  bukrs.
  DELETE ADJACENT DUPLICATES FROM lt_comp COMPARING bukrs."CREATION_NUMBER BUKRS.
*
  lt_org = gt_data.
  SORT lt_org BY  ekorg.
  DELETE ADJACENT DUPLICATES FROM lt_org COMPARING ekorg."CREATION_NUMBER EKORG.

  PERFORM frm_check_data.

**Check wheter BP is existing or not
  IF lw_data-creation_number IS INITIAL.
    PERFORM frm_check_bp_exit USING lw_data-name_org1
    CHANGING lw_data-exist
      lw_data-creation_number.
  ELSE.
    DATA: lw_but000 LIKE but000.
    SELECT SINGLE * FROM but000 INTO lw_but000 WHERE partner = lw_data-creation_number AND bu_group = lw_data-creation_group  AND type = '2'.
    IF sy-subrc = 0.
*------Supplier exist, marked as X, update data
      lw_data-exist  = 'X'.
    ELSE.
*------Supplier not exist, mark as blank, create new data
      lw_data-exist = ''.
    ENDIF.

  ENDIF.

  IF lw_data-exist IS INITIAL.
**Create BP
    PERFORM frm_create_bp USING lw_data-creation_number
    CHANGING lw_data.

  ELSE.
**Create BP
    PERFORM frm_change_bp USING lw_data-creation_number
    CHANGING lw_data.

**Update address
    PERFORM frm_add_addr USING lw_data-creation_number
    CHANGING lw_data.
  ENDIF.

  IF lw_data-exist = 'X'.
**Supplier role
    READ TABLE lt_tb003 INTO lw_tb003 WITH KEY role = 'FLVN01'.
    IF sy-subrc = 0.

      PERFORM frm_add_role USING lw_data-creation_number
            lw_tb003-rolecategory
            'FLVN01'
      CHANGING lw_head.
    ENDIF.

**Finance Role
    READ TABLE lt_tb003 INTO lw_tb003 WITH KEY role = 'FLVN00'.
    IF sy-subrc = 0.

      PERFORM frm_add_role USING lw_data-creation_number
            lw_tb003-rolecategory
            'FLVN00'
      CHANGING lw_head.
    ENDIF.


**Submit data
    PERFORM frm_commit USING lw_data-creation_number.

***change address data
*      PERFORM frm_change_addr USING lw_head-creation_number
*      CHANGING lw_head.

**Supplier data
    CLEAR: lt_comp_temp.
    LOOP AT lt_comp INTO lw_comp WHERE bukrs = lw_data-bukrs.
      APPEND lw_comp TO lt_comp_temp.
    ENDLOOP.

    CLEAR: lt_org_temp.
    LOOP AT lt_org INTO lw_org WHERE ekorg = lw_data-ekorg.
      APPEND lw_org TO lt_org_temp.
    ENDLOOP.

    PERFORM frm_create_vendor TABLES lt_comp_temp lt_org_temp
    USING lw_data-creation_number
    CHANGING lw_data.

**Submit data
    PERFORM frm_commit USING lw_data-creation_number.

  ENDIF.

  ev_msgty = lw_data-type.
  ev_message = lw_data-message.
  ev_sap_no = lw_data-creation_number.
ENDFUNCTION.

8. Query Material Master Data

FUNCTION ZMMIP011 .
*"----------------------------------------------------------------------
*"*"Local Interface
*"  IMPORTING
*"     VALUE(IV_WERKSTYPE  WERKS_D OPTIONAL
*"     VALUE(IV_MATNR) TYPE  TEXT18 OPTIONAL
*"  EXPORTING
*"     VALUE(EV_MSGTYTYPE  BAPI_MTYPE
*"     VALUE(EV_MESSAGE) TYPE  BAPI_MSG
*"  TABLES
*"      ET_OUTPUT STRUCTURE  ZSMMIP011OUT
*"----------------------------------------------------------------------
INCLUDE zmmip011top. "Global variable, screen variable, data type
  IF iv_matnr IS NOT INITIAL.
*Material code plus leading zero
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = IV_MATNR
    IMPORTING
      output = IV_MATNR.
   CONCATENATE lv_where 'mast~matnr = iv_matnr' 'AND' INTO lv_where SEPARATED BY space.
ELSE.
    ev_msgty = 'E'.
    ev_message = 'Please enter material code'.
     RETURN.
  ENDIF.

 IF lv_where IS NOT INITIAL.
    SHIFT lv_where RIGHT DELETING TRAILING 'AND'.  " Delete last AND
  ENDIF.

*Get all the secondary classifications and descriptions of the part number
 SELECT  atnam attxt
       INTO CORRESPONDING FIELDS OF TABLE gt_fldm2
          FROM ZTMM_OA_DATA
       WHERE fldm2 = IV_MATNR+6(3).

 IF gt_fldm2[] IS INITIAL.
    ev_msgty = 'E'.
    ev_message = 'No such data'.
    RETURN.
  ENDIF.

*Get the characteristics and description of the material
 SELECT cabn~atnam cabnt~atinn cabnt~atbez
   INTO TABLE it_cabn
   FROM cabn
   JOIN cabnt ON cabn~atinn = cabnt~atinn
   FOR ALL ENTRIES IN gt_fldm2
   WHERE
         cabn~atnam = gt_fldm2-atnam AND
         cabnt~spras = sy-langu AND cabn~lkenz = ''.

    SELECT ausp~objek ausp~atinn ausp~atwrt ausp~dec_value_from cabn~anzdz
      FROM ausp
      JOIN cabn ON cabn~atinn = ausp~atinn
      INTO TABLE gt_ausp
      WHERE ausp~objek = IV_MATNR  AND
            ausp~lkenz = '' AND
            ausp~klart = '001'."Class Type

SORT it_cabn BY atinn.
SORT gt_ausp BY atinn.

  LOOP AT gt_ausp INTO wa_ausp.
*   Convert scientific notation into numbers
    l_decf = wa_ausp-dec_value_from.
    l_digits = wa_ausp-digits.
    CALL FUNCTION 'QSS0_FLTP_TO_CHAR_CONVERSION'
      EXPORTING
        i_number_of_digits       = l_digits  "digits
        i_fltp_value             = l_decf
        i_value_not_initial_flag = 'X'
        i_screen_fieldlength     = 16
      IMPORTING
        e_char_field             = l_char.
    CONDENSE l_char NO-GAPS.
    wa_ausp-value = l_char.
    MODIFY gt_ausp FROM wa_ausp TRANSPORTING value.
    CLEAR wa_ausp.
  ENDLOOP.

  LOOP AT it_cabn INTO wa_cabn.
        READ TABLE gt_ausp INTO wa_ausp WITH KEY atinn = wa_cabn-atinn.
        IF sy-subrc = 0 AND wa_ausp-atwrt  IS NOT INITIAL.
            wa_out-z_value = wa_ausp-atwrt.
            ELSEIF sy-subrc = 0 AND wa_ausp-atwrt IS INITIAL..
              wa_out-z_value = wa_ausp-value.
           ELSE.
              wa_out-z_value = ''.
          ENDIF.
       wa_out-atbez =  wa_cabn-atbez.
       wa_out-atnam =  wa_cabn-atnam.
     APPEND wa_out TO et_output.
     CLEAR wa_cabn.
     CLEAR wa_ausp.
     ENDLOOP.

SORT et_output BY atnam.
   IF et_output[] IS NOT INITIAL.
    ev_msgty = 'S'.
   ELSE.
    ev_msgty = 'E'.
    ev_message = 'No data'.
    RETURN.
  ENDIF.
ENDFUNCTION.

9. Interactive-Material Master Data Classification Features

FUNCTION ZMMIP011A.
*"----------------------------------------------------------------------
*"*"Local Interface
*"  EXPORTING
*"     VALUE(EV_MSGTY) TYPE  BAPI_MTYPE
*"     VALUE(EV_MESSAGE) TYPE  BAPI_MSG
*"  TABLES
*"      IV_INPUT STRUCTURE  ZSMMIP011A
*"----------------------------------------------------------------------

INCLUDE ZMMIP011ATOP.

IF IV_INPUT[] IS INITIAL.
    ev_msgty = 'E'.
    ev_message = 'No changes'.
    RETURN.
  ELSE.
    SORT IV_INPUT BY  matnr.
    LOOP AT IV_INPUT INTO wa_input.
*Material code plus leading zero
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = wa_input-matnr
        IMPORTING
          output = wa_input-matnr.
    MODIFY IV_INPUT FROM wa_input.
    AT NEW matnr.
       APPEND wa_input TO gt_temp."Remove same sap material no.
     ENDAT.
    CLEAR wa_input.
    ENDLOOP.
   ENDIF.
*Query all feature value of material via ZMMIP011
LOOP AT gt_temp INTO wa_temp.
  CALL FUNCTION 'ZMMIP011'
  EXPORTING
    iv_werks  =  wa_temp-werks
    iv_matnr  =  wa_temp-matnr
    TABLES
      et_output = gt_output.
lv_key = wa_temp-matnr.
lv_class = wa_temp-matnr+6(6).
*CALL FUNCTION 'BAPI_OBJCL_GETDETAIL'
*  EXPORTING
*    objectkey              = lv_key
*    objecttable            = lv_table
*    classnum               = lv_class
*    classtype              = lv_class_type
*  tables
*    allocvaluesnum         = lt_alloc_num
*    allocvalueschar        = lt_alloc_char
*    allocvaluescurr        = lt_alloc_curr
*    return                 = lt_return.
*Get the character format of each characteristic value
SELECT atnam atfor FROM cabn INTO TABLE lt_cabn
   FOR ALL ENTRIES IN gt_output
       WHERE atnam = gt_output-atnam.

LOOP AT gt_output INTO wa_output.
 DATA:lv_atnam TYPE atnam.
 DATA:lv_value TYPE TXT50.
 READ TABLE lt_cabn INTO lw_cabn WITH KEY atnam = wa_output-atnam ."Check the character format of the characteristic value one by one
        CASE lw_cabn-atfor.
        WHEN 'CHAR'.
           READ TABLE IV_INPUT INTO wa_input  WITH KEY  atnam = wa_output-atnam matnr = wa_temp-matnr.
          IF  wa_output-z_value IS INITIAL AND ( wa_input-z_value = '' OR  wa_input-z_value IS INITIAL )."Skip if there is no such characteristic value
            CONTINUE.
          ENDIF.
             IF sy-subrc = 0 AND  wa_input-z_value IS NOT INITIAL."Indicates that the characteristic value has changed
               lw_alloc_char-charact = wa_input-atnam .
               lw_alloc_char-value_char = wa_input-z_value .
               lw_alloc_char-value_char_long = wa_input-z_value .
               ELSEIF  sy-subrc = 0 AND wa_input-z_value IS INITIAL."Modify the characteristic value to blank
                 CONTINUE.
                 ELSE."The characteristic value has no changed
                 lw_alloc_char-charact = wa_output-atnam .
                 lw_alloc_char-value_char = wa_output-z_value .
                 lw_alloc_char-value_char_long = wa_output-z_value .
              ENDIF.
          APPEND lw_alloc_char TO lt_alloc_char.
        WHEN 'NUM'.
            READ TABLE IV_INPUT INTO wa_input  WITH KEY  atnam = wa_output-atnam matnr = wa_temp-matnr.
            IF  wa_output-z_value IS INITIAL AND wa_input-z_value IS INITIAL.
            CONTINUE.
           ENDIF.
             IF sy-subrc = 0.
               lv_atnam = wa_input-atnam.
               lv_value = wa_input-z_value.
               ELSE.
               lv_atnam = wa_output-atnam.
               lv_value =  wa_output-z_value.
               ENDIF.
               IF lv_value CN '0123456789.- '."Check if the data is in digital format
                 ev_msgty = 'E'.
                 ev_message = 'Characteristic' && wa_input-atnam && ' value is not digit'.
                  RETURN.
                  ELSE.
                     lw_alloc_num-charact = lv_atnam  .
                    CALL FUNCTION 'CHAR_FLTP_CONVERSION'
                     EXPORTING
                       string             = lv_value
                       IMPORTING
                         flstr              = lw_alloc_num-value_from
                         EXCEPTIONS
                      exponent_too_big   = 1
                      exponent_too_small = 2
                      string_not_fltp    = 3
                      too_many_decim     = 4
                      OTHERS             = 5.
                    ENDIF.
                      APPEND lw_alloc_num TO lt_alloc_num.
                WHEN OTHERS.
            ENDCASE.
      CLEAR:lw_alloc_char,lw_alloc_num,lw_cabn,wa_input.
   ENDLOOP.
*
    CALL FUNCTION 'BAPI_OBJCL_CHANGE'
      EXPORTING
        objectkey    = lv_key
        objecttable  = lv_table
        classnum     = lv_class        "lv_class
        classtype    = lv_class_type
*        status       = '1'
*        keydate         = sy-datum
*        NO_DEFAULT_VALUES       = ' '
*    IMPORTING
*        CLASSIF_STATUS  =
      TABLES
        allocvaluesnumnew  = lt_alloc_num
        allocvaluescharnew = lt_alloc_char
        allocvaluescurrnew = lt_alloc_curr
        return          = lt_return.

    READ TABLE lt_return INTO lw_return  WITH KEY type = 'E'..
*  IF lw_return-type = 'S' .
    IF sy-subrc <> 0.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
     wait = 'X'.
     LOOP AT lt_return INTO lw_return WHERE type = 'S' AND number = '737'.
       IF  ev_msgty <> 'E'.
       ev_msgty  = 'S'.
       ENDIF.
      IF  EV_MESSAGE IS INITIAL.
         EV_MESSAGE = lv_key+6 && ' modified successfully'.
      ELSE.
        CONCATENATE  EV_MESSAGE '/' lv_key+6 ' modified successfully' INTO  EV_MESSAGE.
      ENDIF.
    ENDLOOP.
  ELSE.
    LOOP AT lt_return INTO lw_return WHERE type = 'E'.
      EV_MSGTY = 'E'.
      IF  EV_MESSAGE IS INITIAL.
         EV_MESSAGE = lv_key+6 && lw_return-message.
      ELSE.
        CONCATENATE  EV_MESSAGE '/' lv_key+6 lw_return-message INTO  EV_MESSAGE.
      ENDIF.
    ENDLOOP.
  ENDIF.

IF ev_msgty  = 'S'.

PERFORM bdc_init.
***************************************************************
perform bdc_dynpro      using 'SAPLMGMM'              '0060'.
perform bdc_field       using 'BDC_CURSOR'            'RMMG1-MATNR'.
perform bdc_field       using 'BDC_OKCODE'            '=AUSW'. "ENTR
perform bdc_field       using 'RMMG1-MATNR'            lv_key+6(12).

perform bdc_dynpro      using 'SAPLMGMM'              '0070'.
perform bdc_field       using 'BDC_CURSOR'            'MSICHTAUSW-DYTXT(03)'.
perform bdc_field       using 'BDC_OKCODE'            '=ENTR'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(03)'  'X'.

perform bdc_dynpro      using 'SAPLCLCA'               '0602'.
perform bdc_field       using 'BDC_CURSOR'             'RMCLF-KLART'.
perform bdc_field       using 'BDC_OKCODE'             '=ENTE'.
perform bdc_field       using 'RMCLF-KLART'            lv_class_type."=001

perform bdc_dynpro      using 'SAPLCLFM'               '0500'.
perform bdc_field       using 'BDC_CURSOR'             'RMCLF-CLASS(01)'.
perform bdc_field       using 'BDC_OKCODE'             '=AUSW'.
perform bdc_field       using 'RMCLF-PAGPOS'           1.

perform bdc_dynpro      using 'SAPLCTMS'                '0109'.
perform bdc_field       using 'BDC_CURSOR'              'RCTMS-MWERT(03)'.
perform bdc_field       using 'BDC_OKCODE'              '=BACK'.

perform bdc_dynpro      using 'SAPLCLFM'                '0500'.
perform bdc_field       using 'BDC_CURSOR'              'RMCLF-CLASS(01)'.
perform bdc_field       using 'BDC_OKCODE'              '=SAVE'.
perform bdc_field       using 'RMCLF-PAGPOS'            1.

*********************************************************
 CLEAR itmsg.
 CALL TRANSACTION 'MM02' USING itbdc MODE 'E' UPDATE 'S' MESSAGES INTO itmsg.
*      DATA: msg TYPE bdcmsgcoll.
*     LOOP AT itmsg INTO msg.
*      CALL FUNCTION 'MESSAGE_TEXT_BUILD'
*        EXPORTING
*          msgid               = msg-MSGID
*          msgnr               = msg-MSGNR
*          msgv1               = msg-MSGV1
*          msgv2               = msg-MSGV2
*          msgv3               = msg-MSGV3
*          msgv4               = msg-MSGV4
*        IMPORTING
*           MESSAGE_TEXT_OUTPUT = lv_txt.
*      ENDLOOP.
*----------------------Edit material long text----------------------
*SELECT clint class FROM klah INTO TABLE lt_klah
*       WHERE class = lv_class.
*
* READ TABLE lt_klah INTO lw_klah  WITH KEY class = lv_class.
*
*lw_allkssk-objek = lv_key.
*lw_allkssk-clint = lw_klah-clint.
*lw_allkssk-klart = lv_class_type. "=001
*lw_allkssk-class = lv_class.
*lw_allkssk-kschl = 'PZ'.
*  APPEND lw_allkssk TO lt_allkssk.
*
*l_rmclf-matnr = lv_key.
*l_rmclf-objek = lv_key.
*l_rmclf-class = lv_class.
*l_rmclf-statu = '1'.
*l_rmclf-zaehl = 10.
*l_rmclf-klart = lv_class_type.
*
*  SELECT
*       objek
*       atinn
*       atzhl
*       klart
*       mafid
*       atwrt
*       atflv
*   FROM ausp INTO TABLE lt_allausp
*       WHERE objek = lv_key.
*
*  CALL FUNCTION 'EXIT_SAPLCLFM_002'
*   EXPORTING
*    I_RMCLF  =  l_rmclf
*    I_APPL  = ''
*    I_CALLED = '1'
*    TABLES
*      t_allkssk = lt_allkssk
*      t_allausp = lt_allausp
*      t_delcl = lt_delcl
*      t_delob = lt_delob.

*����������������������������������������������������������������������������*
  ENDIF.

   CLEAR : lw_cabn,lw_alloc_curr,lw_alloc_num,lw_alloc_char,lw_return.
   REFRESH:lt_cabn,lt_alloc_curr,lt_alloc_num,lt_alloc_char,lt_return.
ENDLOOP.
  CLEAR : wa_temp,wa_input ,wa_output.
  REFRESH :gt_temp,gt_input ,gt_output.
ENDFUNCTION.

10. Query Material Master Data (Basic)

FUNCTION ZMMIP012 .
*"----------------------------------------------------------------------
*"*"Local Interface
*"  IMPORTING
*"     VALUE(IV_WERKS) TYPE  WERKS_D
*"     VALUE(IV_MATNR) TYPE  TEXT18
*"  EXPORTING
*"     VALUE(EV_MSGTY) TYPE  BAPI_MTYPE
*"     VALUE(EV_MESSAGE) TYPE  BAPI_MSG
*"  TABLES
*"      ET_OUTPUT STRUCTURE  ZSMMIP012
*"----------------------------------------------------------------------
INCLUDE zmmip012top.

IF IV_MATNR IS NOT INITIAL.
*Material code plus leading zero
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = IV_MATNR
    IMPORTING
      output = IV_MATNR.
    CONCATENATE lv_where  '  a~matnr = IV_MATNR ' 'AND' INTO lv_where SEPARATED BY space.
 ELSE.
    ev_msgty = 'E'.
    ev_message = 'Please enter materail no.'.
    RETURN.
  ENDIF.
IF IV_WERKS IS NOT INITIAL.
 CONCATENATE lv_where  '  b~werks = IV_WERKS ' 'AND' INTO lv_where SEPARATED BY space.
ENDIF.

 IF lv_where IS NOT INITIAL.
    SHIFT lv_where RIGHT DELETING TRAILING 'AND'.  "Delete last AND
  ENDIF.

 SELECT

    a~matnr        "Material Number
    a~matkl        "Material Group
    a~mtart        "Material type
    a~bismt        "Old material number
    a~extwg        "External material group
    a~mtpos_mara   "General item category group
    a~brgew        "Gross weight
    a~ntgew        "Net weight
    a~gewei        "Weight Unit
    a~spart        "Division
    a~taklv        "Tax Classification of Material

    a~tragr        "Transportation Group
    b~ladgr        "Loading Group
    b~ekgrp        "Purchasing Group
    a~bstme        "Order unit
    b~insmk        "Post to Inspection Stock
    b~kordb        "Indicator: Source list requirement

    a~mprof        "Mfr part profile
    b~dismm        "MRP Type
    b~dispo        "MRP controller
    b~disgr        "MRP Group
    b~disls        "Lot size (materials planning)
    b~bstmi        "Minimum lot size
    b~maabc        "ABC indicator
    b~ausss        "Assembly scrap in percent(%)
    b~bstrf        "Rounding value for purchase order quantity
    b~beskz        "Procurement Type
    b~sobsl        "Special procurement type
    b~lgpro        "Issue storage location
    b~lgfsb        "Default storage location for external procurement
    b~rgekz        "Indicator: Backflush
    b~schgt        "Indicator: bulk material
    b~dzeit        "In-house production time
    b~eisbe        "Safety stock
    b~fhori        "Scheduling Margin Key for Floats
    b~plifz        "Planned delivery time in days
    b~webaz        "Goods receipt processing time in days
    b~strgr        "Planning strategy group
    b~vrmod        "Consumption mode
    b~vint1        "Consumption period: backward
    b~vint2        "Consumption period: forward
    b~miskz        "Mixed MRP indicator

    b~mtvfp        "Checking Group for Availability Check
    b~sbdkz        "Dependent requirements ind. for individual and coll. reqmts
    b~kausf        "Component scrap in percent%
    b~kzaus        "Discontinuation indicator
    b~ausdt        "Effective-out date
    b~nfmat        "Follow-up material
    b~ausme        "Unit of issue
*    umren type marm-umren,        "Denominator for conversion to base units of measure
*    umrez type marm-umrez,        "Numerator for Conversion to Base Units of Measure
    b~fevor        "Production Supervisor
    b~sfcpf        "Production Scheduling Profile
    b~xchpf        "Batch management requirement indicator
    a~mhdrz        "Minimum Remaining Shelf Life
    a~mhdhb        "Total shelf life
    a~iprkz        "Period Indicator for Shelf Life Expiration Date(SLED)
    b~ncost        "Do Not Cost
    b~losgr        "Costing lot size

    b~prctr        "Profit center
******Extra field********
    b~uneto         "Underdelivery tolerance limit
    b~ueeto         "Overdelivery tolerance limit
    b~ueetk         "Indicator: Unlimited overdelivery allowed
    a~laeda        "Date of Last Change
    a~ersda        "Created On
    a~ernam        "Name of Person who Created the Object
    INTO CORRESPONDING FIELDS OF TABLE gt_data
    FROM mara AS a INNER JOIN marc AS b ON a~matnr = b~matnr
    WHERE (lv_where).

  SORT gt_data BY matnr.

  IF gt_data[] IS NOT INITIAL.
*get marm
     SELECT
       matnr                   "Material Number
       umren as umrena         "Denominator for conversion for Order
       umrez as umreza         "Numerator for Conversion for Order
       INTO CORRESPONDING FIELDS OF TABLE gt_marmdata
       FROM marm FOR ALL ENTRIES IN gt_data
     WHERE matnr = gt_data-MATNR and meinh = gt_data-bstme.
     SELECT
       matnr                   "Material Number
       umren as umrenb         "Denominator for conversion for delivery
       umrez as umrezb         "Numerator for Conversion for delivery
       INTO CORRESPONDING FIELDS OF TABLE gt_marmdata2
       FROM marm FOR ALL ENTRIES IN gt_data
     WHERE matnr = gt_data-MATNR and meinh = gt_data-ausme.
*Get mbew
    SELECT
      matnr         "Material Number
      bwkey         "Valuation area
      bklas         "Valuation Class
      vprsv         "Price control indicator
      mlast         "Material Price Determination: Control
      peinh         "Price unit
      ekalr         "Material Is Costed with Quantity Structure
      hkmat         "Material-related origin
      INTO CORRESPONDING FIELDS OF TABLE gt_mbewdata
      FROM mbew
    WHERE matnr = IV_MATNR .
*Get mvke
     SELECT
       matnr         "Material Number
       vkorg         "Sales Organization
       vtweg         "Distribution Channel
       dwerk         "Delivering Plant (Own or External)
       aumng         "Minimum order quantity in base unit of measure
       ktgrm         "Account assignment group for this material
       mtpos         "Item category group from material master
       INTO CORRESPONDING FIELDS OF TABLE gt_mvkedata
       FROM mvke
     WHERE matnr = IV_MATNR .

*Get material description
     SELECT matnr spras maktx
       INTO CORRESPONDING FIELDS OF TABLE gt_maktx
       FROM makt
     WHERE matnr = IV_MATNR AND spras = '1'.
       .
*Get long description text
     SELECT matnr spras makt1
       INTO CORRESPONDING FIELDS OF TABLE gt_makt1
       FROM ZTMM0001
     WHERE matnr = IV_MATNR AND spras = '1'.
*end



     LOOP AT gt_data INTO wa_data.
       case wa_data-iprkz.
         when ''.
           wa_data-eprkz = 'D'.        " Base on differetn iprkz value decide different data type of eprkz
         when '1'.
           wa_data-eprkz = 'W'.
         when '2'.
           wa_data-eprkz = 'M'.
         when '3'.
           wa_data-eprkz = 'Y'.
       ENDCASE.


       CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
         EXPORTING
           input    = wa_data-meins
*              language = sy-langu
         IMPORTING
           output   = wa_data-meins.
*          CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
*            EXPORTING
*              input    = gt_data-ausme
*               language = sy-langu
*            IMPORTING
*              output   = gt_data-ausme.

       READ TABLE gt_marmdata WITH KEY matnr = IV_MATNR.
       IF sy-subrc = 0.
          wa_data-umrena = gt_marmdata-umrena.        
          wa_data-umreza = gt_marmdata-umreza.        
       ENDIF.
       READ TABLE gt_marmdata2 WITH KEY matnr = IV_MATNR.
       IF sy-subrc = 0.
          wa_data-umrenb = gt_marmdata2-umrenb.        
          wa_data-umrezb = gt_marmdata2-umrezb.        
       ENDIF.
       READ TABLE gt_mbewdata WITH KEY matnr = IV_MATNR bwkey = IV_WERKS.
       IF sy-subrc = 0.
          wa_data-bklas = gt_mbewdata-bklas.        
          wa_data-vprsv = gt_mbewdata-vprsv.         
          wa_data-mlast = gt_mbewdata-mlast.        
          wa_data-peinh = gt_mbewdata-peinh.         
          wa_data-ekalr = gt_mbewdata-ekalr.        
          wa_data-hkmat = gt_mbewdata-hkmat.         
       ENDIF.
       if IV_WERKS = '1101' or IV_WERKS = '1102' or IV_WERKS = '1103' or IV_WERKS = '1104' or IV_WERKS = '1105' or IV_WERKS = '1106' or IV_WERKS = '1199'.
         READ TABLE gt_mvkedata WITH KEY matnr = IV_MATNR dwerk = '1199'.
         IF sy-subrc = 0.
            wa_data-vkorg = gt_mvkedata-vkorg.         
            wa_data-vtweg = gt_mvkedata-vtweg.         
            wa_data-dwerk = gt_mvkedata-dwerk.         
            wa_data-aumng = gt_mvkedata-aumng.         
            wa_data-ktgrm = gt_mvkedata-ktgrm.         
            wa_data-mtpos = gt_mvkedata-mtpos.         
         ENDIF.
       elseif IV_WERKS = '1201' or IV_WERKS = '1501' or IV_WERKS = '1601' .
         READ TABLE gt_mvkedata WITH KEY matnr = IV_MATNR dwerk = IV_WERKS.
         IF sy-subrc = 0.
            wa_data-vkorg = gt_mvkedata-vkorg.         
            wa_data-vtweg = gt_mvkedata-vtweg.         
            wa_data-dwerk = gt_mvkedata-dwerk.         
            wa_data-aumng = gt_mvkedata-aumng.         
            wa_data-ktgrm = gt_mvkedata-ktgrm.         
            wa_data-mtpos = gt_mvkedata-mtpos.         
         ENDIF.
       else.
         READ TABLE gt_mvkedata WITH KEY matnr = IV_MATNR dwerk = IV_WERKS.
         IF sy-subrc = 0.
            wa_data-vkorg = gt_mvkedata-vkorg.         
            wa_data-vtweg = gt_mvkedata-vtweg.         
            wa_data-dwerk = gt_mvkedata-dwerk.         
            wa_data-aumng = gt_mvkedata-aumng.         
            wa_data-ktgrm = gt_mvkedata-ktgrm.         
            wa_data-mtpos = gt_mvkedata-mtpos.         
         ENDIF.
       endif.

       READ TABLE gt_maktx WITH KEY matnr = IV_MATNR.
       IF sy-subrc = 0.
          wa_data-maktx = gt_maktx-maktx.
       ENDIF.
       READ TABLE gt_maktx_e WITH KEY matnr = IV_MATNR.
       IF sy-subrc = 0.
          wa_data-maktx_en = gt_maktx_e-maktx.
       ENDIF.
       READ TABLE gt_makt1 WITH KEY matnr = IV_MATNR.
       IF sy-subrc = 0.
          wa_data-makt1 = gt_makt1-makt1.
       ENDIF.
       READ TABLE gt_makt1 WITH KEY matnr = IV_MATNR.
       IF sy-subrc = 0.
          wa_data-makt1_en = gt_makt1-makt1.
       ENDIF.

      MODIFY gt_data  FROM  wa_data.
      CLEAR wa_data.
     ENDLOOP.
   ENDIF.
*Export table
LOOP AT gt_data INTO wa_data.
********basic data1**********************
 wa_out-z_view = 'Basic data 1'.
 wa_out-z_text = 'Material group'.
 wa_out-z_value = wa_data-MATKL.
 wa_out-z_isref = 1.
* wa_out-z_item = 'MATKL'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.

*  Check the old material code must be input and uniqueness, premise: 1. finished product; 2. semi-finished product (excluding anode foil, cathode foil, electrolytic paper)
IF wa_data-mtart = 'AH03' OR  wa_data-mtart = 'AH04' OR ( wa_data-matkl+0(3) = '208' OR
                                      wa_data-matkl+0(3) = '209' OR wa_data-matkl+0(3) = '210' ).
 wa_out-z_view = 'Basic data 1'.
 wa_out-z_text = 'Materail Description'.
 wa_out-z_value = wa_data-MAKTX.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'maktx'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 ENDIF.
 wa_out-z_view = 'Basic Data 1'.
 wa_out-z_text = 'Old material number'.
 wa_out-z_value = wa_data-BISMT.
 wa_out-z_isref = 0.
"wa_out-z_item = 'BISMT'.
 APPEND wa_out TO et_output.

 CLEAR wa_out.
 wa_out-z_view = 'Basic Data 1'.
 wa_out-z_text = 'External material group'.
 wa_out-z_value = wa_data-EXTWG.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'EXTWG'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Basic Data 1'.
 wa_out-z_text = 'General item category group'.
 wa_out-z_value = wa_data-MTPOS_MARA.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'MTPOS_MARA'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Basic Data 1'.
 wa_out-z_text = 'Gross weight'.
 wa_out-z_value = wa_data-BRGEW.
 wa_out-z_isref = 0.
 "wa_out-z_item = 'BRGEW'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Basic Data 1'.
 wa_out-z_text = 'Net weight'.
 wa_out-z_value = wa_data-NTGEW.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'NTGEW'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Basic Data 1'.
 wa_out-z_text = 'Weight Unit'.
 wa_out-z_value = wa_data-GEWEI.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'GEWEI'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
****************Sales: Sales Organization 1*************
 wa_out-z_view = 'Sales: Sales Organization 1'.
 wa_out-z_text = 'Sales Organization'.
 wa_out-z_value = wa_data-VKORG.
 wa_out-z_isref = 1.
 " wa_out-z_item = 'VKORG'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Sales: Sales Organization 1'.
 wa_out-z_text = 'Distribution Channel'.
 wa_out-z_value = wa_data-VTWEG.
 wa_out-z_isref = 1.
 " wa_out-z_item = 'VTWEG'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Sales: Sales Organization 1'.
 wa_out-z_text = 'Division'.
 wa_out-z_value = wa_data-SPART.
 wa_out-z_isref = 1.
 " wa_out-z_item = 'SPART'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Sales: Sales Organization 1'.
 wa_out-z_text = 'Delivering Plant (Own or External)'.
 wa_out-z_value = wa_data-DWERK.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'DWERK'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.

 wa_out-z_view = 'Sales: Sales Organization 1'.
 wa_out-z_text = 'Tax Classification of Material'.
 wa_out-z_value = wa_data-TAKLV.
 wa_out-z_isref = 1.
 " wa_out-z_item = 'TAKLV'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Sales: Sales Organization 1'.
 wa_out-z_text = 'Minimum order quantity in base unit of measure'.
 wa_out-z_value = wa_data-AUMNG.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'AUMNG'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
****************Sales: Sales Organization 2*******************
 wa_out-z_view = 'Sales: Sales Organization 2'.
 wa_out-z_text = 'Account assignment group for this material'.
 wa_out-z_value = wa_data-KTGRM.
 wa_out-z_isref = 1.
 " wa_out-z_item = 'KTGRM'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Sales: Sales Organization 2'.
 wa_out-z_text = 'Item category group from material master'.
 wa_out-z_value = wa_data-MTPOS.
 wa_out-z_isref = 1.
 " wa_out-z_item = 'MTPOS'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Sales: Sales Organization 2'.
 wa_out-z_text = 'Transportation Group'.
 wa_out-z_value = wa_data-TRAGR.
 wa_out-z_isref = 1.
 " wa_out-z_item = 'TRAGR'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Sales: Sales Organization 2'.
 wa_out-z_text = 'Loading Group'.
 wa_out-z_value = wa_data-LADGR.
 wa_out-z_isref = 1.
 " wa_out-z_item = 'LADGR'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
********************Purchase***************
 wa_out-z_view = 'Purchase'.
 wa_out-z_text = 'Purchasing Group'.
 wa_out-z_value = wa_data-EKGRP.
 wa_out-z_isref = 1.
 " wa_out-z_item = 'EKGRP'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Purchase'.
 wa_out-z_text = 'Order unit'.
 wa_out-z_value = wa_data-BSTME.
 wa_out-z_isref = 1.
 " wa_out-z_item = 'BSTME'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Purchase'.
 wa_out-z_text = 'Denominator for conversion for Order'.
 wa_out-z_value = wa_data-UMRENA.
 wa_out-z_isref = 0.
 " wa_out-z_item = 'UMRENA'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Purchase'.
 wa_out-z_text = 'Numerator for Conversion for Order'.
 wa_out-z_value = wa_data-UMREZA.
 wa_out-z_isref = 0.
 " wa_out-z_item = 'UMREZA'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Purchase'.
 wa_out-z_text = 'Post to Inspection Stock'.
 wa_out-z_isref = 0.
 wa_out-z_value = wa_data-INSMK.
 " wa_out-z_item = 'INSMK'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Purchase'.
 wa_out-z_text = 'Indicator: Source list requirement'.
 wa_out-z_value = wa_data-KORDB.
  wa_out-z_isref = 0.
 " wa_out-z_item = 'KORDB'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Purchase'.
 wa_out-z_text = 'Mfr part profile'.
 wa_out-z_isref = 1.
 wa_out-z_value = wa_data-MPROF.
 " wa_out-z_item = 'MPROF'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
*****************MRP 1****************
 wa_out-z_view = 'MRP 1'.
 wa_out-z_text = 'MRP Type'.
 wa_out-z_value = wa_data-DISMM.
 wa_out-z_isref = 1.
 " wa_out-z_item = 'DISMM'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 1'.
 wa_out-z_text = 'MRP controller'.
 wa_out-z_value = wa_data-DISPO.
 wa_out-z_isref = 1.
 " wa_out-z_item = 'DISPO'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 1'.
 wa_out-z_text = 'MRP Group'.
 wa_out-z_value = wa_data-DISGR.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'DISGR'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 1'.
 wa_out-z_text = 'Lot size (materials planning)'.
 wa_out-z_value = wa_data-DISLS.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'DISLS'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 1'.
 wa_out-z_text = 'Minimum lot size'.
 wa_out-z_value = wa_data-BSTMI.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'BSTMI'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 1'.
 wa_out-z_text = 'ABC indicator'.
 wa_out-z_value = wa_data-MAABC.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'MAABC'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 1'.
 wa_out-z_text = 'Assembly scrap in percent(%)'.
 wa_out-z_value = wa_data-AUSSS.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'AUSSS'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 1'.
 wa_out-z_text = 'Rounding value for purchase order quantity'.
 wa_out-z_value = wa_data-BSTRF.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'BSTRF'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
*****************MRP 2****************
 wa_out-z_view = 'MRP 2'.
 wa_out-z_text = 'Procurement Type'.
 wa_out-z_value = wa_data-BESKZ.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'BESKZ'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 2'.
 wa_out-z_text = 'Special procurement type'.
 wa_out-z_value = wa_data-SOBSL.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'SOBSL'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 2'.
 wa_out-z_text = 'Issue storage location'.
 wa_out-z_value = wa_data-LGPRO.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'LGPRO'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 2'.
 wa_out-z_text = 'Default storage location for external procurement'.
 wa_out-z_isref = 1.
 wa_out-z_value = wa_data-LGFSB.
  "wa_out-z_item = 'LGFSB'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 2'.
 wa_out-z_text = 'Indicator: Backflush'.
 wa_out-z_value = wa_data-RGEKZ.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'RGEKZ'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 2'.
 wa_out-z_text = 'Indicator: bulk material'.
 wa_out-z_value = wa_data-SCHGT.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'SCHGT'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 2'.
 wa_out-z_text = 'In-house production time'.
 wa_out-z_value = wa_data-DZEIT.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'DZEIT'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 2'.
 wa_out-z_text = 'Safety stock'.
 wa_out-z_value = wa_data-EISBE.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'EISBE'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 2'.
 wa_out-z_text = 'Scheduling Margin Key for Floats'.
 wa_out-z_value = wa_data-FHORI.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'FHORI'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 2'.
 wa_out-z_text = 'Planned delivery time in days'.
 wa_out-z_value = wa_data-PLIFZ.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'PLIFZ'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 2'.
 wa_out-z_text = 'Goods receipt processing time in days'.
 wa_out-z_value = wa_data-WEBAZ.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'WEBAZ'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
***************MRP 3******************
 wa_out-z_view = 'MRP 3'.
 wa_out-z_text = 'Planning strategy group'.
 wa_out-z_value = wa_data-STRGR.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'STRGR'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 3'.
 wa_out-z_text = 'Consumption mode'.
 wa_out-z_value = wa_data-VRMOD.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'VRMOD'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 3'.
 wa_out-z_text = 'Consumption period: backward'.
 wa_out-z_value = wa_data-VINT1.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'VINT1'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 3'.
 wa_out-z_text = 'Consumption period: forward'.
 wa_out-z_value = wa_data-VINT2.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'VINT2'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 3'.
 wa_out-z_text = 'Mixed MRP indicator'.
 wa_out-z_value = wa_data-MISKZ.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'MISKZ'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 3'.
 wa_out-z_text = 'Checking Group for Availability Check'.
 wa_out-z_value = wa_data-MTVFP.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'MTVFP'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
***************MRP 4******************
 wa_out-z_view = 'MRP 4'.
 wa_out-z_text = 'Dependent requirements ind. for individual and coll. reqmts'.
 wa_out-z_value = wa_data-SBDKZ.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'SBDKZ'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 4'.
 wa_out-z_text = 'Component scrap in percent%'.
 wa_out-z_value = wa_data-KAUSF.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'KAUSF'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 4'.
 wa_out-z_text = 'Discontinuation indicator'.
 wa_out-z_value = wa_data-KZAUS.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'KZAUS'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 4'.
 wa_out-z_text = 'Effective-out date'.
 wa_out-z_value = wa_data-AUSDT.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'AUSDT'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'MRP 4'.
 wa_out-z_text = 'Follow-up material'.
 wa_out-z_value = wa_data-NFMAT.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'NFMAT'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
********************Work Plan*************
 wa_out-z_view = 'Work Plan'.
 wa_out-z_text = 'Unit of issue'.
 wa_out-z_value = wa_data-AUSME.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'AUSME'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Work Plan'.
 wa_out-z_text = 'Denominator for conversion to base units of measure'.
 wa_out-z_value = wa_data-UMRENB.
  wa_out-z_isref = 0.
  "wa_out-z_item = 'UMRENB'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Work Plan'.
 wa_out-z_text = 'Numerator for Conversion to Base Units of Measure'.
  wa_out-z_isref = 0.
 wa_out-z_value = wa_data-UMREZB.
  "wa_out-z_item = 'UMREZB'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Work Plan'.
 wa_out-z_text = 'Production Supervisor'.
 wa_out-z_value = wa_data-FEVOR.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'FEVOR'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Work Plan'.
 wa_out-z_text = 'Production Scheduling Profile'.
 wa_out-z_value = wa_data-SFCPF.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'SFCPF'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Work Plan'.
 wa_out-z_text = 'Underdelivery tolerance limit'.
 wa_out-z_value = wa_data-UNETO.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'UNETO'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Work Plan'.
 wa_out-z_text = 'Overdelivery tolerance limit'.
 wa_out-z_value = wa_data-UEETO.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'UEETO'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Work Plan'.
 wa_out-z_text = 'Indicator: Unlimited overdelivery allowed'.
 wa_out-z_value = wa_data-UEETK.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'UEETK'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
*****************Plant Data, storage 1*************
 wa_out-z_view = 'Plant Data, storage 1'.
 wa_out-z_text = 'Batch management requirement indicator'.
 wa_out-z_value = wa_data-XCHPF.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'XCHPF'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Plant Data, storage 1'.
 wa_out-z_text = 'Minimum Remaining Shelf Life'.
 wa_out-z_value = wa_data-MHDRZ.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'MHDRZ'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Plant Data, storage 1'.
 wa_out-z_text = 'Total shelf life'.
 wa_out-z_value = wa_data-MHDHB.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'MHDHB'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Plant Data, storage 1'.
 wa_out-z_text = 'Period Indicator for Shelf Life Expiration Date(SLED)'.
 wa_out-z_value = wa_data-EPRKZ.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'EPRKZ'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
*****************Accounting 1*************
 wa_out-z_view = 'Accounting 1'.
 wa_out-z_text = 'Evaluation'.
 wa_out-z_value = wa_data-BKLAS.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'BKLAS'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Accounting 1'.
 wa_out-z_text = 'Price Control'.
 wa_out-z_value = wa_data-VPRSV.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'VPRSV'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Accounting 1'.
 wa_out-z_text = 'Price Confirm'.
 wa_out-z_value = wa_data-MLAST.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'MLAST'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Accounting 1'.
 wa_out-z_text = 'Price Unit'.
 wa_out-z_value = wa_data-PEINH.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'PEINH'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
*****************Cost 1*************
 wa_out-z_view = 'Cost 1'.
 wa_out-z_text = 'Material Is Costed with Quantity Structure'.
 wa_out-z_value = wa_data-EKALR.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'EKALR'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Cost 1'.
 wa_out-z_text = 'Material Orgain'.
 wa_out-z_value = wa_data-HKMAT.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'HKMAT'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Cost 1'.
 wa_out-z_text = 'Do Not Cost'.
 wa_out-z_value = wa_data-NCOST.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'NCOST'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Cost 1'.
 wa_out-z_text = 'Costing lot size'.
 wa_out-z_value = wa_data-LOSGR.
 wa_out-z_isref = 0.
  "wa_out-z_item = 'LOSGR'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
 wa_out-z_view = 'Cost 1'.
 wa_out-z_text = 'Profit center'.
 wa_out-z_value = wa_data-PRCTR.
 wa_out-z_isref = 1.
  "wa_out-z_item = 'PRCTR'.
 APPEND wa_out TO et_output.
 CLEAR wa_out.
***********************************
ENDLOOP.

   IF et_output[] IS NOT INITIAL.
    ev_msgty = 'S'.
    ev_message = 'Query Successfully'.
   ELSE.
    ev_msgty = 'E'.
    ev_message = 'No data'.
    RETURN.
  ENDIF.
ENDFUNCTION.

11. Query Masterial Master Data(SAP CODE)

FUNCTION ZMMIP013.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(IV_WERKS) TYPE  WERKS_D
*"     VALUE(IV_MATNR) TYPE  TEXT18 OPTIONAL
*"     VALUE(IV_MAKTX) TYPE  MAKTX OPTIONAL
*"     VALUE(IV_MAKT1) TYPE  ZE_MAKT1 OPTIONAL
*"  EXPORTING
*"     VALUE(EV_MSGTY) TYPE  BAPI_MTYPE
*"     VALUE(EV_MESSAGE) TYPE  BAPI_MSG
*"  TABLES
*"      ET_OUTPUT STRUCTURE  ZSMMIP013
*"----------------------------------------------------------------------
TYPES: BEGIN OF ty_data.
    INCLUDE TYPE ZSMMIP013.
TYPES: END OF ty_data.

DATA: v_tabix TYPE sy-tabix,
      p_in TYPE mara-matnr,
      s_key1 TYPE string,
      s_key2 TYPE string,
      s_key3 TYPE string,
      lv_where TYPE string.

DATA: gt_data TYPE TABLE OF ty_data,
      wa_data TYPE ty_data,
      wa_out TYPE ty_data.

 CONCATENATE lv_where '( mara~mtart = ''AH01''' 'OR' INTO lv_where SEPARATED BY space.
 CONCATENATE lv_where ' mara~mtart = ''AH02''' 'OR' INTO lv_where SEPARATED BY space.
 CONCATENATE lv_where ' mara~mtart = ''AH03'')' 'AND' INTO lv_where SEPARATED BY space.
  IF iv_matnr IS NOT INITIAL.
*Material code add leading zero
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = IV_MATNR
    IMPORTING
     output = IV_MATNR.
    CONCATENATE '%' iv_matnr '%' INTO s_key1.
    CONCATENATE lv_where 'mara~matnr LIKE s_key1' 'AND' INTO lv_where SEPARATED BY space.
   " CONCATENATE lv_where 'mara~matnr LIKE s_key2)' 'AND' INTO lv_where SEPARATED BY space.
  ENDIF.

IF iv_maktx IS NOT INITIAL.
    CONCATENATE '%' iv_maktx '%' INTO s_key2.
    CONCATENATE lv_where 'makt~maktx LIKE s_key2 ' 'AND' INTO lv_where SEPARATED BY space.
  ENDIF.

IF iv_makt1 IS NOT INITIAL.
    CONCATENATE '%' iv_makt1 '%' INTO s_key3.
    CONCATENATE lv_where 'ztmm0001~makt1 LIKE s_key3 ' 'AND' INTO lv_where SEPARATED BY space.
  ENDIF.

IF iv_werks IS NOT INITIAL.
    CONCATENATE lv_where 'marc~werks = iv_werks ' 'AND' INTO lv_where SEPARATED BY space.
    ELSE.
       ev_msgty = 'w'.
       ev_message = '请输入查询工厂'.
    RETURN.
  ENDIF.

 IF lv_where IS NOT INITIAL.
    SHIFT lv_where RIGHT DELETING TRAILING 'AND'.  "Delete last AND
  ENDIF.

SELECT mara~matnr "Material Number
       makt~maktx "Description
       ztmm0001~makt1 "Long Descruption
      INTO CORRESPONDING FIELDS OF TABLE gt_data
      FROM mara
    JOIN makt ON  mara~matnr =  makt~matnr
   JOIN marc ON  mara~matnr =  marc~matnr
   JOIN ztmm0001 ON mara~matnr = ztmm0001~matnr
 WHERE (lv_where) .

*Material code add leading zero
 LOOP AT gt_data INTO wa_data.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
    EXPORTING
      input  = wa_data-matnr
    IMPORTING
      output = p_in.
      wa_out-matnr = p_in.
      wa_out-bukrs = iv_werks.
      wa_out-maktx = wa_data-maktx.
      wa_out-makt1 = wa_data-makt1.
      APPEND  wa_out  TO et_output.
      CLEAR p_in.
    ENDLOOP.

  SORT et_output BY matnr.
    IF sy-subrc = 0.
    ev_msgty = 'S'.
    ev_message = 'Search successfully'.
  ELSE.
    ev_msgty = 'E'.
    ev_message = 'No data'.
    RETURN.
  ENDIF.

ENDFUNCTION.

12. Query Purchase Order

FUNCTION ZMMIP013.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(IV_WERKS) TYPE  WERKS_D
*"     VALUE(IV_MATNR) TYPE  TEXT18 OPTIONAL
*"     VALUE(IV_MAKTX) TYPE  MAKTX OPTIONAL
*"     VALUE(IV_MAKT1) TYPE  ZE_MAKT1 OPTIONAL
*"  EXPORTING
*"     VALUE(EV_MSGTY) TYPE  BAPI_MTYPE
*"     VALUE(EV_MESSAGE) TYPE  BAPI_MSG
*"  TABLES
*"      ET_OUTPUT STRUCTURE  ZSMMIP013
*"----------------------------------------------------------------------
TYPES: BEGIN OF ty_data.
    INCLUDE TYPE ZSMMIP013.
TYPES: END OF ty_data.

DATA: v_tabix TYPE sy-tabix,
      p_in TYPE mara-matnr,
      s_key1 TYPE string,
      s_key2 TYPE string,
      s_key3 TYPE string,
      lv_where TYPE string.

DATA: gt_data TYPE TABLE OF ty_data,
      wa_data TYPE ty_data,
      wa_out TYPE ty_data.

 CONCATENATE lv_where '( mara~mtart = ''AH01''' 'OR' INTO lv_where SEPARATED BY space.
 CONCATENATE lv_where ' mara~mtart = ''AH02''' 'OR' INTO lv_where SEPARATED BY space.
 CONCATENATE lv_where ' mara~mtart = ''AH03'')' 'AND' INTO lv_where SEPARATED BY space.
  IF iv_matnr IS NOT INITIAL.
*Material code add leading zero
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = IV_MATNR
    IMPORTING
     output = IV_MATNR.
    CONCATENATE '%' iv_matnr '%' INTO s_key1.
    CONCATENATE lv_where 'mara~matnr LIKE s_key1' 'AND' INTO lv_where SEPARATED BY space.
   " CONCATENATE lv_where 'mara~matnr LIKE s_key2)' 'AND' INTO lv_where SEPARATED BY space.
  ENDIF.

IF iv_maktx IS NOT INITIAL.
    CONCATENATE '%' iv_maktx '%' INTO s_key2.
    CONCATENATE lv_where 'makt~maktx LIKE s_key2 ' 'AND' INTO lv_where SEPARATED BY space.
  ENDIF.

IF iv_makt1 IS NOT INITIAL.
    CONCATENATE '%' iv_makt1 '%' INTO s_key3.
    CONCATENATE lv_where 'ztmm0001~makt1 LIKE s_key3 ' 'AND' INTO lv_where SEPARATED BY space.
  ENDIF.

IF iv_werks IS NOT INITIAL.
    CONCATENATE lv_where 'marc~werks = iv_werks ' 'AND' INTO lv_where SEPARATED BY space.
    ELSE.
       ev_msgty = 'w'.
       ev_message = '请输入查询工厂'.
    RETURN.
  ENDIF.

 IF lv_where IS NOT INITIAL.
    SHIFT lv_where RIGHT DELETING TRAILING 'AND'.  "Delete last AND
  ENDIF.

SELECT mara~matnr "Material Number
       makt~maktx "Description
       ztmm0001~makt1 "Long Descruption
      INTO CORRESPONDING FIELDS OF TABLE gt_data
      FROM mara
    JOIN makt ON  mara~matnr =  makt~matnr
   JOIN marc ON  mara~matnr =  marc~matnr
   JOIN ztmm0001 ON mara~matnr = ztmm0001~matnr
 WHERE (lv_where) .

*Material code add leading zero
 LOOP AT gt_data INTO wa_data.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
    EXPORTING
      input  = wa_data-matnr
    IMPORTING
      output = p_in.
      wa_out-matnr = p_in.
      wa_out-bukrs = iv_werks.
      wa_out-maktx = wa_data-maktx.
      wa_out-makt1 = wa_data-makt1.
      APPEND  wa_out  TO et_output.
      CLEAR p_in.
    ENDLOOP.

  SORT et_output BY matnr.
    IF sy-subrc = 0.
    ev_msgty = 'S'.
    ev_message = 'Search successfully'.
  ELSE.
    ev_msgty = 'E'.
    ev_message = 'No data'.
    RETURN.
  ENDIF.

ENDFUNCTION.

13. Query Purchase Order Contract Number

FUNCTION zfiip022.
*"----------------------------------------------------------------------
*"*"Local Interface
*"  IMPORTING
*"     VALUE(IV_EBELN) TYPE  EBELN
*"  EXPORTING
*"     VALUE(EV_MSGTY) TYPE  BAPI_MTYPE
*"     VALUE(EV_MESSAGE) TYPE  BAPI_MSG
*"     VALUE(EV_TXT) TYPE  CHAR100
*"----------------------------------------------------------------------
  DATA: BEGIN OF t_lines OCCURS 50.
      INCLUDE STRUCTURE tline.
  DATA: END OF t_lines.

  DATA: BEGIN OF htext.
      INCLUDE STRUCTURE thead.
  DATA: END OF htext.

  DATA: tname LIKE thead-tdname.
  DATA: s_line(100) TYPE c.


  tname = iv_ebeln.
  s_line = ''.
  CLEAR t_lines.
  REFRESH t_lines.

*-- Purchase Header
  CALL FUNCTION 'READ_TEXT'
    EXPORTING
      client                  = sy-mandt
      id                      = 'F01'
      language                = '1'
      name                    = tname
      object                  = 'EKKO'
      archive_handle          = 0
    IMPORTING
      header                  = htext
    TABLES
      lines                   = t_lines
    EXCEPTIONS
      id                      = 1
      language                = 2
      name                    = 3
      not_found               = 4
      object                  = 5
      reference_check         = 6
      wrong_access_to_archive = 7
      OTHERS                  = 8.

  IF sy-subrc = 0.
    LOOP AT t_lines.
      IF t_lines-tdline NE ''.
        CONCATENATE s_line t_lines-tdline INTO s_line.
      ENDIF.
    ENDLOOP.
  ENDIF.

 REPLACE ALL OCCURRENCES OF REGEX '\/.*\/' IN s_line WITH ''.
  ev_txt = s_line.

  IF ev_txt IS NOT INITIAL.
    ev_msgty = 'S'.
  ELSE.
    ev_msgty = 'E'.
    ev_message = 'No Data'.
    RETURN.
  ENDIF.
ENDFUNCTION.

14. Receipt of fixed assets

FUNCTION zfiip023.
*"----------------------------------------------------------------------
*"*"Local Interface
*"  EXPORTING
*"     VALUE(EV_MSGTY) TYPE  BAPI_MTYPE
*"     VALUE(EV_MESSAGE) TYPE  BAPI_MSG
*"  TABLES
*"      IT_INPUT STRUCTURE  ZSFIIP021
*"----------------------------------------------------------------------

  DATA: mat_doc LIKE bapi2017_gm_head_ret-mat_doc.      "materialdocument No.
  DATA: gmhead LIKE bapi2017_gm_head_01.
  DATA: BEGIN OF mthead.
      INCLUDE STRUCTURE bapi2017_gm_head_ret.
  DATA: END OF mthead.

  DATA: BEGIN OF errmsg OCCURS 0.
      INCLUDE STRUCTURE bapiret2.
  DATA: END OF errmsg.
  DATA: BEGIN OF gmcode.
      INCLUDE STRUCTURE bapi2017_gm_code.
  DATA: END OF gmcode.

  DATA: BEGIN OF itab_bapi OCCURS 0.
      INCLUDE STRUCTURE bapi2017_gm_item_create.
  DATA: END OF itab_bapi.
  DATA: wa_input LIKE zsfiip021.

  gmcode-gm_code = '01'.                           "Move Type 101

  gmhead-pstng_date = sy-datum.                     "Voucher posting date
  gmhead-doc_date   = sy-datum.                     "Voucher document date
  gmhead-pr_uname   = sy-uname.
*  gmhead-ref_doc_no = it_tab-ref_doc_no.           "Reference Document No.
*  gmhead-header_txt = it_tab-header_txt.           "Header text

  LOOP AT it_input INTO wa_input.
    itab_bapi-po_number            = wa_input-ebeln           .   "PO
    itab_bapi-po_item              = wa_input-ebelp             .   "PO ITEM
*    itab_bapi-plant                = wa_input-plant               .   "Plant
*    itab_bapi-stge_loc             = wa_input-stge_lL            .   "Material
* itab_bapi-material             = lv_po_matnr oc            .   "Inventory Location
*    ITAB_BAPI-MATERIAL             = wa_input-MATERIA               .   "PO No.
    itab_bapi-entry_qnt            = wa_input-MENGE          .   "Qnt
*    itab_bapi-entry_uom            = wa_input-entry_uom           .   "UoM
    itab_bapi-move_type            = '101'                      .   "Move Type
*  itab_bapi-item_text            = it_tab-item_text           .   "Item Text

    IF gmcode-gm_code   = '01'.     "Purchase Order Arrive
      itab_bapi-mvt_ind            = 'B'.
    ENDIF.

    APPEND itab_bapi.
  ENDLOOP.

  CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      goodsmvt_header  = gmhead
      goodsmvt_code    = gmcode
*     TESTRUN          = ' '
*     GOODSMVT_REF_EWM =
    IMPORTING
      goodsmvt_headret = mthead
      materialdocument = mat_doc                      "Material document No. which should get by BAPI_TRANSACTION_COMMIT
*     MATDOCUMENTYEAR  =
    TABLES
      goodsmvt_item    = itab_bapi                    "Key table, required
*     GOODSMVT_SERIALNUMBER         =
      return           = errmsg                       "Error mesage
*     GOODSMVT_SERV_PART_DATA       =
*     EXTENSIONIN      =
    .
  READ TABLE errmsg WITH KEY type = 'E'.
  IF  sy-subrc = 0.
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' .

    ev_msgty = 'E'.
    ev_message = errmsg-message.

  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
    ev_msgty = 'S'.
    CONCATENATE 'Voucher generated successfully, voucher No.: ' mat_doc INTO ev_message.
  ENDIF.
ENDFUNCTION.

15. Query Fix Asset Card Information

FUNCTION zfiip026.
*"----------------------------------------------------------------------
*"*"Local Interface
*"  EXPORTING
*"     VALUE(EV_MSGTY) TYPE  BAPI_MTYPE
*"     VALUE(EV_MESSAGE) TYPE  BAPI_MSG
*"  TABLES
*"      ET_OUTPUT STRUCTURE  ZSFIIP026
*"----------------------------------------------------------------------

***  Using period(Month) = ANLB-NDJAR (Planned useful life in years) * 12 + ANLB-NDPER(Planned useful life in periods);
***  Orginization value: anep~anbtr Amount Posted
  TYPES: BEGIN OF ty_data.
      INCLUDE TYPE zsfiip026.
  TYPES: ndjar TYPE anlb-ndjar,
         anln2 TYPE anla-anln2,
         deakt TYPE anla-deakt,
         ndper TYPE anlb-ndper,
         anbtr TYPE anep-anbtr,
         ljzi  TYPE answl,
         kansw TYPE anlc-kansw,
         knafa TYPE anlc-knafa,
         zusna TYPE anlc-zusna,
         nafav TYPE anlc-kansw,
         nafal TYPE anlc-nafal,
         nafaz TYPE anlp-nafaz,
         END OF ty_data.
  TYPES:BEGIN OF ty_cskt,
          kostl TYPE cskt-kostl,
          ktext TYPE cskt-ktext,
        END OF ty_cskt.
  DATA: gt_cskt TYPE TABLE OF ty_cskt,
        wa_cskt TYPE ty_cskt.
  DATA: lt_data TYPE TABLE OF ty_data.
  DATA: wa_data TYPE ty_data.
  DATA: wa_data_line TYPE zsfiip026.

  DATA: p_monat LIKE isellist-month.
  p_monat =  sy-datum+0(6).
  "Check accumulative depreciation increase in fiscal year
  DATA:ldf_gjahr TYPE i.
  ldf_gjahr = sy-datum+0(4).
  RANGES: r_budat FOR bkpf-budat.
  CONCATENATE p_monat '01' INTO r_budat-low.
  IF p_monat+4(2) = '12'.
    CONCATENATE p_monat '31' INTO r_budat-high.
  ELSE.
    r_budat-high+0(6) = r_budat-low+0(6) + 1.
    r_budat-high+6(2) = '01'.
    r_budat-high = r_budat-high - 1.
  ENDIF.

  SELECT
    anla~deakt,
    anla~anln1,
    anla~txt50,
    anla~bukrs,
    anla~txa50,
    anla~herst,
    anla~ktogr,
    anla~aktiv,
    anla~invzu,
    anlz~kostl,
    anlb~ndjar,
    anlb~ndper,
    t095t~ktgrtx
    FROM anla
    INNER JOIN anlz ON anlz~anln1 = anla~anln1 AND
     anlz~anln2 = anla~anln2
    AND anlz~bukrs = anla~bukrs
    INNER JOIN anlb ON anlb~anln1 = anla~anln1 AND anlb~anln2 = anla~anln2 AND anlb~bukrs = anla~bukrs AND anlb~afabe = '01'
    INNER JOIN anlc ON anlc~bukrs = anla~bukrs AND
                       anlc~anln1 = anla~anln1 AND
                       anlc~anln2 = anla~anln2
    INNER JOIN anlh ON anlh~bukrs = anla~bukrs AND anlh~anln1 = anla~anln1
    INNER JOIN t095t ON t095t~ktogr = anla~ktogr
    AND t095t~spras = @sy-langu
    INTO CORRESPONDING FIELDS OF TABLE @lt_data
    WHERE ( anla~deakt = '00000000' OR anla~deakt > @r_budat-high ) "Active or scrapped during the inquiry period
      AND   anlc~afabe = '01' AND anlc~gjahr = @p_monat+0(4)
    AND  ( anlz~bdatu >= @r_budat-high AND anlz~adatu <= @r_budat-high ).

  SELECT kostl
         ktext
    FROM cskt
    INTO CORRESPONDING FIELDS OF TABLE gt_cskt
   WHERE kokrs = '1000'
     AND spras = sy-langu.
  SORT gt_cskt BY kostl.

  LOOP AT lt_data INTO wa_data.
    CLEAR wa_data_line.

    IF wa_data-kostl IS NOT INITIAL.
      READ TABLE gt_cskt INTO wa_cskt WITH KEY kostl = wa_data-kostl BINARY SEARCH.
      IF sy-subrc = 0.
        wa_data-ktext = wa_cskt-ktext.
      ENDIF.
    ENDIF.
    wa_data-synxy = wa_data-ndjar * 12 + wa_data-ndper.

    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        input  = wa_data-anln1
      IMPORTING
        output = wa_data-anln1.

    MOVE-CORRESPONDING wa_data TO wa_data_line.
    APPEND wa_data_line TO et_output[].

  ENDLOOP.
  IF et_output[] IS NOT INITIAL.
    ev_msgty = 'S'.
  ELSE.
    ev_msgty = 'E'.
    ev_message = 'No data'.
    RETURN.
  ENDIF.
ENDFUNCTION.

16. Query fixed Asset Details

FUNCTION zfiip027.
*"----------------------------------------------------------------------
*"*"Local Interface
*"  IMPORTING
*"     VALUE(IV_BUKRS) TYPE  BUKRS
*"     VALUE(IV_ANLN1) TYPE  ANLN1
*"  EXPORTING
*"     VALUE(EV_MSGTY) TYPE  BAPI_MTYPE
*"     VALUE(EV_MESSAGE) TYPE  BAPI_MSG
*"  TABLES
*"      ET_OUTPUT STRUCTURE  ZSFIIP027
*"----------------------------------------------------------------------
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = IV_ANLN1
    IMPORTING
      output = IV_ANLN1.


  TYPES: BEGIN OF ty_itab,
           flag(1).
      INCLUDE TYPE anla.
  TYPES: kostl   LIKE anlz-kostl,
         ltext   LIKE cskt-ltext,
         gsber   LIKE anlz-gsber,
         stort   LIKE anlz-stort,
         raumn   LIKE anlz-raumn,
         xstil   LIKE anlz-xstil,
         anlhtxt LIKE anlh-anlhtxt,
         afasl   LIKE anlb-afasl,
         ndjar   LIKE anlb-ndjar,
         ndper   LIKE anlb-ndper,
         afabg   LIKE anlb-afabg,
         schrw   LIKE anlb-schrw,
         ndabj   LIKE anlc-ndabj,
         ndabp   LIKE anlc-ndabp,
         kansw   LIKE anlc-kansw,
         kaufw   LIKE anlc-kaufw,
         aufwv   LIKE anea-aufwv,
         nafav   LIKE anea-nafav,
         nafal   LIKE anea-nafal,
         knafa   LIKE anlc-knafa,
         nafap   LIKE anlc-nafap,
         answl   LIKE anlc-answl,
         zcyz    LIKE anlc-answl,  "Asset orignial value
         ljzj    LIKE anlc-answl,  "Accumulated depreciation
         dyzj    LIKE anlc-answl,  "Depreciation of the month
         adatu   LIKE anlz-adatu,
         ordt1   LIKE t087t-ordtx,
         ordt2   LIKE t087t-ordtx,
         ordt3   LIKE t087t-ordtx,
         ordt4   LIKE t087t-ordtx,
         zjz     LIKE anlc-answl,   "Valye 20131016
         name1   LIKE lfa1-name1,   "Supplier 20140818

         kostlv  LIKE anlz-kostlv, "Cost center responsible for asset
         ktext1  LIKE cskt-ktext, "General Name
         caufn   LIKE anlz-caufn, "Internal Order
         ktext2  LIKE aufk-ktext, "Internal Order Description
         werks   LIKE anlz-werks, "Plant
         name2   LIKE t001w-name1, "Plant Description
         synxy   TYPE char4, "Service life (months)
         jtzjyf  TYPE char4, "Accounting period
         sykjqx  TYPE char4, "Remaining accounting period
         ahproz  TYPE ahproz, "Cutoff percentage rate
         txk50   TYPE txt50_ankt, "Asset class description
         END OF ty_itab.
  TYPES: BEGIN OF ty_itab1,
           bukrs LIKE anla-bukrs,
           anln1 LIKE anla-anln1,
           anln2 LIKE anla-anln2,         "Added by Vincent on 20141027
         END OF ty_itab1.
                                                            "20140818
  TYPES:BEGIN OF ty_lfa1 ,
          lifnr TYPE lfa1-lifnr,
          name1 TYPE lfa1-name1,
        END OF ty_lfa1.

  TYPES:BEGIN OF ty_cskt,
          kostl TYPE cskt-kostl,
          ktext TYPE cskt-ktext,
        END OF ty_cskt.

  TYPES:BEGIN OF ty_aufk,
          aufnr TYPE aufk-aufnr,
          ktext TYPE aufk-ktext,
        END OF ty_aufk.

  TYPES:BEGIN OF ty_t001w,
          werks TYPE t001w-werks,
          name1 TYPE t001w-name1,
        END OF ty_t001w.

  TYPES: BEGIN OF ty_zcyz,
           bukrs LIKE anla-bukrs,
           anln1 LIKE anla-anln1,
           anln2 LIKE anla-anln2,
           lnran TYPE lnran,
           anbtr TYPE p DECIMALS 2,
         END OF ty_zcyz.

  TYPES: BEGIN OF ty_aufwv,
           bukrs LIKE anla-bukrs,
           anln1 LIKE anla-anln1,
           anln2 LIKE anla-anln2,
           lnran TYPE lnran,
           aufwv TYPE p DECIMALS 2,
         END OF ty_aufwv.
  TYPES: BEGIN OF ty_nafa,
           bukrs LIKE anla-bukrs,
           anln1 LIKE anla-anln1,
           anln2 LIKE anla-anln2,
           lnran TYPE lnran,
           nafav TYPE p DECIMALS 2,
           nafal TYPE p DECIMALS 2,
         END OF ty_nafa.
  TYPES: BEGIN OF ty_qczjyf.
      INCLUDE TYPE ztfi001.
  TYPES:
    count TYPE i,
    END OF ty_qczjyf.
*------------------------------------------------------------*
* DESC:Define related internal table/STRUCTURE               *
*------------------------------------------------------------*
  DATA: wa_data_line TYPE zsfiip027.
  DATA: gt_t001w TYPE TABLE OF ty_t001w,
        wa_t001w TYPE ty_t001w.
  DATA: gt_aufk TYPE TABLE OF ty_aufk,
        wa_aufk TYPE ty_aufk.
  DATA: gt_cskt TYPE TABLE OF ty_cskt,
        wa_cskt TYPE ty_cskt.
  DATA: gt_zcyz      TYPE TABLE OF ty_zcyz,
        gt_zcyz_tmp  TYPE TABLE OF ty_zcyz,
        wa_zcyz      TYPE ty_zcyz,
        gt_aufwv     TYPE TABLE OF ty_aufwv,
        gt_aufwv_tmp TYPE TABLE OF ty_aufwv,
        wa_aufwv     TYPE ty_aufwv,
        gt_nafa      TYPE TABLE OF ty_nafa,
        gt_nafa_tmp  TYPE TABLE OF ty_nafa,
        wa_nafa      TYPE ty_nafa.
  DATA: gt_bkpf      LIKE bkpf OCCURS 0 WITH HEADER LINE,
        gt_bseg      LIKE bseg OCCURS 0 WITH HEADER LINE,
        gt_itab_bseg LIKE bseg OCCURS 0 WITH HEADER LINE. "zbseg
  DATA: gt_itab  TYPE TABLE OF ty_itab,
        wa_itab  TYPE ty_itab,
        gt_itab1 TYPE TABLE OF ty_itab1,
        wa_itab1 TYPE ty_itab1,
        gt_ankt  TYPE TABLE OF ankt WITH HEADER LINE,
        gt_lfa1  TYPE TABLE OF ty_lfa1,
        wa_lfa1  TYPE ty_lfa1.
  DATA: gt_post LIKE fiaa_dpost OCCURS 0 WITH HEADER LINE,
        gt_anla LIKE anla       OCCURS 0 WITH HEADER LINE,
        gt_anlb LIKE anlb       OCCURS 0 WITH HEADER LINE,
        gt_anlc LIKE anlc       OCCURS 0 WITH HEADER LINE,
        gt_anep LIKE anep       OCCURS 0 WITH HEADER LINE,
        gt_anea LIKE anea       OCCURS 0 WITH HEADER LINE,
        gt_anek LIKE anek       OCCURS 0 WITH HEADER LINE,
        gt_anlp LIKE anlp       OCCURS 0 WITH HEADER LINE.
  DATA: gt_qczjyf TYPE TABLE OF ty_qczjyf WITH HEADER LINE."Month of depreciation accrued at the beginning of the period
  DATA: gt_xtzjyf TYPE TABLE OF ty_qczjyf WITH HEADER LINE."SAP accrued depreciation month

* ABOUT ALV
  DATA: wa_fieldcat TYPE slis_fieldcat_alv.
  DATA: gt_fieldcat TYPE slis_t_fieldcat_alv.
  DATA: gs_layout TYPE slis_layout_alv.
  DATA: gt_list_top_of_page TYPE slis_t_listheader.
  DATA: gt_events TYPE slis_t_event,
        g_status  TYPE slis_formname VALUE 'STANDARD_ER01',
        g_comand  TYPE slis_formname VALUE 'USER_COMMAND'.
  CONSTANTS: c_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
  DATA: gt_sort TYPE slis_t_sortinfo_alv.
  DATA: wa_sort TYPE slis_sortinfo_alv.
  DATA: gt_t087t TYPE TABLE OF t087t,
        wa_t087t TYPE t087t.
  RANGES: r_budat FOR bkpf-budat.

  DATA:p_monat TYPE sy-datum.
  p_monat = sy-datum+0(6).

  DATA: wa_anla    LIKE anla,
        lt_post    LIKE fiaa_dpost OCCURS 0 WITH HEADER LINE,
        lt_anlb    LIKE anlb       OCCURS 0 WITH HEADER LINE,
        lt_anlc    LIKE anlc       OCCURS 0 WITH HEADER LINE,
        lt_anep    LIKE anep       OCCURS 0 WITH HEADER LINE,
        lt_anea    LIKE anea       OCCURS 0 WITH HEADER LINE,
        lt_anek    LIKE anek       OCCURS 0 WITH HEADER LINE,
        lt_anlp    LIKE anlp       OCCURS 0 WITH HEADER LINE,
        l_maxmonth LIKE anlp-peraf.
  DATA: lt_anea2 LIKE anea OCCURS 0 WITH HEADER LINE.
  DATA: l_index TYPE i.

  "Check Accumulated depreciation increases of the fiscal year
  DATA:ldf_gjahr TYPE i.

  ldf_gjahr = p_monat+0(4).
  "End
  CONCATENATE p_monat '01' INTO r_budat-low.
  IF p_monat+4(2) = '12'.
    CONCATENATE p_monat '31' INTO r_budat-high.
  ELSE.
    r_budat-high+0(6) = r_budat-low+0(6) + 1.
    r_budat-high+6(2) = '01'.
    r_budat-high = r_budat-high - 1.
  ENDIF.
  r_budat-sign = 'I'.
  r_budat-option = 'BT'.
  APPEND r_budat.

  SELECT anla~anln1 anla~anln2 anla~ktogr anla~sernr anla~invnr anla~anlkl anla~txt50 anla~txa50 anla~menge anla~meins
          anla~ivdat anla~invzu anla~aktiv anla~ord41 anla~ord42 anla~ord43 anla~ord44 anla~gdlgrp
          anla~herst anla~eaufn anla~liefe anla~lifnr anlz~kostl anlz~stort anlz~raumn anlz~xstil anlh~anlhtxt anlb~afasl
          anlb~ndjar anlb~ndper anlb~afabg anlb~schrw anlc~ndabj anlc~ndabp anlc~kansw anlc~kaufw
          anlc~knafa anlc~nafap anlc~answl anla~bukrs anlz~adatu anlz~gsber anlz~kostlv anlz~caufn anlz~werks
          anla~aibn1
     FROM anla
     INNER JOIN anlb ON anlb~bukrs = anla~bukrs AND
                        anlb~anln1 = anla~anln1 AND
                        anlb~anln2 = anla~anln2
     INNER JOIN anlc ON anlc~bukrs = anla~bukrs AND
                        anlc~anln1 = anla~anln1 AND
                        anlc~anln2 = anla~anln2
     INNER JOIN anlh ON anlh~bukrs = anla~bukrs AND
                        anlh~anln1 = anla~anln1
     INNER JOIN anlz ON anlz~bukrs = anla~bukrs AND
                        anlz~anln1 = anla~anln1 AND
                        anlz~anln2 = anla~anln2

     INTO CORRESPONDING FIELDS OF TABLE gt_itab
   WHERE anla~bukrs = iv_bukrs AND
         anla~anln1 = iv_anln1 AND
*         anla~anln2 IN s_anln2 AND
*         anla~anlkl IN s_anlkl AND
*         anla~aktiv IN s_aktiv AND
*         anlh~anlhtxt IN s_anlht AND
         anlb~afabe = '01' AND
         anlc~afabe = '01' AND
         anlc~gjahr = p_monat+0(4) AND
         anlz~adatu <= r_budat-high AND
*         anlz~kostl IN s_kostl      AND
*         anla~invnr IN s_invnr AND
*         anlz~caufn IN s_caufn AND
         ( anla~deakt = '00000000' OR anla~deakt > r_budat-high ) AND"Active or scrapped during the inquiry period
         ( anlz~bdatu >= r_budat-high AND anlz~adatu <= r_budat-high ).

*    PERFORM frm_get_lfa1.

*  Get the month of depreciation as of December 2018 as the month of depreciation at the beginning of the period
*    SELECT bukrs anln1 anln2 afaber peraf
*      FROM ztfi001
*      INTO CORRESPONDING FIELDS OF TABLE gt_qczjyf
*      WHERE bukrs = p_bukrs AND
*            anln1 IN s_anln1 AND
*            anln2 IN s_anln2 AND
*            afaber = '01'.
*  In the table ANLP, the read serial number (AFBNR) has a value, and the depreciation range (AFABER) is recorded as 01, which counts all the depreciation periods of the asset
  SELECT bukrs anln1 anln2 afaber COUNT( DISTINCT peraf ) AS count
    FROM anlp
    INTO CORRESPONDING FIELDS OF TABLE gt_xtzjyf
    WHERE bukrs = iv_bukrs AND
          ( gjahr < p_monat(4) OR ( gjahr = p_monat(4) AND peraf <= p_monat+4(2) ) ) AND
          anln1 = iv_anln1 AND
*              anln2 IN s_anln2 AND
          afbnr <> '00' AND
          afaber = '01'
    GROUP BY bukrs anln1 anln2 afaber.

  LOOP AT gt_itab INTO wa_itab.
    l_index = sy-tabix.
    wa_itab1-bukrs = wa_itab-bukrs.
    wa_itab1-anln1 = wa_itab-anln1.
    wa_itab1-anln2 = wa_itab-anln2.
    COLLECT wa_itab1 INTO  gt_itab1.
    READ TABLE gt_lfa1 INTO wa_lfa1 WITH  KEY lifnr = wa_itab-lifnr.
    IF sy-subrc = 0.
      wa_itab-name1 = wa_lfa1-name1.
      MODIFY gt_itab FROM wa_itab INDEX l_index.
    ENDIF.
    CLEAR: wa_itab,wa_itab1,wa_lfa1.
  ENDLOOP.
  SORT gt_itab BY anln1 ASCENDING adatu DESCENDING.
  LOOP AT gt_itab INTO wa_itab.
    l_index = sy-tabix.
    READ TABLE gt_itab1 INTO wa_itab1 WITH KEY bukrs = wa_itab-bukrs
                              anln1 = wa_itab-anln1
                              anln2 = wa_itab-anln2.
    IF sy-subrc = 0.
      DELETE gt_itab1 WHERE bukrs = wa_itab-bukrs AND
                         anln1 = wa_itab-anln1 AND
                         anln2 = wa_itab-anln2.
    ELSE.
      DELETE gt_itab INDEX l_index.
    ENDIF.
    CLEAR: wa_itab,wa_itab1.
  ENDLOOP.

***Monthly original value of fixed assets
  CLEAR gt_itab1.
  MOVE-CORRESPONDING gt_itab TO gt_itab1.
  SORT gt_itab1 BY bukrs anln1 anln2.
  DELETE ADJACENT DUPLICATES FROM gt_itab1 COMPARING bukrs anln1 anln2.

  IF gt_itab1 IS NOT INITIAL.
    SELECT anep~bukrs anep~anln1 anep~anln2 anek~lnran anep~anbtr
      FROM anep
      INNER JOIN anek ON anek~bukrs = anep~bukrs AND
                         anek~anln1 = anep~anln1 AND
                         anek~gjahr = anep~gjahr AND
                         anek~lnran = anep~lnran
     INTO TABLE gt_zcyz_tmp
      FOR ALL ENTRIES IN gt_itab1
   WHERE anep~bukrs = gt_itab1-bukrs AND
         anep~anln1 = gt_itab1-anln1 AND
         anep~anln2 = gt_itab1-anln2 AND
         anep~gjahr = p_monat+0(4) AND
         anep~afabe = '01' AND

         anek~budat <= r_budat-high.
    LOOP AT gt_zcyz_tmp INTO wa_zcyz.
      CLEAR wa_zcyz-lnran.
      COLLECT wa_zcyz INTO gt_zcyz.
    ENDLOOP.
    DATA: l_lines(10),
          l_tabix(10),
          l_pecnt     TYPE p LENGTH 6 DECIMALS 2,
          l_pecet(6),
          l_text(40).
    SELECT *
      FROM anlc
      INTO TABLE gt_anlc
      FOR ALL ENTRIES IN gt_itab1
    WHERE bukrs = iv_bukrs AND
          anln1 = gt_itab1-anln1 AND
          anln2 = gt_itab1-anln2 AND
          gjahr = ldf_gjahr.
  ENDIF.

  SORT gt_itab1 BY bukrs anln1.
  DELETE ADJACENT DUPLICATES FROM gt_itab1 COMPARING bukrs anln1.

  IF gt_itab1 IS NOT INITIAL.
    SELECT *
      INTO CORRESPONDING FIELDS OF TABLE gt_anlp
      FROM anlp
      FOR ALL ENTRIES IN gt_itab1
     WHERE bukrs = iv_bukrs
      AND  gjahr = p_monat+0(4)
      AND  afaber = '1'
      AND  anln1 = gt_itab1-anln1
      AND  peraf <= p_monat+4(2).
    SORT gt_nafa BY bukrs anln1.
  ENDIF.
  LOOP AT gt_itab INTO wa_itab.
    l_tabix = sy-tabix.
***Monthly original value of fixed assets
    CLEAR: wa_itab-zcyz.

    READ TABLE gt_zcyz INTO wa_zcyz WITH KEY bukrs = wa_itab-bukrs
                                             anln1 = wa_itab-anln1
                                             anln2 = wa_itab-anln2.
    IF sy-subrc = 0.
      wa_itab-zcyz = wa_zcyz-anbtr.
    ENDIF.
    wa_itab-zcyz = wa_itab-zcyz + wa_itab-kansw.

***Cumulative depreciation of fixed assets
    lt_anlc[] = gt_anlc[].
    DELETE lt_anlc WHERE NOT ( anln1 = wa_itab-anln1 AND anln2 = wa_itab-anln2 ) .

    READ TABLE gt_nafa INTO wa_nafa WITH KEY bukrs = wa_itab-bukrs anln1 = wa_itab-anln1 BINARY SEARCH.
    IF sy-subrc = 0.
      wa_itab-nafal = wa_nafa-nafal.
      wa_itab-nafav = wa_nafa-nafav.
    ENDIF.

*    Accumulated depreciation at the beginning of the year
    LOOP AT lt_anlc WHERE afabe = '01'.
      wa_itab-ljzj = lt_anlc-knafa "+ LT_anlc-nafap
                + wa_itab-ljzj + lt_anlc-zusna + lt_anlc-nafav + lt_anlc-nafal.
    ENDLOOP.

*   Accumulated depreciation for this year until the current period
    lt_anlp[] = gt_anlp[].
    DELETE lt_anlp WHERE NOT anln1 = wa_itab-anln1.
    LOOP AT lt_anlp.
      wa_itab-ljzj = wa_itab-ljzj + lt_anlp-nafaz.
    ENDLOOP.

***Using period(Month) = ANLB-NDJAR (Planned useful life in years) * 12 + ANLB-NDPER(Planned useful life in periods);
    wa_itab-synxy = wa_itab-ndjar * 12 + wa_itab-ndper.

    wa_itab-zjz = wa_itab-zcyz + wa_itab-ljzj. "Net value = original value of assets-accumulated depreciation

    MOVE-CORRESPONDING wa_itab TO wa_data_line.
    APPEND wa_data_line TO et_output[].

  ENDLOOP.

    IF et_output[] IS NOT INITIAL.
    ev_msgty = 'S'.
    ev_message = 'Query successfully'.
  ELSE.
    ev_msgty = 'E'.
    ev_message = 'No data'.
    RETURN.
  ENDIF.
ENDFUNCTION.

17. Asset Retirement

FUNCTION zfiip029.
*"----------------------------------------------------------------------
*"*"Local Interface
*"  EXPORTING
*"     VALUE(EV_MSGTY) TYPE  BAPI_MTYPE
*"     VALUE(EV_MESSAGE) TYPE  BAPI_MSG
*"  TABLES
*"      IT_INPUT STRUCTURE  ZSFIIP029
*"----------------------------------------------------------------------

  DATA: flag TYPE char1.
  DATA: wa_input TYPE zsfiip029.
  flag = 'Y'.

  DATA: wa_invzu  TYPE bapi1022_feglg011,
        wa_invzux TYPE bapi1022_feglg011x,
        wa_kostl  TYPE bapi1022_feglg003,
        wa_kostlx TYPE bapi1022_feglg003x,
        wa_ret    TYPE bapiret2.


  LOOP AT it_input[] INTO wa_input.

    CLEAR: wa_invzu, wa_invzux, wa_kostl, wa_kostlx.

    IF wa_input-invzu IS NOT INITIAL.
      wa_invzu-note = wa_input-invzu.
      wa_invzux-note = 'X'.
    ENDIF.

    IF wa_input-kostl IS NOT INITIAL.
      wa_kostl-costcenter = wa_input-kostl.
      wa_kostlx-costcenter = 'X'.
      wa_kostl-from_date = sy-datum.
      wa_kostlx-from_date = 'X'.
      IF wa_input-werks IS NOT INITIAL.
        wa_kostl-plant = wa_input-werks.
        wa_kostlx-plant = 'X'.
      ELSE.
        wa_kostl-plant = ''.
        wa_kostlx-plant = 'X'.
      ENDIF.


    ENDIF.

    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input  = wa_input-anln1
      IMPORTING
        output = wa_input-anln1.

    CALL FUNCTION 'BAPI_FIXEDASSET_CHANGE'
      EXPORTING
        companycode        = wa_input-bukrs
        asset              = wa_input-anln1
        subnumber          = '0000'
        inventory          = wa_invzu
        inventoryx         = wa_invzux
        timedependentdatax = wa_kostlx
        timedependentdata  = wa_kostl
      IMPORTING
        return             = wa_ret.

    IF  wa_ret-type = 'S'.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.
      CONCATENATE ev_message wa_ret-message ';' INTO ev_message SEPARATED BY space.
    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
      flag = 'E'.
      CONCATENATE ev_message wa_ret-message ';' INTO ev_message SEPARATED BY space.
    ENDIF.

  ENDLOOP.
  IF flag = 'Y'.
    ev_msgty = 'S'.
  ELSE.
    ev_msgty = 'E'.
  ENDIF.
ENDFUNCTION.