FiveTech Software tech support forums

... Una pequeña duda, ¿es posible usar ordkeycount() ó reccount() para que devuelva el total de registros de la tabla pero SIN SUMAR los que están borrados? ¿Existe otra función que desconozco? Actualmente para determinados procesos que necesito conocer el total de registros sin incluir los borrados ...

... WHERE rtrim(CODIGO)" + "='" + oUni:ccodigop + "'" TRY oApp:oCn:Execute(cCmdSql) Msginfo("Tabla Con los registros Borrados " ) CATCH oError MsgInfo("No pude ejecutar el comando " ) RETURN(.F.) END

... + "impcont " + "WHERE " + "CODIGO='" + oUni:ccodigop + "'" TRY oCn:Execute(cCSql) Msginfo("registros Borrados " ) CATCH oError MsgInfo("No pude ejecutar el comando " ) RETURN(.F.) END

... Ahora esta clase se puede usar para leer un lote de registros de una tabla DBF o MYSQL. Estos registros pueden ser editados en memoria, añadidos y borrados y luego guardar (o descartar) todos los cambios, incluidas las adiciones y eliminaciones, en la tabla DBF o MySQL. - El método New(), ahora ...

... a .T. cuando usamos SET DELETED IS OFF. Se pone por defecto a .F. cuando usamos SET DELETED IS ON. Cuando está puesto a .T., todos los registros borrados mientras navegamos, son recuperados y sobrescritos. 6. bTrigger (Opcional) - Si se especifica, el bloque de código se ejecuta para cada registro, ...

Que raro.
En mi versión FWH 1204, los EMF son borrados inmediatamente después de cerrar el preview.
Por supuesto si no cierras el preview no se puede borrarlos.

Tienes modificada la classe tprinter, metodo end()?

Seria bueno que mostraras tu código.

Saludos.

Hola Karinha un gusto conocerte! muchas gracias por tu aporte. Lo probe pero los *.EMF siguen sin permitir ser borrados hasta que no salgo totalmente de la aplicación o entro de nuevo. Por lo que veo la Rpreview los genera y los abre para mostrarlos y luego no los libera mas y ...

... con Fivewin 18 en una función Imprime() he notado que los archivos EMF (Enhanced meta file) generados por el preview de la impresión no son borrados automáticamente una vez que el dialogo de preview de la impresión se cierra, los archivos emf permanecen el directorio "TEMP". No ...

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

Antonio,

A mí

Code: Select all  Expand view

Local nTotalRegistros:= ( cUsaBase )->(OrdKeyCount())

me está dando el total de registros menos los borrados.

¿Será porque los índices están construídos con FOR !DELETED() ?

Manuel, Euclides,

Solucionado el que la expresión a usar sea del mismo tipo que el campo

Implementada la tecla Supr en los browses

Como podemos contar los registros descartando los borrados ?

https://bitbucket.org/fivetech/fivewin-contributions/downloads/fivedbu_20160411.zip

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

Ya lo he visto,

Pasa por hacer un proceso lento de copiar todos los registros que no estén borrados, a otra dbf, luego borrar y renombrar.

La idea era, si fuera posible hacer que pack() y zap() de harbour, funcionaran en win CE.

... Índice no se puede colocarse aquí. Sólo colocar aquí los verdaderos UDF y funciones que cambian el tamaño de expresiones. HACER 1) Los registros borrados no implementan.intentaremos utilizar maromano grandes rutinas. 2) Nueva opción de la base de datos SET ADO DEFAULT TO .. ​​CLASSNAME donde ...

... (como decimos aqui) José: Efectivamente, uso una function llamada proceso() donde envío lo que hizo el usuario. Solo la uso para modificaciones o borrados. Ejemplo, despues de comparar los datos pertinentes, si estos son diferentes hago lo siguiente: if cDescrip <> cDescripAnter Proceso(cNomUser+ ...