Como contar registros en TReport? (SOLUCIONADO)

Post Reply
User avatar
Armando
Posts: 3248
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Como contar registros en TReport? (SOLUCIONADO)

Post by Armando »

Amigos del foro:

Con la siguiente línea de código

Code: Select all | Expand

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: Select all | Expand

COLUMN TITLE "Unitario"     DATA oRsBit:Fields("BIT_PRU"):Value             SIZE  8 RIGHT PICTURE "@Z 9,999.99" COUNT
 
Saludos
Last edited by Armando on Wed Oct 30, 2024 6:57 pm, edited 1 time in total.
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
cmsoft
Posts: 1293
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: Como contar registros en TReport?

Post by cmsoft »

Una idea:

Code: Select all | Expand

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) //_ 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
User avatar
Armando
Posts: 3248
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Re: Como contar registros en TReport?

Post by Armando »

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

Code: Select all | Expand

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
Post Reply