Friday, March 16, 2018

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







 
  TABLESEKES.
  DATAEXTRA 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: