Descrição
Used [AS] - Determina se há um arquivo de banco de dados em uso na área de trabalho especificada..
|
Sintaxe
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! 😎
