Skip to Content
0
Former Member
Jun 09, 2008 at 12:14 PM

how to do this report...

18 Views

hi thank you

i followed your suggestion i did this program

i am sending the code too

but in that by clicking only i am getting the secondary list as pop up window

i need without clicking

by putting the cursor near customer number

without any action

i need a list of sales orders of that customers

i am sending the code too..

&----


*& Report ZINTER *

*& *

&----


*& *

*& *

&----


REPORT ZINTER .

DATA : BEGIN OF ITKNA1 OCCURS 0,

KUNNR LIKE KNA1-KUNNR,

NAME1 LIKE KNA1-NAME1,

LAND1 LIKE KNA1-LAND1,

ORT01 LIKE KNA1-ORT01,

END OF ITKNA1,

BEGIN OF ITVBAK OCCURS 0,

KUNNR LIKE KNA1-KUNNR,

VBELN LIKE VBAK-VBELN,

ERDAT LIKE VBAK-ERDAT,

ERNAM LIKE VBAK-ERNAM,

NETWR LIKE VBAK-NETWR,

END OF ITVBAK.

SELECT-OPTIONS : SKUNNR FOR ITKNA1-KUNNR DEFAULT 1000 TO 1010.

SELECT KUNNR NAME1 LAND1 ORT01

FROM KNA1 INTO TABLE ITKNA1

WHERE KUNNR IN SKUNNR.

LOOP AT ITKNA1.

WRITE :/ ITKNA1-KUNNR HOTSPOT,

ITKNA1-NAME1,

ITKNA1-LAND1,

ITKNA1-ORT01.

HIDE ITKNA1-KUNNR.

ENDLOOP.

AT LINE-SELECTION.

CASE SY-LSIND.

WHEN 1.

SELECT KUNNR VBELN ERDAT ERNAM NETWR

FROM VBAK INTO TABLE ITVBAK

WHERE KUNNR = ITKNA1-KUNNR.

WINDOW STARTING AT 10 10

ENDING AT 40 20.

LOOP AT ITVBAK.

WRITE :/ ITVBAK-KUNNR,

ITVBAK-VBELN,

ITVBAK-ERDAT,

ITVBAK-ERNAM,

ITVBAK-NETWR.

ENDLOOP.

ENDCASE.

waiting for your reply

thanks & regards

kals.