Juan Carlos,
Es decir que cada vez que dos terminales modifiquen los
datos del mismo registro, el último que intente actualizar
los datos obtendrá ese error. Es correcto ???
Si... ese es el comportamiento por defecto. Si quieres evitarlo puedes poner la data ::lNoCompare a .T.
No obstante, puedes modificar directamente el método UPDATE y marcar lo siguiente:
/*
if ::RecordHasChanged(@aChanged)
if aChanged[1] == 0
::SQLAlert("Record has been deleted since the last retrieve operation, Update aborted")
else
cFields := ""
Aeval(aChanged, {|v,e| cFields += ltrim(str(v)) + iif( e < len(aChanged),", " ,"" )})
::SQLAlert("Some record fields ("+cFields+;
") have change since the last retrieve operation, Update aborted")
endif
return .f.
endif
*/
Saludos,
José Luis Capel