FoxPro/Visual FoxPro - calcular cuota

Hola programadores tengo este codigo pero no esta funcionando correctamente necesito saber que el socio no este adeudando en sus aportes

SELECT socios
fecha=socios.soc_ins
mes = MONTH (socios.soc_ins)
SELECT aportes
SET FILTER TO
SET FILTER TO (aportes.soc_cod = soc_cod)
DO WHILE ((MONTH (aportes.apo_fec)) = (mes + 1)) and (eof ())
GO bottom
IF mes = 12
mes = 1
ELSE
mes = mes + 1
ENDIF
ENDDO
IF (MONTH (aportes.apo_fec)) <> (mes + 1)
thisform.text11.value="Deudor"
wait"El socio tiene Cuotas pendiente"window nowait
thisform.refresh
ELSE
IF ((MONTH (aportes.apo_fec)) + 1) = MONTH (date())
thisform.text11.value="Activo"
ELSE
thisform.text11.value="Deudor"
wait"El socio tiene Cuotas pendiente"window nowait
ENDIF
ENDIF

Tratá de desterrar el SET FILTER de tus aplicaciones, todo va a funcionar mejor y más rápido.
Es preferible armar un cursor con SELECT(SQL) o hacer un SCAN FOR.
Yendo al punto: no te conviene crear un índice sobre aportes.apo_fec y buscar lo que necesitás?