SELECT T.JUGDE_APPLY_CODE, T.JUDGE_STOVE_NO, T.BATCH_NO, T.BATCH_GROUD_NO, (SELECT P.PROCESS_DESC FROM COM_BASE_PROCESS P WHERE P.PROCESS_CODE = T.PROCESS_CODE AND P.VALIDFLAG = '1') PROCESS_CODE, T.PLINE_CODE, T.ACT_COUNT, T.ACT_WEIGHT, T.ACT_THEORY_WEIGHT, T.PRO_ORDER_ID, T.FACE_RESULT_CODE, T.SPEC_RESULT_CODE, T.CHEM_RESULT_CODE, T.PHY_RESULT_CODE, T.DETECT_RESULT_CODE, T.WPRESSURE_RESULT_CODE, T.PROCESS_RESULT_CODE, T.FACE_RESULT_PATH, T.SPEC_RESULT_PATH, T.CHEM_RESULT_PATH, T.PHY_RESULT_PATH, T.DETECT_RESULT_PATH, T.WPRESSURE_RESULT_PATH, T.PROCESS_RESULT_PATH, DECODE(T.VALIDFLAG, '00', '待判', '20', '已判', '正在处理') VALIDFLAG, T.APPLY_NAME, TO_CHAR(T.APPLY_TIME, 'YYYY-MM-DD HH24:MI:SS') APPLY_TIME, T.MEMO, T.QUALITY_GROUP, T.MATERIAL_NO, T.MATERIAL_NAME, T.PRODUCCODE, T.PRODUCNAME, T.STEELCODE, T.STEELNAME, T.GRADECODE, T.GRADENAME, T.SPEC_CODE, T.SPEC_NAME, T.MODEL_CODE, T.MODEL_DESC, T.STD_CODE, T.STD_NAME, T.STD_STYLE, T.STD_STYLE_DESC, T.CRAF_NO, T.LOT_NO, T.PLINE_NAME, T.PRO_ORDER_NO, T.TARGET, T.PROCESS_STATUS, T.MAT_GOWHERE_CODE, T.MAT_GOWHERE_NAME, T.ACT_DIMATER, T.ACT_HEIGHT, T.ACT_LEN_MIN, T.ACT_LEN_MAX, T.JUDGE_RESULT_CODE, T.JUDGE_RESULT, TO_CHAR(T.JUDGE_RESULT_TIME, 'YYYY-MM-DD HH24:MI:SS') JUDGE_RESULT_TIME, T.JUDGE_MAKER, T.IF_SET_ZY_PLAN, T.TESTING_GRADE, T.TESTING_TYPE, T.TESTING_GRADE1, T.TESTING_TYPE1, T.DETECT_RESULT_CODE1, T.DETECT_RESULT_PATH1, T.ORD_LN_DLY_PK, T.APPLY_FLAG, T.BACK_JUGDE_MEMO, T.BELONG_CODE, T.BELONG_NAME, DECODE(T.INSTOCK_FLAG, '0', '未确认', '1', '已确认') INSTOCK_FLAG, S.NEXT_GX, T.ISENDGX FROM QCM_ZG_JUGDE_APPLY T LEFT JOIN (SELECT T1.NEXT_GX, T2.PRO_PLAN_ID FROM PLN_ORDER_JGX T1, PLN_ORDER_JGX_S T2 WHERE T1.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK and t1.PLN_DIVIDE_ID = t2.PLN_DIVIDE_ID) S ON T.PRO_ORDER_ID = S.PRO_PLAN_ID WHERE 1 = 1 SELECT T.VALIDFLAG FROM QCM_ZG_JUGDE_APPLY T WHERE T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#' AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.BATCH_NO = '#BATCH_NO#' AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#' AND T.QUALITY_GROUP = '#QUALITY_GROUP#' AND T.MAT_GOWHERE_CODE = '#MAT_GOWHERE_CODE#' SELECT T.INSTOCK_FLAG FROM QCM_ZG_JUGDE_APPLY T WHERE T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#' AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.BATCH_NO = '#BATCH_NO#' AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#' AND T.QUALITY_GROUP = '#QUALITY_GROUP#' AND T.MAT_GOWHERE_CODE = '#MAT_GOWHERE_CODE#' DECLARE BEGIN FOR MYROW IN (SELECT * FROM MAT_ZC_M T WHERE T.JUDGE_STOVE_NO = ? AND T.BATCH_NO = ? AND T.BATCH_GROUD_NO = ? AND T.PRC_QUALITY_GROUP_ZG = ? AND T.MAT_GOWHERE_CODE = ? AND T.PRC_JUGDE_APPLY_CODE = ? ORDER BY T.MAT_NO ASC) LOOP UPDATE MAT_ZC_M T SET T.PRC_JUDGE_RESULT_CODE = ?, T.PRC_JUDGE_RESULT_TIME = SYSDATE, T.MAT_STATUS = ? WHERE T.MAT_NO = MYROW.MAT_NO ; END LOOP; UPDATE QCM_ZG_JUGDE_APPLY T SET T.VALIDFLAG = '20', T.JUDGE_RESULT_CODE = ?, T.JUDGE_RESULT = ?, T.JUDGE_RESULT_TIME = SYSDATE, T.JUDGE_MAKER = ? WHERE T.JUDGE_STOVE_NO = ? AND T.BATCH_NO = ? AND T.BATCH_GROUD_NO = ? AND T.QUALITY_GROUP = ? AND T.MAT_GOWHERE_CODE = ? AND T.JUGDE_APPLY_CODE = ?; END; DECLARE BEGIN FOR MYROW IN (SELECT * FROM MAT_ZC_M T WHERE T.JUDGE_STOVE_NO = ? AND T.BATCH_NO = ? AND T.BATCH_GROUD_NO = ? AND T.PRC_QUALITY_GROUP_ZG = ? AND T.MAT_GOWHERE_CODE = ? AND T.PRC_JUGDE_APPLY_CODE = ? ORDER BY T.MAT_NO ASC) LOOP UPDATE MAT_ZC_M T SET T.PRC_JUDGE_RESULT_CODE = '', T.PRC_JUDGE_RESULT_TIME = '', T.MAT_STATUS = ? WHERE T.MAT_NO = MYROW.MAT_NO ; END LOOP; UPDATE QCM_ZG_JUGDE_APPLY T SET T.VALIDFLAG = '00', T.JUDGE_RESULT_CODE = '', T.JUDGE_RESULT = '', T.JUDGE_RESULT_TIME = '', T.JUDGE_MAKER = '' WHERE T.JUDGE_STOVE_NO = ? AND T.BATCH_NO = ? AND T.BATCH_GROUD_NO = ? AND T.QUALITY_GROUP = ? AND T.MAT_GOWHERE_CODE = ? AND T.JUGDE_APPLY_CODE = ?; END; DECLARE V_BELONG_CODE MAT_ZC_M.BELONG_CODE%TYPE := NULL; V_BELONG_NAME MAT_ZC_M.BELONG_NAME%TYPE := NULL; v_inListDoc YDM_ZC_INLIST.INSTOCK_DOC%TYPE := NULL; v_inListDocSeq YDM_ZC_INLIST.INSTOCK_SQE%TYPE := NULL; vCount NUMBER := 1; v_time mat_zc_m.judge_result_time%type := SYSDATE; v_date ydm_zc_outlist.bal_year_month%type := TO_CHAR(SYSDATE, 'YYYYMM'); BEGIN SELECT 'IA'||'ZZB'|| TO_CHAR(sysdate, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(T.INSTOCK_DOC, LENGTH(T.INSTOCK_DOC) - 4)), 0) + 1, 5, 0) INSTOCK_DOC INTO v_inListDoc FROM YDM_ZC_INLIST T WHERE TRUNC(T.CREATE_TIME) = TRUNC(SYSDATE) AND T.INSTOCK_TYPE_CODE = '800701' AND T.BELONG_CODE = '002001001'; FOR MYROW IN (SELECT * FROM MAT_ZC_M T WHERE T.JUDGE_STOVE_NO = ? AND T.BATCH_NO = ? AND T.BATCH_GROUD_NO = ? AND T.QUALITY_GROUP_ZG = ? AND T.MAT_GOWHERE_CODE = ? AND T.JUGDE_APPLY_CODE = ? AND T.BELONG_CODE = '002001001' ORDER BY T.MAT_NO ASC) LOOP IF (MYROW.PLINE_CODE = 'C008') THEN V_BELONG_CODE := '002001016003'; V_BELONG_NAME := '250机组'; ELSIF (MYROW.PLINE_CODE = 'C009') THEN V_BELONG_CODE := '002001016002'; V_BELONG_NAME := '258机组'; ELSIF (MYROW.PLINE_CODE = 'C010') THEN V_BELONG_CODE := '002001017003'; V_BELONG_NAME := '168机组'; ELSIF (MYROW.PLINE_CODE = 'C017') THEN V_BELONG_CODE := '002001018003'; V_BELONG_NAME := '460机组'; END IF; v_inListDocSeq := v_inListDoc || LPAD(vCount, 4, 0); INSERT INTO YDM_ZC_OUTLIST (OUTSTOCK_SQE, OUTSTOCK_DOC, OUTSTOCK_TYPE_CODE, OUTSTOCK_TYPE_NAME, ICCAR_NO, VEHICLE_NO, MAT_NO, LOT_NO, JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, MATERIAL_NO, MATERIAL_NAME, PRODUCCODE, PRODUCNAME, STD_CODE, STD_NAME, GRADECODE, GRADENAME, STEELCODE, STEELNAME, STD_STYLE, STD_STYLE_DESC, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, PRO_ORDER_NO, PLINE_CODE, PLINE_NAME, ACT_DIMATER, ACT_HEIGHT, ACT_LEN, ACT_LEN_MIN, ACT_LEN_MAX, ACT_COUNT, ACT_WEIGHT, ACT_THEORY_WEIGHT, BELONG_CODE, BELONG_NAME, STORAGE_NO, LOCATION_NO, STORAGE_ATTR, STORAGE_ATTR_NAME, STORAGE_TYPE_NO, STORAGE_TYPE_NAME, management_no, management_name, TAR_STORAGE_NO, TAR_LOCATION_NO, INSTOCK_TIME, OUTSTOCK_TIME, MEMO, CREATE_NAME, CREATE_TIME, PRODUCT_FLAG, MAT_STATUS, JUDGE_STD_NAME, JUDGE_STD_CODE, PONDER_GROSS_WT, BAL_YEAR_MONTH, TAR_REC_FLAG, ORDER_NO, ORDER_SEQ, DELIVERY_NO, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK) VALUES (v_inListDocSeq, v_inListDoc, '800809', '产权出库', '', '', MYROW.MAT_NO, MYROW.LOT_NO, MYROW.JUDGE_STOVE_NO, MYROW.BATCH_NO, MYROW.BATCH_GROUD_NO, MYROW.MATERIAL_NO, MYROW.MATERIAL_NAME, MYROW.PRODUCCODE, MYROW.PRODUCNAME, MYROW.STD_CODE, MYROW.STD_NAME, MYROW.GRADECODE, MYROW.GRADENAME, MYROW.STEELCODE, MYROW.STEELNAME, MYROW.STD_STYLE, MYROW.STD_STYLE_DESC, MYROW.SPEC_CODE, MYROW.SPEC_NAME, MYROW.MODEL_CODE, MYROW.MODEL_DESC, MYROW.PRO_ORDER_NO, MYROW.PLINE_CODE, MYROW.PLINE_NAME, MYROW.ACT_DIMATER, MYROW.ACT_HEIGHT, MYROW.ACT_LEN, MYROW.ACT_LEN_MIN, MYROW.ACT_LEN_MAX, MYROW.ACT_COUNT, MYROW.ACT_WEIGHT, MYROW.ACT_THEORY_WEIGHT, V_BELONG_CODE, V_BELONG_NAME, MYROW.MAT_GOWHERE_CODE, MYROW.MAT_GOWHERE_CODE||'10101', '', '', '', '', (SELECT F.MANAGEMENT_NO FROM YDM_BS_STORAGE F WHERE F.STORAGE_NO = MYROW.MAT_GOWHERE_CODE), (SELECT F.MANAGEMENT_NAME FROM YDM_BS_STORAGE F WHERE F.STORAGE_NO = MYROW.MAT_GOWHERE_CODE), '', '', MYROW.INSTOCK_TIME, v_time, MYROW.MEMO, '', v_time, MYROW.PRODUCT_FLAG, MYROW.MAT_STATUS, MYROW.JUDGE_STD_NAME, MYROW.JUDGE_STD_CODE, MYROW.PONDER_GROSS_WT, v_date, '1', MYROW.ORDER_NO, MYROW.ORDER_SEQ, MYROW.ORDER_SEQ_NO, MYROW.ORD_PK, MYROW.ORD_LN_PK, MYROW.ORD_LN_DLY_PK); INSERT INTO YDM_ZC_OUTLIST_XS (OUTSTOCK_SQE, OUTSTOCK_DOC, OUTSTOCK_TYPE_CODE, OUTSTOCK_TYPE_NAME, ICCAR_NO, VEHICLE_NO, MAT_NO, LOT_NO, JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, MATERIAL_NO, MATERIAL_NAME, PRODUCCODE, PRODUCNAME, STD_CODE, STD_NAME, GRADECODE, GRADENAME, STEELCODE, STEELNAME, STD_STYLE, STD_STYLE_DESC, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, PRO_ORDER_NO, PLINE_CODE, PLINE_NAME, ACT_DIMATER, ACT_HEIGHT, ACT_LEN, ACT_LEN_MIN, ACT_LEN_MAX, ACT_COUNT, ACT_WEIGHT, ACT_THEORY_WEIGHT, BELONG_CODE, BELONG_NAME, STORAGE_NO, LOCATION_NO, STORAGE_ATTR, STORAGE_ATTR_NAME, STORAGE_TYPE_NO, STORAGE_TYPE_NAME, management_no, management_name, TAR_STORAGE_NO, TAR_LOCATION_NO, INSTOCK_TIME, OUTSTOCK_TIME, MEMO, CREATE_NAME, CREATE_TIME, PRODUCT_FLAG, MAT_STATUS, JUDGE_STD_NAME, JUDGE_STD_CODE, PONDER_GROSS_WT, BAL_YEAR_MONTH, TAR_REC_FLAG, ORDER_NO, ORDER_SEQ, DELIVERY_NO, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK) VALUES (v_inListDocSeq, v_inListDoc, '800809', '产权出库', '', '', MYROW.MAT_NO, MYROW.LOT_NO, MYROW.JUDGE_STOVE_NO, MYROW.BATCH_NO, MYROW.BATCH_GROUD_NO, MYROW.MATERIAL_NO, MYROW.MATERIAL_NAME, MYROW.PRODUCCODE, MYROW.PRODUCNAME, MYROW.STD_CODE, MYROW.STD_NAME, MYROW.GRADECODE, MYROW.GRADENAME, MYROW.STEELCODE, MYROW.STEELNAME, MYROW.STD_STYLE, MYROW.STD_STYLE_DESC, MYROW.SPEC_CODE, MYROW.SPEC_NAME, MYROW.MODEL_CODE, MYROW.MODEL_DESC, MYROW.PRO_ORDER_NO, MYROW.PLINE_CODE, MYROW.PLINE_NAME, MYROW.ACT_DIMATER, MYROW.ACT_HEIGHT, MYROW.ACT_LEN, MYROW.ACT_LEN_MIN, MYROW.ACT_LEN_MAX, MYROW.ACT_COUNT, MYROW.ACT_WEIGHT, MYROW.ACT_THEORY_WEIGHT, V_BELONG_CODE, V_BELONG_NAME, MYROW.MAT_GOWHERE_CODE, MYROW.MAT_GOWHERE_CODE||'10101', '', '', '', '', (SELECT F.MANAGEMENT_NO FROM YDM_BS_STORAGE F WHERE F.STORAGE_NO = MYROW.MAT_GOWHERE_CODE), (SELECT F.MANAGEMENT_NAME FROM YDM_BS_STORAGE F WHERE F.STORAGE_NO = MYROW.MAT_GOWHERE_CODE), '', '', MYROW.INSTOCK_TIME, v_time, MYROW.MEMO, '', v_time, MYROW.PRODUCT_FLAG, MYROW.MAT_STATUS, MYROW.JUDGE_STD_NAME, MYROW.JUDGE_STD_CODE, MYROW.PONDER_GROSS_WT, v_date, '1', MYROW.ORDER_NO, MYROW.ORDER_SEQ, MYROW.ORDER_SEQ_NO, MYROW.ORD_PK, MYROW.ORD_LN_PK, MYROW.ORD_LN_DLY_PK); INSERT INTO YDM_ZC_INLIST (INSTOCK_SQE, INSTOCK_DOC, INSTOCK_TYPE_CODE, INSTOCK_TYPE_NAME, VEHICLE_NO, MAT_NO, LOT_NO, STOVE_NO, JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, MATERIAL_NO, MATERIAL_NAME, PRODUCCODE, PRODUCNAME, STD_CODE, STD_NAME, GRADECODE, GRADENAME, STEELCODE, STEELNAME, STD_STYLE, STD_STYLE_DESC, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, PRO_ORDER_NO, PLINE_CODE, PLINE_NAME, ACT_DIMATER, ACT_HEIGHT, ACT_LEN, ACT_LEN_MIN, ACT_LEN_MAX, ACT_COUNT, ACT_WEIGHT, ACT_THEORY_WEIGHT, BELONG_CODE, BELONG_NAME, STORAGE_NO, LOCATION_NO, STORAGE_ATTR, STORAGE_ATTR_NAME, STORAGE_TYPE_NO, STORAGE_TYPE_NAME, MANAGEMENT_NO, MANAGEMENT_NAME, CREATE_NAME, INSTOCK_TIME, CREATE_TIME, DEPARTMENT_CODE, DEPARTMENT_DESC, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK, ORDER_NO, ORDER_SEQ, DELIVERY_NO, PRODUCT_FLAG, MAT_STATUS, IN_TIME_F, AFFIRM_LOG, FINISHPRO_MOLD, IN_MOLD, QCM_STAUS) VALUES (v_inListDocSeq, v_inListDoc, '800701', '产出入库', '', MYROW.MAT_NO, MYROW.LOT_NO, MYROW.STOVE_NO, MYROW.JUDGE_STOVE_NO, MYROW.BATCH_NO, MYROW.BATCH_GROUD_NO, MYROW.MATERIAL_NO, MYROW.MATERIAL_NAME, MYROW.PRODUCCODE, MYROW.PRODUCNAME, MYROW.STD_CODE, MYROW.STD_NAME, MYROW.GRADECODE, MYROW.GRADENAME, MYROW.STEELCODE, MYROW.STEELNAME, MYROW.STD_STYLE, MYROW.STD_STYLE_DESC, MYROW.SPEC_CODE, MYROW.SPEC_NAME, MYROW.MODEL_CODE, MYROW.MODEL_DESC, MYROW.PRO_ORDER_NO, MYROW.PLINE_CODE, MYROW.PLINE_NAME, MYROW.ACT_DIMATER, MYROW.HEIGHT, MYROW.ACT_LEN, MYROW.ACT_LEN_MIN, MYROW.ACT_LEN_MAX, MYROW.ACT_COUNT, MYROW.ACT_WEIGHT, MYROW.ACT_THEORY_WEIGHT, MYROW.BELONG_CODE, MYROW.BELONG_NAME, MYROW.MAT_GOWHERE_CODE, MYROW.MAT_GOWHERE_CODE || '10101', '', '', '', '', (SELECT F.MANAGEMENT_NO FROM YDM_BS_STORAGE F WHERE F.STORAGE_NO = MYROW.MAT_GOWHERE_CODE), (SELECT F.MANAGEMENT_NAME FROM YDM_BS_STORAGE F WHERE F.STORAGE_NO = MYROW.MAT_GOWHERE_CODE), '', v_time, v_time, (SELECT F.DEPARTMENT_CODE FROM YDM_BS_STORAGE F WHERE F.STORAGE_NO = MYROW.MAT_GOWHERE_CODE), (SELECT F.DEPARTMENT_DESC FROM YDM_BS_STORAGE F WHERE F.STORAGE_NO = MYROW.MAT_GOWHERE_CODE), MYROW.ORD_PK, MYROW.ORD_LN_PK, MYROW.ORD_LN_DLY_PK, MYROW.ORDER_NO, MYROW.ORDER_SEQ, MYROW.ORDER_SEQ_NO, MYROW.PRODUCT_FLAG, MYROW.MAT_STATUS, v_time, '1', MYROW.FINISHPRO_MOLD, MYROW.IN_MOLD, MYROW.QCM_STAUS); INSERT INTO YDM_ZC_INLIST_XS (INSTOCK_SQE, INSTOCK_DOC, INSTOCK_TYPE_CODE, INSTOCK_TYPE_NAME, VEHICLE_NO, MAT_NO, LOT_NO, STOVE_NO, JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, MATERIAL_NO, MATERIAL_NAME, PRODUCCODE, PRODUCNAME, STD_CODE, STD_NAME, GRADECODE, GRADENAME, STEELCODE, STEELNAME, STD_STYLE, STD_STYLE_DESC, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, PRO_ORDER_NO, PLINE_CODE, PLINE_NAME, ACT_DIMATER, ACT_HEIGHT, ACT_LEN, ACT_LEN_MIN, ACT_LEN_MAX, ACT_COUNT, ACT_WEIGHT, ACT_THEORY_WEIGHT, BELONG_CODE, BELONG_NAME, STORAGE_NO, LOCATION_NO, STORAGE_ATTR, STORAGE_ATTR_NAME, STORAGE_TYPE_NO, STORAGE_TYPE_NAME, MANAGEMENT_NO, MANAGEMENT_NAME, CREATE_NAME, INSTOCK_TIME, CREATE_TIME, DEPARTMENT_CODE, DEPARTMENT_DESC, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK, ORDER_NO, ORDER_SEQ, DELIVERY_NO, PRODUCT_FLAG, MAT_STATUS, IN_TIME_F, AFFIRM_LOG, FINISHPRO_MOLD, IN_MOLD, QCM_STAUS) VALUES (v_inListDocSeq, v_inListDoc, '800701', '产出入库', '', MYROW.MAT_NO, MYROW.LOT_NO, MYROW.STOVE_NO, MYROW.JUDGE_STOVE_NO, MYROW.BATCH_NO, MYROW.BATCH_GROUD_NO, MYROW.MATERIAL_NO, MYROW.MATERIAL_NAME, MYROW.PRODUCCODE, MYROW.PRODUCNAME, MYROW.STD_CODE, MYROW.STD_NAME, MYROW.GRADECODE, MYROW.GRADENAME, MYROW.STEELCODE, MYROW.STEELNAME, MYROW.STD_STYLE, MYROW.STD_STYLE_DESC, MYROW.SPEC_CODE, MYROW.SPEC_NAME, MYROW.MODEL_CODE, MYROW.MODEL_DESC, MYROW.PRO_ORDER_NO, MYROW.PLINE_CODE, MYROW.PLINE_NAME, MYROW.ACT_DIMATER, MYROW.HEIGHT, MYROW.ACT_LEN, MYROW.ACT_LEN_MIN, MYROW.ACT_LEN_MAX, MYROW.ACT_COUNT, MYROW.ACT_WEIGHT, MYROW.ACT_THEORY_WEIGHT, MYROW.BELONG_CODE, MYROW.BELONG_NAME, MYROW.MAT_GOWHERE_CODE, MYROW.MAT_GOWHERE_CODE || '10101', '', '', '', '', (SELECT F.MANAGEMENT_NO FROM YDM_BS_STORAGE F WHERE F.STORAGE_NO = MYROW.MAT_GOWHERE_CODE), (SELECT F.MANAGEMENT_NAME FROM YDM_BS_STORAGE F WHERE F.STORAGE_NO = MYROW.MAT_GOWHERE_CODE), '', v_time, v_time, (SELECT F.DEPARTMENT_CODE FROM YDM_BS_STORAGE F WHERE F.STORAGE_NO = MYROW.MAT_GOWHERE_CODE), (SELECT F.DEPARTMENT_DESC FROM YDM_BS_STORAGE F WHERE F.STORAGE_NO = MYROW.MAT_GOWHERE_CODE), MYROW.ORD_PK, MYROW.ORD_LN_PK, MYROW.ORD_LN_DLY_PK, MYROW.ORDER_NO, MYROW.ORDER_SEQ, MYROW.ORDER_SEQ_NO, MYROW.PRODUCT_FLAG, MYROW.MAT_STATUS, v_time, '1', MYROW.FINISHPRO_MOLD, MYROW.IN_MOLD, MYROW.QCM_STAUS); vCount := vCount + 1; END LOOP; UPDATE QCM_ZG_JUGDE_APPLY T SET T.INSTOCK_FLAG = '1' WHERE T.JUDGE_STOVE_NO = ? AND T.BATCH_NO = ? AND T.BATCH_GROUD_NO = ? AND T.QUALITY_GROUP = ? AND T.MAT_GOWHERE_CODE = ? AND T.JUGDE_APPLY_CODE = ?; END; DECLARE V_BELONG_CODE MAT_ZC_M.BELONG_CODE%TYPE := NULL; V_BELONG_NAME MAT_ZC_M.BELONG_NAME%TYPE := NULL; BEGIN FOR MYROW IN (SELECT * FROM MAT_ZC_M T WHERE T.JUDGE_STOVE_NO = ? AND T.BATCH_NO = ? AND T.BATCH_GROUD_NO = ? AND T.QUALITY_GROUP_ZG = ? AND T.MAT_GOWHERE_CODE = ? AND T.JUGDE_APPLY_CODE = ? ORDER BY T.MAT_NO ASC) LOOP DELETE FROM YDM_ZC_OUTLIST T WHERE T.MAT_NO = MYROW.MAT_NO AND T.OUTSTOCK_TYPE_CODE = '800809'; DELETE FROM YDM_ZC_OUTLIST_XS T WHERE T.MAT_NO = MYROW.MAT_NO AND T.OUTSTOCK_TYPE_CODE = '800809'; DELETE FROM YDM_ZC_INLIST T WHERE T.MAT_NO = MYROW.MAT_NO AND T.BELONG_CODE = '002001001'; DELETE FROM YDM_ZC_INLIST_XS T WHERE T.MAT_NO = MYROW.MAT_NO AND T.BELONG_CODE = '002001001'; END LOOP; UPDATE QCM_ZG_JUGDE_APPLY T SET T.Instock_Flag = '0' WHERE T.JUDGE_STOVE_NO = ? AND T.BATCH_NO = ? AND T.BATCH_GROUD_NO = ? AND T.QUALITY_GROUP = ? AND T.MAT_GOWHERE_CODE = ? AND T.JUGDE_APPLY_CODE = ?; END; SELECT COUNT(1) ACOUNT FROM PLN_ZY_JGX_M T WHERE T.HEATNO_LAST = '#JUDGE_STOVE_NO#' AND T.LAST_BATCH_NO = '#BATCH_NO#' AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'