pregunta 6 lab 4 bd

CREATE OR REPLACE FUNCTION f_VariacionPedidos RETURN NUMBER IS
mes NUMBER;
mesanterior NUMBER;
variacion NUMBER;
BEGIN
SELECT SUM(PED.MONTOTOTAL) INTO mes
FROM L4_PEDIDO PED
WHERE
TO_CHAR(PED.FECHAPEDIDO, 'MM-YYYY') = TO_CHAR(ADD_MONTHS(SYSDATE,-1),'MM-YYYY');

SELECT SUM(PED.MONTOTOTAL) INTO mesanterior
FROM L4_PEDIDO PED
WHERE
TO_CHAR(PED.FECHAPEDIDO, 'MM-YYYY') = TO_CHAR(ADD_MONTHS(SYSDATE,-2),'MM-YYYY');

variacion:=(mes-mesanterior)/mesanterior;
RETURN variacion;
END;

SET SERVEROUTPUT ON
DECLARE
  variacion NUMBER;
BEGIN
   variacion:=f_VariacionPedidos();
   DBMS_OUTPUT.PUT_LINE(TO_CHAR(variacion,'9990.9999'));
END;