Ä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

UID/Reports/TransportAuftrag/rptTransportauftrag.vb

@@ -56,6 +56,18 @@ Public Class rptTransportauftrag
                         "Abrechnungspartner: " & vbCrLf &
                         "VERAG Spedition AG in" & vbCrLf &
                         "A-4975 Suben, Nr. 100"
+        ElseIf Standort = "5701" Or Standort = "AMBAR" Then
+            FilialNr = "5701"
+            txtVerag.Text = "AMBAR Logistic Services GmbH"
+            txtVeragAnschrift.Text = "Reichenhallerstrasse 62" & vbCrLf &
+                        "D 83435 Bad Reichenhall" & vbCrLf &
+                        "Tel. +49 8651 99624911 " & vbCrLf &
+                        "dispo@ambarlog.com" & vbCrLf &
+                        "UID: DE309105428" & vbCrLf
+
+
+            Picture1.Image = My.Resources.ambar_simple
+            TextBox2.Text = TextBox2.Text.Replace("Österreichischen", "Deutschen")
         End If
 
         txtFrachtposition.Text = FilialNr & "/" & FrachtPostHeader.Substring(1)

UID/Reports/frmPrintActiveReports.vb

@@ -32,6 +32,7 @@ Public Class frmPrintActiveReports
             Dim report As New rptTransportauftrag
             report.Standort = Standort
             report.printTrip = printTrip
+            
             report.Printauftrag = printauftrag
             '  report.CMR = CMR
             Viewer1.LoadDocument(report)