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.