ABAP range创建

DATA:gv_bwart1  TYPE string VALUE '201/202/543/544/551/552/Z03/Z04/Z05/Z06/Z11/Z12/Z15/Z16/',
     gv_bwart2  TYPE string VALUE '311/312/301/302/', "库存地点、生产领料
     gv_bwart3  TYPE string VALUE '201/202/551/552/Z03/Z04/Z11/Z12/Z15/Z16', "成本中心
     gv_bwart4  TYPE string VALUE '543/544/', "供应商、委外消耗
     gv_bwart5  TYPE string VALUE 'Z05/Z06/', "内部订单、研发领料
     gv_bwart6  TYPE string VALUE '201/202/', "部门消耗
     gv_bwart7  TYPE string VALUE '551/552/', "库存报废
     gv_bwart8  TYPE string VALUE 'Z03/Z04/', "机台领料
     gv_bwart9  TYPE string VALUE 'Z11/Z12/', "试模领料
     gv_bwart10 TYPE string VALUE 'Z15/Z16/'. "模具报废

RANGES:gr_bwart1  FOR mseg-bwart,"'201/202/543/544/551/552/Z03/Z04/Z05/Z06/Z11/Z12/Z15/Z16',
       gr_bwart2  FOR mseg-bwart,"'311/312/301/302/', "库存地点、生产领料
       gr_bwart3  FOR mseg-bwart,"'201/202/551/552/Z03/Z04/Z11/Z12/Z15/Z16/', "成本中心
       gr_bwart4  FOR mseg-bwart,"'543/544/', "供应商、委外消耗
       gr_bwart5  FOR mseg-bwart,"'Z05/Z06/', "内部订单、研发领料
       gr_bwart6  FOR mseg-bwart,"'201/202/', "部门消耗
       gr_bwart7  FOR mseg-bwart,"'551/552/', "库存报废
       gr_bwart8  FOR mseg-bwart,"'Z03/Z04/', "机台领料
       gr_bwart9  FOR mseg-bwart,"'Z11/Z12/'. "试模领料
       gr_bwart10 FOR mseg-bwart,"'Z15/Z16/'. "模具报废
       gr_lgort FOR mseg-lgort.
在SAP中,有时候需要把单值的结构变成区间的结构,也就是类似SELECTION-OPTION的功能,SAP提供了RANGES来实现该功能.

(SAP 中SELECTION-OPTION 是个很强大的功能,在程序中也经常需要类似SELECTION-OPTION的功能,如果不画屏幕的话,SAP提供了RANGE来实现该功能)

实例如下:


DATA: table_t LIKE TABLE OF spfli,
      table_wa LIKE  spfli.
RANGES:g_ranges FOR spfli-carrid.

*"单值
*CLEAR G_ranges[].
*G_ranges-sign = 'I'.
*G_ranges-option = 'EQ'.
*G_ranges-low = 'AA'.
*APPEND G_ranges.

"区间
CLEAR g_ranges[].
g_ranges-sign = 'I'.
g_ranges-option = 'BT'.
g_ranges-low = 'AA'.
g_ranges-high = 'HH'.
APPEND g_ranges.

SELECT  * FROM spfli  INTO TABLE table_t WHERE carrid IN g_ranges.
LOOP AT table_t INTO table_wa.
  WRITE :  / table_wa-carrid,table_wa-connid,table_wa-cityto.
ENDLOOP.

此时G_ranges就相当于SELECTION-OPTION定义的类型。
*选项介绍:
*1.SIGN  值为 I 和 E 。 I是包含, E是排除, 一般使用I。
*2.OPTION 如果HIGH 为空 ,为单值选择 。有 EQ、NE、GT、LE、LT等逻辑操作  对于*的  CP包含  NP是排除
*                  如果HIGH 不为空 为区间选择 有BT,NB可选
*3.LOW     低值
*4.HIGH    高值

image.png

image.png
获取范围例子

FORM frm_get_ranges .
  DATA:iv_conkey TYPE ze_conkey.  
