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_NAME, S.LOCATION_NO, DECODE(T.QCM_STAUS,'00','合格','11','待处理','22','废品')QCM_STAUS, DECODE(T.GPTYPE,'1','铸坯','2','锻坯')GPTYPE, T.FURNACENO, T.SEQUENCENO, T.PRO_PLAN_ID, T.GX_PLAN_NO, T.SUPPLY_UNIT_CODE, T.SUPPLY_UNIT, (SELECT T1.BASENAME FROM COM_BASE_INFO T1 WHERE T1.BASECODE = T.JUDGE_RESULT_CODE)JUDGE_RESULT_CODE 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 T.OUTSTOCK_DOC, T.OUTSTOCK_TYPE_CODE, T.OUTSTOCK_TYPE_NAME, T.STOVE_NO, T.JUDGE_STOVE_NO, T.MATERIAL_NO, T.MATERIAL_NAME, T.GRADECODE, T.GRADENAME, T.DIMATER, T.HEIGHT, T.ACT_LEN, T.FIX_NUM, T.FIX_LEN, SUM(T.ACT_COUNT)ACT_COUNT, SUM(T.ACT_WEIGHT)ACT_WEIGHT, T.PLINE_CODE, T.PLINE_NAME, T.BELONG_CODE, T.BELONG_NAME, T.STORAGE_NO, (SELECT T1.STORAGE_NAME FROM YDM_BS_STORAGE T1 WHERE T1.STORAGE_NO = T.STORAGE_NO)STORAGE_NAME, T.LOCATION_NO, T.LARY_NO, T.LOC_NO, T.BAL_YEAR_MONTH, MAX(TO_CHAR(T.OUTSTOCK_TIME, 'YYYY-MM-DD HH24:MI:SS')) OUTSTOCK_TIME, T.PRO_PLAN_ID, T.GX_PLAN_NO, T.FURNACENO, T.SEQUENCENO, T.GPTYPE, T.PRO_PLAN_ID_ZG, T.GX_PLAN_NO_ZG, T.SUPPLY_UNIT_CODE, T.SUPPLY_UNIT, (SELECT T1.LOCATION_NAME FROM YDM_BS_LOCATION T1 WHERE T1.LOCATION_NO = T.LOCATION_NO)LOCATION_NAME FROM YDM_GP_OUTLIST T WHERE T.OUTSTOCK_TYPE_CODE IN('800804','800805') SELECT COUNT(1)ACOUNT FROM MAT_GP_M T, YDM_GP_BUTTRESS S WHERE T.MAT_NO = S.MAT_NO AND NVL(T.STOVE_NO, '/') = NVL('#STOVE_NO#', '/') AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.FIX_NUM = '#FIX_NUM#' AND T.PRO_PLAN_ID_ZG IS NULL AND S.STORAGE_NO = '#STORAGE_NO#' AND S.LOCATION_NO = '#LOCATION_NO#' AND T.INSTOCK_FLAG = '1' AND T.QCM_STAUS = '00' AND T.IS_SETFOOT = '0' SELECT ?|| TO_CHAR(SYSDATE, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(OUTSTOCK_DOC, 11)), 0) + 1, 5, 0) OUTSTOCK_DOC FROM YDM_GP_OUTLIST T WHERE T.OUTSTOCK_TYPE_CODE = ? AND T.OUTSTOCK_DOC LIKE ?|| TO_CHAR(SYSDATE, 'YYMMDD')|| '_____' SELECT ?|| TO_CHAR(SYSDATE, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(T.INSTOCK_DOC, 11)), 0) + 1, 5, 0) INSTOCK_DOC FROM YDM_ZC_INLIST T WHERE T.INSTOCK_TYPE_CODE = ? AND T.INSTOCK_DOC LIKE ?|| TO_CHAR(SYSDATE, 'YYMMDD')|| '_____' DECLARE V_JUDGE_STOVE_NO_LG YDM_GP_BUTTRESS.JUDGE_STOVE_NO_LG%TYPE := NULL; V_CREATE_NAME MAT_GP_M_HISTORY.CREATE_NAME%TYPE := NULL; V_CREATE_TIME MAT_GP_M_HISTORY.CREATE_TIME%TYPE := NULL; V_INSTOCK_SQE YDM_GP_INLIST.INSTOCK_SQE%TYPE := NULL; V_INSTOCK_DOC YDM_GP_INLIST.INSTOCK_DOC%TYPE := NULL; BEGIN FOR MYROW IN (SELECT * FROM YDM_GP_OUTLIST T WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#' AND T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.OUTSTOCK_TYPE_CODE = '#OUTSTOCK_TYPE_CODE#' ORDER BY T.MAT_NO DESC) LOOP SELECT T1.JUDGE_STOVE_NO_LG, T1.CREATE_NAME, T1.CREATE_TIME INTO V_JUDGE_STOVE_NO_LG, V_CREATE_NAME, V_CREATE_TIME FROM MAT_GP_M_HISTORY T1 WHERE T1.MAT_NO = MYROW.MAT_NO; INSERT INTO MAT_GP_M SELECT * FROM MAT_GP_M_HISTORY T WHERE T.MAT_NO = MYROW.MAT_NO; INSERT INTO YDM_GP_BUTTRESS (MAT_NO, STOVE_NO, JUDGE_STOVE_NO, STORAGE_NO, LOCATION_NO, LARY_NO, LOC_NO, CREATE_NAME, CREATE_TIME, GROUD_NO, LOCATION_NAME, JUDGE_STOVE_NO_LG) VALUES (MYROW.MAT_NO, MYROW.STOVE_NO, MYROW.JUDGE_STOVE_NO, MYROW.STORAGE_NO, MYROW.LOCATION_NO, MYROW.LARY_NO, MYROW.LOC_NO, V_CREATE_NAME, V_CREATE_TIME, MYROW.GROUD_NO, (SELECT S.LOCATION_NAME FROM YDM_BS_LOCATION S WHERE S.LOCATION_NO = MYROW.LOCATION_NO), V_JUDGE_STOVE_NO_LG); DELETE FROM MAT_GP_M_HISTORY T WHERE T.MAT_NO = MYROW.MAT_NO; DELETE FROM YDM_GP_OUTLIST T WHERE T.MAT_NO = MYROW.MAT_NO AND T.OUTSTOCK_SQE = MYROW.OUTSTOCK_SQE AND T.OUTSTOCK_TYPE_CODE = '800805'; DELETE FROM YDM_GP_OUTLIST T WHERE T.OUTSTOCK_SQE = (SELECT T1.OUTSTOCK_SQE FROM YDM_GP_OUTLIST T1 WHERE T1.MAT_NO = MYROW.MAT_NO AND T1.OUTSTOCK_TYPE_CODE = '800809' AND T1.MAT_GOWHERE_CODE = '800805') AND T.OUTSTOCK_TYPE_CODE = '800809' AND T.MAT_NO = MYROW.MAT_NO; IF ('#OUTSTOCK_TYPE_CODE#' = '800805') THEN DELETE FROM MAT_ZC_M T WHERE T.MAT_NO = MYROW.MAT_NO; DELETE FROM YDM_ZC_BUTTRESS T WHERE T.MAT_NO = MYROW.MAT_NO; DELETE FROM YDM_ZC_INLIST T WHERE T.MAT_NO = MYROW.MAT_NO AND T.INSTOCK_TYPE_CODE = '800701'; INSERT INTO CRM_ZC_INLIST (STORAGE_NAME, CREATE_TIME, MAT_NO, INSTOCK_SQE, INSTOCK_DOC, ORDER_NO, ORDER_SEQ, DELIVERY_NO, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK, PRODUCT_FLAG, 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, PLINE_CODE, PLINE_NAME, ACT_LEN, ACT_LEN_MIN, ACT_LEN_MAX, ACT_COUNT, ACT_WEIGHT, STORAGE_NO, IN_MOLD, PACK_NO, INSTOCK_TIME, Data_Status, SUPPLY_UNIT_CODE, SUPPLY_UNIT, BAL_YEAR_MONTH, ACT_DIMATER, ACT_HEIGHT, BELONG_CODE, BELONG_NAME, INSTOCK_TYPE_CODE, INSTOCK_TYPE_NAME) SELECT STORAGE_NAME, TO_DATE('#CREATE_TIME#', 'YYYY-MM-DD HH24:MI:SS'), MAT_NO, INSTOCK_SQE, INSTOCK_DOC, ORDER_NO, ORDER_SEQ, DELIVERY_NO, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK, PRODUCT_FLAG, 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, PLINE_CODE, PLINE_NAME, ACT_LEN, ACT_LEN_MIN, ACT_LEN_MAX, ACT_COUNT, ACT_WEIGHT, STORAGE_NO, IN_MOLD, PACK_NO, INSTOCK_TIME, '2', SUPPLY_UNIT_CODE, SUPPLY_UNIT, BAL_YEAR_MONTH, ACT_DIMATER, ACT_HEIGHT, BELONG_CODE, BELONG_NAME, INSTOCK_TYPE_CODE, INSTOCK_TYPE_NAME FROM (SELECT * FROM CRM_ZC_INLIST T WHERE T.MAT_NO = MYROW.MAT_NO AND T.DATA_STATUS = '0' ORDER BY T.CREATE_TIME DESC) WHERE ROWNUM = 1; INSERT INTO CRM_MAT_ZC (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, ORDER_NO, ORDER_SEQ, ORDER_SEQ_NO, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK, PLINE_CODE, PLINE_NAME, ACT_DIMATER, ACT_HEIGHT, ACT_LEN, ACT_LEN_MIN, ACT_LEN_MAX, ACT_COUNT, ACT_WEIGHT, BELONG_CODE, BELONG_NAME, IN_MOLD, INSTOCK_TIME, STORAGE_NO, LOCATION_NO, STORAGE_NAME, LOCATION_NAME, SUPPLY_UNIT_CODE, SUPPLY_UNIT, CREATE_TIME, DATA_STATUS) SELECT 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, ORDER_NO, ORDER_SEQ, ORDER_SEQ_NO, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK, PLINE_CODE, PLINE_NAME, ACT_DIMATER, ACT_HEIGHT, ACT_LEN, ACT_LEN_MIN, ACT_LEN_MAX, ACT_COUNT, ACT_WEIGHT, BELONG_CODE, BELONG_NAME, IN_MOLD, INSTOCK_TIME, STORAGE_NO, LOCATION_NO, STORAGE_NAME, LOCATION_NAME, SUPPLY_UNIT_CODE, SUPPLY_UNIT, TO_DATE('#CREATE_TIME#', 'YYYY-MM-DD HH24:MI:SS'), '2' FROM (SELECT * FROM CRM_MAT_ZC T WHERE T.MAT_NO = MYROW.MAT_NO AND T.DATA_STATUS = '0' ORDER BY T.CREATE_TIME DESC) WHERE ROWNUM = 1; END IF; END LOOP; END; SELECT T.SPEC_CODE FROM COM_BASE_SPEC T WHERE T.SPEC_NAME = ? SELECT * FROM FMIS_GP_OUTLIST T WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#' AND T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.OUTSTOCK_TYPE_CODE = '800809' DELETE FROM FMIS_GP_OUTLIST T WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#' AND T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.OUTSTOCK_TYPE_CODE = '800809' AND T.SYNC_FLAG = '0'