List index out of bounds (-1) ao tentar imprimir o Dande da NF-e

[Gabriel Nilegor]

Olá, consigo visualizar o XML normalmalmente, porém ao clicar em imprimir retorna o erro: List index out of bounds (-1). Pelo que consegui encontrar em outros tópicos pode ser problemas no XML, mas não encontrei nada de errado. No exemplo da ACBr retorna o mesmo erro. Tenho varios XMLs, que estão com o mesmo problema que esse. 

 Agradeço a ajuda.

venda.xml

[Juliomar Marchetti]

Bom é algo ai contigo

fiz teste aqui e foi!

como não disse o que usou fiz o teste com fortes report.

[Gabriel Nilegor]

Juliomar, testei com qualquer outra impressão, mesmo não usando ACBr e o mesmo erro acontece. É um problema no Fortes Report. O pior de tudo é que já removi, instalei novamente ele e mesmo assim não resolveu, têm alguma dica ?

[Juliomar Marchetti]

26 minutos atrás, Gabriel Nilegor disse:

Juliomar, testei com qualquer outra impressão, mesmo não usando ACBr e o mesmo erro acontece. É um problema no Fortes Report. O pior de tudo é que já removi, instalei novamente ele e mesmo assim não resolveu, têm alguma dica ?

Boa noite

olhe que tu deve ter .pas ou .dcu ainda perdido então no micro.

[Wess]

Tu chama a impressão como? É comum ocorrer quando não encontra o arquivo no caminho especificado, mas se ocorre no exemplo também só pode ser algo na máquina, como o Juliomar disse

Editado 30 Junho, 2017 por Wess

[Gabriel Nilegor]

Chamo da seguinte forma:

  ACBrNFe1.NotasFiscais.Clear;
  ACBrNFeDANFeRL1.MostrarPreview := True;
  ACBrNFe1.NotasFiscais.LoadFromString (CDSNfe.FieldByName('NFE_XML').AsString);
  ACBrNFe1.NotasFiscais.Imprimir;

A visualização gera normal, o erro ocorre quando clico em Imprimir conforme a imagem em anexo. O problema é mesmo quando faz a visualização e depois clica em imprimir. Já tentei remover e instalar tudo novamente, e não adianta, o erro persiste. Conseguem talvez me enviar o link para download da instalação do Fortes que estão usando ? 

[RicardoVoigt]

12 minutos atrás, Gabriel Nilegor disse:

Chamo da seguinte forma:

  ACBrNFe1.NotasFiscais.Clear;
  ACBrNFeDANFeRL1.MostrarPreview := True;
  ACBrNFe1.NotasFiscais.LoadFromString (CDSNfe.FieldByName('NFE_XML').AsString);
  ACBrNFe1.NotasFiscais.Imprimir;

A visualização gera normal, o erro ocorre quando clico em Imprimir conforme a imagem em anexo. O problema é mesmo quando faz a visualização e depois clica em imprimir. Já tentei remover e instalar tudo novamente, e não adianta, o erro persiste. Conseguem talvez me enviar o link para download da instalação do Fortes que estão usando ? 

Ola

Por acaso vc esta definindo algum nome de impressora padrao na propriedade impressora ?

Daqui a pouco vc esta definindo um nome de impressora q nao esta mais instalada no windws...

Att

Ricardo

[Gabriel Nilegor]

Olá Ricardo.

Não, o campo Impressora do componente ACBrNFeDANFeRL1 está em branco.

[BigWings]

11 horas atrás, Gabriel Nilegor disse:

Conseguem talvez me enviar o link para download da instalação do Fortes que estão usando ? 

https://github.com/fortesinformatica/fortesreport-ce

[Gabriel Nilegor]

Opa.. é exatamente essa instalação que estou usando. Como consigo debugar o evento que é chamado no botão Imprimir do Fortes Report ? Por que sinceramente não sei mais o que fazer.

[RicardoVoigt]

1 hora atrás, Gabriel Nilegor disse:

Opa.. é exatamente essa instalação que estou usando. Como consigo debugar o evento que é chamado no botão Imprimir do Fortes Report ? Por que sinceramente não sei mais o que fazer.

Ja tentou imprimir direto sem preview pra ver se o erro tambem ocorre ?

Att

Ricardo

[Gabriel Nilegor]

Sem preview imprime normal.

Consegui localizar exatamente a linha do erro, mas pelo que parece é um erro de programação do Fortes Report. Segue abaixo:

procedure TRLPrinterWrapper.Refresh;
{$IfNDef FPC}
var
  savedprinterindex: Integer;
{$EndIf}
begin
  FreeAndNil(FPrinters);
{$IfDef FPC}
  Printer.Refresh;
{$Else}
  savedprinterindex := Printer.PrinterIndex;
  Printer.Refresh;
  Printer.PrinterIndex := -1; // LINHA DO ERRO.
  Printer.PrinterIndex := Min(savedprinterindex, Printer.Printers.Count - 1);
{$EndIf}
end;

 

 Comentei as linhas abaixo e reinstalei o Fortes Report, pois segundo os comentarios de um post, tinha dado certo fazendo isso. Porém pra mim ainda passa pelas linhas e o erro persiste.

  //Printer.PrinterIndex := -1;
  //Printer.PrinterIndex := Min(savedprinterindex, Printer.Printers.Count - 1);

Editado 1 Julho, 2017 por Gabriel Nilegor

[Juliomar Marchetti]

Em 2017-7-1 at 13:28, Gabriel Nilegor disse:

Sem preview imprime normal.

