SAP ABAP分页功能通用代码

我们在SAP中开发使用Table control功能就能自动分页，但是我们在做接口时，就会遇到这样的需求：前端java或.net系统通过接口调用查询SAP中的数据，为了单次调用减轻宽带压力，所有要求没有调用接口查询时，只要传输单页数据，所以我们需要用到分页功能。

1. PERFORM frm_split_page TABLES et_item[]
   
2.                        USING page rows ep_head-re_count
   
3.                        CHANGING ep_head-status ep_head-message.
   
4. 
   
5. 
   
6. FORM frm_split_page TABLES p_table          "需要分页的table数据传入，form里处理好的分页数据也是通过这个参数传出（引用传递）
   
7.                      USING VALUE(p_page)    "mpos-页码
   
8.                            VALUE(p_rows)    "mpos-web每页显示的行数
   
9.                            VALUE(p_count)   "传入table的记录数
   
10.                      CHANGING p_status      "查询状态
    
11.                                p_message.   "返回消息
    
12. 
    
13.   DATA: lv_start TYPE int4.
    
14.   DATA: lv_end TYPE int4.
    
15.   DATA: lv_message TYPE char40.
    
16. *******由于table:p_table参数类型是不确定的，只用动态获取类型
    
17.   DATA: tr_table  TYPE REF TO cl_abap_tabledescr,
    
18.         tr_struct TYPE REF TO cl_abap_structdescr,
    
19.         tr_type   TYPE REF TO cl_abap_typedescr,
    
20.         fs_table  TYPE REF TO data,
    
21.         fs_struct TYPE REF TO data,
    
22.         td_comp   TYPE cl_abap_structdescr=>component_table.
    
23.   FIELD-SYMBOLS:
    
24.         <fs_table>  TYPE ANY TABLE,
    
25.         <fs_struct> TYPE any.
    
26.   tr_struct ?= cl_abap_structdescr=>describe_by_data( p_table ).
    
27.   td_comp = tr_struct->get_components( ).
    
28.   CALL METHOD cl_abap_structdescr=>create
    
29.     EXPORTING
    
30.       p_components = td_comp
    
31.     RECEIVING
    
32.       p_result     = tr_struct.
    
33.   CALL METHOD cl_abap_tabledescr=>create
    
34.     EXPORTING
    
35.       p_line_type = tr_struct
    
36.     RECEIVING
    
37.       p_result    = tr_table.
    
38. 
    
39.   CREATE DATA fs_table  TYPE HANDLE  tr_table.
    
40.   CREATE DATA fs_struct TYPE HANDLE  tr_struct.
    
41.   ASSIGN fs_table->* TO <fs_table>.
    
42.   ASSIGN fs_struct->* TO <fs_struct>.
    
43. *******由于table:p_table参数类型是不确定的，只用动态获取类型
    
44.   <fs_table> = p_table[].
    
45.   REFRESH p_table.
    
46.   lv_start = ( p_page - 1 ) * p_rows + 1.  "当前页开始记录数
    
47.   lv_end   = p_page * p_rows.          "当前页结束记录数
    
48.   IF p_count < lv_start.  "  如果sap查询到的记录数<当前页开始记录数
    
49.     p_status = 'False'.
    
50.     p_message = '没有符合条件的页码'.
    
51.   ELSE.
    
52.     LOOP AT <fs_table> ASSIGNING <fs_struct>.
    
53.       IF sy-tabix BETWEEN lv_start AND lv_end.
    
54.         APPEND <fs_struct> TO p_table.
    
55.       ENDIF.
    
56.     ENDLOOP.
    
57.   ENDIF.
    
58. ENDFORM.

复制代码

如果内表结果不确定，可通过上面代码实现，如果内表结构都是确定的，则直接通过下面的几句代码就可以实现：

游客，如果您要查看本帖隐藏内容请回复

正好项目上有这个需求，学习下

學習了，感謝分享

新人一枚 受教了

这个功能不错

请指教smartforms使用命令如何强制分页。

时光太浅 发表于 2016-7-29 17:08
请指教smartforms使用命令如何强制分页。

command命令 强制分页选中，然后就是逻辑判断，什么时候执行这个command，然后就冷分页了，关键点在于分页逻辑的判断

学习一下  谢谢分享

感谢分享 学习 学习

感谢分享，学习了。

學習了，感謝分享

学习下，感谢分享

支持楼主，支持SAP顾问圈，以后经常来！

好像没什么用~~~~~~~~~~~~

学习了，感谢分享

ABAP分页功能通用代码

这个是在程序中分好页，不是在smartform中分吧

学习记录！！！！！

学习了 谢谢

学习中