- Bug Fix: Cuando se indica como nombre de archivo "*" y como tipo "*", se regeneran automáticamente todos los archivos binarios desde los archivos de texto (Alejandro Sosa)

FoxBin2PRGVersionFile.txt

@@ -2,8 +2,8 @@ Lparameters toUpdateInfo
 
 Local lcNote
 With toUpdateInfo
-    .VersionNumber        = 'v1.19.46'
+    .VersionNumber        = 'v1.19.47'
-    .VersionDate          = Date(2016,02,06)
+    .VersionDate          = Date(2016,02,10)
     .SourceFileUrl        = 'http://vfpxrepository.com/dl/thorupdate/Projects/FoxBin2Prg/FoxBin2Prg.Zip'
 
     .Link                 = 'http://vfpx.codeplex.com/wikipage?title=FoxBin2PRG'
@@ -17,6 +17,9 @@ Demo video using FoxBin2Prg with PlasticSCM: http://youtu.be/sE4wQ50Itqg
 
 Change History -------------------------------------------------------------
 
+2016/02/10	v1.19.47
+- Bug Fix: When a filename "*" is specified with a type "*", an automatic regeneration of all binary files is made from text files (Alejandro Sosa)
+
 2016/02/06	v1.19.46
 - Bug Fix: set_UserValue() method causes error when trying to get information about another error and the VFP binary table can not be opened (ie, because corrupted memo)
 - Feature: Added internal support for querying directory cfg information, with a new optional parameter, for API methods that require it (ie: get_Ext2FromExt, hasSupport*)

foxbin2prg.pj2

@@ -26,7 +26,7 @@ _LegalTrademark = "Creative Commons 4:	Reconocimiento - CompartirIgual (by-sa):
 _ProductName = "FOXBIN2PRG"
 _MajorVer = "1"
 _MinorVer = "19"
-_Revision = "46"
+_Revision = "47"
 _LanguageID = "1034"
 _AutoIncrement = "0"
 *</DevInfo>

foxbin2prg.prg

@@ -182,6 +182,7 @@
 * 25/11/2015	FDBOZZO		v1.19.46	Bug Fix Pj2: Se genera un error al regenerar un PJX desde un PJ2 donde alg<6C>n archivo contiene par<61>ntesis (EddieC)
 * 25/11/2015	FDBOZZO		v1.19.46	Mejora dbf: Nuevo par<61>metro ExcludeDBFAutoincNextval para evitar diferencias por este dato (edyshor)
 * 04/02/2016	FDBOZZO		v1.19.46	Bug Fix: Cuando se procesa un archivo en el directorio raiz, se genera un error 2062 (Aur<75>lien Dellieux)
+* 10/02/2016	FDBOZZO		v1.19.46	Bug Fix: Cuando se indica como nombre de archivo "*" y como tipo "*", se regeneran autom<6F>ticamente todos los archivos binarios desde los archivos de texto (Alejandro Sosa)
 * </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
 *
 *---------------------------------------------------------------------------------------------------
@@ -282,6 +283,7 @@
 * 20/11/2015	EddieC				Reporte bug Pjx v1.19.45: Se genera un error al regenerar un PJX desde un PJ2 donde alg<6C>n archivo contiene par<61>ntesis (Arreglado en v1.19.46 Preview-9)
 * 24/11/2015	edyshor				Mejora dbf v1.19.45: Nuevo par<61>metro ExcludeDBFAutoincNextval para evitar diferencias por este dato (Agregado en v1.19.46 Preview-9)
 * 01/02/2016	Aur<75>lien Dellieux	Reporte bug v1.19.45: Cuando se procesa un archivo en el directorio raiz, se genera un error 2062 (Arreglado en v1.19.46 Preview-10)
+* 10/02/2016	Alejandro Sosa		Reporte bug v1.19.46: Cuando se indica como nombre de archivo "*" y como tipo "*", se regeneran autom<6F>ticamente todos los archivos binarios desde los archivos de texto (Arreglado en v1.19.47 Preview-1)
 * </TESTEO Y REPORTE DE BUGS (AGRADECIMIENTOS)>
 *
 *---------------------------------------------------------------------------------------------------
@@ -2764,6 +2766,10 @@ DEFINE CLASS c_foxbin2prg AS Session
 									ENDCASE
 								ENDIF
 
+							CASE EMPTY( JUSTEXT( EVL(tc_InputFile,'') ) )
+								*-- NO SE INDIC<49> NINGUNA EXTENSI<53>N
+								ERROR loLang.C_INVALID_PARAMETER_LOC + ': cInputFile = "' + tc_InputFile + '"'
+
 							OTHERWISE
 								*-- DEM<45>S ARCHIVOS
 								*-- Filespec: "*.EXT"
@@ -4582,7 +4588,7 @@ DEFINE CLASS c_foxbin2prg AS Session
 	ENDPROC
 
 
-	FUNCTION WScriptShell_Run
+	FUNCTION wscriptshell_run
 		* Modificaci<63>n basada en la rutina RunExitCode.prg de William GC Steinford (nov 2002)
 		* pero compatible con el m<>todo Run de WScript.Shell para su reemplazo cuando no es posible usarlo.
 		* http://fox.wikis.com/wc.dll?Wiki~ProcessExitCode
@@ -11690,7 +11696,7 @@ DEFINE CLASS c_conversor_prg_a_frx AS c_conversor_prg_a_bin
 						lcValue	= lcValue + CR_LF + STREXTRACT( tcLine, '', C_DATA_F )
 
 						*-- Ajustes: En los labels, no se usa CR+LF, sino que se usa solo CR
-						IF toReg.objType = "5" THEN
+						IF toReg.ObjType = "5" THEN
 							lcValue = STRTRAN(lcValue, CR_LF, C_CR)
 						ENDIF
 
@@ -16377,9 +16383,9 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg
 					C_FB2PRG_CODE	= C_FB2PRG_CODE + toFoxBin2Prg.get_PROGRAM_HEADER()
 
 					*SELECT * FROM _TABLAORIG ;
-						WHERE ObjType IN (1,25,26) ;
+					WHERE ObjType IN (1,25,26) ;
-						ORDER BY ObjType ASC ;
+					ORDER BY ObjType ASC ;
-						INTO CURSOR TABLABIN_0 READWRITE
+					INTO CURSOR TABLABIN_0 READWRITE
 					*-- Arreglo bug agrupaci<63>n de controles. 29/10/2015
 					SELECT * FROM _TABLAORIG ;
 						WHERE ObjType IN (1,25,26) ;
@@ -23639,10 +23645,10 @@ DEFINE CLASS CL_DBF_RECORD AS CL_CUS_BASE
 					DO CASE
 					CASE lcFieldType == 'G'
 						luValue		= 'GENERAL FIELD NOT SUPPORTED'
-					*CASE lcFieldType == 'W'
+						*CASE lcFieldType == 'W'
-					*	luValue		= 'BLOB FIELD NOT SUPPORTED'
+						*	luValue		= 'BLOB FIELD NOT SUPPORTED'
-					*CASE lcFieldType == 'Q'
+						*CASE lcFieldType == 'Q'
-					*	luValue		= 'VARBINARY FIELD NOT SUPPORTED'
+						*	luValue		= 'VARBINARY FIELD NOT SUPPORTED'
 					OTHERWISE
 						luValue		= EVALUATE(lcField)
 					ENDCASE