Error message if duplicate invoice

Question

HI ,
        im using Badi       INVOICE_UPDATE for giving erROR  msg   but old invoive values not comming  so validation not working
METHOD if_ex_invoice_update~change_before_update.
Start of addition by
BREAK-POINT.
  IF   s_rbkp_new-bukrs EQ s_rbkp_old-bukrs
   AND s_rbkp_new-budat EQ s_rbkp_old-budat
   AND s_rbkp_new-xblnr EQ s_rbkp_old-xblnr
   AND s_rbkp_new-waers EQ s_rbkp_old-waers
   AND s_rbkp_new-lifnr EQ s_rbkp_old-lifnr
   AND s_rbkp_new-RMWWR EQ s_rbkp_old-RMWWR.
   MESSAGE ID 'ZI' TYPE 'E' NUMBER '047' .
  ENDIF.
ENDMETHOD.

Answer 1

I used below inside badi   is working fine
DATA i_bsak TYPE TABLE OF bsak  .
DATA i_bsik TYPE  TABLE OF bsik .
Invoice validation ********************
check for duplicate check in vendor open items
SELECT  * FROM bsik INTO TABLE  i_bsik
WHERE bukrs EQ S_RBKP_NEW-bukrs
AND lifnr EQ S_RBKP_NEW-lifnr
AND xblnr EQ S_RBKP_NEW-xblnr
AND waers EQ  S_RBKP_NEW-waers
AND bldat EQ  S_RBKP_NEW-bldat
AND wrbtr EQ  S_RBKP_NEW-rmwwr
AND shkzg EQ 'H'.
IF sy-subrc EQ 0.
  MESSAGE E047(ZI) WITH S_RBKP_NEW-belnr S_RBKP_NEW-xblnr.
ELSE.
check for duplicate check in vendor cleared items
  SELECT * FROM  bsak into TABLE i_bsak
  WHERE bukrs EQ S_RBKP_NEW-bukrs
  AND lifnr EQ S_RBKP_NEW-lifnr
  AND xblnr EQ S_RBKP_NEW-xblnr
  AND waers EQ  S_RBKP_NEW-waers
  AND bldat EQ  S_RBKP_NEW-bldat
  AND wrbtr EQ  S_RBKP_NEW-rmwwr
  AND shkzg EQ 'H'.
    IF sy-subrc EQ 0.
      MESSAGE E047(ZI) WITH S_RBKP_NEW-belnr S_RBKP_NEW-xblnr.
    ENDIF.
ENDIF.