Skip to Content
0
Former Member
Dec 31, 2007 at 01:52 PM

interactive reports.

18 Views

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.