0) then V_ACT_WEIGHT := ROUND(V_ACT_LEN2 * MYROW.ACT_WEIGHT / MYROW.ACT_LEN, 3); V_ACT_LEN := V_ACT_LEN2; V_FIX_NUM := 1; ELSE V_ACT_WEIGHT := V_WT_GP_SINGLE; V_ACT_LEN := V_LEN_GP_SINGLE; V_FIX_NUM := 1; END IF; --管坯剔除子表写新材料号 UPDATE MIL_SLAB_SCRAP T SET T.NEW_MAT_NO = V_MAT_NO WHERE T.MAT_NO = S_MAT_NO; --复制数据到物料主表 insert into MAT_GP_M select * from MAT_GP_M_HISTORY t where t.mat_no = MYROW.MAT_NO; --1锯切后,掉队坯,2加热炉,回炉坯 update MAT_GP_M t set t.mat_no = V_MAT_NO, T.MAT_STATUS = '80150102', T.HANGING_FLAG = '0', T.PRO_PLAN_ID_ZG = '', T.GX_PLAN_NO_ZG = '', T.FIX_NUM = V_FIX_NUM, T.ACT_LEN = V_ACT_LEN, T.FIX_LEN = V_LEN_GP_SINGLE, T.ACT_WEIGHT = V_ACT_WEIGHT, T.ACT_THEORY_WEIGHT = V_ACT_WEIGHT, T.CREATE_NAME = V_COL_USER, T.CREATE_TIME = V_TIME, T.INSTOCK_TIME = V_TIME, T.LK_FLAG = '0', T.HEAT_PLAN_NO_NEXT = '', T.BACK_FLAG = V_BACK_FLAG, T.MAT_NO_OLD = '', T.IS_SETFOOT = '0', T.SETFOOT_SEQ = '0', T.CUT_YU_LONG = 0, --T.INSTANCY_FLAG = '0', T.BAL_YEAR_MONTH = V_BAL_YEAR_MONTH WHERE T.MAT_NO = MYROW.MAT_NO; --插入位置表 INSERT INTO YDM_GP_BUTTRESS (MAT_NO, JUDGE_STOVE_NO, STOVE_NO, STORAGE_NO, LOCATION_NO, LARY_NO, STORAGE_ATTR, STORAGE_ATTR_NAME, STORAGE_TYPE_NO, STORAGE_TYPE_NAME, CREATE_NAME, CREATE_TIME, LOCATION_NAME) VALUES (V_MAT_NO, MYROW.JUDGE_STOVE_NO, MYROW.STOVE_NO, V_STORAGE_NO, V_LOCATION_NO, 1, '800302', '投料库', '800201', '管坯', V_COL_USER, V_TIME, V_LOCATION_NAME); --插入红冲出库记录 INSERT INTO YDM_GP_OUTLIST (OUTSTOCK_SQE, OUTSTOCK_PLAN_NO, OUTSTOCK_DOC, OUTSTOCK_TYPE_CODE, OUTSTOCK_TYPE_NAME, 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, DIMATER, HEIGHT, ACT_LEN, FIX_NUM, FIX_LEN, ACT_COUNT, ACT_WEIGHT, ACT_THEORY_WEIGHT, PONDER_NO, PONDER_GROSS_WT, PLINE_CODE, PLINE_NAME, PRO_ORDER_NO, ORDER_NO, ORDER_SEQ, ORDER_SEQ_NO, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK, BELONG_CODE, BELONG_NAME, BAR_CODE, STORAGE_NO, LOCATION_NO, RPO_TIME, PRO_BC, PRO_BZ, BAL_YEAR_MONTH, OUTSTOCK_TIME, MEMO, CREATE_NAME, CREATE_TIME, UPDATE_NAME, UPDATE_TIME, GROUD_NO, PRINT_STOVE_NO, PRO_PLAN_ID_ZG, GX_PLAN_NO_ZG, MAT_GOWHERE_CODE, MAT_GOWHERE_NAME, SUPPLY_UNIT_CODE, SUPPLY_UNIT, GPREQ_ID, SOURE_CODE, SOURE_NAME, IS_DEALER, BACK_FLAG) VALUES (V_OUTSTOCK_DOC_HO || LPAD(V_ICOUNT, 4, 0), V_OUTSTOCK_PLAN_NO, V_OUTSTOCK_DOC_HO, '800806', '出库红冲', V_MAT_NO, MYROW.PRODUCT_FLAG, MYROW.MAT_STATUS, 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.STD_CODE, MYROW.STD_NAME, MYROW.DIMATER, MYROW.HEIGHT, V_ACT_LEN, V_FIX_NUM, V_LEN_GP_SINGLE, -1, -V_ACT_WEIGHT, -V_ACT_WEIGHT, MYROW.PONDER_NO, MYROW.PONDER_GROSS_WT, MYROW.PLINE_CODE, MYROW.PLINE_NAME, MYROW.PRO_ORDER_NO, MYROW.ORDER_NO, MYROW.ORDER_SEQ, MYROW.ORDER_SEQ_NO, MYROW.ORD_PK, MYROW.ORD_LN_PK, MYROW.ORD_LN_DLY_PK, MYROW.BELONG_CODE, MYROW.BELONG_NAME, MYROW.BAR_CODE, V_STORAGE_NO, V_LOCATION_NO, V_TIME, MYROW.PRO_BC, MYROW.PRO_BZ, V_BAL_YEAR_MONTH, V_TIME, MYROW.MEMO, V_COL_USER, V_TIME, V_COL_USER, V_TIME, MYROW.GROUD_NO, MYROW.PRINT_STOVE_NO, '', '', V_PLINE_CODE, V_PLINE_NAME, MYROW.SUPPLY_UNIT_CODE, MYROW.SUPPLY_UNIT, MYROW.GPREQ_ID, MYROW.SOURE_CODE, MYROW.SOURE_NAME, MYROW.IS_DEALER, V_BACK_FLAG); V_ICOUNT := V_ICOUNT + 1; END LOOP; END; ]]> SELECT ? || 'F' || LPAD(NVL(MAX(SUBSTR(T.MAT_NO, LENGTH(T.MAT_NO) - 3)), 0) + 1, 4, 0) MAT_NO FROM (SELECT MAX(T1.MAT_NO) MAT_NO FROM MAT_BC_M T1 WHERE T1.JUDGE_STOVE_NO = ? AND T1.BATCH_NO = 'F' UNION ALL SELECT MAX(T3.MAT_NO) MAT_NO FROM MAT_ZC_BACKUP T3 WHERE T3.JUDGE_STOVE_NO = ? AND T3.BATCH_NO = 'F' UNION ALL SELECT MAX(T4.MAT_NO) MAT_NO FROM YDM_BC_INLIST T4 WHERE T4.JUDGE_STOVE_NO = ? AND T4.BATCH_NO = 'F') T SELECT SUM(T.INPUT_WEIGHT) WEIGHT FROM PORT_MIL_BATCH_SAMPLE_RESULT T WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.M_M_MAT_NO = '#MAT_NO#' SELECT SUM(T.INPUT_WEIGHT) WEIGHT FROM PORT_MIL_BATCH_SAMPLE_RESULT T WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.M_MAT_NO = '#MAT_NO#' DECLARE BEGIN 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, 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, INSTOCK_TIME, CREATE_NAME, CREATE_TIME, QCM_STAUS, HEAT_PLAN_NO, ZG_STOVE_SQE, GX_PLAN_NO, TARGET, PROCESS_STATUS, FLAG_STOVE_NO_ZG, BELONG_CODE_RESPONSE, BELONG_NAME_RESPONSE, SCRAP_TYPE) VALUES( '#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#', '#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#', TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'), '#CREATE_NAME#', TO_DATE('#CREATE_TIME#','YYYY-MM-DD HH24:MI:SS'), '#QCM_STAUS#', '#HEAT_PLAN_NO#', '#ZG_STOVE_SQE#', '#GX_PLAN_NO#', '#TARGET#', '#PROCESS_STATUS#', '#FLAG_STOVE_NO_ZG#', '#BELONG_CODE_RESPONSE#', '#BELONG_NAME_RESPONSE#', '#SCRAP_TYPE#'); 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( '#MAT_NO#', '#JUDGE_STOVE_NO#', '#BATCH_NO#', '#BATCH_GROUD_NO#', '#STORAGE_NO#', '#LOCATION_NO#', '#LARY_NO#', '#CREATE_NAME#', TO_DATE('#CREATE_TIME#','YYYY-MM-DD HH24:MI:SS')); END;