FoxPro/Visual FoxPro - Problema con Report

 
Vista:

Problema con Report

Publicado por Gabriel (35 intervenciones) el 06/10/2006 20:33:55
Que tal amigos :
Recurro a ustedes a fin que algun colega me pueda ayudar a resolver 2
problemas presentados.
Aqui el codigo que estoy utilizando...

PUBLIC numero
local ITEM

ldFechaLimite = DATE() - 5
SELECT * FROM Prestado WHERE Fech_Pres < ldFechaLimite ;
.AND. Stat_Pres = "Prestado" .AND. .NOT. DELETED() ;
ORDER BY Pres_Ord, Orden_P Into CURSOR Temp

*********************************************************************
Crea el Numero Correlativo
********************************************************************
numero = -1
SELECT contar() AS Item ,* FROM Temp INTO CURSOR MiCursor
*-
lnFiles = _TALLY
IF lnFiles > 0
Store RECCOUNT() To REGTOT && Debe visualizar la
cantidad exacta de registros

IF 6 = MessageBox(TRANSFORM(lnFiles) + " File(s) Prestado(s) Superaron
Fecha Limite" + CHR(13) + ;
"¿Desea Usted Ver el Reporte Ahora...?",4+32,"Aviso
del Sistema")

REPORT FORM C:\CONTROL\APLICACION\Mireport.FRX NOCONSOLE

ENDIF
ENDIF
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