Clientdataset y concurrencia

[Johnny Q]

justamente eso es lo que estoy haciendo, antes de guardar verifico cual es el consecutivo mayor y lo incremento en 1, y cuando ya lo tengo intento asignarlo a los detalles editandolos con un While pero algo raro sucede y solo me reasigna algunos y otros me los guarda con el consecutivo sin incremento

El codigo para modificar los detalles es el siguiente:

 	ClientDataSet2.first;
 	while not ClientDataSet2.eof do
 	begin
 	  ClientDataSet2.Edit;
 	  ClientDataSet2.FieldValues['codigo'] := qryMaximomaximo.Value + 1;
 	  ClientDataSet2.Post;
 	  ClientDataSet2.Next;
 	end;