PHSYS - Wiki

A variável FilialCorrente retorna uma string da filial que está posicionado.

Sintaxe

FilialCorrente:String;

Exemplos

 procedure Filtro;
  var
    Q:TPHQuery;    
  begin                                                                                                                                                                                                                                                                                                          
    Q := NewPHQuery;                                            
    try
      Q.Add('SELECT * '+
            'FROM CONTRATOS C '+
            'INNER JOIN FILIAIS F ON F.ID = C.FILIAL '+                                                                                                                                  
            'WHERE F.NOME = :FIL ');
      Q.ParamByName('FIL').AsString := FilialCorrente;
      Q.Open;                    
    finally
      Q.Free;                            
    end;            
  end;                   
  begin
    Filtro;                                                         
  end.