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-10-02 10:36:37 +02:00
parent f5248e4a51
commit fa670231f7
17 changed files with 297 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
UID/Classes/cDienstSettings.vb
View File

@@ -16,6 +16,7 @@ Public Class cDienstSettings
Property dpset_AbfAuswertung As Boolean
Property dpset_StudenAuswertung As Boolean
Property dpset_AvisoAuswertung As Boolean
Property dpset_land As String
@@ -26,6 +27,7 @@ Public Class cDienstSettings
LOAD()
End Sub
Function getParameterList() As List(Of SQLVariable)
Dim list As New List(Of SQLVariable)
list.Add(New SQLVariable("dpset_id", dpset_id, , True))
@@ -42,6 +44,7 @@ Public Class cDienstSettings
list.Add(New SQLVariable("dpset_AbfAuswertung", dpset_AbfAuswertung))
list.Add(New SQLVariable("dpset_StudenAuswertung", dpset_StudenAuswertung))
list.Add(New SQLVariable("dpset_AvisoAuswertung", dpset_AvisoAuswertung))
list.Add(New SQLVariable("dpset_land", dpset_land))
Return list
End Function
@@ -88,6 +91,26 @@ Public Class cDienstSettings
Shared Function getLand(dpset_niederlassung) As String
getLand = "AT" 'Defaut
Try
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
Using cmd As New SqlCommand("SELECT dpset_land FROM tblDienstSettings WHERE dpset_niederlassung=@dpset_niederlassung ", conn)
cmd.Parameters.AddWithValue("@dpset_niederlassung", dpset_niederlassung)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
getLand = dr.Item(0)
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Function
Public Function getUpdateCmd() As String
Try
Dim list As List(Of SQLVariable) = getParameterList()

36
UID/Dienstplan/cFeiertage.vb
View File

@@ -57,6 +57,24 @@
End Get
End Property
''' <summary>
''' Gibt das Datum für den BussUndBettag zurück.
''' </summary>
Public ReadOnly Property BussUndBettag() As Date
Get
Dim i As Long
Dim VierterAdvent As Date
For i = 24 To 1 Step -1
If CDate(i & ".12." & _Year).ToString("ddd") = "So" Then
VierterAdvent = CDate(i & ".12." & _Year).ToShortDateString
Exit For
End If
Next i
Dim ErsterAdvent As Date = DateAdd("d", -21, VierterAdvent)
Return DateAdd("d", -11, ErsterAdvent) 'BussUndBettag
End Get
End Property
''' <summary>
''' Gibt das Datum für den Karfreitag zurück.
''' </summary>
@@ -112,14 +130,11 @@
End Property
Public Function isFeiertag(datum As Date) As Boolean
Public Function isFeiertag(datum As Date, land As String) As Boolean
If datum = CDate("01.01." & _Year) Then Return True
If datum = CDate("06.01." & _Year) Then Return True
If datum = CDate("01.05." & _Year) Then Return True
If datum = CDate("15.08." & _Year) Then Return True
If datum = CDate("26.10." & _Year) Then Return True
If datum = CDate("01.11." & _Year) Then Return True
If datum = CDate("08.12." & _Year) Then Return True
If datum = CDate("25.12." & _Year) Then Return True
If datum = CDate("26.12." & _Year) Then Return True
If datum = Ostermontag Then Return True
@@ -128,6 +143,19 @@
If datum = Pfingstmontag Then Return True
If datum = Pfingstsonntag Then Return True
If datum = Fronleichnam Then Return True
Select Case land
Case "AT"
If datum = CDate("26.10." & _Year) Then Return True
If datum = CDate("08.12." & _Year) Then Return True
If datum = CDate("01.05." & _Year) Then Return True 'Staatsfeiertag
Case "DE" 'BAYERN
If datum = CDate("03.10." & _Year) Then Return True ' Tag der Deutschen Einheit
If datum = BussUndBettag Then Return True ' Buß- und Bettag '!!!!ABEWEICHEND
If datum = CDate("08.08." & _Year) Then Return True ' Augsburger Friedensfest
If datum = CDate("01.05." & _Year) Then Return True ' Maifeiertag
If datum = Karfreitag Then Return True
End Select
Return False
End Function

5
UID/Dienstplan/frmDienstplan.vb
View File

@@ -14,6 +14,7 @@ Public Class frmDienstplan
Private scr_top As Integer = 50
Dim week() As String = {"SO", "MO", "DI", "MI", "DO", "FR", "SA"}
Private SCHICHT = "ROT"
Dim SETTINGS As cDienstSettings
Dim SQLDienst As New cDienstplan
Dim ListMA As New List(Of cMAShort)
@@ -270,6 +271,8 @@ Public Class frmDienstplan
Me.berechtigung = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG(Me.Name, 1)
If Me.berechtigung = 99 Then Me.Close() : Exit Sub
SETTINGS = New cDienstSettings(niederlassung)
Me.Cursor = Cursors.WaitCursor
aktWoche = DateToWeek(aktDate).Substring(4, 2)
aktJahr = DateToWeek(aktDate).Substring(0, 4)
@@ -865,7 +868,7 @@ Public Class frmDienstplan
eintrag.dstetr_dstmaId = m.dstma_id
eintrag.dstetr_datum = datum
If Not FT.isFeiertag(datum) Then
If Not FT.isFeiertag(datum, SETTINGS.dpset_land) Then
If m.dstma_muster Then
' MsgBox("HIER")
Dim tz As List(Of cDienstTeilzeit) = SQLDienst.getAllDienstTeilzeit(m.dstma_id)

2
UID/Dienstplan/frmDienstplanATILLA.vb
View File

@@ -857,7 +857,7 @@ Public Class frmDienstplanATILLA
eintrag.dstetr_dstmaId = m.dstma_id
eintrag.dstetr_datum = datum
If Not FT.isFeiertag(datum) Then
If Not FT.isFeiertag(datum, cDienstSettings.getLand(niederlassung)) Then
If m.dstma_muster Then
' MsgBox("HIER")
Dim tz As List(Of cDienstTeilzeit) = SQLDienst.getAllDienstTeilzeit(m.dstma_id)

6
UID/Dienstplan/frmDienstplanVariabel.vb
View File

@@ -1232,7 +1232,7 @@ Public Class frmDienstplanVariabel
eintrag.dstetr_dstmaId = m.dstma_id
eintrag.dstetr_datum = datum
If Not FT.isFeiertag(datum) Then
If Not FT.isFeiertag(datum, SETTINGS.dpset_land) Then
If m.dstma_muster Then
' MsgBox("HIER")
@@ -2467,7 +2467,7 @@ Public Class frmDienstplanVariabel
Blatt = Datei.Worksheets("DIENSTPLAN")
Dim dt_Ma As DataTable = SQLDienst.loadDGV("SELECT TOP 25 [dstma_id],[dstma_mitId],[dstma_kuerzel],[dstma_arbvh] FROM [ADMIN].[dbo].[tblDienstMitarb] inner join tblMitarbeiter ON mit_id=dstma_mitId where dstma_niederlassung='" & niederlassung & "' and mit_gekuendigt=0 order by dstma_reihenfolge, dstma_kuerzel")
Dim dt_Ma As DataTable = SQLDienst.loadDGV("SELECT TOP 25 [dstma_id],[dstma_mitId],[dstma_kuerzel],[dstma_arbvh] FROM [ADMIN].[dbo].[tblDienstMitarb] inner join tblMitarbeiter ON mit_id=dstma_mitId where dstma_niederlassung='" & niederlassung & "' and mit_gekuendigt=0 and dstma_inaktiv=0 order by dstma_reihenfolge, dstma_kuerzel")
Dim cnt = 0
If dt_Ma IsNot Nothing Then
@@ -2487,7 +2487,7 @@ Public Class frmDienstplanVariabel
Blatt.Range("A" & CInt(14 + cnt3).ToString).Font.Color = Color.Red
End If
If FT.isFeiertag(dateWork) Then
If FT.isFeiertag(dateWork, SETTINGS.dpset_land) Then
Blatt.Range("B" & CInt(14 + cnt3).ToString & ":" & "Z" & CInt(14 + cnt3).ToString).Interior.Color = Color.Orange
Blatt.Range("A" & CInt(14 + cnt3).ToString).Font.Color = Color.Red
End If

