anchor.diff:      } |> Seq.tryHead
   *)
   
  -let private ExchangeAppointmentsByExternalId( db : SqlConnection.ServiceTypes.SimpleDataContextTypes.SyncToday2015_New, externalId : string ) = 
  -    query {
  -        for r in db.ExchangeAppointments do
  +let private ExchangeAppointmentsByExternalId( externalId : string ) = 
  +    query {
  +        for r in db().ExchangeAppointments do
           where ( r.ExternalId = externalId )
           select r
       } |> Seq.tryHead
   
  -let private ExchangeAppointmentsByInternalId( db : SqlConnection.ServiceTypes.SimpleDataContextTypes.SyncToday2015_New, internalId : Guid ) = 
  -    query {
  -        for r in db.ExchangeAppointments do
  +let private ExchangeAppointmentsByInternalId( internalId : Guid ) = 
  +    query {
  +        for r in db().ExchangeAppointments do
           where ( r.InternalId = internalId )
           select r
       } |> Seq.tryHead
  
positive.code: 
  /////////////////////////////////////////////////////////////// FLORES
  
  let private FloresActivityByInternalId( db : SqlConnection.ServiceTypes.SimpleDataContextTypes.SyncToday2015_New, internalId : Guid ) = 
      query {
          for r in db.FloresActivities do
          where ( r.InternalId = internalId )
          select r
      } |> Seq.tryHead
  
  let private FloresActivityByExternalId( db : SqlConnection.ServiceTypes.SimpleDataContextTypes.SyncToday2015_New, externalId : string ) = 
      query {
          for r in db.FloresActivities do
          where ( r.ExternalId = externalId )
          select r
      } |> Seq.tryHead
  
negative.code: 
  let saveFloresActivity( app : FloresActivityDTO, upload : bool ) = 
      let db = db()
      let possibleApp = if upload then FloresActivityByInternalId( app.InternalId ) else FloresActivityByExternalId( app.ExternalId )
      if ( box possibleApp = null ) then
          let newApp = new SqlConnection.ServiceTypes.FloresActivities()
          copyToFloresActivity(newApp, app)
  