DECLARE V_TIME MIL_OFFLINE_RESLUT.OFFLINE_TIME%TYPE := SYSDATE; V_OPERATION_ID MIL_OFFLINE_RESULT_DETIA.OPERATION_ID%TYPE := NULL; V_OFFLINE_NUM MIL_OFFLINE_RESLUT.OFFLINE_NUM%TYPE := NULL; V_TOTALCOUNT MIL_OFFLINE_RESLUT.OFFLINE_NUM%TYPE := NULL; BEGIN SELECT TO_CHAR(SYSDATE, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(T.OPERATION_ID, 7)), 0) + 1, 5, 0) OPERATION_ID INTO V_OPERATION_ID FROM MIL_OFFLINE_RESULT_DETIA T WHERE TO_CHAR(T.COL_TIME, 'YYYY-MM-DD') = TO_CHAR(SYSDATE, 'YYYY-MM-DD'); FOR MYROW IN (SELECT T.*, NVL(T.PRO_PLAN_ID, T1.PRO_PLAN_ID) PRO_PLAN_ID2, NVL(T.GX_PLAN_NO, T1.GX_PLAN_NO) GX_PLAN_NO2 FROM MIL_OFFLINE_RESLUT T, MIL_PLAN T1 WHERE T.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO AND T.PLINE_CODE = T1.PLINE_CODE AND T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.OFFLINE_TYPE = ? AND T.OFFLINE_PRO = ?) LOOP INSERT INTO MIL_OFFLINE_GROUP (VARIETIES, PLINE_CODE, ZP_JUDGE_STOVE_NO, ZP_LOT_NO, ZP_COUNT, ZP_STANDRAD, ZP_STEEL, ZP_GRADE, ZP_LENGTH, ZP_LENGTH_RANGE, ZP_LEVEL, ZP_SIZE, ZP_M_LH, ZP_S_LH, ZP_M_PH, ZP_TIME, REMARK, COL_USER, COL_GROUP, COL_SHIFT, OLD_ZP_JUDGE_STOVE_NO, OLD_ZP_LOT_NO, OLD_ZP_STANDRAD, OLD_ZP_STEEL, OLD_ZP_GRADE, OLD_ZP_LENGTH, OLD_ZP_LENGTH_RANGE, DIAMETER, THICKNESS, OLD_DIAMETER, OLD_THICKNESS, OLD_VARIETIES, ZP_HEIGHT, OPERATION_ID, OFFLINE_PRO, PRO_PLAN_ID, GX_PLAN_NO) VALUES (?, MYROW.PLINE_CODE, ?, ?, ?, ?, ?, ?, ?, ?, '', ?, ?, '', '', TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), '', ?, ?, ?, MYROW.JUDGE_STOVE_NO, MYROW.LOT_NO, MYROW.STD_NAME, MYROW.STEELNAME, MYROW.GRADENAME, MYROW.LENGTH, MYROW.ACT_LEN_RANGE, ?, ?, MYROW.DIAMETER, MYROW.THICKNESS, MYROW.PRODUCNAME, ?, V_OPERATION_ID, MYROW.OFFLINE_PRO, MYROW.PRO_PLAN_ID2, MYROW.GX_PLAN_NO2); UPDATE MIL_OFFLINE_RESLUT T SET T.GROUP_NUM = TO_NUMBER(T.GROUP_NUM) + TO_NUMBER(?) WHERE T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.OFFLINE_TYPE = ? AND T.OFFLINE_PRO = ?; INSERT INTO MIL_OFFLINE_RESULT_DETIA (LOT_NO, JUDGE_STOVE_NO, OPERATION_TYPE, ACT_COUNT, ACT_WEIGHT, COL_TIME, REMARK, COL_USER, COL_GROUP, COL_SHIFT, OPERATION_ID, PLINE_CODE, PRO_PLAN_ID, GX_PLAN_NO) VALUES (MYROW.LOT_NO, MYROW.JUDGE_STOVE_NO, '0', ?, ?, TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), '', ?, ?, ?, V_OPERATION_ID, MYROW.PLINE_CODE, MYROW.PRO_PLAN_ID2, MYROW.GX_PLAN_NO2); SELECT T.OFFLINE_NUM, (TO_NUMBER(T.GROUP_NUM) + TO_NUMBER(T.BACKLINE_NUM) + TO_NUMBER(T.RECHECK_NUM) + TO_NUMBER(T.INSTORAGE_NUM)) INTO V_OFFLINE_NUM, V_TOTALCOUNT FROM MIL_OFFLINE_RESLUT T WHERE T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.OFFLINE_TYPE = ? AND T.OFFLINE_PRO = ?; IF (V_OFFLINE_NUM = V_TOTALCOUNT) THEN UPDATE MIL_OFFLINE_RESLUT T SET T.STATUS = '1' WHERE T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.OFFLINE_TYPE = ?; END IF; END LOOP; END; DECLARE BEGIN FOR MYROW IN (SELECT MAT_NO FROM MAT_BC_M T WHERE T.JUDGE_STOVE_NO = ? AND T.BATCH_NO = 'X' AND T.PRODUCT_FLAG = '801401' AND T.MAT_STATUS = '80150104' ORDER BY MAT_NO DESC) LOOP DELETE FROM YDM_BC_BUTTRESS WHERE MAT_NO = MYROW.MAT_NO; DELETE FROM YDM_BC_INLIST WHERE MAT_NO = MYROW.MAT_NO; END LOOP; DELETE FROM MAT_BC_M T WHERE T.JUDGE_STOVE_NO = ? AND T.BATCH_NO = 'X' AND T.PRODUCT_FLAG = '801401' AND T.MAT_STATUS = '80150104'; END; = ? --AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') --AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') ]]> SELECT COUNT(1) ACOUNT FROM MIL_PLAN T WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = REGEXP_REPLACE(?, '-.*', '') SELECT COUNT(1) ACOUNT FROM MIL_OFFLINE_GROUP T WHERE REGEXP_REPLACE(T.ZP_JUDGE_STOVE_NO, '-.*', '') = REGEXP_REPLACE(?, '-.*', '') DECLARE V_TIME MIL_OFFLINE_RESLUT.OFFLINE_TIME%TYPE := SYSDATE; V_JUDGE_STOVE_NO MIL_PLAN.JUDGE_STOVE_NO%TYPE := NULL; V_ID MIL_PLAN.ID%TYPE := NULL; V_OPERATION_ID MIL_OFFLINE_RESULT_DETIA.OPERATION_ID%TYPE := NULL; V_OFFLINE_NUM MIL_OFFLINE_RESLUT.OFFLINE_NUM%TYPE :=NULL; V_TOTAL_COUNT MIL_OFFLINE_RESLUT.OFFLINE_NUM%TYPE :=NULL; BEGIN --生成新炉号 SELECT REGEXP_REPLACE(?, '-.*', '') || '-' || LPAD(NVL(MAX(SUBSTR(T.JUDGE_STOVE_NO, -2)), 0) + 1, 2, 0) JUDGE_STOVE_NO INTO V_JUDGE_STOVE_NO FROM MIL_PLAN T WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = REGEXP_REPLACE(?, '-.*', '') AND T.PLINE_CODE = ?; --生成主键 SELECT TO_CHAR(SYSDATE, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(T.ID, 7)), 0) + 1, 3, 0) DI INTO V_ID FROM MIL_PLAN T WHERE T.PLINE_CODE = ? AND INSTR(T.ID, '-') = 0 --AND REGEXP_REPLACE(T.ID,'^[-\+]?\D+(\.\D+)?$','') IS NULL AND TO_CHAR(T.TOM, 'YYYY-MM-DD') = TO_CHAR(SYSDATE, 'YYYY-MM-DD'); --生成操作ID SELECT TO_CHAR(SYSDATE, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(T.OPERATION_ID, 7)), 0) + 1, 5, 0) OPERATION_ID INTO V_OPERATION_ID FROM MIL_OFFLINE_RESULT_DETIA T WHERE T.PLINE_CODE = ? AND TO_CHAR(T.COL_TIME, 'YYYY-MM-DD') = TO_CHAR(SYSDATE, 'YYYY-MM-DD'); FOR MYROW IN (SELECT * FROM MIL_PLAN T WHERE T.JUDGE_STOVE_NO = ? AND T.PLINE_CODE = ?) LOOP INSERT INTO MIL_PLAN (LENGTHCP, CUT_HEAD_LENGTHA, CUT_TRAIL_LENGTHA, ORDER_LENGTHA, HOT_CHECK_FLAG, FEED_SEQ, FEED_HEAT_NO, LOT_SEQ, STEEL_STANDRAD, TARGET, BRANCH, TON, CUT_TARGET, CUT_LENGTH, CUT_WEIGHT, DB_NUM, START_TIME, END_TIME, TOM, TOC, NODE_STATUS, CUT_HEAD_LENGTHP, CUT_TRAIL_LENGTHP, CONTROL_THICKP, OFFLINE_FLAG, IS_BATCH, OFFLINE_DATE, CUT_TYPE, ROLLING_STATUS, PRODUCE_STANDRAD, SIMPLE_PROCESS, BACK_LINE_FLAG, BACK_PLAN_FLAG, FEED_TIME, ID, SEQ, STOVE_NO, JUDGE_STOVE_NO, LOT_NO, CONTRACT_NO, IMP_PROCESS, PLINE_CODE, STATUS, PRODUCER, PROCESS_STATUS, DB_LENGTH, DB_HEIGHT, ROLL_LENGTH, SAW_NUM, TARGET_LENGTH, FINISH_USER, TARGET_LIABRARY, VARIETIES, PIPE_SIZE, BUCKLE_TYPE, LENGTH_RANGE, ROLL_STANDRAD, PIPE_SECTION, STEELCODE, STEELNAME, GRADECODE, GRADENAME) VALUES (MYROW.LENGTHCP, MYROW.CUT_HEAD_LENGTHA, MYROW.CUT_TRAIL_LENGTHA, MYROW.ORDER_LENGTHA, MYROW.HOT_CHECK_FLAG, MYROW.FEED_SEQ, MYROW.FEED_HEAT_NO, MYROW.LOT_SEQ, MYROW.STEEL_STANDRAD, MYROW.TARGET, ?, ?, MYROW.CUT_TARGET, MYROW.CUT_LENGTH, MYROW.CUT_WEIGHT, MYROW.DB_NUM, TO_DATE(?,'YYYY-MM-DD HH24:MI:SS'), TO_DATE(?,'YYYY-MM-DD HH24:MI:SS'), TO_DATE(?,'YYYY-MM-DD HH24:MI:SS'), '', '90', MYROW.CUT_HEAD_LENGTHP, MYROW.CUT_TRAIL_LENGTHP, MYROW.CONTROL_THICKP, '2', '0', '', MYROW.CUT_TYPE, '0', MYROW.PRODUCE_STANDRAD, MYROW.SIMPLE_PROCESS, '1', '9', MYROW.FEED_TIME, V_ID, MYROW.SEQ, MYROW.STOVE_NO, V_JUDGE_STOVE_NO, ?, MYROW.CONTRACT_NO, MYROW.IMP_PROCESS, MYROW.PLINE_CODE, '95', MYROW.PRODUCER, MYROW.PROCESS_STATUS, MYROW.DB_LENGTH, MYROW.DB_HEIGHT, MYROW.ROLL_LENGTH, MYROW.SAW_NUM, MYROW.TARGET_LENGTH, MYROW.FINISH_USER, MYROW.TARGET_LIABRARY, MYROW.VARIETIES, MYROW.PIPE_SIZE, MYROW.BUCKLE_TYPE, MYROW.LENGTH_RANGE, MYROW.ROLL_STANDRAD, MYROW.PIPE_SECTION, MYROW.STEELCODE, MYROW.STEELNAME, MYROW.GRADECODE, MYROW.GRADENAME); INSERT INTO MIL_OFFLINE_RESULT_DETIA( LOT_NO, JUDGE_STOVE_NO, OPERATION_TYPE, ACT_COUNT, ACT_WEIGHT, COL_TIME, REMARK, COL_USER, COL_GROUP， COL_SHIFT, OPERATION_ID, PLINE_CODE, ID, OFFLINE_TYPE) VALUES( ?, ?, '2', ?, ?, TO_DATE(?,'YYYY-MM-DD HH24:MI:SS'), '', ?, ?, ?, V_OPERATION_ID, MYROW.PLINE_CODE, V_ID, ?); END LOOP; UPDATE MIL_OFFLINE_RESLUT T SET T.RECHECK_NUM = TO_NUMBER(T.RECHECK_NUM) + TO_NUMBER(?) WHERE T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.OFFLINE_PRO = ? AND T.OFFLINE_TYPE = ?; SELECT T.OFFLINE_NUM, (T.GROUP_NUM + T.BACKLINE_NUM + T.RECHECK_NUM) INTO V_OFFLINE_NUM,V_TOTAL_COUNT FROM MIL_OFFLINE_RESLUT T WHERE T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.OFFLINE_PRO = ? AND T.OFFLINE_TYPE = ?; IF(V_OFFLINE_NUM = V_TOTAL_COUNT)THEN UPDATE MIL_OFFLINE_RESLUT T SET T.STATUS = '1' WHERE T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.OFFLINE_PRO = ? AND T.OFFLINE_TYPE = ?; END IF; END; SELECT T.OLD_ZP_JUDGE_STOVE_NO, T.OLD_ZP_LOT_NO, T.ZP_COUNT, T.PRO_PLAN_ID, T.GX_PLAN_NO FROM MIL_OFFLINE_GROUP T WHERE T.ZP_JUDGE_STOVE_NO = ? AND T.PLINE_CODE = ? SELECT COUNT(1)ACOUNT FROM MIL_SURFACE_RESULT T WHERE T.RESULT_NO = ? AND T.JUDGE_STOVE_NO = ? SELECT NVL(SUM(QUALIFIED_NUM),0)ACOUNT FROM ( SELECT NVL(COUNT(1),0)QUALIFIED_NUM FROM MIL_MT_RESULT T WHERE T.RESULT_NO = ? AND T.JUDGE_STOVE_NO = ? UNION ALL SELECT NVL(COUNT(1),0)QUALIFIED_NUM FROM MIL_ET_RESULT T WHERE T.RESULT_NO = ? AND T.JUDGE_STOVE_NO = ? UNION ALL SELECT NVL(COUNT(1),0)QUALIFIED_NUM FROM MIL_UL_RESUL T WHERE T.RESULT_NO = ? AND T.JUDGE_STOVE_NO = ? ) SELECT NVL(COUNT(1),0)ACOUNT FROM MIL_STRAIGHTENING_RESULT T WHERE T.RESULT_NO = ? AND T.JUDGE_STOVE_NO = ? SELECT COUNT(1)ACOUNT FROM MAT_BC_M T WHERE T.ZG_STOVE_SQE = ? DECLARE BEGIN FOR MYROW IN (SELECT T.MAT_NO FROM YDM_BC_INLIST T WHERE T.INSTOCK_DOC = ? ORDER BY T.MAT_NO DESC) LOOP DELETE FROM YDM_BC_BUTTRESS T WHERE T.MAT_NO = MYROW.MAT_NO; DELETE FROM YDM_BC_INLIST T WHERE T.MAT_NO = MYROW.MAT_NO AND T.INSTOCK_DOC = MYROW.INSTOCK_DOC; END LOOP; UPDATE MIL_OFFLINE_RESLUT T SET T.INSTORAGE_NUM = TO_NUMBER(T.INSTORAGE_NUM) - TO_NUMBER(?) WHERE T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND T.OFFLINE_TYPE = ?; DELETE FROM MIL_OFFLINE_RESULT_DETIA T WHERE T.OPERATION_ID = ?; END; SELECT T.JUDGE_STOVE_NO FROM MIL_PLAN T WHERE T.ID = ? 0) THEN select max((select c.ABRVITION from slm_base_customer c where c.customer_no = t1.FINAL_USER)) into V_ABRVITION from pln_order_zg_s t, pln_saleord t1 where t1.ord_ln_dly_pk = t.ord_ln_dly_pk and t.ORDER_NO = V_ORDER_NO; END IF; --改交合同的轧管订单编号 SELECT COUNT(1) INTO V_COUNT FROM PLN_SALEORD T3, PLN_ORDER_ZG_S S1 WHERE T3.ORD_LN_DLY_PK = S1.ORD_LN_DLY_PK AND S1.EXE_STATUS = '0' AND T3.ORDER_NO || '/' || T3.ORDER_SEQ = V_CONTRACT_NO; IF (V_COUNT > 0) THEN SELECT MAX(T3.ORD_LN_DLY_PK), MAX(S1.PRO_PLAN_ID), MAX(S1.GX_PLAN_NO), MAX(S1.CRAFT_SEQ), MAX(SUBSTR(S1.CIC, 1, 10)), MAX(S1.INDEX_SEQ), MAX(SUBSTR(S1.PIC, 1, 10)) INTO V_ORD_LN_DLY_PK_G, V_PRO_PLAN_ID_G, V_GX_PLAN_NO_G, V_CRAFT_SEQ_G, V_CIC_G, V_INDEX_SEQ_G, V_PIC_G FROM PLN_SALEORD T3, PLN_ORDER_ZG_S S1 WHERE T3.ORD_LN_DLY_PK = S1.ORD_LN_DLY_PK AND S1.EXE_STATUS = '0' AND T3.ORDER_NO || '/' || T3.ORDER_SEQ = V_CONTRACT_NO; END IF; --生成新炉号 SELECT REGEXP_REPLACE(?, '-.*', '') || '-' || LPAD(NVL(MAX(SUBSTR(T.JUDGE_STOVE_NO, -2)), 0) + 1, 2, 0) JUDGE_STOVE_NO INTO V_JUDGE_STOVE_NO FROM MIL_PLAN T WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = REGEXP_REPLACE(?, '-.*', '') --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 = ?; --生成主键 SELECT ? || LPAD(NVL(MAX(SUBSTR(T.ID, 7)), 0) + 1, 3, 0) DI INTO V_ID FROM MIL_PLAN T WHERE T.PLINE_CODE = ? AND INSTR(T.ID, '-') = 0 --AND REGEXP_REPLACE(T.ID,'^[-\+]?\D+(\.\D+)?$','') IS NULL AND TO_CHAR(T.TOM, 'YYYY-MM-DD') = TO_CHAR(SYSDATE, 'YYYY-MM-DD'); --生成操作ID SELECT ? || LPAD(NVL(MAX(SUBSTR(T.OPERATION_ID, 7)), 0) + 1, 5, 0) OPERATION_ID INTO V_OPERATION_ID FROM MIL_OFFLINE_RESULT_DETIA T WHERE TO_CHAR(T.COL_TIME, 'YYMMDD') = ?; FOR MYROW IN (SELECT * FROM MIL_PLAN T WHERE T.JUDGE_STOVE_NO = ? AND T.BACK_SLAB_FLAG <> '2' /* AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')*/ AND T.PLINE_CODE = ?) LOOP INSERT INTO MIL_PLAN (LENGTHCP, CUT_HEAD_LENGTHA, CUT_TRAIL_LENGTHA, ORDER_LENGTHA, HOT_CHECK_FLAG, FEED_SEQ, FEED_HEAT_NO, LOT_SEQ, STEEL_STANDRAD, TARGET, BRANCH, TON, CUT_TARGET, CUT_LENGTH, CUT_WEIGHT, DB_NUM, START_TIME, END_TIME, TOM, TOC, NODE_STATUS, CUT_HEAD_LENGTHP, CUT_TRAIL_LENGTHP, CONTROL_THICKP, OFFLINE_FLAG, IS_BATCH, OFFLINE_DATE, CUT_TYPE, ROLLING_STATUS, PRODUCE_STANDRAD, SIMPLE_PROCESS, BACK_LINE_FLAG, BACK_PLAN_FLAG, FEED_TIME, ID, SEQ, STOVE_NO, JUDGE_STOVE_NO, LOT_NO, CONTRACT_NO, IMP_PROCESS, PLINE_CODE, STATUS, PRODUCER, PROCESS_STATUS, DB_LENGTH, DB_HEIGHT, ROLL_LENGTH, SAW_NUM, TARGET_LENGTH, FINISH_USER, TARGET_LIABRARY, VARIETIES, PIPE_SIZE, BUCKLE_TYPE, LENGTH_RANGE, ROLL_STANDRAD, PIPE_SECTION, STEELCODE, STEELNAME, GRADECODE, GRADENAME, ORD_LN_DLY_PK, PRT_FLAG, PRO_PLAN_ID, GX_PLAN_NO, VARIETIES_CODE, PIPE_SIZE_CODE, BUCKLE_TYPE_CODE, ROLL_STANDRAD_CODE, STD_STYLE, STD_STYLE_DESC, CRAFT_SEQ, CIC, INDEX_SEQ, PIC, IF_PRODUCT, PRDCR_NO, IF_MONITOR) VALUES (MYROW.LENGTHCP, MYROW.CUT_HEAD_LENGTHA, MYROW.CUT_TRAIL_LENGTHA, MYROW.ORDER_LENGTHA, MYROW.HOT_CHECK_FLAG, MYROW.FEED_SEQ, MYROW.FEED_HEAT_NO, MYROW.LOT_SEQ, MYROW.STEEL_STANDRAD, MYROW.TARGET, ?, ?, MYROW.CUT_TARGET, MYROW.CUT_LENGTH, MYROW.CUT_WEIGHT, MYROW.DB_NUM, TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), '', '90', MYROW.CUT_HEAD_LENGTHP, MYROW.CUT_TRAIL_LENGTHP, MYROW.CONTROL_THICKP, '2', '0', '', MYROW.CUT_TYPE, '0', --MYROW.PRODUCE_STANDRAD, ?, MYROW.SIMPLE_PROCESS, '1', '9', MYROW.FEED_TIME, MYROW.ID, MYROW.SEQ, MYROW.STOVE_NO, V_JUDGE_STOVE_NO, ?, --MYROW.CONTRACT_NO ?, ?, --MYROW.IMP_PROCESS, MYROW.PLINE_CODE, '95', MYROW.PRODUCER, MYROW.PROCESS_STATUS, MYROW.DB_LENGTH, MYROW.DB_HEIGHT, MYROW.ROLL_LENGTH, MYROW.SAW_NUM, -- MYROW.TARGET_LENGTH, ?, V_ABRVITION, MYROW.TARGET_LIABRARY, --MYROW.VARIETIES, ?, --MYROW.PIPE_SIZE, ?, --MYROW.BUCKLE_TYPE, ?, ?, --MYROW.LENGTH_RANGE, --MYROW.ROLL_STANDRAD, ?, MYROW.PIPE_SECTION, --MYROW.STEELCODE, NVL(?, MYROW.STEELCODE), --MYROW.STEELNAME, NVL(?, MYROW.STEELNAME), MYROW.GRADECODE, MYROW.GRADENAME, DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, MYROW.ORD_LN_DLY_PK, V_ORD_LN_DLY_PK_G), MYROW.PRT_FLAG, DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, V_PRO_PLAN_ID, V_PRO_PLAN_ID_G), DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, V_GX_PLAN_NO, V_GX_PLAN_NO_G), ?, ?, ?, ?, ?, ?, DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, MYROW.CRAFT_SEQ, V_CRAFT_SEQ_G), DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, MYROW.CIC, V_CIC_G), DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, MYROW.INDEX_SEQ, V_INDEX_SEQ_G), DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, MYROW.PIC, V_PIC_G), MYROW.IF_PRODUCT, MYROW.PRDCR_NO, MYROW.IF_MONITOR); INSERT INTO MIL_OFFLINE_RESULT_DETIA (LOT_NO, JUDGE_STOVE_NO, OPERATION_TYPE, ACT_COUNT, ACT_WEIGHT, COL_TIME, REMARK, COL_USER, COL_GROUP, COL_SHIFT, OPERATION_ID, PLINE_CODE, ID, OFFLINE_TYPE, BACK_JUDGE_STOVE_NO, PRO_PLAN_ID, GX_PLAN_NO) VALUES (?, ?, '2', ?, ?, TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), '', ?, ?, ?, V_OPERATION_ID, MYROW.PLINE_CODE, MYROW.ID, ?, V_JUDGE_STOVE_NO, V_PRO_PLAN_ID, V_GX_PLAN_NO); END LOOP; UPDATE MIL_OFFLINE_RESLUT T SET T.RECHECK_NUM = TO_NUMBER(T.RECHECK_NUM) + TO_NUMBER(?) WHERE T.JUDGE_STOVE_NO = ? /*AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')*/ AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.OFFLINE_PRO = ? AND T.OFFLINE_TYPE = ?; SELECT T.OFFLINE_NUM, (T.GROUP_NUM + T.BACKLINE_NUM + T.RECHECK_NUM) INTO V_OFFLINE_NUM, V_TOTAL_COUNT FROM MIL_OFFLINE_RESLUT T WHERE T.JUDGE_STOVE_NO = ? /*AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')*/ AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.STATUS = '0' AND T.OFFLINE_PRO = ? AND T.OFFLINE_TYPE = ?; IF (V_OFFLINE_NUM = V_TOTAL_COUNT) THEN UPDATE MIL_OFFLINE_RESLUT T SET T.STATUS = '1' WHERE T.JUDGE_STOVE_NO = ? /*AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')*/ AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.OFFLINE_PRO = ? AND T.OFFLINE_TYPE = ?; END IF; END; ]]> 0) THEN select max((select c.ABRVITION from slm_base_customer c where c.customer_no = t1.FINAL_USER)) into V_ABRVITION from pln_order_zg_s t, pln_saleord t1 where t1.ord_ln_dly_pk = t.ord_ln_dly_pk and t.ORDER_NO = V_ORDER_NO; END IF; --改交合同的轧管订单编号 SELECT COUNT(1) INTO V_COUNT FROM PLN_SALEORD T3, PLN_ORDER_ZG_S S1 WHERE T3.ORD_LN_DLY_PK = S1.ORD_LN_DLY_PK AND S1.EXE_STATUS = '0' AND T3.ORDER_NO || '/' || T3.ORDER_SEQ = V_CONTRACT_NO; IF (V_COUNT > 0) THEN SELECT MAX(T3.ORD_LN_DLY_PK), MAX(S1.PRO_PLAN_ID), MAX(S1.GX_PLAN_NO), MAX(S1.CRAFT_SEQ), MAX(S1.CIC), MAX(S1.INDEX_SEQ), MAX(S1.PIC) INTO V_ORD_LN_DLY_PK_G, V_PRO_PLAN_ID_G, V_GX_PLAN_NO_G, V_CRAFT_SEQ_G, V_CIC_G, V_INDEX_SEQ_G, V_PIC_G FROM PLN_SALEORD T3, PLN_ORDER_ZG_S S1 WHERE T3.ORD_LN_DLY_PK = S1.ORD_LN_DLY_PK AND S1.EXE_STATUS = '0' AND T3.ORDER_NO || '/' || T3.ORDER_SEQ = V_CONTRACT_NO; END IF; --生成新炉号 SELECT REGEXP_REPLACE(?, '-.*', '') || '-' || LPAD(NVL(MAX(SUBSTR(T.JUDGE_STOVE_NO, -2)), 0) + 1, 2, 0) JUDGE_STOVE_NO INTO V_JUDGE_STOVE_NO FROM MIL_PLAN T WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = REGEXP_REPLACE(?, '-.*', '') AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') AND T.PLINE_CODE = ?; --生成主键 SELECT TO_CHAR(SYSDATE, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(T.ID, 7)), 0) + 1, 3, 0) DI INTO V_ID FROM MIL_PLAN T WHERE T.PLINE_CODE = ? AND INSTR(T.ID, '-') = 0 --AND REGEXP_REPLACE(T.ID,'^[-\+]?\D+(\.\D+)?$','') IS NULL AND TO_CHAR(T.TOM, 'YYYY-MM-DD') = TO_CHAR(SYSDATE, 'YYYY-MM-DD'); --生成操作ID SELECT TO_CHAR(SYSDATE, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(T.OPERATION_ID, 7)), 0) + 1, 5, 0) OPERATION_ID INTO V_OPERATION_ID FROM MIL_OFFLINE_RESULT_DETIA T WHERE TO_CHAR(T.COL_TIME, 'YYYY-MM-DD') = TO_CHAR(SYSDATE, 'YYYY-MM-DD'); FOR MYROW IN (SELECT * FROM MIL_PLAN T WHERE T.JUDGE_STOVE_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') AND T.BACK_SLAB_FLAG <> '2' AND T.PLINE_CODE = ?) LOOP INSERT INTO MIL_PLAN (LENGTHCP, CUT_HEAD_LENGTHA, CUT_TRAIL_LENGTHA, ORDER_LENGTHA, HOT_CHECK_FLAG, FEED_SEQ, FEED_HEAT_NO, LOT_SEQ, STEEL_STANDRAD, TARGET, BRANCH, TON, CUT_TARGET, CUT_LENGTH, CUT_WEIGHT, DB_NUM, START_TIME, END_TIME, TOM, TOC, NODE_STATUS, CUT_HEAD_LENGTHP, CUT_TRAIL_LENGTHP, CONTROL_THICKP, OFFLINE_FLAG, IS_BATCH, OFFLINE_DATE, CUT_TYPE, ROLLING_STATUS, PRODUCE_STANDRAD, SIMPLE_PROCESS, BACK_LINE_FLAG, BACK_PLAN_FLAG, FEED_TIME, ID, SEQ, STOVE_NO, JUDGE_STOVE_NO, LOT_NO, CONTRACT_NO, IMP_PROCESS, PLINE_CODE, STATUS, PRODUCER, PROCESS_STATUS, DB_LENGTH, DB_HEIGHT, ROLL_LENGTH, SAW_NUM, TARGET_LENGTH, FINISH_USER, TARGET_LIABRARY, VARIETIES, PIPE_SIZE, BUCKLE_TYPE, LENGTH_RANGE, ROLL_STANDRAD, PIPE_SECTION, STEELCODE, STEELNAME, GRADECODE, GRADENAME, CODE_SAMPLE_FLAG, ORD_LN_DLY_PK, PRT_FLAG, PRO_PLAN_ID, GX_PLAN_NO, VARIETIES_CODE, PIPE_SIZE_CODE, BUCKLE_TYPE_CODE, ROLL_STANDRAD_CODE, STD_STYLE, STD_STYLE_DESC, CRAFT_SEQ, CIC, INDEX_SEQ, PIC, IF_PRODUCT, PRDCR_NO, IF_MONITOR) VALUES (MYROW.LENGTHCP, MYROW.CUT_HEAD_LENGTHA, MYROW.CUT_TRAIL_LENGTHA, MYROW.ORDER_LENGTHA, MYROW.HOT_CHECK_FLAG, MYROW.FEED_SEQ, MYROW.FEED_HEAT_NO, MYROW.LOT_SEQ, MYROW.STEEL_STANDRAD, MYROW.TARGET, ?, ?, MYROW.CUT_TARGET, MYROW.CUT_LENGTH, MYROW.CUT_WEIGHT, MYROW.DB_NUM, TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), '', '80', MYROW.CUT_HEAD_LENGTHP, MYROW.CUT_TRAIL_LENGTHP, MYROW.CONTROL_THICKP, '2', '0', '', MYROW.CUT_TYPE, '0', --MYROW.PRODUCE_STANDRAD, ?, MYROW.SIMPLE_PROCESS, '1', '8', MYROW.FEED_TIME, MYROW.ID, MYROW.SEQ, MYROW.STOVE_NO, V_JUDGE_STOVE_NO, ?, --MYROW.CONTRACT_NO, ?, ?, --MYROW.IMP_PROCESS, MYROW.PLINE_CODE, '85', MYROW.PRODUCER, MYROW.PROCESS_STATUS, MYROW.DB_LENGTH, MYROW.DB_HEIGHT, MYROW.ROLL_LENGTH, MYROW.SAW_NUM, --MYROW.TARGET_LENGTH, ?, V_ABRVITION, MYROW.TARGET_LIABRARY, --MYROW.VARIETIES, ?, --MYROW.PIPE_SIZE, ?, --MYROW.BUCKLE_TYPE, ?, ?, --MYROW.LENGTH_RANGE, --MYROW.ROLL_STANDRAD, ?, MYROW.PIPE_SECTION, --MYROW.STEELCODE, --MYROW.STEELNAME, NVL(?, MYROW.STEELCODE), NVL(?, MYROW.STEELNAME), MYROW.GRADECODE, MYROW.GRADENAME, MYROW.CODE_SAMPLE_FLAG, DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, MYROW.ORD_LN_DLY_PK, V_ORD_LN_DLY_PK_G), MYROW.PRT_FLAG, DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, MYROW.PRO_PLAN_ID, V_PRO_PLAN_ID_G), DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, MYROW.GX_PLAN_NO, V_GX_PLAN_NO_G), ?, ?, ?, ?, ?, ?, DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, MYROW.CRAFT_SEQ, V_CRAFT_SEQ_G), DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, MYROW.CIC, V_CIC_G), DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, MYROW.INDEX_SEQ, V_INDEX_SEQ_G), DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, MYROW.PIC, V_PIC_G), MYROW.IF_PRODUCT, MYROW.PRDCR_NO, MYROW.IF_MONITOR); INSERT INTO MIL_OFFLINE_RESULT_DETIA (LOT_NO, JUDGE_STOVE_NO, OPERATION_TYPE, ACT_COUNT, ACT_WEIGHT, COL_TIME, REMARK, COL_USER, COL_GROUP, COL_SHIFT, OPERATION_ID, PLINE_CODE, ID, OFFLINE_TYPE, BACK_JUDGE_STOVE_NO, PRO_PLAN_ID, GX_PLAN_NO) VALUES (?, ?, '1', ?, ?, TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), ?, ?, ?, ?, V_OPERATION_ID, MYROW.PLINE_CODE, MYROW.ID, ?, V_JUDGE_STOVE_NO, MYROW.PRO_PLAN_ID, MYROW.GX_PLAN_NO); INSERT INTO MIL_STRAIGHTENING_RESULT (RESULT_NO, LOT_NO, STOVE_NO, JUDGE_STOVE_NO, PLINE_CODE, IN_MAT_NUM, QUALIFIED_NUM, QA_TON, USER_ID, COL_USER, COL_GROUP, COL_SHIFT, COL_TIME, START_TIME, END_TIME, KG_FLAG, NODE_FUR_FLAG, PRO_PLAN_ID, GX_PLAN_NO) VALUES (MYROW.ID, ?, '', V_JUDGE_STOVE_NO, MYROW.PLINE_CODE, ?, ?, ?, ?, ?, ?, ?, TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), '0', '1', MYROW.PRO_PLAN_ID, MYROW.GX_PLAN_NO); UPDATE MIL_OFFLINE_RESLUT T SET T.BACKLINE_NUM = TO_NUMBER(T.BACKLINE_NUM) + TO_NUMBER(?) WHERE T.JUDGE_STOVE_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(MYROW.PRO_PLAN_ID, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(MYROW.GX_PLAN_NO, '/') AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.OFFLINE_PRO = 'TS' AND T.OFFLINE_TYPE = ?; SELECT T.OFFLINE_NUM, (T.GROUP_NUM + T.BACKLINE_NUM + T.RECHECK_NUM) INTO V_OFFLINE_NUM, V_TOTAL_COUNT FROM MIL_OFFLINE_RESLUT T WHERE T.JUDGE_STOVE_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(MYROW.PRO_PLAN_ID, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(MYROW.GX_PLAN_NO, '/') AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.OFFLINE_PRO = 'TS' AND T.OFFLINE_TYPE = ?; IF (V_OFFLINE_NUM = V_TOTAL_COUNT) THEN UPDATE MIL_OFFLINE_RESLUT T SET T.STATUS = '1' WHERE T.JUDGE_STOVE_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(MYROW.PRO_PLAN_ID, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(MYROW.GX_PLAN_NO, '/') AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.OFFLINE_PRO = 'TS' AND T.OFFLINE_TYPE = ?; END IF; END LOOP; END; ]]> 0) THEN select max((select c.ABRVITION from slm_base_customer c where c.customer_no = t1.FINAL_USER)) into V_ABRVITION from pln_order_zg_s t, pln_saleord t1 where t1.ord_ln_dly_pk = t.ord_ln_dly_pk and t.ORDER_NO = ?; END IF; --生成新炉号 SELECT REGEXP_REPLACE(?, '-.*', '') || '-' || LPAD(NVL(MAX(SUBSTR(T.JUDGE_STOVE_NO, -2)), 0) + 1, 2, 0) JUDGE_STOVE_NO INTO V_JUDGE_STOVE_NO FROM MIL_PLAN T WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = REGEXP_REPLACE(?, '-.*', '') AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') AND T.PLINE_CODE = ?; --生成主键 SELECT TO_CHAR(SYSDATE, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(T.ID, 7)), 0) + 1, 3, 0) DI INTO V_ID FROM MIL_PLAN T WHERE T.PLINE_CODE = ? AND INSTR(T.ID, '-') = 0 --AND REGEXP_REPLACE(T.ID,'^[-\+]?\D+(\.\D+)?$','') IS NULL AND TO_CHAR(T.TOM, 'YYYY-MM-DD') = TO_CHAR(SYSDATE, 'YYYY-MM-DD'); --生成操作ID SELECT TO_CHAR(SYSDATE, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(T.OPERATION_ID, 7)), 0) + 1, 5, 0) OPERATION_ID INTO V_OPERATION_ID FROM MIL_OFFLINE_RESULT_DETIA T WHERE TO_CHAR(T.COL_TIME, 'YYYY-MM-DD') = TO_CHAR(SYSDATE, 'YYYY-MM-DD'); FOR MYROW IN (SELECT * FROM MIL_PLAN T WHERE T.JUDGE_STOVE_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') AND T.PLINE_CODE = ?) LOOP INSERT INTO MIL_PLAN (LENGTHCP, CUT_HEAD_LENGTHA, CUT_TRAIL_LENGTHA, ORDER_LENGTHA, HOT_CHECK_FLAG, FEED_SEQ, FEED_HEAT_NO, LOT_SEQ, STEEL_STANDRAD, TARGET, BRANCH, TON, CUT_TARGET, CUT_LENGTH, CUT_WEIGHT, DB_NUM, START_TIME, END_TIME, TOM, TOC, NODE_STATUS, CUT_HEAD_LENGTHP, CUT_TRAIL_LENGTHP, CONTROL_THICKP, OFFLINE_FLAG, IS_BATCH, OFFLINE_DATE, CUT_TYPE, ROLLING_STATUS, PRODUCE_STANDRAD, SIMPLE_PROCESS, BACK_LINE_FLAG, BACK_PLAN_FLAG, FEED_TIME, ID, SEQ, STOVE_NO, JUDGE_STOVE_NO, LOT_NO, CONTRACT_NO, IMP_PROCESS, PLINE_CODE, STATUS, PRODUCER, PROCESS_STATUS, DB_LENGTH, DB_HEIGHT, ROLL_LENGTH, SAW_NUM, TARGET_LENGTH, FINISH_USER, TARGET_LIABRARY, VARIETIES, PIPE_SIZE, BUCKLE_TYPE, LENGTH_RANGE, ROLL_STANDRAD, PIPE_SECTION, STEELCODE, STEELNAME, GRADECODE, GRADENAME, CODE_SAMPLE_FLAG, ORD_LN_DLY_PK, PRT_FLAG, PRO_PLAN_ID, GX_PLAN_NO, VARIETIES_CODE, PIPE_SIZE_CODE, BUCKLE_TYPE_CODE, ROLL_STANDRAD_CODE, STD_STYLE, STD_STYLE_DESC) VALUES (MYROW.LENGTHCP, MYROW.CUT_HEAD_LENGTHA, MYROW.CUT_TRAIL_LENGTHA, MYROW.ORDER_LENGTHA, MYROW.HOT_CHECK_FLAG, MYROW.FEED_SEQ, MYROW.FEED_HEAT_NO, MYROW.LOT_SEQ, MYROW.STEEL_STANDRAD, MYROW.TARGET, ?, ?, MYROW.CUT_TARGET, MYROW.CUT_LENGTH, MYROW.CUT_WEIGHT, MYROW.DB_NUM, TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), '', '70', MYROW.CUT_HEAD_LENGTHP, MYROW.CUT_TRAIL_LENGTHP, MYROW.CONTROL_THICKP, '2', '0', '', MYROW.CUT_TYPE, '0', --MYROW.PRODUCE_STANDRAD, ?, MYROW.SIMPLE_PROCESS, '1', '7', MYROW.FEED_TIME, MYROW.ID, MYROW.SEQ, MYROW.STOVE_NO, V_JUDGE_STOVE_NO, ?, --MYROW.CONTRACT_NO, ?, ?, --MYROW.IMP_PROCESS, MYROW.PLINE_CODE, '75', MYROW.PRODUCER, MYROW.PROCESS_STATUS, MYROW.DB_LENGTH, MYROW.DB_HEIGHT, MYROW.ROLL_LENGTH, MYROW.SAW_NUM, --MYROW.TARGET_LENGTH, ?, V_ABRVITION, --MYROW.FINISH_USER, MYROW.TARGET_LIABRARY, --MYROW.VARIETIES, ?, --MYROW.PIPE_SIZE, ?, --MYROW.BUCKLE_TYPE, ?, ?, --MYROW.LENGTH_RANGE, --MYROW.ROLL_STANDRAD, ?, MYROW.PIPE_SECTION, --MYROW.STEELCODE, --MYROW.STEELNAME, NVL(?, MYROW.STEELCODE), NVL(?, MYROW.STEELNAME), MYROW.GRADECODE, MYROW.GRADENAME, MYROW.CODE_SAMPLE_FLAG, MYROW.ORD_LN_DLY_PK, MYROW.PRT_FLAG, MYROW.PRO_PLAN_ID, MYROW.GX_PLAN_NO, ?, ?, ?, ?, ?, ?); INSERT INTO MIL_OFFLINE_RESULT_DETIA (LOT_NO, JUDGE_STOVE_NO, OPERATION_TYPE, ACT_COUNT, ACT_WEIGHT, COL_TIME, REMARK, COL_USER, COL_GROUP, COL_SHIFT, OPERATION_ID, PLINE_CODE, ID, OFFLINE_TYPE, BACK_JUDGE_STOVE_NO, PRO_PLAN_ID, GX_PLAN_NO) VALUES (?, ?, '4', ?, ?, TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), ?, ?, ?, ?, V_OPERATION_ID, MYROW.PLINE_CODE, MYROW.ID, ?, V_JUDGE_STOVE_NO, MYROW.PRO_PLAN_ID, MYROW.GX_PLAN_NO); UPDATE MIL_OFFLINE_RESLUT T SET T.BACKLINE_NUM = TO_NUMBER(T.BACKLINE_NUM) + TO_NUMBER(?) WHERE T.JUDGE_STOVE_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.OFFLINE_PRO = 'JZ'; SELECT T.OFFLINE_NUM, (T.GROUP_NUM + T.BACKLINE_NUM + T.RECHECK_NUM) INTO V_OFFLINE_NUM, V_TOTAL_COUNT FROM MIL_OFFLINE_RESLUT T WHERE T.JUDGE_STOVE_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.OFFLINE_PRO = 'JZ'; IF (V_OFFLINE_NUM = V_TOTAL_COUNT) THEN UPDATE MIL_OFFLINE_RESLUT T SET T.STATUS = '1' WHERE T.JUDGE_STOVE_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.OFFLINE_PRO = 'JZ'; END IF; END LOOP; END; ]]> 0) THEN select max((select c.ABRVITION from slm_base_customer c where c.customer_no = t1.FINAL_USER)) into V_ABRVITION from pln_order_zg_s t, pln_saleord t1 where t1.ord_ln_dly_pk = t.ord_ln_dly_pk and t.ORDER_NO = V_ORDER_NO; END IF; --改交合同的轧管订单编号 SELECT COUNT(1) INTO V_COUNT1 FROM PLN_SALEORD T3, PLN_ORDER_ZG_S S1 WHERE T3.ORD_LN_DLY_PK = S1.ORD_LN_DLY_PK AND S1.EXE_STATUS = '0' AND T3.ORDER_NO || '/' || T3.ORDER_SEQ = V_CONTRACT_NO; IF (V_COUNT1 > 0) THEN SELECT MAX(T3.ORD_LN_DLY_PK), MAX(S1.PRO_PLAN_ID), MAX(S1.GX_PLAN_NO), MAX(S1.CRAFT_SEQ), MAX(S1.CIC), MAX(S1.INDEX_SEQ), MAX(S1.PIC) INTO V_ORD_LN_DLY_PK_G, V_PRO_PLAN_ID_G, V_GX_PLAN_NO_G, V_CRAFT_SEQ_G, V_CIC_G, V_INDEX_SEQ_G, V_PIC_G FROM PLN_SALEORD T3, PLN_ORDER_ZG_S S1 WHERE T3.ORD_LN_DLY_PK = S1.ORD_LN_DLY_PK AND S1.EXE_STATUS = '0' AND T3.ORDER_NO || '/' || T3.ORDER_SEQ = V_CONTRACT_NO; END IF; --生成新炉号 SELECT REGEXP_REPLACE(?, '-.*', '') || '-' || LPAD(NVL(MAX(SUBSTR(T.JUDGE_STOVE_NO, -2)), 0) + 1, 2, 0) JUDGE_STOVE_NO INTO V_JUDGE_STOVE_NO FROM MIL_PLAN T WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = REGEXP_REPLACE(V_JUDGE_STOVE_NO1, '-.*', '') AND T.PLINE_CODE = V_PLINE_CODE; --生成主键 SELECT TO_CHAR(SYSDATE, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(T.ID, 7)), 0) + 1, 3, 0) DI INTO V_ID FROM MIL_PLAN T WHERE T.PLINE_CODE = ? AND INSTR(T.ID, '-') = 0 AND TO_CHAR(T.TOM, 'YYYY-MM-DD') = TO_CHAR(SYSDATE, 'YYYY-MM-DD'); --生成操作ID SELECT TO_CHAR(SYSDATE, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(T.OPERATION_ID, 7)), 0) + 1, 5, 0) OPERATION_ID INTO V_OPERATION_ID FROM MIL_OFFLINE_RESULT_DETIA T WHERE TO_CHAR(T.COL_TIME, 'YYYY-MM-DD') = TO_CHAR(SYSDATE, 'YYYY-MM-DD'); --生成管序号 SELECT (NVL(MAX(T.SEQ), 0) + 1) SEQ INTO V_SEQ FROM PORT_MIL_BATCH_SAMPLE_RESULT T WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO AND T.PLINE_CODE = ?; FOR MYROW IN (SELECT * FROM MIL_PLAN T WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO_ZP AND T.PLINE_CODE = ?) LOOP INSERT INTO MIL_PLAN (LENGTHCP, CUT_HEAD_LENGTHA, CUT_TRAIL_LENGTHA, ORDER_LENGTHA, HOT_CHECK_FLAG, FEED_SEQ, FEED_HEAT_NO, LOT_SEQ, STEEL_STANDRAD, TARGET, BRANCH, TON, CUT_TARGET, CUT_LENGTH, CUT_WEIGHT, DB_NUM, START_TIME, END_TIME, TOM, TOC, NODE_STATUS, CUT_HEAD_LENGTHP, CUT_TRAIL_LENGTHP, CONTROL_THICKP, OFFLINE_FLAG, IS_BATCH, OFFLINE_DATE, CUT_TYPE, ROLLING_STATUS, PRODUCE_STANDRAD, SIMPLE_PROCESS, BACK_LINE_FLAG, BACK_PLAN_FLAG, FEED_TIME, ID, SEQ, STOVE_NO, JUDGE_STOVE_NO, LOT_NO, CONTRACT_NO, IMP_PROCESS, PLINE_CODE, STATUS, PRODUCER, PROCESS_STATUS, DB_LENGTH, DB_HEIGHT, ROLL_LENGTH, SAW_NUM, TARGET_LENGTH, FINISH_USER, TARGET_LIABRARY, VARIETIES, PIPE_SIZE, BUCKLE_TYPE, LENGTH_RANGE, ROLL_STANDRAD, PIPE_SECTION, STEELCODE, STEELNAME, GRADECODE, GRADENAME, CODE_SAMPLE_FLAG, ORD_LN_DLY_PK, PRT_FLAG, PRO_PLAN_ID, GX_PLAN_NO, VARIETIES_CODE, PIPE_SIZE_CODE, BUCKLE_TYPE_CODE, ROLL_STANDRAD_CODE, STD_STYLE, STD_STYLE_DESC, CRAFT_SEQ, CIC, INDEX_SEQ, PIC, IF_PRODUCT, PRDCR_NO, IF_MONITOR) VALUES (MYROW.LENGTHCP, MYROW.CUT_HEAD_LENGTHA, MYROW.CUT_TRAIL_LENGTHA, MYROW.ORDER_LENGTHA, MYROW.HOT_CHECK_FLAG, MYROW.FEED_SEQ, MYROW.FEED_HEAT_NO, MYROW.LOT_SEQ, MYROW.STEEL_STANDRAD, MYROW.TARGET, ?, ?, MYROW.CUT_TARGET, MYROW.CUT_LENGTH, MYROW.CUT_WEIGHT, MYROW.DB_NUM, TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), '', '96', MYROW.CUT_HEAD_LENGTHP, MYROW.CUT_TRAIL_LENGTHP, MYROW.CONTROL_THICKP, '2', '0', '', MYROW.CUT_TYPE, '0', MYROW.PRODUCE_STANDRAD, MYROW.SIMPLE_PROCESS, '1', '10', MYROW.FEED_TIME, MYROW.ID, MYROW.SEQ, MYROW.STOVE_NO, V_JUDGE_STOVE_NO, ?, --MYROW.CONTRACT_NO, ?, MYROW.IMP_PROCESS, MYROW.PLINE_CODE, '96', MYROW.PRODUCER, MYROW.PROCESS_STATUS, MYROW.DB_LENGTH, MYROW.DB_HEIGHT, MYROW.ROLL_LENGTH, MYROW.SAW_NUM, --MYROW.TARGET_LENGTH, ?, V_ABRVITION, MYROW.TARGET_LIABRARY, --MYROW.VARIETIES, ?, --MYROW.PIPE_SIZE, ?, --MYROW.BUCKLE_TYPE, ?, ?, --MYROW.LENGTH_RANGE, MYROW.ROLL_STANDRAD, --?, MYROW.PIPE_SECTION, --MYROW.STEELCODE, --MYROW.STEELNAME, NVL(?, MYROW.STEELCODE), NVL(?, MYROW.STEELNAME), MYROW.GRADECODE, MYROW.GRADENAME, MYROW.CODE_SAMPLE_FLAG, DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, MYROW.ORD_LN_DLY_PK, V_ORD_LN_DLY_PK_G), MYROW.PRT_FLAG, DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, MYROW.PRO_PLAN_ID, V_PRO_PLAN_ID_G), DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, MYROW.GX_PLAN_NO, V_GX_PLAN_NO_G), ?, ?, ?, ?, ?, ?, DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, MYROW.CRAFT_SEQ, V_CRAFT_SEQ_G), DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, MYROW.CIC, V_CIC_G), DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, MYROW.INDEX_SEQ, V_INDEX_SEQ_G), DECODE(MYROW.CONTRACT_NO, V_CONTRACT_NO, MYROW.PIC, V_PIC_G), MYROW.IF_PRODUCT, MYROW.PRDCR_NO, MYROW.IF_MONITOR); INSERT INTO MIL_OFFLINE_RESULT_DETIA (LOT_NO, JUDGE_STOVE_NO, OPERATION_TYPE, ACT_COUNT, ACT_WEIGHT, COL_TIME, REMARK, COL_USER, COL_GROUP, COL_SHIFT, OPERATION_ID, PLINE_CODE, ID, OFFLINE_TYPE, BACK_JUDGE_STOVE_NO) VALUES (?, ?, '3', ?, ?, DECODE(?, '', SYSDATE, SYSDATE), --TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'),同操作ID一样用数据库时间 ?, ?, ?, ?, V_OPERATION_ID, MYROW.PLINE_CODE, MYROW.ID, ?, V_JUDGE_STOVE_NO); UPDATE MIL_OFFLINE_RESLUT T SET T.BACKLINE_NUM = TO_NUMBER(T.BACKLINE_NUM) + TO_NUMBER(?) WHERE T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.OFFLINE_PRO = 'XX'; SELECT T.OFFLINE_NUM, (T.GROUP_NUM + T.BACKLINE_NUM + T.RECHECK_NUM) INTO V_OFFLINE_NUM, V_TOTAL_COUNT FROM MIL_OFFLINE_RESLUT T WHERE T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.OFFLINE_PRO = 'XX'; --IF (V_OFFLINE_NUM = ?) THEN UPDATE MIL_OFFLINE_RESLUT T SET T.STATUS = '1' WHERE T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.OFFLINE_PRO = 'XX'; --END IF; END LOOP; FOR MYROW IN (SELECT * FROM (SELECT * FROM PORT_MIL_BATCH_SAMPLE_RESULT T WHERE T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND T.PLINE_CODE = ? AND T.STATUS = '3' AND T.OP_PROCESS = '12' ORDER BY T.MAT_NO ASC) WHERE ROWNUM <= ?) LOOP V_COUNT := 1; WHILE (V_COUNT <= ?) LOOP V_MAT_NO := MYROW.MAT_NO || V_COUNT; INSERT INTO PORT_MIL_BATCH_SAMPLE_RESULT (PLAN_ID, LOT_NO, JUDGE_STOVE_NO, PLINE_CODE, BATCH_NO, SEQ, MAT_NO, IS_SAMPLE_PIPE, SAMPLE_PIPE_LEN, GET_SAMPLE_NAME, GET_SAMPLE_TIME, GET_SAMPLE_SHIFT, GET_SAMPLE_CLASS, ORDER_LENGTH, ACT_THEORY_WEIGHT, ACT_COUNT, CRATE_TIME, M_MAT_NO, M_M_MAT_NO, INPUT_WEIGHT, PRO_PLAN_ID, GX_PLAN_NO, BAL_YEAR_MONTH, -- STORAGE_NO, MEASURE_LEN, MEASURE_WEIGHT, MEASURING_SEQ, MAT_INFO, MEASURING_FLAG, MEASURE_RESULT_NO, ACT_THEORY_WEIGHT_BAK) VALUES (MYROW.PLAN_ID, ?, V_JUDGE_STOVE_NO, MYROW.PLINE_CODE, MYROW.BATCH_NO, V_SEQ, V_MAT_NO, MYROW.IS_SAMPLE_PIPE, MYROW.SAMPLE_PIPE_LEN, MYROW.GET_SAMPLE_NAME, MYROW.GET_SAMPLE_TIME, MYROW.GET_SAMPLE_SHIFT, MYROW.GET_SAMPLE_CLASS, NVL(?, MYROW.ORDER_LENGTH), TO_NUMBER(MYROW.ACT_THEORY_WEIGHT) / ?, MYROW.ACT_COUNT, SYSDATE, MYROW.M_MAT_NO, MYROW.M_M_MAT_NO, TO_NUMBER(MYROW.INPUT_WEIGHT) / ?, V_PRO_PLAN_ID, V_GX_PLAN_NO, MYROW.BAL_YEAR_MONTH, --V_STORAGE_NO, MYROW.MEASURE_LEN, MYROW.MEASURE_WEIGHT, MYROW.MEASURING_SEQ, MYROW.MAT_INFO, MYROW.MEASURING_FLAG, MYROW.MEASURE_RESULT_NO, MYROW.ACT_THEORY_WEIGHT_BAK); V_COUNT := V_COUNT + 1; V_SEQ := V_SEQ + 1; END LOOP; UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T SET T.STATUS = '4', T.BACK_PROCESS = '12' WHERE T.JUDGE_STOVE_NO = ? AND T.MAT_NO = MYROW.MAT_NO; END LOOP; FOR MYROW2 IN (SELECT * FROM (SELECT T.MAT_NO FROM PORT_MIL_BATCH_SAMPLE_RESULT T WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO ORDER BY T.IS_SAMPLE_PIPE ASC, T.MAT_NO DESC) WHERE ROWNUM <= ?) LOOP UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T SET T.STATUS = '6', T.OP_PROCESS = '13' WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO AND T.MAT_NO = MYROW2.MAT_NO; END LOOP; END; ]]> SELECT COUNT(1) ACOUNT FROM MAT_BC_M T,YDM_BC_BUTTRESS S WHERE T.MAT_NO = S.MAT_NO AND T.ZG_STOVE_SQE = ? AND T.BATCH_NO = 'X' SELECT ? || TO_CHAR(SYSDATE, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(T.SUBCONTRACT_NO, 11)), 0) + 1, 3, 0) SUBCONTRACT_NO FROM MIL_ENTRUSTED_BILL T WHERE T.PLINE_CODE = ? AND TO_CHAR(T.ENTRUSTED_TIME, 'YYYY-MM-DD') = TO_CHAR(SYSDATE, 'YYYY-MM-DD') SELECT ? || LPAD(NVL(MAX(SUBSTR(T.SUBCONTRACT_NO_SEQ, LENGTH(T.SUBCONTRACT_NO_SEQ) - 3)), 0) + 1, 3, 0) SUBCONTRACT_NO_SEQ FROM MIL_ENTRUSTED_BILL T WHERE T.SUBCONTRACT_NO = ? DECLARE V_SUBCONTRACTNO MIL_ENTRUSTED_BILL.SUBCONTRACT_NO%TYPE := NULL; V_OFFLINECOUNT MIL_OFFLINE_RESLUT.Offline_Num%TYPE := NULL; V_TOTALOUNT MIL_OFFLINE_RESLUT.Offline_Num%TYPE := NULL; BEGIN INSERT INTO MIL_ENTRUSTED_BILL (SUBCONTRACT_NO_SEQ, SUBCONTRACT_NO, LOT_NO, STOVE_NO, JUDGE_STOVE_NO, PLINE_CODE, OFFLINE_PRO, SUBCONTRACT_NUM, ENTRUSTED_TIME, REMARK, COL_USER, COL_SHIFT, COL_GROUP, SUBCONTRACT_FLAG, OFFLINE_TYPE, SUBCONTRACT_WGT, CRAFT_FILE_NO, STEEL_PIPE_PROCESS, UL_TESTING, SUBCONTRACT_TYPE, TESTING_GRADE, TESTING_TYPE, PRO_PLAN_ID, GX_PLAN_NO) VALUES (?, ?, ?, ?, ?, ?, ?, ?, TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?); UPDATE MIL_OFFLINE_RESLUT T SET T.SUBCONTRACT_NUM = ? WHERE T.JUDGE_STOVE_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') AND T.LOT_NO = ? AND T.STATUS = '0' AND T.OFFLINE_TYPE = ? AND T.OFFLINE_PRO = ?; SELECT T.OFFLINE_NUM, (T.BACKLINE_NUM + T.GROUP_NUM + T.RECHECK_NUM + T.INSTORAGE_NUM + T.SUBCONTRACT_NUM - T.SUBCONTRACTCOMPLETE_NUM) INTO V_OFFLINECOUNT, V_TOTALOUNT FROM MIL_OFFLINE_RESLUT T WHERE T.JUDGE_STOVE_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') AND T.LOT_NO = ? AND T.STATUS = '0' AND T.OFFLINE_TYPE = ? AND T.OFFLINE_PRO = ?; IF (V_OFFLINECOUNT = V_TOTALOUNT) THEN UPDATE MIL_OFFLINE_RESLUT T SET T.STATUS = '1' WHERE T.JUDGE_STOVE_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') AND T.LOT_NO = ? AND T.STATUS = '0' AND T.OFFLINE_TYPE = ? AND T.OFFLINE_PRO = ?; END IF; END; V_TOTALOUNT) THEN UPDATE MIL_OFFLINE_RESLUT T SET T.STATUS = '0' WHERE T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND T.OFFLINE_TYPE = ? AND T.OFFLINE_PRO = ?; END IF; IF (? = 0) THEN FOR MYROW IN (SELECT * FROM (SELECT T.MAT_NO FROM PORT_MIL_BATCH_SAMPLE_RESULT T WHERE T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND T.STATUS = '3' ORDER BY T.MAT_NO DESC) WHERE ROWNUM <= ?) LOOP UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T SET T.STATUS = '6' WHERE T.JUDGE_STOVE_NO = ? AND T.MAT_NO = MYROW.MAT_NO; END LOOP; END IF; END; ]]> DECLARE BEGIN DELETE FROM MIL_ENTRUSTED_BILL T WHERE T.SUBCONTRACT_NO_SEQ = ?; UPDATE MIL_OFFLINE_RESLUT T SET T.SUBCONTRACT_NUM = TO_NUMBER(T.SUBCONTRACT_NUM) - TO_NUMBER(?), T.SUBCONTRACTCOMPLETE_NUM = TO_NUMBER(T.SUBCONTRACTCOMPLETE_NUM) - TO_NUMBER(?), T.STATUS = '0' WHERE T.Judge_Stove_No = ? AND T.LOT_NO = ? AND T.OFFLINE_TYPE = ? AND T.OFFLINE_PRO = ?; END; SELECT T.SUBCONTRACT_FLAG FROM MIL_ENTRUSTED_BILL T WHERE T.SUBCONTRACT_NO_SEQ = ? AND T.JUDGE_STOVE_NO = ? DECLARE V_INSTOCK_DOC YDM_BC_INLIST.INSTOCK_DOC%TYPE := NULL; --入库单号 V_INSTOCK_SQE YDM_BC_INLIST.INSTOCK_SQE%TYPE := NULL; --入库流水 V_IMEMO COM_BASE_INFO.MEMO%TYPE := NULL; V_BASENAME COM_BASE_INFO.BASENAME%TYPE := NULL; V_ICOUNT NUMBER := 1; V_TIME YDM_BC_INLIST.CREATE_TIME%TYPE := SYSDATE; V_BATHYEAR YDM_BC_INLIST.BAL_YEAR_MONTH%TYPE := TO_CHAR(SYSDATE, 'YYYYMM'); V_BATCH_GROUD_NO MAT_BC_M.BATCH_GROUD_NO%TYPE := NULL; V_OFFLINECOUNT MIL_OFFLINE_RESLUT.OFFLINE_NUM%TYPE :=NULL; V_TOTALOUNT MIL_OFFLINE_RESLUT.OFFLINE_NUM%TYPE :=NULL; BEGIN INSERT INTO YDM_BC_BUTTRESS (JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, STORAGE_NO, LOCATION_NO, STORAGE_TYPE_NO, STORAGE_TYPE_NAME, CREATE_NAME, MAT_NO, CREATE_TIME, MANAGEMENT_NO, MANAGEMENT_NAME, DEPARTMENT_CODE, DEPARTMENT_DESC) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, V_TIME, ?, ?, ?, ?); INSERT INTO MAT_BC_M (JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, PRODUCCODE, PRODUCNAME, STEELCODE, STEELNAME, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, STD_CODE, STD_NAME, BELONG_CODE, BELONG_NAME, STD_STYLE, STD_STYLE_DESC, ORDER_NO, ORDER_SEQ, ORDER_SEQ_NO, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK, ACT_DIMATER, ACT_HEIGHT, LEN_NO, LEN_DESC, LEN_UNIT, ACT_LEN_MIN, ACT_LEN_MAX, CREATE_NAME, ACT_COUNT, ACT_WEIGHT, CREATE_TIME, INSTOCK_TIME, MAT_NO, MEMO, JUGDE_APPLY_FLAG, INSTOCK_FLAG, PRODUCT_FLAG, MAT_STATUS, ACT_LEN, JUDGE_STD_NAME, BAL_YEAR_MONTH, PLINE_CODE, PLINE_NAME, GRADECODE, GRADENAME, PIPMEMO, OLD_ORDER_NO, JUDGE_RESULT_TIME, MAT_ORIGIN_CODE, MAT_ORIGIN_NAME, SOURE_CODE, SOURE_NAME, MATERIAL_NO, MATERIAL_NAME, PLN_GRADECODE, PLN_GRADENAME, PLN_STEELCODE, PLN_STEELNAME, PRO_ORDER_NO, DETECT_RESULT_CODE, FACE_RESULT_CODE, QCM_STAUS, SAMPLE_FLAG, HEAT_PLAN_NO, ZG_STOVE_SQE) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, V_TIME, V_TIME, ?, '', ?, ?, ?, ?, ?, ?, V_BATHYEAR, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?); END; INSERT INTO MIL_OFFLINE_RESULT_DETIA( LOT_NO, JUDGE_STOVE_NO, OPERATION_TYPE, ACT_COUNT, ACT_WEIGHT, COL_TIME, COL_USER, COL_SHIFT, COL_GROUP, OPERATION_ID, PLINE_CODE, ID, OFFLINE_TYPE) VALUES( ?, ?, '3', ?, ?, TO_DATE(?,'YYYY-MM-DD HH24:MI:SS'), ?, ?, ?, ?, ?, ?, ?) UPDATE MIL_OFFLINE_RESLUT T SET T.INSTORAGE_NUM = TO_NUMBER(T.INSTORAGE_NUM) + TO_NUMBER(?) WHERE T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND T.OFFLINE_TYPE = ? SELECT T.* FROM MIL_PLAN T WHERE T.JUDGE_STOVE_NO = ? SELECT T.OLD_ZP_JUDGE_STOVE_NO,T.OLD_ZP_LOT_NO,T.ZP_COUNT,T.ZP_HEIGHT FROM MIL_OFFLINE_GROUP T WHERE T.ZP_JUDGE_STOVE_NO = ? SELECT T.ENTRUSTED_FLAG FROM MIL_ENTRUSTED_BILL T WHERE T.SUBCONTRACT_NO_SEQ = ? DECLARE BEGIN UPDATE MIL_OFFLINE_RESLUT T SET T.LENGTH = '#LENGTH#', T.DIAMETER = '#DIAMETER#', T.THICKNESS = '#THICKNESS#', T.PRODUCCODE = '#PRODUCCODE#', T.PRODUCNAME = '#PRODUCNAME#', T.STEELCODE = '#STEELCODE#', T.STEELNAME = '#STEELNAME#', T.SPEC_CODE = '#SPEC_CODE#', T.SPEC_NAME = '#SPEC_NAME#', T.MODEL_CODE = '#MODEL_CODE#', T.MODEL_DESC = '#MODEL_DESC#', T.STD_STYLE = '#STD_STYLE#', T.STD_STYLE_DESC = '#STD_STYLE_DESC#', T.STD_CODE = '#STD_CODE#', T.STD_NAME = '#STD_NAME#', T.CONTRACT_NO = '#CONTRACT_NO#', T.IMP_PROCESS = '#IMP_PROCESS#', T.ACT_LEN_RANGE = '#ACT_LEN_RANGE#' WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'; --UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T SET T.ORDER_LENGTH = '#ZP_LENGTH#' WHERE T.JUDGE_STOVE_NO = '#ZP_JUDGE_STOVE_NO#'; --UPDATE MIL_OFFLINE_GROUP T SET T.ZP_LENGTH = '#ZP_LENGTH#' WHERE T.ZP_JUDGE_STOVE_NO = '#ZP_JUDGE_STOVE_NO#'; END; SELECT NVL(COUNT(1),0)ACOUNT FROM PORT_MIL_BATCH_SAMPLE_RESULT T WHERE T.JUDGE_STOVE_NO = ? SELECT T.IMP_PROCESS FROM MIL_PLAN T WHERE T.JUDGE_STOVE_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') SELECT T.PRODUCNAME,T.PRODUCCODE FROM COM_BASE_PRODUCT T SELECT T.STEELNAME,T.STEELCODE FROM COM_BASE_STEEL T SELECT T.SPEC_NAME,T.SPEC_CODE FROM COM_BASE_SPEC T SELECT T.MODEL_DESC,T.MODEL_CODE FROM COM_BASE_MODEL T SELECT T.STD_STYLE_DESC,T.STD_STYLE FROM COM_BASE_STD_STYLE T SELECT * FROM (SELECT T.NODE_FUR_FLAG FROM MIL_MT_RESULT T WHERE T.JUDGE_STOVE_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') UNION ALL SELECT T1.NODE_FUR_FLAG FROM MIL_ET_RESULT T1 WHERE T1.JUDGE_STOVE_NO = ? AND NVL(T1.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T1.GX_PLAN_NO, '/') = NVL(?, '/')) SELECT T.NODE_FUR_FLAG FROM MIL_SURFACE_RESULT T WHERE T.JUDGE_STOVE_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') SELECT * FROM MIL_ENTRUSTED_BILL T WHERE T.JUDGE_STOVE_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') SELECT COUNT(1) FROM MIL_PLAN T WHERE T.JUDGE_STOVE_NO = ? AND T.NODE_STATUS = '99' AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') SELECT TO_NUMBER(T.SUBCONTRACTSCRAP_NUM) / TO_NUMBER(T.SUBCONTRACT_COMPLETE_CUT)SUBCONTRACTSCRAP_NUM FROM MIL_ENTRUSTED_BILL T WHERE T.JUDGE_STOVE_NO = ?