FoxPro/Visual FoxPro - ayuda para calcular insistncia

hola
me pueden ayudar con este codigo,el contador de "AUSENTE" funcionaba bien, pero cuando agrege + codigo no hace nada
quiero q cuente todas las faltas dl alumno q selecciono de la grilla y la materia en q falto
ESTE CODIGO ESTA EN EL BOTON CALCULAR PARA SACAR EL % DE ASISTENCIA y como vran tngo 3 textbox y un combo de materias y 3 tablas ALUMNOS,INASISTNCIA Y MATERIAS
en el 1º text coloco las clase totales en el 2º text de faltas toma la cuenta del COUNT=AUSENTE y el ultimo text me muestra %

LOCAL m.nFalta, CLASES, TOTALF, CLASESA, CLASEST
SELECT INASISTENCIA
GO TOP
LOCATE FOR id_dnialum==THISFORM.Grid1.Column1.Text1.Value
IF FOUND()
Count For estado = "AUSENTE" To m.nFalta
SELECT materias
if descrip==thisform.comboMateria.Value
IF inasistencia.id_mat==materias.id_materia
CLASEST=THISFORM.TXtclases.Value
THISFORM.TXtfaltas.Value=m.nFalta
CLASESA=CLASEST-m.nFalta
TOTALF=INT((CLASESA*100)/CLASEST)
THISFORM.TXttotal.Value=TOTALF
THISFORM.Grid1.Refresh
endif
endif
ENDIF

gracias por todo y espero una rpta.
no vmos.

en que parte estas agregando + codigo podrias postear el codigo que estas agregando ?¿¿¿

hola
hice algunos cambios
este es el codigo q funciona
**************
select inasistencia
go top
Count For estado = "AUSENTE" And id_dnialum == ThisForm.txtdni.value To m.nFalta
ClasesT = ThisForm.TXtclases.Value
ThisForm.TXtfaltas.Value = m.nFalta
ClasesA = ClasesT - m.nFalta
TotalF = Int( (ClasesA * 100 ) / ClasesT )
ThisForm.TXttotal.Value = TotalF
ThisForm.Grid1.Refresh
***************************
este codigo no funk8es el antrior + agregado)
***************************
select inasistencia
go top
locate for id_dnialum=ThisForm.txtdni.value

if found()
Count For estado = "AUSENTE" And id_dnialum == ThisForm.txtdni.value To m.nFalta
select materias
if descrip==thisform.combomateria.value
if id_materia=inasistencia.materia
ClasesT = ThisForm.TXtclases.Value
ThisForm.TXtfaltas.Value = m.nFalta
ClasesA = ClasesT - m.nFalta
TotalF = Int( (ClasesA * 100 ) / ClasesT )
ThisForm.TXttotal.Value = TotalF
ThisForm.Grid1.Refresh
endif
endif
*******************************
no hace nada

Pruebalo asi .....

SELECT inasistencia
GO TOP
IF id_dnialum=ThisForm.txtdni.value
COUNT FOR estado = "AUSENTE" AND id_dnialum == ThisForm.txtdni.Value To m.nFalta
Select materias
IF descrip==thisform.combomateria.value
IF id_materia=inasistencia.materia
ClasesT = ThisForm.TXtclases.Value
ThisForm.TXtfaltas.Value = m.nFalta
ClasesA = ClasesT - m.nFalta
TotalF = Int( (ClasesA * 100 ) / ClasesT )
ThisForm.TXttotal.Value = TotalF
ThisForm.Grid1.Refresh
ENDIF
ENDIF
ENDIF

Suerte

hola
al fin pede con est codigo
muchas gracias
y tambien suert para ti
este es el codigo q m funciono
*************
LOCAL m.nFalta, CLASES, TOTALF, CLASESA, CLASEST

SELECT inasistencia
GO TOP
LOCATE for id_dnialum=THISFORM.TXtdni.Value
IF FOUND()
COUNT FOR estado = "AUSENTE" AND id_dnialum == ThisForm.txtdni.Value AND ID_MAT == MATERIAS.ID_MATERIA To m.nFalta
Select materias
IF descrip==thisform.combomateria.value
ClasesT = ThisForm.TXtclases.Value
ThisForm.TXtfaltas.Value = m.nFalta
ClasesA = ClasesT - m.nFalta
TotalF = Int( (ClasesA * 100 ) / ClasesT )
ThisForm.TXttotal.Value = TotalF
ThisForm.Grid1.Refresh
ENDIF
ENDIF
*************
nos vmos