CREATE OR ALTER PROCEDURE MGETIQ_FORMA_DESCTO (
    ARTICULO_ID integer)
returns (
    PRECIO_CON_IMPTO numeric(18,6),
    DESCUENTO numeric(9,6),
    UNIDADES numeric(18,5),
    PRECIO_CON_DSCTO numeric(18,6))
as
BEGIN

    FOR SELECT DESCUENTO, UNIDADES
    FROM MGETIQ_GET_DSCTO_VOL2 (:ARTICULO_ID, 'NOW')
    INTO DESCUENTO, UNIDADES
    DO
    BEGIN

    SELECT PRECIO_CON_IMPTO
    FROM ORSP_VE_PRECIOS_ART(:ARTICULO_ID, 'N')
    WHERE UPPER(NOMBRE_PRECIO) = 'PRECIO DE LISTA'
    INTO PRECIO_CON_IMPTO;


    PRECIO_CON_DSCTO = (PRECIO_CON_IMPTO * DESCUENTO);

    PRECIO_CON_DSCTO = PRECIO_CON_DSCTO / 100;

    PRECIO_CON_DSCTO = PRECIO_CON_IMPTO - PRECIO_CON_DSCTO;
    
    SUSPEND;
    END


END;

