peterson161

Estão faltando informações no envio dos dados do evento. Tente desta maneira: ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(sArquivo); ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.idLote := ; with ACBrNFe1.EventoNFe.Evento.Add do begin InfEvento.tpAmb := ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb; infEvento.CNPJ := ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF; InfEvento.cOrgao := ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF; InfEvento.nSeqEvento := 1; InfEvento.chNFe := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44); InfEvento.dhEvento := Now; InfEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := // Justificativa; InfEvento.detEvento.nProt := ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt; ACBrNFe1.WebServices.EnvEvento.Executar; end; // Retornos iUltimoIndice := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Count - 1; FInfoProtocolo := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[iUltimoIndice].RetInfEvento.nProt; FInfoMotivo := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[iUltimoIndice].RetInfEvento.xMotivo; FInfoStat := IntToStr(ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[iUltimoIndice].RetInfEvento.cStat); FInfoDataHora := DateTimeToStr(ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[iUltimoIndice].RetInfEvento.dhRegEvento);

Ou: InfAdic.Infcpl := Linha1 + ';' + Linha2 + ';' + Linha3 + ';' + Linha4 etc...

Separe as linhas com ponto-vírgula, assim: SuaString := ‘‘ SuaString := SuaString + ‘Linha1 ;‘; SuaString := SuaString + ‘Linha2 ;‘; InfAdic.InfCpl := SuaString;

Utilize o campo InfAdic.InfCpl :=

Veja este tópico:

Abra o Delphi, clique e "Component -> Install Packages. Desça até os itens que começam com a letra "Q", desmarque e apague qualquer referência ao Quick Report. Depois, cesinstale seu Danfe e seu Quick por completo, inclusive apague as BPL's em "C:\Program Files (x86)\Borland\Delphi7\Projects\bpl". Instale novamente SOMENTE o Quick e veja se a palheta dele está lá corretamente com todos os componentes. Estando tudo correto, instale o Danfe_Quick.

Dê uma olhada neste post:

Tente atualizar o seu Quick. Eu utlizo a versão do link e funciona certinho com o Delphi 7: http://mediafire.com/?wksm6489pc9hetn Feito isso, reinstale o componente Danfe_QuickReport. Eu fiz exatamente assim, e funciona perfeitamente.

Veja isto:

Com certeza isso será verificado e caso alguma coisa esteja errada, será corrigida imediamente. Enquanto isso, baixem a pasta schemas atualizada, direto do site da Sefaz: http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=rwylVvLrjQ8=

Seus schemas estão desatualizados. Atualize seu componente e copie a pasta schemas, que está em \Exemplos\ACBrNFe2\Delphi

Atualize seu componente e copie a pasta schemas, que está em: \Exemplos\ACBrNFe2\Delphi\

Se ainda não estiver configurado, configure as pastas de salvamento em: ACBrNFe1.Configuracoes.Arquivos.PathNFe := // ACBrNFe1.Configuracoes.Arquivos.PathCan := // ACBrNFe1.Configuracoes.Arquivos.PathCCe := // ACBrNFe1.Configuracoes.Arquivos.PathInu := // ACBrNFe1.Configuracoes.Arquivos.PathDPEC := // ACBrNFe1.Configuracoes.Arquivos.PathEvento := // ACBrNFe1.Configuracoes.Arquivos.PathMDe := // ACBrNFe1.Configuracoes.Arquivos.Salvar := True; ACBrNFe1.Configuracoes.Arquivos.EmissaoPathNFe := True; No link a seguir tem excelentes instruções de como enviar eventos: http://www.regys.com.br/como-enviar-um-evento-de-cancelamento-utilizando-o-acbrnfe/ Para imprimir os eventos, você deve ter um componente DANFE associado ao componente ACBR. Feito isso, utilize: ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.LerXML({caminho do XML que está salvo na pasta que você configurou}); ACBrNFe1.ImprimirEvento;

Creio que o problema esteja aqui. Debugue e veja qual é a UF que está sendo passada. ACBrNFe.Configuracoes.WebServices.UF := sUF;

Alterações efetuadas. Atualize eu componente e faça os testes. Os detalhamentos específicos que serão mostrados do Danfe ficarão a seu critério. Basta você configurar diretamente no componente para True ou False, conforme figura.

Você agora deve efetuar o cancelamento através de eventos. Veja como no blog do Regys.

Obrigado pelas palavras. Sempre é um prazer fazer algo pela comunidade do forum.

Correção enviada para o SVN. Teste com NF-e's autorizadas, canceladas e NF-e's que tenham carta de correção se possível. Nesta correção, os eventos foram adicionados ao Log da consulta. Agora além das informações da nota fiscal, logo abaixo aparecerão os eventos, conforme figura (caso existam):

Excelente explicação no site do Regys: http://www.regys.com.br/como-enviar-um-evento-de-cancelamento-utilizando-o-acbrnfe/

Agora você deve cancelar utilizando Eventos. Consulte o Demo para saber a maneira correta de cancelar, analisando o código de um dos dois botões: - Cancelamento NFe com XML - Cancelamento NFe pela Chave

Por favor, anexe o XML.

Encontrei o "problema": Versão do Fortes. A minha versão é 3.23_ACBr e a sua é a 3.70. Desinstalei meu Fortes e instalei o 3.70. O problema, que antes não acontecia, passou a acontecer. Fiz uma alteração na impressão dos itens, de modo que fosse obedecida pelas duas versões. Fiz um procedimento parecido, porém foi aplicado no "AfterPrint" do "rlbCabecalhoItens". Já está no SVN. Espero que desta vez isso se resolva em definitivo.

Agora eu acho que o problema foi solucionado. Por desencargo, baixe a unit por aqui mesmo, faça os testes e já me poste o resultado. Caso positivo, subirá definitivamente pro SVN. ACBrNFeDANFeRLPaisagem.pas ACBrNFeDANFeRLPaisagem.pas

Mais dois impostos forma incluídos nesta lei: IOF e Cide. Resta saber se estes dois impostos serão incluídos no Layout na NF-e. 1.) Se forem incluídos, aguardar uma nota técnica; 2.) Se não forem, devemos saber se será obrigatório a exibição destas informções no Danfe ou se somente no XML será suficiente.