Fórum DataSet Provider #268813

  Campo := DeltaDS.FieldCount;
  For i := 0 To DeltaDS.FieldCount -1 Do
    Begin
      If(not VarIsClear(DeltaDS.Fields[i].NewValue)) then
        Begin
          CdsLog.Open;
          CdsLog.Insert;
          CdsLoglog_usuCodigo.Value  := 1;
          CdsLoglogData.AsDateTime   := Now;
          CdsLoglogTabela.AsString   := ´Cedentes´;
          CdsLoglogCampo.AsString    := DeltaDS.Fields[i].FieldName;
          CdsLoglogValorAntigo.Value := DeltaDS.Fields[i].OldValue;
          CdsLoglogValorAtual.Value  := DeltaDS.Fields[i].NewValue;
          CdsLoglogAcao.Value        := Acao;

            Case UpdateKind of
              ukModify: Acao := ´Alteração´;
              ukInsert: Acao := ´Inserção´;
              ukDelete: Acao := ´Exclusão´;
            End;

          CdsLoglogChave.Value := CdsCedentescdtCod_Contrato.Value;
          CdsLog.Post;
          CdsLog.ApplyUpdates(-1);
      End;

    end;