From 0cd25dff12e5a7d002bebefddff6c3a498c68eb8 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 12 Aug 2025 08:08:18 +0200 Subject: [PATCH] transportauftrag --- UID/My Project/AssemblyInfo.vb | 4 ++-- UID/Reports/TransportAuftrag/rptTransportauftrag.vb | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb index ea45673..3d1d8a9 100644 --- a/UID/My Project/AssemblyInfo.vb +++ b/UID/My Project/AssemblyInfo.vb @@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/UID/Reports/TransportAuftrag/rptTransportauftrag.vb b/UID/Reports/TransportAuftrag/rptTransportauftrag.vb index c5dc307..2682caa 100644 --- a/UID/Reports/TransportAuftrag/rptTransportauftrag.vb +++ b/UID/Reports/TransportAuftrag/rptTransportauftrag.vb @@ -35,6 +35,7 @@ Public Class rptTransportauftrag txtSachbearbeiter.Text = "Sachbearbeiter: " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME Dim FilialNr = "" If Standort = "4807" Or Standort = "VERAG AG" Then + Picture1.Image = My.Resources.Verag_AG_Logo FilialNr = "4807" txtVerag.Text = "VERAG Spedition AG" txtVeragAnschrift.Text = "AT 4975 - Suben 100" & vbCrLf & @@ -46,6 +47,7 @@ Public Class rptTransportauftrag "UID : ATU 53187000" ElseIf Standort = "4819" Or Standort = "VERAG GmbH" Then FilialNr = "4819" + Picture1.Image = My.Resources.Verag_Spedition_GMBH_Logo txtVerag.Text = "VERAG Spedition GmbH" txtVeragAnschrift.Text = "Hartham 6" & vbCrLf & "D 94152 Neuhaus am Inn" & vbCrLf &