Indicador de SAT em Operação na tela do PDV

[Ricardo Souza 777]

Olá amigos, ja faz algum tempo que não pergunto nada então la vem bomba, mais creio que com a ajuda de vocês vai ser manha. Peço que me perdoem pois estou iniciando em SAT e não tenho muito tempo de programação então se a pergunta parecer óbvia não se irritem ... Quero colocar dois Tshape no meu PDV onde quando o SAT estiver em operação ou seja, na consulta nao existe nenhum erro ele fica verde e se o SAT tiver algum erro ele fica vermelho. A pergunta é... Como eu posso fazer isso usando o componente ? Obrigado desde já pela atenção ...

[Sérgio Assunção]

Veja se ajuda:
 

ACBrSAT.ConsultarSAT;
if ACBrSAT.Resposta.codigoDeRetorno = 8000 then
   Shape1.Brush.Color := clGreen
else Shape1.Brush.Color := clRed;

 

[walter faria]

Bom dia, Sergio
Tem alguma restrição em ficar de tempo em tempo consultar se esta em operação o SAT?

Obrigado

[Ricardo Souza 777]

Deu certo sim Sérgio ... Porém estou sem o SAT fisico da Elgin .. Assim que chegar vou testar ... Mas por hora deu certo sim .. Obrigado desde já ...