1133 lines
69 KiB
VB.net
1133 lines
69 KiB
VB.net
Imports System.Data
|
|
Imports System.IO
|
|
Imports System.Data.SqlClient
|
|
|
|
|
|
Public Class cSqlDb
|
|
' Public Shared Function GetNewOpenConnectionADMIN() As SqlConnection
|
|
' Dim cn As New SqlConnection()
|
|
' cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;" 'BUCHHALTUNG
|
|
' cn.Open()
|
|
' Return cn
|
|
' End Function
|
|
' Public Shared Function GetNewOpenConnectionFMZOLL() As SqlConnection
|
|
' Dim cn As New SqlConnection()
|
|
' cn.ConnectionString = "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;" ' FMZOLL
|
|
' 'cn.ConnectionString = "Data Source=192.168.0.50\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;" 'DEVELOPER
|
|
' cn.Open()
|
|
' Return cn
|
|
' End Function
|
|
' Public Shared Function GetNewOpenConnectionZOLARIS() As SqlConnection
|
|
' Dim cn As New SqlConnection()
|
|
' cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;" 'BUCHHALTUNG
|
|
' cn.Open()
|
|
' Return cn
|
|
' End Function
|
|
|
|
' Public Shared Function GetNewOpenConnectionAtlasSUB() As SqlConnection
|
|
' Dim cn As New SqlConnection()
|
|
' cn.ConnectionString = "Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=sa;" 'VERAG-ATLAS1
|
|
' cn.Open()
|
|
' Return cn
|
|
' End Function
|
|
' Public Shared Function GetNewOpenConnectionAtlasSBG() As SqlConnection
|
|
' Dim cn As New SqlConnection()
|
|
' cn.ConnectionString = "Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=????;" 'verag-atlas3
|
|
' cn.Open()
|
|
' Return cn
|
|
' End Function
|
|
End Class
|
|
|
|
|
|
Public Class cLogin
|
|
|
|
Public USERBER As Integer
|
|
Public USRNAME As String
|
|
Public USRID As String
|
|
|
|
|
|
Public Function getAktuelleVersion() As String
|
|
Dim sql As String = "SELECT prog_aktuelleVersion FROM tblProgramme WHERE prog_codename=@codename"
|
|
Dim dr As SqlDataReader
|
|
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
|
|
Using cmd As New SqlCommand(sql, conn)
|
|
cmd.Parameters.AddWithValue("@codename", "MONITORING")
|
|
dr = cmd.ExecuteReader()
|
|
Try
|
|
If dr.Read Then Return CStr(dr.Item("prog_aktuelleVersion"))
|
|
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 "0"
|
|
End Function
|
|
|
|
|
|
|
|
End Class
|
|
|
|
|
|
Public Class cBrgDb
|
|
|
|
|
|
Public Function loadDgvBySqlZOLARIS(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal kto As String, Optional where As String = "") As DataTable
|
|
Dim sql As String =
|
|
" SELECT * FROM tblBrgAufschubDataAT WHERE Abgabenkonto=@kto " &
|
|
" AND Datum BETWEEN @datumVon AND @datumBis "
|
|
|
|
'" SELECT zsAnmGdsItem.VorgangID AS VorgangID, zsAnmGdsItem.AnmID AS AnmeldungsID, ztIMsgGdsItemDutyCalc.Ty AS Abgabenart, " &
|
|
'" sum(isnull(ztIMsgGdsItemDutyCalc.Base,0)) AS Berechnungsgrundlage, sum(isnull(ztIMsgGdsItemDutyCalc.Amnt,0)) AS Betrag, " &
|
|
'" zsAnmRefs.CRN AS CRN, zsAnmRefs.LRN AS LRN, zsAnmHea.DefPayRef AS Abgabenkonto,zsAnmHea.DecDT, vwAnm_First_Rechnung.DRef AS RechnungsNr, zsAnmDHFRefs.InfoText," &
|
|
'" zsAnmDHFRefs.AnschreibeNr as Anschreibenummer ,zsAnmGdsItem.OperatorID as OperatorId" &
|
|
'" FROM zzAktivitaet" &
|
|
'" INNER JOIN ztIMsgGdsItem ON zzAktivitaet.LizenzNr = ztIMsgGdsItem.LizenzNr AND zzAktivitaet.OperatorID = ztIMsgGdsItem.OperatorID " &
|
|
'" AND zzAktivitaet.IMsgID = ztIMsgGdsItem.IMsgID " &
|
|
'" INNER JOIN ztIMsgGdsItemDutyCalc ON ztIMsgGdsItem.LizenzNr = ztIMsgGdsItemDutyCalc.LizenzNr " &
|
|
'" AND ztIMsgGdsItem.OperatorID = ztIMsgGdsItemDutyCalc.OperatorID AND ztIMsgGdsItem.IMsgID = ztIMsgGdsItemDutyCalc.IMsgID " &
|
|
'" AND ztIMsgGdsItem.GdsItemID = ztIMsgGdsItemDutyCalc.GdsItemID " &
|
|
'" INNER JOIN zsAnmGdsItem ON zzAktivitaet.LizenzNr = zsAnmGdsItem.LizenzNr AND zzAktivitaet.OperatorID = zsAnmGdsItem.OperatorID " &
|
|
'" AND zzAktivitaet.VorgangID = zsAnmGdsItem.VorgangID AND zzAktivitaet.AnmID = zsAnmGdsItem.AnmID " &
|
|
'" AND ztIMsgGdsItem.ItNr = zsAnmGdsItem.ItNr " &
|
|
'" INNER JOIN zsAnmGdsItemDHF ON zsAnmGdsItem.LizenzNr = zsAnmGdsItemDHF.LizenzNr AND zsAnmGdsItem.OperatorID = zsAnmGdsItemDHF.OperatorID " &
|
|
'" AND zsAnmGdsItem.VorgangID = zsAnmGdsItemDHF.VorgangID AND zsAnmGdsItem.AnmID = zsAnmGdsItemDHF.AnmID " &
|
|
'" AND zsAnmGdsItem.GdsItemID = zsAnmGdsItemDHF.GdsItemID " &
|
|
'" INNER JOIN zsAnmHea ON zsAnmGdsItem.LizenzNr = zsAnmHea.LizenzNr AND zsAnmGdsItem.OperatorID = zsAnmHea.OperatorID " &
|
|
'" AND zsAnmGdsItem.VorgangID = zsAnmHea.VorgangID AND zsAnmGdsItem.AnmID = zsAnmHea.AnmID " &
|
|
'" INNER JOIN zsAnmRefs ON zsAnmGdsItem.LizenzNr = zsAnmRefs.LizenzNr AND zsAnmGdsItem.OperatorID = zsAnmRefs.OperatorID " &
|
|
'" AND zsAnmGdsItem.VorgangID = zsAnmRefs.VorgangID AND zsAnmGdsItem.AnmID = zsAnmRefs.AnmID " &
|
|
'" INNER JOIN zsAnmDHFRefs ON zsAnmRefs.LizenzNr = zsAnmDHFRefs.LizenzNr AND zsAnmRefs.OperatorID = zsAnmDHFRefs.OperatorID " &
|
|
'" AND zsAnmRefs.VorgangID = zsAnmDHFRefs.VorgangID AND zsAnmRefs.AnmID = zsAnmDHFRefs.AnmID " &
|
|
'" LEFT OUTER JOIN vwAnm_First_Rechnung ON zsAnmGdsItem.LizenzNr = vwAnm_First_Rechnung.LizenzNr " &
|
|
'" AND zsAnmGdsItem.OperatorID = vwAnm_First_Rechnung.OperatorID AND zsAnmGdsItem.VorgangID = vwAnm_First_Rechnung.VorgangID " &
|
|
'" AND zsAnmGdsItem.AnmID = vwAnm_First_Rechnung.AnmID And zsAnmGdsItem.GdsItemID = vwAnm_First_Rechnung.GdsItemID " &
|
|
'" WHERE (zsAnmDHFRefs.ErledigungsTypID LIKE 'F%') AND (zzAktivitaet.MsgTyp = 'EZ922') " &
|
|
'" AND (NOT EXISTS (SELECT * FROM zzAktivitaet b WHERE b.MsgTyp = 'EZ922' AND zzAktivitaet.LizenzNr = b.LizenzNr " &
|
|
'" AND zzAktivitaet.OperatorID = b.OperatorID AND zzAktivitaet.VorgangID = b.VorgangID AND zzAktivitaet.AnmID = b.AnmID " &
|
|
'" AND zzAktivitaet.AktivitaetID > b.AktivitaetID)) " &
|
|
'" AND (NOT (ztIMsgGdsItemDutyCalc.Amnt IS NULL)) " &
|
|
'" AND (ztIMsgGdsItemDutyCalc.Ty like 'A%' OR ztIMsgGdsItemDutyCalc.Ty IN ('2VF', '2PE', '2KO', '2IG')) " &
|
|
'" AND (zsAnmGdsItem.LizenzNr = 'S01122' ) " &
|
|
'" AND (zsAnmHea.DecDT >= convert(datetime, @datumVon,104)) " &
|
|
'" AND (zsAnmHea.DecDT < convert(datetime, @datumBis,104)) " &
|
|
'" AND (zsAnmHea.DefPayRef IN (@kto)) " &
|
|
'" GROUP BY ztIMsgGdsItem.IMsgID, zsAnmGdsItem.LizenzNr, zsAnmGdsItem.OperatorID, zsAnmGdsItem.VorgangID, zsAnmGdsItem.AnmID, " &
|
|
'" ztIMsgGdsItemDutyCalc.Ty, zsAnmRefs.CRN, " &
|
|
'" zsAnmRefs.LRN, isnull(zsAnmRefs.FRN,''), zsAnmHea.DefPayRef, " &
|
|
'" zsAnmHea.DecDT, vwAnm_First_Rechnung.DRef, zsAnmDHFRefs.ErledigungsTypID, zsAnmDHFRefs.InfoText, zzAktivitaet.AnmID, " &
|
|
'" zsAnmDHFRefs.AnschreibeNr " &
|
|
'" HAVING sum(isnull(ztIMsgGdsItemDutyCalc.Amnt,0)) >0 " &
|
|
'" ORDER BY zsAnmGdsItem.LizenzNr, zsAnmGdsItem.OperatorID, zsAnmGdsItem.VorgangID, zsAnmHea.DefPayRef, " &
|
|
'" zzAktivitaet.AnmID, ztIMsgGdsItemDutyCalc.Ty "
|
|
|
|
|
|
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 & where, conn)
|
|
cmd.Parameters.AddWithValue("@datumVon", datumVon)
|
|
cmd.Parameters.AddWithValue("@datumBis", datumBis)
|
|
cmd.Parameters.AddWithValue("@kto", kto)
|
|
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 loadDgv(sql As String) As DataTable
|
|
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 'loadDgv'")
|
|
End Try
|
|
Return Nothing
|
|
End Function
|
|
|
|
|
|
Public Function delBrgAufschubEinzahlung(id As String) As Boolean
|
|
Try
|
|
Dim myTable = New DataTable()
|
|
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
|
|
Using cmd As New SqlCommand("DELETE FROM tblBrgAufschub WHERE brgak_id= '" & id & "'", conn)
|
|
cmd.ExecuteReader()
|
|
Return True
|
|
End Using
|
|
conn.Close()
|
|
End Using
|
|
|
|
Catch ex As Exception
|
|
Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle),
|
|
"Problem in Function 'loadDgv'")
|
|
End Try
|
|
Return False
|
|
End Function
|
|
|
|
Public Function loadDgvBySqlFromAufschubKto(ByVal datumVon As DateTime, ByVal datumBis As DateTime, 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_datum BETWEEN '" & datumVon & " 00:00:00' AND '" & datumBis & " 23:59:59') AND brgak_brgaktoId = '" & brgKto & "' " & 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 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] " &
|
|
" FROM tblZabis_Atlas_NCTS WHERE ( veoant_andat BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND ( veoant_stat BETWEEN '" & statusVon & "' AND '" & statusBis & "') AND veoerz_sicbsc = '" & buergschaft & "' " & where
|
|
|
|
While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit()
|
|
Try
|
|
Dim myTable = New DataTable()
|
|
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
|
|
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 loadDgvBySqlFromBrgKtoUnionEZoll(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 [CRN], [AnmeldungsDatum], [GarantieWert], [AnmID], [ErledigungsTypID], [Warenbezeichnung], [Absender], [Empfaenger], [Gesamtrohmasse], [Abgangszollstelle], [Bestimmungszollstelle], [Gestellungsfrist], [LRN], [DatumBestimmungErreicht], [GRN] " &
|
|
" FROM tblZolaris_EZoll_NCTS WHERE ( AnmeldungsDatum BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND GRN = '" & buergschaft & "' " & where
|
|
|
|
While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit()
|
|
Try
|
|
Dim myTable = New DataTable()
|
|
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
|
|
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 loadDgvBySqlFromBrgKtoDAKOSY(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 ncts_MRN, (nctsSA_AbgabenBetrag), ncts_dyaAnmID, ncts_ArtAnmeldung,nctsSA_GRN"
|
|
sql &= " from tblDakosy_NCTSOut_Sicherheitsangaben inner join [VERAG].[dbo].[tblDakosy_NCTSOut] on ncts_Id = nctsSA_NctsId"
|
|
sql &= " where ncts_Status between '" & statusVon & "' and '" & statusBis & "' AND nctsSA_GRN='" & buergschaft & "' " & where
|
|
'MsgBox(sql)
|
|
While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit()
|
|
Try
|
|
Dim myTable = New DataTable()
|
|
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
|
|
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 loadDgvBySqlFromBrgKtoDAKOSYDetails(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 ncts_MRN,ncts_Status,(nctsSA_AbgabenBetrag), ncts_dyaAnmID, ncts_ArtAnmeldung,nctsSA_GRN,ncts_Empfaenger_eori,ncts_Empfaenger_NLNR,ncts_Empfaenger_Name,ncts_Bearbeiter"
|
|
sql &= " ,[ncts_ObjectName],[ncts_Trans_DatumZeit] as Transaktionsdatum,[ncts_dyaArt],[ncts_ANR],[ncts_MRN],[ncts_ObjectAlias],[ncts_GesamtRohmasse],[ncts_GesamtAnzahlPackstuecke] "
|
|
sql &= " from tblDakosy_NCTSOut_Sicherheitsangaben inner join [VERAG].[dbo].[tblDakosy_NCTSOut] on ncts_Id = nctsSA_NctsId"
|
|
sql &= " where ncts_Status between '" & statusVon & "' and '" & statusBis & "' AND nctsSA_GRN='" & buergschaft & "' " & where
|
|
'MsgBox(sql)
|
|
While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit()
|
|
Try
|
|
Dim myTable = New DataTable()
|
|
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
|
|
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 loadDgvBySqlFromBrgKt_NCTS_TR_Details(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 ncts_MRN,ncts_Status,(nctsSA_AbgabenBetrag), ncts_dyaAnmID, ncts_ArtAnmeldung,nctsSA_GRN,ncts_Empfaenger_eori,ncts_Empfaenger_NLNR,ncts_Empfaenger_Name,ncts_Bearbeiter"
|
|
sql &= " ,[ncts_ObjectName],[ncts_Trans_DatumZeit] as Transaktionsdatum,[ncts_dyaArt],[ncts_ANR],[ncts_MRN],[ncts_ObjectAlias],[ncts_GesamtRohmasse],[ncts_GesamtAnzahlPackstuecke] "
|
|
sql &= " from tblNCTS_TR_Sicherheitsangaben inner join tblNCTS_TR on ncts_Id = nctsSA_NctsId"
|
|
sql &= " where ncts_Status between '" & statusVon & "' and '" & statusBis & "' AND nctsSA_GRN='" & buergschaft & "' " & where
|
|
'MsgBox(sql)
|
|
While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit()
|
|
Try
|
|
Dim myTable = New DataTable()
|
|
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
|
|
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 loadDgvBySqlFromBrgKtoTELOTECDetails(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 dec_CreateDate asDatum, telanm_CRN as CRN,[telanm_BezugsNr] as LRN,telanm_Status as Status,([GVal]) as Betrag, telanm_ID as ID, telanm_ART as Art,GRN,ConeeTra_TIN as EORI,ConeeTra_Na as Empfänger,Represent_Na as Bearbeiter "
|
|
sql &= " FROM tblTelotec_Sicherheit inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId"
|
|
sql &= " where [tblTelotec_Anmeldung].[dec_CreateDate] BETWEEN '" & datumVon.ToShortDateString & " 00:00:00' AND '" & datumBis.ToShortDateString & " 23:23:59' AND telanm_Status BETWEEN '" & statusVon & "' and '" & statusBis & "' AND GRN='" & buergschaft & "' AND [telnam_aktuellsteNachricht]=1 " & where
|
|
'MsgBox(sql)
|
|
While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit()
|
|
Try
|
|
Dim myTable = New DataTable()
|
|
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
|
|
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 'loadDgvBySqlFromBrgKtoTELOTECDetails'")
|
|
End Try
|
|
End While
|
|
|
|
Return Nothing
|
|
End Function
|
|
|
|
Public Function checkUser(pcname, brgusr_name) As Boolean
|
|
Dim sql As String = " SELECT * FROM tblBrgUser WHERE brgusr_name = @brgusr_name "
|
|
Dim dr As SqlDataReader
|
|
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
|
|
Using cmd As New SqlCommand(sql, conn)
|
|
cmd.Parameters.AddWithValue("@brgusr_name", pcname & "\" & brgusr_name)
|
|
dr = cmd.ExecuteReader()
|
|
Try
|
|
If dr.HasRows Then
|
|
dr.Read()
|
|
If dr.Item("brgusr_allowEinzahlung") = True Then
|
|
frmMain.allowEinzahlung = True
|
|
End If
|
|
If dr.Item("brgusr_allowBelaustungAufheben") = True Then
|
|
frmMain.brgusr_allowBelaustungAufheben = True
|
|
End If
|
|
If dr.Item("brgusr_AdminUser") = True Then
|
|
frmMain.brgusr_AdminUser = True
|
|
End If
|
|
|
|
frmMain.firma = dr.Item("brgusr_firma").ToString 'FIRMA GESETZT!
|
|
|
|
Return True
|
|
End If
|
|
Catch ex As SqlException
|
|
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler: " & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
|
|
End Try
|
|
End Using
|
|
End Using
|
|
Return False
|
|
End Function
|
|
|
|
|
|
|
|
Public Function insertBrgAufschubEinzahlung(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_faelligkeitsdatum) As Boolean
|
|
Try
|
|
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
|
|
Using cmd As New SqlCommand("INSERT INTO tblBrgAufschub " &
|
|
" (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_art,brgak_faelligkeitsdatum) VALUES" &
|
|
" (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,'einzahlung',@brgak_faelligkeitsdatum) ", conn)
|
|
cmd.Parameters.AddWithValue("@brgak_datum", brgak_datum)
|
|
cmd.Parameters.AddWithValue("@brgak_betrag", brgak_betrag)
|
|
cmd.Parameters.AddWithValue("@brgak_brgaktoId", brgak_brgaktoId)
|
|
cmd.Parameters.AddWithValue("@brgak_filename", brgak_filename)
|
|
cmd.Parameters.AddWithValue("@brgak_atc", brgak_atc)
|
|
cmd.Parameters.AddWithValue("@brgak_faelligkeitsdatum", brgak_faelligkeitsdatum)
|
|
|
|
Try
|
|
cmd.ExecuteNonQuery()
|
|
Return True
|
|
Catch ex As SqlException
|
|
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
|
|
End Try
|
|
End Using
|
|
End Using
|
|
Return False
|
|
Catch ex As Exception
|
|
Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), "Problem in Function 'X'")
|
|
End Try
|
|
Return Nothing
|
|
End Function
|
|
|
|
Public Function insertBrgAufschubAusgleichsbetrag(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc) As Boolean
|
|
Try
|
|
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
|
|
Using cmd As New SqlCommand("INSERT INTO tblBrgAufschub " &
|
|
" (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_art) VALUES" &
|
|
" (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,'Ausgleichsbetrag') ", conn)
|
|
cmd.Parameters.AddWithValue("@brgak_datum", brgak_datum)
|
|
cmd.Parameters.AddWithValue("@brgak_betrag", brgak_betrag)
|
|
cmd.Parameters.AddWithValue("@brgak_brgaktoId", brgak_brgaktoId)
|
|
cmd.Parameters.AddWithValue("@brgak_filename", brgak_filename)
|
|
cmd.Parameters.AddWithValue("@brgak_atc", brgak_atc)
|
|
|
|
Try
|
|
cmd.ExecuteNonQuery()
|
|
Return True
|
|
Catch ex As SqlException
|
|
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
|
|
End Try
|
|
End Using
|
|
End Using
|
|
Return False
|
|
Catch ex As Exception
|
|
Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), "Problem in Function 'X'")
|
|
End Try
|
|
Return Nothing
|
|
End Function
|
|
|
|
|
|
Public Function deleteBrgAufschubAusgleichsbetrag(brgak_brgaktoId) As Boolean
|
|
Try
|
|
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
|
|
Using cmd As New SqlCommand("DELETE FROM tblBrgAufschub " &
|
|
" WHERE brgak_art='Ausgleichsbetrag' AND brgak_brgaktoId=@brgak_brgaktoId", conn)
|
|
cmd.Parameters.AddWithValue("@brgak_brgaktoId", brgak_brgaktoId)
|
|
|
|
Try
|
|
cmd.ExecuteNonQuery()
|
|
Return True
|
|
Catch ex As SqlException
|
|
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
|
|
End Try
|
|
End Using
|
|
End Using
|
|
Return False
|
|
Catch ex As Exception
|
|
Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), "Problem in Function 'X'")
|
|
End Try
|
|
Return Nothing
|
|
End Function
|
|
|
|
Public Function insertBrgAufschubZuBelastung(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc) As Boolean
|
|
Try
|
|
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
|
|
Using cmd As New SqlCommand("INSERT INTO tblBrgAufschub " &
|
|
" (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_art) VALUES" &
|
|
" (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,'belastung') ", conn)
|
|
cmd.Parameters.AddWithValue("@brgak_datum", brgak_datum)
|
|
cmd.Parameters.AddWithValue("@brgak_betrag", brgak_betrag)
|
|
cmd.Parameters.AddWithValue("@brgak_brgaktoId", brgak_brgaktoId)
|
|
cmd.Parameters.AddWithValue("@brgak_filename", brgak_filename)
|
|
cmd.Parameters.AddWithValue("@brgak_atc", brgak_atc)
|
|
|
|
Try
|
|
cmd.ExecuteNonQuery()
|
|
Return True
|
|
Catch ex As SqlException
|
|
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
|
|
End Try
|
|
End Using
|
|
End Using
|
|
Return False
|
|
Catch ex As Exception
|
|
Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), "Problem in Function 'X'")
|
|
End Try
|
|
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 String
|
|
|
|
Dim tmp_sub As String = 0 'getBrgSumFromFMZOLL_Zabis_SUBEN(datumVon, datumBis, statusVon, statusBis, buergschaft, where)
|
|
Dim tmp_sbg As String = 0 ' getBrgSumFromFMZOLL_Zabis_SALZBURG(datumVon, datumBis, statusVon, statusBis, buergschaft, where)
|
|
Dim tmp_DY As String = getBrgSumFrom_DAKOSY(datumVon, datumBis, statusVon, statusBis, buergschaft, where)
|
|
'Dim tmp_nctsTR As String = getBrgSumFrom_NCTS_TR(datumVon, datumBis, statusVon, statusBis, buergschaft, where)
|
|
Return CDbl(tmp_sub) + CDbl(tmp_sbg) + CDbl(tmp_DY) ' + CDbl(tmp_nctsTR)
|
|
|
|
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 String
|
|
|
|
Dim tmp_DY As String = getBrgSumFrom_TELOTEC(datumVon, datumBis, statusVon, statusBis, buergschaft, where)
|
|
Return CDbl(tmp_DY)
|
|
|
|
|
|
End Function
|
|
|
|
|
|
Public Function getBrgSumFromFMZOLL_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
|
|
|
|
Dim tmp_DY As String = getBrgSumFrom_NCTS_TR(datumVon, datumBis, statusVon, statusBis, buergschaft, where)
|
|
Return CDbl(tmp_DY)
|
|
|
|
|
|
End Function
|
|
|
|
Public Function getBrgSumFromFMZOLL_Zabis_SUBEN(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(veoerz_sicbtg) " &
|
|
" FROM tblZabis_Atlas_NCTS WHERE ( veoant_andat BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND ( veoant_stat BETWEEN '" & statusVon & "' AND '" & statusBis & "') AND veoerz_sicbsc = '" & buergschaft & "' " & where
|
|
' 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.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
|
|
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 getBrgSumFrom_DAKOSY(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 tblDakosy_NCTSOut_Sicherheitsangaben inner join [tblDakosy_NCTSOut] on ncts_Id = nctsSA_NctsId"
|
|
sql &= " where ncts_Trans_DatumZeit 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 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 getBrgSumFrom_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 String
|
|
'Return Nothing
|
|
Dim sql As String = " SELECT sum(tblTelotec_Sicherheit.GVal)
|
|
from tblTelotec_Sicherheit inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId
|
|
where [tblTelotec_Anmeldung].[dec_CreateDate] BETWEEN '" & datumVon.ToShortDateString & " 00:00:00' AND '" & datumBis.ToShortDateString & " 23:23:59' AND telanm_Status BETWEEN '" & statusVon & "' AND '" & statusBis & "' AND GRN = '" & buergschaft & "' AND [telnam_aktuellsteNachricht]=1 "
|
|
|
|
' 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_SALZBURG(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
|
|
|
|
Dim sql As String = "SELECT SUM(veoerz_sicbtg) " &
|
|
" FROM tblZabis_Atlas_NCTS WHERE ( veoant_andat BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND ( veoant_stat BETWEEN '" & statusVon & "' AND '" & statusBis & "') AND veoerz_sicbsc = '" & buergschaft & "' " & where
|
|
' 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.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
|
|
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 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 = ""
|
|
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)
|
|
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 = ""
|
|
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 * " &
|
|
" 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 * " &
|
|
" FROM tblBrgAufschub WHERE brgak_faelligkeitsdatum='" & CDate(faelligkeit).ToShortDateString & "' AND brgak_brgaktoId = '" & brgKto & "' " & where & einzahlung
|
|
End If
|
|
|
|
Dim ADMINSQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Return ADMINSQL.loadDgvBySql(sql, "ADMIN")
|
|
|
|
End Function
|
|
|
|
|
|
Public Function getBrgSumFromZolaris(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal kto As String, ByVal aufgehobenAbziehen As Boolean, Optional where As String = "") As String
|
|
Try
|
|
Dim sql As String =
|
|
" SELECT SUM(Betrag) FROM tblBrgAufschubDataAT WHERE Abgabenkonto=@kto " &
|
|
" AND Datum BETWEEN @datumVon AND @datumBis " &
|
|
" AND [Abgabenart] IN ('1BD','0ML','0PB','0PG','0PS','1LG','1ZN','2AS','2DU','2EU','2IG','2KO','2PE','2RB','2SB','2SI','2VF','2VS','5DU','5EU','5SI','5VS','5ZO','5ZZ','6AK','6BE','6MS','6SS','6TS','6ZW','9EA','A20','A30','A35','A40','A45','C00','C10','D00','D10','E00') "
|
|
If aufgehobenAbziehen Then sql &= " AND brgAT_Aufgehoben = 0 "
|
|
|
|
'" SELECT sum(isnull(ztIMsgGdsItemDutyCalc.Amnt,0)) AS Betrag " &
|
|
'" FROM zzAktivitaet " &
|
|
'" INNER JOIN ztIMsgGdsItem ON zzAktivitaet.LizenzNr = ztIMsgGdsItem.LizenzNr AND zzAktivitaet.OperatorID = ztIMsgGdsItem.OperatorID " &
|
|
'" AND zzAktivitaet.IMsgID = ztIMsgGdsItem.IMsgID " &
|
|
'" INNER JOIN ztIMsgGdsItemDutyCalc ON ztIMsgGdsItem.LizenzNr = ztIMsgGdsItemDutyCalc.LizenzNr " &
|
|
'" AND ztIMsgGdsItem.OperatorID = ztIMsgGdsItemDutyCalc.OperatorID AND ztIMsgGdsItem.IMsgID = ztIMsgGdsItemDutyCalc.IMsgID " &
|
|
'" AND ztIMsgGdsItem.GdsItemID = ztIMsgGdsItemDutyCalc.GdsItemID " &
|
|
'" INNER JOIN zsAnmGdsItem ON zzAktivitaet.LizenzNr = zsAnmGdsItem.LizenzNr AND zzAktivitaet.OperatorID = zsAnmGdsItem.OperatorID " &
|
|
'" AND zzAktivitaet.VorgangID = zsAnmGdsItem.VorgangID AND zzAktivitaet.AnmID = zsAnmGdsItem.AnmID " &
|
|
'" AND ztIMsgGdsItem.ItNr = zsAnmGdsItem.ItNr " &
|
|
'" INNER JOIN zsAnmGdsItemDHF ON zsAnmGdsItem.LizenzNr = zsAnmGdsItemDHF.LizenzNr AND zsAnmGdsItem.OperatorID = zsAnmGdsItemDHF.OperatorID " &
|
|
'" AND zsAnmGdsItem.VorgangID = zsAnmGdsItemDHF.VorgangID AND zsAnmGdsItem.AnmID = zsAnmGdsItemDHF.AnmID " &
|
|
'" AND zsAnmGdsItem.GdsItemID = zsAnmGdsItemDHF.GdsItemID " &
|
|
'" INNER JOIN zsAnmHea ON zsAnmGdsItem.LizenzNr = zsAnmHea.LizenzNr AND zsAnmGdsItem.OperatorID = zsAnmHea.OperatorID " &
|
|
'" AND zsAnmGdsItem.VorgangID = zsAnmHea.VorgangID AND zsAnmGdsItem.AnmID = zsAnmHea.AnmID " &
|
|
'" INNER JOIN zsAnmRefs ON zsAnmGdsItem.LizenzNr = zsAnmRefs.LizenzNr AND zsAnmGdsItem.OperatorID = zsAnmRefs.OperatorID " &
|
|
'" AND zsAnmGdsItem.VorgangID = zsAnmRefs.VorgangID AND zsAnmGdsItem.AnmID = zsAnmRefs.AnmID " &
|
|
'" INNER JOIN zsAnmDHFRefs ON zsAnmRefs.LizenzNr = zsAnmDHFRefs.LizenzNr AND zsAnmRefs.OperatorID = zsAnmDHFRefs.OperatorID " &
|
|
'" AND zsAnmRefs.VorgangID = zsAnmDHFRefs.VorgangID AND zsAnmRefs.AnmID = zsAnmDHFRefs.AnmID " &
|
|
'" LEFT OUTER JOIN vwAnm_First_Rechnung ON zsAnmGdsItem.LizenzNr = vwAnm_First_Rechnung.LizenzNr " &
|
|
'" AND zsAnmGdsItem.OperatorID = vwAnm_First_Rechnung.OperatorID AND zsAnmGdsItem.VorgangID = vwAnm_First_Rechnung.VorgangID " &
|
|
'" AND zsAnmGdsItem.AnmID = vwAnm_First_Rechnung.AnmID And zsAnmGdsItem.GdsItemID = vwAnm_First_Rechnung.GdsItemID " &
|
|
'" WHERE (zsAnmDHFRefs.ErledigungsTypID LIKE 'F%') AND (zzAktivitaet.MsgTyp = 'EZ922') " &
|
|
'" AND (NOT EXISTS (SELECT * FROM zzAktivitaet b WHERE b.MsgTyp = 'EZ922' AND zzAktivitaet.LizenzNr = b.LizenzNr " &
|
|
'" AND zzAktivitaet.OperatorID = b.OperatorID AND zzAktivitaet.VorgangID = b.VorgangID AND zzAktivitaet.AnmID = b.AnmID " &
|
|
'" AND zzAktivitaet.AktivitaetID > b.AktivitaetID)) " &
|
|
'" AND (NOT (ztIMsgGdsItemDutyCalc.Amnt IS NULL)) " &
|
|
'" AND (ztIMsgGdsItemDutyCalc.Ty like 'A%' OR ztIMsgGdsItemDutyCalc.Ty IN ('2VF', '2PE', '2KO', '2IG')) " &
|
|
'" AND (zsAnmGdsItem.LizenzNr = 'S01122' ) " &
|
|
'" AND (zsAnmHea.DecDT >= convert(datetime,@datumVon,104)) " &
|
|
'" AND (zsAnmHea.DecDT < convert(datetime,@datumBis,104)) " &
|
|
'" AND (zsAnmHea.DefPayRef IN (@kto)) "
|
|
|
|
|
|
' MsgBox(datumVon & " - " & kto)
|
|
' 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)
|
|
cmd.Parameters.AddWithValue("@datumVon", datumVon)
|
|
cmd.Parameters.AddWithValue("@datumBis", datumBis)
|
|
cmd.Parameters.AddWithValue("@kto", kto)
|
|
cmd.CommandTimeout = 9000 'teilweise sehr große Abfrage
|
|
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 Datenbankabfrage:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
|
|
Finally
|
|
dr.Close()
|
|
End Try
|
|
End Using
|
|
End Using
|
|
Catch ex As Exception
|
|
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
|
|
End Try
|
|
Return Nothing
|
|
|
|
End Function
|
|
|
|
|
|
Public Function getMonitoringData() As cMonitoringBrg
|
|
|
|
Dim sql As String = "SELECT * FROM tblMonitoringBrgUserSettings WHERE brgusrset_username='default' "
|
|
' MsgBox(sql)
|
|
' Dim daten As New List(Of cEntry)
|
|
Dim dr As SqlDataReader
|
|
Dim daten As New List(Of cBuergschaft)
|
|
Dim cMonitoringBrg As New cMonitoringBrg
|
|
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
|
|
cMonitoringBrg.brgusrset_id = dr.Item("brgusrset_id")
|
|
|
|
cMonitoringBrg.brgusrset_username = dr.Item("brgusrset_username")
|
|
cMonitoringBrg.brgusrset_gvvAt_summe = dr.Item("brgusrset_gvvAt_summe")
|
|
cMonitoringBrg.brgusrset_gvvAt_tag_warn1 = dr.Item("brgusrset_gvvAt_tag_warn1")
|
|
cMonitoringBrg.brgusrset_gvvAt_tag_warn2 = dr.Item("brgusrset_gvvAt_tag_warn2")
|
|
cMonitoringBrg.brgusrset_gvvAt_woche_warn1 = dr.Item("brgusrset_gvvAt_woche_warn1")
|
|
cMonitoringBrg.brgusrset_gvvAt_woche_warn2 = dr.Item("brgusrset_gvvAt_woche_warn2")
|
|
cMonitoringBrg.brgusrset_gvvDe_summe = dr.Item("brgusrset_gvvDe_summe")
|
|
cMonitoringBrg.brgusrset_gvvDe_tag_warn1 = dr.Item("brgusrset_gvvDe_tag_warn1")
|
|
cMonitoringBrg.brgusrset_gvvDe_tag_warn2 = dr.Item("brgusrset_gvvDe_tag_warn2")
|
|
cMonitoringBrg.brgusrset_gvvDe_woche_warn1 = dr.Item("brgusrset_gvvDe_woche_warn1")
|
|
cMonitoringBrg.brgusrset_gvvDe_woche_warn2 = dr.Item("brgusrset_gvvDe_woche_warn2")
|
|
|
|
cMonitoringBrg.brgusrset_gvvDe2_summe = dr.Item("brgusrset_gvvde2_summe")
|
|
cMonitoringBrg.brgusrset_gvvDe2_tag_warn1 = dr.Item("brgusrset_gvvde2_tag_warn1")
|
|
cMonitoringBrg.brgusrset_gvvDe2_tag_warn2 = dr.Item("brgusrset_gvvde2_tag_warn2")
|
|
cMonitoringBrg.brgusrset_gvvDe2_woche_warn1 = dr.Item("brgusrset_gvvde2_woche_warn1")
|
|
cMonitoringBrg.brgusrset_gvvDe2_woche_warn2 = dr.Item("brgusrset_gvvde2_woche_warn2")
|
|
|
|
cMonitoringBrg.brgusrset_aufschub_AG_de_summe = dr.Item("brgusrset_aufschub_AG_de_summe")
|
|
cMonitoringBrg.brgusrset_aufschub_AG_de_warn1 = dr.Item("brgusrset_aufschub_AG_de_warn1")
|
|
cMonitoringBrg.brgusrset_aufschub_AG_de_warn2 = dr.Item("brgusrset_aufschub_AG_de_warn2")
|
|
cMonitoringBrg.brgusrset_aufschub_AG_at_summe = dr.Item("brgusrset_aufschub_AG_at_summe")
|
|
cMonitoringBrg.brgusrset_aufschub_AG_at_warn1 = dr.Item("brgusrset_aufschub_AG_at_warn1")
|
|
cMonitoringBrg.brgusrset_aufschub_AG_at_warn2 = dr.Item("brgusrset_aufschub_AG_at_warn2")
|
|
cMonitoringBrg.brgusrset_aufschub_CS_at_summe = dr.Item("brgusrset_aufschub_CS_at_summe")
|
|
cMonitoringBrg.brgusrset_aufschub_CS_at_warn1 = dr.Item("brgusrset_aufschub_CS_at_warn1")
|
|
cMonitoringBrg.brgusrset_aufschub_CS_at_warn2 = dr.Item("brgusrset_aufschub_CS_at_warn2")
|
|
cMonitoringBrg.brgusrset_aufschub_ZS_at_summe = dr.Item("brgusrset_aufschub_ZS_at_summe")
|
|
cMonitoringBrg.brgusrset_aufschub_ZS_at_warn1 = dr.Item("brgusrset_aufschub_ZS_at_warn1")
|
|
cMonitoringBrg.brgusrset_aufschub_ZS_at_warn2 = dr.Item("brgusrset_aufschub_ZS_at_warn2")
|
|
|
|
cMonitoringBrg.brgusrset_aufschub_imex_de_summe = dr.Item("brgusrset_aufschub_imex_de_summe")
|
|
cMonitoringBrg.brgusrset_aufschub_imex_de_warn1 = dr.Item("brgusrset_aufschub_imex_de_warn1")
|
|
cMonitoringBrg.brgusrset_aufschub_imex_de_warn2 = dr.Item("brgusrset_aufschub_imex_de_warn2")
|
|
|
|
cMonitoringBrg.brgusrset_gvvAt_imex_de_summe = dr.Item("brgusrset_gvvAt_imex_de_summe")
|
|
cMonitoringBrg.brgusrset_gvvAt_imex_tag_warn1 = dr.Item("brgusrset_gvvAt_imex_tag_warn1")
|
|
cMonitoringBrg.brgusrset_gvvAt_imex_tag_warn2 = dr.Item("brgusrset_gvvAt_imex_tag_warn2")
|
|
cMonitoringBrg.brgusrset_gvvAt_imex_woche_warn1 = dr.Item("brgusrset_gvvAt_imex_woche_warn1")
|
|
cMonitoringBrg.brgusrset_gvvAt_imex_woche_warn2 = dr.Item("brgusrset_gvvAt_imex_woche_warn2")
|
|
|
|
|
|
|
|
cMonitoringBrg.brgusrset_gvvAt_ATILLA_de_summe = dr.Item("brgusrset_gvvAt_ATILLA_de_summe")
|
|
cMonitoringBrg.brgusrset_gvvAt_ATILLA_tag_warn1 = dr.Item("brgusrset_gvvAt_ATILLA_tag_warn1")
|
|
cMonitoringBrg.brgusrset_gvvAt_ATILLA_tag_warn2 = dr.Item("brgusrset_gvvAt_ATILLA_tag_warn2")
|
|
cMonitoringBrg.brgusrset_gvvAt_ATILLA_woche_warn1 = dr.Item("brgusrset_gvvAt_ATILLA_woche_warn1")
|
|
cMonitoringBrg.brgusrset_gvvAt_ATILLA_woche_warn2 = dr.Item("brgusrset_gvvAt_ATILLA_woche_warn2")
|
|
|
|
End If
|
|
Return cMonitoringBrg
|
|
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 cMonitoringBrg
|
|
End Function
|
|
|
|
|
|
Public Function setMonitoringData(d As cMonitoringBrg) As Boolean
|
|
Dim hAuswahl As String = ""
|
|
|
|
|
|
|
|
|
|
'Änderung
|
|
Dim sql = "UPDATE tblMonitoringBrgUserSettings " &
|
|
" SET brgusrset_username=@brgusrset_username, brgusrset_gvvAt_summe=@brgusrset_gvvAt_summe, brgusrset_gvvAt_tag_warn1=@brgusrset_gvvAt_tag_warn1, brgusrset_gvvAt_tag_warn2=@brgusrset_gvvAt_tag_warn2, brgusrset_gvvAt_woche_warn1=@brgusrset_gvvAt_woche_warn1, brgusrset_gvvAt_woche_warn2=@brgusrset_gvvAt_woche_warn2, brgusrset_gvvDe_summe=@brgusrset_gvvDe_summe, brgusrset_gvvDe_tag_warn1=@brgusrset_gvvDe_tag_warn1, brgusrset_gvvDe_tag_warn2=@brgusrset_gvvDe_tag_warn2, brgusrset_gvvDe_woche_warn1=@brgusrset_gvvDe_woche_warn1, brgusrset_gvvDe_woche_warn2=@brgusrset_gvvDe_woche_warn2, " &
|
|
" brgusrset_gvvde2_summe=@brgusrset_gvvde2_summe, brgusrset_gvvde2_tag_warn1=@brgusrset_gvvde2_tag_warn1, brgusrset_gvvde2_tag_warn2=@brgusrset_gvvde2_tag_warn2, brgusrset_gvvde2_woche_warn1=@brgusrset_gvvde2_woche_warn1, brgusrset_gvvde2_woche_warn2=@brgusrset_gvvde2_woche_warn2, " &
|
|
" brgusrset_aufschub_AG_de_summe=@brgusrset_aufschub_AG_de_summe, brgusrset_aufschub_AG_de_warn1=@brgusrset_aufschub_AG_de_warn1, brgusrset_aufschub_AG_de_warn2=@brgusrset_aufschub_AG_de_warn2, brgusrset_aufschub_AG_at_summe=@brgusrset_aufschub_AG_at_summe, brgusrset_aufschub_AG_at_warn1=@brgusrset_aufschub_AG_at_warn1, brgusrset_aufschub_AG_at_warn2=@brgusrset_aufschub_AG_at_warn2, brgusrset_aufschub_CS_at_summe=@brgusrset_aufschub_CS_at_summe, brgusrset_aufschub_CS_at_warn1=@brgusrset_aufschub_CS_at_warn1, brgusrset_aufschub_CS_at_warn2=@brgusrset_aufschub_CS_at_warn2, brgusrset_aufschub_ZS_at_summe=@brgusrset_aufschub_ZS_at_summe, brgusrset_aufschub_ZS_at_warn1=@brgusrset_aufschub_ZS_at_warn1, brgusrset_aufschub_ZS_at_warn2=@brgusrset_aufschub_ZS_at_warn2, " &
|
|
" brgusrset_aufschub_imex_de_summe=@brgusrset_aufschub_imex_de_summe,brgusrset_aufschub_imex_de_warn1=@brgusrset_aufschub_imex_de_warn1,brgusrset_aufschub_imex_de_warn2=@brgusrset_aufschub_imex_de_warn2,brgusrset_gvvAt_imex_de_summe =@brgusrset_gvvAt_imex_de_summe,brgusrset_gvvAt_imex_tag_warn1=@brgusrset_gvvAt_imex_tag_warn1,brgusrset_gvvAt_imex_tag_warn2=@brgusrset_gvvAt_imex_tag_warn2,brgusrset_gvvAt_imex_woche_warn1=@brgusrset_gvvAt_imex_woche_warn1,brgusrset_gvvAt_imex_woche_warn2=@brgusrset_gvvAt_imex_woche_warn2, " &
|
|
" brgusrset_gvvAt_ATILLA_de_summe =@brgusrset_gvvAt_ATILLA_de_summe,brgusrset_gvvAt_ATILLA_tag_warn1=@brgusrset_gvvAt_ATILLA_tag_warn1,brgusrset_gvvAt_ATILLA_tag_warn2=@brgusrset_gvvAt_ATILLA_tag_warn2,brgusrset_gvvAt_ATILLA_woche_warn1=@brgusrset_gvvAt_ATILLA_woche_warn1,brgusrset_gvvAt_ATILLA_woche_warn2=@brgusrset_gvvAt_ATILLA_woche_warn2 " &
|
|
" WHERE brgusrset_id=@brgusrset_id "
|
|
|
|
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
|
|
Using cmd As New SqlCommand(sql, conn)
|
|
'msgbo
|
|
cmd.Parameters.AddWithValue("@brgusrset_id", d.brgusrset_id)
|
|
cmd.Parameters.AddWithValue("@brgusrset_username", d.brgusrset_username)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_summe", d.brgusrset_gvvAt_summe)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_tag_warn1", d.brgusrset_gvvAt_tag_warn1)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_tag_warn2", d.brgusrset_gvvAt_tag_warn2)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_woche_warn1", d.brgusrset_gvvAt_woche_warn1)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_woche_warn2", d.brgusrset_gvvAt_woche_warn2)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvDe_summe", d.brgusrset_gvvDe_summe)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvDe_tag_warn1", d.brgusrset_gvvDe_tag_warn1)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvDe_tag_warn2", d.brgusrset_gvvDe_tag_warn2)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvDe_woche_warn1", d.brgusrset_gvvDe_woche_warn1)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvDe_woche_warn2", d.brgusrset_gvvDe_woche_warn2)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvDe2_summe", d.brgusrset_gvvDe2_summe)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvDe2_tag_warn1", d.brgusrset_gvvDe2_tag_warn1)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvDe2_tag_warn2", d.brgusrset_gvvDe2_tag_warn2)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvDe2_woche_warn1", d.brgusrset_gvvDe2_woche_warn1)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvDe2_woche_warn2", d.brgusrset_gvvDe2_woche_warn2)
|
|
cmd.Parameters.AddWithValue("@brgusrset_aufschub_AG_de_summe", d.brgusrset_aufschub_AG_de_summe)
|
|
cmd.Parameters.AddWithValue("@brgusrset_aufschub_AG_de_warn1", d.brgusrset_aufschub_AG_de_warn1)
|
|
cmd.Parameters.AddWithValue("@brgusrset_aufschub_AG_de_warn2", d.brgusrset_aufschub_AG_de_warn2)
|
|
cmd.Parameters.AddWithValue("@brgusrset_aufschub_AG_at_summe", d.brgusrset_aufschub_AG_at_summe)
|
|
cmd.Parameters.AddWithValue("@brgusrset_aufschub_AG_at_warn1", d.brgusrset_aufschub_AG_at_warn1)
|
|
cmd.Parameters.AddWithValue("@brgusrset_aufschub_AG_at_warn2", d.brgusrset_aufschub_AG_at_warn2)
|
|
cmd.Parameters.AddWithValue("@brgusrset_aufschub_CS_at_summe", d.brgusrset_aufschub_CS_at_summe)
|
|
cmd.Parameters.AddWithValue("@brgusrset_aufschub_CS_at_warn1", d.brgusrset_aufschub_CS_at_warn1)
|
|
cmd.Parameters.AddWithValue("@brgusrset_aufschub_CS_at_warn2", d.brgusrset_aufschub_CS_at_warn2)
|
|
cmd.Parameters.AddWithValue("@brgusrset_aufschub_ZS_at_summe", d.brgusrset_aufschub_ZS_at_summe)
|
|
cmd.Parameters.AddWithValue("@brgusrset_aufschub_ZS_at_warn1", d.brgusrset_aufschub_ZS_at_warn1)
|
|
cmd.Parameters.AddWithValue("@brgusrset_aufschub_ZS_at_warn2", d.brgusrset_aufschub_ZS_at_warn2)
|
|
cmd.Parameters.AddWithValue("@brgusrset_aufschub_imex_de_summe", d.brgusrset_aufschub_imex_de_summe)
|
|
cmd.Parameters.AddWithValue("@brgusrset_aufschub_imex_de_warn1", d.brgusrset_aufschub_imex_de_warn1)
|
|
cmd.Parameters.AddWithValue("@brgusrset_aufschub_imex_de_warn2", d.brgusrset_aufschub_imex_de_warn2)
|
|
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_imex_de_summe", d.brgusrset_gvvAt_imex_de_summe)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_imex_tag_warn1", d.brgusrset_gvvAt_imex_tag_warn1)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_imex_tag_warn2", d.brgusrset_gvvAt_imex_tag_warn2)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_imex_woche_warn1", d.brgusrset_gvvAt_imex_woche_warn1)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_imex_woche_warn2", d.brgusrset_gvvAt_imex_woche_warn2)
|
|
|
|
|
|
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_ATILLA_de_summe", d.brgusrset_gvvAt_ATILLA_de_summe)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_ATILLA_tag_warn1", d.brgusrset_gvvAt_ATILLA_tag_warn1)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_ATILLA_tag_warn2", d.brgusrset_gvvAt_ATILLA_tag_warn2)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_ATILLA_woche_warn1", d.brgusrset_gvvAt_ATILLA_woche_warn1)
|
|
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_ATILLA_woche_warn2", d.brgusrset_gvvAt_ATILLA_woche_warn2)
|
|
Try
|
|
cmd.ExecuteNonQuery()
|
|
Return True
|
|
Catch ex As SqlException
|
|
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Die Version kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Version")
|
|
End Try
|
|
End Using
|
|
End Using
|
|
Return False
|
|
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
|
|
|
|
Dim sql As String = "SELECT SUM(GarantieWert) " &
|
|
" FROM tblZolaris_EZoll_NCTS WHERE ( AnmeldungsDatum BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND GRN = '" & buergschaft & "' " & where
|
|
' 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.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
|
|
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 insertupdateMeldung(brgmld_date, brgmld_kto, brgmld_stufe, brgmld_user) As Boolean
|
|
|
|
Dim sql As String = " begin tran" &
|
|
" if exists (select * from tblBrgMeldungen with (updlock,serializable) where brgmld_date = @brgmld_date AND brgmld_kto=@brgmld_kto AND brgmld_user=@brgmld_user AND brgmld_stufe=@brgmld_stufe ) " &
|
|
" begin " &
|
|
" UPDATE tblBrgMeldungen " &
|
|
" SET brgmld_date=@brgmld_date, brgmld_kto=@brgmld_kto, brgmld_stufe=@brgmld_stufe, brgmld_user=@brgmld_user " &
|
|
" WHERE brgmld_date = @brgmld_date AND brgmld_kto=@brgmld_kto AND brgmld_user=@brgmld_user AND brgmld_stufe=@brgmld_stufe " &
|
|
" End " &
|
|
" else " &
|
|
" begin " &
|
|
" INSERT INTO tblBrgMeldungen " &
|
|
" (brgmld_date, brgmld_kto, brgmld_stufe, brgmld_user) VALUES " &
|
|
" (@brgmld_date, @brgmld_kto, @brgmld_stufe, @brgmld_user) " &
|
|
" End " &
|
|
" commit tran "
|
|
|
|
'Dim cn As New SqlConnection()
|
|
'cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
|
|
'cn.Open()
|
|
|
|
Dim cn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN
|
|
Using cn
|
|
Using cmd As New SqlCommand(sql, cn)
|
|
cmd.Parameters.AddWithValue("@brgmld_date", brgmld_date)
|
|
cmd.Parameters.AddWithValue("@brgmld_kto", brgmld_kto)
|
|
cmd.Parameters.AddWithValue("@brgmld_stufe", brgmld_stufe)
|
|
cmd.Parameters.AddWithValue("@brgmld_user", brgmld_user)
|
|
Try
|
|
cmd.ExecuteNonQuery()
|
|
Return True
|
|
Catch ex As SqlException
|
|
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler: " & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
|
|
End Try
|
|
End Using
|
|
End Using
|
|
Return False
|
|
End Function
|
|
|
|
Public Function existsMeldung(brgmld_date, brgmld_kto, brgmld_stufe, brgmld_user) As Boolean
|
|
|
|
Dim sql As String = " SELECT * FROM tblBrgMeldungen WHERE brgmld_date = @brgmld_date AND brgmld_kto=@brgmld_kto AND brgmld_user=@brgmld_user AND brgmld_stufe=@brgmld_stufe "
|
|
|
|
Dim dr As SqlDataReader
|
|
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
|
|
Using cmd As New SqlCommand(sql, conn)
|
|
cmd.Parameters.AddWithValue("@brgmld_date", brgmld_date)
|
|
cmd.Parameters.AddWithValue("@brgmld_kto", brgmld_kto)
|
|
cmd.Parameters.AddWithValue("@brgmld_stufe", brgmld_stufe)
|
|
cmd.Parameters.AddWithValue("@brgmld_user", brgmld_user)
|
|
dr = cmd.ExecuteReader()
|
|
Try
|
|
Dim cnt As Integer = 0
|
|
If dr.HasRows Then Return True
|
|
Catch ex As SqlException
|
|
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler: " & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
|
|
End Try
|
|
|
|
End Using
|
|
End Using
|
|
Return False
|
|
End Function
|
|
|
|
End Class
|