1业务说明

当寻源后，将寻源结果汇总，并创建采购申请，之后据此创建采购订单。

此文档使用BAPI：BAPI_REQUISITION_CREATE创建采购申请

2前台实现

事务代码：ME51N

3代码实现

3.1调用BAPI

传入相应的行项目数据

导入BAPI

3.2扩展字段

在EBAN表中增加自定义字段

在结构BAPI_TE_REQUISITION_ITEM中定义采购申请项目编号字段，该字段必须有，也必须传值。将结构CI_EBANDB引用进来。

将行项目和申请原因等字段传入结构中，再赋值给BAPI扩展内表GT_EXTENSION，传入BAPI中

创建后，采购申请原因已经传入成功

3.3创建服务类采购申请

创建服务类申请没有物料号，输入相应的数据

首先创建三个变量，用于存储几个编号

在行项目中需要传入软件包编号

输入总账科目和成本中心，并赋值序列号

在服务行中，先输入软件父包

再添加软件子包

在REQUISITION_SRV_ACCASS_VALUES中添加软件子包对应的信息

最后调用BAPI创建成功

软件包的流水号维护在这个对象中，但是在BAPI赋值的时候，直接赋值0000000001即可，如果通过流水号获取赋值进去，反倒不成功。

原因猜测可能是，系统每次都自动获取，不采用付的值，但是如果使用了流水号函数就打乱了系统自己赋值的逻辑。所以在BAPI中赋值0000000001和子包在此上+1，将服务行的父包和子包关联起来即可。

采购申请保存在EBAN表中，服务保存在ESLL表中。

3.4源代码

"-----------------------------@斌将军-----------------------------

DATA:LV_NUMBER    TYPE BAPIMEREQHEADER-PREQ_NO,

     GT_ITEM      TYPE TABLE OF BAPIEBANC,

     GS_ITEM      TYPE BAPIEBANC,

     GT_EXTENSION TYPE TABLE OF BAPIPAREX,

     GS_EXTENSION TYPE BAPIPAREX,

     GT_RETURN    TYPE TABLE OF BAPIRETURN,

     GS_RETURN    TYPE BAPIRETURN.

DATA:LV_MESSAGE TYPE CHAR200,

     LV_CHECK   TYPE CHAR1.

CLEAR:GS_ITEM.

GS_ITEM-PREQ_ITEM = '10'."行项目号

GS_ITEM-DOC_TYPE = 'CKSG'."采购申请凭证类型

GS_ITEM-PUR_GROUP = 'C10'."采购组

GS_ITEM-MATERIAL = '405481'."物料号

GS_ITEM-PLANT     = '2000'.   "工厂

GS_ITEM-STORE_LOC     = '2007'.   "库存地点

GS_ITEM-QUANTITY  = '1'."数量

GS_ITEM-PREQ_DATE = SY-DATUM."需求日期

GS_ITEM-TRACKINGNO = ''."需求跟踪号

GS_ITEM-FIXED_VEND = ''."固定供应商

GS_ITEM-PREQ_NAME = 'SRM'."申请者

GS_ITEM-VAL_TYPE = 'CR'."评估类型

GS_ITEM-DELIV_DATE = '20200129'."交货日期

GS_ITEM-UNIT = 'PC'."计量单位

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

  EXPORTING

    INPUT  = GS_ITEM-MATERIAL"物料号

  IMPORTING

    OUTPUT = GS_ITEM-MATERIAL.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

  EXPORTING

    INPUT  = GS_ITEM-FIXED_VEND"固定供应商

  IMPORTING

    OUTPUT = GS_ITEM-FIXED_VEND.

CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT'

  EXPORTING

    INPUT    = GS_ITEM-UNIT"计量单位

    LANGUAGE = SY-LANGU

  IMPORTING

    OUTPUT   = GS_ITEM-UNIT.

APPEND GS_ITEM TO GT_ITEM.

CLEAR:GS_EXTENSION.

GS_EXTENSION-STRUCTURE = 'BAPI_TE_REQUISITION_ITEM'.

GS_EXTENSION-VALUEPART1 = GS_ITEM-PREQ_ITEM && GS_ITEM-PREQ_NAME."申请原因

APPEND GS_EXTENSION TO GT_EXTENSION.

CLEAR:LV_NUMBER.

CALL FUNCTION 'BAPI_REQUISITION_CREATE'

  EXPORTING

*   SKIP_ITEMS_WITH_ERROR                = gt_item

    AUTOMATIC_SOURCE  = ' '

  IMPORTING

    NUMBER            = LV_NUMBER

  TABLES

    REQUISITION_ITEMS = GT_ITEM

*   REQUISITION_ACCOUNT_ASSIGNMENT       =

