Codigo Programa De Inscripcion

----------------------------- 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 .AND. PERACA=THISFORM.PERACA.Value

I=I+1

THISFORM.INScritas.ColumnCount=4

THISFORM.INSCRItas.ColumnWidths = "70, 270, 20, 15"

THISFORM.INScritas.AddListItem (CODMAT,I,1)

thisform.inscritas.AddListItem (SECCION,I,3)

thisform.inscritas.AddListItem (CONDIC,I,4)

IF EOF()

EXIT

ENDIF

ENDIF

SKIP

ENDDO

ELSE

IF THISFORM.CEDULA.Value<>" "

MESSAGEBOX("La cedula " + thisform.cedula.value + " no se encuentra registrada en el sistema",16,"INSCRIPCIONES 2010 - ALUMNO NO REGISTRADO")

thisform.cedula.value = ""

thisform.nombre.value = ""

THISFORM.apellido.VALUE = ""

THISFORM.seccion.VALUE=""

THISFORM.semestre.VALUE=""

THISFORM.indice.VALUE=""

THISFORM.CARRERA.VALUE=""

THISFORM.COHORTE.VALUE=""

THISFORM.cedula.setfocus

ENDIF

ENDIF

CLOSE ALL

-----------------------------------------------------------------------------------

-------------------------------- COMBO MATERIA ------------------------------------

THISFORM.SEc_materia.Clear

THISFORM.SEC_materia.Value =" "

THISFORM.SEM_MAT.Value =" "

THISFORM.CUPOMAX.Value =" "

THISFORM.DISPONIBLES.Value =" "

THISFORM.INSCRITOS.Value =" "

THISFORM.HORARIO.Value =" "

THISFORM.AULA.Value =" "

THISFORM.CONDICION.Value =" "

ACODMAT=" "

ACODSECPERCOD= " "

INSCRITOS=0

APRELA1=" "

APRELA2=" "

APRELA3=" "

SELECT 5

USE INSNOT

SELECT 4

USE MATERI

SELECT 3

USE asigna

SET ORDER TO CODMAT

GO TOP

THISFORM.PERACA.Value=PERACA

ACODMAT=THISFORM.COD_materia.Value

DO WHILE .NOT. EOF()

IF CODMAT=ACODMAT

THISFORM.SEc_materia.AddItem (SECCION)

ENDIF

SKIP

ENDDO

SELECT 4

SET ORDER TO CODMAT

GO TOP

ACODMAT=THISFORM.COD_materia.Value

DO WHILE .NOT. EOF()

IF CODMAT=ACODMAT

THISFORM.MATEria.Value = NOMMAT

THISFORM.SEM_MAT.Value = TERMINO

THISFORM.UC.Value = CREDITO

UC=CREDITO

APRELA1=PRELA1

...