topic Re: interactive reports. in Application Development and Automation Discussions

interactive reports.

Former Member — Mon, 31 Dec 2007 13:52:28 GMT

hi,

this is my program.

my primary list will hav a list of customer ids. when i select one a window will open up showing a list of fields in the table along with check box. when i select on fields the selected fields should be displayed in my secondary list for my selected customer id. this is my coding. no detail is getting selected in my secondary list. pls do help me.

and wish u all a very happy new year!! have a graet yr ahead!!!

TABLES : zcust_master3.

&----

*& INTERNAL TABLE

&----

*DATA: wi_custb TYPE STANDARD TABLE OF zcust_master3,

wa_custb LIKE LINE OF wi_custb.

DATA : wi_custb LIKE zcust_master3 OCCURS 0 WITH HEADER LINE.

DATA : wi_custb1 LIKE zcust_master3 OCCURS 0 WITH HEADER LINE.

DATA : wi_custb2 LIKE zcust_master3 OCCURS 0 WITH HEADER LINE.

DATA : BEGIN OF itab1 OCCURS 0,

cust_name LIKE zcust_master3-cust_name,

END OF itab1.

DATA : BEGIN OF itab2 OCCURS 0,

address LIKE zcust_master3-address,

END OF itab2.

DATA : BEGIN OF itab3 OCCURS 0,

city LIKE zcust_master3-city,

END OF itab3.

DATA : BEGIN OF itab4 OCCURS 0,

state LIKE zcust_master3-state,

END OF itab4.

data: l_custid(5) type c.

&----

*& DATA

&----

DATA: flag1 TYPE c LENGTH 1,

flag2 TYPE c LENGTH 1,

flag3 TYPE c LENGTH 1,

flag4 TYPE c LENGTH 1,

col TYPE i,

lin TYPE i,

ln TYPE i,

var1(30) TYPE c VALUE 'customer name',

var2(40) TYPE c VALUE 'address',

var3(15) TYPE c VALUE 'city',

var4(15) TYPE c VALUE 'state'.

&----

*& TOP-OF-PAGE

&----

TOP-OF-PAGE.

ULINE.

SKIP 1.

WRITE : 'CUSTOMER REPORTS'.

SKIP 1.

ULINE.

&----

*& START-OF-SELECTION

&----

START-OF-SELECTION.

WRITE : 'PRIMARY LIST'.

SELECT * FROM zcust_master3 INTO CORRESPONDING FIELDS OF TABLE wi_custb1.

LOOP AT wi_custb1.

WRITE:/ wi_custb1-cust_id HOTSPOT ON.

ENDLOOP.

END-OF-SELECTION.

AT LINE-SELECTION.

SET PF-STATUS 'ZBANKCUSTR'.

get cursor value l_custid.

SELECT * FROM zcust_master3 INTO CORRESPONDING FIELDS OF TABLE wi_custb2 where cust_id = l_custid.

col = sy-cucol + 150.

lin = sy-curow + 4.

WINDOW STARTING AT sy-cucol sy-curow

ENDING AT col lin.

WRITE : / flag1 AS CHECKBOX ,var1.

WRITE : / flag2 AS CHECKBOX ,var2.

WRITE : / flag3 AS CHECKBOX ,var3.

WRITE : / flag4 AS CHECKBOX ,var4.

*AT LINE-SELECTION.

AT USER-COMMAND.

CASE sy-ucomm.

WHEN 'SUBMIT'.

WRITE: / 'SECONDARY LIST'.

if flag1 = 'X'.

loop at wi_custb2.

write 😕 wi_custb2-cust_name.

endloop.

endif.

if flag2 = 'X'.

loop at wi_custb2.

write 😕 wi_custb2-address.

endloop.

endif.

if flag3 = 'X'.

loop at wi_custb2.

write 😕 wi_custb2-city.

endloop.

endif.

if flag4 = 'X'.

loop at wi_custb2.

write 😕 wi_custb2-state.

endloop.

endif.

ENDCASE.

Re: interactive reports.

Former Member — Mon, 31 Dec 2007 14:24:19 GMT

Hi Harini,

You can use the statement HIDE to solve your problem.

for example in your query.

at line-selection.

hide wi_custb1-cust_id.

then select values from table where customer id = wi_custb1-cust_id.

Hope this will solve your problem.

Wish you too a Very Happy New Year!

Regards,

Renjith Michael.

Re: interactive reports.

Former Member — Tue, 01 Jan 2008 11:26:37 GMT

hi,

try like this....

DATA : BEGIN OF wi_cust OCCURS 0 ,

kunnr LIKE kna1-kunnr,

name1 LIKE kna1-name1,

adrnr LIKE kna1-adrnr,

END OF wi_cust.

DATA : BEGIN OF wi_adrc OCCURS 0 ,

kunnr LIKE kna1-kunnr,

name1 LIKE adrc-name1,

city1 LIKE adrc-city1,

END OF wi_adrc.

DATA : BEGIN OF cust OCCURS 0,

kunnr LIKE kna1-kunnr,

adrnr LIKE kna1-adrnr,

END OF cust.

DATA : chk1 TYPE c,

chk2 TYPE c,

name TYPE c,

city TYPE c,

var1(5) TYPE c VALUE 'Name',

var2(5) TYPE c VALUE 'City',

lines TYPE i,

lines1 TYPE i..

DATA: c TYPE c, ind TYPE c.

DATA : v_line TYPE sy-index.

SELECT kunnr name1 adrnr UP TO 10 ROWS FROM kna1 INTO TABLE wi_cust.

LOOP AT wi_cust .

WRITE : / chk1 AS CHECKBOX ,sy-vline, wi_cust-kunnr,wi_cust-name1,wi_cust-adrnr.

HIDE : wi_cust-kunnr, chk1.

ENDLOOP.

END-OF-SELECTION.

lines = sy-linno - 1.

AT LINE-SELECTION.

CHECK sy-lsind = 1.

WINDOW STARTING AT 5 4

ENDING AT 85 20.

DO lines TIMES.

CLEAR chk1.

READ LINE sy-index FIELD VALUE chk1.

IF chk1 = 'X'.

ind = sy-index - 2.

READ TABLE wi_cust INDEX ind.

cust-kunnr = wi_cust-kunnr.

cust-adrnr = wi_cust-adrnr.

APPEND cust.

ENDIF.

ENDDO.

WRITE : / name AS CHECKBOX,var1.

WRITE : / city AS CHECKBOX,var2.

lines1 = 2.

AT LINE-SELECTION.

CHECK sy-lsind = 2.

WINDOW STARTING AT 5 4

ENDING AT 100 20.

DO lines1 TIMES.

READ LINE sy-index FIELD VALUE name.

READ LINE sy-index FIELD VALUE city.

ENDDO.

IF name = 'X'.

SELECT name1 FROM adrc INTO CORRESPONDING FIELDS OF TABLE wi_adrc FOR ALL ENTRIES IN cust

WHERE addrnumber = cust-adrnr.

LOOP AT wi_adrc.

WRITE : / wi_adrc-name1.

ENDLOOP.

ELSEIF city = 'X'.

SELECT city1 FROM adrc INTO CORRESPONDING FIELDS OF TABLE wi_adrc FOR ALL ENTRIES IN cust

WHERE addrnumber = cust-adrnr.

LOOP AT wi_adrc.

WRITE : / wi_adrc-city1.

ENDLOOP.

ENDIF.

reward if usefull...