*   REQUISITION_ITEM_TEXT                =

*   REQUISITION_LIMITS                   =

*   REQUISITION_CONTRACT_LIMITS          =

*   REQUISITION_SERVICES                 =

*   REQUISITION_SRV_ACCASS_VALUES        =

    RETURN            = GT_RETURN

*   REQUISITION_SERVICES_TEXT            =

*   REQUISITION_ADDRDELIVERY             =

    EXTENSIONIN       = GT_EXTENSION.

LV_CHECK = 'S'.

LOOP AT GT_RETURN INTO GS_RETURN WHERE TYPE = 'A' OR TYPE = 'E'.

  LV_MESSAGE = LV_MESSAGE && GS_RETURN-MESSAGE.

  LV_CHECK = 'E'.

ENDLOOP.

IF LV_CHECK = 'S'.

  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

    EXPORTING

      WAIT = 'X'.

  WRITE:LV_NUMBER.

ELSE.

  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

ENDIF. 

------------------服务类采购申请源代码---------------------

*&---------------------------------------------------------------------*

*& Report  ZLCCTEST019

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

REPORT ZLCCTEST019.

DATA:GT_ITEM           TYPE TABLE OF BAPIEBANC,

     GS_ITEM           TYPE BAPIEBANC,

     GT_SER            TYPE TABLE OF BAPIESLLC,

     GS_SER            TYPE BAPIESLLC,

     GT_SER_VALUES     TYPE TABLE OF BAPIESKLC,

     GS_SER_VALUES     TYPE BAPIESKLC,

     GT_WBS            TYPE TABLE OF BAPIEBKN,

     GS_WBS            TYPE  BAPIEBKN,

     GT_RETURN         TYPE TABLE OF BAPIRETURN,

     L_NO1             TYPE BAPIMEREQHEADER-PREQ_NO,

     LV_MESSAGE        TYPE CHAR200,

     LV_PCKG_NO        TYPE BAPIEBANC-PCKG_NO VALUE 0000000001, "软件包编号

     LV_ACCASSERIAL_NO TYPE BAPIEBKN-SERIAL_NO VALUE 01, "序列号

     LV_LINE_NO        TYPE BAPIESLLC-LINE_NO VALUE 1. "内部行编号

GS_ITEM-PREQ_ITEM = '00010'.

GS_ITEM-DOC_TYPE = 'CKSR'.

GS_ITEM-PLANT = '2000'.

GS_ITEM-QUANTITY = '1'."数量

GS_ITEM-PREQ_NAME = '123'."申请者

GS_ITEM-UNIT = 'LE'."计量单位

GS_ITEM-ACCTASSCAT = 'W'."科目分配类别

GS_ITEM-ITEM_CAT_EXT = 'D'."科目分配类别

GS_ITEM-SHORT_TEXT = '123'."短文本

GS_ITEM-MAT_GRP = '&DB001'."物料组

GS_ITEM-PREQ_DATE = '20210307'."需求日期

GS_ITEM-DELIV_DATE = '20210307'."需求日期

GS_ITEM-DELIV_DATE = '20210307'."需求日期

GS_ITEM-PCKG_NO = LV_PCKG_NO."软件包编号

GS_ITEM-GR_IND = 'X'.

GS_ITEM-GR_NON_VAL = 'X'.

GS_ITEM-IR_IND = 'X'.

APPEND GS_ITEM  TO GT_ITEM.

GS_WBS-PREQ_ITEM = '00010'.

GS_WBS-SERIAL_NO = LV_ACCASSERIAL_NO.

GS_WBS-G_L_ACCT = '6601039900'.

GS_WBS-COST_CTR = '0BE000'.

APPEND GS_WBS  TO GT_WBS.

GS_SER-PCKG_NO = LV_PCKG_NO."软件包编号

GS_SER-LINE_NO = LV_LINE_NO."内部行编号

GS_SER-OUTL_IND = 'X'."标识符：概要行

GS_SER-SUBPCKG_NO = LV_PCKG_NO + 1."分包编号

GS_SER-FROM_LINE = 1."下限

APPEND GS_SER TO GT_SER.

CLEAR:GS_SER.

GS_SER-PCKG_NO = LV_PCKG_NO + 1."软件包编号

GS_SER-LINE_NO = LV_LINE_NO + 1."内部行编号

GS_SER-EXT_LINE = 0000000010."行号

GS_SER-QUANTITY = 1."数量

GS_SER-BASE_UOM = 'LE'."计量单位

GS_SER-PRICE_UNIT = 1."价格单位

GS_SER-NET_VALUE = NETPR * QUANTITY."净值

GS_SER-SHORT_TEXT = 123."短文本

GS_SER-MATL_GROUP = '&DB001'."物料组

