Fórum Evento OnCalcFields #295951
17/09/2005
0
var
i,r: integer;
n: real;
Atraso: Double;
begin
Atraso:= Date - BD_CONT_RECGS_COR_DATA_VENC.AsDateTime;
if Atraso > 0 then
BD_CONT_RECGS_COR_DATRASO.AsFloat := Atraso
else
BD_CONT_RECGS_COR_DATRASO.AsFloat := 0;
n:= 0;
r:= BD_CONT_REC.RecordCount;
BD_CONT_REC.First;
for i:=1 to r do
begin
n:= n + BD_CONT_RECGS_COR_VALOR_PARCELA.asfloat;
BD_CONT_REC.Next;
end;
Edit6.Text:= formatfloat(´R$ ,#,,0.00´,n);
Valw..aí galera..
Gigatel
Curtir tópico
+ 0Posts
18/09/2005
Rjun
Gostei + 0
18/09/2005
Gigatel
[img][URL=http://imageshack.us][img:9371b0afe9]http://img68.imageshack.us/img68/7228/imagem5vd.jpg[/img:9371b0afe9][/URL][/img]
Gostei + 0
18/09/2005
Gigatel
Gostei + 0
18/09/2005
Rjun
Gostei + 0
18/09/2005
Gigatel
Más onde coloco entaum...presciso que assim que form aparecer ele já me informar o valor dos campos selecionados, coloquei a função tbm no onshow do form tbm num dá...vlw..
Gostei + 0
19/09/2005
Rjun
Gostei + 0
19/09/2005
Gigatel
Desculpe..no onshow funciona, más queria uma solução para mudanças de arquivos..tipo quando troco de registros ele exectutasse o código tentei no Scroll da tabela más num dá certo... neste caso num dá erro nenhum más tbm num calcula..coloquei no evento Afterscroll da IBquery..vlw..
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)