2
UID/Dienstplan/usrCntlDienstplan.vb
View File

@@ -382,7 +382,7 @@ Public Class usrCntlDienstplan
End Select
rpt.txtTag.ForeColor = Color.Black
If FT.isFeiertag(datumKW) Or datumKW.ToString("dd.MM.") = "31.12." Or datumKW.ToString("dd.MM.") = "24.12." Or datumKW.DayOfWeek = 0 Then 'Feiertag oder 1/2 Tag
If FT.isFeiertag(datumKW, cDienstSettings.getLand(niederlassung)) Or datumKW.ToString("dd.MM.") = "31.12." Or datumKW.ToString("dd.MM.") = "24.12." Or datumKW.DayOfWeek = 0 Then 'Feiertag oder 1/2 Tag
rpt.txtTag.ForeColor = Color.Red
rpt.Detail.BackColor = Color.FromArgb(220, 220, 220)
End If

11
UID/My Project/Resources.Designer.vb generated
View File

@@ -375,15 +375,6 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property hjhjkghjklghjkhz678678568() As String
Get
Return ResourceManager.GetString("hjhjkghjklghjkhz678678568", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -664,7 +655,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.9.9 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 2.0.0 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

5
UID/My Project/Resources.resx
View File

@@ -188,7 +188,7 @@
<value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
</data>
<data name="Version" xml:space="preserve">
<value>1.9.9</value>
<value>2.0.0</value>
</data>
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -298,9 +298,6 @@
<data name="gear" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hjhjkghjklghjkhz678678568" xml:space="preserve">
<value />
</data>
<data name="personGray_m" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personGray_m.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>

4
UID/cProgramFunctions.vb
View File

@@ -910,7 +910,7 @@ Public Class cProgramFunctions
For i = 0 To 6
' Wochenstunden -= getWochenstundenTAG(datum, SCHICHT, dstma_id, dstma_muster, dstma_WEStdRegelAZ, dstma_arbvh, niederlassung)
Dim FT As New cFeiertage(datum.Year)
If FT.isFeiertag(datum) Or datum.ToString("dd.MM.") = "31.12." Or datum.ToString("dd.MM.") = "24.12." Then 'Feiertag oder 1/2 Tag
If FT.isFeiertag(datum, cDienstSettings.getLand(niederlassung)) Or datum.ToString("dd.MM.") = "31.12." Or datum.ToString("dd.MM.") = "24.12." Then 'Feiertag oder 1/2 Tag
Dim woTag = datum.ToString("ddd", New CultureInfo("de-DE")).ToUpper
If dstma_muster Then 'Wenn Muster, dann muss Feiertag bei VZ und TZ berüchsichtigt werden....
@@ -962,7 +962,7 @@ Public Class cProgramFunctions
Dim FT As New cFeiertage(datum.Year)
Dim woTag = datum.ToString("ddd", New CultureInfo("de-DE")).ToUpper
If FT.isFeiertag(datum) Then 'Feiertag oder 1/2 Tag
If FT.isFeiertag(datum, cDienstSettings.getLand(niederlassung)) Then 'Feiertag oder 1/2 Tag
getWochenstundenTAG = 0
ElseIf woTag = "SA" And woTag = "SO" Then
getWochenstundenTAG = 0

2
UID/cSqlDb.vb
View File

@@ -3949,7 +3949,7 @@ Public Class cDienstplan
'End If
If cPF.isValidTime(von) And cPF.isValidTime(bis) Then ' Wenn Format stimmt
s += cPF.getDiff(von, bis, niederlassung, (FT.isFeiertag(datum) Or woTag = "SO"))
s += cPF.getDiff(von, bis, niederlassung, (FT.isFeiertag(datum, cDienstSettings.getLand(niederlassung)) Or woTag = "SO"))
If IsNumeric(dr.Item("dstetr_pause")) Then
s -= CDbl(dr.Item("dstetr_pause"))
End If

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.3.1 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 1.3.3 ä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.3.1</value>
<value>1.3.3</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">

6
VERAGMonitoring/cClasses.vb
View File

@@ -55,6 +55,12 @@ Public Class cMonitoringBrg
Property brgusrset_gvvAt_imex_tag_warn2 As Double = 0.0
Property brgusrset_gvvAt_imex_woche_warn1 As Double = 0.0
Property brgusrset_gvvAt_imex_woche_warn2 As Double = 0.0
Property brgusrset_gvvAt_ATILLA_de_summe As Double = 0.0
Property brgusrset_gvvAt_ATILLA_tag_warn1 As Double = 0.0
Property brgusrset_gvvAt_ATILLA_tag_warn2 As Double = 0.0
Property brgusrset_gvvAt_ATILLA_woche_warn1 As Double = 0.0
Property brgusrset_gvvAt_ATILLA_woche_warn2 As Double = 0.0
End Class

18
VERAGMonitoring/cSqlDb.vb
View File

@@ -854,6 +854,14 @@ Public Class cBrgDb
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
@@ -878,7 +886,8 @@ Public Class cBrgDb
" 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_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()
@@ -923,6 +932,13 @@ Public Class cBrgDb
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

173
VERAGMonitoring/frmMain.Designer.vb generated
View File

@@ -25,6 +25,12 @@ Partial Class frmMain
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.Panel2 = New System.Windows.Forms.Panel()
Me.cbxBrg_at_Atilla = New System.Windows.Forms.CheckBox()
Me.lblBrg_at_Atilla = New System.Windows.Forms.Label()
Me.lblAtWocheAtilla = New System.Windows.Forms.Label()
Me.lblAtTagAtilla = New System.Windows.Forms.Label()
Me.lblAt_woche_StatusAtilla = New System.Windows.Forms.Label()
Me.lblAt_tag_StatusAtilla = New System.Windows.Forms.Label()
Me.cbxBrg_at_Imex = New System.Windows.Forms.CheckBox()
Me.lblBrg_at_Imex = New System.Windows.Forms.Label()
Me.lblAtWocheImex = New System.Windows.Forms.Label()
@@ -113,6 +119,12 @@ Partial Class frmMain
'Panel2
'
Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel2.Controls.Add(Me.cbxBrg_at_Atilla)
Me.Panel2.Controls.Add(Me.lblBrg_at_Atilla)
Me.Panel2.Controls.Add(Me.lblAtWocheAtilla)
Me.Panel2.Controls.Add(Me.lblAtTagAtilla)
Me.Panel2.Controls.Add(Me.lblAt_woche_StatusAtilla)
Me.Panel2.Controls.Add(Me.lblAt_tag_StatusAtilla)
Me.Panel2.Controls.Add(Me.cbxBrg_at_Imex)
Me.Panel2.Controls.Add(Me.lblBrg_at_Imex)
Me.Panel2.Controls.Add(Me.lblAtWocheImex)
@@ -180,9 +192,80 @@ Partial Class frmMain
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(646, 405)
Me.Panel2.Size = New System.Drawing.Size(646, 430)
Me.Panel2.TabIndex = 8
'
'cbxBrg_at_Atilla
'
Me.cbxBrg_at_Atilla.AutoSize = True
Me.cbxBrg_at_Atilla.Checked = True
Me.cbxBrg_at_Atilla.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxBrg_at_Atilla.Location = New System.Drawing.Point(9, 188)
Me.cbxBrg_at_Atilla.Name = "cbxBrg_at_Atilla"
Me.cbxBrg_at_Atilla.Size = New System.Drawing.Size(15, 14)
Me.cbxBrg_at_Atilla.TabIndex = 37
Me.cbxBrg_at_Atilla.UseVisualStyleBackColor = True
'
'lblBrg_at_Atilla
'
Me.lblBrg_at_Atilla.AutoSize = True
Me.lblBrg_at_Atilla.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblBrg_at_Atilla.Location = New System.Drawing.Point(24, 189)
Me.lblBrg_at_Atilla.Name = "lblBrg_at_Atilla"
Me.lblBrg_at_Atilla.Size = New System.Drawing.Size(171, 13)
Me.lblBrg_at_Atilla.TabIndex = 32
Me.lblBrg_at_Atilla.Text = "AT - gVV - HZA Linz/Wels ATILLA"
'
'lblAtWocheAtilla
'
Me.lblAtWocheAtilla.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAtWocheAtilla.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAtWocheAtilla.Location = New System.Drawing.Point(509, 188)
Me.lblAtWocheAtilla.Name = "lblAtWocheAtilla"
Me.lblAtWocheAtilla.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtWocheAtilla.Size = New System.Drawing.Size(90, 13)
Me.lblAtWocheAtilla.TabIndex = 33
Me.lblAtWocheAtilla.Text = " 0 €"
'
'lblAtTagAtilla
'
Me.lblAtTagAtilla.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAtTagAtilla.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAtTagAtilla.Location = New System.Drawing.Point(360, 189)
Me.lblAtTagAtilla.Name = "lblAtTagAtilla"
Me.lblAtTagAtilla.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtTagAtilla.Size = New System.Drawing.Size(90, 13)
Me.lblAtTagAtilla.TabIndex = 34
Me.lblAtTagAtilla.Text = " 0 €"
'
'lblAt_woche_StatusAtilla
'
Me.lblAt_woche_StatusAtilla.AutoSize = True
Me.lblAt_woche_StatusAtilla.BackColor = System.Drawing.Color.Green
Me.lblAt_woche_StatusAtilla.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAt_woche_StatusAtilla.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAt_woche_StatusAtilla.ForeColor = System.Drawing.Color.White
Me.lblAt_woche_StatusAtilla.Location = New System.Drawing.Point(605, 188)
Me.lblAt_woche_StatusAtilla.Name = "lblAt_woche_StatusAtilla"
Me.lblAt_woche_StatusAtilla.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAt_woche_StatusAtilla.Size = New System.Drawing.Size(22, 13)
Me.lblAt_woche_StatusAtilla.TabIndex = 35
Me.lblAt_woche_StatusAtilla.Text = "OK"
'
'lblAt_tag_StatusAtilla
'
Me.lblAt_tag_StatusAtilla.AutoSize = True
Me.lblAt_tag_StatusAtilla.BackColor = System.Drawing.Color.Green
Me.lblAt_tag_StatusAtilla.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAt_tag_StatusAtilla.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAt_tag_StatusAtilla.ForeColor = System.Drawing.Color.White
Me.lblAt_tag_StatusAtilla.Location = New System.Drawing.Point(458, 189)
Me.lblAt_tag_StatusAtilla.Name = "lblAt_tag_StatusAtilla"
Me.lblAt_tag_StatusAtilla.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAt_tag_StatusAtilla.Size = New System.Drawing.Size(22, 13)
Me.lblAt_tag_StatusAtilla.TabIndex = 36
Me.lblAt_tag_StatusAtilla.Text = "OK"
'
'cbxBrg_at_Imex
'
Me.cbxBrg_at_Imex.AutoSize = True
@@ -258,7 +341,7 @@ Partial Class frmMain
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(503, 283)
Me.Label3.Location = New System.Drawing.Point(503, 303)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(128, 13)
Me.Label3.TabIndex = 25
@@ -268,7 +351,7 @@ Partial Class frmMain
'
Me.lblAufschubBrg_de_Imex_oE.Cursor = System.Windows.Forms.Cursors.Default
Me.lblAufschubBrg_de_Imex_oE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_de_Imex_oE.Location = New System.Drawing.Point(388, 250)
Me.lblAufschubBrg_de_Imex_oE.Location = New System.Drawing.Point(388, 270)
Me.lblAufschubBrg_de_Imex_oE.Name = "lblAufschubBrg_de_Imex_oE"
Me.lblAufschubBrg_de_Imex_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_de_Imex_oE.Size = New System.Drawing.Size(90, 13)
@@ -279,7 +362,7 @@ Partial Class frmMain
'
Me.lblAufschubBrg_at_VeragZS_oE.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrg_at_VeragZS_oE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_at_VeragZS_oE.Location = New System.Drawing.Point(388, 340)
Me.lblAufschubBrg_at_VeragZS_oE.Location = New System.Drawing.Point(388, 360)
Me.lblAufschubBrg_at_VeragZS_oE.Name = "lblAufschubBrg_at_VeragZS_oE"
Me.lblAufschubBrg_at_VeragZS_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_VeragZS_oE.Size = New System.Drawing.Size(90, 13)
@@ -291,7 +374,7 @@ Partial Class frmMain
'
Me.lblAufschubBrg_at_VeragCS_oE.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrg_at_VeragCS_oE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_at_VeragCS_oE.Location = New System.Drawing.Point(388, 320)
Me.lblAufschubBrg_at_VeragCS_oE.Location = New System.Drawing.Point(388, 340)
Me.lblAufschubBrg_at_VeragCS_oE.Name = "lblAufschubBrg_at_VeragCS_oE"
Me.lblAufschubBrg_at_VeragCS_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_VeragCS_oE.Size = New System.Drawing.Size(90, 13)
@@ -303,7 +386,7 @@ Partial Class frmMain
'
Me.lblAufschubBrg_de_VeragAG_oE.Cursor = System.Windows.Forms.Cursors.Default
Me.lblAufschubBrg_de_VeragAG_oE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_de_VeragAG_oE.Location = New System.Drawing.Point(388, 231)
Me.lblAufschubBrg_de_VeragAG_oE.Location = New System.Drawing.Point(388, 251)
Me.lblAufschubBrg_de_VeragAG_oE.Name = "lblAufschubBrg_de_VeragAG_oE"
Me.lblAufschubBrg_de_VeragAG_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_de_VeragAG_oE.Size = New System.Drawing.Size(90, 13)
@@ -314,7 +397,7 @@ Partial Class frmMain
'
Me.lblAufschubBrg_at_VeragAG_oE.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrg_at_VeragAG_oE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_at_VeragAG_oE.Location = New System.Drawing.Point(388, 300)
Me.lblAufschubBrg_at_VeragAG_oE.Location = New System.Drawing.Point(388, 320)
Me.lblAufschubBrg_at_VeragAG_oE.Name = "lblAufschubBrg_at_VeragAG_oE"
Me.lblAufschubBrg_at_VeragAG_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_VeragAG_oE.Size = New System.Drawing.Size(90, 13)
@@ -327,7 +410,7 @@ Partial Class frmMain
Me.cbxAufschub_de_Imex.AutoSize = True
Me.cbxAufschub_de_Imex.Checked = True
Me.cbxAufschub_de_Imex.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAufschub_de_Imex.Location = New System.Drawing.Point(9, 251)
Me.cbxAufschub_de_Imex.Location = New System.Drawing.Point(9, 271)
Me.cbxAufschub_de_Imex.Name = "cbxAufschub_de_Imex"
Me.cbxAufschub_de_Imex.Size = New System.Drawing.Size(15, 14)
Me.cbxAufschub_de_Imex.TabIndex = 19
@@ -337,7 +420,7 @@ Partial Class frmMain
'
Me.lblAufschub_de_Imex.AutoSize = True
Me.lblAufschub_de_Imex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschub_de_Imex.Location = New System.Drawing.Point(26, 251)
Me.lblAufschub_de_Imex.Location = New System.Drawing.Point(26, 271)
Me.lblAufschub_de_Imex.Name = "lblAufschub_de_Imex"
Me.lblAufschub_de_Imex.Size = New System.Drawing.Size(254, 13)
Me.lblAufschub_de_Imex.TabIndex = 15
@@ -347,7 +430,7 @@ Partial Class frmMain
'
Me.lblAufschubBrg_de_Imex.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrg_de_Imex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_de_Imex.Location = New System.Drawing.Point(509, 250)
Me.lblAufschubBrg_de_Imex.Location = New System.Drawing.Point(509, 270)
Me.lblAufschubBrg_de_Imex.Name = "lblAufschubBrg_de_Imex"
Me.lblAufschubBrg_de_Imex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_de_Imex.Size = New System.Drawing.Size(90, 13)
@@ -358,7 +441,7 @@ Partial Class frmMain
'
Me.lblAufschubAkt_de_Imex.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubAkt_de_Imex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubAkt_de_Imex.Location = New System.Drawing.Point(268, 257)
Me.lblAufschubAkt_de_Imex.Location = New System.Drawing.Point(268, 277)
Me.lblAufschubAkt_de_Imex.Name = "lblAufschubAkt_de_Imex"
Me.lblAufschubAkt_de_Imex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubAkt_de_Imex.Size = New System.Drawing.Size(90, 13)
@@ -373,7 +456,7 @@ Partial Class frmMain
Me.lblAufschubStatus_de_Imex.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAufschubStatus_de_Imex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubStatus_de_Imex.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_de_Imex.Location = New System.Drawing.Point(605, 250)
Me.lblAufschubStatus_de_Imex.Location = New System.Drawing.Point(605, 270)
Me.lblAufschubStatus_de_Imex.Name = "lblAufschubStatus_de_Imex"
Me.lblAufschubStatus_de_Imex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_de_Imex.Size = New System.Drawing.Size(22, 13)
@@ -464,7 +547,7 @@ Partial Class frmMain
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(6, 373)
Me.Label2.Location = New System.Drawing.Point(6, 393)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(177, 13)
Me.Label2.TabIndex = 5
@@ -475,7 +558,7 @@ Partial Class frmMain
'
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button4.Location = New System.Drawing.Point(183, 368)
Me.Button4.Location = New System.Drawing.Point(183, 388)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(62, 23)
Me.Button4.TabIndex = 4
@@ -488,7 +571,7 @@ Partial Class frmMain
Me.cbxAufschub_at_VeragZS.AutoSize = True
Me.cbxAufschub_at_VeragZS.Checked = True
Me.cbxAufschub_at_VeragZS.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAufschub_at_VeragZS.Location = New System.Drawing.Point(9, 341)
Me.cbxAufschub_at_VeragZS.Location = New System.Drawing.Point(9, 361)
Me.cbxAufschub_at_VeragZS.Name = "cbxAufschub_at_VeragZS"
Me.cbxAufschub_at_VeragZS.Size = New System.Drawing.Size(15, 14)
Me.cbxAufschub_at_VeragZS.TabIndex = 3
@@ -596,7 +679,7 @@ Partial Class frmMain
Me.cbxAufschub_at_VeragCS.AutoSize = True
Me.cbxAufschub_at_VeragCS.Checked = True
Me.cbxAufschub_at_VeragCS.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAufschub_at_VeragCS.Location = New System.Drawing.Point(9, 321)
Me.cbxAufschub_at_VeragCS.Location = New System.Drawing.Point(9, 341)
Me.cbxAufschub_at_VeragCS.Name = "cbxAufschub_at_VeragCS"
Me.cbxAufschub_at_VeragCS.Size = New System.Drawing.Size(15, 14)
Me.cbxAufschub_at_VeragCS.TabIndex = 3
@@ -617,7 +700,7 @@ Partial Class frmMain
Me.cbxAufschub_at_VeragAG.AutoSize = True
Me.cbxAufschub_at_VeragAG.Checked = True
Me.cbxAufschub_at_VeragAG.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAufschub_at_VeragAG.Location = New System.Drawing.Point(9, 301)
Me.cbxAufschub_at_VeragAG.Location = New System.Drawing.Point(9, 321)
Me.cbxAufschub_at_VeragAG.Name = "cbxAufschub_at_VeragAG"
Me.cbxAufschub_at_VeragAG.Size = New System.Drawing.Size(15, 14)
Me.cbxAufschub_at_VeragAG.TabIndex = 3
@@ -628,7 +711,7 @@ Partial Class frmMain
Me.cbxAufschub_de_VeragAG.AutoSize = True
Me.cbxAufschub_de_VeragAG.Checked = True
Me.cbxAufschub_de_VeragAG.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAufschub_de_VeragAG.Location = New System.Drawing.Point(9, 232)
Me.cbxAufschub_de_VeragAG.Location = New System.Drawing.Point(9, 252)
Me.cbxAufschub_de_VeragAG.Name = "cbxAufschub_de_VeragAG"
Me.cbxAufschub_de_VeragAG.Size = New System.Drawing.Size(15, 14)
Me.cbxAufschub_de_VeragAG.TabIndex = 3
@@ -638,7 +721,7 @@ Partial Class frmMain
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(153, 202)
Me.Label5.Location = New System.Drawing.Point(153, 222)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(76, 13)
Me.Label5.TabIndex = 1
@@ -658,7 +741,7 @@ Partial Class frmMain
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(528, 368)
Me.Button1.Location = New System.Drawing.Point(528, 388)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(103, 23)
Me.Button1.TabIndex = 0
@@ -669,7 +752,7 @@ Partial Class frmMain
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(6, 202)
Me.Label7.Location = New System.Drawing.Point(6, 222)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(139, 13)
Me.Label7.TabIndex = 1
@@ -682,7 +765,7 @@ Partial Class frmMain
Me.lblAufschubStatus_at_VeragZS.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAufschubStatus_at_VeragZS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubStatus_at_VeragZS.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_at_VeragZS.Location = New System.Drawing.Point(605, 340)
Me.lblAufschubStatus_at_VeragZS.Location = New System.Drawing.Point(605, 360)
Me.lblAufschubStatus_at_VeragZS.Name = "lblAufschubStatus_at_VeragZS"
Me.lblAufschubStatus_at_VeragZS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_at_VeragZS.Size = New System.Drawing.Size(22, 13)
@@ -696,7 +779,7 @@ Partial Class frmMain
Me.lblAufschubStatus_at_VeragCS.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAufschubStatus_at_VeragCS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubStatus_at_VeragCS.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_at_VeragCS.Location = New System.Drawing.Point(605, 320)
Me.lblAufschubStatus_at_VeragCS.Location = New System.Drawing.Point(605, 340)
Me.lblAufschubStatus_at_VeragCS.Name = "lblAufschubStatus_at_VeragCS"
Me.lblAufschubStatus_at_VeragCS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_at_VeragCS.Size = New System.Drawing.Size(22, 13)
@@ -707,7 +790,7 @@ Partial Class frmMain
'
Me.lblAufschubAkt_at_VeragZS.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubAkt_at_VeragZS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubAkt_at_VeragZS.Location = New System.Drawing.Point(268, 341)
Me.lblAufschubAkt_at_VeragZS.Location = New System.Drawing.Point(268, 361)
Me.lblAufschubAkt_at_VeragZS.Name = "lblAufschubAkt_at_VeragZS"
Me.lblAufschubAkt_at_VeragZS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubAkt_at_VeragZS.Size = New System.Drawing.Size(90, 13)
@@ -729,7 +812,7 @@ Partial Class frmMain
'
Me.lblAufschubBrg_at_VeragZS.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrg_at_VeragZS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_at_VeragZS.Location = New System.Drawing.Point(509, 340)
Me.lblAufschubBrg_at_VeragZS.Location = New System.Drawing.Point(509, 360)
Me.lblAufschubBrg_at_VeragZS.Name = "lblAufschubBrg_at_VeragZS"
Me.lblAufschubBrg_at_VeragZS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_VeragZS.Size = New System.Drawing.Size(90, 13)
@@ -740,7 +823,7 @@ Partial Class frmMain
'
Me.lblAufschubAkt_at_VeragCS.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubAkt_at_VeragCS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubAkt_at_VeragCS.Location = New System.Drawing.Point(268, 321)
Me.lblAufschubAkt_at_VeragCS.Location = New System.Drawing.Point(268, 341)
Me.lblAufschubAkt_at_VeragCS.Name = "lblAufschubAkt_at_VeragCS"
Me.lblAufschubAkt_at_VeragCS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubAkt_at_VeragCS.Size = New System.Drawing.Size(90, 13)
@@ -763,7 +846,7 @@ Partial Class frmMain
'
Me.lblAufschubBrg_at_VeragCS.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrg_at_VeragCS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_at_VeragCS.Location = New System.Drawing.Point(509, 320)
Me.lblAufschubBrg_at_VeragCS.Location = New System.Drawing.Point(509, 340)
Me.lblAufschubBrg_at_VeragCS.Name = "lblAufschubBrg_at_VeragCS"
Me.lblAufschubBrg_at_VeragCS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_VeragCS.Size = New System.Drawing.Size(90, 13)
@@ -785,7 +868,7 @@ Partial Class frmMain
'
Me.lblAufschub_at_VeragZS.AutoSize = True
Me.lblAufschub_at_VeragZS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschub_at_VeragZS.Location = New System.Drawing.Point(26, 341)
Me.lblAufschub_at_VeragZS.Location = New System.Drawing.Point(26, 361)
Me.lblAufschub_at_VeragZS.Name = "lblAufschub_at_VeragZS"
Me.lblAufschub_at_VeragZS.Size = New System.Drawing.Size(236, 13)
Me.lblAufschub_at_VeragZS.TabIndex = 1
@@ -809,7 +892,7 @@ Partial Class frmMain
'
Me.lblAufschub_at_VeragCS.AutoSize = True
Me.lblAufschub_at_VeragCS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschub_at_VeragCS.Location = New System.Drawing.Point(26, 321)
Me.lblAufschub_at_VeragCS.Location = New System.Drawing.Point(26, 341)
Me.lblAufschub_at_VeragCS.Name = "lblAufschub_at_VeragCS"
Me.lblAufschub_at_VeragCS.Size = New System.Drawing.Size(235, 13)
Me.lblAufschub_at_VeragCS.TabIndex = 1
@@ -819,7 +902,7 @@ Partial Class frmMain
'
Me.lblAufschub_de_VeragAG.AutoSize = True
Me.lblAufschub_de_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschub_de_VeragAG.Location = New System.Drawing.Point(26, 232)
Me.lblAufschub_de_VeragAG.Location = New System.Drawing.Point(26, 252)
Me.lblAufschub_de_VeragAG.Name = "lblAufschub_de_VeragAG"
Me.lblAufschub_de_VeragAG.Size = New System.Drawing.Size(219, 13)
Me.lblAufschub_de_VeragAG.TabIndex = 1
@@ -853,7 +936,7 @@ Partial Class frmMain
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(361, 202)
Me.Label8.Location = New System.Drawing.Point(361, 222)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(116, 13)
Me.Label8.TabIndex = 1
@@ -863,7 +946,7 @@ Partial Class frmMain
'
Me.lblAufschub_at_VeragAG.AutoSize = True
Me.lblAufschub_at_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschub_at_VeragAG.Location = New System.Drawing.Point(26, 301)
Me.lblAufschub_at_VeragAG.Location = New System.Drawing.Point(26, 321)
Me.lblAufschub_at_VeragAG.Name = "lblAufschub_at_VeragAG"
Me.lblAufschub_at_VeragAG.Size = New System.Drawing.Size(214, 13)
Me.lblAufschub_at_VeragAG.TabIndex = 1
@@ -873,7 +956,7 @@ Partial Class frmMain
'
Me.Label34.AutoSize = True
Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label34.Location = New System.Drawing.Point(515, 202)
Me.Label34.Location = New System.Drawing.Point(515, 222)
Me.Label34.Name = "Label34"
Me.Label34.Size = New System.Drawing.Size(116, 13)
Me.Label34.TabIndex = 1
@@ -883,7 +966,7 @@ Partial Class frmMain
'
Me.lblAufschubBrg_de_VeragAG.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrg_de_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_de_VeragAG.Location = New System.Drawing.Point(509, 231)
Me.lblAufschubBrg_de_VeragAG.Location = New System.Drawing.Point(509, 251)
Me.lblAufschubBrg_de_VeragAG.Name = "lblAufschubBrg_de_VeragAG"
Me.lblAufschubBrg_de_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_de_VeragAG.Size = New System.Drawing.Size(90, 13)
@@ -904,7 +987,7 @@ Partial Class frmMain
'
Me.lblAufschubAkt_de_VeragAG.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubAkt_de_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubAkt_de_VeragAG.Location = New System.Drawing.Point(268, 238)
Me.lblAufschubAkt_de_VeragAG.Location = New System.Drawing.Point(268, 258)
Me.lblAufschubAkt_de_VeragAG.Name = "lblAufschubAkt_de_VeragAG"
Me.lblAufschubAkt_de_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubAkt_de_VeragAG.Size = New System.Drawing.Size(90, 13)
@@ -926,7 +1009,7 @@ Partial Class frmMain
'
Me.lblAufschubBrg_at_VeragAG.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrg_at_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_at_VeragAG.Location = New System.Drawing.Point(509, 300)
Me.lblAufschubBrg_at_VeragAG.Location = New System.Drawing.Point(509, 320)
Me.lblAufschubBrg_at_VeragAG.Name = "lblAufschubBrg_at_VeragAG"
Me.lblAufschubBrg_at_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_VeragAG.Size = New System.Drawing.Size(90, 13)
@@ -940,7 +1023,7 @@ Partial Class frmMain
Me.lblAufschubStatus_at_VeragAG.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAufschubStatus_at_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubStatus_at_VeragAG.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_at_VeragAG.Location = New System.Drawing.Point(605, 300)
Me.lblAufschubStatus_at_VeragAG.Location = New System.Drawing.Point(605, 320)
Me.lblAufschubStatus_at_VeragAG.Name = "lblAufschubStatus_at_VeragAG"
Me.lblAufschubStatus_at_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_at_VeragAG.Size = New System.Drawing.Size(22, 13)
@@ -951,7 +1034,7 @@ Partial Class frmMain
'
Me.lblAufschubAkt_at_VeragAG.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubAkt_at_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubAkt_at_VeragAG.Location = New System.Drawing.Point(268, 301)
Me.lblAufschubAkt_at_VeragAG.Location = New System.Drawing.Point(268, 321)
Me.lblAufschubAkt_at_VeragAG.Name = "lblAufschubAkt_at_VeragAG"
Me.lblAufschubAkt_at_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubAkt_at_VeragAG.Size = New System.Drawing.Size(90, 13)
@@ -966,7 +1049,7 @@ Partial Class frmMain
Me.lblAufschubStatus_de_VeragAG.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAufschubStatus_de_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubStatus_de_VeragAG.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_de_VeragAG.Location = New System.Drawing.Point(605, 231)
Me.lblAufschubStatus_de_VeragAG.Location = New System.Drawing.Point(605, 251)
Me.lblAufschubStatus_de_VeragAG.Name = "lblAufschubStatus_de_VeragAG"
Me.lblAufschubStatus_de_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_de_VeragAG.Size = New System.Drawing.Size(22, 13)
@@ -977,7 +1060,7 @@ Partial Class frmMain
'
Me.Label30.AutoSize = True
Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label30.Location = New System.Drawing.Point(385, 215)
Me.Label30.Location = New System.Drawing.Point(385, 235)
Me.Label30.Name = "Label30"
Me.Label30.Size = New System.Drawing.Size(92, 13)
Me.Label30.TabIndex = 1
@@ -987,7 +1070,7 @@ Partial Class frmMain
'
Me.Label31.AutoSize = True
Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label31.Location = New System.Drawing.Point(523, 214)
Me.Label31.Location = New System.Drawing.Point(523, 234)
Me.Label31.Name = "Label31"
Me.Label31.Size = New System.Drawing.Size(108, 13)
Me.Label31.TabIndex = 1
@@ -1039,7 +1122,7 @@ Partial Class frmMain
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(646, 405)
Me.ClientSize = New System.Drawing.Size(646, 430)
Me.Controls.Add(Me.Panel2)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MinimizeBox = False
@@ -1135,4 +1218,10 @@ Partial Class frmMain
Friend WithEvents lblAtTagImex As Label
Friend WithEvents lblAt_woche_StatusImex As Label
Friend WithEvents lblAt_tag_StatusImex As Label
Friend WithEvents cbxBrg_at_Atilla As CheckBox
Friend WithEvents lblBrg_at_Atilla As Label
Friend WithEvents lblAtWocheAtilla As Label
Friend WithEvents lblAtTagAtilla As Label
Friend WithEvents lblAt_woche_StatusAtilla As Label
Friend WithEvents lblAt_tag_StatusAtilla As Label
End Class

46
VERAGMonitoring/frmMain.vb
View File

@@ -85,6 +85,7 @@ Public Class frmMain
cbxBrg_de2_VeragAG.Enabled = False
cbxBrg_at_VeragAG.Checked = False
cbxBrg_de2_VeragAG.Checked = False
cbxBrg_at_Atilla.Enabled = False
cbxAufschub_de_VeragAG.Checked = False
cbxAufschub_at_VeragAG.Checked = False
cbxAufschub_at_VeragCS.Checked = False
@@ -175,6 +176,7 @@ Public Class frmMain
Dim brg_DE As String = "05DE0000000009345"
Dim brg_DE_NEU As String = "17DE0000000071678"
Dim brg_AT_IMEX As String = "16AT520000G000VA6"
Dim brg_AT_ATILLA As String = "20AT520000G000092"
'If cbxBrg_de_VeragAG.Checked Then 'DE
' 'DE WOCHE
@@ -251,8 +253,37 @@ Public Class frmMain
setLabel(lblAtWocheImex, "0.0")
setLabel(lblAtTagImex, "0.0")
End If
If cbxBrg_at_Imex.Checked Then setAlarm("AT - gVV - HZA Linz/Wels Tagessaldo", "9", Me.lblAtTagImex, cMonitoringBrg.brgusrset_gvvAt_imex_tag_warn1, cMonitoringBrg.brgusrset_gvvAt_imex_tag_warn2, cMonitoringBrg.brgusrset_gvvAt_imex_de_summe, lblAt_tag_StatusImex)
If cbxBrg_at_Imex.Checked Then setAlarm("AT - gVV - HZA Linz/Wels Wochenreferenzsumme ", "9", Me.lblAtWocheImex, cMonitoringBrg.brgusrset_gvvAt_imex_woche_warn1, cMonitoringBrg.brgusrset_gvvAt_imex_woche_warn2, cMonitoringBrg.brgusrset_gvvAt_imex_de_summe, lblAt_woche_StatusImex)
If cbxBrg_at_Imex.Checked Then setAlarm("IMEX | AT - gVV - HZA Linz/Wels Tagessaldo", "9", Me.lblAtTagImex, cMonitoringBrg.brgusrset_gvvAt_imex_tag_warn1, cMonitoringBrg.brgusrset_gvvAt_imex_tag_warn2, cMonitoringBrg.brgusrset_gvvAt_imex_de_summe, lblAt_tag_StatusImex)
If cbxBrg_at_Imex.Checked Then setAlarm("IMEX | AT - gVV - HZA Linz/Wels Wochenreferenzsumme ", "9", Me.lblAtWocheImex, cMonitoringBrg.brgusrset_gvvAt_imex_woche_warn1, cMonitoringBrg.brgusrset_gvvAt_imex_woche_warn2, cMonitoringBrg.brgusrset_gvvAt_imex_de_summe, lblAt_woche_StatusImex)
If cbxBrg_at_Atilla.Checked Then 'AT ATILLA
'ATLAS AT WOCHE
Dim AtWoche_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT_ATILLA)
'ZOLARIS AT WOCHE
Dim AtWoche_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT_ATILLA)
'TELOTEC AT WOCHE
Dim AtWoche_TELOTEC As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT_ATILLA)
'AT WOCHE
Dim woche_at As Double = AtWoche_atlas + AtWoche_zolaris + AtWoche_TELOTEC
setLabel(lblAtWocheAtilla, String.Format("{0:C}", CDbl(woche_at)))
'ZOLARIS AT TAG
Dim AtTag_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_ATILLA, " AND DatumBestimmungErreicht IS NULL ")
'ATLAS AT TAG
Dim AtTag_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_ATILLA)
'TELOTEC AT TAG
Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_ATILLA)
'AT TAG
Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec
setLabel(lblAtTagAtilla, String.Format("{0:C}", CDbl(tag_at)))
Else
setLabel(lblAtWocheAtilla, "0.0")
setLabel(lblAtTagAtilla, "0.0")
End If
If cbxBrg_at_Atilla.Checked Then setAlarm("ATILLA | AT - gVV - HZA Linz/Wels Tagessaldo", "9", Me.lblAtTagAtilla, cMonitoringBrg.brgusrset_gvvAt_ATILLA_tag_warn1, cMonitoringBrg.brgusrset_gvvAt_ATILLA_tag_warn2, cMonitoringBrg.brgusrset_gvvAt_ATILLA_de_summe, lblAt_tag_StatusAtilla)
If cbxBrg_at_Atilla.Checked Then setAlarm("ATILLA | AT - gVV - HZA Linz/Wels Wochenreferenzsumme ", "9", Me.lblAtWocheAtilla, cMonitoringBrg.brgusrset_gvvAt_ATILLA_woche_warn1, cMonitoringBrg.brgusrset_gvvAt_ATILLA_woche_warn2, cMonitoringBrg.brgusrset_gvvAt_ATILLA_de_summe, lblAt_woche_StatusAtilla)
If cbxBrg_at_VeragAG.Checked Then setAlarm("AT - gVV - HZA Linz/Wels Tagessaldo", "6_1", Me.lblAtTag, cMonitoringBrg.brgusrset_gvvAt_tag_warn1, cMonitoringBrg.brgusrset_gvvAt_tag_warn2, cMonitoringBrg.brgusrset_gvvAt_summe, lblAt_tag_Status)
@@ -610,6 +641,7 @@ Public Class frmMain
' lblBrg_de_VeragAG.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_gvvDe_summe) & ")"
If cbxBrg_de2_VeragAG.Checked Then lblBrg_de2_VeragAG.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_gvvDe2_summe) & ")"
lblBrg_at_Imex.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_gvvAt_imex_de_summe) & ")"
lblBrg_at_atilla.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_gvvAt_ATILLA_de_summe) & ")"
lblAufschub_de_VeragAG.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_aufschub_AG_de_summe) & ")"
@@ -942,7 +974,17 @@ Public Class frmMain
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
End Sub
Private Sub lblAtTagAtilla_Click(sender As Object, e As EventArgs) Handles lblAtTagAtilla.Click
Dim brg_AT As String = "20AT520000G000092"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddMonths(-3), Now)
frmShowData.Show()
End Sub
Private Sub lblAtWocheAtilla_Click(sender As Object, e As EventArgs) Handles lblAtWocheAtilla.Click
Dim brg_AT As String = "20AT520000G000092"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now)
frmShowData.Show()
End Sub
End Class

