diff --git a/SDL/kunden/usrcntlFiskaluebersicht.vb b/SDL/kunden/usrcntlFiskaluebersicht.vb
index 17ca61de..0acdd095 100644
--- a/SDL/kunden/usrcntlFiskaluebersicht.vb
+++ b/SDL/kunden/usrcntlFiskaluebersicht.vb
@@ -43,10 +43,20 @@ Public Class usrcntlFiskaluebersicht
 
     Sub initdgvLieferanten()
 
+        Dim where As String = ""
+
+        Select Case cbxFiskalart._value
+            Case "DE"
+                where = " And FilialenNr = 4811"
+            Case "AT"
+                where = " And FilialenNr = 4805"
+        End Select
+
+
         Label2.Text = "Top 5 Lieferanten (" & year & ")"
         With dgvLieferanten
             .Columns.Clear()
-            .DataSource() = SQL.loadDgvBySql("SELECT Top(5) [AbsenderKundenNr] as KdNr,  MAX(Absender) as Firma, COUNT(*) as Anzahl FROM [Speditionsbuch]  WHERE year(Abfertigungsdatum) =  '" & year & "' AND " & kdNr & "  In([AbsenderKundenNr], [EmpfängerKundenNr], [FrachtführerKundenNr], [VermittlerKundenNr], [EndempfängerKundenNr]) GROUP BY AbsenderKundenNr ORDER BY Anzahl DESC ", "FMZOLL")
+            .DataSource() = SQL.loadDgvBySql("SELECT Top(5) [AbsenderKundenNr] as KdNr,  MAX(Absender) as Firma, COUNT(*) as Anzahl FROM [Speditionsbuch]  WHERE year(Abfertigungsdatum) =  '" & year & "'" & where & " AND " & kdNr & "  In([AbsenderKundenNr], [EmpfängerKundenNr], [FrachtführerKundenNr], [VermittlerKundenNr], [EndempfängerKundenNr]) GROUP BY AbsenderKundenNr ORDER BY Anzahl DESC ", "FMZOLL")
             .Columns("KdNr").Width = 50
             .Columns("Firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
             .Columns("Anzahl").Width = 40
@@ -58,10 +68,19 @@ Public Class usrcntlFiskaluebersicht
 
     Sub initdgvEmfpaenger()
 
+        Dim where As String = ""
+
+        Select Case cbxFiskalart._value
+            Case "DE"
+                where = " And FilialenNr = 4811"
+            Case "AT"
+                where = " And FilialenNr = 4805"
+        End Select
+
         Label3.Text = "Top 5 Empfänger (" & year & ")"
         With dgvEmpfaenger
             .Columns.Clear()
-            .DataSource() = SQL.loadDgvBySql("SELECT Top(5) [EmpfängerKundenNr] as KdNr, CASE WHEN [EmpfängerKundenNr] IS NULL THEN '-' ELSE MAX(Empfänger) END as Firma, COUNT(*) as Anzahl FROM [Speditionsbuch]  WHERE year(Abfertigungsdatum) =  '" & year & "' AND " & kdNr & " IN([AbsenderKundenNr],[EmpfängerKundenNr],[FrachtführerKundenNr],[VermittlerKundenNr],[EndempfängerKundenNr]) GROUP BY EmpfängerKundenNr ORDER BY Anzahl DESC ", "FMZOLL")
+            .DataSource() = SQL.loadDgvBySql("SELECT Top(5) [EmpfängerKundenNr] as KdNr, CASE WHEN [EmpfängerKundenNr] IS NULL THEN '-' ELSE MAX(Empfänger) END as Firma, COUNT(*) as Anzahl FROM [Speditionsbuch]  WHERE year(Abfertigungsdatum) =  '" & year & "'" & where & "AND " & kdNr & " IN([AbsenderKundenNr],[EmpfängerKundenNr],[FrachtführerKundenNr],[VermittlerKundenNr],[EndempfängerKundenNr]) GROUP BY EmpfängerKundenNr ORDER BY Anzahl DESC ", "FMZOLL")
             .Columns("KdNr").Width = 50
             .Columns("Firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
             .Columns("Anzahl").Width = 40
@@ -71,10 +90,19 @@ Public Class usrcntlFiskaluebersicht
 
     Sub initdgvZwischenhaendler()
 
+        Dim where As String = ""
+
+        Select Case cbxFiskalart._value
+            Case "DE"
+                where = " And FilialenNr = 4811"
+            Case "AT"
+                where = " And FilialenNr = 4805"
+        End Select
+
         Label6.Text = "Top 5 Auftraggeber (" & year & ")"
         With dgvZwischenh
             .Columns.Clear()
-            .DataSource() = SQL.loadDgvBySql("SELECT [VermittlerKundenNr] as KdNr, CASE WHEN [VermittlerKundenNr] IS NULL THEN '-' ELSE MAX(Vermittler) END as Firma, COUNT(*) as Anzahl FROM [Speditionsbuch]   WHERE year(Abfertigungsdatum) =  '" & year & "' AND " & kdNr & " IN([AbsenderKundenNr],[EmpfängerKundenNr],[FrachtführerKundenNr],[VermittlerKundenNr],[EndempfängerKundenNr]) GROUP BY VermittlerKundenNr ORDER BY Anzahl DESC ", "FMZOLL")
+            .DataSource() = SQL.loadDgvBySql("SELECT [VermittlerKundenNr] as KdNr, CASE WHEN [VermittlerKundenNr] IS NULL THEN '-' ELSE MAX(Vermittler) END as Firma, COUNT(*) as Anzahl FROM [Speditionsbuch]   WHERE year(Abfertigungsdatum) =  '" & year & "'" & where & " AND " & kdNr & " IN([AbsenderKundenNr],[EmpfängerKundenNr],[FrachtführerKundenNr],[VermittlerKundenNr],[EndempfängerKundenNr]) GROUP BY VermittlerKundenNr ORDER BY Anzahl DESC ", "FMZOLL")
             .Columns("KdNr").Width = 50
             .Columns("Firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
             .Columns("Anzahl").Width = 40