ERP论文.docx

1、ERP论文ERP论文ERP原理与应用论文专 业 计算机科学与技术 班 级 计科1102班 姓 名 刘梅 20112075 张文芳 20115167 黄玉婷20112059 李萌 20112051 第一章 需求分析1. 1物料需求计划(MRP)简介 物料需求计划（简称为MRP）与主生产计划一样属于ERP计划管理体系，它主要解决企业生产中的物料需求与供给之间的关系，即无论是对独立需求的物料，还是相关需求的物料，物料需求计划都要解决“需求什么？现有什么？还缺什么？什么时候需要？”等几个问题。它是一个时段优先计划系统，其主要对象是决定制造与采购的净需求计划。它是由主生产计划推动运行的，但反过来，它又是

2、主生产计划的具体化和实现主生产计划的保证计划。由于物料需求计划是把主生产计划排产的产品分解为各个零部件的生产计划和采购件的采购计划，因此，制订物料需求计划前就必须具备以下的基本数据：第一项数据是主生产计划，它指明在某一计划时间段内应生产出的各种产品和备件，它是物料需求计划制订的一个最重要的数据来源。第二项数据是物料清单（BOM），它指明了物料之间的结构关系，以及每种物料需求的数量，它是物料需求计划系统中最为基础的数据。第三项数据是库存记录，它把每个物料品目的现有库存量和计划接受量的实际状态反映出来。第四项数据是提前期，决定着每种物料何时开工、何时完工。应该说，这四项数据都是至关重要、缺一不可的

3、。缺少其中任何一项或任何一项中的数据不完整，物料需求计划的制订都将是不准确的。因此，在制订物料需求计划之前，这四项数据都必须先完整地建立好，而且保证是绝对可靠的、可执行的数据。 MRP基本构成示意图一般来说，物料需求计划的制订是遵照先通过主生产计划导出有关物料的需求量与需求时间，然后，再根据物料的提前期确定投产或订货时间的计算思路。其基本计算步骤如下：1.计算物料的毛需求量。即根据主生产计划、物料清单得到第一层级物料品目的毛需求量，再通过第一层级物料品目计算出下一层级物料品目的毛需求量，依次一直往下展开计算，直到最低层级原材料毛坯或采购件为止。2.净需求量计算。即根据毛需求量、可用库存量、已分

4、配量等计算出每种物料的净需求量，即净需求量=毛需求量+已分配量-可用库存量-在途量。3.批量计算。即由相关计划人员对物料生产作出批量策略决定，不管采用何种批量规则或不采用批量规则，净需求量计算后都应该表明有否批量要求。4.安全库存量、废品率和损耗率等的计算。即由相关计划人员来规划是否要对每个物料的净需求量作这三项计算。5.下达计划订单。即指通过以上计算后，根据提前期生成计划订单。物料需求计划所生成的计划订单，要通过能力资源平衡确认后，才能开始正式下达计划订单。6.再一次计算。物料需求计划的再次生成大致有两种方式第一种方式会对库存信息重新计算，同时覆盖原来计算的数据，生成的是全新的物料需求计划；

5、第二种方式则只是在制定、生成物料需求计划的条件发生变化时，才相应地更新物料需求计划有关部分的记录。这两种生成方式都有实际应用的案例，至于选择哪一种要看企业实际的条件和状况。1.2系统要求能实现如下功能：第一，根据主生产计划推算各种物料的需求数量和需求时间。第二，根据最终产品的物料清单和工艺路线推算出最终产品的生产成本。第三，MRP系统的输出是采购计划和生产作业计划，请设计采购单和生产任务单这两种表单来描述采购计划和生产作业计划。 MRP系统涉及到的主要实体有：1、物料。其应该包括如下属性：供给来源成品、自制和外购，成品为主生产计划的对象，“自制件”将会形成生产作业计划，“外购件”将会形成采购计

6、划；生产周期或采购提前期，对于“成品”和“自制件”，应该定义生产周期作为其属性，对于“外购件”则应该定义采购提前期作为其属性；对于每种物料应该定义“父件号”和“父件名称”这种属性，类似于教务管理系统中的先导课程，以表明物料之间的结构关系，否则无法形成完整的BOM；对于“成品”和“自制件”，应该定义其所涉及的生产工序，以便于计算完成该物料的生产消耗了多少资源，对于“外购件”应该定义其采购单价，目的都是用来估算成品的生产成本。2、计划参数。用于定义有关计划展望期、时段、需求时区、计划时区和预测时区等。3、主生产计划。在这里要定义主生产计划的对象，并规定在需求时区、计划时区和预测时区如何确定主生产计