[图片上传中...(image.png-a32e52-1553579561580-0)]

  RANGES:lr_conkey FOR zxx_enm_config-conkey1.

  REFRESH:gr_lgort.
  gr_lgort-sign   = 'I'.
  gr_lgort-option = 'CP'.
  gr_lgort-low    = '6*'.
  APPEND gr_lgort.
  CLEAR:gr_lgort.

  "1、201/202/543/544/551/552/Z03/Z04/Z05/Z06/Z11/Z12/Z15/Z16/
  CLEAR:iv_conkey.
  REFRESH:lr_conkey,gr_bwart1.
  iv_conkey = gv_bwart1.
  CALL FUNCTION 'Z_SPLIT_CHAR_TAB'
    EXPORTING
      iv_conkey = iv_conkey
    TABLES
      gr_conkey = lr_conkey.
  gr_bwart1[] = lr_conkey[].

  "2、311/312/301/302/
  CLEAR:iv_conkey.
  REFRESH:lr_conkey,gr_bwart2.
  iv_conkey = gv_bwart2.
  CALL FUNCTION 'Z_SPLIT_CHAR_TAB'
    EXPORTING
      iv_conkey = iv_conkey
    TABLES
      gr_conkey = lr_conkey.
  gr_bwart2[] = lr_conkey[].

  "3、201/202/551/552/Z03/Z04/Z11/Z12/
  CLEAR:iv_conkey.
  REFRESH:lr_conkey,gr_bwart3.
  iv_conkey = gv_bwart3.
  CALL FUNCTION 'Z_SPLIT_CHAR_TAB'
    EXPORTING
      iv_conkey = iv_conkey
    TABLES
      gr_conkey = lr_conkey.
  gr_bwart3[] = lr_conkey[].

  "4、543/544/
  CLEAR:iv_conkey.
  REFRESH:lr_conkey,gr_bwart4.
  iv_conkey = gv_bwart4.
  CALL FUNCTION 'Z_SPLIT_CHAR_TAB'
    EXPORTING
      iv_conkey = iv_conkey
    TABLES
      gr_conkey = lr_conkey.
  gr_bwart4[] = lr_conkey[].

  "5、Z05/Z06/
  CLEAR:iv_conkey.
  REFRESH:lr_conkey,gr_bwart5.
  iv_conkey = gv_bwart5.
  CALL FUNCTION 'Z_SPLIT_CHAR_TAB'
    EXPORTING
      iv_conkey = iv_conkey
    TABLES
      gr_conkey = lr_conkey.
  gr_bwart5[] = lr_conkey[].

  "6、201/202/
  CLEAR:iv_conkey.
  REFRESH:lr_conkey,gr_bwart6.
  iv_conkey = gv_bwart6.
  CALL FUNCTION 'Z_SPLIT_CHAR_TAB'
    EXPORTING
      iv_conkey = iv_conkey
    TABLES
      gr_conkey = lr_conkey.
  gr_bwart6[] = lr_conkey[].

  "7、551/552/
  CLEAR:iv_conkey.
  REFRESH:lr_conkey,gr_bwart7.
  iv_conkey = gv_bwart7.
  CALL FUNCTION 'Z_SPLIT_CHAR_TAB'
    EXPORTING
      iv_conkey = iv_conkey
    TABLES
      gr_conkey = lr_conkey.
  gr_bwart7[] = lr_conkey[].

  "8、Z03/Z04/
  CLEAR:iv_conkey.
  REFRESH:lr_conkey,gr_bwart8.
  iv_conkey = gv_bwart9.
  CALL FUNCTION 'Z_SPLIT_CHAR_TAB'
    EXPORTING
      iv_conkey = iv_conkey
    TABLES
      gr_conkey = lr_conkey.
  gr_bwart8[] = lr_conkey[].

  "9、Z11/Z12/
  CLEAR:iv_conkey.
  REFRESH:lr_conkey,gr_bwart9.
  iv_conkey = gv_bwart9.
  CALL FUNCTION 'Z_SPLIT_CHAR_TAB'
    EXPORTING
      iv_conkey = iv_conkey
    TABLES
      gr_conkey = lr_conkey.
  gr_bwart9[] = lr_conkey[].

  "10、Z15/Z16/
  CLEAR:iv_conkey.
  REFRESH:lr_conkey,gr_bwart10.
  iv_conkey = gv_bwart10.
  CALL FUNCTION 'Z_SPLIT_CHAR_TAB'
    EXPORTING
      iv_conkey = iv_conkey
    TABLES
      gr_conkey = lr_conkey.
  gr_bwart10[] = lr_conkey[].
ENDFORM.



最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 217,657评论 6 505
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 92,889评论 3 394
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 164,057评论 0 354
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 58,509评论 1 293
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 67,562评论 6 392
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 51,443评论 1 302
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 40,251评论 3 418
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 39,129评论 0 276
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 45,561评论 1 314
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 37,779评论 3 335
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 39,902评论 1 348
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 35,621评论 5 345
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 41,220评论 3 328
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 31,838评论 0 22
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 32,971评论 1 269
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 48,025评论 2 370
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 44,843评论 2 354

推荐阅读更多精彩内容