Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- tryRetrieve
- service
- (ColumnSet
- [| "evry kjede"
- "evry_kommune" |])
- (EntityReference
- (executionContext.PrimaryEntityName,
- executionContext.PrimaryEntityId))
- >>= checkAttribute<EntityReference> "evry_kommune"
- >>= checkAttribute<OptionSetValue> "evry_kjede"
- <!> makeTeamQuery
- >>= tryRetrieveMultiple service
- >>= fun x ->
- match Seq.tryHead x.Entities with
- | Some s -> Ok s
- | None -> Error "none found"
- |> function
- | Ok o ->
- this.QueueRef.Set
- (context,
- getAttributeValue "queueid" o)
- | Error e ->
- InvalidWorkflowException e
- |> raise
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement