neu

Aviso/Auswertung/usrctStatistik.vb

@@ -124,7 +124,14 @@ Public Class usrctStatistik
             Dim datTmp As Date = datVon
             While datTmp <= datBis
                 If datTmp.DayOfWeek = cboTag.SelectedIndex Then
-                    gesLKWs += SQLstat.getAnzahlLkwAnkunft(art, datTmp, i, cboFirma.Text)
+                    Dim Firma = ""
+                    Dim Cluster=""
+                    If cboFirma.Text = "FRONTOFFICE" Then
+                        Cluster = cboFirma.Text
+                    Else
+                        Firma = cboFirma.Text
+                    End If
+                    gesLKWs += SQLstat.getAnzahlLkwAnkunft(art, datTmp, i, Firma, Cluster)
                     cnt += 1
                 End If
                 datTmp = datTmp.AddDays(1)