PHSYS - Wiki

Definir o comportamento para desenvolvedores do sistema. Quando o usuário for desenvolvedor de sistema será retorna 'S', senão será retornado 'N'.

Exemplo:

var

Filtro: String;

begin

 // Monta a query condicional
 Filtro := 'SELECT * FROM CLIENTES ' +
           'WHERE 1=1 ' +
           'AND (@DEVSIS = S OR VISIVEL = S)';      // Se não for devsis, só visíveis
 Filtro := ProcessarTokens(Filtro);
 // Executa a consulta final
 DataSet.Close;
 DataSet.SQL.Text := Filtro;
 DataSet.Open;

end;