edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

new

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-09-07 08:31:25 +02:00
parent 2c80644224
commit 289037b7f3
28 changed files with 1882 additions and 702 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
UID/cSqlDb.vb
View File

@@ -156,9 +156,9 @@ Public Class cBrgDb
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
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 Double
'Return Nothing
Dim sql As String = "SELECT sum(nctsSA_AbgabenBetrag)"
Dim sql As String = "SELECT isnull(sum(cast(nctsSA_AbgabenBetrag as float)),0)"
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)
@@ -176,7 +176,7 @@ Public Class cBrgDb
End If
End If
Return "0"
Return 0
Catch ex As Exception
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
Finally
@@ -184,7 +184,7 @@ Public Class cBrgDb
End Try
End Using
End Using
Return Nothing
Return 0
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
@@ -206,7 +206,7 @@ Public Class cBrgDb
Return dr.GetValue(0)
End If
End If
Return ""
Return 0
Catch ex As Exception
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
Finally
@@ -214,7 +214,7 @@ Public Class cBrgDb
End Try
End Using
End Using
Return Nothing
Return 0
End Function
Public Function getBrgSumFromFMZOLL_Zodiak(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
@@ -240,7 +240,7 @@ Public Class cBrgDb
Return dr.GetValue(0)
End If
End If
Return ""
Return 0
Catch ex As Exception
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
Finally
@@ -248,7 +248,7 @@ Public Class cBrgDb
End Try
End Using
End Using
Return Nothing
Return 0
End Function
@@ -256,11 +256,11 @@ Public Class cBrgDb
' Dim sql As String = "SELECT ISNULL(SUM(veoerz_sicbtg),0) " &
' " FROM tblZabis_Atlas_NCTS WHERE ( veoant_andat BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND ( veoant_stat BETWEEN '" & statusVon & "' AND '" & statusBis & "') AND veoerz_sicbsc = '" & buergschaft & "' " & where
Dim sql As String = " SELECT ISNULL(sum(GVal),0)
Dim sql As String = " SELECT ISNULL(sum(cast(GVal as float)),0)
from [tblTelotec_Sicherheit] inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId
where dec_CreateDate BETWEEN '" & datumVon & "' AND '" & datumBis & "' AND telanm_Status BETWEEN '" & statusVon & "' AND '" & statusBis & "' AND GRN = '" & buergschaft & "' AND [telnam_aktuellsteNachricht]=1 " & where
where dec_CreateDate BETWEEN '" & datumVon.ToShortDateString & " 00:00:000' AND '" & datumBis.ToShortDateString & " 23:59:59' AND telanm_Status BETWEEN '" & statusVon & "' AND '" & statusBis & "' AND GRN = '" & buergschaft & "' AND [telnam_aktuellsteNachricht]=1 " & where
' MsgBox(sql)
' MsgBox(sql)
' Dim daten As New List(Of cEntry)
Dim dr As SqlDataReader
Dim daten As New List(Of cBuergschaft)
@@ -336,7 +336,7 @@ Public Class cBrgDb
Return Nothing
End Function
Public Function getBrgSumFromFMZOLL_Zolaris(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
Public Function getBrgSumFromFMZOLL_Zolaris(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(GarantieWert),0) " &
" FROM tblZolaris_EZoll_NCTS WHERE ( AnmeldungsDatum BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND GRN = '" & buergschaft & "' " & where