miércoles, abril 22, 2015

Rutinas VFP: Cómo obtener todos los nombres de archivo de un directorio y subdirectorios

Por: Fernando D. Bozzo

Esto parece que es algo bastante solicitado, así que ahí va, lista para usar en una librería de procedimientos PRG.

Solo requiere indicar el directorio, un array por referencia y una variable por referencia para devolver la información.



*-- USO: Suponiendo que se copie en LIB.PRG
SET PROCEDURE TO lib.prg
DIMENSION aFiles(1,1)
nCount = 0
get_FilesFromDirectory( "C:\DESA\Plastic\", @aFiles, @nCount)
? nCount




    PROCEDURE get_FilesFromDirectory
        LPARAMETERS tcDir, taFiles, lnFileCount
        EXTERNAL ARRAY taFiles

        LOCAL laFiles(1), I, lnFiles

        IF TYPE("ALEN(laFiles)") # "N" OR EMPTY(lnFileCount)
            lnFileCount = 0
            DIMENSION taFiles(1)
        ENDIF

        tcDir    = ADDBS(tcDir)

        IF DIRECTORY(tcDir)
            lnFiles = ADIR( laFiles, tcDir + '*.*', 'D', 1)

            *-- Busco los archivos
            FOR I = 1 TO lnFiles
                IF SUBSTR( laFiles(I,5), 5, 1 ) == 'D'
                    LOOP
                ENDIF
                lnFileCount    = lnFileCount + 1
                DIMENSION taFiles(lnFileCount)
                taFiles(lnFileCount)    = tcDir + laFiles(I,1)
            ENDFOR

            *-- Busco los subdirectorios
            FOR I = 1 TO lnFiles
                IF NOT SUBSTR( laFiles(I,5), 5, 1 ) == 'D' ;

                       OR LEFT(laFiles(I,1), 1) == '.'
                    LOOP
                ENDIF
                get_FilesFromDirectory( tcDir + laFiles(I,1), ;

                   @taFiles, @lnFileCount )
            ENDFOR
        ENDIF
    ENDPROC



Saludos!

martes, abril 21, 2015

Visual FoxPro - Selección de artículos y notas sobre problemas y troubleshoting para tener a mano

[2015/04/21]

Esta es una selección de artículos y notas que iré actualizando con el tiempo, ya que a medida que van saliendo nuevas versiones de Windows, aparecen nuevos problemas para las aplicaciones que usan file-sharing como FoxPro, Acces y varias otras. Las más nuevas las iré agregando arriba.


(Muy buena explicación técnica sobre cacheo en samba)
Re: Network Slow Query / Christof Wollenhaupt / 2014.12.18

http://leafe.com/archives/msg/497230


Data corruption when multiple users perform read and write operations to a shared file in the SMB2 environment
https://support.microsoft.com/en-us/kb/2028965

 .

sábado, abril 18, 2015

Nueva versión v2.5.9 de las herramientas Visual FoxPro 9 para PlasticSCM (Incluye FoxBin2Prg.exe v1.19.42)


Estas herramientas son un grupo de scripts vbs y programas Visual FoxPro 9 que se configuran dentro de PlasticSCM (herramienta de control de versiones) para poder invocar a FoxBin2Prg (incluye solo el EXE) desde dentro de la interfaz de Plastic.


Está liberada la versión v2.5.9 de las herramientas Visual FoxPro 9 para PlasticSCM, con los siguientes cambios:

  • Actualizada la versión de FoxBin2Prg (solo el EXE) a la versión v1.19.42 
  • Adaptados los scripts vbs y exe a la nueva versión de FoxBin




El README.txt explica como se configura en Inglés y Español, y también está explicado en esta nota: Cómo configurar las Herramientas de VFP 9 para Plastic


Nota: Los fuentes del proyecto FoxBin2Prg y el historial de ambios, están en CodePlex, en este link.


Como actualizar las existentes:
Con descargarlas y reemplazar los archivos en el sitio que los hayan puesto antes es suficiente.


Link de descarga de GitHub:
https://github.com/fdbozzo/plasticscm-tools-for-visual-foxpro-9


Saludos!

Nueva versión v1.19.42 de FoxBin2Prg (arreglos, mejoras, internacionalización API)

FoxBin2Prg es un programa pensado para sustituir a SccText(X) y TwoFox y mejorar sus funcionalidades, generando versiones de texto estilo-PRG que pueden ser modificadas y permiten recrear el binario original. Puede ser utilizado con herramientas SCM (Administradores de Control de Código Fuente, como VSS, CVS, SVN) y herramientas DVCS (como Git, Mercurial, Plastic, and others), o como programa independiente, para hacer operaciones de Diff (ver diferencias) y Merge (mezclar cambios).

Está liberada la versión v1.19.42 de FoxBin2Prg con los siguientes cambios:

  • Mejora: Agregada validación de existencia del runtime VFP 9 SP1.
    • Esta validación está agregada porque quienes no tengan como mínimo el SP1, el programa les funcionará mal, pudiendo dar errores extraños o generando mal menus u otros componentes. Esto es debido a todos los bugs que tenía VFP 9 original, y que fueron corregidos mayormente con el SP1.
  • Bug Fix: Compatibilidad con SourceSafe rota porque ocurre un error cuando sccapi consulta el soporte de archivo (Tuvia Vinitsky).
    • Para quienes usen FoxBin con SourceSafe, esta versión soluciona el problema comentado.
  • Bug Fix scx/vcx: Procesar solo un nivel de TEXT/ENDTEXT, ya que este comando no se puede anidar (Lutz Scheffler).
    • Se estaban procesando TEXT/ENDTEXT anidados, lo que podía provocar errores en casos especiales muy raros.
  • Mejora: Hacer las descripciones de algunos mensajes de error más descriptivos y precisos (Lutz Scheffler).
    • Algunos mensajes de error no eran del todo claros y no ayudaban mucho a localizar el problema. Se han mejorado algunos mensajes agregando más detalles técnicos que facilitan localizar el problema dentro de las librerías con problemas.
  • Mejora (API): Permitir especificar un archivo de entrada con path relativo (Lutz Scheffler).
    • Hasta la versión anterior solo se podían indicar archivos con path absoluto, ahora se pueden indicar también de forma relativa, como "dir\subdir\*.pjx".
  • Bug Fix scx: Los metadatos del entorno de datos no se generan bien cuando el entorno de datos es renombrado.
    • Cuando se crea un form, por defecto el entorno de datos se llama "Dataenvironment", pero se puede cambiar ese nombre. FoxBin no reconocía el entorno de datos cuando si hacía esto.
  • Bug Fix: Agregada generación del PJX/PJ2 cuando se indica "file.pjx", "*" (Lutz Scheffler).
    • Hasta ahora, cuando se indicaba procesar un proyecto con todos sus archivos, solamente se procesaban los archivos del proyecto, pero no el proyecto en sí. Ahora también se procesa el PJX/PJ2 al indicar "*".
  • Algunas mejoras en las translaciones al Alemán (Lutz Scheffler)
    • Lutz corrigió algunas de las traducciones que estaban hechas con Google Translate :)
  • Mejora: Agregado multiprocesamiento de proyectos (*.pjx, *.pj2) cuando se especifica "file.pjx", "*" (Lutz Scheffler)
    • Hasta ahora solo se podía procesar un projecto completo por vez; ahora se pueden procesar múltiples proyectos en un mismo procesamiento, lo que permite optimizar el procesamiento de los archivos compartidos entre esos proyectos, procesándolos una sola vez.
  • Mejora: Cambiada la clase de base de FoxBin2Prg a Session (Lutz Scheffler).
    • Antes era de tipo Custom, ahora al ser de tipo Session permite que los cursores internos no alteren el entorno de trabajo cuando se usa FoxBin desde la ventana de comandos de Fox con DO.
  • Mejora: Permitir procesar todos los archivos de los proyectos sin convertir los PJX/2, con "*-" (Lutz Scheffler).
    • Esta nueva opción "*-" permite procesar los archivos de los proyectos excluyendo al propio proyecto PJX/PJ2.
  • Bug Fix pjx/pj2: Si se usa un fin de línea (CR+LF) en los datos de propiedades del diálogo "Build" del pjx, la generación del pj2 queda malformada.
    • En un proyecto, al intentar generar un ejecutable o DLL se habilita un cuadro de diálogo que permite seleccionar el botón "Version" donde hay varios metadatos del proyecto, incluyendo la versión y varios otros como Comments, Company Name, etc. Si en alguno de estos campos se pega un valor que contiene fines de línea (Fox no permite usar Enter en ellos, pero al copiar/pegar desde otro sitio, no lo valida), cuando se exporta el proyecto a texto esos valores quedan corrompidos porque se exportan en formato multi-línea en vez de en una sola línea, no permitiendo regenerar el proyecto original. Se corrige ese problema codificando los fines de línea para luego restaurarlos.
  • Mejora: El archivo de configuración por defecto foxbin2prg.cfg ha sido renombrado a foxbin2prg.cfg.txt para no sobreescribir los setetos del cfg del usuario (Lutz Scheffler).
    • Muchos usuarios usan un archivo de configuración  personalizado en el directorio de FoxBin, y cuando se descargan las nuevas versiones se les pisa con el que se incluye por defecto. Como el archivo incluido está solamente a efectos de documentación y para usarlo como modelo en el que basarse, se ha renombrado a foxbin2prg.cfg.txt para evitar que vuelva a sobreescribir las configuraciones de los usuarios en la actual y futuras versiones.
  • Mejora: Agregado el soporte de salida DOS errOut e implementado en el método writeErrorLog cuando se loguean errores.
    • El sistema operativo tiene una entrada estándar (stdIn) una salida estándar (stdOut) y una salida especial para errores (stdErr). Cuando ocurre un error durante el procesamiento de FoxBin, se envía la información del mismo a la salida de error stdErr, además de generar el log de errores. Esto permite que se pueda capturar dicha salida desde otros programas en tiempo real.
  • Mejora: Agregado el soporte completo de máscaras de archivo *? para multi-procesamiento de archivos de la misma extensión (Lutz Scheffler).
    • Hasta ahora solo se soportaba el procesamiento de un archivo (fullpath-filename) o de todos los archivos de una extensión (fullpath-*.ext), ahora se permite cualquier combinación de comodines, lo que permite filtrar los archivos por criterios mucho más flexibles.
  • Mejora (API): Agregado nuevo parámetro para permitir un archivo CFG principal alternativo (Lutz Scheffler).
    • El método API execute() permite un nuevo parámetro cCFG_File para indicar un archivo de configuración en una ruta distinta a la predeterminada, que actualmente es la ruta de instalación de FoxBin.
  • Mejora (API): Agregado nuevo método get_Processed() para obtener información acerca de los archivos procesados (Lutz Scheffler).
    • El nuevo método API get_Processed() devuelve un array de 6 columnas (cFile, cInOutType, cProcessed, cHasErrors, cSupported, cExpanded) con información de procesamiento según los parámetros indicados de entrada. Si además se usa la propiedad l_ProcessFiles=.F. antes de realizar la consulta, se puede obtener información parcial de procesamiento, pero sin realizar el procesamiento, lo que lo hace muy rápido y útil cuando se quiere obtener la lista de archivos que se procesarán.
  • Mejora: Agregada nueva salida DOS stdOut para el procesamiento de archivos (Lutz Scheffler).
    • Mientras se procesan archivos, se envía la información del proceso a la salida estándar del sistema (stdOut) con la misma información que devuelve get_Processed, pero ubicando la columna del nombre de archivo al final. Esto permite que se pueda capturar dicha salida desde otros programas en tiempo real.
  • Bug Fix: Arreglada la cancelación del proceso con la tecla Esc.
    • En la versión anterior no se podía cancelar el proceso con la tecla Esc, ni con el botón Cancelar. Ya está solucionado.
  • Mejora: Ordenar alfabéticamente los campos de las tablas/vistas para facilitar el diff (ver diferencias) y el merge (mezclar cambios), mientras se mentiene una lista con el ordenamiento original de los campos para la correcta regeneración del DBC (Ryan Harris).
    • Cuando se modifican vistas o miembros de una Base de Datos, la información no mantiene siempre el mismo orden, lo que puede provocar que al exportar a texto se vea como si se hubieran realizado muchos cambios, cuando realmente por ahi se agregó solo un campo en una vista. Ahora se ordenan los miembros del DBC (conexiones, tablas, vistas, índices y campos de tablas y vistas) alfabéticamente, lo que disminuye notoriamente las diferencias al hacer estos cambios.
  • Mejora: Aplicar ClassPerFile a las conexiones, tablas, vistas y SPs de los DBC (Ryan Harris).
    • Cuando una Base de Datos tiene mucha información, tablas, vistas, etc, el archivo de texto generado puede ser muy grande y difícil para comparar. Ahora es posible aplicar el mismo concepto de ClassPerFile a los DBC, donde se generará un archivo separado por cada conexión, tabla o vista y uno extra para todos los procedimientos almacenados, lo que facilita mucho comparar los miembros que cambien solamente.
  • Bug Fix vw: Ahora se guardan y restauran las propiedades Path y RecordCount de las vistas.
    • Cuando se usan vistas desconectadas, no se estaban exportando estas dos propiedades, y esa información se perdía al regenerar las vistas desconectadas. Ahora se generan.
  • Mejora: Nuevo icono App e imagen de fondo por defecto para FoxBin2Prg, configurable con el nuevo seteo de CFG "BackgroundImage".
    • Al fin, FoxBin tiene un icono e imagen de fondo que lo define :)
  • Bug Fix mnx: Los nombres de Pad de menú vacíos no se mantienen cuando se regenera un menú definido con nombres de Pad vacíos (Lutz Scheffler).
    • Cuando se crean menus, las opciones del primer nivel permiten que se defina el nombre del Pad, o que se deje en blanco. Si se dejaba en blanco FoxBin reemplazaba el nombre por uno secuencial único. Ahora se vuelve a dejar en blanco.
  • Mejora (API): Nueva propiedad "l_ProcessFiles" que permite configurarse a .F. cuando se usa foxbin2prg como objeto para obtener información de procesamiento de archivos con el método get_Processed sin realizar procesamiento real.
    • Esto es lo ya comentado antes para el método get_Processed()
  • Bug Fix frx/lbx: Limpiados algunos CR,LF,TAB sobrantes de algunos Tag de los FR2/LB2 que fueron introducidos en versiones anteriores (Ryan Harris).
    • Las versiones anteriores de FoxBin dejaban un fin de linea demás en algunas cláusulas Tag de los reportes (FRX) y etiquetas (LBX). Ahora se quita ese fin de línea demás.
  • Bug Fix scx/vcx/dbc: Eliminar archivos ERR cuando se procesa con el switch UseClassPerFile (Ryan Harris).
    • Cuando se usa ClassPerFile, no se estaban borrando los archivos .ERR al iniciar el proceso, como se hace con los archivos cuando no se usa este seteo. Ya está solucionado.
  • Mejora: Implementada la herencia de archivos CFG entre directorios.
    • Esta es una característica que ahorra muchísimos archivos de configuración cuando se usa FoxBin en múltiples proyectos, ya que además del archivo de configuración principal, que es el del directorio de instalación de FoxBin (si existe), se pueden usar archivos de configuración en uno o más directorios cuyas configuraciones se irán heredando en los subdirectorios, permitiendo tener unos pocos archivos CFG donde se cambien solo los seteos específicos que se necesiten y que controlen todos los subdirectorios bajo ellos. Por ejemplo, ahora es posible que un directorio tenga activada la compatibilidad de extensiones con SourceSafe y tener otro CFG en otro directorio con la configuración opuesta.
  • Mejora (API): Nuevo metodo get_DirSettings() que retorna un objeto CFG con los seteos para el directorio indicado (Lutz Scheffler).
    • Este nuevo método API permite devolver un objeto con los seteos que se aplican en el directorio indicado. Esto puede ser útil cuando se usa FoxBin para crear una interfaz con una herramienta SCM/DVCS como git, donde puede ser necesario conocer esta información.
  • Mejora: Permitir la generación de texto para una clase sola de una librería cuando se usa ClassPerFile (Lutz Scheffler).
    • FoxBin genera archivos completos, de una pieza o en partes (con ClassPerFile:1 ó 2). Ahora se puede solicitar la generación de una sola clase a texto, lo que permite ahorrar bastante tiempo cuando se quiere controlar el proceso a bajo nivel.
  • Mejora (API): Renombrados los nombres de los métodos a Inglés para facilitar su entendimiento internacional (Mike Potjer).
    • Este es un cambio importante que requiere que quienes usan FoxBin como objeto cambien algunos nombres de métodos que estaban en español a la nueva nomenclatura inglesa. El motivo del cambio sugerido es que FoxBin ha sustituido al SccText(X) y a TwoFox y se usa en varios países de habla inglesa y no inglesa (algunos países de América Latina, EEUU, Alemania, Francia, España y algunos otros) y los desarrolladores no Españoles tienen algunos problemas para adaptarse a los nombres en Español, lo que les dificulta usar la API, por lo que opté por usar nomenclatura estándar en Inglés, que es lo que usa la mayoría de programas. Igualmente los métodos publicados para usarse eran unos pocos (menos que los de la tabla de abajo), así que no requerirá mayor esfuerzo hacer las adaptaciones para usar los nuevos nombres. Además, al haber ahora una lista de métodos oficiales, ya no habrá cambios en este sentido. Se recomienda no usar los métodos no documentados, ya que esos sí pueden cambiar o incluso desaparecer.

