alv的列行和单元格控制Word文档格式.docx

alv的列行和单元格控制Word文档格式.docx

《alv的列行和单元格控制Word文档格式.docx》由会员分享，可在线阅读，更多相关《alv的列行和单元格控制Word文档格式.docx（12页珍藏版）》请在冰点文库上搜索。

TYPESPFLI-CONNID,

COUNTRYFRTYPESPFLI-COUNTRYFR,

COUNTRYTOTYPESPFLI-COUNTRYTO,

CITYFROM 

TYPESPFLI-CITYFROM,

CITYTO 

TYPESPFLI-CITYTO,

ENDOFTYP_SPFLI,

BEGINOFTYP_OUTPUT,

ICON 

TYPEicon_d,

SYMBOL 

STYLE 

TYPELVC_T_STYL,“FORDISABLE

ENDOFTYP_OUTPUT.

DATA:

TH_SPFLITYPETYP_SPFLI,

TD_SPFLITYPETABLEOFTYP_SPFLI,

TH_STYLETYPELVC_S_STYL,

TD_STYLETYPETABLEOFLVC_S_STYL,

TH_LAYOUTTYPELVC_S_LAYO,

TH_FIELDCATTYPELVC_S_FCAT,

TD_FIELDCATTYPETABLEOFLVC_S_FCAT,

TH_OUTPUTTYPETYP_OUTPUT,

TD_OUTPUTTYPETABLEOFTYP_OUTPUT.

START-OF-SELECTION.

SELECT-OPTIONS:

S_CARRIDFORSPFLI-CARRID,

S_CONNIDFORSPFLI-CONNID.

PERFORMFRM_GET_DATA.

PERFORMFRM_EDIT_DATA.

PERFORMFRM_DISPLAY_DATA.

*&

———————————————————————*

Form 

FRM_GET_DATA

* 

GETMAINDATA

*———————————————————————-*

FORMFRM_GET_DATA.

SELECT 

CARRID

CONNID

COUNTRYFR

COUNTRYTO

CITYFROM

CITYTO

INTO 

TABLETD_SPFLI

FROM 

SPFLI

WHERECARRIDINS_CARRID

ANDCONNIDINS_CONNID.

IFSY-SUBRC<

>

0.

MESSAGES001DISPLAYLIKE‘E’.

LEAVELIST-PROCESSING.

ENDIF.

ENDFORM. 

”FRM_GET_DATA

FRM_DISPLAY_DATA

text

–>

p1 

<

– 

p2 

FORMFRM_DISPLAY_DATA.

PERFORMFRM_SET_TITLE.

PERFORMFRM_SET_FIELDCAT.

PERFORMFRM_CALL_FUNCTION.

”FRM_DISPLAY_DATA

FRM_SET_TITLE

FORMFRM_SET_TITLE.

TH_LAYOUT-STYLEFNAME=‘STYLE’.

TH_LAYOUT-GRID_TITLE 

=‘行列单元格编辑控制’.

TH_LAYOUT-CWIDTH_OPT=‘X’.

”FRM_SET_TITLE

FRM_SET_FIELDCAT

FORMFRM_SET_FIELDCAT.

PERFORMFRM_SET_VALUEUSING‘1′‘ICON’ 

‘ICON’‘5′‘‘.

PERFORMFRM_SET_VALUEUSING‘2′‘SYMBOL’‘SYMBOL’‘5′‘‘.

PERFORMFRM_SET_VALUEUSING‘3′‘CARRID’‘航线承运人ID’‘3′”.

PERFORMFRM_SET_VALUEUSING‘4′‘CONNID’‘航班连接Id’‘4′”.

PERFORMFRM_SET_VALUEUSING‘5′‘COUNTRYFR’‘国家代码FROM’‘3′”.

PERFORMFRM_SET_VALUEUSING‘6′‘COUNTRYTO’‘国家代码TO’‘3′”.

PERFORMFRM_SET_VALUEUSING‘7′‘CITYFROM’‘起飞城市’‘20′”.

PERFORMFRM_SET_VALUEUSING‘8′‘CITYTO’‘目标城市’‘20′”.

”FRM_SET_FIELDCAT

FRM_SET_VALUE

P_COL_POS 

text 

NO_ROWMARK

P_FIELDNAME 

P_SELTEXT_L 

P_OUTPUTLEN 

FORMFRM_SET_VALUE 

USING 

I_COL_POS

I_FIELDNAME

I_SELTEXT

I_OUTPUTLEN

I_CHECKBOX.

TH_FIELDCAT-COL_POS= 

I_COL_POS.

TH_FIELDCAT-FIELDNAME=I_FIELDNAME.

TH_FIELDCAT-SCRTEXT_M=I_SELTEXT.

TH_FIELDCAT-OUTPUTLEN=I_OUTPUTLEN.

