| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
Lippi
Membro Junior
Registrado: Terça-Feira, 25 de Novembro de 2008
Mensagens: 378
|
 Enviada: Seg Jul 29, 2019 8:24 pm Assunto: Soma de valores com códigos iguais [RESOLVIDO] |
 |
|
Senhores, boa noite.
D7,
Fb2,5
Estou tentando fazer a soma de cada código, assim:
| Código: | While not Fm_Dados.CDS_CustoDesp.Eof do
begin
Cod01:=Fm_Dados.CDS_CustoDespCODIGO.AsString;
//
Fm_Dados.CDS_Pgto05.Active:=False;
Fm_Dados.CDS_Pgto05.CommandText:=('Select SUM(VALPAGO) as TTGER from PAGAMTOS where COD_CDT='+Cod01+' and COMPET='+Comp2);
Fm_Dados.CDS_Pgto05.Active:=True;
//
Fm_Dados.CDS_CusTot.Append;
Fm_Dados.CDS_CusTotCUSTOMES.AsString:=Cod01;
Fm_Dados.CDS_CusTotCUSTOCPT.AsString:=Comp2;
Fm_Dados.CDS_CusTotCUSTOTOT.AsFloat:=Tot1;
Fm_Dados.CDS_CusTot.Post;
Fm_Dados.CDS_CusTot.ApplyUpdates(-1);
//
Fm_Dados.CDS_CustoDesp.Next;
end;
ShowMessage('Rotina Finalizada!');
Close;
end; |
O resultado para todos os código é 0.000 - Onde está meu erro?
Desde já, obrigado.
_________________
Longo e difícil é o caminho que, das trevas, nos leva à luz.
Editado pela última vez por Lippi em Sáb Ago 10, 2019 11:52 am, num total de 2 vezes |
|
| Voltar ao Topo |
|
 |
joemil
Moderador
Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT
|
| Enviada: Ter Jul 30, 2019 8:45 am Assunto: |
|
|
onde vc ta atribuindo os valores das variaveis Comp2 e Tot1
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
| Voltar ao Topo |
|
|
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Ter Jul 30, 2019 9:48 am Assunto: |
|
|
Bom dia,
Lippi, não sei se entendi corretamente o que você quer fazer mas experimente trocar a linha abaixo:
| Código: | | Fm_Dados.CDS_CusTotCUSTOTOT.AsFloat:=Tot1; |
por
| Código: | | Fm_Dados.CDS_CusTotCUSTOTOT.AsFloat := Fm_Dados.CDS_Pgto05.FieldByName('TTGER').AsFloat; |
Espero que ajude
_________________
Assinatura: https://www.imoveisemexposicao.com.br/imoveis-venda-guarulhos-residencial-casa |
|
| Voltar ao Topo |
|
|
Lippi
Membro Junior
Registrado: Terça-Feira, 25 de Novembro de 2008
Mensagens: 378
|
| Enviada: Sáb Ago 10, 2019 11:50 am Assunto: Corretíssimo. |
|
|
Imex e demais colegas, deu certíssimo a alteração de código sugerida.
Muito obrigado.
Lippi.
_________________
Longo e difícil é o caminho que, das trevas, nos leva à luz. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
