PHSYS - Wiki

A variável EmpresaCorrente retorna o ID da empresa que está posicionado.

Sintaxe

EmpresaCorrente:Integer;

Exemplos

 procedure Filtro;
 var
   Q:TPHQuery;    
 begin                                                                                                                                                                                                                                                                                                          
   Q := NewPHQuery;                                            
   try
     Q.Add('SELECT * '+
           'FROM PRODUTOS '+
           'WHERE EMPRESA = :EMP ');
     Q.ParamByName('EMP').AsLargeInt := EmpresaCorrente;
     Q.Open;                    
   finally
     Q.Free;                            
   end;            
 end;                   
 begin
   Filtro;                                                         
 end.