FoxPro/Visual FoxPro - ayuda para calcular insistncia

   
Vista:

ayuda para calcular insistncia

Publicado por gustavo (34 intervenciones) el 02/06/2008 15:12:52
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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda para calcular insistncia

Publicado por Ernesto Hernandez (4632 intervenciones) el 03/06/2008 21:00:06
en que parte estas agregando + codigo podrias postear el codigo que estas agregando ?¿¿¿
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda para calcular insistncia

Publicado por gustavo (34 intervenciones) el 03/06/2008 21:16:51
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda para calcular insistncia

Publicado por Ernesto Hernandez (4632 intervenciones) el 03/06/2008 22:09:37
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:calcular insistncia resuelta

Publicado por gustavo (34 intervenciones) el 05/06/2008 15:50:31
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar