Limber Software

Olá, pessoal!

Realizei a implementação do Banco Cresol no componente PagFor e estou enviando as alterações feitas nos fontes. Seguem as atualizações realizadas.

Obrigado!
ACBr_PagFor.dpk ACBrPagForProviderManager.pas PagFor.Cresol.GravarTxtRemessa.pas PagFor.Cresol.LerTxtRetorno.pas PagFor.Cresol.Provider.pas

Olá, pessoal!
Realizei a validação de alguns municípios do Paraná e estou enviando as alterações que fiz no arquivo ACBrNFSeXServicos.ini. Seguem as atualizações realizadas:
Municípios Validados:
[4104428]
Nome=Candoi
UF=PR
Provedor=Equiplano
Params=CodigoCidade:7
[4105706]
Nome=Clevelandia
UF=PR
Provedor=IPM
Versao=2.04
ProRecepcionar=https://clevelandia.atende.net/?pg=services&service=WNENotaFiscalEletronicaNfe
[4109658]
Nome=Honorio Serpa
UF=PR
Provedor=IPM
Versao=2.04
ProRecepcionar=https://honorioserpa.atende.net/?pg=services&service=WNENotaFiscalEletronicaNfe
[4115309]
Nome=Mariopolis
UF=PR
Provedor=Pronim
Versao=2.03
ProRecepcionar=http://mariopolis.govbr.cloud/nfse.portal.integracao/services.svc
[4120150]
Nome=Porto Barreiro
UF=PR
Provedor=Equiplano
Params=CodigoCidade:51
Essas alterações foram testadas e estão funcionando conforme esperado. O arquivo ACBrNFSeXServicos.ini foi atualizado para refletir essas mudanças.
Se alguém encontrar algum problema ou tiver sugestões de melhoria, ficarei à disposição para ajustar.
Obrigado!

Durante a homologação do provedor Equiplano, identificamos um problema na função LerXmlRps. O código estava tentando buscar o valor do desconto (vlDesconto) a partir do AuxNode, quando na verdade essa tag está localizada no ANode.
Código antes da correção:
Servico.Valores.DescontoIncondicionado := ObterConteudo(AuxNode.Childrens.FindAnyNs('vlDesconto'), tcDe2);

Código após a correção:
Servico.Valores.DescontoIncondicionado := ObterConteudo(ANode.Childrens.FindAnyNs('vlDesconto'), tcDe2);

Essa correção foi implementada na unidade Equiplano.LerXml.

Equiplano.LerXml.pas

Foi identificado um problema no retorno da NFSe de Bento Gonçalves - RS (IPM). O provedor IPM está retornando apenas um resumo do XML.
Para obter o XML completo, o ACBr possui uma função específica para montar o XML. Este é o XML de retorno da prefeitura de Bento Gonçalves, utilizando o provedor IPM.


 
Verifiquei que a função MontarXMLNFSe verifica se o XML de retorno contém a tag "rps". A partir desta tag, a função gera o XML completo da nota fiscal quando a prefeitura não retorna o XML completo. No nosso caso, o retorno não contém esta tag, impossibilitando a função de montar o XML corretamente.


Alteração realizada:


IPM.Provider.pas