INSERT INTO STL_LG_GROUP( FURNACENO, SEQUENCENO, STOVE_NO, JUDGE_STOVE_NO, MATERIAL_NO, MATERIAL_NAME, GRADECODE, GRADENAME, BATCH_GROUD_NO, FLAG_STOVE_NO, STANDARDSCODE, STANDARDREMAK, DIAMETER, FIX_LEN, ACT_COUNT, PLINE_CODE, OLD_MATERIAL_NO, OLD_MATERIAL_NAME, OLD_GRADECODE, OLD_GRADENAME, OLD_JUDGE_STOVE_NO, OLD_DIAMETER, WEIGHT, FIX_NUM, OLD_FIX_NUM, PRO_PLAN_ID, GX_PLAN_NO, GPREQ_ID, PRO_ORDER_NO, OLD_PRO_PLAN_ID, OLD_GX_PLAN_NO, OLD_GPREQ_ID, JUDGE_STOVE_NO_SEQ, OLD_JUDGE_STOVE_NO_SEQ, OLD_FURNACENO, OLD_SEQUENCENO, MAIN_JUDGE_STOVE_NO, OLD_STOVE_NO, ZP_TIME, COL_USER, COL_SHIFT, COL_GROUP) VALUES( '#FURNACENO#', '#SEQUENCENO#', '#STOVE_NO#', '#JUDGE_STOVE_NO#', '#MATERIAL_NO#', '#MATERIAL_NAME#', '#GRADECODE#', '#GRADENAME#', '#BATCH_GROUD_NO#', '#FLAG_STOVE_NO#', '#STANDARDSCODE#', '#STANDARDREMAK#', '#DIAMETER#', '#FIX_LEN#', '#ACT_COUNT#', '#PLINE_CODE#', '#OLD_MATERIAL_NO#', '#OLD_MATERIAL_NAME#', '#OLD_GRADECODE#', '#OLD_GRADENAME#', '#OLD_JUDGE_STOVE_NO#', '#OLD_DIAMETER#', '#WEIGHT#', '#FIX_NUM#', '#OLD_FIX_NUM#', '#PRO_PLAN_ID#', '#GX_PLAN_NO#', '#GPREQ_ID#', '#PRO_ORDER_NO#', '#OLD_PRO_PLAN_ID#', '#OLD_GX_PLAN_NO#', '#OLD_GPREQ_ID#', '#JUDGE_STOVE_NO_SEQ#', '#OLD_JUDGE_STOVE_NO_SEQ#', '#OLD_FURNACENO#', '#OLD_SEQUENCENO#', '#MAIN_JUDGE_STOVE_NO#', '#OLD_STOVE_NO#', TO_DATE('#ZP_TIME#','YYYY-MM-DD HH24:MI:SS'), '#COL_USER#', '#COL_SHIFT#', '#COL_GROUP#') SELECT ? || '-' || LPAD(NVL(MAX(SUBSTR(T.JUDGE_STOVE_NO_SEQ, 8)), 0) + 1, 2, 0) JUDGE_STOVE_NO_SEQ FROM PLN_STEELFOR_ORD T WHERE T.JUDGE_STOVE_NO = ? AND T.PLINE_CODE = ? AND SUBSTR(T.FURNACENO,0,12) = ? AND T.SEQUENCENO = ? SELECT ? || '-' || LPAD(NVL(MAX(SUBSTR(T.FURNACENO, 14)), 0) + 1, 2, 0) FURNACENO FROM PLN_STEELFOR_ORD T WHERE T.JUDGE_STOVE_NO = ? AND T.EF_PLINE_CODE = ? AND SUBSTR(T.FURNACENO,0,12) = ? AND T.SEQUENCENO = ? INSERT INTO STL_LG_OFFLINE( FURNACENO, STOVE_NO, JUDGE_STOVE_NO, DIAMETER, LENGTH, FIX_NUM, FIX_LEN, PLINE_CODE, OFFLINE_NUM, ZP_FLAG, ZP_WEIGHT, GRADECODE, GRADENAME, STD_CODE, STD_NAME, MATERIAL_NO, MATERIAL_NAME, STATUS, OFFLINE_TIME, COL_USER, COL_SHIFT, COL_GROUP, PRO_PLAN_ID, GX_PLAN_NO, GPREQ_ID, PRO_ORDER_NO, JUDGE_STOVE_NO_SEQ, SEQUENCENO, MAIN_JUDGE_STOVE_NO) VALUES( '#FURNACENO#', '#STOVE_NO#', '#JUDGE_STOVE_NO#', '#DIAMETER#', '#LENGTH#', '#FIX_NUM#', '#FIX_LEN#', '#PLINE_CODE#', '#OFFLINE_NUM#', '1', '#ZP_WEIGHT#', '#GRADECODE#', '#GRADENAME#', '#STD_CODE#', '#STD_NAME#', '#MATERIAL_NO#', '#MATERIAL_NAME#', '#STATUS#', TO_DATE('#OFFLINE_TIME#','YYYY-MM-DD HH24:MI:SS'), '#COL_USER#', '#COL_SHIFT#', '#COL_GROUP#', '#PRO_PLAN_ID#', '#GX_PLAN_NO#', '#GPREQ_ID#', '#PRO_ORDER_NO#', '#JUDGE_STOVE_NO_SEQ#', '#SEQUENCENO#', '#MAIN_JUDGE_STOVE_NO#') UPDATE STL_LG_OFFLINE T SET T.STATUS = '1', T.GROUP_NUM = TO_NUMBER(NVL(T.GROUP_NUM, 0)) + TO_NUMBER('#OFFLINE_NUM#') WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#' AND T.FURNACENO = '#FURNACENO#' AND T.SEQUENCENO = '#SEQUENCENO#' AND T.PRO_PLAN_ID = '#PRO_PLAN_ID#' AND T.GX_PLAN_NO = '#GX_PLAN_NO#' DECLARE BEGIN DELETE FROM STL_LG_GROUP T WHERE T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#' AND T.FURNACENO = '#FURNACENO#' AND T.SEQUENCENO = '#SEQUENCENO#'; DELETE FROM STL_LG_OFFLINE T WHERE T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#' AND T.FURNACENO = '#FURNACENO#' AND T.SEQUENCENO = '#SEQUENCENO#'; END; SELECT * FROM STL_LG_OFFLINE T WHERE T.STOVE_NO = ? AND T.JUDGE_STOVE_NO_SEQ = ? AND T.FURNACENO = ? AND T.SEQUENCENO = ? AND T.STATUS = '1' INSERT INTO STL_LG_ENTRUST_BILL( SUBCONTRACT_NO, STOVE_NO, JUDGE_STOVE_NO, PLINE_CODE, SUBCONTRACT_NUM, ENTRUSTED_TIME, COL_USER, COL_SHIFT, COL_GROUP, SUBCONTRACT_WGT, FIX_NUM, FIX_LEN, LENGTH, DIAMETER, PRO_PLAN_ID, GX_PLAN_NO, GPREQ_ID, SUBCONTRACT_NO_SEQ, JUDGE_STOVE_NO_SEQ, FURNACENO, SEQUENCENO) VALUES( '#SUBCONTRACT_NO#', '#STOVE_NO#', '#JUDGE_STOVE_NO#', '#PLINE_CODE#', '#SUBCONTRACT_NUM#', SYSDATE, '#COL_USER#', '#COL_SHIFT#', '#COL_GROUP#', '#SUBCONTRACT_WGT#', '#FIX_NUM#', '#FIX_LEN#', '#LENGTH#', '#DIAMETER#', '#PRO_PLAN_ID#', '#GX_PLAN_NO#', '#GPREQ_ID#', '#SUBCONTRACT_NO_SEQ#', '#JUDGE_STOVE_NO_SEQ#', '#FURNACENO#', '#SEQUENCENO#') UPDATE STL_LG_OFFLINE T SET T.STATUS = '1', T.SUBCONTRACT_NUM = TO_NUMBER(NVL(T.SUBCONTRACT_NUM, 0)) + TO_NUMBER('#OFFLINE_NUM#'), T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#' WHERE T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#' AND T.FURNACENO = '#FURNACENO#' AND T.SEQUENCENO = '#SEQUENCENO#' AND T.FIX_NUM = '#FIX_NUM#' SELECT ? || TO_CHAR(SYSDATE, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(T.SUBCONTRACT_NO, 11)), 0) + 1, 4, 0) SUBCONTRACT_NO FROM STL_LG_ENTRUST_BILL T WHERE TO_CHAR(T.ENTRUSTED_TIME, 'YYYY-MM-DD') = TO_CHAR(SYSDATE, 'YYYY-MM-DD') SELECT COUNT(1)ACOUNT FROM STL_LG_ENTRUST_BILL T WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#' AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#' AND T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#' AND T.FIX_NUM = '#FIX_NUM#' AND T.SUBCONTRACT_FLAG = '1' DELETE FROM STL_LG_ENTRUST_BILL T WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#' AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#' AND T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#' AND T.FIX_NUM = '#FIX_NUM#' DECLARE BEGIN FOR MYROW IN (SELECT * FROM STL_LG_PROGRRSS T WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#' AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#' AND T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#') LOOP UPDATE STL_LG_PROGRRSS T SET T.SUBCONTRACT_NO = '', T.SUBCONTRACT_NO_SEQ = '' WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#' AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#' AND T.MAT_NO = MYROW.MAT_NO; END LOOP; UPDATE STL_LG_OFFLINE T SET T.STATUS = '0', T.SUBCONTRACT_NUM = TO_NUMBER(NVL(T.SUBCONTRACT_NUM, 0)) - TO_NUMBER('#SUBCONTRACT_NUM#'), T.SUBCONTRACT_NO = '' WHERE T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#' AND T.FIX_NUM = '#FIX_NUM#' AND T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'; END; INSERT INTO STL_LG_OFFLINE_DETIA( STOVE_NO, JUDGE_STOVE_NO, ACT_COUNT, ACT_WEIGHT, COL_TIME, COL_USER, COL_SHIFT, COL_GROUP, PLINE_CODE, FURNACENO, BACK_JUDGE_STOVE_NO, PRO_PLAN_ID, GX_PLAN_NO, GPREQ_ID, OPERATION_TYPE, FIX_NUM, FIX_LEN, LENGTH, DIAMETER, JUDGE_STOVE_NO_SEQ, SEQUENCENO) VALUES( '#STOVE_NO#', '#JUDGE_STOVE_NO#', '#ACT_COUNT#', '#ACT_WEIGHT#', SYSDATE, '#COL_USER#', '#COL_SHIFT#', '#COL_GROUP#', '#PLINE_CODE#', '#FURNACENO#', '#BACK_JUDGE_STOVE_NO#', '#PRO_PLAN_ID#', '#GX_PLAN_NO#', '#GPREQ_ID#', '0', '#FIX_NUM#', '#FIX_LEN#', '#LENGTH#', '#DIAMETER#', '#JUDGE_STOVE_NO_SEQ#', '#SEQUENCENO#') UPDATE STL_LG_OFFLINE T SET T.STATUS = '1', T.BACKLINE_NUM = TO_NUMBER(NVL(T.BACKLINE_NUM, 0)) + TO_NUMBER('#OFFLINE_NUM#') WHERE T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#' AND T.PRO_PLAN_ID = '#PRO_PLAN_ID#' AND T.GX_PLAN_NO = '#GX_PLAN_NO#' AND T.FURNACENO = '#FURNACENO#' AND T.SEQUENCENO = '#SEQUENCENO#' AND T.FIX_NUM = '#FIX_NUM#' DECLARE V_JUDGE_STOVE_NO_SEQ PLN_STEELFOR_ORD.JUDGE_STOVE_NO_SEQ%TYPE := NULL; V_FURNACENO PLN_STEELFOR_ORD.FURNACENO%TYPE := NULL; BEGIN SELECT '#JUDGE_STOVE_NO#' || '-' || LPAD(NVL(MAX(SUBSTR(T.JUDGE_STOVE_NO_SEQ, 8)), 0) + 1, 2, 0) JUDGE_STOVE_NO_SEQ INTO V_JUDGE_STOVE_NO_SEQ FROM PLN_STEELFOR_ORD T WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.STOVE_NO = '#STOVE_NO#' AND T.PRO_PLAN_ID = '#PRO_PLAN_ID#' AND T.GX_PLAN_NO = '#GX_PLAN_NO#'; FOR MYROW IN (SELECT * FROM PLN_STEELFOR_ORD T WHERE T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#' AND T.PRO_PLAN_ID = '#PRO_PLAN_ID#' AND T.GX_PLAN_NO = '#GX_PLAN_NO#' ) LOOP INSERT INTO PLN_STEELFOR_ORD( FURNACENO, SEQUENCENO, FURNACENO_SEQ, PRO_PLAN_ID, GX_PLAN_NO, CAST_NO, CAST_SEQ, CAST_STOVE_SEQ, CCM_SEQ, STOVE_NO, JUDGE_STOVE_NO, JUDGE_STOVE_NO_SEQ, FLAG_STOVE_NO, STATUS, CCM_STATE, CCM_PLN_TYPE, GPTYPE, CASTINGTYPE, PLINE_CODE, PLINE_NAME, CCMID, FLOWNO, EF_PLINE_CODE, EF_PLINE_NAME, WLID_IN, WLDESC_IN, MATERIAL_NO, MATERIAL_NAME, GRADECODE, GRADENAME, DIAMETER, LEN_GP_SINGLE, CUT_NUM_GP, LENGTH_M, WEIGHT_GP_ONE, WEIGHT_M, TOT_MUM_M, TOT_WEIGHT_M, ACT_WEIGHT_M, ACT_MUM_M, SURPLUSFLAG, EXCESS_WT, EXCESS_NUM, SURPLUS_TYPE, IF_SURPLUS_ALLOTED, CIC, PIC, SIC, DIC, CHEM_JUDGE_ID, PHY_JUDGE_ID, COLLIGATE_JUDGE_ID, MEMO, MAKEMAN, MAKETIME, DOWNMAN, DOWNTIME, PRO_MONTH, ORDER_NO, FINAL_USER_DESC, STEELCODE, STEELNAME, PRODUCCODE, PRODUCNAME, GOWHERE_CODE, GOWHERE_NAME, ISENDGX, STATE_LK, IF_MONITOR_LG, PRDCR_NO, MERGE_NO, PDEPT_NAME, PRDCR_MAN, CUT_NUM) VALUES( '#FURNACENO#', MYROW.SEQUENCENO, MYROW.FURNACENO_SEQ, MYROW.PRO_PLAN_ID, MYROW.GX_PLAN_NO, MYROW.CAST_NO, MYROW.CAST_SEQ, MYROW.CAST_STOVE_SEQ, MYROW.CCM_SEQ, '#STOVE_NO#', '#JUDGE_STOVE_NO#', V_JUDGE_STOVE_NO_SEQ, MYROW.FLAG_STOVE_NO, MYROW.STATUS, '10', '10', MYROW.GPTYPE, MYROW.CASTINGTYPE, MYROW.PLINE_CODE, MYROW.PLINE_NAME, MYROW.CCMID, MYROW.FLOWNO, MYROW.EF_PLINE_CODE, MYROW.EF_PLINE_NAME, MYROW.WLID_IN, MYROW.WLDESC_IN, MYROW.MATERIAL_NO, MYROW.MATERIAL_NAME, MYROW.GRADECODE, MYROW.GRADENAME, MYROW.DIAMETER, '#LEN_GP_SINGLE#', '#CUT_NUM_GP#', '#LENGTH_M#', MYROW.WEIGHT_GP_ONE, MYROW.WEIGHT_M, '#TOT_MUM_M#', '#TOT_WEIGHT_M#', '', '', MYROW.SURPLUSFLAG, '', '', MYROW.SURPLUS_TYPE, MYROW.IF_SURPLUS_ALLOTED, MYROW.CIC, MYROW.PIC, MYROW.SIC, MYROW.DIC, MYROW.CHEM_JUDGE_ID, MYROW.PHY_JUDGE_ID, MYROW.COLLIGATE_JUDGE_ID, MYROW.MEMO, '#MAKEMAN#', SYSDATE, MYROW.DOWNMAN, SYSDATE, MYROW.PRO_MONTH, MYROW.ORDER_NO, MYROW.FINAL_USER_DESC, MYROW.STEELCODE, MYROW.STEELNAME, MYROW.PRODUCCODE, MYROW.PRODUCNAME, MYROW.GOWHERE_CODE, MYROW.GOWHERE_NAME, MYROW.ISENDGX, MYROW.STATE_LK, MYROW.IF_MONITOR_LG, MYROW.PRDCR_NO, MYROW.MERGE_NO, MYROW.PDEPT_NAME, MYROW.PRDCR_MAN, MYROW.CUT_NUM); END LOOP; END; SELECT ?||'-'||LPAD(NVL(MAX(SUBSTR(T.FURNACENO, 14)), 0) + 1, 2, 0) FURNACENO FROM PLN_STEELFOR_ORD T WHERE SUBSTR(T.FURNACENO,0,12) = ? AND T.SEQUENCENO = ? 0) THEN FOR MYSTOVE IN (SELECT * FROM STL_LG_GROUP T WHERE T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#' AND T.FURNACENO = '#FURNACENO#' AND T.SEQUENCENO = '#SEQUENCENO#' AND T.FIX_NUM = '#FIX_NUM#') LOOP FOR MYROWM IN (SELECT * FROM (SELECT * FROM STL_LG_PROGRRSS T WHERE T.STOVE_NO = MYSTOVE.OLD_STOVE_NO AND T.JUDGE_STOVE_NO_SEQ = MYSTOVE.OLD_JUDGE_STOVE_NO_SEQ AND T.FURNACENO = MYSTOVE.OLD_FURNACENO AND T.SEQUENCENO = MYSTOVE.OLD_SEQUENCENO AND T.FIX_NUM = MYSTOVE.OLD_FIX_NUM AND T.STATUS = '3' AND T.GROUP_FLAG = '1' ORDER BY T.MAT_NO DESC) WHERE ROWNUM <= MYSTOVE.ACT_COUNT) LOOP INSERT INTO MAT_GP_M (MAT_NO, PRODUCT_FLAG, MAT_STATUS, STOVE_NO, FLAG_STOVE_NO, JUDGE_STOVE_NO, CAST_NO, CCMID, MATERIAL_NO, MATERIAL_NAME, GRADECODE, GRADENAME, STD_CODE, STD_NAME, PLINE_CODE, PLINE_NAME, DIMATER, ACT_LEN, FIX_NUM, FIX_LEN, ACT_COUNT, ACT_WEIGHT, BELONG_CODE, BELONG_NAME, JUGDE_APPLY_FLAG, INSTOCK_TIME, BAL_YEAR_MONTH, CREATE_NAME, CREATE_TIME, GROUD_NO, PRINT_STOVE_NO, PRO_PLAN_ID, GX_PLAN_NO, GPREQ_ID, DB_ACT_COUNT, CIC, PIC, SIC, DIC, GPTYPE, SEQUENCENO, FURNACENO, QCM_STAUS) VALUES (MYROWM.MAT_NO, '801401', '80150101', MYROWM.STOVE_NO, MYROWM.FLAG_STOVE_NO, MYROWM.JUDGE_STOVE_NO, MYROWM.CAST_NO, MYROWM.CCMID, MYROWM.MATERIAL_NO, MYROWM.MATERIAL_NAME, MYROWM.GRADECODE, MYROWM.GRADENAME, MYROWM.STANDARDSCODE, MYROWM.STANDARDREMAK, MYROWM.PLINE_CODE, MYROWM.PLINE_NAME, MYROWM.DIAMETER, MYROWM.LENGTH, MYROWM.FIX_NUM, MYROWM.FIX_LEN, '1', MYROWM.WEIGHT, V_BELONG_CODE, V_BELONG_NAME, '0', SYSDATE, '', '#COL_USER#', SYSDATE, MYROWM.FIX_NUM, MYROWM.PRINT_STOVE_NO, MYROWM.PRO_PLAN_ID, MYROWM.GX_PLAN_NO, MYROWM.GPREQ_ID, MYROWM.FIX_NUM, MYROWM.CIC, MYROWM.PIC, MYROWM.SIC, MYROWM.DIC, MYROWM.GPTYPE, MYROWM.SEQUENCENO, MYROWM.FURNACENO, '11'); INSERT INTO YDM_GP_BUTTRESS( MAT_NO, STOVE_NO, FLAG_STOVE_NO, JUDGE_STOVE_NO, STORAGE_NO, LOCATION_NO, LARY_NO, LOC_NO, CREATE_NAME, CREATE_TIME, GROUD_NO) VALUES( MYROWM.MAT_NO, MYROWM.STOVE_NO, MYROWM.FLAG_STOVE_NO, MYROWM.JUDGE_STOVE_NO, '#STORAGE_NO#', '#LOCATION_NO#', '', '', '#COL_USER#', SYSDATE, MYROWM.FIX_NUM); UPDATE STL_LG_PROGRRSS T SET T.STATUS = '1' WHERE T.STOVE_NO = MYROWM.STOVE_NO AND T.JUDGE_STOVE_NO_SEQ = MYROWM.JUDGE_STOVE_NO_SEQ AND T.FURNACENO = MYROWM.FURNACENO AND T.SEQUENCENO = MYROWM.SEQUENCENO AND T.MAT_NO = MYROWM.MAT_NO AND T.STATUS = '3' AND T.GROUP_FLAG = '1'; DELETE FROM STL_LG_PROGRRSS T WHERE T.STOVE_NO = MYSTOVE.STOVE_NO AND T.JUDGE_STOVE_NO_SEQ = MYSTOVE.JUDGE_STOVE_NO_SEQ AND T.FURNACENO = MYSTOVE.FURNACENO AND T.SEQUENCENO = MYSTOVE.SEQUENCENO AND T.MAT_NO = MYROWM.MAT_NO ; END LOOP; END LOOP; ELSE FOR MYROW IN (SELECT * FROM (SELECT * FROM STL_LG_PROGRRSS T WHERE T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#BACK_JUDGE_STOVE_NO#' AND T.PRO_PLAN_ID = '#PRO_PLAN_ID#' AND T.GX_PLAN_NO = '#GX_PLAN_NO#' AND T.FIX_NUM = '#FIX_NUM#' ORDER BY T.MAT_NO DESC) WHERE ROWNUM <= #ACT_COUNT#) LOOP INSERT INTO MAT_GP_M (MAT_NO, PRODUCT_FLAG, MAT_STATUS, STOVE_NO, FLAG_STOVE_NO, JUDGE_STOVE_NO, CAST_NO, CCMID, MATERIAL_NO, MATERIAL_NAME, GRADECODE, GRADENAME, STD_CODE, STD_NAME, PLINE_CODE, PLINE_NAME, DIMATER, ACT_LEN, FIX_NUM, FIX_LEN, ACT_COUNT, ACT_WEIGHT, BELONG_CODE, BELONG_NAME, JUGDE_APPLY_FLAG, INSTOCK_TIME, BAL_YEAR_MONTH, CREATE_NAME, CREATE_TIME, GROUD_NO, PRINT_STOVE_NO, PRO_PLAN_ID, GX_PLAN_NO, GPREQ_ID, DB_ACT_COUNT, CIC, PIC, SIC, DIC, GPTYPE, SEQUENCENO, FURNACENO, QCM_STAUS) VALUES (MYROW.MAT_NO, '801401', '80150101', MYROW.STOVE_NO, MYROW.FLAG_STOVE_NO, MYROW.JUDGE_STOVE_NO, MYROW.CAST_NO, MYROW.CCMID, MYROW.MATERIAL_NO, MYROW.MATERIAL_NAME, MYROW.GRADECODE, MYROW.GRADENAME, MYROW.STANDARDSCODE, MYROW.STANDARDREMAK, MYROW.PLINE_CODE, MYROW.PLINE_NAME, MYROW.DIAMETER, MYROW.LENGTH, MYROW.FIX_NUM, MYROW.FIX_LEN, '1', MYROW.WEIGHT, V_BELONG_CODE, V_BELONG_NAME, '0', SYSDATE, '', '#COL_USER#', SYSDATE, MYROW.FIX_NUM, MYROW.PRINT_STOVE_NO, MYROW.PRO_PLAN_ID, MYROW.GX_PLAN_NO, MYROW.GPREQ_ID, MYROW.FIX_NUM, MYROW.CIC, MYROW.PIC, MYROW.SIC, MYROW.DIC, MYROW.GPTYPE, MYROW.SEQUENCENO, MYROW.FURNACENO, '11'); INSERT INTO YDM_GP_BUTTRESS( MAT_NO, STOVE_NO, FLAG_STOVE_NO, JUDGE_STOVE_NO, STORAGE_NO, LOCATION_NO, LARY_NO, LOC_NO, CREATE_NAME, CREATE_TIME, GROUD_NO) VALUES( MYROW.MAT_NO, MYROW.STOVE_NO, MYROW.FLAG_STOVE_NO, MYROW.JUDGE_STOVE_NO, '#STORAGE_NO#', '#LOCATION_NO#', '', '', '#COL_USER#', SYSDATE, MYROW.FIX_NUM); UPDATE STL_LG_PROGRRSS T SET T.STATUS = '1' WHERE T.STOVE_NO = MYROW.STOVE_NO AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#' AND T.FURNACENO = MYROW.FURNACENO AND T.SEQUENCENO = MYROW.SEQUENCENO AND T.MAT_NO = MYROW.MAT_NO AND T.STATUS = '3'; DELETE FROM STL_LG_PROGRRSS T WHERE T.STOVE_NO = MYROW.STOVE_NO AND T.JUDGE_STOVE_NO_SEQ = MYROW.JUDGE_STOVE_NO_SEQ AND T.FURNACENO = MYROW.FURNACENO AND T.SEQUENCENO = MYROW.SEQUENCENO AND T.MAT_NO = MYROW.MAT_NO ; END LOOP; END IF; DELETE FROM PLN_STEELFOR_ORD T WHERE SUBSTR(T.FURNACENO, 0, 12) = '#FURNACENO#' AND T.SEQUENCENO = '#SEQUENCENO#' AND T.JUDGE_STOVE_NO_SEQ = '#BACK_JUDGE_STOVE_NO#'; END; ]]> DECLARE BEGIN UPDATE STL_LG_OFFLINE T SET T.BACKLINE_NUM = '0', T.STATUS = '0' WHERE T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#' AND T.PRO_PLAN_ID = '#PRO_PLAN_ID#' AND T.GX_PLAN_NO = '#GX_PLAN_NO#' AND T.FIX_NUM = '#FIX_NUM#'; DELETE FROM STL_LG_SURFACE_M T WHERE T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#BACK_JUDGE_STOVE_NO#' AND T.PRO_PLAN_ID = '#PRO_PLAN_ID#' AND T.GX_PLAN_NO = '#GX_PLAN_NO#' AND T.FIX_NUM = '#FIX_NUM#'; DELETE FROM STL_LG_OFFLINE_DETIA T WHERE T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#' AND T.PRO_PLAN_ID = '#PRO_PLAN_ID#' AND T.GX_PLAN_NO = '#GX_PLAN_NO#' AND T.FIX_NUM = '#FIX_NUM#'; END; SELECT (NVL(MAX(T.SUBCONTRACT_NO_SEQ),0)+1)SUBCONTRACT_NO_SEQ FROM STL_LG_ENTRUST_BILL T WHERE T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#' AND T.FIX_NUM = '#FIX_NUM#' SELECT T.CCM_STATE FROM PLN_STEELFOR_ORD T WHERE SUBSTR(T.FURNACENO,0,12) = '#FURNACENO#' AND T.SEQUENCENO = '#SEQUENCENO#' AND T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#' SELECT T.CCM_STATE FROM PLN_STEELFOR_ORD T WHERE SUBSTR(T.FURNACENO,0,12) = '#FURNACENO#' AND T.SEQUENCENO = '#SEQUENCENO#' AND T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#BACK_JUDGE_STOVE_NO#' DECLARE V_JUDGE_STOVE_NO_SEQ PLN_STEELFOR_ORD.JUDGE_STOVE_NO_SEQ%TYPE := NULL; V_FURNACENO PLN_STEELFOR_ORD.FURNACENO%TYPE := NULL; V_JUDGE_STOVE_NO PLN_STEELFOR_ORD.JUDGE_STOVE_NO%TYPE := NULL; BEGIN FOR MYROW IN (SELECT * FROM STL_LG_SURFACE_M T WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO#'||'-01' AND T.STOVE_NO = '#STOVE_NO#' AND T.FURNACENO = '#FURNACENO#' AND T.SEQUENCENO = '#SEQUENCENO#' AND ROWNUM = 1) LOOP INSERT INTO STL_LG_SURFACE_M( SURFACE_CHECK_NO, JUDGE_STOVE_NO, GROUD_NO, STOVE_NO, GRADECODE, GRADENAME, STD_CODE, STD_NAME, DIMATER, LENGTH_M, FIX_NUM, FIX_LEN, BUG_NO, CHECK_RESULT, QUANTITY, PRO_ORDER_NO, CREATE_NAME, CREATE_TIME, UPDATE_NAME, UPDATE_TIME, VALIDFLAG, MEMO, PLINE_CODE, PLINE_NAME, FLOW_NO1, FLOW_NO11, FLOW_NO2, FLOW_NO21, FLOW_NO3, FLOW_NO31, FLOW_NO4, FLOW_NO41, FLOW_NO5, FLOW_NO51, FLOW_NO6, FLOW_NO61, MIN_DIAMETER1, MIN_DIAMETER11, MIN_DIAMETER2, MIN_DIAMETER21, MIN_DIAMETER3, MIN_DIAMETER31, MIN_DIAMETER4, MIN_DIAMETER41, MIN_DIAMETER5, MIN_DIAMETER51, MIN_DIAMETER6, MIN_DIAMETER61, MAX_DIAMETER1, MAX_DIAMETER11, MAX_DIAMETER2, MAX_DIAMETER21, MAX_DIAMETER3, MAX_DIAMETER31, MAX_DIAMETER4, MAX_DIAMETER41, MAX_DIAMETER5, MAX_DIAMETER51, MAX_DIAMETER6, MAX_DIAMETER61, CASTING_LENGTH1, CASTING_LENGTH11, CASTING_LENGTH2, CASTING_LENGTH21, CASTING_LENGTH3, CASTING_LENGTH31, CASTING_LENGTH4, CASTING_LENGTH41, CASTING_LENGTH5, CASTING_LENGTH51, CASTING_LENGTH6, CASTING_LENGTH61, CHAMFERCUT1, WITHIN1, STRAIGHTNESS1, INSPECTION, TREATING_RESULT, REMARKS, COL_SHIFT, COL_GROUP, IS_VALID, FLAG_STOVE_NO, FURNACENO, CHAMFERCUT11, CHAMFERCUT2, CHAMFERCUT21, CHAMFERCUT3, CHAMFERCUT31, CHAMFERCUT4, CHAMFERCUT41, CHAMFERCUT5, CHAMFERCUT51, CHAMFERCUT6, CHAMFERCUT61, WITHIN11, WITHIN2, WITHIN21, WITHIN3, WITHIN31, WITHIN4, WITHIN41, WITHIN5, WITHIN51, WITHIN6, WITHIN61, STRAIGHTNESS11, STRAIGHTNESS2, STRAIGHTNESS21, STRAIGHTNESS3, STRAIGHTNESS31, STRAIGHTNESS4, STRAIGHTNESS41, STRAIGHTNESS5, STRAIGHTNESS51, STRAIGHTNESS6, STRAIGHTNESS61, NODE_FUR_FLAG, PRO_PLAN_ID, GX_PLAN_NO, GPREQ_ID, JUDGE_STOVE_NO_SEQ, SEQUENCENO, IMPRESS_DIAMETER1, IMPRESS_DIAMETER2, IMPRESS_DIAMETER3, IMPRESS_DIAMETER4, IMPRESS_DIAMETER5, IMPRESS_DIAMETER6) VALUES( '#SURFACE_CHECK_NO#', '#INSERT_JUDGE_STOVE_NO#', '#FIX_NUM#', '#STOVE_NO#', '#GRADECODE#', '#GRADENAME#', '#STD_CODE#', '#STD_NAME#', '#DIMATER#', '#LENGTH_M#', '#FIX_NUM#', '#FIX_LEN#', MYROW.BUG_NO, MYROW.CHECK_RESULT, '#QUANTITY#', MYROW.PRO_ORDER_NO, '#CREATE_NAME#', SYSDATE, '', SYSDATE, '1', MYROW.MEMO, MYROW.PLINE_CODE, MYROW.PLINE_NAME, MYROW.FLOW_NO1, MYROW.FLOW_NO11, MYROW.FLOW_NO2, MYROW.FLOW_NO21, MYROW.FLOW_NO3, MYROW.FLOW_NO31, MYROW.FLOW_NO4, MYROW.FLOW_NO41, MYROW.FLOW_NO5, MYROW.FLOW_NO51, MYROW.FLOW_NO6, MYROW.FLOW_NO61, MYROW.MIN_DIAMETER1, MYROW.MIN_DIAMETER11, MYROW.MIN_DIAMETER2, MYROW.MIN_DIAMETER21, MYROW.MIN_DIAMETER3, MYROW.MIN_DIAMETER31, MYROW.MIN_DIAMETER4, MYROW.MIN_DIAMETER41, MYROW.MIN_DIAMETER5, MYROW.MIN_DIAMETER51, MYROW.MIN_DIAMETER6, MYROW.MIN_DIAMETER61, MYROW.MAX_DIAMETER1, MYROW.MAX_DIAMETER11, MYROW.MAX_DIAMETER2, MYROW.MAX_DIAMETER21, MYROW.MAX_DIAMETER3, MYROW.MAX_DIAMETER31, MYROW.MAX_DIAMETER4, MYROW.MAX_DIAMETER41, MYROW.MAX_DIAMETER5, MYROW.MAX_DIAMETER51, MYROW.MAX_DIAMETER6, MYROW.MAX_DIAMETER61, MYROW.CASTING_LENGTH1, MYROW.CASTING_LENGTH11, MYROW.CASTING_LENGTH2, MYROW.CASTING_LENGTH21, MYROW.CASTING_LENGTH3, MYROW.CASTING_LENGTH31, MYROW.CASTING_LENGTH4, MYROW.CASTING_LENGTH41, MYROW.CASTING_LENGTH5, MYROW.CASTING_LENGTH51, MYROW.CASTING_LENGTH6, MYROW.CASTING_LENGTH61, MYROW.CHAMFERCUT1, MYROW.WITHIN1, MYROW.STRAIGHTNESS1, MYROW.INSPECTION, MYROW.TREATING_RESULT, MYROW.REMARKS, '#COL_SHIFT#', '#COL_GROUP#', '0', MYROW.FLAG_STOVE_NO, '#FURNACENO#', MYROW.CHAMFERCUT11, MYROW.CHAMFERCUT2, MYROW.CHAMFERCUT21, MYROW.CHAMFERCUT3, MYROW.CHAMFERCUT31, MYROW.CHAMFERCUT4, MYROW.CHAMFERCUT41, MYROW.CHAMFERCUT5, MYROW.CHAMFERCUT51, MYROW.CHAMFERCUT6, MYROW.CHAMFERCUT61, MYROW.WITHIN11, MYROW.WITHIN2, MYROW.WITHIN21, MYROW.WITHIN3, MYROW.WITHIN31, MYROW.WITHIN4, MYROW.WITHIN41, MYROW.WITHIN5, MYROW.WITHIN51, MYROW.WITHIN6, MYROW.WITHIN61, MYROW.STRAIGHTNESS11, MYROW.STRAIGHTNESS2, MYROW.STRAIGHTNESS21, MYROW.STRAIGHTNESS3, MYROW.STRAIGHTNESS31, MYROW.STRAIGHTNESS4, MYROW.STRAIGHTNESS41, MYROW.STRAIGHTNESS5, MYROW.STRAIGHTNESS51, MYROW.STRAIGHTNESS6, MYROW.STRAIGHTNESS61, '0', '#PRO_PLAN_ID#', '#GX_PLAN_NO#', '', '#JUDGE_STOVE_NO_SEQ#', '#SEQUENCENO#', '#IMPRESS_DIAMETER1#', '#IMPRESS_DIAMETER2#', '#IMPRESS_DIAMETER3#', '#IMPRESS_DIAMETER4#', '#IMPRESS_DIAMETER5#', '#IMPRESS_DIAMETER6#'); END LOOP; END;