bolaobom

Bom dia. Tudo certo. Muito obrigado pela ajuda Abraços

Perfeito Ricardo Irei efetuar a alteração e dou um retorno. Obrigado

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

Legal. Muito obrigada marciamagall Abraços

Poxa, era isso mesmo, eu tinha jogado as dll's na minha pasta teste. Obrigado, mais um detalhe, vc usa a ImprimirExtratoCancelamento para imprimir a via do cancelamento?

Perfeito. No meu caso também é Sweda, lógico... rsss... Mas continua com o mesmo erro. Que puxaa.... rsss

Entendi marciamagall, mas no site da sweda só acho o download do EXE inteiro. Não encontro só o download das dll's..

Boa tarde Estou com esse mesmo problema. Baixei as versões atuais das dll's como vc citou marciamagall, mas continua a mesma coisa, consultando o log no software da sweda, a rotina está cancelando o cupom. Eu baixei o software da sweda e copiei as dll's que precisava, foi esse seu procedimento? Abraços