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 + [] ; + [] ; + [] ; + + [] ; + [] ; + [] ; + [] ; @@ -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()