zoukankan      html  css  js  c++  java
  • 20170316 REUSE_alv_display_lvc 面向对象函数

    **将ALV显示数据更新进输出内表中
      DATA: LR_GRID TYPE  REF TO CL_GUI_ALV_GRID.
      CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
        IMPORTING
          E_GRID = LR_GRID.
      CALL METHOD LR_GRID->CHECK_CHANGED_DATA.
      SELFIELD-REFRESH 'X'.

    复制代码
    *&---------------------------------------------------------------------*
    *&      Form  USER_STATUS
    *&---------------------------------------------------------------------*
    *       text
    *----------------------------------------------------------------------*
    *      -->RT_EXTAB   text
    *----------------------------------------------------------------------*
    FORM STANDARD_PF USING RT_EXTAB TYPE SLIS_T_EXTAB.
      SET PF-STATUS 'STATUS1'.
    ENDFORM.      "SET_PF_STATUS
    
    *&---------------------------------------------------------------------*
    *&      Form  user_command
    *&---------------------------------------------------------------------*
    *       text
    *----------------------------------------------------------------------*
    *      -->UCOMM      text
    *      -->SELFIELD   text
    *----------------------------------------------------------------------*
    FORM USER_COMMAND USING UCOMM LIKE SY-UCOMM
                            SELFIELD TYPE SLIS_SELFIELD.
    
    **将ALV显示数据更新进输出内表中
      DATA: LR_GRID TYPE  REF TO CL_GUI_ALV_GRID.
      CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
        IMPORTING
          E_GRID = LR_GRID.
      CALL METHOD LR_GRID->CHECK_CHANGED_DATA.
      SELFIELD-REFRESH = 'X'.
      CASE UCOMM.
        WHEN 'ZALL'.
          LOOP AT RESULT WHERE XZ = ''.
            RESULT-XZ = 'X'.
            MODIFY RESULT TRANSPORTING XZ.
          ENDLOOP.
        WHEN 'ZSAL'.
          LOOP AT RESULT WHERE XZ = 'X'.
            RESULT-XZ = ''.
            MODIFY RESULT TRANSPORTING XZ.
          ENDLOOP.
        WHEN 'PRINT'.
          PERFORM DATA_PRINT.
    
        WHEN '&IC1'.      "双击
          READ TABLE RESULT INDEX SELFIELD-TABINDEX.
          SELFIELD-FIELDNAME = 'EBELN'.
          SET PARAMETER ID 'BES' FIELD RESULT-EBELN.
          CALL TRANSACTION 'ME23' AND SKIP FIRST SCREEN.
          CLEAR UCOMM.
    
      ENDCASE.
      SELFIELD-REFRESH = 'X'."刷新ALV显示
    ENDFORM.                    "USER_COMMAND
     
  • 相关阅读:
    基于Zabbix API文档二次开发与java接口封装
    java-基于泛型和反射机制的通用比较器实现
    获取Java接口的所有实现类
    CentOS 7 用yum安装 MySQL
    CSS3实现加载的动画效果
    在CentOS 8/7、RHEL 8/7系统上安装Node.js 14版本的方法
    解决YUM下Loaded plugins: fastestmirror Determining fastest mirrors 的错误问题
    Ajax原理与图解
    博客搬家
    [系统]制作老毛桃U盘WinPE
  • 原文地址:https://www.cnblogs.com/rainysblog/p/6566098.html
Copyright © 2011-2022 走看看