CREATE user dba_lepidoptero IDENTIFIED BY 123;

GRANT dba,connect,resource TO dba_lepidoptero;
create tablespace usuariosm logging datafile 'C:\oraclexe\app\oracle\oradata\usuariosM.dbf' size 1024 M;

create tablespace indicesM logging datafile  'C:\oraclexe\app\oracle\oradata\indicesM.dbf' size 1024M;

create tablespace tablasM logging datafile  'C:\oraclexe\app\oracle\oradata\tablasM.dbf' size 1024M;


CREATE user consultar IDENTIFIED BY 123 default tablespace usuariosM;

CREATE user insertar identified by 123 default tablespace usuariosm;

GRANT
    SELECT ANY TABLE
TO consultar;

GRANT
    INSERT ANY TABLE
TO insertar;

GRANT
    CREATE SESSION
TO consultar;

GRANT
    CREATE SESSION
TO insertar;


CREATE TABLE familia_natural (
    id            SMALLINT NOT NULL PRIMARY KEY,
    nombre        VARCHAR2(50) NOT NULL,
    descripcion   VARCHAR2(300) NOT NULL
)
TABLESPACE tablasm;


CREATE TABLE genero (
    id            SMALLINT NOT NULL PRIMARY KEY,
    nombre        VARCHAR2(300) NOT NULL,
    descripcion   VARCHAR2(300) NOT NULL,
    familia_id    SMALLINT,
    CONSTRAINT fkg1_familia_id FOREIGN KEY ( familia_id )
        REFERENCES familia_natural ( id )
)
TABLESPACE tablasm;


CREATE TABLE ubicacion (
    id       SMALLINT NOT NULL PRIMARY KEY,
    nombre   VARCHAR2(300) NOT NULL
)
TABLESPACE tablasm;


CREATE TABLE especie (
    id                  SMALLINT NOT NULL PRIMARY KEY,
    nombre_vulgar       VARCHAR2(300) NOT NULL,
    nombre_cientifico   VARCHAR2(300) NOT NULL,
    descripcion         VARCHAR2(300) NOT NULL,
    genero_id           SMALLINT NOT NULL,
    ubicacion_id        SMALLINT NOT NULL,
    CONSTRAINT fke1_genero_id FOREIGN KEY ( genero_id )
        REFERENCES genero ( id ),
    CONSTRAINT fke2_ubicacion_id FOREIGN KEY ( ubicacion_id )
        REFERENCES ubicacion ( id )
)
TABLESPACE tablasm;



CREATE TABLE mariposa (
    id            SMALLINT NOT NULL PRIMARY KEY,
    precio        INT NOT NULL,
    descripcion   VARCHAR2(300) NOT NULL,
    especie_id    SMALLINT NOT NULL,
    CONSTRAINT fkm1_especie_id FOREIGN KEY ( especie_id )
        REFERENCES especie ( id )
)
TABLESPACE tablasm;

CREATE TABLE capturador (
    rut        INT NOT NULL PRIMARY KEY,
    nombre     VARCHAR2(20) NOT NULL,
    apellido   VARCHAR2(20) NOT NULL,
    rol        VARCHAR2(20) NOT NULL
)
TABLESPACE tablasm;

CREATE TABLE proposito (
    id   SMALLINT NOT NULL PRIMARY KEY
)
TABLESPACE tablasm;

CREATE TABLE coleccion (
    proposito_id      SMALLINT NOT NULL,
    nombre            VARCHAR2(20) NOT NULL,
    valor_coleccion   INT NOT NULL,
    mariposa_id       SMALLINT NOT NULL,
    fecha_inicio      DATE NOT NULL,
    capturador_rut    INT NOT NULL,
    CONSTRAINT fkc1_proposito_id FOREIGN KEY ( proposito_id )
        REFERENCES proposito ( id ),
    CONSTRAINT pkc1_proposito_id PRIMARY KEY ( proposito_id ),
    CONSTRAINT fkc2_mariposa_id FOREIGN KEY ( mariposa_id )
        REFERENCES mariposa ( id ),
    CONSTRAINT fkc3_capturador_rut FOREIGN KEY ( capturador_rut )
        REFERENCES capturador ( rut )
)
TABLESPACE tablasm;


