Cita:
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 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.