romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changeset: 63 Changeset: 63 Solución arreglo bug "Error 1924, TOREG is not an object" por no verificar si el objeto loReg a TEXtualizar es realmente un objeto

Browse Source
This commit is contained in:
fernando
2013-12-08 15:56:48 +01:00
parent bf2efcfa8b
commit e43a185f9e
1 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
foxbin2prg.prg
View File

@@ -50,6 +50,7 @@
* 06/12/2013 FDBOZZO v1.10 Arreglo del bug de mezcla de m<>todos de una clase con la siguiente * 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.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<73>n de reportes y etiquetas (FRX/LBX) * 07/12/2013 FDBOZZO v1.12 Agregado soporte preliminar de conversi<73>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) * TESTEO Y REPORTE DE BUGS (AGRADECIMIENTOS)
@@ -60,6 +61,7 @@
* 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) * 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 (arreglado en v.1.10) * 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) * 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: * 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 l_ReportSort_Enabled = .T. && Para Unit Testing se puede cambiar a .F. para buscar diferencias
lFileMode = .F. lFileMode = .F.
nClassTimeStamp = '' nClassTimeStamp = ''
n_FB2PRG_Version = 1.12 n_FB2PRG_Version = 1.13
o_Conversor = NULL o_Conversor = NULL
c_VC2 = 'VC2' c_VC2 = 'VC2'
c_SC2 = 'SC2' c_SC2 = 'SC2'
@@ -7008,17 +7010,25 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg
THIS.write_PROGRAM_HEADER() THIS.write_PROGRAM_HEADER()
*-- Recorro los registros y genero el texto *-- Recorro los registros y genero el texto
IF VARTYPE(loRegCab) = "O"
THIS.write_CABECERA_REPORTE( @loRegCab )
ENDIF
SELECT TABLABIN SELECT TABLABIN
GOTO TOP GOTO TOP
THIS.write_CABECERA_REPORTE( @loRegCab )
SCAN ALL SCAN ALL
SCATTER MEMO NAME loRegObj SCATTER MEMO NAME loRegObj
THIS.write_DETALLE_REPORTE( @loRegObj ) THIS.write_DETALLE_REPORTE( @loRegObj )
ENDSCAN ENDSCAN
THIS.write_DATAENVIRONMENT_REPORTE( @loRegDataEnv ) IF VARTYPE(loRegDataEnv) = "O"
THIS.write_DETALLE_REPORTE( @loRegCur ) THIS.write_DATAENVIRONMENT_REPORTE( @loRegDataEnv )
ENDIF
IF VARTYPE(loRegCur) = "O"
THIS.write_DETALLE_REPORTE( @loRegCur )
ENDIF
*-- Genero el FR2 *-- Genero el FR2
IF THIS.l_Test IF THIS.l_Test