doubt in report

Former Member · ‎2007 Jul 12

hai ..

report output is coming but not all the data is not retrived...and I used control break statements ,it is not working .......

REPORT ZVRDOC0 no standard page heading

line-size 300

line-count 50(5).

******************TABLES**********************************************

TABLES : vbak, "Sales Document Header Level

vbap, "Sales Document Header Level

kna1. "General Data in customer Master

******************INTERNAL TABELS DECLARATION*************************

*INTERNAL TABLE T_VBAP

DATA : Begin of t_vbap occurs 0,

matnr like vbap-matnr,

posnr like vbap-posnr,

vbeln like vbap-vbeln,

arktx like vbap-arktx,

kwmeng like vbap-kwmeng,

cmkua like vbap-cmkua,

end of t_vbap.

*INTERNAL TABLE T_TAB.

DATA : Begin of t_tab occurs 0,

kunnr like vbak-kunnr,

vbeln like vbak-vbeln,

audat like vbak-audat,

netwr like vbak-netwr,

vkorg like vbak-vkorg,

name1 like kna1-name1,

land1 like kna1-land1,

end of t_tab.

*INTERNAL TABLE T_FINAL.

DATA : Begin of t_final occurs 0,

matnr like vbap-matnr,

posnr like vbap-posnr,

vbeln like vbap-vbeln,

arktx like vbap-arktx,

kwmeng like vbap-kwmeng,

cmkua like vbap-cmkua,

kunnr like vbak-kunnr,

audat like vbak-audat,

netwr like vbak-netwr,

vkorg like vbak-vkorg,

name1 like kna1-name1,

land1 like kna1-land1,

end of t_final.

****************************SELECTION SCREEN**********************

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE text-bO3.

parameters : P_kunnr like vbak-kunnr.

select-options : S_vbeln for vbak-vbeln,

S_audat for vbak-audat.

SELECTION-SCREEN END OF BLOCK B1.

********************START-OF-SELECTION***************************

start-of-selection.

select matnr posnr vbeln arktx kwmeng cmkua from vbap

into table t_vbap

where vbeln in S_vbeln.

select single kunnr vbeln audat netwr vkorg from vbak

into (t_Tab-kunnr,t_tab-vbeln,

t_tab-audat,t_Tab-netwr,

t_Tab-vkorg)

where vbeln in S_Vbeln and

kunnr = p_kunnr.

select single kunnr name1 land1 from kna1

into (t_Tab-kunnr, t_Tab-name1,

t_tab-land1)

"(t_Tab-name1, t_tab-land1)

where kunnr = p_kunnr.

end-of-selection.

loop at t_vbap.

read table t_tab with key vbeln = t_vbap-vbeln.

move :

t_vbap-matnr to t_final-matnr,

t_vbap-posnr to t_final-posnr,

t_vbap-vbeln to t_final-vbeln,

t_vbap-arktx to t_final-arktx,

t_vbap-kwmeng to t_final-kwmeng,

t_vbap-cmkua to t_final-cmkua,

t_tab-kunnr to t_final-kunnr,

t_tab-audat to t_final-audat,

t_tab-netwr to t_final-netwr,

t_tab-vkorg to t_final-vkorg,

t_tab-name1 to t_final-name1,

t_tab-land1 to t_final-land1.

append t_final.

clear t_Final.

endloop.

**************************loop at t_final***************************

sort t_Final by vbeln.

loop at t_final.

at new vbeln.

write : /1 SY-VLINE, 2 t_final-vbeln color 5 inverse.

endat.

write : /1 SY-VLINE, 2 t_final-vbeln color 5 inverse,

20 SY-VLINE, 21 t_final-posnr color 5 inverse,

40 SY-VLINE, 41 t_final-matnr color 5 inverse,

60 SY-VLINE, 61 t_final-arktx color 4 inverse,

80 SY-VLINE, 81 t_final-kwmeng color 4 inverse,

100 SY-VLINE, 101 t_final-cmkua color 4 inverse,

120 SY-VLINE, 121 t_final-kunnr color 3 inverse,

140 SY-VLINE, 141 t_final-audat color 3 inverse,

