[Gaveta Dinheiro Gerbo]

Daniel Simoes,

 

Desculpe-me a demora. O manual é o mesmo que você indicou. Mas no meu caso só funcionou invertendo a sequencia de comandos.

 

 

Reforço que estou usando apenas o compomente ACBrGAV e este está acessando, naturalmente a unit correspondente ao modelo que é a unit ACBrGAVSerialGerbo.

 

 

A gaveta nova é serial, esta ligada diretamente na serial do windowsXP (COM1).

 

 

Bem Daniel...o meu cliente está feliz da vida... mas tive que inverter a sequencia de comandos...

 

 

O que você acha disso?

[Gaveta Dinheiro Gerbo]

Olá companheiros de labuta,

 

Um cliente comprou a gabeta Gerbo serial. Essa gaveta funciona sozinha e para isso utilizei apenas o componente ACBrGAV,

 

O fato interessante que gostaria de compartilhar é que ela somente funcionou quando ou alterei a unit ACBrGAVSerialGerbo, invertendo a sequencia de comandos confome abaixo:

 

 

procedure TACBrGAVSerialGerbo.Ativar;

begin

  if not fpDevice.IsSerialPort  then

     raise Exception.Create(ACBrStr('Esse modelo de Gaveta requer'+#10+

                            'Porta Serial: (COM1, COM2, COM3, ...)'));

 

  inherited Ativar ; { Abre porta serial }

 

  try

     fpDevice.Serial.DTR := true ;

     fpDevice.Serial.RTS := True ;   // < Inverti aqui, era False

     CalculaProximaAbertura ;

  except

     Desativar ;

     raise

  end ;

end;

 

procedure TACBrGAVSerialGerbo.AbreGaveta;

begin

  Inherited AbreGaveta ;

 

  fpDevice.Serial.RTS := False ;  // Inverti aqui, era True

  Sleep(250) ;

  fpDevice.Serial.DTR := true ;

  fpDevice.Serial.RTS := True ;  // Inverti aqui, era False

  

  CalculaProximaAbertura ;

end;

 

 

Gostaria de saber alguém já enfrentou essa situação e qual a solução.

 

Obrigado pelo espaço.