0020961: 31082 - Busca Corrida Conexão

bug#20961
dev:gleimar
qua:

git-svn-id: http://desenvolvimento.rjconsultores.com.br/repositorio/sco/BD/FlyWay/trunk@104268 d1611594-4594-4d17-8e1d-87c2c4800839
master
valdir 2020-11-12 19:52:27 +00:00
parent 9ad0d3bd7b
commit 11f7468f1e
2 changed files with 39 additions and 0 deletions

View File

@ -0,0 +1,18 @@
DECLARE
VALOR VARCHAR2(500 BYTE);
ATIVO NUMBER(1,0);
BEGIN
SELECT VALORCONSTANTE, ACTIVO INTO VALOR, ATIVO
FROM CONSTANTE
WHERE NOMBCONSTANTE LIKE 'CONEXAO_FIXA' ;
IF ATIVO = 0 THEN
EXECUTE IMMEDIATE 'UPDATE CONSTANTE SET ACTIVO = 1, VALORCONSTANTE = ''FALSE'' WHERE NOMBCONSTANTE LIKE ''CONEXAO_FIXA'' ';
ELSIF VALOR = 'TRUE' OR VALOR = 'true' THEN
EXECUTE IMMEDIATE 'UPDATE CONSTANTE SET ACTIVO = 0 WHERE NOMBCONSTANTE LIKE ''CONEXAO_FIXA'' ';
END IF;
EXCEPTION WHEN NO_DATA_FOUND THEN
EXECUTE IMMEDIATE 'Insert into CONSTANTE (CONSTANTE_ID,NOMBCONSTANTE,DESCCONSTANTE,INDTIPOCONSTANTE,VALORCONSTANTE,INDMANTENIMIENTOUSUARIO,ACTIVO,FECMODIF,USUARIO_ID)
values (CONSTANTE_SEQ.nextval ,''CONEXAO_FIXA'',''HABILITA PESQUISA DE CONEXAO FIXA'',null,''FALSE'',''1'',''1'', SYSDATE, -1)';
END;

View File

@ -0,0 +1,21 @@
DO $$
BEGIN
VALOR VARCHAR2(500 BYTE);
ATIVO NUMBER(1,0);
SELECT VALORCONSTANTE, ACTIVO INTO VALOR, ATIVO
FROM CONSTANTE
WHERE NOMBCONSTANTE LIKE 'CONEXAO_FIXA' ;
IF ATIVO = 0 THEN
EXECUTE IMMEDIATE 'UPDATE CONSTANTE SET ACTIVO = 1, VALORCONSTANTE = ''FALSE'' WHERE NOMBCONSTANTE LIKE ''CONEXAO_FIXA'' ';
ELSIF VALOR = 'TRUE' OR VALOR = 'true' THEN
EXECUTE IMMEDIATE 'UPDATE CONSTANTE SET ACTIVO = 0 WHERE NOMBCONSTANTE LIKE ''CONEXAO_FIXA'' ';
END IF;
EXCEPTION WHEN NO_DATA_FOUND THEN
EXECUTE IMMEDIATE 'Insert into CONSTANTE (CONSTANTE_ID,NOMBCONSTANTE,DESCCONSTANTE,INDTIPOCONSTANTE,VALORCONSTANTE,INDMANTENIMIENTOUSUARIO,ACTIVO,FECMODIF,USUARIO_ID)
values (CONSTANTE_SEQ.nextval ,''CONEXAO_FIXA'',''HABILITA PESQUISA DE CONEXAO FIXA'',null,''FALSE'',''1'',''1'', SYSDATE, -1)';
END
$$;