From 157ce3a114fde440e9f88c6c407a2693fd939183 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Sat, 7 Jun 2014 00:52:47 +0200
Subject: [PATCH] =?UTF-8?q?Changeset:=20284=20fdbozzo=20-=2007/06/2014=200?=
 =?UTF-8?q?0:29:16:=20-=20Arreglo=20de=20evaluaci=C3=B3n=20de=20la=20fecha?=
 =?UTF-8?q?=20para=20los=20xxT=20(vct,=20frt,=20mnt,=20sct,=20lbt)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 TESTS/DATOS_READONLY/lib_controles.vct | Bin 1197191 -> 1418252 bytes
 foxbin2prg.cfg                         |   2 +-
 foxbin2prg.prg                         |  22 +++++++++++++++++++++-
 3 files changed, 22 insertions(+), 2 deletions(-)

diff --git a/TESTS/DATOS_READONLY/lib_controles.vct b/TESTS/DATOS_READONLY/lib_controles.vct
index ba25d8f77aeadbc20ff62e13429715a0b08703f2..607a7ca6ebd7aa7f4d20640c28375cba93518cc2 100644
GIT binary patch
delta 187
zcmZqg^z1ni#?BzRgolBFVe-c&$wq}%1;$ndrd9>!Rt1(;1=dytwpIo9Rt1h$1<qCl
zu2u!^Rt26`1>RN#zE%bPRt14p1;MQfLg_BsH>e11m6<Nj#J_C%JVyTV=?4z8v2Fi%
zh{u#?yYG7LJ72c*AK`Ul+|HpYSg1Gs06R0^bO$*WzU}*r1&SQDFQ{b|W89t)%717*
ONJT6@gQf!wdItc}tv+A?

delta 76
zcmV~$!3}~y6hOg`A|MLL-n_kH_F@CHU>%ygY)HIO3q9D59XRv(E@geRk#dQM?f1UF
ekV+16lv+;GNGqM3rI(9bWsp%Oxyihfp7{?hq7%pf

diff --git a/foxbin2prg.cfg b/foxbin2prg.cfg
index 5e8f253..19b5a6f 100644
--- a/foxbin2prg.cfg
+++ b/foxbin2prg.cfg
@@ -55,7 +55,7 @@
 *Debug: 1
 *ExtraBackupLevels: 3
 ClearUniqueID: 1
-OptimizeByFilestamp: 0
+*OptimizeByFilestamp: 0
 
 
 * EN: Uncomment to activate the new value, comment to deactivate and use the default
diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index e8d620f..3249043 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -1390,6 +1390,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 
 		TRY
 			LOCAL lnCodError, lcErrorInfo, laDirFile(1,5), lcExtension, lnFileCount, laFiles(1,1), I ;
+				, ltFilestamp, lcExtA, lcExtB ;
 				, loFSO AS Scripting.FileSystemObject
 			lnCodError			= 0
 
@@ -1579,7 +1580,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 				*-- Optimización: Comparación de los timestamps de InputFile y OutputFile para saber
 				*-- si el OutputFile se debe regenerar o no.
 				lnFileCount	= ADIR( laFiles, FORCEEXT( .c_InputFile, '*' ), '', 1 )
-				STORE {//::} TO .t_InputFile_TimeStamp, .t_OutputFile_TimeStamp
+				STORE {//::} TO .t_InputFile_TimeStamp, .t_OutputFile_TimeStamp, ltFilestamp
 
 				IF lnFileCount >= 1 THEN
 					I	= ASCAN( laFiles, JUSTFNAME(.c_InputFile), 1, 0, 1, 1+2+4+8 )
@@ -1594,6 +1595,25 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 							.t_OutputFile_TimeStamp	=	DATETIME( YEAR(laFiles(I,3)), MONTH(laFiles(I,3)), DAY(laFiles(I,3)) ;
 								, VAL(LEFT(laFiles(I,4),2)), VAL(SUBSTR(laFiles(I,4),4,2)), VAL(RIGHT(laFiles(I,4),2)) )
 						ENDIF
+						
+						lcExtA	= UPPER(JUSTEXT(.c_OutputFile))
+						
+						DO CASE
+						CASE INLIST(lcExtA, 'SCX', 'VCX', 'MNX', 'FRX', 'LBX')
+							lcExtB	= ICASE(lcExtA = 'SCX', 'SCT' ;
+								, lcExtA = 'VCX', 'VCT' ;
+								, lcExtA = 'MNX', 'MNT' ;
+								, lcExtA = 'FRX', 'FRT' ;
+								, lcExtA = 'LBX', 'LBT')
+							I	= ASCAN( laFiles, JUSTFNAME( FORCEEXT(.c_OutputFile, lcExtB) ), 1, 0, 1, 1+2+4+8 )
+							IF I > 0 THEN
+								ltFilestamp	= DATETIME( YEAR(laFiles(I,3)), MONTH(laFiles(I,3)), DAY(laFiles(I,3)) ;
+									, VAL(LEFT(laFiles(I,4),2)), VAL(SUBSTR(laFiles(I,4),4,2)), VAL(RIGHT(laFiles(I,4),2)) )
+							ENDIF
+
+						ENDCASE
+						
+						.t_OutputFile_TimeStamp	=	MAX( .t_OutputFile_TimeStamp, ltFilestamp )
 					ENDIF
 				ENDIF