From 50eaacb48bc68e9fd8dcb749c32e8e54f6290526 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Sun, 6 Jul 2014 15:13:00 +0200
Subject: [PATCH] =?UTF-8?q?Changeset:=20350=20fdbozzo=20-=2006/07/2014=201?=
 =?UTF-8?q?5:11:19:=20-=20Bug=20Fix=20cfg:=20ExtraBackupLevel=20no=20se=20?=
 =?UTF-8?q?tiene=20en=20cuenta=20cuando=20se=20usa=20multi-configuraci?=
 =?UTF-8?q?=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 foxbin2prg.prg | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index a9754df..0dc7aac 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -90,6 +90,7 @@
 * 14/06/2014	FDBOZZO		v1.19.24	Arreglo bug vcx/scx: Un campo de tabla llamado "text" que comienza la línea puede confundirse con la estructura TEXT/ENDTEXT y reconocer mal el resto del código
 * 16/06/2014	FDBOZZO		v1.19.25	Mejora: Agregado soporte de configuraciones (CFG) por directorio que, si existen, se usan en lugar del principal (Mario Peschke)
 * 17/06/2014	FDBOZZO		v1.19.25	Mejora: Si durante la generación de binarios o de textos se producen errores, mostrar un mensaje avisando de ello (Pedro Gutiérrez M.)
+* 06/07/2014	FDBOZZO		v1.19.26	Bug Fix cfg: ExtraBackupLevel no se tiene en cuenta cuando se usa multi-configuración
 * </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
 *
 *---------------------------------------------------------------------------------------------------
@@ -963,7 +964,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 			STORE '' TO tcBakFile_1, tcBakFile_2, tcBakFile_3
 
 			WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
-				IF THIS.n_ExtraBackupLevels > 0 THEN
+				IF .n_ExtraBackupLevels > 0 THEN
 					lcNext_Bak	= .getNext_BAK( .c_OutputFile )
 					lcExt_1		= JUSTEXT( .c_OutputFile )
 					tcBakFile_1	= FORCEEXT(.c_OutputFile, lcExt_1 + lcNext_Bak)
@@ -1245,7 +1246,9 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 						lo_CFG.l_Debug				= (TRANSFORM(tcDebug)=='1')
 					ENDIF
 					tcExtraBackupLevels		= EVL( tcExtraBackupLevels, TRANSFORM( lo_CFG.n_ExtraBackupLevels ) )
-					lo_CFG.n_ExtraBackupLevels	= INT( VAL( TRANSFORM(tcExtraBackupLevels) ) )
+					IF ISDIGIT(tcExtraBackupLevels)
+						lo_CFG.n_ExtraBackupLevels	= INT( VAL( TRANSFORM(tcExtraBackupLevels) ) )
+					ENDIF
 					IF INLIST( TRANSFORM(tcOptimizeByFilestamp), '0', '1' ) THEN
 						lo_CFG.l_OptimizeByFilestamp	= NOT (TRANSFORM(tcOptimizeByFilestamp) == '0')
 					ENDIF