diff --git a/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg b/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg
index 6cf4a40..6ac91b2 100644
--- a/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg
+++ b/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg
@@ -51,13 +51,13 @@ DEFINE CLASS CL_FXU_CONFIG AS CUSTOM
 
 	*----------------------------------------------------------------------------------------
 	PROCEDURE SETUP_COMUN
-
+		ERASE (FORCEPATH( '*.*', THIS.cPathDatosTest ) )
 	ENDPROC
 
 
 	*----------------------------------------------------------------------------------------
 	PROCEDURE TEARDOWN_COMUN
-
+		USE IN (SELECT("TABLABIN"))
 	ENDPROC
 
 
diff --git a/TESTS/ut__foxbin2prg.prg b/TESTS/ut__foxbin2prg.prg
index a1e009a..1306ecc 100644
--- a/TESTS/ut__foxbin2prg.prg
+++ b/TESTS/ut__foxbin2prg.prg
@@ -54,9 +54,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 	*******************************************************************************************************************************************
 	FUNCTION Evaluate_results
-		LPARAMETERS toEx AS EXCEPTION, tnCodError_Esperado ;
-			, tc_InputFile, taPropsAndValues, tnPropsAndValues_Count ;
-			, taPropsAndValues_Esperado, tnPropsAndValues_Count_Esperado, tcParent, tcClass, tcObjName
+		LPARAMETERS toEx AS EXCEPTION, tnCodError_Esperado, tc_InputFile, tcParent, tcClass, tcObjName, toReg, toReg_Esperado
 
 		#IF .F.
 			PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
@@ -70,24 +68,110 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 		ENDIF
 
 		IF ISNULL(toEx)
+			LOCAL laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
+				, lnPropsAndComments_Count, lnPropsAndComments_Count_Esperado, laPropsAndComments(1,2), laPropsAndComments_Esperado(1,2) ;
+				, laProtected(1), lnProtected_Count, laProtected_Esperado(1), lnProtected_Count_Esperado ;
+				, laMethods(1,2), lnMethods_Count, laMethods_Esperado(1,2), lnMethods_Count_Esperado
+			LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
+
 			*-- Algunos ajustes para mejor visualización de caracteres especiales
 			*tcPropValue				= oFXU_LIB.mejorarPresentacionCaracteresEspeciales( tcPropValue )
