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

REPORT zsdr101.

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.

DATA:BEGIN OF i_mara OCCURS 0,
matnr LIKE mara-matnr,
werks LIKE marc-werks,
END OF i_mara.

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 ='FERT'
AND a~lvorm = ''
AND b~lvorm = ''
AND ( b~werks = '3110' OR b~werks = '3120' OR b~werks = '3220' OR b~werks = '3130')
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 = i_mara-werks.
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 = i_mara-werks
* 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

ZSDR101-跑成品MRP的更多相关文章

  1. ZSDR100 跑原材料MRP

    *&---------------------------------------------------------------------**& Report ZSDR100*&a ...

  2. SAP翔子_ABAP_DEMO篇索引

    序号 描述 SAP翔子_ABAP_DEMO篇1 ABAP DEMO篇1 单层反查BOM SAP翔子_ABAP_DEMO篇2 ABAP DEMO篇2 删除工艺路线 SAP翔子_ABAP_DEMO篇3 A ...

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

    Created by 蓝色布鲁斯,QQ32876341,blog http://www.cnblogs.com/zzyan/ iDempiere官方中文wiki主页 http://wiki.idemp ...

  4. sql简易的MRP资源分析

    写了个简易的MRP根据传进来的数据,进行上下级的判断,父表,子表 构思: 3张变量表,第一张用来存传进来的成品,这边对表做了循环就是成品是一样一样进去的,取成品表的第一行,将数据做父表和子表关联,取出 ...

  5. BDD实战篇 - .NET Core里跑Specflow - 可以跑集成测试和单元测试

    这是<如何用ABP框架快速完成项目 >系列中和DevOps系列文章其中一篇文章.   BDD很赞!比TDD先进很多,能够大大提高编码效率.   上一篇文章说了如何在.NET Core里安装 ...

  6. Windows下配置Apache+PHP跑Wordpress拾遗

    首先,我很少这么做,因为一旦有跑WAMP的需求,我就直接下一个wamp的安装包就可以了,市面上数不胜数,我一直用的是EasyPHP,不是说它有多好,而是很多年前第一次用后没什么问题,就一直用下来了.这 ...

  7. jq跑马灯效果

    这几天公司产品有个无缝循环滚动的广告跑马灯要做,最开始想到的是<marquee>标签,但在PC端正常,在安卓广告屏上却怎么都跑不动,后来用的css3的animation,结果也是PC端及其 ...

  8. fedora上部署ASP.NET——(卡带式电脑跑.NET WEB服务器)

    andrew,20130601,guilin 本文记录在树莓派(fedora)上部署ASP.NET MVC2 的过程. 本文共分为六部分,分别是前置条件,Apache的安装,Mysql的安装,安装mo ...

  9. 如何让我们的PHP在Jexus中跑起来

    最近一段时间,经常看到不少的朋友在问,应该怎么设置才能够让Jexus支持PHP.其实,Jexus在很早之前就已经是可以支持PHP,像Apache或Nginx一样充当PHP的Web服务器的.不过由于没有 ...

随机推荐

  1. hduacm 5255

    http://acm.hdu.edu.cn/showproblem.php?pid=5255 枚举a和c  求解b #include <cstdio> #include <cstri ...

  2. MySQL为数据表的指定字段插入数据

    username not null 没有默认值/有默认值   insert不插入username字段 均不报错 2014年07月23日21:05    百科369 MySQL为数据表的指定字段插入数据 ...

  3. [JS]getYear()和getFullYear()方法区别

    getFullYear();总是返回4位完整的年份 getYear();当年份在1900-1999时,返回两位数字,如1980返回80,当不在这个范围时,返回同getFullYear(); 注:get ...

  4. autoLyout纯代码适配

    前言 1 MagicNumber -> autoresizingMask -> autolayout 以上是纯手写代码所经历的关于页面布局的三个时期 在iphone1-iphone3gs时 ...

  5. POJ 2739 Sum of Consecutive Prime Numbers 难度:0

    题目链接:http://poj.org/problem?id=2739 #include <cstdio> #include <cstring> using namespace ...

  6. Windows系统安装时间

    http://www.45it.com/windowszh/201206/30693.htm 修改系统安装时间 开始" - "运行" - 输入"regedit& ...

  7. [ASP.NET] 使用Loading遮罩防止使用者重複點擊

    From: http://www.dotblogs.com.tw/joysdw12/archive/2012/12/13/85629.aspx 前言 在網頁執行中可能會因為資料量大或其他原因影響使用者 ...

  8. 跨域SSO的实现

    翻译自CodeProject网站ASP.NET9月份最佳文章:Single Sign On (SSO) for cross-domain ASP.NET applications. 翻译不妥之处还望大 ...

  9. 框架之 spring

    spring有两大特性,其一为ioc,其二为aop 1.ioc的理解 ioc为依赖注入,他的好处就是把创建对象的权利交给spring去管理,这样的好处是 将应用程序中的对象解耦,传统的方式程序中的对象 ...

  10. 【kate总结】matlab调用opencv总结

    正常情况下,编写好matlab调用opencv的代码. 1.输入   MEX XX.CPP(所有的mex都要编译) 2.将生成的.mexw64 放到要调用的文件夹下即可 出错总结: 本人写的matla ...