Registros que suman un valor determinado

[[gatosoft]]

Ok LuNaTk,

El confundido era yo, no leí bien tu descripción e interpreté diferente las cosas... espero esta vez si haberlo entendido como es...

Yo probé la siguiente consulta y me funcionó OK en PosgreSQL

Código SQL [-]
select * 
from (
select *, (select sum(BB.pag_monto) from pago BB where BB.pag_id <= AA.pag_id and BB.pag_status='PENDIENTE') as totalx
from pago AA
  where AA.pag_status='PENDIENTE'
) as subquery
where totalx <= 250

Lo que hace recuperar los movimientos mas antiguos que sumen los 250 que buscas o que se aproximen (por debajo a este monto)...

entonces teiendo estos datos:

pag_id, pag_monto, pag_status
1;10;"PENDIENTE"
2;8;"PENDIENTE"
3;3;"PENDIENTE"
4;12;"OK"
5;60;"PENDIENTE"
6;20;"PENDIENTE"
7;13;"PENDIENTE"
8;8;"OK"
9;9;"PENDIENTE"
10;15;"PENDIENTE"
11;5;"OK"
12;50;"PENDIENTE"

y enviando la consulta para un valor de 81 me retornaría:

pag_id, pag_monto, pag_status
1;10;"PENDIENTE"
2;8;"PENDIENTE"
3;3;"PENDIENTE"
5;60;"PENDIENTE"

Ahora si quisieras encontrar el número exacto, escogiendo y descartando filas interedias... ahí si te tocaría hacer un procedimiento almacenado o funcion que te ayude....


me refiero a un ejemplo como este:

Tengo los siguientes numeros y busco aquellos que me sumen 94...

60
50
20 OK
15 OK
13 OK
12 OK
10 OK
9
8 OK
8 OK
5 OK
3 OK

Para llegar a este resultado, tuve que ordenarlos (de menor a mayor o al contrario de igual) y luego aplicar un algoritmo que toma y descarta numeros... bueno eso creo, no se si este equivocado

[LuNaTk]

asi es gatosoft

ya nos entendimos, pues si, estoy entonces haciendo el stored procedure para realizar esa búsqueda de pagos, si tengo exito compartire el codigo, saludos!

tenias razon marcoszorrilla, aprece que es imposible en un query

[Casimiro Noteví]

Creo que, en principio, no se puede hacer.
Debería ser inteligente para descartar una cantidad y sumar otras, y eso actualmente no existe, habría que inventarlo

[LuNaTk]

Despues de un buen rato de depuracion, por fin tengo lo que necesito, comparto el código, muy seguramente se puede optimizar, a mi no me gusta usar cursores asi que los implemento en ciclos while.

Código SQL [-]
create procedure sp_c_pago_reemplazo @Total numeric(19,2),@Fecha datetime
as
set nocount ON
declare @Pago table (n int identity(1,1),pag_id int,pag_total numeric(19,2))
declare @Resultado table (n int,pag_id int,pag_total numeric(19,2))

-- Recupero los Pagos del Mes
insert @pago
select 
pag_id,pag_total
from pago
where pag_total<=@Total
and pag_status='A'
and pag_id not in (select pag_id from cfdi_pago)
and year(pag_fecha)=year(@Fecha)
and month(pag_fecha)=month(@Fecha)
order by pag_total desc,pag_id desc

declare
@pag_id int,
@pag_total_idx numeric(19,2),
@pag_total numeric(19,2),
@n int,
@l int,
@n_ int,
@l_ int,
@c int,
@r int,
@Suma numeric(19,2)

select @n=MIN(n),@l=MAX(n),@Suma=0 from @Pago
while (@n<=@l)
 begin
   -- Limpio tabla de resultados
   delete from @Resultado
   set @Suma=0
   -- Tomo el primer pago
   select @pag_total_idx=pag_total,@pag_id=pag_id from @pago where n=@n
   if @pag_total_idx<=@Total
     insert @Resultado select @n,@pag_id,@pag_total_idx
   -- Verifico si se encontro el total
   if @Total=@pag_total_idx
     Goto Final
   else
     begin
        select 
        @c=COUNT(n),
        @r=0 
        from @Pago 
        where pag_total<=@Total-@pag_total_idx
        print 'Repeticiones '+cast(@c as varchar)
        while @r<@c
          begin  -- Repito la busqueda para todas las combinaciones
            delete from @Resultado where n>@n
            set @Suma=0
            select 
            @n_=MIN(n)+@r,
            @l_=@l
            from @Pago 
            where pag_total<=@Total-@pag_total_idx         
            while @n_<=@l_
              begin
                select @pag_total=pag_total,@pag_id=pag_id from @pago where n=@n_
                --print 'Nivel '+cast(@pag_total as varchar)            
                if (@pag_total_idx+@Suma+@pag_total)<=(@Total)
                  begin
                    insert @Resultado select @n_,@pag_id,@pag_total 
                    set @Suma=@Suma+@pag_total
                  end
                if (@Suma+@pag_total_idx)=@Total  -- Verifico si se encontro el total
                  Goto Final 
                set @n_=(select MIN(n) from @Pago where n>@n_ and pag_total<@pag_total) 
              end
            set @r=@r+1
          end
     end
   set @n=(select MIN(n) from @pago where n>@n and pag_total<@pag_total_idx)
 end
 Final:
 select pag_id,pag_total from @Resultado

