FoxPro/Visual FoxPro - ayuda con calculo de fechas

   
Vista:

ayuda con calculo de fechas

Publicado por gustavo (34 intervenciones) el 04/10/2008 00:31:08
hola a todos
alguien me puede ayudar con el suiguient codigo
***********************************
LOCAL fmxm
SELECT inas_mae
GO top
LOCATE FOR id_dnimaes=thisform.txtdni.Value
IF FOUND()
For mes = 3 To 12
Count For estado="AUSENTE" AND justifica = "SI" AND id_dnimaes=thisform.txtdni.Value AND Month(fecha) = mes TO fmxm
IF fmxm = 3
MESSAGEBOX("El maestro a las 3 faltas en un mismo mes",16)
else
IF fmxm > 3
MESSAGEBOX("El maestro supero las 4 faltas en un mismo mes",16)
ELSE
IF fmxm < 3
MESSAGEBOX("El maestro no llego al limite de faltas en un mismo mes",16)
ENDIF
ENDIF
ENDIF
ENDFOR
ELSE
MESSAGEBOX("El maestro no tiene faltas",64)
ENDIF
***********************************************
lo que ocurre al ejecutarlo, los mensaje aparecen por todos los meses
si el maestro solo tubo 3 faltas en octubre en este mes me muestra su mensage correspondiente y el resto de los meses me muestra tambien su mensage correspondient
es decir que siempre me muestra 9 veces un mensaje,uno por mes
como podria cambiar esto
y si es posible que en un mensaje me figure el nombre del mes

chau y hasta pronto
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
Imágen de perfil de Mauricio

Ayuda con calculo de fechas

Publicado por Mauricio (1368 intervenciones) el 04/10/2008 02:53:05
PD: He sustituido por facilidad la variable thisform.txtdni.Value por Var_Nom
*
LOCAL fmxm, Var_Form
Var_Form = 'Mae_005'
SELECT inas_mae
GO top
LOCATE FOR id_dnimaes = Var_Form
IF FOUND()
For mes = 3 To 12
Count For estado="AUSENTE" AND justifica = "SI" AND id_dnimaes = Var_Form AND Month(fecha) = mes TO fmxm
ENDFOR
ENDIF
IF fmxm = 0
MESSAGEBOX("El maestro no tiene faltas",64)
ELSE
IF fmxm = 3
MESSAGEBOX("El maestro a las 3 faltas en un mismo mes",16)
else
IF fmxm > 3
MESSAGEBOX("El maestro supero las 4 faltas en un mismo mes",16)
ELSE
IF fmxm < 3 AND != 0
MESSAGEBOX("El maestro no llego al limite de faltas en un mismo mes",16)
ENDIF
ENDIF
ENDIF
ENDIF
Puedes probarlo y modificarlo a tu gusto, 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