calcular campo de debito e credito

Delphi

03/09/2003

:( tenho uma tabela conta corrente (cliente,data,historico,dc(deb/Cred),valor

gostaria de saber como faco para calcular os campos

por exemplo

todos os lancamentos de credito
e todos os debito
e salvar em uma variavel cada um

so que nesta consulta vai ter um periodo, como fazer o calculo da tabela que esta vizivel ao usuario

:o

obrigado

itamar
itamardlima@uol.com.br


Itamardlima

Itamardlima

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

03/09/2003

Colega,

Você teria algo como:

Selecionar os lançamentos e totalizar de acordo com o parâmetro.

Adicione o script abaixo na propriedade SQL de um objeto Query:
SELECT SUM(NOME_CAMPO) AS TOTAL
WHERE dc = :op
AND data BETWEEN :inicio AND :termino


Suponha que tenha dois Edits para receber o resultado e um Button para acionar o cálculo. Dê um duplo click sobre o objeto button e adicione o código abaixo:

// Totaliza o crédito
Query1.Close;
Query1.ParamByName(´op´).AsString := ´Cred´;
Query1.ParamByName(´inicio´).AsDate := DateTimePicker1.Date;
Query1.ParamByName(´termino´).AsDate := DateTimePicker2.Date;
Query1.Open;
// Pega o valor obtido na consulta e atribui para o objeto Edit1 (crédito)
Edit1.Text := FloatToStrF(Query1.FieldByName(´TOTAL´).AsCurrency,ffNumber,15,2);

Query1.Close;
Query1.ParamByName(´op´).AsString := ´Deb´;
Query1.ParamByName(´inicio´).AsDate := DateTimePicker1.Date;
Query1.ParamByName(´termino´).AsDate := DateTimePicker2.Date;
Query1.Open;

Edit2.Text := FloatToStrF(Query1.FieldByName(´TOTAL´).AsCurrency,ffNumber,15,2);



GOSTEI 0
POSTAR