메뉴 건너뛰기

SAP 한국 커뮤니티



GRID

밤의화신 2017.04.04 09:12 조회 수 : 4340

DATA: BEGIN OF LT_DRDOWN OCCURS 10, DDTEXT LIKE DD07T-DDTEXT, DOMVALUE_L LIKE DD07T-DOMVALUE_L. DATA: END OF LT_DRDOWN. DATA: LS_DROPDOWN TYPE LVC_S_DROP. SELECT * INTO LT_DRDOWN FROM DD07T WHERE DOMNAME = 'AA' LOOP AT LT_DRDOWN. LS_DROPDOWN-HANDLE = '1'. LS_DROPDOWN-VALUE = LT_DRDOWN-DOMVALUE_L. APPEND LS_DROPDOWN TO LT_DROPDOWN. ENDLOOP. "엔터키를 칠때마다 CALL METHOD GV_GRID->REGISTER_EDIT_EVENT EXPORTING I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_ENTER. "값이 변경될때마다 CALL METHOD GV_GRID->REGISTER_EDIT_EVENT EXPORTING I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_MODIFIED. "리스트박스 정의 CALL METHOD GV_GRID->SET_DROP_DOWN_TABLE EXPORTING IT_DROP_DOWN = LT_DROPDOWN. "조회모드 CALL METHOD GV_GRID->SET_READY_FOR_INPUT EXPORTING I_READY_FOR_INPUT = 0. "편집모드 CALL METHOD GV_GRID->SET_READY_FOR_INPUT EXPORTING I_READY_FOR_INPUT = 1.



DATA LS_DROPDOWN TYPE LVC_S_DROP.

DATA LT_DROPDOWN TYPE LVC_T_DROP.


CLEAR GT_FIELDCAT.

GT_FIELDCAT-COL_POS = 5.

GT_FIELDCAT-FIELDNAME = 'TEXT'.

GT_FIELDCAT-TABNAME = 'GT_DISPLAY'.

GT_FIELDCAT-COLTEXT = 'CHECK'.

GT_FIELDCAT-DATATYPE = 'CHAR'.

GT_FIELDCAT-OUTPUTLEN = 10.

GT_FIELDCAT-DRDN_HNDL = '1'.

GT_FIELDCAT-EDIT = 'X'.

GT_FIELDCAT-LOWERCASE = 'X'.

APPEND GT_FIELDCAT.




CALL METHOD GV_GRID->SET_DROP_DOWN_TABLE

    EXPORTING

       IT_DROP_DOWN = LT_DORPWORN.


DATA GV_TARGET_CON TYPE REF TO CL_GUI_CONTAIONER.

DATA GV_DETAIL TYPE RET TO CL_GUI_HTML_VIEWER.

DATA GT_HTML(65535) OCCURS 1 WITH HEADER LINE.

DATA GV_URL TYPE CNDP_URL.


DATA LV_DESC  TYPE STRING.


CREATE OBJECT GV_DETAIL

    EXPORTING

          PARENT = GV_TARGET_CON.


CLEAR GT_HTML, GT_HTML[].


CONCATENATE '<FONT COLOR = BLUE>' '총 건수'

                              '&NBSP;:' T_TOTAL

                              '&NBSP;&NBSP;&NBSP;&NBSP;' 

                              'SUCCESS'

                             '&NBSP;:' T_SUCCESS

                             '&NBSP;&NBSP;&NBSP;&NBSP;'

                             'ERROR'

                             '&NBSP;:' T_ERROR

                  INTO LV_DESC

                  SEPARATED BY SPACE.

APPEND :

                 '<HTML><BODY TOPMARGIN = 0 LEFTMARGIN = 0 BGCOLOR = #EAE9D7>' TO GT_HTML,

                 '<TABLE BORDER = 0 WIDTH = 100% STYLE = ' ' FONT-SIZE:9PT' '>' TO GT_HTML,

                 '<TR VALIGN = MIDDLE>' TO GT_HTML,

                 '< TD>' TO GT_HTML,

                 LV_DESC TO GT_HTML,

                 '</TD>' TO GT_HTML,

                 '</TR>' TO GT_HTML,

                 '</TABLE></FONT></BODY></HTML>' TO GT_HTML.


* LOAD HTML DATA

CALL METHOD GV_DETIAL->LOAD_DATA

    IMPORTING

        ASSIGNED_URL = GV_URL

   CHANGING

        DATA_TABLE = GT_HTML[].

 

IF SY-SUBRC EQ 0.

    CALL METHOD GV_DETAIL->SHOW_URL

         EXPORTING

             URL = GV_URL.

ENDIF. 


DATA GT_RET LIKE DDSHRETVAL OCCURS 0 WITH HEADER LINE.


REFRESH GT_RET.


DATA LT_RET LIKE DDSHRETVAL OCCURS 0 WITH HEADER LINE.


CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'

    EXPORTING

        TABNAME = 'DRAW'

        FIELDNAME = 'DOKNR'

        MULTIPLE_CHOICE = 'X'

   TABLES

       RETURN_TAB = LT_RET.


IF LT_RET[] IS NOT INITIAL.

    GT_RET[] = LT_RET[].

ENDIF.