1、 ERP 原理与应用- 0 -ERP原理与应用论文专 业 计算机科学与技术 班 级 计科 1102 班 姓 名 刘梅 20112075 张文芳 20115167黄玉婷 20112059 李萌 20112051 指导教师 涂传清 ERP 原理与应用- 0 -目录目录 .1第一章 需求分析 .11.1 物料需求计划(MRP)简介 11.2 系统功能要求 11.3 功能需求 5第二章 系统分析 .72.1 进入系统方法 .7第三章 系统设计分析 .73.1 数据内容和模块截图 7第四章 系统模块 .84.1 系统模块分析 .8第五章 作业代码 .115.1 代码内容 .11ERP 原理与应用- 0
2、-第一章 需求分析1. 1 物料需求计划(MRP)简介物料需求计划（简称为 MRP）与主生产计划一样属于 ERP 计划管理体系，它主要解决企业生产中的物料需求与供给之间的关系，即无论是对独立需求的物料，还是相关需求的物料，物料需求计划都要解决“需求什么？现有什么？还缺什么？什么时候需要？”等几个问题。它是一个时段优先计划系统，其主要对象是决定制造与采购的净需求计划。它是由主生产计划推动运行的，但反过来，它又是主生产计划的具体化和实现主生产计划的保证计划。由于物料需求计划是把主生产计划排产的产品分解为各个零部件的生产计划和采购件的采购计划，因此，制订物料需求计划前就必须具备以下的基本数据：第一项
3、数据是主生产计划，它指明在某一计划时间段内应生产出的各种产品和备件，它是物料需求计划制订的一个最重要的数据来源。第二项数据是物料清单（BOM） ，它指明了物料之间的结构关系，以及每种物料需求的数量，它是物料需求计划系统中最为基础的数据。第三项数据是库存记录，它把每个物料品目的现有库存量和计划接受量的实际状态反映出来。第四项数据是提前期，决定着每种物料何时开工、何时完工。应该说，这四项数据都是至关重要、缺一不可的。缺少其中任何一项或任何一项中的数据不完整，物料需求计划的制订都将是不准确的。因此，在制订物料需求计划之前，这四项数据都必须先完整地建立好，而且保证是绝对可靠的、可执行的数据。物料清单
4、物料需求计划 MRP库存信息采购件的建议计划*订货日期和到货日期*需求数量主生产计划 MPS自制件的建议计划*开始生产日期和完工日期*需求数量ERP 原理与应用- 1 -MRP 基本构成示意图一般来说，物料需求计划的制订是遵照先通过主生产计划导出有关物料的需求量与需求时间，然后，再根据物料的提前期确定投产或订货时间的计算思路。其基本计算步骤如下：1.计算物料的毛需求量。即根据主生产计划、物料清单得到第一层级物料品目的毛需求量，再通过第一层级物料品目计算出下一层级物料品目的毛需求量，依次一直往下展开计算，直到最低层级原材料毛坯或采购件为止。2.净需求量计算。即根据毛需求量、可用库存量、已分配量等
5、计算出每种物料的净需求量，即净需求量=毛需求量+已分配量-可用库存量- 在途量。3.批量计算。即由相关计划人员对物料生产作出批量策略决定，不管采用何种批量规则或不采用批量规则，净需求量计算后都应该表明有否批量要求。4.安全库存量、废品率和损耗率等的计算。即由相关计划人员来规划是否要对每个物料的净需求量作这三项计算。5.下达计划订单。即指通过以上计算后，根据提前期生成计划订单。物料需求计划所生成的计划订单，要通过能力资源平衡确认后，才能开始正式下达计划订单。6.再一次计算。物料需求计划的再次生成大致有两种方式第一种方式会对库存信息重新计算，同时覆盖原来计算的数据，生成的是全新的物料需求计划；第二
6、种方式则只是在制定、生成物料需求计划的条件发生变化时，才相应地更新物料需求计划有关部分的记录。这两种生成方式都有实际应用的案例，至于选择哪一种要看企业实际的条件和状况。1.2 系统要求能实现如下功能：第一，根据主生产计划推算各种物料的需求数量和需求时间。第二，根据最终产品的物料清单和工艺路线推算出最终产品的生产成本。第三，MRP 系统的输出是采购计ERP 原理与应用- 2 -划和生产作业计划，请设计采购单和生产任务单这两种表单来描述采购计划和生产作业计划。MRP 系统涉及到的主要实体有：1、物料。其应该包括如下属性：供给来源 成品、自制和外购，成品为主生产计划的对象， “自制件” 将会形成生产
7、作业计划，“外购件”将会形成采购计划； 生产周期或采购提前期，对于“成品”和“自制件”，应该定义生产周期作为其属性，对于 “外购件”则应该定义采购提前期作为其属性；对于每种物料应该定义“父件号”和“父件名称”这种属性，类似于教务管理系统中的先导课程，以表明物料之间的结构关系，否则无法形成完整的BOM；对于“ 成品” 和“自制件”，应该定义其所涉及的生产工序，以便于计算完成该物料的生产消耗了多少资源，对于“外购件” 应该定义其采购单价，目的都是用来估算成品的生产成本。2、计划参数。用于定义有关计划展望期、时段、需求时区、计划时区和预测时区等。3、主生产计划。在这里要定义主生产计划的对象，并规定在
8、需求时区、计划时区和预测时区如何确定主生产计划对象的毛需求量等。4、工作中心。工作中心是承担物料加工活动的地所、设备和工作人员的集合。如果把教务管理系统与 MRP 系统来做一个比较，工作中心相当于教务管理系统中的教师或教室等实体，物料则相当于学生。5、工序。工序是指一种物料转化成另一种物料所经历的加工过程，如果把教务管理系统与 MRP 系统来做一个比较，工序类似于教务管理系统中的课程，教师和学生是通过课程而发生关系，物料和工作中心则是通过工序而发生关系。6、供应商。作为外购物料的提供者。7、企业部门。如销售部、采购部、财务部、生产部和仓库（作为所有物料的存放地）等。ERP 原理与应用- 3 -
9、1.3 功能需求按照本系统的要求需要有以下功能：1、登录界面：界面显示MRP 系统，进入不同的功能界面 。1、ERP 作业系统的界面物料管理系统数据录录入数据查询报表输出代码维护退 出查看代码登陆界面ERP 原理与应用- 4 -2、代码维护功能：此功能能对用户的密码进行修改，提高安全性。3、数据录入：对数据进行录入。4、数据查询：查询录入和已有的数据。5、报表输出：输出相应内容。6、查看源代码：本期末作业的管理系统代码。第二章 系统分析2.1 进入系统方法该系统的系统结构图按步骤可划分为：一：先进入界面，会显示 MRP 系统的模块，进入第二步；二：打开系统的界面。在界面共有 6 种选项，现列举
10、如下；如： 数据录入 数据查询 报表输出 查看源代码代码维护功能 退出ERP 原理与应用- 5 -以上是 6 个模块，每个模块里面又细分了几个模块，以使 MRP系统更完善。查看代码的功能，可以看到这个作业的代码。第三章 系统设计3.1 数据内容和模块截图这个 MRP 系统数据库含有这些模块相应的内容ERP 原理与应用- 6 -第四章 系统模块分析4.1 系统模块分析MRP 计划系统以销售订单为核心计算来源，对物料所处“状态”如库存数量、采购在途量、制单在途量、委外在途、制单欠料（余量） 、委外欠料（余量） 、采购计划在途等进行细分，当进行相关需求分析时，根据需要可灵活设置是否考虑某一“状态”的
11、物料；具有严谨的 MRP 计算逻辑，对 MRP 采购计划、制造单、委外单进行全面追溯，相关计划人员可以根据对 MPS 主生产计划分析、MRP 物料需求计划运算等手段，产生相关订单的物料需求ERP 原理与应用- 7 -具体功能包括：支持面向订单型生产模式，系统可灵活设置销售订单类型是否参与主生产计划；、MPS 主生产计划产生前，系统根据订单需求提供主生产计最早划分析功能，并对订单所涉及物料的可用库存、在途量、制单欠量、计划在途量等进行比较；、MRP 对替代品的运算，支持物料的替代运算，即当物料缺货时，系统查找是否有可替代的物料，将替代料的可用库存加入到主料的库存中运算，系统并在主料明细中记录下替
12、代料信息，写在备注栏；、在 MRP 运算时，系统会考虑各物料的安全库存，可在料品资料维护中设置安全存量及安全存量的下达方式，系统提供了按下达量和按毛需求下达两种方式，按下达量，当下达量大于0时，才考虑安全库存，按毛需求，当需求大于0时，就考虑安全库存、可以设置物料在 MRP 运算时是否合并，系统提供了按订单合并、按周合并、按时间跨度合并3种方式；同订单号的同物料的下达量是否合并成一笔下达量，同物料需求日期在一个自然周内的下达量是否合并成一笔下达量，同物料需求日期在设置的时间跨度范围内的下达量是否合并成一笔下达量、针对物料的包装及经济性等其它原因，可以灵活设置物料的订货批量和最小订货量，系统提供
13、了按批量、按需求来考虑物料需求，按需求只考虑最小订货量，按批量结合考虑最小订货量和订货批量、针对半成品和成品可以设置在 MRP 分析后是否产生制ERP 原理与应用- 8 -造单，可以在料品资料维护中设置是否产生制造单即可、可以设置物料的订货提前期，便于在 MRP 运算时，产生物料的最佳需求日期，可以减少库存数及节约资金流除了介绍的模块，系统还有以下的模块：1、登录模块 2、数据录入模块 3、数据查询模块 4、报表输出模块及其他模块第 5 章 作业代码5.1 主要代码内容ERP 原理与应用- 9 -SET TALK OFFSET DELETE OFFSET DATE ANSISET CENT O
14、NSTOR 1 TO JJLASTDO WHIL .T.CLOS DATACLEA TYPECLEA TYPEON KEYIF NOT WEXIST(“cpmainz“)IF SYSM(1)641DEFI WIND CPMAINZ AT 0,0 SIZE 31.056,99.875 TITL “物料管理系统“ ;FONT “宋体“, 12 FLOAT NOCLOSE NOMINIMIZE SYSTELSEDEFI WIND CPMAINZ AT 0,0 SIZE 25.056,84.875 TITL “物料管理系统“ ;FONT “宋体“, 12 FLOAT NOCLOSE NOMINIMIZ
15、E SYSTENDIMOVE WINDOW CPMAINZ CENTERENDIACTI WIND CPMAINZ NOSHOWIII=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 “宋体“, 12DO DISMIT WITH ,III +ALLT(CPDM.LB)+LTRI(STR(RECN(“CPDM“),6,0)+ELSEIF U_NUM1SET FILT TO ZJM=UUSRUUATC=XZCPNA()ENDIENDICASE ASC(UU
16、SR)158 +ALLT(CPDM.LB)+LTRI(STR(RECN(“CPDM“),6,0)+ELSEIF U_NUM1SET FILT TO CPMC=UUSRUUATC=XZCPNA()ENDIENDIOTHEERP 原理与应用- 18 -SELE 1REPL SRNR WITH CPMCRETU .T.ENDCSELE 2USESELE 1IF UUATC=*CANC*REPL SRNR WITH CPDMRETU .T.ENDIREPL CPDM WITH CPJM(1,UUATC),CPMC WITH CPJM(2,UUATC),;DW WITH CPJM(3,UUATC),LB
17、 WITH CPJM(4,UUATC)REPL SRNR WITH CPMCRETU .T.*PROC ZYHUP*IF RECN()=1RETUENDIPRIV ARINI,BRSJSCAT TO ARINISKIP -1SCAT TO BRSJGATH FROM ARINISKIPGATH FROM BRSJSKIP -1RETU*PROC ZYHDN*IF RECN()=RECC()RETUENDIERP 原理与应用- 19 -PRIV ARINI,BRSJSCAT TO ARINISKIPSCAT TO BRSJGATH FROM ARINISKIP -1GATH FROM BRSJS
18、KIPRETU*PROC SAVEINSJ*SELE 1IF SRTYPE=入库USE cprkELSEUSE cpXSENDIAPPE FROM cpsjsrUSE CPSJSRSORT ON CPDM TO $0USE $0REPL ALL rksl with rksl-(lssl+pfsl)TOTA ON CPDM TO $KC FIEL RKSLUSEERAS $0.DBFCLOS DATA ALLSELE 1USE $KCSELE 2USE CPKCIF RECC()=0APPE BLANREPL RQ WITH URQ1ELSELOCA ALL FOR RQ=URQ1ERP 原理与
19、应用- 20 -IF !FOUN()GO BOTTSCAT TO UUKCRECAPPE BLANGATH FROM UUKCRECREPL RQ WITH URQ1ELSEIF RQURQ1IF RECN()1SKIP -1SCAT TO UUKCRECAPPE BLANGATH FROM UUKCRECREPL RQ WITH URQ1ELSEINSE BLAN BEFOREPL RQ WITH URQ1ENDIENDIENDIENDIFSELE 2LOCA ALL FOR RQ=URQ1FOR UI=1 TO RECC(1)SELE 1GO UIUZD=CP+ALLT(CPDM)SELE
20、 2REPLACE IIF(SRTYPE=销售,cpxs,;IIF(SRTYPE=出入库,CPRDATA,$DRKC)USE “IIF(SRTYPE=销售,59,;IIF(SRTYPE=出入库,68,48)DEFI WIND cxwind AT 0,0 SIZE 18,UUCOL ;FONT “宋体“,12 TITLE “数据查询“ SYST COLOR 0/7*MOVE WIND cxwind CENTIF SRTYPE库存SET FILT TO rq=URQ1ENDIDO CASECASE SRTYPE=入库BROW FIEL RQ:11:H=入库日期,cpdm:5:H=“代码“,B.cp
21、mc:9:H=“产品名称“,;rksl:10:P=Z:H=“入库数量“ NOED NODE NOAP ;TITL DTOC(urq1)+“ 每笔入库数据查询“ WIND Cxwind NORMCASE SRTYPE=销售BROW FIEL RQ:11:H=销售日期,cpdm:5:H=“代码“,B.cpmc:9:H=“ERP 原理与应用- 24 -产品名称“,;lssl:10:P=Z:H=“零售数量 “,pfsl:10:P=Z:H=“批发数量 “ NOED NODE NOAP ;TITL DTOC(urq1)+“ 每笔销售数据查询“ WIND Cxwind NORMCASE SRTYPE=出入库
22、BROW FIEL RQ:11:H=发生日期,cpdm:5:H=“代码“,B.cpmc:9:H=“产品名称“,;rksl:10:P=Z:H=“入库数量“,lssl:10:P=Z:H=“零售数量 “,pfsl:10:P=Z:H=“批发数量 “,;bbb=lssl+pfsl:10:P=Z:h=总销售量 ;NOED NODE NOAP FONT “宋体“,10 ;TITL DTOC(urq1)+“日出入库汇总数据查询“ WIND Cxwind NORMCASE SRTYPE=库存BROW FIEL RQ:11:H=库存日期,cpdm:5:H=“代码“,B.cpmc:9:H=“产品名称“,;KCsl:
23、10:P=Z:H=“库存数量“ NOED NODE NOAP ;TITL DTOC(urq1)+“ 库存数据查询“ WIND Cxwind NORMENDCCLOSE DATA ALLRELE WIND CxwindRETU*PROC KCSJMADE*SELE KCSELE 2USE CPRDATACOPY STRU TO $DRKC FIEL RQ,CPDM,KCSLUSE $DRKCFOR UI=1 TO FCOU(1)SELE KCUZD=FIEL(UI)IF LEFT(UZD+ ,2)=CP AND BETW(SUBS(UZD+UUUU,3,2),01,99)SELE 2APPE B
24、LANERP 原理与应用- 25 -REPL RQ WITH A.RQ,CPDM WITH SUBS(UZD,3,2),KCSL WITH A.TITLE “代码维护“ SHADOW SYSTEM MDI COLO 7+/2MOVE WIND dmwind CENTERACTIVATE WINDOW dmwindDEFI WIND mdm1 IN dmwind FROM 1,2 TO 15,62 font “宋体“,12DEFI WIND mdm11 IN dmwind FROM 1,2 TO 15,62font “宋体“,12DEFI WIND mdm2 IN dmwind FROM 16,
25、5 TO 20,60 font “宋体“,12 TITL “确认保证“ SYSTEM MDI DEFI WIND mdm3 FROM 2,38 TO 20,68 IN dmwind TITL “对照表“DO CASECASE cho4=1 dwdm:H=“ “:V=fdm():F,dw:H=“单 位 “:W=.F.,lbdm:H=“ “:V=fdm():F,;lb:H=“类 别“:W=.F.,bbj:H=“不变价“,xxj:H=“ 现行价“:V=fappe():F;NOCLEAR WINDOW mdm1 TITLE “增加新产品 “ COLOR SCHEME 11IF RECCOUNT()=0
26、 OR (RECCOUNT()=1 AND (cpdm=“ “ OR cpmc=“ “)CLOSE DATABASESERASE cpdmtem.DBFRELE WINDOW dmwind,mdm1 3,0 CLEARRETURNENDIFACTIVATE WINDOW mdm2 0.5,4 GET ch FUNCTION “*H 1 数据不保存;2 数据保存;3 继续输入“;FONT “宋体“,12 SIZE 1.7,12,4 DEFAULT 3READ MODAL CYCLE OBJECT 3DO CASECASE ch=1EXITCASE ch=2SELECT 1DELETE ALL F
27、OR cpdm=“ “PACKUSESELECT 2APPEND FROM cpdmtemREINDEXEXITENDCASEHIDE WINDOW mdm3ENDDOCASE cho4=2 lb:H=“类别“,bbj:H=“产品不变价“,xxj:H=“ 产品现行价 “ NOEDIT NOAPPEND ;NOCLEAR TITLE “产品代码表“ WINDOW mdm11 COLOR SCHEME 11ON KEY LABEL F12 *ACTIVATE WINDOW mdm2 0.5,4 GET ch FUNCTION “*H 1 数据不保存;2 数据保存;3 继续输入“;FONT “宋体“,12 SIZE 1.7,12,4 DEFAULT 3READ MODAL CYCLE OBJECT 3DO CASECASE ch=1RECALL ALLEXITCASE ch=2SELECT 2PACKEXITENDCASEHIDE WINDOW mdm2ENDDOCASE cho4=3 &-修改-SELECT 2COPY TO cpdmtemSELECT 1USE cpdmtemACTIVATE WINDOW dmwind 20,15 SAY “ 产品代码是不可修改的，按 Esc 退出“ STYL “T“DO WHILE .T.SELECT 1ACTIVATE WINDOW mdm1
