BAPI_REQUISITION_CREATE创建服务类的采购申请service 转

最新推荐文章于 2023-09-07 11:12:04 发布
最新推荐文章于 2023-09-07 11:12:04 发布
阅读量676 收藏 1
点赞数
report ZTEST_PR5.
DATA number LIKE bapieban-preq_no.

DATA: requisition_items LIKE bapiebanc OCCURS 0 WITH HEADER LINE,
requisition_account_assignment LIKE bapiebkn OCCURS 0 WITH HEADER LINE,
requisition_text LIKE bapiebantx OCCURS 0 WITH HEADER LINE,
requisition_limits LIKE bapiesuhc OCCURS 0 WITH HEADER LINE,
requisition_contract_limits LIKE bapiesucc OCCURS 0 WITH HEADER LINE,
requisition_services LIKE bapiesllc OCCURS 0 WITH HEADER LINE,
requisition_services_texts LIKE bapieslltx OCCURS 0 WITH HEADER LINE,
requisition_srv_accass_values LIKE bapiesklc OCCURS 0 WITH HEADER LINE,
return LIKE bapireturn OCCURS 0 WITH HEADER LINE.

requisition_items-preq_item = '00010'.
requisition_items-doc_type = 'NB'.
requisition_items-pur_group = '101'.
requisition_items-created_by = ''.
requisition_items-preq_name = ''.
requisition_items-preq_date = ''.
requisition_items-short_text = 'TESTING SERVICE ITEM'.
...

requisition_items-plant = '1001'.
...
requisition_items-mat_grp = 'S01010101'.
...
requisition_items-del_datcat = '1'.
requisition_items-deliv_date = '20120828'.
requisition_items-preq_date = sy-datum.
...
requisition_items-item_cat = '9'.
requisition_items-po_unit = ''.
requisition_items-acctasscat = 'K'.
requisition_items-quantity = '12.000'.
requisition_items-unit = 'AU'.
...
requisition_items-purch_org = ''.
...
requisition_items-pckg_no = '0000790669'.
APPEND requisition_items.



*REQUISITION_ACCOUNT_ASSIGNMENT-PREQ_NO = ''.
requisition_account_assignment-preq_item = '00010'.
requisition_account_assignment-serial_no = '01'.
...
requisition_account_assignment-preq_qty = '0.000'.
requisition_account_assignment-preq_unit = ''.
requisition_account_assignment-distr_perc = '0.0'.
requisition_account_assignment-g_l_acct = '4205030000'.
requisition_account_assignment-bus_area = ''.
requisition_account_assignment-co_area = 'CNOC'.
requisition_account_assignment-cost_ctr = '1001000008'.
requisition_account_assignment-funds_ctr = '0000000099999999'.
...
APPEND requisition_account_assignment.
**1.3.1. First line: Header line for service specifications
* requisition_services-pckg_no = '0000000001'.
* requisition_services-line_no = '0000000001'.
* requisition_services-ext_line = '0000000000'.
* ...
* requisition_services-subpckg_no = '0000000002'.
* requisition_services-service = ''.
* ...
* requisition_services-quantity = '0.000'.
* requisition_services-base_uom = ''.
* ...
* requisition_services-short_text = 'REQ_SERVICES SHORT_TEXT'.
* ...
* APPEND requisition_services.
* CLEAR requisition_services.
**1.3.2. Second line: Service with master
* requisition_services-pckg_no = '0000000002'.
* requisition_services-line_no = '0000000002'.
* requisition_services-ext_line = '0000000010'.
* ...
* requisition_services-subpckg_no = '0000000000'.
**requisition_services-service = '100290'.
* ...
* requisition_services-quantity = '220.000'.
* requisition_services-base_uom = 'CS'.
* requisition_services-gr_price = '1'.
* ...
* requisition_services-short_text = 'DDDDDDDDD'.
* ...
* APPEND requisition_services.
* CLEAR requisition_services.
****************************************************************
*1.3.3. Third line: Service without master
*requisition_services-pckg_no = '0000000002'.
*requisition_services-line_no = '0000000003'.
*requisition_services-ext_line = '0000000020'.
*...
*requisition_services-subpckg_no = '0000000000'.
*requisition_services-service = ''.
*...
*requisition_services-quantity = '8.000'.
*requisition_services-base_uom = 'CS'.
*requisition_services-gr_price = '12.0000'.
*...
*requisition_services-short_text = 'SERVICE WITHOUT MASTER'.
*...
*APPEND requisition_services.
*CLEAR requisition_services.
*1.4.
**1.4.1. Account assignment for the first service (with master)
* requisition_srv_accass_values-pckg_no = '0000000002'.
* requisition_srv_accass_values-line_no = '0000000002'.
* requisition_srv_accass_values-serno_line = '01'.
* requisition_srv_accass_values-percentage = '100.0'.
* requisition_srv_accass_values-serial_no = '01'.
* APPEND requisition_srv_accass_values.
* CLEAR requisition_srv_accass_values.
**1.4.2. Account assignment for the second service (without master)
* requisition_srv_accass_values-pckg_no = '0000000002'.
* requisition_srv_accass_values-line_no = '0000000003'.
* requisition_srv_accass_values-serno_line = '01'.
* requisition_srv_accass_values-percentage = ' 100.0'.
* requisition_srv_accass_values-serial_no = '01'.
* APPEND requisition_srv_accass_values.
* CLEAR requisition_srv_accass_values.



