–à½       )      € 	NROSCRIPT     DESCRI I   WIDTH  < SCRIPT K   SUBTYPE I  Text WIDTH    LCID         CREATE TABLE VERSAO‡   CREATE TABLE VERSAO (
    NROSCRIPT      INTEGER,
    DATA           TIMESTAMP,
   CONSTRAINT PK_VERSAO PRIMARY KEY (NROSCRIPT) 
);     INSERT VERSAO (NROSCRIPT, DATA)Y   INSERT INTO VERSAO (NROSCRIPT, DATA) VALUES (0, (SELECT CURRENT_DATE FROM RDB$DATABASE));     2ALTER TABLE OCORRENCIAMOVIMENTACAO ADD HORAMOVIMEND   ALTER TABLE OCORRENCIAMOVIMENTACAO ADD HORAMOVIMENTACAO VARCHAR(12);     "CREATE PROCEDURE SP_ATUALIZA_BANCO3  SET TERM ^ ;
CREATE OR ALTER PROCEDURE SP_ATUALIZA_BANCO
AS
DECLARE vQTD INTEGER;
declare vSQL VARCHAR(1024);
BEGIN
  SELECT COUNT(*) FROM RDB$RELATION_FIELDS WHERE RDB$RELATION_NAME = 'USUARIOSOP' AND RDB$FIELD_NAME = 'MUDARSENHAPROXIMOLOGIN' INTO :vQTD;
  IF (:vQTD = 0) THEN
  BEGIN
    vSQL = 'ALTER TABLE USUARIOSOP ADD MUDARSENHAPROXIMOLOGIN CHAR01 DEFAULT ' || 'N' || ' NOT NULL COLLATE WIN1252';
    EXECUTE STATEMENT vSQL;

    vSQL = 'UPDATE USUARIOSOP SET MUDARSENHAPROXIMOLOGIN = ' || 'N';
    EXECUTE STATEMENT vSQL;
  END

  SELECT COUNT(*) FROM RDB$RELATION_FIELDS WHERE RDB$RELATION_NAME = 'OCORRENCIAMSG' AND RDB$FIELD_NAME = 'IDMSG' INTO :vQTD;
  IF (:vQTD = 0) THEN
  BEGIN
    vSQL = 'ALTER TABLE OCORRENCIAMSG ADD IDMSG INTEIRO16 DEFAULT 0 NOT NULL';
    EXECUTE STATEMENT vSQL;

    vSQL = 'ALTER TABLE OCORRENCIAMSG ADD CONSTRAINT PK_OCORRENCIAMSG PRIMARY KEY (IDMSG)';
    EXECUTE STATEMENT vSQL;
	
	vSQL = 'alter table OCORRENCIAMSG alter MENSAGEM position 2';
    EXECUTE STATEMENT vSQL;
  END
 
  SELECT COUNT(*) FROM RDB$INDICES WHERE RDB$INDEX_NAME = 'OCORRENCIAMOVIMENTACAO_IDX1' INTO :vQTD;
  IF (:vQTD = 0) THEN
  BEGIN
    vSQL = 'CREATE INDEX OCORRENCIAMOVIMENTACAO_IDX1 ON OCORRENCIAMOVIMENTACAO (CODIGOOCORRENCIA, ORDEM)';
    EXECUTE STATEMENT vSQL;
  END

  SELECT COUNT(*) FROM RDB$RELATIONS WHERE RDB$RELATION_NAME='LISTATIPOLOGRADOURO' INTO vQTD;
  IF (:vQTD = 0) THEN
  BEGIN
    vSQL = 'CREATE TABLE LISTATIPOLOGRADOURO ( TIPOID VARCHAR10 NOT NULL COLLATE WIN_PTBR , DESCRICAO VARCHAR10 COLLATE WIN_PTBR ,LOGIN_INCLUSAO VARCHAR25 COLLATE WIN_PTBR , DATA_INCLUSAO DATACPO, CONSTRAINT PK_LISTATIPOLOGRADOURO PRIMARY KEY (TIPOID))';
    EXECUTE STATEMENT vSQL;
  END    

  SELECT COUNT(*) FROM RDB$RELATIONS WHERE RDB$RELATION_NAME='LISTALOGRADOURO' INTO vQTD;
  IF (:vQTD = 0) THEN
  BEGIN
    vSQL = 'CREATE TABLE LISTALOGRADOURO ( LOGRADOUROID INTEIRO NOT NULL, TIPOID VARCHAR10 NOT NULL COLLATE WIN_PTBR, DESCRICAO VARCHAR60 COLLATE WIN_PTBR, LOGIN_INCLUSAO VARCHAR25 COLLATE WIN_PTBR, DATA_INCLUSAO DATACPO, CONSTRAINT PK_LISTALOGRADOURO PRIMARY KEY (LOGRADOUROID), CONSTRAINT FK_LISTALOGRADOURO_LISTATIPOLOG FOREIGN KEY (TIPOID) REFERENCES LISTATIPOLOGRADOURO (TIPOID))';
    EXECUTE STATEMENT vSQL;
  END  

  SELECT COUNT(*) FROM RDB$RELATIONS WHERE RDB$RELATION_NAME='LISTABAIRRO' INTO vQTD;
  IF (:vQTD = 0) THEN
  BEGIN
    vSQL = 'CREATE TABLE LISTABAIRRO ( LOGRADOUROID INTEIRO NOT NULL, BAIRROID INTEIRO16 NOT NULL, DESCRICAO VARCHAR40 COLLATE WIN_PTBR, LOGIN_INCLUSAO VARCHAR25 COLLATE WIN_PTBR, DATA_INCLUSAO   DATACPO, CONSTRAINT PK_LISTABAIRRO PRIMARY KEY (LOGRADOUROID, BAIRROID), CONSTRAINT FK_LISTABAIRRO_LISTALOGRADOURO FOREIGN KEY (LOGRADOUROID) REFERENCES LISTALOGRADOURO (LOGRADOUROID))';
    EXECUTE STATEMENT vSQL;
  END

  SELECT COUNT(*) FROM RDB$RELATIONS WHERE RDB$RELATION_NAME='LISTACEP' INTO vQTD;
  IF (:vQTD = 0) THEN
  BEGIN
    vSQL = 'CREATE TABLE LISTACEP (LOGRADOUROID INTEIRO NOT NULL, CODIGOCEP VARCHAR09 NOT NULL COLLATE WIN_PTBR,LOGIN_INCLUSAO VARCHAR25 COLLATE WIN_PTBR, DATA_INCLUSAO DATACPO, CONSTRAINT PK_LISTACEP PRIMARY KEY (LOGRADOUROID, CODIGOCEP),	CONSTRAINT FK_LISTACEP_LISTALOGRADOURO FOREIGN KEY (LOGRADOUROID) REFERENCES LISTALOGRADOURO (LOGRADOUROID))';
    EXECUTE STATEMENT vSQL;
  END

  
