Ver Mensaje Individual
  #8  
Antiguo 17-09-2008
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Reputación: 22
enecumene Va por buen camino
Cita:
Empezado por Walterdf Ver Mensaje
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.
__________________

Mi BLOG - ¡Joder, leanse la guia de estilo!
Las Palabras son enanas, los ejemplos gigantes.
Responder Con Cita