Not getting Data

[Former Member]

Hi all,

Please anybody help me out.

No data is coming in my internal table

1.main_table1

2.main_table2.

Not displaying data in i_t00k-konts.

REPORT ZVAT_CST no standard page heading line-size 350 line-count 300.

tables :vbrk,vbrp,tvktt,tvkmt,vbfa,konv, t030k.

*----

---

• G L O B A L V A R I A B L E S

*----

---

data: total type p decimals 2.

data: begin of i_vbrk occurs 0,

vbeln like vbrk-vbeln,

fkart like vbrk-fkart,

knumv like vbrk-knumv,

fkdat like vbrk-fkdat,

belnr like vbrk-belnr,

ktgrd like vbrk-ktgrd,

mwsbk like vbrk-mwsbk,

end of i_vbrk.

data: begin of i_konv occurs 0,

knumv like konv-knumv,

kschl like konv-kschl,

mwsk1 like konv-mwsk1,

kwert like konv-kwert,

end of i_konv.

data:begin of i_vbrp occurs 0,

vbeln like vbrp-vbeln,

ktgrm like vbrp-ktgrm,

end of i_vbrp.

data:begin of i_tvktt occurs 0,

ktgrd like tvktt-ktgrd,

vtext1 like tvktt-vtext,

end of i_tvktt.

data:begin of i_tvkmt occurs 0,

ktgrm like tvkmt-ktgrm,

vtext2 like tvkmt-vtext,

end of i_tvkmt.

data:begin of i_vbfa occurs 0,

vbelv like vbfa-vbelv,

vbeln like vbfa-vbeln,

end of i_vbfa.

data:begin of i_t030k occurs 0,

konts like t030k-konts,

mwskz like t030k-mwskz,

end of i_t030k.

data:begin of i_vbak occurs 0,

vbeln like vbak-vbeln,

xblnr like vbak-xblnr,

end of i_vbak.

data:begin of vbfa_vbak occurs 0,

vbelv like vbfa-vbelv,

vbeln like vbfa-vbeln,

xblnr like vbak-xblnr,

end of vbfa_vbak.

*data:begin of konv_t030k occurs 0,

*

*konts like t030k-konts,

*mwskz like t030k-mwskz,

*kschl like konv-kschl,

*mwsk1 like konv-mwsk1,

*

*

*end of konv_t030k.

data: begin of main_table2 occurs 0,

vbeln like vbrk-vbeln,

end of main_table2.

data: begin of main_table1 occurs 0,

vbeln like vbrk-vbeln,

fkart like vbrk-fkart,

fkdat like vbrk-fkdat,

belnr like vbrk-belnr,

ktgrd like vbrk-ktgrd,

mwsbk like vbrk-mwsbk,

ktgrm like vbrp-ktgrm,

vtext1 like tvktt-vtext,

vtext2 like tvkmt-vtext,

kwert like konv-kwert,

konts like t030k-konts,

end of main_table1.

**********************

**SELECTION-SCREEN**

**********************

selection-screen begin of block blk.

parameters: billtype like vbrk-fkart .

select-options: billdate for vbrk-fkdat obligatory.

parameters : acgrpd like vbrk-ktgrd.

parameters: acgrpm like vbrp-ktgrm.

parameters: taxcode like konv-mwsk1.

selection-screen end of block blk.

start-of-selection.

select konts mwskz

from t030k into i_t030k

where mwskz eq taxcode.

endselect.

select fkart knumv fkdat belnr ktgrd mwsbk

from vbrk

into corresponding fields of table i_vbrk

where fkart eq billtype

and

fkdat in billdate

and

ktgrd eq acgrpd .

if i_vbrk[] is not initial .

select knumv kschl mwsk1 kwert

from konv

into corresponding fields of table i_konv

for all entries in i_vbrk

where knumv = i_vbrk-knumv .

endif.

if i_konv[] is not initial .

select vbeln

from vbrk

into table i_vbrk

for all entries in i_konv

where knumv = i_konv-knumv .

endif.

if i_vbrk[] is not initial .

select vbeln ktgrm

into table i_vbrp

from vbrp

for all entries in i_vbrk

where vbeln = i_vbrk-vbeln

and ktgrm eq acgrpm.

endif.

if i_vbrk[] is not initial .

select vbelv vbeln

into table i_vbfa

from vbfa

for all entries in i_vbrk

where vbeln = i_vbrk-vbeln.

endif.

if i_vbfa[] is not initial .

select vbeln xblnr

into table i_vbak

from vbak

for all entries in i_vbfa

where vbeln = i_vbfa-vbelv.

endif.

if i_vbrk[] is not initial .

select ktgrd vtext

into table i_tvktt

from tvktt

for all entries in i_vbrk

where ktgrd = i_vbrk-ktgrd.

endif.

if i_vbrp[] is not initial .

select ktgrm vtext

into table i_tvkmt

from tvkmt

for all entries in i_vbrp

where ktgrm = i_vbrp-ktgrm.

endif.

loop at i_vbfa .

loop at i_vbak .

vbfa_vbak-xblnr = i_vbak-xblnr.

append vbfa_vbak.

endloop.

endloop.

loop at i_vbrk where fkdat in billdate

and knumv = i_konv-knumv.

loop at i_konv where kschl = 'jin1' or kschl = 'jin6'.

main_table2-vbeln = i_vbrk-vbeln.

append main_table2.

clear main_table2.

endloop.

endloop.

loop at i_vbrk where fkdat in billdate.

loop at i_vbrp where vbeln = i_vbrk-vbeln

and ktgrm eq acgrpm.

