In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

error en treport

Foro de Xailer profesional en español
Responder
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

error en treport

Mensaje por PILO »

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
--
Arriba
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

error en treport

Mensaje por PILO »

Tambien lo da en el ejemplo de basicreport en la 1.7
"PILO" <srmpilo@hotmail.com> escribió en el mensaje news:[email=46e42185@ozsrv2.ozlan.local...]46e42185@ozsrv2.ozlan.local...[/email]
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
--
Arriba
Fernando Hernandez
Mensajes: 113
Registrado: Lun Nov 13, 2006 5:29 am

error en treport

Mensaje por Fernando Hernandez »

A mi me da el mismo error, aunque el dataset es de Oracle, no logro ver que pasa, adjunto parte del codigo.
if ::oOK
clsqlQuery:="SELECT B.DIAVISITA,B.SECUENCIA,A.CLIENTE,B.NOMBRE,B.RAZONSOCIAL,A.E MPRESA,C.PLAZO,C.CLASECLIENTE,C.GARANTIA,B.SEMANA,C.LIMITE,C .LIMITE-C.SALDO SOBREGIRO,C.SALDO SALDOTOT,C.FV,C.FC,C.FI,C.FECHAULTIMOCOBRO,C.FECHAULTIMAVENT A,C.VALORULTIMAVENTA,C.VTAPROMEDIO,A.TIPODOC,A.SERIE,A.PREIM PRESO,A.FECHA,A.VENCIMIENTO,0 DIAS,A.MONTO,A.SALDO FROM PDA_FACTURAS A,PDA_CLIENTES B,PDA_CLIENTESXEMPRESA C WHERE A.CLIENTE=B.CODIGOPOCKET AND A.CLIENTE=C.CLIENTE AND A.EMPRESA=C.EMPRESA AND A.VENDEDOR='"+clvendedor +"' AND B.DIAVISITA='"+clDiaVisita+"' ORDER BY B.DIAVISITA,B.SECUENCIA,A.CLIENTE,A.EMPRESA"
clDataset:=appdata:op_adodata:Query(clsqlquery)
cldataset:lopen:=.t.
With Object oFont16 := TFont():New()
:cName := "Arial"
:nSize := 16
:lBold := .f.
END WITH
With Object oFont12 := TFont():New()
:cName := "Arial"
:nSize := 12
:lBold := .T.
END WITH
With Object oFont10 := TFont():New()
:cName := "Arial"
:nSize := 10
:lBold := .f.
END WITH
With Object oFont8 := TFont():New()
:cName := "Arial"
:nSize := 8
:lBold := .f.
END WITH
REPORT oReport TITLE "Reporte de Rutas" ;
HEADER DtoC( Date() ) + " " + Time() ;
FOOTER "Página: " + lTrim( Str( oReport:nPage ) ) ALIGN tarIGHT ;
JOBNAME "MovilPos - Reporte de Rutas"
//PREVIEW MODAL
oReport:ngridStyle = rgBOTH
//FONT oFont1, oFont2
COLUMN OF oReport ;
TITLE "Cliente" ;
DATA cldataset:Nombre ;
ALIGN taLEFT
WITH OBJECT oReport
:bWhile := {|| !cldataset:Eof() }
:bSkip := {|| cldataset:Skip() }
END WITH
RUN REPORT oReport
oFont16:Destroy()
oFont12:Destroy()
oFont10:Destroy()
oFont8:Destroy()
cldataset:close()
Endif
Endif
Saludos
"PILO" <srmpilo@hotmail.com> escribió en el mensaje news:[email=46e4225d@ozsrv2.ozlan.local...]46e4225d@ozsrv2.ozlan.local...[/email]
Tambien lo da en el ejemplo de basicreport en la 1.7
"PILO" <srmpilo@hotmail.com> escribió en el mensaje news:[email=46e42185@ozsrv2.ozlan.local...]46e42185@ozsrv2.ozlan.local...[/email]
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
--
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9459
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

error en treport

Mensaje por ignacio »

