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
ZSDR100 跑原材料MRP的更多相关文章
- ZSDR101-跑成品MRP
*&---------------------------------------------------------------------**& Report ZSDR101*&a ...
- iDempiere 使用指南 使用MRP进行生产及采购排程
Created by 蓝色布鲁斯,QQ32876341,blog http://www.cnblogs.com/zzyan/ iDempiere官方中文wiki主页 http://wiki.idemp ...
- SAP MRP的计算步骤
SAP MRP的计算步骤,物料需求计划(简称为MRP)与主生产计划一样属于ERP计划管理体系,它主要解决企业生产中的物料需求与供给之间的关系,即无论是对独立需求的物料,还是相关需求的物料, ...
- Mps与Mrp区别
MPS是完成品的计划表,描述一个特定的完成品的生产时间和生产数量.MPS是一个决定完成品生 产排程及可答应量(ATP)的程序.依据MPS,MRP得以计算在该完成品需求之下,所有组件,零件以 至原材 ...
- BDD实战篇 - .NET Core里跑Specflow - 可以跑集成测试和单元测试
这是<如何用ABP框架快速完成项目 >系列中和DevOps系列文章其中一篇文章. BDD很赞!比TDD先进很多,能够大大提高编码效率. 上一篇文章说了如何在.NET Core里安装 ...
- Odoo MRP 实际成本
Odoo MRP 8 对于 产成品并不支持 实际成本记账 本人开发了一个模块,支持此特性, 可以在 淘宝店铺 购买 https://item.taobao.com/item.htm?_u=85jr9d ...
- MRP Force Reservation的作用
生产单根据BOM计算出相应的物料需求,生产领料单stock.picking ( internal moves) Stock.picking使用工作流自动计算库存量,如果库存量够,则使用 test_as ...
- Odoo MRP模块
转载请注明原文地址:https://www.cnblogs.com/ygj0930/p/10825963.html 一:MRP MRP:产品制造管理. 产品制造业务设计到以下几个关键概念: 1)BOM ...
- jq跑马灯效果
这几天公司产品有个无缝循环滚动的广告跑马灯要做,最开始想到的是<marquee>标签,但在PC端正常,在安卓广告屏上却怎么都跑不动,后来用的css3的animation,结果也是PC端及其 ...
随机推荐
- POJ 1719 二分图最大匹配(记录路径)
Shooting Contest Time Limit: 1000MS Memory Limit: 10000K Total Submissions: 4097 Accepted: 1499 ...
- 佳佳的魔杖 (vijos 1283)
题目大意: 一根树枝有N段,每一段有一个分数,可以选取一些不完全包含(可以相交)的区间,每次选取可以得到区间里所有数之和的分数. 求最大得分. 解题过程: 1.很明显的dp,默认选取区间的顺序是从左往 ...
- 长理ACM 7-密码破译(闫博钊)
/* //题目标题: *密码破译(闫博钊) //题目描述: *某组织欲破获一个外星人的密码,密码由一定长度的字串组成.此组织拥有一些破译此密码的长度不同的钥匙,若两个钥匙的长度之和恰好为此密码的长度, ...
- 倍增 LCA
以NOIP2013提高组day1 最后一道题为例来学的倍增和lca.其实这套题早就做过了,倍增和lca也学过,只不过当时没有理解清楚,所以今天再次学了一遍,虽然没有时间编程序了,但是先把思路和做法在这 ...
- main函数参数的使用
int main(int argc, char * argv[]) argc: argument count argv:argument vector 其中, char * argv[] 指针数组 c ...
- Python Web 应用:WSGI基础
在Django,Flask,Bottle和其他一切Python web 框架底层的是Web Server Gateway Interface,简称WSGI.WSGI对Python来说就像 Servle ...
- innerHTML..innerText..textContent
/* * innerText和textContent 都是设置文字内容的,如果设置的内容当中有标签,也会直接的以文本的方式显示(标签的<>都会按照转义的方式进行解析) * innerTex ...
- 计算系数(noip2011)
[问题描述]给定一个多项式(ax + by)^k,请求出多项式展开后(x^n)*(y^m)项的系数.[输入]输入文件名为 factor.in.共一行,包含 5 个整数,分别为a,b,k,n,m,每两个 ...
- 团队博客——Sprint计划会议1
每日Scrum:第一天 会议时间:4.14.晚八点半 会议地点:基础教学楼一楼大厅 小组成员:郭庆樑,林彦汝,张金 认领人—使团队成员分工合作,保持团队的积极性. ID 名称(NAME) 重要性(IM ...
- 利用DetachedCriteria实现模糊查询和分页
分类: Java-Developing 前段时间在做模糊查询,并利用数据库分页,DAO用hibernate实现,刚开始的时候 根据业务层的数据,拼hql语句进行查询,且不说要进行一些if判断,单 ...