ActiveDelphi

[charlesPereira1]

Boa tarde Pessoal, sou novo no canal e gostaria de saber como tratar este erro logo acima no filter que foi desenvolvido.
Este mesmo incialmente foi desenvolvido pelo RXLib, porém foi redesenvolvido no Firedac, gostaria de saber como tratar este erra
firedac 118 - Error evaluating expression. Invalid variant type conversion pois todos os esforços não adiantaram para o Filter no Sql.

vl := '';
// vVetData é uma tratativa de datas que peguei no intervalo de 7 dias da semana
for vI := 0 to 6 do
with qryBoxF do
begin
Filtered := false;
Filter := 'Data = ''+#39+(FormatDateTime('dd/mm/yyyy', vVetData[vI], '00:00:00.000'))+#39;
Filtered := true;

este mesmo código foi desenvolvido dos seguintes modos
Filter := ' Data = ''' + DateToStr(vVetData[vI]) + '''';
Filter := ' Data = ' + QuotedStr(DateToStr(vVetData[vI]) );

Apenas este funcionou pois não trazia o "aspas simples" e sim chaves "{}"

Filter := 'Data = {' + (FormatDateTime('yyyy-mm-dd', vVetData[vI]))+'}';

[imex]

Boa tarde,

Se você quer um filtro para os 7 dias contidos no array, acho que seria melhor utilizar código no evento OnFilterRecord da query, conforme exemplo abaixo: