47 lines
1.4 KiB
Plaintext
47 lines
1.4 KiB
Plaintext
{
|
|
FUNCTION : reservar
|
|
DESARROLLADOR: Ing. Juan Soto
|
|
FECHA : 28/8/2015
|
|
|
|
}
|
|
FUNCTION reservar(pcodn,pcodgrupo,pcodtipo,pcodsec,pdias,pcotiazcion)
|
|
DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec,pdias SMALLINT,
|
|
pfecha DATE,
|
|
pdescripcion VARCHAR(80),
|
|
pcantidad DEC(12,5),
|
|
fecha_vence DATE,
|
|
pcotizacion INT
|
|
|
|
SELECT CONVERT(CHAR(10),a.fecha_desc,103),a.descrip_esp
|
|
INTO pfecha,pdescripcion
|
|
FROM iptb00002 a
|
|
WHERE a.cod_n = pcodn AND a.cod_grupo = pcodgrupo AND
|
|
a.cod_tipo = pcodtipo AND a.cod_sec = pcodsec
|
|
|
|
IF pfecha > TODAY THEN
|
|
CALL fgl_winmessage("ERROR","NO PUEDES RESERVAR PRODUCTOS EN OFERTAS","INFO")
|
|
RETURN
|
|
END IF
|
|
OPEN WINDOW vefmwd076 WITH FORM "vefmwd076"
|
|
INPUT BY NAME pcantidad,fecha_vence
|
|
BEFORE INPUT
|
|
DISPLAY BY NAME pcodn,pcodgrupo,pcodtipo,pcodsec,pdescripcion,pcotizacion
|
|
|
|
SELECT a.fecha_vence,a.cantidad
|
|
INTO fecha_vence,pcantidad
|
|
FROM vetb00095 a
|
|
WHERE a.cotizacion_no = pcotizacion AND
|
|
a.cod_n = pcodn AND
|
|
a.cod_grupo = pcodgrupo AND
|
|
a.cod_tipo = pcodtipo AND
|
|
a.cod_Sec = pcodsec AND
|
|
a.vigente = "SI"
|
|
|
|
|
|
LET fecha_vence = TODAY + pdias
|
|
DISPLAY BY NAME fecha_vence
|
|
|
|
|
|
CLOSE WINDOW vefmwd076
|
|
|
|
END FUNCTION |