Somar Campo em relatório Delphi

Delphi

18/08/2018

Boa noite pessoal...

Gostaria de uma ajuda... eu estou com um projeto onde estou fazendo uma especie de estrato bancário onde os valores dele fica um embaixo do outro.

Imagine que este é o relatório.

ID DATA HORARIO CENTRO DE CUSTO HISTORICO TIPO VALOR
1 16/08/2018 10:00 EMPRESA TESTE1 DEBITO -R$ 100,00
2 16/08/2018 12:34 EMPRESA TESTE2 CREDITO R$ 200,00
3 17/08/2018 12:45 EMPRESA TESTE2 CREDITO R$ 130,00
4 17/08/2018 12:56 EMPRESA TESTE3 CREDITO R$ 140,00
5 18/08/2018 12:09 EMPRESA TESTE1 DEBITO -R$ 160,00

TOTAL CREDITO (?) TOTAL DEBITO(?) TOTAL CREDITO (Já está funcionando este campo de cálculo).

Deste forma, preciso de algum comando que posso usar no fortes report que calcule o que teve de crédito e débito de acordo com o valor (Positivo ou negativo), ou de acordo com o campo "TIPO" (Crédito e Débito), alguém pode me ajudar?

Banco de dados Mysql, Relatório Fortes Reportes, Campo (Valor) ou (TIPO) de é a origem do cálculo é um TRLDBText.

Desde já agradeço.
Marcelo Mousinho

Marcelo Mousinho

Curtidas 0

Melhor post

Alex Lekao

Alex Lekao

20/08/2018

Ola boa tarde!!!

Não entendi muito bem, mas se vc tem o campo de Tipo credito e credito, se vc utilizar ele no agrupamento nao resolve seu problema?

Talves se vc postar a sintaxe que vc ja tem, possamos ajuda-lo melhor.

Atenciosamente,
GOSTEI 1

Mais Respostas

Marcelo Mousinho

Marcelo Mousinho

18/08/2018

Man consegui resolver...

Talvez não foi a melhor das soluções, mais resolveu sim de um jeito simples.

No formulário onde eu tenho o botão imprimir...eu também tenho os mesmos três campos do relatório que já calcula o DB Grid direto do banco de dados com SQL...Desta forma só fiz o Seguinte.

procedure TFrm_ControleDeCaixa.BitBtn_Imprimir_MovClick(Sender: TObject);
begin
Application.CreateForm(Tfrm_Rel_ControleDeCaixa, frm_Rel_ControleDeCaixa);

// Aqui meu campo de soma SQL Créditos passa para o relatório no LB_Creditos o valor que já foi calculado e no débito a mesma coisa.

frm_Rel_ControleDeCaixa.lb_Creditos.Caption := lb_Creditos.Caption;
frm_Rel_ControleDeCaixa.lb_Debito.Caption := lb_Debitos.Caption;
frm_Rel_ControleDeCaixa.Rel_ControleDeCaixa.Preview();
exit;
end;


Mais de qualquer forma obrigado man .
GOSTEI 0
Alex Lekao

Alex Lekao

18/08/2018

Blz.

Fico feliz que conseguiu resolver.

Precisando, estamos a disposição.

Abraço.
GOSTEI 0
POSTAR