*&---------------------------------------------------------------------*
*& Include YABAP18_TEMP_O01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
IF P_FN EQ 'X'.
_FILL_EXCLUDE_FCODE 'BT_CR'.
ELSE.
_FILL_EXCLUDE_FCODE 'BT_MODIFY'.
_FILL_EXCLUDE_FCODE 'BT_DELETE'.
ENDIF.
SET TITLEBAR 'T100' WITH TEXT-T03.
SET PF-STATUS '100' EXCLUDING GT_FCODE.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module INITIAL_CONTAINER_100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE INITIAL_CONTAINER_100 OUTPUT.
IF G_DOCKING_CONTAINER_100 IS INITIAL.
PERFORM CRE_DOCKING_GRID. "Create Ducking and Grid Split
* PERFORM CRE_DOCUMENT_FILLDATA. " Top of page 구성
** Alv Parameter 구성.
PERFORM SET_FCAT_100. "Fieldcatlog 구성
PERFORM SET_LAYOUT_100 USING '' '' CHANGING GS_LAYOUT_100. "EDIT, COLOR "Layout 구성
PERFORM SET_TOOLBAR_100 USING 'GT_TOOLBAR_EXCLUDING_100'. "툴바 구성
PERFORM SET_SORT_0100 TABLES GT_SORT_100.
PERFORM SET_ALV_EVENT. "Alv Event 구성
PERFORM DISPLAY_ALV. "Display Alv.
ELSE.
* PERFORM TOP_OF_PAGE_CHECK.
PERFORM DISPLAY_ALV. "Display Alv.
PERFORM REFRESH_ALV.
ENDIF.
ENDMODULE. " INITIAL_CONTAINER_100 OUTPUT
----------------------------------------------------------------------------------
Extracted by Mass Download version 1.4.6 - E.G.Mellodew. 1998-2015. Sap Release 701
Abap