对这种情况,首先采用上节的分配方法,当有些机组负荷超出计划时间段的负荷时,将调整负荷向特征函数为2的机组。
4 生产钢卷分配方法的软件实现
生产钢卷分配方法的软件实现,其特征函数将由机组生产钢卷最佳匹配表给出。下面的一段程序为冷轧厂CIMS 工程中实用的机组排产作业计划过程中的机组任务分配子程序,开发工具为Developer2000。数据表名及其字段名和变量名不做详解。
DECLARE
CURSOR fzcmx cursor IS
select distinct schth,ylbh from pp fzcmx where substr(zt,1,1)=‘5'and dclbz='0'
group by schth,ylbh;
BEGIN
OPEN fzcmx_cursor;
loop
FETCH fzcmx cursor INTO v schth,v_ylbh;
EXIT WHEN fzcmx_cursor % NOTFOUND;
select gz,cphd,cpkd,cpcd zl into v_gzbm,v_cphd,v_cpkd,v_cpcd,p
from pp_fzcmx
where ylbh=v ylbh;
select subst(r zt,4)into v bc from pp fzcmx where ylbh=v ylbh;
v_b:=to_numbe(r v bc)+1;
select subst(r gym,v_b,1)into v_c from pp_fzcmx where ylbh=v_ylbh;
if v_c>' 'then
if v_c='1'then
INSERT INTO pp_jq1rjh( schth,ylbh,gzbm,cphd,cpkd,cpcd,sl,rq,ztm)
SELECT schth,ylbh,gzbm,cphd,cpkd,cpcd,sl,sysdate,
FROM pp_jqrjh1
WHERE lh=v_lh and ph=v_ph1;
elsif v_c='2'then
INSERT INTO pp_jq2rjh(schth,ylbh,gzbm,cphd,cpkd,cpcd,sl,rq,ztm)
SELECT schth,ylbh,gzbm,cphd,cpkd,cpcd,sl,sysdate,0
FROM pp_jqrjh1
WHERE lh=v_lh and ph=v_ph1;
elsif v_c='3'then
INSERT INTO pp jq3rjh( schth,ylbh,gzbm,cphd,cpkd,cpcd,sl,rq,ztm)
SELECT schth,ylbh,gzbm,cphd,cpkd,cpcd,sl,sysdate,0
FROM pp_jqrjh1
WHERE lh=v_lh and ph=v_ph1;
Else v_next:=1;
end if;
else message('****’);
end if;
END loop;
CLOSE fzcmx_cursor;
5 结 语
本文通过冷轧薄板厂MES 工程的实例,介绍了机组排产作业计划过程中机组任务分配方法,综合所有车间(或工序),实际是一种实时路径规划方法。该软件已在现场运行半年多时间,结果表明,软件运行稳定,取得了良好的管理效应和生产效益,得到了用户的肯定和好评。