Dim Employees As EmployeeCollection = New EmployeeCollection()
Dim relations As IRelationCollection = New RelationCollection()
Dim Sorter As ISortExpression = New SortExpression()
Dim Filter As IPredicateExpression = New PredicateExpression
relations.Add(EmployeeEntity.Relations.EmployeeDetailEntityUsingEmployeeId)
If STATOrder.Client.BranchCode.ToString <> "" Then
If Not ShowAllCheckBox.Checked Then
Filter.Add(HelperClasses.EmployeeDetailFields.BranchCode = STATOrder.Client.BranchCode)
End If
Filter.Add(HelperClasses.EmployeeDetailFields.JobType = "Phlebotomist")
End If
PhlebList.GetMulti(Filter, 0, Sorter, relations)
This now returns 0 records.