From 0a54817a6ddab590e1e534a2d7fc0c9c39eca798 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Sun, 22 Jun 2014 19:02:15 +0200
Subject: [PATCH] =?UTF-8?q?Changeset:=20317=20fdbozzo=20-=2022/06/2014=201?=
 =?UTF-8?q?7:29:20:=20-=20Agregada=20la=20comprobaci=C3=B3n=20de=20si=20se?=
 =?UTF-8?q?=20ejecut=C3=B3=20EvaluarConfiguracion()=20externamente,=20para?=
 =?UTF-8?q?=20no=20ejecutar=20la=20primera=20otra=20vez?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 foxbin2prg.prg | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index a0d850b..70a30fc 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -432,6 +432,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 		+ [<memberdata name="evaluarconfiguracion" display="EvaluarConfiguracion"/>] ;
 		+ [<memberdata name="exception2str" display="Exception2Str"/>] ;
 		+ [<memberdata name="get_l_cfg_cachedaccess" display="get_l_CFG_CachedAccess"/>] ;
+		+ [<memberdata name="get_l_configevaluated" display="get_l_ConfigEvaluated"/>] ;
 		+ [<memberdata name="get_ext2fromext" display="Get_Ext2FromExt"/>] ;
 		+ [<memberdata name="get_program_header" display="get_PROGRAM_HEADER"/>] ;
 		+ [<memberdata name="getnext_bak" display="getNext_BAK"/>] ;
@@ -586,6 +587,11 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 	ENDPROC
 
 
+	FUNCTION get_l_ConfigEvaluated
+		RETURN THIS.l_ConfigEvaluated
+	ENDFUNC
+
+
 	FUNCTION get_l_CFG_CachedAccess
 		RETURN THIS.l_CFG_CachedAccess
 	ENDFUNC
@@ -1396,8 +1402,10 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 					*-- Ejecución normal
 
 					*-- ARCHIVO DE CONFIGURACIÓN PRINCIPAL
-					.EvaluarConfiguracion( @tcDontShowProgress, @tcDontShowErrors, @tcNoTimestamps, @tcDebug, @tcRecompile, @tcBackupLevels ;
-						, @tcClearUniqueID, @tcOptimizeByFilestamp )
+					IF NOT THIS.l_ConfigEvaluated THEN
+						.EvaluarConfiguracion( @tcDontShowProgress, @tcDontShowErrors, @tcNoTimestamps, @tcDebug, @tcRecompile, @tcBackupLevels ;
+							, @tcClearUniqueID, @tcOptimizeByFilestamp )
+					ENDIF
 
 					IF .l_ShowProgress
 						.cargar_frm_avance()