Exit/badi for Material group validation on service POs

Question

Hi Gurus,
The requirement is to put validation on 'MATERIAL GROUP' at item level as well as service sub line item level.I have used EXIT_SAPMM06E_017 for line level validation.
For service sub line level 'MATERIAL GROUP' i tried using EXIT_SAPLMLSP_030 but validation is not working properly as
EXIT_SAPLMLSP_030 is triggered before EXIT_SAPMM06E_017.
Kindly suggest any alternatives.
Thanks in advance
Deepika

Answer 1

Hi,
I had finally used BADI ME_PROCESS_PO_CUST method CHECK and PROCESS_ITEM for enjoy transactions i.e ME21N ME22N ME23N and written code in EXIT EXIT_SAPLMLSP_030 for service item validations.
IF sy-tcode = 'ME21N' OR sy-tcode = 'ME22N' OR sy-tcode = 'ME23N' OR sy-tcode = 'MASS' OR sy-tcode = 'ME29N'.
    DATA: wa_zmm_mat_grp TYPE zmm_mat_grp.
    EXPORT header_data-aedat FROM header_data-aedat TO MEMORY ID 'ZDAT24933'.
    EXPORT header_data-bsart FROM header_data-bsart TO MEMORY ID 'ZBRT24933'.
    IF header_data-aedat GE '20090810'.         " Material group mandatory appplicable date.
      IF ( header_data-bsart = 'SRV' OR header_data-bsart = 'SRVF' OR header_data-bsart = 'SRVI') AND ( header_data-bsart NE ' ')  AND
         ( re_data-loekz EQ 'S' OR re_data-loekz EQ ' ' ).
        SELECT SINGLE  *  FROM zmm_mat_grp INTO wa_zmm_mat_grp WHERE matkl = re_data-matkl AND
                                                                     bsart = header_data-bsart.
        IF sy-subrc NE 0.
          MESSAGE e005(ze1).
        ENDIF.
      ENDIF.
      IF header_data-bsart IS NOT INITIAL.
        IF ( header_data-bsart NE 'SRV') AND ( header_data-bsart NE 'SRVF') AND ( header_data-bsart NE 'SRVI') AND
           ( re_data-loekz EQ 'S' OR re_data-loekz EQ ' ' ).
          SELECT SINGLE  *  FROM zmm_mat_grp INTO wa_zmm_mat_grp WHERE matkl = re_data-matkl.
          IF sy-subrc EQ 0.
            MESSAGE e006(ze1).
          ENDIF.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDIF.
For service subline item following code:
DATA: wa_zmm_mat_grp TYPE zmm_mat_grp,
      v_bsart TYPE ekko-bsart,
      v_packno TYPE esll-packno,
      v_ebeln TYPE ekpo-ebeln,
      v_aedat TYPE ekko-aedat.
IF sy-tcode = 'ME21N' OR sy-tcode = 'ME22N' OR sy-tcode = 'ME23N' OR sy-tcode = 'MASS' OR sy-tcode = 'ME29N'.
  IF srv_esll-matkl IS NOT INITIAL.
    IMPORT header_data-bsart TO v_bsart FROM MEMORY ID 'ZBRT24933'.
    IMPORT header_data-aedat TO v_aedat FROM MEMORY ID 'ZDAT24933'.
    IMPORT re_data-bsart TO v_bsart FROM MEMORY ID 'ZBRT24933'.
    IMPORT re_data-aedat TO v_aedat FROM MEMORY ID 'ZDAT24933'.
    IF v_bsart IS INITIAL OR v_aedat IS INITIAL.
      SELECT SINGLE packno FROM esll INTO v_packno WHERE sub_packno = srv_esll-packno.
      IF sy-subrc EQ 0.
        SELECT SINGLE ebeln FROM ekpo INTO v_ebeln WHERE packno = v_packno.
        IF sy-subrc EQ 0.
          SELECT SINGLE bsart aedat FROM ekko INTO (v_bsart, v_aedat) WHERE ebeln = v_ebeln.
        ENDIF.
      ENDIF.
    ENDIF.
    IF v_aedat GE '20090810'.         " Material group mandatory appplicable date.
      IF ( v_bsart EQ 'SRV' ) OR ( v_bsart EQ 'SRVI' ) OR ( v_bsart EQ 'SRVF' ) AND ( v_bsart NE ' ' )
      AND srv_esll-del = ' '.
        SELECT SINGLE  *  FROM zmm_mat_grp INTO wa_zmm_mat_grp WHERE matkl = srv_esll-matkl AND
                                                                     bsart = v_bsart.
        IF sy-subrc NE 0.
          MESSAGE e005(ze1).
        ENDIF.
      ENDIF.
      IF ( v_bsart NE 'SRV' ) AND ( v_bsart NE 'SRVI' ) AND ( v_bsart NE 'SRVF' ) AND ( v_bsart NE ' ' )
      AND ( srv_esll-del = ' ').
        SELECT SINGLE  *  FROM zmm_mat_grp INTO wa_zmm_mat_grp WHERE matkl = srv_esll-matkl .
        IF sy-subrc EQ 0.
          MESSAGE e006(ze1).
        ENDIF.
      ENDIF.
    ENDIF.
  ENDIF.
ELSEIF sy-tcode = 'ME21' OR sy-tcode = 'ME22' OR sy-tcode = 'ME23'.
  IF srv_esll-matkl IS NOT INITIAL.
    IMPORT i_ekko-bsart TO v_bsart FROM MEMORY ID 'ZPOT24933'.
    IMPORT i_ekko-aedat TO v_aedat FROM MEMORY ID 'ZDTA24933'.
    IF v_bsart IS INITIAL OR v_aedat IS INITIAL.
      SELECT SINGLE packno FROM esll INTO v_packno WHERE sub_packno = srv_esll-packno.
      IF sy-subrc EQ 0.
        SELECT SINGLE ebeln FROM ekpo INTO v_ebeln WHERE packno = v_packno.
        IF sy-subrc EQ 0.
          SELECT SINGLE bsart aedat FROM ekko INTO (v_bsart, v_aedat) WHERE ebeln = v_ebeln.
        ENDIF.
      ENDIF.
    ENDIF.
    IF v_aedat GE '20090810'.         " Material group mandatory appplicable date.
      IF ( v_bsart EQ 'SRV' ) OR ( v_bsart EQ 'SRVI' ) OR ( v_bsart EQ 'SRVF' ) AND ( v_bsart NE ' ' )
      AND srv_esll-del = ' '.
        SELECT SINGLE  *  FROM zmm_mat_grp INTO wa_zmm_mat_grp WHERE matkl = srv_esll-matkl AND
                                                                     bsart = v_bsart.
        IF sy-subrc NE 0.
          MESSAGE e005(ze1).
        ENDIF.
      ENDIF.
      IF ( v_bsart NE 'SRV' ) AND ( v_bsart NE 'SRVI' ) AND ( v_bsart NE 'SRVF' ) AND ( v_bsart NE ' ' )
      AND ( srv_esll-del = ' ').
        SELECT SINGLE  *  FROM zmm_mat_grp INTO wa_zmm_mat_grp WHERE matkl = srv_esll-matkl .
        IF sy-subrc EQ 0.
          MESSAGE e006(ze1).
        ENDIF.
      ENDIF.
    ENDIF.
  ENDIF.
ENDIF.
hope this will help u.