From 5d5bd0a76ce53a5298c5be98a6725a241846bb2d Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Wed, 25 Jun 2014 01:43:35 +0200
Subject: [PATCH] Changeset: 329 fdbozzo - 25/06/2014 00:31:56: - Limpieza de
 asignaciones sin uso ("..\..\" y "..\" sin nombre de archivo)

---
 foxbin2prg.prg | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index 682ce6e..b84816c 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -2598,10 +2598,17 @@ DEFINE CLASS c_conversor_base AS SESSION
 
 	*******************************************************************************************************************
 	PROCEDURE desnormalizarValorPropiedad
+		*-- Este método se ejecuta cuando se regenera el binario desde el tx2
 		LPARAMETERS tcProp, tcValue, tcComentario
 		LOCAL lnCodError, lnPos, lcValue
 		tcComentario	= ''
 
+		*-- Limpieza de caracteres sin uso
+		IF INLIST(tcValue, '..\', '..\..\' ) THEN
+			*MESSAGEBOX( 'Encontrado valor "' + tcValue + '" en propiedad "' + tcProp, 4096, PROGRAM() )
+			tcValue = ''
+		ENDIF
+
 		*-- Ajustes de algunos casos especiales
 		DO CASE
 		CASE tcProp == '_memberdata'
@@ -2813,7 +2820,7 @@ DEFINE CLASS c_conversor_base AS SESSION
 
 	PROCEDURE get_SeparatedPropAndValue
 		*-- Devuelve el valor separado de la propiedad.
-		*-- Si se indican más de 3 parámetros, evalúa el valor completo a través de las líneas de código
+		*-- Si se indican más de 3 parámetros, evalúa el valor completo a través de las líneas de código (valores multi-línea)
 		*--------------------------------------------------------------------------------------------------------------
 		* PARÁMETROS:				(v=Pasar por valor | @=Pasar por referencia) (!=Obligatorio | ?=Opcional) (IN/OUT)
 		* taCodeLines				(!@ IN    ) El array con las líneas del código donde buscar
@@ -2929,10 +2936,17 @@ DEFINE CLASS c_conversor_base AS SESSION
 
 	*******************************************************************************************************************
 	PROCEDURE normalizarValorPropiedad
+		*-- Este método se ejecuta cuando se genera el tx2 desde el binario
 		LPARAMETERS tcProp, tcValue, tcComentario
 		LOCAL lcValue, I
 		tcComentario	= ''
 
+		*-- Limpieza de caracteres sin uso
+		IF INLIST(tcValue, '..\', '..\..\' ) THEN
+			*MESSAGEBOX( 'Encontrado valor "' + tcValue + '" en propiedad "' + tcProp, 4096, PROGRAM() )
+			tcValue = ''
+		ENDIF
+
 		*-- Ajustes de algunos casos especiales
 		DO CASE
 		CASE tcProp == '_memberdata'