Problema no retorno do ACBrIntegrador

[Natanael.Ribeiro]

Estou tendo problemas no retorno do ACBrIntegrador no uso das funções enviarpagamento, enviarstatus e respostafiscal, o TRespostaPagamento retorna normal, com todos os dados necessários, mas dentro do TRespostaPagamento tem o TIntegradorResposta que retorna em branco, nele está o status da operação nos campos Codigo e Valor.

    <IntegradorResposta>
        <Codigo>AP</Codigo>
        <Valor>Arquivo processado</Valor>
    </IntegradorResposta>

só que na função EnviaComando ele está reduzindo o xml, pegando somente essa parte do xml

    </IntegradorResposta>
    <Resposta>
        <IdPagamento>4473915</IdPagamento>
        <Mensagem>Pagamento enviado com sucesso ao validador fiscal! O ID da transação para acompanhar o status e identificá-la no portal de ajustes é 4473915</Mensagem>
        <StatusPagamento>EnviadoAoValidador</StatusPagamento>
    </Resposta>

Linha 294 Result := PegaResposta(RespostaIntegrador); 

eu comecei a passar o retorno completo, e está funcionamento normalmente, até preenchendo os campos do TRespostaPagamento e o TIntegradorResposta.

Linha 294 Result := RespostaIntegrador;

Testei também a função EnviarStatus e RespostaFiscal e também está normal depois da operação.

não entendi porque no arquivo pcnVFPeR foi adicionado a leitura completa do xml, mas na função EnviaComando está reduzindo o xml removendo os campos do IntegradorResposta.

procedure TRespostaPagamentoR.LerXml;
begin
  Leitor.Grupo := Leitor.Arquivo;

  RespostaPagamento.Clear;

  RespostaPagamento.IDPagamento     := Leitor.rCampo(tcInt, 'IDPagamento');
  RespostaPagamento.Mensagem        := Leitor.rCampo(tcStr, 'Mensagem');
  RespostaPagamento.StatusPagamento := Leitor.rCampo(tcStr, 'StatusPagamento');

  RespostaPagamento.IntegradorResposta.LerResposta(Leitor.Arquivo);
end;