GETACTIVE()
 Retorna o objeto Get correntemente ativo
------------------------------------------------------------------------------

 Sintaxe

     GETACTIVE() --> objGet

 Retorno

     GETACTIVE() retorna o objeto Get correntemente ativo dentro do READ
     corrente.  Se nao existir READ ativo quando GETACTIVE() for chamado,
     ele retorna NIL.

 Descriçao

     GETACTIVE() é uma funçao de ambiente que fornece acesso ao objeto GET
     ativo durante um READ.  O objeto ativo é aquele que possui foco de
     entrada no instante que GETACTIVE() for chamado.

 Exemplos

     O código a seguir usa uma cláusula WHEN para forçar desvio para uma
     funçao especial de leitura.  Dentro desta funçao, GETACTIVE() é usada
     para recuperar o objeto Get ativo:

     @ 10, 10 GET x
     @ 11, 10 GET y WHEN MyReader()
     @ 12, 10 GET z
     READ

     // Chamada antes que o segundo Get (acima) seja o corrente
     FUNCTION MyReader
        LOCAL objGet               // Para colocar o Get ativo
        objGet := GETACTIVE()      // Recupera GET ativo corrente
        BarCodeRead( objGet )
        RETURN (.F.)               // Faz com que o GET seja saltado no READ

 Arquivos:  Biblioteca CLIPPER.LIB, fonte em Getsys.prg.
 To download this example - click here.

See Also: READMODAL() @...GET READ