francisco_palubiak@yahoo.com.br

create or replace procedure P_Pais
       (p_cdpais in number,
        p_nmpais in varchar2,
        p_saida out varchar2)
is
  v_entrada number(10);

begin
  begin
    insert into pro_pais
       (cdpais,nmpais)
    values
       (p_cdpais,p_nmpais);
    p_saida:='País Incluido com sucesso!';
    commit;
  exception
    when dup_val_on_index then
      p_saida:='Código do País já existe!  '||sqlerrm;
      rollback;
    when others then
      p_saida:='Erro ao cadastrar o País!  '|| sqlerrm;
      rollback;
    end;
end;


-- Created on 14/12/2014 by ADMINISTRADOR 
declare 
  -- Local variables here
  v_saida varchar2(2000);
  v_sequence number;
  v_nmpais varchar2(50);
begin
  -- Test statements here
  select pro_pais_seq.nextval into v_sequence from dual;
  
  p_pais(v_sequence,v_nmpais,v_saida);
  dbms_output.put_line(v_saida);
end;


create or replace trigger pro_pais_TR_insert
  before insert on pro_pais  
  for each row
declare
  -- local variables here
begin
  select pro_pais_seq.nextval into :new.cdpais from dual;
end pro_pais_TR_insert;


-- Created on 14/12/2014 by ADMINISTRADOR 
declare 
  -- Local variables here
  v_saida varchar2(2000);
  v_nmpais varchar2(50);
begin
  -- Test statements here 
  p_pais('Brasil',v_saida);
  dbms_output.put_line(v_saida);
end;


create or replace procedure P_Pais
       (p_nmpais in varchar2,
        p_saida out varchar2)
is
  v_entrada number(10);

begin
  begin
    insert into pro_pais
       (nmpais)
    values
       (p_nmpais);
    p_saida:='País Incluido com sucesso!';
    commit;
  exception
    when dup_val_on_index then
      p_saida:='Código do País já existe!  '||sqlerrm;
      rollback;
    when others then
      p_saida:='Erro ao cadastrar o País!  '|| sqlerrm;
      rollback;
    end;
end;


create or replace procedure P_Pais
       (p_nmpais in varchar2,
        p_saida out varchar2)
is
  v_entrada number(10);

begin
  begin
    insert into pro_pais
       (nmpais)
    values
       (p_nmpais);
    p_saida:='País Incluido com sucesso!';
    commit;
  exception
    when dup_val_on_index then
      p_saida:='País já cadastrado!  '||sqlerrm;
      rollback;
    when others then
      p_saida:='Erro ao cadastrar o País!  '|| sqlerrm;
      rollback;
    end;
end;


--------

-- Created on 14/12/2014 by ADMINISTRADOR 
declare 
  -- Local variables here
  v_saida varchar2(2000);
  v_nmpais varchar2(50);
begin
  -- Test statements here 
  p_pais('Brasil',v_saida);
  dbms_output.put_line(v_saida);
end;


create or replace procedure P_Pais
       (p_nmpais in varchar2,
        p_saida out varchar2)
is
  v_entrada number(10);

begin
  begin
    insert into pro_pais
       (nmpais)
    values
       (upper(p_nmpais));
    p_saida:='País Incluido com sucesso!';
    commit;
  exception
    when dup_val_on_index then
      p_saida:='País já cadastrado!  '||sqlerrm;
      rollback;
    when others then
      p_saida:='Erro ao cadastrar o País!  '|| sqlerrm;
      rollback;
    end;
end;

create or replace trigger pro_pais_TR_insert
  before insert on pro_pais  
  for each row
declare
  -- local variables here
begin
  select pro_pais_seq.nextval into :new.cdpais from dual;
end pro_pais_TR_insert;


---------