bug#10906
dev:lucas qua:wallysson git-svn-id: http://desenvolvimento.rjconsultores.com.br/repositorio/sco/BD/FlyWay/trunk@81126 d1611594-4594-4d17-8e1d-87c2c4800839master
parent
46bbefac10
commit
9432a3a540
|
@ -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;
|
Loading…
Reference in New Issue