09-28-2007 11:34 AM
i want to create an interactive report where i select records from basic list by selecting chekboxes and clicking on a button created i will get the detailed list.
please give the syntax for checking that checkbox.....
here is my code but its giving error
SET PF-STATUS'MAIN'.
AT USER-COMMAND.
CASE SY-UCOMM.
WHEN 'DETAIL'.
PERFORM GET_DETAILS.
ENDCASE.
----
FORM GET_DETAILS *
----
DISPLAY THE DETAILS OF THE RECORD SELECTED BY THE USER *
*
----
FORM GET_DETAILS.
CHECK SY-LSIND = 1.
WINDOW STARTING AT 10 4
ENDING AT 65 12.
DO.
CLEAR CHEK.
READ LINE SY-INDEX FIELD VALUE CHEK.
IF SY-SUBRC <> 0.
EXIT.
ELSE.
CHECK CHEK = "X".
WRITE: I_EMPLOYEE-EMP_ID,
I_EMPLOYEE-EMP_NAME,
I_EMPLOYEE-EMP_ADDR,
I_EMPLOYEE-EMP_PROFILE.
ULINE.
ENDIF.
CHECK CHEK = "X".
09-28-2007 11:38 AM
Hi Jyoti,
I am providing a piece of code for select all, deselect all .
AT USER-COMMAND.
SET PF-STATUS 'AK01'.
CASE SY-UCOMM.
WHEN 'EXT1'.
SET SCREEN 0.
LEAVE SCREEN.
WHEN 'EX01'.
DO LINES TIMES.
READ LINE SY-INDEX FIELD VALUE BOX.
IF BOX = 'X' .
WRITE:/2 IT_MATERIAL_REC-MATNR, 22 IT_MATERIAL_REC-MAKTX .
HIDE: IT_MATERIAL_REC-MATNR,
IT_MATERIAL_REC-MAKTX .
ENDIF.
ENDDO.
WHEN 'SELALL'.
DO LINES TIMES.
READ LINE SY-INDEX FIELD VALUE BOX.
IF BOX <> 'X' .
BOX = 'X'.
ENDIF.
ENDDO.
WHEN 'DESELALL'.
DO LINES TIMES.
READ LINE SY-INDEX FIELD VALUE BOX.
IF BOX = 'X' .
BOX = ' '.
ENDIF.
ENDDO.
This is gonna solve ur probs..
Now do assign points for my efforts..
Regards.
S.Agarwal.
09-28-2007 11:38 AM
Hi Jyoti,
I am providing a piece of code for select all, deselect all .
AT USER-COMMAND.
SET PF-STATUS 'AK01'.
CASE SY-UCOMM.
WHEN 'EXT1'.
SET SCREEN 0.
LEAVE SCREEN.
WHEN 'EX01'.
DO LINES TIMES.
READ LINE SY-INDEX FIELD VALUE BOX.
IF BOX = 'X' .
WRITE:/2 IT_MATERIAL_REC-MATNR, 22 IT_MATERIAL_REC-MAKTX .
HIDE: IT_MATERIAL_REC-MATNR,
IT_MATERIAL_REC-MAKTX .
ENDIF.
ENDDO.
WHEN 'SELALL'.
DO LINES TIMES.
READ LINE SY-INDEX FIELD VALUE BOX.
IF BOX <> 'X' .
BOX = 'X'.
ENDIF.
ENDDO.
WHEN 'DESELALL'.
DO LINES TIMES.
READ LINE SY-INDEX FIELD VALUE BOX.
IF BOX = 'X' .
BOX = ' '.
ENDIF.
ENDDO.
This is gonna solve ur probs..
Now do assign points for my efforts..
Regards.
S.Agarwal.
09-28-2007 11:50 AM
09-28-2007 12:05 PM
Hi Jyoti,
Its good dat my piece of code helped u.
But u sud hav been more generous in Alloting points...
Anyways enjoi
S.Agarwal...
09-28-2007 12:00 PM
hi,
U want to select a single line's checkbox and press the button (or) select checkboxes of multiple lines and press the button ??