Varios Itens na Carta de Correção Eletronica

[dominioararangua]

Boa noite,

Queria saber se é possivel enviar varias correçoes na carta de correção

Estou fazendo assim:

DM.ACBrNFe1.CartaCorrecao.CCe.Evento.Clear;

DM.ACBrNFe1.CartaCorrecao.CCe.idLote := StrToInt(idLote) ;

envia:= 0;

Application.CreateForm(TFCorrecoes, FCorrecoes); // nesse form insiro as correcoes em um listbox

FCorrecoes.ShowModal;

if FCorrecoes.Tag = 1 then begin

envia:= 1;

sequencia:= dmx.IBNotaFiscalSEQCORRECAO.Value;

for i:= 0 to FCorrecoes.ListBox1.Count- 1 do begin

Sequencia:= Sequencia + 1;

correcao:= FCorrecoes.ListBox1.Items.Strings;

with DM.ACBrNFe1.CartaCorrecao.CCe.Evento.Add do

begin

infEvento.chNFe := Chave;

infEvento.cOrgao := StrToInt(codOrgao);

infEvento.CNPJ := CNPJ;

infEvento.dhEvento := now;

infEvento.tpEvento := 110110;

FCorrecoes.ListBox1.ItemIndex:= FCorrecoes.ListBox1.Items.IndexOf(FCorrecoes.ListBox1.Items.Strings);

infEvento.nSeqEvento := sequencia;

infEvento.versaoEvento := '1.00';

infEvento.detEvento.descEvento := 'Carta de Correção';

infEvento.detEvento.xCorrecao := Correcao;

infEvento.detEvento.xCondUso := ''; //Texto fixo conforme NT 2011.003 - http://www.nfe.fazenda.gov.br/portal/ex ... iloeZ6vBw=

end;

end;

end;

FCorrecoes.Release;

if Envia = 1 then

DM.ACBrNFe1.EnviarCartaCorrecao(StrToInt(idLote));

Nao gera erro nenhum, mas tambem não gera o xml, o xml fica em branco.

Se puderem me ajudar... grato,

Rodrigo

[ricardo_casc]

nSeqEvento : Seqüencial do evento para o mesmo tipo de evento. Para maioria dos eventos será 1, nos casos em que possa existir mais de um evento, como é o caso da carta de correção, o autor do evento deve numerar de forma seqüencial.

Você pode utilizar a mesma CCE várias vezes, sempre incrementando o campo citado acima e tendo 1000 caracteres para cada CCE.

Espero ter ajudado.

[dominioinformatica]

  ricardo_casc disse:

nSeqEvento : Seqüencial do evento para o mesmo tipo de evento. Para maioria dos eventos será 1, nos casos em que possa existir mais de um evento, como é o caso da carta de correção, o autor do evento deve numerar de forma seqüencial.

Você pode utilizar a mesma CCE várias vezes, sempre incrementando o campo citado acima e tendo 1000 caracteres para cada CCE.

Espero ter ajudado.

Obrigado Ricardo,

Pelo que entendi, so da pra enviar uma por vez.

Se estiver errado por gentileza me avisem.

Grato,

Rodrigo

[Mark Apollo]

Galera, se entendi corretamente existe um pequeno erro como estão pensando:

Uma CCe contem todas as correções da NFe, logo, se existem várias correções, as mesmas devem ser enviadas uma única vez, ou seja:

infEvento.detEvento.xCorrecao := [correção 1] + [correção 2] + [correção 3]

porque isso?? simples:

  Citar

O registro de uma nova Carta de Correção substitui a Carta de Correção anterior, assim a nova Carta

de Correção deve conter todas as correções a serem consideradas.

ou seja, se mandarem várias correções, somente a ultima valerá.

Quaisquer dúvidas basta consultar a NT2011.003