IFI_FIELDNAME=‘CARRID’.

TH_FIELDCAT-EDIT=‘X’.

ELSEIFI_FIELDNAME=‘CHECK’.

TH_FIELDCAT-SCRTEXT_M=‘SELECT’.

TH_FIELDCAT-CHECKBOX=‘X’.

TH_FIELDCAT-OUTPUTLEN=1.

ELSEIFI_FIELDNAME=‘ICON’.

TH_FIELDCAT-icon=‘X’.

ELSEIFI_FIELDNAME=‘SYMBOL’.

TH_FIELDCAT-symbol=‘X’.

APPENDTH_FIELDCATTOTD_FIELDCAT.

CLEARTH_FIELDCAT.

”FRM_SET_VALUE

FRM_CALL_FUNCTION

FORMFRM_CALL_FUNCTION.

callfunction‘REUSE_ALV_GRID_DISPLAY’

CALLFUNCTION‘REUSE_ALV_GRID_DISPLAY_LVC’

EXPORTING

I_CALLBACK_PROGRAM 

=SY-REPID

I_CALLBACK_USER_COMMAND=‘FRM_SET_COMMAND’

IS_LAYOUT_LVC 

=TH_LAYOUT

IT_FIELDCAT_LVC 

=TD_FIELDCAT

I_SAVE 

=‘A’

TABLES

T_OUTTAB 

=TD_OUTPUT

EXCEPTIONS

PROGRAM_ERROR 

=1

OTHERS 

=2.

IFSY-SUBRC<

MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO

WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.

ENDIF.

”FRM_CALL_FUNCTION

FRM_EDIT_DATA

FORMFRM_EDIT_DATA.

DATA:

LW_INDEXTYPESY-INDEX,

LW_MOD 

TYPEI.

LOOPATTD_SPFLIINTOTH_SPFLI.

LW_INDEX=SY-TABIX.

LW_MOD=LW_INDEXMOD3.

IFLW_MOD<

TH_OUTPUT-ICON 

=ICON_TIME.

TH_OUTPUT-SYMBOL=SYM_LEFT_HAND.

ELSE.

=ICON_COLOR.

TH_OUTPUT-SYMBOL=sym_folder.

IFTH_SPFLI-COUNTRYTO=‘DE’.

PERFORMFRM_SET_ENABLEDUSING‘COUNTRYTO’.

PERFORMFRM_SET_ENABLEDUSING‘CITYTO’.

IFTH_SPFLI-CONNID=‘2436′.

PERFORMFRM_SET_ENABLEDUSING‘COUNTRYFR’.

PERFORMFRM_SET_ENABLEDUSING‘CITYFROM’.

IFTH_SPFLI-CARRID=‘SQ’.

PERFORMFRM_SET_DISABLEDUSING‘CARRID’.

IFTH_SPFLI-CARRID=‘DL’.

PERFORMFRM_SET_ENABLEDUSING‘ICON’.

PERFORMFRM_SET_ENABLEDUSING‘SYMBOL’.

PERFORMFRM_SET_ENABLEDUSING‘CARRID’.

PERFORMFRM_SET_ENABLEDUSING‘CONNID’.

PERFORMFRM_SET_ENABLEDUSING‘CITYFROM‘.

MOVE-CORRESPONDINGTH_SPFLITOTH_OUTPUT.

TH_OUTPUT-STYLE[]=TD_STYLE[].

REFRESH:

TD_STYLE.

APPENDTH_OUTPUTTOTD_OUTPUT.

CLEAR:

LW_INDEX,

LW_MOD,

TH_OUTPUT.

ENDLOOP.

”FRM_EDIT_DATA

FORMFRM_SET_COMMANDUSINGr_ucommLIKEsy-ucomm

rs_selfieldTYPEslis_selfield.

CASEr_ucomm.

WHEN‘&

IC1′.“双击事件

READTABLEitabINTOwaINDEXrs_selfield-tabindex.

*

SETPARAMETERID‘BLN’FIELDwa-belnr.

SETPARAMETERID‘BUK’FIELDwa-bukrs.

SETPARAMETERID‘GJR’FIELDwa-gjahr.

CALLTRANSACTION‘FB03′ANDSKIPFIRSTSCREEN.

ENDCASE.

ENDFORM.

FRM_SET_ENABLED

P_0447 

FORMFRM_SET_ENABLED 

I_NAME.

TH_STYLE-FIELDNAME=I_NAME.

TH_STYLE-STYLE=CL_GUI_ALV_GRID=>

MC_STYLE_ENABLED.

“setfieldtodisabled

APPENDTH_STYLETOTD_STYLE.

CLEARTH_STYLE.

”FRM_SET_ENABLED

FRM_SET_DISABLED

I_NAME 

FORMFRM_SET_DISABLED 

MC_STYLE_DISABLED.

”FRM_SET_DISABLED