*2. Purchase requisition for services with limit -
* - single account assignment
*
*2.1. REQUISITION_ITEMS as 1.1. (see above)
*In the place of ITEM_CAT = 9, for a pure limit purchase requisition, you can also use ITEM_CAT = 1. Select DOC_TYPE = FO (framework purchase requisition) as document type in this case.
*
*2.2. REQUISITION_ACCOUNT_ASSIGNMENT as 1.2. (see above)
*
*2.3. REQUISITION_LIMITS
* PCKG_NO 0000000001
* LIMIT 1000
* NO_LIMIT
* EXP_VALUE 1000
* ...
* NO_FRLIMIT X
* ...
*
*2.4. REQUISITION_SRV_ACCASS_VALUES
* PCKG_NO 0000000001
* LINE_NO 0000000000
* SERNO_LINE 01
* PERCENTAGE 100,0
* SERIAL_NO 01
*
*
*BREAK-POINT.
*REFRESH return.
CALL FUNCTION 'BAPI_REQUISITION_CREATE'
* EXPORTING
* SKIP_ITEMS_WITH_ERROR =
* AUTOMATIC_SOURCE = 'X'
IMPORTING
number = number
TABLES
requisition_items = requisition_items
requisition_account_assignment = requisition_account_assignment
requisition_item_text = requisition_text
requisition_limits = requisition_limits
requisition_contract_limits = requisition_contract_limits
requisition_services = requisition_services
requisition_srv_accass_values = requisition_srv_accass_values
return = return
* requisition_services_text = requisition_services_text
* requisition_addrdelivery = requisition_addrdelivery
* extensionin = extensionin
.

COMMIT WORK.
BREAK-POINT.[@more@] report ZTEST_PR5.
DATA number LIKE bapieban-preq_no.

DATA: requisition_items LIKE bapiebanc OCCURS 0 WITH HEADER LINE,
requisition_account_assignment LIKE bapiebkn OCCURS 0 WITH HEADER LINE,
requisition_text LIKE bapiebantx OCCURS 0 WITH HEADER LINE,
requisition_limits LIKE bapiesuhc OCCURS 0 WITH HEADER LINE,
requisition_contract_limits LIKE bapiesucc OCCURS 0 WITH HEADER LINE,
requisition_services LIKE bapiesllc OCCURS 0 WITH HEADER LINE,
requisition_services_texts LIKE bapieslltx OCCURS 0 WITH HEADER LINE,
requisition_srv_accass_values LIKE bapiesklc OCCURS 0 WITH HEADER LINE,
return LIKE bapireturn OCCURS 0 WITH HEADER LINE.

requisition_items-preq_item = '00010'.
requisition_items-doc_type = 'NB'.
requisition_items-pur_group = '101'.
requisition_items-created_by = ''.
requisition_items-preq_name = ''.
requisition_items-preq_date = ''.
requisition_items-short_text = 'TESTING SERVICE ITEM'.
...

