Codigo Municipio do Destinatario diverge do cadastro na UF

[j2c9m7]

Boa Tarde

Senhores, hoje me deparei com uma situacao nova!

sou do RS e o Sefaz comecou a validar/comparar Codigo do Municipio IBGE com Nome do Municipio

Quando gero o arquivo TXT, o codigo do municipio vai vazio, e deixo pro monitor encontrar o codigo e atualizar no xml

Acontece, que gerei notas para o municipio de VERA CRUZ, e o monitor acabou trazendo o codigo do municipio de PORTO VERA CRUZ,

Alguem ja passou por situacao semelhante?

Abraços

[Daniel Simoes]

Você deverá informar o Código do Município...

[j2c9m7]

ok, vou providenciar!

abraços

Editado 2 Dezembro, 2015 por j2c9m7

[j2c9m7]

Ola

Alterei a funcao ObterCodigoCidade em DoACBrNFeUnit.pas

function ObterCodigoMunicipio(const xMun, xUF: string): integer;
var
  i: integer;
  PathArquivo: string;
  List: TstringList;
begin
  result := 0;
  PathArquivo :=  PathWithDelim(ExtractFilePath(Application.ExeName))+ 'MunIBGE'+PathDelim+'MunIBGE-UF' + InttoStr(UFparaCodigo(xUF)) + '.txt';
  if FileExists(PathArquivo) then
   begin
     List := TstringList.Create;
     List.LoadFromFile(PathArquivo);
     i := 0;
     while (i < list.count) and (result = 0) do
      begin
       if pos(UpperCase(TiraAcentos(xMun)), UpperCase(TiraAcentos(UTF8Encode(List)))) = 9 then
          result := StrToInt(Trim(copy(list,1,7)));
       inc(i);
      end;
     List.free;
   end;
end;

para resolver o problema!

se alguem puder subir a alteracao, agradeco!

Abraços

DoACBrNFeUnit.pas

[Daniel Simoes]

Qual é o problema original ?

Qual foi a sua estratégia na correção ?

Não compreendi, porque você está comparando o resultado  com "9"..

 if pos(UpperCase(TiraAcentos(xMun)), UpperCase(TiraAcentos(UTF8Encode(List[i])))) = 9 then

 

 

[Daniel Simoes]

OK... lendo os fontes e abrindo o arquivo dos municípios, peguei a sua ideia...

Já enviei para o SVN o ajuste, com pequenas modificações...

Muito obrigado pela ajuda

[j2c9m7]

Daniel

Obrigado!

Abraços a todos