romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
fdbozzo
2018-07-09 23:13:28 +02:00
parent 236a0e0db3 e2b5582156
commit 90e5d351df
8 changed files with 41 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
FoxBin2PRGVersionFile.txt
View File

@@ -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)

11
TESTS/ut__foxbin2prg.prg
View File

@@ -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.

BIN
ThorUpdater/FoxBin2Prg.zip
View File

Binary file not shown.

4
ThorUpdater/FoxBin2PrgVersion.txt
View File

@@ -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

2
ThorUpdater/Project.txt
View File

@@ -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*

2
foxbin2prg.cfg.txt
View File

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

BIN
foxbin2prg.exe
View File

Binary file not shown.

29
foxbin2prg.prg
View File

@@ -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='
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