topic-19685

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Pregunta sobre GROUP ON
Posted: Thu Aug 26, 2010 09:24 PM

Es posible colocar el nombre del rompimiento antes y no despues

   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

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

Ramon Paredes

Posts: 215

Joined: Fri Feb 02, 2007 03:38 PM

Re: Pregunta sobre GROUP ON
Posted: Sat Aug 28, 2010 11:42 PM

Ruben Dario,

Puedes hacerlo perfectamente de la siguiente forma :

  GROUP ON oDatos:Fields(&quot;refcat&quot;):Value   /// suspender esto  HEADER &quot;Referencia &quot;+oDatos:Fields(&quot;refcat&quot;):Value

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

Saludos desde Managua, Nicaragua

Ramon Paredes

... Desde la Tierra de lagos y Volcanes......

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Re: Pregunta sobre GROUP ON
Posted: Wed Feb 23, 2011 12:10 PM

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 (fw): Select all Collapse

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

¿Alguien sabe que puede ser?

Javier,

FWH 8.04 2008

Ramon Paredes

Posts: 215

Joined: Fri Feb 02, 2007 03:38 PM

Re: Pregunta sobre GROUP ON
Posted: Fri Mar 04, 2011 02:45 AM

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

... Desde la Tierra de lagos y Volcanes......

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Re: Pregunta sobre GROUP ON
Posted: Fri Mar 04, 2011 10:30 AM

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 (fw): Select all Collapse

...
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.

Javier,

FWH 8.04 2008

Ramon Paredes

Posts: 215

Joined: Fri Feb 02, 2007 03:38 PM

Re: Pregunta sobre GROUP ON
Posted: Tue Mar 08, 2011 04:48 PM

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

... Desde la Tierra de lagos y Volcanes......

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Re: Pregunta sobre GROUP ON
Posted: Tue Mar 08, 2011 07:52 PM

Gracias Ramón,

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

Javier.

Javier,

FWH 8.04 2008

FiveTech Support Forums

Continue the discussion