Attila Importassistent

Aviso/frmGesamtsicherheitenNEU.vb

@@ -591,6 +591,8 @@ Public Class frmGesamtsicherheitenNEU
             End If
 
 
+
+
             If checkNothingValue(txtSicherheitSicherheitsbetrag.Text, "Double") IsNot Nothing Then
                 Dim sichBetr As Double = Double.Parse(txtSicherheitSicherheitsbetrag.Text)
                 If checkSaldo(sichBetr, True) = False Then Exit Sub
@@ -600,6 +602,14 @@ Public Class frmGesamtsicherheitenNEU
 
             Dim limit As Integer = Integer.Parse(setNullToZero(txtAnzahlPos.Text))
 
+            If (limit > 10) Then
+                Dim result As MsgBoxResult = MsgBox("Sollen wirklich " & limit & "Positionen angelegt werden?", vbYesNoCancel)
+                If result <> vbYes Then
+                    txtAnzahlPos.Focus()
+                    Exit Sub
+                End If
+            End If
+
 
             For count As Integer = 1 To limit
                 attachPosNrToExistingATB = False