自定义PF状态按钮不起作用。

2020-09-09 13:28发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)大家好 在下面的代码中USER...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

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


大家好

在下面的代码中USER_COMMAND表格不起作用。 单击自定义PF-STATUS按钮时,没有任何响应。 在调试中,指针不会进入f_user_cmd FORM。

我激活了PF-STATUS中的GUI按钮。

任何人都可以找出问题所在。

谢谢。

 FORM f_top_of_page。
   数据:it_top TYPE slis_t_listheader,
         wa_top喜欢it_top的线。
  
   wa_top-typ ='H'。
   wa_top-info ='材料和植物'。
   附加wa_top到it_top。

   通话功能" REUSE_ALV_COMMENTARY_WRITE"
     出口
       it_list_commentary = it_top。
   ENDFORM。  " F_TOP_OF_PAGE

 *&------------------------------------------------  --------------------- *
 *&表格F_PF_STATUS
 *&------------------------------------------------  --------------------- *
 FORM f_pf_status使用rt_extab类型slis_t_extab。
   设置PF-STATUS'NEWGUI'。
 ENDFORM。  " F_PF_STSTUS
 *&------------------------------------------------  --------------------- *
 *&表格F_USER_CMD
 *&------------------------------------------------  --------------------- *
 FORM f_user_cmd使用r_ucomm像sy-ucomm
                       rs_selfield TYPE slis_selfield。
   案例r_ucomm。
     当" PDF"。
       执行get_pdf。
     当"邮件"。
       执行send_mail。
   结束。
 ENDFORM。  " F_USER_CMD

 *&------------------------------------------------  --------------------- *
 *&表格ALV_EVENTS
 *&------------------------------------------------  --------------------- *
 格式alv_events。
   wa_event-name ='PF_STATUS_SET'。
   wa_event-form ='F_PF_STATUS'。
   附加wa_event至it_event。
   清除wa_event。

   wa_event-name ='USER_COMMAND'。
   wa_event-form ='F_USER_CMD'。
   附加wa_event至it_event。
   清除wa_event。

   wa_event-name ='TOP_OF_PAGE'。
   wa_event-form ='F_TOP_OF_PAGE'。
   附加wa_event至it_event。
 ENDFORM。  " ALV_EVENTS
 *&------------------------------------------------  --------------------- *
 *&表格display_alv
 *&------------------------------------------------  --------------------- *
 FORM display_alv。
   通话功能'REUSE_ALV_GRID_DISPLAY'
    出口
      i_callback_program ='ZALV_PDF_MAIL'
      is_layout = wa_layout
      it_fieldcat = it_fldcat
      IT_EVENTS = it_event
     桌子
       t_outtab = it_final
    例外情况
      PROGRAM_ERROR = 1
      其他= 2
           。
   如果sy-subrc <> 0。
 *在这里实施适当的错误处理
   万一。
 ENDFORM。  " DISPLAY_ALV