Changeset: 56 Changeset: 56 En desarrollo FRX

TESTS/ut__foxbin2prg.prg

@@ -54,7 +54,8 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 	*******************************************************************************************************************************************
 	FUNCTION Evaluate_results
-		LPARAMETERS toEx AS EXCEPTION, tnCodError_Esperado, tc_OutputFile, tcParent, tcClass, tcObjName, toReg_Esperado
+		LPARAMETERS toEx AS EXCEPTION, tnCodError_Esperado, tc_OutputFile, tcParent, tcClass, tcObjName, toReg_Esperado ;
+			, toReg, tcTipoBinario
 
 		#IF .F.
 			PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
@@ -66,49 +67,12 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 		ENDIF
 
 
-		LOCAL lnCodError, lcTipoBinario, toReg ;
-			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
-			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG"
-
-		*-- TEST
-		IF ISNULL(toEx)	&& Respetar errores previos
-			TRY
-				lcTipoBinario		= UPPER( JUSTEXT( tc_OutputFile ) )
-
-				IF FILE(tc_OutputFile)
-					SELECT 0
-					USE (tc_OutputFile) SHARED NOUPDATE ALIAS TABLABIN
-				ELSE
-					ERROR 'No se encontr<74> el archivo "' + tc_OutputFile + '"'
-				ENDIF
-
-				IF EMPTY(tcParent) AND EMPTY(tcClass) AND EMPTY(tcObjName)
-					DO CASE
-					CASE lcTipoBinario = 'SCX'
-						LOCATE FOR PLATFORM=="COMMENT " AND UniqueID=="Screen    "
-					CASE lcTipoBinario = 'VCX'
-						LOCATE FOR PLATFORM=="COMMENT " AND UniqueID=="Class     "
-					ENDCASE
-					IF NOT FOUND()
-						ERROR 'No se encontr<74> el registro de cabecera "' + UniqueID + '"'
-					ENDIF
-				ELSE
-					LOCATE FOR CLASS==tcClass AND PARENT==tcParent AND objName==tcObjName
-					IF NOT FOUND()
-						ERROR 'No se encontr<74> el registro para CLASS=="' + tcClass + '" AND PARENT=="' + tcParent + '" AND objName=="' + tcObjName + '"'
-					ENDIF
-				ENDIF
-
-				SCATTER MEMO NAME toReg
-
-			CATCH TO toEx
-			FINALLY
-				USE IN (SELECT("TABLABIN"))
-			ENDTRY
-		ENDIF
-
-
 		IF ISNULL(toEx)
+			DO CASE
+			CASE INLIST(tcTipoBinario, 'FRX')
+
+
+			CASE INLIST(tcTipoBinario, 'VCX', 'SCX')
 				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 ;
@@ -245,6 +209,8 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 						, ' Comprobaci<63>n de que existe el Method "' + TRANSFORM(laMethods_Esperado(I,1)) + '"' + " para " + lcExtraData )
 				ENDFOR
 
+			ENDCASE
+
 		ELSE
 			*-- Evaluaci<63>n de errores
 			THIS.messageout( "Error " + TRANSFORM(toEx.ERRORNO) + ', ' + TRANSFORM(toEx.MESSAGE) )
