error en preview usando clase mreport y pdreport
Posted: Mon Dec 13, 2010 7:23 pmAmigos he actualizado de fw5 + harbour compiler alpha build 45.0 a fwh8.11 + xharbour compiler 1.1.0
el problema me da en los listados, me sale error al presionar el boton de excel en el preview
Error DBCMD/2001 Workarea not in use: DBGOTOP
mi codigo fuente es el sgte:
Estoy compilando las clases:
mreport.PRG \
pdreport.PRG \
rpreview.PRG \
tsalxls.PRG \
tfilexls.PRG \
xlserror.PRG \
xlsfunc.PRG \
rpreview.PRG
Pienso que el error es que no ubica el alias, imprimi un msje en la clase tsalxls del alias activo y me sale en blanco
Sera que las clases estan desactualizados para esta version de fwh y xharbour
el problema me da en los listados, me sale error al presionar el boton de excel en el preview
Error DBCMD/2001 Workarea not in use: DBGOTOP
mi codigo fuente es el sgte:
- Code: Select all Expand view
- LOCAL oFont1, oFont2
DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10
DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-10 BOLD
USE TEST INDEX TEST NEW
REPORT oReport TITLE "*** Mi Primer Reporte ***" ;
FONT oFont1, oFont2 ;
PREVIEW
oReport:bPreInit:= { || DbGoTop() }
COLUMN TITLE "St" DATA Test->State
COLUMN TITLE "Nombre", "Apellido" ;
DATA Test->First, Test->Last
COLUMN TITLE "Direccion", "Ciudad" ;
DATA Test->Street, Test->City
COLUMN TITLE " Salario" ;
DATA Test->Salary ;
TOTAL ;
RIGHT ;
PICTURE "9,999,999";
FONT 2 ;
SIZE 9
GROUP ON Test->State ;
FOOTER "Total del Estado "+oReport:aGroups[1]:cValue+ ;
" ("+ltrim(str(oReport:aGroups[1]:nCounter))+")" ;
FONT 2 ;
EJECT
END REPORT
ACTIVATE REPORT oReport ;
FOR STATE>"GG"
CLOSE TEST
oFont1:End()
oFont2:End()
Estoy compilando las clases:
mreport.PRG \
pdreport.PRG \
rpreview.PRG \
tsalxls.PRG \
tfilexls.PRG \
xlserror.PRG \
xlsfunc.PRG \
rpreview.PRG
Pienso que el error es que no ubica el alias, imprimi un msje en la clase tsalxls del alias activo y me sale en blanco
Sera que las clases estan desactualizados para esta version de fwh y xharbour