Xml da Carta de Correcao com erro

[pstrahler]

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

[Juliomar Marchetti]

Boa noite

por favor queira anexar o xml que foi gerado!

Obrigado

 

[pstrahler]

Ola Juliomar,

Desculpe, acabei esquecendo de colocar o xml da nfe.

Anexo abaixo

 

Paulo

 

35160303953570000194550010000045031906372569-nfe.xml

[Juliomar Marchetti]

no caso não entendi.. pedi o xml da carta de correção!

 

[pstrahler]

Juliomar,

Erro meu, imaginei que tinha mandado na mensagem o xml da carta. Vou postar os 2 novamente

 

1101103516030395357000019455001000004503190637256901-procEventoNFe.xml

35160303953570000194550010000045031906372569-nfe.xml

[Isaque Pinheiro]

Bom dia

1a veja se os schemas de sua pasta, estão atualizado (iguais) os schemas da pasta do ACBr "..\ACBr\Exemplos\ACBrDFe\Schemas"

2a coisa que não vi no seu código, foi a definição da propriedade cOrgao

HP08 cOrgao E HP06 N 1-1 2 Código do órgão de recepção do Evento. Utilizar a Tabela do IBGE, utilizar 91 para identificar o Ambiente Nacional.