loop at i_tvktt where ktgrd = i_vbrk-ktgrd.

loop at i_tvkmt where ktgrm = i_vbrp-ktgrm.

• loop at i_t030k WHERE mwskz = TaxCode.

• main_table1-vbeln = i_vbrk-vbeln.

main_table1-fkart = i_vbrk-fkart.

main_table1-fkdat = i_vbrk-fkdat.

main_table1-belnr = i_vbrk-belnr.

main_table1-ktgrd = i_vbrk-ktgrd.

main_table1-mwsbk = i_vbrk-mwsbk.

main_table1-ktgrm = i_vbrp-ktgrm.

main_table1-vtext1 = i_tvktt-vtext1.

main_table1-vtext2 = i_tvkmt-vtext2.

main_table1-kwert = i_konv-kwert.

append main_table1.

clear main_table1.

endloop.

endloop.

endloop.

endloop.

*loop at i_konv where kschl = 'jin1' or kschl = 'jin6'.

• main_table1-kwert = i_konv-kwert.

• append main_table1.

• at new kwert.

• sum.

• total = i_konv-kwert.

• endat.

• clear main_table1.

• endloop.

*loop at i_t030k WHERE mwskz =i_konv-mwsk1.

*

• main_table1-konts = i_t030k-konts.

• append main_table1.

• clear main_table1.

• endloop.

loop at main_table1.

write :/5 '|' no-gap,main_table1-fkart,

14 '|' no-gap,

24 '|' no-gap,main_table1-fkdat,

35 '|' no-gap,

52 '|' no-gap,main_table1-ktgrd right-justified,

73 '|' no-gap,main_table1-vtext1 ,

98 '|' no-gap,main_table1-ktgrm centered,

119 '|' no-gap,main_table1-vtext2,

145 '|' no-gap,

156 '|' no-gap,main_table1-mwsbk left-justified,

171 '|' .

endloop.

loop at main_table2.

write :14 '|' no-gap, main_table2-vbeln .

endloop.

loop at vbfa_vbak.

write :35 '|' no-gap, vbfa_vbak-xblnr .

endloop.

loop at i_t030k.

write :145 '|' no-gap, i_t030k-konts .

endloop.

end-of-selection.

write: /5 sy-uline(167).

top-of-page.

write: /50 'Samtel ColorLimited'.

if taxcode = 'dj'.

write:/34 'CST ENTRIES WRTCUSTOMER A/c GROUPS BYINDINIDUAL LINE'.

write:/52 'ITEM FROM CST A/c'.

else.

write:/34 'VAT ENTRIES WRTCUSTOMER A/c GROUPS BYINDINIDUAL LINE'.

write:/52 'ITEM FROM VAT A/c'.

endif.

write: /48 '----

---

'.

write: /6 'Billing Date From:',billdate-low.

write: 78 'Billing Date To:',billdate-high.

skip 1.

write: /5 sy-uline(167).

write: /5 '|' no-gap, 'DocType' color 6 inverse on,

14 '|' no-gap, 'Doc No' color 6 inverse on,

24 '|' no-gap, 'BillDate' color 6 inverse on,

35 '|' no-gap,' Reference Doc No' color 6 inverse on,

52 '|' no-gap, 'A/c Grp for Customer' color 6 inverse on,

73 '|' no-gap, 'Customer Grp Description' color 6 inverse on,

98 '|' no-gap, 'A/c Grpfor Material' color 6 inverse on,

119 '|' no-gap, 'Material Grp Description' color 6 inverse on,

145 '|' no-gap, 'G/L A/c No' color 6 inverse on,

156 '|' no-gap, 'VAT/CST Amt' color 6 inverse on,

171 '|' .

Tell me the solution .Definitely Rewards pts.

Best Regards,

Aastha

[Sm1tje]

loop at cwhere fkdat in billdate

and knumv = i_konv-knumv.

loop at i_konv where kschl = 'jin1' or kschl = 'jin6'.

main_table2-vbeln = i_vbrk-vbeln.

append main_table2.

clear main_table2.

endloop.

endloop.

loop at i_vbrk where fkdat in billdate.

loop at i_vbrp where vbeln = i_vbrk-vbeln

and ktgrm eq acgrpm.

loop at i_tvktt where ktgrd = i_vbrk-ktgrd.

loop at i_tvkmt where ktgrm = i_vbrp-ktgrm.

loop at i_t030k WHERE mwskz = TaxCode.

main_table1-vbeln = i_vbrk-vbeln.

main_table1-fkart = i_vbrk-fkart.

main_table1-fkdat = i_vbrk-fkdat.

main_table1-belnr = i_vbrk-belnr.

main_table1-ktgrd = i_vbrk-ktgrd.

main_table1-mwsbk = i_vbrk-mwsbk.

main_table1-ktgrm = i_vbrp-ktgrm.

main_table1-vtext1 = i_tvktt-vtext1.

main_table1-vtext2 = i_tvkmt-vtext2.

main_table1-kwert = i_konv-kwert.

append main_table1.

Well that will be a matter of debugging your coding, starting from loop at i_vbrk where fkdat in billdate

and knumv = i_konv-knumv.

Put a break point at the LOOP-statement, and see what happens?

loop at i_vbrk where fkdat in billdate

and knumv = i_konv-knumv.

doesn't give any valid entry, or loop at i_konv where kschl = 'jin1' or kschl = 'jin6'. gives no entry.

BTW = isn't KSCHL case sensitive? So, are you sure it shouldn't ne 'JIN1' or 'JIN6'.

Same for the other loop where main_table1 is filled, debug ist and determine if all conditions are met...