物料需求计算函数
有了存货总线数据后，需求计算将变得十分简单。本例需求计算根据销售订单计算，并生成需求计算单，销售订单+需求计算单=存货总线需求。在存货总线中，需求、计算、完成、交付与结存是直观体现的，不是传统的存货账项数据，为物料决策提供快速、准确的依据。
本例在需求计算单填制功能中，使用调入数据获得单据数据，此时完成需求计算。需求计算单与销售订单是一一对应的。
一、物料清单表数据字典
mlqd字段列表： qdid int4 32 清单序号 textedit cpchxh varchar 20 产品货号 textedit 00000 cpchdh varchar 30 产品代号 textedit jgdh varchar 30 结构代号 textedit jc int4 32 级次 textedit chxh varchar 20 货号 buttonedit chdh varchar 30 存货代号 buttonedit chmc varchar 100 存货名称 textread xh1 varchar 100 型号 buttonedit xh2 varchar 100 规格 textedit xh3 varchar 400 参数 textedit gg1 varchar 100 颜色 comboedit edit gg2 varchar 100 材质 textedit gg3 varchar 100 图号 textedit jldw varchar 100 单位 textread cllb varchar 20 材料类别 textread desl numeric 16 定额数量 textedit 0.0000;-0,0000;# desh numeric 16 定额损耗 textedit 0.00;-0,00;# wldw varchar 200 往来单位 buttonedit scbm varchar 100 生产部门 textedit ckmc varchar 100 仓库名称 listedit jsjd int4 32 计算精度 textedit hh int4 32 行号 textedit rq date 0 日期 dateedit yyyy-MM-dd sfsh bool 0 是否审核 checkedit shry varchar 40 审核人员 textedit
存货单据数据字典在前面文章中已经给出。
二、物料需求计算函数
CREATE OR REPLACE FUNCTION public.x9_xqjs( ssdqyh character varying, ssdjoid character varying) RETURNS character varying LANGUAGE 'plpgsql' COST 100 VOLATILE PARALLEL UNSAFE AS $BODY$ -- description:需求计算单计算程序，根据销售订单计算。原为根据生产计划单计算 -- 本例用于需求计算单调入数据时使用。需求计算单与销售订单一一对应。 DECLARE ssmsg text;ssdet text;sstname text;sshint text;ssctt text; --错误处理 ssdqjc int; ssdqny char(6); ssrkerr varchar(200); BEGIN -- 需求计算前要对关联物料清单进行验证 IF NOT exists(SELECT shr FROM djcho WHERE djmc = '销售订单' AND oid = $2 AND shr <> '' AND djr <> '') THEN ssrkerr:='单据' || $2 || '不存在或未登记！' ; CALL x9_jlproc(ssrkerr,'','djcho','登记销售订单','需求计算'); RETURN ssrkerr; END IF; IF exists(SELECT oid FROM djchm dd INNER JOIN mlqd qd ON qd.cpchxh = dd.chxh WHERE dd.oid = $2 AND qd.sfsh = false) THEN ssrkerr:='单据' || $2 || '的物料清单未被审核,无法进行需求计算' ; CALL x9_jlproc(ssrkerr,'','mlqd','清单审核','需求计算'); RETURN ssrkerr; END IF; -- 步骤 -- 1.删除原有计算结果 DELETE FROM utwlxq WHERE oid = $2; ssdqny:=x9_dqny(); -- 2.生成当前单据的一级物料需求行 INSERT INTO utwlxq (oid,ny,cpchxh,jgdh,sjchxh,clchxh,jc,cllb,xqsl) SELECT $2 AS oid,ssdqny AS ny,mlqd.cpchxh, mlqd.jgdh, '' AS sjchxh,mlqd.cpchxh, mlqd.jc, mlqd.cllb, sum(round((djchm.xqsl * mlqd.desl) * (1 + mlqd.desh / 100), mlqd.jsjd)) AS xqsl FROM djchm INNER JOIN mlqd ON djchm.chxh = mlqd.cpchxh GROUP BY djchm.oid,mlqd.cpchxh,mlqd.jgdh,mlqd.chxh,mlqd.jc,mlqd.cllb HAVING (djchm.oid = $2) AND (mlqd.jc = 1); -- 3.分级计算 ssdqjc:=1; LOOP EXIT WHEN ssdqjc > 5; -- 生成下一级物料需求 INSERT INTO utwlxq (oid,ny,cpchxh, jgdh, sjchxh,clchxh, jc, cllb,xqsl) SELECT $2 AS oid,ssdqny AS ny, mlqd.cpchxh, mlqd.jgdh,wlxq.clchxh AS sjchxh,mlqd.chxh, mlqd.jc, mlqd.cllb, sum(round((wlxq.xqsl * mlqd.desl) * (1 + mlqd.desh / 100), mlqd.jsjd)) AS xqsl FROM utwlxq AS wlxq INNER JOIN mlqd ON wlxq.cpchxh = mlqd.cpchxh AND mlqd.jgdh like wlxq.jgdh || '%' WHERE (wlxq.oid = $2) AND (wlxq.jc = ssdqjc) AND (wlxq.xqsl > 0) AND (mlqd.jc = ssdqjc + 1) GROUP BY mlqd.cpchxh, mlqd.jgdh,wlxq.clchxh,mlqd.chxh,mlqd.jc,mlqd.cllb; ssdqjc:=ssdqjc + 1; END LOOP; RETURN '计算完成'; EXCEPTION WHEN others THEN GET stacked DIAGNOSTICS ssmsg = MESSAGE_TEXT,ssdet = pg_exception_detail, sstname = TABLE_NAME, sshint = pg_exception_hint, ssctt = pg_exception_context; CALL x9_jlproc( ssmsg,ssdet ,sstname,sshint,ssctt); RETURN ssdjoid || '需求计算出现错误'; END; $BODY$;
三、总结
存货总线设计的目的是使用物料管理业务简化的同进行规范化，为小企业ERP实施成功提供更大可能。使复杂的数据关系变得简单好懂并且可视化。为传统管理模式向先进管理模式的过度提供了更多机会。
