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

在dialog中创建Step-loops程序

Twilight发表于 2015-01-04 16:59小懒 最后回复于 2015-04-23 10:44 [复制链接] 3741 1

Step-loops是abap中非常古老的技术，自从Table control大量使用后Step-loops就急剧减少了，但是在某种场合中除了使用step-loops而别无选择，例如Radio Frequency。

Step-loops有两种类型
  • 固定Step-loops
    显示的条数固定
  • 可变Step-loops
    根据屏幕的大小，增加step-loops的条数

1、新建标准screen 100，并定义ok_code
se51  格式布局屏幕样式
Step-loops 1.jpg
Column_1/Column_2
Step-loops 2.jpg
WA-COL1/WA-COL2
Step-loops 3.jpg
一起选中两列的input/output框，然后Edit -> Grouping -> Step Loop -> Define
Step-loops 4.jpg
调整step-loops显示的条数
Step-loops 5.jpg
RLMOB-PPGUP/RLMOB-PPGDN
程序流：
  1. PROCESS BEFORE OUTPUT.
  2.   MODULE status_0100.
  3.   MODULE pgup_down.
  4.   LOOP AT itab INTO wa CURSOR c FROM n1 TO n2.
  5.     MODULE transp_itab_out.
  6.   ENDLOOP.

  8. PROCESS AFTER INPUT.
  9.   MODULE cancel AT EXIT-COMMAND.
  10.   LOOP.
  11.     MODULE transp_itab_in.
  12.   ENDLOOP.
  13.   MODULE user_command_0100.
复制代码

