您可以使用FM：BS01_MM_QUOTATION_CREATE

示例代码：

METHOD CREATE_QUOTATION。
* ---------------------------------------- ------------------------------ *
*数据定义
* --------- -------------------------------------------------- ----------- *
数据：
L_QUOTATION类型BAPIEKKOC-PO_NUMBER，
L_CNT_I类型EBELP。

* ---------- -------------------------------------------------- ---------- *
*常量定义
* ----------------------------- ----------------------------------------- *
常量：
L_C_INDXKEY类型INDX-SRTFD值'ARIBA_RFQ'，
L_C_ZA类型相关值'ZA'。

* ---------------------- ------------------------------------------------ * < br> *内部表和工作区定义
* -------------------------------------- -------------------------------- *
数据：
BS01MMITEM的IT_ITEMS类型标准表，
BS01MMSCHEDULE的IT_SCHEDULES类型标准表，
BAPIPAREX的IT_EXTN类型标准表，
L_WA_EXTN TYPE BAPIPAREX，
IT_RETURN类型BAPIRET2_T，
IT_ERRORS类型EHFND T_SBJ_SRC_T100_KEYS。

在C_INPUT_TAB分配字段符号（）处循环。
*-填充日志标题-*
附加值#（MSGID = C_MSGID
MSGNO ='160 '
ATTR1 = -SUPPLIERCODE
ATTR2 = -ITEMCODE）到G_ERRORS。

*-验证是否存在任何具有相同物料代码和供应商的现有询价-*
IF LINE_EXISTS（G_QUOTATION [SUPPLIER = -SUPPLIERCODE
ITEM = -ITEMCODE]）。
IF -ETP> SYDATUM。
APPID = C（MSID = C
MSGNO ='000'
ATTR1 = TEXT-001
ATTR2 = TEXT-002
ATTR3 = TEXT-003）到G_ERRORS。
继续。
ENDIF。
ENDIF 。

*-填充标题-*
L_CNT_I = L_CNT_I + 10.
DATA（L_WA_HEADER）=值BS01MMHEAD（
CO_CODE = C_1000
DOC_CAT = C_A
DOC_TYPE ='ZH20'
DOC_DATE = -STARTMONTH
CREATED_ON = -STARTMONTH
ITEM_INTVL = C_0010
供应商= -SUPPLIERCODE
PURCH_OR = PUR_GROUP = C_ A01
QUOT_DEAD = -ETP
MAST_COND = ABAP_TRUE
语言=值#（G_SUPPLIER [SUPPLIER = -SUPPLIERCODE] -SUPPLIER
默认空间*）-）。 -填充项-*
DATA（L_WA_ITEMS）=值BS01MMITEM（
DOC_ITEM = L_CNT_I
SHORT_TEXT = -ITEMCODE
CO_CODE = C_1000
植物= C_1000
MAT_GRP = '01'
TARGET_QTY = C_9999
QUANTITY = C_9999
UNIT = C_TAG
ACCTASSCAT ='U'）。
将L_WA_ITEMS追加到IT_ITEMS。

*-填写时间表 行-*
DATA（L_WA_SCHEDULES）=值BS01MMSCHEDULE（
DOC_ITEM = L_CNT_I
SERIAL_NO =``
DEL_DATCAT ='1'
DELIV_DATE = -ETP QUANT = C_9999
CREATE_IND = C_R
DEL_DATCAT_EXT = C_D）。
将L_WA_SCHEDULES附加到IT_SCHEDULES。


*-调用FM创建RFQ-*
调用功能' BS01_MM_QUOTATION_CREATE'
导出
QUOTATION_HEADER = L_WA_HEADER
SKIP_ITEMS_WITH_ERROR = ABAP_TRUE
导入
报价= L_QUOTATION
表格
QUOTATION_ITEMS = IT_ITEMS
QUOTATION_ITEM_SCHEDULES = IT_SCHEDULES
RETURN = IT_RETURN
EXTENSIONIN = IT_EXTN。
如果L_QUOTATION不是初始的。
*-填写成功消息-*
附录 VALUE#（MSGID = C_MSGID
MSGNO ='161'
ATTR1 = L_QUOTATION）到G_ERRORS。
ELSE。
*-填写错误消息-*
IT_ERRORS = VALUE#（FOR L_WA_RETURN IN IT_RETURN
（MSGID = L_WA_RETURN-ID
MSGNO = L_WA_RETURN-NUMBER
ATTR1 = L_WA_RETURN-MESSAGE_V1
ATTR2 = L_WA_RETURN-MESSAGE_V2
ATTR3 = L_WA_RETURN-M -MESSAGE_V4））。
将IT_ERRORS的行追加到G_ERRORS。
ENDIF。

清除：
L_WA_HEADER，L_QUOTATION，IT_ITEMS，IT_SCHEDULES，IT_ERRORS，IT_RETURN，IT_EXTN。

> ENDLOOP。
ENDMETHOD。