Find in field

4D v15.4

Find in field


Find in field ( campoAlvo ; valor ) -> Resultado

Parâmetro	Tipo	Descrição
campoAlvo	Campo	Campo Alvo no qual executar a pesquisa
valor	Campo, Variável	valor a procurar
		valor encontrado
Resultado	Inteiro longo	Número do registro encontrado, ou -1 se nenhum registro for encontrado

Descrição

O comando Find in field devolve o número do primeiro registro cujo campoAlvo for igual a valor.
Se não são encontrados registros, Find in field devolve -1.

Depois de chamar este comando, valor contém o valor encontrado. Esta funcionalidade lhe permite realizar pesquisas utilizando o caractere (“@”) em campos tipo Alfa e depois recuperar o valor encontrado.

Nota: Devido a esse princípio, não é possível usar um parâmetro ($1, $2, etc.) em valor porque isso causaria malfuncionamento em modo compilado. Da mesma forma, se você passar um campo no parâmetro valor, lembre que o valor será reatribuido se a pesquisa for bem sucedia (o comando Modified record, em particular, vai retornar True para o registro atual da tabela).

Este comando não modifica a seleção atual nem o registro atual.
Este comando é rápido e muito útil para evitar a criação de entradas duplas durante a entrada de dados.

Nota histórica: Em versões anteriores de 4D, o comando Find in field era chamado Find index key e só funcionava com campos indexados. A partir de 4D v11 SQL, esta limitação se eliminou e o comando foi renomeado.

Exemplo 1

Em um banco de dados de CDs, durante a entrada de dados, suponha que queira verificar o nome do cantor para ver se já existe no banco. Como podem existir homônimos, você quer que o campo [Cantor]Nome seja único. Portanto, no formulário de entrada, pode escrever o código a seguir no método de objeto do campo [Cantor]Nome:

 If(Form event=On Data Change)

    $RecNum:=Find in field([Cantor]Nome;[Cantor]Nome)

    If($RecNum #-1) ` se este nome já tiver sido introduzido

       CONFIRM("Já existe um cantor com o mesmo nome. Deseja ver o registro?";"Sim";"Não")

       If(OK=1)

          GOTO RECORD([Cantor];$RecNum)

       End if

    End if

 End if

Exemplo 2

Este é um exemplo que permite verificar a existência de um valor:

 C_LONGINT($id;$1)

 $id:=$1

 If(Find in field([MyTable]MyID;$id)>=0)

    $0:=True

 Else

    $0:=False

 End if

Tenha em conta >= permite cobrir todos os casos. De fato, a função devolve um número de registro e o primeiro registro tem o número 0.