requisition_items-plant = '1001'.
...
requisition_items-mat_grp = 'S01010101'.
...
requisition_items-del_datcat = '1'.
requisition_items-deliv_date = '20120828'.
requisition_items-preq_date = sy-datum.
...
requisition_items-item_cat = '9'.
requisition_items-po_unit = ''.
requisition_items-acctasscat = 'K'.
requisition_items-quantity = '12.000'.
requisition_items-unit = 'AU'.
...
requisition_items-purch_org = ''.
...
requisition_items-pckg_no = '0000790669'.
APPEND requisition_items.



*REQUISITION_ACCOUNT_ASSIGNMENT-PREQ_NO = ''.
requisition_account_assignment-preq_item = '00010'.
requisition_account_assignment-serial_no = '01'.
...
requisition_account_assignment-preq_qty = '0.000'.
requisition_account_assignment-preq_unit = ''.
requisition_account_assignment-distr_perc = '0.0'.
requisition_account_assignment-g_l_acct = '4205030000'.
requisition_account_assignment-bus_area = ''.
requisition_account_assignment-co_area = 'CNOC'.
requisition_account_assignment-cost_ctr = '1001000008'.
requisition_account_assignment-funds_ctr = '0000000099999999'.
...
APPEND requisition_account_assignment.
**1.3.1. First line: Header line for service specifications
* requisition_services-pckg_no = '0000000001'.
* requisition_services-line_no = '0000000001'.
* requisition_services-ext_line = '0000000000'.
* ...
* requisition_services-subpckg_no = '0000000002'.
* requisition_services-service = ''.
* ...
* requisition_services-quantity = '0.000'.
* requisition_services-base_uom = ''.
* ...
* requisition_services-short_text = 'REQ_SERVICES SHORT_TEXT'.
* ...
* APPEND requisition_services.
* CLEAR requisition_services.
**1.3.2. Second line: Service with master
* requisition_services-pckg_no = '0000000002'.
* requisition_services-line_no = '0000000002'.
* requisition_services-ext_line = '0000000010'.
* ...
* requisition_services-subpckg_no = '0000000000'.
**requisition_services-service = '100290'.
* ...
* requisition_services-quantity = '220.000'.
* requisition_services-base_uom = 'CS'.
* requisition_services-gr_price = '1'.
* ...
* requisition_services-short_text = 'DDDDDDDDD'.
* ...
* APPEND requisition_services.
* CLEAR requisition_services.
****************************************************************
*1.3.3. Third line: Service without master
*requisition_services-pckg_no = '0000000002'.
*requisition_services-line_no = '0000000003'.
*requisition_services-ext_line = '0000000020'.
*...
*requisition_services-subpckg_no = '0000000000'.
*requisition_services-service = ''.
*...
*requisition_services-quantity = '8.000'.
*requisition_services-base_uom = 'CS'.
*requisition_services-gr_price = '12.0000'.
*...
*requisition_services-short_text = 'SERVICE WITHOUT MASTER'.
*...
*APPEND requisition_services.
*CLEAR requisition_services.
*1.4.
**1.4.1. Account assignment for the first service (with master)
* requisition_srv_accass_values-pckg_no = '0000000002'.
* requisition_srv_accass_values-line_no = '0000000002'.
* requisition_srv_accass_values-serno_line = '01'.
* requisition_srv_accass_values-percentage = '100.0'.
* requisition_srv_accass_values-serial_no = '01'.
* APPEND requisition_srv_accass_values.
* CLEAR requisition_srv_accass_values.
**1.4.2. Account assignment for the second service (without master)
* requisition_srv_accass_values-pckg_no = '0000000002'.
* requisition_srv_accass_values-line_no = '0000000003'.
* requisition_srv_accass_values-serno_line = '01'.
* requisition_srv_accass_values-percentage = ' 100.0'.
* requisition_srv_accass_values-serial_no = '01'.
* APPEND requisition_srv_accass_values.
* CLEAR requisition_srv_accass_values.



