DEMO：BAPI_CUSTOMERRETURN_CREATE创建退货单

*&---------------------------------------------------------------------*

*& Report  ZDEMO_VA01

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

REPORT  zdemo_va01_t.

PARAMETERS p_kunnr TYPE kunnr DEFAULT '1004615'.

PARAMETERS p_vkorg TYPE vkorg DEFAULT 'S600'.

PARAMETERS p_vtweg TYPE vtweg DEFAULT '10'.

PARAMETERS p_spart TYPE spart DEFAULT '00'.

PARAMETERS p_werks TYPE werks_d DEFAULT 'S600'.

PARAMETERS p_lgort TYPE lgort_d DEFAULT '6001'.

PARAMETERS p_vstel TYPE vstel DEFAULT 'S600'.

PARAMETERS p_matnr TYPE matnr DEFAULT 'TEST99'.

DATA:ls_order_header_in       LIKE bapisdhd1.

DATA:ls_order_header_inx      LIKE bapisdhd1x.

DATA:lt_order_items_in        LIKE 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 .

DATA: lt_return               LIKE TABLE OF bapiret2.

DATA: ls_return               LIKE    bapiret2.

DATA:lv_salesdocument     LIKE bapivbeln-vbeln.

CLEAR ls_order_header_in.

ls_order_header_in-doc_type     = 'ZDRE'."订单类型

ls_order_header_in-sales_org    = p_vkorg.

ls_order_header_in-distr_chan   = p_vtweg."分销渠道

ls_order_header_in-division     = p_spart."产品组

*    ls_order_header_in-sales_off    = . "销售部门

ls_order_header_in-purch_no_c = 'test'.

CLEAR ls_order_header_inx.

ls_order_header_inx-doc_type   = 'X'.

ls_order_header_inx-sales_org  = 'X'.

ls_order_header_inx-distr_chan = 'X'.

ls_order_header_inx-division   = 'X'.

*ls_order_header_inx-sales_off  = 'X'.

ls_order_header_inx-ass_number = 'X'.

ls_order_header_inx-updateflag = '1'.

ls_order_header_inx-purch_no_c = 'X'.

CLEAR ls_order_items_in.

CLEAR lt_order_items_in[].

ls_order_items_in-itm_number   = '10'."只有一个行项目

ls_order_items_in-material     = p_matnr.

ls_order_items_in-plant        = p_werks.

ls_order_items_in-store_loc    = p_lgort.

ls_order_items_in-target_qty   = 1.

ls_order_items_in-ship_point   = p_vstel."装运点

ls_order_items_in-target_qu    = 'EA'.

ls_order_items_in-sales_unit   = 'EA'.

APPEND ls_order_items_in TO lt_order_items_in.

CLEAR lt_schedules_in[].

CLEAR ls_schedules_in.

ls_schedules_in-itm_number      =  '10'."只有一个行项目

ls_schedules_in-req_qty         = 1.

APPEND ls_schedules_in TO lt_schedules_in.

CLEAR ls_schedules_inx.

CLEAR lt_schedules_inx[].

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.

"售达方默认

CLEAR ls_order_partners.

ls_order_partners-partn_role   = 'AG'.

ls_order_partners-partn_numb   = p_kunnr.

APPEND ls_order_partners TO lt_order_partners.

*&-------------------------------------------------------------------

"送达方 如果使用一次性客户

CLEAR ls_order_partners.

*ls_order_partners-partn_role   = 'WE'.

*ls_order_partners-partn_numb   = '1'.

*

*CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

*  EXPORTING

*    input  = ls_order_partners-partn_numb

*  IMPORTING

*    output = ls_order_partners-partn_numb.

*

*ls_order_partners-name         = '一次性客户测试'.

*ls_order_partners-country      = 'CN'.

*APPEND ls_order_partners TO lt_order_partners.

"送达方

CLEAR ls_order_partners.

ls_order_partners-partn_role   = 'WE'.

ls_order_partners-partn_numb   = p_kunnr.

APPEND ls_order_partners TO lt_order_partners.

*&---------------------------------------------------------------

"付款方

CLEAR ls_order_partners.

ls_order_partners-partn_role   = 'RE'.

ls_order_partners-partn_numb   = p_kunnr.

APPEND ls_order_partners TO lt_order_partners.

"收票方

CLEAR ls_order_partners.

ls_order_partners-partn_role   = 'RG'.

ls_order_partners-partn_numb   = p_kunnr.

APPEND ls_order_partners TO lt_order_partners.

"价格条件

CLEAR lt_order_conditions_in[].

CLEAR lt_order_conditions_inx[].

CLEAR ls_order_conditions_in.

ls_order_conditions_in-itm_number = '10'.

ls_order_conditions_in-cond_st_no = ''.

ls_order_conditions_in-cond_count = ''.

ls_order_conditions_in-cond_type  = 'ZPR0'.  "定价条件

ls_order_conditions_in-cond_value = 1000.

ls_order_conditions_in-currency   = 'RMB'.  "币别

APPEND ls_order_conditions_in TO lt_order_conditions_in.

CLEAR ls_order_conditions_inx.

ls_order_conditions_inx-itm_number = '10'.

ls_order_conditions_inx-cond_st_no = ''.

ls_order_conditions_inx-cond_count = ''.

ls_order_conditions_inx-updateflag = 'X'.

ls_order_conditions_inx-cond_type  = 'ZPR0'.  "定价条件

ls_order_conditions_inx-cond_value = 'X'.  "价格

IF ls_order_conditions_in-currency IS NOT INITIAL.

ls_order_conditions_inx-currency   = 'X'.  "币别

ENDIF.

APPEND ls_order_conditions_inx TO lt_order_conditions_inx.

CLEAR lv_salesdocument.

CALL FUNCTION 'BAPI_CUSTOMERRETURN_CREATE'

EXPORTING

return_header_in     = ls_order_header_in

return_header_inx    = ls_order_header_inx

IMPORTING

salesdocument        = lv_salesdocument

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

return_conditions_in = lt_order_conditions_in.

*        return_conditions_inx = lt_order_conditions_inx.

IF lv_salesdocument IS NOT INITIAL.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

wait = 'X'.

ENDIF.

WRITE lv_salesdocument.