From 59a79a0436d698952dd87af180b3653c60b7863f Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Sun, 9 Mar 2014 14:22:19 +0100
Subject: [PATCH] Changeset: 198 fdbozzo - 09/03/2014 10:26:12: Mostrar los
 errores cuando se usa FoxBin2Prg directamente y no mostrarlos por defecto en
 los scripts

---
 foxbin2prg.prg | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index 5c0304a..a4c9e55 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -445,7 +445,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 	l_ConfigEvaluated		= .F.
 	l_Debug					= .F.
 	l_Test					= .F.
-	l_ShowErrors			= .F.
+	l_ShowErrors			= .T.
 	l_ShowProgress			= .F.
 	l_Recompile				= .F.
 	l_NoTimestamps			= .T.
@@ -748,7 +748,11 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 							.writeLog( JUSTFNAME(lcConfigFile) + ' > tcDontShowProgress:     ' + TRANSFORM(tcDontShowProgress) )
 
 						CASE LEFT( laConfig(I), 15 ) == LOWER('DontShowErrors:')
-							tcDontShowErrors	= ALLTRIM( SUBSTR( laConfig(I), 16 ) )
+							*-- Priorizo si tcDontShowErrors NO viene con "0" como parámetro, ya que los scripts vbs
+							*-- los utilizan para sobreescribir la configuración por defecto de foxbin2prg.cfg
+							IF NOT tcDontShowErrors == '0'
+								tcDontShowErrors	= ALLTRIM( SUBSTR( laConfig(I), 16 ) )
+							ENDIF
 							.writeLog( JUSTFNAME(lcConfigFile) + ' > tcDontShowErrors:       ' + TRANSFORM(tcDontShowErrors) )
 
 						CASE LEFT( laConfig(I), 13 ) == LOWER('NoTimestamps:')
@@ -804,7 +808,9 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 				ENDIF
 
 				.l_ShowProgress			= NOT (TRANSFORM(tcDontShowProgress)=='1')
-				.l_ShowErrors			= NOT (TRANSFORM(tcDontShowErrors) == '1')
+				IF NOT EMPTY(tcDontShowErrors)
+					.l_ShowErrors			= NOT (TRANSFORM(tcDontShowErrors) == '1')
+				ENDIF
 				.l_Recompile			= (EMPTY(tcRecompile) OR TRANSFORM(tcRecompile) == '1' OR DIRECTORY(tcRecompile))
 				.l_NoTimestamps			= NOT (TRANSFORM(tcNoTimestamps) == '0')
 				.l_Debug				= (TRANSFORM(tcDebug)=='1')
@@ -1082,7 +1088,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 				ENDIF
 				THIS.writeLog( lcErrorInfo )
 			ENDIF
-			IF THIS.l_Debug AND THIS.l_ShowErrors
+			IF THIS.l_ShowErrors
 				MESSAGEBOX( lcErrorInfo, 0+16+4096, C_FOXBIN2PRG_ERROR_CAPTION_LOC, 60000 )
 			ENDIF
 			IF tlRelanzarError
@@ -1090,6 +1096,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 			ENDIF
 
 		FINALLY
+			THIS.writeLog_Flush()
 			IF THIS.l_ShowProgress AND VARTYPE(THIS.o_Frm_Avance) = "O"
 				THIS.o_Frm_Avance.HIDE()
 				THIS.o_Frm_Avance.RELEASE()
@@ -1341,7 +1348,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 		FINALLY
 			loFSO				= NULL
 			THIS.o_Conversor	= NULL
-			THIS.writeLog_Flush()
+			*THIS.writeLog_Flush()
 
 		ENDTRY