MD04 differentiate Shipping Notification for AB/LS

Change MRP element data only for MRP element ShpgNt(LA), To differentiate text of Shipping Notification for inbound and PO confirmation

 Enhance
INCLUDE: MM61RO10_MODIFY_SCR_ELEMENTS







 

  TABLES: EKES.

  DATA: EXTRA like MDEZX-EXTRA.

    LOOP AT MDEZX WHERE DELKZ = 'LA'.

     IF MDEZX-EXTRA+0(2) = 'LA' or  MDEZX-EXTRA+0(2) = 'AB' or MDEZX-EXTRA+0(2) = 'LS'. " do search LA and AB only once to imporve performance.

        EXIT.

     ELSE.

          READ TABLE MDPSX INDEX MDEZX-ALINE.

          SELECT SINGLE * FROM EKES

                          WHERE EBELN = MDPSX-DELNR

                            AND EBELP = MDPSX-DELPS

                            AND ETENS = MDPSX-DELET .

          IF SY-SUBRC = 0.

            EXTRA = MDEZX-EXTRA .

            CLEAR MDEZX-EXTRA.

            CASE EKES-EBTYP .

              WHEN 'LA'.

                 CONCATENATE EKES-EBTYP ':' EKES-VBELN '/' EKES-VBELP '/' EXTRA INTO MDEZX-EXTRA.

              WHEN 'AB' .

                 CONCATENATE EKES-EBTYP ':' EXTRA INTO MDEZX-EXTRA.

              WHEN OTHERS.

                 CONCATENATE EKES-EBTYP ':' EXTRA INTO MDEZX-EXTRA.

            ENDCASE.

            MODIFY MDEZX.

          ENDIF.

     ENDIF.

    ENDLOOP.

after enhance: