From ec6a185464a933f782b0f308954c81ab482f9708 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Sun, 9 Nov 2014 15:10:18 +0100
Subject: [PATCH] =?UTF-8?q?Changeset:=20468=20fdbozzo=20-=2009/11/2014=200?=
 =?UTF-8?q?0:36:27:=20-=20Adapto=20el=20script=20de=20conversi=C3=B3n=20PR?=
 =?UTF-8?q?G=20a=20BIN=20para=20ignorar=20los=20archivos=20de=20clases=20i?=
 =?UTF-8?q?ndividuales=20(archivo.clase.tx2)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Convert_VFP9_PRG_2_BIN.vbs | 28 +++++++++++++++++-----------
 1 file changed, 17 insertions(+), 11 deletions(-)

diff --git a/Convert_VFP9_PRG_2_BIN.vbs b/Convert_VFP9_PRG_2_BIN.vbs
index 3f00172..6f030d9 100644
--- a/Convert_VFP9_PRG_2_BIN.vbs
+++ b/Convert_VFP9_PRG_2_BIN.vbs
@@ -158,17 +158,23 @@ End Sub
 
 Private Sub evaluateFile( tcFile )
 	lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) )
-	oVFP9.SetVar "gc_Ext", lcExt
-	
-	'PROCEDURE EvaluarConfiguracion
-	'	LPARAMETERS tcDontShowProgress, tcDontShowErrors, tcNoTimestamps, tcDebug, tcRecompile, tcExtraBackupLevels ;
-	'		, tcClearUniqueID, tcOptimizeByFilestamp, tc_InputFile
-	
-	oVFP9.DoCmd( "oFoxBin2prg.EvaluarConfiguracion( '', '', '', '', '', '', '', '', '" & tcFile & "' )" )
-	If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Prg2Bin(gc_Ext)") Then
-		nFile_Count = nFile_Count + 1
-		ReDim Preserve aFiles(nFile_Count)
-		aFiles(nFile_Count) = tcFile
+	lcFileName = FileSystemObject.GetFileName( tcFile )
+	laPoints = Split( lcFileName, "." )
+	lnPoints = UBound(laPoint)
+	'-- No proceso los archivos con más de un punto (clases en archivos individuales) por performance
+	If lnPoints = 1 Then
+		oVFP9.SetVar "gc_Ext", lcExt
+		
+		'PROCEDURE EvaluarConfiguracion
+		'	LPARAMETERS tcDontShowProgress, tcDontShowErrors, tcNoTimestamps, tcDebug, tcRecompile, tcExtraBackupLevels ;
+		'		, tcClearUniqueID, tcOptimizeByFilestamp, tc_InputFile
+		
+		oVFP9.DoCmd( "oFoxBin2prg.EvaluarConfiguracion( '', '', '', '', '', '', '', '', '" & tcFile & "' )" )
+		If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Prg2Bin(gc_Ext)") Then
+			nFile_Count = nFile_Count + 1
+			ReDim Preserve aFiles(nFile_Count)
+			aFiles(nFile_Count) = tcFile
+		End If
 	End If
 End Sub