PC Toledo

Enviado: **20 Jun 2005 10:19**

Olá a todos do Fórum, seja o seguinte:

TelaA:= savenv( 0, 0, 24, 79)
Msgbox3d("Aguardando Liberacao...")
DBSETORDER(2)
While Dbseek("B"+strzero(xcod_aut,6))

Enddo
rstenv(telaA)

Preciso colocar uma opção para quando o usuário Pressionar F7 (Set key K_F7 to Liberaca()) entre na tela de Liberação, isto quando a tela de "Aguardando Liberação" estiver sendo exibida, ou seja, quando estiver dentro do While, por favor preciso da ajuda dos senhores.
Abraços, e boa semana a todos.
Marcos

Enviado: **20 Jun 2005 15:47**

Boa Tarde !

Código: Selecionar todos

  While Dbseek("B"+strzero(xcod_aut,6))
      nTecla := inkey()
      if inkey = K_F7
          liberacao()
      endif 
   Enddo

Enviado: **20 Jun 2005 16:27**

Perfeito Dudu, funcionou como eu precisava!
Obrigado pela disponibilidade em me ajudar mais uma vez, sem contar as aulas pelo MSN!
Valeu mesmo,
Marcos.

PC Toledo

Colocar tecla de Atalho dentro de While?

Colocar tecla de Atalho dentro de While?