Descrição
|
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! 😎