Fórum Erro com clientdataset #264794

procedure TForm1.DataSetProviderBeforeUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TClientDataSet; UpdateKind: TUpdateKind;
  var Applied: Boolean);
begin
   // Setando as chaves...
   // Primeiro eu vou descobrir qual tabela está sendo trabalhada pelo DSP...
   // E depois eu seto as chaves para aquela tabela...
   // O parametro SourceDS me indica qual tabela que é... E o DeltaDS é aonde irei setar as chaves...

   if SourceDS = ADODataSet_Master then
   begin
      DeltaDS.FieldByName(´Codigo´).ProviderFlags := [pfInUpdate, pfInWhere, pfInKey];
   end;

   if SourceDS = ADODataSet_Detalhe then
   begin
      DeltaDS.FieldByName(´Codigo´).ProviderFlags    := [pfInUpdate, pfInWhere, pfInKey];
      DeltaDS.FieldByName(´Sequencia´).ProviderFlags := [pfInUpdate, pfInWhere, pfInKey];
   end;

   // Tratamento opcional...
   // Nesse caso eu vou criar o autoincremento da tabela e definir a relação master-detalhe...
   // Primeiro vou verificar se é insert através do parametro UpdateKind...
   // Depois verifico a tabela e faço o tratamento dela...

   if UpdateKind = ukInsert then
   begin
      if SourceDS = ADODataSet_Master then
      begin
         // Esse codigo pega o proximo codigo atráves da ADOQuery_Proximo e joga ele
         // No campo Codigo da tabela Master...

         ADOQuery_Proximo.Close;
         ADOQuery_Proximo.Open;

         DeltaDS.FieldByName(´Codigo´).NewValue := ADOQuery_ProximoCodigo.AsInteger;
         // Obs - Para mudar qualquer valor do DeltaDS você deve usar o metodo NewValue
      end;

      if SourceDS = ADODataSet_Detalhe then
      begin
         // Aqui é feita a ligação master-detalhe...
         // Pego o codigo da tabela master e jogo na tabela detalhe...
         // A propriedade DataSetField.Delta é a tabela acima da tabela trabalhada...

         DeltaDS.FieldByName(´Codigo´).NewValue := DeltaDS.DataSetField.Delta.FieldByName(´Codigo´).AsString;
      end;
   end;
end;