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