NFS-e Vazante MG

[Vanderlei Soares]

Pessoal Bom dia! Alguém pode me ajudar com essa questão 
Na cidade de Vazante/MG estou com o seguinte problema na Aprovação da NFS-e, componente NFS-eX

Erro(s):
Código  : X999
Mensagem: Erro de Conexão: Erro Interno: 0
Erro HTTP: 200
URL: http://nfsebrasil.net.br/nfse/ws/lote_rps_service.php

[Vanderlei Soares]

Arquivo envio

tm_lote_rps_service.importarLoteRPS.xml

Editado 24 Fevereiro, 2023 por Vanderlei Soares
Arquivo envio

[Renato Rubinho]

Boa tarde,

Está com os fontes atualizados e reinstalou os componentes após a atualização?

Como estão as configurações de ssl e tls.

Confirme se está utilizando TLS1.2

[Vanderlei Soares]

Bom dia, os fontes estão atualizados e estou utilizando TLS 1.2.

[Italo Giurizzato Junior]

Boa tarde Vanderlei,

Você fez alterações no arquivo ACBrNFSeXServicos.ini referente a respectiva cidade, correto?

Poderei nos informar quais foram as alterações?

[Vanderlei Soares]

Boa tarde Ítalo,
No arquivo adicionei o provedor sendo igual a NFSeBrasil.
 

[Italo Giurizzato Junior]

Vanderlei,

Em ambiente de produção tive o seguinte retorno:

Requisição
Ambiente: 1
Cidade  : Vazante/MG
Provedor: NFSeBrasil Versão: 1.00
 
Método Executado: Enviar Lote
 
Parâmetros de Envio
Numero do Lote: 1
 
Parâmetros de Retorno
Data de Envio : 30/12/1899
Numero do Prot: 
Numero da Nota: 
Link          : 
Código Verif. : 
Sucesso       : False
 
Erro(s):
Código  : 
Mensagem: Acesso não permitido, verifique os dados e certifique-se de possuir permissão para a operação.
Correção: 
---------

Em homologação:

Requisição
Ambiente: 2
Cidade  : Vazante/MG
Provedor: NFSeBrasil Versão: 1.00
 
Método Executado: Enviar Lote
 
Parâmetros de Envio
Numero do Lote: 1
 
Parâmetros de Retorno
Data de Envio : 30/12/1899
Numero do Prot: 
Numero da Nota: 
Link          : 
Código Verif. : 
Sucesso       : False
 
Erro(s):
Código  : X999
Mensagem: Erro de Conexão: Erro Interno: 12002
Erro HTTP: 0
URL: http://web1.memory.com.br:81/nfse/ws/lote_rps_service.php
Erro: 12002 - TimeOut de Requisição
Falha Enviando a Requisição. Erro: 12002 - TimeOut de Requisição
Correção: 
---------

O que tudo indica é que o ambiente de homologação esta com problemas.

[Vanderlei Soares]

Boa tarde Ítalo, sobre o problema 'Acesso não permitido, verifique os dados e certifique-se de possuir permissão para a operação.'
é necessário uma liberação por parte do provedor para o envio. estou tentando enviar em Produção que me retorna o problema
Mensagem: Erro de Conexão: Erro Interno: 0 Erro HTTP: 200. 
Enviei um e-mail para o suporte do provedor, estou aguardando um resposta deles.

 

[Vanderlei Soares]

Bom dia Italo, tive que alterar   NFSe.Tomador.Endereco.xMunicipio / NFSe.Tomador.Endereco.CodigoMunicipio.
para conseguir aprovar.

unit NFSeBrasil.GravarXml
function TNFSeW_NFSeBrasil.GerarEnderecoTomador: TACBrXmlNode;
begin

    Result.AppendChild(AddNode(tcStr, '#43', 'CodigoMunicipio', 1, 7, 0,
                                    NFSe.Tomador.Endereco.CodigoMunicipio, DSC_CMUN));

end;

NFSeBrasil.GravarXml.pas

[Italo Giurizzato Junior]

Boa tarde Vanderlei,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-3685

[Italo Giurizzato Junior]

Bom dia Vanderlei,

