anchor.diff:      logger.Debug( sprintf "download started for '%A' from '%A' to '%A'" login.userName _from _to )
       prepareForDownload(login.serviceAccountId) |> ignore
       let _Calendars = getCalendars( login )
  -    _Calendars |> Seq.map (  
  -        fun calendar ->  
  -            calendar.Initialize()
  -            calendar.Search(CalDav.CalendarQuery.SearchEvents(Nullable<DateTime>(_from), Nullable<DateTime>(_to)))
  -    ) |> Seq.map (  
  +    let found  =
  +        _Calendars |> Seq.map (  
  +            fun calendar ->  
  +                calendar.Initialize()
  +                calendar.Search(CalDav.CalendarQuery.SearchEvents(Nullable<DateTime>(_from), Nullable<DateTime>(_to)))
  +            ) 
  +    devlog.Debug( sprintf "found %A" found )                
  +    found |> Seq.map (  
           fun events -> 
               [| 
                   for item in events do
  
positive.code:     ServiceAccountRepository.Download( serviceAccount, DownloadForServiceAccount )
  
  let EventByInternalId( internalId : Guid ) : CalDAVEventDTO option = 
      DB.calDAVEvent( 0, null, internalId, String.Empty )
  
  let NewEvents() : CalDAVEventDTO seq =
      DB.calDAVEvents( "1" )
  
negative.code:     ) |> Seq.concat 
  
  let processCalDAVServer( _from : DateTime, _to : DateTime, login : Login, processEvent ) =
      let events = getCalDAVServerEvents( _from, _to, login ) 
      events |> Seq.map processEvent
  
  let download( ( _from : DateTime, _to : DateTime ), login : Login ) =
      let serviceAccountId = login.serviceAccountId
      let res = 
          processCalDAVServer( _from, _to, login, 
              fun p ->  save( copyEventToDTO(p, serviceAccountId, None), serviceAccountId, false, null, null )
          )
      res |> Seq.iter ( fun p -> devlog.Debug( sprintf "Got %A" p.ExternalId ) )
      res
  
  let save( event : CalDAVEventDTO, serviceAccountId : int ) =
      DB.save( event, serviceAccountId, true, String.Empty, String.Empty )
  