点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

您好，我正在为即将进行的项目做准备工作时，Ive成功显示了一个简单的Alv报告，但我无法单击调用事务的matnr。 抱歉，我在这里还很新，您的输入将不胜感激

 *＆---------------------------------------------  ------------------------ *
 *＆报告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-MAT​​NR的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。