From 03057f88914e65d22e0b9e57f82908a679526e08 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Sun, 31 May 2015 17:41:37 +0200
Subject: [PATCH] =?UTF-8?q?-=20Bug=20Fix:=20Un=20arreglo=20previo=20en=20e?=
 =?UTF-8?q?l=20manejo=20de=20errores=20en=20cascada=20provoc=C3=B3=20un=20?=
 =?UTF-8?q?reseteo=20del=20=C3=BAltimo=20estado=20de=20error=20de=20proces?=
 =?UTF-8?q?o,=20haciendo=20que=20a=20veces=20los=20errores=20no=20se=20rep?=
 =?UTF-8?q?orten.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 foxbin2prg.prg | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index 5d43b89..1a20bdc 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -166,6 +166,7 @@
 * 10/05/2015	FDBOZZO		v1.19.43	Bug Fix: Cuando un form tiene AutoCenter=.T., hay veces en que al regenerar el binario y ejecutarlo no se muestra centrado (Esteban H)
 * 14/05/2015	FDBOZZO		v1.19.44	Bug Fix: En ciertos PCs FoxBin2Prg no retorna códigos de error cuando se llama como programa externo (Ralf Wagner)
 * 18/05/2015	FDBOZZO		v1.19.44	Mejora: Permitir la exportación de datos de DBFs cuando se usa DBF_Conversion_Support:1 y CFG individual opcional
+* 31/05/2015	FDBOZZO		v1.19.44	Bug Fix: Un arreglo previo en el manejo de errores en cascada provocó un reseteo del último estado de error de proceso, haciendo que a veces los errores no se reporten.
 * </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
 *
 *---------------------------------------------------------------------------------------------------
@@ -622,6 +623,7 @@ DEFINE CLASS c_foxbin2prg AS Session
 		+ [<memberdata name="l_removenullcharsfromcode" display="l_RemoveNullCharsFromCode"/>] ;
 		+ [<memberdata name="l_removezordersetfromprops" display="l_RemoveZOrderSetFromProps"/>] ;
 		+ [<memberdata name="l_error" display="l_Error"/>] ;
+		+ [<memberdata name="l_errors" display="l_Errors"/>] ;
 		+ [<memberdata name="l_main_cfg_loaded" display="l_Main_CFG_Loaded"/>] ;
 		+ [<memberdata name="l_methodsort_enabled" display="l_MethodSort_Enabled"/>] ;
 		+ [<memberdata name="c_backgroundimage" display="c_BackgroundImage"/>] ;
@@ -707,7 +709,8 @@ DEFINE CLASS c_foxbin2prg AS Session
 	n_ExisteCapitalizacion			= -1
 	l_CFG_CachedAccess				= .F.
 	n_Debug							= 0
-	l_Error							= .F.
+	l_Error							= .F.			&& Indicador de errores del proceso actual
+	l_Errors						= .F.			&& Indicador de error de la sesión actual, acumulativo de todos los procesos
 	c_TextErr						= ''
 	l_Test							= .F.
 	l_ShowErrors					= .T.
@@ -965,6 +968,9 @@ DEFINE CLASS c_foxbin2prg AS Session
 			.n_ProcessedFiles		= 0
 			DIMENSION .a_ProcessedFiles(1, 6)
 			.a_ProcessedFiles		= ''
+			*-- Los errores previos también se limpian.
+			.l_Error				= .F.
+			.l_Errors				= .F.
 		ENDWITH
 	ENDPROC
 
@@ -2992,6 +2998,10 @@ DEFINE CLASS c_foxbin2prg AS Session
 				lnCodError = 1098
 			ENDIF
 
+			IF lnCodError > 0 THEN
+				THIS.l_Errors = .T.
+			ENDIF
+
 			SET NOTIFY &lc_OldSetNotify.
 			STORE NULL TO loFSO, loWSH
 			RELEASE tc_InputFile, tcType, tcTextName, tlGenText, tcDontShowErrors, tcDebug, tcDontShowProgress ;