como interromper um Do While teclando Esc

[porter]

ola pessoal, gostaria de saber como faço para interromper um Do While, na rotina abaixo, é feito um processamento e mostrando o contador na function MostraMsg, mas dessa forma nao esta dando certo.

Código: Selecionar todos

DO WHILE OrdWildSeek(cBusca,iif(nPas_= 0,.F.,.t.) ) .and. while MostraMsg()
      registro[nPas_] := RECNO()
ENDDO

Func MostraMsg()
   if inkey() = 27
      return .f.
   endif
   @ 24,00 SAY padc("Procurando Registro => " + LTrim( Str( Recn() ) + " <Esc Interrompe >" ),80)
   return .t.

obrigado.

[Jairo Maia]

Olá Porter,

Altere a primeira linha que está assim:

Código: Selecionar todos

DO WHILE OrdWildSeek(cBusca,iif(nPas_= 0,.F.,.t.) ) .and. while MostraMsg()

Para essa forma:

Código: Selecionar todos

DO WHILE OrdWildSeek(cBusca,iif(nPas_= 0,.F.,.t.) ) .and. MostraMsg()

Ou seja, remova o While que precede MostraMsg(). Acho que é isso.

[porter]

obrigado Jairo, agora deu certo.