@@ -261,10 +227,82 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	ENDFUNC
 
 
+	*******************************************************************************************************************************************
+	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElReporte_FB2P_FRX_YValidarLosCamposDelRegistro
+		*-- REPORTE (FRX)
+		LOCAL lnCodError, lnCodError_Esperado  ;
+			, lc_File, lc_InputFile, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado, loReg, lcTipoBinario ;
+			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
+			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
+			, loEx AS EXCEPTION
+		#IF .F.
+			PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
+		#ENDIF
+
+		TRY
+			loEx		= NULL
+			loCnv		= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
+			*loCnv.l_Debug		= .F.
+			loCnv.l_ShowErrors	= .F.
+			*loCnv.l_Test		= .T.
+
+
+			*-- DATOS DE ENTRADA
+			STORE 0 TO lnCodError
+			lc_File				= 'fb2p_foxuser.frx'
+			lc_InputFile		= FORCEPATH( lc_File, 'TESTS\DATOS_READONLY' )
+			lc_OutputFile		= FORCEPATH( lc_File, 'TESTS\DATOS_TEST' )
+			lcTipoBinario		= UPPER( JUSTEXT( lc_OutputFile ) )
+
+			oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) )
+
+			loCnv.Convertir( lc_OutputFile, .F., .F., .T. )
+			loCnv.Convertir( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_File),2 ) + '2' ), .F., .F., .T. )
+
+			SELECT 0
+			USE (lc_InputFile) SHARED AGAIN NOUPDATE ALIAS ARCHIBOBIN_IN
+
+			SCAN ALL FOR NOT DELETED()
+				*-- DATOS ESPERADOS
+				STORE 0 TO lnCodError_Esperado
+				SCATTER MEMO NAME loReg_Esperado
+				lcUniqueID			= loReg_Esperado.UNIQUEID
+
+				*-- TEST
+				IF FILE(lc_OutputFile)
+					SELECT 0
+					USE (lc_OutputFile) SHARED NOUPDATE ALIAS TABLABIN
+				ELSE
+					ERROR 'No se encontr<74> el archivo "' + lc_OutputFile + '"'
+				ENDIF
+
+				LOCATE FOR UNIQUEID==lcUniqueID
+
+				IF NOT FOUND()
+					ERROR 'No se encontr<74> el registro con UniqueID "' + lcUniqueID + '" en el archivo "' + lc_OutputFile + '"'
+				ENDIF
+
+				SCATTER MEMO NAME loReg
+				USE IN (SELECT("TABLABIN"))
+
+				THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_OutputFile, lcParent, lcClass, lcObjName ;
+					, loReg_Esperado, loReg, lcTipoBinario )
+			ENDSCAN
+
+		CATCH TO loEx
+			THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado )
+
+		FINALLY
+			USE IN (SELECT("ARCHIBOBIN_IN"))
+		ENDTRY
+
+	ENDFUNC
+
+
 	*******************************************************************************************************************************************
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCamposDelRegistro
 		LOCAL lnCodError, lnCodError_Esperado  ;
-			, lc_File, lc_InputFile, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado ;
+			, lc_File, lc_InputFile, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado, loReg, lcTipoBinario ;
 			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
 			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
 			, loEx AS EXCEPTION
@@ -285,6 +323,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 			lc_File				= 'fb2p_frm_1.scx'
 			lc_InputFile		= FORCEPATH( lc_File, 'TESTS\DATOS_READONLY' )
 			lc_OutputFile		= FORCEPATH( lc_File, 'TESTS\DATOS_TEST' )
+			lcTipoBinario		= UPPER( JUSTEXT( lc_OutputFile ) )
 
 			oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) )
 
@@ -294,7 +333,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 			SELECT 0
 			USE (lc_InputFile) SHARED AGAIN NOUPDATE ALIAS ARCHIBOBIN_IN
 
-			SCAN ALL FOR NOT DELETED() AND ( UniqueID==PADR('Form',10) OR PLATFORM==PADR("WINDOWS",8) )
+			SCAN ALL FOR NOT DELETED() AND ( UNIQUEID==PADR('Form',10) OR PLATFORM==PADR("WINDOWS",8) )
 				*-- DATOS ESPERADOS
 				STORE 0 TO lnCodError_Esperado
 				SCATTER MEMO NAME loReg_Esperado
@@ -302,7 +341,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 				lcParent			= loReg_Esperado.PARENT
 				lcObjName			= loReg_Esperado.objName
 
-				THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado )
+				*-- TEST
+				IF FILE(lc_OutputFile)
+					SELECT 0
+					USE (lc_OutputFile) SHARED NOUPDATE ALIAS TABLABIN
+				ELSE
+					ERROR 'No se encontr<74> el archivo "' + lc_OutputFile + '"'
+				ENDIF
+
+				IF EMPTY(lcParent) AND EMPTY(lcClass) AND EMPTY(lcObjName)
+					LOCATE FOR PLATFORM==PADR("COMMENT",8) AND UNIQUEID==PADR("Screen",10)
+					IF NOT FOUND()
+						ERROR 'No se encontr<74> el registro de cabecera "' + UNIQUEID + '"'
+					ENDIF
+				ELSE
+					LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+					IF NOT FOUND()
+						ERROR 'No se encontr<74> el registro para CLASS=="' + lcClass + '" AND PARENT=="' + lcParent + '" AND objName=="' + lcObjName + '"'
+					ENDIF
+				ENDIF
+
+				SCATTER MEMO NAME loReg
+				USE IN (SELECT("TABLABIN"))
+
+				THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_OutputFile, lcParent, lcClass, lcObjName ;
+					, loReg_Esperado, loReg, lcTipoBinario )
 			ENDSCAN
 
 		CATCH TO loEx
