设为首页收藏本站站点任务
请登陆 注册有礼
二维码
网站快捷导航

[fmalv] 航班信息记录查询报表，alv综合运用

Twilight发表于 2014-02-04 15:02Twilight 最后回复于 2014-02-04 15:02 [复制链接] 4670 0

ALV实现的功能：
1、页头和页脚
2、排序和小计
3、筛选功能
4、行颜色、列颜色和单元格颜色的控制
5、F1和F4帮助
6、能修改数据
7、自定义四个按钮：全选 、全不选、插入一条新数据 、选中某行，点击按钮修改数据

执行效果：
sflight_all.jpg

主程序代码：
  1. TYPE-POOLS:SLIS,ICON.
  2. TYPES: BEGIN OF TY_SPFLI,
  3.        BOX(1),
  4.        COLOR_CELL TYPE LVC_T_SCOL, "该类型可以从se11数据字典结构查看
  5.        ICON(10), "LED
  6.        EXP(1),   "RED GREEN YELLOW
  7.        COLOR(4),
  8.        INTERNATION(1) TYPE C.
  9.         INCLUDE TYPE SPFLI.
  10. TYPES END OF TY_SPFLI.


  13. DATA IT_SPFLI TYPE STANDARD TABLE OF TY_SPFLI.
  14. DATA WA_SPFLI TYPE TY_SPFLI.
  15. DATA IT_FIELDCAT_LVC TYPE LVC_T_FCAT.
  16. DATA WA_FIELDCAT_LVC TYPE LINE OF LVC_T_FCAT.
  17. DATA IS_LAYOUT_LVC TYPE LVC_S_LAYO.
  18. DATA IT_SORT_LVC TYPE LVC_T_SORT.
  19. DATA WA_SORT_LVC TYPE LVC_S_SORT.
  20. DATA IT_EVENTS  TYPE SLIS_T_EVENT.
  21. DATA WA_EVENTS  LIKE LINE OF IT_EVENTS.
  22. DATA IT_FILTER_LVC  TYPE LVC_T_FILT.
  23. DATA WA_FILTER_LVC  TYPE LVC_S_FILT.

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

  28. START-OF-SELECTION.
  29.   PERFORM GET_DATA.
  30.   PERFORM FIELDCAT_LVC.
  31.   PERFORM LAYOUT_LVC.
  32.   PERFORM SORT_LVC.
  33.   PERFORM EVENTS_LVC.
  34.   PERFORM FILTER_LVC.
  35.   PERFORM ALV_DISPLAY_LVC.

  37. END-OF-SELECTION.


  40. *&---------------------------------------------------------------------*
  41. *&      Form  GET_DATA
  42. *&---------------------------------------------------------------------*
  43. *       text
  44. *----------------------------------------------------------------------*
  45. FORM GET_DATA .
  46.   DATA LS_COLOR TYPE LVC_S_SCOL.
  47.   SELECT *
  48.     FROM SPFLI
  49.     INTO CORRESPONDING FIELDS OF TABLE IT_SPFLI.
  50.   LOOP AT IT_SPFLI INTO WA_SPFLI.
  51.     IF WA_SPFLI-COUNTRYFR EQ WA_SPFLI-COUNTRYTO.
  52.       WA_SPFLI-INTERNATION = ''.
  53. *          WA_SPFLI-COLOR = 'C501'.
  54.       WA_SPFLI-EXP = 1.
  55.       WA_SPFLI-ICON = ICON_LED_GREEN.
  56.       CLEAR LS_COLOR.
  57.       LS_COLOR-FNAME = 'INTERNATION'.
  58.       LS_COLOR-COLOR-COL =  3.
  59.       LS_COLOR-COLOR-INT =  0.
  60.       LS_COLOR-COLOR-INV =  0.
  61.       APPEND LS_COLOR TO WA_SPFLI-COLOR_CELL.
  62.     ELSE.
  63.       WA_SPFLI-INTERNATION = 'X'.
  64. *            WA_SPFLI-COLOR = 'C701'.     "行的颜色会覆盖列的颜色
  65.       WA_SPFLI-EXP = 2.
  66.       WA_SPFLI-ICON = ICON_LED_RED.
  67.       CLEAR LS_COLOR.
  68.       LS_COLOR-FNAME = 'INTERNATION'.
  69.       LS_COLOR-COLOR-COL =  4.
  70.       LS_COLOR-COLOR-INT =  0.
  71.       LS_COLOR-COLOR-INV =  0.
  72.       APPEND LS_COLOR TO WA_SPFLI-COLOR_CELL.
  73.     ENDIF.
  74.     MODIFY IT_SPFLI FROM WA_SPFLI.
  75.   ENDLOOP.
  76. ENDFORM.                    " GET_DATA
  77. *&---------------------------------------------------------------------*
  78. *&      Form  FIELDCAT_LVC
  79. *&---------------------------------------------------------------------*
  80. *       text
  81. *----------------------------------------------------------------------*
  82. *  -->  p1        text
  83. *  <--  p2        text
  84. *----------------------------------------------------------------------*
  85. FORM FIELDCAT_LVC .
  86.   CLEAR WA_FIELDCAT_LVC.
  87.   WA_FIELDCAT_LVC-COL_POS = 1.
  88.   WA_FIELDCAT_LVC-KEY = 'X'.
  89.   WA_FIELDCAT_LVC-EDIT = 'X'.
  90.   WA_FIELDCAT_LVC-FIELDNAME = 'CARRID'.
  91.   WA_FIELDCAT_LVC-REPTEXT = 'Carrid'.
  92.   WA_FIELDCAT_LVC-REF_TABLE = 'SCARR'.
  93.   WA_FIELDCAT_LVC-REF_FIELD = 'CARRID'.
  94. *   WA_FIELDCAT_LVC-SCRTEXT_L = 'CARRid'.
  95.   WA_FIELDCAT_LVC-ROLLNAME = 'S_CARR_ID'. "注意：这里是DATA ELEMENT  F1帮助
  96.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  97.   CLEAR WA_FIELDCAT_LVC.
  98.   WA_FIELDCAT_LVC-COL_POS = 2.
  99.   WA_FIELDCAT_LVC-KEY = 'X'.
  100.   WA_FIELDCAT_LVC-EDIT = 'X'.
  101.   WA_FIELDCAT_LVC-FIELDNAME = 'CONNID'.
  102.   WA_FIELDCAT_LVC-REPTEXT = 'Connid'.
  103.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  104.   CLEAR WA_FIELDCAT_LVC.
  105.   WA_FIELDCAT_LVC-COL_POS = 3.
  106.   WA_FIELDCAT_LVC-EDIT = 'X'.
  107.   WA_FIELDCAT_LVC-FIELDNAME = 'COUNTRYFR'.
  108.   WA_FIELDCAT_LVC-REPTEXT = 'COUNTRYFR'.
  109.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  110.   CLEAR WA_FIELDCAT_LVC.
  111.   WA_FIELDCAT_LVC-COL_POS = 4.
  112.   WA_FIELDCAT_LVC-EDIT = 'X'.
  113.   WA_FIELDCAT_LVC-FIELDNAME = 'CITYFROM'.
  114.   WA_FIELDCAT_LVC-REPTEXT = 'CITYFROM'.
  115.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  116.   CLEAR WA_FIELDCAT_LVC.
  117.   WA_FIELDCAT_LVC-COL_POS = 5.
  118.   WA_FIELDCAT_LVC-EDIT = 'X'.
  119.   WA_FIELDCAT_LVC-FIELDNAME = 'COUNTRYTO'.
  120.   WA_FIELDCAT_LVC-REPTEXT = 'COUNTRYTO'.
  121.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  122.   CLEAR WA_FIELDCAT_LVC.
  123.   WA_FIELDCAT_LVC-COL_POS = 6.
  124.   WA_FIELDCAT_LVC-EDIT = 'X'.
  125.   WA_FIELDCAT_LVC-FIELDNAME = 'CITYTO'.
  126.   WA_FIELDCAT_LVC-REPTEXT = 'CITYTO'.
  127.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  128.   CLEAR WA_FIELDCAT_LVC.
  129.   WA_FIELDCAT_LVC-COL_POS = 7.
  130.   WA_FIELDCAT_LVC-FIELDNAME = 'DISTANCE'.
  131.   WA_FIELDCAT_LVC-REPTEXT = 'DISTANCE'.
  132.   WA_FIELDCAT_LVC-DO_SUM = 'X'.
  133.   WA_FIELDCAT_LVC-EMPHASIZE = 'C511'.
  134.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  135.   CLEAR WA_FIELDCAT_LVC.
  136.   WA_FIELDCAT_LVC-COL_POS = 8.
  137.   WA_FIELDCAT_LVC-FIELDNAME = 'DISTID'.
  138.   WA_FIELDCAT_LVC-REPTEXT = 'DISTID'.
  139.   WA_FIELDCAT_LVC-TOOLTIP = '提示'.
  140.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  141.   CLEAR WA_FIELDCAT_LVC.
  142.   WA_FIELDCAT_LVC-COL_POS = 9.
  143.   WA_FIELDCAT_LVC-FIELDNAME = 'INTERNATION'.
  144.   WA_FIELDCAT_LVC-REPTEXT = 'INTERNATION'.
  145.   WA_FIELDCAT_LVC-CHECKBOX = 'X'.
  146.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  147.   CLEAR WA_FIELDCAT_LVC.
  148.   WA_FIELDCAT_LVC-COL_POS = 10.
  149.   WA_FIELDCAT_LVC-FIELDNAME = 'ICON'.
  150.   WA_FIELDCAT_LVC-REPTEXT = 'LED'.
  151.   WA_FIELDCAT_LVC-ICON = 'X'.
  152.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  153. ENDFORM.                    " FIELDCAT_LVC
  154. *&---------------------------------------------------------------------*
  155. *&      Form  LAYOUT_LVC
  156. *&---------------------------------------------------------------------*
  157. *       text
  158. *----------------------------------------------------------------------*
  159. *  -->  p1        text
  160. *  <--  p2        text
  161. *----------------------------------------------------------------------*
  162. FORM LAYOUT_LVC .
  163.   CLEAR IS_LAYOUT_LVC.
  164.   IS_LAYOUT_LVC-ZEBRA = 'X'.
  165.   IS_LAYOUT_LVC-CWIDTH_OPT = 'X'.
  166.   IS_LAYOUT_LVC-INFO_FNAME = 'COLOR'. "指定赋予颜色的字段
  167.   IS_LAYOUT_LVC-EXCP_FNAME = 'EXP'.
  168.   IS_LAYOUT_LVC-CTAB_FNAME = 'COLOR_CELL'.
  169.   IS_LAYOUT_LVC-BOX_FNAME = 'BOX'.
  170. ENDFORM.                    " LAYOUT_LVC

  172. *&---------------------------------------------------------------------*
  173. *&      Form  STATUS_SET
  174. *&---------------------------------------------------------------------*
  175. *       text
  176. *----------------------------------------------------------------------*
  177. *      -->R_EXTAB    text
  178. *----------------------------------------------------------------------*
  179. FORM STATUS_SET USING R_EXTAB TYPE SLIS_T_EXTAB.
  180.   SET PF-STATUS 'STANDARD_FULLSCREEN' OF PROGRAM 'SAPLKKBL'.
  181. ENDFORM.                    "STATUS_SET

  183. *&---------------------------------------------------------------------*
  184. *&      Form  user_command
  185. *&---------------------------------------------------------------------*
  186. *       text
  187. *----------------------------------------------------------------------*
  188. *      -->R_UCOMM    text
  189. *      -->R_SELFIELD text
  190. *----------------------------------------------------------------------*
  191. FORM USER_COMMAND  USING R_UCOMM LIKE SY-UCOMM
  192.                                    R_SELFIELD TYPE SLIS_SELFIELD.
  193.   CASE R_UCOMM.
  194.     WHEN 'ADD'.
  195.       CLEAR WA_SPFLI.
  196.       APPEND WA_SPFLI TO IT_SPFLI.
  197.     WHEN 'MARK'.
  198.       LOOP AT IT_SPFLI INTO WA_SPFLI.
  199. *             CHECK WA_SPFLI-BOX = 'X'.
  200.         IF WA_SPFLI-BOX = 'X'.
  201.           WA_SPFLI-COLOR = 'C310'.
  202.         ELSE.
  203.           WA_SPFLI-COLOR = ''.
  204.         ENDIF.
  205.         MODIFY IT_SPFLI FROM WA_SPFLI.
  206.       ENDLOOP.
  207.     WHEN 'ALL'.
  208.       LOOP AT IT_SPFLI INTO WA_SPFLI.
  209.         WA_SPFLI-BOX = 'X'.
  210.         MODIFY IT_SPFLI FROM WA_SPFLI.
  211.       ENDLOOP.
  212.     WHEN 'DEALL'.
  213.       LOOP AT IT_SPFLI INTO WA_SPFLI.
  214.         IF WA_SPFLI-BOX = 'X'.
  215.           WA_SPFLI-BOX = ''.
  216.         ENDIF.
  217.         MODIFY IT_SPFLI FROM WA_SPFLI.
  218.       ENDLOOP.
  219.   ENDCASE.

  221.   R_SELFIELD-REFRESH = 'X'.
  222. ENDFORM.                    "user_command
  223. *&---------------------------------------------------------------------*
  224. *&      Form  SORT_LVC
  225. *&---------------------------------------------------------------------*
  226. *       text
  227. *----------------------------------------------------------------------*
  228. *  -->  p1        text
  229. *  <--  p2        text
  230. *----------------------------------------------------------------------*
  231. FORM SORT_LVC .
  232.   CLEAR WA_SORT_LVC.
  233.   WA_SORT_LVC-SPOS = 1.
  234.   WA_SORT_LVC-FIELDNAME = 'CARRID'.
  235.   WA_SORT_LVC-UP = 'X'.
  236.   WA_SORT_LVC-SUBTOT = 'X'.
  237.   APPEND WA_SORT_LVC TO IT_SORT_LVC.
  238.   CLEAR WA_SORT_LVC.
  239.   WA_SORT_LVC-SPOS = 2.
  240.   WA_SORT_LVC-FIELDNAME = 'CONNID'.
  241.   WA_SORT_LVC-UP = 'X'.
  242.   APPEND WA_SORT_LVC TO IT_SORT_LVC.
  243. ENDFORM.                    " SORT_LVC

  245. *&---------------------------------------------------------------------*
  246. *&      Form  TOP_OF_LIST
  247. *&---------------------------------------------------------------------*
  248. *       text
  249. *----------------------------------------------------------------------*
  250. FORM TOP_OF_PAGE.
  251.   DATA: LDF_TABLINE    TYPE I.  "存储内表行数

  253.   CLEAR: I_LIST_COMMENTS.
  254.   W_LIST_COMMENTS-TYP = 'H'.
  255.   W_LIST_COMMENTS-KEY = ''.
  256.   W_LIST_COMMENTS-INFO = '航班信息记录查询报表'.
  257.   APPEND W_LIST_COMMENTS TO I_LIST_COMMENTS.
  258.   CLEAR W_LIST_COMMENTS.

  260.   DATA: DATA_TEMP(14).
  261.   WRITE SY-DATUM TO: DATA_TEMP USING EDIT MASK '____年__月__日'.
  262.   CONCATENATE '日期: ' DATA_TEMP INTO DATA_TEMP.
  263.   W_LIST_COMMENTS-TYP = 'S'.
  264.   W_LIST_COMMENTS-KEY = ''.
  265.   W_LIST_COMMENTS-INFO = DATA_TEMP.
  266.   APPEND W_LIST_COMMENTS TO I_LIST_COMMENTS.
  267.   CLEAR W_LIST_COMMENTS.

  269.   DESCRIBE TABLE IT_SPFLI LINES LDF_TABLINE.
  270.   DATA:L_SUM_LINE(20) TYPE C .
  271.   L_SUM_LINE = LDF_TABLINE.
  272.   CONDENSE L_SUM_LINE NO-GAPS.
  273.   CONCATENATE '记录总数: ' L_SUM_LINE INTO L_SUM_LINE.
  274.   W_LIST_COMMENTS-TYP = 'S'.
  275.   W_LIST_COMMENTS-KEY = ''.
  276.   W_LIST_COMMENTS-INFO = L_SUM_LINE.
  277.   APPEND W_LIST_COMMENTS TO I_LIST_COMMENTS.
  278.   CLEAR W_LIST_COMMENTS.

  280.   CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'   "T-CODE : OAER    PARAMENTS: PICTURES OT
  281.     EXPORTING
  282.       IT_LIST_COMMENTARY       = I_LIST_COMMENTS
  283.       I_LOGO                   = 'SAP_LOGO'
  284.       I_END_OF_LIST_GRID       = 'X'
  285. *     I_ALV_FORM               =
  286.             .

  288. ENDFORM.                    "TOP_OF_PAGE
  289. *&---------------------------------------------------------------------*
  290. *&      Form  EVENTS_LVC
  291. *&---------------------------------------------------------------------*
  292. *       text
  293. *----------------------------------------------------------------------*
  294. *  -->  p1        text
  295. *  <--  p2        text
  296. *----------------------------------------------------------------------*
  297. FORM EVENTS_LVC .
  298.   CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
  299.     EXPORTING
  300.       I_LIST_TYPE           = 0
  301.     IMPORTING
  302.       ET_EVENTS             = IT_EVENTS
  303. * EXCEPTIONS
  304. *   LIST_TYPE_WRONG       = 1
  305. *   OTHERS                = 2
  306.             .
  307.   IF SY-SUBRC <> 0.
  308. * Implement suitable error handling here
  309.   ENDIF.

  311.   READ TABLE IT_EVENTS WITH KEY NAME = 'TOP_OF_PAGE' "1
  312.                       INTO WA_EVENTS.
  313.   IF SY-SUBRC = 0.
  314.     MOVE 'TOP_OF_PAGE' TO WA_EVENTS-FORM.            "2         注意1与2的name要相同
  315.     MODIFY IT_EVENTS FROM WA_EVENTS INDEX SY-TABIX.
  316.   ENDIF.

  318. *  READ TABLE IT_EVENTS INTO WA_EVENTS WITH KEY NAME = 'USER_COMMAND'.
  319. *  IF SY-SUBRC EQ 0.
  320. *    WA_EVENTS-NAME = 'USER_COMMAND'.
  321. *    MODIFY IT_EVENTS FROM WA_EVENTS INDEX SY-TABIX.
  322. *  ENDIF.


  325.   READ TABLE IT_EVENTS WITH KEY NAME = 'END_OF_LIST'"slis_ev_end_of_page
  326.                       INTO WA_EVENTS.
  327.   IF SY-SUBRC = 0.
  328.     MOVE 'END_OF_LIST' TO WA_EVENTS-FORM.
  329.     MODIFY IT_EVENTS FROM WA_EVENTS INDEX SY-TABIX.
  330.   ENDIF.
  331. ENDFORM.                    " EVENTS_LVC
  332. *&---------------------------------------------------------------------*
  333. *&      Form  END_OF_LIST
  334. *&---------------------------------------------------------------------*
  335. *       text
  336. *----------------------------------------------------------------------*
  337. FORM END_OF_LIST.
  338.   CLEAR: I_LIST_COMMENTS.
  339.   W_LIST_COMMENTS-TYP = 'S'.
  340.   W_LIST_COMMENTS-INFO = '确认: ______________ 采购申请分配员: ______________ '.
  341.   APPEND W_LIST_COMMENTS TO I_LIST_COMMENTS.
  342.   CLEAR W_LIST_COMMENTS.

  344.   W_LIST_COMMENTS-TYP = 'S'.
  345.   W_LIST_COMMENTS-INFO = '制表单位: IT部'.
  346.   APPEND W_LIST_COMMENTS TO I_LIST_COMMENTS.
  347.   CLEAR W_LIST_COMMENTS.

  349.   CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
  350.     EXPORTING
  351.       IT_LIST_COMMENTARY = I_LIST_COMMENTS
  352.       I_END_OF_LIST_GRID = 'X'.      "I_LOGO = 'ENJOYSAP_LOGO' "标题图标

  354. ENDFORM.                    "END_OF_LIST
  355. *&---------------------------------------------------------------------*
  356. *&      Form  ALV_DISPLAY_LVC
  357. *&---------------------------------------------------------------------*
  358. *       text
  359. *----------------------------------------------------------------------*
  360. *  -->  p1        text
  361. *  <--  p2        text
  362. *----------------------------------------------------------------------*
  363. FORM ALV_DISPLAY_LVC .
  364.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
  365.    EXPORTING
  366. *   I_INTERFACE_CHECK                 = ' '
  367. *   I_BYPASSING_BUFFER                =
  368. *   I_BUFFER_ACTIVE                   =
  369.       I_CALLBACK_PROGRAM                = SY-REPID
  370.       I_CALLBACK_PF_STATUS_SET          = 'STATUS_SET'
  371.       I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
  372. *    I_CALLBACK_TOP_OF_PAGE            = 'TOP_OF_PAGE'
  373. *   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
  374. *   I_CALLBACK_HTML_END_OF_LIST       = ' '
  375. *   I_STRUCTURE_NAME                  =
  376. *   I_BACKGROUND_ID                   = ' '
  377. *    I_GRID_TITLE                      = 'MY SPFLI'
  378. *   I_GRID_SETTINGS                   =
  379.       IS_LAYOUT_LVC                     = IS_LAYOUT_LVC
  380.       IT_FIELDCAT_LVC                   = IT_FIELDCAT_LVC
  381. *   IT_EXCLUDING                      =
  382. *   IT_SPECIAL_GROUPS_LVC             =
  383.     IT_SORT_LVC                       = IT_SORT_LVC
  384.     IT_FILTER_LVC                     = IT_FILTER_LVC
  385. *   IT_HYPERLINK                      =
  386. *   IS_SEL_HIDE                       =
  387. *   I_DEFAULT                         = 'X'
  388. *   I_SAVE                            = ' '
  389. *   IS_VARIANT                        =
  390.       IT_EVENTS                         = IT_EVENTS
  391. *   IT_EVENT_EXIT                     =
  392. *   IS_PRINT_LVC                      =
  393. *   IS_REPREP_ID_LVC                  =
  394. *   I_SCREEN_START_COLUMN             = 0
  395. *   I_SCREEN_START_LINE               = 0
  396. *   I_SCREEN_END_COLUMN               = 0
  397. *   I_SCREEN_END_LINE                 = 0
  398. *   I_HTML_HEIGHT_TOP                 =
  399. *   I_HTML_HEIGHT_END                 =
  400. *   IT_ALV_GRAPHICS                   =
  401. *   IT_EXCEPT_QINFO_LVC               =
  402. *   IR_SALV_FULLSCREEN_ADAPTER        =
  403. * IMPORTING
  404. *   E_EXIT_CAUSED_BY_CALLER           =
  405. *   ES_EXIT_CAUSED_BY_USER            =
  406.     TABLES
  407.       T_OUTTAB                          = IT_SPFLI
  408. * EXCEPTIONS
  409. *   PROGRAM_ERROR                     = 1
  410. *   OTHERS                            = 2
  411.             .
  412.   IF SY-SUBRC <> 0.
  413. * Implement suitable error handling here
  414.   ENDIF.
  415. *&---------------------------------------------------------------------*
  416. *&      Form  GET_DATA
  417. *&---------------------------------------------------------------------*
  418. *       text
  419. *----------------------------------------------------------------------*
  420. *  -->  p1        text
  421. *  <--  p2        text
  422. *----------------------------------------------------------------------*
  423. ENDFORM.                    " ALV_DISPLAY_LVC
  424. *&---------------------------------------------------------------------*
  425. *&      Form  FILTER_LVC
  426. *&---------------------------------------------------------------------*
  427. *       text
  428. *----------------------------------------------------------------------*
  429. *  -->  p1        text
  430. *  <--  p2        text
  431. *----------------------------------------------------------------------*
  432. FORM FILTER_LVC .
  433.   WA_FILTER_LVC-FIELDNAME = 'CONNID' .
  434.   WA_FILTER_LVC-SIGN = 'I' .   "EXCLUDE  INCLUDE
  435.   WA_FILTER_LVC-OPTION = 'BT' .
  436.   WA_FILTER_LVC-LOW = '0' .
  437.   WA_FILTER_LVC-HIGH = '900' .
  438.   APPEND WA_FILTER_LVC TO IT_FILTER_LVC .
  439. ENDFORM.                    " FILTER_LVC
复制代码
排序, alv, 颜色, 小计

相关帖子
回复

使用道具 举报

Twilight

管理员

+发表新主题
  1. 846 主题
  2. 125 回帖
  3. 11239 积分
发消息

Ta最近发表

快速回帖

本版积分规则
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册有礼

小黑屋|手机版|SAP顾问圈 ( 沪ICP备18020878号 )

GMT+8, 2024-11-21 18:41 , Processed in 0.061803 second(s), 7 queries , Gzip On, Redis On.

© 2014-2017 SAPclubDesign by Twilight.Liu®X3.5

平台客服 1204767879 无客服码

快速回复 返回顶部 返回列表