Duda con el uso del ClientDataSet

[Walterdf]

Gracias enecumene por tu respuesta.

Entonces, no se que es lo que estoy haciendo mal, sigo con el mismo problema que comentaba en aquel hilo.

Gracias. Un abrazo

[[enecumene]]

Hola, ¿y como haces el Applyupdate?, inserta el código si no es ninguna molestia.

Saludos.

[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.