7、划对象的毛需求量等。4、工作中心。工作中心是承担物料加工活动的地所、设备和工作人员的集合。如果把教务管理系统与MRP系统来做一个比较，工作中心相当于教务管理系统中的教师或教室等实体，物料则相当于学生。5、工序。工序是指一种物料转化成另一种物料所经历的加工过程，如果把教务管理系统与MRP系统来做一个比较，工序类似于教务管理系统中的课程，教师和学生是通过课程而发生关系，物料和工作中心则是通过工序而发生关系。6、供应商。作为外购物料的提供者。7、企业部门。如销售部、采购部、财务部、生产部和仓库（作为所有物料的存放地）等。1.3 功能需求按照本系统的要求需要有以下功能： 1、登录界面：界面显示MRP系

8、统，进入不同的功能界面 。 1、ERP作业系统的界面 2、代码维护功能：此功能能对用户的密码进行修改，提高安全性。 3、数据录入：对数据进行录入。 4、数据查询：查询录入和已有的数据。 5、报表输出：输出相应内容。 6、查看源代码：本期末作业的管理系统代码。第二章 系统分析2.1 进入系统方法该系统的系统结构图按步骤可划分为：一：先进入界面，会显示MRP系统的模块，进入第二步；二：打开系统的界面。在界面共有6种选项，现列举如下； 如： 数据录入 数据查询 报表输出 查看源代码 代码维护功能 退出以上是6个模块，每个模块里面又细分了几个模块，以使MRP系统更完善。查看代码的功能，可以看到这个作业

9、的代码。第三章 系统设计3.1数据内容和模块截图这个MRP系统数据库含有这些模块相应的内容第四章 系统模块分析4.1 系统模块分析 MRP计划系统以销售订单为核心计算来源，对物料所处“状态”如库存数量、采购在途量、制单在途量、委外在途、制单欠料（余量）、委外欠料（余量）、采购计划在途等进行细分，当进行相关需求分析时，根据需要可灵活设置是否考虑某一“状态”的物料；具有严谨的MRP计算逻辑，对MRP采购计划、制造单、委外单进行全面追溯，相关计划人员可以根据对MPS主生产计划分析、MRP物料需求计划运算等手段，产生相关订单的物料需求具体功能包括：支持面向订单型生产模式，系统可灵活设置销售订单类型是否

10、参与主生产计划；1、 MPS主生产计划产生前，系统根据订单需求提供主生产计最早划分析功能，并对订单所涉及物料的可用库存、在途量、制单欠量、计划在途量等进行比较；2、 MRP对替代品的运算，支持物料的替代运算，即当物料缺货时，系统查找是否有可替代的物料，将替代料的可用库存加入到主料的库存中运算，系统并在主料明细中记录下替代料信息，写在备注栏；3、 在MRP运算时，系统会考虑各物料的安全库存，可在料品资料维护中设置安全存量及安全存量的下达方式，系统提供了按下达量和按毛需求下达两种方式，按下达量，当下达量大于0时，才考虑安全库存，按毛需求，当需求大于0时，就考虑安全库存4、 可以设置物料在MRP运算

11、时是否合并，系统提供了按订单合并、按周合并、按时间跨度合并3种方式；同订单号的同物料的下达量是否合并成一笔下达量，同物料需求日期在一个自然周内的下达量是否合并成一笔下达量，同物料需求日期在设置的时间跨度范围内的下达量是否合并成一笔下达量5、针对物料的包装及经济性等其它原因，可以灵活设置物料的订货批量和最小订货量，系统提供了按批量、按需求来考虑物料需求，按需求只考虑最小订货量，按批量结合考虑最小订货量和订货批量6、 针对半成品和成品可以设置在MRP分析后是否产生制造单，可以在料品资料维护中设置是否产生制造单即可7、 可以设置物料的订货提前期，便于在MRP运算时，产生物料的最佳需求日期，可以减少库

12、存数及节约资金流除了介绍的模块，系统还有以下的模块：1、登录模块 2、数据录入模块 3、数据查询模块 4、报表输出模块及其他模块第五章 作业代码5.1 主要代码内容SET TALK OFFSET DELETE OFFSET DATE ANSISET CENT ONSTOR 1 TO JJLASTDO WHIL .T. CLOS DATA CLEA TYPE CLEA TYPE ON KEY IF NOT WEXIST(cpmainz) IF SYSM(1)641 DEFI WIND CPMAINZ AT 0,0 SIZE 31.056,99.875 TITL 物料管理系统 ; FONT 宋体,

