Práctica 1 - datos clientes.sql

Práctica 1 - datos clientes.sql

 CREATE OR REPLACE PROCEDURE DATOS_CLIENTES AS 
   importeTotal number := 0;
 BEGIN
   FOR cursorPedido IN(
     SELECT CLIENTES.dni
     FROM CLIENTES)
   LOOP
     importeTotal := importeTotal + PEDIDOS_CLIENTE_TOT(cursorPedido.dni);
   END LOOP;
 
   DBMS_output.put_line('-----------------------------------------------------------------');
   DBMS_output.put_line('SUMA DE TODOS LOS PEDIDOS DE TODOS LOS CLIENTES: ' || importeTotal);
   DBMS_output.put_line('-----------------------------------------------------------------');
 
 END DATOS_CLIENTES;