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 ®UP-VBLNR&
/: USING ®UP-BUKRS&
/: USING ®UP-GJAHR&
/: USING ®UP-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