SD_BAPI

深碍√TFBOYSˉ_ 2023-08-17 14:06 110阅读 0赞

# 创建销售订单BAPI及增强 #

[http://blog.sina.com.cn/s/blog\_1647b3eff0102wi32.html][http_blog.sina.com.cn_s_blog_1647b3eff0102wi32.html]

DATA:lv\_objtype TYPE nast\-objtype.

"SO BAPI参数
    DATA:ls_order_header_in       LIKE bapisdhd1.
    DATA:lt_order_header_in       LIKE TABLE OF  bapisdhd1.
    DATA:ls_order_header_inx      LIKE bapisdhd1x.
    DATA:lt_order_header_inx      LIKE TABLE OF bapisdhd1x.
    DATA:lt_order_items_in        TYPE TABLE OF bapisditm.
    DATA:lt_order_items_inx       LIKE TABLE OF bapisditmx.
    DATA:ls_order_items_in        LIKE bapisditm.
    DATA:ls_order_items_inx       LIKE bapisditmx.
    DATA:lt_order_partners        LIKE TABLE OF bapiparnr.
    DATA:ls_order_partners        LIKE LINE OF lt_order_partners.
    DATA:lt_schedules_in          LIKE TABLE OF bapischdl .
    DATA:lt_schedules_inx         LIKE TABLE OF  bapischdlx .
    DATA:ls_schedules_in          LIKE bapischdl .
    DATA:ls_schedules_inx         LIKE bapischdlx .
    DATA:lt_order_conditions_in   LIKE TABLE OF  bapicond .
    DATA:lt_order_conditions_inx  LIKE TABLE OF  bapicondx .
    DATA:ls_order_conditions_in   LIKE  bapicond .
    DATA:ls_order_conditions_inx  LIKE  bapicondx .
    
     LOOP AT p_gt_checkabox_so_header ASSIGNING FIELD-SYMBOL(<fs1>).
    *-------SO创建
        CLEAR:lv_ebeln.
        CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
          EXPORTING
            input  = <fs1>-matnr
          IMPORTING
            output = <fs1>-matnr.
        ls_order_header_in = VALUE #( doc_type = 'ZRE3'  "订单类型
                                 sales_org = '5100'
                                 distr_chan = '10'
                                 division = '10'
                                 req_date_h = <fs1>-zthrq
                                 doc_date = sy-datum ).
    
        ls_order_header_inx = VALUE #( updateflag = 'I'
                                doc_type = 'X'
                                sales_org = 'X'
                                distr_chan = 'X'
                                division = 'X'
                                req_date_h = 'X'
                                doc_date = 'X' ).
    
        CLEAR :lt_order_items_in,lt_order_items_in[].
        CLEAR :lt_order_items_inx,lt_order_items_inx[].
        CLEAR :lt_order_partners,lt_order_partners[].
        CLEAR :lt_schedules_in,lt_schedules_in[].
        CLEAR :lt_schedules_inx,lt_schedules_inx[].
        CLEAR :lt_return,lt_return[].
    
        lt_order_partners = VALUE #( FOR ls_tpar IN lt_tpar_so
                      ( VALUE #( BASE CORRESPONDING #( ls_tpar ) partn_numb = <fs1>-kunnr ) ) ).
    
    
        LOOP AT p_gt_checkabox_so_items   WHERE  kunnr =  <fs1>-kunnr
                                              AND    zdbdh =  <fs1>-zthdh
                                              AND    s_werks =  <fs1>-s_werks.
          CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
            EXPORTING
              input  = p_gt_checkabox_so_items-matnr
            IMPORTING
              output = p_gt_checkabox_so_items-matnr.
          ls_order_items_in-itm_number = p_gt_checkabox_so_items-zposnr ."items 号
          ls_order_items_in-material = p_gt_checkabox_so_items-matnr.
          ls_order_items_in-plant = p_gt_checkabox_so_items-s_werks."
          ls_order_items_in-store_loc    = '1001'.
          ls_order_items_in-target_qty   = p_gt_checkabox_so_items-menge."
    *        ls_order_items_in-ship_point   = p_vstel."装运点
          ls_order_items_in-target_qu    =  p_gt_checkabox_so_items-meins."
    *        ls_order_items_in-target_val   = 888."BAPIs 的货币金额（带有 9 个小数位）
    *        ls_order_items_in-purch_no_c   =  '客户参考'  .
          ls_order_items_in-item_categ   =  'REN'  ."销售凭证项目类别
    *        ls_order_items_in-item_categ   =   COND #( WHEN ls_order_header_in-doc_type = 'ZOR2' THEN 'TAS' ELSE 'TAN' ).
          APPEND ls_order_items_in TO lt_order_items_in.
    
          ls_schedules_inx-updateflag      = 'X'.
          ls_schedules_inx-itm_number      = 'X'.
          ls_schedules_inx-req_qty         = 'X'.
          ls_order_items_inx-material =  'X'.
          ls_order_items_inx-target_qty =  'X'.
          ls_order_items_inx-sales_unit =  'X'.
          ls_order_items_inx-plant =  'X'.
          ls_order_items_inx-purch_no_c =  'X'.
          ls_order_items_inx-item_categ =  'X'."销售凭证项目类别
          ls_order_items_inx-updateflag =  'I'.
          ls_order_items_inx-target_val =  'X'.
          APPEND ls_schedules_inx TO lt_schedules_inx.
    
    *SCHED_TYPE
    
          ls_schedules_in-itm_number      =  p_gt_checkabox_so_items-zposnr."items 号"
          ls_schedules_in-req_qty         = p_gt_checkabox_so_items-menge .
          APPEND ls_schedules_in TO lt_schedules_in.
    
          ls_schedules_inx-updateflag      = 'X'.
          ls_schedules_inx-itm_number      = 'X'.
          ls_schedules_inx-req_qty         = 'X'.
          APPEND ls_schedules_inx TO lt_schedules_inx.
        ENDLOOP.
    *    CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
    *      EXPORTING
    *        order_header_in     = ls_order_header_in
    *        order_header_inx    = ls_order_header_inx
    *      IMPORTING
    *        salesdocument       = lv_ebeln
    *      TABLES
    *        return              = lt_return
    *        order_items_in      = lt_order_items_in
    *        order_items_inx     = lt_order_items_inx
    *        order_partners      = lt_order_partners
    *        order_schedules_in  = lt_schedules_in
    *        order_schedules_inx = lt_schedules_inx.
    *-----------------------------------------------------------------------------------------------------------
    
        CALL FUNCTION 'BAPI_CUSTOMERRETURN_CREATE'
          EXPORTING
    *       SALESDOCUMENTIN      =
            return_header_in     = ls_order_header_in
            return_header_inx    = ls_order_header_inx
          IMPORTING
            salesdocument        = lv_ebeln
          TABLES
            return               = lt_return
            return_items_in      = lt_order_items_in
            return_items_inx     = lt_order_items_inx
            return_partners      = lt_order_partners
            return_schedules_in  = lt_schedules_in
            return_schedules_inx = lt_schedules_inx.
    *-----------------------------------------------------------------------------------------------------------
        LOOP AT lt_return WHERE type CA 'AE'.
        ENDLOOP.
        IF sy-subrc EQ 0.
          CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
          e_type = 'E'.
          e_msg =  |销售订单 { lv_ebeln } 创建失败：{ lt_return-message } |.
        ELSE.
          e_type = 'S'.
          e_msg =  |销售订单 { lv_ebeln } 创建成功 ！|..
          CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
            EXPORTING
              wait = 'X'.
        ENDIF.

转载于:https://www.cnblogs.com/ckstock/p/11284182.html

[http_blog.sina.com.cn_s_blog_1647b3eff0102wi32.html]: http://blog.sina.com.cn/s/blog_1647b3eff0102wi32.html