zoukankan      html  css  js  c++  java
  • 在屏幕上建立ALV

    在屏幕上创建两个文本元素空件、一个推出按钮控件、一个定制控制按钮

    代码所示:

    *&---------------------------------------------------------------------*
    *& Report  YTEST028
    *&
    *&---------------------------------------------------------------------*
    *&
    *&
    *&---------------------------------------------------------------------*
    
    REPORT  ytest028.
    
    
    DATA: ok_code TYPE sy-ucomm,
          save_ok TYPE sy-ucomm.
    
    DATA WA_SPFLI TYPE TABLE OF SPFLI ."WITH HEADER LINE.
    
    SELECT * INTO TABLE WA_SPFLI FROM SPFLI.
    
    DATA:WA_CONTAINER TYPE SCRFNAME VALUE 'ALVDATA',
          ALV_GRID TYPE REF TO CL_GUI_ALV_GRID,
         WA_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
    
    CALL SCREEN 300.
    *&---------------------------------------------------------------------*
    *&      Module  STATUS_0300  OUTPUT
    *&---------------------------------------------------------------------*
    *       text
    *----------------------------------------------------------------------*
    
    MODULE status_0300 OUTPUT.
      SET PF-STATUS 'STATUS1'.
    *  SET TITLEBAR 'xxx'.
    
    
    *如果窗口还没有创建ALV对象则它
    IF WA_CUSTOM_CONTAINER IS INITIAL.
      CREATE OBJECT WA_CUSTOM_CONTAINER
      EXPORTING CONTAINER_NAME = WA_CONTAINER.
      CREATE OBJECT ALV_GRID
      EXPORTING I_PARENT = WA_CUSTOM_CONTAINER.
      CALL METHOD ALV_GRID->SET_TABLE_FOR_FIRST_DISPLAY
      EXPORTING I_STRUCTURE_NAME = 'SPFLI'
      CHANGING IT_OUTTAB = WA_SPFLI.
    
    ENDIF.
    
    ENDMODULE.                 " STATUS_0300  OUTPUT
    *&---------------------------------------------------------------------*
    *&      Module  EXIT  INPUT
    *&---------------------------------------------------------------------*
    *       text
    *----------------------------------------------------------------------*
    MODULE exit INPUT.
      save_ok = ok_code.
      CLEAR ok_code.
      CASE save_ok.
        WHEN 'EXIT'.
          LEAVE PROGRAM.
      ENDCASE.
    ENDMODULE.                 " EXIT  INPUT
    *&---------------------------------------------------------------------*
    *&      Module  USER_COMMAND_0300  INPUT
    *&---------------------------------------------------------------------*
    *       text
    *----------------------------------------------------------------------*
    module USER_COMMAND_0300 input.
    
    endmodule.                 " USER_COMMAND_0300  INPUT

    运行结果:

  • 相关阅读:
    usb驱动开发6之端点描述符
    usb驱动开发5之总线设备与接口
    usb驱动开发4之总线设备驱动模型
    usb驱动开发3之先看core
    usb驱动开发2之代码地图
    usb驱动开发1之学习准备
    javascript限制上传文件大小
    google Chrome打开多个网站时等待可用的套接字,怎么加大连接数量提升速度
    sql将一张表的字段赋值给另一张表
    百度搜索网址参数的含义
  • 原文地址:https://www.cnblogs.com/caizjian/p/3357203.html
Copyright © 2011-2022 走看看