Public Sub ShowHelpdeskForObject()
On Error GoTo ErrorHandler
    Dim oFilter As New LDE.Filter
    Dim oInspector As Lime.Inspector

    Set oInspector = Lime.ActiveInspector
    If Globals.VerifyInspector("helpdesk", oInspector, True) = False Then
        Exit Sub
    ElseIf VBA.IsNull(oInspector.Controls.GetValue("object")) = True Then
        Call Lime.MessageBox("Ärendet är inte kopplat till en produkt.")
        Exit Sub
    End If
    oFilter.Name = "Ärenden för - " & oInspector.Controls.GetText("object", "")
    Call oFilter.AddCondition("object", lkOpEqual, oInspector.Controls.GetValue("object"))
    Call BrowserHelper.OpenBrowserWindowByFilterAndClass(oFilter, "helpdesk", "Produktens ärenden", "Ärenden", False)
Exit Sub
ErrorHandler:
    Call UI.ShowError("ActionPad_Helpdesk.ShowHelpdeskForObject")
End Sub
Public Sub ShowHelpdeskForPerson()
On Error GoTo ErrorHandler
    Dim oFilter As New LDE.Filter
    Dim oInspector As Lime.Inspector

    Set oInspector = Lime.ActiveInspector
    If Globals.VerifyInspector("helpdesk", oInspector, True) = False Then
        Exit Sub
    ElseIf VBA.IsNull(oInspector.Controls.GetValue("person")) = True Then
        Call Lime.MessageBox("Ärendet är inte kopplad till en person.")
        Exit Sub
    End If
    oFilter.Name = "Ärenden för - " & oInspector.Controls.GetText("person", "")
    Call oFilter.AddCondition("person", lkOpEqual, oInspector.Controls.GetValue("person"))
    Call BrowserHelper.OpenBrowserWindowByFilterAndClass(oFilter, "helpdesk", "Kundens ärenden", "Ärenden", False)
Exit Sub
ErrorHandler:
    Call UI.ShowError("ActionPad_Helpdesk.ShowHelpdeskForObject")
End Sub