error en treport
Publicado: Dom Sep 09, 2007 6:38 pm
En la version 1.6.1 en el treport no da errer
este ejemplo con la dbf,
Local oReport, oFont1, oFont2
With Object oFont1 := TFont():New()
:cName := "Arial"
:nSize := 10
:lBold := .f.
END WITH
With Object oFont2 := TFont():New()
:cName := "Arial"
:nSize := 8
:lBold := .f.
END WITH
::oDbfPersonas:GOTOP()
REPORT oReport;
TITLE "lista de personal";
PREVIEW ;
FONT oFont1, oFont2
COLUMN OF oReport ;
TITLE "Recno" ;
DATA Recno() ;
ALIGN taRIGHT ;
FONT 2
COLUMN OF oReport ;
TITLE "nombre" ;
DATA ::oDbfPersonas:NOMBRE // This is a calculated field
COLUMN OF oReport ;
TITLE "Dirección" ;
DATA ::oDbfPersonas:direccion
COLUMN OF oReport ;
TITLE "Poblacion" ;
DATA ::oDbfPersonas:poblacion
COLUMN OF oReport ;
TITLE "Telefono" ;
DATA ::oDbfPersonas:telefono
RUN REPORT oReport
oFont1:Destroy()
oFont2:Destroy()
pero en la version 1.7 me da el siguiente error da el
siguiente error.
***************************** Registro de errores *****************************
Fecha: 09-09-07
Hora: 18:34:06
Memoria libre: 122132
Area actual: 1
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 1.7.0 Version 1.7
Compilador: xHarbour build 0.99.80 Intl. (SimpLex) PCode Version: 9
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: Scope Violation <HIDDEN>
Operación: ADJUST
Argumentos: [ 1] = Tipo: O Valor:
Fichero:
Código error SO: 0
Pila de llamadas:
(b)TREPORT:ADJUST (193)
AEVAL (0)
TREPORT:ADJUST (193)
TREPORT:RUN (364)
TFORM1:IMPRIMIRCLICK (221)
TTOOLBUTTON:ONCLICK (0)
(b)XTOOLBUTTON:XTOOLBUTTON (41)
TTOOLBUTTON:CLICK (0)
TTOOLBAR:COMMAND (377)
TREBAR:WMCOMMAND (253)
TFORM1:SHOWMODAL (0)
TMENUCITI:MENU_COMI_ALMOBOLISTA_1CLICK (32)
TMENUITEM:ONCLICK (0)
TMENU:DOACTION (231)
TMENU:DOACTION (236)
TMENUCITI:WMCOMMAND (878)
RUNFORM (0)
TAPPLICATION:RUN (209)
MAIN (16)
------------------ Información detallada de áreas de trabajo ------------------
Area: 1
Alias: PERSONA
Registro: 1
Filtro:
Relación:
Orden del índice: 0
Clave activa: 0
--
este ejemplo con la dbf,
Local oReport, oFont1, oFont2
With Object oFont1 := TFont():New()
:cName := "Arial"
:nSize := 10
:lBold := .f.
END WITH
With Object oFont2 := TFont():New()
:cName := "Arial"
:nSize := 8
:lBold := .f.
END WITH
::oDbfPersonas:GOTOP()
REPORT oReport;
TITLE "lista de personal";
PREVIEW ;
FONT oFont1, oFont2
COLUMN OF oReport ;
TITLE "Recno" ;
DATA Recno() ;
ALIGN taRIGHT ;
FONT 2
COLUMN OF oReport ;
TITLE "nombre" ;
DATA ::oDbfPersonas:NOMBRE // This is a calculated field
COLUMN OF oReport ;
TITLE "Dirección" ;
DATA ::oDbfPersonas:direccion
COLUMN OF oReport ;
TITLE "Poblacion" ;
DATA ::oDbfPersonas:poblacion
COLUMN OF oReport ;
TITLE "Telefono" ;
DATA ::oDbfPersonas:telefono
RUN REPORT oReport
oFont1:Destroy()
oFont2:Destroy()
pero en la version 1.7 me da el siguiente error da el
siguiente error.
***************************** Registro de errores *****************************
Fecha: 09-09-07
Hora: 18:34:06
Memoria libre: 122132
Area actual: 1
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 1.7.0 Version 1.7
Compilador: xHarbour build 0.99.80 Intl. (SimpLex) PCode Version: 9
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: Scope Violation <HIDDEN>
Operación: ADJUST
Argumentos: [ 1] = Tipo: O Valor:
Fichero:
Código error SO: 0
Pila de llamadas:
(b)TREPORT:ADJUST (193)
AEVAL (0)
TREPORT:ADJUST (193)
TREPORT:RUN (364)
TFORM1:IMPRIMIRCLICK (221)
TTOOLBUTTON:ONCLICK (0)
(b)XTOOLBUTTON:XTOOLBUTTON (41)
TTOOLBUTTON:CLICK (0)
TTOOLBAR:COMMAND (377)
TREBAR:WMCOMMAND (253)
TFORM1:SHOWMODAL (0)
TMENUCITI:MENU_COMI_ALMOBOLISTA_1CLICK (32)
TMENUITEM:ONCLICK (0)
TMENU:DOACTION (231)
TMENU:DOACTION (236)
TMENUCITI:WMCOMMAND (878)
RUNFORM (0)
TAPPLICATION:RUN (209)
MAIN (16)
------------------ Información detallada de áreas de trabajo ------------------
Area: 1
Alias: PERSONA
Registro: 1
Filtro:
Relación:
Orden del índice: 0
Clave activa: 0
--