ACBrETQ Tarja na primeira impressão Tlp 2844 e gc420t

[Warquia]

Bom dia @Daniel Simoes, após a atualização na primeira emissão a etiqueta sai completamente preta, após essa primeira impressão o restante imprimir normalmente, fiz um teste no ACBrETIq novo e antigo vir o efeito so acontecer nos novos fontes após a refatoração, 
existe como contornar isso?, tentei ver a diferença entre a versão atinga e nova e não conseguir localizar o ponto em diferença pois a refatoração foi enorme, segue a imagem como exemplo
configurações:
Modelo: etqEpl2
Temperatura: 10
DPI: DPI203
LimparMemoria: True
Equipamentos testado: Zebras TLP2844 e GC420T

[Daniel Simoes]

Faça uma impressão para arquivo, do antigo e depois do novo ( em arquivos diferentes )

Para isso, basta inserir na Porta o nome do arquivo, ex: c:\temp\novo.txt

Com ambos arquivos em mãos, podemos comparar os comandos enviados, com o WinMerge ou algo semelhante 

[Warquia]

Muito obrigado por responder, segue em anexo conforme solicitado.

Att, 

1 ETIQUETA_APOS_REFATORAÇÃO.TXT

2 ETIQUETA_ANTES_REFATORAÇÃO.TXT

2 ETIQUETA_APOS_REFATORAÇÃO.TXT

1 ETIQUETA_ANTES_REFATORAÇÃO.TXT

[MFincotto]

Boa tarde pessoal. Estou enfrentando o mesmo problema aqui, as vezes sai em branco também. 

Não achei nada no fórum.

[Daniel Simoes]

O ACBr é OpenSource... fiquem a vontade para comprar os fontes entre versões anteriores, Debugar e sugerir propostas de mudanças

[Warquia]

Bom dia, segue as classes com correções sugeridas, @Daniel Simoes qualquer coisa me passe o feedback se ficou organizado ou não para poder melhorar nas próximas correções.

Obrigado a todos!

ACBrETQ.pas

ACBrETQClass.pas

[Daniel Simoes]

Notei que a sua estratégia, foi inserir o comando "LimparMemoria"  em TACBrETQClass.ComandosIniciarEtiqueta

Entretanto em TACBrETQ.Imprimir ele já é chamado...

procedure TACBrETQ.Imprimir(Copias: Integer; AvancoEtq: Integer);
var
  wCmd: AnsiString;
begin
  GravarLog('- Imprimir. Copias:'+IntToStr(Copias)+', AvancoEtq:'+IntToStr(AvancoEtq));

  AtivarSeNecessario;

  try
    // Verifica se é necessário IniciarEtiqueta. Só será utilizado quando
    //  o comando não foi enviado manualmente
    if (not (fsEtqInicializada or fsEtqFinalizada)) then
      IniciarEtiqueta;               // <==== VOCE INSERIU AQUI

    // Verifica se ficou um bloco de etiquetas sem ser Finalizado
    if (not fsEtqFinalizada) then
      FinalizarEtiqueta(Copias, AvancoEtq);

    if LimparMemoria then              // <==== JÁ EXISTE AQUI
    begin
      wCmd := fsETQ.ComandoLimparMemoria;
      fsListaCmd.Add(wCmd);
    end; 

 

Como a sua modificação corrige o problema ? Seguindo a sua linha de raciocínio, não deveríamos remover o comando de LimparMemoria de TACBrETQ.Imprimir ?

[Warquia]

Obrigado por responder @Daniel Simoes, o que acontece e que o comando de limparMemoria so estava sendo adicionado no final da impressão, ou seja sempre a primeira impressão ocasionava a tarja preta ou em branco da etiqueta, 
seguindo o logs acima antes da refactoring podemos observar que "limparMemoria" sempre é chamado antes das instruções de impressão;

#Antes do refactoring

D10
N <=========================================================================
R0,0
ZB
A80,28,0,5,1,2,R,"OFERTA     "
A80,136,0,2,1,2,R,"TEMP ARISCO CARNE SECA 57G       "
A80,172,0,2,1,2,R," :UN                             "
A488,28,0,2,1,1,N,"R$"
A520,28,0,5,1,2,N,"3,00"
A488,136,0,1,1,1,N,"7891700202015 16/04/18 12:17"
B480,148,0,E30,2,2,48,N,"7891700202015"
P1

#Depois do refactoring

R0,0
D10
ZB
A80,28,0,5,1,2,R,"OFERTA     "
A80,136,0,2,1,2,R,"TEMP ARISCO CARNE SECA 57G       "
A80,172,0,2,1,2,R," :UN                             "
A488,28,0,2,1,1,N,"R$"
A519,28,0,5,1,2,N,"3,00"
A488,136,0,1,1,1,N,"7891700202015 16/04/18 10:20"
B480,148,0,E30,2,2,56,N,"7891700202015"
P1
N <=========================================================================

Estou a disposição.

[Daniel Simoes]

Obrigado pela Analise e correção... já enviei para o SVN, com pequenos ajustes...

[Warquia]

Obrigado @Daniel Simoes, vou olhar os seu ajustes para poder afinar a codificação na próxima.