cancelando segunda impressao trava tudo

[Rafael jorge]

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.

[Juliomar Marchetti]

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?

[Rafael jorge]

Estou usando fortes.
Vou tentar usando o demo, nao sei se o demo imprime duas vias caso esteja em contigencia.

[Rafael jorge]

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".

 

[Rafael jorge]

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;

 

[Juliomar Marchetti]

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? 

[Rafael jorge]

se cancela algum da a eexception ai no caso no pdv da gente eu deixei sem aviso so uma exception end fazendo nada.
ai resolveu.