FoxPro/Visual FoxPro - Buscar fechas en una tabla con IF

***************************************

CLOSE ALL

SET CENTURY ON

***********************************************************************************

USE "c:\sis_g\base de datos\mcaja.dbf"

******************************************************

*fecha_inicial=CTOD("04/18/2016")

*fecha_final=CTOD("04/18/2016")

*	APPEND FROM "c:\sis_g\base de datos\movi\movi.dbf" FOR fecha=>fecha_inicial and fecha=<fecha_final

*******************************************************************************************************************

SELECT mcaja

fecha_inicial=CTOD("08/18/2016")

fecha_final=CTOD("08/18/2016")

IF fecha=fecha_inicial AND fecha=fecha_final

	*SET FILTER TO fecha=>fecha_inicial and fecha=<fecha_final    && SI HAGO ESTO FUNCIONA

   	eMessageTitle = 'Atención.....'

	eMessageText = 'no EXISTE INFORMACION CON ESA FECHA'

	nDialogType = 0+64

		nAnswer=MESSAGEBOX(eMessageText,nDialogType,eMessageTitle)

ELSE

   	eMessageTitle = 'Atención.....'

	eMessageText = 'si EXISTE INFORMACION CON ESA FECHA'

	nDialogType = 0+64

		nAnswer=MESSAGEBOX(eMessageText,nDialogType,eMessageTitle)

ENDIF

USE "c:\sis_g\base de datos\mcaja.dbf"

ldInicial = DATE(2016,4,18)

ldFinal = DATE(2016,4,18)

SELECT * ;

	FROM mcaja ;

	WHERE fecha between ldIncial AND ldFinal ;

	INTO CURSOR cur_mCaja READWRITE

lnTAlly = _tally

IF m.lnTally = 0

	USE IN "cur_mCaja"

	MESSAGEBOX("No hay datos")

ELSE

	MESSAGEBOX(TRANSFORM(m.lnTally)+" Coincidencias")

	SELECT cur_mCaja

	BROWSE

ENDIF

USE IN mCaja

USE IN cur_mCaja