Somar o total de Vendas
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
Curtidas 0
Melhor post
Mateus Ribeiro
28/03/2017
Bom dia! Verifique no seu ClientDataSet se a propriedade "AggregateActive" está setada como TRUE.
GOSTEI 1
Mais Respostas
Yuri Menechelli
27/03/2017
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.
GOSTEI 0
Yuri Menechelli
27/03/2017
Ola Matheus, sim esta ativado.
GOSTEI 0