Changeset: 152 - Optimización Ole

- Blocksize ajustado

TESTS/DATOS_READONLY/FB2P_DBC.DC2

@@ -38,7 +38,7 @@
 			<Comment></Comment>
 			<DataSource></DataSource>
 			<Database></Database>
-			<ConnectString>DRIVER={Oracle en OraClient11g_home1};SERVER=CARTERA;UID=STROSNC;PWD=STROSNC;DBQ=CARTERA;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;MLD=0;ODA=</ConnectString>
+			<ConnectString>DRIVER={Oracle en OraClient11g_home1};SERVER=BDDServer;UID=BDDUser;PWD=BDDPwd;DBQ=CARTERA;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;MLD=0;ODA</ConnectString>
 			<Asynchronous>.F.</Asynchronous>
 			<BatchMode>.T.</BatchMode>
 			<ConnectTimeout>15</ConnectTimeout>

foxbin2prg.pj2

@@ -26,7 +26,7 @@ _LegalTrademark = "Open Source"
 _ProductName = " FOXBIN2PRG"
 _MajorVer = "1"
 _MinorVer = "19"
-_Revision = " 220"
+_Revision = " 222"
 _LanguageID = "1034"
 _AutoIncrement = "1"
 *</DevInfo>
@@ -51,7 +51,7 @@ loProject = _VFP.Projects('foxbin2prg.pjx')
 
 WITH loProject.FILES
 	.ADD('config\config.fpw')		&& *< FileMetadata: Type="T" Cpid="1252" Timestamp="1132857145" ID="1131721714" ObjRev="0" />
-	.ADD('foxbin2prg.prg')		&& *< FileMetadata: Type="P" Cpid="1252" Timestamp="1144997514" ID="1130644423" ObjRev="544" />
+	.ADD('foxbin2prg.prg')		&& *< FileMetadata: Type="P" Cpid="1252" Timestamp="1145207292" ID="1130644423" ObjRev="544" />
 	*</BuildProj>
 
 	.ITEM('__newproject.f2b').Remove()

foxbin2prg.prg

@@ -66,7 +66,9 @@
 * 08/01/2014	FDBOZZO		v1.19.3	Cambio en los timestamps de los TXT para mantener los valores vac<61>os que generaban much<63>simas diferencias
 * 22/01/2014	FDBOZZO		v1.19.4	Nuevo par<61>metro Recompile para forzar la recompilaci<63>n. Ahora por defecto el binario no se recompila para ganar velocidad y evitar errores. Debe recompilar manualmente.
 * 22/01/2014	FDBOZZO		v1.19.4	DBC: Agregado soporte para comentarios multil<69>nea (propiedad Comment)
-* 30/01/2014	FDBOZZO		v1.19.5	Agregada compatibilidad con SourceSafe para Diff y Merge
+* 26/01/2014	FDBOZZO		v1.19.5	Agregado soporte multiidioma y traducci<63>n al Ingl<67>s
+* 01/02/2014	FDBOZZO		v1.19.6	Agregada compatibilidad con SourceSafe para Diff y Merge
+* 02/02/2014	FDBOZZO		v1.19.7	Encapsulaci<63>n de objetos OLE en el propio control o clase // Blocksize ajustado
 * </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
 *
 *---------------------------------------------------------------------------------------------------
@@ -83,7 +85,6 @@
 * 14/12/2013	Fidel Charny	REPORTE BUG scx v1.13: La regeneraci<63>n de los forms (SCX) no regenera el <20>ltimo registro COMMENT (arreglado en v.1.14)
 * 01/01/2014	Fidel Charny	REPORTE BUG mnx v1.16: El men<65> no siempre respeta la posici<63>n original LOCATION y a veces se genera mal el MNX (se arregla en v1.17)
 * 05/01/2014	Fidel Charny	REPORTE BUG mnx v1.17: Se genera cl<63>usula "DO" o llamada Command cuando no Procedure ni Command que llamar // Diferencia de Case en NAME (se arregla en v1.18)
-* 07/01/2014	F.D.Bozzo		BUG vcx/scx v1.18: Los *m<>todos deben ir siempre al final en el Reserved3, si no los eventos ACCESS no se disparan
 * </TESTEO Y REPORTE DE BUGS (AGRADECIMIENTOS)>
 *
 *---------------------------------------------------------------------------------------------------
@@ -692,7 +693,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 				, loFSO AS Scripting.FileSystemObject
 
 			lnCodError	= 0
-			tcRecompile	= EVL(tcRecompile,'')
+			tcRecompile	= EVL(tcRecompile,'1')
 
 			*SET DELETED ON
 			*SET DATE YMD
@@ -1379,6 +1380,7 @@ DEFINE CLASS c_conversor_base AS SESSION
 		SET CENTURY ON
 		SET SAFETY OFF
 		SET TABLEPROMPT OFF
+		SET BLOCKSIZE TO 0
 
 		PUBLIC C_FB2PRG_CODE
 		C_FB2PRG_CODE	= ''	&& Contendr<64> todo el c<>digo generado
