no funciona report

[pilo[2]]

Hola estoy con esta metodo y no me funciona. solo sale la pantalla pero
no sale la base de datos.
Alguien me puede ayudar
LOCAL COLUM, COLUMT, LINEA, LINEAT, MARSUPE, MARIZQUI, LARGO, ALTO
LOCAL NNN, TTT, FFF, oFont, oPen, oBrush, PUNTERO, VARIABLE
Local nValor:=1, uValor:={1,1,1000}
Local nOption:=0
Local oReport
::oTIEMPOCONTROL:lEnabled := .F.
::oImpresioncliente:run() // eLECCION DE PROGRAMAS EN DIFERENTES
FORMATOS
if ::oImpresioncliente:nResult = 3 // impresion de listado
PUNTERO := ::TDbfClientes:RECNO()
::TDbfClientes:OrdSetFocus("CODIGO")
::TDbfClientes:GoTOP()
NNN := ::TDbfClientes:CODIGO
::TDbfClientes:GoBottom()
FFF := ::TDbfClientes:CODIGO
::TDbfClientes:GoTOP()
uValor := {NNN,NNN,FFF}
If MsgEdit("Teclee el codigo cliente primero desde
"+str(NNN,5,0)+" Hasta ";
+ str(FFF,5,0), , @uValor,,,,"@E 99999")
NNN := uValor
uValor := {FFF,NNN+1,FFF}
If MsgEdit("Teclee el codigo cliente ultimos desde
"+str(NNN,5,0)+" Hasta ";
+ str(FFF,5,0), , @uValor,,,,"@E 99999")
FFF := uValor
WITH OBJECT ::TDbfClientes
:clearfilter()//SET FILTER TO // 34 = " y 39 = '
VARIABLES := "CODIGO >= "+ str(NNN,5,0) + " .AND. "+;
"CODIGO <= "+ str(FFF,5,0)
:SetFilter(VARIABLES)
::TdbfClientes:Gotop()
REPORT oReport ;
TITLE "listado clientes" ;
PREVIEW
COLUMN OF oReport ;
TITLE "Codigo" ;
DATA CLIENTE->codigo ;
ALIGN taRIGHT
COLUMN OF oReport ;
TITLE "DATOS" ;
DATA ::TDbfClientes:CLIENTE,;
::TDbfClientes:NIF,;
::TDbfClientes:DIRECCION,;
(::TDbfClientes:CP + " " +
::TDbfClientes:POBLACION),;
::TDbfClientes:PROVINCIA,;
::TDbfClientes:RESPONSABL
COLUMN OF oReport ;
TITLE "TELEFONOS" ;
DATA ::TDbfClientes:TELEFONO,;
::TDbfClientes:MOVIL,;
::TDbfClientes:EMAIL
RUN REPORT oReport
END WITH
::TDbfClientes:clearfilter()//SET FILTER TO // 34 = " y 39 = '
end if
end if
::TDbfClientes:OrdSetFocus("REFERENCIA")
::TDbfClientes:Goto(PUNTERO)
end if
if ::oImpresioncliente:nResult = 4 // impresion de ficha
PUNTERO := ::TDbfClientes:RECNO()
WITH OBJECT ::TDbfClientes
:Gotop()
REPORT oReport ;
TITLE "listado clientes" ;
PREVIEW
COLUMN OF oReport ;
TITLE "Codigo" ;
DATA ::TDbfClientes:codigo ;
ALIGN taRIGHT
COLUMN OF oReport ;
TITLE "DATOS" ;
DATA ::TDbfClientes:CLIENTE,;
::TDbfClientes:NIF,;
::TDbfClientes:DIRECCION,;
(::TDbfClientes:CP + " " + ::TDbfClientes:POBLACION),;
::TDbfClientes:PROVINCIA,;
::TDbfClientes:RESPONSABL
COLUMN OF oReport ;
TITLE "TELEFONOS" ;
DATA ::TDbfClientes:TELEFONO,;
::TDbfClientes:MOVIL,;
::TDbfClientes:EMAIL
RUN REPORT oReport
END WITH
::TDbfClientes:OrdSetFocus("REFERENCIA")
::TDbfClientes:Goto(PUNTERO)
end if

[ignacio]

Pilo,
Indiquenos como reproducir su error con el ejemplo de reports que incluye el
propio Xailer. Gracias de antemano.
Un saludo,
--
Ignacio Ortiz de Zúñiga
Xailer support / Soporte de Xailer
http://www.xailer.com
http://www.xailer.info
"pilo" <pilo@srmpilo.com> escribió en el mensaje
news:[email=4aa3caba@svctag-j7w3v3j....]4aa3caba@svctag-j7w3v3j....[/email]
> Hola estoy con esta metodo y no me funciona. solo sale la pantalla pero no
> sale la base de datos.
> Alguien me puede ayudar
> LOCAL COLUM, COLUMT, LINEA, LINEAT, MARSUPE, MARIZQUI, LARGO, ALTO
> LOCAL NNN, TTT, FFF, oFont, oPen, oBrush, PUNTERO, VARIABLE
> Local nValor:=1, uValor:={1,1,1000}
> Local nOption:=0
> Local oReport
> ::oTIEMPOCONTROL:lEnabled := .F.
> ::oImpresioncliente:run() // eLECCION DE PROGRAMAS EN DIFERENTES
> FORMATOS
> if ::oImpresioncliente:nResult = 3 // impresion de listado
> PUNTERO := ::TDbfClientes:RECNO()
> ::TDbfClientes:OrdSetFocus("CODIGO")
> ::TDbfClientes:GoTOP()
> NNN := ::TDbfClientes:CODIGO
> ::TDbfClientes:GoBottom()
> FFF := ::TDbfClientes:CODIGO
> ::TDbfClientes:GoTOP()
> uValor := {NNN,NNN,FFF}
> If MsgEdit("Teclee el codigo cliente primero desde "+str(NNN,5,0)+"
> Hasta ";
> + str(FFF,5,0), , @uValor,,,,"@E 99999")
> NNN := uValor
> uValor := {FFF,NNN+1,FFF}
> If MsgEdit("Teclee el codigo cliente ultimos desde
> "+str(NNN,5,0)+" Hasta ";
> + str(FFF,5,0), , @uValor,,,,"@E 99999")
> FFF := uValor
> WITH OBJECT ::TDbfClientes
> :clearfilter()//SET FILTER TO // 34 = " y 39 = '
> VARIABLES := "CODIGO >= "+ str(NNN,5,0) + " .AND. "+;
> "CODIGO <= "+ str(FFF,5,0)
>
> :SetFilter(VARIABLES)
> ::TdbfClientes:Gotop()
> REPORT oReport ;
> TITLE "listado clientes" ;
> PREVIEW
> COLUMN OF oReport ;
> TITLE "Codigo" ;
> DATA CLIENTE->codigo ;
> ALIGN taRIGHT
> COLUMN OF oReport ;
> TITLE "DATOS" ;
> DATA ::TDbfClientes:CLIENTE,;
> ::TDbfClientes:NIF,;
> ::TDbfClientes:DIRECCION,;
> (::TDbfClientes:CP + " " +
> ::TDbfClientes:POBLACION),;
> ::TDbfClientes:PROVINCIA,;
> ::TDbfClientes:RESPONSABL
> COLUMN OF oReport ;
> TITLE "TELEFONOS" ;
> DATA ::TDbfClientes:TELEFONO,;
> ::TDbfClientes:MOVIL,;
> ::TDbfClientes:EMAIL
>
> RUN REPORT oReport
> END WITH
> ::TDbfClientes:clearfilter()//SET FILTER TO // 34 = " y 39 =
> '
> end if
> end if
> ::TDbfClientes:OrdSetFocus("REFERENCIA")
> ::TDbfClientes:Goto(PUNTERO)
> end if
> if ::oImpresioncliente:nResult = 4 // impresion de ficha
> PUNTERO := ::TDbfClientes:RECNO()
> WITH OBJECT ::TDbfClientes
> :Gotop()
> REPORT oReport ;
> TITLE "listado clientes" ;
> PREVIEW
> COLUMN OF oReport ;
> TITLE "Codigo" ;
> DATA ::TDbfClientes:codigo ;
> ALIGN taRIGHT
> COLUMN OF oReport ;
> TITLE "DATOS" ;
> DATA ::TDbfClientes:CLIENTE,;
> ::TDbfClientes:NIF,;
> ::TDbfClientes:DIRECCION,;
> (::TDbfClientes:CP + " " + ::TDbfClientes:POBLACION),;
> ::TDbfClientes:PROVINCIA,;
> ::TDbfClientes:RESPONSABL
> COLUMN OF oReport ;
> TITLE "TELEFONOS" ;
> DATA ::TDbfClientes:TELEFONO,;
> ::TDbfClientes:MOVIL,;
> ::TDbfClientes:EMAIL
> RUN REPORT oReport
> END WITH
> ::TDbfClientes:OrdSetFocus("REFERENCIA")
> ::TDbfClientes:Goto(PUNTERO)
> end if
>

[jrcsistemas]

Pilo
Creo que te falta
REPORT .... DATASET oDataset // ej: TDbfClientes
Juan