Jump to content

dev botao

cancelando segunda impressao trava tudo


  • Este tópico foi criado há 2253 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Quando acontece algum erro, imprimo duas vias do danfe do nfce.
em alguns terminais eu deixo a caixa de dialogo para poder escolher a impressora. se o usuario imprimir o primiro e cancelar o segundo o acbr se perde e entra num loop infinito nao saindo do canto. eu estou mandando o nfe.notafiscais.imprimir; duas vezes quando isso acontece.

Link to comment
Share on other sites

  • Moderadores
45 minutos atrás, Rafael jorge disse:

Quando acontece algum erro, imprimo duas vias do danfe do nfce.
em alguns terminais eu deixo a caixa de dialogo para poder escolher a impressora. se o usuario imprimir o primiro e cancelar o segundo o acbr se perde e entra num loop infinito nao saindo do canto. eu estou mandando o nfe.notafiscais.imprimir; duas vezes quando isso acontece.

Consegue reproduzir usando algum demo do svn? está usando fortes, fast ou escpos?

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link to comment
Share on other sites

15 horas atrás, Juliomar Marchetti disse:

Consegue reproduzir usando algum demo do svn? está usando fortes, fast ou escpos?

para simular o erro.
abra o demo acbrnfe_demo
no evento do botao com titulo "Imprimir DANFE" e mude o codigo para o abaixo:
 

  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.NotasFiscais.Imprimir;
    ACBrNFe1.NotasFiscais.Imprimir;
    showmessage('terminou');
  end;

ai quando ele imprimir o primeiro com caixa de dialogo mende imprimir.
no segundo cancele.
nunca chega no aviso "terminou".

 

Link to comment
Share on other sites

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;

 

  • Like 1
Link to comment
Share on other sites

  • Moderadores
Em 17/03/2018 at 15:44, Rafael jorge disse:

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;

 

No executável não ocorreu mais a exceção? 

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link to comment
Share on other sites

  • Este tópico foi criado há 2253 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.