sap alv的报表的一些简单的操作

<svg style="display: none;">
 <path d="M5,0 0,2.5 5,5z" id="raphael-marker-block" stroke-linecap="round" style="-webkit-tap-highlight-color: rgba(0, 0, 0, 0);"></path>
 </svg>
 TYPE-POOLS:SLIS,ICON. 
TYPES: BEGIN OF TY_SPFLI, 
 BOX(1), 
 COLOR_CELL TYPE LVC_T_SCOL, “该类型可以从se11数据字典结构查看 
 ICON(10), “LED 
 EXP(1), “RED GREEN YELLOW 
 COLOR(4), 
 INTERNATION(1) TYPE C. 
 INCLUDE TYPE SPFLI. 
TYPES END OF TY_SPFLI.

DATA IT_SPFLI TYPE STANDARD TABLE OF TY_SPFLI. 
DATA WA_SPFLI TYPE TY_SPFLI. 
DATA IT_FIELDCAT_LVC TYPE LVC_T_FCAT. 
DATA WA_FIELDCAT_LVC TYPE LINE OF LVC_T_FCAT. 
DATA IS_LAYOUT_LVC TYPE LVC_S_LAYO. 
DATA IT_SORT_LVC TYPE LVC_T_SORT. 
DATA WA_SORT_LVC TYPE LVC_S_SORT. 
DATA IT_EVENTS TYPE SLIS_T_EVENT. 
DATA WA_EVENTS LIKE LINE OF IT_EVENTS. 
DATA IT_FILTER_LVC TYPE LVC_T_FILT. 
DATA WA_FILTER_LVC TYPE LVC_S_FILT.

DATA:I_LIST_COMMENTS TYPE SLIS_T_LISTHEADER, “alv表单标题区域设置 
 W_LIST_COMMENTS LIKE LINE OF I_LIST_COMMENTS.

START-OF-SELECTION. 
 PERFORM GET_DATA. 
 PERFORM FIELDCAT_LVC. 
 PERFORM LAYOUT_LVC. 
 PERFORM SORT_LVC. 
 PERFORM EVENTS_LVC. 
 PERFORM FILTER_LVC. 
 PERFORM ALV_DISPLAY_LVC.

END-OF-SELECTION.

&——————————————————————— 
*& Form GET_DATA 
&——————————————————————— 
* text 
———————————————————————- 
FORM GET_DATA . 
 DATA LS_COLOR TYPE LVC_S_SCOL. 
 SELECT * 
FROM SPFLI 
INTO CORRESPONDING FIELDS OF TABLE IT_SPFLI. 
 LOOP AT IT_SPFLI INTO WA_SPFLI. 
IF WA_SPFLI-COUNTRYFR EQ WA_SPFLI-COUNTRYTO. 
 WA_SPFLI-INTERNATION = ”. 
* WA_SPFLI-COLOR = ‘C501’. 
 WA_SPFLI-EXP = 1. 
 WA_SPFLI-ICON = ICON_LED_GREEN. 
 CLEAR LS_COLOR. 
 LS_COLOR-FNAME = ‘INTERNATION’. 
 LS_COLOR-COLOR-COL = 3. 
 LS_COLOR-COLOR-INT = 0. 
 LS_COLOR-COLOR-INV = 0. 
 APPEND LS_COLOR TO WA_SPFLI-COLOR_CELL. 
ELSE. 
 WA_SPFLI-INTERNATION = ‘X’. 
* WA_SPFLI-COLOR = ‘C701’. “行的颜色会覆盖列的颜色 
 WA_SPFLI-EXP = 2. 
 WA_SPFLI-ICON = ICON_LED_RED. 
 CLEAR LS_COLOR. 
 LS_COLOR-FNAME = ‘INTERNATION’. 
 LS_COLOR-COLOR-COL = 4. 
 LS_COLOR-COLOR-INT = 0. 
 LS_COLOR-COLOR-INV = 0. 
 APPEND LS_COLOR TO WA_SPFLI-COLOR_CELL. 
ENDIF. 
MODIFY IT_SPFLI FROM WA_SPFLI. 
 ENDLOOP. 
ENDFORM. ” GET_DATA 
&——————————————————————— 
*& Form FIELDCAT_LVC 
&——————————————————————— 
* text 
———————————————————————- 
* –> p1 text 
* <– p2 text 
———————————————————————- 
FORM FIELDCAT_LVC . 
 CLEAR WA_FIELDCAT_LVC. 
 WA_FIELDCAT_LVC-COL_POS = 1. 
 WA_FIELDCAT_LVC-KEY = ‘X’. 
 WA_FIELDCAT_LVC-EDIT = ‘X’. 
 WA_FIELDCAT_LVC-FIELDNAME = ‘CARRID’. 
 WA_FIELDCAT_LVC-REPTEXT = ‘Carrid’. 
 WA_FIELDCAT_LVC-REF_TABLE = ‘SCARR’. 
 WA_FIELDCAT_LVC-REF_FIELD = ‘CARRID’. 
* WA_FIELDCAT_LVC-SCRTEXT_L = ‘CARRid’. 
 WA_FIELDCAT_LVC-ROLLNAME = ‘S_CARR_ID’. “注意：这里是DATA ELEMENT F1帮助 
 APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC. 
 CLEAR WA_FIELDCAT_LVC. 
 WA_FIELDCAT_LVC-COL_POS = 2. 
 WA_FIELDCAT_LVC-KEY = ‘X’. 
 WA_FIELDCAT_LVC-EDIT = ‘X’. 
 WA_FIELDCAT_LVC-FIELDNAME = ‘CONNID’. 
 WA_FIELDCAT_LVC-REPTEXT = ‘Connid’. 
 APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC. 
 CLEAR WA_FIELDCAT_LVC. 
 WA_FIELDCAT_LVC-COL_POS = 3. 
 WA_FIELDCAT_LVC-EDIT = ‘X’. 
 WA_FIELDCAT_LVC-FIELDNAME = ‘COUNTRYFR’. 
 WA_FIELDCAT_LVC-REPTEXT = ‘COUNTRYFR’. 
 APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC. 
 CLEAR WA_FIELDCAT_LVC. 
 WA_FIELDCAT_LVC-COL_POS = 4. 
 WA_FIELDCAT_LVC-EDIT = ‘X’. 
 WA_FIELDCAT_LVC-FIELDNAME = ‘CITYFROM’. 
 WA_FIELDCAT_LVC-REPTEXT = ‘CITYFROM’. 
 APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC. 
 CLEAR WA_FIELDCAT_LVC. 
 WA_FIELDCAT_LVC-COL_POS = 5. 
 WA_FIELDCAT_LVC-EDIT = ‘X’. 
 WA_FIELDCAT_LVC-FIELDNAME = ‘COUNTRYTO’. 
 WA_FIELDCAT_LVC-REPTEXT = ‘COUNTRYTO’. 
 APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC. 
 CLEAR WA_FIELDCAT_LVC. 
 WA_FIELDCAT_LVC-COL_POS = 6. 
 WA_FIELDCAT_LVC-EDIT = ‘X’. 
 WA_FIELDCAT_LVC-FIELDNAME = ‘CITYTO’. 
 WA_FIELDCAT_LVC-REPTEXT = ‘CITYTO’. 
 APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC. 
 CLEAR WA_FIELDCAT_LVC. 
 WA_FIELDCAT_LVC-COL_POS = 7. 
 WA_FIELDCAT_LVC-FIELDNAME = ‘DISTANCE’. 
 WA_FIELDCAT_LVC-REPTEXT = ‘DISTAN