FUNCTION control_cotizacion(pcodn,pcodgrupo,pcodtipo,pcodsec,xcantidad,kcotizacion)
  DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec SMALLINT,
         kcotizacion INT,
         kcantidad,xcantidad,xcantidad_cotizacion DEC(12,5)

  LET xcantidad_cotizacion = 0
  SELECT SUM(a.cantidad) INTO xcantidad_cotizacion
  FROM vetb00051 a
  WHERE a.cotizacion_no = kcotizacion AND
        a.cod_n = pcodn AND
        a.cod_Grupo = pcodgrupo AND
        a.cod_tipo = pcodtipo AND
        a.cod_Sec = pcodsec 
     
  LET kcantidad =0
  SELECT SUM(a.cantidad) INTO kcantidad
  FROM  vetb00003 a,vetb00002 b
  WHERE a.factura = b.factura AND 
        a.cod_n = pcodn AND
        a.cod_Grupo = pcodgrupo AND
        a.cod_tipo = pcodtipo AND
        a.cod_Sec = pcodsec AND
        b.conduce = kcotizacion AND
        b.status_t IS NULL

       LET kcantidad = kcantidad + xcantidad

       IF kcantidad > xcantidad_cotizacion THEN
           RETURN true
       ELSE
           RETURN false
       END IF    
  
END FUNCTION