From 4e000b0bdd4b86e7972305d72e77efe32bec2511 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 27 Aug 2025 16:45:55 +0200
Subject: [PATCH] =?UTF-8?q?ustve-Prr=C3=BCfung?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 SDL/My Project/AssemblyInfo.vb |  4 ++--
 SDL/USTV/frmMDM_USTVAntrag.vb  | 29 +++++++++++++++++++++++++++++
 2 files changed, 31 insertions(+), 2 deletions(-)

diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb
index cdd56e0c..4f76127f 100644
--- a/SDL/My Project/AssemblyInfo.vb	
+++ b/SDL/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.4.4.4")>
-<Assembly: AssemblyFileVersion("1.4.4.4")>
+<Assembly: AssemblyVersion("1.4.4.5")>
+<Assembly: AssemblyFileVersion("1.4.4.5")>
diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb
index 2d607f19..bd76ff01 100644
--- a/SDL/USTV/frmMDM_USTVAntrag.vb
+++ b/SDL/USTV/frmMDM_USTVAntrag.vb
@@ -3545,6 +3545,12 @@ Public Class frmMDM_USTVAntrag
 
                 Else
 
+                    Dim Fehlertext As String = ""
+                    If Not checkSpedbuchEintrag(Fehlertext) Then
+                        If Fehlertext <> "" Then MsgBox(Fehlertext)
+                        Exit Sub
+                    End If
+
                     Dim hasVZ = IIf(item.Name.Contains("_VZ"), True, False)
 
                     Dim f As New SDL.frmAbrechnungsMaskeEinzeln(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, IIf(USTV_ANTRAG.UStVAn_ErstattungsbetragEUR >= 0, "AG", "AR"), hasVZ)
@@ -3616,5 +3622,28 @@ Public Class frmMDM_USTVAntrag
 
     End Sub
 
+    Private Function checkSpedbuchEintrag(ByRef Fehlertext As String)
+
+        Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, 0)
+
+        'If spedBuch.VermittlerOffertenNr <> spedBuch.Abfertigungsart Then
+
+        If spedBuch.VermittlerOffertenNr <> (CInt(spedBuch.Abfertigungsart) - 100) Then
+            Fehlertext = "Speditionsbucheintrag prüfen!" & vbNewLine & "OffertenNr stimmen nicht überein!"
+            Return False
+        End If
+
+        If spedBuch.ErfassungsNr = "" Then
+            Fehlertext = "Speditionsbucheintrag prüfen!" & vbNewLine & "Erfassungs-Nr nicht gesetzt!"
+            Return False
+        End If
+
+        Return True
+
+
+
+
+    End Function
+
 
 End Class
\ No newline at end of file