END
^
SET TERM ; ^
     #EXECUTE PROCEDURE SP_ATUALIZA_BANCO$   EXECUTE PROCEDURE SP_ATUALIZA_BANCO;      DROP PROCEDURE SP_ATUALIZA_BANCO!   DROP PROCEDURE SP_ATUALIZA_BANCO;     2ALTER TABLE OCORRENCIAMOVIMENTACAO ALTER INSTRUCOEG   ALTER TABLE OCORRENCIAMOVIMENTACAO ALTER INSTRUCOES TYPE VARCHAR(4096);     CREATE TABLE  ENTIDADE  CREATE TABLE ENTIDADE (
    PREFEITURACNPJ                  VARCHAR20 NOT NULL , 
    PREFEITURANOME                  VARCHAR60 ,
    PREFEITURAENDERECO              VARCHAR128 ,
    PREFEITURABAIRRO                VARCHAR40 ,
    PREFEITURACEP                   VARCHAR10 ,
    PREFEITURASITE                  VARCHAR60 ,
    PREFEITURATELEFONE              VARCHAR16 ,
    EMAILFROM                       VARCHAR40 ,
    EMAILSENHA                      VARCHAR20 ,
    EMAILSMTP                       VARCHAR40 ,
    EMAILSMTPPORTA                  INTEIRO16 ,
    EMAILUSASSL                     CHAR01 ,
    EMAILASSUNTO                    VARCHAR128 ,
    NOMEDEPTOSECRETARIAOUVIDORIA    VARCHAR60 ,
    RODAPETEXTOCARTA                VARCHAR60 ,
    AVISARCONTRIBUINTENOENC         CHAR01 ,
    SELECIONARRESPONSAVELDEPTODEST  CHAR01 ,
    CONTROLARPRAZO                  CHAR01 ,
    CODIGOTIPOMOVIMENTACAOENC       INTEIRO16 ,
    CODIGOTIPOMOVIMENTACAOPADRAO    INTEIRO16 ,
    AVISARDEPARTAMENTODESTINO       CHAR01 ,
    TEXTOEMAILAUTOMATICO            VARCHAR60 ,
    TEXTOEMAILCOMPLEMENTARENC       VARCHAR128 ,
    PRIMEIRAMOVIMENTACAOOUVIDOR     CHAR01 ,
    SOPWEBPARACADASTRODEOCORRENCIA  VARCHAR60 ,
    SOMENTEOUVIDORENCERRA CHAR01,
    ANEXARIMAGENS                   CHAR01 ,
    USACIDADE                       CHAR01 ,
    LISTACIDADES                    CHAR01 ,
    EMAILAVISODEPARTAMENTO_ASS      VARCHAR60 ,
    EMAILAVISODEPARTAMENTO_TXT      VARCHAR1024 ,
    EMAILAVISOATRASO_ASS            VARCHAR60 ,
    EMAILAVISOATRASO_TXT            VARCHAR1024 ,
    CONSTRAINT PK_ENTIDADE PRIMARY KEY (PREFEITURACNPJ)
);
  	   (ALTERA CAMPO LISTACIDADE TABELA ENTIDADE   update RDB$RELATION_FIELDS set
RDB$FIELD_SOURCE = 'VARCHAR1024'
where (RDB$FIELD_NAME = 'LISTACIDADES') and
(RDB$RELATION_NAME = 'ENTIDADE')  
   -ADD MOSTRARDADOSOCORREMAILMOV TABELA ENTIDADEL   ALTER TABLE ENTIDADE
ADD MOSTRARDADOSOCORREMAILMOV CHAR01
COLLATE WIN1252      CREATE TABLE ORIGEMCONTATOTIPOá   CREATE TABLE ORIGEMCONTATOTIPO (
    CODIGOORIGEMCONTATOTIPO INTEIRO16 NOT NULL,
    DESCRICAO VARCHAR70 NOT NULL);
alter table ORIGEMCONTATOTIPO
add constraint PK_ORIGEMCONTATOTIPO
primary key (CODIGOORIGEMCONTATOTIPO);     CREATE TABLE CONCLUSAOSOLTIPOÜ   CREATE TABLE CONCLUSAOSOLTIPO (
    CODIGOCONCLUSAOSOLTIPO INTEIRO16 NOT NULL,
    DESCRICAO VARCHAR70 NOT NULL);
alter table CONCLUSAOSOLTIPO
add constraint PK_CONCLUSAOSOLTIPO
primary key (CODIGOCONCLUSAOSOLTIPO);     2ALTER TABLE OCORRENCIAOUVIDORIA ADD ORIGEMCONTATOT@   ALTER TABLE OCORRENCIAOUVIDORIA ADD ORIGEMCONTATOTIPO INTEIRO16;     2ALTER TABLE OCORRENCIAOUVIDORIA ADD CONCLUSAOSOLTI?   ALTER TABLE OCORRENCIAOUVIDORIA ADD CONCLUSAOSOLTIPO INTEIRO16;     2alter table OCORRENCIAOUVIDORIA add constraint FK_´   alter table OCORRENCIAOUVIDORIA
add constraint FK_OCORRENCIAOUVIDORIA_3
foreign key (ORIGEMCONTATOTIPO)
references ORIGEMCONTATOTIPO(CODIGOORIGEMCONTATOTIPO)
on update CASCADE;     2alter table OCORRENCIAOUVIDORIA add constraint FK_±   alter table OCORRENCIAOUVIDORIA
add constraint FK_OCORRENCIAOUVIDORIA_4
foreign key (CONCLUSAOSOLTIPO)
references CONCLUSAOSOLTIPO(CODIGOCONCLUSAOSOLTIPO)
on update CASCADE;     INSERT INTO ORIGEMCONTATOTIPOˆ  INSERT INTO ORIGEMCONTATOTIPO (CODIGOORIGEMCONTATOTIPO, DESCRICAO) VALUES (1, 'SITE OUVIDORIA');

INSERT INTO ORIGEMCONTATOTIPO (CODIGOORIGEMCONTATOTIPO, DESCRICAO) VALUES (2, 'ATENDIMENTO/PESSOALMENTE');

INSERT INTO ORIGEMCONTATOTIPO (CODIGOORIGEMCONTATOTIPO, DESCRICAO) VALUES (3, 'TELEFONE');

INSERT INTO ORIGEMCONTATOTIPO (CODIGOORIGEMCONTATOTIPO, DESCRICAO) VALUES (4, 'E-MAIL');     INSERT INTO CONCLUSAOSOLTIPO—  INSERT INTO CONCLUSAOSOLTIPO (CODIGOCONCLUSAOSOLTIPO, DESCRICAO) VALUES (1, 'SOLUCIONADA');

INSERT INTO CONCLUSAOSOLTIPO (CODIGOCONCLUSAOSOLTIPO, DESCRICAO) VALUES (2, 'SOLUCIONADA PARCIALMENTE');

INSERT INTO CONCLUSAOSOLTIPO (CODIGOCONCLUSAOSOLTIPO, DESCRICAO) VALUES (3, 'IMPROCEDENTE');

INSERT INTO CONCLUSAOSOLTIPO (CODIGOCONCLUSAOSOLTIPO, DESCRICAO) VALUES (4, 'ENCAMINHADA PARA OUTRO ÓRGÃO');     1update RDB$RELATION_FIELDS set RDB$FIELD_SOURCE =’   update RDB$RELATION_FIELDS set
RDB$FIELD_SOURCE = 'VARCHAR50'
where (RDB$FIELD_NAME = 'DESCRICAO') and
(RDB$RELATION_NAME = 'SOLICITACAOTIPO');     1update RDB$RELATION_FIELDS set RDB$FIELD_SOURCE =Š   update RDB$RELATION_FIELDS set
RDB$FIELD_SOURCE = 'VARCHAR90'
where (RDB$FIELD_NAME = 'DESCRICAO') and
(RDB$RELATION_NAME = 'ASSUNTO');     1update RDB$RELATION_FIELDS set RDB$FIELD_SOURCE =–   update RDB$RELATION_FIELDS set
RDB$FIELD_SOURCE = 'VARCHAR11'
where (RDB$FIELD_NAME = 'PROTOCOLO') and
(RDB$RELATION_NAME = 'OCORRENCIAOUVIDORIA');     ALTER TABLE OCORRENCIAOUVIDORIAn   ALTER TABLE OCORRENCIAOUVIDORIA
ADD DESCRICAOOCORRBLOB BLOB SUB_TYPE 1 SEGMENT SIZE 80 CHARACTER SET WIN1252;     2update ocorrenciaouvidoria set ocorrenciaouvidoriaj   update ocorrenciaouvidoria set ocorrenciaouvidoria.descricaoocorrblob = ocorrenciaouvidoria.descricaoocorr     2ALTER TABLE OCORRENCIAOUVIDORIA DROP DESCRICAOOCOR4   ALTER TABLE OCORRENCIAOUVIDORIA DROP DESCRICAOOCORR;     2ALTER TABLE OCORRENCIAOUVIDORIA ALTER DESCRICAOOCOK   ALTER TABLE OCORRENCIAOUVIDORIA ALTER DESCRICAOOCORRBLOB TO DESCRICAOOCORR;     "ALTER TABLE ocorrenciamovimentacaon   ALTER TABLE ocorrenciamovimentacao 
ADD INSTRUCOESBLOB BLOB SUB_TYPE 1 SEGMENT SIZE 80 CHARACTER SET WIN1252;     2update ocorrenciamovimentacao set ocorrenciaMovimeo   update ocorrenciamovimentacao set ocorrenciaMovimentacao.instrucoesblob = ocorrenciaMovimentacao.instrucoes

     2ALTER TABLE ocorrenciamovimentacao  DROP instrucoe6   ALTER TABLE ocorrenciamovimentacao  DROP instrucoes;
     2ALTER TABLE ocorrenciamovimentacao ALTER instrucoeF   ALTER TABLE ocorrenciamovimentacao ALTER instrucoesblob TO instrucoes;     CREATE DOMAIN VARCHAR100 ASQ   CREATE DOMAIN VARCHAR100 AS
VARCHAR(100) CHARACTER SET WIN1252
COLLATE WIN1252;     update RDB$RELATION_FIELDS set›   update RDB$RELATION_FIELDS set
RDB$FIELD_SOURCE = 'VARCHAR100'
where (RDB$FIELD_NAME = 'ENDERECOSOL') and
(RDB$RELATION_NAME = 'OCORRENCIAOUVIDORIA');
      2ALTER TABLE OCORRENCIAOUVIDORIA ADD PARECERENCERRAp   ALTER TABLE OCORRENCIAOUVIDORIA
ADD PARECERENCERRAMENTO BLOB SUB_TYPE 1 SEGMENT SIZE 80 CHARACTER SET WIN1252 ;  !   "ALTER TABLE OCORRENCIAMOVIMENTACAOu   ALTER TABLE OCORRENCIAMOVIMENTACAO
    ADD INSTRUCOESMUNICIPE BLOB SUB_TYPE 1 SEGMENT SIZE 80 CHARACTER SET WIN1252;  "   	Atualizar   SELECT COUNT(*) FROM ASSUNTO;  #   	Atualizar   SELECT COUNT(*) FROM ASSUNTO;  $   	Atualizar   SELECT COUNT(*) FROM ASSUNTO;  %    MERGE into ocorrenciaouvidoria 1"  MERGE into ocorrenciaouvidoria oo
  using (
select o.CODIGO as codOcor, o.DATACADASTRO, o.HORACADASTRO, m.CODIGOOCORRENCIA as codOcorMov, m.ORDEM, m.TIPOMOVIMENTACAO, m.DATAMOVIMENTACAO, m.HORAMOVIMENTACAO,
EXTRACT(HOUR FROM cast(m.HORAMOVIMENTACAO as time)) as hMovimentacao, extract(HOUR from cast(o.HORACADASTRO AS time)) as hCadastro
from OCORRENCIAOUVIDORIA O
LEFT JOIN OCORRENCIAMOVIMENTACAO m on m.CODIGOOCORRENCIA = o.CODIGO
where m.DATAMOVIMENTACAO IS not NULL and m.ORDEM = 1 and o.DATACADASTRO = m.DATAMOVIMENTACAO AND extract(hour FROM cast(m.HORAMOVIMENTACAO as time)) > (extract(HOUR from cast(o.HORACADASTRO as time)) + 11)
) auxiliar
on (oo.codigo = auxiliar.codOcor)
when matched then update set
  horacadastro = hMovimentacao||substring(auxiliar.HORACADASTRO from 3 for 10);  &    MERGE into OCORRENCIAOUVIDORIA 2#  MERGE into OCORRENCIAOUVIDORIA oo
  using (
select o.CODIGO as codOcor, o.DATACADASTRO, o.HORACADASTRO, m.CODIGOOCORRENCIA as codOcorMov, m.ORDEM, m.TIPOMOVIMENTACAO, m.DATAMOVIMENTACAO, m.HORAMOVIMENTACAO,
EXTRACT(HOUR FROM cast(m.HORAMOVIMENTACAO as time)) as hMovimentacao, extract(HOUR from cast(o.HORACADASTRO AS time)) as hCadastro
from OCORRENCIAOUVIDORIA O
LEFT JOIN OCORRENCIAMOVIMENTACAO m on m.CODIGOOCORRENCIA = o.CODIGO
where m.DATAMOVIMENTACAO IS not NULL and
o.DATACADASTRO <> m.DATAMOVIMENTACAO
AND m.DATAMOVIMENTACAO < (o.DATACADASTRO + 2)
AND extract(hour FROM cast(m.HORAMOVIMENTACAO as time)) < (extract(HOUR from cast(o.HORACADASTRO as time)) + 11)
AND extract(HOUR from cast(o.HORACADASTRO as time)) < 7
and m.ORDEM = 1
and cast(o.DATACADASTRO as date) > '01.09.2015'  --data que passou as movimentações a considerar as 24h
) auxiliar
on (oo.codigo = auxiliar.codOcor)
when matched then update SET
  horacadastro = CASE
                    when hCadastro = 1 THEN '13'||substring(auxiliar.HORACADASTRO from 3 for 10)
                    when hCadastro = 2 THEN '14'||substring(auxiliar.HORACADASTRO from 3 for 10)
                    when hCadastro = 3 THEN '15'||substring(auxiliar.HORACADASTRO from 3 for 10)
                    when hCadastro = 4 THEN '16'||substring(auxiliar.HORACADASTRO from 3 for 10)
                    when hCadastro = 5 THEN '17'||substring(auxiliar.HORACADASTRO from 3 for 10)
                    when hCadastro = 6 THEN '18'||substring(auxiliar.HORACADASTRO from 3 for 10)
                    end;  '   -ALTER TABLE ENTIDADE ADD PRAZODIAS INTEIRO16;-   ALTER TABLE ENTIDADE ADD PRAZODIAS INTEIRO16;  (   2ALTER TABLE ENTIDADE ADD PREFEITURAEMAILCONTATO VA;   ALTER TABLE ENTIDADE ADD PREFEITURAEMAILCONTATO VARCHAR100;  )   2ALTER TABLE ENTIDADE ADD PAINELINICIAL BLOB SUB_TYG   ALTER TABLE ENTIDADE ADD PAINELINICIAL BLOB SUB_TYPE 1 SEGMENT SIZE 80;