Resolved..
IF clip(loc:LocatorValue) <> ''
IF Loc:LocateOnFields='Eve2:Fecha_DATE'
loc:FilterWas = 'SQL(dbo.DateOnly(A.Fecha) =<39>'& format(DEFORMAT(Loc:LocatorValue,@d8),@d10-) &'<39> )'
ThisView{prop:Filter} = loc:FilterWas
loc:viewoptions = bor(loc:viewoptions, Net:NoFilter)
END
END