Codigo Programa De Inscripcion
Enviado por heidisbenitez • 20 de Septiembre de 2014 • 2.341 Palabras (10 Páginas) • 263 Visitas
----------------------------- CUADRO DE TEXTO CEDULA ------------------------------
SELECT 4
USE INSNOT
SELECT 3
USE ASIGNA
SELECT 2
USE CARRERAS SHARED
SELECT 1
USE ALUMNO SHARED
SET ORDER TO TAG CEDULA
a = alltrim(upper(alltrim(thisform.cedula.value)))
set exact on
seek a
if found()
ATERACT=TERACT
ACODESP=CODESP
AFECING=FECING
ACEDULA=CEDULA
ACARRERA=CARRERA
IF RAPE=" " .AND. INDICE<11
DO FORM MENSAJE122
ENDIF
IF RAPE<>" " .AND. RAPE<>"3A"
DO FORM MENSAJE12
ENDIF
IF RAPE="3A"
DO FORM MENSAJE10
ENDIF
thisform.nombre.value = nombre
thisform.apellido.value = apelli
thisform.seccion.value = seccion
THISFORM.indice.VALUE=indice
thisform.cohorte.Value=fecing
THISFORM.CODESP.Value = CODESP
MTERACT=TERACT
THISFORM.semestre.VALUE=MTERACT
MCODESP=CARRERA
SELECT 2
SET ORDER TO TAG CODESP
SEEK MCODESP
IF FOUND ()
MCARRERA=CARRERA
THISFORM.carrera.VALUE = MCARRERA
ENDIF
THISFORM.COD_materia.Clear
SELECT 3
SET ORDER TO CODMAT
GO TOP
BCODMAT=" "
IF ATERACT=1 .OR. ATERACT=2
IF ACODESP=1
DO WHILE .NOT. EOF()
IF CODESP=1 .AND. (TERMINO=2 .OR. TERMINO=3)
ACODMAT=CODMAT
IF ACODMAT<>BCODMAT
THISFORM.Cod_materia.AddItem (ACODMAT)
BCODMAT=ACODMAT
ENDIF
ENDIF
SKIP
ENDDO
ENDIF
IF ACODESP=8
DO WHILE .NOT. EOF()
IF CODESP=1 .AND. (TERMINO=2 .OR. TERMINO=3)
ACODMAT=CODMAT
IF ACODMAT<>BCODMAT
THISFORM.Cod_materia.AddItem (ACODMAT)
BCODMAT=ACODMAT
ENDIF
ENDIF
SKIP
ENDDO
ENDIF
IF ACODESP=12
DO WHILE .NOT. EOF()
IF CODESP=12 .AND. (TERMINO=2 .OR. TERMINO=3)
ACODMAT=CODMAT
IF ACODMAT<>BCODMAT
THISFORM.Cod_materia.AddItem (ACODMAT)
BCODMAT=ACODMAT
ENDIF
ENDIF
SKIP
ENDDO
ENDIF
IF ACODESP=13
DO WHILE .NOT. EOF()
IF CODESP=13 .AND. (TERMINO=2 .OR. TERMINO=3)
ACODMAT=CODMAT
IF ACODMAT<>BCODMAT
THISFORM.Cod_materia.AddItem (ACODMAT)
BCODMAT=ACODMAT
ENDIF
ENDIF
SKIP
ENDDO
ENDIF
ENDIF
IF ATERACT=3 .OR. ATERACT=4 .OR. ATERACT=5
IF ACODESP=1
DO WHILE .NOT. EOF()
IF CODESP=1 .AND. (TERMINO=4 .OR. TERMINO =5 .OR. TERMINO=6)
ACODMAT=CODMAT
IF ACODMAT<>BCODMAT
THISFORM.Cod_materia.AddItem (ACODMAT)
BCODMAT=ACODMAT
ENDIF
ENDIF
SKIP
ENDDO
ENDIF
IF ACODESP=8
DO WHILE .NOT. EOF()
IF CODESP=8 .AND. (TERMINO=4 .OR. TERMINO =5 .OR. TERMINO=6)
ACODMAT=CODMAT
IF ACODMAT<>BCODMAT
THISFORM.Cod_materia.AddItem (ACODMAT)
BCODMAT=ACODMAT
ENDIF
ENDIF
SKIP
ENDDO
ENDIF
IF ACODESP=12
DO WHILE .NOT. EOF()
IF CODESP=12 .AND. (TERMINO=4 .OR. TERMINO=6)
ACODMAT=CODMAT
IF ACODMAT<>BCODMAT
THISFORM.Cod_materia.AddItem (ACODMAT)
BCODMAT=ACODMAT
ENDIF
ENDIF
SKIP
ENDDO
ENDIF
IF ACODESP=13
DO WHILE .NOT. EOF()
IF CODESP=13 .AND. (TERMINO=4 .OR. TERMINO=6)
ACODMAT=CODMAT
IF ACODMAT<>BCODMAT
THISFORM.Cod_materia.AddItem (ACODMAT)
BCODMAT=ACODMAT
ENDIF
ENDIF
SKIP
ENDDO
ENDIF
ENDIF
IF ATERACT=7 .OR. ATERACT =8 .OR. ATERACT=9
IF ACODESP=1
DO WHILE .NOT. EOF()
IF CODESP=1 .AND. (TERMINO=8 .OR. TERMINO=9)
ACODMAT=CODMAT
IF ACODMAT<>BCODMAT
THISFORM.Cod_materia.AddItem (ACODMAT)
BCODMAT=ACODMAT
ENDIF
ENDIF
SKIP
ENDDO
ENDIF
IF ACODESP=12
DO WHILE .NOT. EOF()
IF CODESP=12 .AND. (TERMINO=8 .OR. TERMINO=9)
ACODMAT=CODMAT
IF ACODMAT<>BCODMAT
THISFORM.Cod_materia.AddItem (ACODMAT)
BCODMAT=ACODMAT
ENDIF
ENDIF
SKIP
ENDDO
ENDIF
IF ACODESP=13
DO WHILE .NOT. EOF()
IF CODESP=13 .AND. TERMINO=8
ACODMAT=CODMAT
IF ACODMAT<>BCODMAT
THISFORM.Cod_materia.AddItem (ACODMAT)
BCODMAT=ACODMAT
ENDIF
ENDIF
SKIP
ENDDO
ENDIF
IF ACODESP=8
DO WHILE .NOT. EOF()
IF CODESP=8 .AND. (TERMINO=8 .OR. TERMINO=9)
ACODMAT=CODMAT
IF ACODMAT<>BCODMAT
THISFORM.Cod_materia.AddItem (ACODMAT)
BCODMAT=ACODMAT
ENDIF
ENDIF
SKIP
ENDDO
ENDIF
ENDIF
SELECT 4
SET ORDER TO CEDULA
SET ORDER TO PERACA
GO TOP
Locate for cedula=THISFORM.CEDULA.Value .AND. PERACA=THISFORM.PERACA.Value
do while .not.eof()
IF cedula=THISFORM.CEDULA.Value
...