diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
index 5f834c23..a8906031 100644
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
@@ -554,8 +554,16 @@ Public Class usrCntlSpeditionsBuchSuche
             Button21.Visible = True
             Button16.Visible = True
             Button17.Visible = True
+        ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+            pnlBerichte.Visible = True
+            For Each p In pnlBerichte.Controls
+                p.Visible = False
+            Next
+            Button25.Visible = True
+            MyComboBox2.Visible = True
         End If
 
+
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen_Erlöse", "SDL") Then
             btnSpedBuchEinnahmen.Visible = True
         End If
@@ -1580,7 +1588,7 @@ Public Class usrCntlSpeditionsBuchSuche
 
     Function getrHandlingAussenstellen(Optional showDok As Boolean = True, Optional Handlingssatz As String = "", Optional whereOpt As String = "", Optional ignoreFiliale As Boolean = False) 'Firma As String, kdnrTmp As Integer, Optional showDok As Boolean = False, Optional ByRef VBNr As Integer = -1) As String
         Dim displayFilter = cbxFilterInBericht.Checked
-        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", "SDL") Then
+        If ignoreFiliale Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", "SDL") Then
             Dim sqlstr As String = ""
             '     If CheckBox1.Checked Then