Erro ao imprimir nota Fiscal

[bpinformatica]

Boa tarde pessoal, 

Faz dias que estou com problema na impressão da logo da NFe com o Fortes Report, a logo não estava saindo com o tamanho correto. Hoje atualizei o

Acbr e começou dar esse erro.

 

Alguem pode me ajudar?

[Juliomar Marchetti]

Informe passos pra poder simular?

também que tipo e tamanho de arquivo que usou de logo!

[bpinformatica]

Boa tarde Juliomar,

Antes de atualizar pelo próprio exemplo do acbr estava saindo assim

A logo que esta setada acima é

Logo40p.bmp 

[Daniel Simoes]

Como reproduzir o problema, usando o Demo do ACBrNFe ?

[hleorj]

@Daniel Simoes ficou assim o demo.

@bpinformatica.. para fazer outros testes

Inclua as seguintes linhas : 

    if edtLogoMarca.Text <> '' then
      ACBrNFe1.DANFE.Logo := edtLogoMarca.Text;

procedure TForm1.btnImprimirClick(Sender: TObject);
begin
  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);
    if edtLogoMarca.Text <> '' then
      ACBrNFe1.DANFE.Logo := edtLogoMarca.Text;
    ACBrNFe1.NotasFiscais.Imprimir;
  end;
end;

 

[bpinformatica]

Bom dia,

Hoje de manha refiz a instalação do acbr e atualização dos fontes. Na nfe a logo voltou a funcionar normalmente.

Mas ao testar a NFCE começou a acontecer um erro de impressão

Ao analisar o Acess violation deu isso

agora não sei como proceder.

 

Edited November 25, 2015 by bpinformatica
imagem errada

[Daniel Simoes]

Para investigarmos o problema... é fundamental que você forneça um passo a passo, usando os Demos do ACBr...

 

[bpinformatica]

Boa dia Daniel,

No demo do ACBr, pra fazer o teste tive que fazer uma adaptação para imprimir a nfce.

Na função inclui a linha: ACBrNFe1.DANFE.TipoDANFE := tiNFCe; 

procedure TForm1.btnImprimirClick(Sender: TObject);
begin
  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);
    ACBrNFe1.DANFE.TipoDANFE := tiNFCe; //inclui essa linha
    ACBrNFe1.NotasFiscais.Imprimir;
  end;
end;

E no componente ACBrNFe1.Danfe adicionei o  ACBrNFeDANFCeFortes1.

[Daniel Simoes]

Fiz o Teste com o Demo do ACBrNFe, porém a impressão ocorreu sem problemas...

O A.V. que você exibiu, é nos fontes da Unit que gera o QRCode (ACBrDelphiZXingQRCode.pas)... Verifique se todas as pastas do ACBr estão corretamente atualizadas, principalmente a pasta "Terceiros", onde fica essa Unit

[bpinformatica]

Bom dia Pessoal, 

Atualizei meus fontes hoje, e o voltou o erro do  Acess violation na impressão da NFCe.

Uso o FortesReport

[Daniel Simoes]

Como reproduzir usando o Demo do ACBrNFe ?

Acabei de testar usando o Demo fo ACBrNFe, e não fui capaz de reproduzir o problema...