38 lines
1.1 KiB
SQL
38 lines
1.1 KiB
SQL
declare
|
|
dup_val_on_index exception;
|
|
except_02291 exception;
|
|
|
|
pragma exception_init (dup_val_on_index , -00001);
|
|
pragma exception_init (except_02291 , -02291);
|
|
begin
|
|
execute immediate 'INSERT INTO TIPO_IDENTIFICACION values ( 28 , ''D_FISICO'', 1 , CURRENT_DATE, 1)';
|
|
exception
|
|
when dup_val_on_index then null;
|
|
when except_02291 then null;
|
|
end;
|
|
/
|
|
declare
|
|
dup_val_on_index exception;
|
|
except_02291 exception;
|
|
|
|
pragma exception_init (dup_val_on_index , -00001);
|
|
pragma exception_init (except_02291 , -02291);
|
|
begin
|
|
execute immediate 'INSERT INTO TIPO_IDENTIFICACION values ( 29 , ''J_CARENTE'', 1 , CURRENT_DATE, 1)';
|
|
exception
|
|
when dup_val_on_index then null;
|
|
when except_02291 then null;
|
|
end;
|
|
/
|
|
declare
|
|
dup_val_on_index exception;
|
|
except_02291 exception;
|
|
|
|
pragma exception_init (dup_val_on_index , -00001);
|
|
pragma exception_init (except_02291 , -02291);
|
|
begin
|
|
execute immediate 'INSERT INTO TIPO_IDENTIFICACION values ( 30 , ''GRATUIDADE'', 1 , CURRENT_DATE, 1)';
|
|
exception
|
|
when dup_val_on_index then null;
|
|
when except_02291 then null;
|
|
end; |