Baja del sistema en un formulario con calificaciones escolares
Mira tengo un problemita o problemón como lo quieras ver en el mismo sistema de escuela tengo un formulario de calificaciones donde tengo 7 calificaciones pero lo que quiero hacer es que si el alumno reprueba más de 3 materias se de de baja del sistema
Pero si solo reprueba 1,2 o 3 que se pongan en otros textbox
Pero si solo reprueba 1,2 o 3 que se pongan en otros textbox
1 Respuesta
Respuesta de venus1666
1
Puedes hacer lo siguiente; por ejemplo: Coloca en tu tabla un campo de verificación de estatus. Los valores posibles podrían ser A Activo (Alumno activo); B Baja; R Riesgo (Alumno en riesgo). Al dar de alta a un alumno su estatus siempre deberá ser A.
STORE RECCOUNT() TO totreg
IF totreg > 0
FOR registro = 1 TO totreg
*Almacenaremos la cuenta de las materias reprobadas; si las hay.
STORE 0 TO cuenta
GO RECORD registro
*Suponiendo que la calificación mínima aprobatoria sea seis y, que los campos mat1 a mat7 sean de tipo numérico, esto es lo que necesitas:
IF MAT1 < 6
cuenta = cuenta + 1
ENDIF
IF MAT2 < 6
cuenta = cuenta + 1
ENDIF
IF MAT3 < 6
cuenta = cuenta + 1
ENDIF
IF MAT4 < 6
cuenta = cuenta + 1
ENDIF
IF MAT5 < 6
cuenta = cuenta + 1
ENDIF
IF MAT6 < 6
cuenta = cuenta + 1
ENDIF
IF MAT7 < 6
cuenta = cuenta + 1
ENDIF
DO CASE
CASE cuenta > 3
REPLACE calif.status WITH ?B?
CASE cuenta > 0 .AND. cuenta < 4
código para mostrar text box?
Endcase
Endfor
Endif
Hasta pronto y no olvides valorar la respuesta.
STORE RECCOUNT() TO totreg
IF totreg > 0
FOR registro = 1 TO totreg
*Almacenaremos la cuenta de las materias reprobadas; si las hay.
STORE 0 TO cuenta
GO RECORD registro
*Suponiendo que la calificación mínima aprobatoria sea seis y, que los campos mat1 a mat7 sean de tipo numérico, esto es lo que necesitas:
IF MAT1 < 6
cuenta = cuenta + 1
ENDIF
IF MAT2 < 6
cuenta = cuenta + 1
ENDIF
IF MAT3 < 6
cuenta = cuenta + 1
ENDIF
IF MAT4 < 6
cuenta = cuenta + 1
ENDIF
IF MAT5 < 6
cuenta = cuenta + 1
ENDIF
IF MAT6 < 6
cuenta = cuenta + 1
ENDIF
IF MAT7 < 6
cuenta = cuenta + 1
ENDIF
DO CASE
CASE cuenta > 3
REPLACE calif.status WITH ?B?
CASE cuenta > 0 .AND. cuenta < 4
código para mostrar text box?
Endcase
Endfor
Endif
Hasta pronto y no olvides valorar la respuesta.
