Hi,
I wrote this report discount analysis, when I debug it is showing values in 'getdata' but not in 'processdata'. Can you pl look at my code and let me know what is wrong with it. when i execute , it is giving '0' as value, but correct no of records.
pl help me.
Thanks
Veni.
REPORT ZSD_DISCOUNT_ANALYSIS .
TOP-OF-PAGE.
WRITE 3 'Discount Analysis'
COLOR COL_HEADING.
ULINE.
************************************************************************
************************************************************************
tables: vbrk, konv.
----
----
data: x type i, y type i, l type i.
data: g_repid like sy-repid.
data:begin of it_vbrk occurs 0,
vbeln like vbrk-vbeln,
knumv like vbrk-knumv,
fkdat like vbrk-fkdat,
end of it_vbrk.
data:begin of it_konv occurs 0,
knumv like konv-knumv,
kschl like konv-kschl,
kwert like konv-kwert,
kunnr like konv-kunnr,
end of it_konv.
data: begin of it_output occurs 0,
vbeln like vbrk-vbeln,
kwert like konv-kwert,
end of it_output.
************************************************************************
************************************************************************
selection-screen: begin of block b1 with frame title text-001.
select-options:
s_vbeln for vbrk-vbeln,
s_fkdat for vbrk-fkdat,
s_kschl for konv-kschl,
s_kunnr for konv-kunnr,
s_knumv for konv-knumv.
selection-screen: end of block b1.
----
----
start-of-selection.
perform get_data.
perform process_data.
perform display_data.
----
----
end-of-selection.
&----
*& Form get_data
&----
----
----
form get_data.
select vbeln
knumv
fkdat
from vbrk
into table it_vbrk
where vbeln in s_vbeln
and fkdat in s_fkdat.
select knumv
kschl
kwert
kunnr
from konv
into table it_konv
where kschl in s_kschl
and knumv in s_knumv.
endform. " get_data
&----
*& Form process_data
&----
----
----
FORM process_data.
loop at it_vbrk.
read table it_konv
WITH KEY knumv = it_vbrk-knumv.
if sy-subrc = 0.
move konv-kwert to it_output-kwert.
move vbrk-vbeln to it_output-vbeln.
append it_output.
clear it_output.
endif.
endloop.
ENDFORM. "process_data
*& Form display_data
&----
----
----
form display_data.
define new_grid.
y = sy-linno. y = y + 2.
skip to line y.
x = sy-colno. position x. write '|'.
end-of-definition.
define write_grid.
x = sy-colno. y = sy-linno. position x.
write: &1, '|'.
l = sy-colno - x + 1.
x = x - 2. y = y + 1. skip to line y. position x.
uline at x(l).
y = y - 1. x = sy-colno. skip to line y. position x.
end-of-definition.
FORMAT COLOR COL_HEADING.
write:/1 'Billing Document',
20 'Condition Value'.
loop at it_output.
format color COL_TOTAL.
new_grid.
write_grid: it_output-vbeln,
it_output-kwert.
format color off.
endloop.
endform. " display_data
Bluesky
