For i As Integer = 0 To m_Array.Length - 1
       if m_Array(i) ="" Then
                  System.Array.Clear(m_Array, i, 1)
       end if
     Next

Public Shared Function RemoveDuplicates(m_Array As Object()) As String()

    System.Array.Sort(m_Array)

    For i As Integer = 0 To m_Array.Length - 1
       if m_Array(i) ="" Then
                  System.Array.Clear(m_Array, i, 1)
       end if
     Next

    Dim k As Integer = 0
    For i As Integer = 0 To m_Array.Length - 1
        If i > 0 AndAlso m_Array(i).Equals(m_Array(i - 1)) Then
            Continue For
        End If
        m_Array(k) = m_Array(i)
        k += 1
    Next

    Dim unique As [String]() = New [String](k - 1) {}

    System.Array.Copy(m_Array, 0, unique, 0, k)

    Return unique

End Function

=Join(Code.RemoveDuplicates
	(LookupSet
		(1, 1, IIF(Fields!Транзакция_УслугаВидАнг.Value = "Transfer",Fields!ФинДок_СводнаяНакладнаяНомер.Value,""),"Report"
                )
         ),","
     )