BAPI_RESERVATION_CREATE--MB21

最新推荐文章于 2025-01-14 01:13:43 发布
最新推荐文章于 2025-01-14 01:13:43 发布 · 99 阅读 · 0

本文介绍了一个ABAP程序示例，该程序通过权限检查确保用户能够在指定工厂和移动类型下创建物料预留。程序还展示了如何使用内部表传递参数到BAPI并创建预留。

REPORT ZRES_311.

tables : RESB,
         T001W,
         MARA.

** Internal tables for BAPI call
data: begin of gm_header.
        include structure BAPIRKPFC.
data: end of gm_header.

data: begin of gm_item occurs 0.
        include structure BAPIRESBC.
data: end of gm_item.

data: begin of zreturn occurs 0.
        include structure BAPIRETURN.
data: end of zreturn.

DATA: AUTH_(1).

PARAMETERS X_BDTER LIKE RESB-BDTER DEFAULT SY-DATUM.
PARAMETERS X_WERKS LIKE RESB-WERKS.
PARAMETERS X_BWART LIKE RESB-BWART.
PARAMETERS X_REC01 LIKE RESB-UMLGO.
PARAMETERS X_ISS01 LIKE RESB-UMLGO.
SKIP.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 16(10) TEXT-010.
SELECTION-SCREEN COMMENT 37(10) TEXT-020.
SELECTION-SCREEN END OF LINE.
SKIP.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 05(10) TEXT-040.
PARAMETERS X_M01 LIKE RESB-MATNR.
SELECTION-SCREEN COMMENT 35(01) TEXT-050.
PARAMETERS X_Q01 LIKE RESB-ERFMG.
SELECTION-SCREEN END OF LINE.
SKIP.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 05(10) TEXT-040.
PARAMETERS X_M02 LIKE RESB-MATNR.
SELECTION-SCREEN COMMENT 35(01) TEXT-050.
PARAMETERS X_Q02 LIKE RESB-ERFMG.
SELECTION-SCREEN END OF LINE.
SKIP.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 05(10) TEXT-040.
PARAMETERS X_M03 LIKE RESB-MATNR.
SELECTION-SCREEN COMMENT 35(01) TEXT-050.
PARAMETERS X_Q03 LIKE RESB-ERFMG.
SELECTION-SCREEN END OF LINE.
SKIP.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 05(10) TEXT-040.
PARAMETERS X_M04 LIKE RESB-MATNR.
SELECTION-SCREEN COMMENT 35(01) TEXT-050.
PARAMETERS X_Q04 LIKE RESB-ERFMG.
SELECTION-SCREEN END OF LINE.
SKIP.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 05(10) TEXT-040.
PARAMETERS X_M05 LIKE RESB-MATNR.
SELECTION-SCREEN COMMENT 35(01) TEXT-050.
PARAMETERS X_Q05 LIKE RESB-ERFMG.
SELECTION-SCREEN END OF LINE.
SKIP.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 05(10) TEXT-040.
PARAMETERS X_M06 LIKE RESB-MATNR.
SELECTION-SCREEN COMMENT 35(01) TEXT-050.
PARAMETERS X_Q06 LIKE RESB-ERFMG.
SELECTION-SCREEN END OF LINE.
SKIP.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 05(10) TEXT-040.
PARAMETERS X_M07 LIKE RESB-MATNR.
SELECTION-SCREEN COMMENT 35(01) TEXT-050.
PARAMETERS X_Q07 LIKE RESB-ERFMG.
SELECTION-SCREEN END OF LINE.
SKIP.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 05(10) TEXT-040.
PARAMETERS X_M08 LIKE RESB-MATNR.
SELECTION-SCREEN COMMENT 35(01) TEXT-050.
PARAMETERS X_Q08 LIKE RESB-ERFMG.
SELECTION-SCREEN END OF LINE.
SKIP.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 05(10) TEXT-040.
PARAMETERS X_M09 LIKE RESB-MATNR.
SELECTION-SCREEN COMMENT 35(01) TEXT-050.
PARAMETERS X_Q09 LIKE RESB-ERFMG.
SELECTION-SCREEN END OF LINE.
SKIP.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 05(10) TEXT-040.
PARAMETERS X_M10 LIKE RESB-MATNR.
SELECTION-SCREEN COMMENT 35(01) TEXT-050.
PARAMETERS X_Q10 LIKE RESB-ERFMG.
SELECTION-SCREEN END OF LINE.

