17 lines
719 B
Plaintext
17 lines
719 B
Plaintext
{
|
|
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 |