neu

UID/cSqlDb.vb

@@ -154,6 +154,39 @@ Public Class cBrgDb
         Return Nothing
     End Function
 
+
+
+    Public Function getBrgSumFrom_NCTS_TR(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 String
+        'Return Nothing
+        Dim sql As String = "SELECT sum(nctsSA_AbgabenBetrag)"
+        sql &= " from tblNCTS_TR_Sicherheitsangaben inner join [tblNCTS_TR] on ncts_Id = nctsSA_NctsId"
+        sql &= " where [ncts_Eroeffnung] BETWEEN '" & datumVon.ToShortDateString & " 00:00:00' AND '" & datumBis.ToShortDateString & " 23:23:59' AND ncts_Status BETWEEN '" & statusVon & "' AND '" & statusBis & "'  AND nctsSA_GRN = '" & buergschaft & "' " & where
+        'MsgBox(sql)
+        Dim dr As SqlDataReader
+        Dim daten As New List(Of cBuergschaft)
+        Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
+            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
+                            '   MsgBox(dr.GetValue(0))
+                            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 getBrgSumFromFMZOLL_Zabis(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 Double
 
         Dim sql As String = "SELECT ISNULL(SUM(veoerz_sicbtg),0) " &
@@ -218,6 +251,7 @@ Public Class cBrgDb
         Return Nothing
     End Function
 
+
     Public Function getBrgSumFromFMZOLL_TELOTEC(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 Double
 
         '  Dim sql As String = "SELECT ISNULL(SUM(veoerz_sicbtg),0) " &