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.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
204 | Dynamic Selection(LDB) 관련 자료입니다. [9] | 우헤헤 | 2012.11.20 | 12235 |
203 | abap 자료 [13] | 철죽1 | 2012.11.20 | 12248 |
202 | class-based exceptions 예제. | 철죽1 | 2012.09.02 | 12263 |
201 | SAP에서의 QR Code 프린팅절차 [19] | 양키 | 2012.11.16 | 12347 |
200 | abap tip [5] | 민상애비 | 2012.11.14 | 12388 |
199 | instance vs static 예 [1] | 철죽1 | 2012.09.02 | 12617 |
198 | sap 튜닝 자료입니다. [44] | iop890mm | 2012.10.09 | 12663 |
197 | 파일 첨부 - 한개씩 말고 다중으로 가능? [1] | 연오랑 | 2012.10.23 | 12696 |
196 | LSMW,CATT [8] | 민상애비 | 2012.11.14 | 12812 |
195 | dynamic SQL in SAP [13] | 엠엠공유 | 2011.08.10 | 12871 |
194 | sap tree 에 관한 자료 - [pdf . 영어] [14] | Jenny | 2011.08.04 | 12876 |
193 | create object 예. [1] | 철죽1 | 2012.09.02 | 12900 |
192 | ABAP [Dictionary] Search Help Coding [13] | 문바이 | 2012.04.02 | 12925 |
191 | SAP ICON 정리 [14] | paran | 2012.11.15 | 13012 |
190 | Technical Guide-ABAP Tuning 기초 [5] | 민상애비 | 2012.11.14 | 13078 |
189 | ABAP TRIAL 설치 영문문서 [8] | 열공아밥 | 2010.07.14 | 13082 |
188 | lock 예 [5] | 철죽1 | 2012.09.02 | 13216 |
187 | bdc프로그램개발 [33] | 절감 | 2014.01.06 | 13371 |
186 | ABAP으로구현한 네트웍오목 [8] | 메탈광 | 2007.02.09 | 13392 |
185 | 마이너스 세금 계산서 전표 생성 [4] | tommy | 2010.10.13 | 13393 |