160 SY-VLINE, 161 t_final-netwr color 2 inverse,

180 SY-VLINE, 181 t_final-vkorg color 2 inverse,

210 SY-VLINE, 211 t_final-name1 color 1 inverse,

230 SY-VLINE, 231 t_final-land1 color 1 inverse,

250 SY-VLINE.

at end of vbeln.

sum.

write: /70 SY-VLINE, 'total' ,

81 t_final-kwmeng color 4 inverse.

endat.

at last.

sum.

write: /70 SY-VLINE, 'grand total' ,

81 t_final-kwmeng color 4 inverse.

endat.

endloop.

loop at t_final.

*

write : /1 SY-VLINE, 2 t_final-vbeln color 5 inverse,
20 SY-VLINE, 21 t_final-posnr color 5 inverse,
40 SY-VLINE, 41 t_final-matnr color 5 inverse,
60 SY-VLINE, 61 t_final-arktx color 4 inverse,
80 SY-VLINE, 81 t_final-kwmeng color 4 inverse,
100 SY-VLINE, 101 t_final-cmkua color 4 inverse,
120 SY-VLINE, 121 t_final-kunnr color 3 inverse,
140 SY-VLINE, 141 t_final-audat color 3 inverse,
160 SY-VLINE, 161 t_final-netwr color 2 inverse,
180 SY-VLINE, 181 t_final-vkorg color 2 inverse,
210 SY-VLINE, 211 t_final-name1 color 1 inverse,
230 SY-VLINE, 231 t_final-land1 color 1 inverse,
250 SY-VLINE.
endloop.

*

*ULINE /1(250).

**********************TOP-OF-PAGE********************************

TOP-OF-PAGE.

ULINE /50(24).

WRITE : /50 SY-VLINE , 52 'SALES ORDER DETAILS' COLOR 5,

73 SY-VLINE.

ULINE /50(24).

ULINE .

WRITE: /10 'CURRENT DATE :', 25 SY-DATUM COLOR 1 INVERSE,

100 'CURRENT TIME :', 115 SY-UZEIT color 5 INVERSE.

WRITE: /10 'USERNAME :', 25 SY-UNAME COLOR 1 INVERSE,

100 'PAGE NO :', 113 SY-PAGNO COLOR 5 INVERSE.

WRITE: /10 'LOGON CLIENT :', 25 SY-MANDT COLOR 1 INVERSE,

100 'COLON N0 :', 114 SY-COLNO COLOR 5 INVERSE.

WRITE: /10 'CURRENT REPROT:', 25 SY-REPID COLOR 1 INVERSE,

100 'LANGUAGE :', 116 SY-LANGU COLOR 5 INVERSE.

ULINE.

ULINE /1(250).

write : /1 SY-VLINE, 2 'SALES DOC NO' color 6 inverse,

20 SY-VLINE, 21 'SALES DOC ITEM' color 6 inverse,

40 SY-VLINE,41 'MATERIAL NO' color 6 inverse,

60 SY-VLINE, 61 'SHORT SALES TEXT' color 6 inverse,

80 SY-VLINE, 81 'CUMM ORDER SALES' color 6 inverse,

100 SY-VLINE, 101 'CREDIT DATA' color 6 inverse,

120 SY-VLINE, 121 'CUSTOMER NO' color 6 inverse,

140 SY-VLINE, 141 'DOC DATE' color 6 inverse,

160 SY-VLINE, 161 'NET VALUE SALES' color 6 inverse,

180 SY-VLINE, 181 'SALES ORG' color 6 inverse,

210 SY-VLINE, 211 'CUSTOMER NAME' color 6 inverse,

230 SY-VLINE, 231 'CUSTOMER CONTY' color 6 inverse,

250 SY-VLINE.

ULINE /1(250).

*************************END-OF-PAGE*******************************

END-OF-PAGE.

ULINE.

WRITE: /45 ' THIS IS END OF PAGE FOR SALES DOCUMENT DETAILS'

COLOR 6 .

Former Member · ‎2007 Jul 12

