Erro ao imprimir extrato com o SatTeste

[Larry]

Boa noite,

 

Compilei e rodei o SatTeste, preenchi todos os parâmetros, gerei e enviei a venda com sucesso.

Para impressão usei o Fortes e selecionei a minha impressora (laser).

Ao clicar em "imprimir extrato venda" o extrato o preview aparece preenchido e corretamente na tela mas ao clicar em imprimir aparece "list index out of bounds (-1)".

Já tentei mudar vários parâmetros mas a mensagem continua.

[Larry]

Já resolvi o problema, estava no Fortes CE. Tive que modificar o fonte.

[Daniel Simoes]

Se você deseja corrigir no repositório do Fortes Ce, talvez seja interessante abrir um Ticket e postar a solução na página deles...

 

[Larry]

Esses dias já baixei tanta coisa que nem lembro mais de onde...

Seria no github.com?

[Juliomar Marchetti]

6 minutos atrás, Larry disse:

Esses dias já baixei tanta coisa que nem lembro mais de onde...

Seria no github.com?

Isso mesmo!

[Buffon]

boa tarde...

 

estou com mesmo prob tem na unit RLPrinters

 

sabem se resolveram ?

[Juliomar Marchetti]

50 minutos atrás, Buffon disse:

boa tarde...

 

estou com mesmo prob tem na unit RLPrinters

 

sabem se resolveram ?

Oi?

Tu já pegou a versão nova do git e atualizou? está em constante correções e implementações igual ao ACBR!

sugiro ir até o git da Fortes Report

[Buffon]

1 hora atrás, Juliomar Marchetti disse:

Oi?

Tu já pegou a versão nova do git e atualizou? está em constante correções e implementações igual ao ACBR!

sugiro ir até o git da Fortes Report

blz...vou verificar a versao atual para baixar...

por enquanto alterei o fonte ...

valew

[Larry]

Boa tarde,

 

No RLPrinters.pas basta comentar as duas linhas conforme abaixo. Mas eu desfiz essa mudança porque após rodar o update pack esse problema é corrigido.

 

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;
//  Printer.PrinterIndex := Min(savedprinterindex, Printer.Printers.Count - 1);
{$EndIf}
end;

[Daniel Simoes]

Para que essa modificação é necessária ? (qual o problema)

Isso já foi sugerido no GitHub (casa do Fortes CE) ?

[Larry]

1 hora atrás, Daniel Simoes disse:

Para que essa modificação é necessária ? (qual o problema)

Isso já foi sugerido no GitHub (casa do Fortes CE) ?

É para a mensagem "list index out of bounds (-1)".

Mas esse erro só ocorre no XE6 antes de rodar o update pack por um bug no vcl.printers.

Após rodar o update o problema é corrido e não é mais necessária essa mudança.

[Daniel Simoes]

parece mais ser um Bug do Delphi...

mas parece que para corrigir, basta comentar a linha "Printer.PrinterIndex := -1;"

precisa verificar como é a implementação de "Printer.Refresh", nessa versão de Delphi... para verificar se realmente precisamos "resetar" o índice com -1

Repare que no Lazarus/FPC, não foi necessário atribuir -1