AT LINE-SELECTION

[Former Member]

HI,

THIS IS MY REQUIREMENT.I HAVE A REPORT,WHERE ON THEREPORT OUTPUT I HAVE CHECKBOX.IF THE CHECKBOX IS CHECKED IT MUST IT MUST GIVE A MESSAGE AS SPECIFIED.

THIS CODE IS AS BELOW.

DATA : BEGIN OF ITAB OCCURS 0,

MATNR LIKE MAKT-MATNR,

MAKTX LIKE MAKT-MAKTX,

C1,

END OF ITAB.

SELECT MATNR

MAKTX

FROM MAKT

INTO TABLE ITAB

WHERE SPRAS = 'EN'.

LOOP AT ITAB.

WRITE : / ITAB-C1 AS CHECKBOX,ITAB-MATNR,ITAB-MAKTX INPUT ON.

HIDE : ITAB-C1,ITAB-MATNR.

ENDLOOP.

AT LINE-SELECTION.

DATA : D(60).

READ CURRENT LINE FIELD VALUE D.

IF SY-SUBRC EQ 0.

IF ITAB-C1 = 'X'.

WRITE : / 'SUCCESSFUL'.

ENDIF.

ENDIF.

BUT I AM UNABLE TO CAPTURE THE VALUE IN THE CHECKBOX.

I AM UNABLE TO CHECK IF IT IS CHECKED OR NOT.

CAN SOMEONE HELP ME WITH THIS PLEASE??

THANKS,

SIRISHA MATTA.

[Former Member]

HI,

THIS IS MY REQUIREMENT.I HAVE A REPORT,WHERE ON THEREPORT OUTPUT I HAVE CHECKBOX.IF THE CHECKBOX IS CHECKED IT MUST IT MUST GIVE A MESSAGE AS SPECIFIED.

THIS CODE IS AS BELOW.

DATA : BEGIN OF ITAB OCCURS 0,

MATNR LIKE MAKT-MATNR,

MAKTX LIKE MAKT-MAKTX,

C1,

END OF ITAB.

SELECT MATNR

MAKTX

FROM MAKT

INTO TABLE ITAB

WHERE SPRAS = 'EN'.

LOOP AT ITAB.

WRITE : / ITAB-C1 AS CHECKBOX,ITAB-MATNR,ITAB-MAKTX INPUT ON.

HIDE : ITAB-C1,ITAB-MATNR.

ENDLOOP.

AT LINE-SELECTION.

DATA : D(60).

READ CURRENT LINE FIELD VALUE D.

IF SY-SUBRC EQ 0.

IF ITAB-C1 = 'X'.

WRITE : / 'SUCCESSFUL'.

ENDIF.

ENDIF.

BUT I AM UNABLE TO CAPTURE THE VALUE IN THE CHECKBOX.

I AM UNABLE TO CHECK IF IT IS CHECKED OR NOT.

CAN SOMEONE HELP ME WITH THIS PLEASE??

THANKS,

SIRISHA MATTA.

[Former Member]

Hi,

In the Output Data Loop,

read the data of Sy-lisel and capture the values selected when CHK = "X".

and put them into a sepearte int table and for them, select the data and display.

regards,

Anji

[Former Member]

at line-selection

loop at itab.

read line field itab-c = 'X'.

IF SY-SUBRC EQ 0.

WRITE : / 'SUCCESSFUL'.

ENDIF.

endloop.

try in this way

[Former Member]

at line-selection

loop at itab.

read line field itab-c = 'X'.

IF SY-SUBRC EQ 0.

WRITE : / 'SUCCESSFUL'.

ENDIF.

endloop.

try in this way

[Former Member]

Take the program demo_list_read_line as a referance.

Regards,

ravi

[Former Member]

Hi!

In AT LINE-SELECTION, write this code-

DO

READ LINE SY-INDEX FIELD VALUE C1.

IF sy-subrc <> 0.

EXIT.

ELSEIF ITAB-C1 = 'X'.

MESSAGE ' '.

ENDIF.

ENDDO.

Check & let me know whether it worked or not.

Reward points if it helps.

Regards,

Neha Bansal.

Message was edited by:

Neha Bansal

[Former Member]

Hi..

try this code..

DATA : BEGIN OF itab OCCURS 0, "check box selected

matnr LIKE makt-matnr,

maktx LIKE makt-maktx,

c1,

END OF itab.

SELECT matnr maktx FROM makt INTO TABLE itab WHERE spras = 'EN'.

LOOP AT itab.

WRITE : / itab-c1 AS CHECKBOX hotspot on,itab-matnr,itab-maktx INPUT ON.

HIDE : itab-c1,itab-matnr.

ENDLOOP.

AT LINE-SELECTION.

DATA : d(60).

READ CURRENT LINE FIELD VALUE itab-c1. <b>Change this to itab-c1 from D</b>

IF sy-subrc EQ 0.

IF itab-c1 = 'X'.

WRITE : / 'SUCCESSFUL'.

ENDIF.

ENDIF.

hope it will helps..

Reward if it helps..

Regards

Bala..

[Former Member]

Hi,

AT LINE-SELECTION.

do <N> times.

clear d.

READ LINE sy-index FIELD VALUE itab-c1 INTO d.

IF SY-SUBRC EQ 0.

IF d = 'X'.

WRITE : / 'SUCCESSFUL'.

ENDIF.

ENDIF.

ENDDO.

Reward points if its useful..

Regards

Shekhar