FBCJ

Former Member — Sat, 30 Aug 2008 07:29:01 GMT

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

Re: FBCJ

bpawanchand — Sat, 30 Aug 2008 07:42:15 GMT

Business Add-in

CJ_DOCUMENT Change to External Document before Cash Journal Doc. Check

Regards

Pavan

Re: FBCJ

Former Member — Sat, 30 Aug 2008 11:21:48 GMT

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.

Re: FBCJ

Former Member — Mon, 01 Sep 2008 08:07:34 GMT

Please provide the complete code.

Thanks,

Re: FBCJ

Former Member — Mon, 01 Sep 2008 08:34:57 GMT

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.

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.

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

endloop.

topic Re: FBCJ in Application Development and Automation Discussions

FBCJ

Re: FBCJ

Re: FBCJ

Re: FBCJ

Re: FBCJ