CREATE TABLE observacion (
    proposito_id    SMALLINT NOT NULL,
    descripcion     VARCHAR2(300) NOT NULL,
    fecha_termino   DATE NOT NULL,
    mariposa_id     SMALLINT NOT NULL,
    CONSTRAINT fko1_proposito_id FOREIGN KEY ( proposito_id )
        REFERENCES proposito ( id ),
    CONSTRAINT pko1_proposito_id PRIMARY KEY ( proposito_id )
)
TABLESPACE tablasm;

CREATE TABLE ficha_captura (
    id               SMALLINT NOT NULL PRIMARY KEY,
    descripcion      VARCHAR2(300) NOT NULL,
    fecha_captura    VARCHAR(20) NOT NULL,
    proposito_id     SMALLINT NOT NULL,
    capturador_rut   INT NOT NULL,
    mariposa_id      SMALLINT NOT NULL,
    ubicacion_id     SMALLINT NOT NULL,
    CONSTRAINT fkf1_proposito_id FOREIGN KEY ( proposito_id )
        REFERENCES proposito ( id ),
    CONSTRAINT fkf2_capturador_rut FOREIGN KEY ( capturador_rut )
        REFERENCES capturador ( rut ),
    CONSTRAINT fkf3_mariposa_id FOREIGN KEY ( mariposa_id )
        REFERENCES mariposa ( id ),
    CONSTRAINT fkf4_ubicacion_id FOREIGN KEY ( ubicacion_id )
        REFERENCES ubicacion ( id )
)
TABLESPACE tablasm;


--///////////////////////////////////INSERT INTO MEDIANTE PROCEDURES///////////////////////////////////

--/////////////////////////////////////INSERT FAMILIA NATURAL ////////////////////////////////////
CREATE OR REPLACE PROCEDURE insert_f_m --Creamos el procedimiento y le asiganmos un nombre.
IS --En esta parte declaramos las variables.
i number;--Contador
id_familia number;
nombre_familia varchar(50);
descripcion varchar(300);
BEGIN-- Sentencia BEGIN donde se inicia la la accion del procedimiento.

i:=1;
IF i=1 THEN
id_familia:=1;                     --Asignamos los datos que queremos insertar en las tablas.
nombre_familia:='Nymphalidae';
descripcion:='Los ninfálidos (Nymphalidae) pertenece a la familia de lepidopteros glosados
(esta es una de las 5.000 especies que se distribuyen en todo el mundo)';
 insert into familia_natural (id,nombre,descripcion) VALUES(id_familia,nombre_familia,descripcion);
 END IF;
i:=2;
IF i=2 THEN
 id_familia:=2;
 nombre_familia:='Pieridae';
 descripcion:='Los pieridos o pierides (Pieridae) son una extensa familia de lepidópteros glosados
del clado Ditrysia';
insert into familia_natural (id,nombre,descripcion) VALUES(id_familia,nombre_familia,descripcion);
END IF;
 i:=3;
IF i=3 THEN
id_familia:=3;
 nombre_familia:='Lycaenidae';
 descripcion:='Los licénidos (Lycaenidae) son una familia de lepidópteros ditrisios de distribución cosmopolita,
que comprende unas 6.000 especies que representan un 40% de las especies de mariposas diurnas (ropalóceros) conocidas.';
insert into familia_natural (id,nombre,descripcion) VALUES(id_familia,nombre_familia,descripcion);
END IF;

i:=4;
IF i=4 THEN
id_familia:=4;
 nombre_familia:='Hesperiidae';
 descripcion:='Los hespéridos o hesperíidos son una familia de lepidópteros ditrisios que incluye mariposas
pequeñas y robustas, de cabeza grande y tórax ensanchado.';
insert into familia_natural (id,nombre,descripcion) VALUES(id_familia,nombre_familia,descripcion);
END IF;

i:=5;
IF i=5 THEN
id_familia:=5;
 nombre_familia:='Sphingidae';
 descripcion:='Los esfíngidos (Sphingidae) son una familia de lepidópteros glosados del clado
Ditrysia de cuerpo robusto y vuelo generalmente rápido';
insert into familia_natural (id,nombre,descripcion) VALUES(id_familia,nombre_familia,descripcion);
END IF;
END; --Fin del procedimiento


BEGIN
  insert_f_m; --Iniciamos el procedimiento
END;
--///////////////////////////////////////// INSERT GENERO//////////////////////////////////
CREATE OR REPLACE PROCEDURE insert_genero

IS
i number; --contador
id_genero number;
nombre_genero varchar(30);
descripcion GENERO.DESCRIPCION%type;
family_id GENERO.FAMILIA_ID%type;

BEGIN
 i:=1;

 if i=1 then
 id_genero:=1;
 nombre_genero:='Vanessa';
 descripcion:='Es un género de lepidópteros ditrisios de la familia Nymphalidae.';
 family_id:=1;
 insert into genero(id,nombre,descripcion,familia_id) VALUES (id_genero,nombre_genero,descripcion,family_id);
 END IF;

 i:=2;

 IF i=2 then
 id_genero:=2;
 nombre_genero:='Phoebis';
 descripcion:='Phoebis es un género de mariposas de la familia Pieridae.';
 family_id:=2;
 insert into genero(id,nombre,descripcion,familia_id) VALUES (id_genero,nombre_genero,descripcion,family_id);
 END IF;

 i:=3;
 IF i=3 THEN
 id_genero:=3;
 nombre_genero:='Pseudolucia';
 descripcion:='Pseudolucia es un género de mariposas de la familia Lycaenidae . Se encuentran predominantemente en partes de América del Sur.';
 family_id:=3;
 insert into genero(id,nombre,descripcion,familia_id) VALUES (id_genero,nombre_genero,descripcion,family_id);
 END IF;

 i:=4;
 IF i=4 THEN
 id_genero:=4;
 nombre_genero:='Butleria';
 descripcion:='Butleria es un género de mariposas de la familia Hesperiidae.';
 family_id:=4;
 insert into genero(id,nombre,descripcion,familia_id) VALUES (id_genero,nombre_genero,descripcion,family_id);
 END IF;

 i:=5;
 IF i=5 THEN
 id_genero:=5;
 nombre_genero:='Hyles';
 descripcion:='Hyles es un género de lepidóptero ditrisio de la familia Sphingidae.';
 family_id:=5;
 insert into genero(id,nombre,descripcion,familia_id) VALUES (id_genero,nombre_genero,descripcion,family_id);
 END IF;

END;

BEGIN
insert_genero;
END;


--//////////////////////////////////////////////////INSERT UBICACION///////////////////////////////

CREATE OR REPLACE PROCEDURE insert_ubicacion

IS
 i number; --contador
 id_ubicacion number;
 n_ubicacion varchar(20);

 begin
  i:=1;
   IF i=1 THEN
   id_ubicacion:=1000;
   n_ubicacion:='Arica';

   insert into ubicacion(id,nombre) VALUES (id_ubicacion,n_ubicacion);
   END IF;

    i:=2;
   IF i=2 THEN
   id_ubicacion:=2000;
   n_ubicacion:='Atacama';

   insert into ubicacion(id,nombre) VALUES (id_ubicacion,n_ubicacion);
   END IF;

    i:=3;
   IF i=3 THEN
   id_ubicacion:=3000;
   n_ubicacion:='Santiago';

   insert into ubicacion(id,nombre) VALUES (id_ubicacion,n_ubicacion);
   END IF;

    i:=4;
   IF i=4 THEN
   id_ubicacion:=4000;
   n_ubicacion:='La Serena';

   insert into ubicacion(id,nombre) VALUES (id_ubicacion,n_ubicacion);
   END IF;

    i:=5;
   IF i=5 THEN
   id_ubicacion:=5000;
   n_ubicacion:='Talcauhano';

   insert into ubicacion(id,nombre) VALUES (id_ubicacion,n_ubicacion);
   END IF;
     END;

     begin
     insert_ubicacion;
     end;




--///////////////////////////////INSERT ESPECIE/////////////////////////////////
CREATE OR REPLACE PROCEDURE insert_e
   IS
    i number;
    id_especie ESPECIE.ID%TYPE;
    n_v ESPECIE.NOMBRE_VULGAR%TYPE;
    n_c ESPECIE.NOMBRE_CIENTIFICO%TYPE;
    descr ESPECIE.DESCRIPCION%TYPE;
    gen_id ESPECIE.GENERO_ID%TYPE;
    ub_id ESPECIE.UBICACION_ID%TYPE;

    BEGIN
     i:=1;
      IF i=1 THEN
      id_especie:=10000;
      n_v:='Mariposa de la tarde';
      n_c:='Vanessa carye';
      descr:='Es de tamaño medio: 45 a 55 mm, pero también puede presentarse más pequeña: 28 a 30 mm.';
      gen_id:=1;
      ub_id:=1000;
    insert into especie(id, nombre_vulgar, nombre_cientifico, descripcion, genero_id, ubicacion_id) VALUES
                       (id_especie,n_v,n_c,descr,gen_id,ub_id);
    END IF;

    i:=2;
      IF i=2 THEN
      id_especie:=20000;
      n_v:='Mariposa de la alcaparra';
      n_c:='Phoebis sennae amphitrite';
      descr:='Es una mariposa relativamente grande dentro del grupo
      de las mariposas chilenas,desarrollando una envergadura alar entre los 33 y los 63 mm.';
      gen_id:=2;
      ub_id:=2000;
    insert into especie(id, nombre_vulgar, nombre_cientifico, descripcion, genero_id, ubicacion_id) VALUES
                       (id_especie,n_v,n_c,descr,gen_id,ub_id);
    END IF;

    i:=3;
      IF i=3 THEN
      id_especie:=30000;
      n_v:='Mariposa pintada común';
      n_c:='Phoebis sennae amphitrite';
      descr:='Llamativa mariposa de 30-45mm de envergadura alar, sus alas son de un color anaranjado con un diseño
compuesto de manchas y puntos negros sobre el color dominante.';
      gen_id:=3;
      ub_id:=3000;
    insert into especie(id, nombre_vulgar, nombre_cientifico, descripcion, genero_id, ubicacion_id) VALUES
                       (id_especie,n_v,n_c,descr,gen_id,ub_id);
    END IF;

    i:=4;
      IF i=4 THEN
      id_especie:=40000;
      n_v:='Mariposa del chagual';
      n_c:='Castnia psittacus';
      descr:='Las hembras miden hasta 100 mm de punta a punta de las alas (envergadura alar); y 60 mm de cabeza a abdomen (largo),
los machos son generalmente un poco más pequeños, 60 a 70 mm de envergadura por 40 de largo.';
      gen_id:=4;
      ub_id:=4000;
    insert into especie(id, nombre_vulgar, nombre_cientifico, descripcion, genero_id, ubicacion_id) VALUES
                       (id_especie,n_v,n_c,descr,gen_id,ub_id);
    END IF;

    i:=5;
      IF i=5 THEN
      id_especie:=50000;
      n_v:='Licena morena';
      n_c:='Pseudolucia chilensis';
      descr:='Su envergadura alar es de 16-26mm';
      gen_id:=5;
      ub_id:=5000;
    insert into especie(id, nombre_vulgar, nombre_cientifico, descripcion, genero_id, ubicacion_id) VALUES
                       (id_especie,n_v,n_c,descr,gen_id,ub_id);
    END IF;

    END;

begin
insert_e;
end;


--///////////////////////////////////INSERT MARIPOSA///////////////////////////////////////
CREATE OR REPLACE PROCEDURE insert_mariposa
IS

  id_m MARIPOSA.ID%tYPE;
  precio MARIPOSA.PRECIO%TYPE;
  descripcion MARIPOSA.DESCRIPCION%TYPE;
  id_esp MARIPOSA.ESPECIE_ID%TYPE;
  i number;

BEGIN
 i:=1;

 IF i=1 THEN
    id_m:=001;
    precio:=30000;
    descripcion:='Mariposa de la tarde tamaño medio: 45 a 55 mm';
    id_esp:=10000;
    INSERT INTO mariposa(id,precio,descripcion,especie_id) VALUES (id_m,precio,descripcion,id_esp);

END IF;

i:=2;

 IF i=2 THEN
    id_m:=002;
    precio:=32000;
    descripcion:='Mariposa de la alcaparra tamaño medio: 33 a 63 mm';
    id_esp:=20000;
    INSERT INTO mariposa(id,precio,descripcion,especie_id) VALUES (id_m,precio,descripcion,id_esp);

END IF;
i:=3;

 IF i=3 THEN
    id_m:=003;
    precio:=37000;
    descripcion:='Mariposa pintada comun tamaño medio: 30 a 45 mm';
    id_esp:=30000;
    INSERT INTO mariposa(id,precio,descripcion,especie_id) VALUES (id_m,precio,descripcion,id_esp);

END IF;
i:=4;

 IF i=4 THEN
    id_m:=004;
    precio:=34000;
    descripcion:='Mariposa del chagual(hembra) tamaño medio: 100 mm';
    id_esp:=40000;
    INSERT INTO mariposa(id,precio,descripcion,especie_id) VALUES (id_m,precio,descripcion,id_esp);

END IF;
i:=5;

 IF i=5 THEN
    id_m:=005;
    precio:=31000;
    descripcion:='Licena morena tamaño medio: 16 a 26 mm';
    id_esp:=50000;
    INSERT INTO mariposa(id,precio,descripcion,especie_id) VALUES (id_m,precio,descripcion,id_esp);

END IF;
END;
select*from mariposa;
begin
insert_mariposa;
end;

--////////////////////////////////////////INSERT CAPTURADOR///////////////////////////
CREATE OR REPLACE PROCEDURE insert_capturador

  IS
    i number;
    rut_cap CAPTURADOR.RUT%TYPE;
    nombre_c CAPTURADOR.NOMBRE%TYPE;
    apellido_c CAPTURADOR.APELLIDO%TYPE;
    rol_c CAPTURADOR.ROL%TYPE;

    BEGIN
     i:=1;
      IF i=1 THEN
        rut_cap:=111111111;
        nombre_c:='Sylvestre';
        apellido_c:='Stallone';
        rol_c:='Cazador profesional';
        insert into capturador(rut,nombre,apellido,rol) VALUES(rut_cap,nombre_c,apellido_c,rol_c);

        END IF;

         i:=2;
      IF i=2 THEN
        rut_cap:=222222222;
        nombre_c:='Jackie';
        apellido_c:='Chan';
        rol_c:='Investigador';
        insert into capturador(rut,nombre,apellido,rol) VALUES(rut_cap,nombre_c,apellido_c,rol_c);

        END IF;
         i:=3;
      IF i=3 THEN
        rut_cap:=333333333;
        nombre_c:='Arnold';
        apellido_c:='Schwarzenegger';
        rol_c:='Cazador profesional';
        insert into capturador(rut,nombre,apellido,rol) VALUES(rut_cap,nombre_c,apellido_c,rol_c);

        END IF;
         i:=4;
      IF i=4 THEN
        rut_cap:=444444444;
        nombre_c:='Jet';
        apellido_c:='Li';
        rol_c:='Cientifico';
        insert into capturador(rut,nombre,apellido,rol) VALUES(rut_cap,nombre_c,apellido_c,rol_c);

        END IF;
         i:=5;
      IF i=5 THEN
        rut_cap:=555555555;
        nombre_c:='Jean-Claude';
        apellido_c:='Van Damme';
        rol_c:='Cientifico';
        insert into capturador(rut,nombre,apellido,rol) VALUES(rut_cap,nombre_c,apellido_c,rol_c);

        END IF;
        END;
    begin
    insert_capturador;
    end;

--///////////////////////////////// INSERT PROPOSITO//////////////////////////////////////
CREATE OR REPLACE PROCEDURE insert_proposito
 IS
  i number;
  id_p PROPOSITO.ID%TYPE;
  begin
  i:=1;
    IF i=1 THEN
     id_p:=01;
     insert into proposito(id) values(id_p);
     END IF;

     i:=2;
     IF i=2 THEN
       id_p:=02;
       insert into proposito(id) VALUES(id_p);
       END IF;
       END;

       BEGIN
       insert_proposito;
       END;


--////////////////////////////////////INSERT COLECCION //////////////////////

CREATE OR REPLACE PROCEDURE insert_coleccion

  IS
  i number;
  prop_id COLECCION.PROPOSITO_ID%TYPE;
  nombre_c COLECCION.NOMBRE%TYPE;
  valor_c COLECCION.VALOR_COLECCION%TYPE;
  mar_id COLECCION.MARIPOSA_ID%TYPE;
  fecha_i COLECCION.FECHA_INICIO%TYPE;
  rut_captur COLECCION.CAPTURADOR_RUT%TYPE;

  BEGIN
    i:=1;
    IF i=1 THEN
     prop_id:=02;
     nombre_c:='coleccion farkas';
     valor_c:=100000;
     mar_id:=001;
     fecha_i:='12/04/2011';
     rut_captur:=111111111;
     insert into coleccion(proposito_id,nombre,valor_coleccion,mariposa_id,fecha_inicio,capturador_rut) VALUES (prop_id,nombre_c,valor_c,mar_id,
     fecha_i,rut_captur);
     END IF;

     end;

  begin
  insert_coleccion;
  end;

--//////////////////////////////////////////////////INSERT OBSERVACION /////////////////////////////
CREATE OR REPLACE PROCEDURE insert_observacion
 IS
       i number;
       propo_id OBSERVACION.PROPOSITO_ID%TYPE;
       descrip OBSERVACION.DESCRIPCION%TYPE;
       fecha_t date;
       mrpsa_id OBSERVACION.MARIPOSA_ID%TYPE;

       BEGIN
         i:=1;
         IF i=1 THEN
           propo_id :=01;
           descrip:='Estudio dedicado a hacer pociones magicas con sangre de mariposas';
           fecha_t:='22/12/2050';
           mrpsa_id:=003;

           insert into observacion(proposito_id,descripcion,fecha_termino,mariposa_id) VALUES (propo_id,descrip,fecha_t,mrpsa_id);
           END IF;
           END;

           begin
           insert_observacion;
           end;


--///////////////////////////////////////FICHA CAPTURA////////////////////////////////
CREATE OR REPLACE PROCEDURE insert_ficha_captura
    IS
       i number;
       id_f_c FICHA_CAPTURA.ID%TYPE;
       descripci FICHA_CAPTURA.DESCRIPCION%TYPE;
       fecha FICHA_CAPTURA.FECHA_CAPTURA%TYPE;
       proposit_id FICHA_CAPTURA.PROPOSITO_ID%TYPE;
       captu_r FICHA_CAPTURA.CAPTURADOR_RUT%TYPE;
       maripos_id FICHA_CAPTURA.MARIPOSA_ID%TYPE;
       ubicac_id FICHA_CAPTURA.UBICACION_ID%TYPE;

       BEGIN
         i:=1;
         IF i=1 THEN
         id_f_c:=1111;
         descripci:='Resultamos con varia bajas humanas para poder capturar este ejemplar, fue una pelea en desventaja pero salimos victoriosos de la contienda';
         fecha:='30/02/2040';
         proposit_id:=01;
         captu_r:=111111111;
         maripos_id:=001;
         ubicac_id:=1000;
         insert into ficha_captura(id,descripcion,fecha_captura,proposito_id,capturador_rut,mariposa_id,ubicacion_id)
         VALUES(id_f_c,descripci,fecha,proposit_id,captu_r,maripos_id,ubicac_id);
         END IF;

         i:=2;
         IF i=2 THEN
         id_f_c:=2222;
         descripci:='Fue capturada mientras de alimentaba de restos humanos';
         fecha:='21/05/2030';
         proposit_id:=01;
         captu_r:=222222222;
         maripos_id:=002;
         ubicac_id:=2000;
         insert into ficha_captura(id,descripcion,fecha_captura,proposito_id,capturador_rut,mariposa_id,ubicacion_id)
         VALUES(id_f_c,descripci,fecha,proposit_id,captu_r,maripos_id,ubicac_id);
         END IF;

         i:=3;
         IF i=3 THEN
         id_f_c:=3333;
         descripci:='Derribada mientras intentaba destruir nuestras instalaciones militares';
         fecha:='17/07/2022';
         proposit_id:=02;
         captu_r:=333333333;
         maripos_id:=003;
         ubicac_id:=3000;
         insert into ficha_captura(id,descripcion,fecha_captura,proposito_id,capturador_rut,mariposa_id,ubicacion_id)
         VALUES(id_f_c,descripci,fecha,proposit_id,captu_r,maripos_id,ubicac_id);
         END IF;

         i:=4;
         IF i=4 THEN
         id_f_c:=4444;
         descripci:='Capturada gracias a nuestras defensas anti misiles';
         fecha:='22/01/2023';
         proposit_id:=02;
         captu_r:=444444444;
         maripos_id:=004;
         ubicac_id:=4000;
         insert into ficha_captura(id,descripcion,fecha_captura,proposito_id,capturador_rut,mariposa_id,ubicacion_id)
         VALUES(id_f_c,descripci,fecha,proposit_id,captu_r,maripos_id,ubicac_id);
         END IF;

         i:=5;
         IF i=5 THEN
         id_f_c:=5555;
         descripci:='Luego de 2 meses de batalla nos vimos en la oblicacion de atropellarla con nuestro tanke para poder contenerla';
         fecha:='22/01/2010';
         proposit_id:=01;
         captu_r:=555555555;
         maripos_id:=005;
         ubicac_id:=5000;
         insert into ficha_captura(id,descripcion,fecha_captura,proposito_id,capturador_rut,mariposa_id,ubicacion_id)
         VALUES(id_f_c,descripci,fecha,proposit_id,captu_r,maripos_id,ubicac_id);
         END IF;
         END;

         begin
         insert_ficha_captura;
         end;
         delete from ficha_captura;
         SELECT * FROM ficha_captura;
         insert into ficha_captura(id,descripcion,fecha_captura,proposito_id,capturador_rut,mariposa_id,ubicacion_id)
         VALUES(5555,'blablabla','22/01/2010',01,555555555,005,5000);

--/////////////////////////////////CODIGO PARA SABER QUE TIPO DE USUARIO SOMOS  /////////////////////////

/*     B L O K E   A N O N I M O   */
SET SERVEROUTPUT ON

DECLARE
  USUARIO VARCHAR2(30);
BEGIN
  USUARIO:=USER;
CASE USUARIO
  WHEN 'SYS' THEN DBMS_OUTPUT.PUT_LINE('ERES SUPERADMINISTRADOR');
  WHEN 'SYSTEM' THEN DBMS_OUTPUT.PUT_LINE('ERES ADMINISTRADOR NORMAL');
  WHEN 'HR' THEN DBMS_OUTPUT.PUT_LINE('ERES DE RECURSOS HUMANOS');
  ELSE DBMS_OUTPUT.PUT_LINE('USUARIO NO AUTORIZADO');
END CASE;
END;