diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb
index 5ec6dbb..24603c1 100644
--- a/Aviso/frmGesamtsicherheitenNEU.vb
+++ b/Aviso/frmGesamtsicherheitenNEU.vb
@@ -713,7 +713,7 @@ Public Class frmGesamtsicherheitenNEU
                     Case Else
                         With OPEN
                             .gs_posNr = getLatestPosNr(gessicherheitID, txtSicherheitATBNr.Text) + 1
-                            .gs_posSubNr = getLatestSPosNr(gessicherheitID, txtMRNNr.Text) + 1
+                            .gs_posSubNr = getLatestSubPosNr(gessicherheitID, txtMRNNr.Text) + 1
                         End With
                         attachPosNrToExistingATB = True
                         indexGsId = OPEN.SAVEOBJECT()
@@ -776,7 +776,7 @@ Public Class frmGesamtsicherheitenNEU
                 .gs_gsNr = gessicherheitID
                 .gs_ATBNr = ""
                 .gs_MRNNr = ""
-                .gs_posSubNr = Me.getLatestSPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_MRNNr) + 1
+                .gs_posSubNr = Me.getLatestSubPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_MRNNr) + 1
                 .gs_posNr = Me.getLatestPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_ATBNr) + 1
                 .gs_datum = DateTimeString2DateTimeKonvertinator(txtPosDat.Text, txtPosTime.Text)
                 .gs_warenwert = 0
@@ -1002,7 +1002,7 @@ Public Class frmGesamtsicherheitenNEU
             .gs_ATBNr = txtSicherheitATBNr.Text
             .gs_MRNNr = txtMRNNr.Text
             .gs_posNr = Integer.Parse(setNullToZero(txtAnzahlPos.Text))
-            .gs_posSubNr = IIf(Integer.Parse(setNullToZero(txtSPosNr.Text)) <> 0, Integer.Parse(setNullToZero(txtSPosNr.Text)), Me.getLatestSPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_MRNNr) + 1)
+            .gs_posSubNr = IIf(Integer.Parse(setNullToZero(txtSPosNr.Text)) <> 0, Integer.Parse(setNullToZero(txtSPosNr.Text)), Me.getLatestSubPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_MRNNr) + 1)
             .gs_datum = DateTimeString2DateTimeKonvertinator(txtSicherheitDat.Text, txtSicherheitTime.Text)
             .gs_warenwert = Double.Parse(txtSicherheitWarenwert.Text)
             .gs_sicherheitsbetrag = Double.Parse(txtSicherheitSicherheitsbetrag.Text)
@@ -1191,7 +1191,7 @@ Public Class frmGesamtsicherheitenNEU
     End Function
 
 
-    Private Function getLatestSPosNr(gs_gsnr As Integer, gs_MRNNr As String) As Integer
+    Private Function getLatestSubPosNr(gs_gsnr As Integer, gs_MRNNr As String) As Integer
         Dim posNr As Integer = 0
         Dim sqlq As String = "Select MAX([gs_posSubNr]) As MaxPosNr from [tblGesamtsicherheit] where gs_gsnr = " & gs_gsnr & " And gs_MRNNr = '" & gs_MRNNr & "'"
         Dim dt As New DataTable
@@ -1943,7 +1943,7 @@ Public Class frmGesamtsicherheitenNEU
                     .gs_ATBNr = "Korrekt. Rundungsdiff. " & gessicherheitID
                     .gs_MRNNr = ""
                     .gs_posNr = Me.getLatestPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_ATBNr) + 1
-                    .gs_posSubNr = Me.getLatestSPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_MRNNr) + 1
+                    .gs_posSubNr = Me.getLatestSubPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_MRNNr) + 1
                     .gs_datum = DateTime.Now
                     .gs_warenwert = 0
                     .gs_sicherheitsbetrag = 0