Já esta no SVN.

[Vanderlei Soares]

Bom dia Italo, emissão ficou ok.
Estou tendo um problema na consulta (ConsultaNFSePorRPS)

function TACBrNFSeXWebserviceNFSeBrasil.TratarXmlRetornado(
  const aXML: string): string;
begin
  Result := inherited TratarXmlRetornado(aXML);

  if Pos('ISO-8859-1', Result) > 0 then
    Result := AnsiToNativeString(Result);

  Result := string(NativeStringToUTF8(Result));
  Result := StringReplace(Result, '&', 'e',[rfReplaceAll]);
  Result := ParseText(AnsiString(Result), True, {$IfDef FPC}True{$Else}False{$EndIf});
  Result := RemoverDeclaracaoXML(Result, True);
  Result := RemoverCDATA(Result);
  Result := RemoverIdentacao(Result);
  Result := RemoverPrefixosDesnecessarios(Result);
  Result := StringReplace(Result, 'R$', '', [rfReplaceAll]);
  Result := StringReplace(Result, '&', '&', [rfReplaceAll]);
end;

Document.LoadFromXml(Response.ArquivoRetorno);

Mesmo com as tratativas está me retornando a mensagem: Erro input is not proper UTF-8, indicate encoding! bytes.

[Vanderlei Soares]

1 hora atrás, Vanderlei Soares disse:

Bom dia Italo, emissão ficou ok.
Estou tendo um problema na consulta (ConsultaNFSePorRPS)

function TACBrNFSeXWebserviceNFSeBrasil.TratarXmlRetornado(
  const aXML: string): string;
begin
  Result := inherited TratarXmlRetornado(aXML);

  if Pos('ISO-8859-1', Result) > 0 then
    Result := AnsiToNativeString(Result);

  Result := string(NativeStringToUTF8(Result));
  Result := StringReplace(Result, '&', 'e',[rfReplaceAll]);
  Result := ParseText(AnsiString(Result), True, {$IfDef FPC}True{$Else}False{$EndIf});
  Result := RemoverDeclaracaoXML(Result, True);
  Result := RemoverCDATA(Result);
  Result := RemoverIdentacao(Result);
  Result := RemoverPrefixosDesnecessarios(Result);
  Result := StringReplace(Result, 'R$', '', [rfReplaceAll]);
  Result := StringReplace(Result, '&', '&', [rfReplaceAll]);
end;

Document.LoadFromXml(Response.ArquivoRetorno);

Mesmo com as tratativas está me retornando a mensagem: Erro input is not proper UTF-8, indicate encoding! bytes.

Bom dia, o problema ocorre neste ponto.

uses ACBrXMLDocument
procedure TACBrXmlDocument.LoadFromXml(AXmlDocument: string);
var
  loadedDoc: xmlDocPtr;
  loadedRoot: xmlNodePtr;
begin
  loadedDoc := xmlParseDoc(PAnsiChar(ansistring(AXmlDocument)));

  if loadedDoc <> nil then
  begin
    xmlFreeDoc(xmlDocInternal);
    xmlDocInternal := loadedDoc;

    loadedRoot := xmlDocGetRootElement(xmlDocInternal);
    if loadedRoot <> nil then
    begin
      xmlRootElement.Free;
      xmlRootElement := TACBrXmlNode.Create(Self, loadedRoot);
    end
    else
      raise EACBrXmlException.Create(xmlGetLastError()^.message);
  end
  else
    raise EACBrXmlException.Create(xmlGetLastError()^.message);
end;

 

[Vanderlei Soares]

Bom dia Italo, efetuei a Aprovação/Consulta por RPS. Talvez não seja a melhor solução... arquivos editados.
ACBrXmlDocument.pasNFSeBrasil.LerXml.pasNFSeBrasil.Provider.pas

[Italo Giurizzato Junior]

Bom dia Vanderlei,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-3699

[Italo Giurizzato Junior]

Boa tarde Vanderlei,

Temos que ter cuidado em alterar as units das classes bases, pois pode gerar um efeito colateral para os demais provedores.

Você tem o XML soap de retorno da consulta para que possamos validar as suas alterações?

