Page 1 of 1
Como contar registros en TReport? (SOLUCIONADO)
Posted: Tue Oct 29, 2024 10:52 pm
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
Re: Como contar registros en TReport?
Posted: Tue Oct 29, 2024 11:52 pm
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
Re: Como contar registros en TReport?
Posted: Wed Oct 30, 2024 6:43 pm
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