topic how to program a 'select all' button ? in Application Development and Automation Discussions

how to program a 'select all' button ?

santanunayek — Thu, 28 Nov 2013 06:42:30 GMT

hi.

i am creating an interactive list report using checkbox.

the basic list output for SY-LSIND = 1 in the following image

i want to have a SELECT ALL button to select all the checkbox at a time.

plz help me with the code on how to select all the checkbox at a time..

thank you..

Re: how to program a 'select all' button ?

nabheetscn — Thu, 28 Nov 2013 06:46:43 GMT

In your PF status add a button for select all in application in toolbar. It will be display. Once it is click in your user command Loop at OUTPUT table and pass value X to this chekcbox field

Nabheet

Re: how to program a 'select all' button ?

philipdavy — Thu, 28 Nov 2013 06:53:52 GMT

Hi Santanu,

Refer the below given link. Seems like similar scenario as that of yours.

https://scn.sap.com/thread/733049

Regards,

Philip.

Re: how to program a 'select all' button ?

Former Member — Thu, 28 Nov 2013 06:57:47 GMT

1. First set the GUI Status in PBO.

2. In the menu painter, for that GUI, create select all button with fcode say '&SEL'.

3. In the ALV FM, have a user command module,

3. In the user command module, if r_ucomm = '&SEL'.

loop through the data table, and set checkbox = 'X' for all row.

4. Dont forget to refresh ALV using rs_selfield-refresh = 'X'.

You will get your desired output.

Re: how to program a 'select all' button ?

muthuchemca — Thu, 28 Nov 2013 06:59:54 GMT

Hello Santanu,

Please refer below std program.

BCALV_EDIT_05

Re: how to program a 'select all' button ?

Former Member — Thu, 28 Nov 2013 07:28:10 GMT

You have to add a button for select all in your PF status & when that button is clicked (sy-ucomm),

loop your internal table & make checkbox eq 'X'..

check this thread

Re: how to program a 'select all' button ?

sivaganesh_krishnan — Thu, 28 Nov 2013 07:29:17 GMT

Hi santanu,

Check the following code, create a button select all in application toolbar of pf status.

TABLES: mara,makt.

TYPES: BEGIN OF ty_mara,

matnr TYPE matnr, "Material Number

ersda TYPE ersda, "Created On

ernam TYPE ernam, "Name of Person who Created the Object

END OF ty_mara,

BEGIN OF ty_makt,

matnr TYPE matnr, "Material Number

spras TYPE spras, "Language Key

maktx TYPE maktx, "Material Description (Short Text)

END OF ty_makt.

DATA: it_mara TYPE STANDARD TABLE OF ty_mara INITIAL SIZE 0,

wa_mara TYPE ty_mara,

it_makt TYPE STANDARD TABLE OF ty_makt INITIAL SIZE 0,

wa_makt TYPE ty_makt,

lv_matnr TYPE matnr,

c1 .

DATA: SD_BOOL TYPE wdy_boolean,

PS_BOOL type wdy_boolean.

SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECT-OPTIONS: s_matnr FOR mara-matnr.

SELECTION-SCREEN: END OF BLOCK b1.

AT SELECTION-SCREEN.

IF s_matnr IS NOT INITIAL.

SELECT SINGLE matnr

FROM mara

INTO lv_matnr

WHERE matnr IN s_matnr.

IF sy-subrc NE 0.

MESSAGE: 'Material Number does not exist' TYPE'E'.

ENDIF.

START-OF-SELECTION.

SELECT matnr

ersda

ernam

FROM mara

INTO TABLE it_mara

WHERE matnr IN s_matnr.

IF sy-subrc EQ 0.

SORT it_mara BY matnr.

ENDIF.

SET PF-STATUS 'CHK'.

AT USER-COMMAND.

CASE sy-ucomm.

WHEN 'DISPLAY'.

DATA ln TYPE i.

DESCRIBE LIST NUMBER OF LINES ln.

DO ln TIMES.

READ LINE sy-index FIELD VALUE c1 .

IF c1 = 'X'.

SELECT matnr

spras

maktx

FROM makt

INTO TABLE it_makt

WHERE matnr = wa_mara-matnr.

IF sy-subrc EQ 0.

SORT it_makt BY matnr.

ENDIF.

IF it_makt IS NOT INITIAL.

LOOP AT it_makt INTO wa_makt.

WRITE: / wa_makt-matnr,

wa_makt-spras,

wa_makt-maktx.

ENDLOOP.

ENDIF.

ENDDO.

WHEN 'EXIT'.

message:'Are you sure' type'I'.

LEAVE LIST-PROCESSING.

WHEN 'SELECTALL' .

IF c1 IS INITIAL.

LOOP AT it_mara INTO wa_mara.

c1 = 'X'.

WRITE: / c1 as CHECKBOX ,wa_mara-matnr,

wa_mara-matnr,

wa_mara-ersda,

wa_mara-ernam.

HIDE wa_mara-matnr.

ENDLOOP.

ENDIF.

WHEN OTHERS.

endcase.

END-OF-SELECTION.

IF it_mara IS NOT INITIAL.

LOOP AT it_mara INTO wa_mara.

WRITE: / c1 as CHECKBOX ,wa_mara-matnr,

wa_mara-matnr,

wa_mara-ersda,

wa_mara-ernam.

HIDE wa_mara-matnr.

ENDLOOP.

ENDIF.

AT LINE-SELECTION.

SELECT matnr

spras

maktx

FROM makt

INTO TABLE it_makt

WHERE matnr = wa_mara-matnr.

IF sy-subrc EQ 0.

SORT it_makt BY matnr.

ENDIF.

IF it_makt IS NOT INITIAL.

LOOP AT it_makt INTO wa_makt.

WRITE: / wa_makt-matnr,

wa_makt-spras,

wa_makt-maktx.

ENDLOOP.

ENDIF.

Re: how to program a 'select all' button ?

santanunayek — Thu, 28 Nov 2013 19:05:32 GMT

thanks for all your support..

but the fact is ..i am creating these checkbox at the output list only..it's not a internal table or db field. my program is as follows:

LOOP AT IT_01 INTO WA_01. " IT_01 is the internal table

WRITE:/1'|', CHK AS CHECKBOX , 7'|',

8(18) WA_01-MATNR COLOR 2,26'|',

27(10) WA_01-ERSDA COLOR 3 INTENSIFIED OFF,40'|'.

HIDE WA_01-MATNR.

ENDLOOP.

plz help me if u can..thanks

Re: how to program a 'select all' button ?

sivaganesh_krishnan — Fri, 29 Nov 2013 03:56:36 GMT

check my above program buddy.. this will solve the issue.. try executing it ..

Regards,

Sivaganesh