edv/DISPO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

transportauftrag

Browse Source
This commit is contained in:
d.breimaier
2025-08-12 08:08:18 +02:00
parent 7d6876567e
commit 0cd25dff12
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
UID/My Project/AssemblyInfo.vb
View File

@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.0.1")> <Assembly: AssemblyVersion("1.0.11.0")>
<Assembly: AssemblyFileVersion("1.2.0.1")> <Assembly: AssemblyFileVersion("1.0.11.0")>
<Assembly: NeutralResourcesLanguage("")> <Assembly: NeutralResourcesLanguage("")>

2
UID/Reports/TransportAuftrag/rptTransportauftrag.vb
View File

@@ -35,6 +35,7 @@ Public Class rptTransportauftrag
txtSachbearbeiter.Text = "Sachbearbeiter: " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME txtSachbearbeiter.Text = "Sachbearbeiter: " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
Dim FilialNr = "" Dim FilialNr = ""
If Standort = "4807" Or Standort = "VERAG AG" Then If Standort = "4807" Or Standort = "VERAG AG" Then
Picture1.Image = My.Resources.Verag_AG_Logo
FilialNr = "4807" FilialNr = "4807"
txtVerag.Text = "VERAG Spedition AG" txtVerag.Text = "VERAG Spedition AG"
txtVeragAnschrift.Text = "AT 4975 - Suben 100" & vbCrLf & txtVeragAnschrift.Text = "AT 4975 - Suben 100" & vbCrLf &
@@ -46,6 +47,7 @@ Public Class rptTransportauftrag
"UID : ATU 53187000" "UID : ATU 53187000"
ElseIf Standort = "4819" Or Standort = "VERAG GmbH" Then ElseIf Standort = "4819" Or Standort = "VERAG GmbH" Then
FilialNr = "4819" FilialNr = "4819"
Picture1.Image = My.Resources.Verag_Spedition_GMBH_Logo
txtVerag.Text = "VERAG Spedition GmbH" txtVerag.Text = "VERAG Spedition GmbH"
txtVeragAnschrift.Text = "Hartham 6" & vbCrLf & txtVeragAnschrift.Text = "Hartham 6" & vbCrLf &
"D 94152 Neuhaus am Inn" & vbCrLf & "D 94152 Neuhaus am Inn" & vbCrLf &