Carta de Correção Eletônica (CC-e)

[bpinformatica]

Saudações, estou precisando o retorno do protocolo da CC-e.

Faço o envio da seguinte forma:

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

e estou tentando buscar o retorno no numero do protocolo da seguinte forma:

MainForm.NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt;

Porem só me retorna em branco.

É isso mesmo? Estou fazendo Certo?

Att... Murilo Roniclei

[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);

[André Ferreira de Moraes]

Tente colocar no campo infEvento.dhEvento := now; uma hora menor q a atual.