Matricula
Publicado por Edwin (31 intervenciones) el 24/09/2010 05:31:12
Hola amigos, estoy trabajando en un sistema de matricula y notas, para ello tengo una tabla llamada cargaacademica y en ella almaceno cuantas y que clases se dan por cada curso, tambien tengo una tabla notas, donde he pensado almacenar las notas por materia, logicamente al matricular un alumno he pensado en que para poder administrar sus notas debo matricularlo en cada materia que se lleva en ese curso por lo que en el boton guardar del formulario matricula he colocado el siguiente codigo.
SELECTcargaacademica
SEEK ALLTRIM(THISFORM.CMBCURSO.Value)
IF FOUND()
X=MAYA.TOTALMAT &&total dematerias que se dan en ese curso
FOR I=1 TO X && matricularlo en todas las materias que se dan en ese curso
SELECT NOTAS
APPEND BLANK
REPLACE ID_ALUMNO WITH THISFORM.TXTRNE.Value
REPLACE NOMBRE WITH THISFORM.TXTNOMBRE.Value
REPLACE APELLIDOS WITH THISFORM.TXTAPELLIDOS.Value
REPLACE CURSO WITH THISFORM.CMBCURSO.VALUE
REPLACE AÑO WITH THISFORM.CMBAÑO.Value
REPLACE COD_MAT WITH MAYA.MAT1 &&lo matriculo n veces en la misma materia
SKIP
ENDFOR
ENDIF
lo que kisiera es que fuera avanzando a mat2,mat3,mat4,mat5, etc que son las materias que se dan en el curso para que asi quede matriculado en todas las materias, el skip no me funciona como kisiera.
SELECTcargaacademica
SEEK ALLTRIM(THISFORM.CMBCURSO.Value)
IF FOUND()
X=MAYA.TOTALMAT &&total dematerias que se dan en ese curso
FOR I=1 TO X && matricularlo en todas las materias que se dan en ese curso
SELECT NOTAS
APPEND BLANK
REPLACE ID_ALUMNO WITH THISFORM.TXTRNE.Value
REPLACE NOMBRE WITH THISFORM.TXTNOMBRE.Value
REPLACE APELLIDOS WITH THISFORM.TXTAPELLIDOS.Value
REPLACE CURSO WITH THISFORM.CMBCURSO.VALUE
REPLACE AÑO WITH THISFORM.CMBAÑO.Value
REPLACE COD_MAT WITH MAYA.MAT1 &&lo matriculo n veces en la misma materia
SKIP
ENDFOR
ENDIF
lo que kisiera es que fuera avanzando a mat2,mat3,mat4,mat5, etc que son las materias que se dan en el curso para que asi quede matriculado en todas las materias, el skip no me funciona como kisiera.
Valora esta pregunta


0