2、新建程序se38
  1. * Number of records to be displayed
  2. PARAMETERS : p_num TYPE i.
  3. * Types to declare the internal table for records
  4. TYPES: BEGIN OF t_itab,
  5.          col1 TYPE i,
  6.          col2 TYPE i,
  7.        END OF t_itab.
  8. * Internal table for the records
  9. DATA: itab TYPE STANDARD TABLE OF t_itab,
  10. * Work area for the records
  11.       wa   LIKE LINE OF itab.
  12. DATA:
  13. * Index of the row of step-loop
  14.       idx   TYPE i,
  15. * Current Line to be displayed
  16.       line  TYPE i,
  17. * Total Rows of step-loop to be displayed on single page
  18.       lines TYPE i,
  19. * Final Limit of step loop rows that can be displayed
  20.       limit TYPE i,
  21. * Cursor position
  22.       c     TYPE i,
  23. * Lower limit of the record index to be displayed on a page
  24.       n1    TYPE i VALUE 1,
  25. * Upper limit of the record index to be displayed on a page
  26.       n2    TYPE i,
  27. * Variable to handle next page navigation
  28.       y_v_next           TYPE    i,
  29. * Variable to handle previous page navigation
  30.       y_v_prev           TYPE    i,
  31.       y_v_limit TYPE i.
  32. DATA:  ok_code TYPE sy-ucomm,
  33.        save_ok TYPE sy-ucomm.

  35. START-OF-SELECTION.
  36. * Building the records to be displayed as per the selection screen entry
  37.   DO p_num TIMES.
  38.     wa-col1 = sy-index.
  39.     wa-col2 = sy-index ** 2.
  40.     APPEND wa TO itab.
  41.   ENDDO.
  42.   IF p_num < 0.
  43.     n2 = p_num.
  44.   ELSE.
  45.     n2 = 5.
  46.   ENDIF.
  47.   CALL SCREEN 100.
  48. *----------------------------------------------------------------------*
  49. *  MODULE status_0100 OUTPUT
  50. *----------------------------------------------------------------------*
  51. *
  52. *----------------------------------------------------------------------*
  53. MODULE status_0100 OUTPUT.
  54.   SET PF-STATUS 'STATUS_100'.
  55. ENDMODULE.                    "status_0100 OUTPUT
  56. *----------------------------------------------------------------------*
  57. *  MODULE transp_itab_out OUTPUT
  58. *----------------------------------------------------------------------*
  59. *
  60. *----------------------------------------------------------------------*
  61. MODULE transp_itab_out OUTPUT.
  62.   idx = sy-stepl + line.
  63.   READ TABLE itab INTO wa INDEX idx.
  64. ENDMODULE.                    "transp_itab_out OUTPUT
  65. *----------------------------------------------------------------------*
  66. *  MODULE transp_itab_in INPUT
  67. *----------------------------------------------------------------------*
  68. *
  69. *----------------------------------------------------------------------*
  70. MODULE transp_itab_in INPUT.
  71.   lines = sy-loopc.
  72.   idx = sy-stepl + line.
  73.   MODIFY itab FROM wa INDEX idx.
  74. ENDMODULE.                    "transp_itab_in INPUT
  75. *----------------------------------------------------------------------*
  76. *  MODULE user_command_0100 INPUT
  77. *----------------------------------------------------------------------*
  78. *
  79. *----------------------------------------------------------------------*
  80. MODULE user_command_0100 INPUT.
  81.   DATA : y_v_index TYPE sy-index.
  82.   DATA : y_lv_d   TYPE f,
  83.          y_lv_div TYPE i,
  84.          y_curr_p_num TYPE i.
  85.   save_ok = ok_code.
  86.   CLEAR ok_code.
  87.   CASE save_ok.
  88.     WHEN 'BACK'.
  89.       LEAVE TO SCREEN 0.
  90. * When Page Down is Hit
  91.     WHEN 'PGDN'.
  92. * Number of screens required for output if 5 records per screen
  93.       y_lv_d = p_num / 5.
  94.       y_lv_div = CEIL( y_lv_d ).
  95.       y_curr_p_num = y_lv_div * 5.
  96.       y_v_index = y_v_next + 1.
  97.       IF y_v_next < y_lv_div.
  98.         y_v_next = y_v_next + 1.
  99.       ELSE.
  100.         y_v_next = y_lv_div.
  101.       ENDIF.
  102.       y_v_prev = y_v_next.
  103.       IF y_v_next <> y_lv_div.
  104.         n2 = p_num - 5 *  y_v_next.
  105.         IF n2 > 5.
  106.           n2 = 5 * y_v_next.
  107.         ENDIF.
  108.         n1 = 1.
  109.         line = line + lines.
  110.         limit = y_curr_p_num - lines.
  111.         IF line > limit.
  112.           line = limit.
  113.         ENDIF.
  114.       ELSE.
  115.         y_v_next = y_v_next - 1.
  116.       ENDIF.
  117. * When Page Up is Hit
  118.     WHEN 'PGUP'.
  119.       n2 = 5 * y_v_next.
  120.       IF n1 < 0.
  121.         n1 = 1.
  122.       ENDIF.
  123.       IF y_v_next > 0.
  124.         y_v_next = y_v_next - 1.
  125.       ELSE.
  126.         y_v_next = 0.
  127.       ENDIF.
  128.       y_v_prev = y_v_next.
  129.       IF line NE 0 AND y_curr_p_num GT 5.
  130.         line = y_v_next * 5.
  131.       ELSE.
  132.         line = 0.
  133.         y_v_index = y_v_next - 1.
  134.       ENDIF.
  135.       IF line < 0.
  136.         line = 0.
  137.       ENDIF.

  139.   ENDCASE.
  140. ENDMODULE.                    "user_command_0100 INPUT
  141. *----------------------------------------------------------------------*
  142. *  MODULE cancel INPUT
  143. *----------------------------------------------------------------------*
  144. *
  145. *----------------------------------------------------------------------*
  146. MODULE cancel INPUT.
  147.   LEAVE PROGRAM.
  148. ENDMODULE.                    "cancel INPUT
  149. *&---------------------------------------------------------------------*
  150. *&      Module  PGUP_DOWN  OUTPUT
  151. *&---------------------------------------------------------------------*
  152. *       text
  153. *----------------------------------------------------------------------*
  154. MODULE pgup_down OUTPUT.
  155.   DATA : y_v_div TYPE i,
  156.          y_v_d TYPE f,
  157.          y_v_temp TYPE i.

  159.   DESCRIBE TABLE itab[] LINES p_num.
  160.   y_v_d = p_num / 5.
  161.   y_v_limit = CEIL( y_v_d ).
  162.   y_v_temp = y_v_limit - 1.
  163.   IF p_num LE 5.
  164.     PERFORM y_f_hide_field USING 'RLMOB-PPGDN'.
  165.     PERFORM y_f_hide_field USING 'RLMOB-PPGUP'.
  166.   ELSEIF y_v_next  = y_v_limit .
  167.     PERFORM y_f_hide_field USING 'RLMOB-PPGDN'.
  168.     PERFORM y_f_show_field USING 'RLMOB-PPGUP'.
  169.   ELSEIF y_v_prev IS INITIAL.
  170.     PERFORM y_f_hide_field USING 'RLMOB-PPGUP'.
  171.   ELSEIF y_v_next GT y_v_limit.
  172.     PERFORM y_f_hide_field USING 'RLMOB-PPGDN'.
  173.   ELSEIF y_v_temp = y_v_next.
  174.     PERFORM y_f_hide_field USING 'RLMOB-PPGDN'.
  175.   ENDIF.
  176. ENDMODULE.                 " PGUP_DOWN  OUTPUT
  177. *&---------------------------------------------------------------------*
  178. *&      Form  Y_F_HIDE_FIELD
  179. *&---------------------------------------------------------------------*
  180. *       text
  181. *----------------------------------------------------------------------*
  182. *      -->P_0372   text
  183. *----------------------------------------------------------------------*
  184. FORM y_f_hide_field  USING    value(p_name).
  185.   LOOP AT SCREEN.
  186.     IF screen-name = p_name.
  187.       screen-active    = '0'.
  188.       screen-invisible = '1'.
  189.       MODIFY SCREEN.
  190.       EXIT.
  191.     ENDIF.
  192.   ENDLOOP.
  193. ENDFORM.                    " Y_F_HIDE_FIELD
  194. *&---------------------------------------------------------------------*
  195. *&      Form  Y_F_SHOW_FIELD
  196. *&---------------------------------------------------------------------*
  197. *       text
  198. *----------------------------------------------------------------------*
  199. *      -->P_0388   text
  200. *----------------------------------------------------------------------*
  201. FORM y_f_show_field  USING    value(p_name).
  202.   LOOP AT SCREEN.
  203.     IF screen-name = p_name.
  204.       screen-active = '1'.
  205.       MODIFY SCREEN.
  206.       EXIT.
  207.     ENDIF.
  208.   ENDLOOP.
  209. ENDFORM.                    " Y_F_SHOW_FIELD
复制代码

3、GUI状态
Step-loops 6.jpg
4、程序执行效果
Step-loops 7.jpg
输入总共的数据条数
Step-loops 8.jpg
Step-loops 9.jpg
Step-loops 10.jpg
Step-loops, control, screen, dialog

相关帖子
回复

使用道具 举报

小懒
Radio Frequency是什么？
回复 支持 反对

使用道具 举报

Twilight

管理员

+发表新主题
  1. 840 主题
  2. 965 帖子
  3. 10805 积分
收听TA 发消息

Ta最近发表

快速回帖

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

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

GMT+8, 2024-4-26 20:05 , Processed in 0.051592 second(s), 9 queries , Gzip On, Redis On.

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

平台客服 1204767879 无客服码

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