Problema com Carta de Correção

[Renata Albergoni]

Olá a todos.

Estou tentando fazer uma CC-e de 4 notas que foram emitidas no dia 17/08/2012.

Consegui fazer de duas notas. As outras duas não faz efeito.

Estou utilizando o comando identico do acbr.

Quando utilizo esse procedimento, pede todos os campos perfeitamente, e exibi a mensagem no final que tudo occorreu bem.

Só que vou consultar a nota, e a carta de correção simplesmente não existe.

O Estranho é que o codigo funcionou para as outras duas notas. As 4 foram emitidas no dia 17/08/2012.

Muito Obrigado a todos

procedure TFmVendaNFE.CartadeCorrecaoClick(Sender: TObject);

var

Chave, idLote, CNPJ, nSeqEvento, Correcao : string;

begin

Try

if not(InputQuery('WebServices Eventos: Carta de Correção', 'Chave da NF-e', Chave)) then

exit;

Chave := Trim(OnlyNumber(Chave));

idLote := '1';

if not(InputQuery('WebServices Eventos: Carta de Correção', 'Identificador de controle do Lote de envio do Evento', idLote)) then

exit;

CNPJ := copy(Chave,7,14);

if not(InputQuery('WebServices Eventos: Carta de Correção', 'CNPJ ou o CPF do autor do Evento', CNPJ)) then

exit;

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.EnvEvento.EnvEventoNFe.Evento.Clear;

ACBrNFe1.EnvEvento.EnvEventoNFe.idLote := StrToInt(idLote) ;

with ACBrNFe1.EnvEvento.EnvEventoNFe.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;

ACBrNFe1.EnviarEventoNFe(StrToInt(idLote));

Except

ShowMessage('Erro ao enviar Carta de Correção.');

EXIT;

end;

end;