FoxPro/Visual FoxPro - Problema con Report

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