FoxPro/Visual FoxPro - Totales

Hola !!, tengo el siguiente codigo para sacar el total del dia de la facturas B pero me dice que no coinciden los tipos de operando. Cual Puede ser el error ?

SELECT facturas
SELECT totaldia
IF totaldia.fecha <> DATE()
APPEND blank
REPLACE totaldia.fecha WITH DATE()
ENDIF

SELECT facturas
SET ORDER TO tag facfec
SEEK DATE()
IF FOUND()
IF totaldia.fecha = DATE()
DO WHILE facturas.fecha = DATE()
IF facturas.iva = "Resp. No Inscri" OR facturas.iva = "Cons. Final" OR facturas.iva = "Exento"
replace totaldia.facturabt with totaldia.facturabt + facturas.total
ENDIF
SELECT Facturas
SKIP
ENDDO
endif
endif
DO FORM form2

HOLA ANALIA

Verifica en la tabla como esta definida la fecha si es de tipo date()

ACM