SELECT ? ||'B'|| ? || LPAD(SUBSTR(NVL(MAX(T.RESULT_NO), '00000'), -5, 5) + 1, 5, '0') AS RESULT_NO FROM COUPLING_CUT_RESULT T WHERE T.PLINE_CODE = ? DECLARE BEGIN FOR MYROW IN (SELECT T.* FROM PLN_ZY_JG T WHERE T.ZY_PLAN_ID = ?) 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, ZY_PLAN_ID, 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.ZY_PLAN_ID, 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; UPDATE PLN_ZY_JG_WORKBILL T SET T.LATHE_OK_NUM = TO_NUMBER(NVL(T.LATHE_OK_NUM, 0)) + TO_NUMBER(?), T.LATHE_FAIL_NUM = TO_NUMBER(NVL(T.LATHE_FAIL_NUM, 0)) + TO_NUMBER(?), T.LATHE_STATUS = '1' WHERE T.ZY_PLAN_ID = ? AND T.WO_ID = ?; END;