Me he dado cuenta últimamente de algo: La página que tenemos de forma provisional para el GUL del ITP (TCP/ITP
) está un poco (MUY) abandonada. ¡Creo que soy la única que postea!
Demonios, ia me han de alucinar, pero no importa! ¡Tuxes! Intento darles ánimo, deben aparecer un día de estos mostrando lo que es TCP/ITP, no hay que dejarse ganar por la flojera. Si, lo acepto, soy muy muy floja.. pero haaaa no me ciclen!
Todos estamos interesados en GNU/Linux, pues demuestrenlo! Solo pocos como Cesariux, LinArth (Arthur) y Lord_Remek andan viendo que onda, aunque en lugar de poner para el Hosting lo ponemos en Cervezas, ha no me... Ch&"·@#$&(
¡Está bien pues! Como sea, Vamos esas ganas Tuxes..
Cambiando de tema radicalmente... Puff. Me fue mal con Oscarito, toda la noche programando, jugando con PL/SQL y zaz! día siguiente mi compañero de equipo no termina su parte y Adios mundo cruel. Solo me preocupa el hecho de que era proyecto Final =S
Cheken, uno de mis scripts:
CREATE OR REPLACE
PROCEDURE ROK(OPCION VARCHAR2, SUCURSAL VARCHAR2)
IS
clave VARCHAR2(3);
cla VARCHAR2(10);
fecha VARCHAR2(10);
acc number(3);
b number(1);
SUC VARCHAR2(4):=SUCURSAL;
OP VARCHAR2(1):=OPCION;
BEGIN
b:=1;
IF OP='I' THEN
fecha:=TO_CHAR(SYSDATE, 'DD/MM/YYYY');
IF SUC = 'S1' THEN
SELECT S1_Rok.Nextval INTO clave FROM dual;
cla:='S1-'||clave;
SELECT S1_Rok.currval INTO clave FROM dual;
INSERT INTO rocola VALUES(cla,fecha,0,SUC,'0');
ELSIF SUC = 'S2' THEN
SELECT S2_Rok.Nextval INTO clave FROM dual;
cla:='S2-'||clave;
SELECT S2_Rok.currval INTO clave FROM dual;
INSERT INTO rocola VALUES(cla,fecha,0,SUC,'0');
ELSIF SUC = 'S3' THEN
SELECT S3_Rok.Nextval INTO clave FROM dual;
cla:='S3-'||clave;
SELECT S3_Rok.currval INTO clave FROM dual;
INSERT INTO rocola VALUES(cla,fecha,0,SUC,'0');
ELSIF SUC = 'S4' THEN
SELECT S4_Rok.Nextval INTO clave FROM dual;
cla:='S4-'||clave;
SELECT S4_Rok.currval INTO clave FROM dual;
INSERT INTO rocola VALUES(cla,fecha,0,SUC,'0');
ELSIF SUC = 'S5' THEN
SELECT S5_Rok.Nextval INTO clave FROM dual;
cla:='S5-'||clave;
SELECT S5_Rok.currval INTO clave FROM dual;
INSERT INTO rocola VALUES(cla,fecha,0,SUC,'0');
ELSIF SUC = 'S6' THEN
SELECT S6_Rok.Nextval INTO clave FROM dual;
cla:='S6-'||clave;
SELECT S6_Rok.currval INTO clave FROM dual;
INSERT INTO rocola VALUES(cla,fecha,0,SUC,'0');
ELSE
b:=0;
END IF;
IF b=1 THEN
DBMS_OUTPUT.PUT_LINE('*');
DBMS_OUTPUT.PUT_LINE('**************************************************');
DBMS_OUTPUT.PUT_LINE('* Registro Correcto de Rokola con la clave: ' || SUC ||'-'||clave||' *');
DBMS_OUTPUT.PUT_LINE('**************************************************');
ELSE
DBMS_OUTPUT.PUT_LINE('*');
DBMS_OUTPUT.PUT_LINE('**************************');
DBMS_OUTPUT.PUT_LINE('* Sucursal no encontrada *');
DBMS_OUTPUT.PUT_LINE('**************************');
END IF;
END IF;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('*');
DBMS_OUTPUT.PUT_LINE('************************************');
DBMS_OUTPUT.PUT_LINE('Error de Capa 8, Verifique los datos');
DBMS_OUTPUT.PUT_LINE('************************************');
END ROK;
/
Changos, más tarde publicaré algo mejor. Porque la batería de mi portatil ia se está acabando y después... fiesta en casa de Kike! je
Zaz! Hay nos vemos...
P.D. ¿Quién mando el mail de las conferencias en Tehuacan? ^-^
