Oi, Salvadori.

Como estou usando o exemplo da Revista 4Developers, existe um pacote (MultiTenantDb.Pkg) onde são feitos os filtros, segue trecho destes filtros só de duas tabelas.
O interessante neste caso é que existem 15 tabelas que usam estes filtros, só duas me deram problemas.rsrsrs


Global_Variable Integer giCurrentTenant


Procedure ConstrainTenantDb Desktop Integer iTenantId
Move iTenantId to giCurrentTenant

Set_Attribute DF_FILE_SQL_FILTER of Centcust.File_Number to (SFormat("Centcust.Id_Empresa = %1" , iTenantId))
Set_Attribute DF_FILE_SQL_FILTER_EQ of Centcust.File_Number to True
Set_Attribute DF_FILE_SQL_FILTER_ACTIVE of Centcust.File_Number to True

Set_Attribute DF_FILE_SQL_FILTER of Clientes.File_Number to (SFormat("Clientes.Id_Empresa = %1", iTenantId))
Set_Attribute DF_FILE_SQL_FILTER_EQ of Clientes.File_Number to True
Set_Attribute DF_FILE_SQL_FILTER_ACTIVE of Clientes.File_Number to True

Grato
Walter