Clientdataset post append error

[ecfisa]

Hola

Empezado por turbopascual5.0

....
Tengo un error que no me habia ocurrido nunca y ya no sé donde buscar una solución

clientdataset3.append;
clientdataset3tipo.value:='Factura';
clientdataset3.Post;
clientdataset3.append;
clientdataset3tipo.value:='Recibo';     // en esta linea da error  , clientdataset3: dataset  not in edit or insert mode 
clientdataset3.Post;

¿alguna idea?
...

No, mediando sólamente ese código no me lo explico... Hice un ejemplo simplificado para que puedas corroborarlo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  fld: TField;
begin
  ClientDataSet1.Close;
  ...
  fld              := TStringField.Create(ClientDataSet1);
  fld.FieldName    := 'cdsTipo';
  fld.DataSet      := ClientDataSet1;
  fld.DisplayLabel := 'Tipo';
  fld.Size         := 10;
  ClientDataSet1.CreateDataSet;
  DataSource1.DataSet := ClientDataSet1;
  DBGrid1.DataSource  := DataSource1;
end;

procedure TForm1.btAddClick(Sender: TObject);
begin
  ClientDataSet1.Append;
  ClientDataSet1.FieldByName('cdsTipo').Value := 'Factura';
  ClientDataSet1.Post;

  ClientDataSet1.Append;
  ClientDataSet1.FieldByName('cdsTipo').Value := 'Recibo';
  ClientDataSet1.Post;
end;

Muestra:


Saludos