ALV 로 만드는 간단 팝업 셈플

소스 소개해준 위상수 대리에게 감사 ~

*&---------------------------------------------------------------------*
*&      Form  detail_secreen
*&---------------------------------------------------------------------*
FORM detail_secreen USING ls_selfield TYPE slis_selfield.

*-- For ALV.
  DATA : ls_layout    TYPE slis_layout_alv,
         ls_sort      TYPE slis_sortinfo_alv,
         lt_fieldcat  TYPE slis_t_fieldcat_alv WITH HEADER LINE,
         lt_sort      TYPE slis_t_sortinfo_alv.

  DATA : lt_bill LIKE TABLE OF gt_bill WITH HEADER LINE,
         ls_main LIKE gt_main.

  READ TABLE gt_main INTO ls_main INDEX ls_selfield-tabindex.
  LOOP AT gt_bill WHERE vbelv = ls_main-vbelv
                    AND posnv = ls_main-posnv.
    MOVE gt_bill TO lt_bill.
    APPEND lt_bill.
  ENDLOOP.

  IF lt_bill[] IS INITIAL.
    LOOP AT gt_bill WHERE vbelv = ls_main-aubel
                      AND posnv = ls_main-aupos.
      MOVE gt_bill TO lt_bill.
      APPEND lt_bill.
    ENDLOOP.
  ENDIF.

  DEFINE make_fieldcat.
    add 1 to lt_fieldcat-col_pos.
    lt_fieldcat-fieldname = &1.
    lt_fieldcat-quantity  = &2.
    lt_fieldcat-currency  = &3.
    lt_fieldcat-seltext_m = &4.
    lt_fieldcat-tech      = &5.
    lt_fieldcat-hotspot   = &6.
    lt_fieldcat-do_sum    = &7.
    append lt_fieldcat.
  END-OF-DEFINITION.

  make_fieldcat : 'VBELN' ' ' ' '       '빌링번호'   ' ' 'X' ' ',
                  'POSNR' ' ' ' '       '품목번호'   ' ' ' ' ' ',
                  'FKIMG' 'EA ' ' '     '빌링수량'   ' ' ' ' 'X',
                  'AMT_C33' ' ' 'KRW'   '상품가계정' ' ' ' ' 'X',
                  'AMT_C34_1' ' ' 'KRW' '사은품가계정' ' ' ' ' 'X',
                  'AMT_C34_2' ' ' 'KRW' '포장재가계정' ' ' ' ' 'X',
                  'VBELV' ' ' ' ' ' ' 'X' ' ' ' ',
                  'POSNV' ' ' ' ' ' ' 'X' ' ' ' '.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program      = 'ZCOR052'
            it_fieldcat             = lt_fieldcat[]
            i_callback_user_command = 'USER_COMMAND'
            i_screen_start_column   = '10'
            i_screen_start_line     = '10'
            i_screen_end_column     = '70'
            i_screen_end_line       = '20'
       TABLES
            t_outtab                = lt_bill.

ENDFORM.                    " detail_secreen

FORM user_command USING r_ucomm LIKE sy-ucomm
                        rs_selfield TYPE slis_selfield..
ENDFORM.                    "user_command