Hi Krishna,
Please use user Exit LMR1M001 component EXIT_SAPLMRMP_010 in inside include
ZXM08U16 program you can write your code and validate Quality approval for MBLNR field.
Please try to code something like below,
tables : mseg.
DATA: H_RBWT1 TYPE MRM_RBWT OCCURS 0 WITH HEADER LINE,
MBLNR LIKE MSEG-MBLNR,
PRUEFLOS LIKE QAMB-PRUEFLOS,
BWART LIKE MSEG-BWART,
ZEILE LIKE MSEG-ZEILE,
COUNT TYPE I VALUE 0,
LIN TYPE I,
BSART LIKE EKKO-BSART.
if E_TRBKPV-BUPLA eq space.
MESSAGE E017(MD) .
endif.
****************************
if E_TRBKPV-SECCO eq space.
MESSAGE E018(MD) .
endif.
****************************
DESCRIBE TABLE e_tdrseg LINES lin.
LOOP AT e_tdrseg WHERE selkz EQ 'X' AND menge NE 0.
SELECT SINGLE bwart INTO bwart FROM mseg
WHERE mblnr EQ e_tdrseg-lfbnr AND insmk EQ 'X'.
IF sy-subrc EQ 0.
IF bwart Eq '102'.
MESSAGE E014(MD) WITH sy-tabix.
ENDIF.
IF bwart EQ '101'.
SELECT SINGLE zeile FROM mseg INTO zeile
WHERE mblnr EQ e_tdrseg-mblnr AND matnr EQ e_tdrseg-matnr
AND erfmg EQ e_tdrseg-menge AND insmk EQ 'X'.
IF zeile NE 0.
SELECT prueflos INTO prueflos FROM qamb
WHERE mblnr EQ e_tdrseg-mblnr AND zeile EQ zeile.
count = count + 1.
SELECT SINGLE * FROM qave WHERE prueflos EQ prueflos.
IF sy-subrc NE 0 AND count GT 0.
MESSAGE E015(MD) WITH sy-tabix.
ENDIF.
IF qave-vcode EQ 'R' OR qave-vcode EQ 'R11'
OR qave-vcode EQ 'R12' OR qave-vcode EQ 'R2'
OR qave-vcode EQ 'R3'.
MESSAGE E016(MD) WITH sy-tabix.
ENDIF.
ENDSELECT.
ENDIF.
ENDIF.
ENDIF.
CLEAR: ZEILE,MBLNR,COUNT.
ENDLOOP.
regards,
Prasenjit