Boa tarde
Estou tentando implementar a rotina de Carta de Correção num aplicativo desenvolvido em Delphi onde estou fazendo umas manutenções.
Estou utilizando a rotina desenvolvida no Exemplo do AcbrDemo, porém sem sucesso. Ao enviar o lote recebo a mensagem da imagem anexa.
Segue um pedaço do fonte:
ACBrNFe1.NotasFiscais.Clear;
dtmCadastros.qryParametros.Close;
dtmCadastros.qryParametros.Open;
ACBrNFe1.Configuracoes.Certificados.NumeroSerie := dtmCadastros.qryParametrosNFE_CERTIFICADO.AsString;
ACBrNFe1.Configuracoes.Certificados.Senha := dtmCadastros.qryParametrosNFE_SENHA.AsString;
ACBrNFe1.Configuracoes.Arquivos.PathSchemas := 'C:\Sistemas\eCCorp\schemas\';
NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW));
if not(InputQuery('WebServices Eventos: Carta de Correção', 'Chave da NF-e', Chave)) then
exit;
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.NotasFiscais.LoadFromFile('C:\Sistemas\eCCorp\Docs\35170708665312000126550010000001851000001853-nfe.xml',false);
ACBrNFe1.EventoNFe.Evento.Clear;
with ACBrNFe1.EventoNFe.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.Enviar(NumeroLote);
Abraços
