Xml CCe

[Djalma Grivol]

Boa tarde!

Ao gerar uma CCe quero pegar o Xml para gravar no banco de dados.

Segue o código.

 

         ACBrNFe1.EventoNFe.Evento.Clear;
         with ACBrNFe1.EventoNFe.Evento.New do
            begin
            infEvento.CNPJ := Cnpj;
            infEvento.chNFe := qNota.FieldByName('nf_cnfe').AsString;
            infEvento.dhEvento := now;
            infEvento.tpEvento := teCCe;
            infEvento.nSeqEvento := nSeq.ToInteger;
            infEvento.detEvento.xCorrecao := Correcao;
            end;

         ACBrNFe1.EnviarEvento(nSeq.ToInteger);
         AssXml := ACBrNFe1.EventoNFe.Evento.Items[0].Xml;
 

Está retornando branco.

Outra pergunta, esse Xml já vem com o protocolo de retorno?

 

[antonio.carlos]

Tópico movido para a área do ACBr Pro, para que o SLA de respostas seja considerado

[Italo Giurizzato Junior]

Boa tarde @Djalma Grivol,

Tente desta forma: 

  AssXML := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento[0].RetInfEvento.XML;

 

[Djalma Grivol]

 

Perfeito.

Só tive que usar a função String() para retirar o Warning "Implicit string cast from 'AnsiString' to 'string"

AssXML := String(ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento[0].RetInfEvento.Xml);

Obrigado!

[antonio.carlos]

Obrigado por reportar.

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