zoukankan      html  css  js  c++  java
  • SAP ME01创建货源清单

    1业务说明

    此文档使用函数:ME_DIRECT_INPUT_SOURCE_LIST创建货源清单

    2前台实现

    事务代码:ME01

    输入抬头信息

    保存即可

    3代码实现

    3.1调用函数

    定义参数

    字段

    调用函数

    3.2问题解决

    3.3源代码

    DATA:LT_EORD TYPE TABLE OF EORDU,
      LS_EORD TYPE EORDU,
      LV_MATNR TYPE EORD-MATNR,
      LV_WERKS TYPE EORD-WERKS.

    LV_MATNR
     = '000000000000000431'."物料
    LV_WERKS
     = '2000'."工厂

    CLEAR:LS_EORD.
    LS_EORD-MATNR
     = '000000000000000431'."物料
    LS_EORD-WERKS
     = '2000'."工厂
    LS_EORD-VDATU
     = '20191210'."有效期从
    LS_EORD-BDATU
     = '20191230'."有效期至
    LS_EORD-LIFNR
     = '0070003311'."供应商
    LS_EORD-EKORG
     = '2000'."采购组织
    LS_EORD-RESWK
     = ''."采购物料的工厂
    LS_EORD-EORTP
     = '0'."资源清单记录的类别
    LS_EORD-AUTET
     = ''."WA_INPUT-AUTET."物料计划中的资源清单使用
    LS_EORD-ERDAT
     = SY-DATUM."记录的创建日期
    LS_EORD-ERNAM
     = SY-UNAME."创建人
    LS_EORD-ZEORD
     = '00001'."RECORD-ZEORD."资源清单记录号
    LS_EORD-KZ
     =  'I'."复选框 I新增 U更新
    APPEND
     LS_EORD TO LT_EORD.

    CALL
     FUNCTION 'ME_INITIALIZE_SOURCE_LIST'."源清单维护初始化

    CALL
     FUNCTION 'ME_DIRECT_INPUT_SOURCE_LIST'
      EXPORTING
        I_MATNR          = LV_MATNR
        I_WERKS          = LV_WERKS
    *
       I_MT06E          =
    *
       I_NO_MATERIAL_READ       =
    *
       ACTIVITY         = 'V'
    *
       I_VORGA          =
    *
       I_LOGSY          =
      TABLES
        T_EORD           = LT_EORD
      EXCEPTIONS
        PLANT_MISSING    = 1
        MATERIAL_MISSING = 2
        OTHERS          = 3.
    IF
     SY-SUBRC <> 0.
    *
     Implement suitable error handling here
      MESSAGE '创建货源清单失败' TYPE 'S' DISPLAY LIKE 'E'.
      RETURN.
    ELSE.

      CALL FUNCTION 'ME_POST_SOURCE_LIST_NEW' "在集成商品维护中过帐订单
       EXPORTING
         I_MATNR       = LV_MATNR
    *
         O_MATNR       =
        .
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          WAIT = 'X'.

      MESSAGE '创建货源清单成功' TYPE 'S'.
    ENDIF.

  • 相关阅读:
    手误【删库】 == 跑路,不存在的 Linux回收站
    大规模集群全网数据备份解决方案
    宝塔Nginx配置防盗链
    Markdown语法
    QFtp编程模型(二)
    Ubuntu驱动程序开发6-Linux内核启动与程序烧写
    Ubuntu下TFTP、NFS和SSH服务搭建
    ubuntu环境变量的三种设置方式
    QByteArray详解
    mysql的索引下推理解和实践
  • 原文地址:https://www.cnblogs.com/BinGeneral/p/12858427.html
Copyright © 2011-2022 走看看