@@ -3588,14 +3590,17 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 							toObjeto._Ole2				= .get_ValueByName_FromListNamesWithValues( 'OLEObject', 'C', @laPropsAndValues )
 							toObjeto._ZOrder			= .get_ValueByName_FromListNamesWithValues( 'ZOrder', 'I', @laPropsAndValues )
 							toObjeto._TimeStamp			= INT( .RowTimeStamp( .get_ValueByName_FromListNamesWithValues( 'TimeStamp', 'T', @laPropsAndValues ) ) )
+							toObjeto._Ole				= STRCONV( .get_ValueByName_FromListNamesWithValues( 'Value', 'C', @laPropsAndValues ), 14 )
 
 							IF NOT EMPTY( toObjeto._Ole2 )	&& Le agrego "OLEObject = " delante
 								toObjeto._Ole2		= 'OLEObject = ' + toObjeto._Ole2 + CR_LF
 							ENDIF
 
 							*-- Ubico el objeto ole por su nombre (parent+objname), que no se repite.
-							IF toModulo.existeObjetoOLE( toObjeto._Nombre, @Z )
+							IF EMPTY(toObjeto._Ole)	&& Si _Ole est<73> vac<61>o es porque el propio control no tiene la info y est<73> en la cabecera (antiguo guardado)
-								toObjeto._Ole	= toModulo._Ole_Objs(Z)._Value
+								IF toModulo.existeObjetoOLE( toObjeto._Nombre, @Z )
+									toObjeto._Ole	= toModulo._Ole_Objs(Z)._Value
+								ENDIF
 							ENDIF
 
 							EXIT
@@ -3975,6 +3980,7 @@ 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 )
+				toClase._Ole				= STRCONV( .get_ValueByName_FromListNamesWithValues( 'Value', 'C', @laPropsAndValues ), 14 )
 			ENDWITH && THIS
 
 			IF NOT EMPTY( toClase._Ole2 )	&& Le agrego "OLEObject = " delante
@@ -4497,7 +4503,7 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
 						VALUES ;
 						( 'COMMENT' ;
 						, 'RESERVED' ;
-						, loClase._TimeStamp ;
+						, 0 ;
 						, '' ;
 						, '' ;
 						, '' ;
@@ -7208,8 +7214,12 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 
 			*-- Agrego metainformaci<63>n para objetos OLE
 			IF toRegObj.BASECLASS == 'olecontrol'
-				TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2
+				TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2+4+8
-					OLEObject="<<STREXTRACT(toRegObj.ole2, 'OLEObject = ', CHR(13)+CHR(10), 1, 1+2)>>" CheckSum="<<SYS(2007, toRegObj.ole, 0, 1)>>" <<>>
+					<<>> Nombre="<<IIF(EMPTY(toRegObj.Parent),'',toRegObj.Parent+'.') + toRegObj.objName>>"
+					Parent="<<toRegObj.Parent>>"
+					ObjName="<<toRegObj.objname>>"
+					OLEObject="<<STREXTRACT(toRegObj.ole2, 'OLEObject = ', CHR(13)+CHR(10), 1, 1+2)>>"
+					Value="<<STRCONV(toRegObj.ole,13)>>" <<>>
 				ENDTEXT
 			ENDIF
 
@@ -7539,7 +7549,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 			<<>>
 		ENDTEXT
 
-		TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2+8
+		TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2+4+8
 			<<>>	<<C_METADATA_I>>
 			Baseclass="<<toRegClass.Baseclass>>"
 			Timestamp="<<THIS.getTimeStamp(toRegClass.Timestamp)>>"
@@ -7548,8 +7558,12 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 		ENDTEXT
 
 		IF NOT EMPTY(toRegClass.OLE2)
-			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2+4+8
+			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2+4+8
-				OLEObject="<<STREXTRACT(toRegClass.ole2, 'OLEObject = ', CHR(13)+CHR(10), 1, 1+2)>>" CheckSum="<<SYS(2007, toRegClass.ole, 0, 1)>>" <<>>
+				<<>> Nombre="<<IIF(EMPTY(toRegClass.Parent),'',toRegClass.Parent+'.') + toRegClass.objName>>"
+				Parent="<<toRegClass.Parent>>"
+				ObjName="<<toRegClass.objname>>"
+				OLEObject="<<STREXTRACT(toRegClass.ole2, 'OLEObject = ', CHR(13)+CHR(10), 1, 1+2)>>"
+				Value="<<STRCONV(toRegClass.ole,13)>>"
 			ENDTEXT
 		ENDIF
 
@@ -7961,25 +7975,6 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 					<<>>
 				ENDTEXT
 
-				TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2+8
-					<<C_OLE_I>>
-					Nombre="<<IIF(EMPTY(loReg.Parent),'',loReg.Parent+'.') + loReg.objName>>"
-					Parent="<<loReg.Parent>>"
-					ObjName="<<loReg.objname>>"
-					OLEObject="<<STREXTRACT(loReg.ole2, 'OLEObject = ', CHR(13)+CHR(10), 1, 1+2)>>"
-					Checksum="<<lcOLEChecksum>>" <<>>
-				ENDTEXT
-
-				IF NOT llOleExistente
-					TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2
-						Value="<<STRCONV(loReg.ole,13)>>" <<>>
-					ENDTEXT
-				ENDIF
-
-				TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2
-					<<C_OLE_F>>
-				ENDTEXT
-
 			ENDSCAN
 
 			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2