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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-08-04 16:35:31 +02:00
parent 853d96140f
commit 41b13fe4b0
38 changed files with 603 additions and 256 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
VERAGMonitoring/App.config
View File

@@ -1,6 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>
</startup>
</configuration>

2
VERAGMonitoring/AtlasAufschubDatenEinlesen.vb
View File

@@ -105,7 +105,7 @@ Module AtlasAufschubDatenEinlesen
Dim cn As New SqlConnection()
cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
cn.Open()
Using cn
Using cmd As New SqlCommand(sql, cn)

6
VERAGMonitoring/My Project/Application.Designer.vb generated
View File

@@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.34209
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
@@ -14,8 +14,8 @@ Option Explicit On
Namespace My
'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern
' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten
' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
'

2
VERAGMonitoring/My Project/Resources.Designer.vb generated
View File

@@ -71,7 +71,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.2.7 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 1.3.1 ähnelt.
'''</summary>
Friend ReadOnly Property version() As String
Get

2
VERAGMonitoring/My Project/Resources.resx
View File

@@ -118,7 +118,7 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="version" xml:space="preserve">
<value>1.2.7</value>
<value>1.3.1</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">

8
VERAGMonitoring/My Project/Settings.Designer.vb generated
View File

@@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.34209
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
@@ -15,21 +15,21 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Funktion zum automatischen Speichern von My.Settings"
#Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If

11
VERAGMonitoring/VERAGMonitoring.vbproj
View File

@@ -11,7 +11,7 @@
<AssemblyName>VERAGMonitoring</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
@@ -23,6 +23,7 @@
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>VERAGMonitoring.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
@@ -33,6 +34,7 @@
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>VERAGMonitoring.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
@@ -208,7 +210,12 @@
<Content Include="admin_monitoring.ico" />
<None Include="Resources\refresh.png" />
</ItemGroup>
<ItemGroup />
<ItemGroup>
<ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
<Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
<Name>VERAG_PROG_ALLGEMEIN</Name>
</ProjectReference>
</ItemGroup>
<ItemGroup>
<COMReference Include="Microsoft.Office.Core">
<Guid>{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}</Guid>

191
VERAGMonitoring/cSqlDb.vb
View File

@@ -4,38 +4,38 @@ Imports System.Data.SqlClient
Public Class cSqlDb
Public Shared Function GetNewOpenConnection() 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 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
' 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
@@ -49,7 +49,7 @@ Public Class cLogin
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 = cSqlDb.GetNewOpenConnection()
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
Using cmd As New SqlCommand(sql, conn)
cmd.Parameters.AddWithValue("@codename", "MONITORING")
dr = cmd.ExecuteReader()
@@ -126,7 +126,7 @@ Public Class cBrgDb
While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit()
Try
Dim myTable = New DataTable()
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
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)
@@ -150,7 +150,7 @@ Public Class cBrgDb
Public Function loadDgv(sql As String) As DataTable
Try
Dim myTable = New DataTable()
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
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)
@@ -170,7 +170,7 @@ Public Class cBrgDb
Public Function delBrgAufschubEinzahlung(id As String) As Boolean
Try
Dim myTable = New DataTable()
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
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
@@ -193,7 +193,7 @@ Public Class cBrgDb
While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit()
Try
Dim myTable = New DataTable()
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
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)
@@ -219,7 +219,7 @@ Public Class cBrgDb
While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit()
Try
Dim myTable = New DataTable()
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
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)
@@ -243,7 +243,7 @@ Public Class cBrgDb
While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit()
Try
Dim myTable = New DataTable()
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
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)
@@ -269,7 +269,7 @@ Public Class cBrgDb
While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit()
Try
Dim myTable = New DataTable()
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
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)
@@ -298,7 +298,36 @@ Public Class cBrgDb
While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit()
Try
Dim myTable = New DataTable()
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
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)
@@ -325,7 +354,7 @@ Public Class cBrgDb
While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit()
Try
Dim myTable = New DataTable()
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
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)
@@ -346,7 +375,7 @@ Public Class cBrgDb
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 = cSqlDb.GetNewOpenConnection()
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()
@@ -374,7 +403,7 @@ Public Class cBrgDb
Public Function insertBrgAufschubEinzahlung(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc) As Boolean
Try
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
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,'einzahlung') ", conn)
@@ -401,7 +430,7 @@ Public Class cBrgDb
Public Function insertBrgAufschubAusgleichsbetrag(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc) As Boolean
Try
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
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)
@@ -429,7 +458,7 @@ Public Class cBrgDb
Public Function deleteBrgAufschubAusgleichsbetrag(brgak_brgaktoId) As Boolean
Try
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
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)
@@ -451,7 +480,7 @@ Public Class cBrgDb
Public Function insertBrgAufschubZuBelastung(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc) As Boolean
Try
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
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)
@@ -492,6 +521,16 @@ Public Class cBrgDb
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) " &
@@ -500,7 +539,7 @@ Public Class cBrgDb
' Dim daten As New List(Of cEntry)
Dim dr As SqlDataReader
Dim daten As New List(Of cBuergschaft)
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand(sql, conn)
dr = cmd.ExecuteReader()
Try
@@ -532,7 +571,39 @@ Public Class cBrgDb
'MsgBox(sql)
Dim dr As SqlDataReader
Dim daten As New List(Of cBuergschaft)
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
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
@@ -564,7 +635,7 @@ Public Class cBrgDb
'MsgBox(sql)
Dim dr As SqlDataReader
Dim daten As New List(Of cBuergschaft)
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand(sql, conn)
dr = cmd.ExecuteReader()
Try
@@ -595,7 +666,7 @@ Public Class cBrgDb
' Dim daten As New List(Of cEntry)
Dim dr As SqlDataReader
Dim daten As New List(Of cBuergschaft)
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand(sql, conn)
dr = cmd.ExecuteReader()
Try
@@ -628,7 +699,7 @@ Public Class cBrgDb
' Dim daten As New List(Of cEntry)
Dim dr As SqlDataReader
Dim daten As New List(Of cBuergschaft)
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
Using cmd As New SqlCommand(sql, conn)
dr = cmd.ExecuteReader()
Try
@@ -696,7 +767,7 @@ Public Class cBrgDb
' Dim daten As New List(Of cEntry)
Dim dr As SqlDataReader
Dim daten As New List(Of cBuergschaft)
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
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)
@@ -734,7 +805,7 @@ Public Class cBrgDb
Dim dr As SqlDataReader
Dim daten As New List(Of cBuergschaft)
Dim cMonitoringBrg As New cMonitoringBrg
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
Using cmd As New SqlCommand(sql, conn)
dr = cmd.ExecuteReader()
Try
@@ -810,7 +881,7 @@ Public Class cBrgDb
" 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 " &
" WHERE brgusrset_id=@brgusrset_id "
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
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)
@@ -871,7 +942,7 @@ Public Class cBrgDb
' Dim daten As New List(Of cEntry)
Dim dr As SqlDataReader
Dim daten As New List(Of cBuergschaft)
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand(sql, conn)
dr = cmd.ExecuteReader()
Try
@@ -910,9 +981,11 @@ Public Class cBrgDb
" End " &
" commit tran "
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;"
cn.Open()
'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)
@@ -935,7 +1008,7 @@ Public Class cBrgDb
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 = cSqlDb.GetNewOpenConnection()
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)

2
VERAGMonitoring/frmBelastAufheben.vb
View File

@@ -68,7 +68,7 @@ Public Class frmBelastAufheben
" SET brgAT_Aufgehoben=@brgAT_Aufgehoben, brgAT_AufgehobenDatum=@brgAT_AufgehobenDatum " &
" WHERE brgAT_id=@brgAT_id "
', brgAT_Aufgehoben_mitID=@brgAT_Aufgehoben_mitID " &
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN
Using cmd As New SqlCommand(sql, conn)
'msgbo

3
VERAGMonitoring/frmKtoStandAkt.vb
View File

@@ -29,6 +29,9 @@
Dim bis As Date = CDate(datKto.Value)
Dim betrag As Double = 0.0
Dim oItem As MyListItem = CType(cboBrg.SelectedItem, MyListItem)
If BRG.deleteBrgAufschubAusgleichsbetrag(oItem.Value) Then
Select Case DirectCast(cboBrg.SelectedItem, MyListItem).Value
Case 1

13
VERAGMonitoring/frmMain.vb
View File

@@ -16,7 +16,10 @@ Public Class frmMain
Try : ico.Visible = Not Visible : Catch : End Try
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
'auf UPDATES prüfen:
Dim LOGIN As New cLogin
If CInt(LOGIN.getAktuelleVersion().Replace(".", "")) > CInt(My.Resources.version.Replace(".", "")) Then
@@ -202,6 +205,8 @@ Public Class frmMain
Dim AtWoche_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT)
'TELOTEC AT WOCHE
Dim AtWoche_TELOTEC As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT)
'TELOTEC AT WOCHE
Dim AtWoche_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT)
'AT WOCHE
Dim woche_at As Double = AtWoche_atlas + AtWoche_zolaris + AtWoche_TELOTEC
setLabel(lblAtWoche, String.Format("{0:C}", CDbl(woche_at)))
@@ -212,8 +217,10 @@ Public Class frmMain
Dim AtTag_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT)
'TELOTEC AT TAG
Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT)
'NCTS_TR AT TAG
Dim AtTag_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT)
'AT TAG
Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec
Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec + AtTag_nctsTR
setLabel(lblAtTag, String.Format("{0:C}", CDbl(tag_at)))
Else
setLabel(lblAtWoche, "0.0")
@@ -379,6 +386,7 @@ Public Class frmMain
'betragBrg += zolaris
'MsgBox(zolaris)
setLabel(lblAufschubBrg_at_VeragCS, String.Format("{0:C}", CDbl(betragBrg)))
' MsgBox(betragBrg & " - " & cMonitoringBrg.brgusrset_aufschub_CS_at_warn1)
setAlarm2("Aufschubkonto AT - VERAG Customs Sercvie GmbH - HZA Salzburg", "3", Me.lblAufschubBrg_at_VeragCS, cMonitoringBrg.brgusrset_aufschub_CS_at_warn1, cMonitoringBrg.brgusrset_aufschub_CS_at_warn2, cMonitoringBrg.brgusrset_aufschub_CS_at_summe, lblAufschubStatus_at_VeragCS)
@@ -548,7 +556,7 @@ Public Class frmMain
stufe = 2
End If
If wert < 0 Then
If wert < summe Then
lblStatus.Text = "ÜBER"
lblStatus.ForeColor = Color.White
lblStatus.BackColor = Color.DarkRed
@@ -584,6 +592,7 @@ Public Class frmMain
End If
End If
Next
Return False
End Function

31
VERAGMonitoring/frmShowData.Designer.vb generated
View File

@@ -31,10 +31,11 @@ Partial Class frmShowData
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.NCTS_TR = New System.Windows.Forms.TabPage()
CType(Me.dgv, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.tbcntr.SuspendLayout()
@@ -92,6 +93,7 @@ Partial Class frmShowData
Me.tbcntr.Controls.Add(Me.TabPage1)
Me.tbcntr.Controls.Add(Me.TabPage3)
Me.tbcntr.Controls.Add(Me.TabPage4)
Me.tbcntr.Controls.Add(Me.NCTS_TR)
Me.tbcntr.Location = New System.Drawing.Point(0, 31)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
@@ -127,6 +129,16 @@ Partial Class frmShowData
Me.TabPage3.Text = "EZOLL"
Me.TabPage3.UseVisualStyleBackColor = True
'
'TabPage4
'
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage4.Size = New System.Drawing.Size(1045, 0)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "TELOTEC"
Me.TabPage4.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(599, 5)
@@ -157,15 +169,15 @@ Partial Class frmShowData
Me.Label1.TabIndex = 0
Me.Label1.Text = "Datensätze:"
'
'TabPage4
'NCTS_TR
'
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage4.Size = New System.Drawing.Size(1045, 0)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "TELOTEC"
Me.TabPage4.UseVisualStyleBackColor = True
Me.NCTS_TR.Location = New System.Drawing.Point(4, 22)
Me.NCTS_TR.Name = "NCTS_TR"
Me.NCTS_TR.Padding = New System.Windows.Forms.Padding(3)
Me.NCTS_TR.Size = New System.Drawing.Size(1045, 0)
Me.NCTS_TR.TabIndex = 4
Me.NCTS_TR.Text = "NCTS_TR"
Me.NCTS_TR.UseVisualStyleBackColor = True
'
'frmShowData
'
@@ -196,4 +208,5 @@ Partial Class frmShowData
Friend WithEvents datBIS As System.Windows.Forms.DateTimePicker
Friend WithEvents datVON As System.Windows.Forms.DateTimePicker
Friend WithEvents TabPage4 As TabPage
Friend WithEvents NCTS_TR As TabPage
End Class

10
VERAGMonitoring/frmShowData.vb
View File

@@ -119,6 +119,16 @@ Public Class frmShowData
dgv.Columns("Betrag").DefaultCellStyle.Format = "N2"
dgv.Columns("Betrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
End If
Case 4 'NCTS_TR TELOTEC
dgv.DataSource = BRG.loadDgvBySqlFromBrgKt_NCTS_TR_Details(datVON.Value.ToShortDateString, datBIS.Value.ToShortDateString, "50", "50", BRG_GRN)
If dgv.Columns.Count > 0 Then
dgv.Columns("nctsSA_AbgabenBetrag").DefaultCellStyle.Format = "N2"
dgv.Columns("ncts_GesamtRohmasse").DefaultCellStyle.Format = "N2"
dgv.Columns("ncts_GesamtAnzahlPackstuecke").DefaultCellStyle.Format = "N0"
dgv.Columns("nctsSA_AbgabenBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
dgv.Columns("ncts_GesamtRohmasse").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
dgv.Columns("ncts_GesamtAnzahlPackstuecke").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
End If
End Select
Case "AUFSCHUB"
End Select