bug#10906

dev:lucas
qua:wallysson

git-svn-id: http://desenvolvimento.rjconsultores.com.br/repositorio/sco/BD/FlyWay/trunk@81126 d1611594-4594-4d17-8e1d-87c2c4800839
master
wilian 2018-04-18 20:36:01 +00:00
parent 46bbefac10
commit 9432a3a540
1 changed files with 22 additions and 0 deletions

View File

@ -0,0 +1,22 @@
DECLARE
type vEstados is varray(27) of varchar2(2);
estados vEstados;
nomSeq VARCHAR2(200);
qtdeTotal INTEGER;
object_exists exception;
pragma exception_init (object_exists , -00955);
BEGIN
estados := vEstados('AC', 'AL', 'AM', 'AP', 'BA', 'CE', 'DF', 'ES', 'GO', 'MA', 'MG', 'MS', 'MT', 'PA', 'PB', 'PE', 'PI', 'PR', 'RJ', 'RN', 'RO', 'RR', 'RS', 'SC', 'SE', 'SP', 'TO');
qtdeTotal := estados.count;
FOR EMP IN (SELECT EMPRESA_ID FROM EMPRESA WHERE ACTIVO = 1 AND EMPRESA_ID > 0)
LOOP
FOR i in 1 .. qtdeTotal LOOP
BEGIN
SELECT SEQUENCE_NAME INTO nomSeq from DBA_SEQUENCES where SEQUENCE_NAME like 'FOLIO_SISTEMA_BPE_' || estados(i) || '_' || EMP.EMPRESA_ID || '_SEQ%';
EXCEPTION WHEN NO_DATA_FOUND THEN
EXECUTE IMMEDIATE 'CREATE SEQUENCE ' || 'FOLIO_SISTEMA_BPE_' || estados(i) || '_' || EMP.EMPRESA_ID || '_SEQ MINVALUE 1 MAXVALUE 999999999 INCREMENT BY 1 START WITH 1 ORDER NOCACHE CYCLE';
END;
END LOOP;
END LOOP;
EXCEPTION WHEN object_exists THEN NULL;
END;