GS_SER-GR_PRICE = 10."总价

APPEND GS_SER TO GT_SER.

GS_SER_VALUES-PCKG_NO = LV_PCKG_NO + 1."软件包编号

GS_SER_VALUES-LINE_NO = LV_LINE_NO + 1."内部行编号

GS_SER_VALUES-SERNO_LINE = 01."服务行

GS_SER_VALUES-SERIAL_NO = GS_SER_VALUES-SERNO_LINE."帐户分配的顺序编号

GS_SER_VALUES-PERCENTAGE = 100."帐户分配值分配百分比

GS_SER_VALUES-NET_VALUE = NETPR * QUANTITY."项目净值

GS_SER_VALUES-QUANTITY = 1."数量带标记

APPEND GS_SER_VALUES TO GT_SER_VALUES.

CALL FUNCTION 'BAPI_REQUISITION_CREATE'

  EXPORTING

*   SKIP_ITEMS_WITH_ERROR          = gt_item

    AUTOMATIC_SOURCE               = ' '

  IMPORTING

    NUMBER                         = L_NO1

  TABLES

    REQUISITION_ITEMS              = GT_ITEM

    REQUISITION_ACCOUNT_ASSIGNMENT = GT_WBS

*   REQUISITION_ITEM_TEXT          =

*   REQUISITION_LIMITS             =

*   REQUISITION_CONTRACT_LIMITS    =

    REQUISITION_SERVICES           = GT_SER

    REQUISITION_SRV_ACCASS_VALUES  = GT_SER_VALUES

    RETURN                         = GT_RETURN

*   REQUISITION_SERVICES_TEXT      =

*   REQUISITION_ADDRDELIVERY       =

*   EXTENSIONIN                    = GT_EXTENSION1

  .

CLEAR:LV_MESSAGE.

LOOP AT GT_RETURN INTO DATA(GL_RETURN) WHERE TYPE = 'E' OR TYPE = 'A'.

  CONCATENATE LV_MESSAGE '/' GL_RETURN-MESSAGE INTO LV_MESSAGE.

  CLEAR GL_RETURN.

ENDLOOP.

IF LV_MESSAGE IS INITIAL AND L_NO1 IS NOT INITIAL.

*   提交事务

  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

    EXPORTING

      WAIT = 'X'.

ELSE.

  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' .

ENDIF.

WRITE :L_NO1.

"-----------------------------@斌将军-----------------------------

定期更文，欢迎关注

TRANSLATE with x

English

Arabic	Hebrew	Polish
Bulgarian	Hindi	Portuguese
Catalan	Hmong Daw	Romanian
Chinese Simplified	Hungarian	Russian
Chinese Traditional	Indonesian	Slovak
Czech	Italian	Slovenian
Danish	Japanese	Spanish
Dutch	Klingon	Swedish
English	Korean	Thai
Estonian	Latvian	Turkish
Finnish	Lithuanian	Ukrainian
French	Malay	Urdu
German	Maltese	Vietnamese
Greek	Norwegian	Welsh
Haitian Creole	Persian

TRANSLATE with

COPY THE URL BELOW

Back

EMBED THE SNIPPET BELOW IN YOUR SITE

Enable collaborative features and customize widget: Bing Webmaster Portal

Back

此页面的语言为英语

翻译为中文（简体）

中文（简体）
中文（繁体）
丹麦语
乌克兰语
乌尔都语
亚美尼亚语
俄语
保加利亚语
克罗地亚语
冰岛语
加泰罗尼亚语
匈牙利语
卡纳达语
印地语
印尼语
古吉拉特语
哈萨克语
土耳其语
威尔士语
孟加拉语
尼泊尔语
布尔语(南非荷兰语)
希伯来语
希腊语
库尔德语
德语
意大利语
拉脱维亚语
挪威语
捷克语
斯洛伐克语
斯洛文尼亚语
旁遮普语
日语
普什图语
毛利语
法语
波兰语
波斯语
泰卢固语
泰米尔语
泰语
海地克里奥尔语
爱沙尼亚语
瑞典语
立陶宛语
缅甸语
罗马尼亚语
老挝语
芬兰语
英语
荷兰语
萨摩亚语
葡萄牙语
西班牙语
越南语
阿塞拜疆语
阿姆哈拉语
阿尔巴尼亚语
阿拉伯语
韩语
马尔加什语
马拉地语
马拉雅拉姆语
马来语
马耳他语
高棉语

随时将英语翻译为中文（简体）PRO
一律不翻译英语
一律不翻译i.cnblogs.com

ME51N 创建采购申请的更多相关文章

