{
   FUNCION      : Ofertas
   OBHETIVO     : Controlar las ofertas especiales que se otorgan en el sistema
   DESARROLLADO : Ing. Juan Soto
   FECHA DESARROLLO: Octubre 27, 2023 
}

FUNCTION buscaOferta(pcodn,pcodgrupo,pcodtipo,pcodsec,doc_oferta)
  DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec,doc_oferta INT,
         pprecio,pporc_desc DEC(12,2)

         SELECT ISNULL(a.precio,0),ISNULL(a.porc_Desc,0) INTO pprecio, pporc_desc FROM vetb00033 a
         WHERE a.cod_n = pcodn AND a.cod_grupo = pcodgrupo AND a.cod_tipo = pcodtipo AND
               a.cod_sec = pcodsec AND a.documento = doc_oferta
DISPLAY "descuento: ",pporc_desc," precio ",pprecio
    RETURN pprecio,pporc_desc           
END FUNCTION