屏幕实例

*&---------------------------------------------------------------------* *& Report ZSCREEN_T1 *&

*&---------------------------------------------------------------------* *& *&

*&---------------------------------------------------------------------*

REPORT ZSCREEN_T1.

TABLES: SPFLI , ZMES003 .

DATA: OK_CODE TYPE SY-UCOMM ,

SAVE_OK TYPE SY-UCOMM .

****************

TYPE-POOLS VRM .

DATA: FLD1(20) TYPE C ,

CANMOD(1) TYPE C .

DATA: FNAME TYPE VRM_ID ,

VVA TYPE VRM_VALUES ,

LVVA LIKE LINE OF VVA .

************

DATA: SID1(4) TYPE N VALUE '2000' .

***********************

DATA CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER .

DATA PICTURE TYPE REF TO CL_GUI_PICTURE .

DATA INIT .

****************************

DATA: EDITOR TYPE REF TO CL_GUI_TEXTEDIT .

DATA: M1(256) TYPE C OCCURS 0 ,

LINE(256) TYPE C .

LINE = '请输入' .

APPEND LINE TO M1 .

****************************************

*&SPWIZARD: DECLARATION OF TABLECONTROL 'TABLE1' ITSELF

CONTROLS: TABLE1 TYPE TABLEVIEW USING SCREEN 1000.

CALL SCREEN 1000 .

*******************************

REFRESH M1 .

CALL METHOD EDITOR->GET_TEXT_AS_R3TABLE

IMPORTING

TABLE = M1 .

LOOP AT M1 INTO LINE .

WRITE / LINE .

ENDLOOP .

************************************* * WRITE: FORINPUT , / FORCODE .

CANMOD = 'X' .

MODULE STATUS_1000 OUTPUT .

SET PF-STATUS 'STA1' .

*************

CLEAR: FLD1 , VVA.

FNAME = 'FLD1' .

LVVA-KEY = '1' .

LVVA-TEXT = '广州' .

APPEND LVVA TO VVA .

CLEAR LVVA .

LVVA-KEY = '2' .

LVVA-TEXT = '上海' .

APPEND LVVA TO VVA .

LVVA-KEY = '3' .

LVVA-TEXT = '上海' .

APPEND LVVA TO VVA .

LVVA-KEY = '4' .

LVVA-TEXT = '上海' .

APPEND LVVA TO VVA .

LVVA-KEY = '5' .

LVVA-TEXT = '上海' .

APPEND LVVA TO VVA .

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

ID = FNAME

VALUES = VVA

EXCEPTIONS

ID_ILLEGAL_NAME = 1

OTHERS = 2

.

***************************

IF INIT IS INITIAL .

DATA URL(255) .

CLEAR URL .

CREATE OBJECT CONTAINER

EXPORTING CONTAINER_NAME = 'P1' .

CREATE OBJECT PICTURE

EXPORTING PARENT = CONTAINER

EXCEPTIONS ERROR = 1 .

PERFORM LOAD_PIC_DB CHANGING URL .

CALL METHOD PICTURE->LOAD_PICTURE_FROM_URL

EXPORTING

URL = URL .

INIT = 'X' .

ENDIF .

****************************

IF INIT = 'X' .

CREATE OBJECT: CONTAINER EXPORTING CONTAINER_NAME = 'P2' .

CREATE OBJECT EDITOR

EXPORTING

PARENT = CONTAINER

WORDWRAP_MODE = CL_GUI_TEXTEDIT=>WORDWRAP_AT_FIXED_POSITION

WORDWRAP_POSITION = 256

WORDWRAP_TO_LINEBREAK_MODE = CL_GUI_TEXTEDIT=>TRUE .

ENDIF .

CALL METHOD EDITOR->SET_TEXT_AS_R3TABLE

EXPORTING

TABLE = M1 .

*********************

ENDMODULE .

MODULE CANCEL INPUT .

LEAVE PROGRAM .

ENDMODULE .

MODULE USER_COMMAND_1000 INPUT .

SAVE_OK = OK_CODE .

CLEAR OK_CODE .

