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.

Treport y setscope

Foro público de Xailer en español
PatriciaP
Mensajes: 2
Registrado: Jue Abr 07, 2011 11:48 pm

Treport y setscope

Mensaje por PatriciaP »

Hola
Tengo un dataset al que le aplico le metodo setscope
::oDbfDataCliSt:SetScope( ::oDbfDataCli:clicodigo)
cuando quiero hacer el report
Local oReport, oFont1, oFont2

With Object oFont1 := TFont():New()
:cName := "Arial"
:nSize := 12
:lBold := .T.
END WITH
With Object oFont2 := TFont():New()
:cName := "Arial"
:nSize := 10
:lBold := .f.
END WITH
REPORT oReport ;
TITLE "Lista de Precio de"+::oDbfDataCli:clicodigo+" / "+::oDbfDataCli:clinombre ;
PREVIEW ;
FONT oFont1, oFont2
COLUMN OF oReport ;
TITLE "Artí­culo" ;
DATA ::oDbfDataCliSt:codigo ;
ALIGN taRIGHT

COLUMN OF oReport ;
TITLE "Precio" ;
DATA ::oDbfDataCliSt:DESCRIP;
ALIGN taRIGHT
RUN REPORT oReport
oFont1:Destroy()
oFont2:Destroy()
Me genera el report con un monton de paginas y todas con el mismo
registro como si no recorriera el dataset, me repite siempre el primer registro de ese scope
use tambien
RUN REPORT oReport;
while {|| ::oDbfDataCliSt:cliente=::oDbfDataCli:codigo .and. !eof()}
y esto me da un error
probe tambien un
::oDbfDataCliSt:ClearScope(.F.)
para sacarle el scope
y utilice solo el ::oDbfDataCliSt:seek(::oDbfDataCli.codigo)
y tampoco me anda
con otros dataset no tengo problemas
Alguna idea de lo que estoy haciendo mal???
Gracias
Responder