Esta tabla resume los métodos más usados:

Antiguo nombre Nuevo nombre
Ejecutar Execute
TieneSoporte_* hasSupport_*
EvaluarConfiguracion EvaluateConfiguration
AvanceDelProceso updateProgressbar
cargar_frm_avance loadProgressbarForm
descargar_frm_avance unloadProgressbarForm


Ejemplo de uso de FoxBin desde la ventana de DOS para generar salida a stdOut:

C:\>foxbin2prg.exe "tests\datos_test\fb2p_dbc.dbc" | find /V ""
I,P1,E0,S1,X0,c:\tests\datos_test\fb2p_dbc.dbc
O,P1,E0,S1,X1,c:\tests\datos_test\fb2p_dbc.dc2
O,P1,E0,S1,X1,c:\tests\datos_test\fb2p_dbc.connection.remote_connection_dbf.dc2
O,P1,E0,S1,X1,c:\tests\datos_test\fb2p_dbc.connection.remote_connection_oracle.dc2
O,P1,E0,S1,X1,c:\tests\datos_test\fb2p_dbc.table.fb2p_depto.dc2
O,P1,E0,S1,X1,c:\tests\datos_test\fb2p_dbc.table.nombrelargodeldbf.dc2
O,P1,E0,S1,X1,c:\tests\datos_test\fb2p_dbc.view.rv_db_debug_setup.dc2
O,P1,E0,S1,X1,c:\tests\datos_test\fb2p_dbc.view.vista_local.dc2
O,P1,E0,S1,X1,c:\tests\datos_test\fb2p_dbc.view.vw_local_encuestas.dc2
O,P1,E0,S1,X1,c:\tests\datos_test\fb2p_dbc.view.vw_ora_convenios.dc2
O,P1,E0,S1,X1,c:\tests\datos_test\fb2p_dbc.view.vw_ora_dual.dc2
O,P1,E0,S1,X1,c:\tests\datos_test\fb2p_dbc.database.storedproceduressource.dc2

La última línea indica:
Output file (O), Processed (P1), Without Errors (E0), Supported (S1), Not Extended file (X0) and the Full path filename


Como actualizar el FoxBin2Prg existente:Con descargar el zip y reemplazar los archivos en el sitio que los hayan puesto antes es suficiente.


Link  de descarga de VFPx:
https://vfpx.codeplex.com/releases/view/116407

Link de descarga de GitHub:
https://github.com/fdbozzo/foxbin2prg


 Saludos!