Advertisement
Guest User

sdfasf

a guest
Apr 24th, 2018
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
F# 1.94 KB | None | 0 0
  1.         let makeTeamQuery (kjedeValue: int) (kommuneId: Guid) (link: LinkEntity) =
  2.             let qe = QueryExpression "team"
  3.             qe.ColumnSet <- ColumnSet "queueid"
  4.             qe.Criteria.AddCondition <|
  5.                 ConditionExpression ("evry_kjede", ConditionOperator.Equal, kjedeValue)
  6.             qe.LinkEntities.Add
  7.                 (let le = link
  8.                  le.LinkCriteria.AddCondition <|
  9.                     ConditionExpression ("evry_kommuneid", ConditionOperator.Equal, kommuneId)
  10.                  le)
  11.             qe
  12.  
  13.         let tryRetrieveTeams (lead: Entity) =
  14.             Result.result {
  15.                 let! kjede =
  16.                     lead.GetAttributeValue<OptionSetValue> "evry_kjede"
  17.                     |> Result.ofObj
  18.                     |> Result.mapError (fun _ -> "Kjede is null")
  19.  
  20.                 let! kommuneRef =
  21.                     lead.GetAttributeValue<EntityReference> "evry_kommune"
  22.                     |> Result.ofObj
  23.                     |> Result.mapError (fun _ -> "Kommune is null")
  24.  
  25.                 let! salgslp =
  26.                     lead.GetAttributeValue<OptionSetValue> "evry_salgslp"
  27.                     |> Result.ofObj
  28.                     |> Result.mapError (fun _ -> "Salgsløp is null")
  29.                
  30.                 let! linkEntity =
  31.                     match salgslp.Value with
  32.                     | 249_160_001 ->
  33.                         Ok <| LinkEntity ("team", "evry_evry_hyttekommune_team", "teamid", "teamid", JoinOperator.Inner)
  34.                     | 249_160_002 ->
  35.                         Ok <| LinkEntity ("team", "evry_evry_kommune_team", "teamid", "teamid", JoinOperator.Inner)
  36.                     | _ ->
  37.                         Error "not a valid salgsløp value"
  38.                    
  39.                 return makeTeamQuery kjede.Value kommuneRef.Id linkEntity
  40.             }
  41.             |> Reader.retn
  42.             >>= Services.tryRetrieveMultipleEntitiesPaged 100
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement