SAP_ABAP_MM_BAPI清单案例教程——采购申请_BAPI_PR_CREATE_ME51N

已于 2023-10-24 13:50:12 修改
阅读量1.4k 收藏 6
点赞数 2
CC 4.0 BY-SA版权
分类专栏： SAP技术&业务实战专栏 文章标签： 经验分享 ABAP MM BAPI 采购申请 1024程序员节
于 2023-08-25 15:47:15 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/java_zhong1990/article/details/132494183

SAP ABAP 顾问（开发工程师）能力模型_企业数字化建设者的博客-优快云博客目标：基于对SAP abap 顾问能力模型的梳理，给一年左右经验的abaper 快速成长为三年经验提参考ALV/REPORT|SMARTFROM|SCREEN|OLE|BAPI|BDC|PI|IDOC|RFC|API|WEBSERVICE|Enhancement|UserExits|Badi|Debughttps://blog.youkuaiyun.com/java_zhong1990/article/details/132469977目标： 掌握SAP MM模块，主要流程相关的BAPI 函数的使用，主要有如下模块：

询价 报价 货源清单 配额安排 

了解本专栏 订阅专栏 解锁全文 超级会员免费看
SAP_ABAP_MM_BAPI清单案例教程——采购订单_BAPI_PO_CREATE1_ME21N
java_zhong1990的专栏
08-28 2116
SAP_MM_ABAP BAPI_PO_CREATE1， 采购订单创建 ，代码模版
SAP_ABAP_MM_BAPI清单案例教程——框架协议-计划协议_BAPI_SAG_CREATE_ME31L
java_zhong1990的专栏
08-25 777
BAPI_SAG_CREATE SAP ABAP 框架协议函数创建, 代码模块
ABAP 采购申请创建BAPI_REQUISITION_CREATE
谁的博客来着？
09-07 2063
此文的示例同时可创建一般采购申请或服务采购申请，当采购类型为Z007时，触发服务采购申请相关字段填写。
SAP BAPI-MM模块-采购申请创建-BAPI_PR_CREATE (需要COMMIT)-SE37函数测试(事务码ME51N & 后台表EBAN EBKN)超级干货系列
01-12 2143
在实战项目上，存在外部接口业务或批导或功能程序时，需要在开发程序中调用SAP标准业务应用程序接口，就是经常听到的BAPI。SAP给常用的业务都预定义了BAPI，所以有需要的时候，就要找到对应的BAPI。需要对BAPI的结构和字段非常熟悉，否则不能正确的使用BAPI，从而导致各种报错。为了降低测试过程中的报错，需要在写程序前，将需要调用的BAPI使用事务码SE37进行相关测试，以掌握具体的入参和出参等详细数据。
BAPI_REQUISITION_CREATE创建采购申请的使用方法
popo1987mm的博客
07-16 1177
是SAP ERP系统中用于创建采购申请（Purchase Requisition, PR）的一个业务应用程序接口（Business Application Programming Interface, BAPI）。通过调用此BAPI，可以在ABAP程序中自动化地创建采购申请。以下是使用。
SAP 批量创建采购申请PR的BAPI ： BAPI_PR_CREATE 和 BAPI_REQUISITION_CREATE的区别
wxyix7的博客
08-03 2638
BAPI_REQUISITION_CREATE ：不会进入me51n的增强（ZME_PROCESS_REQ_CUST）如果有额外字段需要修改，需要用到table中的这个：EXTENSIONIN然后这样赋值：后面调用时：EXPORTINGIMPORTINGTABLES。
创建采购申请(BAPI_REQUISITION_CREATE / BAPI_PR_CREATE)_SAP刘梦_新浪博客
森林木的博客
07-05 3721
*&---------------------------------------------------------------------* *& Report ZLM_TEST_028 *& *&---------------------------------------------------------------------* *&amp...
SAP_ABAP_MM_BAPI清单案例教程——采购订单收货_BAPI_GOODSMVT_CREATE_MIGO
java_zhong1990的专栏
08-28 1851
SAP ABAP MM MIGO BAPI_GOODSMVT_CREATE 采购订单收货 代码模版 移动类型 收货过账
SAP_ABAP_MM_BAPI清单案例教程——框架协议-合同_BAPI_CONTRACT_CREATE_ME31K
java_zhong1990的专栏
08-24 1148
BAPI_CONTRACT_CREATE BAPI_CONTRACT_CHANGE SAP ABAP 采购框架协议合同创建
【SAP Abap】SAP采购订单创建 BAPI_PO_CREATE1 使用详解
sap_abap_kang的博客
08-26 6097
（1）创建 PO 时，如果勾选了“信息更新”，则该 PO 保存后相应的信息记录会把该 PO 更新为其最后的凭证，那么该 PO 的净价将会作为下次创建新 PO 时净价的默认值。（3）lt_poitem-ematerial，当在同一个 BAPI COMMIT 中多次调用 BAPI_PO_CREATE1 时，需要赋值该字段，否则会在第一次的BAPI调用中自动赋值等于 lt_poitem-material，并在后续调用中自动记忆该值，导致后续BAPI调用报错（实际遇到的问题，该字段具体用途还不明确）。
【MM系列】SAP MM模块-BAPI：BAPI_GOODSMVT_CREATE的CODE分析
ARICK2014的博客
07-12 519
公众号：SAP Technical 本文作者：matinal 原文出处：http://www.cnblogs.com/SAPmatinal/ 原文链接：【MM系列】SAP MM模块-BAPI：BAPI_GOODSMVT_CREATE的CODE分析 前言部分 大家可以关注我的公众号，公众号里的排版更好，阅读更舒适。 正文部分 货物移动的bapi BAPI_...
ABAP中采购申请转采购订单的BAPI使用方法
popo1987mm的博客
07-15 1224
在ABAP中，将采购申请转换为采购订单通常不直接通过一个简单的BAPI调用完成，而是涉及一系列的业务逻辑和可能的用户交互。然而，SAP提供了一些BAPI，可以用于处理采购订单和采购申请的相关操作，这些可以作为实现采购申请到采购订单转换的一部分。
SAP BAPI-MM模块-采购申请整单审批-BAPI_REQUISITION_RELEASE_GEN-SE37函数测试(事务码ME54N ME55 &后台表EBAN T16FC)超级干货系列
01-26 1526
SAP给常用的业务都预定义了BAPI，所以有需要的时候，就要找到对应的BAPI。为了降低测试过程中的报错，需要在写程序前，将需要调用的BAPI使用事务码SE37进行相关测试，以掌握具体的入参和出参等详细数据。如何快速在BAPI中找到对应的BAPI组件并输入正确的值，就需要弄清楚每个组件的位置路径和名称 对应的前台字段或后台表字段 对应关系。备注：上面的代码亲测有效，可以直接粘贴测试使用（需要把相关参数更改为目标系统的测试数据即可，例如：采购申请等）。BAPI冲销物料凭证已经存后台表。
SAP MM模块 常用Bapi
forever_crazy的专栏
06-26 5385
1.sap货物移动相关的bapi(MIGO/MB1A) 货物移动的bapi  BAPI_GOODSMVT_CREATE 其中 参数 ： GOODSMVT_CODE 有 GMCODE Table T158G - 01 - MB01 - Goods Receipts for Purchase Order *                     02 - MB31 - Goods Rece
SAP ABAP 业务对象 BUS2105 PurchaseRequisition 采购申请 BAPI 清单和相关 TCODE
SAP李斌，本人承诺所有原创文章均不使用任何AI生成技术，请大家放心阅读。
02-05 935
SAP ABAP 业务对象 BUS2105 PurchaseRequisition 采购申请 BAPI 清单和相关 TCODE。
ABAP 采购申请审批BAPI_REQUISITION_RELEASE_GEN
谁的博客来着？
09-07 829
【代码】ABAP 采购申请审批BAPI_REQUISITION_RELEASE_GEN。
【ABAP】采购申请自定义审批策略的实现
少年休闲海
12-09 1155
采购申请自定义审批策略的实现 一、自定义审批策略和流程 首先需要确定审批策略，通常以部门为基准来建立，然后新建一个自定义表，维护申请者和审批策略之间的关系。 比如采购一部：Z1 旗下多个业务员（由于ERP ID个人化程度很高）均分配此审批策略“Z1”。 接着需要针对策略维护审批流。 比如上面的审批策略“Z1”需要以下四人进行审批： 采购一部经理→ 采购副总→ 财务经理→ 子公司经理 最后创建审批对象表及审批Log表，包含采购申请及审批状态。 二、采购申请
SAP_MM常用BAPI
SAP旅途
06-05 2555
1、收货/货物移动：BAPI_GOODSMVT_CREATE，对应的T-code: MIGO、MB1A、MB1B、MB1C 2、创建采购订单：BAPI_PO_CREATE1 3、
ABAP 通过接口，批量创建采购申请（BAPI_PR_CREATE_MULTI_ITEM）.不使用CLASS
最新发布
07-09
以下是一个不使用CLASS的ABAP程序，通过BAPI `BAPI_PR_CREATE_MULTI_ITEM` 批量创建采购申请，并将成功/失败信息记录到自定义日志表中： ```ABAP REPORT z_create_pr_batch_bapi. * 自定义日志表定义（需提前创建） TABLES: zmm_pr_log. * 选择屏幕 SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001. PARAMETERS: p_test TYPE c AS CHECKBOX DEFAULT 'X' USER-COMMAND test, "测试运行 p_commit TYPE c AS CHECKBOX DEFAULT 'X'. "提交标志 SELECTION-SCREEN END OF BLOCK b1. INITIALIZATION. TEXT-001 = '批量创建采购申请选项'. * 内部表定义 DATA: gt_pr_items TYPE TABLE OF bapimemory, "采购申请项目数据 gs_pr_item TYPE bapimemory, gt_return TYPE TABLE OF bapiret2, "返回消息 gs_return TYPE bapiret2, gv_pr_no TYPE eban-banfn, "生成的采购申请号 gv_subrc LIKE sy-subrc. * 主程序 START-OF-SELECTION. PERFORM prepare_pr_data. PERFORM create_pr_via_bapi. PERFORM display_result. *&---------------------------------------------------------------------* *& Form PREPARE_PR_DATA *&---------------------------------------------------------------------* * 准备采购申请数据 *----------------------------------------------------------------------* FORM prepare_pr_data. CLEAR gt_pr_items[]. "示例数据1 - 办公用品 gs_pr_item-banfn = ''. "留空表示新建 gs_pr_item-bnfpo = '00010'. gs_pr_item-bsart = 'NB'. "采购申请类型 gs_pr_item-matnr = 'MAT001'. "物料编号 gs_pr_item-menge = '10'. "数量 gs_pr_item-meins = 'EA'. "单位 gs_pr_item-werks = '1000'. "工厂 gs_pr_item-lgort = '0001'. "库存地点 gs_pr_item-afnam = sy-uname. "申请人 gs_pr_item-badat = sy-datum. "申请日期 gs_pr_item-ekgrp = '001'. "采购组 APPEND gs_pr_item TO gt_pr_items. CLEAR gs_pr_item. "示例数据2 - IT设备 gs_pr_item-banfn = ''. gs_pr_item-bnfpo = '00020'. gs_pr_item-bsart = 'NB'. gs_pr_item-matnr = 'MAT002'. gs_pr_item-menge = '5'. gs_pr_item-meins = 'EA'. gs_pr_item-werks = '1000'. gs_pr_item-lgort = '0001'. gs_pr_item-afnam = sy-uname. gs_pr_item-badat = sy-datum. gs_pr_item-ekgrp = '002'. APPEND gs_pr_item TO gt_pr_items. CLEAR gs_pr_item. ENDFORM. " PREPARE_PR_DATA *&---------------------------------------------------------------------* *& Form CREATE_PR_VIA_BAPI *&---------------------------------------------------------------------* * 通过BAPI创建采购申请 *----------------------------------------------------------------------* FORM create_pr_via_bapi. CLEAR: gt_return[], gv_pr_no, gv_subrc. "调用BAPI创建采购申请 CALL FUNCTION 'BAPI_PR_CREATE_MULTI_ITEM' EXPORTING pr_header = VALUE bapimepoheader( "抬头数据（可选） pr_type = 'NB' "采购申请类型 doc_date = sy-datum purch_org = '1000' "采购组织 pur_group = '001' "采购组 company = '1000' "公司代码 ) IMPORTING number = gv_pr_no "返回的采购申请号（仅单申请时有效） TABLES pr_items = gt_pr_items "项目数据 return = gt_return. "返回消息 "分析返回结果 PERFORM analyze_bapi_result. "记录日志 PERFORM write_log. "提交或回滚 IF p_commit = 'X' AND gv_subrc = 0. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. WRITE: / '数据已提交'. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. WRITE: / '数据未提交（测试模式或发生错误）'. ENDIF. ENDFORM. " CREATE_PR_VIA_BAPI *&---------------------------------------------------------------------* *& Form ANALYZE_BAPI_RESULT *&---------------------------------------------------------------------* * 分析BAPI执行结果 *----------------------------------------------------------------------* FORM analyze_bapi_result. READ TABLE gt_return INTO gs_return WITH KEY type = 'E'. IF sy-subrc = 0. gv_subrc = 4. "显示所有错误消息 LOOP AT gt_return INTO gs_return WHERE type = 'E' OR type = 'A'. MESSAGE ID gs_return-id TYPE gs_return-type NUMBER gs_return-number WITH gs_return-message_v1 gs_return-message_v2 gs_return-message_v3 gs_return-message_v4. ENDLOOP. ELSE. gv_subrc = 0. "显示成功消息 LOOP AT gt_return INTO gs_return WHERE type = 'S'. MESSAGE ID gs_return-id TYPE gs_return-type NUMBER gs_return-number WITH gs_return-message_v1 gs_return-message_v2 gs_return-message_v3 gs_return-message_v4. ENDLOOP. ENDIF. ENDFORM. " ANALYZE_BAPI_RESULT *&---------------------------------------------------------------------* *& Form WRITE_LOG *&---------------------------------------------------------------------* * 写入日志表 *----------------------------------------------------------------------* FORM write_log. DATA: lv_log_id TYPE char30. "生成日志ID CONCATENATE sy-datum sy-uzeit sy-uname INTO lv_log_id. "处理每个项目 LOOP AT gt_pr_items INTO gs_pr_item. CLEAR zmm_pr_log. zmm_pr_log-log_id = lv_log_id. zmm_pr_log-log_date = sy-datum. zmm_pr_log-log_time = sy-uzeit. zmm_pr_log-user_name = sy-uname. zmm_pr_log-pr_item = gs_pr_item-bnfpo. zmm_pr_log-matnr = gs_pr_item-matnr. zmm_pr_log-menge = gs_pr_item-menge. zmm_pr_log-werks = gs_pr_item-werks. "确定状态和消息 IF gv_subrc = 0. zmm_pr_log-status = 'S'. "成功 zmm_pr_log-message = '采购申请项目创建成功'. "获取实际创建的采购申请号（多项目时需从返回消息中解析） READ TABLE gt_return INTO gs_return WITH KEY type = 'S' id = 'MM' number = '601'. IF sy-subrc = 0. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = gs_return-message_v1 IMPORTING output = zmm_pr_log-pr_no. ENDIF. ELSE. zmm_pr_log-status = 'E'. "错误 "收集错误消息 LOOP AT gt_return INTO gs_return WHERE row = sy-tabix. CONCATENATE zmm_pr_log-message gs_return-message INTO zmm_pr_log-message SEPARATED BY space. ENDLOOP. ENDIF. "写入日志 INSERT zmm_pr_log. IF sy-subrc <> 0. WRITE: / '日志写入失败:', zmm_pr_log-pr_item. ENDIF. ENDLOOP. "批量提交日志 IF p_commit = 'X'. COMMIT WORK. ELSE. ROLLBACK WORK. ENDIF. ENDFORM. " WRITE_LOG *&---------------------------------------------------------------------* *& Form DISPLAY_RESULT *&---------------------------------------------------------------------* * 显示处理结果 *----------------------------------------------------------------------* FORM display_result. WRITE: / '处理完成，详细结果请查看日志表ZMM_PR_LOG'. WRITE: / '日志ID:', lv_log_id. "显示概览 DATA: lv_success TYPE i, lv_fail TYPE i. SELECT COUNT(*) FROM zmm_pr_log WHERE log_id = lv_log_id AND status = 'S'. lv_success = sy-dbcnt. SELECT COUNT(*) FROM zmm_pr_log WHERE log_id = lv_log_id AND status = 'E'. lv_fail = sy-dbcnt. WRITE: / '成功项目:', lv_success, / '失败项目:', lv_fail. ENDFORM. " DISPLAY_RESULT ``` --- ### **关键功能说明** #### **1. BAPI调用核心逻辑** ```ABAP CALL FUNCTION 'BAPI_PR_CREATE_MULTI_ITEM' EXPORTING pr_header = VALUE bapimepoheader( "可选抬头数据 pr_type = 'NB' doc_date = sy-datum ) IMPORTING number = gv_pr_no "返回的采购申请号（单申请时有效） TABLES pr_items = gt_pr_items "项目数据 return = gt_return. "返回消息 ``` #### **2. 数据准备** - 使用内部表`gt_pr_items`（类型为`BAPIMEMORY`）准备项目数据 - 关键字段： - `BANFN`：留空表示新建 - `BNFPO`：项目号（需唯一） - `BSART`：采购申请类型（如NB标准采购申请） - `MATNR`/`MENGE`/`MEINS`：物料信息 - `WERKS`/`LGORT`：工厂和库存地点 #### **3. 结果处理** - 通过`gt_return`表分析执行结果： ```ABAP READ TABLE gt_return INTO gs_return WITH KEY type = 'E'. IF sy-subrc = 0. "存在错误 ENDIF. ``` #### **4. 日志记录** - 自定义日志表`ZMM_PR_LOG`记录处理结果 - 关键字段： - `LOG_ID`：处理批次ID - `PR_NO`：生成的采购申请号 - `STATUS`：处理状态（S/E） - `MESSAGE`：处理消息 --- ### **增强建议** 1. **从Excel导入数据**： ```ABAP " 使用OLE或ABAP2XLSX读取Excel数据 DATA: lt_excel_data TYPE TABLE OF zexcel_structure. " 填充gt_pr_items LOOP AT lt_excel_data INTO ls_excel_data. MOVE-CORRESPONDING ls_excel_data TO gs_pr_item. APPEND gs_pr_item TO gt_pr_items. ENDLOOP. ``` 2. **多申请处理**： ```ABAP " 按工厂/采购组分组创建不同申请 SORT gt_pr_items BY werks ekgrp. DATA: lv_current_group TYPE char20. LOOP AT gt_pr_items INTO gs_pr_item. AT NEW werks. " 新建申请组 ENDAT. " 添加到当前申请 AT END OF werks. " 提交当前申请组 ENDAT. ENDLOOP. ``` 3. **账户分配处理**： ```ABAP " 在项目数据中添加账户分配 gs_pr_item-account_assignment = 'X'. gs_pr_item-kostl = '1000'. "成本中心 gs_pr_item-sakto = '0000400000'. "总账科目 ``` 4. **增强错误处理**： ```ABAP " 解析返回消息获取具体错误 LOOP AT gt_return INTO gs_return WHERE row = sy-tabix. CASE gs_return-id. WHEN 'MM'. CASE gs_return-number. WHEN '601'. "成功消息 WHEN '602'. "错误消息 ENDCASE. ENDCASE. ENDLOOP. ``` --- ### **常见问题处理** 1. **BAPI返回消息解析**： - 成功消息：`MM 601`（采购申请XXX已创建） - 常见错误： - `MM 602`：必输字段缺失 - `MM 603`：物料主数据不存在 2. **性能优化**： ```ABAP " 批量处理时显示进度 DATA: lv_total TYPE i, lv_count TYPE i. DESCRIBE TABLE gt_pr_items LINES lv_total. LOOP AT gt_pr_items INTO gs_pr_item. lv_count = sy-tabix. CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING percentage = lv_count * 100 / lv_total text = '正在处理项目...'. " 处理逻辑 ENDLOOP. ``` 3. **字段验证**： ```ABAP " 在调用BAPI前验证必输字段 LOOP AT gt_pr_items INTO gs_pr_item. IF gs_pr_item-matnr IS INITIAL. MESSAGE '物料编号不能为空' TYPE 'E'. EXIT. ENDIF. ENDLOOP. ``` --- ### **部署注意事项** 1. **日志表创建**： - 使用SE11创建透明表`ZMM_PR_LOG` - 关键字段：`LOG_ID`, `PR_NO`, `STATUS`, `MESSAGE` 2. **权限控制**： ```ABAP AUTHORITY-CHECK OBJECT 'M_BEST_EKO' ID 'ACTVT' FIELD '01' "创建权限 ID 'EKORG' FIELD '1000'. IF sy-subrc <> 0. MESSAGE '无采购申请创建权限' TYPE 'E'. ENDIF. ``` 3. **测试建议**： - 先使用`p_test = 'X'`运行，不提交数据 - 检查日志表中的模拟结果 - 确认无误后取消测试模式 ---
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

SAP社区

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值