热点无法显示屏幕-宇峰Kouji的回答

热点无法显示屏幕

2020-08-20 17:58发布

*＆--------------------------------------------- ------------------------ * *＆报告ZAS_PROGRAM_OOALV *＆------------------------------------------------ --------------------- * *＆ *＆------------------------------------------------ --------------------- * 报告ZAS_PROGRAM_OOALV_V1。类型：开始于TY_MAT， MATNR TYPE MARA-MATNR， MTART类型MARA-MTART， MATNR_1 TYPE MARC-MATNR， WERKS TYPE MARC-WERKS， WERKS_1 TYPE T001W-WERKS， NAME1 TYPE T001W-NAME1， TY_MAT结束。数据：IT_MAT TYPE TABLE OF TY_MAT， WA_MAT喜欢LINE OF IT_MAT。数据：lvc_s_fcat的it_fcat类型标准表， wa_fcat TYPE lvc_s_fcat。数据：lvc_s_sort的it_sort类型标准表， wa_sort TYPE lvc_s_sort。数据：container_r类型参考cl_gui_custom_container， grid_r类型参考CL_GUI_alv_grid。 ********** CLASS lcl_events_d0100定义已延迟。数据gr_events_d0100类型参考lcl_events_d0100。 ********* 初始化。带有标题标题文本001的块TEST1的选择屏幕开始。 WA_MAT-MATNR的SELECT-OPTIONS S_MATNR强制性无扩展名。 ""必须-仅填充上限将提示错误，如果仅填充下限将不会提示 *参数：s_matnr类似于lv_matnr。块测试的选择屏幕结束1。 CLASS lcl_mat定义。公共部分。方法：get_mat， fld_cat。 ENDCLASS。 ****************** 类别lcl_events_d0100定义。公共部分。方法：cl_gui_alv_grid的事件hotspot_click的handle_hotspot_click 输入 e_row_id e_column_id es_row_no 发件人。 ENDCLASS。 ******************* * ****************** 类别lcl_events_d0100实施。方法handle_hotspot_click。数据ls_col_id类型lvc_s_col。读取表it_mat INTO wa_mat INDEX e_row_id-index。设置参数ID'MATNR'字段wa_mat-matnr。如果sy-subrc = 0。 *检查（wa_mat-matnr不是initial）。案例e_column_id-fieldname。当" MATNR"时。呼叫交易'mm03'。当别人。 **基本上什么也没做。尾箱。调用方法grid_r-> set_current_cell_via_id 出口 is_row_id = e_row_id is_column_id = ls_col_id。万一。终结法。 ENDCLASS。 ******************* 选择开始。参考lcl_mat的数据垫类型。创建对象垫。 ""实例调用方法：mat-> get_mat。类lcl_mat IMPLEMENTATION。方法：get_mat。 * ------------------------------------------------- --------------------------------- * 选择一个〜MATNR A〜MTART B〜WERKS C〜NAME1 A〜MATNR = B〜MATNR中来自MARA作为内联接MARC AS的表IT_MAT的对应字段内连接T001W AS C ON B〜WERKS = C〜WERKS 在S_MATNR中的A〜MATNR。调用METHOD：fld_cat。呼叫屏幕900。方法。方法：fld_cat。清除wa_fcat。刷新it_fcat。数据：NO TYPE i值为0。否=否+ 1。 wa_fcat-col_pos = NO。 wa_fcat-fieldname ='matnr'。 wa_fcat-tabname ='it_mat'。 wa_fcat-reptext ='物料号'。 wa_fcat-col_opt ='X'。 ""列优化 wa_fcat-no_zero ='X'。 wa_fcat-hotspot ='X'。将wa_fcat附加到it_fcat。清除wa_fcat。否=否+ 1。 wa_fcat-col_pos = NO。 wa_fcat-fieldname ='mtart'。 wa_fcat-tabname ='it_mat'。 wa_fcat-reptext ='材料类型'。 wa_fcat-col_opt ='X'。 ""列优化将wa_fcat附加到it_fcat。清除wa_fcat。否=否+ 1。 wa_fcat-col_pos = NO。 wa_fcat-fieldname ='werks'。 wa_fcat-tabname ='it_mat'。 wa_fcat-reptext ='植物'。 wa_fcat-col_opt ='X'。 ""列优化将wa_fcat附加到it_fcat。清除wa_fcat。否=否+ 1。 wa_fcat-col_pos = NO。 wa_fcat-fieldname ='name1'。 wa_fcat-tabname ='it_mat'。 wa_fcat-reptext ='植物描述'。 wa_fcat-col_opt ='X'。 ""列优化将wa_fcat附加到it_fcat。清除wa_fcat。否=否+ 1。 wa_sort-SPOS =否。 wa_sort-fieldname ='matnr'。 wa_sort-down ='X'。附加wa_sort到it_sort。清除wa_sort。否=否+ 1。 wa_sort-SPOS =否。 wa_sort-fieldname ='mtart'。 wa_sort-down ='X'。附加wa_sort到it_sort。清除wa_sort。终结法。 ENDCLASS。 *＆------------------------------------------------ --------------------- * *＆模块STATUS_0900输出 *＆------------------------------------------------ --------------------- * *＆ *＆------------------------------------------------ --------------------- * 模块状态_0900输出。设置PF状态" SCREEN_900"。设置标题栏" SCREEN_900"。创建对象容器_R 出口 *父母= CONTAINER_NAME ='CONTAINER' *样式= * LIFETIME =生命周期默认值 * REPID = * DYNNR = * NO_AUTODEF_PROGID_DYNNR = *例外情况 * CNTL_ERROR = 1 * CNTL_SYSTEM_ERROR = 2 * CREATE_ERROR = 3 * LIFETIME_ERROR = 4 * LIFETIME_DYNPRO_DYNPRO_LINK = 5 *其他= 6 。 *如果SY-SUBRC <> 0。 **消息ID SY-MSGID类型SY-MSGTY编号SY-MSGNO **使用SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4。 * 万一。创建对象GRID_R 出口 * I_SHELLSTYLE = 0 * I_LIFETIME = I_PARENT = container_r""容器对象名称 * I_APPL_EVENTS =空格 * I_PARENTDBG = * I_APPLOGPARENT = * I_GRAPHICSPARENT = * I_NAME = * I_FCAT_COMPLETE =空格 * O_PREVIOUS_SRAL_HANDLER = *例外情况 * ERROR_CNTL_CREATE = 1 * ERROR_CNTL_INIT = 2 * ERROR_CNTL_LINK = 3 * ERROR_DP_CREATE = 4 *其他= 5 。 *如果SY-SUBRC <> 0。 **消息ID SY-MSGID类型SY-MSGTY编号SY-MSGNO **使用SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4。 * 万一。呼叫方法GRID_R-> SET_TABLE_FOR_FIRST_DISPLAY 出口 * I_BUFFER_ACTIVE = * I_BYPASSING_BUFFER = * I_CONSISTENCY_CHECK = I_STRUCTURE_NAME ='it_mat' * IS_VARIANT = * I_SAVE = * I_DEFAULT ='X' * IS_LAYOUT = * IS_PRINT = * IT_SPECIAL_GROUPS = * IT_TOOLBAR_EXCLUDING = * IT_HYPERLINK = * IT_ALV_GRAPHICS = * IT_EXCEPT_QINFO = * IR_SALV_ADAPTER = 改变 IT_OUTTAB = it_mat IT_FIELDCATALOG = it_fcat IT_SORT = it_sort * IT_FILTER = *例外情况 * INVALID_PARAMETER_COMBINATION = 1 * PROGRAM_ERROR = 2 * TOO_MANY_LINES = 3 *其他= 4 。 *如果SY-SUBRC <> 0。 **在此处实施适当的错误处理 * 万一。数据：ty_toolbar TYPE stb_button。数据：e_object类型参考cl_alv_event_toolbar_set， io_alv_toolbar类型参考cl_alv_event_toolbar_set。 " Alv工具栏数据：event_handler类型参考为lcl_events_d0100。创建对象event_handler。设置处理程序event_handler-> handle_hotspot_click FOR grid_r。 ENDMODULE。 *＆------------------------------------------------ --------------------- * *＆模块USER_COMMAND_0900输入 *＆------------------------------------------------ --------------------- * *文字 * ------------------------------------------------- --------------------- * 模组USER_COMMAND_0900输入。如果sy-ucomm ='EXIT'。设置屏幕0。消息"您没有保存就离开屏幕" TYPE" S"。 ELSEIF sy-ucomm ='返回'。设置屏幕0。消息"您没有保存就离开屏幕" TYPE" S"。 ELSEIF sy-ucomm ='保存'。设置屏幕0。消息"已保存更改" TYPE" S"。 ELSEIF sy-ucomm ='执行'。通话画面900。万一。 ENDMODULE。