SET QUERY DESTINATION

SET QUERY DESTINATION ( tipoDestino {; objetoDestino {; destPonteiro}} )

Parâmetro	Tipo		Descrição
tipoDestino	Integer	→	0 - seleção atual 1 - conjunto 2 - seleção temporária 3 - variável
objetoDestino	Text, Variable	→	Nome do conjunto, ou nome da seleção temporária, ou Variável
destPointer	Pointer	→	Poneiro a variável local se destinação for Tipo=3

Descrição

O comando SET QUERY DESTINATION permite indicar a 4D onde colocar o resultado de todas as pesquisas posteriores para o processo atual.

Especifique o tipo de destino no parâmetro destinoTipo. 4D oferece as seguintes constantes pré-definidas, que são encontradas no tema "Destinos de pesquisa":

Constante	Tipo	Valor
Into current selection	Inteiro longo	0
Into named selection	Inteiro longo	2
Into set	Inteiro longo	1
Into variable	Inteiro longo	3

Você especifica o destino da pesquisa no parâmetro opcional destinoObjeto de acordo com a tabela a seguir:

Parâmetro destinoTipo	Parâmetro destinoObjeto
0 (seleção atual)	Omite o parâmetro
1 (conjunto)	Passa o nome de um conjunto (existente ou a criar)
2 (seleção temporal)	Passa o nome da seleção temporária (existente ou a criar)
3 (variável)	Passa uma variável numérica (existente) ou uma string vazia "" para usar o parâmetro destinoPtr

* Com:

 SET QUERY DESTINATION(Into current selection)

Os registros encontrados pela pesquisa se colocarão na seleção atual da tabela na qual se efetua a pesquisa.

* Com:

 SET QUERY DESTINATION(Into set;"meuConjunto")

Os registros encontrados pela pesquisa se localizarão no conjunto "meuConjunto". A seleção atual e o registro atual da tabela na qual realiza a pesquisa permanecem iguais.

* Com:

 SET QUERY DESTINATION(Into named selection;"minhaSeleçãoTemporária")

Os registros encontrados pela pesquisa se localizarão na seleção temporária "minhaSeleçãoTemporária". A seleção atual e o registro atual para a tabela na que se realiza a pesquisa permanecem iguais.

Notas:

• Se a seleção temporária não existe de antemão, se criará automaticamente ao final da pesquisa.
• Este comando administra as seleções temporárias como o comando CUT NAMED SELECTION: só são conservadas as referências. Uma vez se utiliza a seleção temporal, já não existe.

Com:

 SET QUERY DESTINATION(Into variable;$vlResult)

Nota: com esta sintaxe, a variável $valorResultado deve ter sido definida, senão retorna um erro.

Ou:

 SET QUERY DESTINATION(Into variable;"";->$vlResult)

Nota: este segunda sintaxe facilita o uso conjunto do comando com GET QUERY DESTINATION.

O número de registros encontrado pela pesquisa será localizado na variável $vlResult. A seleção atual e o registro atual para a tabela na que se realiza a pesquisa permanecem iguais.

