[SAP/ABAP] TOP 양식

*&---------------------------------------------------------------------*
*&  Include           ZIMP_SMS_REPORT_TOP                              *
*&---------------------------------------------------------------------*


************************************************************************
* CONSTANTS
************************************************************************
CONSTANTS:
    C_TEXT_LINE_LENGTH    TYPE I VALUE 100,
    C_OBJECT(10)          TYPE C VALUE 'ZIMP',
    C_ID(4)               TYPE C VALUE 'Z015',
    C_X                   TYPE C VALUE 'X',
    C_SPACE               TYPE C VALUE '',
    C_CREATE(1)           TYPE C VALUE 'C',
    C_MODIFY(1)           TYPE C VALUE 'M',
    C_DISPLAY(1)          TYPE C VALUE 'D',
    C_QUALITY(1)          TYPE C VALUE 'Q',    " 품질점검 보고서
    C_SAFETY(1)           TYPE C VALUE 'S',    " 안전 보고서
    C_TEXTEDIT_LENGTH(3)  TYPE I VALUE 110,
    C_RED(4)              TYPE C VALUE '@5C@', " ICON_LED_RED
    C_YELLOW(4)           TYPE C VALUE '@5D@', " ICON_LED_YELLOW
    C_GREEN(4)            TYPE C VALUE '@5B@'. " ICON_LED_GREEN

************************************************************************
* TYPE-POOLS
************************************************************************

************************************************************************
* TYPES
************************************************************************
TYPES: TEXT_TABLE_TYPE(C_TEXT_LINE_LENGTH) TYPE C OCCURS 0.

************************************************************************
* RANGES
************************************************************************


************************************************************************
* MACROS
************************************************************************

DEFINE _CLEAR_ZERO.

  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
    EXPORTING
      INPUT  = &1
    IMPORTING
      OUTPUT = &1.

END-OF-DEFINITION.

DEFINE _SET_TEAM_NAME.

  SELECT SINGLE TEAM_NAME INTO &2
    FROM ZIMP_SMS_TEAM
   WHERE TEAM_CODE EQ &1.

  IF SY-SUBRC NE 0.
    CLEAR &2.
  ENDIF.

END-OF-DEFINITION.


************************************************************************
* TABLES
************************************************************************
TABLES: SSCRFIELDS,
        IFLOT,
        DRAW,
        ZIMP_SMS_MANAGE.

************************************************************************
* DATA
************************************************************************
DATA: OK_CODE LIKE SY-UCOMM,
      GV_CODE LIKE SY-UCOMM,
      SEARCH_TEXT1(30) TYPE C,
      SEARCH_TEXT2(30) TYPE C,
      SEARCH_TEXT3(30) TYPE C.

DATA: BEGIN OF G_SMS OCCURS 0.
        INCLUDE STRUCTURE ZIMP_SMS_MANAGE.
DATA:   GPERST(20),
        GPERNR1T(20),
        GPERNR2T(20),
        GPERNR3T(20),
        GPERNR4T(20),
        GRAPERNR1T(20),
        GRAPERNR2T(20),
        GRAPERNR3T(20),
        CPERS1T(20),
        CPERS2T(20),
        CPERS3T(20),
        CPERS4T(20),
        CPERS5T(20),
      END OF G_SMS.

DATA: B_RACONSL1 TYPE ICON_TEXT,
      B_RACONSL2 TYPE ICON_TEXT,
      B_RACONSL3 TYPE ICON_TEXT,
      B_RABARRL1 TYPE ICON_TEXT,
      B_RABARRL2 TYPE ICON_TEXT,
      B_RABARRL3 TYPE ICON_TEXT,
      B_AANALL TYPE ICON_TEXT.

DATA: G_MODE(1),
      G_EDIT(1),
      G_TYPE(1),
      G_RA_CNT(1) TYPE N VALUE 1,
      G_CA_CNT(1) TYPE N VALUE 1,
      G_CONFCATE(1),
      G_CURSOR(30).