De manera breve explico lo que hace.

Recupero y guardo en memoria los pagos que no se hayan facturado todavia y que el monto sea menor ó igual al importe deseado, guardo en memoria para poder trabajar con esos datos sin tener que acceder a las tablas fisicas debido a que el sistema esta siendo usado y tiene un alto indice de concurrencia. Guardo los valores minimo y maximo de Ids de los pagos para recorrerlos en un ciclo while primario el cual se encargara de recorrer uno a uno los pagos de manera descendente en el monto.

Si encuentro un pago igual a el monto que estoy buscando, finalizo el ciclo y muestro los resultados.
Si no encuentro un pago igual al monto, entonces tengo uno con un monto menor ya que asi esta establecida la consulta y procedo a realizar una sub-busqueda en la tabla de pagos que cargue en memoria pero iniciando desde los pagos que potencialmente sumados den como resultado la cantidad deseada, es decir no recorro todos los registros, para eso agrego la sentencia where pag_total<=@Total-@pag_total_idx.

En el peor de los casos tengo que repetir esta sub-busqueda tantas veces como registros en la sub-busqueda se encuentren, sumando todos los registros encontrados entre si hasta hayar la combinacion correcta.

Bueno soy malo para explicar, pero me funciona de maravilla.

de una tabla de pagos de el mes de enero 2012, tengo 1766 registros, despues de ejecutar el sp con los parametros 35000,'01/01/2012' obtengo los siguientes resultados

pag_id    pag_total
198232    18000.00
198191    2000.00
197846    1956.50
197296    1937.00
196831    1823.50
196806    1812.00
197823    1718.50
198264    1653.50
197260    1557.00
197546    1500.00
198277    1031.00
197692    11.00

la suma es correcta, estoy buscando los pagos que me sumen 35,000.00 pesos para elaborar una factura por esta cantidad (por ejemplo) ya que el mes pasado falto elaborarle una factura a un cliente por este monto, como no hay un pago en este mes por esa cantidad, busco los pagos que tengo libres para poder generar esa factura.

Gracias por sus consejos!

[LuNaTk]

Un ultimo ajuste ya que en el caso de que no haya registros que coincidan con la busqueda no se borraba la tabla de resultados, arrojando registros que no cumplian.

Código SQL [-]
alter procedure sp_c_pago_reemplazo @Total numeric(19,2),@Fecha datetime
as
set nocount ON
declare @Pago table (n int identity(1,1),pag_id int,pag_total numeric(19,2))
declare @Resultado table (n int,pag_id int,pag_total numeric(19,2))
insert @pago
select 
pag_id,pag_total
from pago
where pag_total<=@Total
and year(pag_fecha)=year(@Fecha)
and month(pag_fecha)=month(@Fecha)
order by pag_total desc,pag_id desc
declare
@pag_id int,
@pag_total_idx numeric(19,2),
@pag_total numeric(19,2),
@pag_total_rep numeric(19,2),
@n int,
@l int,
@n_ int,
@l_ int,
@c int,
@r int,
@Suma numeric(19,2)
select @n=MIN(n),@l=MAX(n),@Suma=0 from @Pago
while (@n<=@l)
 begin
   -- Limpio tabla de resultados
   delete from @Resultado
   set @Suma=0
   -- Tomo el primer pago
   select @pag_total_idx=pag_total,@pag_id=pag_id from @pago where n=@n
   if @pag_total_idx<=@Total
     insert @Resultado select @n,@pag_id,@pag_total_idx
   -- Verifico si se encontro el total
   if @Total=@pag_total_idx
     Goto Final
   else
     begin
        select 
        @c=MAX(n),
        @r=0
        from @Pago 
        where pag_total<=@Total-@pag_total_idx
        --print 'Repeticiones '+cast(@c as varchar)
        while @r<=@c
          begin  -- Repito la busqueda para todas las combinaciones
            delete from @Resultado where n<>@n
            set @Suma=0
      select 
      @n_=MIN(n)+@r,
      @l_=@l
      from @Pago 
      where pag_total<=@Total-@pag_total_idx and n>@n         
      while @n_<=@l_
        begin
        select @pag_total=pag_total,@pag_id=pag_id from @pago where n=@n_
              --print 'Nivel '+cast(@pag_total as varchar)      
        if (@pag_total_idx+@Suma+@pag_total)<=(@Total)
          begin
          insert @Resultado select @n_,@pag_id,@pag_total 
          set @Suma=@Suma+@pag_total
          end
        if (@Suma+@pag_total_idx)=@Total  -- Verifico si se encontro el total
          Goto Final 
        set @n_=(select MIN(n) from @Pago where n>@n and n>@n_) 
        end
      set @r=@r+1
      end
     end
   set @n=(select MIN(n) from @pago where n>@n and pag_total<@pag_total_idx)
 end
 delete from @Resultado
 Final:
 select pag_id,pag_total from @Resultado order by n