Mudanças entre as edições de "EmpresaCorrente"
(Criou página com 'A variável '''EmpresaCorrente''' retorna o ID da empresa que está posicionado. ==='''Sintaxe'''=== EmpresaCorrente; ==='''Exemplos'''=== procedure Filtro; var Q:TP...') |
|||
| Linha 2: | Linha 2: | ||
==='''Sintaxe'''=== | ==='''Sintaxe'''=== | ||
| − | EmpresaCorrente; | + | EmpresaCorrente:String; |
==='''Exemplos'''=== | ==='''Exemplos'''=== | ||
Edição das 17h43min de 6 de fevereiro de 2025
A variável EmpresaCorrente retorna o ID da empresa que está posicionado.
Sintaxe
EmpresaCorrente:String;
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.
