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

Advpl ExistCpo

    Tipo: Processamento

    Verifica se determinada chave existe no Alias especificado. Função utilizada em processamentos onde o código informado deve existir em determinado cadastro, na sua validação.

    Sintaxe

    ExistCpo(cAlias,cChave,nOrdem)

    Parâmetros

    cAlias – Alias do arquivo para a pesquisa

    cChave – Chave a ser pesquisada (opcional). Se não for informada, o conteú-do

    é obtido automaticamente do GET em uso

    nOrdem – Número da ordem do Índice para Pesquisa (Opcional). Se não for informado, usa a ordem atual do Alias.

    Retorna

    lRet – Retorna Verdadeiro (.T.) se a chave existir no Alias especificado, caso contrário, retorna Falso (.F.) e executa um help padrão do sistema (“REGNOIS”). A ordem utilizada na pesquisa é a atualmente selecionada. Se não for informado, usa a ordem atual do álias.

    Exemplo

    // Exemplo de uso da funcao ExistCpo:

    While .T.

    cProd := Space(15)

    @10,10 Get cProd

    Read

    If LastKey() == 27

    Exit

    Endif

    If !ExistCpo(“SB1”,cProd)

    Loop

    Endif

    Grava() // Funcao generica.

    EndDo

    Return