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
 
 
 

VERAG_PROG_ALLGEMEIN/cSicherheiten.vb

@@ -21,6 +21,9 @@ Public Class cSicherheiten
     Property gs_LKWID As String
     Property gs_atr As String = ""
     Property gs_warenort As String
+    Property gs_warenwertFix As Object
+    Property gs_sicherheitsbetragFix As Object
+    Property gs_zollsatz As Object
 
     Public hasEntry = False
 
@@ -54,6 +57,9 @@ Public Class cSicherheiten
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_LKWID", gs_LKWID))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_atr", gs_atr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_warenort", gs_warenort))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_warenwertFix", gs_warenwertFix))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_sicherheitsbetragFix", gs_sicherheitsbetragFix))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_zollsatz", gs_zollsatz))
 
         Return list
     End Function