Hola,
Código:
SQL> CREATE OR REPLACE PROCEDURE completaEstadisticos
2 (
3 identAlmacen IN varchar2,
4 producto IN varchar2,
5 cantidad IN varchar2,
6 fecha IN Date
7 )
8 AS
9 cant number;
10 cantiActual number;
11 cursor c1 IS SELECT cantidad
12 FROM pedidosEstadisticos
13 WHERE idProducto = producto AND
14 fechacaducidadProducto > fecha;
15 BEGIN
16 cantiActual := cantidad;
17 OPEN c1;
18 LOOP
19 FETCH c1 INTO cant;
20 IF c1%notfound THEN
21 cant := 9999;
22 ELSE
23 IF cant < cantidad THEN
24 INSERT INTO copias (nombre,fecha) VALUES ('HOLA','ADIOS');
25 cantiActual := cantiActual - cant;
26 END IF;
27 END IF;
28 END LOOP;
29 COMMIT;
30 CLOSE c1;
31 END;
32 /
Procedure created.
Ahora compila el procedimiento, habian varios errores de ";" y similares, pero tengo muchas dudas de que funcione, el LOOP lo veo infinito :)
Saludos