Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- let makeTeamQuery (kjedeValue: int) (kommuneId: Guid) (link: LinkEntity) =
- let qe = QueryExpression "team"
- qe.ColumnSet <- ColumnSet "queueid"
- qe.Criteria.AddCondition <|
- ConditionExpression ("evry_kjede", ConditionOperator.Equal, kjedeValue)
- qe.LinkEntities.Add
- (let le = link
- le.LinkCriteria.AddCondition <|
- ConditionExpression ("evry_kommuneid", ConditionOperator.Equal, kommuneId)
- le)
- qe
- let tryRetrieveTeams (lead: Entity) =
- Result.result {
- let! kjede =
- lead.GetAttributeValue<OptionSetValue> "evry_kjede"
- |> Result.ofObj
- |> Result.mapError (fun _ -> "Kjede is null")
- let! kommuneRef =
- lead.GetAttributeValue<EntityReference> "evry_kommune"
- |> Result.ofObj
- |> Result.mapError (fun _ -> "Kommune is null")
- let! salgslp =
- lead.GetAttributeValue<OptionSetValue> "evry_salgslp"
- |> Result.ofObj
- |> Result.mapError (fun _ -> "Salgsløp is null")
- let! linkEntity =
- match salgslp.Value with
- | 249_160_001 ->
- Ok <| LinkEntity ("team", "evry_evry_hyttekommune_team", "teamid", "teamid", JoinOperator.Inner)
- | 249_160_002 ->
- Ok <| LinkEntity ("team", "evry_evry_kommune_team", "teamid", "teamid", JoinOperator.Inner)
- | _ ->
- Error "not a valid salgsløp value"
- return makeTeamQuery kjede.Value kommuneRef.Id linkEntity
- }
- |> Reader.retn
- >>= Services.tryRetrieveMultipleEntitiesPaged 100
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement