Programacion En Fox

USE [alumnos]
GO
/****** Object: StoredProcedure [dbo].[val_preexg] Script Date: 02/09/2012 08:48:07 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER procedure [dbo].[val_preexg]
as

delete erroresEX


-- tipoer=1, materia ya aprobada; tipoer=2, falta regularizar la meteria;tipoer=3, falta aprobar materias; tipoer=4, no cumple con val_esp_ex;tipoer=5,
-- no cumplecon minimo de aprobadas; tipoer=-1, sólo le falta regularizar la materia;tipoer=6, nopuede rendir en el turno de octubre por faltarle más de 7 materias para recibirse

set language spanish
set nocount on


declare @fechaexame smalldatetime,@anomes numeric(6),@anomesdia numeric(8),@año as smallint,@mes as smallint,@semestre smallint, @carreras as varchar(200)
declare @subplan int,@matecodigovarchar(10),@prereqex varchar(105)
declare @cantreq int,@cantaprobadas int,@num_mapex int,@iden int,@turno varchar(20),@tipomesa varchar(13),@llamado smallint
declare @st varchar(400),@c int,@st1 varchar(100),@cantidad int,@NumExigido smallint,@Valespex char(120)
declare @l int,@L1 INT,@I as smallint,@M smallint

select @fechaexame =max(fechaExame) from maetribunales
set @anomes =str(year(@fechaexame),4)+right(str(100 + month(@fechaexame)),2)
set @anomesdia=@anomes * 100 + 31
select iden,subplan into #activos from (select iden,subplan from carreras where estado = 'activo') a option(keep plan)
--alter table #activos add
--CONSTRAINT [PK_#activos] PRIMARY KEY CLUSTERED
--
-- (
-- [iden],
-- [subplan]
-- ) ON [PRIMARY]

-- Selecciona las asignaturas con TPaprobados no vencidos y con las asignaturas sin examen aprobado

select a.iden,a.matecodigo,a.año,a.semestre,a.notapromed,vto_reval into #aprobtp from trabajospracticos a join vencimientoTP b
on a.matecodigo = b.matecodigo and a.año=b.año and a.semestre = b.semestre join #activos c on a.iden=c.iden where a.matecodigo not in
(select matecodigo from examenes where iden = a.iden and (nota>=4 orlen(rtrim(resolucion))>0)) and
a.notapromed >=4 and str(a.año,4)+str(a.semestre,1) in (select top 1 str(año,4)+str(semestre,1) from trabajospracticos where
iden=a.iden and matecodigo=a.matecodigo and notapromed>=4 order by año desc, semestre desc) and (año_mes_vt >= @anomes or dbo.dateci(vto_reval) >= @anomesdia) option(keep plan)

-- Elimina las que fueron rendidadas más de 3 veces (exámenes)delete from #aprobtp where 4 = '30/'+right(str(100 + 6 + 5 * (#aprobtp.semestre - 1)),2) + '/'+ str(#aprobtp.año,4) and
fechaexame >= vto_reval) option(keep plan)

select distinct iden,matecodigo into #dictadoespecial from #aprobtp where str(iden,8)+matecodigo in(select str(iden,8)+matecodigo from trabajospracticos where
iden =#aprobtp.iden and ((matecodigo='M04' and semestre=1 and año>=#aprobtp.año) or (matecodigo='M03' and semestre=2 and año >=#aprobtp.año)))

-- Pone en #candidatas las asignaturas con TP aprobados no vencidos y con las asignaturas sin examen aprobado pero con reinscripción
select distinct a.iden,b.matecodigo into #candidatas from trabajospracticos a join #aprobtp b on a.iden=b.iden and a.matecodigo=b.matecodigo where
str(a.año,4)+str(a.semestre) >str(b.año,4)+str(b.semestre) option(keep plan)
--str(a.año,4)+str(a.semestre) > str(b.año,4)+str(b.semestre) and a.año < year(getdate()) option(keep plan)
-- Selecciona los estudiantes con el subplan con más de 22 materias aprobadas en #casigraduados
select distinct c.iden,c.subplan into #casigraduados from sub_plan a join examenes b on a.matecodigo = b.matecodigo join carreras c on b.iden=c.idenwhere
estado ='activo' and 22 < (select count(*) from examenes where (nota >=4 or len(rtrim(resolucion))>0) and iden=c.iden ) order by c.iden option(keep plan)

-- Pone en #salvadas aquellas materias con TP aprobados no vencidos y que no pierden la regularidad a pesar de la reinscripción por faltarle 10 o menos asignaturas
select a.iden,a.matecodigo into #salvadas from #candidatas a join...