Erro: E0238, mensagem: O código do município informado na DPS para o endereço do tomador do serviço não existe conforme tabela de município do IBGE., correção:

[Sérgio Caldeira Silva]

Boa noite!

Não encontrei nenhum tópico sobre Tomador Estrangeiro e me deparei com a mensagem acima, contudo, preenchi os campos referentes a estrangeiros, conforme código abaixo. Poderiam me orientar quanto ao tratamento de estrangeiros na NFS-e Nacional?

      {16/02/2021. Sérgio: dados do cliente.}
      Tomador.IdentificacaoTomador.CpfCnpj := qyDestinatario.FieldByName('SysCliCnp').AsString;
      Tomador.AtualizaTomador              := snNao;
      {16/02/2021. Sérgio: somente PJ possuem IE e IM.}
      if qyDestinatario.FieldByName('SysEntPesTip').AsString = 'J' then
      begin
        Tomador.IdentificacaoTomador.InscricaoEstadual  := qyDestinatario.FieldByName('SysCliInsEst').AsString;
        Tomador.IdentificacaoTomador.InscricaoMunicipal := '';
      end;
      Tomador.RazaoSocial              := qyDestinatario.FieldByName('SysCliRazSoc').AsString;
      Tomador.Endereco.Endereco        := qyDestinatario.FieldByName('SysCliEndLog').AsString;
      Tomador.Endereco.Numero          := Se(qyDestinatario.FieldByName('SysCliEndNum').AsString <> '',
                                             qyDestinatario.FieldByName('SysCliEndNum').AsString,
                                             'S/N');
      Tomador.Endereco.Complemento     := qyDestinatario.FieldByName('SysCliEndCom').AsString;
      Tomador.Endereco.Bairro          := qyDestinatario.FieldByName('SysCliEndBai').AsString;
      Tomador.Endereco.CEP             := qyDestinatario.FieldByName('SysCliEndCep').AsString;
      Tomador.Endereco.CodigoMunicipio := qyDestinatario.FieldByName('SysCidIbgCod').asString;
      Tomador.Endereco.UF              := qyDestinatario.FieldByName('SysUFeSig').AsString;
      Tomador.Endereco.CodigoPais      := qyDestinatario.FieldByName('SysPaiCod').AsInteger;
      Tomador.Endereco.xPais           := qyDestinatario.FieldByName('SysPaiNom').AsString;
      {Retorna o nome da cidade de acordo com a parametrização anterior.}
      if not FileExists(ExtractFilePath(Application.ExeName) + 'ACBrIBGE.txt') then
      begin
        Tomador.Endereco.xMunicipio := qyDestinatario.FieldByName('SysCidNom').AsString;
      end
      else begin
             CodigoMunicipio := Tomador.Endereco.CodigoMunicipio;
             UF              := Tomador.Endereco.UF;
             CaminhoArqMun   := ExtractFilePath(Application.ExeName);
             if not NumeroValido(CodigoMunicipio) then
                CodigoMunicipio := '0';
             Tomador.Endereco.xMunicipio := ObterNomeMunicipio(StrToInt(CodigoMunicipio), UF, CaminhoArqMun);
           end;
      {Se o endereço internacional, altera os dados conforme legislação vigente para extrangeiros.}
      if (qyDestinatario.FieldByName('SysUFeSig').AsString = 'EX') then
      begin
        Tomador.TomadorExterior          := snSim;
        Tomador.Endereco.CodigoMunicipio := '9999999';
        Tomador.Endereco.CEP             := '99999999';
        NaturezaOperacao                 := no7;
      end
      else begin
             Tomador.TomadorExterior := snNao;
             NaturezaOperacao        := no1;
           end;
 

A tag gerada <endNac> é preenchida, mesmo que eu informe que a Natureza da Operação é exportação de serviço (NaturezaOperacao  := no7) e o Tomador está no Exterior (Tomador.TomadorExterior  := snSim

<toma>

<CPF>...</CPF>

<xNome>...</xNome>

<end>

<endNac>

<cMun>9999999</cMun>

<CEP>99999999</CEP>

</endNac>

<xLgr>...</xLgr>

<nro>2</nro>

<xCpl>...</xCpl>

<xBairro>Portugal</xBairro>

</end>

<email>...</email>

</toma>

[natan.andreolla]

Boa tarde Sérgio, tudo bem?

Estou na mesma situação que a sua.. 

Conseguiu solucionar o problema?

[Juliomar Marchetti]

Vocês pode se orientar pelos fontes. chegaram a abrir eles e ver a lógica da geração?

[Sérgio Caldeira Silva]

Boa noite Juliomar!

Vou procurar a unit e verificar os critérios, grato pela sugestão.