汇总操作

最新推荐文章于 2022-05-03 20:10:23 发布

一只莫得感情的码农

最新推荐文章于 2022-05-03 20:10:23 发布

阅读量493

点赞数

CC 4.0 BY-SA版权

分类专栏： abap

本文链接：https://blog.youkuaiyun.com/Real_feeling5/article/details/52594734

abap 专栏收录该内容

8 篇文章

订阅专栏

本文介绍了一段用于处理SAP系统中采购订单数据的ABAP程序代码。该程序通过联表查询的方式从EKPO和EKKO表中选择特定字段，并将数据汇总到GT_KOPO表中。此外，还涉及到了自定义表GT_ZTMMPER的使用，以及针对采购订单的详细筛选条件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

IF GT_ZTMMPER[] IS NOT INITIAL.
*采购单价自建表中未维护的供应商代码和物料不推送
    SELECT EKPO~BUKRS           "公司代码
           EKKO~LIFNR           "供应商代码
           EKPO~EBELN           "采购凭证号
*           EKPO~WERKS           "工厂
           EKPO~MATNR           "物料编码
*           EKPO~LGORT           "库存地点
           EKPO~MENGE           "采购订单数量
           EKPO~NETPR           "采购订单净价
           EKPO~MWSKZ           "税率
           EKPO~ELIKZ           "交货是否完成标识
           EKPO~RETPO           "是否为退货标识
           EKKO~AEDAT           "创单日期
           EKKO~ERNAM           "创单人
           EKKO~ZTERM           "付款条件
           EKKO~WAERS           "货币码
      INTO TABLE GT_KOPO
      FROM EKPO
      INNER JOIN EKKO
      ON EKPO~EBELN = EKKO~EBELN
      FOR ALL ENTRIES IN GT_ZTMMPER
      WHERE EKPO~MATNR = GT_ZTMMPER-MATNR
      AND   EKKO~LIFNR = GT_ZTMMPER-LIFNR .
*对GT_KOPO里边的数据进行汇总
    SORT GT_KOPO BY BUKRS LIFNR EBELN MATNR  ASCENDING.
    LOOP AT GT_KOPO INTO WA_KOPO1.
      WA_KOPO2 = WA_KOPO1.
      TEMENGE  = TEMENGE + WA_KOPO1-MENGE.
*      WA_KOPO2-MENGE = WA_KOPO2-MENGE + WA_KOPO1-MENGE.
      AT END OF MATNR.
        WA_KOPO2-MENGE = TEMENGE.
        APPEND WA_KOPO2 TO GT_KOPO1.
        TEMENGE = 0.
        CLEAR WA_KOPO2.
      ENDAT.
      CLEAR WA_KOPO1.
    ENDLOOP.
  ENDIF.