메뉴 건너뛰기

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.




번호 제목 글쓴이 날짜 조회 수
1224 ABAP [Dictionary] Type Definition 정리표 [14] 문바이 2011.09.28 21363
1223 ABAP [Internal Table] 기본기 [22] 문바이 2011.09.26 21050
1222 ABAP [Function] 기본정보 정리표 [45] 문바이 2011.09.20 22860
1221 추억의 베이스볼 게임을 아밥으로 짜보았습니다.. [33] 그림장이 2011.08.12 20048
1220 News in ABAP Debugger Breakpoints & Watchpoints(EHP2.0) [15] file swithom 2011.08.11 19305
1219 WEBDYN FOR ABAP 에 관한 자료입니다. [PDF . 영어] [13] file Jenny 2011.08.11 19676
1218 BAPI Step-by-Step [31] file Jenny 2011.08.10 14910
1217 dynamic SQL in SAP [13] file 엠엠공유 2011.08.10 12871
1216 ABAP_Troubleshooting [에러 처리] 에 관한 자료입니다. [10] file Jenny 2011.08.10 20179
1215 SAP Cording Style Guide(ABAP 기초수준급) [42] file swithom 2011.08.09 31592
1214 sap text edit 에 관한 자료 입니다. [pdf . 영어] [12] file Jenny 2011.08.04 20551
1213 sap tree 에 관한 자료 - [pdf . 영어] [14] file Jenny 2011.08.04 12875
1212 대량데이타 빠르게 편집하기 - Clipboard 로 다운받아 편집하기 [16] file 통하라 2011.07.20 39085
1211 ABAP [Subroutine] 명령어 정리표 [26] 문바이 2011.06.01 43824
1210 Abap OO 자료 잘되있네요 ^^ [39] file 양키 2011.05.31 35469
1209 Dynamic SQL [31] file 전군 2011.05.19 41177
1208 ABAP [Field-Symbol] 명령어 정리표 [35] 문바이 2011.05.16 59409
1207 ABAP [문자열] 명령어 정리표 [28] 문바이 2011.05.13 69183
1206 ABAP [Internal Table] 명령어 정리표 [42] 문바이 2011.05.13 54234
1205 ABAP [Selection Screen]에 대한 고찰01_Macro첨부 [6] 문바이 2011.05.13 44069