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

Changeset: 322 fdbozzo - 22/06/2014 20:02:43:

Browse Source
This commit is contained in:
fdbozzo
2014-06-22 20:02:54 +02:00
parent 98d7dc275e fd6b5bcdad
commit 5ff7d54951
5 changed files with 25 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
foxbin2prg.prg
View File

@@ -1069,7 +1069,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
lo_CFG = THIS
IF .n_CFG_Actual = 0 THEN
llExisteConfig = FILE( lcConfigFile )
llExisteConfig = FILE( lcConfigFile )
ENDIF
IF llExisteConfig AND .n_CFG_Actual = 0
@@ -1217,7 +1217,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
IF .l_AllowMultiConfig AND .l_Main_CFG_Loaded AND lo_Configuration.Count > 0
.n_CFG_Actual = lo_Configuration.Count &&lo_Configuration.GetKey( UPPER( JUSTPATH( lcConfigFile ) ) )
ENDIF
ENDIF
ENDIF && llExisteConfig
IF INLIST( TRANSFORM(tcDontShowProgress), '0', '1' ) THEN
@@ -1394,7 +1394,8 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
SET ESCAPE OFF
ENDIF
loFSO = .o_FSO
loFSO = .o_FSO
tcRecompile = EVL(tcRecompile,'1')
DO CASE
CASE VERSION(5) < 900
@@ -1412,8 +1413,8 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
*-- ARCHIVO DE CONFIGURACI<43>N PRINCIPAL
IF NOT THIS.l_ConfigEvaluated THEN
.EvaluarConfiguracion( @tcDontShowProgress, @tcDontShowErrors, @tcNoTimestamps, @tcDebug, @tcRecompile, @tcBackupLevels ;
, @tcClearUniqueID, @tcOptimizeByFilestamp )
.EvaluarConfiguracion( @tcDontShowProgress, @tcDontShowErrors, @tcNoTimestamps, @tcDebug, @tcRecompile, @tcBackupLevels ;
, @tcClearUniqueID, @tcOptimizeByFilestamp )
ENDIF
IF .l_ShowProgress