Forum Discussion

cap08's avatar
cap08
New Contributor III
9 months ago

Lock all workflows and descendants using a business rule

I'm creating a business rule to automatically lock all workflows and descendants using:   BRApi.Workflow.Locking.LockWorkflowUnitDescendants(si, wfClusterPk, profileTypeFilter, workflowChannelKey) ...
Workflow
  • Krishna's avatar
    Krishna
    9 months ago

    cap08  - Here is an example basically it is getting the current WF Profile and locking it using extender rule.

    					Dim wfInfo As WorkflowInfo = BRApi.Workflow.Status.GetWorkflowStatus(si,si.WorkflowClusterPk)
	
	Dim A As String = wfInfo.Name
	brapi.ErrorLog.LogMessage(si,A)
	If wfInfo.Locked  Then
		Brapi.ErrorLog.LogMessage(si,"Not Locked")
		
	Else
		'BRApi.Workflow.Locking.LockWorkflowUnit(si,si.WorkflowClusterPk)
		
		
		BRApi.Workflow.Locking.LockWorkflowUnitDescendants(si,si.WorkflowClusterPk,workflowprofiletypes.InputImportChild,si.WorkflowClusterPk.ProfileKey)

		Brapi.ErrorLog.LogMessage(si," Locked")
		
	
End If

     

Krishna's avatar
Krishna
Valued Contributor
9 months ago

cap08  - Here is an example basically it is getting the current WF Profile and locking it using extender rule.

					Dim wfInfo As WorkflowInfo = BRApi.Workflow.Status.GetWorkflowStatus(si,si.WorkflowClusterPk)
	
	Dim A As String = wfInfo.Name
	brapi.ErrorLog.LogMessage(si,A)
	If wfInfo.Locked  Then
		Brapi.ErrorLog.LogMessage(si,"Not Locked")
		
	Else
		'BRApi.Workflow.Locking.LockWorkflowUnit(si,si.WorkflowClusterPk)
		
		
		BRApi.Workflow.Locking.LockWorkflowUnitDescendants(si,si.WorkflowClusterPk,workflowprofiletypes.InputImportChild,si.WorkflowClusterPk.ProfileKey)

		Brapi.ErrorLog.LogMessage(si," Locked")
		
	
End If

 

  • cap08's avatar
    cap08
    New Contributor III
    9 months ago

    I'll give this a try, thank you!

     

     

  • cap08's avatar
    cap08
    New Contributor III
    9 months ago

    HI Krishna, this works great for one workflow but doesn't lock all of the workflows. Is there a way to loop through all of the workflows?

    • Krishna's avatar
      Krishna
      Valued Contributor
      9 months ago

      cap08 - Here you go!

      'Get the Workflow and Loop through with Text 1 Value
				Dim gTime As String = BRApi.Workflow.General.GetGlobalTime(si)
				Dim scenario As String = "Actual"
				Dim wfClusterPk2 As WorkflowUnitClusterPk = BRApi.Workflow.General.GetWorkflowUnitClusterPk(si, "Total Corporate", scenario, gTime)
				Dim objList As List(Of WorkFlowProfileInfo) = BRApi.Workflow.Metadata.GetRelatives(si, wfClusterPk2, WorkflowProfileRelativeTypes.Descendants, WorkflowProfileTypes.InputImportChild)
			
				'Workflow Information
				Dim wfList As New Dictionary(Of String, WorkFlowProfileInfo)
				Dim wfList1 As New Dictionary(Of String, WorkFlowProfileInfo)
				For Each w As WorkflowProfileInfo In objList
				
Next

       

      • cap08's avatar
        cap08
        New Contributor III
        9 months ago

        Krishna  Thanks!