FBCJ

[Former Member]

Please provide me any exit/badi from where I want to throw error message if the amount exceeds Rs. 20,000/-.

<removed_by_moderator>

Thanks,

Edited by: Julius Bussche on Sep 3, 2008 9:54 AM

[bpawanchand]

Hi

Business Add-in

CJ_DOCUMENT Change to External Document before Cash Journal Doc. Check

Regards

Pavan

[Former Member]

badi check this

GLT0_AFTERSPLIT_VAL

in VAL_EXECUTE method

check code

**& Cash Payment more than 20,000 /-

IF WA_ITEMS-ACCIT-BUZEI = '001'

AND WA_ITEMS-ACCIT-PSWBT < -20000

AND WA_ITEMS-ACCIT-BSCHL = '50'.

MESSAGE E006(ZFI).

ENDIF.

[Former Member]

Please provide the complete code.

Thanks,

[Former Member]

method IF_EX_GLT0_AFTERSPLIT_VAL~VAL_EXECUTE.

DATA : WA_ITEMS TYPE glt0_accit_ex.

DATA : I_BSIS TYPE TABLE OF BSIS INITIAL SIZE 0.

*DATA : WA_BSIS TYPE BSIS.

DATA : WA_BSIS TYPE BSIS.

DATA : V_AWORG TYPE AWORG.

DATA : V_BSART TYPE ESART,

V_MATNR TYPE MATNR,

V_WERKS TYPE WERKS_D,

V_RESWK TYPE RESWK,

V_GL_ACCOUNT TYPE SAKNR,

V_BSISCHK(1) TYPE C,

V_XREVERSAL TYPE XREVERSAL,

V_PRCTR TYPE BSIS-GSBER.

DATA : DAYS TYPE I.

DATA : I_ITEMS_TEMP type STANDARD TABLE OF glt0_accit_ex.

DATA : WA_ITEMS_TEMP TYPE GLT0_ACCIT_EX.

LOOP AT IT_ITEMS into wa_items.

*&//////////////////////////////////////////////////////

IF WA_ITEMS-ACCIT-AWTYP = 'CAJO'.

**& Cash Payment more than 20,000 /-

IF WA_ITEMS-ACCIT-BUZEI = '001'

AND WA_ITEMS-ACCIT-PSWBT < -20000

AND WA_ITEMS-ACCIT-BSCHL = '50'.

MESSAGE E006(ZFI).

ENDIF.

*& Back posting in cash journal.

V_AWORG = WA_ITEMS-ACCIT-AWORG+0(4).

IF V_AWORG = '1001'

OR V_AWORG = '1005'

OR V_AWORG = '1007'

OR V_AWORG = '1008'.

SELECT SINGLE GL_ACCOUNT FROM TCJ_C_JOURNALS

INTO V_GL_ACCOUNT

WHERE COMP_CODE = '1000'

AND CAJO_NUMBER = V_AWORG.

SELECT * FROM BSIS INTO TABLE I_BSIS

WHERE BUKRS = '1000'

AND HKONT = V_GL_ACCOUNT

AND GJAHR = WA_ITEMS-ACCIT-GJAHR

AND BUDAT GT WA_ITEMS-ACCIT-BUDAT.

LOOP AT I_BSIS INTO WA_BSIS.

SELECT SINGLE XREVERSAL FROM BKPF INTO V_XREVERSAL

WHERE BELNR EQ WA_BSIS-BELNR

AND GJAHR EQ WA_BSIS-GJAHR.

IF V_XREVERSAL EQ SPACE.

V_BSISCHK = 'X'.

ENDIF.

ENDLOOP.

IF V_BSISCHK EQ 'X'.

MESSAGE E008(ZFI).

ENDIF.

CLEAR V_BSISCHK.

• IF SY-SUBRC = 0.

• MESSAGE E008(ZFI).

• ENDIF.

ENDIF.

endif.

*&////////////////////////////////////////////////////////////////

*&////////////////////////////////////////////////////////////////

*& TEXT MANDIATORY

IF WA_ITEMS-ACCIT-AWTYP = 'CAJO'.

IF WA_ITEMS-ACCIT-XAUTO = SPACE.

IF WA_ITEMS-ACCIT-SGTXT = SPACE.

MESSAGE E009(ZFI).

ENDIF.

ENDIF.

ENDIF.

IF WA_ITEMS-ACCIT-AWTYP = 'BKPF'.

IF WA_ITEMS-ACCIT-BLART <> 'AB' OR

WA_ITEMS-ACCIT-BLART <> 'UK' OR

WA_ITEMS-ACCIT-BLART <> 'UD' OR

WA_ITEMS-ACCIT-BLART <> 'UA' OR

WA_ITEMS-ACCIT-BLART <> 'US'.

IF WA_ITEMS-ACCIT-XAUTO = SPACE.

IF WA_ITEMS-ACCIT-SGTXT = SPACE.

MESSAGE E009(ZFI).

ENDIF.

ENDIF.

ENDIF.

ENDIF.

*&/////////////////////////////////////////////////////////////////////////

endloop.