+			loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
+
+			*-- Reserved3
+			loObj.get_PropsAndCommentsFrom_RESERVED3( toReg.RESERVED3, .F., @laPropsAndComments, @lnPropsAndComments_Count, '' )
+			loObj.get_PropsAndCommentsFrom_RESERVED3( toReg_Esperado.RESERVED3, .F., @laPropsAndComments_Esperado, @lnPropsAndComments_Count_Esperado, '' )
+
+			*-- Properties
+			loObj.get_PropsAndValuesFrom_PROPERTIES( toReg.PROPERTIES, 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+			loObj.get_PropsAndValuesFrom_PROPERTIES( toReg_Esperado.PROPERTIES, 0, @laPropsAndValues_Esperado, @lnPropsAndValues_Count_Esperado, '' )
+			
+			*-- Protected
+			loObj.get_PropsFrom_PROTECTED( toReg.PROTECTED, .F., @laProtected, @lnProtected_Count, '' )
+			loObj.get_PropsFrom_PROTECTED( toReg_Esperado.PROTECTED, .F., @laProtected_Esperado, @lnProtected_Count_Esperado, '' )
+			
+			*-- Methods
+			loObj.get_ADD_OBJECT_METHODS( toReg, toReg, '', @laMethods, '', @lnMethods_Count )
+			loObj.get_ADD_OBJECT_METHODS( toReg_Esperado, toReg_Esperado, '', @laMethods_Esperado, '', @lnMethods_Count_Esperado )
+			
 
 
 			*-- Visualización de valores
 			THIS.messageout( LOWER(PROGRAM(PROGRAM(-1)-1)) )
+
 			THIS.messageout( '' )
-			THIS.messageout( 'Propiedades esperadas para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' )
-			THIS.messageout( REPLICATE('-',80) )
-			FOR I = 1 TO tnPropsAndValues_Count_Esperado
-				THIS.messageout( 'PropName = ' + TRANSFORM(taPropsAndValues_Esperado(I,1)) )
-			ENDFOR
+			THIS.messageout( 'PROPERTIES esperadas para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(lnPropsAndValues_Count_Esperado) )
+			*THIS.messageout( REPLICATE('-',80) )
+			*FOR I = 1 TO lnPropsAndValues_Count_Esperado
+			*	THIS.messageout( 'PropName = ' + TRANSFORM(laPropsAndValues_Esperado(I,1)) )
+			*ENDFOR
+
+			THIS.messageout( '' )
+			THIS.messageout( 'PROTECTED esperadas para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(lnProtected_Count_Esperado) )
+			*THIS.messageout( REPLICATE('-',80) )
+			*FOR I = 1 TO lnProtected_Count_Esperado
+			*	THIS.messageout( 'PropName = ' + TRANSFORM(laProtected_Esperado(I,1)) )
+			*ENDFOR
+
+			THIS.messageout( '' )
+			THIS.messageout( 'RESERVED3 esperadas para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(lnPropsAndComments_Count_Esperado) )
+			*THIS.messageout( REPLICATE('-',80) )
+			*FOR I = 1 TO lnPropsAndComments_Count_Esperado
+			*	THIS.messageout( 'PropName = ' + TRANSFORM(laPropsAndComments_Esperado(I,1)) )
+			*ENDFOR
+
+			THIS.messageout( '' )
+			THIS.messageout( 'METHODS esperadas para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(lnMethods_Count_Esperado) )
+			*THIS.messageout( REPLICATE('-',80) )
+			*FOR I = 1 TO lnMethods_Count_Esperado
+			*	THIS.messageout( 'Name = ' + TRANSFORM(laMethods_Esperado(I,1)) )
+			*ENDFOR
 
 
 			*-- Evaluación de valores
-			THIS.assertequals( tnPropsAndValues_Count_Esperado, tnPropsAndValues_Count, "Cantidad de propiedades" )
-			FOR I = 1 TO tnPropsAndValues_Count_Esperado
-				THIS.asserttrue( ASCAN( taPropsAndValues, taPropsAndValues_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobación de que existe la propiedad "' + TRANSFORM(taPropsAndValues_Esperado(I,1)) + '"' )
+			*-- Reserved1
+			THIS.assertequals( toReg_Esperado.Reserved1, toReg.Reserved1, "Valor de Reserved1" )
+
+			*-- Reserved2
+			THIS.assertequals( toReg_Esperado.Reserved2, toReg.Reserved2, "Valor de Reserved2" )
+
+			*-- Reserved4
+			THIS.assertequals( toReg_Esperado.Reserved4, toReg.Reserved4, "Valor de Reserved4" )
+
+			*-- Reserved5
+			THIS.assertequals( toReg_Esperado.Reserved5, toReg.Reserved5, "Valor de Reserved5" )
+
+			*-- Reserved6
+			THIS.assertequals( toReg_Esperado.Reserved6, toReg.Reserved6, "Valor de Reserved6" )
+
+			*-- Reserved7
+			THIS.assertequals( toReg_Esperado.Reserved7, toReg.Reserved7, "Valor de Reserved7" )
+
+			*-- Reserved8
+			THIS.assertequals( toReg_Esperado.Reserved8, toReg.Reserved8, "Valor de Reserved8" )
+
+			*-- PROPERTIES
+			THIS.assertequals( lnPropsAndValues_Count_Esperado, lnPropsAndValues_Count, "Cantidad de Properties" )
+			FOR I = 1 TO lnPropsAndValues_Count_Esperado
+				THIS.asserttrue( ASCAN( laPropsAndValues, laPropsAndValues_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobación de que existe la Property "' + TRANSFORM(taPropsAndValues_Esperado(I,1)) + '"' )
+			ENDFOR
+
+			*-- RESERVED3
+			THIS.assertequals( lnPropsAndValues_Count_Esperado, lnPropsAndValues_Count, "Cantidad de Reserved3" )
+			FOR I = 1 TO lnPropsAndValues_Count_Esperado
+				THIS.asserttrue( ASCAN( laPropsAndComments, laPropsAndComments_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobación de que existe la Reserved3 "' + TRANSFORM(taPropsAndValues_Esperado(I,1)) + '"' )
+			ENDFOR
+
+			*-- PROTECTED
+			THIS.assertequals( lnProtected_Count_Esperado, lnProtected_Count, "Cantidad de Protected" )
+			FOR I = 1 TO lnProtected_Count_Esperado
+				THIS.asserttrue( ASCAN( laProtected, laProtected_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobación de que existe la Protected "' + TRANSFORM(taPropsAndValues_Esperado(I,1)) + '"' )
+			ENDFOR
+
+			*-- METHODS
+			THIS.assertequals( lnMethods_Count_Esperado, lnMethods_Count, "Cantidad de Methods" )
+			FOR I = 1 TO lnPropsAndValues_Count_Esperado
+				THIS.asserttrue( ASCAN( laMethods, laMethods_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobación de que existe el Method "' + TRANSFORM(taPropsAndValues_Esperado(I,1)) + '"' )
 			ENDFOR
 
 		ELSE
@@ -102,15 +186,14 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 	*******************************************************************************************************************************************
-	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__dataenvironment
+	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElRegistroDeCabecera
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -121,11 +204,101 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', 'VERSION =   3.00' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('dataenvironment')
 		lcParent						= ''
 		lcObjName						= 'Dataenvironment'
 
-		TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4
+
+		*-- TEST
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
+
+			LOCATE FOR PLATFORM=="COMMENT " AND UniqueID=="Screen    "
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro de cabecera "Screen"'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
+
+		*--
+		CATCH TO loEx
+		ENDTRY
+
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
+
+	ENDFUNC
+
+
+	*******************************************************************************************************************************************
+	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__dataenvironment
+		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
+			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
+			, loEx AS EXCEPTION
+
+		loEx		= NULL
+		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
+
+		*-- DATOS DE ENTRADA
+		STORE 0 TO lnCodError
+		lc_InputFile		= 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
+		lcDontShowErrors	= '1'
+
+		*-- DATOS ESPERADOS
+		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		TEXT TO loReg_Esperado.Reserved3 NOSHOW FLAGS 1+2 PRETEXT 1+2+4
 			Top = 404
 			Left = 11
 			Width = 520
@@ -133,33 +306,60 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 			DataSource = .NULL.
 			Name = "Dataenvironment"
 		ENDTEXT
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
 
-		lnPropsAndValues_Count_Esperado	= ALINES( laProps, lcMemo, 1+4 )
-		DIMENSION laPropsAndValues_Esperado(lnPropsAndValues_Count_Esperado,2)
-		
-		FOR I = 1 TO lnPropsAndValues_Count_Esperado
-			loObj.get_SeparatedPropAndValue( laProps(I), @lcProp, @lcValue )
-			laPropsAndValues_Esperado(I,1)	= lcProp
-			laPropsAndValues_Esperado(I,2)	= lcValue
-		ENDFOR
+		lcClass							= LOWER('dataenvironment')
+		lcParent						= ''
+		lcObjName						= 'Dataenvironment'
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
+SET STEP ON
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+		CATCH TO loEx
+		ENDTRY
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
-
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -168,12 +368,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__dataenvironment__Cursor1
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -184,6 +383,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('cursor')
 		lcParent						= 'Dataenvironment'
 		lcObjName						= 'Cursor1'
@@ -209,21 +433,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -232,12 +472,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -248,6 +487,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('cl_form')
 		lcParent						= ''
 		lcObjName						= 'Cl_form1'
@@ -301,21 +565,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -324,12 +604,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__shape1
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -340,6 +619,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('shape')
 		lcParent						= 'Cl_form1'
 		lcObjName						= 'Shape1'
@@ -368,21 +672,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -391,12 +711,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__txtPromotor
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -407,6 +726,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('textbox')
 		lcParent						= 'Cl_form1'
 		lcObjName						= 'txtPromotor'
@@ -438,21 +782,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -461,12 +821,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__lblPromotor
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -477,6 +836,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('label')
 		lcParent						= 'Cl_form1'
 		lcObjName						= 'lblPromotor'
@@ -505,21 +889,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -528,12 +928,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__txtIdenc
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -544,6 +943,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('textbox')
 		lcParent						= 'Cl_form1'
 		lcObjName						= 'txtIdenc'
@@ -575,21 +999,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -598,12 +1038,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__lblIdenc
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -614,6 +1053,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('label')
 		lcParent						= 'Cl_form1'
 		lcObjName						= 'lblIdenc'
@@ -642,21 +1106,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -665,12 +1145,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__txtCalific
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -681,6 +1160,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('textbox')
 		lcParent						= 'Cl_form1'
 		lcObjName						= 'txtCalific'
@@ -712,21 +1216,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -735,12 +1255,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__lblCalific
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -751,6 +1270,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('label')
 		lcParent						= 'Cl_form1'
 		lcObjName						= 'lblCalific'
@@ -779,21 +1323,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -802,12 +1362,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__lblCalific
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -818,6 +1377,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('textbox')
 		lcParent						= 'Cl_form1'
 		lcObjName						= 'txtFecha'
@@ -848,21 +1432,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -871,12 +1471,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__lblFecha
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -887,6 +1486,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('label')
 		lcParent						= 'Cl_form1'
 		lcObjName						= 'lblFecha'
@@ -915,21 +1539,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -938,12 +1578,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__txtResultado
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -954,6 +1593,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('textbox')
 		lcParent						= 'Cl_form1'
 		lcObjName						= 'txtResultado'
@@ -985,21 +1649,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -1008,12 +1688,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__lblResultado
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -1024,6 +1703,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('label')
 		lcParent						= 'Cl_form1'
 		lcObjName						= 'lblResultado'
@@ -1052,21 +1756,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -1075,12 +1795,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__grdEncuestas
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -1091,6 +1810,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('grid')
 		lcParent						= 'Cl_form1'
 		lcObjName						= 'grdEncuestas'
@@ -1141,21 +1885,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -1164,12 +1924,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column1__Header1
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -1180,6 +1939,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('header')
 		lcParent						= 'Cl_form1.grdEncuestas.Column1'
 		lcObjName						= 'Header1'
@@ -1200,21 +1984,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -1223,12 +2023,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column1__Text1
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -1239,6 +2038,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('textbox')
 		lcParent						= 'Cl_form1.grdEncuestas.Column1'
 		lcObjName						= 'Text1'
@@ -1263,21 +2087,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -1286,12 +2126,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column2__Header1
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -1302,6 +2141,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('header')
 		lcParent						= 'Cl_form1.grdEncuestas.Column2'
 		lcObjName						= 'Header1'
@@ -1322,21 +2186,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -1345,12 +2225,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column2__Text1
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -1361,6 +2240,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('textbox')
 		lcParent						= 'Cl_form1.grdEncuestas.Column2'
 		lcObjName						= 'Text1'
@@ -1385,21 +2289,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -1408,12 +2328,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column3__Header1
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -1424,6 +2343,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('header')
 		lcParent						= 'Cl_form1.grdEncuestas.Column3'
 		lcObjName						= 'Header1'
@@ -1444,21 +2388,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -1467,12 +2427,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column3__Text1
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -1483,6 +2442,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('textbox')
 		lcParent						= 'Cl_form1.grdEncuestas.Column3'
 		lcObjName						= 'Text1'
@@ -1507,21 +2491,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -1530,12 +2530,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column4__Header1
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -1546,6 +2545,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('header')
 		lcParent						= 'Cl_form1.grdEncuestas.Column4'
 		lcObjName						= 'Header1'
@@ -1566,21 +2590,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -1589,12 +2629,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column4__Text1
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -1605,6 +2644,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('textbox')
 		lcParent						= 'Cl_form1.grdEncuestas.Column4'
 		lcObjName						= 'Text1'
@@ -1629,21 +2693,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -1652,12 +2732,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column5__Header1
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -1668,6 +2747,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('header')
 		lcParent						= 'Cl_form1.grdEncuestas.Column5'
 		lcObjName						= 'Header1'
@@ -1688,21 +2792,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -1711,12 +2831,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column5__Text1
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -1727,6 +2846,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('textbox')
 		lcParent						= 'Cl_form1.grdEncuestas.Column5'
 		lcObjName						= 'Text1'
@@ -1751,21 +2895,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -1774,12 +2934,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1___Commandgroup1
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -1790,6 +2949,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('commandgroup')
 		lcParent						= 'Cl_form1'
 		lcObjName						= 'Commandgroup1'
@@ -1831,21 +3015,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -1854,12 +3054,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1___Optiongroup1
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -1870,6 +3069,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('Optiongroup')
 		lcParent						= 'Cl_form1'
 		lcObjName						= 'Optiongroup1'
@@ -1915,21 +3139,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
@@ -1938,12 +3178,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1___Cl_olecontrol1
 		LOCAL lnCodError, lcMenError, lnCodError_Esperado  ;
 			, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
-			, laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
-			, laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
 			, loEx AS EXCEPTION
 
-		LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
-		loObj		= NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
 		loEx		= NULL
 		oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
 
@@ -1954,6 +3193,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- DATOS ESPERADOS
 		STORE 0 TO lnCodError_Esperado
+		loReg_Esperado					= CREATEOBJECT("EMPTY")
+
+		*-- Reserved1
+		ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
+		*-- Reserved2
+		ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
+		*-- Reserved3
+		ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
+		*-- Reserved4
+		ADDPROPERTY( loReg_Esperado, 'Reserved4', '' )
+		*-- Reserved5
+		ADDPROPERTY( loReg_Esperado, 'Reserved5', '' )
+		*-- Reserved6
+		ADDPROPERTY( loReg_Esperado, 'Reserved6', '' )
+		*-- Reserved7
+		ADDPROPERTY( loReg_Esperado, 'Reserved7', '' )
+		*-- Reserved8
+		ADDPROPERTY( loReg_Esperado, 'Reserved8', '' )
+		*-- Properties
+		ADDPROPERTY( loReg_Esperado, 'Properties', '' )
+		*-- Protected
+		ADDPROPERTY( loReg_Esperado, 'Protected', '' )
+		*-- Methods
+		ADDPROPERTY( loReg_Esperado, 'Methods', '' )
+
 		lcClass							= LOWER('Cl_olecontrol')
 		lcParent						= 'Cl_form1'
 		lcObjName						= 'Cl_olecontrol1'
@@ -1977,21 +3241,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 
 		*-- TEST
-		DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
-		DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress
+		TRY
+			loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+			lnCodError	= loCnv.Convertir( lc_InputFile, @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			lnCodError	= loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx )
+			IF lnCodError > 0
+				EXIT
+			ENDIF
+			
+			IF FILE(lc_InputFile)
+				USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
+			ELSE
+				ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
+			ENDIF
 
-		IF FILE(lc_InputFile)
-			USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN
-		ELSE
-			ERROR 'No se encontró el archivo "' + lc_InputFile + '"'
-		ENDIF
+			LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+			IF NOT FOUND()
+				ERROR 'No se encontró el registro buscado'
+			ENDIF
+			SCATTER MEMO NAME loReg
+			USE IN (SELECT("TABLABIN"))
 
-		SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos
-		USE IN (SELECT("TABLABIN"))
-		loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
+		CATCH TO loEx
+		ENDTRY
 
-		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ;
-			, @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName )
+		THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
 
 	ENDFUNC
 
diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index 68b863d..26ab1bc 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -283,9 +283,9 @@ TRY
 
 CATCH TO loEx
 	IF llExisteConfig
-		goCnv.writeLog( 'ERROR: ' + TRANSFORM(loEx.ErrorNo) + ', ' + loEx.Message + CR_LF ;
-			+ loEx.Procedure + ', line ' + TRANSFORM(loEx.LineNo) + CR_LF ;
-			+ loEx.Details )
+		goCnv.writeLog( 'ERROR: ' + TRANSFORM(loEx.ERRORNO) + ', ' + loEx.MESSAGE + CR_LF ;
+			+ loEx.PROCEDURE + ', line ' + TRANSFORM(loEx.LINENO) + CR_LF ;
+			+ loEx.DETAILS )
 	ENDIF
 
 FINALLY
@@ -314,6 +314,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 		+ [<memberdata name="exception2str" type="method" display="Exception2Str"/>] ;
 		+ [<memberdata name="writelog" type="method" display="writeLog"/>] ;
 		+ [<memberdata name="l_debug" type="property" display="l_Debug"/>] ;
+		+ [<memberdata name="l_test" type="property" display="l_Test"/>] ;
 		+ [<memberdata name="l_showerrors" type="property" display="l_ShowErrors"/>] ;
 		+ [<memberdata name="c_curdir" type="property" display="c_CurDir"/>] ;
 		+ [<memberdata name="c_inputfile" type="property" display="c_InputFile"/>] ;
@@ -337,6 +338,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 	c_LogFile			= ''
 	c_OutputFile		= ''
 	l_Debug				= .F.
+	l_Test				= .F.
 	l_ShowErrors		= .F.
 	lFileMode			= .F.
 	nClassTimeStamp		= ''
@@ -380,10 +382,10 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 
 	*******************************************************************************************************************
 	PROCEDURE Convertir
-		LPARAMETERS tc_InputFile
+		LPARAMETERS tc_InputFile, toModulo, toEx AS EXCEPTION
 
 		TRY
-			LOCAL lnCodError, loEx AS EXCEPTION, lcErrorInfo
+			LOCAL lnCodError, lcErrorInfo
 			lnCodError			= 0
 			THIS.c_InputFile	= FULLPATH( tc_InputFile )
 			THIS.c_CurDir		= JUSTPATH( THIS.c_InputFile )
@@ -442,13 +444,14 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 			THIS.o_Conversor.c_OutputFile		= THIS.c_OutputFile
 			THIS.o_Conversor.c_LogFile			= THIS.c_LogFile
 			THIS.o_Conversor.l_Debug			= THIS.l_Debug
+			THIS.o_Conversor.l_Test				= THIS.l_Test
 			THIS.o_Conversor.n_FB2PRG_Version	= THIS.n_FB2PRG_Version
-			THIS.o_Conversor.Convertir()
+			THIS.o_Conversor.Convertir( @toModulo )
 			THIS.o_Conversor	= NULL
 
-		CATCH TO loEx
-			lnCodError	= loEx.ERRORNO
-			lcErrorInfo	= THIS.Exception2Str(loEx) + CR_LF + CR_LF + 'Fuente: ' + THIS.c_InputFile
+		CATCH TO toEx
+			lnCodError	= toEx.ERRORNO
+			lcErrorInfo	= THIS.Exception2Str(toEx) + CR_LF + CR_LF + 'Fuente: ' + THIS.c_InputFile
 
 			TRY
 				STRTOFILE( lcErrorInfo, THIS.c_InputFile + '.ERR' )
@@ -651,6 +654,7 @@ DEFINE CLASS c_conversor_base AS SESSION
 
 	*******************************************************************************************************************
 	PROCEDURE Convertir
+		LPARAMETERS toModulo, toEx AS EXCEPTION
 		THIS.writeLog( '' )
 		THIS.writeLog( 'Convirtiendo archivo ' + THIS.c_OutputFile + '...' )
 	ENDPROC
@@ -1348,7 +1352,8 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 
 	*******************************************************************************************************************
 	PROCEDURE Convertir
-		DODEFAULT()
+		LPARAMETERS toModulo, toEx AS EXCEPTION
+		DODEFAULT( @toModulo, @toEx )
 	ENDPROC
 
 
@@ -1752,14 +1757,16 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 			lcMemo	= ''
 
 			IF toClase._Prop_Count > 0
-				DIMENSION laProps( toClase._Prop_Count, 2 )
+				DIMENSION laProps( toClase._Prop_Count, 3 )
 				ACOPY( toClase._Props, laProps )
 				lnPropsAndValues_Count	= 0
 
 				WITH THIS
 					*-- OBTENGO LAS PROPIEDADES Y SUS VALORES
 					FOR I = 1 TO toClase._Prop_Count
-						.get_SeparatedPropAndValue( toClase._Props(I,1), @lcPropName, @lcValue )
+						*.get_SeparatedPropAndValue( toClase._Props(I,1), @lcPropName, @lcValue )
+						lcPropName	= toClase._Props(I,1)
+						lcValue		= toClase._Props(I,2)
 
 						DO CASE
 						CASE EMPTY(lcPropName)
@@ -1829,14 +1836,15 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 
 		IF toObjeto._Prop_Count > 0
 			DIMENSION laPropsAndValues( toObjeto._Prop_Count, 2 )
+			ACOPY( toObjeto._Props, laPropsAndValues )
 
-			WITH THIS
-				FOR I = 1 TO toObjeto._Prop_Count
-					.get_SeparatedPropAndValue( toObjeto._Props(I,1), @lcPropName, @lcValue )
-					laPropsAndValues(I,1)	= lcPropName
-					laPropsAndValues(I,2)	= lcValue
-				ENDFOR
-			ENDWITH && THIS
+			*WITH THIS
+			*	FOR I = 1 TO toObjeto._Prop_Count
+			*		.get_SeparatedPropAndValue( toObjeto._Props(I,1), @lcPropName, @lcValue )
+			*		laPropsAndValues(I,1)	= lcPropName
+			*		laPropsAndValues(I,2)	= lcValue
+			*	ENDFOR
+			*ENDWITH && THIS
 
 
 			*-- REORDENO LAS PROPIEDADES
@@ -2537,7 +2545,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 							*toProject.setParsedProjInfoLine( @tcLine )
 							lnPos			= AT( ' ', tcLine, 1 )
 							lnPos2			= AT( '&'+'&', tcLine )
-							
+
 							IF lnPos2 > 0
 								*-- Con comentarios
 								lcDefinedPAM	= lcDefinedPAM ;
@@ -2590,7 +2598,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 			IF LEFT( tcLine, 11 ) == 'ADD OBJECT '
 				*-- Estructura a reconocer: ADD OBJECT 'frm_a.Check1' AS check [WITH]
 				llBloqueEncontrado	= .T.
-				LOCAL laPropsAndValues(1,2), lnPropsAndValues_Count, Z
+				LOCAL laPropsAndValues(1,2), lnPropsAndValues_Count, Z, lcProp, lcValue
 				tcLine		= CHRTRAN( tcLine, ['], ["] )
 
 				IF EMPTY(toClase._Fin_Cab)
@@ -2647,10 +2655,12 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 
 						IF RIGHT(tcLine, 3) == ', ;'
 							*toObjeto.add_Property( .desnormalizarAsignacion( LEFT(tcLine, LEN(tcLine) - 3) ) )
-							toObjeto.add_Property( LEFT(tcLine, LEN(tcLine) - 3) )
+							.get_SeparatedPropAndValue( LEFT(tcLine, LEN(tcLine) - 3), @lcProp, @lcValue )
+							toObjeto.add_Property( @lcProp, @lcValue )
 						ELSE
 							*toObjeto.add_Property( .desnormalizarAsignacion( RTRIM(tcLine) ) )
-							toObjeto.add_Property( RTRIM(tcLine) )
+							.get_SeparatedPropAndValue( RTRIM(tcLine), @lcProp, @lcValue )
+							toObjeto.add_Property( @lcProp, @lcValue )
 						ENDIF
 
 					ENDFOR
@@ -2719,7 +2729,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 		IF LEFT(tcLine + ' ', 13) == C_DEFINE_CLASS + ' '
 			TRY
 				llBloqueEncontrado = .T.
-				LOCAL Z, loEx AS EXCEPTION ;
+				LOCAL Z, lcProp, lcValue, loEx AS EXCEPTION ;
 					, llMETADATA_Completed, llPROTECTED_Completed, llHIDDEN_Completed, llDEFINED_PAM_Completed ;
 					, llINCLUDE_Completed, llCLASS_PROPERTY_Completed
 
@@ -2803,7 +2813,8 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 
 						CASE NOT llCLASS_PROPERTY_Completed AND EMPTY( toClase._Fin_Cab ) && Propiedades del DEFINE CLASS
 							*toClase.add_Property( THIS.desnormalizarAsignacion( RTRIM(tcLine) ), RTRIM(tc_Comentario) )
-							toClase.add_Property( RTRIM(tcLine), RTRIM(tc_Comentario) )
+							.get_SeparatedPropAndValue( RTRIM(tcLine), @lcProp, @lcValue )
+							toClase.add_Property( @lcProp, @lcValue, RTRIM(tc_Comentario) )
 
 
 						OTHERWISE
@@ -2822,6 +2833,18 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 						+ 'para el identificador [' + toClase._Nombre + ']'
 				ENDIF
 
+				toClase._PROPERTIES		= THIS.classProps2Memo( toClase )
+				toClase._PROTECTED		= THIS.hiddenAndProtected_PAM( toClase )
+				toClase._METHODS		= THIS.classMethods2Memo( toClase )
+				*toClase._RESERVED1		= IIF( THIS.c_Type = 'SCX', 'Screen', 'Class' )
+				toClase._RESERVED2		= TRANSFORM( toClase._AddObject_Count + 1 )
+				toClase._RESERVED3		= THIS.defined_PAM2Memo( toClase )
+				toClase._RESERVED4		= toClase._ClassIcon
+				toClase._RESERVED5		= toClase._ProjectClassIcon
+				toClase._RESERVED6		= toClase._Scale
+				toClase._RESERVED7		= toClase._Comentario
+				toClase._RESERVED8		= toClase._includeFile
+
 			CATCH TO loEx
 				IF THIS.l_Debug AND _VFP.STARTMODE = 0
 					SET STEP ON
@@ -3010,11 +3033,12 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
 
 	*******************************************************************************************************************
 	PROCEDURE Convertir
-		DODEFAULT()
+		LPARAMETERS toModulo, toEx AS EXCEPTION
+		DODEFAULT( @toModulo, @toEx )
 
 		TRY
-			LOCAL lnCodError, loEx AS EXCEPTION, loReg, lcLine, laCodeLines(1), lnCodeLines, lnFB2P_Version, lcSourceFile ;
-				, laBloquesExclusion(1,2), lnBloquesExclusion, I, toModulo
+			LOCAL lnCodError, loReg, lcLine, laCodeLines(1), lnCodeLines, lnFB2P_Version, lcSourceFile ;
+				, laBloquesExclusion(1,2), lnBloquesExclusion, I
 			STORE 0 TO lnCodError, lnCodeLines, lnFB2P_Version
 			STORE '' TO lcLine, lcSourceFile
 			STORE NULL TO loReg, toModulo
@@ -3031,9 +3055,7 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
 			THIS.escribirArchivoBin( @toModulo )
 
 
-		CATCH TO loEx
-			lnCodError	= loEx.ERRORNO
-
+		CATCH TO toEx
 			IF THIS.l_Debug AND _VFP.STARTMODE = 0
 				SET STEP ON
 			ENDIF
@@ -3042,7 +3064,7 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
 
 		ENDTRY
 
-		RETURN lnCodError
+		RETURN
 	ENDPROC
 
 
@@ -3165,14 +3187,14 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
 					, loClase._BaseClass ;
 					, loClase._ObjName ;
 					, loClase._Parent ;
-					, THIS.classProps2Memo( loClase ) ;
-					, THIS.hiddenAndProtected_PAM( loClase ) ;
-					, THIS.classMethods2Memo( loClase ) ;
+					, loClase._PROPERTIES ;
+					, loClase._PROTECTED ;
+					, loClase._METHODS ;
 					, loClase._Ole ;
 					, loClase._Ole2 ;
-					, 'Class' ;
-					, TRANSFORM( loClase._AddObject_Count + 1 ) ;
-					, THIS.defined_PAM2Memo( loClase ) ;
+					, loClase._RESERVED1 ;
+					, loClase._RESERVED2 ;
+					, loClase._RESERVED3 ;
 					, loClase._ClassIcon ;
 					, loClase._ProjectClassIcon ;
 					, loClase._Scale ;
@@ -3270,11 +3292,12 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin
 
 	*******************************************************************************************************************
 	PROCEDURE Convertir
-		DODEFAULT()
+		LPARAMETERS toModulo, toEx AS EXCEPTION
+		DODEFAULT( @toModulo, @toEx )
 
 		TRY
-			LOCAL lnCodError, loEx AS EXCEPTION, loReg, lcLine, laCodeLines(1), lnCodeLines, lnFB2P_Version, lcSourceFile ;
-				, laBloquesExclusion(1,2), lnBloquesExclusion, I, toModulo
+			LOCAL lnCodError, loReg, lcLine, laCodeLines(1), lnCodeLines, lnFB2P_Version, lcSourceFile ;
+				, laBloquesExclusion(1,2), lnBloquesExclusion, I
 			STORE 0 TO lnCodError, lnCodeLines, lnFB2P_Version
 			STORE '' TO lcLine, lcSourceFile
 			STORE NULL TO loReg, toModulo
@@ -3291,9 +3314,7 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin
 			THIS.escribirArchivoBin( @toModulo )
 
 
-		CATCH TO loEx
-			lnCodError	= loEx.ERRORNO
-
+		CATCH TO toEx
 			IF THIS.l_Debug AND _VFP.STARTMODE = 0
 				SET STEP ON
 			ENDIF
@@ -3302,7 +3323,7 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin
 
 		ENDTRY
 
-		RETURN lnCodError
+		RETURN
 	ENDPROC
 
 
@@ -3430,14 +3451,14 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin
 					, loClase._BaseClass ;
 					, loClase._ObjName ;
 					, loClase._Parent ;
-					, THIS.classProps2Memo( loClase ) ;
-					, THIS.hiddenAndProtected_PAM( loClase ) ;
-					, THIS.classMethods2Memo( loClase ) ;
+					, loClase._PROPERTIES ;
+					, loClase._PROTECTED ;
+					, loClase._METHODS ;
 					, loClase._Ole ;
 					, loClase._Ole2 ;
-					, '' ;
-					, TRANSFORM( loClase._AddObject_Count + 1 ) ;
-					, THIS.defined_PAM2Memo( loClase ) ;
+					, loClase._RESERVED1 ;
+					, loClase._RESERVED2 ;
+					, loClase._RESERVED3 ;
 					, loClase._ClassIcon ;
 					, loClase._ProjectClassIcon ;
 					, loClase._Scale ;
@@ -3506,8 +3527,6 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin
 
 
 		CATCH TO loEx
-			lnCodError	= loEx.ERRORNO
-
 			IF THIS.l_Debug AND _VFP.STARTMODE = 0
 				SET STEP ON
 			ENDIF
@@ -3519,7 +3538,7 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin
 
 		ENDTRY
 
-		RETURN lnCodError
+		RETURN
 
 	ENDPROC
 ENDDEFINE
@@ -3545,12 +3564,16 @@ DEFINE CLASS c_conversor_prg_a_pjx AS c_conversor_prg_a_bin
 
 	*******************************************************************************************************************
 	PROCEDURE Convertir
-		DODEFAULT()
+		LPARAMETERS toModulo, toEx AS EXCEPTION
+		DODEFAULT( @toModulo, @toEx )
+
+		#IF .F.
+			LOCAL toProject AS CL_PROJECT OF 'FOXBIN2PRG.PRG'
+		#ENDIF
 
 		TRY
-			LOCAL lnCodError, loEx AS EXCEPTION, loReg, lcLine, laCodeLines(1), lnCodeLines, lnFB2P_Version, lcSourceFile ;
-				, laBloquesExclusion(1,2), lnBloquesExclusion, I ;
-				, loProject AS CL_PROJECT OF 'FOXBIN2PRG.PRG'
+			LOCAL lnCodError, loReg, lcLine, laCodeLines(1), lnCodeLines, lnFB2P_Version, lcSourceFile ;
+				, laBloquesExclusion(1,2), lnBloquesExclusion, I
 			STORE 0 TO lnCodError, lnCodeLines, lnFB2P_Version
 			STORE '' TO lcLine, lcSourceFile
 			STORE NULL TO loReg, toModulo
@@ -3562,14 +3585,12 @@ DEFINE CLASS c_conversor_prg_a_pjx AS c_conversor_prg_a_bin
 			*THIS.identificarBloquesDeExclusion( @laCodeLines, .F., @laBloquesExclusion, @lnBloquesExclusion )
 
 			*-- Identifico el inicio/fin de bloque, definición, cabecera y cuerpo de cada clase
-			THIS.identificarBloquesDeCodigo( @laCodeLines, lnCodeLines, @laBloquesExclusion, lnBloquesExclusion, @loProject )
+			THIS.identificarBloquesDeCodigo( @laCodeLines, lnCodeLines, @laBloquesExclusion, lnBloquesExclusion, @toProject )
 
-			THIS.escribirArchivoBin( @loProject )
+			THIS.escribirArchivoBin( @toProject )
 
 
-		CATCH TO loEx
-			lnCodError	= loEx.ERRORNO
-
+		CATCH TO toEx
 			IF THIS.l_Debug AND _VFP.STARTMODE = 0
 				SET STEP ON
 			ENDIF
@@ -3578,7 +3599,7 @@ DEFINE CLASS c_conversor_prg_a_pjx AS c_conversor_prg_a_bin
 
 		ENDTRY
 
-		RETURN lnCodError
+		RETURN
 	ENDPROC
 
 
@@ -4274,7 +4295,8 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 
 	*******************************************************************************************************************
 	PROCEDURE Convertir
-		DODEFAULT()
+		LPARAMETERS toModulo, toEx AS EXCEPTION
+		DODEFAULT( @toModulo, @toEx )
 	ENDPROC
 
 
@@ -4306,38 +4328,36 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 
 	*******************************************************************************************************************
 	PROCEDURE get_ADD_OBJECT_METHODS
-		LPARAMETERS toRegObj, toRegClass, tcMethods
+		LPARAMETERS toRegObj, toRegClass, tcMethods, taMethods, taCode, tnMethodCount
 
 		TRY
-			LOCAL laMethods(1,3), laCode(1), lnMethodCount
-
-			THIS.SortMethod( toRegObj.METHODS, @laMethods, @laCode, '', @lnMethodCount )
+			THIS.SortMethod( toRegObj.METHODS, @taMethods, @taCode, '', @tnMethodCount )
 
 			*-- Ubico los métodos protegidos y les cambio la definición.
 			*-- Los métodos se deben generar con la ruta completa, porque si no es imposible saber a que objeto corresponden,
 			*-- o si son de la clase.
-			IF lnMethodCount > 0 THEN
-				FOR I = 1 TO lnMethodCount
+			IF tnMethodCount > 0 THEN
+				FOR I = 1 TO tnMethodCount
 					IF EMPTY(toRegObj.PARENT)
-						lcMethodName	= toRegObj.OBJNAME + '.' + laMethods(I,1)
+						tcMethodName	= toRegObj.OBJNAME + '.' + taMethods(I,1)
 					ELSE
 						DO CASE
 						CASE '.' $ toRegObj.PARENT
-							lcMethodName	= SUBSTR(toRegObj.PARENT, AT('.', toRegObj.PARENT) + 1) + '.' + toRegObj.OBJNAME + '.' + laMethods(I,1)
+							tcMethodName	= SUBSTR(toRegObj.PARENT, AT('.', toRegObj.PARENT) + 1) + '.' + toRegObj.OBJNAME + '.' + taMethods(I,1)
 
 						CASE LEFT(toRegObj.PARENT + '.', LEN( toRegClass.OBJNAME + '.' ) ) == toRegClass.OBJNAME + '.'
-							lcMethodName	= toRegObj.OBJNAME + '.' + laMethods(I,1)
+							tcMethodName	= toRegObj.OBJNAME + '.' + taMethods(I,1)
 
 						OTHERWISE
-							lcMethodName	= toRegObj.PARENT + '.' + toRegObj.OBJNAME + '.' + laMethods(I,1)
+							tcMethodName	= toRegObj.PARENT + '.' + toRegObj.OBJNAME + '.' + taMethods(I,1)
 
 						ENDCASE
 					ENDIF
 
 					*-- Genero el método SIN indentar, ya que se hace luego
 					TEXT TO tcMethods ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
-						<<'PROCEDURE'>> <<lcMethodName>>
-						<<THIS.IndentarMemo( laCode(laMethods(I,2)) )>>
+						<<'PROCEDURE'>> <<tcMethodName>>
+						<<THIS.IndentarMemo( taCode(taMethods(I,2)) )>>
 						<<'ENDPROC'>>
 					ENDTEXT
 				ENDFOR
@@ -4767,8 +4787,8 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 			ENDTEXT
 		ENDIF
 	ENDPROC
-	
-	
+
+
 	*******************************************************************************************************************
 	PROCEDURE write_CABECERA_REPORTE
 		LPARAMETERS toReg
@@ -4777,7 +4797,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 			LOCAL lc_TAG_REPORTE
 			lc_TAG_REPORTE_I	= '<' + C_TAG_REPORTE + ' '
 			lc_TAG_REPORTE_F	= ' ></' + C_TAG_REPORTE + '>'
-			
+
 			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
 				<<lc_TAG_REPORTE_I>>
 			ENDTEXT
@@ -4878,8 +4898,8 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 
 		RETURN
 	ENDPROC
-	
-	
+
+
 	*******************************************************************************************************************
 	PROCEDURE write_DETALLE_REPORTE
 		LPARAMETERS toReg
@@ -4888,7 +4908,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 			LOCAL lc_TAG_REPORTE
 			lc_TAG_REPORTE_I	= '<' + C_TAG_REPORTE + ' '
 			lc_TAG_REPORTE_F	= ' ></' + C_TAG_REPORTE + '>'
-			
+
 			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
 				<<lc_TAG_REPORTE_I>>
 			ENDTEXT
@@ -4989,8 +5009,8 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 
 		RETURN
 	ENDPROC
-	
-	
+
+
 	*******************************************************************************************************************
 	PROCEDURE write_DATAENVIRONMENT_REPORTE
 		LPARAMETERS toReg
@@ -4999,7 +5019,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 			LOCAL lc_TAG_REPORTE
 			lc_TAG_REPORTE_I	= '<' + C_TAG_REPORTE + ' '
 			lc_TAG_REPORTE_F	= ' ></' + C_TAG_REPORTE + '>'
-			
+
 			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
 				<<lc_TAG_REPORTE_I>>
 			ENDTEXT
@@ -5721,10 +5741,11 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg
 
 	*******************************************************************************************************************
 	PROCEDURE Convertir
-		DODEFAULT()
+		LPARAMETERS toModulo, toEx AS EXCEPTION
+		DODEFAULT( @toModulo, @toEx )
 
 		TRY
-			LOCAL lnCodError, loEx AS EXCEPTION, loRegClass, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1) ;
+			LOCAL lnCodError, loRegClass, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1) ;
 				, laPropsAndValues(1), laPropsAndComments(1), lnLastClass, lnRecno, lcMethods, lcObjName, la_NombresObjsOle(1)
 			STORE 0 TO lnCodError, lnLastClass
 			STORE '' TO laMethods(1), laCode(1), laProtected(1), laPropsAndComments(1)
@@ -5812,13 +5833,16 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg
 			THIS.write_ENDDEFINE_SiCorresponde( lnLastClass )
 
 			*-- Genero el VC2
-			IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0
-				ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly'
+			IF THIS.l_Test
+				toModulo	= C_FB2PRG_CODE
+			ELSE
+				IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0
+					ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly'
+				ENDIF
 			ENDIF
 
-		CATCH TO loEx
-			lnCodError	= loEx.ERRORNO
 
+		CATCH TO toEx
 			IF THIS.l_Debug AND _VFP.STARTMODE = 0
 				SET STEP ON
 			ENDIF
@@ -5830,7 +5854,7 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg
 
 		ENDTRY
 
-		RETURN lnCodError
+		RETURN
 	ENDPROC
 ENDDEFINE
 
@@ -5847,10 +5871,15 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg
 
 	*******************************************************************************************************************
 	PROCEDURE Convertir
-		DODEFAULT()
+		LPARAMETERS toModulo, toEx AS EXCEPTION
+		DODEFAULT( @toModulo, @toEx )
+
+		#IF .F.
+			LOCAL toModulo AS CL_MODULO OF 'FOXBIN2PRG.PRG'
+		#ENDIF
 
 		TRY
-			LOCAL lnCodError, loEx AS EXCEPTION, loRegClass, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1) ;
+			LOCAL lnCodError, loRegClass, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1) ;
 				, laPropsAndValues(1), laPropsAndComments(1), lnLastClass, lnRecno, lcMethods, lcObjName, la_NombresObjsOle(1)
 			STORE 0 TO lnCodError, lnLastClass
 			STORE '' TO laMethods(1), laCode(1), laProtected(1), laPropsAndComments(1)
@@ -5861,6 +5890,9 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg
 			INDEX ON PADR(LOWER(PLATFORM + IIF(EMPTY(PARENT),'',ALLTRIM(PARENT)+'.')+OBJNAME),240) TAG PARENT_OBJ OF TABLABIN ADDITIVE
 			SET ORDER TO 0 IN TABLABIN
 
+			*toModulo	= NULL
+			*toModulo	= CREATEOBJECT('CL_MODULO')
+
 			THIS.write_PROGRAM_HEADER()
 
 			THIS.get_NombresObjetosOLEPublic( @la_NombresObjsOle )
@@ -5891,7 +5923,10 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg
 			SCAN ALL FOR TABLABIN.PLATFORM = "WINDOWS" ;
 					AND (EMPTY(TABLABIN.PARENT) ;
 					AND (TABLABIN.BASECLASS == 'dataenvironment' OR TABLABIN.BASECLASS == 'form' OR TABLABIN.BASECLASS == 'formset' ) )
+
+				*loRegClass	= NULL
 				SCATTER MEMO NAME loRegClass
+				*toModulo.add_Class( loRegClass )
 				lcObjName	= ALLTRIM(loRegClass.OBJNAME)
 
 				THIS.write_ENDDEFINE_SiCorresponde( lnLastClass )
@@ -5954,13 +5989,16 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg
 			THIS.write_ENDDEFINE_SiCorresponde( lnLastClass )
 
 			*-- Genero el SC2
-			IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0
-				ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly'
+			IF THIS.l_Test
+				toModulo	= C_FB2PRG_CODE
+			ELSE
+				IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0
+					ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly'
+				ENDIF
 			ENDIF
 
-		CATCH TO loEx
-			lnCodError	= loEx.ERRORNO
 
+		CATCH TO toEx
 			IF THIS.l_Debug AND _VFP.STARTMODE = 0
 				SET STEP ON
 			ENDIF
@@ -5968,11 +6006,13 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg
 			THROW
 
 		FINALLY
+			loRegObj	= NULL
+			loRegClass	= NULL
 			USE IN (SELECT("TABLABIN"))
 
 		ENDTRY
 
-		RETURN lnCodError
+		RETURN
 	ENDPROC
 ENDDEFINE
 
@@ -6003,7 +6043,8 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg
 
 	*******************************************************************************************************************
 	PROCEDURE Convertir
-		DODEFAULT()
+		LPARAMETERS toModulo, toEx AS EXCEPTION
+		DODEFAULT( @toModulo, @toEx )
 
 		TRY
 			LOCAL lnCodError, lcStr, lnPos, lnLen, lnServerCount, loReg, lcDevInfo ;
@@ -6248,18 +6289,22 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg
 
 
 			*-- Genero el PJ2
-			IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0
-				ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly'
+			IF THIS.l_Test
+				toModulo	= C_FB2PRG_CODE
+			ELSE
+				IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0
+					ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly'
+				ENDIF
+				*COMPILE ( THIS.c_outputFile )
 			ENDIF
-			*COMPILE ( THIS.c_outputFile )
 
 
-		CATCH TO loEx
-			lnCodError	= loEx.ERRORNO
+		CATCH TO toEx
+			lnCodError	= toEx.ERRORNO
 
 			DO CASE
 			CASE lnCodError = 2062	&& The specified key already exists ==> loProject.ADD( loReg, loReg.NAME )
-				loEx.USERVALUE	= 'Archivo duplicado: ' + loReg.NAME
+				toEx.USERVALUE	= 'Archivo duplicado: ' + loReg.NAME
 			ENDCASE
 
 			IF THIS.l_Debug AND _VFP.STARTMODE = 0
@@ -6273,7 +6318,7 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg
 
 		ENDTRY
 
-		RETURN lnCodError
+		RETURN
 	ENDPROC
 ENDDEFINE
 
@@ -6290,17 +6335,18 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg
 
 	*******************************************************************************************************************
 	PROCEDURE Convertir
-		DODEFAULT()
+		LPARAMETERS toModulo, toEx AS EXCEPTION
+		DODEFAULT( @toModulo, @toEx )
 
 		TRY
-			LOCAL lnCodError, loEx AS EXCEPTION, loRegCab, loRegDataEnv, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1) ;
+			LOCAL lnCodError, loRegCab, loRegDataEnv, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1) ;
 				, laPropsAndValues(1), laPropsAndComments(1), lnLastClass, lnRecno, lcMethods, lcObjName, la_NombresObjsOle(1)
 			STORE 0 TO lnCodError, lnLastClass
 			STORE '' TO laMethods(1), laCode(1), laProtected(1), laPropsAndComments(1)
 			STORE NULL TO loRegObj, loRegCab, loRegDataEnv
 
 			USE (THIS.c_InputFile) SHARED NOUPDATE ALIAS TABLABIN_0
-			
+
 			GO TOP			&& Tiene que ser objType = 1
 			SCATTER MEMO NAME loRegCab
 			GOTO BOTTOM		&& Tiene que ser objType = 25
@@ -6321,7 +6367,7 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg
 			SELECT TABLABIN
 			GOTO TOP
 			THIS.write_CABECERA_REPORTE( @loRegCab )
-			
+
 			SCAN ALL
 				SCATTER MEMO NAME loRegObj
 				THIS.write_DETALLE_REPORTE( @loRegObj )
@@ -6330,13 +6376,16 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg
 			THIS.write_DATAENVIRONMENT_REPORTE( @loRegDataEnv )
 
 			*-- Genero el SC2
-			IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0
-				ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly'
+			IF THIS.l_Test
+				toModulo	= C_FB2PRG_CODE
+			ELSE
+				IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0
+					ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly'
+				ENDIF
 			ENDIF
 
-		CATCH TO loEx
-			lnCodError	= loEx.ERRORNO
 
+		CATCH TO toEx
 			IF THIS.l_Debug AND _VFP.STARTMODE = 0
 				SET STEP ON
 			ENDIF
@@ -6349,7 +6398,7 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg
 
 		ENDTRY
 
-		RETURN lnCodError
+		RETURN
 	ENDPROC
 ENDDEFINE
 
@@ -6528,9 +6577,21 @@ DEFINE CLASS CL_CLASE AS CL_BASE
 		+ [<memberdata name="_scale" type="property" display="_Scale"/>] ;
 		+ [<memberdata name="_timestamp" type="property" display="_TimeStamp"/>] ;
 		+ [<memberdata name="_uniqueid" type="property" display="_UniqueID"/>] ;
-		+ [<memberdata name="_user" type="property" display="_User"/>] ;
+		+ [<memberdata name="_properties" type="property" display="_PROPERTIES"/>] ;
+		+ [<memberdata name="_protected" type="property" display="_PROTECTED"/>] ;
+		+ [<memberdata name="_methods" type="property" display="_METHODS"/>] ;
+		+ [<memberdata name="_reserved1" type="property" display="_RESERVED1"/>] ;
+		+ [<memberdata name="_reserved2" type="property" display="_RESERVED2"/>] ;
+		+ [<memberdata name="_reserved3" type="property" display="_RESERVED3"/>] ;
+		+ [<memberdata name="_reserved4" type="property" display="_RESERVED4"/>] ;
+		+ [<memberdata name="_reserved5" type="property" display="_RESERVED5"/>] ;
+		+ [<memberdata name="_reserved6" type="property" display="_RESERVED6"/>] ;
+		+ [<memberdata name="_reserved7" type="property" display="_RESERVED7"/>] ;
+		+ [<memberdata name="_reserved8" type="property" display="_RESERVED8"/>] ;
+		+ [<memberdata name="_user" type="property" display="_USER"/>] ;
 		+ [</VFPData>]
 
+
 	DIMENSION _Props[1,2], _AddObjects[1], _Procedures[1]
 	_Nombre				= ''
 	_ObjName			= ''
@@ -6564,6 +6625,17 @@ DEFINE CLASS CL_CLASE AS CL_BASE
 	_includeFile		= ''
 	_AddObject_Count	= 0
 	_Procedure_Count	= 0
+	_PROPERTIES			= ''
+	_PROTECTED			= ''
+	_METHODS			= ''
+	_RESERVED1			= ''
+	_RESERVED2			= ''
+	_RESERVED3			= ''
+	_RESERVED4			= ''
+	_RESERVED5			= ''
+	_RESERVED6			= ''
+	_RESERVED7			= ''
+	_RESERVED8			= ''
 	_User				= ''
 
 
@@ -6583,11 +6655,12 @@ DEFINE CLASS CL_CLASE AS CL_BASE
 
 	************************************************************************************************
 	PROCEDURE add_Property
-		LPARAMETERS tcProperty AS STRING, tcComment AS STRING
+		LPARAMETERS tcProperty AS STRING, tcValue AS STRING, tcComment AS STRING
 		THIS._Prop_Count	= THIS._Prop_Count + 1
-		DIMENSION THIS._Props( THIS._Prop_Count, 2 )
+		DIMENSION THIS._Props( THIS._Prop_Count, 3 )
 		THIS._Props( THIS._Prop_Count, 1 )	= tcProperty
-		THIS._Props( THIS._Prop_Count, 2 )	= tcComment
+		THIS._Props( THIS._Prop_Count, 2 )	= tcValue
+		THIS._Props( THIS._Prop_Count, 3 )	= tcComment
 	ENDPROC
 
 
@@ -6708,10 +6781,11 @@ DEFINE CLASS CL_OBJETO AS CL_BASE
 
 	************************************************************************************************
 	PROCEDURE add_Property
-		LPARAMETERS tcProperty
+		LPARAMETERS tcProperty AS STRING, tcValue AS STRING
 		THIS._Prop_Count	= THIS._Prop_Count + 1
-		DIMENSION THIS._Props( THIS._Prop_Count, 1 )
+		DIMENSION THIS._Props( THIS._Prop_Count, 2 )
 		THIS._Props( THIS._Prop_Count, 1 )	= tcProperty
+		THIS._Props( THIS._Prop_Count, 2 )	= tcValue
 	ENDPROC