Erro ao enviar CCe após atualização dos fontes

[ridoval]

Bom dia a todos do forum, após atualização do ACBr, meu aplicativo parou de enviar a CCe, o erro apresentado é:

Falha na validação dos dados da carta de correção

Validate failed because the document does not contain exactly one root node.

Já reatualizei os fontes, re-compilei, atualizei meus schemas (da pasta do demo do ACBr), verifiquei no forum e nada do que eu tentei conseguir fazer com que a rotina funcionasse.

Segue o fonte de como estou utilizado na rotina...

DM.NFe.CartaCorrecao.CCe.Evento.Clear;

DM.NFe.CartaCorrecao.CCe.idLote := StrToInt(NumNota) ;

with DM.NFe.CartaCorrecao.CCe.Evento.Add do

begin

if DM.Lojasnfetipoambiente.Value = 'Produção' then

InfEvento.tpAmb := taProducao;

if DM.Lojasnfetipoambiente.Value = 'Homologação' then

InfEvento.tpAmb := taHomologacao;

infEvento.chNFe := ChaveNfe;

infEvento.cOrgao := UFparaCodigo(DM.Lojasuf.Value);

infEvento.CNPJ := DM.Lojascnpj.Value;

infEvento.dhEvento := now;

infEvento.tpEvento := 110110;

DM.Cons_CCe.First;

while not DM.Cons_CCe.Eof do

begin

i := i + 1;

infEvento.nSeqEvento := i;

infEvento.versaoEvento := '1.00';

infEvento.detEvento.descEvento := 'Carta de Correção';

infEvento.detEvento.xCorrecao := DM.Cons_CCejustificativa.Value;

infEvento.detEvento.xCondUso := '';

DM.Cons_CCe.Next;

end;

InfEvento.nSeqEvento := i + 1;

infEvento.versaoEvento := '1.00';

infEvento.detEvento.descEvento := 'Carta de Correção';

infEvento.detEvento.xCorrecao := Correcao;

infEvento.detEvento.xCondUso := '';

end;

if DM.NFe.EnviarCartaCorrecao(StrToInt(NumNota)) then

[Italo Giurizzato Junior]

Boa tarde Ridoval,

A minha sugestão é que você não mais utilize a rotina de envio de carta de correção e passe a utilizar a rotina de envio de eventos.

O que muda?

Em vez de CartaCorrecao coloque EnvEvento

E troque EnviarCartaCorrecao por EnviarEvento

Espero ter ajudado.

[ridoval]

Boa tarde Ítalo.

Alterei meu código do modo que você sugeriu e funcionou perfeitamente.

Obrigado pela ajuda.

[schrsistemas]

Poderia passar o exemplo neste esquema novo, estou totalmente perdido.

[Sérgio Assunção]

Poderia passar o exemplo neste esquema novo, estou totalmente perdido.

Veja no demo do ACBrNFe. Ta facil de entender.

Sérgio

[André Ferreira de Moraes]

Atualize seus fontes e teste novamente.