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

Bug Fix: Arreglo de bug en método set_UserValue() cuando se intenta obtener información de un error que no puede abrir la tabla (por ej, porque el memo está corrupto)

Browse Source
This commit is contained in:
fdbozzo
2015-06-22 19:38:13 +02:00
parent ead5caef0b
commit 2fd27e6382
2 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
FoxBin2PRGVersionFile.txt
View File

@@ -18,6 +18,7 @@ Demo video using FoxBin2Prg with PlasticSCM: http://youtu.be/sE4wQ50Itqg
Change History -------------------------------------------------------------
2015/06/22 v1.19.46
- Bug Fix: set_UserValue() method causes error when trying to get information about another error and the VFP binary table can not be opened (ie, because corrupted memo)
2015/06/21 v1.19.45

13
foxbin2prg.prg
View File

@@ -170,6 +170,7 @@
* 01/06/2015 FDBOZZO v1.19.45 Bug Fix: Cuando se exporta a texto un menu que usa comillas simples o una expresi<73>n en el mensaje de las opciones, al regenerar el binario se recortan partes del mensaje de esas opciones (Mike Potjer)
* 09/06/2015 FDBOZZO v1.19.45 Bug Fix: Cuando se procesan m<>ltiples archivos PJ2, puede ocurrir un error de "variable llError no definida" (Lutz Scheffler)
* 15/06/2015 FDBOZZO v1.19.45 Bug Fix pjx,*/pj2,*: Los proyectos PJX/PJ2 que referencian archivos de otras unidades de disco causan errores ne esos archivos al procesar con las opciones "*" o "*-" (Matt Slay)
* 22/06/2015 FDBOZZO v1.19.46 Bug Fix: Arreglo de bug en m<>todo set_UserValue() cuando se intenta obtener informaci<63>n de un error que no puede abrir la tabla (por ej, porque el memo est<73> corrupto)
* </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
*
*---------------------------------------------------------------------------------------------------
@@ -13062,15 +13063,19 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
WITH THIS AS c_conversor_bin_a_prg OF 'FOXBIN2PRG.PRG'
toEx.UserValue = toEx.UserValue + CR_LF
IF INLIST(.c_Type, 'SCX', 'VCX') THEN
lcMethods = METHODS
IF NOT EMPTY(ALIAS()) AND INLIST(.c_Type, 'SCX', 'VCX') THEN
IF TYPE("METHODS")#"U" THEN
lcMethods = METHODS
ENDIF
toEx.UserValue = toEx.UserValue + 'Error location ' + '..............................' + CR_LF
IF NOT EMPTY(Parent)
IF TYPE("PARENT")#"U" AND NOT EMPTY(Parent) THEN
lcLocation = lcLocation + Parent + '.'
ENDIF
lcLocation = lcLocation + OBJNAME
IF TYPE("OBJNAME")#"U" THEN
lcLocation = lcLocation + OBJNAME
ENDIF
*-- Busco el Procedure si hay un n_Methods_LineNo
ALINES(laCodeLines, lcMethods)