Como contar registros en TReport? (SOLUCIONADO)

Board index FiveWin para Harbour/xHarbour Como contar registros en TReport? (SOLUCIONADO)

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Como contar registros en TReport? (SOLUCIONADO)
Posted: Tue Oct 29, 2024 10:52 PM

Amigos del foro:

Con la siguiente línea de código

COLUMN TITLE "Unitario"     DATA oRsBit:Fields("BIT_PRU"):Value             SIZE  8 RIGHT PICTURE "@Z 9,999.99" TOTAL

Obtengo la suma o total de la columna

¿Cómo obtengo el número de registros impresos?

Intente así sin éxito

Code (fw): Select all Collapse

COLUMN TITLE "Unitario"     DATA oRsBit:Fields("BIT_PRU"):Value             SIZE  8 RIGHT PICTURE "@Z 9,999.99" COUNT

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

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Como contar registros en TReport?
Posted: Tue Oct 29, 2024 11:52 PM

Una idea:

Code (fw): Select all Collapse

REPORT oReport ;
        TITLE "*** LISTADO DE PRUEBA ***","","FiveTech Software","" ;
        HEADER "Fecha: "+dtoc(date())+space(44)+"Hora:  "+time() ;
        FOOTER "Página: "+str(oReport:nPage,3) PREVIEW

   GROUP ON Customer->State ;
        HEADER " " ;
        FOOTER "Total Estado "+oReport:aGroups[1]:cValue+" "+STR(oReport:aGroups[1]:nCounter) //Mostramos cantidad de registros del grupo

   COLUMN TITLE "ST" ;
        DATA Customer->State

   COLUMN TITLE "City" ;
        DATA Customer->City ;
        SIZE 30

   COLUMN TITLE "First Name","Last Name" ;
        DATA Customer->First, Customer->Last ;
        SIZE 30 

   COLUMN TITLE "   Salary" ;
        DATA Customer->Salary ;
        PICTURE "9,999,999" ;
        SIZE 9 ;
        TOTAL

   END REPORT
   
   ACTIVATE REPORT oReport ;
      ON STARTPAGE Tone( 100, 1 ) ON END oReport:cGrandTotal := "TOTAL REGISTROS:"+STR(oReport:nCounter) //Mostramos total registros

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Como contar registros en TReport?
Posted: Wed Oct 30, 2024 06:43 PM

César:

Agradecido con la idea, la voy a probar, aunque por la urgente necesidad lo solucioné
a pie con el método ON CHANGE CuentaRegs() que además me permite no contar los
registros cancelados.

Code (fw): Select all Collapse

STATIC FUNCTION CuentaRegs()
   IF ! oRsBit:Fields("BIT_CAN"):VALUE
      nTotMat++
      nTotPla++
      nTotCli++
      nTotFin++
   ENDIF
RETURN(.T.)

Son cuatro las variables porque tengo tres grupos y el total final.

Saludos y agradecido

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

FiveTech Support Forums

Continue the discussion