CASE SAVE_OK .

WHEN 'BIN2' .

LEAVE TO SCREEN 0 .

WHEN 'BACK' OR 'CANCEL' .

LEAVE to SCREEN 0 .

WHEN 'EXIT' .

exit .

WHEN 'BT1' .

TABLE1-top_line = lines( VVA ) - 1 .

SID1 = '2000' .

WHEN 'BT2' .

SID1 = '3000' .

WHEN OTHERS .

ENDCASE .

ENDMODULE .

MODULE CHECK1 INPUT .

IF CANMOD = 'X' .

SELECT SINGLE *

INTO CORRESPONDING FIELDS OF SPFLI

FROM SPFLI

WHERE CARRID = 'AA'

.

IF SY-SUBRC NE 0 .

CLEAR SPFLI .

ENDIF .

ELSE .

CLEAR SPFLI .

ENDIF .

ENDMODULE .

MODULE CHECK3 INPUT .

CLEAR SPFLI .

ENDMODULE .

MODULE CHECK2 INPUT .

SELECT SINGLE *

INTO CORRESPONDING FIELDS OF ZMES003

FROM ZMES003

WHERE GROUPID = ZMES003-GROUPID AND GTYPE = ZMES003-GTYPE

.

IF SY-SUBRC NE 0 .

CLEAR ZMES003 .

ENDIF .

ENDMODULE .

*&SPWIZARD: FUNCTION CODES FOR TABSTRIP 'WIN'

CONSTANTS: BEGIN OF C_WIN,

TAB1 LIKE SY-UCOMM VALUE 'WIN_FC1',

TAB2 LIKE SY-UCOMM VALUE 'WIN_FC2',

TAB3 LIKE SY-UCOMM VALUE 'WIN_FC3',

END OF C_WIN.

*&SPWIZARD: DATA FOR TABSTRIP 'WIN'

CONTROLS: WIN TYPE TABSTRIP.

DATA: BEGIN OF G_WIN,

SUBSCREEN LIKE SY-DYNNR,

PROG LIKE SY-REPID VALUE 'ZSCREEN_T1',

PRESSED_TAB LIKE SY-UCOMM VALUE C_WIN-TAB1,

END OF G_WIN.

*&SPWIZARD: OUTPUT MODULE FOR TS 'WIN'. DO NOT CHANGE THIS LINE! *&SPWIZARD: SETS ACTIVE TAB

MODULE WIN_ACTIVE_TAB_SET OUTPUT.

WIN-ACTIVETAB = G_WIN-PRESSED_TAB.

CASE G_WIN-PRESSED_TAB.

WHEN C_WIN-TAB1.

G_WIN-SUBSCREEN = '2001'.

WHEN C_WIN-TAB2.

G_WIN-SUBSCREEN = '2002'.

WHEN C_WIN-TAB3.

G_WIN-SUBSCREEN = '2003'.

WHEN OTHERS.

*&SPWIZARD: DO NOTHING

ENDCASE.

ENDMODULE.

*&SPWIZARD: INPUT MODULE FOR TS 'WIN'. DO NOT CHANGE THIS LINE! *&SPWIZARD: GETS ACTIVE TAB

MODULE WIN_ACTIVE_TAB_GET INPUT.

OK_CODE = SY-UCOMM.

CASE OK_CODE.

WHEN C_WIN-TAB1.

G_WIN-PRESSED_TAB = C_WIN-TAB1.

WHEN C_WIN-TAB2.

G_WIN-PRESSED_TAB = C_WIN-TAB2.

WHEN C_WIN-TAB3.

G_WIN-PRESSED_TAB = C_WIN-TAB3.

WHEN OTHERS.

*&SPWIZARD: DO NOTHING

ENDCASE.

ENDMODULE.

*&SPWIZARD: OUTPUT MODULE FOR TC 'TABLE1'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: UPDATE LINES FOR EQUIVALENT SCROLLBAR

MODULE TABLE1_CHANGE_TC_ATTR OUTPUT.

DESCRIBE TABLE VVA LINES TABLE1-lines.

ENDMODULE.

