0018919: Cadastro Cliente Internacional - Erro Servidor

bug#18919
dev:
qua:

git-svn-id: http://desenvolvimento.rjconsultores.com.br/repositorio/sco/BD/FlyWay/trunk@101096 d1611594-4594-4d17-8e1d-87c2c4800839
master
valdir 2020-04-03 20:37:25 +00:00
parent df57937a88
commit 25e6fb7f0e
2 changed files with 170 additions and 0 deletions

View File

@ -0,0 +1,79 @@
declare
dup_val_on_index exception;
pragma exception_init (dup_val_on_index , -00001);
begin
execute immediate 'INSERT INTO TIPO_IDENTIFICACION values ( 1 , ''RG'', 1 , CURRENT_DATE, 1) ';
exception when dup_val_on_index then null;
end;
/
declare
dup_val_on_index exception;
pragma exception_init (dup_val_on_index , -00001);
begin
execute immediate 'INSERT INTO TIPO_IDENTIFICACION values ( 2 , ''CPF'', 1 , CURRENT_DATE, 1) ';
exception when dup_val_on_index then null;
end;
/
declare
dup_val_on_index exception;
pragma exception_init (dup_val_on_index , -00001);
begin
execute immediate 'INSERT INTO TIPO_IDENTIFICACION values ( 13 , ''PASPT'', 1 , CURRENT_DATE, 1) ';
exception when dup_val_on_index then null;
end;
/
declare
dup_val_on_index exception;
pragma exception_init (dup_val_on_index , -00001);
begin
execute immediate 'INSERT INTO TIPO_IDENTIFICACION values ( 14 , ''RUT'', 1 , CURRENT_DATE, 1) ';
exception when dup_val_on_index then null;
end;
/
declare
dup_val_on_index exception;
pragma exception_init (dup_val_on_index , -00001);
begin
execute immediate 'INSERT INTO TIPO_IDENTIFICACION values ( 15 , ''CNPJ'', 1 , CURRENT_DATE, 1) ';
exception when dup_val_on_index then null;
end;
/
declare
dup_val_on_index exception;
pragma exception_init (dup_val_on_index , -00001);
begin
execute immediate 'INSERT INTO TIPO_IDENTIFICACION values ( 22 , ''DOC X'', 1 , CURRENT_DATE, 1) ';
exception when dup_val_on_index then null;
end;
/
declare
dup_val_on_index exception;
pragma exception_init (dup_val_on_index , -00001);
begin
execute immediate 'INSERT INTO TIPO_IDENTIFICACION values ( 23 , ''CN'', 1 , CURRENT_DATE, 1) ';
exception when dup_val_on_index then null;
end;
/
declare
dup_val_on_index exception;
pragma exception_init (dup_val_on_index , -00001);
begin
execute immediate 'INSERT INTO TIPO_IDENTIFICACION values ( 24 , ''RNE'', 1 , CURRENT_DATE, 1) ';
exception when dup_val_on_index then null;
end;
/
declare
dup_val_on_index exception;
pragma exception_init (dup_val_on_index , -00001);
begin
execute immediate 'INSERT INTO TIPO_IDENTIFICACION values ( 25 , ''DOC_IDOSO'', 1 , CURRENT_DATE, 1) ';
exception when dup_val_on_index then null;
end;
/
declare
dup_val_on_index exception;
pragma exception_init (dup_val_on_index , -00001);
begin
execute immediate 'INSERT INTO TIPO_IDENTIFICACION values ( 26 , ''DNI'', 1 , CURRENT_DATE, 1) ';
exception when dup_val_on_index then null;
end;

View File

@ -0,0 +1,91 @@
DO $$
BEGIN
INSERT INTO TIPO_IDENTIFICACION values ( 1 , 'RG', 1 , CURRENT_DATE, 1) ;
EXCEPTION
WHEN OTHERS THEN NULL;
WHEN unique_violation THEN NULL;
END
$$;
/
DO $$
BEGIN
INSERT INTO TIPO_IDENTIFICACION values ( 2 , 'CPF', 1 , CURRENT_DATE, 1) ;
EXCEPTION
WHEN OTHERS THEN NULL;
WHEN unique_violation THEN NULL;
END
$$;
/
DO $$
BEGIN
INSERT INTO TIPO_IDENTIFICACION values ( 13 , 'PASPT', 1 , CURRENT_DATE, 1) ;
EXCEPTION
WHEN OTHERS THEN NULL;
WHEN unique_violation THEN NULL;
END
$$;
/
DO $$
BEGIN
INSERT INTO TIPO_IDENTIFICACION values ( 14 , 'RUT', 1 , CURRENT_DATE, 1) ;
EXCEPTION
WHEN OTHERS THEN NULL;
WHEN unique_violation THEN NULL;
END
$$;
/
DO $$
BEGIN
INSERT INTO TIPO_IDENTIFICACION values ( 15 , 'CNPJ', 1 , CURRENT_DATE, 1) ;
EXCEPTION
WHEN OTHERS THEN NULL;
WHEN unique_violation THEN NULL;
END
$$;
/
DO $$
BEGIN
INSERT INTO TIPO_IDENTIFICACION values ( 22 , 'DOC X', 1 , CURRENT_DATE, 1) ;
EXCEPTION
WHEN OTHERS THEN NULL;
WHEN unique_violation THEN NULL;
END
$$;
/
DO $$
BEGIN
INSERT INTO TIPO_IDENTIFICACION values ( 23 , 'CN', 1 , CURRENT_DATE, 1) ;
EXCEPTION
WHEN OTHERS THEN NULL;
WHEN unique_violation THEN NULL;
END
$$;
/
DO $$
BEGIN
INSERT INTO TIPO_IDENTIFICACION values ( 24 , ''RNE'', 1 , CURRENT_DATE, 1) ;
EXCEPTION
WHEN OTHERS THEN NULL;
WHEN unique_violation THEN NULL;
END
$$;
/
DO $$
BEGIN
INSERT INTO TIPO_IDENTIFICACION values ( 25 , 'DOC_IDOSO', 1 , CURRENT_DATE, 1) ;
EXCEPTION
WHEN OTHERS THEN NULL;
WHEN unique_violation THEN NULL;
END
$$;
/
DO $$
BEGIN
INSERT INTO TIPO_IDENTIFICACION values ( 26 , 'DNI', 1 , CURRENT_DATE, 1)
EXCEPTION
WHEN OTHERS THEN NULL;
WHEN unique_violation THEN NULL;
END
$$;
/