Retorno de XML da CCe

[LeandroM]

Boa tarde

Estou com um problema com o retorno do xml da cce.

O xml retornado pelo componente, esta vindo sem essa informação no começo: <?xml version="1.0" encoding="UTF-8" ?>

Pois verifiquei com pessoas que tbm usam o componente e no deles retornam normalmente essa informação.

Segue em anexo o xml retornado.

Estou utilizando o seguinte comando: ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML

Será que falta fazer alguma configuração ?

Fico no aguardo

Obrigado.

 

ID1101104116050452980500018855001000000200100000200201.Xml

[Alexsandro Lopes]

15 horas atrás, LeandroM disse:

Boa tarde

Estou com um problema com o retorno do xml da cce.

O xml retornado pelo componente, esta vindo sem essa informação no começo: <?xml version="1.0" encoding="UTF-8" ?>

Pois verifiquei com pessoas que tbm usam o componente e no deles retornam normalmente essa informação.

Segue em anexo o xml retornado.

Estou utilizando o seguinte comando: ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML

Será que falta fazer alguma configuração ?

Fico no aguardo

Obrigado.

 

ID1101104116050452980500018855001000000200100000200201.Xml

var
 Chave,CNPJ, nSeqEvento, Correcao : string;//idLote,
begin
  //ACBrNFeDANFEFR1.PathPDF:=edtPathCCe.Text;

  ACBrNFeDANFeRL1.PathPDF:=edtPathCCe.Text;

   if not(InputQuery('WebServices Eventos: Carta de Correção', 'Chave da NF-e', Chave)) then
     exit;
  Chave := Trim(OnlyNumber(Chave));

  CNPJ := copy(Chave,7,14);
  if not(InputQuery('WebServices Eventos: Carta de Correção', 'CNPJ ou o CPF do autor do Evento', CNPJ)) then
     exit;
  nSeqEvento := '1';
  if not(InputQuery('WebServices Eventos: Carta de Correção', 'Sequencial do evento para o mesmo tipo de evento', nSeqEvento)) then
     exit;
  Correcao := '';
  if not(InputQuery('WebServices Eventos: Carta de Correção', 'Correção a ser considerada', Correcao)) then
     exit;

  ACBrNFe1.EventoNFe.Evento.Clear;

  with ACBrNFe1.EventoNFe.Evento.Add do
   begin
     infEvento.chNFe := Chave;
     infEvento.CNPJ   := CNPJ;
     infEvento.dhEvento := now;
     infEvento.tpEvento := teCCe;
     infEvento.nSeqEvento := StrToInt(nSeqEvento);
     infEvento.detEvento.xCorrecao := Correcao;
   end;
  try
    ACBrNFe1.EnviarEvento(1);

    ACBrNFe1.ImprimirEvento;

    Resp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.EnvEvento.RetWS);
    RespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.EnvEvento.EventoRetorno);//Voce vai usar esse para ter a resposta da forma que voce quer.
 
  except on E:Exception do
    begin
      MessageDlg(E.message,mtInformation,[mbOk],0);
      exit;
    end;
  end;

tenta assim

Editado 6 Maio, 2016 por Alexsandro Lopes

[LeandroM]

Vou tentar Alexsandro.

Já posto a resposta do resultado.

Obrigado.

[LeandroM]

Alexandro... deu certo.

O comando UTF8Encode resolveu o problema.

Obrigado pela ajuda.