procedure TDAOMobOfflineClass.CarregarADSPessoas(var _ADS: TAureliusDataset; out _ACount: Integer; _AFiltro: TStrings);
var
ACriteria, AClonedCriteria: TCriteria;
begin
ACriteria := GetNewManager.CreateCriteria(TPessoa);
TFiltro.Create(ACriteria, _AFiltro);
ACriteria.CreateAlias('Cidade', 'Cidade');
ACriteria.Add(TLinq.Eq('Ativo', 1));
ACriteria.Add(TLinq.Eq('Status', 0));
ACriteria.Add(TLinq.Eq('Cliente', 'S'));
ACriteria.Add(TLinq.Eq('ChaveEmpresa', ObjetosApp.TabelasInd.Clifor));
if (ObjetosApp.UsuarioEmpLog.Usuario.ChaveReprCHMob > 0) then begin
ACriteria.CreateAlias('CliforRepr', 'CliforRepr');
ACriteria.Add(TLinq.Eq('Representante', 'N') or (TLinq.Eq('Representante', 'S') and
((TLinq.Eq('ChaveVendedor', ObjetosApp.UsuarioEmpLog.Usuario.ChaveReprCHMob)) or TLinq.Eq('CliforRepr.ChaveVendedor', ObjetosApp.UsuarioEmpLog.Usuario.ChaveReprCHMob))));
end;
ACriteria.RemovingDuplicatedEntities;
AClonedCriteria := ACriteria.Clone;
_ACount := AClonedCriteria.Select(TProjections.ProjectionList
.Add(Linq['Chave'].Count.As_('Count'))).UniqueValue['Count'];
_ADS.Close;
_ADS.SetSourceCursor(ACriteria.Open); // <- gera exceção ' is not a valid date and time'
_ADS.Open;
_ADS.First;
end;
no trecho : _ADS.SetSourceCursor(ACriteria.Open);
gera a exceção.