Desktop Manager 2.7/2.7a : Multi-User Task Bug using "By Formula Selection" and NAB database as source

You create a new Multi-User Task, you would like to assign this new task to Desktop Manager user using "By Formula Selection" and based on a Notes Directory (NAB choose), when clicking on the "Build Target Users list" button, the Target List isn't generated (see attachment). Why ?

This bug has been discovered in the latest 2.7a version, you can use the following instruction to fix this issue.

1 . Open Desktop Manager with Designer

2. Open the Subform (from Shared Code / Subforms menu) 'DskMgrWizard_TaskTargetUsers', please replace the code of the 'Build Target Users list' button by this new one :

Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim dbSource As New NotesDatabase("","")
Dim colResult As NotesDocumentCollection
Dim docCurrent As NotesDocument
Dim docResult As NotesDocument
Dim item As NotesItem
Dim is_enable As String
Dim option_line As String
Dim i As Integer
Dim serverName As String
Dim filePath As String
Dim formula As String
Dim fieldName As String
Dim fieldList As String
Dim flag As Integer


' # Initialize
Set uidoc = ws.CurrentDocument
Set docCurrent = uidoc.Document
option_line = ""

' ## Target Document List
Select Case docCurrent.WI_Target(0)
Case "ALL"
' ## Build Database Options Line
docCurrent.DM_WIZARD_Line = "@ALL"

Case "PROFILE"
' ## Build Database Options Line
docCurrent.DM_WIZARD_Line = docCurrent.WI_ProfileList

Case "PICKLIST"
Select Case docCurrent.WI_Source(0)
Case "DM"
docCurrent.DM_WIZARD_Line = docCurrent.WI_UserList_DM
Case "NAB"
' # Set Server name and file path of the source database
serverName = docCurrent.WI_NABServer(0)
filePath = docCurrent.WI_NABDatabase(0)

Call GetUserList(filePath, serverName, docCurrent, "WI_UserList_NAB", "DM_WIZARD_Line", "WI_CountResult", 0)
End Select

Case "FORMULA"
' # Set Server name and file path of the source database
If (docCurrent.WI_Source(0) = "NAB") Then
serverName = docCurrent.WI_NABServer(0)
filePath = docCurrent.WI_NABDatabase(0)
fieldName = "FullName"
Else ' (doc.WI_Source(0) = "DM")
serverName = docCurrent.DM_DskMgrUserServer_Display(0)
filePath = docCurrent.DM_DskMgrUserDatabase_Display(0)
fieldName = "DM_UserKey"
End If

' # Open the source database
flag = dbSource.Open(serverName, filePath)
If (flag = False) Then
Msgbox "The source database can't be opened ("+serverName + "!!" + filePath+")"
Exit Sub
End If

' # Search document
docCurrent.WI_TempResult = ""
formula = docCurrent.WI_Formula(0)
Set colResult = dbSource.Search(formula, Nothing,0)
Set docResult = colResult.GetFirstDocument
While Not (docResult Is Nothing)
If (docCurrent.WI_TempResult(0) = "") Then
docCurrent.WI_TempResult = docResult.GetItemValue(fieldName)(0)
Set item = docCurrent.GetFirstItem("WI_TempResult")
Else
Call item.AppendToTextList(docResult.GetItemValue(fieldName)(0))
End If
Set docResult = colResult.GetNextDocument(docResult)
Wend
If (docCurrent.WI_Source(0) = "NAB") Then
Call GetUserList(filePath, serverName, docCurrent, "WI_TempResult", "DM_WIZARD_Line", "WI_CountResult", 0)
Else
docCurrent.DM_WIZARD_Line = docCurrent.WI_TempResult
End If

Case Else
' ## Build Database Options Line
docCurrent.DM_WIZARD_Line = ""
End Select

End Sub

3. Save and quit designer. Bug Fixed.