neu

Aviso/Auswertung/usrctStatistik.Designer.vb

@@ -346,7 +346,7 @@ Partial Class usrctStatistik
         '
         Me.cboFirma.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cboFirma.FormattingEnabled = True
-        Me.cboFirma.Items.AddRange(New Object() {"VERAG", "ATILLA", "IMEX", "UNISPED"})
+        Me.cboFirma.Items.AddRange(New Object() {"VERAG", "ATILLA", "IMEX", "UNISPED", "FRONTOFFICE"})
         Me.cboFirma.Location = New System.Drawing.Point(236, 2)
         Me.cboFirma.Name = "cboFirma"
         Me.cboFirma.Size = New System.Drawing.Size(69, 21)

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)