Colocar tecla de Atalho dentro de While?

[Marcos]

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

[Dudu_XBase]

Boa Tarde !

Código: Selecionar todos

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

[Marcos]

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