faktu. ustva.

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -31,7 +31,7 @@ Public Class frmMDM_USTVAntrag
 
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
         Me.UStVAn_ID = UStVAn_ID
-
+        Me.Text = "USTV Antrag " & UStVAn_ID
     End Sub
 
     Sub New(Antrag_KundenNr As Integer, Antrag_LandKz As String, von As Date, bis As Date)
@@ -44,7 +44,7 @@ Public Class frmMDM_USTVAntrag
         Me.Antrag_LandKz = Antrag_LandKz
         Me.von = von
         Me.bis = bis
-
+        Me.Text = "USTV Antrag "
 
 
     End Sub
@@ -2735,16 +2735,26 @@ Public Class frmMDM_USTVAntrag
         Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, 0)
 
         If spedBuch.hasEntry Then
-            Dim frmNacherfassung As New frmNacherfassungNEU
+            Dim frmNacherfassung As New frmNacherfassungNEU()
             frmNacherfassung.srchFiliale = USTV_ANTRAG.FilialenNr
             frmNacherfassung.srchAbfertigungsnummer = USTV_ANTRAG.AbfertigungsNr
             frmNacherfassung.srchUnterNr = 0
+
             frmNacherfassung.ShowDialog(Me)
 
-            Exit Sub
-        End If
+            If frmNacherfassung.txtErfassungsnummer.Text = "" Then
+                frmNacherfassung.txtErfassungsnummer.Text = USTV_ANTRAG.UStVAn_ID
+                frmNacherfassung.txtErfassungsnummer.Focus()
+            End If
 
-        If DiffernezbetragEUR = 0 Then
+            If frmNacherfassung.txtErfassungsnummer.Text = "" OrElse frmNacherfassung.txtErfassungsnummer.Text <> USTV_ANTRAG.UStVAn_ID Then
+                MsgBox("Antrags-ID: " & USTV_ANTRAG.UStVAn_ID & " wurde falsch gesetzt!")
+            End If
+
+            Exit Sub
+            End If
+
+            If DiffernezbetragEUR = 0 Then
             If Not vbYes = MsgBox("Der Erstattungsbetrag beträgt 0 EUR." & vbNewLine & "Fortfahren?", vbYesNo) Then Exit Sub
         End If
 

SDL/USTV/usrCntlUSTV.vb

@@ -319,7 +319,6 @@ Public Class usrCntlUSTV
 
             Dim f As New frmMDM_USTVAntrag(dgvUSTV.SelectedRows(0).Cells("UStVAn_ID").Value)
             f.Show(Me)
-
             If Not f.IsHandleCreated Then
                 dgvUSTV.RELOAD()
             End If