勾選某一行的勾選框，更改當前行的顏色，ALV數據發生變化的事件

文章目錄

屏幕
ALV的創建
定義變量
注冊事件
方法定義
方法實現
- frm_data_change
效果

屏幕

在這里插入圖片描述

ALV的創建

DATA: g_gui_custom_container   TYPE REF TO cl_gui_custom_container.
DATA: g_gui_alv_grid TYPE REF TO cl_gui_alv_grid.DATA: gt_listheader TYPE slis_t_listheader, "ALV 表頭gs_layout     TYPE lvc_s_layo.        "ALV布局工作區DATA: gs_fieldcat TYPE lvc_s_fcat, "字段工作區gt_fieldcat TYPE TABLE OF lvc_s_fcat.DATA: gt_toolbar TYPE ui_functions.DATA: gs_variant TYPE disvariant.
DATA: gv_variant TYPE disvariant .DATA: gs_events TYPE slis_alv_event,gt_events TYPE slis_t_event.DATA: gs_fieldinfo TYPE slis_fieldinfo2,gt_fieldinfo TYPE TABLE OF slis_fieldinfo2.DATA: gr_table_alv  TYPE REF TO cl_salv_table.
DATA: g_event_class TYPE REF TO lcl_event_class.

在這里插入圖片描述

*&---------------------------------------------------------------------*
*& Module SET_SCREEN_ALV OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE set_screen_alv OUTPUT.DATA: lt_filter TYPE lvc_t_filt.PERFORM frm_alv_variant CHANGING gv_variant.IF g_gui_custom_container IS INITIAL." 創建容器對象CREATE OBJECT g_gui_custom_containerEXPORTINGcontainer_name = 'CONTAINER_ALV'.ENDIF.IF g_gui_alv_grid IS INITIAL." 創建alv對象CREATE OBJECT g_gui_alv_gridEXPORTINGi_parent = g_gui_custom_container."字段設置PERFORM frm_pre_fieldcat TABLES gt_fieldcat USING gs_item 'GS_ITEM'."布局gs_layout-cwidth_opt = 'X'.gs_layout-info_fname = 'COLOR'.gs_layout-stylefname = 'FIELD_STYLE'." 設置按鈕REFRESH: gt_toolbar.PERFORM frm_alv_funcodes CHANGING gt_toolbar.CREATE OBJECT g_event_class.SET HANDLER g_event_class->handle_toolbarg_event_class->handle_user_commandg_event_class->handle_changeg_event_class->handle_double_clickFOR g_gui_alv_grid.IF gt_fieldcat[] IS NOT INITIAL.CALL METHOD g_gui_alv_grid->set_table_for_first_displayEXPORTINGis_layout            = gs_layouti_save               = 'A'is_variant           = gv_variantit_toolbar_excluding = gt_toolbarCHANGINGit_filter            = lt_filterit_outtab            = gt_item[]it_fieldcatalog      = gt_fieldcat.ENDIF.CALL METHOD g_gui_alv_grid->check_changed_data. "控制ALV顯示界面刷新CALL METHOD g_gui_alv_grid->register_edit_eventEXPORTINGi_event_id = cl_gui_alv_grid=>mc_evt_modifiedEXCEPTIONSerror      = 1OTHERS     = 2.CALL METHOD g_gui_alv_grid->register_edit_eventEXPORTINGi_event_id = cl_gui_alv_grid=>mc_evt_enterEXCEPTIONSerror      = 1OTHERS     = 2.CALL METHOD cl_gui_alv_grid=>set_focusEXPORTINGcontrol           = g_gui_alv_gridEXCEPTIONScntl_error        = 1cntl_system_error = 2OTHERS            = 3.ELSE.PERFORM frm_refresh_alv_data.ENDIF.
ENDMODULE.

定義變量

在這里插入圖片描述

