Total de $ no campo
19/11/2005
0
Registros só desse campo na tabela:
70,00
40,00
60,00
40,00
60,00
50,00
Código faz soma de tudo e relata no DbGrid ou Edit:
320,00
Alguém poderia me dizer como faço um código que some???
* Aproveitando o tópico para não criar outros com o mesmo assunto, na tabela, além do campo Valor, existem outros como Desconto que será em dinheiro mesmo, por exemplo, no campo ele vai colocar Desconto de 5,00 reais. Também o campo Juros. Alguém poderia me dizer qual a melhor alternativa pra fazer os cálculos com o campo Valor, por exemplo, pegar o Desconto e descontar e pegar o juros e acrescentar. Totalizando tudo numa edit mesmo. Alguém já fez um programa assim e sabe como fazer? Bom, se não conseguirem entender e resolver este tudo bem, podem me ajudar somente com o primeiro, da soma dos valores.
Muito obrigado.
Atenciosamente, Aquiles.
Aspirante
Posts
20/11/2005
Emerson Nascimento
21/11/2005
Rgaffo
Faça assim:
Somar campos de valores:
Primeiramente crie uma variável Global com o nome de Soma do tipo Currency, depois dê um duplo clique na sua query ou table e adicione os campos (botão direito Add all fields) caso não esteja, cada Field desse possui propriedades e eventos, tem um evento chamado OnGetText (é ativado qdo ele pega o valor do campo do banco), dai vc coloca o seguite
Soma := Soma + qryContasAPagarValor.Value;
ou senão no select da sua query peça para trazer o campo já somando como o nosso amigo CrasH disse.
Dai ele vai fazer a soma que vc deseja.
____________________________________________________________
Bom sei bem se entendi sua 2ª dúvida, mas lá vai.
A formula para acrescentar baseado em juros é a seguinte:
Valor * (1 + Taxa de Juros)
Ex: Quero dar 30¬ de aumento no produto de R$ 50,00
50 * (1 + (30/100))
A formula para tirar baseado em juros é a seguinte:
Valor - (Valor * Taxa de Juros)
Ex: Quero tirar 30¬ do valor de um produto de R$ 50,00
50 - (50 * (30/100))
==============================================
[b:43a0afecc0]OBS:
Taxa de Juros -> Tem que ser um valor em decimal por isso (30/100).[/b:43a0afecc0]
==============================================
Para os descontos
edit1.text := FloatToStr(qryContasAPagarValor.Value - qryContasAPagarCampoDesconto.Value)
Espero ter ajudado.
Qq coisa poste novamente.
Sem mais.
27/11/2005
Aspirante
Valeu.
Clique aqui para fazer login e interagir na Comunidade :)