Re: Restrict overdelivery tolerance in PO to 10 % only

Hi

Solution for that issue is as below shown code......

METHOD IF_EX_ME_PROCESS_PO_CUST~PROCESS_ITEM.
*  BREAK-POINT.
   DATA : IS_HEAD TYPE REF TO IF_PURCHASE_ORDER_MM,
*       IT_H_DATA TYPE STANDARD TABLE OF MEPOHEADER,
          IS_H_DATA TYPE MEPOHEADER,
          LS_MEPOITEM TYPE MEPOITEM,
          L_DIFF(20)," type uebto,
          L_DIFF1 TYPE STRING.
   IF  ( SY-TCODE = 'ME21N' OR SY-TCODE = 'ME22N' ) . "AND SY-UCOMM = 'MESAVE' )
     IS_HEAD = IM_ITEM->GET_HEADER( ).
     IS_H_DATA = IS_HEAD->GET_DATA( ).
     LS_MEPOITEM = IM_ITEM->GET_DATA( ).
     IF ( IS_H_DATA-BSART = 'ZERM' OR IS_H_DATA-BSART = 'ZETR' OR IS_H_DATA-BSART = 'ZSRM' OR IS_H_DATA-BSART = 'ZFRM' OR IS_H_DATA-BSART = 'ZNRM' ).
       IF LS_MEPOITEM-UEBTO GT '10'.
         L_DIFF = LS_MEPOITEM-UEBTO - 10.
         CONCATENATE 'Over Delivery Tolerance exceeds by ' L_DIFF '%' 'in Line item' LS_MEPOITEM-EBELP INTO L_DIFF1 SEPARATED BY SPACE.
         MESSAGE L_DIFF1 TYPE 'E' DISPLAY LIKE 'W'.
       ENDIF.
     ENDIF.
   ENDIF.
ENDMETHOD.

Thanks ,

Vamsilakshman.p