DEMO系列
DEMO:BAPI_SALESORDER_CREATEFROMDAT2 创建订单
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 = 'ZDJX'."订单类型 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_SALESORDER_CREATEFROMDAT2' EXPORTING order_header_in = ls_order_header_in order_header_inx = ls_order_header_inx IMPORTING salesdocument = lv_salesdocument 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 order_conditions_in = lt_order_conditions_in order_conditions_inx = lt_order_conditions_inx. IF lv_salesdocument IS NOT INITIAL. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. ENDIF. WRITE lv_salesdocument. WRITE lv_salesdocument.
DEMO：BAPI_CUSTOMERRETURN_CREATE创建退货单
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.
DEMO:创建外向交货单BAPI_OUTB_DELIVERY_CREATE_SLS
parameters p_vbeln type vbeln_va. parameters p_sernr type objk-sernr. parameters p_vstel type vstel. data:ls_vbak type vbak. data:lt_vbap type table of vbap. data:ls_vbap type vbap. data:lv_delivery type bapishpdelivnumb-deliv_numb, lv_num_deliveries type bapidlvcreateheader-num_deliveries, lt_sales_order_items like table of bapidlvreftosalesorder , lt_return like table of bapiret2 . data:ls_sales_order_items like line of lt_sales_order_items. data:ls_return like line of lt_return. data:lt_serial_numbers like table of bapidlvserialnumber. data:ls_serial_numbers like line of lt_serial_numbers. data: lv_ship_point type bapidlvcreateheader-ship_point. data:lv_due_date type bapidlvcreateheader-due_date. start-of-selection. select single * from vbak into ls_vbak where vbeln = p_vbeln. select single * from vbap into ls_vbap where vbeln = p_vbeln. check sy-subrc = 0. clear: lv_delivery,lv_num_deliveries, lt_sales_order_items[], lt_serial_numbers[], lt_return[]. ls_sales_order_items-ref_doc = ls_vbak-vbeln. "参考订单号 ls_sales_order_items-ref_item = '000010'. "行项目号 单个航项目 "可以使用默认 ls_sales_order_items-dlv_qty = 1 . "数量 ls_sales_order_items-sales_unit = 'EA'. "单位 append ls_sales_order_items to lt_sales_order_items. ls_serial_numbers-ref_doc = ls_vbak-vbeln. ls_serial_numbers-ref_item = 10. ls_serial_numbers-serialno = p_sernr. call function 'CONVERSION_EXIT_GERNR_INPUT' exporting input = ls_serial_numbers-serialno importing output = ls_serial_numbers-serialno. append ls_serial_numbers to lt_serial_numbers. lv_ship_point = p_vstel. clear lv_delivery. lv_due_date = sy-datum + 365. call function 'BAPI_OUTB_DELIVERY_CREATE_SLS' exporting ship_point = lv_ship_point due_date = lv_due_date importing delivery = lv_delivery num_deliveries = lv_num_deliveries tables sales_order_items = lt_sales_order_items serial_numbers = lt_serial_numbers return = lt_return. call function 'BAPI_TRANSACTION_COMMIT' exporting wait = 'X'. write lv_delivery.
DEMO:修改外向交货单BAPI_OUTB_DELIVERY_CHANGE
简单demo，交货单数量+1，然后维护上序列号（有的公司没有启用序列号就不需要了） REPORT zdemo_vl02n. TABLES:likp,lips. PARAMETERS:p_vbeln TYPE vbeln_vl. PARAMETER:p_sernr TYPE objk-sernr. DATA:ls_header_data LIKE bapiobdlvhdrchg, ls_header_control LIKE bapiobdlvhdrctrlchg, lv_delivery LIKE bapiobdlvhdrchg-deliv_numb. DATA:lt_item_data LIKE TABLE OF bapiobdlvitemchg, lt_item_control LIKE TABLE OF bapiobdlvitemctrlchg , lt_item_serial_no LIKE TABLE OF bapidlvitmserno . DATA:ls_item_data LIKE bapiobdlvitemchg, ls_item_control LIKE bapiobdlvitemctrlchg , ls_item_serial_no LIKE bapidlvitmserno . DATA:lt_return TYPE TABLE OF bapiret2. DATA:lt_lips TYPE TABLE OF lips. DATA:ls_lips TYPE lips. DATA:lt_ser01 TYPE TABLE OF ser01. DATA:ls_ser01 TYPE ser01. DATA:lt_objk TYPE TABLE OF objk. DATA:ls_objk TYPE objk. "交货单信息 SELECT * FROM lips INTO TABLE lt_lips WHERE vbeln = p_vbeln. "交货单系列号的凭证抬头 SELECT * FROM ser01 INTO TABLE lt_ser01 WHERE lief_nr = p_vbeln. "交货单对应的物料+序列号 IF lt_ser01[] IS NOT INITIAL. SELECT * FROM objk INTO TABLE lt_objk FOR ALL ENTRIES IN lt_ser01 WHERE obknr = lt_ser01-obknr. ENDIF. CLEAR lt_item_serial_no[]. "填写物料+序列号 LOOP AT lt_lips INTO ls_lips. READ TABLE lt_ser01 INTO ls_ser01 WITH KEY lief_nr = ls_lips-vbeln posnr = ls_lips-posnr. CHECK sy-subrc = 0. LOOP AT lt_objk INTO ls_objk WHERE obknr = ls_ser01-obknr. CLEAR ls_item_serial_no. ls_item_serial_no-deliv_numb = ls_lips-vbeln. ls_item_serial_no-itm_number = ls_lips-posnr. ls_item_serial_no-serialno = ls_objk-sernr. APPEND ls_item_serial_no TO lt_item_serial_no[]. ENDLOOP. ENDLOOP. *&最后一个行项目上 数量加一，加一个物料 和序列号 ls_item_serial_no-deliv_numb = ls_lips-vbeln. ls_item_serial_no-itm_number = ls_lips-posnr. ls_item_serial_no-serialno = p_sernr. APPEND ls_item_serial_no TO lt_item_serial_no[]. "修改交货单数量 CLEAR ls_item_data. CLEAR lt_item_data[]. ls_lips-lfimg = ls_lips-lfimg + 1. ls_item_data-deliv_numb = ls_lips-vbeln. ls_item_data-deliv_item = ls_lips-posnr . ls_item_data-material = ls_lips-matnr . ls_item_data-dlv_qty = ls_lips-lfimg . ls_item_data-dlv_qty_imunit = ls_lips-lfimg. ls_item_data-fact_unit_denom = 1. ls_item_data-fact_unit_nom = 1. ls_item_data-sales_unit = 'EA'. ls_item_data-base_uom = 'EA'. APPEND ls_item_data TO lt_item_data. CLEAR ls_item_control. CLEAR lt_item_control[]. ls_item_control-deliv_numb = ls_lips-vbeln.. ls_item_control-deliv_item = ls_item_data-deliv_item. ls_item_control-chg_delqty = 'X'. APPEND ls_item_control TO lt_item_control. lv_delivery = p_vbeln. ls_header_data-deliv_numb = p_vbeln. ls_header_control-deliv_numb = p_vbeln. CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE' EXPORTING header_data = ls_header_data header_control = ls_header_control delivery = lv_delivery TABLES * HEADER_PARTNER = * HEADER_PARTNER_ADDR = * HEADER_DEADLINES = item_data = lt_item_data item_control = lt_item_control item_serial_no = lt_item_serial_no * SUPPLIER_CONS_DATA = * EXTENSION1 = * EXTENSION2 = return = lt_return * TOKENREFERENCE = * ITEM_DATA_SPL = * COLLECTIVE_CHANGE_ITEMS = * NEW_ITEM_DATA = * NEW_ITEM_DATA_SPL = * NEW_ITEM_ORG = * ITEM_DATA_DOCU_BATCH = . CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'.
