gesamtsicherheitsreferenzen auf cAufschubkonten geändert.

VERAG_PROG_ALLGEMEIN/cGesamtsicherheitsReferenz.vb

@@ -56,37 +56,6 @@ Public Class cGesamtsicherheitsReferenz
         Return SQL.doSQLVarList(sqlstr, "AVISO", , list)
     End Function
 
-    'Public Sub LOAD()
-
-
-    '    Try
-    '        hasEntry = False
-    '        Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
-
-    '            Using cmd As New SqlCommand("SELECT * FROM [tblGesamtsicherheitReferenz] WHERE gsr_Id=@gsrID  ", conn)
-    '                cmd.Parameters.AddWithValue("@gsr_Id", gsrId)
-
-    '                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 LOAD()
 
 
@@ -164,7 +133,6 @@ Public Class cGesamtsicherheitsReferenz
     End Function
 
 
-
     Public Function updateSaldo()
         Return SQL.doSQL("Update [tblGesamtsicherheitReferenz] Set gsr_aktSaldo = '" & gsr_saldo & "' WHERE gsr_Standort = '" & gsr_standort & "'", "AVISO")
     End Function