Cidade Sombrio-SC (Betha) ConsultaLote retorna Cod: X999 - Erro de Conexão: Código da UF: 10 inválido

[Mario Inacio]

Boa tarde.

Estou executando testes pelo Demo e visualmente, o lote enviado está correto, mas gera esse erro ao consultar o Lote.

Estou desde cedo a procura da solução, mas não encontrei nada no Fórum.

O que pode ser?

Requisição
Ambiente: 2
Cidade  : Sombrio/SC
Provedor: Betha Versão: 1.00
 
Método Executado: Enviar Lote
 
Parâmetros de Envio
Numero do Lote: 56
 
Parâmetros de Retorno
Data de Envio : 19/09/2022
Numero do Prot: 159459638270128
Numero da Nota: 
Link          : 
Código Verif. : 
Sucesso       : True
 
 
Método Executado: ConsultarSituacao
 
Parâmetros de Envio
Numero do Prot: 159459638270128
Numero do Lote: 56
 
Parâmetros de Retorno
Situação Lote : 4
Sucesso       : True
 
 
Método Executado: ConsultarLote
 
Parâmetros de Envio
Numero do Prot: 159459638270128
Numero do Lote: 
 
Parâmetros de Retorno
Situação Lote : 
Sucesso       : True
 
Resumo(s):
Numero Nota       : 33
Código Verificação: XILLFCKYX
Numero Rps        : 56
Série Rps         : NF
---------
 
Erro(s):
Código  : X999
Mensagem: Erro de Conexão: Código da UF: 10 inválido
Correção: 
---------
 
NFS-e Numero....: 33
Cod. Verificacao: XILLFCKYX
Prestador.......: ALDUS INFORMATICA LTDA - ME
Tomador.........: INSCRICAO DE TESTE

 

56-env-lot.xml 56-rec.xml 159459638270128-con-lot.xml 159459638270128-con-sit.xml 159459638270128-lista-nfse-con-lot.xml 159459638270128-sit.xml

[Mario Inacio]

O estranho é que consultando o portal da Betha, modo homologação, a Nota esta lá.

[Mario Inacio]

Bom dia.

Alguem já passou por esse erro?

Dessa forma, a NFS-e está registrada na Prefeitura mas no componente retornou erro e não gera o XML.

[Mario Inacio]

Analisando a ConsultaLote verifiquei que o mesmo inclui no XML, a tag OrgaoGerador, que provavelmente é alterada para CodigoMunicipio=1000001 por ser em homologação.

Debugando, o erro de UF inválido é gerado na função TACBrIBGE.ObterCidades, pois chegou a UF como '10'

 

833180577837646-lista-nfse-con-lot.xml

[Italo Giurizzato Junior]

Boa tarde Mario,

Já inclui na minha lista de tarefas para analisar o problema. TK-3078

[Mario Inacio]

Ola Italo.

O problema está no retorno da cidade atribuída pela BETHA como demonstração, alterei a função abaixo pra teste e finalizou corretamente.

procedure TNFSeR_ABRASFv1.LerEnderecoPrestadorServico(const ANode: TACBrXmlNode;
  aTag: string);
var
  AuxNode: TACBrXmlNode;
  xUF: string;
  CodigoIBGE: Integer;
begin
  if not Assigned(ANode) or (ANode = nil) then Exit;

  AuxNode := ANode.Childrens.FindAnyNs(aTag);

  if AuxNode <> nil then
  begin
    with NFSe.Prestador.Endereco do
    begin
      Endereco        := ObterConteudo(AuxNode.Childrens.FindAnyNs('Endereco'), tcStr);
      Numero          := ObterConteudo(AuxNode.Childrens.FindAnyNs('Numero'), tcStr);
      Complemento     := ObterConteudo(AuxNode.Childrens.FindAnyNs('Complemento'), tcStr);
      Bairro          := ObterConteudo(AuxNode.Childrens.FindAnyNs('Bairro'), tcStr);
      CodigoMunicipio := ObterConteudo(AuxNode.Childrens.FindAnyNs('CodigoMunicipio'), tcStr);

      if CodigoMunicipio = '' then
        CodigoMunicipio := ObterConteudo(AuxNode.Childrens.FindAnyNs('Cidade'), tcStr);

      UF := ObterConteudo(AuxNode.Childrens.FindAnyNs('Uf'), tcStr);

      if UF = '' then
        UF := ObterConteudo(AuxNode.Childrens.FindAnyNs('Estado'), tcStr);

      CodigoPais := ObterConteudo(AuxNode.Childrens.FindAnyNs('CodigoPais'), tcInt);
      CEP        := ObterConteudo(AuxNode.Childrens.FindAnyNs('Cep'), tcStr);

      {aqui a variavel CodigoIBGE está recebendo o conteudo DEMO retornado pela Betha}
      CodigoIBGE := StrToIntDef(CodigoMunicipio, 0);

      {Inclui a linha abaixo para testar e finalizou sem problemas, mostrando o preview correto}
      if CodigoIBGE = 1000001 then CodigoIBGE   := 4217709;

      if CodigoIBGE > 0 then
        xMunicipio := ObterNomeMunicipio(CodigoIBGE, xUF);

      if UF = '' then
        UF := xUF;
    end;
  end;
end;

 

[Italo Giurizzato Junior]

Mario,

Mas essa não é uma solução.

[Mario Inacio]

Claro, como mencionei, inclui a linha apenas para testar e ter certeza do local da exceção

[Italo Giurizzato Junior]

Bom dia Mario,

Já esta no SVN uma possível solução para o problema.

Por favor atualize os fontes, reinstale o ACBr e faça novos testes.

[Mario Inacio]

Boa tarde Italo.

Testado e aprovado.

Obrigado pela atenção

[Renato Rubinho]

Boa noite @Mario Inacio

Ainda não temos documentado se todos os serviços nessa versão do provedor Betha estão funcionando.

Pode confirmar se estão funcionando, emissão, cancelando e consultas?

[Mario Inacio]

Boa tarde Renato.

Concluir os testes de emissão, cancelando e consulta, e como usam o Padrão Betha, tudo funcionando perfeitamente.

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

[Renato Rubinho]

Boa noite @Italo Giurizzato Junior

Segue lista de provedotes atualizada com a versão 1.00 do Betha.

Betha 1.00 23/09/2022

Provedores-Implementados.txt