div. Änderungen

VERAG_PROG_ALLGEMEIN/cSicherheiten.vb

@@ -30,6 +30,9 @@ Public Class cSicherheiten
     Property gs_MRNNr As Object = Nothing
     Property gs_posSubNr As Object = Nothing
     Property gs_VeralteteWeitereRegistriernummer As Object = Nothing
+    Property gs_dakoyimport As Boolean = False
+    Property gs_EH_Anzahl As Object = Nothing
+    Property gs_DK_laufnr As Object = Nothing
 
     Public hasEntry = False
 
@@ -48,6 +51,15 @@ Public Class cSicherheiten
         LOADSubNr()
     End Sub
 
+
+    Sub New(gs_gsID, gs_posNr, gs_posSubNr, gs_DK_laufnr)
+        Me.gs_gsId = gs_gsID
+        Me.gs_posNr = gs_posNr
+        Me.gs_posSubNr = gs_posSubNr
+        Me.gs_DK_laufnr = gs_DK_laufnr
+        LOADDakosyLaufNr()
+    End Sub
+
     Sub New(gs_gsNr)
         Me.gs_gsNr = gs_gsNr
         LOADGSNR()
@@ -85,6 +97,9 @@ Public Class cSicherheiten
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_systemuser", gs_systemuser))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_MRNNr", gs_MRNNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_VeralteteWeitereRegistriernummer", gs_VeralteteWeitereRegistriernummer))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_dakoyimport", gs_dakoyimport))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_EH_Anzahl", gs_EH_Anzahl))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_DK_laufnr", gs_DK_laufnr))
         If Not WithoutPosSubNr Then list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_posSubNr", gs_posSubNr))
 
         Return list
@@ -193,6 +208,36 @@ Public Class cSicherheiten
         End Try
     End Sub
 
+    Public Sub LOADDakosyLaufNr()
+        Try
+            hasEntry = False
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
+                Using cmd As New SqlCommand("SELECT * FROM [tblGesamtsicherheit] WHERE gs_gsId=@gs_gsId AND gs_posNr=@gs_posNr AND gs_DK_laufnr=@gs_DK_laufnr  ", conn)
+                    cmd.Parameters.AddWithValue("@gs_gsID", gs_gsId)
+                    cmd.Parameters.AddWithValue("@gs_posNr", gs_posNr)
+                    cmd.Parameters.AddWithValue("@gs_DK_laufnr", gs_DK_laufnr)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(li.Text))
+                            End If
+
+                        Next
+                        hasEntry = True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
+
 
     Public Sub LOADGSNR()
         Try