After the two "select single" statements (that are nowhere unique, BTW) I think you are missing an "append t_tab" statement. Besides, this could be done a lot easier with a JOIN statement.

Regards

Frank

Former Member · ‎2007 Jul 13

<b>Hi ... here is the program of yours .... i did modification in the select query and also in the control break statments .... i am getting all the data as per the selection parameters ...</b>

please try it out ......

REPORT ZVRDOC0 no standard page heading
line-size 300
line-count 50(5).


*******************TABLES***********************************************

TABLES : vbak, "Sales Document Header Level
vbap, "Sales Document Header Level
kna1. "General Data in customer Master

*******************INTERNAL TABELS DECLARATION**************************

*INTERNAL TABLE T_VBAP

DATA : Begin of t_vbap occurs 0,
       vbeln like vbap-vbeln,
       matnr like vbap-matnr,
       posnr like vbap-posnr,
       arktx like vbap-arktx,
       kwmeng like vbap-kwmeng,
       cmkua like vbap-cmkua,
       end of t_vbap.

*INTERNAL TABLE T_TAB.

DATA : Begin of t_tab occurs 0,
        vbeln like vbak-vbeln,
        kunnr like vbak-kunnr,
        audat like vbak-audat,
        netwr like vbak-netwr,
        vkorg like vbak-vkorg,
        name1 like kna1-name1,
        land1 like kna1-land1,
        end of t_tab.

*INTERNAL TABLE T_FINAL.

DATA : Begin of t_final occurs 0,
        vbeln like vbap-vbeln,
        kunnr like vbak-kunnr,
        matnr like vbap-matnr,
        posnr like vbap-posnr,
        arktx like vbap-arktx,
        kwmeng like vbap-kwmeng,
        cmkua like vbap-cmkua,
        audat like vbak-audat,
        netwr like vbak-netwr,
        vkorg like vbak-vkorg,
        name1 like kna1-name1,
        land1 like kna1-land1,
        end of t_final.

*****************************SELECTION SCREEN***********************

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE text-bO3.

parameters : P_kunnr like vbak-kunnr.

select-options : S_vbeln for vbak-vbeln,
                 S_audat for vbak-audat.

SELECTION-SCREEN END OF BLOCK B1.

*********************START-OF-SELECTION****************************

start-of-selection.

select vbeln  matnr posnr arktx kwmeng cmkua  from vbap
into corresponding fields  of table  t_vbap  where vbeln in S_vbeln .
IF sy-subrc EQ 0.

select  vbak~kunnr vbak~vbeln vbak~audat vbak~netwr vbak~vkorg
        kna1~name1 kna1~land1  into  table   t_Tab   from
        vbak   join  kna1   on kna1~kunnr  = vbak~kunnr
        FOR ALL ENTRIES IN t_vbap
        where vbak~vbeln = t_vbap-Vbeln and
        vbak~kunnr = p_kunnr and
        vbak~audat  in  S_audat .

ENDIF.


*end-of-selection.


loop at t_vbap.

read table t_tab with key vbeln = t_vbap-vbeln.


move :
t_vbap-vbeln to t_final-vbeln,
t_vbap-matnr to t_final-matnr,
t_vbap-posnr to t_final-posnr,
t_vbap-arktx to t_final-arktx,
t_vbap-kwmeng to t_final-kwmeng,
t_vbap-cmkua to t_final-cmkua,
t_tab-kunnr to t_final-kunnr,
t_tab-audat to t_final-audat,
t_tab-netwr to t_final-netwr,
t_tab-vkorg to t_final-vkorg,
t_tab-name1 to t_final-name1,
t_tab-land1 to t_final-land1.

append t_final.
clear t_Final.

endloop.

***************************loop at t_final****************************
sort t_Final by vbeln   Kunnr    matnr posnr  .

loop at t_final.

at new vbeln.
write : /1 SY-VLINE, 2 t_final-vbeln color 5 inverse.
ULINE /1(250).

endat.

