Pular para o conteúdo
Início » Advpl ExistChav

Advpl ExistChav

    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