= 1 AND ROWNUM <= #QUALIFIED_BRANCH# - V_SEQ; UPDATE MIL_SURFACE_RESULT T SET T.COL_SHIFT = '#COL_SHIFT#', T.COL_GROUP = '#COL_GROUP#' WHERE T.JUDGE_STOVE_NO = '#HEAT_NO#' AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/') AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/'); END; ]]> DECLARE BEGIN FOR MYROW IN (SELECT ROWNUM SEQ,T1.MAT_NO FROM (SELECT MAT_NO FROM MIL_QA_RACK T WHERE T.JUDGE_STOVE_NO = '#HEAT_NO#' AND T.RESULT_NO = '#RESULT_NO#' AND T.MAT_NO IS NOT NULL AND T.OFFLINE_FLAG = '0' AND T.STATUS = '0' ORDER BY T.SEQ ASC)T1) LOOP UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T SET T.MAT_NO = MYROW.MAT_NO WHERE T.JUDGE_STOVE_NO = '#HEAT_NO#' AND T.PLAN_ID = '#RESULT_NO#' AND T.SEQ = MYROW.SEQ; END LOOP; END; SELECT T.JUDGE_STOVE_NO, T.DEFECT_ITEM, T.WASTE_BRANCH, T.WASTE_TONS, T.SIMPLE_LOT_NO, T.OFFLINE_PRODUCT FROM MIL_CHECK_DEATIL_SIMPLE T WHERE T.JUDGE_STOVE_NO = ? 0) THEN SELECT COUNT(1) INTO V_COUNT FROM MIL_OFFLINE_RESLUT 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.STATUS = '0' AND T.OFFLINE_PRO = 'ZJ'; IF (V_COUNT > 0) THEN UPDATE MIL_OFFLINE_RESLUT T SET T.OFFLINE_NUM = TO_NUMBER(T.OFFLINE_NUM) + TO_NUMBER(?) 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.STATUS = '0' AND T.OFFLINE_PRO = 'ZJ'; ELSE 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, '/')) LOOP INSERT INTO MIL_OFFLINE_RESLUT (RECHECK_NUM, PRODUCNAME, STEELCODE, STEELNAME, GRADECODE, GRADENAME, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, STD_CODE, STD_NAME, STD_STYLE, STD_STYLE_DESC, ACT_LEN_RANGE, CONTRACT_NO, PRODUCCODE, INSTORAGE_NUM, QUALIFIED_NUM, SCRAP_NUM, ZP_M_LH, LOT_NO, STOVE_NO, JUDGE_STOVE_NO, DIAMETER, THICKNESS, LENGTH, PLINE_CODE, OFFLINE_PRO, REAL_TIME_STATUS, OFFLINE_NUM, BACKLINE_NUM, GROUP_NUM, FINAL_NUM, ZP_FLAG, STATUS, TYPE_FLAG, OFFLINE_TIME, REMARK, COL_USER, COL_SHIFT, COL_GROUP, ZP_HEIGHT, TARGET, IMP_PROCESS, PRO_PLAN_ID, GX_PLAN_NO, OFFLINE_DOC, LOAD_JUDGE_STOVE_NO) VALUES ('0', MYROW.VARIETIES, MYROW.STEELCODE, MYROW.STEELNAME, MYROW.GRADECODE, MYROW.GRADENAME, MYROW.PIPE_SIZE_CODE, REPLACE(MYROW.PIPE_SIZE, '*', 'x'), MYROW.BUCKLE_TYPE_CODE, MYROW.BUCKLE_TYPE, MYROW.ROLL_STANDRAD_CODE, MYROW.ROLL_STANDRAD, MYROW.STD_STYLE, MYROW.STD_STYLE_DESC, MYROW.LENGTH_RANGE, MYROW.CONTRACT_NO, MYROW.VARIETIES_CODE, '0', '0', '0', '', MYROW.LOT_NO, MYROW.STOVE_NO, MYROW.JUDGE_STOVE_NO, SUBSTR(MYROW.PIPE_SIZE, 0, INSTR(MYROW.PIPE_SIZE, '*') - 1), SUBSTR(MYROW.PIPE_SIZE, INSTR(MYROW.PIPE_SIZE, '*') + 1), MYROW.TARGET_LENGTH, MYROW.PLINE_CODE, 'ZJ', '0', ?, '0', '0', '0', '0', '0', '0', SYSDATE, '', ?, ?, ?, to_number(substr(0.02466 * SUBSTR(MYROW.PIPE_SIZE, INSTR(MYROW.PIPE_SIZE, '*') + 1) * (SUBSTR(MYROW.PIPE_SIZE, 0, INSTR(MYROW.PIPE_SIZE, '*') - 1) - SUBSTR(MYROW.PIPE_SIZE, INSTR(MYROW.PIPE_SIZE, '*') + 1)) / 1000, 0, instr(0.02466 * SUBSTR(MYROW.PIPE_SIZE, INSTR(MYROW.PIPE_SIZE, '*') + 1) * (SUBSTR(MYROW.PIPE_SIZE, 0, INSTR(MYROW.PIPE_SIZE, '*') - 1) - SUBSTR(MYROW.PIPE_SIZE, INSTR(MYROW.PIPE_SIZE, '*') + 1)) / 1000, '.') + 3)) * to_number(?) * to_number(MYROW.TARGET_LENGTH), MYROW.TARGET, MYROW.IMP_PROCESS, V_PRO_PLAN_ID, V_GX_PLAN_NO, ?, MYROW.FEED_HEAT_NO); END LOOP; END IF; END IF; END; ]]> SELECT NVL(COUNT(1), 0) ACOUNT FROM MIL_CHECK_DEATIL_SIMPLE T WHERE T.JUDGE_STOVE_NO = ? AND T.DEFECT_CODE = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') 0) THEN UPDATE MIL_CHECK_DEATIL_SIMPLE T SET T.OFFLINE_PRODUCT = TO_NUMBER(T.OFFLINE_PRODUCT) - TO_NUMBER(V_OFFLINE_QUANTITY), T.WASTE_BRANCH = TO_NUMBER(T.WASTE_BRANCH) - TO_NUMBER(V_OFFLINE_QUANTITY) WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO AND T.DEFECT_CODE = V_DEFECT_CODE; ELSE DELETE FROM MIL_CHECK_DEATIL_SIMPLE T WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO AND T.DEFECT_CODE = V_DEFECT_CODE; END IF; UPDATE MIL_SURFACE_RESULT T SET T.OFFLINE_QUANTITY = TO_NUMBER(T.OFFLINE_QUANTITY) - TO_NUMBER(V_OFFLINE_QUANTITY), T.WASTE_QUANTITY = TO_NUMBER(T.WASTE_QUANTITY) - TO_NUMBER(V_OFFLINE_QUANTITY) WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO; UPDATE MIL_OFFLINE_RESLUT T SET T.OFFLINE_NUM = TO_NUMBER(T.OFFLINE_NUM) - TO_NUMBER(V_OFFLINE_QUANTITY), T.ZP_HEIGHT = TO_NUMBER(T.ZP_HEIGHT) - TO_NUMBER(TO_NUMBER(T.ZP_HEIGHT) * TO_NUMBER(V_OFFLINE_QUANTITY) / TO_NUMBER(T.OFFLINE_NUM)) WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO AND T.OFFLINE_PRO = 'ZJ' AND T.STATUS = '0'; IF (V_OFFLINE_QUANTITY > 0) THEN FOR OFFROW IN (SELECT * FROM (SELECT T.SEQ FROM MIL_SLAB_SCRAP_SEQ T WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO AND T.PROCESS_NO = '11' AND T.COL_TYPE = '1' ORDER BY T.SEQ DESC) WHERE ROWNUM <= V_OFFLINE_QUANTITY) LOOP UPDATE MIL_QA_RACK T SET T.OFFLINE_FLAG = '0', T.STATUS = '0' WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO AND T.SEQ = OFFROW.SEQ; DELETE FROM MIL_SLAB_SCRAP_SEQ T WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO AND T.SEQ = OFFROW.SEQ; END LOOP; END IF; IF (V_WASTE_QUANTITY > 0) THEN FOR SCRAPROW IN (SELECT * FROM (SELECT T.SEQ FROM MIL_SLAB_SCRAP_SEQ T WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO AND T.PROCESS_NO = '11' AND T.COL_TYPE = '0' ORDER BY T.SEQ DESC) WHERE ROWNUM <= V_WASTE_QUANTITY) LOOP UPDATE MIL_QA_RACK T SET T.STATUS = '0' WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO AND T.SEQ = SCRAPROW.SEQ; DELETE FROM MIL_SLAB_SCRAP_SEQ T WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO AND T.SEQ = SCRAPROW.SEQ; END LOOP; END IF; IF (V_OFFLINE_QUANTITY > 0) THEN SELECT T.OFFLINE_NUM INTO V_COUNT FROM MIL_OFFLINE_RESLUT T WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO AND T.STATUS = '0' AND T.OFFLINE_PRO = 'ZJ'; IF (V_COUNT = 0) THEN DELETE FROM MIL_OFFLINE_RESLUT T WHERE JUDGE_STOVE_NO = V_JUDGE_STOVE_NO AND T.STATUS = '0' AND OFFLINE_PRO = 'ZJ'; END IF; END IF; END; ]]> SELECT NODE_FUR_FLAG, QUALIFIED_NUM FROM (SELECT T.NODE_FUR_FLAG, T.QUALIFIED_NUM FROM MIL_MT_RESULT T WHERE T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') UNION ALL SELECT T.NODE_FUR_FLAG, T.QUALIFIED_NUM FROM MIL_ET_RESULT T WHERE T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') UNION ALL SELECT T.NODE_FUR_FLAG, T.QUALIFIED_NUM FROM MIL_UL_RESUL T WHERE T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')) SELECT NVL(T.OFFLINE_QUANTITY, 0) + NVL(T.WASTE_QUANTITY, 0) + NVL(T.QUALIFIED_BRANCH, 0) AS SURFACENUM FROM MIL_SURFACE_RESULT T WHERE T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') SELECT T.OFFLINE_NUM 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.OFFLINE_PRO = 'ZJ' AND T.STATUS = '0' SELECT * FROM MIL_CHECK_DEATIL_SIMPLE T WHERE T.JUDGE_STOVE_NO = ? AND T.DEFECT_CODE = ? SELECT M.QUALIFIED_BRANCH AS QUALIFIED_BRANCH, M.OFFLINE_QUANTITY AS OFFLINE_QUANTITY, M.WASTE_QUANTITY AS WASTE_QUANTITY FROM mil_surface_result M WHERE M.JUDGE_STOVE_NO = ? AND NVL(M.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(M.GX_PLAN_NO, '/') = NVL(?, '/') SELECT I.SCRAP_NUM AS SCRAP_STRAIGHT, I.Qualified_Num AS QUALIFIED_STRAIGHT, I.OFFLINE_NUM_TOTAL AS OFFLINE_STRAIGHT, I.BACKLINE_NUM_TOTAL AS BACKLINE_STRAIGHT, K.SCRAP_NUM AS SCRAP_TESTING, K.QUALIFIED_NUM AS QUALIFIED_TESTING, K.OFFLINE_NUM AS OFFLINE_TESTING, K.BACKLINE_NUM AS BACKLINE_TESTING, M.QUALIFIED_BRANCH AS QUALIFIED_BRANCH, M.OFFLINE_QUANTITY AS OFFLINE_QUANTITY, M.WASTE_QUANTITY AS WASTE_QUANTITY FROM MIL_STRAIGHTENING_RESULT I, MIL_MT_RESULT K, mil_surface_result M WHERE I.JUDGE_STOVE_NO = K.JUDGE_STOVE_NO(+) AND I.JUDGE_STOVE_NO = M.JUDGE_STOVE_NO(+) AND I.JUDGE_STOVE_NO = ? AND NVL(I.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(I.GX_PLAN_NO, '/') = NVL(?, '/') SELECT I.SCRAP_NUM AS SCRAP_STRAIGHT, I.Qualified_Num AS QUALIFIED_STRAIGHT, I.OFFLINE_NUM_TOTAL AS OFFLINE_STRAIGHT, I.BACKLINE_NUM_TOTAL AS BACKLINE_STRAIGHT, K.SCRAP_NUM AS SCRAP_TESTING, K.QUALIFIED_NUM AS QUALIFIED_TESTING, K.OFFLINE_NUM AS OFFLINE_TESTING, K.BACKLINE_NUM AS BACKLINE_TESTING, M.QUALIFIED_BRANCH AS QUALIFIED_BRANCH, M.OFFLINE_QUANTITY AS OFFLINE_QUANTITY, M.WASTE_QUANTITY AS WASTE_QUANTITY FROM MIL_STRAIGHTENING_RESULT I, MIL_ET_RESULT K, mil_surface_result M WHERE I.JUDGE_STOVE_NO = K.JUDGE_STOVE_NO(+) AND I.JUDGE_STOVE_NO = M.JUDGE_STOVE_NO(+) AND I.JUDGE_STOVE_NO = ? AND NVL(I.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(I.GX_PLAN_NO, '/') = NVL(?, '/') SELECT I.SCRAP_NUM AS SCRAP_STRAIGHT, I.Qualified_Num AS QUALIFIED_STRAIGHT, I.OFFLINE_NUM_TOTAL AS OFFLINE_STRAIGHT, I.BACKLINE_NUM_TOTAL AS BACKLINE_STRAIGHT, K.SCRAP_NUM AS SCRAP_TESTING, K.QUALIFIED_NUM AS QUALIFIED_TESTING, K.OFFLINE_NUM AS OFFLINE_TESTING, K.BACKLINE_NUM AS BACKLINE_TESTING, M.QUALIFIED_BRANCH AS QUALIFIED_BRANCH, M.OFFLINE_QUANTITY AS OFFLINE_QUANTITY, M.WASTE_QUANTITY AS WASTE_QUANTITY FROM MIL_STRAIGHTENING_RESULT I, MIL_UL_RESUL K, mil_surface_result M WHERE I.JUDGE_STOVE_NO = K.JUDGE_STOVE_NO(+) AND I.JUDGE_STOVE_NO = M.JUDGE_STOVE_NO(+) AND I.JUDGE_STOVE_NO = ? AND NVL(I.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(I.GX_PLAN_NO, '/') = NVL(?, '/') SELECT T.BRANCH, T.TON FROM MIL_PLAN T WHERE T.JUDGE_STOVE_NO = ? AND T.ID = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') SELECT T.PIPE_SIZE, T.TARGET_LENGTH FROM MIL_PLAN T WHERE T.JUDGE_STOVE_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') T.BACK_JUDGE_STOVE_NO and t.operation_type <> '1' ]]> SELECT T.QUALIFIED_NUM FROM #TABLENAME# T WHERE T.RESULT_NO = ? SELECT (TO_NUMBER(NVL(M1, 0)) + TO_NUMBER(NVL(M2, 0))) / 2 AS DIMATER FROM (SELECT MAX(M1) M1, MIN(M2) M2 FROM (SELECT MAX(T.D1) M1, MIN(T.D1) M2 FROM MIL_SIZE_CHECK_DEATIL T WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ? UNION ALL (SELECT MAX(T.D2) M1, MIN(T.D2) M2 FROM MIL_SIZE_CHECK_DEATIL T WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?))) SELECT (TO_NUMBER(NVL(S1,0))+TO_NUMBER(NVL(S2,0)))/2 AS HEIGHT FROM ( SELECT MAX(S1) S1, MIN(S2) S2 FROM (SELECT MAX(T.S1) S1, MIN(T.S1) S2 FROM MIL_SIZE_CHECK_DEATIL T WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ? UNION ALL (SELECT MAX(T.S2) S2, MIN(T.S2) S2 FROM MIL_SIZE_CHECK_DEATIL T WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?) UNION ALL SELECT MAX(T.S3) S1, MIN(T.S3) S2 FROM MIL_SIZE_CHECK_DEATIL T WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ? UNION ALL SELECT MAX(T.S4) S1, MIN(T.S4) S2 FROM MIL_SIZE_CHECK_DEATIL T WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?) ) UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T SET T.ACT_THEORY_WEIGHT = ROUND(0.02466 * TO_NUMBER(?) * (TO_NUMBER(?) - TO_NUMBER(?)) * TO_NUMBER(NVL(T.ORDER_LENGTH,0))/1000,3) WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ? SELECT T.BACK_PLAN_FLAG FROM MIL_PLAN T WHERE T.ID = ? AND T.JUDGE_STOVE_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') SELECT T.BRANCH AS QUALIFIED_NUM FROM MIL_PLAN T WHERE T.ID = ? AND T.PLINE_CODE = ? SELECT SUM(T.ACT_COUNT)ACT_COUNT FROM PORT_MIL_BATCH_SAMPLE_RESULT T WHERE T.PLAN_ID = ? AND T.JUDGE_STOVE_NO = ? AND (T.STATUS = '0' OR (T.STATUS IN ('2','3') AND T.OP_PROCESS = '11')) DECLARE V_TIME MIL_OFFLINE_RESLUT.OFFLINE_TIME%TYPE := SYSDATE; V_JUDGE_STOVE_NO MIL_PLAN.JUDGE_STOVE_NO%TYPE := ?; V_BATCH_NO PORT_MIL_BATCH_SAMPLE_RESULT.BATCH_NO%TYPE := ?; V_JUDGE_STOVE_NO_ZP MIL_PLAN.JUDGE_STOVE_NO%TYPE := NULL; --组炉炉号 V_COUNT MIL_PLAN.CRAFT_SEQ%TYPE := 0; BEGIN select COUNT(1) INTO V_COUNT from MIL_OFFLINE_GROUP t WHERE REGEXP_REPLACE(T.ZP_JUDGE_STOVE_NO, '-.*', '') = V_JUDGE_STOVE_NO; IF (V_COUNT > 0) THEN select REGEXP_REPLACE(T.ZP_M_LH, '-.*', '') INTO V_JUDGE_STOVE_NO_ZP from MIL_OFFLINE_GROUP t WHERE REGEXP_REPLACE(T.ZP_JUDGE_STOVE_NO, '-.*', '') = V_JUDGE_STOVE_NO AND ROWNUM = 1; END IF; 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_JUDGE_STOVE_NO, V_BATCH_NO, ?, ?, ?, ?, ?, ?, ?, V_TIME, ?, ?, ?, ?); FOR MYROW IN (SELECT A.*, B.ORD_PK, B.ORD_LN_PK, (SELECT MAX(M.PIPE_SIZE_CODE) FROM MIL_PLAN M WHERE REGEXP_REPLACE(JUDGE_STOVE_NO, '-.*', '') = A.FEED_HEAT_NO) SPEC_CODE, (SELECT MAX(M.ROLL_STANDRAD_CODE) FROM MIL_PLAN M WHERE REGEXP_REPLACE(JUDGE_STOVE_NO, '-.*', '') = A.FEED_HEAT_NO) STD_CODE, (SELECT MAX(M.STD_STYLE) FROM MIL_PLAN M WHERE REGEXP_REPLACE(JUDGE_STOVE_NO, '-.*', '') = A.FEED_HEAT_NO) STD_STYLE, (SELECT DECODE(H.ORDER_TYP, '120108', '1', '0') FROM SLM_ORDER_HEAD H WHERE H.ORD_PK = B.ORD_PK) ORDER_TYP FROM PLN_ZY_ZG_M A, SLM_ORDER_LINE_DELIVERY B WHERE A.ORD_LN_DLY_PK = B.ORD_LN_DLY_PK(+) AND A.IF_FLAG = '0' AND A.PLANSTATUS > '00' AND A.FEED_HEAT_NO = NVL(V_JUDGE_STOVE_NO_ZP, V_JUDGE_STOVE_NO)) LOOP INSERT INTO MAT_BC_M (JUDGE_STOVE_NO, STOVE_NO, BATCH_NO, BATCH_GROUD_NO, ACT_COUNT, ACT_WEIGHT, CREATE_TIME, MAT_NO, PRODUCT_FLAG, MAT_STATUS, PLINE_CODE, PLINE_NAME, QCM_STAUS, HEAT_PLAN_NO, ZG_STOVE_SQE, PRODUCCODE, PRODUCNAME, STEELCODE, STEELNAME, SPEC_CODE, SPEC_NAME, GRADECODE, GRADENAME, MODEL_CODE, MODEL_DESC, STD_CODE, STD_NAME, BELONG_CODE, BELONG_NAME, STD_STYLE, STD_STYLE_DESC, ACT_DIMATER, ACT_HEIGHT, ACT_LEN_MIN, ACT_LEN_MAX, LOT_NO, PRO_ORDER_NO, ACT_LEN, TARGET, PROCESS_STATUS, FLAG_STOVE_NO_ZG, INSTOCK_TIME, PRO_ORDER_ID, GX_PLAN_NO, MATERIAL_NO, MATERIAL_NAME, INPUT_MATERIAL_NO, INPUT_MATERIAL_NAME, CIC, JUDGE_STD_DES, CRAFT_SEQ, PROCESS_CDOE, PROCESS_DESC, ORDER_NO, ORDER_SEQ, ORDER_SEQ_NO, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK, OFFLINE_DOC, IS_DEALER, MAT_GOWHERE_CODE, MAT_GOWHERE_NAME, BELONG_CODE_RESPONSE, BELONG_NAME_RESPONSE) VALUES (?, MYROW.Stove_No, ?, ?, ?, ?, TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), ?, ?, ?, ?, ?, ?, ?, ?, NVL(?, MYROW.PRODUCCODE), ?, NVL(?, MYROW.STEELCODE), ?, NVL(?, MYROW.SPEC_CODE), ?, NVL(?, MYROW.GRADECODE), ?, NVL(?, MYROW.MODEL_CODE), ?, NVL(?, MYROW.STD_CODE), ?, ?, ?, NVL(?, MYROW.STD_STYLE), ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, SYSDATE, ?, ?, ?, ?, ?, ?, ?, ?, ?, 'D', '轧制', MYROW.ORDER_NO, MYROW.ORDER_SEQ, MYROW.DELIVERY_NO, MYROW.ORD_PK, MYROW.ORD_LN_PK, MYROW.ORD_LN_DLY_PK, ?, MYROW.ORDER_TYP, NVL(MYROW.GOWHERE_CODE, '/'), NVL(MYROW.GOWHERE_NAME, '/'), MYROW.PLINE_CODE, MYROW.PLINE_NAME); END LOOP; END; SELECT T.* FROM MIL_PLAN T WHERE T.ID = ? AND T.JUDGE_STOVE_NO = ? AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/') SELECT NVL(SUM(T.ACT_COUNT), 0) QUALIFIED_NUM FROM PORT_MIL_BATCH_SAMPLE_RESULT T WHERE T.PLAN_ID = ? AND T.PLINE_CODE = ? AND T.STATUS = '0' --AND T.INSTORE_FLAG = '0' SELECT T.NODE_FUR_FLAG FROM #RESULT# T WHERE T.RESULT_NO = ? SELECT SUBSTR(T.PROCESS_SEQ,INSTR(T.PROCESS_SEQ,'-',-1,1)+1)PROCESS_SEQ FROM PLN_SALEORD_PROC T WHERE T.ORD_LN_DLY_PK ||'-'||T.PLN_DIVIDE_ID = ? SELECT T.ZP_FLAG 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.OFFLINE_PRO = 'ZJ'