Descrição
(DADOS) EXISTUNICO
Através da função ExistUnico(), é possível verificar se uma operação de inclusão ou alteração em um determinado alias é válida.
A função realiza uma busca na tabela pelos campos existentes na chave única do arquivo (X2_UNICO)
|
Sintaxe
| ExistUnico( <cAlias>, <cExpressao>, <cTitulo>, <lShowHlp> ) |
Parâmetros
| Par |
Nome |
Tipo |
Descrição |
Default |
Obg |
Ref |
01
|
cAlias |
Caracter |
Alias do arquivo de dados no qual a informação será pesquisada e validada |
|
X |
|
| 02 |
cExpressao |
Caracter |
Índice que será utilizado para a pesquisa da expressão no arquivo de dados. Sem xFilial |
|
X |
|
| 03 |
cTitulo |
Caracter |
Título do Help |
|
|
|
| 04 |
lShowHlp |
Boolean |
Caso especificado .T., mostra a mensagem de help ao usuário se a chave verificada já existir no arquivo. Caso contrário, não é mostrada a mensagem de help |
.T. |
|
|
Retorno
| Retorno |
Tipo |
Descrição |
| lRet |
Boolean
|
lValid é .T. caso a chave passada como parâmetro seja válida, isto é, não se encontre no arquivo. Caso contrário, retorna .F.
|
Exemplo
User Function ExistUnico()
Private INCLUI := .T.
MsgInfo( 'ExistUnico: ' + cValtoChar( ExistUnico("SA1", '000001' + '01', 'Ja Existe' ) ) + CRLF + ;
'ExistUnico: ' + cValtoChar( ExistUnico("SA1",'ZZDD11' + 'ZZ', 'Não Existe' ) ) ;
, 'UniversoADVPL' )
Return( Nil )
Resultado
Informações adicionais
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