@@ -310,6 +373,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		FINALLY
 			USE IN (SELECT("ARCHIBOBIN_IN"))
+			USE IN (SELECT("TABLABIN"))
 		ENDTRY
 
 	ENDFUNC
@@ -318,7 +382,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	*******************************************************************************************************************************************
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCamposDelRegistro
 		LOCAL lnCodError, lnCodError_Esperado  ;
-			, lc_File, lc_InputFile, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado ;
+			, lc_File, lc_InputFile, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado, loReg, lcTipoBinario ;
 			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
 			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
 			, loEx AS EXCEPTION
@@ -341,6 +405,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 			lc_File				= 'fb2p_test.vcx'
 			lc_InputFile		= FORCEPATH( lc_File, 'TESTS\DATOS_READONLY' )
 			lc_OutputFile		= FORCEPATH( lc_File, 'TESTS\DATOS_TEST' )
+			lcTipoBinario		= UPPER( JUSTEXT( lc_OutputFile ) )
 
 			oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) )
 
@@ -350,7 +415,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 			SELECT 0
 			USE (lc_InputFile) SHARED AGAIN NOUPDATE ALIAS ARCHIBOBIN_IN
 
-			SCAN ALL FOR NOT DELETED() AND ( UniqueID==PADR('Class',10) OR PLATFORM==PADR("WINDOWS",8) )
+			SCAN ALL FOR NOT DELETED() AND ( UNIQUEID==PADR('Class',10) OR PLATFORM==PADR("WINDOWS",8) )
 				*-- DATOS ESPERADOS
 				STORE 0 TO lnCodError_Esperado
 				SCATTER MEMO NAME loReg_Esperado
@@ -358,7 +423,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 				lcParent			= loReg_Esperado.PARENT
 				lcObjName			= loReg_Esperado.objName
 
-				THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado )
+				*-- TEST
+				IF FILE(lc_OutputFile)
+					SELECT 0
+					USE (lc_OutputFile) SHARED NOUPDATE ALIAS TABLABIN
+				ELSE
+					ERROR 'No se encontr<74> el archivo "' + lc_OutputFile + '"'
+				ENDIF
+
+				IF EMPTY(lcParent) AND EMPTY(lcClass) AND EMPTY(lcObjName)
+					LOCATE FOR PLATFORM==PADR("COMMENT",8) AND UNIQUEID==PADR("Class",10)
+					IF NOT FOUND()
+						ERROR 'No se encontr<74> el registro de cabecera "' + UNIQUEID + '"'
+					ENDIF
+				ELSE
+					LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+					IF NOT FOUND()
+						ERROR 'No se encontr<74> el registro para CLASS=="' + lcClass + '" AND PARENT=="' + lcParent + '" AND objName=="' + lcObjName + '"'
+					ENDIF
+				ENDIF
+
+				SCATTER MEMO NAME loReg
+				USE IN (SELECT("TABLABIN"))
+
+				THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_OutputFile, lcParent, lcClass, lcObjName ;
+					, loReg_Esperado, loReg, lcTipoBinario )
 			ENDSCAN
 
 		CATCH TO loEx
@@ -366,6 +455,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		FINALLY
 			USE IN (SELECT("ARCHIBOBIN_IN"))
+			USE IN (SELECT("TABLABIN"))
 		ENDTRY
 
 	ENDFUNC
@@ -374,7 +464,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	*******************************************************************************************************************************************
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarEl_BUG_DelMetodoMovidoEntreClases
 		LOCAL lnCodError, lnCodError_Esperado  ;
-			, lc_File, lc_InputFile, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado ;
+			, lc_File, lc_InputFile, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado, loReg, lcTipoBinario ;
 			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
 			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
 			, loEx AS EXCEPTION
@@ -397,6 +487,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 			lc_File				= 'fb2p_test_bug_metodo_movido.vcx'
 			lc_InputFile		= FORCEPATH( lc_File, 'TESTS\DATOS_READONLY' )
 			lc_OutputFile		= FORCEPATH( lc_File, 'TESTS\DATOS_TEST' )
+			lcTipoBinario		= UPPER( JUSTEXT( lc_OutputFile ) )
 
 			oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) )
 
@@ -406,7 +497,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 			SELECT 0
 			USE (lc_InputFile) SHARED AGAIN NOUPDATE ALIAS ARCHIBOBIN_IN
 
