From ce2675b5d784e7719d70a90ef3a12da27e31545e Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Sat, 22 Oct 2022 23:55:27 +0200
Subject: [PATCH] SndDetails

---
 Aviso/My Project/AssemblyInfo.vb |  4 ++--
 Aviso/frmSendungsdetailsNEU.vb   | 13 +++++++++++++
 2 files changed, 15 insertions(+), 2 deletions(-)

diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb
index 7d145a6..016910b 100644
--- a/Aviso/My Project/AssemblyInfo.vb	
+++ b/Aviso/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("3.8.1.5")>
-<Assembly: AssemblyFileVersion("3.8.1.5")>
+<Assembly: AssemblyVersion("3.8.1.6")>
+<Assembly: AssemblyFileVersion("3.8.1.6")>
diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb
index 4941c67..8aca550 100644
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -163,6 +163,19 @@ Public Class frmSendungsdetailsNEU
             End If
 
         End If
+
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
+
+            If (cboVorpapier.Text.Trim <> String.Empty And txtVorpapierPos.Text.Trim = String.Empty) Or
+                (cboVorpapier2.Text.Trim <> String.Empty And txtVorpapier2Pos.Text.Trim = String.Empty) Or
+                (cboVorpapier3.Text.Trim <> String.Empty And txtVorpapier3Pos.Text.Trim = String.Empty) Then
+                If MsgBox("Pre-Paper Psoition is not filled. Really continue?", vbYesNoCancel) <> vbYes Then
+                    Return False
+                End If
+            End If
+        End If
+
         Return True
     End Function