Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Error al hacer un insert en un clientdataset (https://www.clubdelphi.com/foros/showthread.php?t=59992)

Walterdf 16-09-2008 18:53:03

Error al hacer un insert en un clientdataset
 
Hola gente.
Estoy realizando una aplicación para hacer pedidos de mercadería. Lo que hago (o intento hacer) es usar un ClientDataSet para ir guardando temporalmente los articulos que el usuario va eligiendo para luego mandar todos los registros a una tabla (Paradox).
El insert lo hago con un procedimiento que es llamado cada vez que el usuario selecciona un artículo:

Código:

procedure TdmDomain.InsertItemToOrder(item : TArticle) : boolean;
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;

El primer registro aparentemente lo inserta (lo veo en el dbgrid atado a ese clientdataset) pero cuando intento insertar el segundo me tira este error:

Project PPedidos.exe raised exception class EDBClient with message ". Process stopped. Use Step or Run to continue.

(El mensaje del error sale en blanco, no se porque)

Es muy probable que esté metiendo la pata, no tengo mucha experiencia con los clientdataset. El ApplyUpdates() lo tengo en un botón que finaliza el pedido, es decir, una vez que el usuario terminó de seleccionar todos los artículos del pedido.

Si alguien puede darme una mano, se lo agradeceré.
Saludos!

fox18 18-09-2008 06:36:44

prueba poner tu procedimiento en un boton para hacer la prueba manualmente


La franja horaria es GMT +2. Ahora son las 09:25:01.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi