Changeset: 413 fdbozzo - 20/08/2014 18:12:02:

- Ajuste de capitalización de los archivos origen

foxbin2prg.prg

@@ -100,6 +100,7 @@
 * 08/08/2014	FDBOZZO		v1.19.30	Arreglo bug vcx/vct v1.19.29: En ciertos casos de herencia no se mantiene el orden alfabetico de algunos metodos (Ryan Harris)
 * 17/08/2014	FDBOZZO		v1.19.31	Agregada versi<73>n del EXE cuando se genera LOG de depuraci<63>n
 * 20/08/2014	FDBOZZO		v1.19.31	Mejora vcx/scx: Mejorado el reconocimiento de instrucciones #IF..#ENDIF cuando hay espacios entre # y el nombre de funci<63>n
+* 20/08/2014	FDBOZZO		v1.19.31	Mejora: Ajuste de capitalizaci<63>n de los archivos origen, as<61> ya no hay que hacerlo manualmente
 * </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
 *
 *---------------------------------------------------------------------------------------------------
@@ -1878,6 +1879,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 				ENDIF
 
 				lcExtension	= UPPER( JUSTEXT(.c_InputFile) )
+				.normalizarCapitalizacionArchivos( .T. )
 
 				DO CASE
 				CASE lcExtension = 'VCX'
@@ -2173,9 +2175,11 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 
 	*******************************************************************************************************************
 	PROCEDURE normalizarCapitalizacionArchivos
+		LPARAMETERS tl_NormalizeInputFile
+
 		TRY
 			LOCAL lcPath, lcEXE_CAPS, lcOutputFile, loEx AS EXCEPTION ;
-				, loFSO AS Scripting.FileSystemObject
+				, loFSO AS Scripting.FileSystemObject, lcType
 
 			WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
 				lcPath		= JUSTPATH(.c_Foxbin2prg_FullPath)
@@ -2206,6 +2210,47 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 
 				ENDCASE
 
+				IF tl_NormalizeInputFile
+					lcType	= UPPER( JUSTEXT( .c_InputFile ) )
+
+					*-- Normalizar archivo(s) de entrada. El primero siempre se normaliza (??2, ??X, DBF, DBC)
+					.RenameFile( .c_InputFile, lcEXE_CAPS, loFSO )
+
+					DO CASE
+					CASE lcType = 'PJX'
+						.RenameFile( FORCEEXT(.c_InputFile,'PJT'), lcEXE_CAPS, loFSO )
+
+					CASE lcType = 'VCX'
+						.RenameFile( FORCEEXT(.c_InputFile,'VCT'), lcEXE_CAPS, loFSO )
+
+					CASE lcType = 'SCX'
+						.RenameFile( FORCEEXT(.c_InputFile,'SCT'), lcEXE_CAPS, loFSO )
+
+					CASE lcType = 'FRX'
+						.RenameFile( FORCEEXT(.c_InputFile,'FRT'), lcEXE_CAPS, loFSO )
+
+					CASE lcType = 'LBX'
+						.RenameFile( FORCEEXT(.c_InputFile,'LBT'), lcEXE_CAPS, loFSO )
+
+					CASE lcType = 'DBF'
+						IF FILE( FORCEEXT(.c_InputFile,'FPT') )
+							.RenameFile( FORCEEXT(.c_InputFile,'FPT'), lcEXE_CAPS, loFSO )
+						ENDIF
+						IF FILE( FORCEEXT(.c_InputFile,'CDX') )
+							.RenameFile( FORCEEXT(.c_InputFile,'CDX'), lcEXE_CAPS, loFSO )
+						ENDIF
+
+					CASE lcType = 'DBC'
+						.RenameFile( FORCEEXT(.c_InputFile,'DCX'), lcEXE_CAPS, loFSO )
+						.RenameFile( FORCEEXT(.c_InputFile,'DCT'), lcEXE_CAPS, loFSO )
+
+					CASE lcType = 'MNX'
+						.RenameFile( FORCEEXT(.c_InputFile,'MNT'), lcEXE_CAPS, loFSO )
+
+					ENDCASE
+					
+				ELSE
+					*-- Normalizar archivo(s) de salida. El primero siempre se normaliza (??2, ??X, DBF, DBC)
 					.RenameFile( .c_OutputFile, lcEXE_CAPS, loFSO )
 
 					DO CASE
@@ -2240,6 +2285,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 						.RenameFile( FORCEEXT(.c_OutputFile,'MNT'), lcEXE_CAPS, loFSO )
 
 					ENDCASE
+				ENDIF
 			ENDWITH && THIS
 
 		CATCH TO loEx