Código do Município IBGE - Relato.

[Itamar M. Lins Jr.]

Ola!
Estou tendo uns problemas com o AcbrMonitorPlus, ele não acha, "em alguns casos" a cidade.
MOGI MIRIM por exemplo não acha. Por que antes eu não colocava a TAG "cidadecod" o próprio acbr colocava, mas devidos aos erros reportados, estou modificando o sistema para o usuário colocar, ou melhor quando cadastrar já deixar gravado o tal código.

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Encontrei MOJI MIRIM.
Provavelmente seja esse o problema.

[Itamar M. Lins Jr.]

Ola!
Mas é MOGI MIRIM!!!
https://pt.wikipedia.org/wiki/Mogi_Mirim
Tem outras cidades com o mesmo problema, FLORESTA AZUL, aqui na Bahia... e outro ai de SP que não lembro o nome.

Saudações,
Itamar M. Lins Jr.

[Jairo Maia]

Olá Pessoal,

Curioso isso vir a ser discutido aqui, mas quer "fundir" a cabeça? Então vamos lá:

Desde 9 de Junho de 2010 a grafia de Moji Mirim passou a ser Mogi Mirim. Ocorre que o IBGE adotou essa grafgia como oficial depois, não lembro quando. Porisso ainda na tabela do ACBr aparece Moji Mirim e não Mogi Mirim. Atualmente, para o IBGE também é Mogi Mirim.

Mogi Mirim fica a 60 Km de Campinas (de marco 0 a marco 0), e veja o que gerou essa confusão toda: Grafia de Mogi Mirim

[JoséQuintas]

Então meu cadastro tá errado.
A justificativa é que comecei com NFE em 2008, antes dessa decisão... rs
Agora pesquisar uma tabela atualizada, e pensar em como atualizar nos clientes.

[alxsts]

Olá!

Outra cidade que mudou de nome é Embu das Artes em São Paulo. Antes era só Embu. A base de dados do Correio (e-DNE) deve ter tudo correto em sua versão mais atual.

[JoséQuintas]

Confirmadas as duas.

Só a título de curiosidade:

Alterei JPA.PRG: (ou melhor, vou alterar depois dos testes)

Código: Selecionar todos

   AppInicializa()
   AppVersaoExe( JPA_VERSAO ) // JPA.RC também
   AppVersaoDbf( 20160715 )

Alterei RC2016.PRG:

Código: Selecionar todos

   SayScroll( "Verificando atualizações 2016" )
   IF AppVersaoDbfAnt() < 20160822; ConvBancario() ; ENDIF
   IF AppVersaoDbfAnt() < 20160826; Conv0826()     ; ENDIF
   IF AppVersaoDbfAnt() < 99999999; ConvMySql()    ; ENDIF
...
STATIC FUNCTION Conv0826()

   SayScroll( "Atualizando nome das cidades MOGI MIRIM e EMBU DAS ARTES" )
   IF .NOT. AbreArquivos( "jpcadas", "jpcidade" )
      QUIT
   ENDIF
   SELECT jpcidade
   SET ORDER TO 0
   GOTO TOP
   GrafTempo( "Atualizando JPCIDADE" )
   DO WHILE .NOT. Eof()
      GrafTempo( RecNo(), LastRec() )
      IF Trim( jpcidade->cdNome ) == "MOJI MIRIM"
         RecLock()
         REPLACE jpcidade->cdNome WITH "MOGI MIRIM"
      ENDIF
      IF Trim( jpcidade->cdNome ) == "EMBU"
         RecLock()
         REPLACE jpcidade->cdNome WITH "EMBU DAS ARTES"
      ENDIF
      SKIP
   ENDDO
   SELECT jpcadas
   SET ORDER TO 0
   GOTO TOP
   GrafTempo( "Atualizando JPCADAS" )
   DO WHILE .NOT. Eof()
      GrafTempo( RecNo(), LastRec() )
      IF Trim( jpcadas->cdCidade ) == "MOJI MIRIM"
         RecLock()
         REPLACE jpcadas->cdCidade WITH "MOGI MIRIM"
      ENDIF
      IF Trim( jpcadas->cdCidade ) == "EMBU"
         RecLock()
         REPLACE jpcadas->cdCidade WITH "EMBU DAS ARTES"
      ENDIF
      IF Trim( Jpcadas->cdCidCob ) == "MOJI MIRIM"
         RecLock()
         REPLACE jpcadas->cdCidCob WITH "MOGI MIRIM"
      ENDIF
      IF Trim( jpcadas->cdCidCob ) == "EMBU"
         RecLock()
         REPLACE jpcadas->cdCidCob WITH "EMBU DAS ARTES"
      ENDIF
      IF Trim( jpcadas->cdCidEnt ) == "MOJI MIRIM"
         RecLock()
         REPLACE jpcadas->cdCidEnt WITH "MOGI MIRIM"
      ENDIF
      IF Trim( Jpcadas->cdCidEnt ) == "EMBU"
         RecLock(0
         REPLACE jpcadas->cdCidEnt WITH "EMBU DAS ARTES"
      ENDIF
      SKIP
   ENDDO
   CLOSE DATABASES

   RETURN NIL

Com isso, vai estar tudo atualizado assim que algum cliente atualizar o aplicativo.

Também alterei a base do meu webservice de CEP.
O webservice vai se atualizando on-line nos correios, conforme vão sendo feitas consultas.
MOGI MIRIM estava ok, mas EMBU DAS ARTES somente os que haviam sido consultados, tinha uns 950 ainda como EMBU.
Achei legal ver isso, porque mostra que o trabalho gasto no webservice valeu a pena, deu pra ver algo se atualizando e que precisava ser consultado.... rs

Nota: De qualquer jeito, quando alguém consultar vai ser atualizado, mas não custa nada deixar a base já corrigida.