‎2007 Dec 24 9:46 AM
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.
‎2008 Feb 01 11:42 AM
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
‎2008 Feb 01 11:42 AM
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