FoxPro/Visual FoxPro - Numero de Filas en un Report

 
Vista:

Numero de Filas en un Report

Publicado por Oscar Meza (78 intervenciones) el 18/07/2007 23:40:21
Existe alguna forma de saber cuantas filas lleva un reporte en tiempo de ejecucuion
Para que?
Pienso q si el reporte me esta perdiendo lineas del detalle hacer una rutina q verifique q si el numero de registro es igual al numero de filas del reporte
seria posible hacerlo?
Podrian darme una idea???
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Numero de Filas en un Report

Publicado por juan (537 intervenciones) el 19/07/2007 16:24:57
Te refieres al Reporteador ..

agrega una Text en la banda detalle y eliges,Propiedades,Cálculo
Recuento
Prueba desde un Términal .

Text núm Text(Descripción )
1 bla ,bla
2 bla ,bla
3 bla,bla,bla ..
etc

En tú formulario chequea que la Propiedad sea igual a:
Buffers Mode=2 (óptimista) para un entorno múltiusuario
luego genera el proyecto .
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Posible Solucion !!!!!!

Publicado por Oscar Meza (78 intervenciones) el 19/07/2007 17:59:44
Dentro del reporte cree una variable llamada xLinea que almacena el valor xLinea+1, valor inicial 0, y en la condicion de impresion "Imprimir solo cuando:"
Cursor.codprod='x', esto nunca se dara
La variable xLinea debe ser publica si no no funcionara, luego tendo el siguente codigo:

Do CrearCursor With m.numfact && Creando Cursor
Do ContarLineas With "MyReport" && Valindando # de filas del reporte

SELECT Cursor
GO TOP
REPORT FORM MyReport TO PRINTER PROMPT NOCONSOLE

Procedure ContarLineas
Parameters lc_report
LOCAL vLineas1,vLineas2
STORE 0 TO vLineas1,vLineas2,xLinea

&& contando las filas del detalle del reporte

DEFINE WINDOW x FROM 1,1 TO 2,2
ACTIVATE WINDOW x NOSHOW
REPORT FORM (lc_report) NOCONSOLE
vLineas1 = xLinea
RELEASE WINDOW x

SELECT crFacturas && Contando los registros de la vista
vLineas2=RECCOUNT( )

IF !vLineas1=vLineas2 && Recreo el Cursor para General de Nuevo el Origen
Wait windows "Verificando Detalle del Documento" Nowait

Do CrearCursor With m.uniconum && Creando Cursor
ENDIF

RETURN
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Posible Solucion !!!!!!

Publicado por MARIO (1 intervención) el 25/03/2024 16:12:21
en page header
crear un field
poner solo recno() en expresion
formato numerico y listo
al ejecutar el reporte te numerara los registros....

saludos,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar