NFSe - Recuperar Xml de Erro

[Datalogical Informática]

Prezados,

Ao gerar Nota Fiscal de Serviço (NFSe), em especial, utilizando o provedor ISSNET, não estou sabendo recuperar o xml de resposta que gerou o erro. Por exemplo, ao enviar um número de nota (RPS) que já existia, através do método Enviar(), o componente me gerou o seguinte erro: RPS ja informado. Numero do RPS em que ocorreu o erro: 1 etc etc. E gerou o evento abaixo na pasta de log:

================================================= inicio ===========================================================

<?xml version="1.0" encoding="UTF-8"?>

-<ConsultarSituacaoLoteRpsResposta xmlns="http://www.issnetonline.com.br/webserviceabrasf/vsd/servico_consultar_situacao_lote_rps_resposta.xsd">

-<ListaMensagemRetorno>

-<MensagemRetorno>

<Codigo xmlns="http://www.issnetonline.com.br/webserviceabrasf/vsd/tipos_complexos.xsd">E010</Codigo>

<Mensagem xmlns="http://www.issnetonline.com.br/webserviceabrasf/vsd/tipos_complexos.xsd"> RPS ja informado. Numero do RPS em que ocorreu o erro: 1</Mensagem>

<Correcao xmlns="http://www.issnetonline.com.br/webserviceabrasf/vsd/tipos_complexos.xsd">Para essa Inscricao Municipal/CNPJ ja existe um RPS informado com o mesmo numero, serie e tipo.</Correcao>

</MensagemRetorno>

</ListaMensagemRetorno>

</ConsultarSituacaoLoteRpsResposta>

================================================= fim ===========================================================

 

No entanto, não consigo recuperar este xml de erro para gravar em meu bd. Tentei as propriedades abaixo, mas não deu certo.

Alguém consegue dar uma dica?

Marcelo Antunes

[Italo Giurizzato Junior]

Boa tarde Marcelo,

Esse retorno se refere a consulta a situação do lote de RPS que foi enviado.

Não esta previsto um campo que contenha esse XML para que você possa armazena-lo no Banco de Dados.

Só esta previsto a leitura das TAGs que compõe esse XML.

O conteúdo dessas TAGs você pode ler e armazenar os valores lidos em campos no seu Banco de Dados.

Por exemplo:

  with ACBrNFSe1.WebServices.ConsSitLoteRPS.RetSitLote do
  begin
    for i := 0 to InfSit.MsgRetorno.Count -1 do
    begin
      xCodigo := InfSit.MsgRetorno[i].Codigo;
      xMensagem := InfSit.MsgRetorno[i].Mensagem;
      xCorrecao := InfSit.MsgRetorno[i].Correcao;
    end;
  end;

Espero ter ajudado.

[Datalogical Informática]

Obrigado!