<!-- flowchart 箭头图标 勿删 -->
<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>
<p>TYPE-POOLS:SLIS,ICON. <br>
TYPES: BEGIN OF TY_SPFLI, <br>
BOX(1), <br>
COLOR_CELL TYPE LVC_T_SCOL, “该类型可以从se11数据字典结构查看 <br>
ICON(10), “LED <br>
EXP(1), “RED GREEN YELLOW <br>
COLOR(4), <br>
INTERNATION(1) TYPE C. <br>
INCLUDE TYPE SPFLI. <br>
TYPES END OF TY_SPFLI.</p>
<p>DATA IT_SPFLI TYPE STANDARD TABLE OF TY_SPFLI. <br>
DATA WA_SPFLI TYPE TY_SPFLI. <br>
DATA IT_FIELDCAT_LVC TYPE LVC_T_FCAT. <br>
DATA WA_FIELDCAT_LVC TYPE LINE OF LVC_T_FCAT. <br>
DATA IS_LAYOUT_LVC TYPE LVC_S_LAYO. <br>
DATA IT_SORT_LVC TYPE LVC_T_SORT. <br>
DATA WA_SORT_LVC TYPE LVC_S_SORT. <br>
DATA IT_EVENTS TYPE SLIS_T_EVENT. <br>
DATA WA_EVENTS LIKE LINE OF IT_EVENTS. <br>
DATA IT_FILTER_LVC TYPE LVC_T_FILT. <br>
DATA WA_FILTER_LVC TYPE LVC_S_FILT.</p>
<p>DATA:I_LIST_COMMENTS TYPE SLIS_T_LISTHEADER, “alv表单标题区域设置 <br>
W_LIST_COMMENTS LIKE LINE OF I_LIST_COMMENTS.</p>
<p>START-OF-SELECTION. <br>
PERFORM GET_DATA. <br>
PERFORM FIELDCAT_LVC. <br>
PERFORM LAYOUT_LVC. <br>
PERFORM SORT_LVC. <br>
PERFORM EVENTS_LVC. <br>
PERFORM FILTER_LVC. <br>
PERFORM ALV_DISPLAY_LVC.</p>
<p>END-OF-SELECTION.</p>
<p><em>&———————————————————————</em> <br>
*& Form GET_DATA <br>
<em>&———————————————————————</em> <br>
* text <br>
<em>———————————————————————-</em> <br>
FORM GET_DATA . <br>
DATA LS_COLOR TYPE LVC_S_SCOL. <br>
SELECT * <br>
FROM SPFLI <br>
INTO CORRESPONDING FIELDS OF TABLE IT_SPFLI. <br>
LOOP AT IT_SPFLI INTO WA_SPFLI. <br>
IF WA_SPFLI-COUNTRYFR EQ WA_SPFLI-COUNTRYTO. <br>
WA_SPFLI-INTERNATION = ”. <br>
* WA_SPFLI-COLOR = ‘C501’. <br>
WA_SPFLI-EXP = 1. <br>
WA_SPFLI-ICON = ICON_LED_GREEN. <br>
CLEAR LS_COLOR. <br>
LS_COLOR-FNAME = ‘INTERNATION’. <br>
LS_COLOR-COLOR-COL = 3. <br>
LS_COLOR-COLOR-INT = 0. <br>
LS_COLOR-COLOR-INV = 0. <br>
APPEND LS_COLOR TO WA_SPFLI-COLOR_CELL. <br>
ELSE. <br>
WA_SPFLI-INTERNATION = ‘X’. <br>
* WA_SPFLI-COLOR = ‘C701’. “行的颜色会覆盖列的颜色 <br>
WA_SPFLI-EXP = 2. <br>
WA_SPFLI-ICON = ICON_LED_RED. <br>
CLEAR LS_COLOR. <br>
LS_COLOR-FNAME = ‘INTERNATION’. <br>
LS_COLOR-COLOR-COL = 4. <br>
LS_COLOR-COLOR-INT = 0. <br>
LS_COLOR-COLOR-INV = 0. <br>
APPEND LS_COLOR TO WA_SPFLI-COLOR_CELL. <br>
ENDIF. <br>
MODIFY IT_SPFLI FROM WA_SPFLI. <br>
ENDLOOP. <br>
ENDFORM. ” GET_DATA <br>
<em>&———————————————————————</em> <br>
*& Form FIELDCAT_LVC <br>
<em>&———————————————————————</em> <br>
* text <br>
<em>———————————————————————-</em> <br>
* –> p1 text <br>
* <– p2 text <br>
<em>———————————————————————-</em> <br>
FORM FIELDCAT_LVC . <br>
CLEAR WA_FIELDCAT_LVC. <br>
WA_FIELDCAT_LVC-COL_POS = 1. <br>
WA_FIELDCAT_LVC-KEY = ‘X’. <br>
WA_FIELDCAT_LVC-EDIT = ‘X’. <br>
WA_FIELDCAT_LVC-FIELDNAME = ‘CARRID’. <br>
WA_FIELDCAT_LVC-REPTEXT = ‘Carrid’. <br>
WA_FIELDCAT_LVC-REF_TABLE = ‘SCARR’. <br>
WA_FIELDCAT_LVC-REF_FIELD = ‘CARRID’. <br>
* WA_FIELDCAT_LVC-SCRTEXT_L = ‘CARRid’. <br>
WA_FIELDCAT_LVC-ROLLNAME = ‘S_CARR_ID’. “注意:这里是DATA ELEMENT F1帮助 <br>
APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC. <br>
CLEAR WA_FIELDCAT_LVC. <br>
WA_FIELDCAT_LVC-COL_POS = 2. <br>
WA_FIELDCAT_LVC-KEY = ‘X’. <br>
WA_FIELDCAT_LVC-EDIT = ‘X’. <br>
WA_FIELDCAT_LVC-FIELDNAME = ‘CONNID’. <br>
WA_FIELDCAT_LVC-REPTEXT = ‘Connid’. <br>
APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC. <br>
CLEAR WA_FIELDCAT_LVC. <br>
WA_FIELDCAT_LVC-COL_POS = 3. <br>
WA_FIELDCAT_LVC-EDIT = ‘X’. <br>
WA_FIELDCAT_LVC-FIELDNAME = ‘COUNTRYFR’. <br>
WA_FIELDCAT_LVC-REPTEXT = ‘COUNTRYFR’. <br>
APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC. <br>
CLEAR WA_FIELDCAT_LVC. <br>
WA_FIELDCAT_LVC-COL_POS = 4. <br>
WA_FIELDCAT_LVC-EDIT = ‘X’. <br>
WA_FIELDCAT_LVC-FIELDNAME = ‘CITYFROM’. <br>
WA_FIELDCAT_LVC-REPTEXT = ‘CITYFROM’. <br>
APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC. <br>
CLEAR WA_FIELDCAT_LVC. <br>
WA_FIELDCAT_LVC-COL_POS = 5. <br>
WA_FIELDCAT_LVC-EDIT = ‘X’. <br>
WA_FIELDCAT_LVC-FIELDNAME = ‘COUNTRYTO’. <br>
WA_FIELDCAT_LVC-REPTEXT = ‘COUNTRYTO’. <br>
APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC. <br>
CLEAR WA_FIELDCAT_LVC. <br>
WA_FIELDCAT_LVC-COL_POS = 6. <br>
WA_FIELDCAT_LVC-EDIT = ‘X’. <br>
WA_FIELDCAT_LVC-FIELDNAME = ‘CITYTO’. <br>
WA_FIELDCAT_LVC-REPTEXT = ‘CITYTO’. <br>
APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC. <br>
CLEAR WA_FIELDCAT_LVC. <br>
WA_FIELDCAT_LVC-COL_POS = 7. <br>
WA_FIELDCAT_LVC-FIELDNAME = ‘DISTANCE’. <br>
WA_FIELDCAT_LVC-REPTEXT = ‘DISTAN |
|