Fórum Somar Campo em relatório Delphi #596501
18/08/2018
0
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.
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
Curtir tópico
+ 0
Responder
Post mais votado
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,
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,
Alex Lekao
Responder
Gostei + 1
Mais Posts
20/08/2018
Marcelo Mousinho
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 .
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 .
Responder
Gostei + 0
20/08/2018
Alex Lekao
Blz.
Fico feliz que conseguiu resolver.
Precisando, estamos a disposição.
Abraço.
Fico feliz que conseguiu resolver.
Precisando, estamos a disposição.
Abraço.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)