49 lines
1.6 KiB
ABAP
49 lines
1.6 KiB
ABAP
*&---------------------------------------------------------------------*
|
|
*& Include ZTAX0010_SEL
|
|
*&---------------------------------------------------------------------*
|
|
|
|
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-b01.
|
|
PARAMETERS : p_gjahr TYPE gjahr DEFAULT sy-datum(4) OBLIGATORY.
|
|
*-- 분기.
|
|
PARAMETERS : p_quart TYPE zquarter OBLIGATORY.
|
|
|
|
SELECTION-SCREEN END OF BLOCK b1.
|
|
|
|
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-b02.
|
|
SELECTION-SCREEN BEGIN OF LINE.
|
|
|
|
PARAMETERS: p_chk1 RADIOBUTTON GROUP rg1 DEFAULT 'X'.
|
|
SELECTION-SCREEN COMMENT 3(40) TEXT-001 FOR FIELD p_chk1.
|
|
|
|
PARAMETERS: p_chk2 RADIOBUTTON GROUP rg1.
|
|
SELECTION-SCREEN COMMENT 50(10) TEXT-002 FOR FIELD p_chk2.
|
|
|
|
SELECTION-SCREEN END OF LINE.
|
|
|
|
SELECTION-SCREEN END OF BLOCK b2.
|
|
|
|
SELECTION-SCREEN FUNCTION KEY 1. "Excel 업로드 버튼 추가
|
|
|
|
|
|
* AT SELECTION-SCREEN *
|
|
*======================================================================*
|
|
AT SELECTION-SCREEN.
|
|
* PERFORM selection_screen.
|
|
IF sscrfields-ucomm = 'FC01'.
|
|
PERFORM upload_excel.
|
|
gv_mode = gc_mode-excel.
|
|
|
|
CALL SCREEN 0100.
|
|
* MESSAGE 'You clicked Function Key1' TYPE 'I'.
|
|
ENDIF.
|
|
*&---------------------------------------------------------------------*
|
|
* AT SELECTION-SCREEN ON
|
|
*&---------------------------------------------------------------------*
|
|
|
|
|
|
*&---------------------------------------------------------------------*
|
|
* AT SELECTION-SCREEN OUTPUT
|
|
*&---------------------------------------------------------------------*
|
|
AT SELECTION-SCREEN OUTPUT.
|
|
* PERFORM selection_screen_output.
|