TReport y Groups

TReport y Groups

Postby Armando » Fri Jun 09, 2006 10:54 pm

Amigos del foro:

Tengo un reporte con TReport con dos Grupos definidos

GROUP gOrden ON (cDetOrd)->DET_ORD etc, etc
GROUP gTipo ON (cDetOrd)->DET_TIP etc etc

ON STARTGROUP MsgInfo("Hola")

Perooooooo, el mensaje "Hola" me lo muestra al inicio de ambos grupos, y lo que yo necesito es que se muestre solo en el primero (gOrden)
cómo puedo diferenciarlos para enviar el mensaje solo en el primero ?


Saludos a todos
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: 3184
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Postby RenOmaS » Sat Jun 10, 2006 2:02 pm

Modifica en el Report.prg
Code: Select all  Expand view
  Eval( ::bStartGroup, ::aGroups[ nGroup] )

por
Code: Select all  Expand view
  Eval( ::bStartGroup, ::aGroups[ nGroup], nGroup )


Despues ya puedes utilizar
Code: Select all  Expand view
oRpt:bStartGroup := {|o,n| If( n==1, //grupo 1
                               MsgInfo( "hola Grupo 1"), ;
                               MsgInfo( "hola otro Grupo" ) }


Saludos
:twisted: :twisted:
User avatar
RenOmaS
 
Posts: 205
Joined: Fri Oct 07, 2005 5:07 pm

Postby Armando » Sat Jun 10, 2006 2:55 pm

RenOmaS:

Muchas gracias !, funcionó de maravilla.

Solo me queda pedirle a A.L. que incorpore este cambio en futuras versiones, no soy partidario de tener la LIB de FWH + otras LIBs con las modificaciones como esta.

Saludos a todos.
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: 3184
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Postby José Ríos » Sun Apr 08, 2007 9:07 pm

Hola Armando.

¿A ti no te sucedio que, al imprimir el primer primer grupo del documento, el encabezado del grupo se sobreescribe con primer elemento del grupo?

http://fivetechsoft.com/forums/viewtopic.php?t=6620

Saludos.
José Ríos
 
Posts: 119
Joined: Fri Nov 04, 2005 12:23 am

Postby Armando » Mon Apr 09, 2007 1:11 am

José:

Algunas veces me pasa eso pero lo he solucionado con

oReport:EndLine()
oReport:StartLine()

y en algunos caso más con la línea

oReport:BackLine(n) // n es el número de lineas que deseo retroceder

Saludos, Armando
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: 3184
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Postby José Ríos » Mon Apr 09, 2007 5:18 am

!Armando Muchas Gracias!.

Problema arreglado anexando un oReport:end() al inicio del StartGroup.

Saludos.
José Ríos
 
Posts: 119
Joined: Fri Nov 04, 2005 12:23 am

Postby José Ríos » Mon Apr 09, 2007 5:19 am

Corrijo.

Problema arreglado anexando un oReport:endLine() al inicio del StartGroup.
José Ríos
 
Posts: 119
Joined: Fri Nov 04, 2005 12:23 am


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 62 guests