【Demo】修改销售订单库存地点

怼烎@ 2023-01-10 03:51 129阅读 0赞

当我们使用BAPI函数“**BAPI\_SALESORDER\_CHANGE**”修改销售订单库存地点时，需要注意的是，若不加上工厂，虽不会报错，但会将库存地点置空。  
![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70][]

**【样例代码】**

*&---------------------------------------------------------------------*
    *& Report  ZTEST_CHANGE_SO
    *&
    *&---------------------------------------------------------------------*
    *&
    *&
    *&---------------------------------------------------------------------*
    
    REPORT ZTEST_CHANGE_SO.
    
    START-OF-SELECTION.
      PERFORM CHANGE_SALES_ORDER .
    
    *&---------------------------------------------------------------------*
    *&      Form  CHANGE_SALES_ORDER
    *&---------------------------------------------------------------------*
    *       text
    *----------------------------------------------------------------------*
    *      -->P_GS_LIST  text
    *----------------------------------------------------------------------*
    FORM CHANGE_SALES_ORDER .
    
      DATA: LV_MESSAGE TYPE CHAR255,
            LV_VBELN TYPE BAPIVBELN-VBELN,
            LS_LOGIC_SWITCH         TYPE  BAPISDLS,
            I_HDR  TYPE BAPISDH1,
            I_HDRX TYPE BAPISDH1X,
            I_RET  TYPE BAPIRET2 OCCURS 0 WITH HEADER LINE,
            I_ITM  TYPE BAPISDITM OCCURS 0 WITH HEADER LINE,
            I_ITMX TYPE BAPISDITMX  OCCURS 0 WITH HEADER LINE.
    
    
      REFRESH: I_ITM[], I_ITMX[], I_RET[].
      CLEAR: I_HDR, I_HDRX.
    
      LV_VBELN = '0000000130'. 
      I_HDRX-UPDATEFLAG = 'U'. 
    
      I_ITM-ITM_NUMBER = '000010'. 
      I_ITM-STORE_LOC = '6010'.
      I_ITM-PLANT = '1101'. 
    
      I_ITMX-ITM_NUMBER = '000010'.
      I_ITMX-UPDATEFLAG = 'U'.
      I_ITMX-STORE_LOC = 'X'. 
      I_ITMX-PLANT   = 'X'. 
      APPEND I_ITM.
      APPEND I_ITMX.
    
      CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
        EXPORTING
          SALESDOCUMENT     = LV_VBELN
          ORDER_HEADER_IN   = I_HDR
          ORDER_HEADER_INX  = I_HDRX
    *     BEHAVE_WHEN_ERROR = 'P'
          LOGIC_SWITCH      = LS_LOGIC_SWITCH
        TABLES
          RETURN            = I_RET
          ORDER_ITEM_IN     = I_ITM
          ORDER_ITEM_INX    = I_ITMX.
    
      LOOP AT I_RET WHERE TYPE = 'E' OR TYPE = 'A'.
        CONCATENATE I_RET-MESSAGE ';' LV_MESSAGE
        INTO LV_MESSAGE.
      ENDLOOP.
      IF SY-SUBRC NE 0.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            WAIT = 'X'.
        WRITE : 'Change Finished'.
      ELSE.
        CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
    *                   IMPORTING
    *                     RETURN        =
                .
        WRITE : LV_MESSAGE.
      ENDIF.
    
    ENDFORM.                    " CHANGE_SALES_ORDER

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 1][]

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70]: /images/20221119/1f35398ac44944c5bf90b179c3ef16af.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 1]: /images/20221119/592010b1e5fc4d1d90b6b133ddbf614c.png