ALV 1

*&---------------------------------------------------------------------*
*& Report  YABAP18_TEMP
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  YABAP18_TEMP MESSAGE-ID ZMCO.

*---------------------------------------------------------------------*
* INCLUDE
*---------------------------------------------------------------------*
INCLUDE YABAP18_TEMP_TOP." TOP-Decration
INCLUDE YABAP18_TEMP_SCR." Selection-Screen
INCLUDE YABAP18_TEMP_C01." Class ALV OR Others
INCLUDE YABAP18_TEMP_F01." Subriutins
INCLUDE YABAP18_TEMP_F02." Subriutins
INCLUDE YABAP18_TEMP_O01." PBO
INCLUDE YABAP18_TEMP_I01." PAI


*---------------------------------------------------------------------*
* INITIALZIATION
*---------------------------------------------------------------------*
INITIALIZATION.
  PERFORM INITIAL.
*---------------------------------------------------------------------*
* AT SELECTION-SCREEN
*---------------------------------------------------------------------*
AT SELECTION-SCREEN.
  PERFORM SSCRFIELDS_UCOMM.

*---------------------------------------------------------------------*
* AT SELECTION-SCREEN ON VALUE-REQUEST FOR
*---------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_GRGB-LOW.
  PERFORM F4_GRGB USING S_GRGB-LOW.
*
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_GRGB-HIGH.
*  PERFORM F4_GRGB USING S_GRGB-HIGH.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
  PERFORM F4_FILE_PATH CHANGING P_FILE.  " 엑셀 파일 지정의 F4
*---------------------------------------------------------------------*
* AT SELECTION-SCREEN OUTPUT
*---------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.  "화면 제어
  PERFORM SET_SCR.

*---------------------------------------------------------------------*
* START OF SELECTION
*---------------------------------------------------------------------*
START-OF-SELECTION.

  IF P_FILE IS NOT INITIAL.
    PERFORM UPLOAD_EXCEL_FILE TABLES GT_EXCEL
                              USING  P_FILE.

    PERFORM MOVE_DATA TABLES GT_EXCEL.
  ENDIF.

  PERFORM SELECT_DATA.

  CHECK GV_MESSAGE IS INITIAL.
  CALL SCREEN 100.

*---------------------------------------------------------------------*
* END-OF-SELECTION
*---------------------------------------------------------------------*
END-OF-SELECTION.

**** 발생한 에러 기준으로 메세지 출력
*  CHECK GV_MESSAGE IS NOT INITIAL.
*  MESSAGE S000 DISPLAY LIKE CO_E WITH GV_MESSAGE.
*  CLEAR : GV_MESSAGE.

*GUI Texts
*----------------------------------------------------------
* T100 --> &


*Messages
*----------------------------------------------------------
*
* Message class: 00
*398   & & & &
*
* Message class: 25
*187   Please enter file name
*
* Message class: ALSMEX
*037   Error during import of clipboard contents
*
* Message class: F2
*163   Vendor & has not been created
*
* Message class: FB
*000   & & & &
*
* Message class: KX
*001   & & & &

----------------------------------------------------------------------------------
Extracted by Mass Download version 1.4.6 - E.G.Mellodew. 1998-2015. Sap Release 701