romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changeset: 317 fdbozzo - 22/06/2014 17:29:20:

Browse Source 
- Agregada la comprobación de si se ejecutó EvaluarConfiguracion() externamente, para no ejecutar la primera otra vez
This commit is contained in:
fdbozzo
2014-06-22 19:02:15 +02:00
parent 04f4d9ee6a
commit 0a54817a6d
1 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
foxbin2prg.prg
View File

@@ -432,6 +432,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
+ [<memberdata name="evaluarconfiguracion" display="EvaluarConfiguracion"/>] ; + [<memberdata name="evaluarconfiguracion" display="EvaluarConfiguracion"/>] ;
+ [<memberdata name="exception2str" display="Exception2Str"/>] ; + [<memberdata name="exception2str" display="Exception2Str"/>] ;
+ [<memberdata name="get_l_cfg_cachedaccess" display="get_l_CFG_CachedAccess"/>] ; + [<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_ext2fromext" display="Get_Ext2FromExt"/>] ;
+ [<memberdata name="get_program_header" display="get_PROGRAM_HEADER"/>] ; + [<memberdata name="get_program_header" display="get_PROGRAM_HEADER"/>] ;
+ [<memberdata name="getnext_bak" display="getNext_BAK"/>] ; + [<memberdata name="getnext_bak" display="getNext_BAK"/>] ;
@@ -586,6 +587,11 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
ENDPROC ENDPROC
FUNCTION get_l_ConfigEvaluated
RETURN THIS.l_ConfigEvaluated
ENDFUNC
FUNCTION get_l_CFG_CachedAccess FUNCTION get_l_CFG_CachedAccess
RETURN THIS.l_CFG_CachedAccess RETURN THIS.l_CFG_CachedAccess
ENDFUNC ENDFUNC
@@ -1396,8 +1402,10 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
*-- Ejecuci<63>n normal *-- Ejecuci<63>n normal
*-- ARCHIVO DE CONFIGURACI<43>N PRINCIPAL *-- ARCHIVO DE CONFIGURACI<43>N PRINCIPAL
IF NOT THIS.l_ConfigEvaluated THEN
.EvaluarConfiguracion( @tcDontShowProgress, @tcDontShowErrors, @tcNoTimestamps, @tcDebug, @tcRecompile, @tcBackupLevels ; .EvaluarConfiguracion( @tcDontShowProgress, @tcDontShowErrors, @tcNoTimestamps, @tcDebug, @tcRecompile, @tcBackupLevels ;
, @tcClearUniqueID, @tcOptimizeByFilestamp ) , @tcClearUniqueID, @tcOptimizeByFilestamp )
ENDIF
IF .l_ShowProgress IF .l_ShowProgress
.cargar_frm_avance() .cargar_frm_avance()