DATA:BEGIN OF gs_item,sel,zicon       TYPE icon_d,    "狀態auart       TYPE vbak-auart,bezei       TYPE tvakt-bezei,vbeln_dn    TYPE likp-vbeln,posnr_dn    TYPE lips-posnr,vbeln_so    TYPE vbak-vbeln,posnr_so    TYPE vbap-posnr,zddxq       TYPE char10,bstkd       TYPE vbkd-bstkd, "客戶POkunnr       TYPE vbak-kunnr,name1       TYPE kna1-name1, "售達方名稱kunnr_sh    TYPE vbpa-kunnr, "送達方name1_sh    TYPE kna1-name1, "送達方名稱名稱matnr       TYPE vbap-matnr,arktx       TYPE vbap-arktx, "物料描述kdmat       TYPE vbap-kdmat, "客戶物料maktx       TYPE makt-maktx,kwmeng      TYPE vbap-kwmeng,lfimg       TYPE lips-lfimg, "已交貨數量zmenge      TYPE lips-lfimg, "未交貨數量zbdmng      TYPE lips-lfimg, "已過賬數量vrkme       TYPE vbap-vrkme, "銷售單位zbzzl       TYPE lips-lfimg, "標準重量werks       TYPE vbap-werks,lgort_a     TYPE mska-lgort, "前隴成品倉zkalab_a    TYPE mska-kalab, "可用庫存數量lgort_b     TYPE mska-lgort, "西山成品倉zkalab_b    TYPE mska-kalab, "可用庫存數量lgort_c     TYPE mska-lgort, "客供成品倉zkalab_c    TYPE mska-kalab, "可用庫存數量lgmng       TYPE lips-lgmng, "計劃交貨數量wadat       TYPE vbep-edatu, "計劃交貨日期ernam       TYPE vbak-ernam,kvgr4       TYPE vbak-kvgr4,kvgr5       TYPE vbak-kvgr5,audat       TYPE vbak-audat,vkorg       TYPE vbak-vkorg,vtweg       TYPE vbak-vtweg,spart       TYPE vbak-spart,zmseg       TYPE bapiret2-message, "錯誤消息color(4)    TYPE c, "定義行顏色字段field_style TYPE lvc_t_styl,lv_line     TYPE i, "行號標識
*--------------------------------------------------------------------*change by JT-ZZY AT 20221210 新增三個倉庫對應的庫存數量lgort_d     TYPE mska-lgort, "安徽新馬成品一庫zkalab_d    TYPE mska-kalab, "可用庫存數量vrkme_d     TYPE vbap-vrkme, "可用庫存數量單位lgort_e     TYPE mska-lgort, "安徽新馬成品二庫zkalab_e    TYPE mska-kalab, "可用庫存數量vrkme_e     TYPE vbap-vrkme, "可用庫存數量單位lgort_f     TYPE mska-lgort, "安徽新馬成品三庫zkalab_f    TYPE mska-kalab, "可用庫存數量vrkme_f     TYPE vbap-vrkme, "可用庫存數量單位lgort_g     TYPE mska-lgort, "新能源成品倉zkalab_g    TYPE mska-kalab, "可用庫存數量vrkme_g     TYPE vbap-vrkme, "可用庫存數量單位zverid      TYPE vbap-zverid,"ADD "27.06.2023 11:08:20 jt-zzylgort_h     TYPE mska-lgort, "新能源成品倉                      廣東新能源成品倉:1100 工廠，1109、1110、1111、1112 庫位zkalab_h    TYPE mska-kalab, "可用庫存數量vrkme_h     TYPE vbap-vrkme, "可用庫存數量單位lgort_i     TYPE mska-lgort, "新能源成品倉zkalab_i    TYPE mska-kalab, "可用庫存數量vrkme_i     TYPE vbap-vrkme, "可用庫存數量單位lgort_j     TYPE mska-lgort, "新能源成品倉zkalab_j    TYPE mska-kalab, "可用庫存數量vrkme_j     TYPE vbap-vrkme, "可用庫存數量單位lgort_k     TYPE mska-lgort, "新能源成品倉zkalab_k    TYPE mska-kalab, "可用庫存數量vrkme_k     TYPE vbap-vrkme, "可用庫存數量單位lgort_l     TYPE mska-lgort, "新能源成品倉                      江蘇新能源一廠成品倉: 1700 工廠，1703、1717 庫位zkalab_l    TYPE mska-kalab, "可用庫存數量vrkme_l     TYPE vbap-vrkme, "可用庫存數量單位lgort_m     TYPE mska-lgort, "新能源成品倉zkalab_m    TYPE mska-kalab, "可用庫存數量vrkme_m     TYPE vbap-vrkme, "可用庫存數量單位lgort_n     TYPE mska-lgort, "新能源成品倉                      安徽新能源成品倉:1800 工廠，1803 庫位zkalab_n    TYPE mska-kalab, "可用庫存數量vrkme_n     TYPE vbap-vrkme, "可用庫存數量單位lgort_o     TYPE mska-lgort, "精密BU-平埔成品倉  "精密事業部需求添加 ADD BY LHY 20250407zkalab_o    TYPE mska-kalab, "可用庫存數量(3003) "精密事業部需求添加 ADD BY LHY 20250407vrkme_o     TYPE vbap-vrkme, "可用庫存數量單位   "精密事業部需求添加 ADD BY LHY 20250407END OF gs_item.
DATA:gt_item LIKE TABLE OF gs_item.DATA: g_event_class TYPE REF TO lcl_event_class.

注冊事件

在這里插入圖片描述

方法定義

在這里插入圖片描述

CLASS lcl_event_class IMPLEMENTATION."雙擊事件METHOD handle_double_click.READ TABLE gt_item INTO DATA(gs_item) INDEX e_row.IF sy-subrc = 0.CASE  e_column-fieldname.WHEN 'VBELN_SO'.CALL METHOD zcl_common_utils=>leave_to_va03EXPORTINGlv_vbeln = gs_item-vbeln_so.WHEN 'VBELN_DN'.CALL METHOD zcl_common_utils=>leave_to_vl03EXPORTINGlv_vbeln = gs_item-vbeln_dn.WHEN OTHERS.ENDCASE.ENDIF.ENDMETHOD.METHOD handle_toolbar.DATA: ls_toolbar TYPE stb_button.CLEAR: ls_toolbar.ls_toolbar-butn_type = 3. " 分隔符APPEND ls_toolbar TO e_object->mt_toolbar.CLEAR: ls_toolbar.ls_toolbar-function  = 'CNS_ALL'.    " 功能碼ls_toolbar-icon      =  icon_select_all.  " 圖標名稱ls_toolbar-quickinfo = '全選'.   " 圖標的提示信息ls_toolbar-text      = '全選'.       " 按鈕上顯示的文本APPEND ls_toolbar TO e_object->mt_toolbar.CLEAR: ls_toolbar.ls_toolbar-function  = 'CNS_SAL'.    " 功能碼ls_toolbar-icon      =  icon_deselect_all.  " 圖標名稱ls_toolbar-quickinfo = '取消全選'.   " 圖標的提示信息ls_toolbar-text      = '取消全選'.       " 按鈕上顯示的文本APPEND ls_toolbar TO e_object->mt_toolbar.CLEAR: ls_toolbar.ls_toolbar-function  = 'CNS_HIST'.    " 功能碼ls_toolbar-icon      =  icon_history.  " 圖標名稱ls_toolbar-quickinfo = '轉單歷史'.   " 圖標的提示信息ls_toolbar-text      = '轉單歷史'.       " 按鈕上顯示的文本APPEND ls_toolbar TO e_object->mt_toolbar.CLEAR: ls_toolbar.ls_toolbar-butn_type = 3. " 分隔符APPEND ls_toolbar TO e_object->mt_toolbar.CLEAR: ls_toolbar.ENDMETHOD.                    "handle_toolbarMETHOD handle_user_command.CALL METHOD g_gui_alv_grid->check_changed_data. "觸發數據變更CASE e_ucomm.WHEN 'CNS_ALL'.PERFORM frm_all_data_line USING 'X'.WHEN 'CNS_SAL'.PERFORM frm_all_data_line USING ' '.WHEN 'CNS_HIST'."查找歷史行PERFORM frm_show_hist_data.WHEN OTHERS.ENDCASE.PERFORM frm_refresh_alv_data.ENDMETHOD.                           "handle_user_commandMETHOD handle_change.PERFORM handle_data_changed USING er_data_changed.PERFORM frm_refresh_alv_data.ENDMETHOD.
*-----------------------------------------------------------------
ENDCLASS.

