Painel de líderes

resolvi colocando assim: OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar; if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName,False); try ACBrNFe1.NotasFiscais.Imprimir; ACBrNFe1.NotasFiscais.Imprimir; except on e:execption do showmessage('Erro ao imprimir'+#13+ 'Erro original : '+e.message); end; showmessage('terminou'); end;

anexa a unit modificada!

A unit abaixo ainda está com a declaração antiga: ACBrHTMLtoXML Acusando erro em: NFe.Ide.cNF := ExtrairCodigoChaveAcesso (NFe.infNFe.ID,NFe.infNFe.Versao); Mudado para (Removendo o NFE.infNFe.Versao): NFe.Ide.cNF := ExtrairCodigoChaveAcesso (NFe.infNFe.ID); /*-----------------------------------------------------------------*/ Acusando erro em: NFe.Ide.modelo := StrToInt(copy(SomenteNumeros(NFe.infNFe.ID), 21, 2)); NFe.Ide.serie := StrToInt(copy(SomenteNumeros(NFe.infNFe.ID), 23, 3)); Mudado para: NFe.Ide.modelo := StrToInt(copy(OnlyNumber (NFe.infNFe.ID), 21, 2)); NFe.Ide.serie := StrToInt(copy(OnlyNumber (NFe.infNFe.ID), 23, 3)); *Acabei de atualizar os fontes e mandei limpar toda instalação.