From e43a185f9ee2b5e8cfab5f641be6d9fc353e8cd0 Mon Sep 17 00:00:00 2001
From: fernando <fernando@.(none)>
Date: Sun, 8 Dec 2013 15:56:48 +0100
Subject: [PATCH] =?UTF-8?q?Changeset:=2063=20Changeset:=2063=20Soluci?=
 =?UTF-8?q?=C3=B3n=20arreglo=20bug=20"Error=201924,=20TOREG=20is=20not=20a?=
 =?UTF-8?q?n=20object"=20por=20no=20verificar=20si=20el=20objeto=20loReg?=
 =?UTF-8?q?=20a=20TEXtualizar=20es=20realmente=20un=20objeto?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 foxbin2prg.prg | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index c6ead22..bf43637 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -50,6 +50,7 @@
 * 06/12/2013	FDBOZZO		v1.10 Arreglo del bug de mezcla de métodos de una clase con la siguiente
 * 07/12/2013	FDBOZZO		v1.11 Arreglo del bug de _amembers detectado por Edgar K.con la clase BlowFish.vcx (http://www.tortugaproductiva.galeon.com/docs/blowfish/index.html)
 * 07/12/2013    FDBOZZO     v1.12 Agregado soporte preliminar de conversión de reportes y etiquetas (FRX/LBX)
+* 08/12/2013	FDBOZZO		v1.13 Arreglo bug "Error 1924, TOREG is not an object"
 *
 *---------------------------------------------------------------------------------------------------
 * TESTEO Y REPORTE DE BUGS (AGRADECIMIENTOS)
@@ -60,6 +61,7 @@
 * 03/12/2013	Fidel Charny	REPORTE BUG: Se siguen perdiendo algunas propiedades por implementació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 (arreglado en v.1.10)
 * 07/12/2013	Edgar Kummers	REPORTE BUG: Cuando se parsea una clase con un _memberdata largo, se parsea mal y se corrompe el valor (arreglado en v.1.11)
+* 08/12/2013	Fidel Charny	REPORTE BUG: Cuando se convierten algunos reportes da "Error 1924, TOREG is not an object" (arreglado en v.1.13)
 *
 *---------------------------------------------------------------------------------------------------
 * TRAMIENTOS ESPECIALES DE ASIGNACIONES DE PROPIEDADES:
@@ -362,7 +364,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 	l_ReportSort_Enabled	= .T.	&& Para Unit Testing se puede cambiar a .F. para buscar diferencias
 	lFileMode				= .F.
 	nClassTimeStamp			= ''
-	n_FB2PRG_Version		= 1.12
+	n_FB2PRG_Version		= 1.13
 	o_Conversor				= NULL
 	c_VC2					= 'VC2'
 	c_SC2					= 'SC2'
@@ -7008,17 +7010,25 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg
 			THIS.write_PROGRAM_HEADER()
 
 			*-- Recorro los registros y genero el texto
+			IF VARTYPE(loRegCab) = "O"
+				THIS.write_CABECERA_REPORTE( @loRegCab )
+			ENDIF
+
 			SELECT TABLABIN
 			GOTO TOP
-			THIS.write_CABECERA_REPORTE( @loRegCab )
 
 			SCAN ALL
 				SCATTER MEMO NAME loRegObj
 				THIS.write_DETALLE_REPORTE( @loRegObj )
 			ENDSCAN
 
-			THIS.write_DATAENVIRONMENT_REPORTE( @loRegDataEnv )
-			THIS.write_DETALLE_REPORTE( @loRegCur )
+			IF VARTYPE(loRegDataEnv) = "O"
+				THIS.write_DATAENVIRONMENT_REPORTE( @loRegDataEnv )
+			ENDIF
+			
+			IF VARTYPE(loRegCur) = "O"
+				THIS.write_DETALLE_REPORTE( @loRegCur )
+			ENDIF
 
 			*-- Genero el FR2
 			IF THIS.l_Test