Pues sÃ. Lo ideal serÃa poder obtener todo el código y recompilar para que funcione en win7 y win10
Hi Antonio.
I think it would be wise to check te syntax of the substituition expression before execute it.
The program aborts with "Syntax error"
Regards, Euclides
¡ Sorprendente la rapidez, Antonio !
He realizado algunas pruebas y los resultados han sido correctos. Sólo he encontrado que si se deja la expresión sin contenido se produce un error irrecuperable.
Igualmente, si el tipo de dato con el que se alimenta la expresión es distinto al del campo, se produce un error, aunque recuperable.
En otro orden de cosas, en la vista del fichero, si se borra un registro, aparece momentáneamente en color rojo y luego desaparece.
Igualmente si existen registros borrados en el fichero no aparecen pero sà que cuentan para el total de registros. SerÃa interesante mostrar todos los registros
(discriminando los borrados como ahora, en color rojo) o poner un CHECKBOX para activar la vista con todos los registros o los activos solamente.
Relacionado con lo anterior serÃa interesante activar la tecla "Supr" para eliminar registros y un PACK para empaquetar el fichero.
Son sólo sugerencias. Muchas gracias.
Sigo probando.
@ 9.5, 5.9 BUTTON FWString( "&Ok" ) OF oDlg SIZE 45, 13 ;
WHEN ( !Empty( cExpression ) .and. ( !Empty( cForCondition ) .or. !Empty( cWhileCondition ) ) ) ;
ACTION ( nRecNo := RecNo(),;
.../...Gracias Cristóbal. De momento no quiero tocar nada por si Antonio implementa más cambios y asà no tener que andar tocando el código original.
Antonio, respecto al PACK ya he visto que está implementado. Lo habÃa pasado por alto.
Tal vez con OrdKeyCount() ?
Manuel,
Con OrdKeyCount() está devolviendo el total de registros, independientemente de SET DELETED ON | OFF
No se me ocurre como hacerlo sin tener que recorrer toda la DBF lo cual hay que evitar
Local nTotalRegistros:= ( cUsaBase )->(OrdKeyCount())Manuel,
Si, seguramente es por eso
No se cual será la manera más sencilla de hacerlo. Crear un Ãndice temporal en memoria ?
Antonio, la verdad es que no sé si estarÃa justificado un Ãndice temporal para una cuestión menor como ésta.
Lo que quizá sà que podrÃa implementarse es OrdkeyCount() y si se abre el fichero de datos con un Ãndice asociado que esté creado con !Deleted()
mostrarÃa el total de todos los registros menos los borrados, y si el Ãndice está creado sin ésta condición mostrarÃa el total de todos los registros, incluidos los borrados.
De esta manera el total de registros reflejados se corresponderÃa más fielmente con el proceso abierto.