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.

    社会很单纯,复杂的是人
  • 相关阅读:
    Solution -「ARC 101E」「AT 4352」Ribbons on Tree
    Solution -「CF 855G」Harry Vs Voldemort
    Solution -「CF 1119F」Niyaz and Small Degrees
    Solution -「AGC 029E」「AT 4504」Wandering TKHS
    Solution -「CF 840C」On the Bench
    Solution -「AGC 004E」「AT 2045」Salvage Robots
    Solution -「CF 908D」New Year&Arbitrary Arrangement
    IDEA技巧-快速遍历数组
    [LOJ6055]「from CommonAnts」一道数学题 加强版
    LeetCode437路径总和III
  • 原文地址:https://www.cnblogs.com/coderfarmer/p/14718654.html
Copyright © 2011-2022 走看看