13、 12 FLOAT NOCLOSE NOMINIMIZE SYST ELSE DEFI WIND CPMAINZ AT 0,0 SIZE 25.056,84.875 TITL 物料管理系统 ; FONT 宋体, 12 FLOAT NOCLOSE NOMINIMIZE SYST ENDI MOVE WINDOW CPMAINZ CENTER ENDI ACTI WIND CPMAINZ NOSHOW III=IIF(SYSM(1)641,0,-0.5) _ZYHOXZ=0 III+1.5,8.125 GET _ZYHOXZ PICT *IHT ; SIZE 1.167,8.250,6 FONT

14、宋体, 12 DO DISMIT WITH ,III &ENABLE THE MESSAGE OF MMAIN_MENU IF III=0 7.333,24.750 SAY 物料管理系统 FONT 宋体, 36 STYL TB 19.278,36.125 SAY MRP作业 FONT 宋体, 12 STYL T ELSE 8.5,23.750 SAY 物料管理系统 FONT 宋体, 28 STYL TB 15.878,32.125 SAY MRP作业 FONT 宋体, 12 STYL T ENDI ACTI WIND CPMAINZ READ CYCL MODA OBJE JJLAST IF

15、(LAST()=27 AND _ZYHOXZ1) OR _ZYHOXZ=5 EXIT ENDI DO DISMIT WITH COLO 3/7*,III & DISABLE THE MESSAGE OF MMAIN_MENU JJLAST=_ZYHOXZ DO SUBMENU WITH _ZYHOXZ CLOS DATA CLEA TYPEENDDRELE WIND CPMAINZCLOS DATA ALLON ERROON KEYRETU*PROC DISMIT*PARA MYCOLO,AIROW AIROW+1.5,08.225 SAY 数据录入 FONT 宋体, 12 STYL T &M

16、YCOLO AIROW+1.5,22.575 SAY 数据查询 FONT 宋体, 12 STYL T &MYCOLO AIROW+1.5,36.750 SAY 报表输出 FONT 宋体, 12 STYL T &MYCOLO AIROW+1.5,51.000 SAY 代码维护 FONT 宋体, 12 STYL T &MYCOLO AIROW+1.5,65.375 SAY 结束本例 FONT 宋体, 12 STYL T &MYCOLORETU*PROC SUBMENU*PARA MIMODO CASE CASE MIMO=1 PITE=1 入库数据录入;2 销售数据录入;3 数据初始化 ;0 退出

17、本选择单 CASE MIMO=2 PITE=1 每笔入库数据查询;2 每笔销售数据查询;3 出库入库数据查询;4 产品库存数据查询;0 退出本操作选择单 CASE MIMO=3 PITE=1 统计报表计算;2 生产销售月表;3 月收发存总表;0 退出本选择单 CASE MIMO=4 PITE=1 增加糖果品种;2 删除糖果品种;3 修改代码表 ;0 退出本选择单ENDCDO WHIL .T. _ZYHIN=0 CLOS DATA ALL IMO=IIF(MIMO=2,5,4) IF NOT WEXIST(ZSUBM) DEFI WIND ZSUBM AT 0,0 SIZE 13,26+4*(I

18、MO-4) FONT 宋体,12 SYST COLOR 0/7* FLOA TITL SUBS(数据录入数据查询报表输出代码维护,(MIMO-1)*8+1,8)+操作选项 MOVE WIND ZSUBM CENT ENDI ACTI WIND ZSUBM cho1=0 IF IMO=4 1.5,4 GET cho1 FUNC *VT +PITE FONT 宋体,12 SIZE 1.6,18,1.2 DEFA IMO ELSE 1,4 GET cho1 FUNC *VT +PITE FONT 宋体,12 SIZE 1.6,22,0.7 DEFA IMO ENDI READ MODA CYCL O

19、BJE IMO _ZYHIN=cho1 IF (LAST()=27 AND _ZYHIN=0) OR CHO1=IMO EXIT ELSE IF IMO=4 1.5,4 GET Ucho1 FUNC *VT +PITE FONT 宋体,12 SIZE 1.6,18,1.2 DEFA IMO DISA ELSE 1,4 GET Ucho1 FUNC *VT +PITE FONT 宋体,12 SIZE 1.6,22,0.7 DEFA IMO DISA ENDI CLEA GETS DO SUBPAC WITH MIMO*10+CHO1 IF LAST()=27 CLEA TYPE _ZYHIN=.

20、F. ENDI ENDIENDDCLOS DATA ALLRELE WIND ZSUBMRETU*PROC SUBPAC*PARA DONUMDO CASE CASE INLI(DONUM,11,12) DO ZCP11 WITH IIF(DONUM=11,入库,销售) CASE DONUM=13 AAQT=N DO ZYHWA_SE WITH 确认数据初始化,数据初始化将清除所有数据文件中的数据。真要执行数据初始化请按Y键:,6,AAQT IF UPPE(AAQT)=Y USE cprk ZAP USE cpxs ZAP USE cprdata INDEX cprdata ZAP USE c

