显示多张报表-CSDN博客

type-POOLs :slis , icon .

TABLES :sflight ,spfli ,scarr ,sbook .

DATA :ok_code TYPE sy -ucomm .

*定义屏幕中使用的对象
DATA :go_split_container TYPE REF TO cl_gui_splitter_container .
DATA :go_container TYPE REF TO cl_gui_custom_container .
DATA :go_container1 TYPE REF TO cl_gui_container ,
      go_container2 TYPE REF TO cl_gui_container ,
      go_container3 TYPE REF TO cl_gui_container ,
      go_container4 TYPE REF TO cl_gui_container .

DATA :go_alv_control1 TYPE REF TO cl_gui_alv_grid ,
      go_alv_control2 TYPE REF TO cl_gui_alv_grid ,
      go_alv_control3 TYPE REF TO cl_gui_alv_grid ,
      go_alv_control4 TYPE REF TO cl_gui_alv_grid .

*定义内表和结构
DATA : BEGIN OF gs_sflight ,
  carrid TYPE sflight -carrid ,
  connid TYPE sflight -connid ,
  fldate TYPE sflight -fldate ,
  price TYPE sflight -price ,
   END OF gs_sflight .

DATA : BEGIN OF gs_spfli ,
  carrid TYPE spfli -carrid ,
  connid TYPE spfli -connid ,
  cityfrom TYPE spfli -cityfrom ,
  cityto TYPE spfli -cityto ,
   END OF gs_spfli .

DATA : BEGIN OF gs_scarr ,
  carrid TYPE scarr -carrid ,
  carrname TYPE scarr -carrname ,
   END OF gs_scarr .

DATA : BEGIN OF gs_sbook ,
  carrid TYPE sbook -carrid ,
  connid TYPE sbook -connid ,
  bookid TYPE sbook -bookid ,
  customid TYPE sbook -customid ,
   END OF gs_sbook .

*定义ALV控件
DATA :gs_field_cat1 TYPE lvc_s_fcat ,
     gs_field_cat2 TYPE lvc_s_fcat ,
      gs_field_cat3 TYPE lvc_s_fcat ,
      gs_field_cat4 TYPE lvc_s_fcat .
DATA :gt_field_cat1 TYPE lvc_t_fcat ,
      gt_field_cat2 TYPE lvc_t_fcat ,
      gt_field_cat3 TYPE lvc_t_fcat ,
      gt_field_cat4 TYPE lvc_t_fcat .

*定义显示数据
DATA :gt_sflight LIKE STANDARD TABLE OF gs_sflight ,
      gt_spfli LIKE STANDARD TABLE OF gs_spfli ,
      gt_scarr LIKE STANDARD TABLE OF gs_scarr ,
      gt_sbook LIKE STANDARD TABLE OF gs_sbook .

START-OF-SELECTION .

   PERFORM sub_retrive_data .
   PERFORM sub_alv_data .

   CALL SCREEN 9100 .
*&---------------------------------------------------------------------*
*&      Form  SUB_RETRIVE_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM SUB_RETRIVE_DATA .
   SELECT
   carrid
   connid
   fldate
   price
    INTO CORRESPONDING FIELDS OF TABLE gt_sflight
    FROM sflight .

   SELECT
carrid
connid
cityfrom
cityto
INTO CORRESPONDING FIELDS OF TABLE gt_spfli
FROM spfli .

   SELECT
    carrid
    carrname
     INTO CORRESPONDING FIELDS OF TABLE gt_scarr
     FROM scarr .

   SELECT
     carrid
     connid
     bookid
     customid
      INTO CORRESPONDING FIELDS OF TABLE gt_sbook
      FROM sbook .

ENDFORM .                     " SUB_RETRIVE_DATA
*&---------------------------------------------------------------------*
*&      Form  SUB_ALV_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM SUB_ALV_DATA .
   CLEAR :gs_field_cat1 .
*建立字段目录1
  gs_field_cat1 -col_pos = 1 .
  gs_field_cat1 -fieldname = 'CARRID' .
  gs_field_cat1 -scrtext_m = 'airline code' .
   APPEND gs_field_cat1 to gt_field_cat1 .

  gs_field_cat1 -col_pos = 2 .
  gs_field_cat1 -fieldname = 'CONNID' .
  gs_field_cat1 -scrtext_m = 'connection number' .
   APPEND gs_field_cat1 to gt_field_cat1 .

  gs_field_cat1 -col_pos = 3 .
  gs_field_cat1 -fieldname = 'FLDATE' .
  gs_field_cat1 -scrtext_m = 'flight date' .
   APPEND gs_field_cat1 to gt_field_cat1 .

  gs_field_cat1 -col_pos = 4 .
  gs_field_cat1 -fieldname = 'PRICE' .
  gs_field_cat1 -scrtext_m = 'flight price' .
   APPEND gs_field_cat1 to gt_field_cat1 .

*建立字段目录2
   CLEAR gs_field_cat2 .
  gs_field_cat2 -col_pos = 1 .
  gs_field_cat2 -fieldname = 'CARRID' .
  gs_field_cat2 -scrtext_m = 'airline code' .
   APPEND gs_field_cat2 to gt_field_cat2 .

  gs_field_cat2 -col_pos = 2 .
  gs_field_cat2 -fieldname = 'CONNID' .
  gs_field_cat2 -scrtext_m = 'connection number' .
   APPEND gs_field_cat2 to gt_field_cat2 .

  gs_field_cat2 -col_pos = 3 .
  gs_field_cat2 -fieldname = ' CITYFROM' .
  gs_field_cat2 -scrtext_m = 'city from' .
   APPEND gs_field_cat2 to gt_field_cat2 .

  gs_field_cat2 -col_pos = 4 .
  gs_field_cat2 -fieldname = 'CITYTO' .
  gs_field_cat2 -scrtext_m = 'city to' .
   APPEND gs_field_cat2 to gt_field_cat2 .

