09/10/2007, 15:18
|
 | Usuario no validado | | Fecha de Ingreso: marzo-2005
Mensajes: 194
Antigüedad: 19 años, 1 mes Puntos: 0 | |
| Segunda Parte
Código:
'Sección para el calculo de las calificaciones
If dteControlEscolar.rsqryBusquedaAlumno!Nombre <> "LICENCIATURA EN DERECHO" Then
'SISTEMA DE EVALUACIÓN PARA EL IPN
If optEnteros.Value = True Then
'Sección para el calculo de las calificaciones
intEvalua1 = 0 'Asignar valor de inicialización a la variable
intEvalua2 = 0 'Asignar valor de inicialización a la variable
intEvalua3 = 0 'Asignar valor de inicialización a la variable
intEvalua1 = GetPrimeraEvaluacion(dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno) 'Llamar a la función para obtener el valor de la primera evaluación de cada materia
intEvalua2 = GetSegundaEvaluacion(dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno) 'Llamar a la función para obtener el valor de la segunda evaluación de cada materia
intEvalua3 = GetTerceraEvaluacion(dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno) 'Llamar a la función para obtener el valor de la segunda evaluación de cada materia
vntPromedioMateriaRedondeado = GetRedondeoPromedioMateriaTerceraIpn(intEvalua1, intEvalua2, intEvalua3, dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno) 'Llamar a la función para obtener el promedio de una materia de forma redondeada
vntPromedioGeneral = vntPromedioGeneral + vntPromedioMateriaRedondeado 'Sumar y asignar todas la evalauiciones para el promedio general
Call DoGuardarPromedioMateriaEvaluacion(vntPromedioMateriaRedondeado, dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno)
If dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua3 = "NP" Then 'Validar los casos en donde la tercer evaluacion tiene "NP"
Call DoGuardarPromedioMateriaEvaluacion("0", dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno)
Else
If dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua3 = "SD" Then 'Validar los casos en donde la tercer evaluacion tiene "SD"
Call DoGuardarPromedioMateriaEvaluacion("SD", dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno) 'Llamar al procedimiento para guardar el promedio redondeado de una materia en su tercera evaluacion
Else
If dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua1 = "NP" And dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua2 = "NP" And dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua3 = "NP" Then 'Validar los casos en donde todas las evaluaciones tienen valor de "NP"
Call DoGuardarPromedioMateriaEvaluacion("0", dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno) 'Llamar al procedimiento para guardar el promedio redondeado de una materia en su tercera evaluacion
Else
If IsNull(dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua1) And IsNull(dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua2) And IsNull(dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua3) Then 'Validar los casos en donde todas la evaluaciones tienen el valor "Null" o " "
Call DoGuardarPromedioMateriaEvaluacion(" ", dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno) 'Llamar al procedimiento para guardar el promedio redondeado de una materia en su tercera evaluacion
Else
If dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua1 = " " And dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua2 = " " And dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua3 = " " Then 'Validar los casos en donde todas la evaluaciones tienen el valor " "
Call DoGuardarPromedioMateriaEvaluacion(" ", dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno) 'Llamar al procedimiento para guardar el promedio redondeado de una materia en su tercera evaluacion
End If 'Fin de validar los casos en donde todas las evaluaciones tienen el valor " "
End If 'Fin validar los casos en donde todas las evaluaciones tienen el valor "Null"
End If 'Fin de evaluar los casos en donde todas las evaluaciones tienen el valor de "NP"
End If 'Fin de evaluar los casos en donde la tercer evaluacion tiene el vaor de "SD"
End If 'Fin de evaluar los casos en donde la tercer evaluación tiene el valor de "NP"
'Fin de sección para el calculo de las calificaciones
'Sección para obtener la calificacion en letra
If dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua3 = "NP" Then 'Validar los casos en donde la tercer evaluacion tiene "NP"
Call DoModificarTemporalCalificacionLetraFormaAcreditar("CERO", dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!IdEvaluaciones) 'Llamar al procedimiento para guardar en un campo temporal la calificación promedio de la materia
Else
If dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua3 = "SD" Then 'Validar los casos en donde la tercer evaluacion tiene "SD"
Call DoModificarTemporalCalificacionLetraFormaAcreditar("SD", dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!IdEvaluaciones) 'Llamar al procedimiento para guardar en un campo temporal la calificación promedio de la materia
Else
If dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua1 = "NP" And dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua2 = "NP" And dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua3 = "NP" Then 'Validar los casos en donde todas las evaluaciones tienen valor de "NP"
Call DoModificarTemporalCalificacionLetraFormaAcreditar("CERO", dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!IdEvaluaciones) 'Llamar al procedimiento para guardar en un campo temporal la calificación promedio de la materia
Else
If IsNull(dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua1) And IsNull(dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua2) And IsNull(dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua3) Then 'Validar los casos en donde todas la evaluaciones tienen el valor "Null" o " "
Call DoModificarTemporalCalificacionLetraFormaAcreditar(" ", dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!IdEvaluaciones) 'Llamar al procedimiento para guardar en un campo temporal la calificación promedio de la materia
Else
If dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua1 = " " And dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua2 = " " And dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!Evalua3 = " " Then 'Validar los casos en donde todas la evaluaciones tienen el valor " "
Call DoModificarTemporalCalificacionLetraFormaAcreditar(" ", dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!IdEvaluaciones) 'Llamar al procedimiento para guardar en un campo temporal la calificación promedio de la materia
Else
strPromedioMateriaRedondeadoLetra = mdlPublicos.GetCalificacionLetra(vntPromedioMateriaRedondeado) 'Asignar a la variable el valor de la llamaada a la función para obtener el valor de la primera evaluación de cada materia
Call DoModificarTemporalCalificacionLetraFormaAcreditar(strPromedioMateriaRedondeadoLetra, dteControlEscolar.rsqryBusquedaMateriasSemestralesAlumno!IdEvaluaciones) 'Llamar al procedimiento para guardar en un campo temporal la calificación promedio de la materia
End If 'Fin de validar los casos en donde todas las evaluaciones tienen el valor " "
End If 'Fin validar los casos en donde todas las evaluaciones tienen el valor "Null"
End If 'Fin de evaluar los casos en donde todas las evaluaciones tienen el valor de "NP"
End If 'Fin de evaluar los casos en donde la tercer evaluacion tiene el vaor de "SD"
End If 'Fin de evaluar los casos en donde la tercer evaluación tiene el valor de "NP"
'Fin de sección para obtener la calificacion en letra
Else
MsgBox "No es posible generar el reporte en esta modalidad, por favor seleccione la modalidad correcta.", vbCritical + vbOKOnly, "SICE"
End If En la parte marcada de rojo es donde necesito que se rompa el ciclo por que no paso esa validacion... ojala me puedan ayudar realmente lo necesito |