方法實現

在這里插入圖片描述

*----------------------------------------------------------------------*
*         FORM handle_data_changed IMPLEMENTATION
*----------------------------------------------------------------------*
FORM handle_data_changed  USING p_er_data_changed TYPE REF TO cl_alv_changed_data_protocol.DATA: ls_row TYPE LINE OF lvc_t_modi .LOOP AT p_er_data_changed->mt_mod_cells INTO ls_row .READ TABLE gt_item  ASSIGNING FIELD-SYMBOL(<fs_item>) INDEX ls_row-row_id.IF sy-subrc = 0.PERFORM frm_data_change USING ls_row p_er_data_changed.ENDIF.ENDLOOP .
ENDFORM.                    "handle_data_changed

frm_data_change

FORM frm_data_change USING ps_row TYPE LINE OF lvc_t_modip_er_data_changed TYPE REF TO cl_alv_changed_data_protocol.DATA:mod_data        TYPE lvc_t_modi,gs_out_mod_data TYPE lvc_s_modi.FIELD-SYMBOLS:<fs_field> TYPE any .DATA: lv_decimal TYPE p DECIMALS 3.mod_data = p_er_data_changed->mt_mod_cells.LOOP AT mod_data INTO gs_out_mod_data.READ TABLE gt_item  ASSIGNING FIELD-SYMBOL(<fs_item>) INDEX gs_out_mod_data-row_id.IF sy-subrc = 0.CASE gs_out_mod_data-fieldname.WHEN 'LGMNG'.CLEAR lv_decimal.CALL FUNCTION 'UNITS_STRING_CONVERT'EXPORTINGunits_string = gs_out_mod_data-valuedcpfm        = 'X'
*             MLLN         = 'M'
*             TSND         = 'T'IMPORTINGunits        = lv_decimalEXCEPTIONSinvalid_type = 1OTHERS       = 2.IF sy-subrc <> 0.
* Implement suitable error handling hereENDIF.IF lv_decimal > <fs_item>-zmenge.CALL METHOD p_er_data_changed->add_protocol_entryEXPORTINGi_msgid     = '00'i_msgty     = 'E'i_msgno     = '001'i_msgv1     = '計劃發貨數量不能大于未交貨數量'i_fieldname = gs_out_mod_data-fieldname.CALL METHOD p_er_data_changed->modify_cellEXPORTINGi_value     = <fs_item>-lgmngi_row_id    = gs_out_mod_data-row_idi_fieldname = gs_out_mod_data-fieldname.ELSE.TRY.ASSIGN COMPONENT gs_out_mod_data-fieldname OF STRUCTURE <fs_item> TO <fs_field>.<fs_field> = lv_decimal.CATCH cx_sy_arithmetic_error INTO myref.err_text = myref->get_text( ).ENDTRY.ENDIF.WHEN 'SEL'.IF gs_out_mod_data-value NE <fs_item>-sel.<fs_item>-color = COND #( WHEN gs_out_mod_data-value = 'X' THEN 'C210' ELSE ' ' ).
*       Check: 勾選整單時，單據行要保持一制IF gs_head-zflg = 'X'.LOOP AT gt_item ASSIGNING FIELD-SYMBOL(<fs_data>)  WHERE vbeln_so = <fs_item>-vbeln_so.<fs_data>-sel   = gs_out_mod_data-value.<fs_data>-color = <fs_item>-color.ENDLOOP.ENDIF.ENDIF.WHEN OTHERS.ENDCASE.ENDIF.ENDLOOP.
ENDFORM.