FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Poner una linea en un total de grupo
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM
Poner una linea en un total de grupo
Posted: Mon May 25, 2009 10:33 AM

Hola a todos
Pues eso, que intento poner, en vez de la frase Total cuando acaba el grupo en un report, una linea simple, pero no lo consigo, ¿alguno me daría una pista de cómo ponerlo en el footer del grupo o en otro lugar?

Gracias

Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
Re: Poner una linea en un total de grupo
Posted: Mon May 25, 2009 01:11 PM

Hola,

prueba con oReport:nGroupLine := 1

saludos

Marcelo

Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Poner una linea en un total de grupo
Posted: Mon May 25, 2009 02:05 PM

Hola. También puedes probar asi:
oReport:bEnd:= {|| oReport:TotalLine(oReport:nGroupLine, 0)}
Saludos

Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Poner una linea en un total de grupo
Posted: Mon May 25, 2009 02:21 PM

Pedro:

Si tienes armado el GROUP puedes aprovechar el método ON ENDGROUP TuFuncion(oReporte)

Y en la función TuFuncion() pruebalo así

FUNCTION TuFuncion(oReporte)
oReporte:TotalLine( RPT_SINGLELINE) // o RPT_DOUBLELINE
RETURN(NIL)

Tambien puedes apoyarte en oReporte:EndLine(), oReporte:StartLine() y oReporte:BackLine(1)
para colocar la línea en el lugar más apropiado, por alternativas no paramos.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM
Re: Poner una linea en un total de grupo
Posted: Mon May 25, 2009 06:41 PM

Gracias amigos

Despues de pelearme un buen rato con el tema, ya que no salía, al fin di con la solución.

...........
...........
ACTIVATE REPORT oReport ;
ON ENDGROUP Pintalinea(oReport)
...........
...........
Function Pintalinea(oReport)
oReport:TotalLine(1)
oReport:BackLine(1)
RETURN(NIL)

El BackLine lo pongo porque si no tendría una separación excesiva y se ve feo.
Así quito una linea y queda con mejor vista

Repito, muchas gracias a todos

Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO

Continue the discussion