Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Soma De Valores No DbGrid


valSistemasDelphi

Pergunta

Olá amigos do fórum... Tenho uma tabela onde consta os valores de vendas efetuadas no Caixa do Sistema e também de saldo inicial do Caixa, sendo que o saldo inicial fica em preto e os valores de entrada em azul. Tenho 6 Edits nesse Form onde se dividem entre S.Inicial dinheiro, Total entradas Dinheiro, e Saldo Final. Consegui que ao apertar em fechar caixa aparecesse o total da tabela no "Edit Total entradas".. Mais quero que apareça no Edit "Total entradas dinheiro" que está selecionado na tabela em azul, só os valores totais da venda, sem o acréscimo do "saldo Inicial". Dessa forma fica mais organizado para o operador saber o que foi totalizado no caixa.

     

Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0

utilize um componente TQuery ou outro conforme o seu banco de dados para fazer a soma

exemplo:

select sum(Campo as Total) from tabela 

select sum(Total_Entrada_Dinheiro as TotEntra) from tabela 

a soma desse campo ficara no campo virtual TotEntra

voce ainda pode filtrar por período ou outra forma que desejar

http://jquerydicas.blogspot.com.br/2014/01/mysql-sum-soma.html

abraço

 

Link para o comentário
Compartilhar em outros sites

  • 0

Estou usando este codigo para percorrer a tabela.. Ate ai tudo bem. Só que quero que ele some so os que estão na coluna Descrição, 'Venda No Caixa' Mais Não funciona..

if Form13.IBTable1.FieldByName('Descricao').AsString ='Venda No Caixa' then
  Soma:=0;
  //Form13.IBTable1.First;
  while  not Form13.IBTable1.Eof Do
  begin
Soma:=Soma + Form13.IBTable1ENTRADA.AsFloat;
   Form13.IBTable1.Next;
  end;

  Edit3.Text:=FloattoStr(Soma);
 

Link para o comentário
Compartilhar em outros sites

  • 0

o correto seria

VAR soma : real;
begin
  Soma:=0;
  IBTable1.First;

  while not IBTable1.Eof Do
  begin

     if IBTable1.FieldByName('Descricao').AsString ='Venda No Caixa' then
     begin
        Soma:=Soma + IBTable1ENTRADA.AsFloat;
        IBTable1.Next;
     end
     else
     IBTable1.Next;
  end;

  Edit3.Text:=FloattoStr(Soma);
end;

abraço

Link para o comentário
Compartilhar em outros sites

  • 0

Jhonas Deu certo! Isso que faltava. Mais dexa eu perguntar ele ta somando certo os campos que quero quando clico no Botao Fechamento. Mais tem um Edit que se chama "Saldo Total Dinheiro" Que ele armazena a Soma De Tudo que está na Tabela, Como posso fazer isso usando a mesmo Código Tem como? Só para mim entende!!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...