메뉴 건너뛰기

SAP 한국 커뮤니티



GRID

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

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.




번호 제목 글쓴이 날짜 조회 수
44 ABAP INTERPACE에 관한 개념정리 문서 [5] file 초보보초보 2007.02.28 5665
43 CTS OVERVIEW [6] file sapjoy 2007.02.28 4826
42 Basis-HowToUseCCMS [3] file sapjoy 2007.02.28 4881
41 Users_and_Roles_620 [5] file sapjoy 2007.02.28 5525
40 J2ee development manual [2] file sapjoy 2007.02.28 10021
39 J2EE Deploy Manual [4] file sapjoy 2007.02.28 9537
38 ABAP , JAVA Intergration [5] file sapjoy 2007.02.28 10125
37 TIME Mangagement [4] file sapjoy 2007.02.27 10084
36 EDI 와 IDOC [10] file sapjoy 2007.02.27 6223
35 desktop office integration [5] file sapjoy 2007.02.27 3816
34 Operating System / SAP GUI version support matrix [4] file sapjoy 2007.02.26 8822
33 SAP 과 .NET 간의 연동 [10] file 박진만 2007.02.22 11255
32 OO ABAP BY Sylendra Prasad [3] file sapjoy 2007.02.22 9694
31 SAP CONTROL WORKSHOP [5] file sapjoy 2007.02.22 3735
30 unicode exercise [6] file sapjoy 2007.02.22 5092
29 what is was [3] file sapjoy 2007.02.21 3639
28 FAQ about ABAP DICTIONARY [6] file sapjoy 2007.02.21 10228
27 Smart forms [11] file 김현 2007.02.20 5501
26 Web Dynpro for ABAP(En) [7] file 땀돌이™ 2007.02.17 11230
25 sap 자주 묻느 질문 8장짜리 올려요. [27] file 맨날초보 2007.02.16 6132