ABAP - SALV教程10 添加可編輯checkbox列
- 幾乎所有的功能報表都會有那么一個選擇列，問了業務顧問，業務顧問說是用戶不習慣使用報表原生的選擇模式。
- 效果圖
- SALV的選擇列是通過將列設置成checkbox_hotspot樣式，注冊單擊事件完成勾選功能的。
- 完成步驟
- 將SEL列設置成checkbox_hotspot樣式
METHOD set_columns.
* 取得全部列的對象DATA(lo_cols) = co_alv->get_columns( ).TRY."修改列SEL的標簽名字和輸出長度lo_cols->get_column( 'SEL' )->set_long_text( '選擇' ). "長描述lo_cols->get_column( 'SEL' )->set_medium_text( '選擇' )."中描述lo_cols->get_column( 'SEL' )->set_short_text( '選擇' ). "短描述lo_cols->get_column( 'SEL' )->set_output_length( 4 )."修改列成為checkbox_hotspot樣式DATA lo_col TYPE REF TO cl_salv_column_list.lo_col ?= lo_cols->get_column( 'SEL' ).lo_col->set_cell_type( if_salv_c_cell_type=>checkbox_hotspot ).CATCH cx_salv_not_found.ENDTRY.ENDMETHOD.
- 獲取SALV事件對象，并對單擊事件作處理
METHOD set_columns."獲取事件對象DATA: lo_events TYPE REF TO cl_salv_events_table.lo_events = co_alv->get_event( )."注冊單擊事件SET HANDLER me->on_link_click FOR lo_events.ENDMETHOD. "單擊事件的處理 METHOD on_link_click.READ TABLE me->mt_data ASSIGNING FIELD-SYMBOL(<fs_data>) INDEX row.CHECK sy-subrc IS INITIAL.IF <fs_data>-sel IS INITIAL.<fs_data>-sel = 'X'.ELSE.CLEAR <fs_data>-sel.ENDIF.me->mo_salv->refresh( ).ENDMETHOD.
?
- 完整代碼
CLASS lcl_model DEFINITION.PUBLIC SECTION.TYPES:BEGIN OF TY_dATA,sel TYPE char1,vbeln TYPE vbak-vbeln,erdat TYPE erdat,erzet TYPE erzet,ernam TYPE ernam,auart TYPE auart.TYPES:END OF ty_data.DATA mt_data TYPE TABLE OF ty_data.DATA mo_salv TYPE REF TO cl_salv_table."獲取數據的方法METHODS get_data."展示SALV的方法METHODS alv_show.PRIVATE SECTION.METHODS:set_status CHANGING co_alv TYPE REF TO cl_salv_table.METHODS:set_columns CHANGING co_alv TYPE REF TO cl_salv_table.METHODS:on_link_click FOR EVENT link_click OF cl_salv_events_tableIMPORTING row column.
ENDCLASS.CLASS lcl_model IMPLEMENTATION.METHOD get_data.SELECT vbeln erdat erzet ernam auartINTO CORRESPONDING FIELDS OF TABLE mt_dataFROM vbakUP TO 20 ROWS.ENDMETHOD.METHOD alv_show.DATA: lx_msg TYPE REF TO cx_salv_msg.TRY.cl_salv_table=>factory(IMPORTINGr_salv_table = mo_salvCHANGINGt_table = mt_data ).CATCH cx_salv_msg INTO lx_msg.ENDTRY.me->set_status( CHANGING co_alv = mo_salv ).me->set_columns( CHANGING co_alv = mo_salv ).mo_salv->display( ).ENDMETHOD.METHOD set_status.DATA(lo_functions) = co_alv->get_functions( )."cl_salv_functions_list類型的實例對象的添加狀態方法lo_functions->set_all( abap_true )."lo_functions->set_default( abap_true ).ENDMETHOD.METHOD set_columns.
* 取得全部列的對象DATA(lo_cols) = co_alv->get_columns( ).* 設置自動優化列寬度lo_cols->set_optimize( 'X' ).* 修改列VBELN的標簽名字和輸出長度TRY.lo_cols->get_column( 'SEL' )->set_long_text( '選擇' ). "長描述lo_cols->get_column( 'SEL' )->set_medium_text( '選擇' )."中描述lo_cols->get_column( 'SEL' )->set_short_text( '選擇' ). "短描述lo_cols->get_column( 'SEL' )->set_output_length( 4 ).DATA lo_col TYPE REF TO cl_salv_column_list.lo_col ?= lo_cols->get_column( 'SEL' ).lo_col->set_cell_type( if_salv_c_cell_type=>checkbox_hotspot )..CATCH cx_salv_not_found.ENDTRY.DATA: lo_events TYPE REF TO cl_salv_events_table.lo_events = co_alv->get_event( ).SET HANDLER me->on_link_click FOR lo_events.ENDMETHOD. "SET_COLUMNSMETHOD on_link_click.READ TABLE me->mt_data ASSIGNING FIELD-SYMBOL(<fs_data>) INDEX row.CHECK sy-subrc IS INITIAL.IF <fs_data>-sel IS INITIAL.<fs_data>-sel = 'X'.ELSE.CLEAR <fs_data>-sel.ENDIF.me->mo_salv->refresh( ).ENDMETHOD.
ENDCLASS.START-OF-SELECTION.DATA(lo_model) = NEW lcl_model( ).lo_model->get_data( ).lo_model->alv_show( ).
?
本文來自互聯網用戶投稿，該文觀點僅代表作者本人，不代表本站立場。本站僅提供信息存儲空間服務，不擁有所有權，不承擔相關法律責任。
如若轉載，請注明出處：http://www.pswp.cn/news/716027.shtml
繁體地址，請注明出處：http://hk.pswp.cn/news/716027.shtml
英文地址，請注明出處：http://en.pswp.cn/news/716027.shtml
如若內容造成侵權/違法違規/事實不符，請聯系多彩編程網進行投訴反饋email:809451989@qq.com，一經查實，立即刪除！
靶機練手)