*2. Purchase requisition for services with limit -
* - single account assignment
*
*2.1. REQUISITION_ITEMS as 1.1. (see above)
*In the place of ITEM_CAT = 9, for a pure limit purchase requisition, you can also use ITEM_CAT = 1. Select DOC_TYPE = FO (framework purchase requisition) as document type in this case.
*
*2.2. REQUISITION_ACCOUNT_ASSIGNMENT as 1.2. (see above)
*
*2.3. REQUISITION_LIMITS
* PCKG_NO 0000000001
* LIMIT 1000
* NO_LIMIT
* EXP_VALUE 1000
* ...
* NO_FRLIMIT X
* ...
*
*2.4. REQUISITION_SRV_ACCASS_VALUES
* PCKG_NO 0000000001
* LINE_NO 0000000000
* SERNO_LINE 01
* PERCENTAGE 100,0
* SERIAL_NO 01
*
*
*BREAK-POINT.
*REFRESH return.
CALL FUNCTION 'BAPI_REQUISITION_CREATE'
* EXPORTING
* SKIP_ITEMS_WITH_ERROR =
* AUTOMATIC_SOURCE = 'X'
IMPORTING
number = number
TABLES
requisition_items = requisition_items
requisition_account_assignment = requisition_account_assignment
requisition_item_text = requisition_text
requisition_limits = requisition_limits
requisition_contract_limits = requisition_contract_limits
requisition_services = requisition_services
requisition_srv_accass_values = requisition_srv_accass_values
return = return
* requisition_services_text = requisition_services_text
* requisition_addrdelivery = requisition_addrdelivery
* extensionin = extensionin
.

COMMIT WORK.
BREAK-POINT.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/190059/viewspace-1059276/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/190059/viewspace-1059276/

