Melhorias No Acbretq - Pplb

[AlexandreADC]

A melhoria que fizemos foi a adição de um parâmetro "EnviarImpressora" na procedure "Imprimir", para que possa mandar para o componente várias etiquetas, antes de enviar o comando final para a impressora...

 

Pois antigamente a cada Imprimir demorava cerca de 3s a cada chamada, e era ruim ficar calculando a posição Y a cada etiqueta para mandar só no final, porque no nosso caso são impressas 200+ etiquetas por vez...

 

Segue em anexo as modificações feitas

acbrEqt.rar

[Daniel Simoes]

Não compreendi a necessidade das modificações....

 

Não seria apenas, não chamar "ACBrETQ.Imprimir" dentro do loop de sua aplicação ??

[AlexandreADC]

Certo, mas se eu deixar fora do loop, a impressora endente como se todos os comandos fossem somente de 1 etiqueta...

 

Daí tem que ficar calculando a posição Y, somando a cada etiqueta...

[AlexandreADC]

Com 100 etiquetas é quase impossível que a centéssima saia na posição certa

[Daniel Simoes]

Compreendo...

 

Mas nesse caso, estamos inserindo vários comandos na memória...  qual será o efeito prático da Impressão no equipamento ?

 

Ele imprime todas as etiquetas (de várias linhas) até o recebimento do Imprimir ?

[AlexandreADC]

Ele só vai imprimir quando passar o parâmetro EnviarImpressora = TRUE

 

Colocando os comandos de cabeçalho a cada etiqueta, a impressora identifica que é uma etiqueta (com várias cópias ou não) que vai ser impressa com aqueles comandos que tinha sido passado para o componente.

Se eu acumular esses comandos e enviar tudo de uma vez para a impressora, ela vai saber quantas etiquetas eu preciso e se precisa cortar elas ou não. Se eu seguir conforme sua indicação, a impressora nunca saberia o momento de cortar (caso tivesse essa funcionalidade), porque acha que todos comandos são de 1 etiqueta só.

 

 

Fizemos a alteração para que não dê impacto para os demais desenvolvedores, porque EnviarImpressora é DEFAULT True.

[EliasCesar]

Boa tarde,

Estou efetuando alguns testes com as alterações propostas. Assim que concluir postarei os resultados.

[EliasCesar]

Efetuei os testes com as alterações e realmente a opção de podermos enviar um bloco com vários comandos de impressão diminuiu bastante o tempo em que a impressora demora para imprimir.

 

Em conversa com Daniel, adotamos um método um pouco diferente para implementar essa rotina. Foram criadas duas novas procedures: IniciarEtiqueta e FinalizarEtiqueta, que são responsáveis por enviar os comandos de inicialização e finalização de cada etiqueta a ser impressa. Dessa maneira, o comando Imprimir(Copias; AvancoEtq) continuará sendo utilizado apenas quando realmente houver a intenção de enviar uma impressão.

 

As modificações já estão disponíveis. Foi incluído um modelo de como utilizar as novas rotinas no exemplo do ACBrETQ(ETQTeste), que também já está disponível.

[AlexandreADC]

Efetuei os testes com as alterações e realmente a opção de podermos enviar um bloco com vários comandos de impressão diminuiu bastante o tempo em que a impressora demora para imprimir.

 

Em conversa com Daniel, adotamos um método um pouco diferente para implementar essa rotina. Foram criadas duas novas procedures: IniciarEtiqueta e FinalizarEtiqueta, que são responsáveis por enviar os comandos de inicialização e finalização de cada etiqueta a ser impressa. Dessa maneira, o comando Imprimir(Copias; AvancoEtq) continuará sendo utilizado apenas quando realmente houver a intenção de enviar uma impressão.

 

As modificações já estão disponíveis. Foi incluído um modelo de como utilizar as novas rotinas no exemplo do ACBrETQ(ETQTeste), que também já está disponível.

 

Obrigado pela contribuição Elias, assim que pudermos testaremos sua implementação.