*建立字段目录3
   CLEAR gs_field_cat3 .
  gs_field_cat3 -col_pos = 1 .
  gs_field_cat3 -fieldname = 'CARRID' .
  gs_field_cat3 -scrtext_m = 'airline code' .
   APPEND gs_field_cat3 to gt_field_cat3 .

  gs_field_cat3 -col_pos = 2 .
  gs_field_cat3 -fieldname = 'CONNID' .
  gs_field_cat3 -scrtext_m = 'connection number' .
   APPEND gs_field_cat3 to gt_field_cat3 .

*建立字段目录4
   CLEAR :gs_field_cat4 .
  gs_field_cat4 -col_pos = 1 .
  gs_field_cat4 -fieldname = 'CARRID' .
  gs_field_cat4 -scrtext_m = 'airline code' .
   APPEND gs_field_cat4 to gt_field_cat4 .

  gs_field_cat4 -col_pos = 2 .
  gs_field_cat4 -fieldname = 'CONNID' .
  gs_field_cat4 -scrtext_m = 'connection number' .
   APPEND gs_field_cat4 to gt_field_cat4 .

  gs_field_cat4 -col_pos = 3 .
  gs_field_cat4 -fieldname = 'BOOKID' .
  gs_field_cat4 -scrtext_m = 'book id' .
   APPEND gs_field_cat4 to gt_field_cat4 .

  gs_field_cat4 -col_pos = 4 .
  gs_field_cat4 -fieldname = 'CUSTOMID' .
  gs_field_cat4 -scrtext_m = 'cumstom id' .
   APPEND gs_field_cat4 to gt_field_cat4 .

ENDFORM .                     " SUB_ALV_DATA
*&---------------------------------------------------------------------*
*&      Module  ALV_DIAPLAY  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE ALV_DIAPLAY OUTPUT .
   IF go_split_container IS INITIAL .
     CREATE OBJECT go_container
       EXPORTING
        container_name = 'GO_CONTAINER' .

     CREATE OBJECT go_split_container
       EXPORTING
        link_dynnr = sy -dynnr
        link_repid = sy -repid
        parent      = go_container
         rows        = 2
        columns     = 2
        name        = 'GO_SPLIT_CONTAINER' .

     CALL METHOD go_split_container ->get_container
       EXPORTING
        row        = 1
        column     = 1
      RECEIVING
        container = go_container1 .

     CALL METHOD go_split_container ->get_container
       EXPORTING
        row        = 1
        column     = 2
      RECEIVING
        container = go_container2 .

     CALL METHOD go_split_container ->get_container
       EXPORTING
        row        = 2
        column     = 1
      RECEIVING
        container = go_container3 .

     CALL METHOD go_split_container ->get_container
       EXPORTING
        row        = 2
        column     = 2
      RECEIVING
        container = go_container4 .

     CREATE OBJECT go_alv_control1
       EXPORTING
        i_parent = go_container1 .

     CREATE OBJECT go_alv_control2
       EXPORTING
        i_parent = go_container2 .

     CREATE OBJECT go_alv_control3
       EXPORTING
        i_parent = go_container3 .

     CREATE OBJECT go_alv_control4
       EXPORTING
        i_parent = go_container4 .

     CALL METHOD go_alv_control1 ->set_table_for_first_display
       CHANGING
        it_outtab        = gt_sflight
        it_fieldcatalog = gt_field_cat1 .

     CALL METHOD go_alv_control2 ->set_table_for_first_display
       CHANGING
        it_outtab        = gt_sflight
        it_fieldcatalog = gt_field_cat2 .

     CALL METHOD go_alv_control3 ->set_table_for_first_display
       CHANGING
        it_outtab        = gt_sflight
        it_fieldcatalog = gt_field_cat3 .

     CALL METHOD go_alv_control4 ->set_table_for_first_display
       CHANGING
        it_outtab        = gt_sbook
        it_fieldcatalog = gt_field_cat4 .

   ELSE .

     CALL METHOD go_alv_control1 ->refresh_table_display .
     CALL METHOD go_alv_control2 ->refresh_table_display .
     CALL METHOD go_alv_control3 ->refresh_table_display .
     CALL METHOD go_alv_control4 ->refresh_table_display .

   ENDIF .

ENDMODULE .                  " ALV_DIAPLAY  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_9100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_9100 OUTPUT .
   SET PF-STATUS 'STATUS9100' .
*  SET TITLEBAR 'xxx'.

ENDMODULE .                  " STATUS_9100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_9100 INPUT .
   CASE ok_code .
     WHEN 'BACK' .
       CALL METHOD go_alv_control1 -> free .
       CALL METHOD go_alv_control2 -> free .
       CALL METHOD go_alv_control3 -> free .
       CALL METHOD go_alv_control4 -> free .

       CALL METHOD go_container1 -> free .
       CALL METHOD go_container2 -> free .
       CALL METHOD go_container3 -> free .
       CALL METHOD go_container4 -> free .

       CALL METHOD go_split_container -> free .
       CALL METHOD go_container -> free .

       LEAVE PROGRAM .
     WHEN OTHERS .
   ENDCASE .

ENDMODULE. " USER_COMMAND_9100 INPUT

屏幕

PROCESS BEFORE OUTPUT.
MODULE STATUS_9100.
MODULE alv_diaplay.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_9100.