DELETE COUPLING_COM_INFO WHERE RESULT_NO = ? AND WO_ID=? AND IF_OUT_RPO = '1' SELECT count(1) count FROM COUPLING_SANDBLAST_RESULT T WHERE T.WO_ID = ? and t.if_all_out_work='1' DECLARE BEGIN FOR MYROW IN (SELECT T.* FROM PLN_ZY_JG T WHERE T.HEAT_PLAN_NO = ?) LOOP INSERT INTO COUPLING_COM_INFO (STEELCODE, STEELNAME, MODEL_CODE, MODEL_DESC, OUTDIAMETER, WALLTHICK, SPEC_JG, SPEC_JG_DESC, STYLE_JG, DIAMETER, CHECK_J_VAL, AIMLENGTH, SINGLEWEIGHT, MONITORDEMAND, IF_MONITOR_JG, PRDCR_NO, PRODUCER, PRODUCER_TIME, MACH_NO, MACH_NM, PRO_NUM, PRO_WT, FAIL_NUM, FAIL_WT, OFFLINE_NUM, OFFLINE_WT, STATION_STATUS, RRO_TIME, RRO_TIME_NU, PRO_USER, PRO_SHIFT, PRO_GROUP, RESULT_NO, PRO_PLAN_ID, CODE_JG_BL, JG_GROUP_ID, IF_OUT_RPO, PLINE_CODE, PLINE_NAME, STATION_CODE, STATION_DESC, JUDGE_STOVE_NO, BATCH_NO, BL_WL_ID, BL_WL_DESC, MIN_D, MIN_H, AIMLENGTH_BL, AIM_CUT_LEN, LENGTH_MIN, LENGTH_MAX, TAPER, CODE_JG, GRADECODE, GRADENAME,CREATE_TIME,COL_OPERATOR,WO_ID) VALUES (MYROW.STEELCODE, MYROW.STEELNAME, MYROW.MODEL_CODE, MYROW.MODEL_DESC, MYROW.OUTDIAMETER, MYROW.WALLTHICK, MYROW.SPEC_JG, MYROW.SPEC_JG_DESC, MYROW.STYLE_JG, MYROW.DIAMETER, MYROW.CHECK_J_VAL, MYROW.AIMLENGTH, MYROW.SINGLEWEIGHT, MYROW.MONITORDEMAND, MYROW.IF_MONITOR_JG, MYROW.PRDCR_NO, ?, TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), ?, '', ?, ?, ?, ?, ?, '', '1', TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), '', ?, ?, ?, ?, MYROW.PRO_PLAN_ID, MYROW.CODE_JG_BL, MYROW.JG_GROUP_ID, ?, MYROW.PLINE_CODE, MYROW.PLINE_NAME, ?, '喷砂', MYROW.JUDGE_STOVE_NO, MYROW.BATCH_NO, MYROW.BL_WL_ID, MYROW.BL_WL_DESC, MYROW.MIN_D, MYROW.MIN_H, MYROW.AIMLENGTH_BL, MYROW.AIM_CUT_LEN, MYROW.LENGTH_MIN, MYROW.LENGTH_MAX, MYROW.TAPER, MYROW.CODE_JG, MYROW.GRADECODE, MYROW.GRADENAME,TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'),?,?); END LOOP; END; SELECT ? || ? || TO_CHAR(SYSDATE, 'yyyyMMDD') || LPAD(NVL(MAX(TO_NUMBER(SUBSTR(RESULT_NO, LENGTH(RESULT_NO) - 5))), 0) + 1, 6, '0') RESULT_NO FROM COUPLING_SANDBLAST_RESULT WHERE RESULT_NO LIKE ? || TO_CHAR(SYSDATE, 'yyyyMMDD') || '______' SELECT COUNT(1) COUNT, SUM(NVL(T.QUALIRIED_PCS, 0)) QUALIRIED_PCS, SUM(NVL(T.SPRAY_COUNT, 0)) SPRAY_COUNT, SUM(NVL(T.REJECTED_PCS, 0)) REJECTED_PCS FROM COUPLING_SANDBLAST_RESULT T WHERE T.ZY_PLAN_ID = ? AND T.WO_ID=? DELETE COUPLING_SANDBLAST_RESULT WHERE RESULT_NO = ? DELETE COUPLING_COM_INFO WHERE RESULT_NO = ? AND STATION_CODE=? AND WO_ID=? UPDATE PLN_ZY_JG_WORKBILL T SET T.BLAST_OK_NUM=?, T.BLAST_STATUS = ? WHERE T.ZY_PLAN_ID = ? AND T.WO_ID=? DECLARE BEGIN UPDATE COUPLING_COM_INFO T SET T.STATION_STATUS = '2' WHERE T.ZY_PLAN_ID = ? AND T.STATION_CODE = ? AND T.WO_ID=?; UPDATE PLN_ZY_JG_WORKBILL T SET T.BLAST_STATUS = '2' WHERE T.ZY_PLAN_ID = ? AND T.WO_ID=?; END; DECLARE BEGIN UPDATE COUPLING_COM_INFO T SET T.STATION_STATUS = '1' WHERE T.ZY_PLAN_ID = ? AND T.STATION_CODE = ? AND T.WO_ID=?; UPDATE PLN_ZY_JG_WORKBILL T SET T.BLAST_STATUS = '1' WHERE T.ZY_PLAN_ID = ? AND T.WO_ID=?; END;