[ABAP] 간단한 조회용 POP-UP 창 만들기 REUSE_ALV_POPUP_TO_SELECT

 

데이터 확인용 POP-UP 띄우기 

 

결과이미지

 

코드

FORM DISPLAY_ALV_POPUP .
  DATA: LT_FCAT TYPE SLIS_T_FIELDCAT_ALV,
        LS_FCAT TYPE SLIS_FIELDCAT_ALV,
        LV_EXIT TYPE C.

  DEFINE __FIELD_TEXT.
    ls_fcat-fieldname = &1.
    ls_fcat-seltext_l    = &2.
    ls_fcat-seltext_m    = &2.
    ls_fcat-seltext_s    = &2.

    APPEND ls_fcat TO lt_fcat. CLEAR ls_fcat.
  END-OF-DEFINITION.


  __FIELD_TEXT: 'CWBS' 'WBS',
                      'POSID_T' 'WBS명',
                      'CONNR' '계약번호',
                      'SAVESEQ' '회차',
                      'CONNM' '계약명',
                      'PERNR' '영업담당자',
                      'PERNR_T' '영업담당자명',
                      'PERNR_PM' '1차승인자',
                      'PERNR_PM_T' '승인담당자명',
                      'EMAIL' '이메일'.


  CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
    EXPORTING
      I_TITLE               = '이력보기'
      I_SELECTION           = ' '
      I_ZEBRA               = 'X'
      I_SCREEN_START_COLUMN = 10    " POPUP위치
      I_SCREEN_START_LINE   = 10       " POPUP위치.
      I_SCREEN_END_COLUMN   = 150   " POPUP 크기조정(가로)
      I_SCREEN_END_LINE     = 150       "POPUP 크기조정(세로)
      I_TABNAME             = 'GT_TABLE2'
      IT_FIELDCAT           = LT_FCAT
*     IT_EXCLUDING          =
    IMPORTING
      E_EXIT                = LV_EXIT
    TABLES
      T_OUTTAB              = GT_DISP2.

ENDFORM.