diff --git a/FoxBin2PRGVersionFile.txt b/FoxBin2PRGVersionFile.txt index ef8136d..14acfe7 100644 --- a/FoxBin2PRGVersionFile.txt +++ b/FoxBin2PRGVersionFile.txt @@ -21,6 +21,9 @@ Demo video using FoxBin2Prg with PlasticSCM: http://youtu.be/sE4wQ50Itqg Change History ------------------------------------------------------------- +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) + 2017/12/04 v1.19.49.4 - Bug Fix VCX: When using ClassPerFile in API Mode and importing single classes, sometimes their names get unquoted, throwing errors / Reported by Lutz Scheffler (https://github.com/fdbozzo/foxbin2prg/issues/11) diff --git a/ThorUpdater/FoxBin2Prg.zip b/ThorUpdater/FoxBin2Prg.zip index 0c551bc..8874575 100644 Binary files a/ThorUpdater/FoxBin2Prg.zip and b/ThorUpdater/FoxBin2Prg.zip differ diff --git a/ThorUpdater/FoxBin2PrgVersion.txt b/ThorUpdater/FoxBin2PrgVersion.txt index 5f2291f..7f4d2ed 100644 --- a/ThorUpdater/FoxBin2PrgVersion.txt +++ b/ThorUpdater/FoxBin2PrgVersion.txt @@ -2,9 +2,9 @@ lparameters toUpdateObject local ldDate, ; lnJulian, ; lcJulian -ldDate = date(2017,12,3) +ldDate = date(2017,12,5) lnJulian = val(sys(11, ldDate)) - val(sys(11, {^2000-01-01})) lcJulian = padl(transform(lnJulian), 4, '0') -toUpdateObject.AvailableVersion = 'FoxBin2Prg-1.19.49.2' + lcJulian + ; +toUpdateObject.AvailableVersion = 'FoxBin2Prg-1.19.49.4' + lcJulian + ; '-update-' + dtoc(ldDate, 1) return toUpdateObject diff --git a/foxbin2prg.exe b/foxbin2prg.exe index a4c606b..218e840 100644 Binary files a/foxbin2prg.exe and b/foxbin2prg.exe differ diff --git a/foxbin2prg.prg b/foxbin2prg.prg index b3681ef..6ae085d 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -203,6 +203,7 @@ * 02/12/2017 FDBOZZO v1.19.49.2 Bug Fix tx2 v1.19.49: No exporta los objetos a TX2 cuando se usa ClassPerFile (Lutz Scheffler) * 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) * * *--------------------------------------------------------------------------------------------------- @@ -319,6 +320,7 @@ * 28/11/2017 Lutz Scheffler Reporte Bug vx2 v1.19.49: No exporta los objetos a VX2 cuando se usa ClassPerFile (Arreglado en v1.19.49.2) * 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) * * *--------------------------------------------------------------------------------------------------- @@ -3239,7 +3241,22 @@ DEFINE CLASS c_foxbin2prg AS Session .evaluate_Full_PJ2(tc_InputFile, tcRecompile, @toModulo, @toEx, @tcOriginalFileName, '', tcType) EXIT - CASE EVL(tcType,'0') <> '0' AND EVL(tcTextName,'0') <> '0' + CASE INLIST( EVL(tcType,'0') ; + , FILETYPE_DATABASE ; + , FILETYPE_FREETABLE ; + , FILETYPE_QUERY ; + , FILETYPE_FORM ; + , FILETYPE_REPORT ; + , FILETYPE_LABEL ; + , FILETYPE_CLASSLIB ; + , FILETYPE_PROGRAM ; + , FILETYPE_PROJECT ; + , FILETYPE_APILIB ; + , FILETYPE_APPLICATION ; + , FILETYPE_MENU ; + , FILETYPE_TEXT ; + , FILETYPE_OTHER ) ; + AND EVL(tcTextName,'0') <> '0' *-- COMPATIBILIDAD CON SOURCESAFE. 30/01/2014 IF tlGenText .writeLog( '> ' + loLang.C_SOURCESAFE_COMPATIBILITY_MODE_LOC + ': ' + loLang.C_BINARY_TO_TEXT_LOC ) @@ -24274,6 +24291,18 @@ DEFINE CLASS CL_DBF_RECORDS AS CL_COL_BASE ENDPROC + PROCEDURE set_Line + *--------------------------------------------------------------------------------------------------- + * PARÁMETROS: (v=Pasar por valor | @=Pasar por referencia) (!=Obligatorio | ?=Opcional) (IN/OUT) + * tcLine (!@ OUT) Contenido de la línea en análisis + * taCodeLines (!@ IN ) Array de líneas del programa analizado + * I (v! IN ) Número de línea en análisis + *--------------------------------------------------------------------------------------------------- + LPARAMETERS tcLine, taCodeLines, I + tcLine = taCodeLines(I) + ENDPROC + + ENDDEFINE @@ -24529,6 +24558,7 @@ DEFINE CLASS CL_DBF_RECORD AS CL_CUS_BASE RETURN lcText ENDPROC + PROCEDURE Encode LPARAMETERS tcString, tl_isCDATA LOCAL lcString @@ -24549,6 +24579,7 @@ DEFINE CLASS CL_DBF_RECORD AS CL_CUS_BASE RETURN lcString ENDPROC + PROCEDURE Decode LPARAMETERS tcString, tl_isCDATA LOCAL lcString @@ -24568,6 +24599,19 @@ DEFINE CLASS CL_DBF_RECORD AS CL_CUS_BASE RETURN lcString ENDPROC + + PROCEDURE set_Line + *--------------------------------------------------------------------------------------------------- + * PARÁMETROS: (v=Pasar por valor | @=Pasar por referencia) (!=Obligatorio | ?=Opcional) (IN/OUT) + * tcLine (!@ OUT) Contenido de la línea en análisis + * taCodeLines (!@ IN ) Array de líneas del programa analizado + * I (v! IN ) Número de línea en análisis + *--------------------------------------------------------------------------------------------------- + LPARAMETERS tcLine, taCodeLines, I + tcLine = taCodeLines(I) + ENDPROC + + ENDDEFINE *** DH 06/02/2014: end of added classes