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

Changeset: 575 fdbozzo - 21/12/2014 03:02:13:

Browse Source 
- Arreglo del CFG por defecto
This commit is contained in:
fdbozzo
2014-12-21 17:18:22 +01:00
parent f737c1473e
commit fc9c572679
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
foxbin2prg.prg
View File

@@ -1349,7 +1349,8 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
CASE ISNULL( .o_Configuration( .n_CFG_Actual ) ) CASE ISNULL( .o_Configuration( .n_CFG_Actual ) )
*-- Si existe una configuraci<63>n y es NULL, se usa la predeterminada *-- Si existe una configuraci<63>n y es NULL, se usa la predeterminada
*.n_CFG_Actual = 0 .n_CFG_Actual = 0
lo_CFG = THIS
ENDCASE ENDCASE
@@ -1372,7 +1373,6 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
*lo_CFG.c_CurDir = '' *lo_CFG.c_CurDir = ''
FOR I = 1 TO ALINES( laConfig, FILETOSTR( lcConfigFile ), 1+4 ) FOR I = 1 TO ALINES( laConfig, FILETOSTR( lcConfigFile ), 1+4 )
*laConfig(I) = LOWER( laConfig(I) )
.set_Line( @lcConfigLine, @laConfig, I ) .set_Line( @lcConfigLine, @laConfig, I )
.get_SeparatedLineAndComment( @lcConfigLine ) .get_SeparatedLineAndComment( @lcConfigLine )
laConfig(I) = LOWER( lcConfigLine ) laConfig(I) = LOWER( lcConfigLine )
@@ -1591,7 +1591,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
IF INLIST( TRANSFORM(tcDebug), '0', '1' ) THEN IF INLIST( TRANSFORM(tcDebug), '0', '1' ) THEN
lo_CFG.l_Debug = (TRANSFORM(tcDebug)=='1') lo_CFG.l_Debug = (TRANSFORM(tcDebug)=='1')
ENDIF ENDIF
tcExtraBackupLevels = EVL( tcExtraBackupLevels, TRANSFORM( lo_CFG.n_ExtraBackupLevels ) ) tcExtraBackupLevels = EVL( tcExtraBackupLevels, TRANSFORM( .n_ExtraBackupLevels ) )
IF ISDIGIT(tcExtraBackupLevels) IF ISDIGIT(tcExtraBackupLevels)
lo_CFG.n_ExtraBackupLevels = INT( VAL( TRANSFORM(tcExtraBackupLevels) ) ) lo_CFG.n_ExtraBackupLevels = INT( VAL( TRANSFORM(tcExtraBackupLevels) ) )
ENDIF ENDIF