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...') |
(→Sintaxe) |
||
| (Uma revisão intermediária pelo mesmo usuário não está sendo mostrada) | |||
| Linha 2: | Linha 2: | ||
==='''Sintaxe'''=== | ==='''Sintaxe'''=== | ||
| − | EmpresaCorrente; | + | EmpresaCorrente:Integer; |
==='''Exemplos'''=== | ==='''Exemplos'''=== | ||
Edição atual tal como às 08h54min de 7 de fevereiro de 2025
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.