54
VERAGMonitoring/frmSettings.Designer.vb generated
View File

@@ -131,7 +131,7 @@ Partial Class frmSettings
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(20, 183)
Me.Label7.Location = New System.Drawing.Point(20, 215)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(99, 13)
Me.Label7.TabIndex = 14
@@ -141,7 +141,7 @@ Partial Class frmSettings
'
Me.Label18.AutoSize = True
Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label18.Location = New System.Drawing.Point(22, 268)
Me.Label18.Location = New System.Drawing.Point(22, 300)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(239, 13)
Me.Label18.TabIndex = 15
@@ -151,7 +151,7 @@ Partial Class frmSettings
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(22, 248)
Me.Label6.Location = New System.Drawing.Point(22, 280)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(260, 13)
Me.Label6.TabIndex = 4
@@ -181,7 +181,7 @@ Partial Class frmSettings
'
Me.Label21.AutoSize = True
Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label21.Location = New System.Drawing.Point(22, 228)
Me.Label21.Location = New System.Drawing.Point(22, 260)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(217, 13)
Me.Label21.TabIndex = 9
@@ -191,7 +191,7 @@ Partial Class frmSettings
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(22, 208)
Me.Label5.Location = New System.Drawing.Point(22, 240)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(215, 13)
Me.Label5.TabIndex = 8
@@ -247,28 +247,28 @@ Partial Class frmSettings
'
'txtAufschub_de_VeragAG_summe
'
Me.txtAufschub_de_VeragAG_summe.Location = New System.Drawing.Point(335, 205)
Me.txtAufschub_de_VeragAG_summe.Location = New System.Drawing.Point(335, 237)
Me.txtAufschub_de_VeragAG_summe.Name = "txtAufschub_de_VeragAG_summe"
Me.txtAufschub_de_VeragAG_summe.Size = New System.Drawing.Size(113, 20)
Me.txtAufschub_de_VeragAG_summe.TabIndex = 17
'
'txtAufschub_at_VeragAG_summe
'
Me.txtAufschub_at_VeragAG_summe.Location = New System.Drawing.Point(335, 225)
Me.txtAufschub_at_VeragAG_summe.Location = New System.Drawing.Point(335, 257)
Me.txtAufschub_at_VeragAG_summe.Name = "txtAufschub_at_VeragAG_summe"
Me.txtAufschub_at_VeragAG_summe.Size = New System.Drawing.Size(113, 20)
Me.txtAufschub_at_VeragAG_summe.TabIndex = 17
'
'txtAufschub_at_VeragCS_summe
'
Me.txtAufschub_at_VeragCS_summe.Location = New System.Drawing.Point(335, 245)
Me.txtAufschub_at_VeragCS_summe.Location = New System.Drawing.Point(335, 277)
Me.txtAufschub_at_VeragCS_summe.Name = "txtAufschub_at_VeragCS_summe"
Me.txtAufschub_at_VeragCS_summe.Size = New System.Drawing.Size(113, 20)
Me.txtAufschub_at_VeragCS_summe.TabIndex = 17
'
'txtAufschub_at_VeragZS_summe
'
Me.txtAufschub_at_VeragZS_summe.Location = New System.Drawing.Point(335, 265)
Me.txtAufschub_at_VeragZS_summe.Location = New System.Drawing.Point(335, 297)
Me.txtAufschub_at_VeragZS_summe.Name = "txtAufschub_at_VeragZS_summe"
Me.txtAufschub_at_VeragZS_summe.Size = New System.Drawing.Size(113, 20)
Me.txtAufschub_at_VeragZS_summe.TabIndex = 17
@@ -277,7 +277,7 @@ Partial Class frmSettings
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(332, 189)
Me.Label8.Location = New System.Drawing.Point(332, 221)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(116, 13)
Me.Label8.TabIndex = 11
@@ -371,7 +371,7 @@ Partial Class frmSettings
'
Me.Label16.AutoSize = True
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label16.Location = New System.Drawing.Point(481, 189)
Me.Label16.Location = New System.Drawing.Point(481, 221)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(73, 13)
Me.Label16.TabIndex = 11
@@ -381,7 +381,7 @@ Partial Class frmSettings
'
Me.Label19.AutoSize = True
Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label19.Location = New System.Drawing.Point(587, 189)
Me.Label19.Location = New System.Drawing.Point(587, 221)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(73, 13)
Me.Label19.TabIndex = 11
@@ -389,56 +389,56 @@ Partial Class frmSettings
'
'txtAufschub_de_VeragAG_warn1
'
Me.txtAufschub_de_VeragAG_warn1.Location = New System.Drawing.Point(484, 205)
Me.txtAufschub_de_VeragAG_warn1.Location = New System.Drawing.Point(484, 237)
Me.txtAufschub_de_VeragAG_warn1.Name = "txtAufschub_de_VeragAG_warn1"
Me.txtAufschub_de_VeragAG_warn1.Size = New System.Drawing.Size(100, 20)
Me.txtAufschub_de_VeragAG_warn1.TabIndex = 17
'
'txtAufschub_de_VeragAG_warn2
'
Me.txtAufschub_de_VeragAG_warn2.Location = New System.Drawing.Point(590, 205)
Me.txtAufschub_de_VeragAG_warn2.Location = New System.Drawing.Point(590, 237)
Me.txtAufschub_de_VeragAG_warn2.Name = "txtAufschub_de_VeragAG_warn2"
Me.txtAufschub_de_VeragAG_warn2.Size = New System.Drawing.Size(100, 20)
Me.txtAufschub_de_VeragAG_warn2.TabIndex = 17
'
'txtAufschub_at_VeragAG_warn1
'
Me.txtAufschub_at_VeragAG_warn1.Location = New System.Drawing.Point(484, 225)
Me.txtAufschub_at_VeragAG_warn1.Location = New System.Drawing.Point(484, 257)
Me.txtAufschub_at_VeragAG_warn1.Name = "txtAufschub_at_VeragAG_warn1"
Me.txtAufschub_at_VeragAG_warn1.Size = New System.Drawing.Size(100, 20)
Me.txtAufschub_at_VeragAG_warn1.TabIndex = 17
'
'txtAufschub_at_VeragAG_warn2
'
Me.txtAufschub_at_VeragAG_warn2.Location = New System.Drawing.Point(590, 225)
Me.txtAufschub_at_VeragAG_warn2.Location = New System.Drawing.Point(590, 257)
Me.txtAufschub_at_VeragAG_warn2.Name = "txtAufschub_at_VeragAG_warn2"
Me.txtAufschub_at_VeragAG_warn2.Size = New System.Drawing.Size(100, 20)
Me.txtAufschub_at_VeragAG_warn2.TabIndex = 17
'
'txtAufschub_at_VeragCS_warn1
'
Me.txtAufschub_at_VeragCS_warn1.Location = New System.Drawing.Point(484, 245)
Me.txtAufschub_at_VeragCS_warn1.Location = New System.Drawing.Point(484, 277)
Me.txtAufschub_at_VeragCS_warn1.Name = "txtAufschub_at_VeragCS_warn1"
Me.txtAufschub_at_VeragCS_warn1.Size = New System.Drawing.Size(100, 20)
Me.txtAufschub_at_VeragCS_warn1.TabIndex = 17
'
'txtAufschub_at_VeragCS_warn2
'
Me.txtAufschub_at_VeragCS_warn2.Location = New System.Drawing.Point(590, 245)
Me.txtAufschub_at_VeragCS_warn2.Location = New System.Drawing.Point(590, 277)
Me.txtAufschub_at_VeragCS_warn2.Name = "txtAufschub_at_VeragCS_warn2"
Me.txtAufschub_at_VeragCS_warn2.Size = New System.Drawing.Size(100, 20)
Me.txtAufschub_at_VeragCS_warn2.TabIndex = 17
'
'txtAufschub_at_VeragZS_warn1
'
Me.txtAufschub_at_VeragZS_warn1.Location = New System.Drawing.Point(484, 265)
Me.txtAufschub_at_VeragZS_warn1.Location = New System.Drawing.Point(484, 297)
Me.txtAufschub_at_VeragZS_warn1.Name = "txtAufschub_at_VeragZS_warn1"
Me.txtAufschub_at_VeragZS_warn1.Size = New System.Drawing.Size(100, 20)
Me.txtAufschub_at_VeragZS_warn1.TabIndex = 17
'
'txtAufschub_at_VeragZS_warn2
'
Me.txtAufschub_at_VeragZS_warn2.Location = New System.Drawing.Point(590, 265)
Me.txtAufschub_at_VeragZS_warn2.Location = New System.Drawing.Point(590, 297)
Me.txtAufschub_at_VeragZS_warn2.Name = "txtAufschub_at_VeragZS_warn2"
Me.txtAufschub_at_VeragZS_warn2.Size = New System.Drawing.Size(100, 20)
Me.txtAufschub_at_VeragZS_warn2.TabIndex = 17
@@ -447,7 +447,7 @@ Partial Class frmSettings
'
Me.Label20.AutoSize = True
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label20.Location = New System.Drawing.Point(22, 304)
Me.Label20.Location = New System.Drawing.Point(22, 336)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(151, 13)
Me.Label20.TabIndex = 11
@@ -457,7 +457,7 @@ Partial Class frmSettings
'
Me.Label22.AutoSize = True
Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label22.Location = New System.Drawing.Point(22, 319)
Me.Label22.Location = New System.Drawing.Point(22, 351)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(248, 13)
Me.Label22.TabIndex = 11
@@ -467,7 +467,7 @@ Partial Class frmSettings
'
Me.Label23.AutoSize = True
Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label23.Location = New System.Drawing.Point(22, 334)
Me.Label23.Location = New System.Drawing.Point(22, 366)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(208, 13)
Me.Label23.TabIndex = 11
@@ -477,7 +477,7 @@ Partial Class frmSettings
'
Me.Label24.AutoSize = True
Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label24.Location = New System.Drawing.Point(22, 289)
Me.Label24.Location = New System.Drawing.Point(22, 321)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(76, 13)
Me.Label24.TabIndex = 11
@@ -486,7 +486,7 @@ Partial Class frmSettings
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Location = New System.Drawing.Point(683, 322)
Me.Button3.Location = New System.Drawing.Point(683, 354)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(103, 23)
Me.Button3.TabIndex = 18
@@ -523,7 +523,7 @@ Partial Class frmSettings
'
'btnSaveToDB
'
Me.btnSaveToDB.Location = New System.Drawing.Point(508, 322)
Me.btnSaveToDB.Location = New System.Drawing.Point(508, 354)
Me.btnSaveToDB.Name = "btnSaveToDB"
Me.btnSaveToDB.Size = New System.Drawing.Size(142, 23)
Me.btnSaveToDB.TabIndex = 19
@@ -579,7 +579,7 @@ Partial Class frmSettings
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(803, 357)
Me.ClientSize = New System.Drawing.Size(803, 388)
Me.Controls.Add(Me.txtBrgVV_at_imex_woche_warn2)
Me.Controls.Add(Me.txtBrgVV_at_imex_tag_warn2)
Me.Controls.Add(Me.txtBrgVV_at_imex_woche_warn1)