'80150302' AND T1.PRODUCT_FLAG = '801402' ]]> DELETE FROM MAT_ZC_M T WHERE T.MAT_NO = ? DELETE FROM YDM_ZC_BUTTRESS T WHERE T.MAT_NO = ? INSERT INTO YDM_ZC_INLIST (MANAGEMENT_NO, MANAGEMENT_NAME, INSTOCK_SQE, INSTOCK_DOC, INSTOCK_TYPE_CODE, INSTOCK_TYPE_NAME, MAT_NO, LOT_NO, STOVE_NO, JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, PRODUCCODE, PRODUCNAME, STD_CODE, STD_NAME, STEELCODE, STEELNAME, STD_STYLE, STD_STYLE_DESC, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, ACT_DIMATER, ACT_HEIGHT, ACT_LEN_MIN, ACT_LEN_MAX, ACT_COUNT, ACT_WEIGHT, ACT_THEORY_WEIGHT, BELONG_CODE, BELONG_NAME, STORAGE_NO, MEMO, VALIDFLAG, CREATE_NAME, CREATE_TIME, ORDER_NO, ORDER_SEQ, DELIVERY_NO, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK, PRODUCT_FLAG, MAT_STATUS, INSTOCK_TIME,ZB_RCDID,ACT_LEN,DEPARTMENT_CODE,DEPARTMENT_DESC,JUDGE_STD_NAME,PLINE_CODE,PLINE_NAME,GRADECODE,GRADENAME,BAL_YEAR_MONTH,IN_TIME_F,LEN_NO,LEN_DESC,LEN_UNIT,PIPMEMO,MAT_ORIGIN_CODE,MAT_ORIGIN_NAME,SOURE_CODE,SOURE_NAME,MATERIAL_NO,MATERIAL_NAME) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, to_date(?,'YYYY-MM-DD HH24:MI:SS'),?,?,?,?,?,?,?,?,to_date(?,'YYYY-MM-DD HH24:MI:SS'),?,?,?,?,?,?,?,?,?,?,to_date(?,'YYYY-MM-DD HH24:MI:SS'),?,?,?,?,?,?,?,?,?,?) select t.mat_no, t.lot_no, t.stove_no, t.judge_stove_no, t.batch_no, t.batch_groud_no, t.material_no, t.material_name, t.produccode, t.producname, t.spec_code, t.spec_name, t.gradecode, t.gradename, t.steelcode, t.steelname, t.std_style, t.std_style_desc, t.std_code, t.std_name, t.model_code, t.model_desc, t.pro_order_no, t.pline_code, t.pline_name, t.act_dimater, t.act_height, t.act_len, t.act_len_min, t.act_len_max, t.act_count, t.act_weight, t.act_theory_weight, t.belong_code, t.belong_name, t.rpo_time, t.pro_bc, t.pro_bz, b.STORAGE_NO, b.LOCATION_NO, b.LARY_NO, b.LOC_NO, b.STORAGE_ATTR, b.STORAGE_ATTR_NAME, b.STORAGE_TYPE_NO, b.STORAGE_TYPE_NAME, b.MANAGEMENT_NO, b.MANAGEMENT_NAME, t.ORDER_NO, t.ORDER_SEQ, t.ORDER_SEQ_NO, t.ORD_PK, t.ORD_LN_PK, t.ORD_LN_DLY_PK, t.PRODUCT_FLAG, t.MAT_STATUS, t.BAL_YEAR_MONTH, to_char(t.INSTOCK_TIME,'yyyy-MM-dd HH24:mi:ss')INSTOCK_TIME, t.memo, t.JUDGE_STD_NAME, t.LEN_NO, t.LEN_DESC, t.LEN_UNIT, t.SOURE_CODE, t.SOURE_NAME, t.MAT_ORIGIN_CODE, t.MAT_ORIGIN_NAME from Mat_zc_m t,ydm_zc_buttress b where t.mat_no=b.mat_no and t.mat_no=? UPDATE MAT_ZC_M T SET T.ACT_WEIGHT = ?,T.ACT_LEN = ? WHERE T.MAT_NO = ? DELETE FROM YDM_ZC_INLIST T WHERE T.INSTOCK_DOC = ? SELECT PRODUCT_FLAG, MAT_STATUS, ZB_RCDID, JUDGE_STD_NAME, JUDGE_STD_CODE, TO_CHAR(IN_TIME_F, 'YYYY-MM-DD HH24:MI:SS') IN_TIME_F, BAL_YEAR_MONTH, ORDER_NO, ORDER_SEQ, DELIVERY_NO, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK, DEPARTMENT_CODE, DEPARTMENT_DESC, INSTOCK_SQE, INSTOCK_DOC, INSTOCK_TYPE_CODE, INSTOCK_TYPE_NAME, INSTOCK_BAR_CODE, ICCAR_NO, 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, LARY_NO, LOC_NO, STORAGE_ATTR, STORAGE_ATTR_NAME, STORAGE_TYPE_NO, STORAGE_TYPE_NAME, MANAGEMENT_NO, MANAGEMENT_NAME, TO_CHAR(RPO_TIME, 'YYYY-MM-DD HH24:MI:SS') RPO_TIME, PRO_BC, PRO_BZ, IN_BC, IN_BZ, BAR_CODE, HAND_FLAG, MEMO, VALIDFLAG, CREATE_NAME, TO_CHAR(CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS') CREATE_TIME, UPDATE_NAME, TO_CHAR(UPDATE_TIME, 'YYYY-MM-DD HH24:MI:SS') UPDATE_TIME, DELETE_NAME, TO_CHAR(DELETE_TIME, 'YYYY-MM-DD HH24:MI:SS') DELETE_TIME, LEN_NO, LEN_DESC, LEN_UNIT, MAT_ORIGIN_CODE, MAT_ORIGIN_NAME, SOURE_CODE, SOURE_NAME, MATERIAL_NO, MATERIAL_NAME FROM YDM_ZC_INLIST WHERE INSTOCK_DOC = ? UPDATE PROCESS_ORDER_M T SET T.NEG_PAY_NUM = TO_NUMBER(NVL(T.NEG_PAY_NUM,0)) + TO_NUMBER(?), T.NEG_PAY_WGT = TO_NUMBER(NVL(T.NEG_PAY_WGT,0)) + TO_NUMBER(?), T.NEG_PAY_LEN = TO_NUMBER(NVL(T.NEG_PAY_LEN,0)) + TO_NUMBER(?) WHERE ORD_LN_DLY_PK = ? UPDATE PROCESS_ORDER_M T SET T.NEG_PAY_NUM = TO_NUMBER(NVL(T.NEG_PAY_NUM,0)) + TO_NUMBER(?), T.NEG_PAY_WGT = TO_NUMBER(NVL(T.NEG_PAY_WGT,0)) + TO_NUMBER(?), T.NEG_PAY_LEN = TO_NUMBER(NVL(T.NEG_PAY_LEN,0)) + TO_NUMBER(?) WHERE ORD_LN_DLY_PK = ? DELETE FROM MAT_ZC_M T WHERE T.MAT_NO = ? DELETE FROM YDM_ZC_BUTTRESS T WHERE T.MAT_NO = ? select mat_no from MAT_ZC_M t where t.JUDGE_STOVE_NO = ? and t.BATCH_NO = ? and t.BATCH_GROUD_NO = ? and t.MAT_STATUS not in('80150301','80150202','80150203','80150204','80150205') SELECT SUM(T.ACT_COUNT) ACOUNT FROM MAT_ZC_M T, YDM_ZC_BUTTRESS S WHERE T.MAT_NO = S.MAT_NO AND T.JUDGE_STOVE_NO = ? AND T.BATCH_NO = ? AND T.BATCH_GROUD_NO = ? AND T.MAT_STATUS = ? AND T.PLINE_CODE = ? AND NVL(T.STD_CODE,'/') = NVL(?,'/') AND S.STORAGE_NO = ? AND T.BAL_YEAR_MONTH = ? DECLARE V_INSTOCK_SEQ YDM_BC_INLIST.INSTOCK_SQE%TYPE := NULL; V_COUNT NUMBER := 1; V_PROCESS_CDOE MAT_BC_M.PROCESS_CDOE%TYPE := NULL; V_PROCESS_DESC MAT_BC_M.PROCESS_DESC%TYPE := NULL; BEGIN FOR MYROW IN (SELECT T.*, S.STORAGE_NO, S.LOCATION_NO, S.LARY_NO FROM MAT_ZC_M T, YDM_ZC_BUTTRESS S WHERE T.MAT_NO = S.MAT_NO AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.BATCH_NO = '#BATCH_NO#' AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#' AND T.MAT_NO = '#MAT_NO#' )LOOP INSERT INTO MAT_BC_M (MAT_NO, PRODUCT_FLAG, MAT_STATUS, LOT_NO, STOVE_NO, JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, MATERIAL_NO, MATERIAL_NAME, PRODUCCODE, PRODUCNAME, STEELCODE, STEELNAME, GRADECODE, GRADENAME, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, STD_CODE, STD_NAME, STD_STYLE, STD_STYLE_DESC, PRO_ORDER_NO, CRAF_NO, PROCESS_CDOE, PROCESS_DESC, 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, JUDGE_RESULT_CODE, JUDGE_RESULT, JUDGE_RESULT_TIME, JUDGE_MAKER, INSTOCK_FLAG, INSTOCK_TIME, CREATE_NAME, CREATE_TIME, BAL_YEAR_MONTH, JUDGE_STD_NAME, PONDER_GROSS_WT, QCM_STAUS, TARGET, PROCESS_STATUS, FLAG_STOVE_NO_ZG, JUDGE_STD_DES, ZBS_FLAG, MEMO) VALUES (MYROW.MAT_NO, '801401', '80150102', 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.STEELCODE, MYROW.STEELNAME, MYROW.GRADECODE, MYROW.GRADENAME, MYROW.SPEC_CODE, MYROW.SPEC_NAME, MYROW.MODEL_CODE, MYROW.MODEL_DESC, MYROW.STD_CODE, MYROW.STD_NAME, MYROW.STD_STYLE, MYROW.STD_STYLE_DESC, MYROW.PRO_ORDER_NO, MYROW.CRAF_NO, V_PROCESS_CDOE, V_PROCESS_DESC, MYROW.PLINE_CODE, MYROW.PLINE_NAME, MYROW.ACT_DIMATER, MYROW.ACT_HEIGHT, '#ACT_LEN#', MYROW.ACT_LEN_MIN, MYROW.ACT_LEN_MAX, MYROW.ACT_COUNT, '#ACT_WEIGHT#', '#ACT_WEIGHT#', '002001001', '生产计划部', MYROW.JUDGE_RESULT_CODE, MYROW.JUDGE_RESULT, MYROW.JUDGE_RESULT_TIME, MYROW.JUDGE_MAKER, '1', MYROW.INSTOCK_TIME, MYROW.CREATE_NAME, MYROW.INSTOCK_TIME, MYROW.BAL_YEAR_MONTH, MYROW.JUDGE_STD_NAME, MYROW.PONDER_GROSS_WT, '00', 'B', MYROW.PROCESS_STATUS, MYROW.FLAG_STOVE_NO_ZG, MYROW.JUDGE_STD_NAME, MYROW.ZBS_FLAG, MYROW.MEMO); INSERT INTO YDM_BC_BUTTRESS (MAT_NO, JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, STORAGE_NO, LOCATION_NO, LARY_NO, CREATE_NAME, CREATE_TIME) VALUES (MYROW.MAT_NO, MYROW.JUDGE_STOVE_NO, MYROW.BATCH_NO, MYROW.BATCH_GROUD_NO, MYROW.STORAGE_NO, MYROW.LOCATION_NO, MYROW.LARY_NO, MYROW.CREATE_NAME, MYROW.CREATE_TIME); INSERT INTO YDM_BC_INLIST (INSTOCK_SQE, INSTOCK_DOC, INSTOCK_TYPE_CODE, INSTOCK_TYPE_NAME, 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, INSTOCK_TIME, CREATE_NAME, CREATE_TIME, PRODUCT_FLAG, MAT_STATUS, JUDGE_STD_NAME, IN_TIME_F, BAL_YEAR_MONTH, QCM_STAUS) VALUES ('#INSTOCK_SQE#', '#INSTOCK_DOC#', '800709', '产权入库', 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.ACT_HEIGHT, '#ACT_LEN#', MYROW.ACT_LEN_MIN, MYROW.ACT_LEN_MAX, MYROW.ACT_COUNT, '#ACT_WEIGHT#', '#ACT_WEIGHT#', '002001001', '生产计划部', TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'), '#CREATE_NAME#', TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'), '801401', '80150102', MYROW.JUDGE_STD_NAME, TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'), '#BAL_YEAR_MONTH#', '00'); END LOOP; END; SELECT ? || LPAD(NVL(MAX(SUBSTR(T.INSTOCK_SQE, LENGTH(T.INSTOCK_SQE) - 4)), 0) + 1, 5, 0) INSTOCK_SQE FROM YDM_BC_INLIST T WHERE TRUNC(T.CREATE_TIME) = TRUNC(SYSDATE) AND T.INSTOCK_DOC = ? DECLARE V_INSTOCK_SEQ YDM_BC_INLIST.INSTOCK_SQE%TYPE := NULL; V_COUNT NUMBER := 1; V_PROCESS_CDOE MAT_BC_M.PROCESS_CDOE%TYPE := NULL; V_PROCESS_DESC MAT_BC_M.PROCESS_DESC%TYPE := NULL; V_ACT_WEIGHT QCM_ZG_JUGDE_APPLY.ACT_WEIGHT%TYPE := NULL; V_ACT_THEORY_WEIGHT QCM_ZG_JUGDE_APPLY.ACT_THEORY_WEIGHT%TYPE := NULL; V_ACT_LEN QCM_ZG_JUGDE_APPLY.ACT_LEN%TYPE := NULL; V_BELONG_CODE QCM_ZG_JUGDE_APPLY.BELONG_CODE%TYPE := NULL; V_BELONG_NAME QCM_ZG_JUGDE_APPLY.BELONG_NAME%TYPE := NULL; V_JUGDE_APPLY_CODE QCM_ZG_JUGDE_APPLY.JUGDE_APPLY_CODE%TYPE :=NULL; BEGIN FOR MYROW1 IN(SELECT T.*, S.STORAGE_NO, S.LOCATION_NO, S.LARY_NO FROM MAT_ZC_M T, YDM_ZC_BUTTRESS S WHERE T.MAT_NO = S.MAT_NO AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.BATCH_NO = '#BATCH_NO#' AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#' AND T.MAT_STATUS = '#MAT_STATUS#' AND S.STORAGE_NO = '#STORAGE_NO#' AND T.BELONG_CODE = '#BELONG_CODE_JUGDE#' AND ROWNUM = 1)LOOP SELECT S2.PROCESS_CODE, S2.PROCESS_DESC,S2.DEPARTMENT_CODE,S2.DEPARTMENT_DESC INTO V_PROCESS_CDOE, V_PROCESS_DESC,V_BELONG_CODE,V_BELONG_NAME FROM COM_BASE_PLINE S2 WHERE S2.PLINE_CODE = MYROW1.PLINE_CODE; SELECT 'H'||MYROW1.PLINE_CODE||'801401'||TO_CHAR(SYSDATE, 'YYYYMMDD') || LPAD(NVL(MAX(SUBSTR(T.JUGDE_APPLY_CODE, 19)), 0) + 1, 6, 0) JUGDE_APPLY_CODE INTO V_JUGDE_APPLY_CODE FROM QCM_ZG_JUGDE_APPLY T WHERE T.IS_ALL_SCRAP = '3' AND TRUNC(T.APPLY_TIME) = TRUNC(TO_DATE('#APPLY_TIME#','YYYY-MM-DD HH24:MI:SS')); INSERT INTO QCM_ZG_JUGDE_APPLY( JUGDE_APPLY_CODE, JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, PROCESS_CODE, PLINE_CODE, ACT_COUNT, ACT_WEIGHT, ACT_THEORY_WEIGHT, VALIDFLAG, APPLY_NAME, APPLY_TIME, MATERIAL_NO, MATERIAL_NAME, PRODUCCODE, PRODUCNAME, STEELCODE, STEELNAME, GRADECODE, GRADENAME, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, STD_CODE, STD_NAME, STD_STYLE, STD_STYLE_DESC, LOT_NO, PLINE_NAME, PRO_ORDER_NO, TARGET, PROCESS_STATUS, ACT_DIMATER, ACT_HEIGHT, ACT_LEN_MIN, ACT_LEN_MAX, JUDGE_RESULT_CODE, JUDGE_RESULT, JUDGE_RESULT_TIME, JUDGE_MAKER, INSTOCK_FLAG, BELONG_CODE, BELONG_NAME, ACT_LEN, BELONG_CODE_JUGDE, BELONG_NAME_JUGDE, BAL_YEAR_MONTH, IS_ALL_SCRAP, STOVE_NO, STEEL_STANDRAD, JUGDE_APPLY_SEQUENO) VALUES( V_JUGDE_APPLY_CODE, MYROW1.JUDGE_STOVE_NO, MYROW1.BATCH_NO, MYROW1.BATCH_GROUD_NO, V_PROCESS_CDOE, MYROW1.PLINE_CODE, '#ACT_COUNT#', '#ACT_WEIGHT#', '#ACT_THEORY_WEIGHT#', '20', '#APPLY_NAME#', TO_DATE('#APPLY_TIME#','YYYY-MM-DD HH24:MI:SS'), MYROW1.MATERIAL_NO, MYROW1.MATERIAL_NAME, MYROW1.PRODUCCODE, MYROW1.PRODUCNAME, MYROW1.STEELCODE, MYROW1.STEELNAME, MYROW1.GRADECODE, MYROW1.GRADENAME, MYROW1.SPEC_CODE, MYROW1.SPEC_NAME, MYROW1.MODEL_CODE, MYROW1.MODEL_DESC, MYROW1.STD_CODE, MYROW1.STD_NAME, MYROW1.STD_STYLE, MYROW1.STD_STYLE_DESC, MYROW1.LOT_NO, MYROW1.PLINE_NAME, MYROW1.PRO_ORDER_NO, 'A', MYROW1.PROCESS_STATUS, MYROW1.ACT_DIMATER, MYROW1.ACT_HEIGHT, MYROW1.ACT_LEN_MIN, MYROW1.ACT_LEN_MAX, '40740701', '合格', TO_DATE('#APPLY_TIME#','YYYY-MM-DD HH24:MI:SS'), '#CREATE_NAME#', '0', V_BELONG_CODE, V_BELONG_NAME, V_ACT_LEN, MYROW1.BELONG_CODE, MYROW1.BELONG_NAME, '#BAL_YEAR_MONTH#', '3', MYROW1.STOVE_NO, MYROW1.JUDGE_STD_NAME, '1'); END LOOP; END; SELECT COUNT(1) ACOUNT FROM MAT_BC_M T WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.BATCH_NO = '#BATCH_NO#' AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#' AND T.PRO_PLAN_ID_NEXT IS NOT NULL DECLARE BEGIN FOR MYROW IN (SELECT T1.*, T.INSTOCK_SQE, S.STORAGE_NO, S.LOCATION_NO, S.LARY_NO FROM YDM_ZC_INLIST T, MAT_BC_M T1, YDM_BC_BUTTRESS S WHERE T.MAT_NO = T1.MAT_NO AND T.MAT_NO = S.MAT_NO AND T1.MAT_NO = S.MAT_NO AND T.INSTOCK_DOC = '#INSTOCK_DOC#' ORDER BY T1.MAT_NO ASC) LOOP INSERT INTO MAT_ZC_M (STOVE_NO, LOT_NO, JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, MATERIAL_NO, MATERIAL_NAME, PRODUCCODE, PRODUCNAME, STD_STYLE, STD_STYLE_DESC, STEELCODE, STEELNAME, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, STD_CODE, STD_NAME, PRO_ORDER_NO, BELONG_CODE, BELONG_NAME, ACT_DIMATER, ACT_HEIGHT, ACT_LEN_MIN, ACT_LEN_MAX, ACT_LEN, ACT_COUNT, ACT_WEIGHT, ACT_THEORY_WEIGHT, CREATE_NAME, CREATE_TIME, INSTOCK_TIME, MAT_NO, MEMO, JUGDE_APPLY_FLAG, INSTOCK_FLAG, PRODUCT_FLAG, MAT_STATUS, JUDGE_STD_NAME, BAL_YEAR_MONTH, PLINE_CODE, PLINE_NAME, GRADECODE, GRADENAME, JUDGE_RESULT_CODE, JUDGE_RESULT, JUDGE_RESULT_TIME, JUDGE_MAKER) VALUES (MYROW.STOVE_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_STYLE, MYROW.STD_STYLE_DESC, MYROW.STEELCODE, MYROW.STEELNAME, MYROW.SPEC_CODE, MYROW.SPEC_NAME, MYROW.MODEL_CODE, MYROW.MODEL_DESC, MYROW.STD_CODE, MYROW.STD_NAME, MYROW.PRO_ORDER_NO, '#BELONG_CODE#', '#BELONG_NAME#', MYROW.ACT_DIMATER, MYROW.ACT_HEIGHT, MYROW.ACT_LEN_MIN, MYROW.ACT_LEN_MAX, MYROW.ACT_LEN, MYROW.ACT_COUNT, MYROW.ACT_WEIGHT, MYROW.ACT_THEORY_WEIGHT, MYROW.CREATE_NAME, MYROW.CREATE_TIME, MYROW.INSTOCK_TIME, MYROW.MAT_NO, MYROW.MEMO, '1', '1', '801402', '80150202', MYROW.JUDGE_STD_DES, MYROW.BAL_YEAR_MONTH, MYROW.PLINE_CODE, MYROW.PLINE_NAME, MYROW.GRADECODE, MYROW.GRADENAME, MYROW.JUDGE_TOLRESULT_CODE, MYROW.JUDGE_TOLRESULT, MYROW.JUDGE_TOLRESULT_TIME, MYROW.JUDGE_TOLMAKER); INSERT INTO MAT_ZC_M_XS (STOVE_NO, LOT_NO, JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, MATERIAL_NO, MATERIAL_NAME, PRODUCCODE, PRODUCNAME, STD_STYLE, STD_STYLE_DESC, STEELCODE, STEELNAME, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, STD_CODE, STD_NAME, PRO_ORDER_NO, BELONG_CODE, BELONG_NAME, ACT_DIMATER, ACT_HEIGHT, ACT_LEN_MIN, ACT_LEN_MAX, ACT_LEN, ACT_COUNT, ACT_WEIGHT, ACT_THEORY_WEIGHT, CREATE_NAME, CREATE_TIME, INSTOCK_TIME, MAT_NO, MEMO, JUGDE_APPLY_FLAG, INSTOCK_FLAG, PRODUCT_FLAG, MAT_STATUS, JUDGE_STD_NAME, BAL_YEAR_MONTH, PLINE_CODE, PLINE_NAME, GRADECODE, GRADENAME, JUDGE_RESULT_CODE, JUDGE_RESULT, JUDGE_RESULT_TIME, JUDGE_MAKER) VALUES (MYROW.STOVE_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_STYLE, MYROW.STD_STYLE_DESC, MYROW.STEELCODE, MYROW.STEELNAME, MYROW.SPEC_CODE, MYROW.SPEC_NAME, MYROW.MODEL_CODE, MYROW.MODEL_DESC, MYROW.STD_CODE, MYROW.STD_NAME, MYROW.PRO_ORDER_NO, '#BELONG_CODE#', '#BELONG_NAME#', MYROW.ACT_DIMATER, MYROW.ACT_HEIGHT, MYROW.ACT_LEN_MIN, MYROW.ACT_LEN_MAX, MYROW.ACT_LEN, MYROW.ACT_COUNT, MYROW.ACT_WEIGHT, MYROW.ACT_THEORY_WEIGHT, MYROW.CREATE_NAME, MYROW.CREATE_TIME, MYROW.INSTOCK_TIME, MYROW.MAT_NO, MYROW.MEMO, '1', '1', '801402', '80150202', MYROW.JUDGE_STD_DES, MYROW.BAL_YEAR_MONTH, MYROW.PLINE_CODE, MYROW.PLINE_NAME, MYROW.GRADECODE, MYROW.GRADENAME, MYROW.JUDGE_TOLRESULT_CODE, MYROW.JUDGE_TOLRESULT, MYROW.JUDGE_TOLRESULT_TIME, MYROW.JUDGE_TOLMAKER); INSERT INTO YDM_ZC_BUTTRESS (JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, STORAGE_NO, LOCATION_NO, LARY_NO, CREATE_NAME, MAT_NO, CREATE_TIME) VALUES (MYROW.JUDGE_STOVE_NO, MYROW.BATCH_NO, MYROW.BATCH_GROUD_NO, MYROW.STORAGE_NO, MYROW.LOCATION_NO, MYROW.LARY_NO, MYROW.CREATE_NAME, MYROW.MAT_NO, MYROW.CREATE_TIME); DELETE FROM YDM_ZC_INLIST T WHERE T.INSTOCK_SQE = MYROW.INSTOCK_SQE; DELETE FROM YDM_ZC_INLIST_XS T WHERE T.INSTOCK_SQE = MYROW.INSTOCK_SQE; DELETE FROM MAT_BC_M T WHERE T.MAT_NO = MYROW.MAT_NO; 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_TYPE_CODE = '800709'; END LOOP; DELETE FROM QCM_ZG_JUGDE_APPLY T WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.BATCH_NO = '#BATCH_NO#' AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#' AND T.IS_ALL_SCRAP = '3' AND T.BELONG_CODE_JUGDE = '#BELONG_CODE#'; END;