From f29cf42724d7efadf62d1a3ab30999c3e52f1f06 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Mon, 10 Nov 2014 00:40:47 +0100
Subject: [PATCH] =?UTF-8?q?Changeset:=20481=20fdbozzo=20-=2010/11/2014=200?=
 =?UTF-8?q?0:29:47:=20-=20Antiguo=20m=C3=A9todo=20de=20OLE=20que=20ya=20no?=
 =?UTF-8?q?=20se=20usa?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 foxbin2prg.prg | 84 +++++++++++++++++++++++++-------------------------
 1 file changed, 42 insertions(+), 42 deletions(-)

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