Pregunta sobre GROUP ON

[ruben Dario]

Es posible colocar el nombre del rompimiento antes y no despues

Code: Select all  Expand view  RUN

   oPrn:SetPortrait()
   oPrn:SetPage(1)


    REPORT oReport ;
          TITLE  "REGISTRO DE TIPOS DE CONTROL",;
                 OemtoAnsi("");
          FONT   oFon1,;
                 oFon2,;
                 oFon3 ;
          PEN    oPen1,;
                 oPen2 ;
          HEADER  " Fecha : "+dtoc(date()),;
                  "Hora  : "+time(),;
                  "Pagina: "+strzero(oReport:nPage,3),;
                  memvar->X_TPAQU;
                  RIGHT ;
          FOOTER OemtoAnsi(memvar->X_SIGLA );//  CENTERED;
          PREVIEW  //TO DEVICE oPrn PREVIEW     //      TO FILE "d:\test.txt" TO
         COLUMN TITLE "Codigo" DATA oDatos:Fields("catval"):Value;
                FONT 1   //SHADOW GRID 1 hace la raya vertical
         COLUMN TITLE "Descripcion" DATA oDatos:Fields("nomb_val"):Value ;
                FONT 1  SIZE 30  //SHADOW grid  //coloca sombreado
         GROUP ON oDatos:Fields("refcat"):Value  HEADER "Referencia "+oDatos:Fields("refcat"):Value  

    END REPORT

     ACTIVATE REPORT oReport ON STARTPAGE StartPage(1,oReport) ON STARTLINE versombra(oReport);
              ON STARTGROUP oReport:NewLine()  WHILE nLinea <= nHasta
 

[Ramon Paredes]

Ruben Dario,

Puedes hacerlo perfectamente de la siguiente forma :

GROUP ON oDatos:Fields("refcat"):Value /// suspender esto HEADER "Referencia "+oDatos:Fields("refcat"):Value

ACTIVATE REPORT oReport ON STARTPAGE StartPage(1,oReport) ON STARTLINE versombra(oReport);
ON STARTGROUP(oReport:NewLine() WHILE nLinea <= nHasta,;
oReport:EndLine(),;
oReport:Say(0,"Referencia " +oDatos:Fields("refcat"):Value,3,,oReport:nRow),;
oReport:NewLine(),;
oReport:EndLine() ) ;


Saludos desde Managua, Nicaragua

Ramon Paredes

[jfafive]

Hola,

Estoy intentando hacer un report con grupo.
Pero cuando genero, me sale una ventanita que dice 'Building Page: 1'
con un boton abajo que pone 'Preview'

Y se queda colgado.
Esto solo me ocurre cuando añado la clausula:

Code: Select all  Expand view  RUN

....
GROUP ON oRsRpt:Fields( "dias" ):Value
....
 

¿Alguien sabe que puede ser?

[Ramon Paredes]

jfive,

puedes poner un poco mas de codigo para orientarnos y poder ayudarte ? , la clausula la pones antes del activate report ?

Saludos desde Managua, Nicaragua

Ramon Paredes

[jfafive]

Gracias por responder, Ramón.

Lo cierto es que no recuerdo bien como era el codigo.
Con la urgencia, al final hice el listado con TPrint, a la antigua usanza, y borré el codigo antiguo.

Pero creo recordar que era un simple report, como los que vienen en los ejemplos, usando GROUP.
La diferencia es que yo no trabajo con DBF, sino con ADO Recordset.

Este es el codigo:

Code: Select all  Expand view  RUN

...
oRs:Open()

nFin := oRs:RecordCount
oRs:MoveFirst()

REPORT oRpt PREVIEW
   COLUMN TITLE "Parcela" ;
               DATA oRs:Fields( "dias" ):Value
                GROUP ON oRsRpt:Fields( "dias" ):Value

   COLUMN TITLE "Fecha Alta"   DATA oRs:Fields( "falta" ):Value
   COLUMN TITLE "Nombre"       DATA oRs:Fields( "nombre" ):Value
   COLUMN TITLE "Apellidos"    DATA oRs:Fields( "apellidos" ):Value
   COLUMN TITLE "Nacionalidad" DATA oRs:Fields( "nacionalidad" ):Value
END REPORT

if oRpt:lCreated

   oRpt:bSkip := { || ( nDesde++, oRs:MoveNext() ) }

endif

ACTIVATE REPORT oRpt WHILE nDesde <= nHasta

 

... así era si mal no recuerdo...
Gracias.

[Ramon Paredes]

jfafive,

oRs:Open()

nFin := oRs:RecordCount
oRs:MoveFirst()

REPORT oRpt PREVIEW
COLUMN TITLE "Parcela" ;
DATA oRs:Fields( "dias" ):Value
// GROUP ON oRsRpt:Fields( "dias" ):Value // esto no deberia ir ahi

COLUMN TITLE "Fecha Alta" DATA oRs:Fields( "falta" ):Value
COLUMN TITLE "Nombre" DATA oRs:Fields( "nombre" ):Value
COLUMN TITLE "Apellidos" DATA oRs:Fields( "apellidos" ):Value
COLUMN TITLE "Nacionalidad" DATA oRs:Fields( "nacionalidad" ):Value

// Deberia ir aqui : GROUP ON oRsRpt:Fields( "dias" ):Value

END REPORT

if oRpt:lCreated

oRpt:bSkip := { || ( nDesde++, oRs:MoveNext() ) }

endif

ACTIVATE REPORT oRpt WHILE nDesde <= nHasta

o bien puedes hacerlo desde el ACTIVATE REPORT como te indique en el post anterior,

Saludos,

Desde Managua, Nicaragua
Ramon Paredes

[jfafive]

Gracias Ramón,

Me servirá de mucha ayuda cuando tenga que hacer un report.
Saludos,

Javier.