cuixian9230
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
BAPI_PO_CREATE.zip_bapi_po_create help
09-22
通过JCo接口利用BAPI函数创建PO订单
修改采购申请BAPI
少年休闲海
04-21 3743
data: lt_items_old    like table of bapiebanv   with header line.data: lt_items_new    like table of bapiebanv   with header line.data: lt_account_old  like table of bapiebknv   with header line.data:...
采购申请：屏幕增强 、 BAPI增强、创建采购申 请代码
08-31
一、采购订单屏幕增强实现步骤 1 CMOD 创建增强组件 2 EBAN 表的 CI_EBANDB结构 新建增强字段 3 实现组件中的每个Include文件 4 屏幕号位置 5 逻辑流的状态栏和按钮事件Module创建 6.屏幕绘制 7 设置屏属性为子屏幕 8 创建include top ，定义全局变量 9 ZXM02TOP，编码 10 ZXM02U01，ZXM02U01 获得操作的方法 ，将对象中取到的数据 放到屏幕的结构中 11 ZXM02U03 将屏幕的字段值存入对象表中 12 ZXM02U07 采购订单初始进入时，对增强字段赋值 13 ZXM02ZZZ PBO 和 PAI 二、采购BAPI创建采购申请
如何利用BAPI_SALESORDER_CHANGE修改vbak增强字段
01-07
项目中遇到一个需求需要修改SO的抬头增强字段，通常增强字段只能通过BAPI的EXTENSIONIN和EXTENSIONINX参数传递。
凭证导入BAPI_ACC_DOCUMENT_POST
04-11
凭证导入 BAPI_ACC_DOCUMENT_POST
ABAP 采购申请创建BAPI_REQUISITION_CREATE
最新发布
qq_44826887的博客
09-07 797
此文的示例同时可创建一般采购申请或服务采购申请，当采购类型为Z007时，触发服务采购申请相关字段填写。
SAP 批量创建采购申请PR的BAPI ： BAPI_PR_CREATE 和 BAPI_REQUISITION_CREATE的区别
wxyix7的博客
08-03 1186
BAPI_REQUISITION_CREATE ：不会进入me51n的增强（ZME_PROCESS_REQ_CUST）如果有额外字段需要修改，需要用到table中的这个：EXTENSIONIN然后这样赋值：后面调用时：EXPORTINGIMPORTINGTABLES。
ABAP-PR审批策略函数：BAPI_REQUISITION_RELEASE
cly_apple的专栏
01-21 2317
BAPI_REQUISITION_CREATE与BAPI_PR_CREATE的相关解答_SAP刘梦_新浪博客
森林木的博客
05-31 1270
499627 2020-01-03 499627 - FAQ: BAPIs for purchase requisitions Version 23 Type SAP Note Language English Master Language German Priority Recommendations / Additional Info Category FAQ Relea...
BAPI_REQUISITION_CREATE 创建采购申请
盈于心胸，充塞天地
02-24 1119
当科目分配类别为M时 如果配置了科目自动过账，REQUISITION_ACCOUNT_ASSIGNMENT传销售订单号，科目号不能传，如果传了会报错： ME038 “对于总帐帐户 在公司码 中无直接记帐能被做”。正确是不传科目号，但是如果BAPI不能自动找到科目，会报错：06138 “不可能确定一个消耗帐户” 具体原因： ME51N会根据输入的销售订单以 KZBWS = '' 去查找自动过账的科目，查不到进函数SD_ORDER_CHECK，函数有个增强，增强里调用函数SD_DOCUMENT_ACCOU
BAPI_NETWORK_COMP_CHANGE 修改项目网络组件的BAPI
03-09
BAPI 修改CJ20N 创建的项目网络中的组件等信息 BAPI_NETWORK_COMP_CHANGE
采购申请行项目屏幕增强&BAPI传入自定义字段
04-13
详细介绍 采购申请行项目屏幕增强&BAPI传入自定义字段
BAPI_REQUISITION_CREATE创建服务类的采购申请service
sapkiller的专栏
12-01 2342
DATA number LIKE bapieban-preq_no. DATA: requisition_items   LIKE bapiebanc OCCURS 0 WITH HEADER LINE,       requisition_account_assignment LIKE bapiebkn OCCURS 0 WITH HEADER LINE,       requisitio
DEMO：创建PRBAPI_REQUISITION_CREATE_SAP刘梦_新浪博客
森林木的博客
12-08 207
*&---------------------------------------------------------------------* *& BAPI_REQUISITION_CREATE 和 BAPI_PR_CREATE 相关问题查看NOTE *& 499627 - FAQ BAPIs for purchase requisitions *&amp...
创建采购申请---BAPI_REQUISITION_CREATE
少年休闲海
04-28 9512
REPORT  Z_CREATE_PR. DATA: BEGIN OF GT_DATA1 OCCURS 0,             BSART   TYPE STRING, "凭证类型             BNFPO   TYPE STRING, "项目 *            KNTTP   TYPE STRING, "科目分配类别             MATNR
BAPI_REQUISITION_CREATE创建采购…
weixin_30758821的博客
01-22 336
最近一个开发，在eban里追加了字段， 调用bapi赋值总是赋不进去 后来发现找的结构名称不对，具体如下 是：BAPI_TE_REQUISITION_ITEM 不是BAPI_TE_MEREQITEM 实例代码如下： REPORTzlm_pr_create. DATA:pr_itemLIKETABLEOFbapiebancWITHHEADE...
创建PRBAPI报错：E00055fillinallrequiredentryfields_SAP刘梦_新浪博客
森林木的博客
03-15 855
使用的BAPI BAPI_REQUISITION_CREATE 发现部分数据没问题，有部分数据报错： E 00055 fill in all required entry fields 也没有消息号，然后就开始查物流哪儿没有维护。 中间曲折的过程就不说了， 这里说下找到缺失字段的debug方法 1）SE37 在函数ME_REQUISITION_EXT 打断点 ...
使用BAPI_REQUISITION_CREATE批量创建PR(采购申请)
王小磊
05-27 3905
原文地址： http://blog.chinaunix.net/u1/33519/showart.php?id=1674662 *&---------------------------------------------------------------------* *& Report ZMM_UPLOAD_PR *& *&----------------------------
BAPI_REQUISITION_CREATE创建采购申请简单案例，包含eban扩展字段赋值的_SAP刘梦_新浪博客...
森林木的博客
08-20 425
最近一个开发，在eban里追加了字段， 调用bapi赋值总是赋不进去 后来发现找的结构名称不对，具体如下 是：BAPI_TE_REQUISITION_ITEM 不是BAPI_TE_MEREQITEM 实例代码如下： REPORTzlm_pr_create. DATA:pr_itemLIKETABLEOFbapiebancWITHHEADER...
BAPI_REQUISITION_RELEASE_GEN
07-28
引用\[1\]: BAPI_REQUISITION_RELEASE_GEN是一个SAP SD模块中的函数模块，用于生成采购申请的发布。它可以通过调用该函数模块来自动发布采购申请，以便后续的采购流程可以进行。具体的使用方法和参数可以参考SAP的...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值