Aggregates em tempo de execução

[Marcelo Bill]

Olá pessoal

Eu renovando meu sistema, e desenvolvendo de forma a me isentar dos componentes de arrasto, tentando cria-los em tempo de execução.

Até o momento já consegui criar 

Query
Dsprovider
CdDataset

Já consegui inclusive criar os campos calculated e com isso percebi que 
tive de adicionar os campos provenientes da Query, de outra forma ele
reclama isso.
Fiz inclusive a função OnCalcFields para que ele possa alimentar os
calculated.

O que está me faltando são os Aggregates.

Já tentei de várias formas, venho tentando a meses fazer isso e até agora
nada.

Será que alguem poderia me dar alguma dica do está faltando.
Já consegui fazer de forma que ele não erro, no entanto não mostra o valor somado.
ai liguei AggregatesActive:=True e nada.

Espero que uma boa alma possa me dar uma dica valiosa.

Muito Obrigado
 

[EMBarbosa]

Veja esse artigo: http://edn.embarcadero.com/article/29001

Tem um programa exemplo no final com o código.

[hleorj]

Pfunction TCdsTemp.AGregarCampos(const CdSet: TClientDataSet; eNumCampo,
  EnuDisplays: array of const): TClientDataSet;
Var
  xpara : Integer;
begin
  Result := CdSet;
  with Result do
  begin
    AggregatesActive := False;
    For xpara := low( eNumCampo ) to High( eNumCampo ) do
    begin
      if Aggregates.Find(Format( '%s',  EnuDisplays[xpara]) ) = nil
      then
        with Aggregates.Add do
        begin
          Expression    := Format( 'Sum(%s)', eNumCampo[xpara] );
          AggregateName := Format( '%s',  EnuDisplays[xpara]);
          Active        := True;
        end;
    end;
    AggregatesActive := true;
  end;
end;

        AGregarCampos( CdSet, [ 'DTotal'   ,'Adt' , 'Receber','Simples' ,'IssVAlor','Comissao','Compra_1','lbruto','compras','areceber' ],
                   [ 'DDTotal'  ,'DAdt','DReceber','DSimples','dIssVAlor','dComissao','dCompra_1','dlbruto','dcompras','dareceber' ] );
 

 

 

[Marcelo Bill]

Nossa, que dahora, agradeço mesmo, meu sistema administrativo está ficando muito xik. Se eu tivesse que adiquirir um sistema desses eu pagaria uma fortuna de tão bom que está ficando kkk.

Embora, eu, de tanto insistir desde terça feira passada, acabei conseguindo fazer funcionar, mas estou vendo que o tratamento que voces usam em relação a criar variáveis em memoria é muito melhor do que eu fiz, vou adaptar esses codigo para o meu sistema.  Muito obrigado

 

abraço a todos