Carta de Correção CCe

[clovisribeiro]

Peço a ajuda dos colegas

Usa A NFe a um ano tudo Ok

Estou implementando a CCe fiz o envio, tudo certo.

Não consigo salvar o XML da CCe e não alterou o XML da NFe correspondente

segue o codigo:

DM.ACBrNFe1.EnvEvento.EnvEventoNFe.Evento.Clear;

DM.ACBrNFe1.EnvEvento.EnvEventoNFe.idLote := StrToInt(VirtualQryNFeNRO_NF.AsString);//idLote

with DM.ACBrNFe1.EnvEvento.EnvEventoNFe.Evento.Add do

begin

infEvento.chNFe := Copy(VirtualQryNFeCHAVE_NFE.AsString,4, Length(VirtualQryNFeCHAVE_NFE.AsString));

infEvento.CNPJ := QryLojaCNPJ.AsString;

infEvento.dhEvento := now;

infEvento.tpEvento := teCCe;

infEvento.nSeqEvento := StrToInt(nSeqEvento);

infEvento.detEvento.xCorrecao := Correcao;

end;

DM.ACBrNFe1.EnviarEventoNFe(StrToInt(VirtualQryNFeNRO_NF.AsString));//idLote

MemoResp.Lines.Text := UTF8Encode(DM.ACBrNFe1.WebServices.EnvEvento.RetWS);

memoRespWS.Lines.Text := UTF8Encode(DM.ACBrNFe1.WebServices.EnvEvento.RetornoWS);

//DM.ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.XML;

LoadXML(MemoResp, WBResposta);

[Italo Giurizzato Junior]

Boa tarde Clovis,

O componente esta configurado para salvar o os arquivos de envio e de retorno?

Lembre-se que existe uma propriedade responsavel por isso.

Segundo, até onde sei, o XML de uma NFe não sofre alteração quando a mesma possui uma CCe.

[bpinformatica]

Eu estou com o seguinte problema, quando transmito retorna o erro 578 "Rejeicao: A data do evento nao pode ser maior que a data do processamento" exemplo do XML que gera:

1

2

2.00

51

128

Lote de Evento Processado

2

2.00

51

578

Rejeicao: A data do evento nao pode ser maior que a data do processamento

51120910894945000158550010000000551000000558

110110

13

2012-09-13T15:07:00-04:00

estou usando os seguintes comandos:

MainForm.NFe.EnvEvento.EnvEventoNFe.Evento.Clear;

MainForm.NFe.EnvEvento.EnvEventoNFe.idLote := qCCe.FieldByName('LOTE').AsInteger; //idLote

with MainForm.NFe.EnvEvento.EnvEventoNFe.Evento.Add do

begin

infEvento.chNFe := qCCe.FieldByName('CHAVE').AsString;

infEvento.CNPJ := qCCe.FieldByName('CNPJ').AsString;

infEvento.dhEvento := now;

If (qCCe.FieldByName('EVENTO').AsString)='110110' then

infEvento.tpEvento := teCCe;

infEvento.nSeqEvento := qCCe.FieldByName('SEQUENCIAL').AsInteger;

infEvento.detEvento.xCorrecao := qCCe.FieldByName('XCORRECAO').AsString;

end;

MainForm.NFe.EnviarEventoNFe(qCCe.FieldByName('LOTE').AsInteger);//idLote

MemoResp.Lines.Text := UTF8Encode(MainForm.NFe.WebServices.EnvEvento.RetWS);

memoRespWS.Lines.Text := UTF8Encode(MainForm.NFe.WebServices.EnvEvento.RetornoWS);

//DM.ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.XML;

LoadXML(MemoResp, WBResposta);

///////////////

vProtocoloCCe:=Copy(MemoRespWS.Text,Pos('',MemoResp.Text)+7,15);

[Angelo Gomes]

Ja foi falado exaustivamente sobre esse erro, mas vamos lá mais uma vez... devido a diferença de alguns minutos entre horario da maquina e do servidor da receita, é necessario sempre mandar a CCe com a data/hora menos 5 minutos. Tinha uma alteração na receita que aplicaria uma tolerância de minutos pra esse problema, mas acho que não entrou em produção ainda.