INSERT INTO MIL_REFUR_RESULT (RESULT_NO, LOT_NO, STOVE_NO, JUDGE_STOVE_NO, PLINE_CODE, PROCESS_ROUTE, IN_FUR_TIME, STEPPING_RHYTHM, TRANSFER_RHYTHM, FIRST_IN_TEMP, LAST_IN_TEMP, FIRST_OUT_TEMP, LAST_OUT_TEMP, SET_FUR_TEMP, IN_FUR_NUM, SCRAP_NUM, LHEAT_CRUVE1, LHEAT_CRUVE2, LHEAT_CRUVE3, LHEAT_CRUVE4, LHEAT_CRUVE5, LHEAT_CRUVE6, LHEAT_CRUVE7, LHEAT_CRUVE8, ACTUAL_LENGTH_OF_WASTE_PIPE, RESIDUAL_OXYGEN, FUR_PRESS, WIND_PRESS, GAS_PRESS, START_TIME, EXECUTIVE_PRODUCER, PRODUCER_TIME, PRODUCER_TEL, NODE_FUR_FLAG, REMARK, COL_MODE, COL_TIME, COL_USER, COL_SHIFT, COL_GROUP, CHANGECLASSNUM, BURNINGRATE, FIRST_IN_TIME, BEGIN_ROLLING_TEMP, PRO_PLAN_ID, GX_PLAN_NO) VALUES ('#RESULT_NO#', '#LOT_NO#', '#STOVE_NO#', '#JUDGE_STOVE_NO#', '#PLINE_CODE#', '#PROCESS_ROUTE#', SYSDATE, '#STEPPING_RHYTHM#', '#TRANSFER_RHYTHM#', '#FIRST_IN_TEMP#', '#LAST_IN_TEMP#', '#FIRST_OUT_TEMP#', '#LAST_OUT_TEMP#', '#SET_FUR_TEMP#', '#IN_FUR_NUM#', '#SCRAP_NUM#', '#LHEAT_CRUVE1#', '#LHEAT_CRUVE2#', '#LHEAT_CRUVE3#', '#LHEAT_CRUVE4#', '#LHEAT_CRUVE5#', '#LHEAT_CRUVE6#', '#LHEAT_CRUVE7#', '#LHEAT_CRUVE8#', '#ACTUAL_LENGTH_OF_WASTE_PIPE#', '#RESIDUAL_OXYGEN#', '#FUR_PRESS#', '#WIND_PRESS#', '#GAS_PRESS#', to_date('#START_TIME#', 'yyyy-mm-dd hh24:mi:ss'), '#EXECUTIVE_PRODUCER#', SYSDATE, '#PRODUCER_TEL#', '#NODE_FUR_FLAG#', '#REMARK#', '#COL_MODE#', SYSDATE, '#COL_USER#', '#COL_SHIFT#', '#COL_GROUP#', '#CHANGECLASSNUM#', '#BURNINGRATE#', to_date('#FIRST_IN_TIME#', 'yyyy-mm-dd hh24:mi:ss'), '#BEGIN_ROLLING_TEMP#', '#PRO_PLAN_ID#', '#GX_PLAN_NO#') = 5)) plan_count, t.NODE_STATUS, IS_START, T.PRO_PLAN_ID, T.GX_PLAN_NO FROM (SELECT A.JUDGE_STOVE_NO, A.LOT_NO, A.ID, CASE A.NODE_STATUS WHEN '00' THEN '正在锯切' WHEN '10' THEN '锯切完成' WHEN '20' THEN '锯切完成' WHEN '30' THEN '穿孔完成' WHEN '40' THEN '连轧完成' WHEN '50' THEN '再加热炉完成' END AS NODE_STATUS, case Nvl((select b.IS_START FROM mil_Refur_result b where b.judge_stove_no = a.judge_Stove_no), 4) WHEN '0' THEN '已开始入炉' WHEN '1' THEN '已完成入炉' WHEN '2' THEN '已开始出炉' WHEN '3' THEN '已完成出炉' WHEN '4' THEN '未开始入炉' END AS IS_START, A.PRO_PLAN_ID, A.GX_PLAN_NO FROM MIL_PLAN A, MIL_REFUR_RESULT B WHERE A.JUDGE_STOVE_NO = B.JUDGE_STOVE_NO(+) AND A.PLINE_CODE = ? AND A.NODE_STATUS < 50) t, MIL_FEEDSAW_RESULT f WHERE IS_START in ('已开始入炉', '未开始入炉') and t.ID = f.result_no(+) and t.JUDGE_STOVE_NO = f.judge_stove_no(+) AND t.lot_no || '&' LIKE '%' || ? || '%' AND t.judge_stove_no || '&' LIKE '%' || ? || '%' order by f.start_time) t1 where t1.PLAN_COUNT > 0 ]]> 0 AND A.ID = C.RESULT_NO AND A.JUDGE_STOVE_NO = C.JUDGE_STOVE_NO AND a.lot_no || '&' LIKE '%' || ? || '%' AND a.judge_stove_no || '&' LIKE '%' || ? || '%' ORDER BY C.START_TIME ]]> = 5)) plan_count, C.START_TIME, CASE A.NODE_STATUS WHEN '00' THEN '正在锯切' WHEN '10' THEN '锯切完成' WHEN '20' THEN '出炉' WHEN '30' THEN '穿孔完成' WHEN '40' THEN '连轧完成' WHEN '50' THEN '出再加热炉' WHEN '60' THEN '定径完成' WHEN '70' THEN '分切完成' WHEN '80' THEN '矫直完成 ' WHEN '90' THEN '探伤完成' WHEN '96' THEN '人工质检完成' WHEN '99' THEN '交库' END AS NODE_STATUS, CASE B.IS_START WHEN '0' THEN '已开始入炉' WHEN '1' THEN '已完成入炉' WHEN '2' THEN '已开始出炉' WHEN '3' THEN '已完成出炉' END as IS_START, A.PRO_PLAN_ID, A.GX_PLAN_NO FROM MIL_PLAN A, MIL_REFUR_RESULT B, MIL_FEEDSAW_RESULT C WHERE A.JUDGE_STOVE_NO = B.JUDGE_STOVE_NO AND A.PLINE_CODE = ? AND A.NODE_STATUS > 40 AND A.ID = C.RESULT_NO AND A.JUDGE_STOVE_NO = C.JUDGE_STOVE_NO AND a.lot_no || '&' LIKE '%' || ? || '%' AND a.judge_stove_no || '&' LIKE '%' || ? || '%' ORDER BY C.START_TIME) t1 where t1.PLAN_COUNT > 0 ]]> UPDATE MIL_REFUR_RACK SET STATUS = '#STATUS#', SCRAP_TIME = SYSDATE WHERE JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND NVL(PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/') AND NVL(GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/') AND SEQ = '#SEQ#' INSERT INTO MIL_SLAB_SCRAP_SEQ (JUDGE_STOVE_NO, PROCESS_NO, SEQ, TIME, REMARK, COL_USER, COL_SHIFT, COL_GROUP, PRO_PLAN_ID, GX_PLAN_NO) VALUES ('#JUDGE_STOVE_NO#', '5', '#SEQ#', SYSDATE, '', '#COL_USER#', '#COL_SHIFT#', '#COL_GROUP#', '#PRO_PLAN_ID#', '#GX_PLAN_NO#') SELECT T.STATUS FROM MIL_ROLLING_RACK T WHERE T.JUDGE_STOVE_NO = ? AND T.SEQ = ? update MIL_REFUR_RACK set COL_SHIFT = '#COL_SHIFT#', COL_GROUP = '#COL_GROUP#', COL_USER = '#COL_USER#' where JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND NVL(PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/') AND NVL(GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/') and COL_SHIFT is null and COL_GROUP is null AND MAT_NO is not null update MIL_REFUR_RACK set IN_SHIFT = '#COL_SHIFT#', IN_GROUP = '#COL_GROUP#' where JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND NVL(PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/') AND NVL(GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/') and IN_SHIFT is null and IN_GROUP is null AND MAT_NO is not null update MIL_REFUR_RACK set OUT_REFUR_TIME = SYSDATE where JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND NVL(PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/') AND NVL(GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/') and OUT_REFUR_TIME is null 0) THEN --判断炉号是否已经存在 IF (V_COUNT = 0) THEN FOR MYROW IN (SELECT * FROM MIL_PLAN T WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO AND NVL(T.PRO_PLAN_ID,'/') = NVL(V_PRO_PLAN_ID,'/') AND NVL(T.GX_PLAN_NO,'/') = NVL(V_GX_PLAN_NO,'/') AND T.PLINE_CODE = V_PLINE_CODE) LOOP INSERT INTO MIL_FURNACES_RESLUT (LOT_NO, STOVE_NO, JUDGE_STOVE_NO, PLINE_CODE, OFFLINE_NUM, STATUS, COL_TIME, COL_USER, COL_SHIFT, COL_GROUP, ZP_HEIGHT, PRODUCNAME, STEELCODE, STEELNAME, GRADECODE, GRADENAME, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, STD_CODE, STD_NAME, STD_STYLE, STD_STYLE_DESC, CONTRACT_NO, PRODUCCODE, ACT_LEN_RANGE, TARGET, PRO_PLAN_ID, GX_PLAN_NO) VALUES (MYROW.LOT_NO, MYROW.STOVE_NO, MYROW.JUDGE_STOVE_NO, MYROW.PLINE_CODE, V_OFFLINE_NUM, '0', SYSDATE, ?, ?, ?, V_ZP_HEIGHT, MYROW.VARIETIES, MYROW.STEELCODE, MYROW.STEELNAME, MYROW.GRADECODE, MYROW.GRADENAME, MYROW.PIPE_SIZE_CODE, MYROW.PIPE_SIZE, MYROW.BUCKLE_TYPE_CODE, MYROW.BUCKLE_TYPE, MYROW.ROLL_STANDRAD_CODE, MYROW.ROLL_STANDRAD, MYROW.STD_STYLE, MYROW.STD_STYLE_DESC, MYROW.CONTRACT_NO, MYROW.VARIETIES_CODE, MYROW.LENGTHCP, MYROW.TARGET, MYROW.PRO_PLAN_ID, MYROW.GX_PLAN_NO); END LOOP; ELSE UPDATE MIL_FURNACES_RESLUT T SET T.OFFLINE_NUM = V_OFFLINE_NUM, T.ZP_HEIGHT = V_ZP_HEIGHT, T.COL_TIME = SYSDATE WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO AND NVL(T.PRO_PLAN_ID,'/') = NVL(V_PRO_PLAN_ID,'/') AND NVL(T.GX_PLAN_NO,'/') = NVL(V_GX_PLAN_NO,'/') AND T.PLINE_CODE = V_PLINE_CODE; END IF; END IF; END; ]]>