我在此处附加示例代码。

您可以使用REQUISITION_ITEMS-DOC_TYPE传递DOC_TYPE参数。

• 设置请购单

清除ATB_REQ_ITEM。

刷新ATB_REQ_ITEM。

禁令。

如果BAN-MAT_GRP ='020004'。

BAN-GR_IND =''。

ELSE。

BAN-GR_IND ='X'。

ENDIF。

BAN-IR_IND ='X'。

BAN-MATERIAL = BAN-PUR_MAT。

禁令分配='X'。

如果BAN-DOC_TYPE ='YC'。 "对于确认订单，采用要求价格

BAN-PO_PRICE ='2'。

ENDIF。

将禁令移动到ATB_REQ_ITEM。

APPEND ATB_REQ_ITEM。

ENDLOOP。

• 设置请购单会计信息

清除ATB_REQ_ITEM_ACCT。

刷新ATB_REQ_ITEM_ACCT。

在BSC上环游

将BSC移动到ATB_REQ_ITEM_ACCT。

• 如果要强制执行错误，请取消注释以下代码。

• 如果sy-tabix = 2。

• atb_req_item_acct-g_l_acct ='xxxxx'。

• ENDIF。

APPEND ATB_REQ_ITEM_ACCT。

ENDLOOP。

• 设置请购单文本信息

清除ATB_REQ_ITEM_TEXT。

刷新ATB_REQ_ITEM_TEXT。

在BANTX环游。

如果不是BANTX-TEXT_LINE是INITIAL，那么。

将对应的BANTX移动到ATB_REQ_ITEM_TEXT。

APPEND ATB_REQ_ITEM_TEXT。

ENDIF。

ENDLOOP。

清除ATB_RETURN。

刷新ATB_RETURN。

• Aufruf BAPI zum Erzeugen der Bestellanforderung

通话功能'BAPI_REQUISITION_CREATE'

导入

NUMBER = H_BANFN

表格

REQUISITION_ITEMS = ATB_REQ_ITEM

REQUISITION_ACCOUNT_ASSIGNMENT = ATB_REQ_ITEM_ACCT

REQUISITION_ITEM_TEXT = ATB_REQ_ITEM_TEXT

RETURN = ATB_RETURN

例外情况

OTHERS = 0。