Solved: 请朋友们帮助一下，关于创建销售订单选配件问题

Former Member · ‎06-18-2010

用BAPI_SALESORDER_CREATEFROMDAT2创建销售订单，始终不能将选配件加上，如下是网上找到的代码，现急用，请朋友们帮忙看看，谢谢！

&----

*& Report ZTEST07

*&

&----

*&

&----

REPORT ZTEST07.

DATA:ORDER_HEADER_IN LIKE BAPISDHD1,

ORDER_ITEMS_IN LIKE BAPISDITM OCCURS 0 WITH HEADER LINE,

order_items_inx LIKE bapisditmx OCCURS 0 WITH HEADER LINE,

ORDER_PARTNERS LIKE BAPIPARNR OCCURS 0 WITH HEADER LINE,

ORDER_SCHEDULES_IN LIKE BAPISCHDL OCCURS 0 WITH HEADER LINE,

ORDER_CONDITIONS_IN LIKE BAPICOND OCCURS 0 WITH HEADER LINE,

ORDER_CONDITIONS_INX LIKE BAPICONDX OCCURS 0 WITH HEADER LINE,

ORDER_TEXT LIKE BAPISDTEXT OCCURS 0 WITH HEADER LINE,

RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,

order_cfgs_ref like bapicucfg OCCURS 0 WITH HEADER LINE, "bapicucfgbapicuref

order_cfgs_value like bapicuval OCCURS 0 WITH HEADER LINE,

WK_FLAG TYPE C,

WK_VBELN LIKE VBAK-VBELN.

REFRESH: ORDER_PARTNERS,ORDER_SCHEDULES_IN,

ORDER_CONDITIONS_IN,ORDER_ITEMS_IN.

ORDER_HEADER_IN-DOC_TYPE = 'ZORA'. "订单类型

ORDER_HEADER_IN-SALES_ORG = '1100'. "销售组织

ORDER_HEADER_IN-DISTR_CHAN = '11'. "分销渠道

ORDER_HEADER_IN-DIVISION = '10'. "产品住

*ORDER_HEADER_IN-SALES_GRP = '001'. "销售组

*ORDER_HEADER_IN-SALES_OFF = '1000'. "销售部门

ORDER_HEADER_IN-PURCH_NO_C = '测试订单'. "采购订单编号

*ORDER_HEADER_IN-ORD_REASON = 'test'. "订单原因

ORDER_HEADER_IN-REQ_DATE_H = '20101021'.

ORDER_HEADER_IN-PURCH_DATE = '20101021'.

ORDER_HEADER_IN-PMNTTRMS = 'D001'."付款条件

ORDER_HEADER_IN-INCOTERMS1 = 'FOB'."国际贸易条件 CIF

ORDER_HEADER_IN-INCOTERMS2 = 'SHENZHEN'."国际贸易条件 CIF

ORDER_PARTNERS-PARTN_ROLE = 'AG'.

ORDER_PARTNERS-PARTN_NUMB = '0000100009'.

APPEND ORDER_PARTNERS.

ORDER_PARTNERS-PARTN_ROLE = 'WE'.

ORDER_PARTNERS-PARTN_NUMB = '0000100009'.

APPEND ORDER_PARTNERS.

ORDER_PARTNERS-PARTN_ROLE = 'RG'.

ORDER_PARTNERS-PARTN_NUMB = '0000100009'.

APPEND ORDER_PARTNERS.

ORDER_ITEMS_IN-ITM_NUMBER = '000010'. "行项目

ORDER_ITEMS_IN-MATERIAL = '000000001030000468'. "物料号

ORDER_ITEMS_IN-PLANT = '1000'. "工厂

*ORDER_ITEMS_IN-CUST_MAT35 = '232'. "客户物料编号

ORDER_ITEMS_IN-CURRENCY = 'USD'.

*ORDER_ITEMS_IN-STORE_LOC = ''. 仓库.

ORDER_ITEMS_IN-ITEM_CATEG = 'ZTA1'.

ORDER_ITEMS_IN-PO_ITM_NO = '000010'.

APPEND ORDER_ITEMS_IN.

*ORDER_ITEMS_IN-ITM_NUMBER = '000020'. "行项目

*ORDER_ITEMS_IN-MATERIAL = '000000001030005926'. "物料号

*ORDER_ITEMS_IN-PLANT = '1000'. "工厂

**ORDER_ITEMS_IN-CUST_MAT35 = '232'. "客户物料编号

*ORDER_ITEMS_IN-CURRENCY = 'USD'.

**ORDER_ITEMS_IN-STORE_LOC = '

*ORDER_ITEMS_IN-ITEM_CATEG = 'ZTA1'.

**ORDER_ITEMS_IN-PRICE_LIST = '33'.

**ORDER_ITEMS_IN-PRICE_GRP = 'ZP01'.

**ORDER_ITEMS_IN-S_PROC_IND = '1'.

*APPEND ORDER_ITEMS_IN.

*

order_items_inx-itm_number = '000010'.

order_items_inx-material = 'X'.

order_items_inx-updateflag = 'I'.

order_items_inx-po_itm_no = 'X'.

order_items_inx-ITEM_CATEG ='X'.

APPEND order_items_inx .

*order_items_inx-itm_number = '000020'.

order_items_inx-material = 'X'.
order_items_inx-updateflag = 'I'.
order_items_inx-po_itm_no = 'X'.

order_items_inx-ITEM_CATEG ='X'.

APPEND order_items_inx .

*

ORDER_SCHEDULES_IN-ITM_NUMBER = '000010'. "销售凭证项目

