new

VERAGMonitoring/cSqlDb.vb

@@ -211,6 +211,32 @@ Public Class cBrgDb
         Return Nothing
     End Function
 
+    Public Function loadDgvBySqlFromAufschubKto_Faelligkeit(ByVal faelligkeitWHERE As String, ByVal brgKto As String, Optional where As String = "") As DataTable
+
+        Dim sql As String = "SELECT [brgak_id] as Id,[brgak_datum] as Datum,[brgak_betrag] as Betrag,[brgak_filename] as Dateiname,[brgak_atc] as ATC " &
+                    " FROM tblBrgAufschub WHERE    brgak_brgaktoId = '" & brgKto & "' " & faelligkeitWHERE & where
+
+        While True  'Endlosschleife; wird verlassen durch Return oder Application.Exit()
+            Try
+                Dim myTable = New DataTable()
+                Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
+                    Using cmd As New SqlCommand(sql, conn)
+                        Dim dr As SqlDataReader = cmd.ExecuteReader()
+                        myTable.Load(dr)
+                        dr.Close()
+                    End Using
+                    conn.Close()
+                End Using
+                Return myTable  'While Schleife wird hier verlassen
+            Catch ex As Exception
+                Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle),
+                                              "Problem in Function 'loadDgvBySqlZOLARIS'")
+            End Try
+        End While
+
+        Return Nothing
+
+    End Function
     Public Function loadDgvBySqlFromBrgKtoAtlas(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As DataTable
 
         Dim sql As String = "SELECT [ID_NCTS], [basman_nr], [basman_nl], [veoant_beznr], [veoant_lfdnr], [veoant_stat], [veoant_arbnr], [veoant_mrn], [veoant_abgdst], [veoant_bedst], [veoant_wgdat], [veoant_anzpos], [veoant_andat], [veoant_korant], [veoant_vrbdat], [veoant_sb], [veopos_posnr], [veopos_stat], [veopos_wbsch1], [veopos_rohmas], [veoerz_sicbsc], [veoerz_basbtg],[veoerz_sicbtg],[vegdat_erldat] " &
@@ -690,13 +716,32 @@ Public Class cBrgDb
         Return Nothing
     End Function
 
-    Public Function getBrgSumFromBrgKto(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal brgKto As String, Optional where As String = "", Optional EinzahlungsbetraegeMitrechnen As Boolean = True) As String
+    Public Function getBrgSumFromBrgKto(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 String
         Dim einzahlung = ""
         If Not EinzahlungsbetraegeMitrechnen Then
             einzahlung = " AND [brgak_art] NOT IN ('einzahlung') "
         End If
-        Dim sql As String = "SELECT SUM(brgak_betrag) " &
-                    " FROM tblBrgAufschub WHERE ( brgak_datum BETWEEN '" & datumVon & " 00:00:00' AND '" & datumBis & " 23:59:59') AND brgak_brgaktoId = '" & brgKto & "' " & where & einzahlung
+
+        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_datum BETWEEN '" & datumVon & " 00:00:00' AND '" & datumBis & " 23:59:59') 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)