DATA: G_EDITOR01 TYPE REF TO CL_GUI_TEXTEDIT,
      G_EDITOR02 TYPE REF TO CL_GUI_TEXTEDIT,
      G_EDITOR_CONTAINER01 TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      G_EDITOR_CONTAINER02 TYPE REF TO CL_GUI_CUSTOM_CONTAINER.

DATA: BEGIN OF ITAB_USER OCCURS 0,
        PERNR(8) TYPE N,
        MAIL(50),
        HP(20),
      END OF ITAB_USER.

DATA: G_PRT_SMS TYPE ZIMP_SMS_DATA.

DATA: ITAB_ANALYSIS_H TYPE TABLE OF ZIMP_SMS_ANALYSIS_H.
DATA: ITAB_HCHECK LIKE TLINE OCCURS 0 WITH HEADER LINE,
      ITAB_HACTIO LIKE TLINE OCCURS 0 WITH HEADER LINE,
      ITAB_RACONST1 LIKE TLINE OCCURS 0 WITH HEADER LINE,
      ITAB_RABARRT1 LIKE TLINE OCCURS 0 WITH HEADER LINE,
      ITAB_RACONST2 LIKE TLINE OCCURS 0 WITH HEADER LINE,
      ITAB_RABARRT2 LIKE TLINE OCCURS 0 WITH HEADER LINE,
      ITAB_RACONST3 LIKE TLINE OCCURS 0 WITH HEADER LINE,
      ITAB_RABARRT3 LIKE TLINE OCCURS 0 WITH HEADER LINE,
      ITAB_AANALT LIKE TLINE OCCURS 0 WITH HEADER LINE.

DATA : RARESULT1T(5), RARESULT2T(5), RARESULT3T(5), CONFIRMCATET(5).

DATA : CHK_RA1, CHK_RA2, CHK_RA3.
DATA : CHK_CA1, CHK_CA2, CHK_CA3, CHK_CA4, CHK_CA5.


DATA : BEGIN OF GT_PERS OCCURS 0.
        INCLUDE STRUCTURE ZIMP_SMS_PERS.
DATA :  PERS_NM(20) TYPE C,
        MARK,
       END OF GT_PERS.

DATA : BEGIN OF GT_TEAM OCCURS 0,
        TEAM_CODE TYPE ZIMP_SMS_TEAM-TEAM_CODE,
        TEAM_NAME TYPE ZIMP_SMS_TEAM-TEAM_NAME,
       END OF GT_TEAM.

DATA : GT_CODE TYPE TABLE OF ZIMP_SMS_CODE WITH HEADER LINE.

CONTROLS TC_PERS TYPE TABLEVIEW USING SCREEN 101.

* INS START 131113 JJH
DATA : gs_authority TYPE zimp_user_table.
* INS END 131113 JJH

************************************************************************
* INTERNAL TABLES
************************************************************************
DATA: BEGIN OF ITAB_DISPLAY OCCURS 0,
        MARK(1),
        ICONS(4),
        CACTIOST LIKE ZIMP_SMS_MANAGE-CACTIOST1,
        TYPE_TEXT(10),
        GTYPET(10),
        GPERST(20),      " 관련팀
        GPERNR1T(20),    " 수검자
        GPERNR2T(20),    " 점검자
        GPERNR3T(20),    " 위규자
        GPERNR4T(20),    " 보고자
        GRAPERNR1T(20),                                     " 분석자1
        GRAPERNR2T(20),                                     " 분석자2
        GRAPERNR3T(20),                                     " 분석자3
        CODEP(2),
        CPERS1T(20),                                        " 담당팀1
        CPERS2T(20),                                        " 담당팀2
        CPERS3T(20),                                        " 담당팀3
        CPERS4T(20),                                        " 담당팀4
        CPERS5T(20).                                    " 담당팀5
        INCLUDE STRUCTURE ZIMP_SMS_MANAGE.
