Lo que pretendo es crear un procedimiento que actualice el precio de venta de una pieza cuyo precio se pasa por parámetro, ésto se hará solo si el precio nuevo es mayor que el existente en la base de datos.De momento quiero hacerlo sin excepciones, y posteriormente agregarlas si puede ser.
La cuestión es que me da un fallo, indicando que existe un IS de más, pero tengo otros similares y en principio creo que la estructura es así, declaro un cursor porque la ejecución de la query da más de una fila, por lo que quiero que entro el cursor localice el precio , y si es mayor lo actualice siendo como parámetro.
CREATE OR REPLACE PROCEDURE actualizarPrecio (precioNuevo PIEZAS.PRECIO_VENTA%TYPE,modeloa PIEZAS.MODELO%TYPE)
IS
cursorx IS
SELECT PRECIO_VENTA FROM PIEZAS WHERE MODELO=modeloa;
resulta number;
BEGIN
FOR v_reg IN cursorx LOOP
IF (precioNuevo > precio_venta) THEN
UPDATE PIEZAS SET PRECIO_VENTA=precioNuevo WHERE MODELO=modeloa;
resulta:= cursorx%ROWCOUNT;
ELSE
DBMS_OUTPUT.PUT_LINE('No se puede actualizar el precio ');
END IF;
END LOOP;
CLOSE cursorx;
DBMS_OUTPUT.PUT_LINE('Filas actualizadas ' ||resulta);
END;