From a494d5ef393c55022d518b251f19e07babf36c3b Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Sun, 22 Jun 2014 21:40:36 +0200
Subject: [PATCH] Changeset: 326 fdbozzo - 22/06/2014 21:39:59:

---
 Convert_VFP9_BIN_2_PRG.vbs |  5 +++--
 Convert_VFP9_PRG_2_BIN.vbs | 10 ++++++++--
 2 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/Convert_VFP9_BIN_2_PRG.vbs b/Convert_VFP9_BIN_2_PRG.vbs
index 00968b3..c55e9c7 100644
--- a/Convert_VFP9_BIN_2_PRG.vbs
+++ b/Convert_VFP9_BIN_2_PRG.vbs
@@ -151,11 +151,12 @@ End Sub
 Private Sub evaluateFile( tcFile )
 	lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) )
 	oVFP9.SetVar "gc_Ext", lcExt
-	'If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Bin2Prg(gc_Ext)") Then
+	oVFP9.DoCmd( "oFoxBin2prg.EvaluarConfiguracion( '', '', '', '', '', '', '', '', '" & tcFile & "' )" )
+	If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Bin2Prg(gc_Ext)") Then
 		nFile_Count = nFile_Count + 1
 		ReDim Preserve aFiles(nFile_Count)
 		aFiles(nFile_Count) = tcFile
-	'End If
+	End If
 End Sub
 
 
diff --git a/Convert_VFP9_PRG_2_BIN.vbs b/Convert_VFP9_PRG_2_BIN.vbs
index b094e84..785b52e 100644
--- a/Convert_VFP9_PRG_2_BIN.vbs
+++ b/Convert_VFP9_PRG_2_BIN.vbs
@@ -158,11 +158,17 @@ End Sub
 Private Sub evaluateFile( tcFile )
 	lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) )
 	oVFP9.SetVar "gc_Ext", lcExt
-	'If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Prg2Bin(gc_Ext)") Then
+	
+	'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