DATA: END OF ITAB_DISPLAY.
DATA: ITAB_DYNN LIKE DYNPREAD OCCURS 0 WITH HEADER LINE.

DATA ITAB_HCHECK2 TYPE ZIMP_S_TLINE OCCURS 0 WITH HEADER LINE.
DATA TEMP_ITF TYPE TABLE OF TLINE WITH HEADER LINE.
************************************************************************
* SELECTION-SCREEN
************************************************************************
* function key
SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN FUNCTION KEY 2.
SELECTION-SCREEN FUNCTION KEY 3.
SELECTION-SCREEN FUNCTION KEY 4.
SELECTION-SCREEN FUNCTION KEY 5.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(31) TEXT-007.
PARAMETERS: P_PROC AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN COMMENT (15) TEXT-005 FOR FIELD P_PROC.
PARAMETERS: P_COMP AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN COMMENT (15) TEXT-006 FOR FIELD P_COMP.
SELECTION-SCREEN END OF LINE.

SELECT-OPTIONS: S_CRDAT FOR  ZIMP_SMS_MANAGE-CRDAT.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 33(15) B_TXT1 USER-COMMAND WEEK.
SELECTION-SCREEN PUSHBUTTON (15)   B_TXT2 USER-COMMAND MONTH.
SELECTION-SCREEN PUSHBUTTON (15)   B_TXT3 USER-COMMAND YEAR.
SELECTION-SCREEN END OF LINE.
SELECT-OPTIONS: S_DOCNO FOR  ZIMP_SMS_MANAGE-DOCNO.
SELECT-OPTIONS: S_GLOCAT FOR ZIMP_SMS_MANAGE-GLOCAT NO INTERVALS.
SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS: GTYPE FOR ZIMP_SMS_MANAGE-GTYPE NO INTERVALS,
                GPERS FOR ZIMP_SMS_MANAGE-GPERS NO INTERVALS,
                GPERNR1 FOR ZIMP_SMS_MANAGE-GPERNR1
                        MATCHCODE OBJECT PREM NO INTERVALS,
                GPERNR2 FOR ZIMP_SMS_MANAGE-GPERNR2
                        MATCHCODE OBJECT PREM NO INTERVALS,
                GPERNR3 FOR ZIMP_SMS_MANAGE-GPERNR3
                        MATCHCODE OBJECT PREM NO INTERVALS,
                GPERNR4 FOR ZIMP_SMS_MANAGE-GPERNR4
                        MATCHCODE OBJECT PREM NO INTERVALS.
SELECTION-SCREEN END OF BLOCK B2.

SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.
SELECT-OPTIONS: RAPERNR  FOR ZIMP_SMS_MANAGE-RAPERNR1
                        MATCHCODE OBJECT PREM NO INTERVALS,
                RASEVE   FOR ZIMP_SMS_MANAGE-RASEVE1  NO INTERVALS,
                RABARRTY FOR ZIMP_SMS_MANAGE-RABARRTY1 NO INTERVALS,
                RARESULT FOR ZIMP_SMS_MANAGE-RARESULT1 NO INTERVALS.
SELECTION-SCREEN END OF BLOCK B3.

SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-004.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : R_AND RADIOBUTTON GROUP R_G.
SELECTION-SCREEN COMMENT (8) TEXT-015.
PARAMETERS : R_OR  RADIOBUTTON GROUP R_G.
SELECTION-SCREEN COMMENT (8) TEXT-016.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (8) TEXT-010.
PARAMETERS : S_TEXT1 LIKE SEARCH_TEXT1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (8) TEXT-011.
PARAMETERS : S_TEXT2 LIKE SEARCH_TEXT2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (8) TEXT-012.
PARAMETERS : S_TEXT3 LIKE SEARCH_TEXT3.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (70) TEXT-013.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (70) TEXT-014.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B4.

SELECTION-SCREEN BEGIN OF BLOCK B5 WITH FRAME TITLE TEXT-019.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (39) TEXT-017.
SELECTION-SCREEN COMMENT 40(79) TEXT-018.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B5.