From 2fd27e6382721deb7f8e8379a1ba87e54381ddbe Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Mon, 22 Jun 2015 19:38:13 +0200
Subject: [PATCH] =?UTF-8?q?Bug=20Fix:=20Arreglo=20de=20bug=20en=20m=C3=A9t?=
 =?UTF-8?q?odo=20set=5FUserValue()=20cuando=20se=20intenta=20obtener=20inf?=
 =?UTF-8?q?ormaci=C3=B3n=20de=20un=20error=20que=20no=20puede=20abrir=20la?=
 =?UTF-8?q?=20tabla=20(por=20ej,=20porque=20el=20memo=20est=C3=A1=20corrup?=
 =?UTF-8?q?to)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 FoxBin2PRGVersionFile.txt |  1 +
 foxbin2prg.prg            | 13 +++++++++----
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/FoxBin2PRGVersionFile.txt b/FoxBin2PRGVersionFile.txt
index f964eb0..1ceb5ed 100644
--- a/FoxBin2PRGVersionFile.txt
+++ b/FoxBin2PRGVersionFile.txt
@@ -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
diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index 6a93b0c..620df32 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -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ó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ón de un error que no puede abrir la tabla (por ej, porque el memo está 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)