Duda con el uso del ClientDataSet

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

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