write : /1 SY-VLINE, 2 t_final-vbeln color 5 inverse,
20 SY-VLINE, 21 t_final-posnr color 5 inverse,
40 SY-VLINE, 41 t_final-matnr color 5 inverse,
60 SY-VLINE, 61 t_final-arktx color 4 inverse,
80 SY-VLINE, 81 t_final-kwmeng color 4 inverse,
100 SY-VLINE, 101 t_final-cmkua color 4 inverse,
120 SY-VLINE, 121 t_final-kunnr color 3 inverse,
140 SY-VLINE, 141 t_final-audat color 3 inverse,
160 SY-VLINE, 161 t_final-netwr color 2 inverse,
180 SY-VLINE, 181 t_final-vkorg color 2 inverse,
210 SY-VLINE, 211 t_final-name1 color 1 inverse,
230 SY-VLINE, 231 t_final-land1 color 1 inverse,
250 SY-VLINE.

at end of vbeln.
sum.
ULINE /1(250).
write: /60 SY-VLINE, 'Total' ,
81 t_final-kwmeng color 4 inverse ,100 SY-VLINE,
101 t_final-cmkua color 4 inverse,120 SY-VLINE.
ULINE /1(250).
endat.

at last.
SKIP 2.
sum.
ULINE /1(250).
write: /1 SY-VLINE, 60 SY-VLINE, 'Grand Total' ,
81 t_final-kwmeng color 4 inverse , 100 SY-VLINE ,
101 t_final-cmkua color 4 inverse,120 SY-VLINE.
ULINE /1(250).
endat.

endloop.

***********************TOP-OF-PAGE*********************************
TOP-OF-PAGE.

ULINE /50(24).
WRITE : /50 SY-VLINE , 52 'SALES ORDER DETAILS' COLOR 5,
73 SY-VLINE.

ULINE /50(24).

ULINE .

WRITE: /10 'CURRENT DATE :', 25 SY-DATUM COLOR 1 INVERSE,
100 'CURRENT TIME :', 115 SY-UZEIT color 5 INVERSE.

WRITE: /10 'USERNAME :', 25 SY-UNAME COLOR 1 INVERSE,
100 'PAGE NO :', 113 SY-PAGNO COLOR 5 INVERSE.

WRITE: /10 'LOGON CLIENT :', 25 SY-MANDT COLOR 1 INVERSE,
100 'COLON N0 :', 114 SY-COLNO COLOR 5 INVERSE.

WRITE: /10 'CURRENT REPROT:', 25 SY-REPID COLOR 1 INVERSE,
100 'LANGUAGE :', 116 SY-LANGU COLOR 5 INVERSE.


ULINE.

ULINE /1(250).

write : /1 SY-VLINE, 2 'SALES DOC NO' color 6 inverse,
20 SY-VLINE, 21 'SALES DOC ITEM' color 6 inverse,
40 SY-VLINE,41 'MATERIAL NO' color 6 inverse,
60 SY-VLINE, 61 'SHORT SALES TEXT' color 6 inverse,
80 SY-VLINE, 81 'CUMM ORDER SALES' color 6 inverse,
100 SY-VLINE, 101 'CREDIT DATA' color 6 inverse,
120 SY-VLINE, 121 'CUSTOMER NO' color 6 inverse,
140 SY-VLINE, 141 'DOC DATE' color 6 inverse,
160 SY-VLINE, 161 'NET VALUE SALES' color 6 inverse,
180 SY-VLINE, 181 'SALES ORG' color 6 inverse,
210 SY-VLINE, 211 'CUSTOMER NAME' color 6 inverse,
230 SY-VLINE, 231 'CUSTOMER CONTY' color 6 inverse,
250 SY-VLINE.


ULINE /1(250).



**************************END-OF-PAGE********************************

END-OF-PAGE.


ULINE.

WRITE: /45 ' THIS IS END OF PAGE FOR SALES DOCUMENT DETAILS'
COLOR 6 .

reward points if it is usefull .....

Girish

Former Member · ‎2007 Jul 13

Hi,

Try this,

select matnr posnr vbeln arktx kwmeng cmkua from vbap

into <b>corresponding fields</b> of table t_vbap

where vbeln in S_vbeln.

I hope this works.

Pls do reward points if it works.

Regards,

Ameet

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My SAP Profile

My SAP Profile

doubt in report