Report Con ADO Cuando manejo de GROUP ON no Funciona

Board index FiveWin para Harbour/xHarbour Report Con ADO Cuando manejo de GROUP ON no Funciona

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Report Con ADO Cuando manejo de GROUP ON no Funciona
Posted: Thu Jul 10, 2008 07:39 PM

Tengo un probleam cuando genero un reporte quiero agruparlo, manejando ADO no me funciona se queda procesando como en un Ciclo me toca cancelar el proceso, cuando lo genero en formato DBF si funciona.

Anexo codigo.

Code: Select all Collapse

    REPORT oReport ;
          TITLE  "REGISTRO DE REFERENCIAS CATEGORIAS",;
                 OemtoAnsi("");
          FONT   oFon1, oFon2, oFon3    PEN    oPen1,   oPen2 ; 
          HEADER  " Fecha : "+dtoc(date()),  "Hora  : "+time(),    "Pagina: "+strzero(oReport:nPage,3)    RIGHT ;
          FOOTER OemtoAnsi(memvar->X_SIGLA+"       "+memvar->X_TPAQU )  CENTERED;
          PREVIEW  

         COLUMN TITLE "Codigo" DATA oDatos:Fields("catval"):Value    FONT 1   
         COLUMN TITLE "Descripcion" DATA oDatos:Fields("nomb_val"):Value     FONT 1  SIZE 30 
         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

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Report Con ADO Cuando manejo de GROUP ON no Funciona
Posted: Thu Jul 10, 2008 08:07 PM

Antes de ACTIVATE REPORT te falta algo asi:

oPrn:bSkip := {|| oDatos:Skip(), SYSREFRESH() } ó
oPrn:bSkip := {|| oDatos:Next(), SYSREFRESH() } ó
oPrn:bSkip := {|| oDatos:Fetch(), SYSREFRESH() }

ACTIVATE REPORT.................

debes indicar como pasar de un registro a otro...

Salu2

ruben Dario

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Report Con ADO Cuando manejo de GROUP ON no Funciona
Posted: Fri Jul 11, 2008 12:50 PM

Willi Quintana wrote:Antes de ACTIVATE REPORT te falta algo asi:

oPrn:bSkip := {|| oDatos:Skip(), SYSREFRESH() } ó
oPrn:bSkip := {|| oDatos:Next(), SYSREFRESH() } ó
oPrn:bSkip := {|| oDatos:Fetch(), SYSREFRESH() }

ACTIVATE REPORT.................

debes indicar como pasar de un registro a otro...

Salu2

Lo defini pero sigue igual, Lo curioso es que si no le coloco EL Grupo si funciona el reporte.

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

FiveTech Support Forums

Continue the discussion