Part 1 기본 프로그램 - 02. ABAP의 T코스(4/4) - Docking

최초 작성일: 25.09.02

최종 작성일: 25.09.02

 

Custom contol + Custon Container -> Docking Container 로 대체

Docking Container의 장점 ▶ 물리적인 영역을 직접 지정하지 않음

*&---------------------------------------------------------------------*
*& Report ZSAP04
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZSAP05_2.

TABLES : SBOOK, SCUSTOM.
DATA : g_GRID1 TYPE REF TO cl_gui_alv_grid.
DATA : g_GRID2 TYPE REF TO cl_gui_alv_grid.

DATA : g_container1 TYPE REF TO cl_gui_container.
DATA : g_container2 TYPE REF TO cl_gui_container.

DATA : g_splitter TYPE REF TO cl_gui_splitter_container.
DATA : g_docking TYPE REF TO cl_gui_docking_container.
*DATA : g_custom TYPE REF TO cl_gui_custom_container.

data : gt_sbook type table of sbook.
data: gt_scustom type table of scustom.



SELECT-OPTIONS : S_CARRID FOR SBOOK-CARRID.
SELECT-OPTIONS : S_ID FOR Scustom-ID.

START-OF-SELECTION.
SELECT *
  FROM SBOOK
  WHERE CARRID IN @S_CARRID
  INTO table @gt_sbook.

START-OF-SELECTION.
SELECT *
  FROM Scustom
  WHERE ID IN @S_ID
  INTO table @gt_scustom.


END-OF-SELECTION.
  CALL SCREEN 100.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
 SET PF-STATUS 'GUI_STATUS_001'.
 SET TITLEBAR 'GUI_TITLE_001'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module PBO_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE pbo_0100 OUTPUT.

*  create OBJECT g_custom
*  EXPORTING
*    container_name = 'container'.

CREATE OBJECT g_docking
EXPORTING
  repid = sy-cprog
  dynnr = sy-dynnr
  side = g_docking->dock_at_left
  extension = 1800.

  CREATE OBJECT g_splitter
  EXPORTING
    parent = g_docking
    rows  = 1
    columns  = 2.


CALL METHOD g_splitter->get_container
EXPORTING
   row  =  1
   column  =  1
   RECEIVING
   container = g_container1.

CALL METHOD g_splitter->get_container
EXPORTING
  row  = 1
  column = 2
RECEIVING
  container = g_container2.


CREATE OBJECT g_grid1
EXPORTING
  i_parent = g_container1.

CREATE OBJECT g_grid2
EXPORTING
  i_parent = g_container2.

CALL METHOD g_grid1->set_table_for_first_display
EXPORTING i_structure_name = 'sbook'
  CHANGING
    it_outtab = gt_sbook[].

CALL METHOD g_grid2->set_table_for_first_display
EXPORTING i_structure_name = 'scustom'
  CHANGING
    it_outtab = gt_scustom[].



ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  EXIT  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE exit INPUT.
LEAVE TO SCREEN 0.
ENDMODULE.

 

▶ 최종 화면

 

 

▶ Class 조회