-			SCAN ALL FOR NOT DELETED() AND ( UniqueID==PADR('Class',10) OR PLATFORM==PADR("WINDOWS",8) )
+			SCAN ALL FOR NOT DELETED() AND ( UNIQUEID==PADR('Class',10) OR PLATFORM==PADR("WINDOWS",8) )
 				*-- DATOS ESPERADOS
 				STORE 0 TO lnCodError_Esperado
 				SCATTER MEMO NAME loReg_Esperado
@@ -414,7 +505,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 				lcParent			= loReg_Esperado.PARENT
 				lcObjName			= loReg_Esperado.objName
 
-				THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado )
+				*-- TEST
+				IF FILE(lc_OutputFile)
+					SELECT 0
+					USE (lc_OutputFile) SHARED NOUPDATE ALIAS TABLABIN
+				ELSE
+					ERROR 'No se encontr<74> el archivo "' + lc_OutputFile + '"'
+				ENDIF
+
+				IF EMPTY(lcParent) AND EMPTY(lcClass) AND EMPTY(lcObjName)
+					LOCATE FOR PLATFORM==PADR("COMMENT",8) AND UNIQUEID==PADR("Class",10)
+					IF NOT FOUND()
+						ERROR 'No se encontr<74> el registro de cabecera "' + UNIQUEID + '"'
+					ENDIF
+				ELSE
+					LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+					IF NOT FOUND()
+						ERROR 'No se encontr<74> el registro para CLASS=="' + lcClass + '" AND PARENT=="' + lcParent + '" AND objName=="' + lcObjName + '"'
+					ENDIF
+				ENDIF
+
+				SCATTER MEMO NAME loReg
+				USE IN (SELECT("TABLABIN"))
+
+				THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_OutputFile, lcParent, lcClass, lcObjName ;
+					, loReg_Esperado, loReg, lcTipoBinario )
 			ENDSCAN
 
 		CATCH TO loEx
@@ -422,6 +537,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		FINALLY
 			USE IN (SELECT("ARCHIBOBIN_IN"))
+			USE IN (SELECT("TABLABIN"))
 		ENDTRY
 
 	ENDFUNC
@@ -430,7 +546,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 	*******************************************************************************************************************************************
 	FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarEl_BUG_Del_PROCEDURE_SIN_ENDPROC
 		LOCAL lnCodError, lnCodError_Esperado  ;
-			, lc_File, lc_InputFile, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado ;
+			, lc_File, lc_InputFile, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado, loReg, lcTipoBinario ;
 			, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
 			, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
 			, loEx AS EXCEPTION
@@ -453,6 +569,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 			lc_File				= 'fb2p_test_bug_estructural.vcx'
 			lc_InputFile		= FORCEPATH( lc_File, 'TESTS\DATOS_READONLY' )
 			lc_OutputFile		= FORCEPATH( lc_File, 'TESTS\DATOS_TEST' )
+			lcTipoBinario		= UPPER( JUSTEXT( lc_OutputFile ) )
 
 			oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) )
 
@@ -462,7 +579,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 			SELECT 0
 			USE (lc_InputFile) SHARED AGAIN NOUPDATE ALIAS ARCHIBOBIN_IN
 
-			SCAN ALL FOR NOT DELETED() AND ( UniqueID==PADR('Class',10) OR PLATFORM==PADR("WINDOWS",8) )
+			SCAN ALL FOR NOT DELETED() AND ( UNIQUEID==PADR('Class',10) OR PLATFORM==PADR("WINDOWS",8) )
 				*-- DATOS ESPERADOS
 				STORE 0 TO lnCodError_Esperado
 				SCATTER MEMO NAME loReg_Esperado
@@ -470,14 +587,40 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 				lcParent			= loReg_Esperado.PARENT
 				lcObjName			= loReg_Esperado.objName
 
-				THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado )
+				*-- TEST
+				IF FILE(lc_OutputFile)
+					SELECT 0
+					USE (lc_OutputFile) SHARED NOUPDATE ALIAS TABLABIN
+				ELSE
+					ERROR 'No se encontr<74> el archivo "' + lc_OutputFile + '"'
+				ENDIF
+
+				IF EMPTY(lcParent) AND EMPTY(lcClass) AND EMPTY(lcObjName)
+					LOCATE FOR PLATFORM==PADR("COMMENT",8) AND UNIQUEID==PADR("Class",10)
+					IF NOT FOUND()
+						ERROR 'No se encontr<74> el registro de cabecera "' + UNIQUEID + '"'
+					ENDIF
+				ELSE
+					LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+					IF NOT FOUND()
+						ERROR 'No se encontr<74> el registro para CLASS=="' + lcClass + '" AND PARENT=="' + lcParent + '" AND objName=="' + lcObjName + '"'
+					ENDIF
+				ENDIF
+
+				SCATTER MEMO NAME loReg
+				USE IN (SELECT("TABLABIN"))
+
+				THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_OutputFile, lcParent, lcClass, lcObjName ;
+					, loReg_Esperado, loReg, lcTipoBinario )
 			ENDSCAN
 
 		CATCH TO loEx
