SELECT T.STOVE_NO, T.JUDGE_STOVE_NO, T.MATERIAL_NO, T.MATERIAL_NAME, T.GRADECODE, T.GRADENAME, T.PLINE_CODE, T.PLINE_NAME, T.DIMATER, T.ACT_LEN, T.FIX_NUM, T.FIX_LEN, SUM(T.ACT_COUNT) ACT_COUNT, SUM(T.ACT_WEIGHT) ACT_WEIGHT, T.BELONG_CODE, T.BELONG_NAME, (SELECT C.STORAGE_NAME FROM YDM_BS_STORAGE C WHERE C.STORAGE_NO = S.STORAGE_NO) STORAGE_NAME, S.STORAGE_NO, S.LOCATION_NO, S.LOCATION_NAME, DECODE(T.QCM_STAUS,'00','合格','11','待处理','22','废品')QCM_STAUS, DECODE(T.GPTYPE,'1','铸坯','2','锻坯')GPTYPE, T.FURNACENO, T.SEQUENCENO, (SELECT T1.BASENAME FROM COM_BASE_INFO T1 WHERE T1.BASECODE = T.JUDGE_RESULT_CODE)JUDGE_RESULT_CODE, T.SUPPLY_UNIT_CODE, T.SUPPLY_UNIT, max(T.HANGING_FLAG) HANGING_FLAG, DECODE(T.IS_DEALER,'0','自用','1','双经销','2','来料加工','3','定销订购') IS_DEALER, DECODE(T.BACK_FLAG,'0','正常坯','1','回炉坯','2','套尺坯','3','掉队坯') BACK_FLAG FROM MAT_GP_M T, YDM_GP_BUTTRESS S WHERE T.MAT_NO = S.MAT_NO AND T.QCM_STAUS = '00' AND T.IS_SETFOOT = '0' SELECT MAX(T.MAT_GROUP_NO)MAT_GROUP_NO, MAX(T.MATERIAL_NO)MATERIAL_NO, MAX(T.MATERIAL_NAME)MATERIAL_NAME, MAX(T.GRADECODE)GRADECODE, MAX(T.GRADENAME)GRADENAME, MAX(T.PLINE_CODE)PLINE_CODE, MAX(T.PLINE_NAME)PLINE_NAME, MAX(T.DIMATER)DIMATER, MAX(T.FIX_LEN)FIX_LEN, SUM(T.ACT_COUNT)ACT_COUNT, SUM(T.ACT_WEIGHT)ACT_WEIGHT, MAX(T.BELONG_CODE)BELONG_CODE, MAX(T.BELONG_NAME)BELONG_NAME, MAX(T.ZL_JUDGE_STOVE_NO)ZL_JUDGE_STOVE_NO, MAX(TO_CHAR(T.GROUP_TIME,'YYYY-MM-DD HH:MM:SS'))GROUP_TIME, T.NEW_JUDGE_STOVE_NO, T.NEW_STOVE_NO FROM MAT_GP_GROUP_HISTORY T WHERE 1 = 1 SELECT T.MAT_GROUP_NO, T.STOVE_NO, T.JUDGE_STOVE_NO, T.MATERIAL_NO, T.MATERIAL_NAME, T.GRADECODE, T.GRADENAME, T.PLINE_CODE, T.PLINE_NAME, T.DIMATER, T.ACT_LEN, T.FIX_NUM, T.FIX_LEN, T.ACT_COUNT, T.ACT_WEIGHT, T.BELONG_CODE, T.BELONG_NAME, T.CIC, T.PIC, T.SIC, T.DIC, T.PLAN_ROUTE, TO_CHAR(T.GROUP_TIME, 'YYYY-MM-DD HH24:MI:SS') GROUP_TIME, --TZH 新增料位名称 ( select (select location_name from YDM_BS_LOCATION where LOCATION_NO = r.LOCATION_NO) xx from ydm_gp_outlist r where r.judge_stove_no = t.judge_stove_no and r.outstock_type_code = '800811' and rownum =1) location_name FROM MAT_GP_GROUP_HISTORY T WHERE 1 = 1 SELECT NVL(SUM(T.ACT_COUNT),0) ACOUNT FROM MAT_GP_M T, YDM_GP_BUTTRESS S WHERE T.MAT_NO = S.MAT_NO AND T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.FIX_NUM = '#FIX_NUM#' AND T.ACT_LEN = '#ACT_LEN#' AND T.IS_DEALER = '#IS_DEALER#' AND T.BACK_FLAG = '#BACK_FLAG#' AND T.PRO_PLAN_ID_ZG IS NULL AND T.QCM_STAUS = '00' SELECT 'ZL' || TO_CHAR(SYSDATE, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(T.MAT_GROUP_NO, 9)), 0) + 1, 5, 0) MAT_GROUP_NO FROM MAT_GP_GROUP_HISTORY T WHERE T.MAT_GROUP_NO LIKE 'ZL'|| TO_CHAR(SYSDATE, 'YYMMDD') ||'_____' '80150103') or (T.MAT_STATUS = '80150102' AND T.INSTOCK_FLAG = '1')) AND T.IS_SETFOOT = '0' AND T.LOCK_FLAG = '0' AND T.PRO_PLAN_ID_ZG IS NULL AND ROWNUM <= #ACT_COUNT# GROUP BY T.STOVE_NO, T.JUDGE_STOVE_NO, T.FLAG_STOVE_NO, T.PRODUCT_FLAG, T.MAT_STATUS, T.CAST_NO, T.CCMID, T.MAT_ORIGIN_CODE, T.MAT_ORIGIN_NAME, T.MATERIAL_NO, T.MATERIAL_NAME, T.GRADECODE, T.GRADENAME, T.PLINE_CODE, T.PLINE_NAME, T.DIMATER, T.ACT_LEN, T.FIX_NUM, T.FIX_LEN, T.BELONG_CODE, T.BELONG_NAME, T.JUGDE_APPLY_FLAG, T.INSTOCK_FLAG, T.DB_ACT_COUNT, T.CIC, T.PIC, T.SIC, T.DIC, T.GPTYPE, T.SEQUENCENO, T.FURNACENO, T.QCM_STAUS, T.LG_CRAFT_NO, T.ISENDGX, T.PRODUCCODE, T.PRODUCNAME, T.CRAFTNO, T.PLAN_ROUTE, T.STEELCODE, T.STEELNAME, T.CUT_YU_LONG, T.GROUD_NO, T.MAT_GOWHERE_NAME, T.MAT_GOWHERE_CODE, T.SUPPLY_UNIT_CODE, T.SUPPLY_UNIT) LOOP INSERT INTO MAT_GP_GROUP_HISTORY (MAT_GROUP_NO, PRODUCT_FLAG, MAT_STATUS, STOVE_NO, FLAG_STOVE_NO, JUDGE_STOVE_NO, CAST_NO, CCMID, MAT_ORIGIN_CODE, MAT_ORIGIN_NAME, MATERIAL_NO, MATERIAL_NAME, GRADECODE, GRADENAME, PLINE_CODE, PLINE_NAME, DIMATER, ACT_LEN, FIX_NUM, FIX_LEN, ACT_COUNT, ACT_WEIGHT, MAT_GOWHERE_CODE, MAT_GOWHERE_NAME, BELONG_CODE, BELONG_NAME, JUGDE_APPLY_FLAG, JUGDE_APPLY_CODE, JUGDE_APPLY_TIME, INSTOCK_FLAG, INSTOCK_TIME, BAL_YEAR_MONTH, CREATE_NAME, CREATE_TIME, GROUD_NO, JUDGE_RESULT_CODE, JUDGE_RESULT_TIME, JUDGE_MAKER, DB_ACT_COUNT, CIC, PIC, SIC, DIC, GPTYPE, SEQUENCENO, FURNACENO, QCM_STAUS, LG_CRAFT_NO, ISENDGX, PRODUCCODE, PRODUCNAME, CRAFTNO, PLAN_ROUTE, STEELCODE, STEELNAME, CUT_YU_LONG, GROUP_TIME, ZL_JUDGE_STOVE_NO, NEW_JUDGE_STOVE_NO, NEW_STOVE_NO, SUPPLY_UNIT_CODE, SUPPLY_UNIT) VALUES ('#MAT_GROUP_NO#', MYROW.PRODUCT_FLAG, MYROW.MAT_STATUS, MYROW.STOVE_NO, MYROW.FLAG_STOVE_NO, MYROW.JUDGE_STOVE_NO, MYROW.CAST_NO, MYROW.CCMID, MYROW.MAT_ORIGIN_CODE, MYROW.MAT_ORIGIN_NAME, MYROW.MATERIAL_NO, MYROW.MATERIAL_NAME, MYROW.GRADECODE, MYROW.GRADENAME, MYROW.PLINE_CODE, MYROW.PLINE_NAME, MYROW.DIMATER, MYROW.ACT_LEN, MYROW.FIX_NUM, MYROW.FIX_LEN, MYROW.ACT_COUNT, MYROW.ACT_WEIGHT, MYROW.MAT_GOWHERE_CODE, MYROW.MAT_GOWHERE_NAME, MYROW.BELONG_CODE, MYROW.BELONG_NAME, MYROW.JUGDE_APPLY_FLAG, MYROW.JUGDE_APPLY_CODE, MYROW.JUGDE_APPLY_TIME, MYROW.INSTOCK_FLAG, MYROW.INSTOCK_TIME, MYROW.BAL_YEAR_MONTH, '#CREATE_NAME#', MYROW.INSTOCK_TIME, MYROW.GROUD_NO, MYROW.JUDGE_RESULT_CODE, MYROW.JUDGE_RESULT_TIME, MYROW.JUDGE_MAKER, MYROW.DB_ACT_COUNT, MYROW.CIC, MYROW.PIC, MYROW.SIC, MYROW.DIC, MYROW.GPTYPE, MYROW.SEQUENCENO, MYROW.FURNACENO, MYROW.QCM_STAUS, MYROW.LG_CRAFT_NO, MYROW.ISENDGX, MYROW.PRODUCCODE, MYROW.PRODUCNAME, MYROW.CRAFTNO, MYROW.PLAN_ROUTE, MYROW.STEELCODE, MYROW.STEELNAME, MYROW.CUT_YU_LONG, SYSDATE, '#ZL_JUDGE_STOVE_NO#', '#NEW_JUDGE_STOVE_NO#', '#NEW_STOVE_NO#', MYROW.SUPPLY_UNIT_CODE, MYROW.SUPPLY_UNIT); END LOOP; END; ]]> SELECT 'ZC' || TO_CHAR(SYSDATE, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(OUTSTOCK_DOC, 9)), 0) + 1, 5, 0) OUTSTOCK_DOC FROM YDM_GP_OUTLIST T WHERE T.OUTSTOCK_TYPE_CODE = '800811' AND T.OUTSTOCK_DOC LIKE 'ZC' || TO_CHAR(SYSDATE, 'YYMMDD') || '_____' SELECT 'ZR' || TO_CHAR(SYSDATE, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(T.INSTOCK_DOC, 9)), 0) + 1, 5, 0) INSTOCK_DOC FROM YDM_GP_INLIST T WHERE T.INSTOCK_TYPE_CODE = ? AND T.INSTOCK_DOC LIKE 'ZR' || TO_CHAR(SYSDATE, 'YYMMDD') || '_____' '80150103') or (T.MAT_STATUS = '80150102' AND T.INSTOCK_FLAG = '1')) AND T.IS_SETFOOT = '0' AND T.LOCK_FLAG = '0' AND T.PRO_PLAN_ID_ZG IS NULL ORDER BY T.MAT_NO DESC) WHERE ROWNUM <= #ACT_COUNT#) LOOP V_OUTSTOCK_SQE := '#OUTSTOCK_DOC#' || LPAD(V_OCOUNT, 4, 0); INSERT INTO YDM_GP_OUTLIST (OUTSTOCK_SQE, 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, ACT_LEN, FIX_NUM, FIX_LEN, ACT_COUNT, ACT_WEIGHT, ACT_THEORY_WEIGHT, 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, STORAGE_NO, LOCATION_NO, LARY_NO, BAL_YEAR_MONTH, OUTSTOCK_TIME, CREATE_NAME, CREATE_TIME, GROUD_NO, PRO_PLAN_ID, GX_PLAN_NO, FURNACENO, SEQUENCENO, GPTYPE, CIC, PIC, SIC, DIC, PRODUCCODE, PRODUCNAME, IS_DEALER, BACK_FLAG, SUPPLY_UNIT_CODE, SUPPLY_UNIT, SOURE_CODE, SOURE_NAME) VALUES (V_OUTSTOCK_SQE, '#OUTSTOCK_DOC#', '800811', '组炉出库', MYROW.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.ACT_LEN, MYROW.FIX_NUM, MYROW.FIX_LEN, MYROW.ACT_COUNT, MYROW.ACT_WEIGHT, MYROW.ACT_THEORY_WEIGHT, 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.STORAGE_NO, MYROW.LOCATION_NO, MYROW.LARY_NO, '#BAL_YEAR_MONTH#', SYSDATE, '#CREATE_NAME#', SYSDATE, MYROW.GROUD_NO, MYROW.PRO_PLAN_ID, MYROW.GX_PLAN_NO, MYROW.FURNACENO, MYROW.SEQUENCENO, MYROW.GPTYPE, MYROW.CIC, MYROW.PIC, MYROW.SIC, MYROW.DIC, MYROW.PRODUCCODE, MYROW.PRODUCNAME, MYROW.IS_DEALER, MYROW.BACK_FLAG, MYROW.SUPPLY_UNIT_CODE, MYROW.SUPPLY_UNIT, MYROW.SOURE_CODE, MYROW.SOURE_NAME); V_OCOUNT := V_OCOUNT + 1; END LOOP; END; ]]> '80150103') or (T.MAT_STATUS = '80150102' AND T.INSTOCK_FLAG = '1')) AND T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.FIX_NUM = '#FIX_NUM#' AND T.ACT_LEN = '#ACT_LEN#' AND T.IS_DEALER = '#IS_DEALER#' AND T.BACK_FLAG = '#BACK_FLAG#' AND S.STORAGE_NO = '#STORAGE_NO#' AND S.LOCATION_NO = '#LOCATION_NO#' AND T.PRO_PLAN_ID_ZG IS NULL ORDER BY T.MAT_NO DESC) WHERE ROWNUM <= #ACT_COUNT#) LOOP V_MAT_NO := '#NEW_JUDGE_STOVE_NO#'||LPAD(V_MAT_NO_COUNT,3,0); INSERT INTO YDM_GP_BUTTRESS (GROUD_NO, MAT_NO, STOVE_NO, FLAG_STOVE_NO, JUDGE_STOVE_NO, STORAGE_NO, LOCATION_NO, LARY_NO, CREATE_NAME, CREATE_TIME, LOCATION_NAME) VALUES (MYROW.GROUD_NO, V_MAT_NO, '#NEW_STOVE_NO#', MYROW.FLAG_STOVE_NO, '#NEW_JUDGE_STOVE_NO#', MYROW.STORAGE_NO, MYROW.LOCATION_NO, MYROW.LARY_NO, '#CREATE_NAME#', TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'), MYROW.LOCATION_NAME); V_INSTOCK_SQE := '#INSTOCK_DOC#' || LPAD(V_OCOUNT, 4, 0); INSERT INTO YDM_GP_INLIST (GROUD_NO, MATERIAL_NO, MATERIAL_NAME, GRADECODE, GRADENAME, DIMATER, ACT_LEN, FIX_NUM, FIX_LEN, ACT_COUNT, ACT_WEIGHT, BELONG_CODE, BELONG_NAME, STORAGE_NO, LOCATION_NO, LARY_NO, INSTOCK_TIME, IN_TIME_F, BAL_YEAR_MONTH, CREATE_NAME, CREATE_TIME, INSTOCK_SQE, INSTOCK_DOC, INSTOCK_TYPE_CODE, INSTOCK_TYPE_NAME, MAT_NO, PRODUCT_FLAG, MAT_STATUS, STOVE_NO, FLAG_STOVE_NO, JUDGE_STOVE_NO, PLINE_CODE, PLINE_NAME, PRO_PLAN_ID, GX_PLAN_NO, FURNACENO, SEQUENCENO, IS_DEALER, BACK_FLAG, SUPPLY_UNIT_CODE, SUPPLY_UNIT) VALUES (MYROW.GROUD_NO, MYROW.MATERIAL_NO, MYROW.MATERIAL_NAME, MYROW.GRADECODE, MYROW.GRADENAME, MYROW.DIMATER, MYROW.ACT_LEN, MYROW.FIX_NUM, MYROW.FIX_LEN, MYROW.ACT_COUNT, MYROW.ACT_WEIGHT, MYROW.BELONG_CODE, MYROW.BELONG_NAME, MYROW.STORAGE_NO, MYROW.LOCATION_NO, MYROW.LARY_NO, TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'), TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'), '#BAL_YEAR_MONTH#', '#CREATE_NAME#', TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'), V_INSTOCK_SQE, '#INSTOCK_DOC#', '800711', '组炉入库', V_MAT_NO, MYROW.PRODUCT_FLAG, MYROW.MAT_STATUS, '#NEW_STOVE_NO#', MYROW.FLAG_STOVE_NO, '#NEW_JUDGE_STOVE_NO#', MYROW.PLINE_CODE, MYROW.PLINE_NAME, '#PRO_PLAN_ID#', '#GX_PLAN_NO#', '#FURNACENO#', '#SEQUENCENO#', MYROW.IS_DEALER, MYROW.BACK_FLAG, MYROW.SUPPLY_UNIT_CODE, MYROW.SUPPLY_UNIT); INSERT INTO MAT_GP_M( MAT_NO, PRODUCT_FLAG, MAT_STATUS, STOVE_NO, FLAG_STOVE_NO, JUDGE_STOVE_NO, CAST_NO, CCMID, MATERIAL_NO, MATERIAL_NAME, GRADECODE, GRADENAME, PLINE_CODE, PLINE_NAME, DIMATER, ACT_LEN, FIX_NUM, FIX_LEN, ACT_COUNT, ACT_WEIGHT, ACT_THEORY_WEIGHT, BELONG_CODE, BELONG_NAME, JUGDE_APPLY_FLAG, INSTOCK_FLAG, INSTOCK_TIME, BAL_YEAR_MONTH, CREATE_NAME, CREATE_TIME, GROUD_NO, PRINT_STOVE_NO, PRO_PLAN_ID, GX_PLAN_NO, GPREQ_ID, DB_ACT_COUNT, CIC, PIC, SIC, DIC, GPTYPE, SEQUENCENO, FURNACENO, QCM_STAUS, LG_CRAFT_NO, ISENDGX, STEELCODE, STEELNAME, PRODUCCODE, PRODUCNAME, PLAN_ROUTE, MAT_ORIGIN_CODE, MAT_ORIGIN_NAME, STEEL_STANDRAD, JUDGE_RESULT_CODE, JUGDE_APPLY_CODE, IS_DEALER, BACK_FLAG, SUPPLY_UNIT_CODE, SUPPLY_UNIT, SOURE_CODE, SOURE_NAME, STD_CODE, STD_NAME, PRO_ORDER_NO, ORD_PK, JUGDE_APPLY_TIME, FACE_RESULT_CODE, FACE_RESULT_TIME, CHEM_RESULT_CODE, CHEM_RESULT_TIME, CHEM_MAKER, PHY_RESULT_CODE, PHY_RESULT_TIME, CHEM_JUDGE_ID, INSTANCY_FLAG) VALUES( V_MAT_NO, MYROW.PRODUCT_FLAG, MYROW.MAT_STATUS, '#NEW_STOVE_NO#', MYROW.FLAG_STOVE_NO, '#NEW_JUDGE_STOVE_NO#', '#CAST_NO#', '#CCMID#', MYROW.MATERIAL_NO, MYROW.MATERIAL_NAME, MYROW.GRADECODE, MYROW.GRADENAME, MYROW.PLINE_CODE, MYROW.PLINE_NAME, MYROW.DIMATER, MYROW.ACT_LEN, MYROW.FIX_NUM, MYROW.FIX_LEN, MYROW.ACT_COUNT, MYROW.ACT_WEIGHT, MYROW.ACT_THEORY_WEIGHT, MYROW.BELONG_CODE, MYROW.BELONG_NAME, MYROW.JUGDE_APPLY_FLAG, MYROW.INSTOCK_FLAG, TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'), V_BATHYEAR, '#CREATE_NAME#', TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'), MYROW.GROUD_NO, MYROW.PRINT_STOVE_NO, '#PRO_PLAN_ID#', '#GX_PLAN_NO#', '#GPREQ_ID#', MYROW.DB_ACT_COUNT, '#CIC#', '#PIC#', '#SIC#', '#DIC#', '#GPTYPE#', '#SEQUENCENO#', '#FURNACENO#', '00', '#LG_CRAFT_NO#', '#ISENDGX#', MYROW.STEELCODE, MYROW.STEELNAME, '#PRODUCCODE#', '#PRODUCNAME#', '#PLAN_ROUTE#', '#MAT_ORIGIN_CODE#', '#MAT_ORIGIN_NAME#', '#STEEL_STANDRAD#', MYROW.JUDGE_RESULT_CODE, MYROW.JUGDE_APPLY_CODE, MYROW.IS_DEALER, MYROW.BACK_FLAG, MYROW.SUPPLY_UNIT_CODE, MYROW.SUPPLY_UNIT, MYROW.SOURE_CODE, MYROW.SOURE_NAME, MYROW.STD_CODE, MYROW.STD_NAME, MYROW.PRO_ORDER_NO, MYROW.ORD_PK, MYROW.JUGDE_APPLY_TIME, MYROW.FACE_RESULT_CODE, MYROW.FACE_RESULT_TIME, MYROW.CHEM_RESULT_CODE, MYROW.CHEM_RESULT_TIME, MYROW.CHEM_MAKER, MYROW.PHY_RESULT_CODE, MYROW.PHY_RESULT_TIME, MYROW.CHEM_JUDGE_ID, MYROW.INSTANCY_FLAG); DELETE FROM MAT_GP_M T WHERE T.MAT_NO = MYROW.MAT_NO; DELETE FROM YDM_GP_BUTTRESS T WHERE T.MAT_NO = MYROW.MAT_NO; V_OCOUNT := V_OCOUNT + 1; V_MAT_NO_COUNT :=V_MAT_NO_COUNT + 1; END LOOP; END; ]]> SELECT * FROM MAT_GP_M T WHERE T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.FIX_NUM = '#FIX_NUM#' AND T.ACT_LEN = '#ACT_LEN#' AND T.IS_DEALER = '#IS_DEALER#' AND T.BACK_FLAG = '#BACK_FLAG#' AND ROWNUM = 1 SELECT MAX(JUDGE_STOVE_NO) JUDGE_STOVE_NO FROM (SELECT ? || TO_CHAR(SYSDATE, 'YYMM') || LPAD(NVL(MAX(SUBSTR(T.JUDGE_STOVE_NO, 6)), 0) + 1, 4, 0) JUDGE_STOVE_NO FROM MAT_GP_M T WHERE T.JUDGE_STOVE_NO LIKE ? || TO_CHAR(SYSDATE, 'YYMM') || '____' AND T.BELONG_CODE = '002023005' UNION ALL SELECT ? || TO_CHAR(SYSDATE, 'YYMM') || LPAD(NVL(MAX(SUBSTR(T.JUDGE_STOVE_NO, 6)), 0) + 1, 4, 0) JUDGE_STOVE_NO FROM MAT_GP_M_HISTORY T WHERE T.JUDGE_STOVE_NO LIKE ? || TO_CHAR(SYSDATE, 'YYMM') || '____' AND T.BELONG_CODE = '002023005')