Monitoring Anpassung, MDM Plose Einarbeitung Consortio, Update SND DY Anm

VERAGMonitoring/cSqlDb.vb

@@ -771,6 +771,57 @@ Public Class cBrgDb
         End Using
         Return Nothing
     End Function
+    Public Function getBrgSumFromBrgKto_FelligZukunft(ByVal brgKto As String, Optional where As String = "", Optional EinzahlungsbetraegeMitrechnen As Boolean = True, Optional faelligkeitsTAG As String = "", Optional faelligkeit As Object = Nothing) As String
+        Dim einzahlung = ""
+        If Not EinzahlungsbetraegeMitrechnen Then
+            einzahlung = " AND [brgak_art] NOT IN ('einzahlung') "
+        End If
+
+        Dim sql As String = ""
+        If faelligkeit Is Nothing Then
+
+            Dim faelligkeitWhere As String = ""
+
+            If faelligkeitsTAG <> "" Then
+                If faelligkeitsTAG = "16" Then
+                    faelligkeitWhere = " And (DATEPART(day,[brgak_faelligkeitsdatum]  )=" & faelligkeitsTAG & " Or [brgak_faelligkeitsdatum] Is null) "
+                Else
+                    faelligkeitWhere = " And DATEPART(day,[brgak_faelligkeitsdatum]  )=" & faelligkeitsTAG & " "
+                End If
+            End If
+
+            sql = "SELECT SUM(brgak_betrag) " &
+                    " FROM tblBrgAufschub WHERE ( brgak_faelligkeitsdatum> getdate()) AND brgak_brgaktoId = '" & brgKto & "' " & where & einzahlung & faelligkeitWhere
+
+        Else
+            sql = "SELECT SUM(brgak_betrag) " &
+                    " FROM tblBrgAufschub WHERE  brgak_faelligkeitsdatum='" & CDate(faelligkeit).ToShortDateString & "' AND brgak_brgaktoId = '" & brgKto & "' " & where & einzahlung
+        End If
+
+        ' MsgBox(sql)
+        '  Dim daten As New List(Of cEntry)
+        Dim dr As SqlDataReader
+        Dim daten As New List(Of cBuergschaft)
+        Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
+            Using cmd As New SqlCommand(sql, conn)
+                dr = cmd.ExecuteReader()
+                Try
+                    Dim cnt As Integer = 0
+                    If dr.Read Then
+                        If Not dr.GetValue(0) Is DBNull.Value Then
+                            Return dr.GetValue(0)
+                        End If
+                    End If
+                    Return "0"
+                Catch ex As Exception
+                    MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
+                Finally
+                    dr.Close()
+                End Try
+            End Using
+        End Using
+        Return Nothing
+    End Function
 
     Public Function getBrgFromBrgKto(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal brgKto As String, Optional where As String = "", Optional EinzahlungsbetraegeMitrechnen As Boolean = True, Optional faelligkeitsTAG As String = "", Optional faelligkeit As Object = Nothing) As DataTable
         Dim einzahlung = ""