Skip to Content
0
Former Member
Apr 29, 2008 at 07:53 PM

External routine for AP Check

34 Views

Hi,

I have written external routine for the AP check in the main window. Its not working i am not getting the value in the change field. I tried debug but it runs in background for the FI. Can any one know how to debug the script in FI. I know normal procedure to actiate debugger and debug the script. But for FI its not working.

/: PERFORM Z_AMT IN PROGRAM ZF110_ROUTINES

/: USING &REGUP-VBLNR&

/: USING &REGUP-BUKRS&

/: USING &REGUP-GJAHR&

/: USING &REGUP-BUZEI&

/: CHANGING &Z_AMT&

/: ENDPERFORM

and the code in the external routine is as below.

form z_amt tables in_tab structure itcsy

out_tab structure itcsy.

data: v_vbeln type vbeln,

v_bukrs type bukrs,

v_gjahr type gjahr,

v_buzei type buzei,

v_dmbtr type dmbtr.

constants: c_vbeln type char11 value 'REGUP-VBLNR',

c_bukrs type char11 value 'REGUP-BUKRS',

c_gjahr type char11 value 'REGUP-GJAHR',

c_buzei type char11 value 'REGUP-BUZEI',

c_amt type char5 value 'Z_AMT'.

read table in_tab with key name = c_bukrs.

if sy-subrc eq 0.

v_bukrs = in_tab-value.

endif.

read table in_tab with key name = c_vbeln.

if sy-subrc eq 0.

v_vbeln = in_tab-value.

endif.

read table in_tab with key name = c_gjahr.

if sy-subrc eq 0.

v_gjahr = in_tab-value.

endif.

read table in_tab with key name = c_buzei.

if sy-subrc eq 0.

v_buzei = in_tab-value.

endif.

select single dmbtr from bseg into v_dmbtr where bukrs = v_bukrs

and BELNR = v_vbeln

and gjahr = v_gjahr

and buzei = v_buzei.

if sy-subrc eq 0.

read table out_tab with key name = c_amt.

if sy-subrc eq 0.

out_tab-value = v_dmbtr.

modify out_tab index sy-tabix.

endif.

endif.

endform.

Edited by: keerthipati hemanth on Apr 29, 2008 4:00 PM