ALV demo 09：cl_salv_table ALV 弹出框

原创

sapLiuMeng 2022-10-17 10:46:14 ©著作权

©著作权归作者所有：来自51CTO博客作者sapLiuMeng的原创作品，请联系作者获取转载授权，否则将追究法律责任

以下是纯顾问群~

QQ群：SAP干货铺，群号：775662808
所有群管理严格，严格禁止一切外来链接、招聘、广告等垃圾信息!

效果图：

ALV demo 09：cl_salv_table ALV 弹出框_获取数据

*&---------------------------------------------------------------------*
*& Report  ZLM_ALV005
*&  Sapliumeng   SAP干货铺 demo程序
*&---------------------------------------------------------------------*

REPORT ZLM_ALV008.
"参数定义
DATA: GO_ALV    TYPE REF TO CL_SALV_TABLE,
      GO_FUNLST TYPE REF TO CL_SALV_FUNCTIONS_LIST.
DATA: GT_DATA TYPE STANDARD TABLE OF SPFLI.
DATA: LO_CXROOT TYPE REF TO CX_ROOT,
      LV_EXCMSG TYPE        STRING.

START-OF-SELECTION.
"获取数据
SELECT * FROM SPFLI INTO TABLE GT_DATA .
"创建 ALV 对象实例
TRY.
    CL_SALV_TABLE=>FACTORY(
      IMPORTING
        R_SALV_TABLE = GO_ALV
      CHANGING
        T_TABLE      = GT_DATA[] ).
  CATCH  CX_ROOT INTO LO_CXROOT.
    LV_EXCMSG = LO_CXROOT->GET_TEXT( ).
    MESSAGE E000(OO) WITH LV_EXCMSG.
ENDTRY.

GO_FUNLST = GO_ALV->GET_FUNCTIONS( ).
GO_FUNLST->SET_ALL( 'X' ).
"设定弹出框位置及大小
IF GO_ALV IS BOUND.
  GO_ALV->SET_SCREEN_POPUP(
    START_COLUMN = 10
    END_COLUMN  = 110
    START_LINE  = 5
    END_LINE    = 15 ).

  GO_ALV->DISPLAY( ).
ENDIF.