Changeset: 481 fdbozzo - 10/11/2014 00:29:47:

- Antiguo método de OLE que ya no se usa

foxbin2prg.prg

@@ -10300,63 +10300,63 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 		*-- Crea la definici<63>n del tag *< OLE: /> con la informaci<63>n de todos los objetos OLE
 		LPARAMETERS toFoxBin2Prg
 
-		LOCAL lnOLECount, lcOLEChecksum, llOleExistente, loReg
+		*!*			LOCAL lnOLECount, lcOLEChecksum, llOleExistente, loReg
 
-		#IF .F.
+		*!*			#IF .F.
-			LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
+		*!*				LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
-		#ENDIF
+		*!*			#ENDIF
 
-		TRY
+		*!*			TRY
-			SELECT TABLABIN
+		*!*				SELECT TABLABIN
-			SET ORDER TO PARENT_OBJ
+		*!*				SET ORDER TO PARENT_OBJ
-			lnOLECount	= 0
+		*!*				lnOLECount	= 0
 
-			SCAN ALL FOR TABLABIN.PLATFORM = "WINDOWS" AND BASECLASS = 'olecontrol'
+		*!*				SCAN ALL FOR TABLABIN.PLATFORM = "WINDOWS" AND BASECLASS = 'olecontrol'
-				loReg	= NULL
+		*!*					loReg	= NULL
-				SCATTER MEMO NAME loReg
+		*!*					SCATTER MEMO NAME loReg
 
-				IF toFoxBin2Prg.l_NoTimestamps
+		*!*					IF toFoxBin2Prg.l_NoTimestamps
-					loReg.TIMESTAMP	= 0
+		*!*						loReg.TIMESTAMP	= 0
-				ENDIF
+		*!*					ENDIF
-				IF toFoxBin2Prg.l_ClearUniqueID
+		*!*					IF toFoxBin2Prg.l_ClearUniqueID
-					loReg.UNIQUEID	= ''
+		*!*						loReg.UNIQUEID	= ''
-				ENDIF
+		*!*					ENDIF
 
-				lcOLEChecksum	= SYS(2007, loReg.OLE, 0, 1)
+		*!*					lcOLEChecksum	= SYS(2007, loReg.OLE, 0, 1)
-				llOleExistente	= .F.
+		*!*					llOleExistente	= .F.
 
-				IF lnOLECount > 0 AND ASCAN(laOLE, lcOLEChecksum, 1, 0, 0, 0) > 0
+		*!*					IF lnOLECount > 0 AND ASCAN(laOLE, lcOLEChecksum, 1, 0, 0, 0) > 0
-					llOleExistente	= .T.
+		*!*						llOleExistente	= .T.
-				ENDIF
+		*!*					ENDIF
 
-				lnOLECount	= lnOLECount + 1
+		*!*					lnOLECount	= lnOLECount + 1
-				DIMENSION laOLE( lnOLECount )
+		*!*					DIMENSION laOLE( lnOLECount )
-				laOLE( lnOLECount )	= lcOLEChecksum
+		*!*					laOLE( lnOLECount )	= lcOLEChecksum
 
-				TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
+		*!*					TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
-					<<>>
+		*!*						<<>>
-				ENDTEXT
+		*!*					ENDTEXT
 
-			ENDSCAN
+		*!*				ENDSCAN
 
-			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
+		TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
-				*
+			*
-			ENDTEXT
+		ENDTEXT
 
-		CATCH TO loEx
+		*!*			CATCH TO loEx
-			IF THIS.l_Debug AND _VFP.STARTMODE = 0
+		*!*				IF THIS.l_Debug AND _VFP.STARTMODE = 0
-				SET STEP ON
+		*!*					SET STEP ON
-			ENDIF
+		*!*				ENDIF
 
-			THROW
+		*!*				THROW
 
-		FINALLY
+		*!*			FINALLY
-			loReg	= NULL
+		*!*				loReg	= NULL
-			RELEASE loReg
+		*!*				RELEASE loReg
 
-		ENDTRY
+		*!*			ENDTRY
 
-		RETURN
+		*!*			RETURN
 	ENDPROC