From 8fffd234043bb4b40aeed0c385d9e062efb42dd3 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 10 Nov 2026 08:30:06 +0100 Subject: [PATCH] FIX Dakosy Versandanzeige --- .../DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb index 5cd31a26..e927d484 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb @@ -65,7 +65,9 @@ Public Class usrCntlATLAS_AnkunftsAnzeige Dim BezugsNr As String = "" If SENDUNG IsNot Nothing Then - BezugsNr = (SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & "_" & "ID" & AVISO.AvisoID & "_" & If(AVISO.Auftraggeber.Length > 8, AVISO.Auftraggeber.ToString.Substring(0, 5), AVISO.Auftraggeber)).Trim + ' BezugsNr = (SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & "_" & "ID" & AVISO.AvisoID & "_" & If(AVISO.Auftraggeber.Length > 8, AVISO.Auftraggeber.ToString.Substring(0, 5), AVISO.Auftraggeber)).Trim + 'Korrektes Schema + BezugsNr = (SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & "_" & AVISO.AvisoID & "_" & If(AVISO.Auftraggeber.Length > 8, AVISO.Auftraggeber.ToString.Substring(0, 5), AVISO.Auftraggeber)).Trim 'Korrektes Schema lblBezugsnummer.Text = BezugsNr txtMRN.Text = If(SENDUNG.tblSnd_ATB_T1, "") End If