Duda con el uso del ClientDataSet

[Walterdf]

Lo explico mejor. Tengo un formulario donde el usuario va agregando los articulos, y 2 datamodules (1 para la logica de negocios donde estan los clientdatasets y otro para el acceso a datos donde estan las ttables Paradox).

Lo que hago en el form cuando el usuario inserta un articulo es llamar al procedimiento InsertarItem del datamodule de la siguiente manera:

procedure TdmDomain.InsertarItem(item : TArticle);
begin
  with cdsDetailOrder do
  begin
    Open;
    Insert;
    FieldByName('CODIGO').AsString := item.Code;
    FieldByName('MARCA').AsString := item.Mark;
    FieldByName('PRECIOUNITARIO').AsFloat := item.Price;
    FieldByName('CANTIDAD').AsInteger := item.Quantity;
    Post;
  end;
end;

O sea que cada vez que el usuario inserta un item se llama a este procedimiento. El error me lo tira cuando realizo el 2do insert, o sea que ni llego a hacer ApplyUpdates y es el siguiente:
Project PPedidos.exe raised exception class EDBClient with message ". Process stopped. Use Step or Run to continue.

Si lo hago de esta manera:

procedure TdmDomain.InsertarItem(item : TArticle);
begin
  with cdsDetailOrder do
  begin
    Open;
    Insert;
    FieldByName('CODIGO').AsString := item.Code;
    FieldByName('MARCA').AsString := item.Mark;
    FieldByName('PRECIOUNITARIO').AsFloat := item.Price;
    FieldByName('CANTIDAD').AsInteger := item.Quantity;
    Post;
    ApplyUpdates(0); //nueva linea
    Close; //nueva linea
  end;
end;

Me inserta el registro sin inconvenientes pero esto significa insertar en la los registros tabla de a 1.

Evidentemente algo estoy haciendo mal.
Muchas gracias!!

[[enecumene]]

Dos cosas, intenta hacer el open del clientdataset fuera del procedimiento, o sea, tenerlo abierto todo el tiempo, puede ser al crear el formulario y la otra agrega lo siguiente:

Código Delphi [-]
ApplyUpdates(-1);

Comentanos como te fue.

Saludos.

[Walterdf]

mmmmm, no entiendo en que cambia ApplyUpdates(-1)?, me sigue insertando los items de a 1. ¿?

[[enecumene]]

Empezado por Walterdf

mmmmm, no entiendo en que cambia ApplyUpdates(-1)?, me sigue insertando los items de a 1. ¿?

Me refería así:

Código Delphi [-]
procedure TdmDomain.InsertarItem(item : TArticle);
begin
  with cdsDetailOrder do //Sin el open
  begin    
    Insert; 
    FieldByName('CODIGO').AsString := item.Code;
    FieldByName('MARCA').AsString := item.Mark;
    FieldByName('PRECIOUNITARIO').AsFloat := item.Price;
    FieldByName('CANTIDAD').AsInteger := item.Quantity;
    Post;
  end;
end;

y en el botón donde tienes el applyupdates le cambias el 0 por -1.

Saludos.

PD. el open del ClientDataset lo abres cuando creas el form u en otro sitio.

[Walterdf]

Haciendolo de esa manera, al hacer el Post (en el 2do. registro) me tira el error que comentaba antes.

[Neftali [Germán.Estévez]]

A mi con un código como este (lo he hecho a partir del tuyo) funciona perfectamente y me inserta varios registros.

Código Delphi [-]
var
  i:Integer;
begin

  for i := 0 to 5 do begin
    with ClientDataSet1 do
    begin
      Insert;
      FieldByName('EmpNo').AsInteger := -(i - 1);
      FieldByName('LastName').AsString := 'aaaaaaa' + IntToStr(i);
      FieldByName('FirstName').AsString := 'bbbbbbb'  + IntToStr(i);
      FieldByName('PhoneExt').AsInteger := 500 + i;
      Post;

    end;
  end;

  ClientDataSet1.ApplyUpdates(-1);

Revisa que el error no te lo estén generando los datos que insertas; Problemas con claves duplicadas, índices únicos,...

Revisa el parámetro entero del ApplyUpdates que te da el número de errores; También puedes intentar programar alguna cosa en los eventos que se refieren a los posibles errores en la inserción; OnPostError, OnAfterPost, OnAfterApplyUpdates,...

[JosepGA]

Hola,

mira el evento OnReconcileError del ClientDataSet, en la ayuda te dice como hacer que te aparezca una ventana donde se muestra el motivo que causa el error del ApplyUpdates, pero para ello deberás ponerle ApplyUpdates( 0 )

Un saludo