Fernando,
Somos conscientes de este error. Será subsanada en la nueva versión que publicaremos esta tarde.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje news:[email=46e5c9ef@ozsrv2.ozlan.local...]46e5c9ef@ozsrv2.ozlan.local...[/email]
A mi me da el mismo error, aunque el dataset es de Oracle, no logro ver que pasa, adjunto parte del codigo.
if ::oOK
clsqlQuery:="SELECT B.DIAVISITA,B.SECUENCIA,A.CLIENTE,B.NOMBRE,B.RAZONSOCIAL,A.E MPRESA,C.PLAZO,C.CLASECLIENTE,C.GARANTIA,B.SEMANA,C.LIMITE,C .LIMITE-C.SALDO SOBREGIRO,C.SALDO SALDOTOT,C.FV,C.FC,C.FI,C.FECHAULTIMOCOBRO,C.FECHAULTIMAVENT A,C.VALORULTIMAVENTA,C.VTAPROMEDIO,A.TIPODOC,A.SERIE,A.PREIM PRESO,A.FECHA,A.VENCIMIENTO,0 DIAS,A.MONTO,A.SALDO FROM PDA_FACTURAS A,PDA_CLIENTES B,PDA_CLIENTESXEMPRESA C WHERE A.CLIENTE=B.CODIGOPOCKET AND A.CLIENTE=C.CLIENTE AND A.EMPRESA=C.EMPRESA AND A.VENDEDOR='"+clvendedor +"' AND B.DIAVISITA='"+clDiaVisita+"' ORDER BY B.DIAVISITA,B.SECUENCIA,A.CLIENTE,A.EMPRESA"
clDataset:=appdata:op_adodata:Query(clsqlquery)
cldataset:lopen:=.t.
With Object oFont16 := TFont():New()
:cName := "Arial"
:nSize := 16
:lBold := .f.
END WITH
With Object oFont12 := TFont():New()
:cName := "Arial"
:nSize := 12
:lBold := .T.
END WITH
With Object oFont10 := TFont():New()
:cName := "Arial"
:nSize := 10
:lBold := .f.
END WITH
With Object oFont8 := TFont():New()
:cName := "Arial"
:nSize := 8
:lBold := .f.
END WITH
REPORT oReport TITLE "Reporte de Rutas" ;
HEADER DtoC( Date() ) + " " + Time() ;
FOOTER "Página: " + lTrim( Str( oReport:nPage ) ) ALIGN tarIGHT ;
JOBNAME "MovilPos - Reporte de Rutas"
//PREVIEW MODAL
oReport:ngridStyle = rgBOTH
//FONT oFont1, oFont2
COLUMN OF oReport ;
TITLE "Cliente" ;
DATA cldataset:Nombre ;
ALIGN taLEFT
WITH OBJECT oReport
:bWhile := {|| !cldataset:Eof() }
:bSkip := {|| cldataset:Skip() }
END WITH
RUN REPORT oReport
oFont16:Destroy()
oFont12:Destroy()
oFont10:Destroy()
oFont8:Destroy()
cldataset:close()
Endif
Endif
Saludos
"PILO" <srmpilo@hotmail.com> escribió en el mensaje news:[email=46e4225d@ozsrv2.ozlan.local...]46e4225d@ozsrv2.ozlan.local...[/email]
Tambien lo da en el ejemplo de basicreport en la 1.7
"PILO" <srmpilo@hotmail.com> escribió en el mensaje news:[email=46e42185@ozsrv2.ozlan.local...]46e42185@ozsrv2.ozlan.local...[/email]
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
--
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

error en treport

Mensaje por PILO »

Ignacio, lo del treport, esta ya subsanado o cuanto tardara.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje news:46e67c42$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
Fernando,
Somos conscientes de este error. Será subsanada en la nueva versión que publicaremos esta tarde.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje news:[email=46e5c9ef@ozsrv2.ozlan.local...]46e5c9ef@ozsrv2.ozlan.local...[/email]
A mi me da el mismo error, aunque el dataset es de Oracle, no logro ver que pasa, adjunto parte del codigo.
if ::oOK
clsqlQuery:="SELECT B.DIAVISITA,B.SECUENCIA,A.CLIENTE,B.NOMBRE,B.RAZONSOCIAL,A.E MPRESA,C.PLAZO,C.CLASECLIENTE,C.GARANTIA,B.SEMANA,C.LIMITE,C .LIMITE-C.SALDO SOBREGIRO,C.SALDO SALDOTOT,C.FV,C.FC,C.FI,C.FECHAULTIMOCOBRO,C.FECHAULTIMAVENT A,C.VALORULTIMAVENTA,C.VTAPROMEDIO,A.TIPODOC,A.SERIE,A.PREIM PRESO,A.FECHA,A.VENCIMIENTO,0 DIAS,A.MONTO,A.SALDO FROM PDA_FACTURAS A,PDA_CLIENTES B,PDA_CLIENTESXEMPRESA C WHERE A.CLIENTE=B.CODIGOPOCKET AND A.CLIENTE=C.CLIENTE AND A.EMPRESA=C.EMPRESA AND A.VENDEDOR='"+clvendedor +"' AND B.DIAVISITA='"+clDiaVisita+"' ORDER BY B.DIAVISITA,B.SECUENCIA,A.CLIENTE,A.EMPRESA"
clDataset:=appdata:op_adodata:Query(clsqlquery)
cldataset:lopen:=.t.
With Object oFont16 := TFont():New()
:cName := "Arial"
:nSize := 16
:lBold := .f.
END WITH
With Object oFont12 := TFont():New()
:cName := "Arial"
:nSize := 12
:lBold := .T.
END WITH
With Object oFont10 := TFont():New()
:cName := "Arial"
:nSize := 10
:lBold := .f.
END WITH
With Object oFont8 := TFont():New()
:cName := "Arial"
:nSize := 8
:lBold := .f.
END WITH
REPORT oReport TITLE "Reporte de Rutas" ;
HEADER DtoC( Date() ) + " " + Time() ;
FOOTER "Página: " + lTrim( Str( oReport:nPage ) ) ALIGN tarIGHT ;
JOBNAME "MovilPos - Reporte de Rutas"
//PREVIEW MODAL
oReport:ngridStyle = rgBOTH
//FONT oFont1, oFont2
COLUMN OF oReport ;
TITLE "Cliente" ;
DATA cldataset:Nombre ;
ALIGN taLEFT
WITH OBJECT oReport
:bWhile := {|| !cldataset:Eof() }
:bSkip := {|| cldataset:Skip() }
END WITH
RUN REPORT oReport
oFont16:Destroy()
oFont12:Destroy()
oFont10:Destroy()
oFont8:Destroy()
cldataset:close()
Endif
Endif
Saludos
"PILO" <srmpilo@hotmail.com> escribió en el mensaje news:[email=46e4225d@ozsrv2.ozlan.local...]46e4225d@ozsrv2.ozlan.local...[/email]
Tambien lo da en el ejemplo de basicreport en la 1.7
"PILO" <srmpilo@hotmail.com> escribió en el mensaje news:[email=46e42185@ozsrv2.ozlan.local...]46e42185@ozsrv2.ozlan.local...[/email]
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
--
Arriba
Responder

Volver a “Xailer Pro Spanish”