PERFORM AUTHORITY_CHECK.
PERFORM GM_DATA.
* CHECK WHETHER TABLE IS EMPTY
IF GM_ITEM[] is initial.
   FORMAT COLOR COL_NEGATIVE.
   WRITE: / 'All Material are EMPTY'.
ELSEIF AUTH_ = 'X'.
   FORMAT COLOR COL_NEGATIVE.
   WRITE: / 'Please obtain all your necessary Authorization'.
ELSE.
   PERFORM BAPI_CREATE_311.
ENDIF.

FORM AUTHORITY_CHECK.
   CLEAR AUTH_.
   FORMAT COLOR COL_NEGATIVE.

   AUTHORITY-CHECK OBJECT 'M_MRES_WWA'
   ID 'ACTVT' FIELD '03'
   ID 'WERKS' FIELD X_WERKS.
   IF SY-SUBRC NE 0.
      AUTH_ = 'X'.
      WRITE:/ 'You are not authorised for Plant :',  X_WERKS.
   ENDIF.

   AUTHORITY-CHECK OBJECT 'M_MRES_BWA'
   ID 'ACTVT' FIELD '03'
   ID 'BWART' FIELD X_BWART.
   IF SY-SUBRC NE 0.
      AUTH_ = 'X'.
      WRITE:/ 'You are not authorised for Movement Type :',  X_BWART.
   ENDIF.

   AUTHORITY-CHECK OBJECT 'M_MSEG_LGO'
   ID 'ACTVT' FIELD '03'
   ID 'BWART' FIELD X_REC01.
   IF SY-SUBRC NE 0.
      AUTH_ = 'X'.
      WRITE:/ 'You are not authorised for Storage Location :',  X_REC01.
   ENDIF.

   AUTHORITY-CHECK OBJECT 'M_MSEG_LGO'
   ID 'ACTVT' FIELD '03'
   ID 'BWART' FIELD X_ISS01.
   IF SY-SUBRC NE 0.
      AUTH_ = 'X'.
      WRITE:/ 'You are not authorised for Storage Location :',  X_ISS01.
   ENDIF.

   FORMAT COLOR OFF.
ENDFORM.

