Tipo: Processamento
Verifica se a chave já existe em determinado Alias. Função para uso em validações de campos-chave, para não permitir a duplicidade de registros.
Sintaxe
ExistChav(cAlias,cChave,nOrdem,cHelp)
Parametros
cAlias – Alias do arquivo no qual a consistência deve ser avaliada
cChave – Chave para a pesquisa. Opcional. Se não for informada, o conteúdo será automaticamente obtido do GET ativo
nOrdem – Ordem do índice para a pesquisa no Alias. Se não for especificado, será assumida a primeira ordem
cHelp – Opcional chave de help. Se não for informada, o help será o padrão do sistema (“JAGRAVADO”)
Retorna
lRet – Retorna Verdadeiro (.T.) se a chave não existir (o que significa que pode ser usada para incluir um novo registro). Caso contrário, retorna Falso (.F.) e executa um help do sistema.
Exemplo
// Exemplo de uso da funcao ExistChav:
// Pode-se utiliza-la em uma validacao de usuario,
// definada atraves do Configurador:
// Campo -> B1_COD
// Validacao do Usuario -> ExistChav(“SB1”)
// Ou em um AdvPL:
While .T.
cEsp := Space(15)
@ 00,00 Say “Cadastro de Especialidades”
@10,00 Say “Espec.: “ Get cEsp Pict “@!”
Read
If LastKey() == 27
Exit
Endif
If ExistChav(“SZ1”,cEsp,1,”ESPEXIST”)
Loop
Endif
Grava() // Rotina generica
Estude para provas de certificações em TI com os simulados Bynem