Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

multiple selection in interactive reports

Former Member
0 Likes
419

hi,

how can we do multiple selection in interactive reports using check box?

my first list will have a list of account numbers along with the check box. if few check boxes are clicked then the other fields from the table for the checked account numbers . kindly help me with this.

1 ACCEPTED SOLUTION
Read only

Former Member
0 Likes
293

Hi,

REPORT zbcd .

data : BEGIN OF ITAB OCCURS 0,

VAR1(4) TYPE C,

VAR2(4) TYPE c,

END OF ITAB,

LINE1 TYPE I,

VAR3(4) TYPE C,

VAR4(4) TYPE C,

FLAG TYPE C,

CURRENT TYPE I.

data : BEGIN OF WA OCCURS 0,

XYZ(100) TYPE C,

END OF WA.

MOVE: '1234' TO ITAB-VAR1,

'ABCD' TO ITAB-VAR2.

APPEND ITAB.

MOVE: '5678' TO ITAB-VAR1,

'EFGH' TO ITAB-VAR2.

APPEND ITAB.

MOVE: '9999' TO ITAB-VAR1,

'IJKL' TO ITAB-VAR2.

APPEND ITAB.

SET PF-STATUS 'BUTTONS'.

*HERE PF-STATUS CONSIST OF PUSHBUTTON WITH USERCOMNAD 'DISP'.

LOOP AT ITAB.

WRITE: / FLAG AS CHECKBOX, ITAB-VAR1, ITAB-VAR2.

ENDLOOP.

DESCRIBE TABLE ITAB LINES LINE1.

REFRESH ITAB.

CLEAR ITAB.

CURRENT = 0.

CLEAR: VAR3, VAR4.

AT USER-COMMAND.

CASE SY-UCOMM.

WHEN 'DISP'.

DO LINE1 TIMES.

CURRENT = SY-INDEX + 2.

READ LINE CURRENT LINE VALUE INTO wa.

IF wa-XYZ(1) EQ 'X'.

WRITE: wa-XYZ+2(4) TO VAR3,

wa-XYZ+7(4) TO VAR4.

WRITE: VAR3 TO ITAB-VAR1,

VAR4 TO ITAB-VAR2.

APPEND ITAB.

ENDIF.

ENDDO.

ENDCASE.

THEN U SECONDARY LIST VALUE SELECTION TAKES PLACE

SELECT * FROM MARA INTO TABLE ITMARA FOR ALL ENTRIES IN ITAB WHERE MATNR = ITAB-MATNR.

LOOP AT ITMARA.

WRITE:-----FIELDS TO BE DISPLAY IN OTHER LIST...

ENDLOOP.

*NOTE :-1.PLEASE EXECUTE ABOVE PROGRAM WITH OUT CHANGES IN DEBUG MODE TO CLEARLY UNDERSTAND.

2.ALSO U CAN MOVE ABOVE ITAB REQUIRED FIELD VALUES INTO ONE OF INTERNAL TABLE(BY LOOPING) WHICH IS LIKE SELECTOPTIONS MARA-MATNR(ie TB_MATNR) AND USE*

(AND INSTEAD OF VAR1 AND VAR3 U CAN PLACE THE MATNR)

SELECT * FROM MARA INTO TABLE ITMARA WHERE MATNR IN TB_MATNR.*

Edited by: Vijay Mekala on Feb 1, 2008 5:16 PM

1 REPLY 1
Read only

Former Member
0 Likes
294

Hi,

REPORT zbcd .

data : BEGIN OF ITAB OCCURS 0,

VAR1(4) TYPE C,

VAR2(4) TYPE c,

END OF ITAB,

LINE1 TYPE I,

VAR3(4) TYPE C,

VAR4(4) TYPE C,

FLAG TYPE C,

CURRENT TYPE I.

data : BEGIN OF WA OCCURS 0,

XYZ(100) TYPE C,

END OF WA.

MOVE: '1234' TO ITAB-VAR1,

'ABCD' TO ITAB-VAR2.

APPEND ITAB.

MOVE: '5678' TO ITAB-VAR1,

'EFGH' TO ITAB-VAR2.

APPEND ITAB.

MOVE: '9999' TO ITAB-VAR1,

'IJKL' TO ITAB-VAR2.

APPEND ITAB.

SET PF-STATUS 'BUTTONS'.

*HERE PF-STATUS CONSIST OF PUSHBUTTON WITH USERCOMNAD 'DISP'.

LOOP AT ITAB.

WRITE: / FLAG AS CHECKBOX, ITAB-VAR1, ITAB-VAR2.

ENDLOOP.

DESCRIBE TABLE ITAB LINES LINE1.

REFRESH ITAB.

CLEAR ITAB.

CURRENT = 0.

CLEAR: VAR3, VAR4.

AT USER-COMMAND.

CASE SY-UCOMM.

WHEN 'DISP'.

DO LINE1 TIMES.

CURRENT = SY-INDEX + 2.

READ LINE CURRENT LINE VALUE INTO wa.

IF wa-XYZ(1) EQ 'X'.

WRITE: wa-XYZ+2(4) TO VAR3,

wa-XYZ+7(4) TO VAR4.

WRITE: VAR3 TO ITAB-VAR1,

VAR4 TO ITAB-VAR2.

APPEND ITAB.

ENDIF.

ENDDO.

ENDCASE.

THEN U SECONDARY LIST VALUE SELECTION TAKES PLACE

SELECT * FROM MARA INTO TABLE ITMARA FOR ALL ENTRIES IN ITAB WHERE MATNR = ITAB-MATNR.

LOOP AT ITMARA.

WRITE:-----FIELDS TO BE DISPLAY IN OTHER LIST...

ENDLOOP.

*NOTE :-1.PLEASE EXECUTE ABOVE PROGRAM WITH OUT CHANGES IN DEBUG MODE TO CLEARLY UNDERSTAND.

2.ALSO U CAN MOVE ABOVE ITAB REQUIRED FIELD VALUES INTO ONE OF INTERNAL TABLE(BY LOOPING) WHICH IS LIKE SELECTOPTIONS MARA-MATNR(ie TB_MATNR) AND USE*

(AND INSTEAD OF VAR1 AND VAR3 U CAN PLACE THE MATNR)

SELECT * FROM MARA INTO TABLE ITMARA WHERE MATNR IN TB_MATNR.*

Edited by: Vijay Mekala on Feb 1, 2008 5:16 PM