ACBrSAT.ConsultarStatusOperacional

[simsoft]

Boa Tarde

 

Sei que minha duvida é ingênua! Mas tipo preciso testar a comunicação com o Sat antes de venda, só que estou simulando aqui desligo o sat e solicito a consulta. Ele fica processando até travar minha maquina. Existe outra opção que eu possa fazer isso?

[Sérgio Assunção]

16 horas atrás, simsoft disse:

Boa Tarde

 

Sei que minha duvida é ingênua! Mas tipo preciso testar a comunicação com o Sat antes de venda, só que estou simulando aqui desligo o sat e solicito a consulta. Ele fica processando até travar minha maquina. Existe outra opção que eu possa fazer isso?

Eu faço assim:
 

ACBrSAT.ConsultarSAT;
if ACBrSAT.Resposta.codigoDeRetorno = 8000 then begin
   SatOk := True;
   lblStatus.Caption := 'SAT EM OPERAÇÃO';
end else begin
SatOk := False;
lblStatus.Caption := 'SAT INOPERANTE';
ShowMessage('ATENÇÃO'+#13+
            'O EQUIPAMENTO SAT ENCONTRA-SE INOPERANTE !'+#13+
            'NÃO SERÁ PERMITIDO O REGISTRO DE VENDAS');
end;

 

[simsoft]

Valeu Muito Obrigado!

 

Fiz assim tambem!!!