NFSeX Softplan - Criação do Serviço de Consulta, por número e por código de verificação

[Ronaldo.Bispo]

Olá tudo bem!

Fiz algumas alterações para consultar NFS-e e baixar o XML que ainda não estavam funcionando.

A consulta da NFS-e retorna uma JSON e não vem o XML . O XML deve ser baixado por outro endpoint.

O ConsultarNFSe irá retornar o JSON com as informações da NFS-e, logo em seguida é usado o ConsultarDFe para baixar o xml. 

function TACBrNFSeXWebserviceSoftPlan.ConsultarDFe(ACabecalho, AMSG: string): string; 

#define a url de acordo com o tpConsulta tcPorCodigoVerificacao ou tcPorNumero
procedure TACBrNFSeProviderSoftPlan.PrepararConsultaNFSe(Response: TNFSeConsultaNFSeResponse); override;
#trata o retorno lendo as informações do JSON e executa o ConsultarDFe para baixar o xml
procedure TACBrNFSeProviderSoftPlan.TratarRetornoConsultaNFSe(Response: TNFSeConsultaNFSeResponse); override;

#prepara a url para baixar o xml da NFS-e
procedure TACBrNFSeProviderSoftPlan.PrepararConsultarDFe(Response: TNFSeConsultarDFeResponse); override;
#Lê e salva o xml que retornou
procedure TACBrNFSeProviderSoftPlan.TratarRetornoConsultarDFe(Response: TNFSeConsultarDFeResponse); override;

...

 

No LerXML, foi alterado para copiar a situação da NFS-e (cancelada/normal) da tag statusNFPSe do XML.

Situacao := ObterConteudo(ANode.Childrens.FindAnyNs('statusNFPSe'), tcInt);

...

 

Em ACBrNFSeXConversao.pas, também foi adicionado o tipo tcPorCodigoVerificacao no enumerador TtpConsulta.

TtpConsulta = (tcPorNumero, tcPorFaixa, tcPorPeriodo, tcServicoPrestado, tcServicoTomado, tcPorCodigoVerificacao);

 

SoftPlan.Provider.pas SoftPlan.LerXml.pas ACBrNFSeXConversao.pas

[Italo Giurizzato Junior]

Boa tarde Ronaldo,

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

[Ronaldo.Bispo]

Tranquilo, muito obrigado.

[Italo Giurizzato Junior]

Bom dia Ronaldo,

Fiz algumas pequenas alterações.

Faça uma cópia das units que você alterou, atualize os fontes, reinstale o ACBr e faça novos testes.

[Ronaldo.Bispo]

Bom dia Italo,

Atualizei e funcionou certinho.

Muito obrigado.

[Juliana Tamizou]

Obrigado por reportar.

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