21、pbb ZAP USE cpkc ZAP CLOS DATA ALL DO ZYHWA_SE WITH 1,数据初始化执行完毕。按任意键,1 ELSE DO ZYHWA_SE WITH 1,数据初始化没有执行。按任意键,1 ENDI CASE INLI(DONUM,21,22,23,24) DO ZCP21 WITH IIF(DONUM=21,入库,; IIF(DONUM=22,销售,; IIF(DONUM=23,出入库,库存) CASE INLI(DONUM,31,32,33) PPPRG=DO ZCP+STR(DONUM,2,0) &PPPRG CASE INLI(DONUM,41,42,

22、43) DO ZCP41 WITH DONUM-40ENDCRETU*PROC ZCP11*PARA SRTYPECLOS DATA ALLPRIV ALL LIKE U*STOR DATE() TO URQ1,URQ2DO GETRQ WITH 1,URQ1,URQ2IF EMPT(URQ1) CLOS DATA RETUENDISELE 1USE CPSJSRZAPDO CPEMPTGO TOPSCAT TO UEMPTYDEFI WIND NRLR AT 0,0 SIZE 20.5,78 FLOA SYST COLOR RGB(0,0,0,227,236,238) ; TITL 输入 F

23、ONT 宋体, 12MOVE WIND NRLR CENTPUSH KEY CLEAON KEY LABE CTRL+H DO DISCAPR WITH 产品+SRTYPE+数据录入操作帮助,(由张玉红“帮助”程序输出),8,M2ON KEY LABE F1 DO CPEMPTON KEY LABE CTRL+UPARROW DO ZYHUPON KEY LABE CTRL+DNARROW DO ZYHDNDO WHIL .T.IF SRTYPE=入库 BROW FIEL RQ:11:H=发生日期:W=.F.,; SRNR:H=产品助录:V=WHAT_CP(),; rksl:9:H=入库数量:

24、P=Z:W=!EMPT(CPDM),; dw:5:h=单位:w=.f.,; cpdm:4:H=代码:W=.F.,; cpmc:9:H=产品名称:W=.F.,; LB:6:H=类别:W=.F.,; EDUU= :1:H= :R ; WIND NRLR TITL 产品入库记录输入 Ctrl+W:退出 Ctrl+H:帮助 FONT 宋体, 11ELSE BROW FIEL RQ:11:H=发生日期:W=.F.,; SRNR:H=产品助录:V=WHAT_CP(),; Lssl:9:H=零售数量:P=Z:W=!EMPT(CPDM),; Pfsl:9:H=批发数量:P=Z:W=!EMPT(CPDM),;

25、dw:5:h=单位:w=.f.,; cpdm:4:H=代码:W=.F.,; cpmc:9:H=产品名称:W=.F.,; LB:6:H=类别:W=.F.,; EDUU= :1:H= :R ; WIND NRLR TITL 产品销售记录输入 Ctrl+W:退出 Ctrl+H:帮助 FONT 宋体, 10 ENDILOCA ALL FOR !EMPT(ABS(LSSL)+ABS(PFSL)+ABS(RKSL)GO TOPIF FOUN() AAQQ=1 DO ZYHWA_SE WITH 是否存盘,2,AAQQ,-10,-10,1 存盘;2 修改;0 CLOS DATA ALL DO SAVEINSJ

26、 ELSE ZAP ENDIENDIRELE WIND NRLRCLOS DATA ALLPOP KEYRETU*PROC CPEMPT*SELE 1UUREC=RECN()FOR UI=1 TO 20 APPE BLAN REPL RQ WITH URQ1NEXTIF BETW(UUREC,1,RECC(1) GO UURECENDIRETU*FUNC WHAT_CP*IF EMPT(SRNR) REPL SRNR WITH CPMC RETU .T.ENDIUUSR=STRT(SRNR, ,)UUATC=*CANC*DO CASE CASE LEFT(UUSR,2)=* GATH FROM

27、 UEMPTY SKIP IIF(RECN()1 SET FILT TO CPDM=UUSR UUATC=XZCPNA() ENDI ENDI CASE BETW(ASC(UUSR),65,122) & By ZJM UUSR=UPPE(UUSR) SELE 2 USE CPDM ALIA CPDM COUN ALL TO U_NUM FOR ALLT(ZJM)=UUSR IF U_NUM=1 LOCA ALL FOR ALLT(ZJM)=UUSR UUATC=+ALLT(CPDM.CPDM)+ALLT(CPDM.CPMC)+ALLT(CPDM.DW)+; +ALLT(CPDM.LB)+LTRI(STR(RECN(CPDM),6,0)+ ELSE IF U_NUM1 SET FILT TO ZJM=UUSR UUA