*&SPWIZARD: INPUT MODULE FOR TC 'TABLE1'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: MODIFY TABLE

MODULE TABLE1_MODIFY INPUT.

MODIFY VVA

FROM LVVA

INDEX TABLE1-CURRENT_LINE.

ENDMODULE.

FORM LOAD_PIC_DB CHANGING P_URL .

DATA QUERY_TABLE LIKE W3QUERY OCCURS 1 WITH HEADER LINE .

DATA HTML_TABLE LIKE W3HTML OCCURS 1 .

DATA RETURN_CODE LIKE W3PARAM-RET_CODE .

DATA CONTENT_TYPE LIKE W3PARAM-CONT_TYPE .

DATA CONTENT_LENGTH LIKE W3PARAM-CONT_LEN .

DATA PIC_DATA LIKE W3MIME OCCURS 0 .

DATA PIC_SIZE TYPE I .

REFRESH QUERY_TABLE .

QUERY_TABLE-NAME = '_OBJECT_ID' .

QUERY_TABLE-VALUE = 'Z_P_LARGE.JPG' .

APPEND QUERY_TABLE .

CALL FUNCTION 'WWW_GET_MIME_OBJECT'

TABLES

QUERY_STRING = QUERY_TABLE

HTML = HTML_TABLE

MIME = PIC_DATA

CHANGING

RETURN_CODE = RETURN_CODE

CONTENT_TYPE = CONTENT_TYPE

CONTENT_LENGTH = CONTENT_LENGTH

EXCEPTIONS

OBJECT_NOT_FOUND = 1

PARAMETER_NOT_FOUND = 2

OTHERS = 3

.

CALL FUNCTION 'DP_CREATE_URL'

EXPORTING

TYPE = 'image'

SUBTYPE = CNDP_SAP_TAB_UNKNOWN

SIZE = PIC_SIZE

LIFETIME = CNDP_LIFETIME_TRANSACTION

TABLES

DATA = PIC_DATA

CHANGING

URL = URL

EXCEPTIONS

DP_LINVALID_PARAMETER = 1

DP_ERROR_PUT_TABLE = 2

DP_ERROR_GENERAL = 3

OTHERS = 4

.

ENDFORM .

PROCESS BEFORE OUTPUT.

MODULE STATUS_1000.

*&SPWIZARD: PBO FLOW LOGIC FOR TABLECONTROL 'TABLE1'

MODULE TABLE1_CHANGE_TC_ATTR.

*&SPWIZARD: MODULE TABLE1_CHANGE_COL_ATTR.

LOOP AT VVA

INTO LVVA

WITH CONTROL TABLE1

CURSOR TABLE1-CURRENT_LINE.

*&SPWIZARD: MODULE TABLE1_CHANGE_FIELD_ATTR

ENDLOOP.

CALL SUBSCREEN: SUBSCR INCLUDING SY-REPID SID1 .

**************************************

PROCESS AFTER INPUT.

*&SPWIZARD: PAI FLOW LOGIC FOR TABLECONTROL 'TABLE1'

LOOP AT VVA.

CHAIN.

FIELD LVVA-KEY.

* FIELD LVVA-TEXT.

MODULE TABLE1_MODIFY ON CHAIN-REQUEST.

endchain.

ENDLOOP.

*&SPWIZARD: MODULE TABLE1_CHANGE_TC_ATTR. *&SPWIZARD: MODULE TABLE1_CHANGE_COL_ATTR.

CHAIN .

FIELD: ZMES003-GROUPID,ZMES003-GTYPE .

MODULE CHECK1 ON CHAIN-INPUT .

ENDCHAIN .

CHAIN.

FIELD: ZMES003-PERNR,ZMES003-GSTAT .

MODULE CHECK2 .

ENDCHAIN .

FIELD ZMES003-PERNR MODULE CHECK3 ON REQUEST .

FIELD ZMES003-GTYPE MODULE CHECK4 ON *-INPUT .

MODULE CANCEL AT EXIT-COMMAND .

MODULE USER_COMMAND_1000.

CALL SUBSCREEN SUBSCR .