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
     
  • 相关阅读:
    mybatis异常:org.apache.ibatis.builder.IncompleteElementException: Could not find parameter map com.sunyan.domain.User
    Markdown首行缩进和换行
    mybatis入门——mybatis的概述
    python2跟python3的区别
    码云与git
    Python入门(一)
    python环境搭建
    python简介
    计算机基础
    Typora、安装及使用
  • 原文地址:https://www.cnblogs.com/rainysblog/p/6566098.html
Copyright © 2011-2022 走看看