Provedor CTAConsult - Retorno emissão RPS

[theiller]

O provedor CTAConsult não retorna o "xml da nota fiscal autorizada", e sim um "xml do protocolo da autorização", foi identificado que existem algumas tags que não estão sendo carregadas, embora existam no xml e no classe de retorno:

• NumeroNota
• Link
• CodigoVerificacao

Segue exemplo do retorno xml em ambiente homologação

Citar

<retornoNfseLote xmlns="http://www.ctaconsult.com/nfse">  <codigoMunicipio>727</codigoMunicipio>  <protocolo>6271131</protocolo>  <autenticacao>    <token>C36D17ABC320D2054E91AD97A46B6BBB</token>  </autenticacao>  <codigoStatus>100</codigoStatus>  <numeroNota>999</numeroNota>  <linkPdfNota>stm.balsas.d2ti.com.br/credenciamento/jsp/visualizacaoNFSe/visualizacaoNFSe.jsf?nf=345</linkPdfNota>  <chaveSeguranca>B75DEFDB15DC2073C0F375F72BE2D918</chaveSeguranca></retornoNfseLote>

Ajuste:

• Fontes\ACBrDFe\ACBrNFSeX\Provedores\CTAConsult.Provider.pas
• TACBrNFSeProviderCTAConsult.TratarRetornoEmitir

      Response.Protocolo := ObterConteudoTag(ANode.Childrens.FindAnyNs('protocolo'), tcStr);
      Response.Situacao := ObterConteudoTag(ANode.Childrens.FindAnyNs('codigoStatus'), tcStr);

      Response.NumeroNota := ObterConteudoTag(ANode.Childrens.FindAnyNs('numeroNota'), tcStr);
      Response.Link := ObterConteudoTag(ANode.Childrens.FindAnyNs('linkPdfNota'), tcStr);
      Response.CodigoVerificacao := ObterConteudoTag(ANode.Childrens.FindAnyNs('chaveSeguranca'), tcStr);

Segue em anexo o fonte atualizado.

CTAConsult.Provider.pas

Editado 1 Dezembro, 2023 por theiller
Algumas palavras incompletas

[Italo Giurizzato Junior]

Boa tarde @theiller,

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

[Italo Giurizzato Junior]

Theiller,

Já esta no SVN.