Procedure UI_FiltroEspecial(AoAbrir,Filtro_Carteirinha,Filtro_Cliente,Filtro_Contratante,Filtro_Empresa,Filtro_Profissional)

sCodigo is string = [
select * from t001_clientes a
where a.T001_empresa in (@Empresas@)
]


IF Filtro_Empresa = "" OR Filtro_Empresa = "TODAS"
sCodigo = Replace(sCodigo,"@Empresas@",gsProfissionalXEmpresas) //combo para escolher =
ELSE IF Filtro_Empresa <> "" AND Filtro_Empresa <> 0
sCodigo = Replace(sCodigo,"in (@Empresas@)"," = "+ ExtractString(Filtro_Empresa,1,TAB,FromBeginning) )
END


IF Filtro_Carteirinha <> "" AND Filtro_Carteirinha <> 0 // =

sCodigo += " and a.T001_ID_USUARIO = "+Filtro_Carteirinha

END

IF Filtro_Cliente <> "" AND Filtro_Cliente <> 0 // contem // like // = //adriano

sCodigo += " and a.T001_NOME like '%"+Filtro_Cliente+"%'"

ELSE IF Filtro_Cliente <> "" THEN // contem // like // = //adriano

sCodigo += " and a.T001_NOME contem '%"+Filtro_Cliente+"%'"

ELSE IF Filtro_Cliente <> "" THEN // contem // like // = //adriano

sCodigo += " and a.T001_NOME = "+Filtro_Cliente

END

IF Filtro_Contratante <> "" AND Filtro_Contratante <> 0 // combo que vai digitar e filtrar // as vezes é o cliente ou a empresa que comprou o plano wx

sCodigo += " and a.T001_CONTRATANTESID = "+Filtro_Contratante

END

IF Filtro_Profissional <> "" AND Filtro_Profissional <> 0 // combo que vai digitar e filtrar

sCodigo += " and a.T001_PROFI_RESPONSAVEL = "+Filtro_Profissional

END

TableDeleteAll(TABLEGRID_T001_CLIENTES)

x is 8-bytes int

dsQuery01 is Data Source

IF HExecuteSQLQuery(dsQuery01,hQueryDefault,sCodigo) = True THEN

HourGlass(True)

ToastDisplay("Carregando...",toastLong,vaMiddle,haCenter,RGB(51,102,153))

FOR EACH dsQuery01

TableAdd(TABLEGRID_T001_CLIENTES, dsQuery01.T001_ID_PESSOA +TAB+
dsQuery01.T001_ID_USUARIO +TAB+
dsQuery01.T001_NOME +TAB+
dsQuery01.T001_OBSERVACAOES)

x++
IF x >= 5 AND AoAbrir = 1
BREAK
END

END

HourGlass(falseAllHourglass)

END