ORDER_SCHEDULES_IN-SCHED_LINE = '0001'. "交货计划行号

ORDER_SCHEDULES_IN-REQ_DATE = '20100909'. "计划行日期

ORDER_SCHEDULES_IN-req_qty = '7'. "以销售单位计的订单数量

APPEND ORDER_SCHEDULES_IN.

*ORDER_SCHEDULES_IN-ITM_NUMBER = '000020'. "销售凭证项目

*ORDER_SCHEDULES_IN-SCHED_LINE = '0020'. "交货计划行号

*ORDER_SCHEDULES_IN-REQ_DATE = '20100902'. "计划行日期

*ORDER_SCHEDULES_IN-req_qty = '9'. "以销售单位计的订单数量

*APPEND ORDER_SCHEDULES_IN.

*

ORDER_CONDITIONS_IN-ITM_NUMBER = '000010'. "条件项目号

ORDER_CONDITIONS_IN-COND_TYPE = 'ZR01'. "条件类型

ORDER_CONDITIONS_IN-COND_VALUE = '27'. "定价比率价格

order_conditions_in-currency = 'USD'. "两个地方都必须配置货币名，非常重要要不价格会变为十倍

**order_conditions_in-applicatio = 'V'.

**order_conditions_in-conpricdat = '20070506'.

**order_conditions_in-calctypcon = 'C'.

*order_conditions_in-conbas = '1'.

*order_conditions_in-conexchrat = '1'.

*order_conditions_in-numconvert = '1'.

*order_conditions_in-denominato = '1'.

*order_conditions_in-cond_value = '20'.

*order_conditions_in-cond_unit = 'PCS'.

*order_conditions_in-cond_p_unt = '1'.

**order_conditions_in-condvalue = '20'.

APPEND ORDER_CONDITIONS_IN.

ORDER_CONDITIONS_INX-ITM_NUMBER = '000010'. "条件项目号

ORDER_CONDITIONS_INX-COND_TYPE = 'X'. "条件类型

ORDER_CONDITIONS_INX-COND_VALUE = 'X'. "定价比率价格

APPEND ORDER_CONDITIONS_INX.

*表頭內文**********

order_text-doc_number = p_vbeln.

order_text-text_id = 'Z201'.

order_text-langu = '1'. "'M'

order_text-langu_iso = 'ZH'."'ZF'.

order_text-format_col = '*'.

order_text-text_line = '中文 line 1'.

*order_text-FUNCTION

APPEND order_text.

order_text-text_line = 'text line 2'.

APPEND order_text.

order_text-text_line = 'text line 3'.

APPEND order_text.

order_text-text_line = 'text line 4'.

APPEND order_text.

**項目內文***********

order_text-doc_number = p_vbeln.

order_text-itm_number = '000010'.

order_text-text_id = 'Z251'.

order_text-langu = '1'.

order_text-langu_iso = 'ZH'.

order_text-format_col = '*'.

order_text-text_line = 'item text'.

APPEND order_text.

**組態資料************************

order_cfgs_ref-posex = '000010'.

order_cfgs_ref-config_id = '000001'.

order_cfgs_ref-root_id = '00000001'.

APPEND order_cfgs_ref.

order_cfgs_value-config_id = '000010'."'000001'.

order_cfgs_value-inst_id = '000010'."'00000001'.

order_cfgs_value-charc = 'A1030004311'. "特性,不知这直接用ct04的特性有没有错

order_cfgs_value-value = '01'. "特性值

APPEND order_cfgs_value.

CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'

EXPORTING

ORDER_HEADER_IN = ORDER_HEADER_IN

IMPORTING

SALESDOCUMENT = WK_VBELN

TABLES

RETURN = RETURN

ORDER_ITEMS_IN = ORDER_ITEMS_IN

order_items_inx = order_items_inx

ORDER_PARTNERS = ORDER_PARTNERS

ORDER_SCHEDULES_IN = ORDER_SCHEDULES_IN

ORDER_CONDITIONS_IN = ORDER_CONDITIONS_IN

ORDER_CONDITIONS_INX = ORDER_CONDITIONS_INx

order_cfgs_ref = order_cfgs_ref "

order_cfgs_inst = order_cfgs_inst
order_cfgs_part_of = order_cfgs_part_of

order_cfgs_value = order_cfgs_value

order_text = order_text.

WK_FLAG = ''.

LOOP AT RETURN.

IF RETURN-TYPE = 'E' OR RETURN-TYPE = 'A'.

WK_FLAG = 'X'.

ENDIF.

ENDLOOP.

*下面的COMMIT是非常重要的, 不然不会产生订单, 系统会产生空号.

*( 即系统在NUMBER RANGE层面上产生了增号, 但在实际上没有生成该订单号 )

IF WK_FLAG = 'X'.

CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

WRITE:/ RETURN-MESSAGE COLOR 6.

ELSE.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' .

WRITE:/(10) WK_VBELN COLOR 5.

ENDIF.

Edited by: Sheng Qiang on Jun 18, 2010 3:00 PM

Former Member · ‎06-18-2010

建议重新编辑一下，分两段贴，格式就不会有问题了。现在看起来很吃力，不清楚。

格式问题是有字多引起的，是Jive Forum的bug。

请朋友们帮助一下，关于创建销售订单选配件问题

Accepted Solutions (1)

Accepted Solutions (1)

Answers (0)

Re: ABAP2XLSX in an old Abap version

SAP BUILD deployment to production

Re: Connection between SAP SAC and Datasphere

Clearance by virtual account of summary invoices

Re: SAP ADT installation issue