FORM GM_DATA.
     REFRESH GM_ITEM.
     CLEAR   GM_HEADER.

     GM_HEADER-RES_DATE   = X_BDTER.
     GM_HEADER-PLANT      = X_WERKS.
     GM_HEADER-MOVE_PLANT = X_WERKS.
     GM_HEADER-MOVE_STLOC = X_REC01.
     GM_HEADER-MOVE_TYPE  = X_BWART.
     GM_HEADER-CREATED_BY = SY-UNAME.
     TRANSLATE GM_HEADER TO UPPER CASE.

     GM_ITEM-REQ_DATE     = X_BDTER.
     GM_ITEM-MOVEMENT     = 'X'.
     GM_ITEM-PLANT        = X_WERKS.
     GM_ITEM-STORE_LOC    = X_ISS01.

     IF X_M01 <> SPACE.
        GM_ITEM-MATERIAL     = X_M01.
        GM_ITEM-QUANTITY     = X_Q01.
        PERFORM AUTHORITY_MARA.
        TRANSLATE GM_ITEM TO UPPER CASE.
        APPEND GM_ITEM.
     ENDIF.
     IF X_M02 <> SPACE.
        GM_ITEM-MATERIAL     = X_M02.
        GM_ITEM-QUANTITY     = X_Q02.
        PERFORM AUTHORITY_MARA.
        TRANSLATE GM_ITEM TO UPPER CASE.
        APPEND GM_ITEM.
     ENDIF.
     IF X_M03 <> SPACE.
        GM_ITEM-MATERIAL     = X_M03.
        GM_ITEM-QUANTITY     = X_Q03.
        PERFORM AUTHORITY_MARA.
        TRANSLATE GM_ITEM TO UPPER CASE.
        APPEND GM_ITEM.
     ENDIF.
     IF X_M04 <> SPACE.
        GM_ITEM-MATERIAL     = X_M04.
        GM_ITEM-QUANTITY     = X_Q04.
        PERFORM AUTHORITY_MARA.
        TRANSLATE GM_ITEM TO UPPER CASE.
        APPEND GM_ITEM.
     ENDIF.
     IF X_M05 <> SPACE.
        GM_ITEM-MATERIAL     = X_M05.
        GM_ITEM-QUANTITY     = X_Q05.
        PERFORM AUTHORITY_MARA.
        TRANSLATE GM_ITEM TO UPPER CASE.
        APPEND GM_ITEM.
     ENDIF.
     IF X_M06 <> SPACE.
        GM_ITEM-MATERIAL     = X_M06.
        GM_ITEM-QUANTITY     = X_Q06.
        PERFORM AUTHORITY_MARA.
        TRANSLATE GM_ITEM TO UPPER CASE.
        APPEND GM_ITEM.
     ENDIF.
     IF X_M07 <> SPACE.
        GM_ITEM-MATERIAL     = X_M07.
        GM_ITEM-QUANTITY     = X_Q07.
        PERFORM AUTHORITY_MARA.
        TRANSLATE GM_ITEM TO UPPER CASE.
        APPEND GM_ITEM.
     ENDIF.
     IF X_M08 <> SPACE.
        GM_ITEM-MATERIAL     = X_M08.
        GM_ITEM-QUANTITY     = X_Q08.
        PERFORM AUTHORITY_MARA.
        TRANSLATE GM_ITEM TO UPPER CASE.
        APPEND GM_ITEM.
     ENDIF.
     IF X_M09 <> SPACE.
        GM_ITEM-MATERIAL     = X_M09.
        GM_ITEM-QUANTITY     = X_Q09.
        PERFORM AUTHORITY_MARA.
        TRANSLATE GM_ITEM TO UPPER CASE.
        APPEND GM_ITEM.
     ENDIF.
     IF X_M10 <> SPACE.
        GM_ITEM-MATERIAL     = X_M10.
        GM_ITEM-QUANTITY     = X_Q10.
        PERFORM AUTHORITY_MARA.
        TRANSLATE GM_ITEM TO UPPER CASE.
        APPEND GM_ITEM.
     ENDIF.

ENDFORM.

FORM AUTHORITY_MARA.
   FORMAT COLOR COL_NEGATIVE.

   CLEAR MARA.
   SELECT SINGLE * FROM MARA WHERE MATNR = GM_ITEM-MATERIAL.

   AUTHORITY-CHECK OBJECT 'Z:EXTWG'
   ID 'ACTVT' FIELD '03'
   ID 'EXTWG' FIELD MARA-EXTWG.
   IF SY-SUBRC NE 0.
      AUTH_ = 'X'.
      WRITE:/ 'You are not authorised for this Parts :',
              MARA-MATNR, MARA-EXTWG.
   ENDIF.

   FORMAT COLOR OFF.
ENDFORM.

*---------------------------------------------------------------------*
*       FORM bapi_create_311                                          *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
form bapi_create_311.
  data: RES_NO like BAPIRKPFC-RES_NO,
        TLINES TYPE I.

  REFRESH ZRETURN.
  CLEAR   RES_NO.

call function 'BAPI_RESERVATION_CREATE'
  exporting
    reservation_header       = GM_HEADER
