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

- Arreglo del CFG por defecto

foxbin2prg.prg

@@ -1349,7 +1349,8 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 
 				CASE ISNULL( .o_Configuration( .n_CFG_Actual ) )
 					*-- 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
 
@@ -1372,7 +1373,6 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 					*lo_CFG.c_CurDir					= ''
 
 					FOR I = 1 TO ALINES( laConfig, FILETOSTR( lcConfigFile ), 1+4 )
-						*laConfig(I)	= LOWER( laConfig(I) )
 						.set_Line( @lcConfigLine, @laConfig, I )
 						.get_SeparatedLineAndComment( @lcConfigLine )
 						laConfig(I)		= LOWER( lcConfigLine )
@@ -1591,7 +1591,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 				IF INLIST( TRANSFORM(tcDebug), '0', '1' ) THEN
 					lo_CFG.l_Debug					= (TRANSFORM(tcDebug)=='1')
 				ENDIF
-				tcExtraBackupLevels		= EVL( tcExtraBackupLevels, TRANSFORM( lo_CFG.n_ExtraBackupLevels ) )
+				tcExtraBackupLevels		= EVL( tcExtraBackupLevels, TRANSFORM( .n_ExtraBackupLevels ) )
 				IF ISDIGIT(tcExtraBackupLevels)
 					lo_CFG.n_ExtraBackupLevels		= INT( VAL( TRANSFORM(tcExtraBackupLevels) ) )
 				ENDIF