[firebase-br] CALCULO DE SALDO

[Paulo Sérgo Feix]

SaldoAnterior := 0;
ibDataSet1.First;
while not ibDataSet1.Eof do
begin
ibDataSet1.Edit;
ibDataSet1.FieldByName('SALDO').AsFloat := SaldoAnterior +
ibDataSet1.FieldByName('ENTRADA').AsFloat - ibDataSet1.FieldByName
('SAIDA').AsFloat;
SaldoAnterior := ibDataSet1.FieldByName('SALDO').AsFloat;
ibDataSet1.MoveBy(1);
end;

Seria assim:
Exemplo:

Saldo.valeu:=(Saldo.valeu + Entrada.Valeu - Saida.Valeu);
Paulinho...


Em 26/06/07, Daniel <daniel em smallsoft.com.br> escreveu:
>
> Olá!
>
> Estou com um problema quanto ao calculo do saldo
>
> Tenho a tabela CAIXA com campos ENTRADA, SAIDA, SALDO
>
> To usando um IBdataset para calcular o saldo;
> Seguinte comandos
>
>
> --------------------------------------------------------------------------------
>
>   SaldoAnterior := 0;
>   ibDataSet1.First;
>   while not ibDataSet1.Eof do
>   begin
>     ibDataSet1.Edit;
>     ibDataSet1.FieldByName('SALDO').AsFloat  := SaldoAnterior +
> ibDataSet1.FieldByName('ENTRADA').AsFloat - ibDataSet1.FieldByName
> ('SAIDA').AsFloat;
>     SaldoAnterior            := ibDataSet1.FieldByName('SALDO').AsFloat;
>     ibDataSet1.MoveBy(1);
>   end;
>   //
>
>
> --------------------------------------------------------------------------------
>
>
> Funciona só que são mais de 100.000 registros e esta demorando muito,
> gostaria de fazer isto em comando SQL é possível???????
>
> ENTENDERAM o Campo SALDO tem que ser o SALDO_REGISTRO_ANTERIOR +
> (ENTRADA-SAIDA);
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para editar sua configuração na lista, use o endereço
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>



-- 
Paulinho...