Daruma Fs600 (Fsnumversao = 010400) - Fechacupom

[ivan]

Olá

 

Atualizei os fontes do ACBr e me deparei com uma situação nova com a Daruma FS600.  Ao identificar o consumidor no fechamento do cupom, este não era mais impresso. Isto ocorre apenas com a FS600 onde o fsNumVersao = 010400.   Baixei os manuais da Daruma e esta nova forma de identificar o consumidor não é compatível com esta versão deste modelo.

 

 

Desta forma, fiz uma modificação. Aqui funcionou plenamente.

 

Peço que avaliem e atualizem caso julgarem que está ok.

procedure TACBrECFDaruma.FechaCupom(Observacao: AnsiString; IndiceBMP : Integer);
Var
  Obs, StrConsumidor : AnsiString ;
begin
  Obs := Observacao ;
  if (not Consumidor.Enviado) then
  begin
    try
      AguardaImpressao := True ;
      if (fpMFD) and not(fsNumVersao = '010400') then
      begin
        StrConsumidor := LeftStr(Consumidor.Documento,20) + cDELIMITADOR +
                         LeftStr(Consumidor.Nome,30) + cDELIMITADOR +
                         LeftStr(Consumidor.Endereco,79) + cDELIMITADOR ;

        EnviaComando( FS + 'F' + #240 + StrConsumidor ) ;
      end

      else if fsNumVersao = '2000' then
      begin
        StrConsumidor := PadL( PadL(Consumidor.Documento,27) +
                               PadL(Consumidor.Nome,42)+
                               PadL(Consumidor.Endereco,42), 153) ;

        EnviaComando( ESC + #208 + StrConsumidor ) ;
      end
      else
      begin
        StrConsumidor := PadL(Consumidor.Nome,84) +
                         PadL(Consumidor.Endereco,84) +
                         PadL(Consumidor.Documento,84) ;

        EnviaComando( ESC + #201 + StrConsumidor ) ;
      end ;

      Consumidor.Enviado := True ;
    except
      Obs := Observacao;
    end ;
  end ;

Editado 15 Junho, 2014 por ivan

[Daniel Simoes]

A alteração parece correta...

 

Porém tenho receio de que outros modelos também sejam incompatíveis...  Você poderia entrar em contato com o fabricante e verificar ?

[ivan]

Bom... de acordo com o manual, este comando é compatível somente com os modelos FS600 (010500) e FS700 L/H/M.

 

Estarei entrando em contato com a Daruma amanhã para confirmar isto.  

 

Obrigado !

[ivan]

Ok.. depois de alguns dias, tive a resposta da Daruma...

 

O comando está correto da forma como escrevi.  

 

Porém, eles me alertaram de que esta versão não pode mais ser utilizada. Tem que atualizar para a versão 01.05.00.

[Daniel Simoes]

Apliquei a correção sugerida nos fontes do SVN... Rev:7091

 

Obrigado pela correção