CARTA DE CORREÇÃO - ERRO DE TRANSMISSÃO

[carlos_augusto]

Prezados Companheiros:

Inicialmente gostaria de agradecer antecipadamente sua ajuda e pedir desculpas se porventura estiver perguntando algo que já foi objeto de estudos anteriormente.

Estou desenvolvendo a Carta de Correção da Nota Fiscal Eletrônica, sendo que ao efetuar um teste em regime de HOMOLOGAÇÃO, obtive o seguinte erro após executar o método .EnviarCartaCorrecao :

Falha na validação dos dados da carta de correção

'A Carta de Correcao e disciplinada pelo 1 -A do art. 7 do Convenio S/N. de 15 de dezembro de 1970 e pode ser utilizada para ...'

violates enumeration constraint of 'A Carta de Correção é disciplinada pelo § 1º-A do art. 7º do Convênio S/N,

de 15 de dezembro de 1970 e pode ser utilizada pa...'.

The element '{http://www.portalfiscal.inf.br/nfe}xCondUso' with value 'A Carta de Correcao e disciplinada pelo 1 -A do art. 7 do

Convenio S/N. de 15 de dezembro de 1970 e pode ser utilizada para ...' failed to parse.

Por acaso algum dos companheiros já se deparou com este erro.

Grato pela ajuda

Carlos Augusto

Franca-Sp

[Régys Silveira]

Segue exemplo de como enviar, retirado do demo do ACBrNFe2:

  ACBrNFe1.CartaCorrecao.CCe.Evento.Clear;

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


  with ACBrNFe1.CartaCorrecao.CCe.Evento.Add do

   begin

     infEvento.chNFe := Chave;

     infEvento.cOrgao := StrToInt(codOrgao);

     infEvento.CNPJ   := CNPJ;

     infEvento.dhEvento := now;

     infEvento.tpEvento := 110110;

     infEvento.nSeqEvento := StrToInt(nSeqEvento);

     infEvento.versaoEvento := '1.00';

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

     infEvento.detEvento.xCorrecao := TextoCorrecao;

     infEvento.detEvento.xCondUso := ''; //Informar vazio, o componente vai colocar o texto correto

   end;


  ACBrNFe1.EnviarCartaCorrecao(StrToInt(idLote));


[/code]

[analista.edilson]

Resumindo carlos_augusto você não deve passar o conteúdo para o campo "xCondUso"

observe:

infEvento.detEvento.xCondUso := ''; //Informar vazio, o componente vai colocar o texto correto

[carlos_augusto]

Prezados Companheiros:

Agradeço sua ajuda.

Consegui implementar a Carta de Correção em meu sistema com sucesso.

Um abraço a todos

Carlos

Franca-Sp

[netsolutions]

Bom Galera... Estou terminando de FAzer a Carta de Correção aqui, queria tirar só uma Dúvida

estou fazendo da Seguinte maneira

FrmMenu.ACBrNFe1.CartaCorrecao.CCe.Evento.Clear;

FrmMenu.ACBrNFe1.CartaCorrecao.CCe.idLote := FrmGerenciarNFE.nota1.FieldByName('numero').AsInteger;

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

begin

infEvento.chNFe := FrmGerenciarNFE.nota1.FieldByName('chave_nfe').AsString;

infEvento.CNPJ := CNPJ;

infEvento.dhEvento := now;

infEvento.tpEvento := 110110;

infEvento.nSeqEvento := gerasequencia(FrmGerenciarNFE.nota1.FieldByName('numero').AsInteger); //Aqui eu gero o Auto Increment

infEvento.versaoEvento := '1.00';

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

infEvento.detEvento.xCorrecao := Edtcorrecao.DataBinding.Field.AsString;

infEvento.detEvento.xCondUso := ''; //Informar vazio, o componente vai colocar o texto correto

end;

FrmMenu.ACBrNFe1.EnviarCartaCorrecao(FrmGerenciarNFE.nota1.FieldByName('numero').AsInteger);

MInha Dúvida é em relação ao campo nSeqEvento

estou criando uma sequencia para a mesma nota.. por exemplo se a pessoa efetuar uma correção hoje na nota 512 será a sequencia 1

se ela vier e alterar a nota 512 novamente amanha será a sequencia 2, se ela vier e corrigir a nota 513 em seguida a sequencia será 1

é isso mesmo??

na tag xcorreção o usuario pode descrever a correção com as palavras que ele quiser??

ex: alteracao do endereço do cliente para av rua dos doidos, numero 500

alteracao no cep do destinatario para 14775000

ele escreve como qusier??

Grato!

[Angelo Gomes]

Sim e sim.

[netsolutions]

Angelo Gomes... OBRIGADO!

ACHO QUE TA TUDO NO JEITO ENTÃO RSRSRSR!

[Massao Aihara]

Galera uma duvida...

o IdLote (ACBrNFe1.CartaCorrecao.CCe.idLote) tem que ser o mesmo Nº Lote que enviei a NF-e????

[juaumkiko]

Galera uma duvida...

o IdLote (ACBrNFe1.CartaCorrecao.CCe.idLote) tem que ser o mesmo Nº Lote que enviei a NF-e????

Não

[Warlen Librelon]

Segue exemplo de como enviar, retirado do demo do ACBrNFe2:

  ACBrNFe1.CartaCorrecao.CCe.Evento.Clear;

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


  with ACBrNFe1.CartaCorrecao.CCe.Evento.Add do

   begin

     infEvento.chNFe := Chave;

     infEvento.cOrgao := StrToInt(codOrgao);

     infEvento.CNPJ   := CNPJ;

     infEvento.dhEvento := now;

     infEvento.tpEvento := 110110;

     infEvento.nSeqEvento := StrToInt(nSeqEvento);

     infEvento.versaoEvento := '1.00';

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

     infEvento.detEvento.xCorrecao := TextoCorrecao;

     infEvento.detEvento.xCondUso := ''; //Informar vazio, o componente vai colocar o texto correto

   end;


  ACBrNFe1.EnviarCartaCorrecao(StrToInt(idLote));

Caro Regys,

fiz um teste com esse exemplo e ocorreu um erro na linha de comando enviar carta.

"Não encontrei inicio do URI: ID=."

O que pode ser?

[Warlen Librelon]

Estou com o mesmo erro.

Alguém já descobriu esse problema?

[Régys Silveira]

Poste o XML para darmos uma olhada.

[Warlen Librelon]

Também estou o mesmo erro acima.

"Não encontrei inicio do URI: ID=."

 

Alguém já descobriu a causa?

[Juliomar Marchetti]

Warlen você postou em dois locais, tenha calma que alguém vai ler e ajudar, não vai adiantar criar em vários  locais a mesma pergunta

[Italo Giurizzato Junior]

Bom dia a todos,

 

Acredito que o problema do nosso amigo, é o fato de estar utilizando a rotina antiga "cargacorrecao" em vez de "envioeventos".

[Luciano Manoel Pinto]

Segue exemplo de como enviar, retirado do demo do ACBrNFe2:

 

  ACBrNFe1.CartaCorrecao.CCe.Evento.Clear;
  ACBrNFe1.CartaCorrecao.CCe.idLote := StrToInt(idLote) ;

  with ACBrNFe1.CartaCorrecao.CCe.Evento.Add do
   begin
     infEvento.chNFe := Chave;
     infEvento.cOrgao := StrToInt(codOrgao);
     infEvento.CNPJ   := CNPJ;
     infEvento.dhEvento := now;
     infEvento.tpEvento := 110110;
     infEvento.nSeqEvento := StrToInt(nSeqEvento);
     infEvento.versaoEvento := '1.00';
     infEvento.detEvento.descEvento := 'Carta de Correção';
     infEvento.detEvento.xCorrecao := TextoCorrecao;
     infEvento.detEvento.xCondUso := ''; //Informar vazio, o componente vai colocar o texto correto
   end;

  ACBrNFe1.EnviarCartaCorrecao(StrToInt(idLote));

Olá,

 

segui este exemplo para efetuar a carta de correção, segui também o exemplo que está na pasta do componente e também o exemplo deste link

http://www.regys.com.br/como-enviar-uma-carta-de-correcao-utilizando-o-acbrnfe/

que eu acredito ser do Regys e nos 3 casos não consegui efetuar a carta de correção. Não consito obter retorno do método EnviarEventoNFE. Quando este comando é executado nada acontece, nenhum código após este comando é executado é como se este comando ficase executando, porém o programa é liberado para uso. Alguém, sabe de algum problema parecido e qual a solução?

 

desde já agradeço a atenção