*   NO_COMMIT                =
  IMPORTING
    RESERVATION              = RES_NO
  tables
    reservation_items        = GM_ITEM
    RETURN                   = ZRETURN.

  COMMIT WORK.

  DESCRIBE TABLE ZRETURN LINES TLINES.
  IF TLINES GT 0.
    format color col_negative.
    write : / 'Update Failed.', zreturn-message(200), 255 ' '.
  ELSE.
    format color col_normal.
    WRITE : / RES_NO,
    'Reservation created successfully ', 255 ' '.
  ENDIF.
  FORMAT COLOR OFF.

* Delay
  CALL FUNCTION 'FMCT_WAIT_FOR_UPDATE'
         EXPORTING
              I_SEC = 4.

endform.

INITIALIZATION.
  CLEAR:
         X_M01, X_Q01,
         X_M02, X_Q02,
         X_M03, X_Q03,
         X_M04, X_Q04,
         X_M05, X_Q05.

  CASE SY-UNAME.

     WHEN 'USR01'.
         X_ISS01 = 'AAA'.

     WHEN 'USR02'.
         X_ISS01 = 'BBB'.

     WHEN OTHERS.
         X_ISS01 = 'CCC'.

  ENDCASE.

 



iteye_9825
关注
创建预留BAPI：BAPI_RESERVATION_C…
weixin_30300523的博客
01-22 466
创建预留BAPI：BAPI_RESERVATION_CREATE 创建预留BAPI：BAPI_RESERVATION_CREATE1 两个的具体区别看下描述就行， BAPI_RESERVATION_CREATE1好像是定制的， MB21创建应该是BAPI_RESERVATION_CREATE 前台：T_CODE:MB21--MB24 预留的手工创建 修改 显示，删除 创建预留时 行...
BAPI_RESERVATION_CREATE1 WEMPF 创建预留收货方问题
njZOOM的博客
07-28 3195
问题: GoodsRecipient on Reservation Header via BAPI (RKPF-WEMPF) I've created a program to create reservations usingBAPI_RESERVATION_CREATE1. The reservation gets created with all the items s
SAP BAPI-MM模块-预留创建-BAPI_RESERVATION_CREATE1-SE37函数测试(事务码MB21& 后台表RKPF RESB)超级干货系列
01-14 1462
SAP给常用的业务都预定义了BAPI，所以有需要的时候，就要找到对应的BAPI。为了降低测试过程中的报错，需要在写程序前，将需要调用的BAPI使用事务码SE37进行相关测试，以掌握具体的入参和出参等详细数据。显示预留12528创建成功，但是这个预留并没有写入到后台表，前台MB23也查询不到，要想使用BAPI创建采购申请并写入后台表，就需要使用SE37的测试序列功能。如何快速在BAPI中找到对应的BAPI组件并输入正确的值，就需要弄清楚每个组件的位置路径和名称 对应的前台字段或后台表字段 对应关系。
创建预留BAPI：BAPI_RESERVATION_CREATE1
森林木的博客
07-02 224
创建预留BAPI：BAPI_RESERVATION_CREATE创建预留BAPI：BAPI_RESERVATION_CREATE1看下就知道 第一个已经作废，用的是create1前台：T_CODE:MB21--MB24 预留的手工创建 修改 显示，删除创建预留时 行项目后面的'M'复选框如果不选要先下达，如果选上，可以直接对预留发货,下达就是用MB22 修改预留把M复选框选上.测试通过BAPI实现...
SAP ABAP BAPI_RESERVATION_CREATE1 EXTENSIONIN
SAP小趴菜
08-31 2079
1.创建结构，添加在RESB中不在BAPIRESERVATIONITEMS中的字段，譬如EBELN EBELP 2.BAPI中传入参数。 DATA:LI_EXTTYPETABLEOFBAPIPAREX. DATA:LW_EXTTYPEBAPIPAREX. DATA:Z_ZPPS604_STRTYPEZPPS604_STR. Z_ZPPS604_STR-EBELN=LS_INFOS-EBELN. Z_ZP...
ABAP学习1：创建预留 BAPI_RESERVATION_CREATE
weixin_44485085的博客
07-02 3278
ABAP学习1：创建预留 BAPI_RESERVATION_CREATE 前台操作： T-CODE:MB21 回车之后 点击保存 根据前台操作，可以看到这些赋值字段，那接下来使用BAPI直接执行 BAPI执行时可以输入的参数如下 RESERVATION_HEADER（抬头信息） PLANT=工厂 RES_DATE=系统日期 MOVE_TYPE=311 MOVE_STLOC=收货库存地点（对于311类型的预留，一张预留凭证“收货库存地点”只有一个） RESERVATION_ITEMS MATERI
创建预留BAPI：BAPI_RESERVATION_CREATE（BAPI_RESERVATION_CREATE1）_SAP刘梦_新浪博客
森林木的博客
12-28 2231
创建预留BAPI：BAPI_RESERVATION_CREATE 创建预留BAPI：BAPI_RESERVATION_CREATE1 两个用哪个？ 看下就知道 第一个已经作废，用的是create1 不过一般两个都能用，旧代码用的第一个，新代码写的时候用create1即可 这里demo 用的 BAPI_RESERVATION_CREATE1 前台：T_CODE:MB21--MB24 ...
BAPI_RESERVATION_CHANGE
08-06
- **新增行项目**：该BAPI不支持新增行项目，新增应使用`BAPI_RESERVATION_CREATE1`或预留单的增强修改（如预留单的更改函数组）。 引用说明：上述BAPI使用方法和注意事项参考自SAP预留单管理文档[^1]。 相关...
bapi BAPI_RESERVATION_CHANGE提示成功，但实际没有更新是怎么回事
08-15
这个防呆设计常被忽略，参考BAPI_RESERVATION_CREATE1的参数说明[^2]。当TESTRUN设为空时才是正式模式，但有些开发会习惯性设置为'X'来测试，导致后续正式运行时忘记关闭。 最后是错误处理逻辑。BAPI通常通过RETURN...
SAP 各模块常用的BAPI
昊宇的笔记本
06-16 3257
MM模块 1、 BAPI_MATERIAL_SAVEDATA 创建物料主数据 注意参数EXTENSIONIN的使用，可以创建自定义字段 例如：WA_BAPI_TE_MARA-MATERIAL = ITAB_UP-MATNR. T_EXTENSIONIN-STRUCTURE = 'BAPI_TE_MARA'. T_EXTENSIONIN-VALUEPART1 = WA_BAPI_TE_MARA. APPEND T_EXTENSIONIN. ...
SAP MM物料管理模块常见BAPI函数清单
saplakes的博客
01-04 790
SAP MM物料管理模块常见BAPI函数清单
bapi清单
wx358165717的专栏
11-15 1315
FICO模块： FB01创建会计凭证：BAPI_ACC_DOCUMENT_POST 检查会计凭证：BAPI_ACC_DOCUMENT_CHECK FB02修改会计凭证：FI_ITEMS_MASS_CHANGE FB08冲销会计凭证：BAPI_ACC_DOCUMENT_REV_POST FS00 创建总账科目：GL_ACCT_MASTER_SAVE AS01 创建固定资产：BAPI_FIXEDASSET_CREATE1 AS02更改固定资产转移：BAPI_FIXEDASSET_CHANGE.
基准测试使用BBO-PSO-GA附Matlab代码.rar
最新发布
12-09
1.版本：matlab2014/2019a/2024a 2.附赠案例数据可直接运行。 3.代码特点：参数化编程、参数可方便更改、代码编程思路清晰、注释明细。 4.适用对象：计算机，电子信息工程、数学等专业的大学生课程设计、期末大作业和毕业设计。
【无人机路径规划】基于冠豪猪优化算法的三维路径规划模型设计：多目标约束下安全高效飞行路径生成方法 项目介绍 Python实现基于冠豪猪优化算法（CPO）进行无人机三维路径规划（含模型描述及部分示例代码
12-09
内容概要：本文介绍了一个基于冠豪猪优化算法（CPO）的无人机三维路径规划项目，利用Python实现了在复杂三维环境中为无人机规划安全、高效、低能耗飞行路径的完整解决方案。项目涵盖空间环境建模、无人机动力学约束、路径编码、多目标代价函数设计以及CPO算法的核心实现。通过体素网格建模、动态障碍物处理、路径平滑技术和多约束融合机制，系统能够在高维、密集障碍环境下快速搜索出满足飞行可行性、安全性与能效最优的路径，并支持在线重规划以适应动态环境变化。文中还提供了关键模块的代码示例，包括环境建模、路径评估和CPO优化流程。; 适合人群：具备一定Python编程基础和优化算法基础知识，从事无人机、智能机器人、路径规划或智能优化算法研究的相关科研人员与工程技术人员，尤其适合研究生及有一定工作经验的研发工程师。; 使用场景及目标：①应用于复杂三维环境下的无人机自主导航与避障；②研究智能优化算法（如CPO）在路径规划中的实际部署与性能优化；③实现多目标（路径最短、能耗最低、安全性最高）耦合条件下的工程化路径求解；④构建可扩展的智能无人系统决策框架。; 阅读建议：建议结合文中模型架构与代码示例进行实践运行，重点关注目标函数设计、CPO算法改进策略与约束处理机制，宜在仿真环境中测试不同场景以深入理解算法行为与系统鲁棒性。
使用python语言的京东平台抢购脚本
12-09
先看效果： https://pan.quark.cn/s/4f231e33b729 auto-buy-Python-tool 图形界面, 电脑小白也会用, 下载可直接运行! 京东自动购买口罩 实时抢购口罩 工具, 抗击疫情 中国加油! :fire: 点击这里 下载, 解压后可直接运行! 欢迎加星 修复了商品下架后的问题, 更新了交互界面; 修复了可配货商品的判断, 更新了数量调整接口, 更新了是否监控下架商品选项 :star2: 使用指南 :notebookwithdecorative_cover: Tips: 登录一次之后本地会保存登录信息, 重启软件(注意重启之后也行)之后仍然可以记住账号登录信息, 重启之后只需点击"开始监控"就可以登录! 不必重复扫码! 运行界面如下图: interface Update at 2020-3-2: Continuously monitor goods removed from JD.monitorSoldOutGoods Update at 2020-2-15: quantity can be modifiedquantity 填写方式: Tips: 软件启动时带有标准填写格式的默认值, 请留意. 输入商品ID: 比如为: https://item.jd.com/1835967.html 的商品ID为1835967. 输入收件地区编码: 使用Chrome浏览器(如果是其他浏览器请用同样方式打开开发者工具)登录京东并访问商品页, 选择派送地址后按查找开头的讯息, 如下图: AreaID 接受讯息邮箱: 您的接受讯息邮箱. 滑动条: 控制监控时查询的速度(频率). 购买数量: 调整一次购买数量. 是否自动忽略下架商品: 未打...
clustering-results-PathologyGAN.csv
12-09
clustering-results-PathologyGAN.csv
简单的MQTT客户端工具V2.0源码
12-09
代码随便写的，将就看看吧 基于pyqt5开发的，功能简单的mqtt客户端工具 原文https://blog.youkuaiyun.com/weixin_45066336/article/details/122923967
sap BAPI_RESERVATION_CREATE和BAPI_RESERVATION_CREATE1
10-23
BAPI_RESERVATION_CREATE 和 BAPI_RESERVATION_CREATE1 是 SAP ABAP 中用于创建预留的函数模块。预留是指在 SAP 系统中对物料进行预先分配，以确保在需要时物料的可用性。 ### 使用方法 #### BAPI_RESERVATION_...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值