Changeset: 188 fdbozzo - 04/03/2014 23:36:09:

v1.19.15
- Arreglo bug información OLE que se borra cuando se procesa un TX2 legacy
- Arreglo bug valor por defecto de NoTimestamp = 0
- Arreglo bug tablas que pierden el backlink cuando se regenera el DBC (Ryan Harris)
- Mejora: Capitalización a minúsculas del nombre de archivo que se muestra en el header de los archivos tx2 para evitar diferencias por este dato

Convert_VFP9_PRG_2_BIN.vbs

@@ -66,10 +66,17 @@ Else
 		scanDirs( WScript.Arguments(i) )
 	Next
 
+	If WScript.Arguments.Count = 1 AND FileSystemObject.FolderExists( WScript.Arguments(0) ) Then
+		'-- Es un solo directorio. Lo tomo como origen de compilaci<63>n
+		cFlagRecompile			= "'" & WScript.Arguments(0) & "'"
+	Else
+		cFlagRecompile			= "'1'"
+	End If
+
 	cFlagGenerateLog		= "'0'"
 	cFlagDontShowErrMsg		= "'0'"
 	cFlagShowCall			= "'0'"
-	cFlagRecompile			= "'1'"
+	'cFlagRecompile			= "'1'"
 
 	If GetBit(nDebug, 1) Then
 		cFlagGenerateLog	= "'1'"

foxbin2prg.pj2

@@ -26,7 +26,7 @@ _LegalTrademark = "Open Source"
 _ProductName = " FOXBIN2PRG"
 _MajorVer = "1"
 _MinorVer = "19"
-_Revision = " 286"
+_Revision = " 288"
 _LanguageID = "1034"
 _AutoIncrement = "1"
 *</DevInfo>
@@ -50,8 +50,8 @@ MODIFY PROJECT 'foxbin2prg.pjx' NOWAIT NOSHOW NOPROJECTHOOK
 loProject = _VFP.Projects('foxbin2prg.pjx')
 
 WITH loProject.FILES
-	.ADD('config\config.fpw')		&& *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
-	.ADD('foxbin2prg.prg')		&& *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" />
+	.ADD('config\config.fpw')		&& *< FileMetadata: Type="T" Cpid="1252" Timestamp="1132857145" ID="0" ObjRev="0" />
+	.ADD('foxbin2prg.prg')		&& *< FileMetadata: Type="P" Cpid="1252" Timestamp="1147452450" ID="0" ObjRev="544" />
 	*</BuildProj>
 
 	.ITEM('__newproject.f2b').Remove()

foxbin2prg.prg

@@ -907,7 +907,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 					+ C_TAB + 'tcNoTimestamps:     ' + TRANSFORM(tcNoTimestamps) )
 
 				tcRecompile		= EVL(tcRecompile,'1')
-				tcNoTimestamps	= '0' &&EVL(tcNoTimestamps,'0')
+				tcNoTimestamps	= '1' &&EVL(tcNoTimestamps,'1')
 
 				IF _VFP.STARTMODE > 0
 					SET ESCAPE OFF
@@ -1351,7 +1351,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 			* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
 			* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
 			*--------------------------------------------------------------------------------------------------------------------------------------------------------
-			<<C_FB2PRG_META_I>> Version="<<TRANSFORM(THIS.n_FB2PRG_Version)>>" SourceFile="<<JUSTFNAME( EVL( THIS.c_OriginalFileName, THIS.c_InputFile ) )>>" <<C_FB2PRG_META_F>> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+			<<C_FB2PRG_META_I>> Version="<<TRANSFORM(THIS.n_FB2PRG_Version)>>" SourceFile="<<LOWER( JUSTFNAME( EVL( THIS.c_OriginalFileName, THIS.c_InputFile ) ) )>>" <<C_FB2PRG_META_F>> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
 			*
 		ENDTEXT
 
@@ -4347,7 +4347,9 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 				toClase._ProjectClassIcon	= .get_ValueByName_FromListNamesWithValues( 'ProjectClassIcon', 'C', @laPropsAndValues )
 				toClase._ClassIcon			= .get_ValueByName_FromListNamesWithValues( 'ClassIcon', 'C', @laPropsAndValues )
 				toClase._Ole2				= .get_ValueByName_FromListNamesWithValues( 'OLEObject', 'C', @laPropsAndValues )
+				IF EMPTY(toClase._Ole)
 					toClase._Ole				= STRCONV( .get_ValueByName_FromListNamesWithValues( 'Value', 'C', @laPropsAndValues ), 14 )
+				ENDIF
 			ENDWITH && THIS
 
 			IF NOT EMPTY( toClase._Ole2 )	&& Le agrego "OLEObject = " delante
@@ -11993,6 +11995,7 @@ DEFINE CLASS CL_DBC AS CL_DBC_BASE
 				loConnections	= ._Connections
 				loViews			= ._Views
 
+				ERASE (tc_OutputFile)
 				CREATE DATABASE (tc_OutputFile)
 				CLOSE DATABASES
 				OPEN DATABASE (tc_OutputFile) SHARED