Feature_SDL_Klassen angepasst.

VERAG_PROG_ALLGEMEIN/Classes/cGesamtsicherheitsPositionen.vb

@@ -1,7 +1,7 @@
 Imports System.Data.SqlClient
 Imports System.Reflection
 
-Public Class cGesamtssicherheitsPositionen
+Public Class cGesamtsicherheitsPositionen
 
     Property gsp_gspPosId As Integer
     Property gsp_gsId As Object = Nothing
@@ -26,6 +26,11 @@ Public Class cGesamtssicherheitsPositionen
         Me.gsp_gspPosId = gsp_gspPosId
         LOAD()
     End Sub
+
+    Sub New()
+
+    End Sub
+
     Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_gspPosId", gsp_gspPosId,, True))
@@ -124,10 +129,10 @@ Public Class cGesamtssicherheitsPositionen
             values = values.Substring(0, values.Length - 1) 'wg. ','
             Return (" INSERT INTO [tblGesamtsicherheitsPositionen]  (" & str & ") VALUES(" & values & ")  ")
         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 ""
-        End Function
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return ""
+    End Function