diff --git a/FoxBin2PRGVersionFile.txt b/FoxBin2PRGVersionFile.txt index 1db7672..d520fb1 100644 --- a/FoxBin2PRGVersionFile.txt +++ b/FoxBin2PRGVersionFile.txt @@ -3,7 +3,7 @@ Lparameters toUpdateInfo Local lcNote With toUpdateInfo .VersionNumber = 'v1.19.51' - .VersionDate = Date(2018,06,20) + .VersionDate = Date(2018,07,09) .SourceFileUrl = 'http://vfpxrepository.com/dl/thorupdate/Projects/FoxBin2Prg/FoxBin2Prg.Zip' .Link = 'https://github.com/fdbozzo/foxbin2prg/wiki' @@ -20,6 +20,10 @@ Supported formats are: PJX, PJM, SCX, VCX, FRX, LBX, MNX, DBC, DBF, FKY, MEM Demo video using FoxBin2Prg with PlasticSCM: http://youtu.be/sE4wQ50Itqg Change History ------------------------------------------------------------- + +2018-07-09 v1.19.51.3 +- Bug Fix: Error 1098, Cannot find ... [ENDT] that closes ... [TEXT] Issue#26 when there is a field named TEXT as first line-word (KIRIDES) + 2018-06-20 v1.19.51.2 - Bug Fix: When converting to text a DBF that belongs to a DBC with events disabled, conversion fails (Jairo Argüelles / Juan C. Perdomo) diff --git a/TESTS/ut__foxbin2prg.prg b/TESTS/ut__foxbin2prg.prg index e43ac7a..11266b9 100644 --- a/TESTS/ut__foxbin2prg.prg +++ b/TESTS/ut__foxbin2prg.prg @@ -1532,6 +1532,17 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg ENDFUNC + ******************************************************************************************************************************************* + FUNCTION Deberia_Ejecutar_FOXBIN2PRG_Para__github_issues_vcx__ValidarEl_VC2_GeneradoConElOriginal_Y_NoEncontrarDiferencias + #IF .F. + PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' + #ENDIF + + THIS.Evaluate_TX2_Output_Test( 'github_issues.vcx' ) + + ENDFUNC + + ******************************************************************************************************************************************* FUNCTION Deberia_Ejecutar_FOXBIN2PRG_Para__test_report_frx__ValidarEl_FR2_GeneradoConElOriginal_Y_NoEncontrarDiferencias #IF .F. diff --git a/ThorUpdater/FoxBin2Prg.zip b/ThorUpdater/FoxBin2Prg.zip index 1d66e0c..b3f72fc 100644 Binary files a/ThorUpdater/FoxBin2Prg.zip and b/ThorUpdater/FoxBin2Prg.zip differ diff --git a/ThorUpdater/FoxBin2PrgVersion.txt b/ThorUpdater/FoxBin2PrgVersion.txt index c403285..483fa89 100644 --- a/ThorUpdater/FoxBin2PrgVersion.txt +++ b/ThorUpdater/FoxBin2PrgVersion.txt @@ -2,10 +2,10 @@ lparameters toUpdateObject local ldDate, ; lnJulian, ; lcJulian -ldDate = date(2018,6,20) +ldDate = date(2018,7,9) lnJulian = val(sys(11, ldDate)) - val(sys(11, {^2000-01-01})) lcJulian = padl(transform(lnJulian), 4, '0') -toUpdateObject.AvailableVersion = 'FoxBin2Prg-1.19.51.1' + lcJulian + ; +toUpdateObject.AvailableVersion = 'FoxBin2Prg-1.19.51.3' + lcJulian + ; '-update-' + dtoc(ldDate, 1) return toUpdateObject diff --git a/ThorUpdater/Project.txt b/ThorUpdater/Project.txt index 568e3ef..51bbcc7 100644 --- a/ThorUpdater/Project.txt +++ b/ThorUpdater/Project.txt @@ -1,5 +1,5 @@ appName = FoxBin2Prg appID = FoxBin2Prg -majorVersion = 1.19.51.1 +majorVersion = 1.19.51.3 excludeFiles = *.bak,*.bat,*.fxp,*.tbk,*.tmp,*.dat,*.log,*.cvp,README.md,.gitignore,*.zip*,*.7z*,*- copia.*,*.private.*,test_*.*,xx*.*,*.lnk,vfp_init.*,tmp*.*,*.err, *.conflict.*, *.private.* excludeFolders = *.plastic*,*ThorUpdater*,*Documentacion*,*foxunit*,*foxunit_*,*pruebas varias*,*versiones*,*datos_test* diff --git a/foxbin2prg.cfg.txt b/foxbin2prg.cfg.txt index 6717a3f..0f78455 100644 --- a/foxbin2prg.cfg.txt +++ b/foxbin2prg.cfg.txt @@ -1,5 +1,5 @@ **************************************************************************************************** -* FOXBIN2PRG v1.19.47 +* FOXBIN2PRG v1.19.51.3 * CONFIGURATION FILE / ARCHIVO DE CONFIGURACIÓN **************************************************************************************************** diff --git a/foxbin2prg.exe b/foxbin2prg.exe index f927b71..0941a07 100644 Binary files a/foxbin2prg.exe and b/foxbin2prg.exe differ diff --git a/foxbin2prg.prg b/foxbin2prg.prg index 3636919..0a1349b 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -217,6 +217,7 @@ * 25/03/2018 FDBOZZO v1.19.51 Mejora: Agregado soporte para archivos de memoria (.MEM) * 05/05/2018 SSF1&FDB v1.19.51.1 Bug Fix: Si se usa capitalización en la información de las vistas, entonces la información relacionada no se exporta correctamente o completamente y puede perderse (SkySurfer1) * 20/06/2018 FDBOZZO v1.19.51.2 Bug Fix: Cuando se exporta un DBF que pertenece a un DBC sin eventos, falla (Jairo Argüelles/Juan C.Perdomo) +* 09/07/2018 FDBOZZO v1.19.51.3 Bug Fix: Error 1098, Cannot find ... [ENDT] that closes ... [TEXT] Issue#26 when there is a field named TEXT as first line-word (KIRIDES) * * *--------------------------------------------------------------------------------------------------- @@ -342,6 +343,7 @@ * 15/03/2018 Darko Kezic Reporte Bug v1.19.50: Cuando se agregan archivos de texto no-VFP, como html,css,etc, en la sección de Text del proyecto, FoxBin2Prg no mantiene esta selección al regenerar el PJX, dejándolos en la sección Files (Arreglado en v1.19.50.3) * 05/05/2018 SkySurfer1 Reporte Bug v1.19.51: Si se usa capitalización en la información de las vistas, entonces la información relacionada no se exporta correctamente o completamente y puede perderse (Arreglado en v1.19.51.1) * 20/06/2018 Jairo A/Juan CP Reporte Bug v1.19.51: Cuando se exporta un DBF que pertenece a un DBC sin eventos, falla (Arreglado en v1.19.51.2) +* 09/07/2018 KIRIDES Reporte Bug v1.19.51: Error 1098, Cannot find ... [ENDT] that closes ... [TEXT] Issue#26 when there is a field named TEXT as first line-word (Se arregla en v1.19.51.3) * * *--------------------------------------------------------------------------------------------------- @@ -6469,16 +6471,12 @@ DEFINE CLASS c_conversor_base AS Custom PROCEDURE isIndicatedToken LPARAMETERS tcLine, ta_ID_Bloques, tnLen_IDFinBQ, X, tnIniFin - LOCAL llEncontrado, lcWord, lcLine + LOCAL llEncontrado, lcWord, lcWord2, lcLine, lnWordCount TRY *-- Pre-normalización lcLine = tcLine - *IF LEFT(lcLine,1) == '#' - * lcLine = CHRTRAN( lcLine, ' ', '' ) && Quito los espacios a lo que comience con # - *ENDIF - IF tnIniFin = 1 *-- TOKENS DE INICIO IF UPPER( LEFT( lcLine, ta_ID_Bloques(m.X,3) ) ) == ta_ID_Bloques(m.X,1) @@ -6486,15 +6484,30 @@ DEFINE CLASS c_conversor_base AS Custom lcWord = UPPER( ALLTRIM(GETWORDNUM(lcLine,1) ) ) IF ta_ID_Bloques(m.X,1) == 'TEXT' THEN - lcLine = UPPER( lcLine ) + ' ' + lcLine = UPPER( lcLine ) + ' ' + lnWordCount = GETWORDCOUNT(lcLine) + + IF lnWordCount >= 2 + lcWord2 = ALLTRIM(GETWORDNUM(lcLine,2) ) + ENDIF DO CASE CASE NOT lcWord == 'TEXT' EXIT - CASE UPPER( LEFT( CHRTRAN( lcLine, ' ', '' ), 5 ) ) == 'TEXT=' - EXIT + *CASE UPPER( LEFT( CHRTRAN( lcLine, ' ', '' ), 5 ) ) == 'TEXT=' + * EXIT + CASE lnWordCount >= 2 + IF lcWord2 == "TO" + * OK, es TEXT TO... + ELSE + * Luego de TEXT sigue cualquier otra cosa, así que puede ser + * un campo, variable, etc, que lo han llamado TEXT. + EXIT + ENDIF + OTHERWISE + * OK, es TEXT sin más. ENDCASE ENDIF