From 209ec3d8e75fc62d04ace521d0008f95c62cbf4c Mon Sep 17 00:00:00 2001
From: fdbozzo <>
Date: Fri, 5 Jan 2018 18:39:31 +0100
Subject: [PATCH] BugFix vcx/scx: FoxBin2Prg should ignore the records that VFP
Designer ignores (Doug Hennig /
https://github.com/fdbozzo/foxbin2prg/issues/15)
---
FoxBin2PRGVersionFile.txt | 7 ++++--
foxbin2prg.prg | 52 ++++++++++++++++++++++++++++++++++++---
2 files changed, 54 insertions(+), 5 deletions(-)
diff --git a/FoxBin2PRGVersionFile.txt b/FoxBin2PRGVersionFile.txt
index 3f1bebc..79efbaf 100644
--- a/FoxBin2PRGVersionFile.txt
+++ b/FoxBin2PRGVersionFile.txt
@@ -2,8 +2,8 @@ Lparameters toUpdateInfo
Local lcNote
With toUpdateInfo
- .VersionNumber = 'v1.19.49.4'
- .VersionDate = Date(2017,12,04)
+ .VersionNumber = 'v1.19.49.6'
+ .VersionDate = Date(2018,01,04)
.SourceFileUrl = 'http://vfpxrepository.com/dl/thorupdate/Projects/FoxBin2Prg/FoxBin2Prg.Zip'
.Link = 'http://vfpx.codeplex.com/wikipage?title=FoxBin2PRG'
@@ -21,6 +21,9 @@ Demo video using FoxBin2Prg with PlasticSCM: http://youtu.be/sE4wQ50Itqg
Change History -------------------------------------------------------------
+2018/01/04 v1.19.49.6
+- BugFix vcx/scx: FoxBin2Prg should ignore the records that VFP Designer ignores (Doug Hennig / https://github.com/fdbozzo/foxbin2prg/issues/15)
+
2017/12/20 v1.19.49.5
- BugFix DBF: When FoxBin2PRG converts a DB2 file to a DBF file and imports the data (using DBF_Conversion_Support = 8), tabs at the start of lines in memo fields are lost (Doug Hennig / https://github.com/fdbozzo/foxbin2prg/issues/13)
diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index 6ae085d..33c9828 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -204,6 +204,7 @@
* 03/12/2017 JS&FDBOZZO v1.19.49.3 Bug Fix db2: Los campos "Double" asumen 2 decimales cuando se definen con 0 decimales (Jerry Stager)
* 04/12/2017 FDBOZZO v1.19.49.4 Cuando se usa ClassPerFile an Modo API y se importan clases simples, a veces sus nombres se toman sin comillas, provocando errores (Lutz Scheffler)
* 20/12/2017 DH&FDBOZZO v1.19.49.5 Bug Fix dbf: Cuando se importan datos de un DB2 a DBF (con DBF_Conversion_Support = 8), los tabs al inicio de los memo se pierden (Doug Hennig)
+* 04/01/2018 FDBOZZO v1.19.49.6 Bug Fix vcx/scx: FoxBin2Prg debería ignorar los registros que el diseñador de FoxPro ignora (Doug Hennig)
*
*
*---------------------------------------------------------------------------------------------------
@@ -321,6 +322,7 @@
* 31/08/2017 Jerry Stager Reporte bug db2 v1.19.48: Los campos "Double" asumen 2 decimales cuando se definen con 0 decimales (Agregado en v1.19.49.3)
* 03/12/2017 Lutz Scheffler Reporte Bug vx2 v1.19.49: Cuando se usa ClassPerFile an Modo API y se importan clases simples, a veces sus nombres se toman sin comillas, provocando errores (Arreglado en v1.19.49.4)
* 18/12/2017 Doug Hennnig Reporte Bug dbf v1.19.49: Cuando se importan datos de un DB2 a DBF (con DBF_Conversion_Support = 8), los tabs al inicio de los memo se pierden (Arreglado en v1.19.49.5)
+* 04/01/2018 Doug Hennnig Reporte Bug vcx/scx v1.19.49: FoxBin2Prg debería ignorar los registros que el diseñador de FoxPro ignora (Arreglado en v1.19.49.6)
*
*
*---------------------------------------------------------------------------------------------------
@@ -10446,7 +10448,7 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
* Si tiene objetos asociados, antes debo eliminar los existentes para no duplicarlos
DELETE ALL FOR PLATFORM == PADR('WINDOWS', FSIZE('PLATFORM')) AND LOWER(PARENT) == loClase._ObjName
-
+
.insert_AllObjects( @loClase, @toFoxBin2Prg )
ELSE
@@ -13510,6 +13512,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
+ [] ;
+ [] ;
+ [] ;
+ + [] ;
+ [] ;
+ [] ;
+ [] ;
@@ -14025,6 +14028,43 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
+ PROCEDURE ignoreIncorrectDefinedObjects(lcCursor)
+ * Issue#15 - VFP Designer ignored objects should be ignored by FoxBin2Prg
+ LOCAL lcObjName, lcParent, lcParentObjName, loObjs as Collection
+ loObjs = CREATEOBJECT("Collection")
+ SELECT (lcCursor)
+
+ SCAN FOR PLATFORM = "WINDOWS"
+ lcObjName = LOWER(OBJNAME)
+ lcParent = LOWER(PARENT)
+
+ IF EMPTY(lcParent)
+ lcParentObjName = lcObjName
+ ELSE
+ lcParentObjName = lcParent + '.' + lcObjName
+ ENDIF
+
+ IF NOT EMPTY(lcParent)
+ * Tiene Parent, y debe existir, si no es ignorado
+ IF loObjs.GetKey(lcParent) > 0
+ * Existe: se agrega al array el nuevo objeto
+ loObjs.Add( '', lcParentObjName )
+ ELSE
+ * No existe: se ignora
+ DELETE
+ ENDIF
+ ELSE
+ * No Existe: se agrega al array
+ loObjs.Add( '', lcParentObjName )
+
+ ENDIF
+ ENDSCAN
+
+ RETURN
+ ENDPROC
+
+
+
PROCEDURE indentMemo
LPARAMETERS tcMethod, tcIndentation, tlKeepProcHeader
*-- INDENTA EL CÓDIGO DE UN MÉTODO DADO Y QUITA LA CABECERA DE MÉTODO (PROCEDURE/ENDPROC) SI LA ENCUENTRA
@@ -15398,7 +15438,7 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg
IF toFoxBin2Prg.n_UseClassPerFile = 0 OR EMPTY(toFoxBin2Prg.c_ClassToConvert) THEN
*-- Exportar la librería entera a texto
- SELECT _TABLAORIG.*,RECNO() regnum FROM _TABLAORIG INTO CURSOR TABLABIN
+ SELECT _TABLAORIG.*,RECNO() regnum FROM _TABLAORIG INTO CURSOR TABLABIN READWRITE
ELSE
*-- Exportar solo una clase a texto cuando se usa ClassPerFile y se indicó una clase
SELECT _TABLAORIG.*,RECNO() regnum FROM _TABLAORIG INTO CURSOR TABLABIN ;
@@ -15411,6 +15451,9 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg
lnStepCount = 7
USE IN (SELECT("_TABLAORIG"))
+ * Issue#15: Ignorar objetos mal definidos
+ .ignoreIncorrectDefinedObjects('TABLABIN')
+
INDEX ON PADR(LOWER(PLATFORM + IIF(EMPTY(PARENT),'',ALLTRIM(PARENT)+'.')+OBJNAME),240) TAG PARENT_OBJ ADDITIVE
SET ORDER TO 0 IN TABLABIN
@@ -15763,9 +15806,12 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg
WITH THIS AS c_conversor_scx_a_prg OF 'FOXBIN2PRG.PRG'
USE (.c_InputFile) SHARED AGAIN NOUPDATE ALIAS _TABLAORIG
- SELECT _TABLAORIG.*,RECNO() regnum FROM _TABLAORIG INTO CURSOR TABLABIN
+ SELECT _TABLAORIG.*,RECNO() regnum FROM _TABLAORIG INTO CURSOR TABLABIN READWRITE
USE IN (SELECT("_TABLAORIG"))
+ * Issue#15: Ignorar objetos mal definidos
+ .ignoreIncorrectDefinedObjects('TABLABIN')
+
INDEX ON PADR(LOWER(PLATFORM + IIF(EMPTY(PARENT),'',ALLTRIM(PARENT)+'.')+OBJNAME),240) TAG PARENT_OBJ ADDITIVE
SET ORDER TO 0 IN TABLABIN