Application Development 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: 

Can any one help!

Former Member
0 Kudos

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".

1 ACCEPTED SOLUTION

Former Member
0 Kudos

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.

4 REPLIES 4

Former Member
0 Kudos

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.

Former Member
0 Kudos

HEY SAPNA THNAKS A LOT IT WORKED.

0 Kudos

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...

Former Member
0 Kudos

hi,

U want to select a single line's checkbox and press the button (or) select checkboxes of multiple lines and press the button ??