Poner una linea en un total de grupo

Poner una linea en un total de grupo

Postby Pedro » 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
User avatar
Pedro
 
Posts: 464
Joined: Tue Mar 21, 2006 7:30 pm
Location: Córdoba (España)

Re: Poner una linea en un total de grupo

Postby Marcelo Via Giglio » Mon May 25, 2009 1:11 pm

Hola,

prueba con oReport:nGroupLine := 1

saludos

Marcelo
Marcelo Via Giglio
 
Posts: 1058
Joined: Fri Oct 07, 2005 3:33 pm
Location: Cochabamba - Bolivia

Re: Poner una linea en un total de grupo

Postby FranciscoA » Mon May 25, 2009 2: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
User avatar
FranciscoA
 
Posts: 2158
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Poner una linea en un total de grupo

Postby Armando » Mon May 25, 2009 2: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
User avatar
Armando
 
Posts: 3183
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Poner una linea en un total de grupo

Postby Pedro » Mon May 25, 2009 6: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
User avatar
Pedro
 
Posts: 464
Joined: Tue Mar 21, 2006 7:30 pm
Location: Córdoba (España)


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 56 guests