{
    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