Problema ao Emitir DAV na MP-4200 TH FI

[Jefferson Lupinacci]

Ao Emitir DAV na Impressora MP-4200 TH FI, não está mais finalizando o Relatório Gerencial Exibindo a mensagem de Erro

----------------- ERRO -----------------
Erro retornado pela Impressora: BEMATECH

Categoria: 7-Erro em Relatório Gerencial ou CCD
Motivo: 12-Comando enviado não pode ser executado dentro de CCD
----------------------------------------

Até a Revisão 11483 author dopi, esta imprimindo normalmente e fechando o relatório gerencial, já nesta ultima compilação, esta parando antes do código de barras

Tentei entender o que estava sendo alterado porem ainda sem sucesso

LogECF - Ultima Compilação.txt

Editado 18 Abril, 2016 por Jefferson Lupinacci

[Daniel Simoes]

Como reproduzir o problema, no ECFTeste ?

Vá em frente.. compare os fontes... tente descobrir você mesmo, qual pode ser o problema...

Se desejar sugerir modificações nos fontes do ACBr... anexe as Units modificadas

[Jefferson Lupinacci]

Ok Daniel vou ver aqui o que consigo, pois esta escrito no ultimo Commit do SVN, Metodo "LinhaRelatorioGerencial" Removido workaround aplicado para Bematech e imagino que isso Bugo o DAV

Compilado o ECFTeste, abra um dav, insira um item e acione o Fechar do DAV a impressora ficara esperando eternamente e não imprimirá o código de barras, o log esta anexado

[Daniel Simoes]

Se deseja que eu possa analisar o problema, você deve me fornecer um passo a passo detalhado, de como reproduzi-lo, no ECFTeste

[Jefferson Lupinacci]

Vou Montar o Passo a Passo e o Log

1 minutinho

PASSO A PASSO.pdf

acbrlog.txt

[Daniel Simoes]

O erro não ocorre na minha MP4200-TH FI, versão 01.00.00

o erro também não ocorre no Emulador da MP4200-TH FI

[Juliomar Marchetti]

Marca a opção ignorartagsformatação!

acho que resolve

 

[Daniel Simoes]

Tente a seguinte modificação,em  ACBrECFEscECF.pas, linha: 2113

  Linha := AjustaLinhas( Linha, Colunas, 0, IsBematech );  { Formata as Linhas de acordo com "Coluna" }

 

tópico relacionado:

 

[Jefferson Lupinacci]

Daniel, obrigado agora funcionou perfeitamente. com relação ao meu dispositivo

Estado do Dispositivo: Livre
Data/Hora: 19/04/2016 08:36:15

Número do ECF: 001
Número da Loja: 0001
Modelo: BEMATECH
SubModelo: MP-4200 TH FI II

Usuario Atual: 1
Número de Série MFD:
Número da Versão: 01.00.01

CNPJ: 11111111111111
IE: 11111111111111111111

Número de Reduções Z restantes: 3617

Eu sei que esta é uma pergunta muito vaga, mais existe algum outro lugar que efetua a impressão de relatorio gerencial que poderia testar para ver se ficou tudo ok?

Emitido DAV e DAV-OS com sucesso no ECFTeste.exe

12 horas atrás, Daniel Simoes disse:

Tente a seguinte modificação,em  ACBrECFEscECF.pas, linha: 2113

  Linha := AjustaLinhas( Linha, Colunas, 0, IsBematech );  { Formata as Linhas de acordo com "Coluna" }

 

tópico relacionado:

 

Não fiz a alteração do Juliomar pois a do Daniel já resolveu mais obrigado

13 horas atrás, Juliomar Marchetti disse:

Marca a opção ignorartagsformatação!

acho que resolve

 

 

[Daniel Simoes]

No ECFTeste Lazarus existe uma aba Tags de formatação... Que permite a impressão de texto livre nos gerenciais e testar as Tags...

( não lembro se na versão Delphi existe essa opção )

[flavio80s]

Em 18/04/2016 at 20:35, Daniel Simoes disse:

Tente a seguinte modificação,em  ACBrECFEscECF.pas, linha: 2113

  Linha := AjustaLinhas( Linha, Colunas, 0, IsBematech );  { Formata as Linhas de acordo com "Coluna" }

 

tópico relacionado:

 

Boa tarde senhores!

 

A correção comitada na revisão 11657 só resolve se passar um LinhaRelatorioGerencial(' ') (com  espaço em branco), pois dentro da função AjustaLinhas na ACBrUtil só faz o tratamento com PadRight se o Length(VTexto) > 0 no while.

Nós sempre usamos LinhaRelatorioGerencial('') (sem espaço em branco) sem problemas antes e quando atualizamos o ACBr começou a dar esse problema.

Fizemos uma correção no fim da função AjustaLinhas da ACBrUtil, onde:

{ Permitir impressão de uma linha em branco }
if Result = '' then
  Result := Result + #10;

ficando assim:

{ Permitir impressão de uma linha em branco }
if Result = '' then
begin
  if PadLinhas then
    Result := Result + PadRight(Linha, Colunas) + #10
  else
    Result := Result + #10;
end;

que resolveu nosso problema.

Solicito que seja incorporado ao codigo do ACBr.

[Juliomar Marchetti]

Anexe o arquivo

[flavio80s]

ACBrUtil.pas

[Daniel Simoes]

Obrigado pela sugestão...

Apliquei modificações no SVN, baseado no código proposto...