Bug Fix: Error 1098, Cannot find ... [ENDT] that closes ... [TEXT] Issue#26 when there is a field named TEXT as first line-word (KIRIDES)

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<72>elles / Juan C. Perdomo)
 

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.

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
 

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*

foxbin2prg.cfg.txt

@@ -1,5 +1,5 @@
 ****************************************************************************************************
-* FOXBIN2PRG v1.19.47
+* FOXBIN2PRG v1.19.51.3
 * CONFIGURATION FILE / ARCHIVO DE CONFIGURACI<43>N
 ****************************************************************************************************
 

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)
 * </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
 *
 *---------------------------------------------------------------------------------------------------
@@ -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)
 * </TESTEO Y REPORTE DE BUGS (AGRADECIMIENTOS)>
 *
 *---------------------------------------------------------------------------------------------------
@@ -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='
+						*CASE UPPER( LEFT( CHRTRAN( lcLine, ' ', '' ), 5 ) ) == 'TEXT='
-							EXIT
+						*	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