屏幕

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.      

效果