BEGIN WORK;

-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-- Tabla: sga_mesas_examen
-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++


INSERT INTO sga_mesas_examen (elemento, nombre, ubicacion)
	SELECT elemento, nombre_abreviado, 1 FROM sga_elementos where entidad_subtipo = 50;

INSERT INTO sga_llamados_mesa (llamado, mesa_examen, fecha, hora_inicio)
	SELECT CASE WHEN mesa_examen % 8 = 1 THEN 2201
				WHEN mesa_examen % 8 = 2 THEN 2202
				WHEN mesa_examen % 8 = 3 THEN 2203
				WHEN mesa_examen % 8 = 4 THEN 2204
				WHEN mesa_examen % 8 = 5 THEN 2251
				WHEN mesa_examen % 8 = 6 THEN 2252
				WHEN mesa_examen % 8 = 7 THEN 2253
				WHEN mesa_examen % 8 = 0 THEN 2254
			ELSE 2251
			END,
			mesa_examen,
		CASE	WHEN mesa_examen % 8 = 1 THEN CAST('11/03/2009' AS date)  --'2009-03-10','2009-04-10'
				WHEN mesa_examen % 8 = 2 THEN CAST('11/04/2009' AS date)  --'2009-04-10','2009-06-10'
				WHEN mesa_examen % 8 = 3 THEN CAST('10/08/2009' AS date)  --'2009-08-01','2009-09-10'
				WHEN mesa_examen % 8 = 4 THEN CAST('01/10/2009' AS date)  --'2009-09-10','2009-11-27'
				WHEN mesa_examen % 8 = 5 THEN CAST('11/03/2010' AS date)  --'2010-03-10','2010-04-10'
				WHEN mesa_examen % 8 = 6 THEN CAST('11/04/2010' AS date)  --'2010-04-10','2010-06-10'
				WHEN mesa_examen % 8 = 7 THEN CAST('10/08/2010' AS date)  --'2010-08-01','2010-09-10'
				WHEN mesa_examen % 8 = 0 THEN CAST('01/10/2010' AS date)  --'2010-09-10','2010-11-27'
			ELSE CAST('01/10/2010' AS date)
			END,
		CAST((8 + (random()* 12)::int)::text || ':00' as time)	
	FROM 	sga_mesas_examen;


INSERT INTO sga_mesas_examen_instancias (mesa_examen, instancia, escala_nota )
	SELECT  mesa_examen, 3, 1  FROM 	sga_mesas_examen;

INSERT INTO sga_mesas_examen_instancias (mesa_examen, instancia, escala_nota )
	SELECT  mesa_examen, 4, 2  FROM 	sga_mesas_examen;


INSERT INTO sga_evaluaciones(
			nombre,
			descripcion,
			entidad,
			evaluacion_tipo,
			visible_al_alumno,
			fecha,
			escala_nota,
			estado)

SELECT	'Evaluacion Manual de la Mesa de Examen ' || sga_mesas_examen.nombre as nombre,
		'Evaluacion Evaluación manual para Examen escrito ' as descripcion,
		sga_llamados_mesa.entidad,
		9		as evaluacion_tipo,
		'N'		as visible_al_alumno,
		now()	as fecha,
		1		as escala_nota,
		'A'		as estado

FROM	sga_llamados_mesa
JOIN	sga_mesas_examen ON(sga_mesas_examen.mesa_examen = sga_llamados_mesa.mesa_examen);


INSERT INTO sga_evaluaciones(
			nombre,
			descripcion,
			entidad,
			evaluacion_tipo,
			visible_al_alumno,
			fecha,
			escala_nota,
			estado)

SELECT	'Evaluacion Manual de la Mesa de Examen ' || sga_mesas_examen.nombre as nombre,
		'Evaluacion Evaluación manual para Examen Oral ' as descripcion,
		sga_llamados_mesa.entidad,
		8		as evaluacion_tipo,
		'N'		as visible_al_alumno,
		now()	as fecha,
		2		as escala_nota,
		'A'		as estado

FROM	sga_llamados_mesa
JOIN	sga_mesas_examen ON(sga_mesas_examen.mesa_examen = sga_llamados_mesa.mesa_examen);



INSERT INTO sga_libros_actas(nro_libro, nombre)
    VALUES (1,'libro 1');

INSERT INTO sga_libros_actas_alcance(
            libro, origen)
    VALUES (1, 'E');

-- Para actas de cursada.
INSERT INTO sga_libros_actas_alcance (libro, origen)
VALUES (1, 'R');

INSERT INTO sga_libros_actas_alcance (libro, origen)
VALUES (1, 'P');

 
    
INSERT INTO sga_mesas_examen_propuestas (mesa_examen, propuesta, plan)
	SELECT 	DISTINCT  sga_mesas_examen.mesa_examen, p.propuesta, p.plan
 	FROM 	sga_mesas_examen, 
 			sga_elementos_revision as er, 
 			sga_elementos_plan as ep, 
 			sga_planes_versiones as v, 
 			sga_planes as p
 	WHERE 	er.elemento 			= sga_mesas_examen.elemento
 	AND 	ep.elemento_revision 	= er.elemento_revision
 	AND 	ep.plan_version 		= v.plan_version
 	AND 	p.plan 					= v.plan  ;


-- Actualizaciones de secuencias
SELECT setval('sga_mesas_examen_seq', (SELECT MAX(mesa_examen) FROM sga_mesas_examen));
SELECT setval('sga_llamados_mesa_seq', (SELECT MAX(llamado_mesa) FROM sga_llamados_mesa));
SELECT setval('sga_libros_actas_seq', (SELECT MAX(libro) FROM sga_libros_actas));
SELECT setval('sga_evaluaciones_seq', (SELECT MAX(evaluacion) FROM sga_evaluaciones));





-- rollback work;
COMMIT WORK;