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

在Module Pool类型程序中定义range范围

Twilight发表于 2014-10-11 09:16Twilight 最后回复于 2014-10-11 09:16 [复制链接] 3130 0

range table有四个字段，分别是Sign  Option  Low  High，下面将详细讲解在Module Pool类型程序中定义一个range
1、se38 创建一个Module pool (M type)程序，保存
Range in Module Pool 1.png
2、se51 为这个程序创建一个9000屏幕
Range in Module Pool 2.png
Range in Module Pool 3.png
3、点击layout，在屏幕上画one text field, two input/output field and background box
Range in Module Pool 4.png
输入框分别命名MLOW和MHIGH
4、se11 为这两个输入框定义一个search help
Range in Module Pool 5.png
Range in Module Pool 6.png
5、将search help填写到相应的屏幕属性上（mlow和mhigh都填写）
Range in Module Pool 7.png
6、放开逻辑流中的module User_command_9000
7、se93 为程序定义一个T-code
Range in Module Pool 8.png
Range in Module Pool 9.png
Range in Module Pool 10.png
8、程序代码：
  1. TYPE-POOLS:SLIS.
  2. TABLES : MARA .
  3. DATA :MLOW(18),MHIGH(18).
  4. DATA :MLOW1(18),MHIGH1(18).
  5. DATA: BEGIN OF T_MARA OCCURS 1,
  6.         MATNR TYPE MARA-MATNR,
  7.         ERSDA TYPE MARA-ERSDA,
  8.         ERNAM TYPE MARA-ERNAM,
  9.         PSTAT TYPE MARA-PSTAT,
  10.         MBRSH TYPE MARA-MBRSH,
  11.       END OF T_MARA.
  12. DATA : BEGIN OF RANGE OCCURS 0 ,
  13.        SIGN(1),
  14.        OPTION(2),
  15.        LOW(18),
  16.        HIGH(18),
  17.        END OF RANGE .
  18. DATA : T_FCAT TYPE TABLE OF SLIS_FIELDCAT_ALV ,
  19.        W_FCAT TYPE SLIS_FIELDCAT_ALV ,
  20.        W_LAYO TYPE SLIS_LAYOUT_ALV .
  21. *&---------------------------------------------------------------------*
  22. *&      Module  USER_COMMAND_9000  INPUT
  23. *&---------------------------------------------------------------------*
  24. *       text
  25. *----------------------------------------------------------------------*
  26. MODULE USER_COMMAND_9000 INPUT.
  27.   CASE SY-UCOMM.
  28.     WHEN ''."FC-CODE OF ENTER BUTTON
  29.       CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT' "CONVERSION ROUTINE FOR MLOW
  30.         EXPORTING
  31.           INPUT              = MLOW
  32.        IMPORTING
  33.          OUTPUT             = MLOW1
  34.        EXCEPTIONS
  35.          LENGTH_ERROR       = 1
  36.          OTHERS             = 2
  37.                 .
  38.       IF SY-SUBRC <> 0.
  39.         MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  40.                 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  41.       ENDIF.
  42.       CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'"CONVERSION ROUTINE FOR MHIGH
  43.         EXPORTING
  44.           INPUT              = MHIGH
  45.        IMPORTING
  46.          OUTPUT             = MHIGH1
  47.        EXCEPTIONS
  48.          LENGTH_ERROR       = 1
  49.          OTHERS             = 2
  50.                 .
  51.       IF SY-SUBRC <> 0.
  52.         MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  53.                 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  54.       ENDIF.
  55. ******************************************************************
  56. * LOGICALLY BUILD A INTERNAL TABLE (RANGE)
  57. ******************************************************************
  58.       RANGE-SIGN = 'I'. " I OR E
  59.       RANGE-OPTION = 'BT'.
  60.       RANGE-LOW = MLOW1 .
  61.       RANGE-HIGH = MHIGH1 .
  62.       APPEND RANGE ."APPEND DATA IN INTERNAL TABLE
  63. ******************************************************************
  64.       PERFORM FETCH_DATA .
  65.       PERFORM DISPLAY_DATA .
  66.   ENDCASE.
  67. ENDMODULE.                 " USER_COMMAND_9000  INPUT
  68. *&---------------------------------------------------------------------*
  69. *&      Form  FETCH_DATA
  70. *&---------------------------------------------------------------------*
  71. *       text
  72. *----------------------------------------------------------------------*
  73. *  -->  p1        text
  74. *  <--  p2        text
  75. *----------------------------------------------------------------------*
  76. FORM FETCH_DATA .
  77.           SELECT  MATNR
  78.                   ERNAM
  79.                   ERSDA
  80.                   PSTAT
  81.                   MBRSH
  82.                   FROM MARA
  83.                   INTO CORRESPONDING FIELDS OF TABLE T_MARA
  84.                   WHERE MATNR IN RANGE .

  86. ENDFORM.                    " FETCH_DATA
  87. *&---------------------------------------------------------------------*
  88. *&      Form  DISPLAY_DATA
  89. *&---------------------------------------------------------------------*
  90. *       text
  91. *----------------------------------------------------------------------*
  92. *  -->  p1        text
  93. *  <--  p2        text
  94. *----------------------------------------------------------------------*
  95. FORM DISPLAY_DATA .
  96.   LEAVE TO LIST-PROCESSING .
  97.   W_FCAT-TABNAME = 'MARA'.
  98.   W_FCAT-FIELDNAME = 'MATNR'.
  99.   W_FCAT-SELTEXT_M = 'Material No'.
  100.   APPEND w_fcat to t_Fcat .
  101.     W_FCAT-TABNAME = 'MARA'.
  102.   W_FCAT-FIELDNAME = 'ERSDA'.
  103.   W_FCAT-SELTEXT_M = 'Created On'.
  104.   APPEND w_fcat to t_Fcat .
  105.     W_FCAT-TABNAME = 'MARA'.
  106.   W_FCAT-FIELDNAME = 'ERNAM'.
  107.   W_FCAT-SELTEXT_M = 'Name of Person'.
  108.   APPEND w_fcat to t_Fcat .
  109.     W_FCAT-TABNAME = 'MARA'.
  110.   W_FCAT-FIELDNAME = 'PSTAT'.
  111.   W_FCAT-SELTEXT_M = 'Maintenance status'.
  112.   APPEND w_fcat to t_Fcat .
  113.     W_FCAT-TABNAME = 'MARA'.
  114.   W_FCAT-FIELDNAME = 'MBRSH'.
  115.   W_FCAT-SELTEXT_M = 'Industry sector'.
  116.   APPEND w_fcat to T_FCAT.
  117.   W_LAYO-ZEBRA = 'X'.
  118.   W_LAYO-COLWIDTH_OPTIMIZE = 'X'.
  119.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  120.    EXPORTING
  121. *   I_INTERFACE_CHECK                 = ' '
  122. *   I_BYPASSING_BUFFER                = ' '
  123. *   I_BUFFER_ACTIVE                   = ' '
  124. *   I_CALLBACK_PROGRAM                = ' '
  125. *   I_CALLBACK_PF_STATUS_SET          = ' '
  126. *   I_CALLBACK_USER_COMMAND           = ' '
  127. *   I_CALLBACK_TOP_OF_PAGE            = ' '
  128. *   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
  129. *   I_CALLBACK_HTML_END_OF_LIST       = ' '
  130. *     I_STRUCTURE_NAME             = 'MARA'
  131. *   I_BACKGROUND_ID                   = ' '
  132.      I_GRID_TITLE                      ='MATERIAL REPORT'
  133. *   I_GRID_SETTINGS                   =
  134.    IS_LAYOUT                         = W_LAYO
  135.    IT_FIELDCAT                       = T_FCAT
  136. *   IT_EXCLUDING                      =
  137. *   IT_SPECIAL_GROUPS                 =
  138. *   IT_SORT                           =
  139. *   IT_FILTER                         =
  140. *   IS_SEL_HIDE                       =
  141. *   I_DEFAULT                         = 'X'
  142. *   I_SAVE                            = ' '
  143. *   IS_VARIANT                        =
  144. *   IT_EVENTS                         =
  145. *   IT_EVENT_EXIT                     =
  146. *   IS_PRINT                          =
  147. *   IS_REPREP_ID                      =
  148. *   I_SCREEN_START_COLUMN             = 0
  149. *   I_SCREEN_START_LINE               = 0
  150. *   I_SCREEN_END_COLUMN               = 0
  151. *   I_SCREEN_END_LINE                 = 0
  152. *   I_HTML_HEIGHT_TOP                 = 0
  153. *   I_HTML_HEIGHT_END                 = 0
  154. *   IT_ALV_GRAPHICS                   =
  155. *   IT_HYPERLINK                      =
  156. *   IT_ADD_FIELDCAT                   =
  157. *   IT_EXCEPT_QINFO                   =
  158. *   IR_SALV_FULLSCREEN_ADAPTER        =
  159. * IMPORTING
  160. *   E_EXIT_CAUSED_BY_CALLER           =
  161. *   ES_EXIT_CAUSED_BY_USER            =
  162.     TABLES
  163.       T_OUTTAB                          = T_MARA[]
  164. * EXCEPTIONS
  165. *   PROGRAM_ERROR                     = 1
  166. *   OTHERS                            = 2
  167.             .
  168.   IF SY-SUBRC <> 0.
  169. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  170. *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  171.   ENDIF.
  172. ENDFORM.                    " DISPLAY_DATA
复制代码

9、执行程序，查看效果
Range in Module Pool 11.png
输入条件enter回车
Range in Module Pool 12.png
range, 范围, search help

相关帖子
回复

使用道具 举报

Twilight

管理员

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

Ta最近发表

快速回帖

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

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

GMT+8, 2024-4-28 01:50 , Processed in 0.045584 second(s), 10 queries , Gzip On, Redis On.

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

平台客服 1204767879 无客服码

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