Changeset: 325 fdbozzo - 22/06/2014 20:53:17:

- Arreglo de evaluación de soporte de tipo de archivo

Convert_VFP9_BIN_2_PRG.vbs

@@ -151,11 +151,11 @@ 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
+	'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
 
 

Convert_VFP9_PRG_2_BIN.vbs

@@ -158,11 +158,11 @@ 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
+	'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
 
 

foxbin2prg.pj2

@@ -23,10 +23,10 @@ _CompanyName = "Fernando D. Bozzo"
 _FileDescription = "Conversor bidireccional de binarios FoxPro 9 (scx,vcx,pjx) a texto para sustituir al scctext :-)"
 _LegalCopyright = "Creative Commons 4:	Reconocimiento - CompartirIgual (by-sa): http://creativecommons.org/licenses/by/4.0/"
 _LegalTrademark = "Creative Commons 4:	Reconocimiento - CompartirIgual (by-sa): http://creativecommons.org/licenses/by/4.0/"
-_ProductName = " FOXBIN2PRG v1.19.24"
+_ProductName = " FOXBIN2PRG v1.19.25"
 _MajorVer = "1"
 _MinorVer = "19"
-_Revision = "24"
+_Revision = "25"
 _LanguageID = "1034"
 _AutoIncrement = "0"
 *</DevInfo>

foxbin2prg.prg

@@ -1038,7 +1038,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 
 	PROCEDURE EvaluarConfiguracion
 		LPARAMETERS tcDontShowProgress, tcDontShowErrors, tcNoTimestamps, tcDebug, tcRecompile, tcExtraBackupLevels ;
-			, tcClearUniqueID, tcOptimizeByFilestamp
+			, tcClearUniqueID, tcOptimizeByFilestamp, tc_InputFile
 
 		LOCAL lcConfigFile, llExisteConfig, laConfig(1), I, lcConfData, lcExt, lcValue ;
 			, lo_CFG AS CL_CFG OF 'FOXBIN2PRG.PRG' ;
@@ -1048,12 +1048,13 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 			STORE 0 TO lnKey
 			tcRecompile			= EVL(tcRecompile,'1')
 			lcConfigFile		= .c_Foxbin2prg_ConfigFile
+			tc_InputFile		= EVL(tc_InputFile, .c_InputFile)
 			
 			IF .l_AllowMultiConfig AND .l_Main_CFG_Loaded
-				IF EMPTY(.c_InputFile)
-					ERROR C_FILE_NOT_FOUND_LOC + ': .c_InputFile = "' + .c_InputFile + '"'
+				IF EMPTY(tc_InputFile)
+					ERROR C_FILE_NOT_FOUND_LOC + ': .c_InputFile = "' + tc_InputFile + '"'
 				ENDIF
-				lcConfigFile	= FORCEPATH( 'foxbin2prg.cfg', JUSTPATH(.c_InputFile) )
+				lcConfigFile	= FORCEPATH( 'foxbin2prg.cfg', JUSTPATH(tc_InputFile) )
 			ENDIF
 			
 			lo_Configuration	= .o_Configuration