Índices atualizados no Servidor

Existem casos no sistema onde os campos de indices de uma tabela não são populados imediatamente com os valores finais. Normalmente estes campos recebem um valor negativo que são substituidos pelos valores corretos quando a tela executa o processo de salvar.

Para estes casos foram criados dois métodos: ProvisionarReconciliacaoCxGrid e ReconciliarCxGrid. Ambos esperam como parametros a coluna criada.

A utilização deve ser feita interceptando o evento de salvar da tela e customizando o mesmo da seguinte forma:

Uses
  Forms, Dialogs, StdCtrls, Classes, uVsClientDataset, cxGridCol, 
  SysUtils, Windows, Graphics, Controls, db, dbClient, Grids,
  DBGrids, VsDBGrid, ExtCtrls, DBCtrls, Buttons;
       
var
  colData: TCxGridColuna;      
  
procedure MeuSalvarOnExecute(Sender : TObject);
begin
  ProvisionarReconciliacaoCxGrid(colData);             
  inherited(Sender, 'OnExecute', False, True);
  ReconciliarCxGrid(colData);
end;

begin
  colData := TcxGridColuna.Create(FPessoa.cxContaMovAnexoDBTableView1 , 
    'Data', 'Data', 10, 'ID');  
  FPessoa.ActSalvar.OnExecute := 'MeuSalvarOnExecute';
   
end;