Erro Na Carta De Correção.

[Caio Rafael Silva Matias]

Boa tarde pessoal.

 

Procurei em alguns posts do fórum mas não achei nada que pudesse me ajudar. Estou implementando a carta de correção no meu software e está dando o seguinte erro ao executar em modo de produção:

 

TAG:<envEvento xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00"><evento xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00"><infEvento Id="ID1101104212110493698000019055001000000613100000613501"><detEvento versao="1.00"> ID:HP20/xCorrecao()

 

O estranho é que em homologação não dá erro nenhum. Abaixo segue o meu código para olharem. Se alguém souber o que pode ser por favor me avise.

 

 

ACBrNFe.EventoNFe.Evento.Clear;

 

with ACBrNFe.EventoNFe.Evento.Add do begin

  infEvento.chNFe               := wChvEvento;

  infEvento.CNPJ                := fRetornaCampoQualquer('TEMPRESA', 'CODEMP', 'CNPEMP', [dstDadosEMPFIL.AsInteger]);

  infEvento.dhEvento            := wDatEvento;

  infEvento.tpEvento            := teCCe;

  infEvento.nSeqEvento          := wSeqEvento;

  infEvento.detEvento.xCorrecao := wCorEvento;

  infEvento.detEvento.xCondUso  := 'A Carta de Correcao e disciplinada pelo paragrafo 1o-A do art. 7o do Convenio S/N, ' +

                                                     'de 15 de dezembro de 1970 e pode ser utilizada para regularizacao de erro ocorrido na emissao de ' +

                                                     'documento fiscal, desde que o erro nao esteja relacionado com: I - as variaveis que determinam o valor ' +

                                                     'do imposto tais como: base de calculo, aliquota, diferenca de preco, quantidade, valor da operacao ou da ' +

                                                     'prestacao; II - a correcao de dados cadastrais que implique mudanca do remetente ou do destinatario; III - ' +

                                                     'a data de emissao ou de saida.';

end;

 

// Envio da carta de correção

if   ACBrNFe.EnviarEventoNFe(1) then begin

     ...

     with TStringList.Create do begin

       Text := ACBrNFe.WebServices.EnvEvento.RetornoWS;

       SaveToFile(wCaminhoNFe + wNroNFeCompleto + '-ProcCartaCorrecao-' + IntToStr(wSeqEvento) + '.xml');

       Free;

     end;

 

[Juliomar Marchetti]

De cara eu acho que seu problema está

 

detEvento.xCorrecao := wCorEvento;

infEvento.detEvento.xCondUso  := 'A Carta de Correcao e disciplinada pelo paragrafo 1o-A do art. 7o do Convenio S/N, ' +

 

não deveria estar ao contrario???

[Régys Silveira]

Você não deve preencher nada em infEvento.detEvento.xCondUso.

 

Tente remodelar sua rotinas utilizando como exemplo a demonstrada nesse artigo: 

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

 

Verifique também se o seu cliente está liberado para trabalhar em modo de produção.

[Warlen Librelon]

Regys, a linha ACBrNFe1.EventoNFe.Evento.Clear da rotina que enviou está apresentando um erro que a propriedade EventoNfe não foi identificada. Será que está faltando declarar alguma Unit? Ou será atualização de versão?

[Régys Silveira]

Depende, se você estiver em uma versão antiga do ACBr realmente pode acontecer isso, tente primeiro atualizar e recompilar todos os pacotes, uma boa dica e utilizar o ACBrInstall para isso.

[Warlen Librelon]

Regys,

Fiz a atualização como sugeriu, mas ainda persiste o erro.

Tem outra sugestão?

Obrigado

[Italo Giurizzato Junior]

Boa tarde Warlen,

 

Você atualizou os fontes da pasta PCN2?

[Warlen Librelon]

Italo,

O que você considera em atualizar os fontes da pasta PCN2. Penso que ao atualizar o projeto, tudo que preciso estaria atualizado.

Preciso fazer algo manualmente para isso?

 

Obrigado

[Italo Giurizzato Junior]

Bom dia Warlen,

 

Eu lhe perguntei se você atualizou também os fontes da pasta PCN2, porque muitos atualizam somente a pasta ACBrNFe2 acreditando que esta atualizando o componente, mas o componente se utilizada de varios outros fontes espalhados em outras pastas.

 

Agora se você fez uma atualização geral, é preciso verificar se o icone do fonte: ACBrNFe.pas que encontra-se na pasta: ...\Fontes\ACBrNFe2 esta com uma bolinha verde, caso contrario apague esse arquivo e baixe-o novamente.

[Warlen Librelon]

Italo, obrigado pelo retorno.

Fui checar o ícone dos fontes e ele está amarelo. Pq ocorre isso? Pois fiz a atualzação da forma que o Régys orientou. Através do Acbrinstall.

Fiz a atualização tbm direto pelo tortoiseSVN Update. E o ícone continua amarelo. O que deve está ocorrendo?

Valeu

[Italo Giurizzato Junior]

Boa tarde Warlen,

 

Isso ocorre porque existe uma divergencia entre o fonte que você tem e o que encontra-se no repositório e o Tortoise não é capaz de resolver.

 

Logo, exclua todos os arquivos que por ventura estejam com um triangulo amarelo em seu icone e atualizar através do Tortoise ou ACBrInstall.

[Warlen Librelon]

Italo,

Fiz o que recomendeu e agora tenho certeza que os arquivos estão atualizados. Porém tenho uma outra mensagem de erro.

"Falha na validação dos dados do Envio do Evento. Validate failed because the document does not contain exactly on root node"

Parece que é um erro de estrutura de XML. Mas se for isso, como pode ter passado no validador e transmitido sem problemas?

 

valeu

[Warlen Librelon]

Depois de muita briga a atualização deu certo.

Mesmo usando o install, não estava atualizando na pasta interna no delphi. Fiz a cópia manualmente e deu certo.

Obrigado a todos pela boa vontade