Advertência: SET QUERY DESTINATION afeta todas as pesquisas seguintes no processo atual. Lembre sempre de compensar uma chamada a SET QUERY DESTINATION(onde destinoTipe#0) com uma chamada a SET QUERY DESTINATION(0) para restaurar o modo de pesquisa padrão.

SET QUERY DESTINATION muda apenas o comportamento dos comandos de pesquisa, ou seja:

• QUERY
• QUERY SELECTION
• QUERY BY EXAMPLE
• QUERY BY FORMULA
• QUERY BY SQL
• QUERY SELECTION BY FORMULA
• QUERY SELECTION WITH ARRAY
• QUERY WITH ARRAY
• QUERY BY ATTRIBUTE
• QUERY SELECTION BY ATTRIBUTE Por outro lado, SET QUERY DESTINATION não afeta outros comandos que modificam a seleção atual da tabela como ALL RECORDS, RELATE MANY, etc.

Exemplo 1

Se cria um formulário que mostra os registros da tabela [Agenda telefônica]. Se cria um objeto de tipo aba chamado asRolodex (com uma aba para cada letra do alfabeto) e um sub-formulário que mostra os registros da tabela [Agenda telefônica]. Ao escolher uma aba, mostra os registros que correspondem á letra.

Em sua aplicação, a tabela [Agenda telefônica] contém um conjunto de dados estáticos, de modo a que não necessita realizar uma pesquisa cada vez que seleciona uma aba. Dessa maneira, pode economizar tempo precioso ao executar as pesquisas.

Para fazer isso, pode redirecionar suas pesquisas nas seleções temporárias para reutilizá-las quando seja necessário. Escreva o método de objeto da aba asRolodex como se indica a continuação:

  // Método de objeto asRolodex
 Case of
    :(FORM Event=On Load)
  // Antes de que o formulário apareça na tela,
  // inicializar o rolodex e o array de booleanos que
  // nos indica se uma pesquisa para a letra correspondente
  // foi realizada ou não
       ARRAY STRING(1;asRolodex;26)
       ARRAY BOOLEAN(abQueryDone;26)
       For($vlElem;1;26)
          asRolodex{$vlElem}:=Char(64+$vlElem)
          abQueryDone{$vlElem}:=False
       End for
 
    :(FORM Event=On Clicked)
  // Quando um usuário faz clique na aba, verificar se a pesquisa correspondente
  // foi realizada ou não
       If(Not(abQueryDone{asRolodex}))
  // Se não, redirecionar a próxima pesquisa a uma seleção temporal
          SET QUERY DESTINATION(Into named selection;"temp")
  // Efetuar a pesquisa
          QUERY([Lista telefônica];[Lista telefônica]Last name=asRolodex{asRolodex}+"@")
  // Restaurar o modo de busca estandarte
          SET QUERY DESTINATION(Into current selection)
  // Utilizar os registros encontrados
          USE NAMED SELECTION("temp")
          COPY NAMED SELECTION([Phone book];"Rolodex+asRolodex{asRolodex})
  // A próxima vez que selecionemos esta letra, não realizaremos a pesquisa novamente
          abQueryDone{asRolodex}:=True
       Else
  // Utilize a seleção temporal existente para mostrar os registros correspondentes à letra selecionada
          USE NAMED SELECTION("Rolodex"+asRolodex{asRolodex}
       End if
 
    :(FORM Event=On Unload)
  // Logo o formulário desaparece da tela
  // Apagar as seleções temporais
       For($vlElem;1;26)
          If(abQueryDone{$vlElem})
             CLEAR NAMED SELECTION("Rolodex"+asRolodex{$vlElem})
          End if
       End for
  // Apagar os dois arrays que já não necessitamos
       CLEAR VARIABLE(asRolodex)
       CLEAR VARIABLE(abQueryDone)
 End case

Exemplo 2

O método de projeto Valores Unicos neste exemplo lhe permite verificar se os valores são únicos para os campos em uma tabela. O registro atual pode ser um registro existente ou um registro novo.

  // Método de projeto Valores Unicos
  // Valores Unicos ( Ponteiro ; Ponteiro { ; Ponteiro... } ) -> Booleano
  // Valores Unicos ( ->Tabela ; ->Campo { ; ->Campo2... } ) -> Yes ou No
 
 var $0 : Boolean
 var ${1} : Pointer
 var $vlCampo;$vlNbCampos;$vlEncontrado;$vlRegistroAtual : Integer
 $vlNbCampos:=Count parameters-1
 $vlRegistroAtual:=Record number($1->)
 If($vlNbCampos>0)
    If($vlRegistroAtual#-1)
       If($vlRegistroAtual<0)
  // O registro atual é um novo registro que não foi guardado (número de registro -3);
  // portanto podemos deter a pesquisa logo que se encontre pelo menos um registro
          SET QUERY LIMIT(1)
       Else
  // O registro atual é um registro existente;
  // portanto podemos deter a pesquisa logo que se encontrem pelo menos dois registros.
          SET QUERY LIMIT(2)
       End if
  // A pesquisa devolverá seu resultado em $vlFound
  // sem mudar o registro atual nem a seleção atual
       SET QUERY DESTINATION(Into variable;$vlFound)
  // Construir a pesquisa de acordo ao número de campos especificados
       Case of
          :($vlNbCampos=1)
             QUERY($1->;$2->=$2->)
          :($vlNbCampos=2)
             QUERY($1->;$2->=$2->;*)
             QUERY($1->;&;$3->=$3->)
          Else
             QUERY($1->;$2->=$2->;*)
             For($vlCampo;2;$vlNbCampos-1)
                QUERY($1->;&;${1+$vlCampo}->=${1+$vlCampo}->;*)
             End for
             QUERY($1->;&;${1+$vlNbCampos}->=${1+$vlNbCampos}->)
       End case
       SET QUERY DESTINATION(Into current selection) // Restaurar o modo de pesquisa padrão
       SET QUERY LIMIT(0) // Não há limites de pesquisas
  // Processar o resultado da pesquisa
       Case of
          :($vlEncontrado=0)
             $0:=True // Não há valores duplicados
          :($vlEncontrado=1)
             If($vlRegistroAtual<0)
                $0:=False // Um registro existente foi encontrado com os mesmos valores que o novo registro
             Else
                $0:=True // Não há valores duplicados, encontramos o mesmo registro
             End if
          :($vlEncontrado=2)
             $0:=False // Qualquer que seja o caso, os valores estão duplicados
       End case
    Else
       If(◊DebugOn) // Não tem sentido; assinale-o durante a versão de desenvolvimento
          TRACE // ATENÇÃO! Este método é chamado sem registro atual
       End if
       $0:=False // Não é possível garantir o resultado
    End if
 Else
    If(◊DebugOn) // Não faz sentido; assinale-o se a versão de desenvolvimento
       TRACE // ATENÇÃO! Este método é chamado sem condição de pesquisa
    End if
    $0:=False // Não posso garantir o resultado
 End if

Depois de implementar este método de projeto em sua aplicação, pode escrever:

  // ...
 If(ValoresUnicos(->[Contatos];->[Contatos]Empresa;->[Contatos]Sobrenome;->[Contatos]Nome))
  // Realize ações apropriadas para o registro que tenha valores únicos
 Else
    ALERT("Já existe um contato com este nome para esta empresa.")
 End if
  // ...

Ver também

GET QUERY DESTINATION
QUERY
QUERY BY EXAMPLE
QUERY BY FORMULA
QUERY BY SQL
QUERY SELECTION
QUERY SELECTION BY FORMULA
QUERY WITH ARRAY
SET QUERY LIMIT