Descrição
| Determina se há um arquivo de banco de dados em uso na área de trabalho especificada.. |
Sintaxe
| Used() |
Parâmetros
| Par | Nome | Tipo | Descrição | Default | Obg | Ref |
Retorno
| Retorno | Tipo | Descrição |
| lRet | Boolean |
Retorna verdadeiro (.T.), se existir um arquivo de banco de dados em uso; caso contrário, falso (.F.). |
Exemplo
#INCLUDE "TOTVS.CH"
User Function Used()
Local aRet := {}
dbUseArea( .T. , 'TOPCONN' , RetSqlName("SA1") , "SA1_UA" , .F. , .F. )
aAdd( aRet, Used() )
dbUseArea( .T. , 'TOPCONN' , RetSqlName("ZYZ") , "ZYZ_UA" , .F. , .F. )
aAdd( aRet, Used() )
VarInfo( 'Used', aRet )
Return( Nil )
Resultado
Informações adicionais
|
O padrão é que a função Used() opere na área de trabalho correntemente selecionada. No entanto, pode-se fazê-la operar em uma área de trabalho não selecionada se esta for especificada em uma expressão alias |
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