加载中…
个人资料
Lemon
Lemon
  • 博客等级:
  • 博客积分:0
  • 博客访问:204,979
  • 关注人气:38
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
相关博文
推荐博文
谁看过这篇博文
加载中…
正文 字体大小:

ABAP 根据公司代码取工厂

(2012-07-31 12:05:36)
标签:

abap

公司代码

工厂

杂谈

分类: Sap
 经常根据公司代码取工厂,留个代码以后需要时拷贝。

RANGES:s_werks  FOR t001w-werks.
DATA:lw_line LIKE LINE OF s_werks.
 DATA:BEGIN OF lt_bwkey OCCURS 0,
        bwkey TYPE t001k-bwkey,
       END OF lt_bwkey.
  DATA:BEGIN OF lt_werks OCCURS 0,
       werks TYPE t001w-werks,
       END OF lt_werks.

  REFRESH s_werks.

  "取评估类型
  SELECT bwkey
    FROM t001k
    INTO TABLE lt_bwkey
   WHERE bukrs p_bukrs.

  CHECK lt_bwkey[] IS NOT INITIAL.

  "根据评估类型取工厂
  SELECT werks
    FROM t001w
    INTO TABLE lt_werks
   WHERE bwkey lt_bwkey-bwkey.

  LOOP AT lt_werks.
    lw_line-sign    'I'.
    lw_line-option  'EQ'.
    lw_line-low     lt_werks-werks.
    APPEND lw_line TO s_werks.
    CLEAR:lt_werks,lw_line.
  ENDLOOP.

0

阅读 评论 收藏 转载 喜欢 打印举报/Report
  • 评论加载中,请稍候...
发评论

    发评论

    以上网友发言只代表其个人观点,不代表新浪网的观点或立场。

      

    新浪BLOG意见反馈留言板 欢迎批评指正

    新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

    新浪公司 版权所有