Treport y setscope
Publicado: Mié Abr 13, 2011 3:37 am
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
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