12
返回列表 发新帖
楼主: myself_cyl

[原创] ABAP菜鸟求助

[复制链接]
论坛徽章:
0
11#
发表于 2012-3-13 11:36 | 只看该作者
楼主的意思是已经走到红色那个断点了。发现W_BOM_2但是T_BOM_3没有。不存在走到其他if,else逻辑段中的问题。这个还真没有遇见过,估计是不是2个表的字段定义不一样,正好这条在W_BOM_2的数据字段或过长放不到T_BOM_3去。

使用道具 举报

回复
论坛徽章:
0
12#
 楼主| 发表于 2012-3-15 13:28 | 只看该作者
本帖最后由 myself_cyl 于 2012-3-15 13:28 编辑

多谢大家提意见,终于把程序搞定了,换了个逻辑写法,之前那个太复杂太搞了……
新代码,大家可以交流一下。。。
LOOP AT t_bom INTO w_bom.
    w_bom_3-matnr = w_bom-matnr.
    w_bom_3-SPN = w_bom-SPN.
    w_bom_3-DESC = w_bom-DESC.
    w_bom_3-ekgrp = w_bom-ekgrp.
    w_bom_3-MENGE = w_bom-MENGE.
    w_bom_3-MEINS = w_bom-MEINS.
    w_bom_3-kbetr = w_bom-kbetr.
    w_bom_3-count = 1.
    COLLECT w_bom_3 INTO t_bom_2.
    CLEAR w_bom_3.
  ENDLOOP.

  sort t_bom BY matnr kbetr descending .                              "取出最高价
  DELETE ADJACENT DUPLICATES FROM t_bom COMPARING MATNR.

  LOOP AT t_bom_2 INTO w_bom_2.                                    "取出平均价
    w_bom_2-kbetr1 = w_bom_2-kbetr / w_bom_2-count.
    READ TABLE t_bom into w_bom with key matnr = w_bom_2-matnr.
    IF sy-subrc = 0.
      w_bom_2-kbetr2 = w_bom-kbetr.                                   
    ENDIF.

    APPEND w_bom_2 TO t_bom_3.
  ENDLOOP.


使用道具 举报

回复

您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

TOP技术积分榜 社区积分榜 徽章 团队 统计 知识索引树 积分竞拍 文本模式 帮助
  ITPUB首页 | ITPUB论坛 | 数据库技术 | 企业信息化 | 开发技术 | 微软技术 | 软件工程与项目管理 | IBM技术园地 | 行业纵向讨论 | IT招聘 | IT文档
  ChinaUnix | ChinaUnix博客 | ChinaUnix论坛
CopyRight 1999-2011 itpub.net All Right Reserved. 北京盛拓优讯信息技术有限公司版权所有 联系我们 未成年人举报专区 
京ICP备16024965号-8  北京市公安局海淀分局网监中心备案编号:11010802021510 广播电视节目制作经营许可证:编号(京)字第1149号
  
快速回复 返回顶部 返回列表