pregunta 8 lab 4 bd

--PREGUNTA 8
CREATE OR REPLACE PROCEDURE P_EmisionReporte( pPorcentajeDescuento IN L4_PROMOCIONREBAJA.PORCENTAJEDESCUENTO%TYPE, pMontoMeta  IN NUMBER ) IS
nProductosSinDescripcion NUMBER;
nDetallePedidoSinMontoDetalle NUMBER;
nomProductoMenosVendido VARCHAR2(40);
idNuevaPromocion NUMBER;
nProductosSobreMeta NUMBER;
montoClienteVip NUMBER;
variacionMensual NUMBER;
motivoVariacionMensual NUMBER;
BEGIN
P_ProductosSinDescripcion(nProductosSinDescripcion);
P_DetallePedidoSinMontoDetalle(nDetallePedidoSinMontoDetalle);
P_MenosVendido(pPorcentajeDescuento, nomProductoMenosVendido);
P_MasVendidos(pMontoMeta, nProductosSobreMeta);
P_Top3Clientes(montoClienteVip);
variacionMensual:=f_VariacionPedidos();
IF variacionMensual>0 THEN
    motivoVariacionMensual:=f_MotivoVariacionPedidos(1);

DBMS_OUTPUT.PUT_LINE('INFORME DEL MES DE: ' || TO_CHAR(ADD_MONTHS(SYSDATE,-1), 'Month')||' del ' || TO_CHAR(ADD_MONTHS(SYSDATE,-1), 'YYYY') );
DBMS_OUTPUT.PUT_LINE('1.Calidad de Información:');
DBMS_OUTPUT.PUT_LINE('1.1.Se tienen: '||nProductosSinDescripcion ||' Productos sin descripción');
DBMS_OUTPUT.PUT_LINE('1.2.Se tienen: '||nDetallePedidoSinMontoDetalle ||' Líneas en la tabla de Detalles de Pedido sin valor en el campo MontoDetalle');
DBMS_OUTPUT.PUT_LINE('2.Nuestros Productos');
DBMS_OUTPUT.PUT_LINE('2.1.El producto Menos Vendido fue el siguiente: '||nomProductoMenosVendido );
DBMS_OUTPUT.PUT_LINE('2.2. La cantidad de '||nProductosSobreMeta || ' Productos han alcanzado la meta del mes' );
DBMS_OUTPUT.PUT_LINE('3.Finanzas:');
DBMS_OUTPUT.PUT_LINE('3.1.La variación de ingresos con respecto al mes anterior fue de '||variacionMensual ||' soles');
IF variacionMensual>0 THEN
DBMS_OUTPUT.PUT_LINE('3.2.Uno de los motivos de incremento de ingresos se debío al monto de venta de ' ||motivoVariacionMensual|| ' soles, de uno de nuestros Productos');
ELSE
DBMS_OUTPUT.PUT_LINE('3.2.Uno de los motivos de la disminución de ingresos se debió al monto de venta de ' ||motivoVariacionMensual|| ' soles, de los pedidos en Estado Por Cobrar');
END IF;
END;

BEGIN
P_EmisionReporte( 50, 2000 );
END;