zoukankan      html  css  js  c++  java
  • SAP CO11N报工修改行项目库存地点(依据工厂+成本中心) 增强 se19

    三代增强点:WORKORDER_GOODSMVT 方法:BACKFLUSH

     代码如下:

      method IF_EX_WORKORDER_GOODSMVT~BACKFLUSH.

        DATA :
               lt_resb TYPE TABLE OF resb,
               ls_resb TYPE resb.
        DATA : lv_prvbe  TYPE mkal-elpro,
               lv_werks  TYPE resb-werks,
               lv_arbpl  TYPE crhd-arbpl.

        FIELD-SYMBOLS : <lfs_item> TYPE imseg.
        SELECT ('*'INTO CORRESPONDING FIELDS OF TABLE lt_resb
          FROM resb
          WHERE aufnr = i_order_header-aufnr
            AND xloek <> 'X'
           AND schgt <> 'X'
           AND dumps <> 'X'
           AND rgekz 'X'.

        SORT lt_resb BY aufnr matnr.

    *--------------------------------------------------------------------*
        LOOP AT ct_components ASSIGNING <lfs_item>.

          READ TABLE lt_resb INTO ls_resb WITH KEY aufnr = i_order_header-aufnr
                                                   matnr = <lfs_item>-matnr BINARY SEARCH.
          IF sy-subrc EQ 0.

            CLEAR : lv_prvbe,lv_werks,lv_arbpl.
              "按照工作中心
              SELECT SINGLE a~werks a~arbpl  INTO (lv_werks,lv_arbpl)
                 FROM crhd AS a
                 JOIN afvc AS b ON a~objid = b~arbid
                 WHERE b~aufpl = i_order_header-aufpl
                   AND b~aplzl = ls_resb-aplzl.
    *
    *--------------------------------------------------------------------*

                SELECT SINGLE lgort INTO lv_prvbe
                FROM ztpp014
                WHERE werks = lv_werks
                AND arbpl = lv_arbpl.

              IF lv_prvbe IS NOT INITIAL.
                <lfs_item>-lgort = lv_prvbe.
              ELSE.
                CLEAR : <lfs_item>-lgort.
              ENDIF.

          ENDIF.

        ENDLOOP.

      endmethod.

    社会很单纯,复杂的是人
  • 相关阅读:
    🔥低代码音视频开发训练营火热报名中!
    编解码再进化:Ali266 与下一代视频技术
    ICCV 2021口罩人物身份鉴别全球挑战赛冠军方案分享
    提升 RTC 音频体验 从搞懂硬件开始
    只要你有目标,只要你肯努力,成功只是时间问题
    安全感到底来自何方
    工作经验小结
    女人的出路在何方?
    那些以为过去了的
    初出茅庐
  • 原文地址:https://www.cnblogs.com/coderfarmer/p/14718654.html
Copyright © 2011-2022 走看看