From ca38d26017447fbd2a6aff63f2a840dcffa2aff2 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 19 Oct 2022 08:07:37 +0200
Subject: [PATCH] Feature_SDL_Klassen angepasst.

---
 ...itionen.vb => cGesamtsicherheitsPositionen.vb} | 15 ++++++++++-----
 VERAG_PROG_ALLGEMEIN/cSicherheiten.vb             |  6 ++++++
 2 files changed, 16 insertions(+), 5 deletions(-)
 rename VERAG_PROG_ALLGEMEIN/Classes/{cGesamtssicherheitsPositionen.vb => cGesamtsicherheitsPositionen.vb} (94%)

diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cGesamtssicherheitsPositionen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cGesamtsicherheitsPositionen.vb
similarity index 94%
rename from VERAG_PROG_ALLGEMEIN/Classes/cGesamtssicherheitsPositionen.vb
rename to VERAG_PROG_ALLGEMEIN/Classes/cGesamtsicherheitsPositionen.vb
index 174bbeb6..75500cb2 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cGesamtssicherheitsPositionen.vb
+++ b/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
 
 
 
diff --git a/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb b/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb
index be496f9f..179baa7f 100644
--- a/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb
+++ b/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