Fórum Somar o total de Vendas #579422
27/03/2017
0
Ola Boa tarde, estou tentando somar o campo do meu BD, cdsLiners.VLRCOMISSAO com a field que criei, dentro do DmDados, chamada TOTAL, ou seja esta field é agregada e na expressão dela eu digitei o seguinte SUM(VLRCOMISSAO).
no formshow do formulario digitei o seguinte comando:
Label1.Caption := 'R$ '+FormatFloat(',#0.00',dmDados.cdsLinersTotal.AsVariant);
no formshow do formulario digitei o seguinte comando:
Label1.Caption := 'R$ '+FormatFloat(',#0.00',dmDados.cdsLinersTotal.AsVariant);
Yuri Menechelli
Curtir tópico
+ 0
Responder
Post mais votado
28/03/2017
Bom dia! Verifique no seu ClientDataSet se a propriedade "AggregateActive" está setada como TRUE.
Mateus Ribeiro
Responder
Gostei + 1
Mais Posts
28/03/2017
Yuri Menechelli
Bom, eu consegui um meio progresso aqui, mas agora eu não consigo ainda somar pq na primeira pergunta que fiz ele estava dando erro mas eu vi alguns topicos de Agreggate que consegui pelo menos aparecer algo na Label, quer dizer agora eu estou usando uma DBText.
segue o "código"...
procedure TfrmLiners.FormShow(Sender: TObject);
begin
TContratos.CarregarContratos(cbxContratos);
With dmDados do
begin
cdsLiners.Close;
cdsLiners.Open;
dbLblValor.Caption := cdsLiners.FieldByName('total').AsString;
dbLblValor.Caption := 'R$ '+FormatFloat(',#0.00',cdsLinersTotal.AsVariant);
end;
end;
desde ja agradeço a esta comunidade que esta me ajudando muito.
segue o "código"...
procedure TfrmLiners.FormShow(Sender: TObject);
begin
TContratos.CarregarContratos(cbxContratos);
With dmDados do
begin
cdsLiners.Close;
cdsLiners.Open;
dbLblValor.Caption := cdsLiners.FieldByName('total').AsString;
dbLblValor.Caption := 'R$ '+FormatFloat(',#0.00',cdsLinersTotal.AsVariant);
end;
end;
desde ja agradeço a esta comunidade que esta me ajudando muito.
Responder
Gostei + 0
28/03/2017
Yuri Menechelli
Ola Matheus, sim esta ativado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)