Xml da Carta de Correcao com erro

pstrahler · 14 Março, 2016

Bom dia,

Mudei recentemente para o repositorio do Trunk2 e passei a ter com problema no xml da Carta de Correcao. Todas as cartas apresentam esse erro abaixo. O processo é feito normalmente com a geracao, impressao e envio por email. Porem quando tento ler o xml com qualquer browse apresenta o seguinte erro (anexo documento) Para resolver isso o cliente é obrigado a baixar o xml da carta de corrrecao no site da receita.

Estou utilizando a mesma funcao da carta de correcao que possui no exemplo do ACBR. Ja atualizei o ACBR porem nao consegui resolver o problema. Vcs poderiam me ajudar no que pode estar errado (anexo a funcao abaixo)

procedure TfrmNfe.BtnCartaClick(Sender: TObject);
var
Chave, idLote, CNPJ, nSeqEvento, Correcao,para,mes_ano : string;
begin
mes_ano := Copy(Vartostr(CdsNota['DT_EMISSAO']),7,4)+Copy(Vartostr(CdsNota['DT_EMISSAO']),4,2)+'\';
ACBrNFe1.Configuracoes.Arquivos.PathEvento := z_cam+mes_ano;

ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromFile(z_cam+mes_ano+VartoStr(CdsNota['CHAVE_NF']));

Chave := Copy(Vartostr(CdsNota['CHAVE_NF']),1,44);
if not(InputQuery('WebServices Eventos: Carta de Correção', 'Chave da NF-e', Chave)) then
     exit;
Chave := Trim(OnlyNumber(Chave));
idLote := '1';
CNPJ := copy(Chave,7,14);
nSeqEvento := '1';
if not(InputQuery('WebServices Eventos: Carta de Correção', 'Sequencial do evento para o mesmo tipo de evento', nSeqEvento)) then
     exit;
Correcao := 'Correção a ser considerada, texto livre. A correção mais recente substitui as anteriores.';
if not(InputQuery('WebServices Eventos: Carta de Correção', 'Correção a ser considerada', Correcao)) then
     exit;

ACBrNFe1.EventoNFe.Evento.Clear;

// ACBrNFe1.EnvEvento.EnvEventoNFe..idLote := StrToInt(idLote) ;
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
Aguarde(frmNfe,'Aguarde. Enviando Carta de Correcao no SEFAZ');

ACBrNFe1.EnviarEvento(StrToInt(idLote));

ACBrNFe1.ImprimirEvento;

MemoResp.Lines.Text := ACBrNFe1.WebServices.EnvEvento.RetWS;
//memoRespWS.Lines.Text := ACBrNFe1.WebServices.EnvEvento.EventoRetorno;
// ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].XXXX
LoadXML(ACBrNFe1.WebServices.EnvEvento.RetWS, WBResposta);

finally
FimAguarde(FrmNfe);
end;

end;

Atenciosamente Paulo

Erro_CCe.docx

Editado 14 Março, 2016 por pstrahler
Inserir o documento