Hola colegas:
La pregunta esta vez es por algo relacionado con la funcion GetNextModified
y su comportamiento.
Tengo un formulario en el que permito Insertar o Eliminar registros en un
Cursor creado con Select ...From ... Into Cursor xxx ReadWrite al que le
establezco almacenamiento de tablas en buffer (Buffering=5) y necesito
almacenar en un arreglo (Scatter to<arreglo>) los registros que han sido
agregados o modificados pues en ese cursor pueden existir mas registros que
no hayan sufrido cambios. Me interesa conocer el contenido de los que han
cambiado, y coloco el siguiente codigo en el evento Destroy del form.
Select MiCursor
Go Top
nreco=GetNextModified(0)
If m.nReco<>0
Do While .t.
Scatter to aModi
...... Otras instrucciones
nReco=GetNextModified(m.nReco)
If m.nReco=0
Exit
EndIf
EndDo
EndIf
Muy parecido a lo que esta en la ayuda para esta funcion y todo esta bien y
funciona mientras que no haya ocurrido una ELIMINACION o BORRADO de algun
registro porque entonces GETNEXTMODIFED() no reconoce cambio alguno aunque
los haya habido.
Estoy en un error de concepto o garrafal como quiera llamarse o debo hacer
algo extra para lograr lo que quiero.
Esperando que me hayan entendido y por supuesto que me puedan ayudar.
Les saluda
JoRoGar
