ME11创建信息记录 Function

转自 http://blog.csdn.net/zeewjj/article/details/7941530  
CALL FUNCTION ‘ME_DIRECT_INPUT_INFORECORD‘

DATA: WA_EINA TYPE EINA,
      WA_EINE TYPE EINE,
      WA_EINA_NEW TYPE EINA,
      WA_EINE_NEW TYPE EINE.

DATA: IT_HEAD TYPE STANDARD TABLE OF MESTXH,
        IT_LINE TYPE STANDARD TABLE OF MESTXL.

DATA: IT_EINA TYPE STANDARD TABLE OF EINA WITH HEADER LINE,
        IT_EINE TYPE STANDARD TABLE OF EINE.

DATA: RETURN TYPE STANDARD TABLE OF BAPIRETURN WITH HEADER LINE.
  DATA: L_NETPR LIKE EKPO-NETPR.
  DATA: L_KOMV TYPE KOMV,
        L_EKPO TYPE EKPO.

CLEAR :WA_EINA,WA_EINE,WA_EINA_NEW,WA_EINE_NEW,IT_HEAD,IT_LINE,IT_EINA,IT_EINE,RETURN,L_NETPR,L_KOMV,L_EKPO.

WA_EINA-MATNR = GS_PRINFO-MATNR.
  WA_EINA-LIFNR = GS_PRINFO-LIFNR.
  WA_EINE-EKORG = GS_PRINFO-VKORG.
  WA_EINE-WERKS = GS_PRINFO-VKORG.
  WA_EINE-NETPR = GS_PRINFO-ABMPR.
*wa_eine-ekgrp = ‘D01‘.
  WA_EINE-NORBM = ‘1‘.
  WA_EINE-APLFZ = ‘1‘.
  WA_EINE-EFFPR = GS_PRINFO-ABMPR.
  WA_EINE-MWSKZ = ‘J1‘.
  WA_EINE-PEINH = GS_PRINFO-PEINH.

*  CONCATENATE ‘ZSDP201创建‘ INTO WA_EINA-IDNLF.

CALL FUNCTION ‘ME_INITIALIZE_INFORECORD‘.

CALL FUNCTION ‘ME_DIRECT_INPUT_INFORECORD‘
    EXPORTING
      ACTIVITY         = ‘V‘"V 修改,H创建
      I_EINA           = WA_EINA
      I_EINE           = WA_EINE
      I_NO_SUPPOSE     = ‘‘
      I_VORGA          = ‘A‘
*     I_NO_SUPPOSE     = ‘X‘"重要
*     I_VORGA          = ‘B‘
*     i_skip_nr_check  = ‘1‘
    IMPORTING
      E_EINA           = WA_EINA_NEW
      E_EINE           = WA_EINE_NEW
    TABLES
      T_HEAD           = IT_HEAD
      T_LINE           = IT_LINE
    EXCEPTIONS
      TEXTNAME_INVALID = 1
      OTHERS           = 2.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

CALL FUNCTION ‘ME_POST_INFORECORD‘
    EXPORTING
      I_MATNR  = WA_EINA-MATNR
      O_MATNR  = WA_EINA-MATNR
    TABLES
      T_EINA_I = IT_EINA.

*APPEND wa_eine_new to it_eine.
  CALL FUNCTION ‘ME_UPDATE_INFORECORD_COND‘
    TABLES
      REINE = IT_EINE.

CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT‘.

READ TABLE IT_EINA INDEX 1.

WRITE:/ ICON_GREEN_LIGHT   AS ICON, L_TABIX,‘行‘,‘采购信息记录创建成功,信息记录号:‘,IT_EINA-INFNR.

时间: 2024-09-30 16:40:01

ME11创建信息记录 Function的相关文章

信息记录初步了解

信息记录是采购部门主数据的一部分,记录物料和供应商或者物料组和供应商的关系,包括:一般数据.采购组织数据.采购组织数据+工厂 创建: ME11手工创建 ME21N创建采购订单时候自动创建 ME31K创建合同时自动创建 ME31L创建交货协议时自动创建 ME47创建询报价单时自动创建 已有信息记录的话 可以在创建订单的时候根据物料和供应商自动带出信息记录中的条件价格,如果条件价格的话会取该信息记录中最后一张采购订单的价格.

SAP MM 自定义条件类型出现在采购信息记录的&#39;条件&#39;界面里 ?

SAP MM 自定义条件类型出现在采购信息记录的'条件'界面里 ? 我在SAP系统里复制某个标准的采购条件类型,创建了一个新的自定义条件类型ZC05,并将其分配采购定价过程RM0000. 结果却出现一个怪现象:在ME11/ME12/ME13去维护采购信息记录的时候,当点击'条件'按钮后,该条件类型与条件类型PB00一起出现在一个小窗口里,如下图: 类似的界面也出现在合同单据里,当我们选中某个ITEM去看条件数据的时候. 为啥会这样?这可是头一回遇到!经过研究与调查,找到了原因与解决办法. 解决办

ASP.NET Core 实战:使用 NLog 将日志信息记录到 MongoDB

在项目开发中,日志系统是系统的一个重要组成模块,通过在程序中记录运行日志.错误日志,可以让我们对于系统的运行情况做到很好的掌控.同时,收集日志不仅仅可以用于诊断排查错误,由于日志同样也是大量的数据,通过对这些数据进行集中分析,可以产生极大的价值. 在微服务的系统架构中,由于一个系统会被拆成很多个功能模块,每个模块负责不同的功能,对于日志系统的要求也会更高,比较常见的有 EFLK(ElasticSearch + Filebeat + LogStash + Kibana) 方案,而对于我们这种单体应

NET Core 实战:使用 NLog 将日志信息记录到 MongoDB

NET Core 实战:使用 NLog 将日志信息记录到 MongoDB https://www.cnblogs.com/danvic712/p/10226557.html ASP.NET Core 实战:使用 NLog 将日志信息记录到 MongoDB 一.前言 在项目开发中,日志系统是系统的一个重要组成模块,通过在程序中记录运行日志.错误日志,可以让我们对于系统的运行情况做到很好的掌控.同时,收集日志不仅仅可以用于诊断排查错误,由于日志同样也是大量的数据,通过对这些数据进行集中分析,可以产生

PowerShell操作DNS创建SRV记录

需求来源:某个组织的Active Directory域,其中的一部分域控制器的SRV记录会无缘无故的丢掉,dcdiag检查dns的时候,发现一大堆报错,看到报错基本就不想弄了,实在太多-- PowerShell可以快速的创建A记录和DNS记录. 我们看一下标准的SRV记录是什么样子的 PS C:\>Get-WmiObject -Namespace root\MicrosoftDNS -class microsoftdns_srvtype | ? {$_.DnsServerName -eq "

短信猫信息记录读取程序

有二年多时间没有写程序了写起程序太陌生了要求写一个短信猫信息记录的读取程序买了个短信猫下载了一个动态链接库sms.dll依据所给案例写了一个运行比较稳定. using System;using System.Drawing;using System.Collections;using System.ComponentModel;using System.Windows.Forms;using System.Data;using System.Runtime.InteropServices;usi

使用Log4Net将系统日志信息记录到记事本和数据库中

一.使用Log4Net将日志记录到记事本中步骤 1,将log4net.dll文件添加到项目引用中 2,写日志记录器类如下: /// <summary> /// 日志记录器 /// </summary> public class LogWriter { /// <summary> /// 记录调试信息 /// </summary> /// <param name="message"></param> public s

Hibernate3中重复引用hbm文件错误信息记录

Hibernate3中重复引用hbm文件错误信息记录. 2018 八月 12 11:17:09,778 ERROR - Context initialization failed org.springframework.beans.factory.BeanCreationException: Error creating bean with name 'loginManager' defined in ServletContext resource [/WEB-INF/applicationCo

读取微软三剑客的内容创建信息

在微软办公套件生成的文件里面(xlsx,docx,pptx文件),存放了文档内容的创建和修改信息(不同于文件创建和修改信息),包括内容创建者.创建时间.最后一次修改的时间和修改人.这些信息可以用文件管理器,右键-详细信息页面能查看到: 那么,我们怎么把这些信息读出来呢? 原理: 2007版以上的三剑客文件,实际上是压缩后的XML文件,这些信息保存在docProps/core.xml中. 该文件的内容大致如下: <?xml version="1.0" encoding="