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;