-			THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado )
+			THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_OutputFile, lcParent, lcClass, lcObjName ;
+				, loReg_Esperado, loReg, lcTipoBinario )
 
 		FINALLY
 			USE IN (SELECT("ARCHIBOBIN_IN"))
+			USE IN (SELECT("TABLABIN"))
 		ENDTRY
 
 	ENDFUNC

foxbin2prg.prg

@@ -48,6 +48,7 @@
 * 03/12/2013	FDBOZZO		v1.8 Arreglo bug "Name" (otra vez), sort encapsulado y reutilizado para versiones TEXTO y BIN por seguridad
 * 06/12/2013	FDBOZZO		v1.9 Arreglo bug p<>rdida de propiedades causado por una mejora anterior
 * 06/12/2013    FDBOZZO     v1.10 Arreglo del bug de mezcla de m<>todos de una clase con la siguiente y agregado soporte preliminar de conversi<73>n de reportes (FRX/FR2)
+* 07/12/2013	FDBOZZO		v1.11 
 *
 *---------------------------------------------------------------------------------------------------
 * TESTEO Y REPORTE DE BUGS (AGRADECIMIENTOS)
@@ -56,7 +57,7 @@
 * 02/12/2013	Fidel Charny	REPORTE BUG: Se pierden algunas propiedades y no muestra picture si "Name" no es la <20>ltima (arreglado en v.1.7)
 * 03/12/2013	Fidel Charny	REPORTE BUG: Se siguen perdiendo algunas propiedades por implementaci<63>n defectuosa del arreglo anterior (arreglado en v.1.8)
 * 03/12/2013	Fidel Charny	REPORTE BUG: Se siguen perdiendo algunas propiedades por implementaci<63>n defectuosa de una mejora anterior (arreglado en v.1.9)
-* 06/12/2013	Fidel Charny	REPORTE BUG: Cuando hay m<>todos que tienen el mismo nombre, aparecen mezclados en objetos a los que no corresponden
+* 06/12/2013	Fidel Charny	REPORTE BUG: Cuando hay m<>todos que tienen el mismo nombre, aparecen mezclados en objetos a los que no corresponden (arreglado en v.1.10)
 *
 *---------------------------------------------------------------------------------------------------
 * TRAMIENTOS ESPECIALES DE ASIGNACIONES DE PROPIEDADES:
@@ -5854,7 +5855,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 			ENDTEXT
 
 			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
-				<<C_TAB>>platform="WINDOWS " uniqueid="<<toReg.UniqueID>>" timestamp="<<toReg.TimeStamp>>" objtype="<<toReg.ObjType>>" <<>>
+				<<C_TAB>>platform="WINDOWS " uniqueid="<<EVL(toReg.UniqueID,SYS(2015))>>" timestamp="<<toReg.TimeStamp>>" objtype="<<toReg.ObjType>>" <<>>
 			ENDTEXT
 
 			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2
@@ -5967,7 +5968,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 			ENDTEXT
 
 			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
-				<<C_TAB>>platform="WINDOWS " uniqueid="<<toReg.UniqueID>>" timestamp="<<toReg.TimeStamp>>" objtype="<<toReg.ObjType>>" <<>>
+				<<C_TAB>>platform="WINDOWS " uniqueid="<<EVL(toReg.UniqueID,SYS(2015))>>" timestamp="<<toReg.TimeStamp>>" objtype="<<toReg.ObjType>>" <<>>
 			ENDTEXT
 
 			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2
@@ -6080,7 +6081,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 			ENDTEXT
 
 			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
-				<<C_TAB>>platform="WINDOWS " uniqueid="<<toReg.UniqueID>>" timestamp="<<toReg.TimeStamp>>" objtype="<<toReg.ObjType>>" <<>>
+				<<C_TAB>>platform="WINDOWS " uniqueid="<<EVL(toReg.UniqueID,SYS(2015))>>" timestamp="<<toReg.TimeStamp>>" objtype="<<toReg.ObjType>>" <<>>
 			ENDTEXT
 
 			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2