【ABAP系列】SAP ABAP BAPI_REQUISITION_CREATE创建采购申请
公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[ABAP系列]SAP ABAP BAPI_RE ...
ME51N, ME52N 创建采购申请的一个BADI
ME51N ME52N创建修改采购申请时的一个BADI (2013-07-11 16:50:58) 转载▼ 标签: 采购申请 me51n me52 badi me_process_req_cust 分 ...
SAP MM 无料号采购申请单中'评估价格'之填写
SAP MM 无料号采购申请单中'评估价格'之填写 1),SAP系统中,采购申请里的'评估价格'来源有二, a)如果是有物料号的采购,则该价格来自于物料主数据里里的成本价(移动平均价或者标准价),自动 ...
详解EBS接口开发之采购申请导入
更多内容可以参考我的博客详解EBS接口开发之采购订单导入 http://blog.csdn.net/cai_xingyun/article/details/17114697 /*+++++++ ...
函数使用二：采购申请BAPI_PR_CREATE
REPORT YTEST01. ***************************采购申请创建*****************************begin DATA:LV_BANFN TY ...
ABAP-增强-MRP运行-根据工厂/父件/子件/供应商拆分采购申请
最近有个业务需要,MRP运行过程中需要根据生产计划订单/子件/供应商对应关系来拆解采购申请. 1.具体实例: a.基础数据整车物料:NL1G58420151001219 子件:00000000888 ...
SAP-MM：创建采购组织、采购组
创建采购组织路径:SPRO – IMG – 企业结构 – 定义 – 物料管理 – 维护采购组织操作: Step 1.点击"新条目". Step 2.维护"采购组织 ...
SAP MM已经转成PO的采购申请Item依旧可以被删除？
SAP MM已经转成PO的采购申请Item依旧可以被删除? 笔者测试发现,我们可以删除已产生PO的PR item, 系统只是给一个警告信息,不阻止保存. Purchase orders already ...
SAP MM 根据采购订单反查采购申请？
SAP MM 根据采购订单反查采购申请? 前日微信上某同行发来一个message,说是想知道如何通过采购订单号查询到其前端的采购申请号. 笔者首先想到去检查采购订单相关的常用报表ME2L/ME2M/M ...
【MM系列】SAP MM模块-收货自动创建采购订单
公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[MM系列]SAP MM模块-收货自动创建采购订 ...

随机推荐

Keepalived+Nginx高可用案例（抢占式与非抢占式）
(1)下载安装Keepalived源码包 Keepalived官网源码包下载地址在服务器上解压 tar -xf keepalived-2.2.8.tar.gz 安装相关前置依赖 yum -y ins ...
python列表删除元素之del,pop()和remove()
del函数如果知道要删除元素在列表中的位置,可以使用del语句: list_1 = ['one', 'two', 'three'] print(list_1) del list_1[0] print ...
C语言有一分数序列: 2/1， 3 / 2,5/3,8/5,1 3/8,2 1/13... 求出这个数列得前20项之与。
#include <stdio.h> void main() { int x, n = 20; double a = 2, b = 1, sws = 0; for (n; n >= ...
删除当前文件夹不是.vue文件，电脑命令符
::-----------------------------------------@echo offsetlocal EnableDelayedExpansionset _thisFilePath ...
旺店通·企业奇门和用友BIP接口打通对接实战
旺店通·企业奇门和用友BIP接口打通对接实战接通系统:旺店通·企业奇门旺店通是北京掌上先机网络科技有限公司旗下品牌,国内的零售云服务提供商,基于云计算SaaS服务模式,以体系化解决方案,助力零售企 ...
自学 --day9---js中的数学操作和时间日期
typora-copy-images-to: media 一.数学处理 1.Math常用API 圆周率 Math.PI // 3.1415926535 生成随机数 Math.random() 生成的是 ...
Java并发(二十一)----wait notify介绍
1.小故事 - 为什么需要 wait 由于条件不满足(没烟干不了活啊,等小M把烟送过来),小南不能继续进行计算但小南如果一直占用着锁,其它人就得一直阻塞,效率太低于是老王单开了一间休息室(调用 w ...
ASR项目实战-数据
使用机器学习方法来训练模型,使用训练得到的模型来预测语音数据,进而得到识别的结果文本,这是实现语音识别产品的一般思路. 本文着重介绍通用语音识别产品对于数据的诉求. 对数据的要求训练集相关要求,如 ...
Odoo16—国际化翻译
开发odoo系统模块的时候,如果一开始就有国际化的需求,无论是模型的定义还是视图的构建,建议使用英语作为第一语言:一方面,英语本身就是一种国际化的语言:另一方面,odoo内置模型字段描述如Create ...
cp {,bak}用法（转载）
cp filename{,bak} cp filename{,.bak} 这个命令是用来把filename备份成filename.bak的等同于命令 cp filename filename.bak ...

ME51N 创建采购申请