Hi
Now u need to implement the method CHANGE, so back to the BADI and press INTERFACE tab and double click on method CHANGE
Here u need to insert the code to check the duplicate posting
DATA: W_ACCIT TYPE ACCIT.
DATA: _REPRF TYPE LFB1-REPRF.
DATA: W_ACCCR TYPE ACCCR.
DATA: W_RETURN TYPE BAPIRET2.
LOOP AT C_ACCIT INTO W_ACCIT WHERE KOART = 'K'.
* Check if the vendor has to be available for duplicete posting control
SELECT SINGLE REPRF FROM LFB1 INTO _REPRF
WHERE LIFNR = W_ACCIT-LIFNR
AND BUKRS = W_ACCIT-BUKRS.
IF SY-SUBRC <> 0.
CLEAR _REPRF.
ENDIF.
READ TABLE C_ACCCR INTO W_ACCCR WITH KEY POSNR = W_ACCIT-POSNR.
CALL FUNCTION 'FI_DUPLICATE_INVOICE_CHECK'
EXPORTING
I_BUKRS = W_ACCIT-BUKRS
I_LIFNR = W_ACCIT-LIFNR
I_WAERS = W_ACCCR-WAERS
I_BLDAT = W_ACCIT-BLDAT
I_XBLNR = W_ACCIT-XBLNR
I_WRBTR = W_ACCCR-WRBTR
I_KOART = 'K'
I_REPRF = _REPRF
I_SHKZG = W_ACCIT-SHKZG
I_XUMSW = W_ACCIT-XUMSW
I_BSTAT = W_ACCIT-BSTAT
I_BLART = W_ACCIT-BLART
EXCEPTIONS
MISSING_DATA = 1
ERROR_MESSAGE = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
CALL FUNCTION 'BALW_BAPIRETURN_GET2'
EXPORTING
TYPE = SY-MSGTY
CL = SY-MSGID
NUMBER = SY-MSGNO
PAR1 = SY-MSGV1
PAR2 = SY-MSGV2
PAR3 = SY-MSGV3
PAR4 = SY-MSGV4
IMPORTING
RETURN = W_RETURN.
APPEND W_RETURN TO C_RETURN.
ENDIF.
ENDLOOP.
Max
Bluesky
