Que nos vamos, vamonos...
No se que será de mi vida dentro de un mes pero por lo pronto se que en dos semanas estaré en Sevilla, todo parece indicar que sufriré el temido sindrome de Copenhague aunque multiplicado por un año viviendo en esta maravillosa ciudad, quizás no pueda superarlo, tal vez tenga que volver repentinamente o puede que olvide este año, que quede en mi memoria como un sueño, como algo que nunca existió.
Cuando mi avión aterrice en Sevilla estaré feliz por volver a ver a mi familia y amigos, todos aquellos que dejé atras hace ya casi un año sabiendo que volvería a encontrarlos, no veo el momento de pasar una tarde en el Serranito, una tarde de cervecitas escuchando las historias de mi compañero Sergio y todo lo que le ha ocurrido en Australia, volver a veros a todos y recordar tantos buenos momentos que pasamos juntos y planear los que sin duda pasaremos.
Puede que olvide mi bici, Oscar se queda no podría sobrevivir en Sevilla y seguro que será mucho más feliz aquí, lo divertido que resultaba pasar la tarde tirado en un parque (Merce creo que te refieres a Konges Haven), incluso puede que olvide mis tuborg. Pero llegará el momento en que todo se estabilice, el momento en que los brindis por mi vuelta cesen, ese día despertaré y me daré cuenta de aquello que no tendré en ningún otro sitio: mi Maruxiña, nuestros helados en el paradis, nuestros lattes... mi Anni, sin ella ya no seré "very inconvinient", ni "good looking"... Tampoco olvido a Allan, el "mejor novio del universo" y maestro personal, a Oana sin ella las conversaciones no tendrían ese puntito picante, ni a Ali mi medio gabacha favorita... no pienso nombraros a todos pero no os olvidaré.
Ya estoy preparado para volver, hacerlo no será ningún drama aunque alguna lagrimita lo mismo cae, no por mi parte por supuesto ;-P
Pero eso no significa que tire la toalla aún no he dicho mi última palabra.
Lo que comienza ahora no son las despedidas son los hasta pronto.
Lo escribió Leo a las 9/17/2006 11:01:00 p. m.
5 comentarios
5 Comentarios:
Si te vas, ya no habrá lattes y ya sabes como me gustan...así que tu verás...pero sabes que cuando vuelvas te estaremos esperando...
Pues sí, la experiencia icex toca a su fin y el futuro es bastante incierto.
Que nos quiten lo bailao!
Sí señor Flores, que nos quiten lo bailado. Y respecto a vos, Leo, espero verle pronto en Sevilla a la sombra de una Cruzcampo. ¿Quedada andaluza?
Es cierta la sensación partida de alegría y tristeza. Contento de volver a casa pero triste por dejar ese país que nos ha covijado durante un año y que nos ha cambiado para siempre. ¿Cúantos somos los que pensamos en no volver de nuestros destinos? Pues seguramente que muchos, pero cuantos lo podremos hacer... Yo daría cualquier cosa por quedarme, pero de aire no vive el hombre...
FUNCTION F5NUECON (E_CODCIRCU IN VARCHAR2, E_CODTERRI IN VARCHAR2, E_EJEEXPED IN NUMBER,
E_NUMEXPED IN NUMBER,E_TRAMITE IN NUMBER, E_RESULTADO_CONDICION IN VARCHAR2)
RETURN NUMBER IS
JUSTIFICADO CO_JUSTIF.IMP_ACTIVIDAD%TYPE;
CONCEDIDO CO_SUBVEN.IMP_CONCEDIDO%TYPE;
PORCENTAJE CO_SUBVEN.NUM_PORCENTAJE%TYPE;
PARTIDA CO_PARTID.ID_PARTIDA%TYPE;
ANUALIDADES CO_SUBVEN.IND_ANUALIDADES%TYPE;
NUEVO_CONCEDIDO CO_SUBVEN.IMP_CONCEDIDO%TYPE;
RETORNO NUMBER;
I NUMBER;
NUMERO NUMBER;
NUEVO_IMP_ANUALIDAD CO_ANUALI.IMP_ANUALIDAD%TYPE;
IMP_ACUMULADO NUMBER := 0;
MAQ_OP CO_ANUALI.NUMASU_OP%TYPE;
V_FEC_PAGO CO_ANUALI.FEC_PAGO%TYPE;
BEGIN
BEGIN
SELECT IMP_ACTIVIDAD INTO JUSTIFICADO
FROM CO_JUSTIF
WHERE SUBVEN_EXPEDI_CIRCUI_CODCIRCU = E_CODCIRCU
AND SUBVEN_EXPEDI_CODTER_CODTERRI = E_CODTERRI
AND SUBVEN_EXPEDI_EJEEXPED = E_EJEEXPED
AND SUBVEN_EXPEDI_NUMEXPED = E_NUMEXPED;
EXCEPTION
WHEN NO_DATA_FOUND THEN
JUSTIFICADO := 0;
END;
--DBMS_OUTPUT.PUT_LINE('INVERSION JUSTIFICADA: ' || JUSTIFICADO);
SELECT IMP_CONCEDIDO, NUM_PORCENTAJE, PARTID_ID_PARTIDA, IND_ANUALIDADES
INTO CONCEDIDO, PORCENTAJE, PARTIDA, ANUALIDADES
FROM CO_SUBVEN
WHERE EXPEDI_CIRCUI_CODCIRCU = E_CODCIRCU
AND EXPEDI_CODTER_CODTERRI = E_CODTERRI
AND EXPEDI_EJEEXPED = E_EJEEXPED
AND EXPEDI_NUMEXPED = E_NUMEXPED;
--DBMS_OUTPUT.PUT_LINE('ANTES DE INSERTAR EN CO_SUBVEN_HISTORICO ...');
--DBMS_OUTPUT.PUT_LINE('CONCEDIDO: ' || CONCEDIDO);
-- I ABL000 20050621
DELETE CO_SUBVEN_HISTORICO
WHERE SUBVEN_EXPEDI_CIRCUI_CODCIRCU = E_CODCIRCU
AND SUBVEN_EXPEDI_CODTER_CODTERRI = E_CODTERRI
AND SUBVEN_EXPEDI_EJEEXPED = E_EJEEXPED
AND SUBVEN_EXPEDI_NUMEXPED = E_NUMEXPED;
-- F ABL000 20050621
INSERT INTO CO_SUBVEN_HISTORICO
(ID_SUBVENCION, SUBVEN_EXPEDI_CIRCUI_CODCIRCU, SUBVEN_EXPEDI_CODTER_CODTERRI,
SUBVEN_EXPEDI_EJEEXPED, SUBVEN_EXPEDI_NUMEXPED, IMP_CONCEDIDO)
VALUES(CO_SUBVEN_HISTORICO_SEQ.NEXTVAL, E_CODCIRCU, E_CODTERRI,
E_EJEEXPED, E_NUMEXPED, CONCEDIDO);
NUEVO_CONCEDIDO := ((JUSTIFICADO * PORCENTAJE) / 100);
--DBMS_OUTPUT.PUT_LINE('NUEVO CONCEDIDO: ' || NUEVO_CONCEDIDO);
UPDATE CO_SUBVEN SET IMP_CONCEDIDO = NUEVO_CONCEDIDO
WHERE EXPEDI_CIRCUI_CODCIRCU = E_CODCIRCU
AND EXPEDI_CODTER_CODTERRI = E_CODTERRI
AND EXPEDI_EJEEXPED = E_EJEEXPED
AND EXPEDI_NUMEXPED = E_NUMEXPED;
IF ANUALIDADES = 'S' THEN
SELECT COUNT(*) INTO NUMERO
FROM CO_ANUALI
WHERE SUBVEN_EXPEDI_CIRCUI_CODCIRCU = E_CODCIRCU
AND SUBVEN_EXPEDI_CODTER_CODTERRI = E_CODTERRI
AND SUBVEN_EXPEDI_EJEEXPED = E_EJEEXPED
AND SUBVEN_EXPEDI_NUMEXPED = E_NUMEXPED;
I := 1;
WHILE I <= NUMERO
LOOP
SELECT IMP_ANUALIDAD, NUM_PORCENTAJE, PARTID_ID_PARTIDA, NUMASU_OP, FEC_PAGO
INTO CONCEDIDO, PORCENTAJE, PARTIDA, MAQ_OP, V_FEC_PAGO
FROM CO_ANUALI
WHERE SUBVEN_EXPEDI_CIRCUI_CODCIRCU = E_CODCIRCU
AND SUBVEN_EXPEDI_CODTER_CODTERRI = E_CODTERRI
AND SUBVEN_EXPEDI_EJEEXPED = E_EJEEXPED
AND SUBVEN_EXPEDI_NUMEXPED = E_NUMEXPED
AND NUM_ANUALIDAD = I;
IF MAQ_OP IS NULL OR V_FEC_PAGO IS NULL THEN
--DBMS_OUTPUT.PUT_LINE('ANTES DE INSERTAR EN CO_ANUALI_HISTORICO ...');
--DBMS_OUTPUT.PUT_LINE('CONCEDIDO: ' || CONCEDIDO);
DELETE CO_ANUALI_HISTORICO
WHERE ASUBVEN_EXPEDI_CIRCUI_CODCIRCU = E_CODCIRCU
AND ASUBVEN_EXPEDI_CODTER_CODTERRI = E_CODTERRI
AND ANUALI_SUBVEN_EXPEDI_EJEEXPED = E_EJEEXPED
AND ANUALI_SUBVEN_EXPEDI_NUMEXPED = E_NUMEXPED
AND NUM_ANUALIDAD = I;
INSERT INTO CO_ANUALI_HISTORICO
(ID_ANUALIDAD, ID_SUBVENCION, NUM_ANUALIDAD, NUM_PORCENTAJE, IMP_ANUALIDAD, ID_PARTIDA, ANUALI_NUM_ANUALIDAD,
ASUBVEN_EXPEDI_CIRCUI_CODCIRCU, ASUBVEN_EXPEDI_CODTER_CODTERRI,
ANUALI_SUBVEN_EXPEDI_EJEEXPED, ANUALI_SUBVEN_EXPEDI_NUMEXPED)
VALUES(CO_ANUALI_HISTORICO_SEQ.NEXTVAL, CO_SUBVEN_HISTORICO_SEQ.CURRVAL, I, PORCENTAJE, CONCEDIDO, PARTIDA, I,
E_CODCIRCU, E_CODTERRI, E_EJEEXPED, E_NUMEXPED);
IF IMP_ACUMULADO = 0 THEN
NUEVO_IMP_ANUALIDAD := ((JUSTIFICADO * PORCENTAJE) / 100);
ELSE
NUEVO_IMP_ANUALIDAD := NUEVO_CONCEDIDO - IMP_ACUMULADO;
IF NUEVO_IMP_ANUALIDAD < 0 THEN
NUEVO_IMP_ANUALIDAD := 0;
END IF;
IMP_ACUMULADO := IMP_ACUMULADO + NUEVO_IMP_ANUALIDAD;
END IF;
--DBMS_OUTPUT.PUT_LINE('NUEVO IMPORTE ANUALIDAD: ' || NUEVO_IMP_ANUALIDAD);
UPDATE CO_ANUALI SET IMP_ANUALIDAD = NUEVO_IMP_ANUALIDAD
WHERE SUBVEN_EXPEDI_CIRCUI_CODCIRCU = E_CODCIRCU
AND SUBVEN_EXPEDI_CODTER_CODTERRI = E_CODTERRI
AND SUBVEN_EXPEDI_EJEEXPED = E_EJEEXPED
AND SUBVEN_EXPEDI_NUMEXPED = E_NUMEXPED
AND NUM_ANUALIDAD = I;
ELSE
IMP_ACUMULADO := IMP_ACUMULADO + CONCEDIDO;
END IF;
I := I + 1;
END LOOP;
END IF;
--DBMS_OUTPUT.PUT_LINE('correcto');
RETURN 0;
EXCEPTION
WHEN OTHERS THEN
--DBMS_OUTPUT.PUT_LINE('ERROR: ' || SQLERRM);
RETURN 1;
END;
Publicar un comentario
<< Home