Kelvin.nunes: Criou página com '==='''Exemplos'''=== var Filtro: String; begin // Monta a query condicional Filtro := 'SELECT * FROM CLIENTES ' + 'WHERE 1=1 ' + 'AND (@MO...'

2025-06-05T14:39:33Z

Criou página com '==='''Exemplos'''=== var Filtro: String; begin // Monta a query condicional Filtro := 'SELECT * FROM CLIENTES ' + 'WHERE 1=1 ' + 'AND (@MO...'

Página nova

==='''Exemplos'''===
var
Filtro: String;
begin
// Monta a query condicional
Filtro := 'SELECT * FROM CLIENTES ' +
'WHERE 1=1 ' +
'AND (@MODOEDICAO = ''S'' OR ATIVO = ''S'') ' + // Se não estiver editando, só clientes ativos
'AND (@DEVSIS = ''S'' OR VISIVEL = ''S'')'; // Se não for devsis, só visíveis
// Substitui as variáveis mágicas com a função
Filtro := ProcessarTokens(Filtro);
// Executa a consulta final
DataSet.Close;
DataSet.SQL.Text := Filtro;
DataSet.Open;
end;

Procedimento @MODOEDICAO - Histórico de revisão

Kelvin.nunes: Criou página com '==='''Exemplos'''=== var Filtro: String; begin // Monta a query condicional Filtro := 'SELECT * FROM CLIENTES ' + 'WHERE 1=1 ' + 'AND (@MO...'