ustva, etc.

VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb

@@ -276,6 +276,20 @@ Public Class cUSTVAntrag
         Return -1
     End Function
 
+    Public Function getMaxPosNrErst() As Integer
+        Try
+            Dim maxPosNr = -1
+
+            Return SQL.getValueTxtBySql("SELECT isnull(max([UStVEr_ID]),0)+1 FROM [tblUStVErstattung] where UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL",,, "1")
+
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return -1
+    End Function
+
+
+
     Public Function DELETE() As Boolean
 
         Dim sqlstr = " DELETE FROM tblUStVAntrag WITH(updlock,serializable) WHERE UStVAn_ID=" & Me.UStVAn_ID
@@ -625,4 +639,7 @@ Public Class cUStVErstattungPositionen
         End Try
         Return -1
     End Function
+
+
+
 End Class