Epson Impressora Convenio 09 - Escpos - Versao 01.01 - Correção

[amarildolacerda]

Estava utilizando a versão 01.00 da Epson Modelo 800F (Convênio 09) ou brindada...

Usando código EscPos estava na versao 01.00.00 da Epson, funcionava bem... (já havia concluído homologação com cliente)

Na loja, recebemos a versão 01.01.00.... parou tudo, não subia nada...

 

Olhando o ACBr da EscPos e algumas tentativas notei que a 01.01.00 passou a tratar alguns comandos de forma diferente.

 

Segue a alteração para resolver:

 

function TACBrECFEscECF.RetornaInfoECF(Registrador: String): AnsiString;

begin

  if pos('|', Registrador) = 0 then

  begin

    if isEpson and (copy(fsNumVersao,1,4)='0101') then

       Registrador := Registrador + '|0'

    else

       Registrador := Registrador + '|';

  end;

...

..

..

Editado 23 Maio, 2015 por amarildolacerda

[Juliomar Marchetti]

Certo!

ainda não recebi nenhuma ECF com essa atualização, talvez o Daniel Simoes tenha recebido e possa testar para nós!

[Daniel Simoes]

Não dessa versão...

Amarildo, o que mudou ?

O que a modificação visa ?

Notei que o código deixará de funcionar se houver uma nova atualização de versão... (0101 está hardcoded)

[Daniel Simoes]

Alterei o método para sempre adicionar o '|0', quando não houver pipe, a modificação não afetou o funcionamento da Bematech,

Segunda-feira eu testo na Epson 01.00.00

function TACBrECFEscECF.RetornaInfoECF(Registrador: String): AnsiString;
begin
  if Pos('|',Registrador) = 0 then
     Registrador := Registrador + '|0' ;

  EscECFComando.CMD := 26;
  EscECFComando.AddParamString(Registrador);
  EnviaComando;

  Result := EscECFResposta.BRS;
  while (RightStr(Result,1) = '|') do
     Delete( Result, Length(Result), 1 );
end;

[amarildolacerda]

Daniel,

 

Ficou bom a alteração...

Eu só tenho a Epson 01.01.00, não tenho como testar em outro modelo ou versão.

Editado 25 Maio, 2015 por amarildolacerda

[Daniel Simoes]

Testei na Epson TM-T800F 01.00.00 e a alteração não foi incompatível...

 

Já enviei as correções para o SVN... Obrigado Amarildo...

 

-- ACBrEscECF -- [*] Ajuste para compatibilizar com Epson TM-T800F 01.01
    http://www.projetoacbr.com.br/forum/index.php?showtopic=21780