alv+checkbox+select all

悠悠 2022-09-30 09:55 159阅读 0赞

标准程序  bcalv\_edit\_05  提供了alv使用checkbox和各种操作。  下面程序将bcalv\_edit\_05  简化了。。要运行程序，需要自己创建 screen和GUI-status,GUI-title...

REPORT ZWTEST.

data: ok\_code like sy-ucomm,

save\_ok like sy-ucomm,

g\_container type scrfname value 'PACKINGLIST\_GRID\_0100', "这个是屏幕控件名

g\_grid type ref to cl\_gui\_alv\_grid,

g\_custom\_container type ref to cl\_gui\_custom\_container,

gt\_fieldcat type lvc\_t\_fcat,

gs\_layout type lvc\_s\_layo,

g\_max type i value 100.

\*§A1.Extend your output table by a checkbox field.

\* If you do not want to lock sole checkboxes against input

\* you do not need field 'celltab'.

types: begin of gs\_outtab.

types: checkbox type c. "field for checkbox

\* §B1.Extend your output table by a field to dis- or enable

\* cells for input.

types: celltab type lvc\_t\_styl. "field to switch editability

include structure sflight.

types: end of gs\_outtab.

data: gt\_outtab type gs\_outtab occurs 0 with header line.

\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

\*---------------------------------------------------------------------\*

\* MAIN \*

\*---------------------------------------------------------------------\*

end-of-selection.

call screen 100.

\*---------------------------------------------------------------------\*

\* MODULE PBO OUTPUT \*

\*---------------------------------------------------------------------\*

module pbo output.

set pf-status 'MAIN100'.

set titlebar 'MAIN100'.

if g\_custom\_container is initial.

perform create\_and\_init\_alv.

endif.

endmodule.

\*---------------------------------------------------------------------\*

\* MODULE PAI INPUT \*

\*---------------------------------------------------------------------\*

module pai input.

save\_ok = ok\_code.

clear ok\_code.

case save\_ok.

when 'EXIT'.

perform exit\_program.

when 'SELECT'.

perform select\_all\_entries changing gt\_outtab\[\].

when 'DESELECT'.

perform deselect\_all\_entries changing gt\_outtab\[\].

when 'RESET'.

perform reset\_selected\_entries changing gt\_outtab\[\].

endcase.

endmodule.

\*---------------------------------------------------------------------\*

\* FORM EXIT\_PROGRAM \*

\*---------------------------------------------------------------------\*

form exit\_program.

leave program.

endform.

\*&---------------------------------------------------------------------\*

\*& Form BUILD\_FIELDCAT

\*&---------------------------------------------------------------------\*

\* text

\*----------------------------------------------------------------------\*

\* <--P\_GT\_FIELDCAT text

\*----------------------------------------------------------------------\*

form build\_fieldcat changing pt\_fieldcat type lvc\_t\_fcat.

data ls\_fcat type lvc\_s\_fcat.

call function 'LVC\_FIELDCATALOG\_MERGE'

exporting

i\_structure\_name = 'SFLIGHT'

changing

ct\_fieldcat = pt\_fieldcat.

\*§A2.Add an entry for the checkbox in the fieldcatalog

clear ls\_fcat.

ls\_fcat-fieldname = 'CHECKBOX'.

\* Essential: declare field as checkbox and

\* mark it as editable field:

ls\_fcat-checkbox = 'X'.

ls\_fcat-edit = 'X'.

\* do not forget to provide texts for this extra field

ls\_fcat-coltext = text-f01.

ls\_fcat-tooltip = text-f02.

ls\_fcat-seltext = text-f03.

\* optional: set column width

ls\_fcat-outputlen = 10.

append ls\_fcat to pt\_fieldcat.

endform.

\*&---------------------------------------------------------------------\*

\*& Form CREATE\_AND\_INIT\_ALV

\*&---------------------------------------------------------------------\*

\* text

\*----------------------------------------------------------------------\*

\* <--P\_GT\_OUTTAB text

\* <--P\_GT\_FIELDCAT text

\* <--P\_GS\_LAYOUT text

\*----------------------------------------------------------------------\*

form create\_and\_init\_alv.

data: lt\_exclude type ui\_functions.

create object g\_custom\_container

exporting container\_name = g\_container.

create object g\_grid

exporting i\_parent = g\_custom\_container.

perform build\_fieldcat changing gt\_fieldcat.

\* Exclude all edit functions in this example since we do not need them:

perform exclude\_tb\_functions changing lt\_exclude.

perform build\_data.

\*§ B3.Use the layout structure to aquaint additional field to ALV.

gs\_layout-stylefname = 'CELLTAB'.

call method g\_grid->set\_table\_for\_first\_display

exporting is\_layout = gs\_layout

it\_toolbar\_excluding = lt\_exclude

changing it\_fieldcatalog = gt\_fieldcat

it\_outtab = gt\_outtab\[\].

\* Set editable cells to ready for input initially

call method g\_grid->set\_ready\_for\_input

exporting

i\_ready\_for\_input = 1.

endform. "CREATE\_AND\_INIT\_ALV

\*&---------------------------------------------------------------------\*

\*& Form EXCLUDE\_TB\_FUNCTIONS

\*&---------------------------------------------------------------------\*

\* text

\*----------------------------------------------------------------------\*

\* <--P\_LT\_EXCLUDE text

\*----------------------------------------------------------------------\*

form exclude\_tb\_functions changing pt\_exclude type ui\_functions.

data ls\_exclude type ui\_func.

ls\_exclude = cl\_gui\_alv\_grid=>mc\_fc\_loc\_copy\_row.