Consegui localizar exatamente a linha do erro, mas pelo que parece é um erro de programação do Fortes Report. Segue abaixo:

procedure TRLPrinterWrapper.Refresh;
{$IfNDef FPC}
var
  savedprinterindex: Integer;
{$EndIf}
begin
  FreeAndNil(FPrinters);
{$IfDef FPC}
  Printer.Refresh;
{$Else}
  savedprinterindex := Printer.PrinterIndex;
  Printer.Refresh;
  Printer.PrinterIndex := -1; // LINHA DO ERRO.
  Printer.PrinterIndex := Min(savedprinterindex, Printer.Printers.Count - 1);
{$EndIf}
end;

 

 Comentei as linhas abaixo e reinstalei o Fortes Report, pois segundo os comentarios de um post, tinha dado certo fazendo isso. Porém pra mim ainda passa pelas linhas e o erro persiste.

  //Printer.PrinterIndex := -1;
  //Printer.PrinterIndex := Min(savedprinterindex, Printer.Printers.Count - 1);

Sobe como sugestão lá no github do fortes report pra avaliar o motivo de ter o -1 e dar problema somente pra ti.

[Gabriel Nilegor]

Olá Juliomar, mas para subir sugestão eu preciso de conta no GitHub certo ? Não teria outra forma de verificar isso com o suporte do Fortes ?

[Juliomar Marchetti]

1 hora atrás, Gabriel Nilegor disse:

Olá Juliomar, mas para subir sugestão eu preciso de conta no GitHub certo ? Não teria outra forma de verificar isso com o suporte do Fortes ?

Que saiba é gratuito o github então é fácil de criar a conta lá

[RicardoVoigt]

Em 01/07/2017 at 13:28, Gabriel Nilegor disse:

Sem preview imprime normal.

Consegui localizar exatamente a linha do erro, mas pelo que parece é um erro de programação do Fortes Report. Segue abaixo:

procedure TRLPrinterWrapper.Refresh;
{$IfNDef FPC}
var
  savedprinterindex: Integer;
{$EndIf}
begin
  FreeAndNil(FPrinters);
{$IfDef FPC}
  Printer.Refresh;
{$Else}
  savedprinterindex := Printer.PrinterIndex;
  Printer.Refresh;
  Printer.PrinterIndex := -1; // LINHA DO ERRO.
  Printer.PrinterIndex := Min(savedprinterindex, Printer.Printers.Count - 1);
{$EndIf}
end;

 

 Comentei as linhas abaixo e reinstalei o Fortes Report, pois segundo os comentarios de um post, tinha dado certo fazendo isso. Porém pra mim ainda passa pelas linhas e o erro persiste.

  //Printer.PrinterIndex := -1;
  //Printer.PrinterIndex := Min(savedprinterindex, Printer.Printers.Count - 1);

Boa tarde

Testou em outros pcs ?

Ja verificou se sua impressora padrao nao esta marcada como offline?

Att

Ricardo

[Gabriel Nilegor]

8 horas atrás, Juliomar Marchetti disse:

Que saiba é gratuito o github então é fácil de criar a conta lá

Para fazer o push no repositório do Fortes solicita uma conta que é paga. A minha gratuita não permite.

5 horas atrás, RicardoVoigt disse:

Boa tarde

Testou em outros pcs ?

Ja verificou se sua impressora padrao nao esta marcada como offline?

Att

Ricardo

Olá.. tentei em dois micros, sendo um com W8 outro com W10, ambos com diferentes impressoras. Testei definindo uma a uma como padrão e não foi. Parece que quando faço a visualização e depois solicito a impressão, não existe impressora. Pois quando vai fazer a chamada da tela de impressão, chega com valor -1, e não com 1 que é o que deveria ir. Mas como para a maioria funciona e pra mim não! Sinceramente não entendo. 

[Juliomar Marchetti]

33 minutos atrás, Gabriel Nilegor disse:

Para fazer o push no repositório do Fortes solicita uma conta que é paga. A minha gratuita não permite.

Em que lugar tu está indo??

https://github.com/fortesinformatica/fortesreport-ce

este é o endereço, tu pode baixa direto ou fazer um fork para sua conta e ele não é pago.

[Gabriel Nilegor]

Em 04/07/2017 at 22:32, Juliomar Marchetti disse:

Em que lugar tu está indo??

https://github.com/fortesinformatica/fortesreport-ce

este é o endereço, tu pode baixa direto ou fazer um fork para sua conta e ele não é pago.

Olá, fiz o envio do pull request relatando o erro atravez do GitHub. Vou aguardar um retorno deles. Testei no terceiro micro e de o mesmo erro. Só resta aguardar mesmo, pois todos os testes possiveis já fiz.

[Juliomar Marchetti]

10 horas atrás, Gabriel Nilegor disse:

Olá, fiz o envio do pull request relatando o erro atravez do GitHub. Vou aguardar um retorno deles. Testei no terceiro micro e de o mesmo erro. Só resta aguardar mesmo, pois todos os testes possiveis já fiz.

Assim que possível irei conferir lá se alguém já não fez.

[alucasce]

Em 12/07/2017 at 07:39, Juliomar Marchetti disse:

Assim que possível irei conferir lá se alguém já não fez.

eae alguma novidade estou com o mesmo erro aqui.

[Juliomar Marchetti]

Em 08/05/2019 at 00:51, alucasce disse:

eae alguma novidade estou com o mesmo erro aqui.

Olha já faz 2 anos que respondi. e depois não houve mais situações.

sugiro criar um tópico novo, anexar xml que ocasionaram o erro e também como reproduzir com o exemplo

fechando esse tópico