Änderungen AMBAR

UID/Reports/Auswertung/frmAuswertung.vb

@@ -115,6 +115,12 @@ Public Class frmAuswertung
             cbStandort.SelectedItem = "4819 - Verag Neuhaus"
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+            cbStandort.Items.Clear()
+            cbStandort.Items.Add("5701 - AMBAR")
+            cbStandort.SelectedIndex = 0
+        End If
+
         PanJahr.Enabled = False
         PanMonat.Enabled = True
 
@@ -267,6 +273,8 @@ Public Class frmAuswertung
             filialnr = "4807"
         ElseIf cbStandort.SelectedItem = "4819 - Verag Neuhaus" Then
             filialnr = "4819"
+        ElseIf cbStandort.SelectedItem.ToString.StartsWith("5701") Then
+            filialnr = "5701"
         End If
         Return filialnr
 

UID/Reports/Auswertung/rptAuswertung.vb

@@ -40,4 +40,10 @@ Public Class rptAuswertung
         End If
 
     End Sub
+
+    Private Sub rptAuswertung_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+            Picture1.Image = My.Resources.ambar_simple
+        End If
+    End Sub
 End Class

UID/Reports/Auswertung/rptAuswertungLandscape.vb

@@ -66,5 +66,9 @@ Public Class rptAuswertungLandscape
         ElseIf frmAuswertung.Suchauswertung Then
             txtUeberschrift.Text = "Suchauswertung"
         End If
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+            Picture1.Image = My.Resources.ambar_simple
+        End If
+
     End Sub
 End Class