[Vanderlei Soares]

Bom dia Italo,
Anexei o retorno
ret.xml

[Italo Giurizzato Junior]

Boa tarde Vanderlei,

Necessito do XML (Soap) de retorno, esse que você anexou não é.

Configure o programa exemplo para salvar os arquivos (soap).

Faça novos testes e anexe os XML (soap) gerados para que possamos validar a sua contribuição.

[alex.mafs]

Bom dia, estou com mesmo problema.  Já atualizei a pasta da Acbr e nada passa nesse provedor proNFSeBrasil.

Alguém me ajuda? 

610640-comp-nfse-soap.xml

[Vanderlei Soares]

2 horas atrás, alex.mafs disse:

Bom dia, estou com mesmo problema.  Já atualizei a pasta da Acbr e nada passa nesse provedor proNFSeBrasil.

Alguém me ajuda? 

610640-comp-nfse-soap.xml 7.47 kB · 0 downloads

Boa tarde, 
Tive que tratar formatação do xml de retorno e alterar os métodos.
(A Consulta para mim Resolveu alterando NFseBrasil.LerXML, NFSeBrasil.Provider).
(A solução não é a mais adequada principalmente no ACBrXmlDocument). (Não consegui anexar o soap de retorno ainda).

TACBrNFSeXWebserviceNFSeBrasil.TratarXmlRetornado

  Result := RemoverCaracteresDesnecessarios(Result);
  Result := StringReplace(Result, '<return xsi:type="xsd:string">', '<return>', [rfReplaceAll]);
  Result := StringReplace(Result, '<Nfse versao="1.0">', '<Nfse>', [rfReplaceAll]);

TNFSeR_NFSeBrasil.LerXmlNfse(const ANode: TACBrXmlNode)

  AuxNode1 := ANode.Childrens.FindAnyNs('xml');
  AuxNode1 := AuxNode1.Childrens.FindAnyNs('CompNfse');

procedure TACBrXmlDocument.LoadFromXml(AXmlDocument: string);
  loadedDoc := xmlParseDoc(PAnsiChar(AnsiToUtf8(AXmlDocument)));

[Italo Giurizzato Junior]

Boa tarde Vanderlei,

Lhe pedi os XML (soap) de retorno para analisar o problema e até hoje você não anexou eles.

Temos que tomar muito cuidado ao alterar as classes bases pois essa alteração pode gerar um efeito colateral com os demais provedores.

A alteração que você fez no LoadFromXml no meu entendimento deve ser realizada no TratarXmlRetornado da unit do provedor em questão.

[alex.mafs]

Boa Tarde Ítalo,  mandei no meu post o  -comp-nfse-soap.xml. 

Mesmo passando no TratarXmlRetornado o erro continua. 

Qual o procedimento correto para esse erro?

620050-comp-nfse-soap.xml

[Italo Giurizzato Junior]

Bom dia Alex,

Executei um teste unitário para realizar a leitura desse arquivo que você anexou, a leitura ocorreu com sucesso sem a necessidade de nenhuma alteração na unit NFSeBrasil.Provider, mais precisamente na função TratarXmlRetornado.

Você esta com todos os fontes de todas as pastas atualizados e o ACBr Reinstalado?

Verifique se não tem nenhuma unit com uma bolinha vermelha em seu ícone, caso afirmativo exclui a unit, atualize e reinstale novamente.

Vanderlei,

Necessito do XML Soap que demostre a necessidade das alterações que você fez, caso contrario não posso aceitar a sua contribuição.

Caso você não esteja conseguindo anexar é porque o limite excedeu, no seu perfil você consegue ver os arquivos que você já anexou e delete os mais antigos.

[SupraMAIS]

Bom dia,

Também estamos com o mesmo problema no retorno. 

mesmo usando o exemplo acbr passamos o protocolo e não temos o retorno.  sendo notas antigas ja autorizadas ou uma nova. 

Para o exemplo também temos que reinstalar novamente?

[Italo Giurizzato Junior]

Bom dia,

Após atualizar os fontes, você tem que reinstalar o ACBr caso contrario as alterações não serão consideradas.

E por fim, compilar a aplicação com a opção Build.