How to set an UNSAccountB as Outstanding by using a VB Script (XmarkedForDeletion = 2)
- Products
- Solutions
- Resources
- Trials
- Support
- Partners
- Communities
How to set an UNSAccountB as Outstanding by using a VB Script (XmarkedForDeletion = 2)
Hi Markus
Thanks this has worked for me. Now I have changed the input value to XObjectKey so tjhat I am able to use the function for groups and assignments too.
Public Sub CCC_Util_MarkAsOutstanding(XObjectKey As String)
Dim OKey As New DbObjectKey(XObjectKey)
Dim e As IEntity
e = Session.Source.Get(OKey)
e.State = VI.DB.Entities.EntityState.OutStanding
Using uow = Session.StartUnitOfWork()
uow.Put(e)
uow.Commit()
End Using
End Sub
Hi Markus
Thanks this has worked for me. Now I have changed the input value to XObjectKey so tjhat I am able to use the function for groups and assignments too.
Public Sub CCC_Util_MarkAsOutstanding(XObjectKey As String)
Dim OKey As New DbObjectKey(XObjectKey)
Dim e As IEntity
e = Session.Source.Get(OKey)
e.State = VI.DB.Entities.EntityState.OutStanding
Using uow = Session.StartUnitOfWork()
uow.Put(e)
uow.Commit()
End Using
End Sub