ME_DIRECT_INPUT_INFORECORD 信息记录批量修改程序

DATA : l_activity TYPE c .

*  IF r1 = 'X'.
*    l_activity = 'H'.
*  ELSE.
*    l_activity = 'V'.
*  ENDIF.

LOOP AT it_tab INTO st_tab.

**供应商主数据加前导零
     CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
       EXPORTING
         input   = st_tab-lifnr
       IMPORTING
         output = st_tab-lifnr.

wa_eina-matnr = st_tab-matnr. "物料，

wa_eina-lifnr = st_tab-lifnr. "供应商

wa_eine-ekorg = 'WYPO' . "采购组织
wa_eine-werks = 'SH01' . "工厂

wa_eine-netpr = st_tab-netpr. "单位价格

wa_eina-lifab = st_tab-kdatb. "有效开始日期
wa_eina-lifbi = st_tab-kdate. "有效结束日期

wa_eine-norbm = '1' .             "标准采购订单数量
    wa_eine-aplfz = '1' .             "计划的天数内交货
    wa_eine-effpr = '100' .           "采购信息记录中的有效价格

CALL FUNCTION 'ME_DIRECT_INPUT_INFORECORD'
       EXPORTING
        activity         = l_activity "v 修改,h创建
        i_eina           = wa_eina
        i_eine           = wa_eine
        i_no_suppose     = ''
        i_vorga          = 'A'
       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' .

ENDLOOP .

ME_DIRECT_INPUT_INFORECORD 信息记录批量修改程序相关推荐

EndNote文献信息如何批量修改
在EndNote中英文混排时et al和等的3种解决方法一文中科研动力介绍了3种解决英文文献et. al. 和中文文献等的问题.但是如果中文文献需要复制Secondary Author信息,如果中文文 ...
c语言程序学生籍贯信息记录,c语言程序学生籍贯信息记录簿设计.doc
c语言程序学生籍贯信息记录簿设计学生籍贯信息记录簿 PAGE PAGE 14 学生籍贯信息记录簿设计课程设计报告内容选择题目题目:学生籍贯信息记录簿设计内容摘要摘要: 学生籍贯信息管理系统 ...
flash在线剪切缩放批量修改程序
这几天一直在弄一个图片在线修改的程序因为有时候客户没有图片编辑器,又不会弄如果有一个简单的缩放剪切程序就好子我自己一边学AS3一边做一个文件很小38K 下载地址: http://code.go ...
信息记录净价变更批量查询程式
标准:ME14单条信息记录查询(在有效期内更改的才会被记录) 查询结果如下: 用户要求的是批量查询净价,从结果中我们看到净价的字段名.涉及到表.日期.文档编号等信息.既然有变更表的内容,那就会用到CD ...
Python批量修改图片名称
由于客户提供的图片命名不符合规则,导致系统编译失败图片较多,手动修改太繁琐,简单编写了一个批量修改程序 >>> >>> >>> import o ...
如何批量修改文件名字的一部分？
如何批量修改文件名字的一部分?不知道大家有没有遇到这样一个问题,小编作为一名"打工人"是遇到过这个工作,几百个文件的文件名都包含有某部分文字,然后现在需要将这部分文字改成另外的几个 ...
用python写名字代码_用python编写一个批量修改文件名的小程序
1.问题描述: 原有的视频文件按序排列,但是文件名没有对内容的说明,如下图所示: 原视频文件列表.jpg 想将其批量修改成如下文件名: 图2:要改成的文件名.jpg 最终想要的效果: ok.jpg 不 ...
SAP中使用BDC创建或修改采购信息记录
工作中的需求是这样子的: 在某天,我们公司的采购提了一个需求,说是在从OA创建采购信息记录的时候,价格上限应该自动默认为是价格字段,但是这个在系统里面没有做,采购在创建玩之后需要一个个手工去修改,因此 ...
SAP，ABAP自开发批导程序批量维护ME11、ME12信息记录，涉及表EINA、EINE
一.业务需求用户点击模版下载,下载要填的模版. 选择"请选择批导文件"按钮,将已填写完毕的模板导入系统. 首先校验数据格式,视图,换算关系,日期等格式是否正确,正确切数据库没有 ...

ME_DIRECT_INPUT_INFORECORD 信息记录批量修改程序

ME_DIRECT_INPUT_INFORECORD 信息记录批量修改程序相关推荐

最新文章

热门文章