ZSDR100 跑原材料MRP

*&---------------------------------------------------------------------*
*& Report ZSDR100
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZSDR100.

data: I_MRP_PLAN_PARAM like BAPI_MRP_PLAN_PARAM occurs 0 with header line,
I_MRP_STATISTIC like BAPI_MRP_STATISTIC occurs 0 with header line,
I_RETURN like BAPIRET2 occurs 0 with header line,
I_MARA like MARA occurs 0 with header line.
data:I_DISMM like MARC-DISMM,
I_MMSTA like MARC-MMSTA.

initialization.

start-of-selection.

perform GETDATA.

*&---------------------------------------------------------------------*
*& Form getdata
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form GETDATA.

select * into corresponding fields of table I_MARA
from MARA as a join marc as b
on a~matnr = b~matnr
where ( a~MTART =‘ROH‘ or a~MTART =‘HALB‘or a~MTART =‘FERT‘)
and b~werks = ‘1000‘
and b~DISGR = ‘0001‘."AND MSTAE = ‘‘. "跨工厂物料状态冻结去掉,在物料主档基础数据1视图

refresh: I_MRP_PLAN_PARAM.
I_MRP_PLAN_PARAM-PROC_TYPE = ‘NETCH‘.
I_MRP_PLAN_PARAM-CREATE_PURREQ = ‘2‘.

I_MRP_PLAN_PARAM-CREATE_SCHED_LINES = ‘3‘.
I_MRP_PLAN_PARAM-CREATE_MRP_LIST = ‘1‘.
I_MRP_PLAN_PARAM-PLANNING_MODE = ‘1‘.
append I_MRP_PLAN_PARAM.

loop at I_MARA.

* select single DISMM MMSTA from MARC into (I_DISMM,I_MMSTA)
* where MATNR = I_MARA-MATNR and WERKS = ‘1000‘.

select single DISMM from MARC into (I_DISMM)
where MATNR = I_MARA-MATNR and WERKS = ‘1000‘.
if SY-SUBRC = 4.
continue.
elseif SY-SUBRC = 0.
if I_DISMM = ‘ND‘.
continue.
endif.
* IF i_MMSTA ne ‘‘. “特定工厂物料状态去掉,在MRP视图
* CONTINUE.
* ENDIF.
endif.

call function ‘BAPI_MATERIAL_PLANNING‘
exporting
MATERIAL = I_MARA-MATNR
PLANT = ‘1000‘
* MRP_AREA =
* PLAN_SCENARIO =
MRP_PLAN_PARAM = I_MRP_PLAN_PARAM
* MATERIAL_EVG =
importing
MRP_STATISTIC = I_MRP_STATISTIC
RETURN = I_RETURN.
* TABLES
* MRP_LISTS =
* EXTENSIONOUT =

write at: /2(18) I_MARA-MATNR , 22(220) I_RETURN-MESSAGE.
clear:I_DISMM, I_MMSTA.
clear:I_MARA.
endloop.

endform. "getdata

时间: 2024-11-06 07:24:34

ZSDR100 跑原材料MRP的相关文章

ZSDR101-跑成品MRP

*&---------------------------------------------------------------------**& Report ZSDR101*&*&---------------------------------------------------------------------**&跑成品MRP*&*&----------------------------------------------------

MRP AND Material Plan

在實現MRP自動跑需求前,必須明白MRP是要在兩個層次做設置,才能自動跑需求的 MRP需求計算公式: A = B*C -D A:實際需求 B:需求數量 C:BOM標準用量 D:可用數量(PO/計劃訂單等) 1.工廠層次 spro->Production->Material Requirements Planning->Planning File Entries->Activate MRP and Set Up Planning File A.激活工廠層的MRP B.創建MRP參數文

(15)疯狂的程序员----《绝影》

<疯狂的程序员> <疯狂的程序员>1 天已经七分黑了,屋里却还没开灯.这个全身黑衣服的男子突然像想起什么,从包里掏出烟,抽出一只,递给旁边的人:"兄弟,抽烟么?"――那烟是红塔山. 旁边那人连忙一边摆手,一边说:"不,不."语气有点紧张,好像那黑衣服递过来的不是烟,是海洛因. 这个黑衣服的男子,后来的网名叫"绝影".他旁边那个,后来被他们称为"土匪".这件屋子,就是他们大学寝室. 第一天到学校,其实没有

iDempiere 使用指南 使用MRP进行生产及采购排程

Created by 蓝色布鲁斯,QQ32876341,blog http://www.cnblogs.com/zzyan/ iDempiere官方中文wiki主页 http://wiki.idempiere.org/zhiDempiere 中文社区www.idempiere.org.cniDempiere 中文社区QQ群 65713012 本文档演示如何在idempiere上面跑MRP,根据系统中已经录入的销售订单以及预测的信息,系统自动做生产计划以及采购计划的过程. MRP部分用到了Libe

Odoo MRP 实际成本

Odoo MRP 8 对于 产成品并不支持 实际成本记账 本人开发了一个模块,支持此特性, 可以在 淘宝店铺 购买 https://item.taobao.com/item.htm?_u=85jr9dj42b6&id=535444829332 ? ? ? ? ? ? 安装模块 ? ? 基本设置 ? ? 产品A由 2个原材料组成,物料清单组成如下 ? ? 经由工艺"工艺"制造而成 ? ? 工作中心的成本如下 ? ? 工作中心1 ? ? 工作中心2 工作中心3 ? ? ? ? 产品

[MRP]到底MRP、MRPⅡ、ERP之间是什么关系?

有时候真为MRP.MRPⅡ.ERP这些概念和它们的关系搞得头晕,感觉懂,但要通俗又不失专业地解释一下它们的关系,让听的人容易懂,似乎又有些难于下口或者说不到点子上.最近从网上搜了些相关的东西,整理了一下,可能仍不全面,但总算是理了一下头绪,有了说辞: MRP:Materials Requirements Planning 物料需求计划 MRPⅡ:Manufacturing Resource Planning 制造资源计划 ERP:Enterprise Resource Planning 企业资源

主生产计划(MPS)及物料需求计划(MRP)

主生产计划(Master Product schedule,MPS) 就是已经确定的销售订单(合同)和预测销售目标(也就是说近期要销售的产品,有指定的交货日期了). 主生产计划(Master Production Schedule,简称MPS).MPS是闭环计划系统的一个部分.MPS的实质是保证销售规划和生产规划对规定的需求(需求什么,需求多少和什么时候需求)与所使用的资源取得一致.MPS考虑了经营规划和销售规划,使生产规划同它们相协调.它着眼于销售什么和能够制造什么,这就能为车间制定一个合适的

坦克案例的原材料类

/** 原材料类 */ package Tank; import java.io.*;import java.util.Vector; import javax.sound.sampled.AudioFormat;import javax.sound.sampled.AudioInputStream;import javax.sound.sampled.AudioSystem;import javax.sound.sampled.DataLine;import javax.sound.sampl

那些长期跑赢沪深300的那些指数

我们之前在讲到指数基金的时候,都是使用沪深300指数来举例,并且使用了沪深300过去的数据进行回测. 因为沪深300,代表的是沪深两市规模最大的300家公司,它覆盖了沪深市场大约六成的市值,而且,作为宽基指数,其行业门类覆盖比较全,不受特定行业的政策性影响,具有足够的代表性. 沪深300也作为整个A股市场的基准收益对比,所有基金经理,都以战胜沪深300作为目标,哪怕是普通投资者,我们一般也以自己的投资组合收益能否战胜沪深300作为参考. 指数的本质是什么呢?其实就是一个由不同股票组成的组合.但是