Fórum DBXReader para ClientDataSet e alterar #429692

TDBXClientDataSetReader.CopyReaderToClientDataSet(ipObj, FCds);

FCds.Edit;
FCds.Post;
FCds.ApplyUpdates(0);

FCds.Data := CdsParametro.Data;

procedure TDaoServerClass.pprAlterar(ipObj: TDBXReader);
begin
TDBXClientDataSetReader.CopyReaderToClientDataSet(ipObj, FCds);
Showmessage(inttostr(Fcds.ChangeCount));  //Vc espera que vc Zero mas não é
//FCds.Edit;
//FCds.Post;
//FCds.ApplyUpdates(0);
end;

procedure TDaoServerClass.pprAlterar(ipObj: TDBXReader);
begin
Fcds.close;
Fcds.open;
Showmessage(inttostr(Fcds.ChangeCount));  //Vc espera que vc Zero e È ...
//FCds.Edit;
//FCds.Post;
//FCds.ApplyUpdates(0);
end;

procedure TDaoServerClass.pprAlterar(ipObj: TDBXReader);
begin
TDBXClientDataSetReader.CopyReaderToClientDataSet(ipObj, FCds);
Fcds.MergeChangeLog;  //*****************************************************
FCds.Edit;
FCds.Post;
FCds.ApplyUpdates(0);
end;
//FCds é um CDS que esta no meu DataModule o qual já esta corretamente ligado a um Provider->TSQLDataSet->TSQLConncetion.

procedure TDaoServerClass.pprAlterar(ipObj: TDBXReader);
var
  vaCds: TClientDataSet;
  I: Integer;
begin
  vaCds := TClientDataSet.Create(nil);
  try
    TDBXClientDataSetReader.CopyReaderToClientDataSet(ipObj, FCds);
    vaCds.Data := FCds.Data;
    // vou alterar todos os registros agora. Tenho que fazer isso pois senao na hora de fazer o applyUpdates nada ira ocorrer
    for I := 0 to FCds.FieldCount - 1 do
      begin
        if not (pfInKey in (FCds.Fields[i].ProviderFlags)) then
          begin
            FCds.Edit;
            FCds.Fields[I].Clear;
            FCds.Post;
          end;
      end;
    // zerando o ChangeCount do CDS
    FCds.MergeChangeLog;
    // voltando os valores originais. Fazendo isso, faço o CDS achar que seus valores foram alterados, realizando um update ao inves do insert no momento do apply.
    for I := 0 to FCds.FieldCount - 1 do
      begin
        FCds.Edit;
        FCds.Fields[I] := vaCds.Fields[I];
        FCds.Post;
      end;
    // gravando no banco
    FCds.ApplyUpdates(0);
  finally
    vaCds.Free;
  end;

var
   FConnetion:TDBXConnection;
   cmd: TDBXCommand;
begin
   Fconnetion:=TDBXConnectionFactory.GetConnectionFactory.GetConnection
        ('COnexaoValida','SYSDBA','masterkey');
try
   cmd:=Fconnetion.CreateCommand;
    try    
     cmd.Text := 'UPDATE '+Table+ ' SET '+Fields+'='+QuotedStr('Alterar')+' Where Country = '+QuotedStr('Condicao');
      Result := cmd.ExecuteQuery;  //Retorno é Nil eu utilizo o cmd.ExecuteUpdate para comandos de Atualização
    except
      raise;
    end;
finally
 Fconnetion.free;
end;
end;

TDaoServerClass = class abstract(TPersistent)
  strict private
    procedure ppvCommit(ipCds: TClientDataSet);
  strict protected
    FNomeTabela: string;
    FDataSet: TSQLDataSet;
    FProvider: TDataSetProvider;
    FCds: TClientDataSet;
    FCommand: TDBXCommand;

    function fprSalvar(ipObj: TDBXReader): Integer; virtual;
    procedure pprAlterar(ipObj: TDBXReader); virtual;
    procedure pprExcluir(ipId: Integer); virtual; abstract;
    function fprBuscar(ipId: Integer): TDBXReader; virtual;
    function fprBuscarTodos: TDBXReader; virtual;
...
//restante do codigo omitido

var
    vaDao:TDaoUsuarioServerClient;
    vaReader:TDBXReader;
begin
  DataModule.ClientDataSetUsuario.open;//nao traz nada pq no server eu coloquei no SQL where codigo =0;
  vaDao := TDaoUsuarioServerClient.Create(ClientModule1.SQLConnection1.DBXConnection);
  vaReader := vaDao.fprBuscarTodos;
  TDBXClientDataSetReader.CopyReaderToClientDataSet(vaReader, DataModule.ClientDataSetUsuario);//carrego o Cds
end;

procedure TForm1.btnAlterarClick(Sender: TObject);
var
  vaUser: TDaoUsuarioServerClient;
  vaReader: TDBXReader;
begin
  try
    DataModule.ClientDataSetUsuario.Post;
    vaUser := TDaoUsuarioServerClient.Create(DataModule.SQLConnection1.DBXConnection);
    vaReader := TDBXDataSetReader.Create(DataModule.ClientDataSetUsuario);
    vaUser.pprAlterar(vaReader);
  except
    on e: Exception do
      ShowMessage(e.Message);

  end;
end;