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
2022-07-08 08:12:07 +02:00
parent e3843466c8
commit 46c14b6500
34 changed files with 1958 additions and 678 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
DAKOSY_Worker/cZOLL_IMPORT.vb
View File

@@ -1641,6 +1641,13 @@ Public Class cZOLL_IMPORT
End If End If
End If End If
' Qualitäts-CRN --> Tabelle zsAnmGdsItemDocCerts lesen.
Dim DTzsAnmGdsQ As DataTable = KDSQL.loadDgvBySql("Select distinct(DRef) DRef FROM [zsAnmGdsItemDocCerts] WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & " AND DocCd IN ('N002' ,'7246') )", "EZOLL")
If DTzsAnmGdsQ IsNot Nothing AndAlso DTzsAnmGdsQ.Rows().Count > 0 Then
If Not IsNull(DTzsAnmGdsQ.Rows(0).Item("DRef")) Then SPEDITIONSBUCH.QKN = DTzsAnmGdsQ.Rows(0).Item("DRef")
End If
'Personal Abfertigung: 'Personal Abfertigung:
Try Try
If Not IsNull(DR_zsAnmRefs.Item("GeaendertVon")) Then If Not IsNull(DR_zsAnmRefs.Item("GeaendertVon")) Then

40
DienstplanTV/App.config
View File

@@ -21,6 +21,46 @@
<assemblyIdentity name="System.Buffers" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" /> <assemblyIdentity name="System.Buffers" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-4.0.3.0" newVersion="4.0.3.0" /> <bindingRedirect oldVersion="0.0.0.0-4.0.3.0" newVersion="4.0.3.0" />
</dependentAssembly> </dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports.Core.Document.Drawing.Gc" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-2.1.4.0" newVersion="2.1.4.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports.Core.Document" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-2.1.4.0" newVersion="2.1.4.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports.Core.Document.Drawing.Gdi" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-2.1.4.0" newVersion="2.1.4.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports.Core.Rendering" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-2.3.5.0" newVersion="2.3.5.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-15.2.4.0" newVersion="15.2.4.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports.Core.Drawing.Gc" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-2.3.5.0" newVersion="2.3.5.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports.Document" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-15.2.4.0" newVersion="15.2.4.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports.Core.Rdl" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-2.3.5.0" newVersion="2.3.5.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports.Core.Drawing.Gdi" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-2.3.5.0" newVersion="2.3.5.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports.Win" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-15.2.4.0" newVersion="15.2.4.0" />
</dependentAssembly>
</assemblyBinding> </assemblyBinding>
</runtime> </runtime>
</configuration> </configuration>

38
MailSender/MAILSender.vb
View File

@@ -46,7 +46,7 @@ Module Mail
'Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG("UNISPED", "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '", CDate("01.08.2021 00:00:00"), CDate("12.08.2021 23:59:59"), True) 'Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG("UNISPED", "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '", CDate("01.08.2021 00:00:00"), CDate("12.08.2021 23:59:59"), True)
'Dim _list As New List(Of String) : _list.Add(_erg) 'Dim _list As New List(Of String) : _list.Add(_erg)
'' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TOBB " & "UNISPED", "*Automatic generated e-mail*",,,, "", "al@verag.ag", _list) '' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TOBB " & "UNISPED", "*Automatic generated e-mail*",,,, "", "al@verag.ag", _list)
'VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;pinar.dogan@tobbund.com.tr;kerem.gozutok@tobbund.com.tr", "TOBB " & "UNISPED", "*Automatic generated e-mail*",,,, "Katharina.Haas@unisped.at;Sabine.Muehlboeck@unisped.at;Ernst.Stolzlechner@unisped.at", "al@verag.ag", _list) 'VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;kerem.gozutok@tobbund.com.tr", "TOBB " & "UNISPED", "*Automatic generated e-mail*",,,, "Katharina.Haas@unisped.at;Sabine.Muehlboeck@unisped.at;Ernst.Stolzlechner@unisped.at", "al@verag.ag", _list)
'Exit Sub 'Exit Sub
@@ -236,27 +236,27 @@ Module Mail
End Select End Select
End If End If
' Else ' Else
' System.Console.WriteLine("OPTIONS-Datei nicht gefunden! " & options) ' System.Console.WriteLine("OPTIONS-Datei nicht gefunden! " & options)
' End If ' End If
Threading.Thread.Sleep(1000) Threading.Thread.Sleep(1000)
' System.Console.WriteLine("Programm beendet in 5") ' System.Console.WriteLine("Programm beendet in 5")
' Threading.Thread.Sleep(1000) ' Threading.Thread.Sleep(1000)
' System.Console.WriteLine("Programm beendet in 4") ' System.Console.WriteLine("Programm beendet in 4")
' Threading.Thread.Sleep(1000) ' Threading.Thread.Sleep(1000)
System.Console.WriteLine("Programm beendet in 3") System.Console.WriteLine("Programm beendet in 3")
Threading.Thread.Sleep(1000) Threading.Thread.Sleep(1000)
System.Console.WriteLine("Programm beendet in 2") System.Console.WriteLine("Programm beendet in 2")
Threading.Thread.Sleep(1000) Threading.Thread.Sleep(1000)
System.Console.WriteLine("Programm beendet in 1") System.Console.WriteLine("Programm beendet in 1")
Threading.Thread.Sleep(1000) Threading.Thread.Sleep(1000)
Exit Sub Exit Sub
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Exit Sub Exit Sub
End Try End Try
End Sub End Sub
@@ -275,9 +275,9 @@ Module Mail
Dim bool_sent = False Dim bool_sent = False
Select Case FirmaTmp Select Case FirmaTmp
Case "VERAG/ATILLA" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;pinar.dogan@tobbund.com.tr;kerem.gozutok@tobbund.com.tr;amine.akan@tobbund.com.tr", "TOBB " & FirmaTmp & addbetreff, "*Automatic generated e-mail*",,,, "atilla@verag.ag", "al@verag.ag", _list) Case "VERAG/ATILLA" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;kerem.gozutok@tobbund.com.tr;amine.akan@tobbund.com.tr", "TOBB " & FirmaTmp & addbetreff, "*Automatic generated e-mail*",,,, "atilla@verag.ag", "al@verag.ag", _list)
Case "IMEX" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;pinar.dogan@tobbund.com.tr;kerem.gozutok@tobbund.com.tr;amine.akan@tobbund.com.tr", "TOBB " & FirmaTmp & addbetreff, "*Automatic generated e-mail*",,,, "info@imex-group.at;Mario.Hoefer@imex-group.at", "al@verag.ag", _list) Case "IMEX" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;kerem.gozutok@tobbund.com.tr;amine.akan@tobbund.com.tr", "TOBB " & FirmaTmp & addbetreff, "*Automatic generated e-mail*",,,, "info@imex-group.at;Mario.Hoefer@imex-group.at", "al@verag.ag", _list)
Case "UNISPED" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;pinar.dogan@tobbund.com.tr;kerem.gozutok@tobbund.com.tr;amine.akan@tobbund.com.tr", "TOBB " & FirmaTmp & addbetreff, "*Automatic generated e-mail*",,,, "Katharina.Haas@unisped.at;Sabine.Muehlboeck@unisped.at;Ernst.Stolzlechner@unisped.at", "al@verag.ag", _list) Case "UNISPED" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;kerem.gozutok@tobbund.com.tr;amine.akan@tobbund.com.tr", "TOBB " & FirmaTmp & addbetreff, "*Automatic generated e-mail*",,,, "Katharina.Haas@unisped.at;Sabine.Muehlboeck@unisped.at;Ernst.Stolzlechner@unisped.at", "al@verag.ag", _list)
End Select End Select
If bool_sent Then If bool_sent Then

2
TELOTEK_Worker_lib/cTC_Functions.vb
View File

@@ -17,7 +17,7 @@ Public Class cTC_Functions
Dim destFilenameTMP = UPLOAD_PFAD + "." & If(IO.File.Exists(UPLOAD_PFAD & "." & fi.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & fi.Name Dim destFilenameTMP = UPLOAD_PFAD + "." & If(IO.File.Exists(UPLOAD_PFAD & "." & fi.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & fi.Name
MsgBox(destFilenameTMP)
'Datei hochladen 'Datei hochladen
IO.File.Copy(file, destFilenameTMP) IO.File.Copy(file, destFilenameTMP)
' If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(F) 'Datei nach erfolgreichem Herunterladen vom Server löschen ' If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(F) 'Datei nach erfolgreichem Herunterladen vom Server löschen

6
UID/ADMIN.vbproj
View File

@@ -80,6 +80,9 @@
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="Accessibility" /> <Reference Include="Accessibility" />
<Reference Include="atapi, Version=1.5.0.0, Culture=neutral, PublicKeyToken=6148c7b92dc86471, processorArchitecture=x86">
<HintPath>..\packages\ATAPI.2018.3.9\lib\net46\atapi.dll</HintPath>
</Reference>
<Reference Include="BouncyCastle.Crypto, Version=1.8.4.0, Culture=neutral, PublicKeyToken=0e99375e54769942"> <Reference Include="BouncyCastle.Crypto, Version=1.8.4.0, Culture=neutral, PublicKeyToken=0e99375e54769942">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\BouncyCastle.Crypto.dll</HintPath> <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\BouncyCastle.Crypto.dll</HintPath>
@@ -170,6 +173,9 @@
<HintPath>..\packages\Hardcodet.NotifyIcon.Wpf.1.0.5\lib\net40-client\Hardcodet.Wpf.TaskbarNotification.dll</HintPath> <HintPath>..\packages\Hardcodet.NotifyIcon.Wpf.1.0.5\lib\net40-client\Hardcodet.Wpf.TaskbarNotification.dll</HintPath>
<Private>True</Private> <Private>True</Private>
</Reference> </Reference>
<Reference Include="ITapi3">
<HintPath>..\..\..\dll\TAPI\ITapi3.dll</HintPath>
</Reference>
<Reference Include="itextsharp"> <Reference Include="itextsharp">
<HintPath>..\..\..\dll\itextsharp.dll</HintPath> <HintPath>..\..\..\dll\itextsharp.dll</HintPath>
</Reference> </Reference>

80
UID/App.config
View File

@@ -56,6 +56,86 @@
</dependentAssembly> </dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports.Core.Document.Drawing.Gc" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-2.1.4.0" newVersion="2.1.4.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports.Core.Document" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-2.1.4.0" newVersion="2.1.4.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports.Core.Document.Drawing.Gdi" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-2.1.4.0" newVersion="2.1.4.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports.Core.Rendering" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-2.3.5.0" newVersion="2.3.5.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-15.2.4.0" newVersion="15.2.4.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports.Core.Drawing.Gc" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-2.3.5.0" newVersion="2.3.5.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports.Document" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-15.2.4.0" newVersion="15.2.4.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports.Core.Rdl" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-2.3.5.0" newVersion="2.3.5.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports.Core.Drawing.Gdi" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-2.3.5.0" newVersion="2.3.5.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.ActiveReports.Win" publicKeyToken="cc4967777c49a3ff" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-15.2.4.0" newVersion="15.2.4.0" />
</dependentAssembly>
</assemblyBinding> </assemblyBinding>
</runtime> </runtime>

2
UID/Dienstplan/frmDienstplanVariabel.vb
View File

@@ -433,7 +433,7 @@ Public Class frmDienstplanVariabel
If usrCntlZeitenAendern1.txtPause.Text.Contains(",") And Not usrCntlZeitenAendern1.txtPause.Text.Contains(",5") Then Throw New Exception If usrCntlZeitenAendern1.txtPause.Text.Contains(",") And Not usrCntlZeitenAendern1.txtPause.Text.Contains(",5") Then Throw New Exception
If Not IsNumeric(usrCntlZeitenAendern1.txtPause.Text) Then Throw New Exception If Not IsNumeric(usrCntlZeitenAendern1.txtPause.Text) Then Throw New Exception
If usrCntlZeitenAendern1.txtPause.Text > 3 Or usrCntlZeitenAendern1.txtPause.Text < 0 Then MsgBox("Die Pause darf nicht größer als 3 Stunden sein!") : Throw New Exception If usrCntlZeitenAendern1.txtPause.Text > 3 Or usrCntlZeitenAendern1.txtPause.Text < 0 Then MsgBox("Die Pause darf nicht größer als 3 Stunden und nicht kleiner als 0 sein!") : Throw New Exception
If usrCntlZeitenAendern1.cbxChangeForWo.Checked Then 'für ganze Woche If usrCntlZeitenAendern1.cbxChangeForWo.Checked Then 'für ganze Woche

5
UID/Dienstplan/usrCntlDienstplan.vb
View File

@@ -369,7 +369,7 @@ Public Class usrCntlDienstplan
AddHandler rpt.Detail.Format, Sub() AddHandler rpt.Detail.Format, Sub()
If Not IsDBNull(rpt.Fields.Item("dstetr_datum").Value) Then If Not IsDBNull(rpt.Fields.Item("dstetr_datum").Value) AndAlso rpt.Fields.Item("dstetr_datum").Value <> "" AndAlso IsDate(rpt.Fields.Item("dstetr_datum").Value) Then
'MsgBox(rpt.Fields.Item("dstetr_datum").Value) 'MsgBox(rpt.Fields.Item("dstetr_datum").Value)
datumKW = CDate(rpt.Fields.Item("dstetr_datum").Value).ToShortDateString datumKW = CDate(rpt.Fields.Item("dstetr_datum").Value).ToShortDateString
End If End If
@@ -487,6 +487,7 @@ Public Class usrCntlDienstplan
' rpt.txtSumWoStunden.Text = CDbl(sumUeStd).ToString("N2") ' rpt.txtSumWoStunden.Text = CDbl(sumUeStd).ToString("N2")
'Zuerst den montag der aktueellen Woche lt. Datum ermitteln: 'Zuerst den montag der aktueellen Woche lt. Datum ermitteln:
MsgBox(cPF.DateToWeek(datumKW))
Dim datumMO As Date = cPF.GetWeekStartDate(cPF.DateToWeek(datumKW).Substring(4, 2), cPF.DateToWeek(datumKW).Substring(0, 4)) Dim datumMO As Date = cPF.GetWeekStartDate(cPF.DateToWeek(datumKW).Substring(4, 2), cPF.DateToWeek(datumKW).Substring(0, 4))
'Aktuelle Woche und Jahr anhand des Montages ermitteln: 'Aktuelle Woche und Jahr anhand des Montages ermitteln:
@@ -499,7 +500,7 @@ Public Class usrCntlDienstplan
' MsgBox(sollStd) ' MsgBox(sollStd)
If groupKW Then If groupKW Then
Dim sollStd As Double = cPF.getWochenstunden(STD_LIST, MA_DST.dstma_wochenStunden, datumMO, SCHICHT, MA_DST.dstma_mitId, MA_DST.dstma_muster, MA_DST.dstma_WEStdRegelAZ, MA_DST.dstma_arbvh, niederlassung, MA_DST.dstma_TzFeiertageStd) Dim sollStd As Double = cPF.getWochenstunden(STD_LIST, MA_DST.dstma_wochenStunden, datumMO, SCHICHT, MA_DST.dstma_mitId, MA_DST.dstma_muster, MA_DST.dstma_WEStdRegelAZ, MA_DST.dstma_arbvh, niederlassung, MA_DST.dstma_TzFeiertageStd, MA_DST.dstma_4wo)
Dim tatStd As Double = SQLDienst.getDstStunden(MA_DST.dstma_id, datumMO, datumMO.AddDays(6), niederlassung) Dim tatStd As Double = SQLDienst.getDstStunden(MA_DST.dstma_id, datumMO, datumMO.AddDays(6), niederlassung)
rpt.txtSumWoStunden.Text = CDbl(tatStd).ToString("N2") rpt.txtSumWoStunden.Text = CDbl(tatStd).ToString("N2")

2
UID/Dienstplan/usrcntlDienstplanStunden.vb
View File

@@ -94,7 +94,7 @@ Public Class usrcntlDienstplanStunden
'MsgBox(ma.dstma_wochenStunden) 'MsgBox(ma.dstma_wochenStunden)
'hier wird berechnet, wie viele Stunden tatsächlich zu arbeiten sind (abzgl. Feiertage) 'hier wird berechnet, wie viele Stunden tatsächlich zu arbeiten sind (abzgl. Feiertage)
Wochenstunden = cPF.getWochenstunden(STD_LIST, Wochenstunden, datum, SCHICHT, r.Cells("dstma_id").Value, ma.dstma_muster, ma.dstma_WEStdRegelAZ, ma.dstma_arbvh, niederlassung, ma.dstma_TzFeiertageStd) Wochenstunden = cPF.getWochenstunden(STD_LIST, Wochenstunden, datum, SCHICHT, r.Cells("dstma_id").Value, ma.dstma_muster, ma.dstma_WEStdRegelAZ, ma.dstma_arbvh, niederlassung, ma.dstma_TzFeiertageStd, ma.dstma_4wo)
'Hier wird berechnet wie viele Std tastächlich gearbeitet wurden: 'Hier wird berechnet wie viele Std tastächlich gearbeitet wurden:
Dim tatStd As Double = SQLDienst.getDstStunden(r.Cells("dstma_id").Value, datum_montag, datum_montag.AddDays(6), niederlassung) Dim tatStd As Double = SQLDienst.getDstStunden(r.Cells("dstma_id").Value, datum_montag, datum_montag.AddDays(6), niederlassung)

4
UID/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.1.4")> <Assembly: AssemblyVersion("1.0.1.5")>
<Assembly: AssemblyFileVersion("1.0.1.4")> <Assembly: AssemblyFileVersion("1.0.1.5")>

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

@@ -110,6 +110,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property asda2sdas1das() As String
Get
Return ResourceManager.GetString("asda2sdas1das", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[]. ''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
'''</summary> '''</summary>
@@ -140,6 +149,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property bbvn6() As String
Get
Return ResourceManager.GetString("bbvn6", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[]. ''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
'''</summary> '''</summary>
@@ -316,15 +334,6 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property fähggh3j2gh6j2gh62jgh6j2hg6jghjghj() As String
Get
Return ResourceManager.GetString("fähggh3j2gh6j2gh62jgh6j2hg6jghjghj", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@@ -655,7 +664,7 @@ Namespace My.Resources
End Property End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 2.0.4 ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die 2.0.6 ähnelt.
'''</summary> '''</summary>
Friend ReadOnly Property Version() As String Friend ReadOnly Property Version() As String
Get Get

7
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=AppUser;Password=yp/THDd?xM+pZ$;</value> <value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</value>
</data> </data>
<data name="Version" xml:space="preserve"> <data name="Version" xml:space="preserve">
<value>2.0.4</value> <value>2.0.6</value>
</data> </data>
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -301,7 +301,10 @@
<data name="personGray_w" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="personGray_w" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personGray_w.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\personGray_w.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="fähggh3j2gh6j2gh62jgh6j2hg6jghjghj" xml:space="preserve"> <data name="asda2sdas1das" xml:space="preserve">
<value />
</data>
<data name="bbvn6" xml:space="preserve">
<value /> <value />
</data> </data>
</root> </root>

2
UID/My Project/licenses.licx
View File

@@ -0,0 +1,2 @@
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports, Version=15.2.3.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win, Version=15.2.3.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff

32
UID/cProgramFunctions.vb
View File

@@ -910,7 +910,7 @@ Public Class cProgramFunctions
Dim SQLDienst As New cDienstplan Dim SQLDienst As New cDienstplan
Public Function getWochenstunden(STD_LIST As List(Of cDienstMitarbAbweichendeWochenstunden), Wochenstunden As Double, datum As Date, SCHICHT As String, dstma_id As Integer, dstma_muster As Boolean, dstma_WEStdRegelAZ As Boolean, dstma_arbvh As String, niederlassung As String, StdFeiertag As Object) As Double Public Function getWochenstunden(STD_LIST As List(Of cDienstMitarbAbweichendeWochenstunden), Wochenstunden As Double, datum As Date, SCHICHT As String, dstma_id As Integer, dstma_muster As Boolean, dstma_WEStdRegelAZ As Boolean, dstma_arbvh As String, niederlassung As String, StdFeiertag As Object, schicht4wo As Boolean) As Double
getWochenstunden = cDienstMitarbAbweichendeWochenstunden.GET_STD_LIST(STD_LIST, dstma_id, datum, Wochenstunden, If(StdFeiertag, -1)) getWochenstunden = cDienstMitarbAbweichendeWochenstunden.GET_STD_LIST(STD_LIST, dstma_id, datum, Wochenstunden, If(StdFeiertag, -1))
Dim UrlStd As Double = 8 Dim UrlStd As Double = 8
@@ -924,26 +924,31 @@ Public Class cProgramFunctions
If dstma_muster Then 'Wenn Muster, dann muss Feiertag bei VZ und TZ berüchsichtigt werden.... If dstma_muster Then 'Wenn Muster, dann muss Feiertag bei VZ und TZ berüchsichtigt werden....
If (woTag <> "SA" And woTag <> "SO") Or dstma_WEStdRegelAZ Then ' ... aber nur wenn Wochendende teil der Regel-Arbeitszeit ist. If (woTag <> "SA" And woTag <> "SO") Or dstma_WEStdRegelAZ Then ' ... aber nur wenn Wochendende teil der Regel-Arbeitszeit ist.
Dim tz As cDienstTeilzeit = SQLDienst.getDienstTeilzeitBySchicht(dstma_id, SCHICHT, woTag) Dim tz As cDienstTeilzeit = SQLDienst.getDienstTeilzeitBySchicht(dstma_id, SCHICHT, woTag, schicht4wo)
If tz IsNot Nothing Then ' EVtl gibt es den WoTag Nicht If tz IsNot Nothing Then ' EVtl gibt es den WoTag Nicht
'Wochenstunden -= getDiff(tz.dsttz_von, tz.dsttz_bis, niederlassung, (FT.isFeiertag(datum) Or woTag = "SO")) 'Wochenstunden -= getDiff(tz.dsttz_von, tz.dsttz_bis, niederlassung, (FT.isFeiertag(datum) Or woTag = "SO"))
If datum.ToString("dd.MM.") = "31.12." Or datum.ToString("dd.MM.") = "24.12." Then 'Weihnachten und Silvester ist ist nur 1/2 Tag!!! If datum.ToString("dd.MM.") = "31.12." Or datum.ToString("dd.MM.") = "24.12." Then 'Weihnachten und Silvester ist ist nur 1/2 Tag!!!
getWochenstunden -= UrlStd / 2 getWochenstunden -= UrlStd / 2
Else Else
If dstma_arbvh = "VZ" Then If dstma_arbvh = "VZ" Then
getWochenstunden -= UrlStd 'bei vollzeit mit Muster werden 8 Std abgezogen getWochenstunden -= UrlStd 'bei vollzeit mit Muster werden 8 Std abgezogen
Else Else
If getDiff(tz.dsttz_von, tz.dsttz_bis, niederlassung, False) > 0 Then 'Wenn an deisem Tag Stunden angefallen wären (lt. Muster) If StdFeiertag IsNot Nothing Then
getWochenstunden -= UrlStd getWochenstunden -= UrlStd ' wurde oben schon angepasst.
' getWochenstunden -= getDiff(tz.dsttz_von, tz.dsttz_bis, niederlassung, False) Else
' If IsNumeric(tz.dsttz_pause) Then getWochenstunden += tz.dsttz_pause
'gibt es keine deinierten Std.für einen Feiertag, werden die Stunden nach Mustereinteilung berechnet:
If getDiff(tz.dsttz_von, tz.dsttz_bis, niederlassung, False) > 0 Then 'Wenn an deisem Tag Stunden angefallen wären (lt. Muster)
Dim getWochenstundenTAG = getDiff(tz.dsttz_von, tz.dsttz_bis, niederlassung, False)
If IsNumeric(tz.dsttz_pause) Then getWochenstundenTAG += tz.dsttz_pause
getWochenstunden -= getWochenstundenTAG
End If
End If End If
End If End If
End If End If
End If End If
End If End If
Else Else
@@ -1036,16 +1041,17 @@ Public Class cProgramFunctions
' Prüfen, ob Datum zur ersten Woche des Folgejahres gehört ' Prüfen, ob Datum zur ersten Woche des Folgejahres gehört
If dDate >= dNextYear Then If dDate >= dNextYear Then
' Rückgabe: KW 1 des Folgejahres ' Rückgabe: KW 1 des Folgejahres
Return dDate.Year + 1 & "01" Return (dDate.Year + 1) & "01"
ElseIf dDate < dThisYear Then ElseIf dDate < dThisYear Then
' Falls das Datum noch zu einer KW aus dem letzten Jahr zählt ' Falls das Datum noch zu einer KW aus dem letzten Jahr zählt
Return dDate.Year - 1 & DatePart(DateInterval.WeekOfYear, Return dDate.Year - 1 & DatePart(DateInterval.WeekOfYear,
New Date(dDate.Year - 1, 12, 28), FirstDayOfWeek.Monday, New Date(dDate.Year - 1, 12, 28), FirstDayOfWeek.Monday,
FirstWeekOfYear.FirstFourDays) FirstWeekOfYear.FirstFourDays)
Else Else
' KW = Differenz zum ersten Tag der ersten Woche ' KW = Differenz zum ersten Tag der ersten Woche
Return dDate.Year & Format$(dDate.Subtract(dThisYear).Days \ 7 + 1, "00") Return dDate.Year.ToString & Format$(dDate.Subtract(dThisYear).Days \ 7 + 1, "00").ToString
End If End If
End Function End Function
@@ -1079,7 +1085,7 @@ Public Class cProgramFunctions
If IsNumeric(ma.dstma_wochenStunden) Then Wochenstunden = ma.dstma_wochenStunden If IsNumeric(ma.dstma_wochenStunden) Then Wochenstunden = ma.dstma_wochenStunden
' MsgBox(Wochenstunden) ' MsgBox(Wochenstunden)
Wochenstunden = cPF.getWochenstunden(STD_LIST, Wochenstunden, datum, SCHICHT, r("dstma_id"), ma.dstma_muster, ma.dstma_WEStdRegelAZ, ma.dstma_arbvh, niederlassung, ma.dstma_TzFeiertageStd) Wochenstunden = cPF.getWochenstunden(STD_LIST, Wochenstunden, datum, SCHICHT, r("dstma_id"), ma.dstma_muster, ma.dstma_WEStdRegelAZ, ma.dstma_arbvh, niederlassung, ma.dstma_TzFeiertageStd, ma.dstma_4wo)
Dim tatStd As Double = SQLDienst.getDstStunden(r("dstma_id"), datum_montag, datum_montag.AddDays(6), niederlassung) Dim tatStd As Double = SQLDienst.getDstStunden(r("dstma_id"), datum_montag, datum_montag.AddDays(6), niederlassung)
' : ANDERES ERG"""""!!!!!!!!!!!!!!!!!!!! ' : ANDERES ERG"""""!!!!!!!!!!!!!!!!!!!!

17
UID/cSqlDb.vb
View File

@@ -2888,12 +2888,21 @@ Public Class cDienstplan
Return Nothing Return Nothing
End Function End Function
Public Function getDienstTeilzeitBySchicht(id, schicht, woTag) As cDienstTeilzeit Public Function getDienstTeilzeitBySchicht(id, schicht, woTag, schicht4wo) As cDienstTeilzeit
Try Try
If schicht4wo Then
Else '2Wochen-Wechsel
If schicht.ToString.StartsWith("BLAU") Then schicht = "BLAU%"
If schicht.ToString.StartsWith("ROT") Then schicht = "ROT%"
End If
Dim d As New cDienstTeilzeit Dim d As New cDienstTeilzeit
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDienstTeilzeit WHERE dsttz_maId=@dsttz_maId AND dsttz_dienstplan=@dsttz_dienstplan AND dsttz_woTag=dsttz_woTag", conn)
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDienstTeilzeit WHERE dsttz_maId=@dsttz_maId AND dsttz_dienstplan LIKE @dsttz_dienstplan AND dsttz_woTag=dsttz_woTag", conn)
cmd.Parameters.AddWithValue("@dsttz_maId", id) cmd.Parameters.AddWithValue("@dsttz_maId", id)
cmd.Parameters.AddWithValue("@dsttz_dienstplan", schicht) cmd.Parameters.AddWithValue("@dsttz_dienstplan", schicht)
cmd.Parameters.AddWithValue("@dsttz_woTag", woTag) cmd.Parameters.AddWithValue("@dsttz_woTag", woTag)
@@ -3993,6 +4002,10 @@ Public Class cDienstplan
s += cPF.getDiff(von, bis, niederlassung, (FT.isFeiertag(datum, cDienstSettings.getLand(niederlassung)) 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 If IsNumeric(dr.Item("dstetr_pause")) Then
s -= CDbl(dr.Item("dstetr_pause")) s -= CDbl(dr.Item("dstetr_pause"))
'Wenn Feiertag oder Sonntag, werden die Stunden (von-bis) doppelt gerechent, also müssen die Pausenstunden doppelt abgezoben werden:
If (FT.isFeiertag(datum, cDienstSettings.getLand(niederlassung)) Or woTag = "SO") Then s -= CDbl(dr.Item("dstetr_pause"))
End If End If
Else Else

1
UID/packages.config
View File

@@ -1,5 +1,6 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<packages> <packages>
<package id="ATAPI" version="2018.3.9" targetFramework="net47" />
<package id="Gcef.Data.DataEngine" version="3.0.2" targetFramework="net47" /> <package id="Gcef.Data.DataEngine" version="3.0.2" targetFramework="net47" />
<package id="Gcef.Data.ExpressionInfo" version="3.0.2" targetFramework="net47" /> <package id="Gcef.Data.ExpressionInfo" version="3.0.2" targetFramework="net47" />
<package id="Gcef.Data.VBFunctionLib" version="3.0.2" targetFramework="net47" /> <package id="Gcef.Data.VBFunctionLib" version="3.0.2" targetFramework="net47" />

132
UID/usrctlProcedures.Designer.vb generated
View File

@@ -109,6 +109,9 @@ Partial Class usrctlProcedures
Me.Button29 = New System.Windows.Forms.Button() Me.Button29 = New System.Windows.Forms.Button()
Me.Button28 = New System.Windows.Forms.Button() Me.Button28 = New System.Windows.Forms.Button()
Me.Button30 = New System.Windows.Forms.Button() Me.Button30 = New System.Windows.Forms.Button()
Me.Button31 = New System.Windows.Forms.Button()
Me.Button32 = New System.Windows.Forms.Button()
Me.lblStatus = New System.Windows.Forms.Label()
Me.TabControl1.SuspendLayout() Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -121,7 +124,7 @@ Partial Class usrctlProcedures
' '
Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Location = New System.Drawing.Point(3, 313) Me.TabControl1.Location = New System.Drawing.Point(7, 407)
Me.TabControl1.Name = "TabControl1" Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0 Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(609, 187) Me.TabControl1.Size = New System.Drawing.Size(609, 187)
@@ -491,7 +494,7 @@ Partial Class usrctlProcedures
' '
'Button18 'Button18
' '
Me.Button18.Location = New System.Drawing.Point(55, 88) Me.Button18.Location = New System.Drawing.Point(59, 183)
Me.Button18.Name = "Button18" Me.Button18.Name = "Button18"
Me.Button18.Size = New System.Drawing.Size(145, 49) Me.Button18.Size = New System.Drawing.Size(145, 49)
Me.Button18.TabIndex = 15 Me.Button18.TabIndex = 15
@@ -500,7 +503,7 @@ Partial Class usrctlProcedures
' '
'TextBox1 'TextBox1
' '
Me.TextBox1.Location = New System.Drawing.Point(109, 62) Me.TextBox1.Location = New System.Drawing.Point(113, 157)
Me.TextBox1.Name = "TextBox1" Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(91, 20) Me.TextBox1.Size = New System.Drawing.Size(91, 20)
Me.TextBox1.TabIndex = 16 Me.TextBox1.TabIndex = 16
@@ -509,7 +512,7 @@ Partial Class usrctlProcedures
'lblAnzahl 'lblAnzahl
' '
Me.lblAnzahl.AutoSize = True Me.lblAnzahl.AutoSize = True
Me.lblAnzahl.Location = New System.Drawing.Point(61, 65) Me.lblAnzahl.Location = New System.Drawing.Point(65, 160)
Me.lblAnzahl.Name = "lblAnzahl" Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Size = New System.Drawing.Size(42, 13) Me.lblAnzahl.Size = New System.Drawing.Size(42, 13)
Me.lblAnzahl.TabIndex = 17 Me.lblAnzahl.TabIndex = 17
@@ -517,7 +520,7 @@ Partial Class usrctlProcedures
' '
'Label3 'Label3
' '
Me.Label3.Location = New System.Drawing.Point(55, 140) Me.Label3.Location = New System.Drawing.Point(59, 235)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(145, 13) Me.Label3.Size = New System.Drawing.Size(145, 13)
Me.Label3.TabIndex = 18 Me.Label3.TabIndex = 18
@@ -526,7 +529,7 @@ Partial Class usrctlProcedures
' '
'Label4 'Label4
' '
Me.Label4.Location = New System.Drawing.Point(55, 153) Me.Label4.Location = New System.Drawing.Point(59, 248)
Me.Label4.Name = "Label4" Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(145, 13) Me.Label4.Size = New System.Drawing.Size(145, 13)
Me.Label4.TabIndex = 19 Me.Label4.TabIndex = 19
@@ -535,7 +538,7 @@ Partial Class usrctlProcedures
' '
'Button19 'Button19
' '
Me.Button19.Location = New System.Drawing.Point(219, 91) Me.Button19.Location = New System.Drawing.Point(223, 186)
Me.Button19.Name = "Button19" Me.Button19.Name = "Button19"
Me.Button19.Size = New System.Drawing.Size(145, 49) Me.Button19.Size = New System.Drawing.Size(145, 49)
Me.Button19.TabIndex = 20 Me.Button19.TabIndex = 20
@@ -544,7 +547,7 @@ Partial Class usrctlProcedures
' '
'Label5 'Label5
' '
Me.Label5.Location = New System.Drawing.Point(216, 143) Me.Label5.Location = New System.Drawing.Point(220, 238)
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(145, 13) Me.Label5.Size = New System.Drawing.Size(145, 13)
Me.Label5.TabIndex = 21 Me.Label5.TabIndex = 21
@@ -556,7 +559,7 @@ Partial Class usrctlProcedures
Me.cbxTESTSYSTEMATLAS.AutoSize = True Me.cbxTESTSYSTEMATLAS.AutoSize = True
Me.cbxTESTSYSTEMATLAS.Checked = True Me.cbxTESTSYSTEMATLAS.Checked = True
Me.cbxTESTSYSTEMATLAS.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxTESTSYSTEMATLAS.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxTESTSYSTEMATLAS.Location = New System.Drawing.Point(219, 65) Me.cbxTESTSYSTEMATLAS.Location = New System.Drawing.Point(223, 160)
Me.cbxTESTSYSTEMATLAS.Name = "cbxTESTSYSTEMATLAS" Me.cbxTESTSYSTEMATLAS.Name = "cbxTESTSYSTEMATLAS"
Me.cbxTESTSYSTEMATLAS.Size = New System.Drawing.Size(98, 17) Me.cbxTESTSYSTEMATLAS.Size = New System.Drawing.Size(98, 17)
Me.cbxTESTSYSTEMATLAS.TabIndex = 22 Me.cbxTESTSYSTEMATLAS.TabIndex = 22
@@ -568,7 +571,7 @@ Partial Class usrctlProcedures
Me.CheckBox1.AutoSize = True Me.CheckBox1.AutoSize = True
Me.CheckBox1.Checked = True Me.CheckBox1.Checked = True
Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox1.Location = New System.Drawing.Point(58, 39) Me.CheckBox1.Location = New System.Drawing.Point(62, 134)
Me.CheckBox1.Name = "CheckBox1" Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(98, 17) Me.CheckBox1.Size = New System.Drawing.Size(98, 17)
Me.CheckBox1.TabIndex = 23 Me.CheckBox1.TabIndex = 23
@@ -590,7 +593,7 @@ Partial Class usrctlProcedures
Me.CheckBox2.AutoSize = True Me.CheckBox2.AutoSize = True
Me.CheckBox2.Checked = True Me.CheckBox2.Checked = True
Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox2.Location = New System.Drawing.Point(389, 39) Me.CheckBox2.Location = New System.Drawing.Point(393, 134)
Me.CheckBox2.Name = "CheckBox2" Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(98, 17) Me.CheckBox2.Size = New System.Drawing.Size(98, 17)
Me.CheckBox2.TabIndex = 26 Me.CheckBox2.TabIndex = 26
@@ -599,7 +602,7 @@ Partial Class usrctlProcedures
' '
'Label6 'Label6
' '
Me.Label6.Location = New System.Drawing.Point(386, 140) Me.Label6.Location = New System.Drawing.Point(390, 235)
Me.Label6.Name = "Label6" Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(145, 13) Me.Label6.Size = New System.Drawing.Size(145, 13)
Me.Label6.TabIndex = 25 Me.Label6.TabIndex = 25
@@ -608,7 +611,7 @@ Partial Class usrctlProcedures
' '
'Button20 'Button20
' '
Me.Button20.Location = New System.Drawing.Point(389, 88) Me.Button20.Location = New System.Drawing.Point(393, 183)
Me.Button20.Name = "Button20" Me.Button20.Name = "Button20"
Me.Button20.Size = New System.Drawing.Size(145, 49) Me.Button20.Size = New System.Drawing.Size(145, 49)
Me.Button20.TabIndex = 24 Me.Button20.TabIndex = 24
@@ -618,7 +621,7 @@ Partial Class usrctlProcedures
'Label7 'Label7
' '
Me.Label7.AutoSize = True Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(392, 68) Me.Label7.Location = New System.Drawing.Point(396, 163)
Me.Label7.Name = "Label7" Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(39, 13) Me.Label7.Size = New System.Drawing.Size(39, 13)
Me.Label7.TabIndex = 28 Me.Label7.TabIndex = 28
@@ -626,7 +629,7 @@ Partial Class usrctlProcedures
' '
'TextBox3 'TextBox3
' '
Me.TextBox3.Location = New System.Drawing.Point(440, 65) Me.TextBox3.Location = New System.Drawing.Point(444, 160)
Me.TextBox3.Name = "TextBox3" Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(91, 20) Me.TextBox3.Size = New System.Drawing.Size(91, 20)
Me.TextBox3.TabIndex = 27 Me.TextBox3.TabIndex = 27
@@ -634,7 +637,7 @@ Partial Class usrctlProcedures
' '
'btn 'btn
' '
Me.btn.Location = New System.Drawing.Point(165, 236) Me.btn.Location = New System.Drawing.Point(169, 330)
Me.btn.Name = "btn" Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(140, 23) Me.btn.Size = New System.Drawing.Size(140, 23)
Me.btn.TabIndex = 29 Me.btn.TabIndex = 29
@@ -643,7 +646,7 @@ Partial Class usrctlProcedures
' '
'TextBox4 'TextBox4
' '
Me.TextBox4.Location = New System.Drawing.Point(68, 238) Me.TextBox4.Location = New System.Drawing.Point(72, 332)
Me.TextBox4.Name = "TextBox4" Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(91, 20) Me.TextBox4.Size = New System.Drawing.Size(91, 20)
Me.TextBox4.TabIndex = 30 Me.TextBox4.TabIndex = 30
@@ -652,7 +655,7 @@ Partial Class usrctlProcedures
'Label8 'Label8
' '
Me.Label8.AutoSize = True Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(37, 241) Me.Label8.Location = New System.Drawing.Point(41, 335)
Me.Label8.Name = "Label8" Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(25, 13) Me.Label8.Size = New System.Drawing.Size(25, 13)
Me.Label8.TabIndex = 31 Me.Label8.TabIndex = 31
@@ -660,7 +663,7 @@ Partial Class usrctlProcedures
' '
'TextBox5 'TextBox5
' '
Me.TextBox5.Location = New System.Drawing.Point(68, 264) Me.TextBox5.Location = New System.Drawing.Point(72, 358)
Me.TextBox5.Name = "TextBox5" Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Size = New System.Drawing.Size(91, 20) Me.TextBox5.Size = New System.Drawing.Size(91, 20)
Me.TextBox5.TabIndex = 32 Me.TextBox5.TabIndex = 32
@@ -668,7 +671,7 @@ Partial Class usrctlProcedures
' '
'TextBox6 'TextBox6
' '
Me.TextBox6.Location = New System.Drawing.Point(165, 265) Me.TextBox6.Location = New System.Drawing.Point(169, 359)
Me.TextBox6.Name = "TextBox6" Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Size = New System.Drawing.Size(48, 20) Me.TextBox6.Size = New System.Drawing.Size(48, 20)
Me.TextBox6.TabIndex = 33 Me.TextBox6.TabIndex = 33
@@ -676,7 +679,7 @@ Partial Class usrctlProcedures
' '
'TextBox7 'TextBox7
' '
Me.TextBox7.Location = New System.Drawing.Point(219, 265) Me.TextBox7.Location = New System.Drawing.Point(223, 359)
Me.TextBox7.Name = "TextBox7" Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Size = New System.Drawing.Size(48, 20) Me.TextBox7.Size = New System.Drawing.Size(48, 20)
Me.TextBox7.TabIndex = 34 Me.TextBox7.TabIndex = 34
@@ -684,7 +687,7 @@ Partial Class usrctlProcedures
' '
'Button21 'Button21
' '
Me.Button21.Location = New System.Drawing.Point(219, 173) Me.Button21.Location = New System.Drawing.Point(223, 268)
Me.Button21.Name = "Button21" Me.Button21.Name = "Button21"
Me.Button21.Size = New System.Drawing.Size(145, 49) Me.Button21.Size = New System.Drawing.Size(145, 49)
Me.Button21.TabIndex = 35 Me.Button21.TabIndex = 35
@@ -694,7 +697,7 @@ Partial Class usrctlProcedures
'Label9 'Label9
' '
Me.Label9.AutoSize = True Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(225, 159) Me.Label9.Location = New System.Drawing.Point(229, 254)
Me.Label9.Name = "Label9" Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(42, 13) Me.Label9.Size = New System.Drawing.Size(42, 13)
Me.Label9.TabIndex = 37 Me.Label9.TabIndex = 37
@@ -702,7 +705,7 @@ Partial Class usrctlProcedures
' '
'TextBox8 'TextBox8
' '
Me.TextBox8.Location = New System.Drawing.Point(273, 156) Me.TextBox8.Location = New System.Drawing.Point(277, 251)
Me.TextBox8.Name = "TextBox8" Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Size = New System.Drawing.Size(91, 20) Me.TextBox8.Size = New System.Drawing.Size(91, 20)
Me.TextBox8.TabIndex = 36 Me.TextBox8.TabIndex = 36
@@ -710,7 +713,7 @@ Partial Class usrctlProcedures
' '
'txt 'txt
' '
Me.txt.Location = New System.Drawing.Point(343, 238) Me.txt.Location = New System.Drawing.Point(347, 332)
Me.txt.Multiline = True Me.txt.Multiline = True
Me.txt.Name = "txt" Me.txt.Name = "txt"
Me.txt.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.txt.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
@@ -719,7 +722,7 @@ Partial Class usrctlProcedures
' '
'TextBox9 'TextBox9
' '
Me.TextBox9.Location = New System.Drawing.Point(468, 238) Me.TextBox9.Location = New System.Drawing.Point(472, 332)
Me.TextBox9.Multiline = True Me.TextBox9.Multiline = True
Me.TextBox9.Name = "TextBox9" Me.TextBox9.Name = "TextBox9"
Me.TextBox9.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.TextBox9.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
@@ -728,7 +731,7 @@ Partial Class usrctlProcedures
' '
'Button22 'Button22
' '
Me.Button22.Location = New System.Drawing.Point(364, 173) Me.Button22.Location = New System.Drawing.Point(368, 268)
Me.Button22.Name = "Button22" Me.Button22.Name = "Button22"
Me.Button22.Size = New System.Drawing.Size(154, 49) Me.Button22.Size = New System.Drawing.Size(154, 49)
Me.Button22.TabIndex = 40 Me.Button22.TabIndex = 40
@@ -737,7 +740,7 @@ Partial Class usrctlProcedures
' '
'Button23 'Button23
' '
Me.Button23.Location = New System.Drawing.Point(618, 344) Me.Button23.Location = New System.Drawing.Point(622, 438)
Me.Button23.Name = "Button23" Me.Button23.Name = "Button23"
Me.Button23.Size = New System.Drawing.Size(75, 23) Me.Button23.Size = New System.Drawing.Size(75, 23)
Me.Button23.TabIndex = 41 Me.Button23.TabIndex = 41
@@ -745,7 +748,7 @@ Partial Class usrctlProcedures
' '
'Button24 'Button24
' '
Me.Button24.Location = New System.Drawing.Point(583, 50) Me.Button24.Location = New System.Drawing.Point(587, 144)
Me.Button24.Name = "Button24" Me.Button24.Name = "Button24"
Me.Button24.Size = New System.Drawing.Size(145, 49) Me.Button24.Size = New System.Drawing.Size(145, 49)
Me.Button24.TabIndex = 42 Me.Button24.TabIndex = 42
@@ -757,7 +760,7 @@ Partial Class usrctlProcedures
Me.CheckBox3.AutoSize = True Me.CheckBox3.AutoSize = True
Me.CheckBox3.Checked = True Me.CheckBox3.Checked = True
Me.CheckBox3.CheckState = System.Windows.Forms.CheckState.Checked Me.CheckBox3.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox3.Location = New System.Drawing.Point(583, 24) Me.CheckBox3.Location = New System.Drawing.Point(587, 118)
Me.CheckBox3.Name = "CheckBox3" Me.CheckBox3.Name = "CheckBox3"
Me.CheckBox3.Size = New System.Drawing.Size(98, 17) Me.CheckBox3.Size = New System.Drawing.Size(98, 17)
Me.CheckBox3.TabIndex = 43 Me.CheckBox3.TabIndex = 43
@@ -766,7 +769,7 @@ Partial Class usrctlProcedures
' '
'Button25 'Button25
' '
Me.Button25.Location = New System.Drawing.Point(583, 102) Me.Button25.Location = New System.Drawing.Point(587, 196)
Me.Button25.Name = "Button25" Me.Button25.Name = "Button25"
Me.Button25.Size = New System.Drawing.Size(145, 49) Me.Button25.Size = New System.Drawing.Size(145, 49)
Me.Button25.TabIndex = 44 Me.Button25.TabIndex = 44
@@ -775,7 +778,7 @@ Partial Class usrctlProcedures
' '
'Label10 'Label10
' '
Me.Label10.Location = New System.Drawing.Point(579, 154) Me.Label10.Location = New System.Drawing.Point(583, 248)
Me.Label10.Name = "Label10" Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(145, 13) Me.Label10.Size = New System.Drawing.Size(145, 13)
Me.Label10.TabIndex = 45 Me.Label10.TabIndex = 45
@@ -784,7 +787,7 @@ Partial Class usrctlProcedures
' '
'TextBox10 'TextBox10
' '
Me.TextBox10.Location = New System.Drawing.Point(690, 335) Me.TextBox10.Location = New System.Drawing.Point(694, 429)
Me.TextBox10.Multiline = True Me.TextBox10.Multiline = True
Me.TextBox10.Name = "TextBox10" Me.TextBox10.Name = "TextBox10"
Me.TextBox10.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.TextBox10.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
@@ -793,7 +796,7 @@ Partial Class usrctlProcedures
' '
'TextBox11 'TextBox11
' '
Me.TextBox11.Location = New System.Drawing.Point(820, 335) Me.TextBox11.Location = New System.Drawing.Point(824, 429)
Me.TextBox11.Multiline = True Me.TextBox11.Multiline = True
Me.TextBox11.Name = "TextBox11" Me.TextBox11.Name = "TextBox11"
Me.TextBox11.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.TextBox11.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
@@ -802,7 +805,7 @@ Partial Class usrctlProcedures
' '
'TextBox12 'TextBox12
' '
Me.TextBox12.Location = New System.Drawing.Point(690, 450) Me.TextBox12.Location = New System.Drawing.Point(694, 544)
Me.TextBox12.Multiline = True Me.TextBox12.Multiline = True
Me.TextBox12.Name = "TextBox12" Me.TextBox12.Name = "TextBox12"
Me.TextBox12.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.TextBox12.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
@@ -812,7 +815,7 @@ Partial Class usrctlProcedures
'Label11 'Label11
' '
Me.Label11.AutoSize = True Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(687, 319) Me.Label11.Location = New System.Drawing.Point(691, 413)
Me.Label11.Name = "Label11" Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(94, 13) Me.Label11.Size = New System.Drawing.Size(94, 13)
Me.Label11.TabIndex = 28 Me.Label11.TabIndex = 28
@@ -821,7 +824,7 @@ Partial Class usrctlProcedures
'Label12 'Label12
' '
Me.Label12.AutoSize = True Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(817, 319) Me.Label12.Location = New System.Drawing.Point(821, 413)
Me.Label12.Name = "Label12" Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(96, 13) Me.Label12.Size = New System.Drawing.Size(96, 13)
Me.Label12.TabIndex = 28 Me.Label12.TabIndex = 28
@@ -830,7 +833,7 @@ Partial Class usrctlProcedures
'Label13 'Label13
' '
Me.Label13.AutoSize = True Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(687, 434) Me.Label13.Location = New System.Drawing.Point(691, 528)
Me.Label13.Name = "Label13" Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(119, 13) Me.Label13.Size = New System.Drawing.Size(119, 13)
Me.Label13.TabIndex = 28 Me.Label13.TabIndex = 28
@@ -838,7 +841,7 @@ Partial Class usrctlProcedures
' '
'Button26 'Button26
' '
Me.Button26.Location = New System.Drawing.Point(755, 104) Me.Button26.Location = New System.Drawing.Point(759, 198)
Me.Button26.Name = "Button26" Me.Button26.Name = "Button26"
Me.Button26.Size = New System.Drawing.Size(145, 49) Me.Button26.Size = New System.Drawing.Size(145, 49)
Me.Button26.TabIndex = 54 Me.Button26.TabIndex = 54
@@ -847,7 +850,7 @@ Partial Class usrctlProcedures
' '
'Button27 'Button27
' '
Me.Button27.Location = New System.Drawing.Point(756, 50) Me.Button27.Location = New System.Drawing.Point(760, 144)
Me.Button27.Name = "Button27" Me.Button27.Name = "Button27"
Me.Button27.Size = New System.Drawing.Size(145, 49) Me.Button27.Size = New System.Drawing.Size(145, 49)
Me.Button27.TabIndex = 50 Me.Button27.TabIndex = 50
@@ -859,7 +862,7 @@ Partial Class usrctlProcedures
Me.CheckBox4.AutoSize = True Me.CheckBox4.AutoSize = True
Me.CheckBox4.Checked = True Me.CheckBox4.Checked = True
Me.CheckBox4.CheckState = System.Windows.Forms.CheckState.Checked Me.CheckBox4.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox4.Location = New System.Drawing.Point(756, 24) Me.CheckBox4.Location = New System.Drawing.Point(760, 118)
Me.CheckBox4.Name = "CheckBox4" Me.CheckBox4.Name = "CheckBox4"
Me.CheckBox4.Size = New System.Drawing.Size(98, 17) Me.CheckBox4.Size = New System.Drawing.Size(98, 17)
Me.CheckBox4.TabIndex = 51 Me.CheckBox4.TabIndex = 51
@@ -868,7 +871,7 @@ Partial Class usrctlProcedures
' '
'Label14 'Label14
' '
Me.Label14.Location = New System.Drawing.Point(756, 156) Me.Label14.Location = New System.Drawing.Point(760, 250)
Me.Label14.Name = "Label14" Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(145, 13) Me.Label14.Size = New System.Drawing.Size(145, 13)
Me.Label14.TabIndex = 53 Me.Label14.TabIndex = 53
@@ -877,7 +880,7 @@ Partial Class usrctlProcedures
' '
'Label15 'Label15
' '
Me.Label15.Location = New System.Drawing.Point(756, 254) Me.Label15.Location = New System.Drawing.Point(760, 348)
Me.Label15.Name = "Label15" Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(145, 13) Me.Label15.Size = New System.Drawing.Size(145, 13)
Me.Label15.TabIndex = 57 Me.Label15.TabIndex = 57
@@ -889,7 +892,7 @@ Partial Class usrctlProcedures
Me.CheckBox5.AutoSize = True Me.CheckBox5.AutoSize = True
Me.CheckBox5.Checked = True Me.CheckBox5.Checked = True
Me.CheckBox5.CheckState = System.Windows.Forms.CheckState.Checked Me.CheckBox5.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox5.Location = New System.Drawing.Point(756, 179) Me.CheckBox5.Location = New System.Drawing.Point(760, 273)
Me.CheckBox5.Name = "CheckBox5" Me.CheckBox5.Name = "CheckBox5"
Me.CheckBox5.Size = New System.Drawing.Size(98, 17) Me.CheckBox5.Size = New System.Drawing.Size(98, 17)
Me.CheckBox5.TabIndex = 56 Me.CheckBox5.TabIndex = 56
@@ -898,7 +901,7 @@ Partial Class usrctlProcedures
' '
'Button29 'Button29
' '
Me.Button29.Location = New System.Drawing.Point(755, 202) Me.Button29.Location = New System.Drawing.Point(759, 296)
Me.Button29.Name = "Button29" Me.Button29.Name = "Button29"
Me.Button29.Size = New System.Drawing.Size(145, 49) Me.Button29.Size = New System.Drawing.Size(145, 49)
Me.Button29.TabIndex = 58 Me.Button29.TabIndex = 58
@@ -907,7 +910,7 @@ Partial Class usrctlProcedures
' '
'Button28 'Button28
' '
Me.Button28.Location = New System.Drawing.Point(598, 258) Me.Button28.Location = New System.Drawing.Point(602, 352)
Me.Button28.Name = "Button28" Me.Button28.Name = "Button28"
Me.Button28.Size = New System.Drawing.Size(145, 49) Me.Button28.Size = New System.Drawing.Size(145, 49)
Me.Button28.TabIndex = 59 Me.Button28.TabIndex = 59
@@ -916,17 +919,47 @@ Partial Class usrctlProcedures
' '
'Button30 'Button30
' '
Me.Button30.Location = New System.Drawing.Point(579, 179) Me.Button30.Location = New System.Drawing.Point(583, 273)
Me.Button30.Name = "Button30" Me.Button30.Name = "Button30"
Me.Button30.Size = New System.Drawing.Size(145, 49) Me.Button30.Size = New System.Drawing.Size(145, 49)
Me.Button30.TabIndex = 60 Me.Button30.TabIndex = 60
Me.Button30.Text = "GOOGLE" Me.Button30.Text = "GOOGLE"
Me.Button30.UseVisualStyleBackColor = True Me.Button30.UseVisualStyleBackColor = True
' '
'Button31
'
Me.Button31.Location = New System.Drawing.Point(68, 29)
Me.Button31.Name = "Button31"
Me.Button31.Size = New System.Drawing.Size(145, 49)
Me.Button31.TabIndex = 61
Me.Button31.Text = "TAPI"
Me.Button31.UseVisualStyleBackColor = True
'
'Button32
'
Me.Button32.Location = New System.Drawing.Point(232, 29)
Me.Button32.Name = "Button32"
Me.Button32.Size = New System.Drawing.Size(145, 49)
Me.Button32.TabIndex = 62
Me.Button32.Text = "TAPI"
Me.Button32.UseVisualStyleBackColor = True
'
'lblStatus
'
Me.lblStatus.AutoSize = True
Me.lblStatus.Location = New System.Drawing.Point(110, 81)
Me.lblStatus.Name = "lblStatus"
Me.lblStatus.Size = New System.Drawing.Size(39, 13)
Me.lblStatus.TabIndex = 63
Me.lblStatus.Text = "Zeilen:"
'
'usrctlProcedures 'usrctlProcedures
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.lblStatus)
Me.Controls.Add(Me.Button32)
Me.Controls.Add(Me.Button31)
Me.Controls.Add(Me.Button30) Me.Controls.Add(Me.Button30)
Me.Controls.Add(Me.Button28) Me.Controls.Add(Me.Button28)
Me.Controls.Add(Me.Label15) Me.Controls.Add(Me.Label15)
@@ -975,7 +1008,7 @@ Partial Class usrctlProcedures
Me.Controls.Add(Me.TabControl1) Me.Controls.Add(Me.TabControl1)
Me.Controls.Add(Me.Button26) Me.Controls.Add(Me.Button26)
Me.Name = "usrctlProcedures" Me.Name = "usrctlProcedures"
Me.Size = New System.Drawing.Size(931, 546) Me.Size = New System.Drawing.Size(931, 724)
Me.TabControl1.ResumeLayout(False) Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout() Me.TabPage1.PerformLayout()
@@ -1076,4 +1109,7 @@ Partial Class usrctlProcedures
Friend WithEvents Button29 As Button Friend WithEvents Button29 As Button
Friend WithEvents Button28 As Button Friend WithEvents Button28 As Button
Friend WithEvents Button30 As Button Friend WithEvents Button30 As Button
Friend WithEvents Button31 As Button
Friend WithEvents Button32 As Button
Friend WithEvents lblStatus As Label
End Class End Class

6
UID/usrctlProcedures.resx
View File

@@ -123,4 +123,10 @@
<metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
<metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
</root> </root>

186
UID/usrctlProcedures.vb
View File

@@ -15,10 +15,193 @@ Imports System.Text
Imports System.Xml.Serialization Imports System.Xml.Serialization
Imports System.Xml Imports System.Xml
Imports System.Data.OleDb Imports System.Data.OleDb
'Imports Microsoft.Office.Interop 'Imports Microsoft.Office.Interop
Public Class usrctlProcedures Public Class usrctlProcedures
'Private hwAddress As TAddress = Nothing
'Private mediaTypes As Integer
'Private WithEvents tapiCls As TTapi
'Private Const mediaAudio = JulMar.Tapi3.TAPIMEDIATYPES.AUDIO
'Private Const mediaData = JulMar.Tapi3.TAPIMEDIATYPES.DATAMODEM
'Private Const mediaVideo = JulMar.Tapi3.TAPIMEDIATYPES.VIDEO
'Private Const mediaFax = JulMar.Tapi3.TAPIMEDIATYPES.G3FAX
'Private Const mediaMultitrack = JulMar.Tapi3.TAPIMEDIATYPES.MULTITRACK
'Private offeringCall As Boolean = False
'Private connectedCall As Boolean = False
'Private inProgressCall As Boolean = False
'Private incomingCall As TCall
'Public Sub New()
' tapiCls = New TTapi
' tapiCls.Initialize()
' 'Discover all hardware addresses
' 'Make "And" function to discover different media devices
' For Each address In tapiCls.Addresses
' If address.State = ADDRESS_STATE.AS_INSERVICE Then
' mediaTypes = address.MediaTypes
' 'We discover and select the audio device usually to be a modem
' If (mediaTypes And mediaAudio) = mediaAudio Then
' hwAddress = address
' hwAddress.Open(mediaAudio)
' 'This will show the name of the audio devices discovered
' 'MsgBox(hwAddress.AddressName.ToString)
' End If
' End If
' Next
' 'If an hardware has not been found
' If hwAddress Is Nothing Then
' 'Hardware address not found
' End If
'End Sub
'Public Sub openLine()
' 'Put modem wake up to listem to the line
' Try
' If hwAddress.State = ADDRESS_STATE.AS_INSERVICE Then
' hwAddress.Open(mediaAudio)
' End If
' Catch ex As Exception
' 'Manage the exception
' End Try
'End Sub
'Public Sub closeLine()
' 'Put modem shut down
' Try
' If hwAddress.State = ADDRESS_STATE.AS_INSERVICE Then
' hwAddress.Close()
' End If
' Catch ex As Exception
' 'Manage the exception
' End Try
'End Sub
'Public Sub answerCall()
' If offeringCall = True Then
' incomingCall.Answer()
' End If
'End Sub
'Public Sub hungup()
' If connectedCall = True Then
' incomingCall.Disconnect(DISCONNECT_CODE.DC_REJECTED)
' End If
'End Sub
'Private Sub tapiCallNotification_Event(ByVal sender As Object,
' ByVal e As TapiCallNotificationEventArgs) Handles tapiCls.TE_CALLNOTIFICATION
' 'MsgBox("Call notification")
' Select Case e.Event
' Case CALL_NOTIFICATION_EVENT.CNE_MONITOR
' 'Choose you action
' Case CALL_NOTIFICATION_EVENT.CNE_OWNER
' 'Choose you action
' End Select
'End Sub
'Private Sub tapiInfoChange_Event(ByVal sender As Object,
' ByVal e As TapiCallInfoChangeEventArgs) Handles tapiCls.TE_CALLINFOCHANGE
' Dim callerNumber As String = ""
' Try
' callerNumber = e.Call.CallInfo(CALLINFO_STRING.CIS_CALLERIDNUMBER).ToString
' If callerNumber.Length = 0 Then
' 'Hidden number
' Else
' 'Clear number
' End If
' Catch ex As Exception
' 'Manage the exception
' End Try
'End Sub
'Private Sub tapiGeneral_Event(ByVal sender As Object,
' ByVal e As TapiCallStateEventArgs) Handles tapiCls.TE_CALLSTATE
' ' MsgBox(e.State.ToString)
' Select Case e.State
' Case CALL_STATE.CS_UNKNOWN
' Case CALL_STATE.CS_OFFERING
' 'When a call is coming in during the ring tone
' offeringCall = True
' Case CALL_STATE.CS_CONNECTED
' 'When a call is answered
' connectedCall = True
' offeringCall = False
' Case CALL_STATE.CS_HOLD
' Case CALL_STATE.CS_IDLE
' Case CALL_STATE.CS_INPROGRESS
' Case CALL_STATE.CS_QUEUED
' Case CALL_STATE.CS_DISCONNECTED
' 'When a call is in conversation or closed
' connectedCall = False
' End Select
'End Sub
'Private Sub tapiGenerate_Event(ByVal sender As Object,
' ByVal e As TapiDigitGenerationEventArgs) Handles tapiCls.TE_GENERATEEVENT
' ' MsgBox("GENERATE")
'End Sub
'Private Sub tapiSpecific_Event(ByVal sender As Object,
' ByVal e As TapiAddressDeviceSpecificEventArgs) Handles tapiCls.TE_ADDRESSDEVSPECIFIC
' ' MsgBox("SPECIFIC EVENTS")
'End Sub
'Private Sub tapiObject_Event(ByVal sender As Object,
' ByVal e As TapiObjectEventArgs) Handles tapiCls.TE_TAPIOBJECT
' 'MsgBox("tapi object")
'End Sub
'Private Sub tapiPhone_Event(ByVal sender As Object,
' ByVal e As TapiPhoneEventArgs) Handles tapiCls.TE_PHONEEVENT
' 'MsgBox("Phone events")
'End Sub
'Private Sub tapiDigit_Event(ByVal sender As Object,
' ByVal e As TapiDigitDetectionEventArgs) Handles tapiCls.TE_DIGITEVENT
' 'MsgBox("Digit detection events")
'End Sub
'Inherits UserControl 'Inherits UserControl
'Public Sub New() 'Public Sub New()
' InitializeComponent() ' InitializeComponent()
@@ -3259,6 +3442,7 @@ Public Class usrctlProcedures
VERAG_PROG_ALLGEMEIN.cGoogleAPI.test() VERAG_PROG_ALLGEMEIN.cGoogleAPI.test()
End Sub End Sub
'Private Sub Button26_Click(sender As Object, e As EventArgs) 'Private Sub Button26_Click(sender As Object, e As EventArgs)
' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019") ' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
' Dim fi As New FileInfo(d) ' Dim fi As New FileInfo(d)

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

@@ -71,7 +71,16 @@ Namespace My.Resources
End Property End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.3.9 ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property sdf2sdf21sdfds() As String
Get
Return ResourceManager.GetString("sdf2sdf21sdfds", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.4.2 ähnelt.
'''</summary> '''</summary>
Friend ReadOnly Property version() As String Friend ReadOnly Property version() As String
Get Get

5
VERAGMonitoring/My Project/Resources.resx
View File

@@ -118,10 +118,13 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<data name="version" xml:space="preserve"> <data name="version" xml:space="preserve">
<value>1.3.9</value> <value>1.4.2</value>
</data> </data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <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"> <data name="refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="sdf2sdf21sdfds" xml:space="preserve">
<value />
</data>
</root> </root>

2
VERAGMonitoring/VERAGMonitoring.vbproj
View File

@@ -15,7 +15,7 @@
<TargetFrameworkProfile /> <TargetFrameworkProfile />
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget> <PlatformTarget>x64</PlatformTarget>
<DebugSymbols>true</DebugSymbols> <DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType> <DebugType>full</DebugType>
<DefineDebug>true</DefineDebug> <DefineDebug>true</DefineDebug>

6
VERAGMonitoring/cClasses.vb
View File

@@ -61,6 +61,12 @@ Public Class cMonitoringBrg
Property brgusrset_gvvAt_ATILLA_tag_warn2 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_warn1 As Double = 0.0
Property brgusrset_gvvAt_ATILLA_woche_warn2 As Double = 0.0 Property brgusrset_gvvAt_ATILLA_woche_warn2 As Double = 0.0
Property brgusrset_gvvAt_VERAG_CS_de_summe As Double = 0.0
Property brgusrset_gvvAt_VERAG_CS_tag_warn1 As Double = 0.0
Property brgusrset_gvvAt_VERAG_CS_tag_warn2 As Double = 0.0
Property brgusrset_gvvAt_VERAG_CS_woche_warn1 As Double = 0.0
Property brgusrset_gvvAt_VERAG_CS_woche_warn2 As Double = 0.0
End Class End Class

3
VERAGMonitoring/cSqlDb.vb
View File

@@ -665,7 +665,7 @@ Public Class cBrgDb
from tblTelotec_Sicherheit inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId from tblTelotec_Sicherheit inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId
where [tblTelotec_Anmeldung].[dec_CreateDate] BETWEEN '" & datumVon.ToShortDateString & " 00:00:00' AND '" & datumBis.ToShortDateString & " 23:23:59' AND telanm_Status BETWEEN '" & statusVon & "' AND '" & statusBis & "' AND GRN = '" & buergschaft & "' AND [telnam_aktuellsteNachricht]=1 " where [tblTelotec_Anmeldung].[dec_CreateDate] BETWEEN '" & datumVon.ToShortDateString & " 00:00:00' AND '" & datumBis.ToShortDateString & " 23:23:59' AND telanm_Status BETWEEN '" & statusVon & "' AND '" & statusBis & "' AND GRN = '" & buergschaft & "' AND [telnam_aktuellsteNachricht]=1 "
'MsgBox(sql) ' MsgBox(sql)
Dim dr As SqlDataReader Dim dr As SqlDataReader
Dim daten As New List(Of cBuergschaft) Dim daten As New List(Of cBuergschaft)
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL() Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
@@ -1042,6 +1042,7 @@ Public Class cBrgDb
" FROM tblZolaris_EZoll_NCTS WHERE ( AnmeldungsDatum BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND GRN = '" & buergschaft & "' " & where " FROM tblZolaris_EZoll_NCTS WHERE ( AnmeldungsDatum BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND GRN = '" & buergschaft & "' " & where
' Dim daten As New List(Of cEntry) ' Dim daten As New List(Of cEntry)
Dim dr As SqlDataReader Dim dr As SqlDataReader
Dim daten As New List(Of cBuergschaft) Dim daten As New List(Of cBuergschaft)
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL() Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand(sql, conn) Using cmd As New SqlCommand(sql, conn)

310
VERAGMonitoring/frmMain.Designer.vb generated
View File

@@ -25,6 +25,12 @@ Partial Class frmMain
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel()
Me.cbxBrg_at_VERAG_CS = New System.Windows.Forms.CheckBox()
Me.lblBrg_at_VERAG_CS = New System.Windows.Forms.Label()
Me.lblAtWocheVERAG_CS = New System.Windows.Forms.Label()
Me.lblAtTagVERAG_CS = New System.Windows.Forms.Label()
Me.lblAt_woche_StatusVERAG_CS = New System.Windows.Forms.Label()
Me.lblAt_tag_StatusVERAG_CS = New System.Windows.Forms.Label()
Me.Button3 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button()
Me.lblAufschubBrgEUST_de_UNISPEDDE_oE = New System.Windows.Forms.Label() Me.lblAufschubBrgEUST_de_UNISPEDDE_oE = New System.Windows.Forms.Label()
Me.cbxAufschubEUST_de_UnispedDE = New System.Windows.Forms.CheckBox() Me.cbxAufschubEUST_de_UnispedDE = New System.Windows.Forms.CheckBox()
@@ -165,6 +171,12 @@ Partial Class frmMain
'Panel2 'Panel2
' '
Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel2.Controls.Add(Me.cbxBrg_at_VERAG_CS)
Me.Panel2.Controls.Add(Me.lblBrg_at_VERAG_CS)
Me.Panel2.Controls.Add(Me.lblAtWocheVERAG_CS)
Me.Panel2.Controls.Add(Me.lblAtTagVERAG_CS)
Me.Panel2.Controls.Add(Me.lblAt_woche_StatusVERAG_CS)
Me.Panel2.Controls.Add(Me.lblAt_tag_StatusVERAG_CS)
Me.Panel2.Controls.Add(Me.Button3) Me.Panel2.Controls.Add(Me.Button3)
Me.Panel2.Controls.Add(Me.lblAufschubBrgEUST_de_UNISPEDDE_oE) Me.Panel2.Controls.Add(Me.lblAufschubBrgEUST_de_UNISPEDDE_oE)
Me.Panel2.Controls.Add(Me.cbxAufschubEUST_de_UnispedDE) Me.Panel2.Controls.Add(Me.cbxAufschubEUST_de_UnispedDE)
@@ -284,9 +296,83 @@ Partial Class frmMain
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 0) Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2" Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(671, 608) Me.Panel2.Size = New System.Drawing.Size(671, 627)
Me.Panel2.TabIndex = 8 Me.Panel2.TabIndex = 8
' '
'cbxBrg_at_VERAG_CS
'
Me.cbxBrg_at_VERAG_CS.AutoSize = True
Me.cbxBrg_at_VERAG_CS.Enabled = False
Me.cbxBrg_at_VERAG_CS.Location = New System.Drawing.Point(9, 232)
Me.cbxBrg_at_VERAG_CS.Name = "cbxBrg_at_VERAG_CS"
Me.cbxBrg_at_VERAG_CS.Size = New System.Drawing.Size(15, 14)
Me.cbxBrg_at_VERAG_CS.TabIndex = 93
Me.cbxBrg_at_VERAG_CS.UseVisualStyleBackColor = True
'
'lblBrg_at_VERAG_CS
'
Me.lblBrg_at_VERAG_CS.AutoSize = True
Me.lblBrg_at_VERAG_CS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblBrg_at_VERAG_CS.Location = New System.Drawing.Point(24, 233)
Me.lblBrg_at_VERAG_CS.Name = "lblBrg_at_VERAG_CS"
Me.lblBrg_at_VERAG_CS.Size = New System.Drawing.Size(290, 13)
Me.lblBrg_at_VERAG_CS.TabIndex = 88
Me.lblBrg_at_VERAG_CS.Text = "AT - gVV - HZA Linz/Wels VERAG Customs Service GmbH"
'
'lblAtWocheVERAG_CS
'
Me.lblAtWocheVERAG_CS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAtWocheVERAG_CS.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAtWocheVERAG_CS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAtWocheVERAG_CS.Location = New System.Drawing.Point(534, 232)
Me.lblAtWocheVERAG_CS.Name = "lblAtWocheVERAG_CS"
Me.lblAtWocheVERAG_CS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtWocheVERAG_CS.Size = New System.Drawing.Size(90, 13)
Me.lblAtWocheVERAG_CS.TabIndex = 89
Me.lblAtWocheVERAG_CS.Text = " 0 €"
'
'lblAtTagVERAG_CS
'
Me.lblAtTagVERAG_CS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAtTagVERAG_CS.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAtTagVERAG_CS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAtTagVERAG_CS.Location = New System.Drawing.Point(385, 233)
Me.lblAtTagVERAG_CS.Name = "lblAtTagVERAG_CS"
Me.lblAtTagVERAG_CS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtTagVERAG_CS.Size = New System.Drawing.Size(90, 13)
Me.lblAtTagVERAG_CS.TabIndex = 90
Me.lblAtTagVERAG_CS.Text = " 0 €"
'
'lblAt_woche_StatusVERAG_CS
'
Me.lblAt_woche_StatusVERAG_CS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAt_woche_StatusVERAG_CS.AutoSize = True
Me.lblAt_woche_StatusVERAG_CS.BackColor = System.Drawing.Color.Green
Me.lblAt_woche_StatusVERAG_CS.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAt_woche_StatusVERAG_CS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAt_woche_StatusVERAG_CS.ForeColor = System.Drawing.Color.White
Me.lblAt_woche_StatusVERAG_CS.Location = New System.Drawing.Point(630, 232)
Me.lblAt_woche_StatusVERAG_CS.Name = "lblAt_woche_StatusVERAG_CS"
Me.lblAt_woche_StatusVERAG_CS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAt_woche_StatusVERAG_CS.Size = New System.Drawing.Size(22, 13)
Me.lblAt_woche_StatusVERAG_CS.TabIndex = 91
Me.lblAt_woche_StatusVERAG_CS.Text = "OK"
'
'lblAt_tag_StatusVERAG_CS
'
Me.lblAt_tag_StatusVERAG_CS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAt_tag_StatusVERAG_CS.AutoSize = True
Me.lblAt_tag_StatusVERAG_CS.BackColor = System.Drawing.Color.Green
Me.lblAt_tag_StatusVERAG_CS.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAt_tag_StatusVERAG_CS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAt_tag_StatusVERAG_CS.ForeColor = System.Drawing.Color.White
Me.lblAt_tag_StatusVERAG_CS.Location = New System.Drawing.Point(483, 233)
Me.lblAt_tag_StatusVERAG_CS.Name = "lblAt_tag_StatusVERAG_CS"
Me.lblAt_tag_StatusVERAG_CS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAt_tag_StatusVERAG_CS.Size = New System.Drawing.Size(22, 13)
Me.lblAt_tag_StatusVERAG_CS.TabIndex = 92
Me.lblAt_tag_StatusVERAG_CS.Text = "OK"
'
'Button3 'Button3
' '
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -296,7 +382,7 @@ Partial Class frmMain
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button3.ForeColor = System.Drawing.Color.White Me.Button3.ForeColor = System.Drawing.Color.White
Me.Button3.Location = New System.Drawing.Point(501, 574) Me.Button3.Location = New System.Drawing.Point(501, 594)
Me.Button3.Name = "Button3" Me.Button3.Name = "Button3"
Me.Button3.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.Button3.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.Button3.Size = New System.Drawing.Size(45, 24) Me.Button3.Size = New System.Drawing.Size(45, 24)
@@ -309,7 +395,7 @@ Partial Class frmMain
Me.lblAufschubBrgEUST_de_UNISPEDDE_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrgEUST_de_UNISPEDDE_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrgEUST_de_UNISPEDDE_oE.Cursor = System.Windows.Forms.Cursors.Default Me.lblAufschubBrgEUST_de_UNISPEDDE_oE.Cursor = System.Windows.Forms.Cursors.Default
Me.lblAufschubBrgEUST_de_UNISPEDDE_oE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubBrgEUST_de_UNISPEDDE_oE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrgEUST_de_UNISPEDDE_oE.Location = New System.Drawing.Point(413, 436) Me.lblAufschubBrgEUST_de_UNISPEDDE_oE.Location = New System.Drawing.Point(413, 456)
Me.lblAufschubBrgEUST_de_UNISPEDDE_oE.Name = "lblAufschubBrgEUST_de_UNISPEDDE_oE" Me.lblAufschubBrgEUST_de_UNISPEDDE_oE.Name = "lblAufschubBrgEUST_de_UNISPEDDE_oE"
Me.lblAufschubBrgEUST_de_UNISPEDDE_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrgEUST_de_UNISPEDDE_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrgEUST_de_UNISPEDDE_oE.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrgEUST_de_UNISPEDDE_oE.Size = New System.Drawing.Size(90, 13)
@@ -320,7 +406,7 @@ Partial Class frmMain
' '
Me.cbxAufschubEUST_de_UnispedDE.AutoSize = True Me.cbxAufschubEUST_de_UnispedDE.AutoSize = True
Me.cbxAufschubEUST_de_UnispedDE.Enabled = False Me.cbxAufschubEUST_de_UnispedDE.Enabled = False
Me.cbxAufschubEUST_de_UnispedDE.Location = New System.Drawing.Point(9, 437) Me.cbxAufschubEUST_de_UnispedDE.Location = New System.Drawing.Point(9, 457)
Me.cbxAufschubEUST_de_UnispedDE.Name = "cbxAufschubEUST_de_UnispedDE" Me.cbxAufschubEUST_de_UnispedDE.Name = "cbxAufschubEUST_de_UnispedDE"
Me.cbxAufschubEUST_de_UnispedDE.Size = New System.Drawing.Size(15, 14) Me.cbxAufschubEUST_de_UnispedDE.Size = New System.Drawing.Size(15, 14)
Me.cbxAufschubEUST_de_UnispedDE.TabIndex = 86 Me.cbxAufschubEUST_de_UnispedDE.TabIndex = 86
@@ -330,7 +416,7 @@ Partial Class frmMain
' '
Me.lblAufschubEUST_de_UNISPEDDE.AutoSize = True Me.lblAufschubEUST_de_UNISPEDDE.AutoSize = True
Me.lblAufschubEUST_de_UNISPEDDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubEUST_de_UNISPEDDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubEUST_de_UNISPEDDE.Location = New System.Drawing.Point(26, 437) Me.lblAufschubEUST_de_UNISPEDDE.Location = New System.Drawing.Point(26, 457)
Me.lblAufschubEUST_de_UNISPEDDE.Name = "lblAufschubEUST_de_UNISPEDDE" Me.lblAufschubEUST_de_UNISPEDDE.Name = "lblAufschubEUST_de_UNISPEDDE"
Me.lblAufschubEUST_de_UNISPEDDE.Size = New System.Drawing.Size(266, 13) Me.lblAufschubEUST_de_UNISPEDDE.Size = New System.Drawing.Size(266, 13)
Me.lblAufschubEUST_de_UNISPEDDE.TabIndex = 83 Me.lblAufschubEUST_de_UNISPEDDE.TabIndex = 83
@@ -341,7 +427,7 @@ Partial Class frmMain
Me.lblAufschubBrgEUST_de_UNISPEDDE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrgEUST_de_UNISPEDDE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrgEUST_de_UNISPEDDE.Cursor = System.Windows.Forms.Cursors.Hand Me.lblAufschubBrgEUST_de_UNISPEDDE.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrgEUST_de_UNISPEDDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubBrgEUST_de_UNISPEDDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrgEUST_de_UNISPEDDE.Location = New System.Drawing.Point(534, 436) Me.lblAufschubBrgEUST_de_UNISPEDDE.Location = New System.Drawing.Point(534, 456)
Me.lblAufschubBrgEUST_de_UNISPEDDE.Name = "lblAufschubBrgEUST_de_UNISPEDDE" Me.lblAufschubBrgEUST_de_UNISPEDDE.Name = "lblAufschubBrgEUST_de_UNISPEDDE"
Me.lblAufschubBrgEUST_de_UNISPEDDE.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrgEUST_de_UNISPEDDE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrgEUST_de_UNISPEDDE.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrgEUST_de_UNISPEDDE.Size = New System.Drawing.Size(90, 13)
@@ -356,7 +442,7 @@ Partial Class frmMain
Me.lblAufschubStatusEUST_de_UNISPEDDE.Cursor = System.Windows.Forms.Cursors.Help Me.lblAufschubStatusEUST_de_UNISPEDDE.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAufschubStatusEUST_de_UNISPEDDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubStatusEUST_de_UNISPEDDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubStatusEUST_de_UNISPEDDE.ForeColor = System.Drawing.Color.White Me.lblAufschubStatusEUST_de_UNISPEDDE.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatusEUST_de_UNISPEDDE.Location = New System.Drawing.Point(630, 436) Me.lblAufschubStatusEUST_de_UNISPEDDE.Location = New System.Drawing.Point(630, 456)
Me.lblAufschubStatusEUST_de_UNISPEDDE.Name = "lblAufschubStatusEUST_de_UNISPEDDE" Me.lblAufschubStatusEUST_de_UNISPEDDE.Name = "lblAufschubStatusEUST_de_UNISPEDDE"
Me.lblAufschubStatusEUST_de_UNISPEDDE.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubStatusEUST_de_UNISPEDDE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatusEUST_de_UNISPEDDE.Size = New System.Drawing.Size(22, 13) Me.lblAufschubStatusEUST_de_UNISPEDDE.Size = New System.Drawing.Size(22, 13)
@@ -368,7 +454,7 @@ Partial Class frmMain
Me.lblAufschubBrg_de_UNISPEDDE_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrg_de_UNISPEDDE_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrg_de_UNISPEDDE_oE.Cursor = System.Windows.Forms.Cursors.Default Me.lblAufschubBrg_de_UNISPEDDE_oE.Cursor = System.Windows.Forms.Cursors.Default
Me.lblAufschubBrg_de_UNISPEDDE_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_UNISPEDDE_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_UNISPEDDE_oE.Location = New System.Drawing.Point(413, 418) Me.lblAufschubBrg_de_UNISPEDDE_oE.Location = New System.Drawing.Point(413, 438)
Me.lblAufschubBrg_de_UNISPEDDE_oE.Name = "lblAufschubBrg_de_UNISPEDDE_oE" Me.lblAufschubBrg_de_UNISPEDDE_oE.Name = "lblAufschubBrg_de_UNISPEDDE_oE"
Me.lblAufschubBrg_de_UNISPEDDE_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrg_de_UNISPEDDE_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_de_UNISPEDDE_oE.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrg_de_UNISPEDDE_oE.Size = New System.Drawing.Size(90, 13)
@@ -379,7 +465,7 @@ Partial Class frmMain
' '
Me.cbxAufschub_de_UnispedDE.AutoSize = True Me.cbxAufschub_de_UnispedDE.AutoSize = True
Me.cbxAufschub_de_UnispedDE.Enabled = False Me.cbxAufschub_de_UnispedDE.Enabled = False
Me.cbxAufschub_de_UnispedDE.Location = New System.Drawing.Point(9, 419) Me.cbxAufschub_de_UnispedDE.Location = New System.Drawing.Point(9, 439)
Me.cbxAufschub_de_UnispedDE.Name = "cbxAufschub_de_UnispedDE" Me.cbxAufschub_de_UnispedDE.Name = "cbxAufschub_de_UnispedDE"
Me.cbxAufschub_de_UnispedDE.Size = New System.Drawing.Size(15, 14) Me.cbxAufschub_de_UnispedDE.Size = New System.Drawing.Size(15, 14)
Me.cbxAufschub_de_UnispedDE.TabIndex = 81 Me.cbxAufschub_de_UnispedDE.TabIndex = 81
@@ -389,7 +475,7 @@ Partial Class frmMain
' '
Me.lblAufschub_de_UNISPEDDE.AutoSize = True Me.lblAufschub_de_UNISPEDDE.AutoSize = True
Me.lblAufschub_de_UNISPEDDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschub_de_UNISPEDDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschub_de_UNISPEDDE.Location = New System.Drawing.Point(26, 419) Me.lblAufschub_de_UNISPEDDE.Location = New System.Drawing.Point(26, 439)
Me.lblAufschub_de_UNISPEDDE.Name = "lblAufschub_de_UNISPEDDE" Me.lblAufschub_de_UNISPEDDE.Name = "lblAufschub_de_UNISPEDDE"
Me.lblAufschub_de_UNISPEDDE.Size = New System.Drawing.Size(264, 13) Me.lblAufschub_de_UNISPEDDE.Size = New System.Drawing.Size(264, 13)
Me.lblAufschub_de_UNISPEDDE.TabIndex = 78 Me.lblAufschub_de_UNISPEDDE.TabIndex = 78
@@ -400,7 +486,7 @@ Partial Class frmMain
Me.lblAufschubBrg_de_UNISPEDDE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrg_de_UNISPEDDE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrg_de_UNISPEDDE.Cursor = System.Windows.Forms.Cursors.Hand Me.lblAufschubBrg_de_UNISPEDDE.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrg_de_UNISPEDDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubBrg_de_UNISPEDDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_de_UNISPEDDE.Location = New System.Drawing.Point(534, 418) Me.lblAufschubBrg_de_UNISPEDDE.Location = New System.Drawing.Point(534, 438)
Me.lblAufschubBrg_de_UNISPEDDE.Name = "lblAufschubBrg_de_UNISPEDDE" Me.lblAufschubBrg_de_UNISPEDDE.Name = "lblAufschubBrg_de_UNISPEDDE"
Me.lblAufschubBrg_de_UNISPEDDE.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrg_de_UNISPEDDE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_de_UNISPEDDE.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrg_de_UNISPEDDE.Size = New System.Drawing.Size(90, 13)
@@ -415,7 +501,7 @@ Partial Class frmMain
Me.lblAufschubStatus_de_UNISPEDDE.Cursor = System.Windows.Forms.Cursors.Help Me.lblAufschubStatus_de_UNISPEDDE.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAufschubStatus_de_UNISPEDDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubStatus_de_UNISPEDDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubStatus_de_UNISPEDDE.ForeColor = System.Drawing.Color.White Me.lblAufschubStatus_de_UNISPEDDE.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_de_UNISPEDDE.Location = New System.Drawing.Point(630, 418) Me.lblAufschubStatus_de_UNISPEDDE.Location = New System.Drawing.Point(630, 438)
Me.lblAufschubStatus_de_UNISPEDDE.Name = "lblAufschubStatus_de_UNISPEDDE" Me.lblAufschubStatus_de_UNISPEDDE.Name = "lblAufschubStatus_de_UNISPEDDE"
Me.lblAufschubStatus_de_UNISPEDDE.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubStatus_de_UNISPEDDE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_de_UNISPEDDE.Size = New System.Drawing.Size(22, 13) Me.lblAufschubStatus_de_UNISPEDDE.Size = New System.Drawing.Size(22, 13)
@@ -427,7 +513,7 @@ Partial Class frmMain
Me.lblAufschubBrgEUST_de_global_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrgEUST_de_global_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrgEUST_de_global_oE.Cursor = System.Windows.Forms.Cursors.Default Me.lblAufschubBrgEUST_de_global_oE.Cursor = System.Windows.Forms.Cursors.Default
Me.lblAufschubBrgEUST_de_global_oE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubBrgEUST_de_global_oE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrgEUST_de_global_oE.Location = New System.Drawing.Point(413, 350) Me.lblAufschubBrgEUST_de_global_oE.Location = New System.Drawing.Point(413, 370)
Me.lblAufschubBrgEUST_de_global_oE.Name = "lblAufschubBrgEUST_de_global_oE" Me.lblAufschubBrgEUST_de_global_oE.Name = "lblAufschubBrgEUST_de_global_oE"
Me.lblAufschubBrgEUST_de_global_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrgEUST_de_global_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrgEUST_de_global_oE.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrgEUST_de_global_oE.Size = New System.Drawing.Size(90, 13)
@@ -438,7 +524,7 @@ Partial Class frmMain
' '
Me.cbxAufschubEUST_de_Global.AutoSize = True Me.cbxAufschubEUST_de_Global.AutoSize = True
Me.cbxAufschubEUST_de_Global.Enabled = False Me.cbxAufschubEUST_de_Global.Enabled = False
Me.cbxAufschubEUST_de_Global.Location = New System.Drawing.Point(9, 351) Me.cbxAufschubEUST_de_Global.Location = New System.Drawing.Point(9, 371)
Me.cbxAufschubEUST_de_Global.Name = "cbxAufschubEUST_de_Global" Me.cbxAufschubEUST_de_Global.Name = "cbxAufschubEUST_de_Global"
Me.cbxAufschubEUST_de_Global.Size = New System.Drawing.Size(15, 14) Me.cbxAufschubEUST_de_Global.Size = New System.Drawing.Size(15, 14)
Me.cbxAufschubEUST_de_Global.TabIndex = 76 Me.cbxAufschubEUST_de_Global.TabIndex = 76
@@ -448,7 +534,7 @@ Partial Class frmMain
' '
Me.lblAufschubEUST_de_Global.AutoSize = True Me.lblAufschubEUST_de_Global.AutoSize = True
Me.lblAufschubEUST_de_Global.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubEUST_de_Global.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubEUST_de_Global.Location = New System.Drawing.Point(26, 351) Me.lblAufschubEUST_de_Global.Location = New System.Drawing.Point(26, 371)
Me.lblAufschubEUST_de_Global.Name = "lblAufschubEUST_de_Global" Me.lblAufschubEUST_de_Global.Name = "lblAufschubEUST_de_Global"
Me.lblAufschubEUST_de_Global.Size = New System.Drawing.Size(197, 13) Me.lblAufschubEUST_de_Global.Size = New System.Drawing.Size(197, 13)
Me.lblAufschubEUST_de_Global.TabIndex = 73 Me.lblAufschubEUST_de_Global.TabIndex = 73
@@ -459,7 +545,7 @@ Partial Class frmMain
Me.lblAufschubBrgEUST_de_global.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrgEUST_de_global.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrgEUST_de_global.Cursor = System.Windows.Forms.Cursors.Hand Me.lblAufschubBrgEUST_de_global.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrgEUST_de_global.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubBrgEUST_de_global.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrgEUST_de_global.Location = New System.Drawing.Point(534, 350) Me.lblAufschubBrgEUST_de_global.Location = New System.Drawing.Point(534, 370)
Me.lblAufschubBrgEUST_de_global.Name = "lblAufschubBrgEUST_de_global" Me.lblAufschubBrgEUST_de_global.Name = "lblAufschubBrgEUST_de_global"
Me.lblAufschubBrgEUST_de_global.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrgEUST_de_global.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrgEUST_de_global.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrgEUST_de_global.Size = New System.Drawing.Size(90, 13)
@@ -474,7 +560,7 @@ Partial Class frmMain
Me.lblAufschubStatusEUST_de_global.Cursor = System.Windows.Forms.Cursors.Help Me.lblAufschubStatusEUST_de_global.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAufschubStatusEUST_de_global.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubStatusEUST_de_global.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubStatusEUST_de_global.ForeColor = System.Drawing.Color.White Me.lblAufschubStatusEUST_de_global.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatusEUST_de_global.Location = New System.Drawing.Point(630, 350) Me.lblAufschubStatusEUST_de_global.Location = New System.Drawing.Point(630, 370)
Me.lblAufschubStatusEUST_de_global.Name = "lblAufschubStatusEUST_de_global" Me.lblAufschubStatusEUST_de_global.Name = "lblAufschubStatusEUST_de_global"
Me.lblAufschubStatusEUST_de_global.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubStatusEUST_de_global.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatusEUST_de_global.Size = New System.Drawing.Size(22, 13) Me.lblAufschubStatusEUST_de_global.Size = New System.Drawing.Size(22, 13)
@@ -485,7 +571,7 @@ Partial Class frmMain
' '
Me.cbxAufschub_at_IMEX.AutoSize = True Me.cbxAufschub_at_IMEX.AutoSize = True
Me.cbxAufschub_at_IMEX.Enabled = False Me.cbxAufschub_at_IMEX.Enabled = False
Me.cbxAufschub_at_IMEX.Location = New System.Drawing.Point(9, 546) Me.cbxAufschub_at_IMEX.Location = New System.Drawing.Point(9, 566)
Me.cbxAufschub_at_IMEX.Name = "cbxAufschub_at_IMEX" Me.cbxAufschub_at_IMEX.Name = "cbxAufschub_at_IMEX"
Me.cbxAufschub_at_IMEX.Size = New System.Drawing.Size(15, 14) Me.cbxAufschub_at_IMEX.Size = New System.Drawing.Size(15, 14)
Me.cbxAufschub_at_IMEX.TabIndex = 72 Me.cbxAufschub_at_IMEX.TabIndex = 72
@@ -499,7 +585,7 @@ Partial Class frmMain
Me.lblAufschubStatus_at_IMEX.Cursor = System.Windows.Forms.Cursors.Help Me.lblAufschubStatus_at_IMEX.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAufschubStatus_at_IMEX.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubStatus_at_IMEX.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubStatus_at_IMEX.ForeColor = System.Drawing.Color.White Me.lblAufschubStatus_at_IMEX.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_at_IMEX.Location = New System.Drawing.Point(630, 545) Me.lblAufschubStatus_at_IMEX.Location = New System.Drawing.Point(630, 565)
Me.lblAufschubStatus_at_IMEX.Name = "lblAufschubStatus_at_IMEX" Me.lblAufschubStatus_at_IMEX.Name = "lblAufschubStatus_at_IMEX"
Me.lblAufschubStatus_at_IMEX.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubStatus_at_IMEX.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_at_IMEX.Size = New System.Drawing.Size(22, 13) Me.lblAufschubStatus_at_IMEX.Size = New System.Drawing.Size(22, 13)
@@ -511,7 +597,7 @@ Partial Class frmMain
Me.lblAufschubBrg_at_IMEX.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrg_at_IMEX.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrg_at_IMEX.Cursor = System.Windows.Forms.Cursors.Hand Me.lblAufschubBrg_at_IMEX.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrg_at_IMEX.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubBrg_at_IMEX.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_at_IMEX.Location = New System.Drawing.Point(534, 545) Me.lblAufschubBrg_at_IMEX.Location = New System.Drawing.Point(534, 565)
Me.lblAufschubBrg_at_IMEX.Name = "lblAufschubBrg_at_IMEX" Me.lblAufschubBrg_at_IMEX.Name = "lblAufschubBrg_at_IMEX"
Me.lblAufschubBrg_at_IMEX.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrg_at_IMEX.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_IMEX.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrg_at_IMEX.Size = New System.Drawing.Size(90, 13)
@@ -522,7 +608,7 @@ Partial Class frmMain
' '
Me.lblAufschub_at_IMEX.AutoSize = True Me.lblAufschub_at_IMEX.AutoSize = True
Me.lblAufschub_at_IMEX.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschub_at_IMEX.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschub_at_IMEX.Location = New System.Drawing.Point(26, 546) Me.lblAufschub_at_IMEX.Location = New System.Drawing.Point(26, 566)
Me.lblAufschub_at_IMEX.Name = "lblAufschub_at_IMEX" Me.lblAufschub_at_IMEX.Name = "lblAufschub_at_IMEX"
Me.lblAufschub_at_IMEX.Size = New System.Drawing.Size(250, 13) Me.lblAufschub_at_IMEX.Size = New System.Drawing.Size(250, 13)
Me.lblAufschub_at_IMEX.TabIndex = 71 Me.lblAufschub_at_IMEX.TabIndex = 71
@@ -532,7 +618,7 @@ Partial Class frmMain
' '
Me.cbxBrg_at_UNISPED.AutoSize = True Me.cbxBrg_at_UNISPED.AutoSize = True
Me.cbxBrg_at_UNISPED.Enabled = False Me.cbxBrg_at_UNISPED.Enabled = False
Me.cbxBrg_at_UNISPED.Location = New System.Drawing.Point(9, 210) Me.cbxBrg_at_UNISPED.Location = New System.Drawing.Point(9, 142)
Me.cbxBrg_at_UNISPED.Name = "cbxBrg_at_UNISPED" Me.cbxBrg_at_UNISPED.Name = "cbxBrg_at_UNISPED"
Me.cbxBrg_at_UNISPED.Size = New System.Drawing.Size(15, 14) Me.cbxBrg_at_UNISPED.Size = New System.Drawing.Size(15, 14)
Me.cbxBrg_at_UNISPED.TabIndex = 67 Me.cbxBrg_at_UNISPED.TabIndex = 67
@@ -542,18 +628,18 @@ Partial Class frmMain
' '
Me.Label33lblBrg_at_UNISPED.AutoSize = True Me.Label33lblBrg_at_UNISPED.AutoSize = True
Me.Label33lblBrg_at_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label33lblBrg_at_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label33lblBrg_at_UNISPED.Location = New System.Drawing.Point(24, 211) Me.Label33lblBrg_at_UNISPED.Location = New System.Drawing.Point(24, 144)
Me.Label33lblBrg_at_UNISPED.Name = "Label33lblBrg_at_UNISPED" Me.Label33lblBrg_at_UNISPED.Name = "Label33lblBrg_at_UNISPED"
Me.Label33lblBrg_at_UNISPED.Size = New System.Drawing.Size(183, 13) Me.Label33lblBrg_at_UNISPED.Size = New System.Drawing.Size(181, 13)
Me.Label33lblBrg_at_UNISPED.TabIndex = 62 Me.Label33lblBrg_at_UNISPED.TabIndex = 62
Me.Label33lblBrg_at_UNISPED.Text = "AT - gVV - HZA Linz/Wels UNISPED" Me.Label33lblBrg_at_UNISPED.Text = "DE - gVV - HZA München UNISPED"
' '
'lblAtWocheUNISPED 'lblAtWocheUNISPED
' '
Me.lblAtWocheUNISPED.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAtWocheUNISPED.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAtWocheUNISPED.Cursor = System.Windows.Forms.Cursors.Hand Me.lblAtWocheUNISPED.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAtWocheUNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAtWocheUNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAtWocheUNISPED.Location = New System.Drawing.Point(534, 210) Me.lblAtWocheUNISPED.Location = New System.Drawing.Point(534, 143)
Me.lblAtWocheUNISPED.Name = "lblAtWocheUNISPED" Me.lblAtWocheUNISPED.Name = "lblAtWocheUNISPED"
Me.lblAtWocheUNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAtWocheUNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtWocheUNISPED.Size = New System.Drawing.Size(90, 13) Me.lblAtWocheUNISPED.Size = New System.Drawing.Size(90, 13)
@@ -565,7 +651,7 @@ Partial Class frmMain
Me.lblAtTagUNISPED.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAtTagUNISPED.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAtTagUNISPED.Cursor = System.Windows.Forms.Cursors.Hand Me.lblAtTagUNISPED.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAtTagUNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAtTagUNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAtTagUNISPED.Location = New System.Drawing.Point(385, 211) Me.lblAtTagUNISPED.Location = New System.Drawing.Point(385, 144)
Me.lblAtTagUNISPED.Name = "lblAtTagUNISPED" Me.lblAtTagUNISPED.Name = "lblAtTagUNISPED"
Me.lblAtTagUNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAtTagUNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtTagUNISPED.Size = New System.Drawing.Size(90, 13) Me.lblAtTagUNISPED.Size = New System.Drawing.Size(90, 13)
@@ -580,12 +666,13 @@ Partial Class frmMain
Me.lblAt_woche_StatusUNISPED.Cursor = System.Windows.Forms.Cursors.Help Me.lblAt_woche_StatusUNISPED.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAt_woche_StatusUNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAt_woche_StatusUNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAt_woche_StatusUNISPED.ForeColor = System.Drawing.Color.White Me.lblAt_woche_StatusUNISPED.ForeColor = System.Drawing.Color.White
Me.lblAt_woche_StatusUNISPED.Location = New System.Drawing.Point(630, 210) Me.lblAt_woche_StatusUNISPED.Location = New System.Drawing.Point(630, 143)
Me.lblAt_woche_StatusUNISPED.Name = "lblAt_woche_StatusUNISPED" Me.lblAt_woche_StatusUNISPED.Name = "lblAt_woche_StatusUNISPED"
Me.lblAt_woche_StatusUNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAt_woche_StatusUNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAt_woche_StatusUNISPED.Size = New System.Drawing.Size(22, 13) Me.lblAt_woche_StatusUNISPED.Size = New System.Drawing.Size(22, 13)
Me.lblAt_woche_StatusUNISPED.TabIndex = 65 Me.lblAt_woche_StatusUNISPED.TabIndex = 65
Me.lblAt_woche_StatusUNISPED.Text = "OK" Me.lblAt_woche_StatusUNISPED.Text = "OK"
Me.lblAt_woche_StatusUNISPED.Visible = False
' '
'lblAt_tag_StatusUNISPED 'lblAt_tag_StatusUNISPED
' '
@@ -595,19 +682,20 @@ Partial Class frmMain
Me.lblAt_tag_StatusUNISPED.Cursor = System.Windows.Forms.Cursors.Help Me.lblAt_tag_StatusUNISPED.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAt_tag_StatusUNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAt_tag_StatusUNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAt_tag_StatusUNISPED.ForeColor = System.Drawing.Color.White Me.lblAt_tag_StatusUNISPED.ForeColor = System.Drawing.Color.White
Me.lblAt_tag_StatusUNISPED.Location = New System.Drawing.Point(483, 211) Me.lblAt_tag_StatusUNISPED.Location = New System.Drawing.Point(483, 144)
Me.lblAt_tag_StatusUNISPED.Name = "lblAt_tag_StatusUNISPED" Me.lblAt_tag_StatusUNISPED.Name = "lblAt_tag_StatusUNISPED"
Me.lblAt_tag_StatusUNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAt_tag_StatusUNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAt_tag_StatusUNISPED.Size = New System.Drawing.Size(22, 13) Me.lblAt_tag_StatusUNISPED.Size = New System.Drawing.Size(22, 13)
Me.lblAt_tag_StatusUNISPED.TabIndex = 66 Me.lblAt_tag_StatusUNISPED.TabIndex = 66
Me.lblAt_tag_StatusUNISPED.Text = "OK" Me.lblAt_tag_StatusUNISPED.Text = "OK"
Me.lblAt_tag_StatusUNISPED.Visible = False
' '
'lblAufschubBrgEUST_de_UNISPED_oE 'lblAufschubBrgEUST_de_UNISPED_oE
' '
Me.lblAufschubBrgEUST_de_UNISPED_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrgEUST_de_UNISPED_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrgEUST_de_UNISPED_oE.Cursor = System.Windows.Forms.Cursors.Default Me.lblAufschubBrgEUST_de_UNISPED_oE.Cursor = System.Windows.Forms.Cursors.Default
Me.lblAufschubBrgEUST_de_UNISPED_oE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubBrgEUST_de_UNISPED_oE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrgEUST_de_UNISPED_oE.Location = New System.Drawing.Point(413, 398) Me.lblAufschubBrgEUST_de_UNISPED_oE.Location = New System.Drawing.Point(413, 418)
Me.lblAufschubBrgEUST_de_UNISPED_oE.Name = "lblAufschubBrgEUST_de_UNISPED_oE" Me.lblAufschubBrgEUST_de_UNISPED_oE.Name = "lblAufschubBrgEUST_de_UNISPED_oE"
Me.lblAufschubBrgEUST_de_UNISPED_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrgEUST_de_UNISPED_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrgEUST_de_UNISPED_oE.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrgEUST_de_UNISPED_oE.Size = New System.Drawing.Size(90, 13)
@@ -618,7 +706,7 @@ Partial Class frmMain
' '
Me.cbxAufschubEUST_de_Unisped.AutoSize = True Me.cbxAufschubEUST_de_Unisped.AutoSize = True
Me.cbxAufschubEUST_de_Unisped.Enabled = False Me.cbxAufschubEUST_de_Unisped.Enabled = False
Me.cbxAufschubEUST_de_Unisped.Location = New System.Drawing.Point(9, 399) Me.cbxAufschubEUST_de_Unisped.Location = New System.Drawing.Point(9, 419)
Me.cbxAufschubEUST_de_Unisped.Name = "cbxAufschubEUST_de_Unisped" Me.cbxAufschubEUST_de_Unisped.Name = "cbxAufschubEUST_de_Unisped"
Me.cbxAufschubEUST_de_Unisped.Size = New System.Drawing.Size(15, 14) Me.cbxAufschubEUST_de_Unisped.Size = New System.Drawing.Size(15, 14)
Me.cbxAufschubEUST_de_Unisped.TabIndex = 60 Me.cbxAufschubEUST_de_Unisped.TabIndex = 60
@@ -628,7 +716,7 @@ Partial Class frmMain
' '
Me.lblAufschubEUST_de_UNISPED.AutoSize = True Me.lblAufschubEUST_de_UNISPED.AutoSize = True
Me.lblAufschubEUST_de_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubEUST_de_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubEUST_de_UNISPED.Location = New System.Drawing.Point(26, 399) Me.lblAufschubEUST_de_UNISPED.Location = New System.Drawing.Point(26, 419)
Me.lblAufschubEUST_de_UNISPED.Name = "lblAufschubEUST_de_UNISPED" Me.lblAufschubEUST_de_UNISPED.Name = "lblAufschubEUST_de_UNISPED"
Me.lblAufschubEUST_de_UNISPED.Size = New System.Drawing.Size(203, 13) Me.lblAufschubEUST_de_UNISPED.Size = New System.Drawing.Size(203, 13)
Me.lblAufschubEUST_de_UNISPED.TabIndex = 56 Me.lblAufschubEUST_de_UNISPED.TabIndex = 56
@@ -639,7 +727,7 @@ Partial Class frmMain
Me.lblAufschubBrgEUST_de_UNISPED.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrgEUST_de_UNISPED.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrgEUST_de_UNISPED.Cursor = System.Windows.Forms.Cursors.Hand Me.lblAufschubBrgEUST_de_UNISPED.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrgEUST_de_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubBrgEUST_de_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrgEUST_de_UNISPED.Location = New System.Drawing.Point(534, 398) Me.lblAufschubBrgEUST_de_UNISPED.Location = New System.Drawing.Point(534, 418)
Me.lblAufschubBrgEUST_de_UNISPED.Name = "lblAufschubBrgEUST_de_UNISPED" Me.lblAufschubBrgEUST_de_UNISPED.Name = "lblAufschubBrgEUST_de_UNISPED"
Me.lblAufschubBrgEUST_de_UNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrgEUST_de_UNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrgEUST_de_UNISPED.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrgEUST_de_UNISPED.Size = New System.Drawing.Size(90, 13)
@@ -654,7 +742,7 @@ Partial Class frmMain
Me.lblAufschubStatusEUST_de_UNISPED.Cursor = System.Windows.Forms.Cursors.Help Me.lblAufschubStatusEUST_de_UNISPED.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAufschubStatusEUST_de_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubStatusEUST_de_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubStatusEUST_de_UNISPED.ForeColor = System.Drawing.Color.White Me.lblAufschubStatusEUST_de_UNISPED.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatusEUST_de_UNISPED.Location = New System.Drawing.Point(630, 398) Me.lblAufschubStatusEUST_de_UNISPED.Location = New System.Drawing.Point(630, 418)
Me.lblAufschubStatusEUST_de_UNISPED.Name = "lblAufschubStatusEUST_de_UNISPED" Me.lblAufschubStatusEUST_de_UNISPED.Name = "lblAufschubStatusEUST_de_UNISPED"
Me.lblAufschubStatusEUST_de_UNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubStatusEUST_de_UNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatusEUST_de_UNISPED.Size = New System.Drawing.Size(22, 13) Me.lblAufschubStatusEUST_de_UNISPED.Size = New System.Drawing.Size(22, 13)
@@ -666,7 +754,7 @@ Partial Class frmMain
Me.lblAufschubBrg_de_UNISPED_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrg_de_UNISPED_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrg_de_UNISPED_oE.Cursor = System.Windows.Forms.Cursors.Default Me.lblAufschubBrg_de_UNISPED_oE.Cursor = System.Windows.Forms.Cursors.Default
Me.lblAufschubBrg_de_UNISPED_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_UNISPED_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_UNISPED_oE.Location = New System.Drawing.Point(413, 380) Me.lblAufschubBrg_de_UNISPED_oE.Location = New System.Drawing.Point(413, 400)
Me.lblAufschubBrg_de_UNISPED_oE.Name = "lblAufschubBrg_de_UNISPED_oE" Me.lblAufschubBrg_de_UNISPED_oE.Name = "lblAufschubBrg_de_UNISPED_oE"
Me.lblAufschubBrg_de_UNISPED_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrg_de_UNISPED_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_de_UNISPED_oE.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrg_de_UNISPED_oE.Size = New System.Drawing.Size(90, 13)
@@ -677,7 +765,7 @@ Partial Class frmMain
' '
Me.cbxAufschub_de_Unisped.AutoSize = True Me.cbxAufschub_de_Unisped.AutoSize = True
Me.cbxAufschub_de_Unisped.Enabled = False Me.cbxAufschub_de_Unisped.Enabled = False
Me.cbxAufschub_de_Unisped.Location = New System.Drawing.Point(9, 381) Me.cbxAufschub_de_Unisped.Location = New System.Drawing.Point(9, 401)
Me.cbxAufschub_de_Unisped.Name = "cbxAufschub_de_Unisped" Me.cbxAufschub_de_Unisped.Name = "cbxAufschub_de_Unisped"
Me.cbxAufschub_de_Unisped.Size = New System.Drawing.Size(15, 14) Me.cbxAufschub_de_Unisped.Size = New System.Drawing.Size(15, 14)
Me.cbxAufschub_de_Unisped.TabIndex = 54 Me.cbxAufschub_de_Unisped.TabIndex = 54
@@ -687,7 +775,7 @@ Partial Class frmMain
' '
Me.lblAufschub_de_UNISPED.AutoSize = True Me.lblAufschub_de_UNISPED.AutoSize = True
Me.lblAufschub_de_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschub_de_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschub_de_UNISPED.Location = New System.Drawing.Point(26, 381) Me.lblAufschub_de_UNISPED.Location = New System.Drawing.Point(26, 401)
Me.lblAufschub_de_UNISPED.Name = "lblAufschub_de_UNISPED" Me.lblAufschub_de_UNISPED.Name = "lblAufschub_de_UNISPED"
Me.lblAufschub_de_UNISPED.Size = New System.Drawing.Size(201, 13) Me.lblAufschub_de_UNISPED.Size = New System.Drawing.Size(201, 13)
Me.lblAufschub_de_UNISPED.TabIndex = 50 Me.lblAufschub_de_UNISPED.TabIndex = 50
@@ -698,7 +786,7 @@ Partial Class frmMain
Me.lblAufschubBrg_de_UNISPED.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrg_de_UNISPED.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrg_de_UNISPED.Cursor = System.Windows.Forms.Cursors.Hand Me.lblAufschubBrg_de_UNISPED.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrg_de_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubBrg_de_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_de_UNISPED.Location = New System.Drawing.Point(534, 380) Me.lblAufschubBrg_de_UNISPED.Location = New System.Drawing.Point(534, 400)
Me.lblAufschubBrg_de_UNISPED.Name = "lblAufschubBrg_de_UNISPED" Me.lblAufschubBrg_de_UNISPED.Name = "lblAufschubBrg_de_UNISPED"
Me.lblAufschubBrg_de_UNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrg_de_UNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_de_UNISPED.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrg_de_UNISPED.Size = New System.Drawing.Size(90, 13)
@@ -713,7 +801,7 @@ Partial Class frmMain
Me.lblAufschubStatus_de_UNISPED.Cursor = System.Windows.Forms.Cursors.Help Me.lblAufschubStatus_de_UNISPED.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAufschubStatus_de_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubStatus_de_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubStatus_de_UNISPED.ForeColor = System.Drawing.Color.White Me.lblAufschubStatus_de_UNISPED.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_de_UNISPED.Location = New System.Drawing.Point(630, 380) Me.lblAufschubStatus_de_UNISPED.Location = New System.Drawing.Point(630, 400)
Me.lblAufschubStatus_de_UNISPED.Name = "lblAufschubStatus_de_UNISPED" Me.lblAufschubStatus_de_UNISPED.Name = "lblAufschubStatus_de_UNISPED"
Me.lblAufschubStatus_de_UNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubStatus_de_UNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_de_UNISPED.Size = New System.Drawing.Size(22, 13) Me.lblAufschubStatus_de_UNISPED.Size = New System.Drawing.Size(22, 13)
@@ -725,7 +813,7 @@ Partial Class frmMain
Me.lblAufschubBrgEUST_de_VeragAG_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrgEUST_de_VeragAG_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrgEUST_de_VeragAG_oE.Cursor = System.Windows.Forms.Cursors.Default Me.lblAufschubBrgEUST_de_VeragAG_oE.Cursor = System.Windows.Forms.Cursors.Default
Me.lblAufschubBrgEUST_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.lblAufschubBrgEUST_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.lblAufschubBrgEUST_de_VeragAG_oE.Location = New System.Drawing.Point(413, 286) Me.lblAufschubBrgEUST_de_VeragAG_oE.Location = New System.Drawing.Point(413, 306)
Me.lblAufschubBrgEUST_de_VeragAG_oE.Name = "lblAufschubBrgEUST_de_VeragAG_oE" Me.lblAufschubBrgEUST_de_VeragAG_oE.Name = "lblAufschubBrgEUST_de_VeragAG_oE"
Me.lblAufschubBrgEUST_de_VeragAG_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrgEUST_de_VeragAG_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrgEUST_de_VeragAG_oE.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrgEUST_de_VeragAG_oE.Size = New System.Drawing.Size(90, 13)
@@ -736,7 +824,7 @@ Partial Class frmMain
' '
Me.cbxAufschubEUST_de_VeragAG.AutoSize = True Me.cbxAufschubEUST_de_VeragAG.AutoSize = True
Me.cbxAufschubEUST_de_VeragAG.Enabled = False Me.cbxAufschubEUST_de_VeragAG.Enabled = False
Me.cbxAufschubEUST_de_VeragAG.Location = New System.Drawing.Point(9, 287) Me.cbxAufschubEUST_de_VeragAG.Location = New System.Drawing.Point(9, 307)
Me.cbxAufschubEUST_de_VeragAG.Name = "cbxAufschubEUST_de_VeragAG" Me.cbxAufschubEUST_de_VeragAG.Name = "cbxAufschubEUST_de_VeragAG"
Me.cbxAufschubEUST_de_VeragAG.Size = New System.Drawing.Size(15, 14) Me.cbxAufschubEUST_de_VeragAG.Size = New System.Drawing.Size(15, 14)
Me.cbxAufschubEUST_de_VeragAG.TabIndex = 48 Me.cbxAufschubEUST_de_VeragAG.TabIndex = 48
@@ -746,7 +834,7 @@ Partial Class frmMain
' '
Me.lblAufschubEUST_de_VeragAG.AutoSize = True Me.lblAufschubEUST_de_VeragAG.AutoSize = True
Me.lblAufschubEUST_de_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubEUST_de_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubEUST_de_VeragAG.Location = New System.Drawing.Point(26, 287) Me.lblAufschubEUST_de_VeragAG.Location = New System.Drawing.Point(26, 307)
Me.lblAufschubEUST_de_VeragAG.Name = "lblAufschubEUST_de_VeragAG" Me.lblAufschubEUST_de_VeragAG.Name = "lblAufschubEUST_de_VeragAG"
Me.lblAufschubEUST_de_VeragAG.Size = New System.Drawing.Size(257, 13) Me.lblAufschubEUST_de_VeragAG.Size = New System.Drawing.Size(257, 13)
Me.lblAufschubEUST_de_VeragAG.TabIndex = 44 Me.lblAufschubEUST_de_VeragAG.TabIndex = 44
@@ -757,7 +845,7 @@ Partial Class frmMain
Me.lblAufschubBrgEUST_de_VeragAG.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrgEUST_de_VeragAG.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrgEUST_de_VeragAG.Cursor = System.Windows.Forms.Cursors.Hand Me.lblAufschubBrgEUST_de_VeragAG.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrgEUST_de_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubBrgEUST_de_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrgEUST_de_VeragAG.Location = New System.Drawing.Point(534, 286) Me.lblAufschubBrgEUST_de_VeragAG.Location = New System.Drawing.Point(534, 306)
Me.lblAufschubBrgEUST_de_VeragAG.Name = "lblAufschubBrgEUST_de_VeragAG" Me.lblAufschubBrgEUST_de_VeragAG.Name = "lblAufschubBrgEUST_de_VeragAG"
Me.lblAufschubBrgEUST_de_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrgEUST_de_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrgEUST_de_VeragAG.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrgEUST_de_VeragAG.Size = New System.Drawing.Size(90, 13)
@@ -772,7 +860,7 @@ Partial Class frmMain
Me.lblAufschubStatusEUST_de_VeragAG.Cursor = System.Windows.Forms.Cursors.Help Me.lblAufschubStatusEUST_de_VeragAG.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAufschubStatusEUST_de_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubStatusEUST_de_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubStatusEUST_de_VeragAG.ForeColor = System.Drawing.Color.White Me.lblAufschubStatusEUST_de_VeragAG.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatusEUST_de_VeragAG.Location = New System.Drawing.Point(630, 286) Me.lblAufschubStatusEUST_de_VeragAG.Location = New System.Drawing.Point(630, 306)
Me.lblAufschubStatusEUST_de_VeragAG.Name = "lblAufschubStatusEUST_de_VeragAG" Me.lblAufschubStatusEUST_de_VeragAG.Name = "lblAufschubStatusEUST_de_VeragAG"
Me.lblAufschubStatusEUST_de_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubStatusEUST_de_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatusEUST_de_VeragAG.Size = New System.Drawing.Size(22, 13) Me.lblAufschubStatusEUST_de_VeragAG.Size = New System.Drawing.Size(22, 13)
@@ -784,7 +872,7 @@ Partial Class frmMain
Me.lblAufschubBrgEUST_de_Imex_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrgEUST_de_Imex_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrgEUST_de_Imex_oE.Cursor = System.Windows.Forms.Cursors.Default Me.lblAufschubBrgEUST_de_Imex_oE.Cursor = System.Windows.Forms.Cursors.Default
Me.lblAufschubBrgEUST_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.lblAufschubBrgEUST_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.lblAufschubBrgEUST_de_Imex_oE.Location = New System.Drawing.Point(413, 331) Me.lblAufschubBrgEUST_de_Imex_oE.Location = New System.Drawing.Point(413, 351)
Me.lblAufschubBrgEUST_de_Imex_oE.Name = "lblAufschubBrgEUST_de_Imex_oE" Me.lblAufschubBrgEUST_de_Imex_oE.Name = "lblAufschubBrgEUST_de_Imex_oE"
Me.lblAufschubBrgEUST_de_Imex_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrgEUST_de_Imex_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrgEUST_de_Imex_oE.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrgEUST_de_Imex_oE.Size = New System.Drawing.Size(90, 13)
@@ -795,7 +883,7 @@ Partial Class frmMain
' '
Me.cbxAufschubEUST_de_Imex.AutoSize = True Me.cbxAufschubEUST_de_Imex.AutoSize = True
Me.cbxAufschubEUST_de_Imex.Enabled = False Me.cbxAufschubEUST_de_Imex.Enabled = False
Me.cbxAufschubEUST_de_Imex.Location = New System.Drawing.Point(9, 332) Me.cbxAufschubEUST_de_Imex.Location = New System.Drawing.Point(9, 352)
Me.cbxAufschubEUST_de_Imex.Name = "cbxAufschubEUST_de_Imex" Me.cbxAufschubEUST_de_Imex.Name = "cbxAufschubEUST_de_Imex"
Me.cbxAufschubEUST_de_Imex.Size = New System.Drawing.Size(15, 14) Me.cbxAufschubEUST_de_Imex.Size = New System.Drawing.Size(15, 14)
Me.cbxAufschubEUST_de_Imex.TabIndex = 42 Me.cbxAufschubEUST_de_Imex.TabIndex = 42
@@ -805,7 +893,7 @@ Partial Class frmMain
' '
Me.lblAufschubEUST_de_Imex.AutoSize = True Me.lblAufschubEUST_de_Imex.AutoSize = True
Me.lblAufschubEUST_de_Imex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubEUST_de_Imex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubEUST_de_Imex.Location = New System.Drawing.Point(26, 332) Me.lblAufschubEUST_de_Imex.Location = New System.Drawing.Point(26, 352)
Me.lblAufschubEUST_de_Imex.Name = "lblAufschubEUST_de_Imex" Me.lblAufschubEUST_de_Imex.Name = "lblAufschubEUST_de_Imex"
Me.lblAufschubEUST_de_Imex.Size = New System.Drawing.Size(181, 13) Me.lblAufschubEUST_de_Imex.Size = New System.Drawing.Size(181, 13)
Me.lblAufschubEUST_de_Imex.TabIndex = 38 Me.lblAufschubEUST_de_Imex.TabIndex = 38
@@ -816,7 +904,7 @@ Partial Class frmMain
Me.lblAufschubBrgEUST_de_Imex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrgEUST_de_Imex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrgEUST_de_Imex.Cursor = System.Windows.Forms.Cursors.Hand Me.lblAufschubBrgEUST_de_Imex.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrgEUST_de_Imex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubBrgEUST_de_Imex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrgEUST_de_Imex.Location = New System.Drawing.Point(534, 331) Me.lblAufschubBrgEUST_de_Imex.Location = New System.Drawing.Point(534, 351)
Me.lblAufschubBrgEUST_de_Imex.Name = "lblAufschubBrgEUST_de_Imex" Me.lblAufschubBrgEUST_de_Imex.Name = "lblAufschubBrgEUST_de_Imex"
Me.lblAufschubBrgEUST_de_Imex.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrgEUST_de_Imex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrgEUST_de_Imex.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrgEUST_de_Imex.Size = New System.Drawing.Size(90, 13)
@@ -831,7 +919,7 @@ Partial Class frmMain
Me.lblAufschubStatusEUST_de_Imex.Cursor = System.Windows.Forms.Cursors.Help Me.lblAufschubStatusEUST_de_Imex.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAufschubStatusEUST_de_Imex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubStatusEUST_de_Imex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubStatusEUST_de_Imex.ForeColor = System.Drawing.Color.White Me.lblAufschubStatusEUST_de_Imex.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatusEUST_de_Imex.Location = New System.Drawing.Point(630, 331) Me.lblAufschubStatusEUST_de_Imex.Location = New System.Drawing.Point(630, 351)
Me.lblAufschubStatusEUST_de_Imex.Name = "lblAufschubStatusEUST_de_Imex" Me.lblAufschubStatusEUST_de_Imex.Name = "lblAufschubStatusEUST_de_Imex"
Me.lblAufschubStatusEUST_de_Imex.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubStatusEUST_de_Imex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatusEUST_de_Imex.Size = New System.Drawing.Size(22, 13) Me.lblAufschubStatusEUST_de_Imex.Size = New System.Drawing.Size(22, 13)
@@ -842,7 +930,7 @@ Partial Class frmMain
' '
Me.cbxBrg_at_Atilla.AutoSize = True Me.cbxBrg_at_Atilla.AutoSize = True
Me.cbxBrg_at_Atilla.Enabled = False Me.cbxBrg_at_Atilla.Enabled = False
Me.cbxBrg_at_Atilla.Location = New System.Drawing.Point(9, 188) Me.cbxBrg_at_Atilla.Location = New System.Drawing.Point(9, 209)
Me.cbxBrg_at_Atilla.Name = "cbxBrg_at_Atilla" Me.cbxBrg_at_Atilla.Name = "cbxBrg_at_Atilla"
Me.cbxBrg_at_Atilla.Size = New System.Drawing.Size(15, 14) Me.cbxBrg_at_Atilla.Size = New System.Drawing.Size(15, 14)
Me.cbxBrg_at_Atilla.TabIndex = 37 Me.cbxBrg_at_Atilla.TabIndex = 37
@@ -852,7 +940,7 @@ Partial Class frmMain
' '
Me.lblBrg_at_Atilla.AutoSize = True 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.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.Location = New System.Drawing.Point(24, 210)
Me.lblBrg_at_Atilla.Name = "lblBrg_at_Atilla" Me.lblBrg_at_Atilla.Name = "lblBrg_at_Atilla"
Me.lblBrg_at_Atilla.Size = New System.Drawing.Size(171, 13) Me.lblBrg_at_Atilla.Size = New System.Drawing.Size(171, 13)
Me.lblBrg_at_Atilla.TabIndex = 32 Me.lblBrg_at_Atilla.TabIndex = 32
@@ -863,7 +951,7 @@ Partial Class frmMain
Me.lblAtWocheAtilla.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAtWocheAtilla.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAtWocheAtilla.Cursor = System.Windows.Forms.Cursors.Hand 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.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(534, 188) Me.lblAtWocheAtilla.Location = New System.Drawing.Point(534, 209)
Me.lblAtWocheAtilla.Name = "lblAtWocheAtilla" Me.lblAtWocheAtilla.Name = "lblAtWocheAtilla"
Me.lblAtWocheAtilla.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAtWocheAtilla.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtWocheAtilla.Size = New System.Drawing.Size(90, 13) Me.lblAtWocheAtilla.Size = New System.Drawing.Size(90, 13)
@@ -875,7 +963,7 @@ Partial Class frmMain
Me.lblAtTagAtilla.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAtTagAtilla.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAtTagAtilla.Cursor = System.Windows.Forms.Cursors.Hand 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.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(385, 189) Me.lblAtTagAtilla.Location = New System.Drawing.Point(385, 210)
Me.lblAtTagAtilla.Name = "lblAtTagAtilla" Me.lblAtTagAtilla.Name = "lblAtTagAtilla"
Me.lblAtTagAtilla.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAtTagAtilla.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtTagAtilla.Size = New System.Drawing.Size(90, 13) Me.lblAtTagAtilla.Size = New System.Drawing.Size(90, 13)
@@ -890,7 +978,7 @@ Partial Class frmMain
Me.lblAt_woche_StatusAtilla.Cursor = System.Windows.Forms.Cursors.Help 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.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.ForeColor = System.Drawing.Color.White
Me.lblAt_woche_StatusAtilla.Location = New System.Drawing.Point(630, 188) Me.lblAt_woche_StatusAtilla.Location = New System.Drawing.Point(630, 209)
Me.lblAt_woche_StatusAtilla.Name = "lblAt_woche_StatusAtilla" Me.lblAt_woche_StatusAtilla.Name = "lblAt_woche_StatusAtilla"
Me.lblAt_woche_StatusAtilla.RightToLeft = System.Windows.Forms.RightToLeft.Yes 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.Size = New System.Drawing.Size(22, 13)
@@ -905,7 +993,7 @@ Partial Class frmMain
Me.lblAt_tag_StatusAtilla.Cursor = System.Windows.Forms.Cursors.Help 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.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.ForeColor = System.Drawing.Color.White
Me.lblAt_tag_StatusAtilla.Location = New System.Drawing.Point(483, 189) Me.lblAt_tag_StatusAtilla.Location = New System.Drawing.Point(483, 210)
Me.lblAt_tag_StatusAtilla.Name = "lblAt_tag_StatusAtilla" Me.lblAt_tag_StatusAtilla.Name = "lblAt_tag_StatusAtilla"
Me.lblAt_tag_StatusAtilla.RightToLeft = System.Windows.Forms.RightToLeft.Yes 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.Size = New System.Drawing.Size(22, 13)
@@ -916,7 +1004,7 @@ Partial Class frmMain
' '
Me.cbxBrg_at_Imex.AutoSize = True Me.cbxBrg_at_Imex.AutoSize = True
Me.cbxBrg_at_Imex.Enabled = False Me.cbxBrg_at_Imex.Enabled = False
Me.cbxBrg_at_Imex.Location = New System.Drawing.Point(9, 165) Me.cbxBrg_at_Imex.Location = New System.Drawing.Point(9, 186)
Me.cbxBrg_at_Imex.Name = "cbxBrg_at_Imex" Me.cbxBrg_at_Imex.Name = "cbxBrg_at_Imex"
Me.cbxBrg_at_Imex.Size = New System.Drawing.Size(15, 14) Me.cbxBrg_at_Imex.Size = New System.Drawing.Size(15, 14)
Me.cbxBrg_at_Imex.TabIndex = 31 Me.cbxBrg_at_Imex.TabIndex = 31
@@ -926,7 +1014,7 @@ Partial Class frmMain
' '
Me.lblBrg_at_Imex.AutoSize = True Me.lblBrg_at_Imex.AutoSize = True
Me.lblBrg_at_Imex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblBrg_at_Imex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblBrg_at_Imex.Location = New System.Drawing.Point(24, 166) Me.lblBrg_at_Imex.Location = New System.Drawing.Point(24, 187)
Me.lblBrg_at_Imex.Name = "lblBrg_at_Imex" Me.lblBrg_at_Imex.Name = "lblBrg_at_Imex"
Me.lblBrg_at_Imex.Size = New System.Drawing.Size(161, 13) Me.lblBrg_at_Imex.Size = New System.Drawing.Size(161, 13)
Me.lblBrg_at_Imex.TabIndex = 26 Me.lblBrg_at_Imex.TabIndex = 26
@@ -937,7 +1025,7 @@ Partial Class frmMain
Me.lblAtWocheImex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAtWocheImex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAtWocheImex.Cursor = System.Windows.Forms.Cursors.Hand Me.lblAtWocheImex.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAtWocheImex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAtWocheImex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAtWocheImex.Location = New System.Drawing.Point(534, 165) Me.lblAtWocheImex.Location = New System.Drawing.Point(534, 186)
Me.lblAtWocheImex.Name = "lblAtWocheImex" Me.lblAtWocheImex.Name = "lblAtWocheImex"
Me.lblAtWocheImex.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAtWocheImex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtWocheImex.Size = New System.Drawing.Size(90, 13) Me.lblAtWocheImex.Size = New System.Drawing.Size(90, 13)
@@ -949,7 +1037,7 @@ Partial Class frmMain
Me.lblAtTagImex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAtTagImex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAtTagImex.Cursor = System.Windows.Forms.Cursors.Hand Me.lblAtTagImex.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAtTagImex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAtTagImex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAtTagImex.Location = New System.Drawing.Point(385, 166) Me.lblAtTagImex.Location = New System.Drawing.Point(385, 187)
Me.lblAtTagImex.Name = "lblAtTagImex" Me.lblAtTagImex.Name = "lblAtTagImex"
Me.lblAtTagImex.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAtTagImex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtTagImex.Size = New System.Drawing.Size(90, 13) Me.lblAtTagImex.Size = New System.Drawing.Size(90, 13)
@@ -964,7 +1052,7 @@ Partial Class frmMain
Me.lblAt_woche_StatusImex.Cursor = System.Windows.Forms.Cursors.Help Me.lblAt_woche_StatusImex.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAt_woche_StatusImex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAt_woche_StatusImex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAt_woche_StatusImex.ForeColor = System.Drawing.Color.White Me.lblAt_woche_StatusImex.ForeColor = System.Drawing.Color.White
Me.lblAt_woche_StatusImex.Location = New System.Drawing.Point(630, 165) Me.lblAt_woche_StatusImex.Location = New System.Drawing.Point(630, 186)
Me.lblAt_woche_StatusImex.Name = "lblAt_woche_StatusImex" Me.lblAt_woche_StatusImex.Name = "lblAt_woche_StatusImex"
Me.lblAt_woche_StatusImex.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAt_woche_StatusImex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAt_woche_StatusImex.Size = New System.Drawing.Size(22, 13) Me.lblAt_woche_StatusImex.Size = New System.Drawing.Size(22, 13)
@@ -979,7 +1067,7 @@ Partial Class frmMain
Me.lblAt_tag_StatusImex.Cursor = System.Windows.Forms.Cursors.Help Me.lblAt_tag_StatusImex.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAt_tag_StatusImex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAt_tag_StatusImex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAt_tag_StatusImex.ForeColor = System.Drawing.Color.White Me.lblAt_tag_StatusImex.ForeColor = System.Drawing.Color.White
Me.lblAt_tag_StatusImex.Location = New System.Drawing.Point(483, 166) Me.lblAt_tag_StatusImex.Location = New System.Drawing.Point(483, 187)
Me.lblAt_tag_StatusImex.Name = "lblAt_tag_StatusImex" Me.lblAt_tag_StatusImex.Name = "lblAt_tag_StatusImex"
Me.lblAt_tag_StatusImex.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAt_tag_StatusImex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAt_tag_StatusImex.Size = New System.Drawing.Size(22, 13) Me.lblAt_tag_StatusImex.Size = New System.Drawing.Size(22, 13)
@@ -991,7 +1079,7 @@ Partial Class frmMain
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True 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.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(528, 468) Me.Label3.Location = New System.Drawing.Point(528, 488)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(128, 13) Me.Label3.Size = New System.Drawing.Size(128, 13)
Me.Label3.TabIndex = 25 Me.Label3.TabIndex = 25
@@ -1002,7 +1090,7 @@ Partial Class frmMain
Me.lblAufschubBrg_de_Imex_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrg_de_Imex_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrg_de_Imex_oE.Cursor = System.Windows.Forms.Cursors.Default 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.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(413, 313) Me.lblAufschubBrg_de_Imex_oE.Location = New System.Drawing.Point(413, 333)
Me.lblAufschubBrg_de_Imex_oE.Name = "lblAufschubBrg_de_Imex_oE" 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.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_de_Imex_oE.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrg_de_Imex_oE.Size = New System.Drawing.Size(90, 13)
@@ -1014,7 +1102,7 @@ Partial Class frmMain
Me.lblAufschubBrg_at_VeragZS_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrg_at_VeragZS_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrg_at_VeragZS_oE.Cursor = System.Windows.Forms.Cursors.Hand 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.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(413, 525) Me.lblAufschubBrg_at_VeragZS_oE.Location = New System.Drawing.Point(413, 545)
Me.lblAufschubBrg_at_VeragZS_oE.Name = "lblAufschubBrg_at_VeragZS_oE" 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.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_VeragZS_oE.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrg_at_VeragZS_oE.Size = New System.Drawing.Size(90, 13)
@@ -1027,7 +1115,7 @@ Partial Class frmMain
Me.lblAufschubBrg_at_VeragCS_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrg_at_VeragCS_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrg_at_VeragCS_oE.Cursor = System.Windows.Forms.Cursors.Hand 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.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(413, 505) Me.lblAufschubBrg_at_VeragCS_oE.Location = New System.Drawing.Point(413, 525)
Me.lblAufschubBrg_at_VeragCS_oE.Name = "lblAufschubBrg_at_VeragCS_oE" 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.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_VeragCS_oE.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrg_at_VeragCS_oE.Size = New System.Drawing.Size(90, 13)
@@ -1040,7 +1128,7 @@ Partial Class frmMain
Me.lblAufschubBrg_de_VeragAG_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrg_de_VeragAG_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrg_de_VeragAG_oE.Cursor = System.Windows.Forms.Cursors.Default 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.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(413, 268) Me.lblAufschubBrg_de_VeragAG_oE.Location = New System.Drawing.Point(413, 288)
Me.lblAufschubBrg_de_VeragAG_oE.Name = "lblAufschubBrg_de_VeragAG_oE" 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.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_de_VeragAG_oE.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrg_de_VeragAG_oE.Size = New System.Drawing.Size(90, 13)
@@ -1052,7 +1140,7 @@ Partial Class frmMain
Me.lblAufschubBrg_at_VeragAG_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrg_at_VeragAG_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrg_at_VeragAG_oE.Cursor = System.Windows.Forms.Cursors.Hand 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.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(413, 485) Me.lblAufschubBrg_at_VeragAG_oE.Location = New System.Drawing.Point(413, 505)
Me.lblAufschubBrg_at_VeragAG_oE.Name = "lblAufschubBrg_at_VeragAG_oE" 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.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_VeragAG_oE.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrg_at_VeragAG_oE.Size = New System.Drawing.Size(90, 13)
@@ -1064,7 +1152,7 @@ Partial Class frmMain
' '
Me.cbxAufschub_de_Imex.AutoSize = True Me.cbxAufschub_de_Imex.AutoSize = True
Me.cbxAufschub_de_Imex.Enabled = False Me.cbxAufschub_de_Imex.Enabled = False
Me.cbxAufschub_de_Imex.Location = New System.Drawing.Point(9, 314) Me.cbxAufschub_de_Imex.Location = New System.Drawing.Point(9, 334)
Me.cbxAufschub_de_Imex.Name = "cbxAufschub_de_Imex" Me.cbxAufschub_de_Imex.Name = "cbxAufschub_de_Imex"
Me.cbxAufschub_de_Imex.Size = New System.Drawing.Size(15, 14) Me.cbxAufschub_de_Imex.Size = New System.Drawing.Size(15, 14)
Me.cbxAufschub_de_Imex.TabIndex = 19 Me.cbxAufschub_de_Imex.TabIndex = 19
@@ -1074,7 +1162,7 @@ Partial Class frmMain
' '
Me.lblAufschub_de_Imex.AutoSize = True 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.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, 314) Me.lblAufschub_de_Imex.Location = New System.Drawing.Point(26, 334)
Me.lblAufschub_de_Imex.Name = "lblAufschub_de_Imex" Me.lblAufschub_de_Imex.Name = "lblAufschub_de_Imex"
Me.lblAufschub_de_Imex.Size = New System.Drawing.Size(179, 13) Me.lblAufschub_de_Imex.Size = New System.Drawing.Size(179, 13)
Me.lblAufschub_de_Imex.TabIndex = 15 Me.lblAufschub_de_Imex.TabIndex = 15
@@ -1085,7 +1173,7 @@ Partial Class frmMain
Me.lblAufschubBrg_de_Imex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrg_de_Imex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrg_de_Imex.Cursor = System.Windows.Forms.Cursors.Hand 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.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(534, 313) Me.lblAufschubBrg_de_Imex.Location = New System.Drawing.Point(534, 333)
Me.lblAufschubBrg_de_Imex.Name = "lblAufschubBrg_de_Imex" Me.lblAufschubBrg_de_Imex.Name = "lblAufschubBrg_de_Imex"
Me.lblAufschubBrg_de_Imex.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrg_de_Imex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_de_Imex.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrg_de_Imex.Size = New System.Drawing.Size(90, 13)
@@ -1097,7 +1185,7 @@ Partial Class frmMain
Me.lblAufschubAkt_de_Imex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubAkt_de_Imex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubAkt_de_Imex.Cursor = System.Windows.Forms.Cursors.Hand 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.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(293, 320) Me.lblAufschubAkt_de_Imex.Location = New System.Drawing.Point(293, 340)
Me.lblAufschubAkt_de_Imex.Name = "lblAufschubAkt_de_Imex" Me.lblAufschubAkt_de_Imex.Name = "lblAufschubAkt_de_Imex"
Me.lblAufschubAkt_de_Imex.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubAkt_de_Imex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubAkt_de_Imex.Size = New System.Drawing.Size(90, 13) Me.lblAufschubAkt_de_Imex.Size = New System.Drawing.Size(90, 13)
@@ -1113,7 +1201,7 @@ Partial Class frmMain
Me.lblAufschubStatus_de_Imex.Cursor = System.Windows.Forms.Cursors.Help 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.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.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_de_Imex.Location = New System.Drawing.Point(630, 313) Me.lblAufschubStatus_de_Imex.Location = New System.Drawing.Point(630, 333)
Me.lblAufschubStatus_de_Imex.Name = "lblAufschubStatus_de_Imex" Me.lblAufschubStatus_de_Imex.Name = "lblAufschubStatus_de_Imex"
Me.lblAufschubStatus_de_Imex.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubStatus_de_Imex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_de_Imex.Size = New System.Drawing.Size(22, 13) Me.lblAufschubStatus_de_Imex.Size = New System.Drawing.Size(22, 13)
@@ -1208,7 +1296,7 @@ Partial Class frmMain
'Label2 'Label2
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(5, 579) Me.Label2.Location = New System.Drawing.Point(5, 599)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(177, 13) Me.Label2.Size = New System.Drawing.Size(177, 13)
Me.Label2.TabIndex = 5 Me.Label2.TabIndex = 5
@@ -1219,7 +1307,7 @@ Partial Class frmMain
' '
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat 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.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(182, 574) Me.Button4.Location = New System.Drawing.Point(182, 594)
Me.Button4.Name = "Button4" Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(62, 23) Me.Button4.Size = New System.Drawing.Size(62, 23)
Me.Button4.TabIndex = 4 Me.Button4.TabIndex = 4
@@ -1231,7 +1319,7 @@ Partial Class frmMain
' '
Me.cbxAufschub_at_VeragZS.AutoSize = True Me.cbxAufschub_at_VeragZS.AutoSize = True
Me.cbxAufschub_at_VeragZS.Enabled = False Me.cbxAufschub_at_VeragZS.Enabled = False
Me.cbxAufschub_at_VeragZS.Location = New System.Drawing.Point(9, 526) Me.cbxAufschub_at_VeragZS.Location = New System.Drawing.Point(9, 546)
Me.cbxAufschub_at_VeragZS.Name = "cbxAufschub_at_VeragZS" Me.cbxAufschub_at_VeragZS.Name = "cbxAufschub_at_VeragZS"
Me.cbxAufschub_at_VeragZS.Size = New System.Drawing.Size(15, 14) Me.cbxAufschub_at_VeragZS.Size = New System.Drawing.Size(15, 14)
Me.cbxAufschub_at_VeragZS.TabIndex = 3 Me.cbxAufschub_at_VeragZS.TabIndex = 3
@@ -1344,7 +1432,7 @@ Partial Class frmMain
' '
Me.cbxAufschub_at_VeragCS.AutoSize = True Me.cbxAufschub_at_VeragCS.AutoSize = True
Me.cbxAufschub_at_VeragCS.Enabled = False Me.cbxAufschub_at_VeragCS.Enabled = False
Me.cbxAufschub_at_VeragCS.Location = New System.Drawing.Point(9, 506) Me.cbxAufschub_at_VeragCS.Location = New System.Drawing.Point(9, 526)
Me.cbxAufschub_at_VeragCS.Name = "cbxAufschub_at_VeragCS" Me.cbxAufschub_at_VeragCS.Name = "cbxAufschub_at_VeragCS"
Me.cbxAufschub_at_VeragCS.Size = New System.Drawing.Size(15, 14) Me.cbxAufschub_at_VeragCS.Size = New System.Drawing.Size(15, 14)
Me.cbxAufschub_at_VeragCS.TabIndex = 3 Me.cbxAufschub_at_VeragCS.TabIndex = 3
@@ -1364,7 +1452,7 @@ Partial Class frmMain
' '
Me.cbxAufschub_at_VeragAG.AutoSize = True Me.cbxAufschub_at_VeragAG.AutoSize = True
Me.cbxAufschub_at_VeragAG.Enabled = False Me.cbxAufschub_at_VeragAG.Enabled = False
Me.cbxAufschub_at_VeragAG.Location = New System.Drawing.Point(9, 486) Me.cbxAufschub_at_VeragAG.Location = New System.Drawing.Point(9, 506)
Me.cbxAufschub_at_VeragAG.Name = "cbxAufschub_at_VeragAG" Me.cbxAufschub_at_VeragAG.Name = "cbxAufschub_at_VeragAG"
Me.cbxAufschub_at_VeragAG.Size = New System.Drawing.Size(15, 14) Me.cbxAufschub_at_VeragAG.Size = New System.Drawing.Size(15, 14)
Me.cbxAufschub_at_VeragAG.TabIndex = 3 Me.cbxAufschub_at_VeragAG.TabIndex = 3
@@ -1374,7 +1462,7 @@ Partial Class frmMain
' '
Me.cbxAufschub_de_VeragAG.AutoSize = True Me.cbxAufschub_de_VeragAG.AutoSize = True
Me.cbxAufschub_de_VeragAG.Enabled = False Me.cbxAufschub_de_VeragAG.Enabled = False
Me.cbxAufschub_de_VeragAG.Location = New System.Drawing.Point(9, 269) Me.cbxAufschub_de_VeragAG.Location = New System.Drawing.Point(9, 289)
Me.cbxAufschub_de_VeragAG.Name = "cbxAufschub_de_VeragAG" Me.cbxAufschub_de_VeragAG.Name = "cbxAufschub_de_VeragAG"
Me.cbxAufschub_de_VeragAG.Size = New System.Drawing.Size(15, 14) Me.cbxAufschub_de_VeragAG.Size = New System.Drawing.Size(15, 14)
Me.cbxAufschub_de_VeragAG.TabIndex = 3 Me.cbxAufschub_de_VeragAG.TabIndex = 3
@@ -1384,7 +1472,7 @@ Partial Class frmMain
' '
Me.Label5.AutoSize = True 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.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(207, 239) Me.Label5.Location = New System.Drawing.Point(207, 259)
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(76, 13) Me.Label5.Size = New System.Drawing.Size(76, 13)
Me.Label5.TabIndex = 1 Me.Label5.TabIndex = 1
@@ -1395,7 +1483,7 @@ Partial Class frmMain
' '
Me.cbxBrg_at_VeragAG.AutoSize = True Me.cbxBrg_at_VeragAG.AutoSize = True
Me.cbxBrg_at_VeragAG.Enabled = False Me.cbxBrg_at_VeragAG.Enabled = False
Me.cbxBrg_at_VeragAG.Location = New System.Drawing.Point(9, 143) Me.cbxBrg_at_VeragAG.Location = New System.Drawing.Point(9, 164)
Me.cbxBrg_at_VeragAG.Name = "cbxBrg_at_VeragAG" Me.cbxBrg_at_VeragAG.Name = "cbxBrg_at_VeragAG"
Me.cbxBrg_at_VeragAG.Size = New System.Drawing.Size(15, 14) Me.cbxBrg_at_VeragAG.Size = New System.Drawing.Size(15, 14)
Me.cbxBrg_at_VeragAG.TabIndex = 3 Me.cbxBrg_at_VeragAG.TabIndex = 3
@@ -1405,7 +1493,7 @@ Partial Class frmMain
' '
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(552, 574) Me.Button1.Location = New System.Drawing.Point(552, 594)
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(103, 23) Me.Button1.Size = New System.Drawing.Size(103, 23)
Me.Button1.TabIndex = 0 Me.Button1.TabIndex = 0
@@ -1416,7 +1504,7 @@ Partial Class frmMain
' '
Me.Label7.AutoSize = True 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.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, 239) Me.Label7.Location = New System.Drawing.Point(6, 259)
Me.Label7.Name = "Label7" Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(189, 13) Me.Label7.Size = New System.Drawing.Size(189, 13)
Me.Label7.TabIndex = 1 Me.Label7.TabIndex = 1
@@ -1430,7 +1518,7 @@ Partial Class frmMain
Me.lblAufschubStatus_at_VeragZS.Cursor = System.Windows.Forms.Cursors.Help 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.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.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_at_VeragZS.Location = New System.Drawing.Point(630, 525) Me.lblAufschubStatus_at_VeragZS.Location = New System.Drawing.Point(630, 545)
Me.lblAufschubStatus_at_VeragZS.Name = "lblAufschubStatus_at_VeragZS" Me.lblAufschubStatus_at_VeragZS.Name = "lblAufschubStatus_at_VeragZS"
Me.lblAufschubStatus_at_VeragZS.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubStatus_at_VeragZS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_at_VeragZS.Size = New System.Drawing.Size(22, 13) Me.lblAufschubStatus_at_VeragZS.Size = New System.Drawing.Size(22, 13)
@@ -1445,7 +1533,7 @@ Partial Class frmMain
Me.lblAufschubStatus_at_VeragCS.Cursor = System.Windows.Forms.Cursors.Help 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.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.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_at_VeragCS.Location = New System.Drawing.Point(630, 505) Me.lblAufschubStatus_at_VeragCS.Location = New System.Drawing.Point(630, 525)
Me.lblAufschubStatus_at_VeragCS.Name = "lblAufschubStatus_at_VeragCS" Me.lblAufschubStatus_at_VeragCS.Name = "lblAufschubStatus_at_VeragCS"
Me.lblAufschubStatus_at_VeragCS.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubStatus_at_VeragCS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_at_VeragCS.Size = New System.Drawing.Size(22, 13) Me.lblAufschubStatus_at_VeragCS.Size = New System.Drawing.Size(22, 13)
@@ -1457,7 +1545,7 @@ Partial Class frmMain
Me.lblAufschubAkt_at_VeragZS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubAkt_at_VeragZS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubAkt_at_VeragZS.Cursor = System.Windows.Forms.Cursors.Hand 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.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(293, 526) Me.lblAufschubAkt_at_VeragZS.Location = New System.Drawing.Point(293, 546)
Me.lblAufschubAkt_at_VeragZS.Name = "lblAufschubAkt_at_VeragZS" Me.lblAufschubAkt_at_VeragZS.Name = "lblAufschubAkt_at_VeragZS"
Me.lblAufschubAkt_at_VeragZS.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubAkt_at_VeragZS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubAkt_at_VeragZS.Size = New System.Drawing.Size(90, 13) Me.lblAufschubAkt_at_VeragZS.Size = New System.Drawing.Size(90, 13)
@@ -1469,7 +1557,7 @@ Partial Class frmMain
' '
Me.lblBrg_at_VeragAG.AutoSize = True Me.lblBrg_at_VeragAG.AutoSize = True
Me.lblBrg_at_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblBrg_at_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblBrg_at_VeragAG.Location = New System.Drawing.Point(24, 144) Me.lblBrg_at_VeragAG.Location = New System.Drawing.Point(24, 165)
Me.lblBrg_at_VeragAG.Name = "lblBrg_at_VeragAG" Me.lblBrg_at_VeragAG.Name = "lblBrg_at_VeragAG"
Me.lblBrg_at_VeragAG.Size = New System.Drawing.Size(132, 13) Me.lblBrg_at_VeragAG.Size = New System.Drawing.Size(132, 13)
Me.lblBrg_at_VeragAG.TabIndex = 1 Me.lblBrg_at_VeragAG.TabIndex = 1
@@ -1480,7 +1568,7 @@ Partial Class frmMain
Me.lblAufschubBrg_at_VeragZS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrg_at_VeragZS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrg_at_VeragZS.Cursor = System.Windows.Forms.Cursors.Hand 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.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(534, 525) Me.lblAufschubBrg_at_VeragZS.Location = New System.Drawing.Point(534, 545)
Me.lblAufschubBrg_at_VeragZS.Name = "lblAufschubBrg_at_VeragZS" Me.lblAufschubBrg_at_VeragZS.Name = "lblAufschubBrg_at_VeragZS"
Me.lblAufschubBrg_at_VeragZS.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrg_at_VeragZS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_VeragZS.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrg_at_VeragZS.Size = New System.Drawing.Size(90, 13)
@@ -1492,7 +1580,7 @@ Partial Class frmMain
Me.lblAufschubAkt_at_VeragCS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubAkt_at_VeragCS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubAkt_at_VeragCS.Cursor = System.Windows.Forms.Cursors.Hand 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.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(293, 506) Me.lblAufschubAkt_at_VeragCS.Location = New System.Drawing.Point(293, 526)
Me.lblAufschubAkt_at_VeragCS.Name = "lblAufschubAkt_at_VeragCS" Me.lblAufschubAkt_at_VeragCS.Name = "lblAufschubAkt_at_VeragCS"
Me.lblAufschubAkt_at_VeragCS.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubAkt_at_VeragCS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubAkt_at_VeragCS.Size = New System.Drawing.Size(90, 13) Me.lblAufschubAkt_at_VeragCS.Size = New System.Drawing.Size(90, 13)
@@ -1505,7 +1593,7 @@ Partial Class frmMain
Me.lblAtWoche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAtWoche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAtWoche.Cursor = System.Windows.Forms.Cursors.Hand Me.lblAtWoche.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAtWoche.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAtWoche.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAtWoche.Location = New System.Drawing.Point(534, 143) Me.lblAtWoche.Location = New System.Drawing.Point(534, 164)
Me.lblAtWoche.Name = "lblAtWoche" Me.lblAtWoche.Name = "lblAtWoche"
Me.lblAtWoche.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAtWoche.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtWoche.Size = New System.Drawing.Size(90, 13) Me.lblAtWoche.Size = New System.Drawing.Size(90, 13)
@@ -1517,7 +1605,7 @@ Partial Class frmMain
Me.lblAufschubBrg_at_VeragCS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrg_at_VeragCS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrg_at_VeragCS.Cursor = System.Windows.Forms.Cursors.Hand 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.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(534, 505) Me.lblAufschubBrg_at_VeragCS.Location = New System.Drawing.Point(534, 525)
Me.lblAufschubBrg_at_VeragCS.Name = "lblAufschubBrg_at_VeragCS" Me.lblAufschubBrg_at_VeragCS.Name = "lblAufschubBrg_at_VeragCS"
Me.lblAufschubBrg_at_VeragCS.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrg_at_VeragCS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_VeragCS.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrg_at_VeragCS.Size = New System.Drawing.Size(90, 13)
@@ -1529,7 +1617,7 @@ Partial Class frmMain
Me.lblAtTag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAtTag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAtTag.Cursor = System.Windows.Forms.Cursors.Hand Me.lblAtTag.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAtTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAtTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAtTag.Location = New System.Drawing.Point(385, 144) Me.lblAtTag.Location = New System.Drawing.Point(385, 165)
Me.lblAtTag.Name = "lblAtTag" Me.lblAtTag.Name = "lblAtTag"
Me.lblAtTag.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAtTag.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtTag.Size = New System.Drawing.Size(90, 13) Me.lblAtTag.Size = New System.Drawing.Size(90, 13)
@@ -1540,7 +1628,7 @@ Partial Class frmMain
' '
Me.lblAufschub_at_VeragZS.AutoSize = True 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.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, 526) Me.lblAufschub_at_VeragZS.Location = New System.Drawing.Point(26, 546)
Me.lblAufschub_at_VeragZS.Name = "lblAufschub_at_VeragZS" Me.lblAufschub_at_VeragZS.Name = "lblAufschub_at_VeragZS"
Me.lblAufschub_at_VeragZS.Size = New System.Drawing.Size(236, 13) Me.lblAufschub_at_VeragZS.Size = New System.Drawing.Size(236, 13)
Me.lblAufschub_at_VeragZS.TabIndex = 1 Me.lblAufschub_at_VeragZS.TabIndex = 1
@@ -1554,7 +1642,7 @@ Partial Class frmMain
Me.lblAt_woche_Status.Cursor = System.Windows.Forms.Cursors.Help Me.lblAt_woche_Status.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAt_woche_Status.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAt_woche_Status.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAt_woche_Status.ForeColor = System.Drawing.Color.White Me.lblAt_woche_Status.ForeColor = System.Drawing.Color.White
Me.lblAt_woche_Status.Location = New System.Drawing.Point(630, 143) Me.lblAt_woche_Status.Location = New System.Drawing.Point(630, 164)
Me.lblAt_woche_Status.Name = "lblAt_woche_Status" Me.lblAt_woche_Status.Name = "lblAt_woche_Status"
Me.lblAt_woche_Status.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAt_woche_Status.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAt_woche_Status.Size = New System.Drawing.Size(22, 13) Me.lblAt_woche_Status.Size = New System.Drawing.Size(22, 13)
@@ -1565,7 +1653,7 @@ Partial Class frmMain
' '
Me.lblAufschub_at_VeragCS.AutoSize = True 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.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, 506) Me.lblAufschub_at_VeragCS.Location = New System.Drawing.Point(26, 526)
Me.lblAufschub_at_VeragCS.Name = "lblAufschub_at_VeragCS" Me.lblAufschub_at_VeragCS.Name = "lblAufschub_at_VeragCS"
Me.lblAufschub_at_VeragCS.Size = New System.Drawing.Size(235, 13) Me.lblAufschub_at_VeragCS.Size = New System.Drawing.Size(235, 13)
Me.lblAufschub_at_VeragCS.TabIndex = 1 Me.lblAufschub_at_VeragCS.TabIndex = 1
@@ -1575,7 +1663,7 @@ Partial Class frmMain
' '
Me.lblAufschub_de_VeragAG.AutoSize = True 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.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, 269) Me.lblAufschub_de_VeragAG.Location = New System.Drawing.Point(26, 289)
Me.lblAufschub_de_VeragAG.Name = "lblAufschub_de_VeragAG" Me.lblAufschub_de_VeragAG.Name = "lblAufschub_de_VeragAG"
Me.lblAufschub_de_VeragAG.Size = New System.Drawing.Size(255, 13) Me.lblAufschub_de_VeragAG.Size = New System.Drawing.Size(255, 13)
Me.lblAufschub_de_VeragAG.TabIndex = 1 Me.lblAufschub_de_VeragAG.TabIndex = 1
@@ -1600,7 +1688,7 @@ Partial Class frmMain
Me.lblAt_tag_Status.Cursor = System.Windows.Forms.Cursors.Help Me.lblAt_tag_Status.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAt_tag_Status.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAt_tag_Status.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAt_tag_Status.ForeColor = System.Drawing.Color.White Me.lblAt_tag_Status.ForeColor = System.Drawing.Color.White
Me.lblAt_tag_Status.Location = New System.Drawing.Point(483, 144) Me.lblAt_tag_Status.Location = New System.Drawing.Point(483, 165)
Me.lblAt_tag_Status.Name = "lblAt_tag_Status" Me.lblAt_tag_Status.Name = "lblAt_tag_Status"
Me.lblAt_tag_Status.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAt_tag_Status.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAt_tag_Status.Size = New System.Drawing.Size(22, 13) Me.lblAt_tag_Status.Size = New System.Drawing.Size(22, 13)
@@ -1612,7 +1700,7 @@ Partial Class frmMain
Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label8.AutoSize = True 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.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(386, 239) Me.Label8.Location = New System.Drawing.Point(386, 259)
Me.Label8.Name = "Label8" Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(116, 13) Me.Label8.Size = New System.Drawing.Size(116, 13)
Me.Label8.TabIndex = 1 Me.Label8.TabIndex = 1
@@ -1622,7 +1710,7 @@ Partial Class frmMain
' '
Me.lblAufschub_at_VeragAG.AutoSize = True 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.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, 486) Me.lblAufschub_at_VeragAG.Location = New System.Drawing.Point(26, 506)
Me.lblAufschub_at_VeragAG.Name = "lblAufschub_at_VeragAG" Me.lblAufschub_at_VeragAG.Name = "lblAufschub_at_VeragAG"
Me.lblAufschub_at_VeragAG.Size = New System.Drawing.Size(214, 13) Me.lblAufschub_at_VeragAG.Size = New System.Drawing.Size(214, 13)
Me.lblAufschub_at_VeragAG.TabIndex = 1 Me.lblAufschub_at_VeragAG.TabIndex = 1
@@ -1633,7 +1721,7 @@ Partial Class frmMain
Me.Label34.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label34.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label34.AutoSize = True 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.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(540, 239) Me.Label34.Location = New System.Drawing.Point(540, 259)
Me.Label34.Name = "Label34" Me.Label34.Name = "Label34"
Me.Label34.Size = New System.Drawing.Size(116, 13) Me.Label34.Size = New System.Drawing.Size(116, 13)
Me.Label34.TabIndex = 1 Me.Label34.TabIndex = 1
@@ -1644,7 +1732,7 @@ Partial Class frmMain
Me.lblAufschubBrg_de_VeragAG.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrg_de_VeragAG.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrg_de_VeragAG.Cursor = System.Windows.Forms.Cursors.Hand 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.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(534, 268) Me.lblAufschubBrg_de_VeragAG.Location = New System.Drawing.Point(534, 288)
Me.lblAufschubBrg_de_VeragAG.Name = "lblAufschubBrg_de_VeragAG" Me.lblAufschubBrg_de_VeragAG.Name = "lblAufschubBrg_de_VeragAG"
Me.lblAufschubBrg_de_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrg_de_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_de_VeragAG.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrg_de_VeragAG.Size = New System.Drawing.Size(90, 13)
@@ -1667,7 +1755,7 @@ Partial Class frmMain
Me.lblAufschubAkt_de_VeragAG.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubAkt_de_VeragAG.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubAkt_de_VeragAG.Cursor = System.Windows.Forms.Cursors.Hand 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.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(293, 275) Me.lblAufschubAkt_de_VeragAG.Location = New System.Drawing.Point(293, 295)
Me.lblAufschubAkt_de_VeragAG.Name = "lblAufschubAkt_de_VeragAG" Me.lblAufschubAkt_de_VeragAG.Name = "lblAufschubAkt_de_VeragAG"
Me.lblAufschubAkt_de_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubAkt_de_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubAkt_de_VeragAG.Size = New System.Drawing.Size(90, 13) Me.lblAufschubAkt_de_VeragAG.Size = New System.Drawing.Size(90, 13)
@@ -1690,7 +1778,7 @@ Partial Class frmMain
Me.lblAufschubBrg_at_VeragAG.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubBrg_at_VeragAG.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubBrg_at_VeragAG.Cursor = System.Windows.Forms.Cursors.Hand 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.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(534, 485) Me.lblAufschubBrg_at_VeragAG.Location = New System.Drawing.Point(534, 505)
Me.lblAufschubBrg_at_VeragAG.Name = "lblAufschubBrg_at_VeragAG" Me.lblAufschubBrg_at_VeragAG.Name = "lblAufschubBrg_at_VeragAG"
Me.lblAufschubBrg_at_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubBrg_at_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_VeragAG.Size = New System.Drawing.Size(90, 13) Me.lblAufschubBrg_at_VeragAG.Size = New System.Drawing.Size(90, 13)
@@ -1705,7 +1793,7 @@ Partial Class frmMain
Me.lblAufschubStatus_at_VeragAG.Cursor = System.Windows.Forms.Cursors.Help 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.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.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_at_VeragAG.Location = New System.Drawing.Point(630, 485) Me.lblAufschubStatus_at_VeragAG.Location = New System.Drawing.Point(630, 505)
Me.lblAufschubStatus_at_VeragAG.Name = "lblAufschubStatus_at_VeragAG" Me.lblAufschubStatus_at_VeragAG.Name = "lblAufschubStatus_at_VeragAG"
Me.lblAufschubStatus_at_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubStatus_at_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_at_VeragAG.Size = New System.Drawing.Size(22, 13) Me.lblAufschubStatus_at_VeragAG.Size = New System.Drawing.Size(22, 13)
@@ -1717,7 +1805,7 @@ Partial Class frmMain
Me.lblAufschubAkt_at_VeragAG.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubAkt_at_VeragAG.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAufschubAkt_at_VeragAG.Cursor = System.Windows.Forms.Cursors.Hand 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.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(293, 486) Me.lblAufschubAkt_at_VeragAG.Location = New System.Drawing.Point(293, 506)
Me.lblAufschubAkt_at_VeragAG.Name = "lblAufschubAkt_at_VeragAG" Me.lblAufschubAkt_at_VeragAG.Name = "lblAufschubAkt_at_VeragAG"
Me.lblAufschubAkt_at_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubAkt_at_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubAkt_at_VeragAG.Size = New System.Drawing.Size(90, 13) Me.lblAufschubAkt_at_VeragAG.Size = New System.Drawing.Size(90, 13)
@@ -1733,7 +1821,7 @@ Partial Class frmMain
Me.lblAufschubStatus_de_VeragAG.Cursor = System.Windows.Forms.Cursors.Help 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.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.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_de_VeragAG.Location = New System.Drawing.Point(630, 268) Me.lblAufschubStatus_de_VeragAG.Location = New System.Drawing.Point(630, 288)
Me.lblAufschubStatus_de_VeragAG.Name = "lblAufschubStatus_de_VeragAG" Me.lblAufschubStatus_de_VeragAG.Name = "lblAufschubStatus_de_VeragAG"
Me.lblAufschubStatus_de_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAufschubStatus_de_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_de_VeragAG.Size = New System.Drawing.Size(22, 13) Me.lblAufschubStatus_de_VeragAG.Size = New System.Drawing.Size(22, 13)
@@ -1745,7 +1833,7 @@ Partial Class frmMain
Me.Label30.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label30.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label30.AutoSize = True 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.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(410, 252) Me.Label30.Location = New System.Drawing.Point(410, 272)
Me.Label30.Name = "Label30" Me.Label30.Name = "Label30"
Me.Label30.Size = New System.Drawing.Size(92, 13) Me.Label30.Size = New System.Drawing.Size(92, 13)
Me.Label30.TabIndex = 1 Me.Label30.TabIndex = 1
@@ -1756,7 +1844,7 @@ Partial Class frmMain
Me.Label31.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label31.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label31.AutoSize = True 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.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(548, 251) Me.Label31.Location = New System.Drawing.Point(548, 271)
Me.Label31.Name = "Label31" Me.Label31.Name = "Label31"
Me.Label31.Size = New System.Drawing.Size(108, 13) Me.Label31.Size = New System.Drawing.Size(108, 13)
Me.Label31.TabIndex = 1 Me.Label31.TabIndex = 1
@@ -1808,7 +1896,7 @@ Partial Class frmMain
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(671, 608) Me.ClientSize = New System.Drawing.Size(671, 627)
Me.Controls.Add(Me.Panel2) Me.Controls.Add(Me.Panel2)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MinimizeBox = False Me.MinimizeBox = False
@@ -1956,4 +2044,10 @@ Partial Class frmMain
Friend WithEvents lblAufschubBrg_de_UNISPEDDE As Label Friend WithEvents lblAufschubBrg_de_UNISPEDDE As Label
Friend WithEvents lblAufschubStatus_de_UNISPEDDE As Label Friend WithEvents lblAufschubStatus_de_UNISPEDDE As Label
Friend WithEvents Button3 As Button Friend WithEvents Button3 As Button
Friend WithEvents cbxBrg_at_VERAG_CS As CheckBox
Friend WithEvents lblBrg_at_VERAG_CS As Label
Friend WithEvents lblAtWocheVERAG_CS As Label
Friend WithEvents lblAtTagVERAG_CS As Label
Friend WithEvents lblAt_woche_StatusVERAG_CS As Label
Friend WithEvents lblAt_tag_StatusVERAG_CS As Label
End Class End Class

324
VERAGMonitoring/frmMain.vb
View File

@@ -86,6 +86,7 @@ Public Class frmMain
allowCBX(cbxAufschubEUST_de_VeragAG, False) allowCBX(cbxAufschubEUST_de_VeragAG, False)
allowCBX(cbxAufschubEUST_de_Imex, False) allowCBX(cbxAufschubEUST_de_Imex, False)
allowCBX(cbxBrg_at_UNISPED, False) allowCBX(cbxBrg_at_UNISPED, False)
allowCBX(cbxBrg_at_VERAG_CS, False)
allowCBX(cbxAufschub_at_IMEX, False) allowCBX(cbxAufschub_at_IMEX, False)
allowCBX(cbxAufschubEUST_de_Global, False) allowCBX(cbxAufschubEUST_de_Global, False)
allowCBX(cbxAufschubEUST_de_UnispedDE, False) allowCBX(cbxAufschubEUST_de_UnispedDE, False)
@@ -95,6 +96,7 @@ Public Class frmMain
allowCBX(cbxAufschubEUST_de_Unisped, True) allowCBX(cbxAufschubEUST_de_Unisped, True)
allowCBX(cbxAufschub_de_Unisped, True) allowCBX(cbxAufschub_de_Unisped, True)
allowCBX(cbxBrg_at_UNISPED, True) allowCBX(cbxBrg_at_UNISPED, True)
allowCBX(cbxBrg_at_VERAG_CS, True)
allowCBX(cbxAufschubEUST_de_UnispedDE, True) allowCBX(cbxAufschubEUST_de_UnispedDE, True)
allowCBX(cbxAufschub_de_UnispedDE, True) allowCBX(cbxAufschub_de_UnispedDE, True)
End If End If
@@ -197,6 +199,7 @@ Public Class frmMain
allowCBX(cbxAufschubEUST_de_Unisped, True) allowCBX(cbxAufschubEUST_de_Unisped, True)
allowCBX(cbxAufschub_de_Unisped, True) allowCBX(cbxAufschub_de_Unisped, True)
allowCBX(cbxBrg_at_UNISPED, True) allowCBX(cbxBrg_at_UNISPED, True)
allowCBX(cbxBrg_at_VERAG_CS, True)
allowCBX(cbxAufschubEUST_de_UnispedDE, True) allowCBX(cbxAufschubEUST_de_UnispedDE, True)
allowCBX(cbxAufschub_de_UnispedDE, True) allowCBX(cbxAufschub_de_UnispedDE, True)
@@ -238,6 +241,7 @@ Public Class frmMain
allowCBX(cbxAufschubEUST_de_VeragAG, True) allowCBX(cbxAufschubEUST_de_VeragAG, True)
allowCBX(cbxAufschubEUST_de_Imex, True) allowCBX(cbxAufschubEUST_de_Imex, True)
allowCBX(cbxBrg_at_UNISPED, True) allowCBX(cbxBrg_at_UNISPED, True)
allowCBX(cbxBrg_at_VERAG_CS, True)
allowCBX(cbxAufschub_at_IMEX, True) allowCBX(cbxAufschub_at_IMEX, True)
allowCBX(cbxAufschubEUST_de_Global, True) allowCBX(cbxAufschubEUST_de_Global, True)
allowCBX(cbxAufschubEUST_de_UnispedDE, True) allowCBX(cbxAufschubEUST_de_UnispedDE, True)
@@ -328,6 +332,8 @@ Public Class frmMain
Dim brg_DE_NEU As String = "17DE0000000071678" Dim brg_DE_NEU As String = "17DE0000000071678"
Dim brg_AT_IMEX As String = "16AT520000G000VA6" Dim brg_AT_IMEX As String = "16AT520000G000VA6"
Dim brg_AT_ATILLA As String = "20AT520000G000092" Dim brg_AT_ATILLA As String = "20AT520000G000092"
Dim brg_AT_VERAG_CS As String = "22AT600000G0000H4"
Dim brg_DE_UNISPED As String = "17DE0000000071270"
'If cbxBrg_de_VeragAG.Checked Then 'DE 'If cbxBrg_de_VeragAG.Checked Then 'DE
' 'DE WOCHE ' 'DE WOCHE
@@ -341,12 +347,23 @@ Public Class frmMain
' setLabel(lblDeTag, "0.0") ' setLabel(lblDeTag, "0.0")
'End If 'End If
If cbxBrg_de2_VeragAG.Checked Then 'DE If cbxBrg_de2_VeragAG.Checked Then 'DE
Dim DE_DIFFERENZ As Double = 2500000 ' UNBEKANNT DIFFENREZ!!!
'DE WOCHE 'DE WOCHE
Dim woche_de2 As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_DE_NEU) Dim woche_de2 As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_DE_NEU)
setLabel(lblDe2Woche, String.Format("{0:C}", CDbl(woche_de2))) 'NCTS_TR DE WOCHE
Dim DeWoche_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_DE_NEU)
setLabel(lblDe2Woche, String.Format("{0:C}", CDbl(woche_de2 + DeWoche_nctsTR + DE_DIFFERENZ)))
'DE TAG 'DE TAG
Dim tag_de2 As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_DE_NEU) Dim tag_de2 As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_DE_NEU)
setLabel(lblDe2Tag, String.Format("{0:C}", CDbl(tag_de2))) 'NCTS_TR AT TAG
Dim DetTag_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_DE_NEU)
setLabel(lblDe2Tag, String.Format("{0:C}", CDbl(tag_de2 + DetTag_nctsTR + DE_DIFFERENZ)))
Else Else
setLabel(lblDe2Woche, "0.0") setLabel(lblDe2Woche, "0.0")
setLabel(lblDe2Tag, "0.0") setLabel(lblDe2Tag, "0.0")
@@ -359,7 +376,7 @@ Public Class frmMain
'MsgBox(AtWoche_zolaris) 'MsgBox(AtWoche_zolaris)
'TELOTEC AT WOCHE 'TELOTEC AT WOCHE
Dim AtWoche_TELOTEC As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT) Dim AtWoche_TELOTEC As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT)
'TELOTEC AT WOCHE 'NCTS_TR AT WOCHE
Dim AtWoche_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT) Dim AtWoche_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT)
'AT WOCHE 'AT WOCHE
@@ -374,6 +391,11 @@ Public Class frmMain
Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT) Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT)
'NCTS_TR AT TAG 'NCTS_TR AT TAG
Dim AtTag_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT) Dim AtTag_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT)
'MsgBox("AtTag_zolaris: " & AtTag_zolaris)
'MsgBox("AtTag_atlas: " & AtTag_atlas)
'MsgBox("AtTag_telotec: " & AtTag_telotec)
'MsgBox("AtTag_nctsTR: " & AtTag_nctsTR)
'AT TAG 'AT TAG
Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec + AtTag_nctsTR Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec + AtTag_nctsTR
setLabel(lblAtTag, String.Format("{0:C}", CDbl(tag_at))) setLabel(lblAtTag, String.Format("{0:C}", CDbl(tag_at)))
@@ -439,6 +461,65 @@ Public Class frmMain
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_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_VERAG_CS.Checked Then 'AT VERAG CS
'ATLAS AT WOCHE
Dim AtWoche_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT_verag_cs)
'ZOLARIS AT WOCHE
Dim AtWoche_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT_verag_cs)
'TELOTEC AT WOCHE
Dim AtWoche_TELOTEC As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT_verag_cs)
'AT WOCHE
Dim woche_at As Double = AtWoche_atlas + AtWoche_zolaris + AtWoche_TELOTEC
setLabel(lblAtWocheVERAG_CS, 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_verag_cs, " 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_verag_cs)
'TELOTEC AT TAG
Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT_verag_cs)
'AT TAG
Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec
setLabel(lblAtTagVERAG_CS, String.Format("{0:C}", CDbl(tag_at)))
Else
setLabel(lblAtWocheVERAG_CS, "0.0")
setLabel(lblAtTagVERAG_CS, "0.0")
End If
If cbxBrg_at_UNISPED.Checked Then 'AT VERAG CS
'ATLAS AT WOCHE
Dim AtWoche_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_DE_UNISPED)
'ZOLARIS AT WOCHE
Dim AtWoche_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_DE_UNISPED)
'TELOTEC AT WOCHE
Dim AtWoche_TELOTEC As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_DE_UNISPED)
'AT WOCHE
Dim woche_at As Double = AtWoche_atlas + AtWoche_zolaris + AtWoche_TELOTEC
setLabel(lblAtWocheUNISPED, 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_DE_UNISPED, " AND DatumBestimmungErreicht IS NULL ")
'ATLAS AT TAG
Dim AtTag_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_DE_UNISPED)
'TELOTEC AT TAG
Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_DE_UNISPED)
'AT TAG
Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec
setLabel(lblAtTagUNISPED, String.Format("{0:C}", CDbl(tag_at)))
Else
setLabel(lblAtWocheUNISPED, "0.0")
setLabel(lblAtTagUNISPED, "0.0")
End If
' If cbxBrg_at_UNISPED.Checked Then setAlarm("UNISPED - gVV - HZA München UNISPED", "19", Me.lblAtTagUNISPED, cMonitoringBrg.brgusrset_gvvAt_UNISPED_tag_warn1, cMonitoringBrg.brgusrset_gvvAt_UNISPED_tag_warn2, cMonitoringBrg.brgusrset_gvvAt_UNISPED_de_summe, lblAt_tag_StatusUNISPED)
' If cbxBrg_at_UNISPED.Checked Then setAlarm("UNISPED - gVV - HZA München UNISPED", "19", Me.lblAtWocheUNISPED, cMonitoringBrg.brgusrset_gvvAt_UNISPED_woche_warn1, cMonitoringBrg.brgusrset_gvvAt_UNISPED_woche_warn2, cMonitoringBrg.brgusrset_gvvAt_UNISPED_de_summe, lblAt_woche_StatusUNISPED)
If cbxBrg_at_VERAG_CS.Checked Then setAlarm("VERAG CS | AT - gVV - HZA Linz/Wels Tagessaldo", "19", Me.lblAtTagVERAG_CS, cMonitoringBrg.brgusrset_gvvAt_VERAG_CS_tag_warn1, cMonitoringBrg.brgusrset_gvvAt_VERAG_CS_tag_warn2, cMonitoringBrg.brgusrset_gvvAt_VERAG_CS_de_summe, lblAt_tag_StatusVERAG_CS)
If cbxBrg_at_VERAG_CS.Checked Then setAlarm("VERAG CS | AT - gVV - HZA Linz/Wels Wochenreferenzsumme ", "19", Me.lblAtWocheVERAG_CS, cMonitoringBrg.brgusrset_gvvAt_VERAG_CS_woche_warn1, cMonitoringBrg.brgusrset_gvvAt_VERAG_CS_woche_warn2, cMonitoringBrg.brgusrset_gvvAt_VERAG_CS_de_summe, lblAt_woche_StatusVERAG_CS)
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) 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)
' If cbxBrg_de_VeragAG.Checked Then setAlarm("DE - gVV - HZA München Tagessaldo", "6_2", Me.lblDeTag, cMonitoringBrg.brgusrset_gvvDe_tag_warn1, cMonitoringBrg.brgusrset_gvvDe_tag_warn2, cMonitoringBrg.brgusrset_gvvDe_summe, lblDe_tag_Status) ' If cbxBrg_de_VeragAG.Checked Then setAlarm("DE - gVV - HZA München Tagessaldo", "6_2", Me.lblDeTag, cMonitoringBrg.brgusrset_gvvDe_tag_warn1, cMonitoringBrg.brgusrset_gvvDe_tag_warn2, cMonitoringBrg.brgusrset_gvvDe_summe, lblDe_tag_Status)
If cbxBrg_de2_VeragAG.Checked Then setAlarm("DE NEU - gVV - HZA München Tagessaldo", "6_2", Me.lblDe2Tag, cMonitoringBrg.brgusrset_gvvDe2_tag_warn1, cMonitoringBrg.brgusrset_gvvDe2_tag_warn2, cMonitoringBrg.brgusrset_gvvDe2_summe, lblDe2_tag_Status) If cbxBrg_de2_VeragAG.Checked Then setAlarm("DE NEU - gVV - HZA München Tagessaldo", "6_2", Me.lblDe2Tag, cMonitoringBrg.brgusrset_gvvDe2_tag_warn1, cMonitoringBrg.brgusrset_gvvDe2_tag_warn2, cMonitoringBrg.brgusrset_gvvDe2_summe, lblDe2_tag_Status)
@@ -1089,7 +1170,7 @@ Public Class frmMain
End Try End Try
Return True Return True
End Function End Function
Private Sub cbxBrg_de_VeragAG_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_de2_VeragAG.CheckedChanged, cbxBrg_at_VeragAG.CheckedChanged, cbxAufschub_de_VeragAG.CheckedChanged, cbxAufschub_at_VeragAG.CheckedChanged, cbxAufschub_at_VeragCS.CheckedChanged, cbxAufschub_at_VeragZS.CheckedChanged, cbxAufschubEUST_de_VeragAG.CheckedChanged, cbxAufschubEUST_de_Imex.CheckedChanged, cbxAufschubEUST_de_Global.CheckedChanged, cbxAufschub_de_Unisped.CheckedChanged, cbxAufschubEUST_de_Unisped.CheckedChanged, cbxAufschub_de_UnispedDE.CheckedChanged, cbxAufschubEUST_de_UnispedDE.CheckedChanged, cbxAufschub_at_IMEX.CheckedChanged, cbxBrg_at_UNISPED.CheckedChanged, cbxBrg_at_Atilla.CheckedChanged, cbxBrg_at_Imex.CheckedChanged Private Sub cbxBrg_de_VeragAG_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_de2_VeragAG.CheckedChanged, cbxBrg_at_VeragAG.CheckedChanged, cbxAufschub_de_VeragAG.CheckedChanged, cbxAufschub_at_VeragAG.CheckedChanged, cbxAufschub_at_VeragCS.CheckedChanged, cbxAufschub_at_VeragZS.CheckedChanged, cbxAufschubEUST_de_VeragAG.CheckedChanged, cbxAufschubEUST_de_Imex.CheckedChanged, cbxAufschubEUST_de_Global.CheckedChanged, cbxAufschub_de_Unisped.CheckedChanged, cbxAufschubEUST_de_Unisped.CheckedChanged, cbxAufschub_de_UnispedDE.CheckedChanged, cbxAufschubEUST_de_UnispedDE.CheckedChanged, cbxAufschub_at_IMEX.CheckedChanged, cbxBrg_at_UNISPED.CheckedChanged, cbxBrg_at_VERAG_CS.CheckedChanged, cbxBrg_at_Atilla.CheckedChanged, cbxBrg_at_Imex.CheckedChanged
'MsgBox(sender.name) 'MsgBox(sender.name)
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
If loaded Then If loaded Then
@@ -1142,13 +1223,15 @@ Public Class frmMain
End Sub End Sub
Private Sub lblAufschubBrg_at_VeragAG_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_at_VeragAG.Click Private Sub lblAufschubBrg_at_VeragAG_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_at_VeragAG.Click
Dim brg_AT_VeragAG As String = "3025365" If cbxAufschub_at_VeragAG.Checked Then
Dim von As Date = DateSerial(Now.Year, Now.Month, 1) Dim brg_AT_VeragAG As String = "3025365"
Dim vonbrg As Date = von Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
If Now.Day <= 15 Then vonbrg = von.AddMonths(-1) Dim vonbrg As Date = von
frmShowData.Show() If Now.Day <= 15 Then vonbrg = von.AddMonths(-1)
frmShowData.dgv.DataSource = BRG.loadDgvBySqlZOLARIS(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_VeragAG) frmShowData.Show()
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount frmShowData.dgv.DataSource = BRG.loadDgvBySqlZOLARIS(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_VeragAG)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
End If
End Sub End Sub
Private Sub lblAufschubAkt_at_VeragCS_Click(sender As Object, e As EventArgs) Handles lblAufschubAkt_at_VeragCS.Click Private Sub lblAufschubAkt_at_VeragCS_Click(sender As Object, e As EventArgs) Handles lblAufschubAkt_at_VeragCS.Click
@@ -1160,13 +1243,15 @@ Public Class frmMain
End Sub End Sub
Private Sub lblAufschubBrg_at_VeragCS_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_at_VeragCS.Click Private Sub lblAufschubBrg_at_VeragCS_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_at_VeragCS.Click
Dim brg_AT_VeragCS As String = "3517233" If cbxAufschub_at_VeragCS.Checked Then
Dim von As Date = DateSerial(Now.Year, Now.Month, 1) Dim brg_AT_VeragCS As String = "3517233"
Dim vonbrg As Date = von Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
If Now.Day <= 15 Then vonbrg = von.AddMonths(-1) Dim vonbrg As Date = von
frmShowData.Show() If Now.Day <= 15 Then vonbrg = von.AddMonths(-1)
frmShowData.dgv.DataSource = BRG.loadDgvBySqlZOLARIS(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_VeragCS) frmShowData.Show()
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount frmShowData.dgv.DataSource = BRG.loadDgvBySqlZOLARIS(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_VeragCS)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
End If
End Sub End Sub
Private Sub lblAufschubAkt_at_VeragZS_Click(sender As Object, e As EventArgs) Handles lblAufschubAkt_at_VeragZS.Click Private Sub lblAufschubAkt_at_VeragZS_Click(sender As Object, e As EventArgs) Handles lblAufschubAkt_at_VeragZS.Click
@@ -1178,13 +1263,15 @@ Public Class frmMain
End Sub End Sub
Private Sub lblAufschubBrg_at_VeragZS_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_at_VeragZS.Click Private Sub lblAufschubBrg_at_VeragZS_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_at_VeragZS.Click
Dim brg_AT_VeragZS As String = "3026400" If cbxAufschub_at_VeragZS.Checked Then
Dim von As Date = DateSerial(Now.Year, Now.Month, 1) Dim brg_AT_VeragZS As String = "3026400"
Dim vonbrg As Date = von Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
If Now.Day <= 15 Then vonbrg = von.AddMonths(-1) Dim vonbrg As Date = von
frmShowData.Show() If Now.Day <= 15 Then vonbrg = von.AddMonths(-1)
frmShowData.dgv.DataSource = BRG.loadDgvBySqlZOLARIS(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_VeragZS) frmShowData.Show()
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount frmShowData.dgv.DataSource = BRG.loadDgvBySqlZOLARIS(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_VeragZS)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
End If
End Sub End Sub
Private Sub lblAufschubAkt_de_VeragAG_Click(sender As Object, e As EventArgs) Handles lblAufschubAkt_de_VeragAG.Click Private Sub lblAufschubAkt_de_VeragAG_Click(sender As Object, e As EventArgs) Handles lblAufschubAkt_de_VeragAG.Click
@@ -1197,7 +1284,9 @@ Public Class frmMain
End Sub End Sub
Private Sub lblAufschubBrg_de_VeragAG_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_de_VeragAG.Click Private Sub lblAufschubBrg_de_VeragAG_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_de_VeragAG.Click
Dim brg_DE_VeragAG As String = "1" If cbxAufschub_de_VeragAG.Checked Then
Dim brg_DE_VeragAG As String = "1"
Dim von As Date = DateSerial(Now.Year, Now.Month, 1) Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
Dim vonbrg As Date = von Dim vonbrg As Date = von
Dim vonFaell As Date = von Dim vonFaell As Date = von
@@ -1214,9 +1303,10 @@ Public Class frmMain
faelligkeitWhere &= ") " faelligkeitWhere &= ") "
frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto_Faelligkeit(faelligkeitWhere, brg_DE_VeragAG) frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto_Faelligkeit(faelligkeitWhere, brg_DE_VeragAG)
' frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG) ' frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
End If
End Sub End Sub
Private Sub lblDeTag_Click(sender As Object, e As EventArgs) Private Sub lblDeTag_Click(sender As Object, e As EventArgs)
@@ -1233,40 +1323,51 @@ Public Class frmMain
End Sub End Sub
Private Sub lblAtTag_Click(sender As Object, e As EventArgs) Handles lblAtTag.Click Private Sub lblAtTag_Click(sender As Object, e As EventArgs) Handles lblAtTag.Click
Dim brg_AT As String = "05AT510000G000FP7" If cbxBrg_at_VeragAG.Checked Then
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddMonths(-3), Now) Dim brg_AT As String = "05AT510000G000FP7"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddMonths(-3), Now)
frmShowData.Show() frmShowData.Show()
End If
' frmShowDataDouble.dgv1.DataSource = BRG.loadDgvBySqlFromBrgKtoAtlas(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT) ' frmShowDataDouble.dgv1.DataSource = BRG.loadDgvBySqlFromBrgKtoAtlas(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT)
' frmShowDataDouble.dgv2.DataSource = BRG.loadDgvBySqlFromBrgKtoUnionEZoll(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT) ' frmShowDataDouble.dgv2.DataSource = BRG.loadDgvBySqlFromBrgKtoUnionEZoll(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT)
' frmShowDataDouble.Label2.Text = "Anzahl: " & (frmShowDataDouble.dgv2.RowCount + frmShowDataDouble.dgv2.RowCount) ' frmShowDataDouble.Label2.Text = "Anzahl: " & (frmShowDataDouble.dgv2.RowCount + frmShowDataDouble.dgv2.RowCount)
End Sub End Sub
Private Sub lblAtTagimex_Click(sender As Object, e As EventArgs) Handles lblAtTagImex.Click Private Sub lblAtTagimex_Click(sender As Object, e As EventArgs) Handles lblAtTagImex.Click
Dim brg_AT As String = "16AT520000G000VA6" If cbxBrg_at_Imex.Checked Then
Dim brg_AT As String = "16AT520000G000VA6"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddMonths(-3), Now) Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddMonths(-3), Now)
frmShowData.Show() frmShowData.Show()
End If
' frmShowDataDouble.dgv1.DataSource = BRG.loadDgvBySqlFromBrgKtoAtlas(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT) ' frmShowDataDouble.dgv1.DataSource = BRG.loadDgvBySqlFromBrgKtoAtlas(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT)
' frmShowDataDouble.dgv2.DataSource = BRG.loadDgvBySqlFromBrgKtoUnionEZoll(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT) ' frmShowDataDouble.dgv2.DataSource = BRG.loadDgvBySqlFromBrgKtoUnionEZoll(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT)
' frmShowDataDouble.Label2.Text = "Anzahl: " & (frmShowDataDouble.dgv2.RowCount + frmShowDataDouble.dgv2.RowCount) ' frmShowDataDouble.Label2.Text = "Anzahl: " & (frmShowDataDouble.dgv2.RowCount + frmShowDataDouble.dgv2.RowCount)
End Sub End Sub
Private Sub lblAtWoche_Click(sender As Object, e As EventArgs) Handles lblAtWoche.Click Private Sub lblAtWoche_Click(sender As Object, e As EventArgs) Handles lblAtWoche.Click
Dim brg_AT As String = "05AT510000G000FP7" If cbxBrg_at_VeragAG.Checked Then
Dim brg_AT As String = "05AT510000G000FP7"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now) Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now)
frmShowData.Show() frmShowData.Show()
End If
' frmShowDataDouble.Show() ' frmShowDataDouble.Show()
' frmShowDataDouble.dgv1.DataSource = BRG.loadDgvBySqlFromBrgKtoAtlas(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT) ' frmShowDataDouble.dgv1.DataSource = BRG.loadDgvBySqlFromBrgKtoAtlas(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT)
' frmShowDataDouble.dgv2.DataSource = BRG.loadDgvBySqlFromBrgKtoUnionEZoll(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT) ' frmShowDataDouble.dgv2.DataSource = BRG.loadDgvBySqlFromBrgKtoUnionEZoll(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT)
' frmShowDataDouble.Label2.Text = "Anzahl: " & (frmShowDataDouble.dgv2.RowCount + frmShowDataDouble.dgv2.RowCount) ' frmShowDataDouble.Label2.Text = "Anzahl: " & (frmShowDataDouble.dgv2.RowCount + frmShowDataDouble.dgv2.RowCount)
End Sub End Sub
Private Sub lblAtWocheimex_Click(sender As Object, e As EventArgs) Handles lblAtWocheImex.Click Private Sub lblAtWocheimex_Click(sender As Object, e As EventArgs) Handles lblAtWocheImex.Click
Dim brg_AT As String = "16AT520000G000VA6" If cbxBrg_at_Imex.Checked Then
Dim brg_AT As String = "16AT520000G000VA6"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now) Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now)
frmShowData.Show() frmShowData.Show()
End If
' frmShowDataDouble.Show() ' frmShowDataDouble.Show()
' frmShowDataDouble.dgv1.DataSource = BRG.loadDgvBySqlFromBrgKtoAtlas(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT) ' frmShowDataDouble.dgv1.DataSource = BRG.loadDgvBySqlFromBrgKtoAtlas(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT)
@@ -1319,15 +1420,19 @@ Public Class frmMain
End Sub End Sub
Private Sub lblDe2Tag_Click(sender As Object, e As EventArgs) Handles lblDe2Tag.Click Private Sub lblDe2Tag_Click(sender As Object, e As EventArgs) Handles lblDe2Tag.Click
Dim brg_DE_NEU As String = "17DE0000000071678" If cbxBrg_de2_VeragAG.Checked Then
Dim frmShowData = New frmShowData("BRG", brg_DE_NEU, Now.AddMonths(-3), Now) Dim brg_DE_NEU As String = "17DE0000000071678"
frmShowData.Show() Dim frmShowData = New frmShowData("BRG", brg_DE_NEU, Now.AddMonths(-3), Now)
frmShowData.Show()
End If
End Sub End Sub
Private Sub lblDe2Woche_Click(sender As Object, e As EventArgs) Handles lblDe2Woche.Click Private Sub lblDe2Woche_Click(sender As Object, e As EventArgs) Handles lblDe2Woche.Click
Dim brg_DE_NEU As String = "17DE0000000071678" If cbxBrg_de2_VeragAG.Checked Then
Dim frmShowData = New frmShowData("BRG", brg_DE_NEU, Now.AddDays(-6), Now) Dim brg_DE_NEU As String = "17DE0000000071678"
frmShowData.Show() Dim frmShowData = New frmShowData("BRG", brg_DE_NEU, Now.AddDays(-6), Now)
frmShowData.Show()
End If
End Sub End Sub
Private Sub Button3_Click_3(sender As Object, e As EventArgs) Handles btnBelastungAufheben.Click Private Sub Button3_Click_3(sender As Object, e As EventArgs) Handles btnBelastungAufheben.Click
@@ -1363,7 +1468,9 @@ Public Class frmMain
End Sub End Sub
Private Sub lblAufschubBrg_de_Imex_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_de_Imex.Click Private Sub lblAufschubBrg_de_Imex_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_de_Imex.Click
Dim brg_DE_Imex As String = "8" If cbxAufschub_de_Imex.Checked Then
Dim brg_DE_Imex As String = "8"
Dim von As Date = DateSerial(Now.Year, Now.Month, 1) Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
Dim vonbrg As Date = von Dim vonbrg As Date = von
Dim vonFaell As Date = von Dim vonFaell As Date = von
@@ -1382,19 +1489,24 @@ Public Class frmMain
frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto_Faelligkeit(faelligkeitWhere, brg_DE_Imex) frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto_Faelligkeit(faelligkeitWhere, brg_DE_Imex)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
End If
End Sub End Sub
Private Sub lblAtTagAtilla_Click(sender As Object, e As EventArgs) Handles lblAtTagAtilla.Click Private Sub lblAtTagAtilla_Click(sender As Object, e As EventArgs) Handles lblAtTagAtilla.Click
Dim brg_AT As String = "20AT520000G000092" If cbxBrg_at_Atilla.Checked Then
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddMonths(-3), Now) Dim brg_AT As String = "20AT520000G000092"
frmShowData.Show() Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddMonths(-3), Now)
frmShowData.Show()
End If
End Sub End Sub
Private Sub lblAtWocheAtilla_Click(sender As Object, e As EventArgs) Handles lblAtWocheAtilla.Click Private Sub lblAtWocheAtilla_Click(sender As Object, e As EventArgs) Handles lblAtWocheAtilla.Click
Dim brg_AT As String = "20AT520000G000092" If cbxBrg_at_Atilla.Checked Then
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now) Dim brg_AT As String = "20AT520000G000092"
frmShowData.Show() Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now)
frmShowData.Show()
End If
End Sub End Sub
Dim secondmonitorSelected = False Dim secondmonitorSelected = False
@@ -1424,11 +1536,121 @@ Public Class frmMain
End Sub End Sub
Private Sub lblAufschubBrgEUST_de_UNISPEDDE_Click(sender As Object, e As EventArgs) Handles lblAufschubBrgEUST_de_UNISPEDDE.Click Private Sub lblAufschubBrgEUST_de_UNISPEDDE_Click(sender As Object, e As EventArgs) Handles lblAufschubBrgEUST_de_UNISPEDDE.Click
Dim frmShowData As New frmShowData If cbxAufschubEUST_de_UnispedDE.Checked Then
frmShowData.dgv.DataSource = getAufschubDT("EUST", 17) Dim frmShowData As New frmShowData
frmShowData.dgv.DataSource = getAufschubDT("EUST", 15)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
frmShowData.Show() frmShowData.Show()
End If
End Sub
Private Sub lblAufschubBrgEUST_de_VeragAG_Click(sender As Object, e As EventArgs) Handles lblAufschubBrgEUST_de_VeragAG.Click
If cbxAufschubEUST_de_VeragAG.Checked Then
Dim frmShowData As New frmShowData
frmShowData.dgv.DataSource = getAufschubDT("EUST", 11)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
frmShowData.Show()
End If
End Sub
Private Sub Panel2_Paint(sender As Object, e As PaintEventArgs) Handles Panel2.Paint
End Sub
Private Sub lblAufschubBrgEUST_de_global_Click(sender As Object, e As EventArgs) Handles lblAufschubBrgEUST_de_global.Click
If cbxAufschubEUST_de_Global.Checked Then
Dim frmShowData As New frmShowData
frmShowData.dgv.DataSource = getAufschubDT("EUST", 10)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
frmShowData.Show()
End If
End Sub
Private Sub lblAufschubBrgEUST_de_Imex_Click(sender As Object, e As EventArgs) Handles lblAufschubBrgEUST_de_Imex.Click
If cbxAufschubEUST_de_Imex.Checked Then
Dim frmShowData As New frmShowData
frmShowData.dgv.DataSource = getAufschubDT("EUST", 12)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
frmShowData.Show()
End If
End Sub
Private Sub lblAufschubBrgEUST_de_UNISPED_Click(sender As Object, e As EventArgs) Handles lblAufschubBrgEUST_de_UNISPED.Click
If cbxAufschubEUST_de_Unisped.Checked Then
Dim frmShowData As New frmShowData
frmShowData.dgv.DataSource = getAufschubDT("EUST", 17)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
frmShowData.Show()
End If
End Sub
Private Sub lblAufschubBrg_de_UNISPED_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_de_UNISPED.Click
If cbxAufschub_de_Unisped.Checked Then
Dim frmShowData As New frmShowData
frmShowData.dgv.DataSource = getAufschubDT("ZOLL", 16)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
frmShowData.Show()
End If
End Sub
Private Sub lblAufschubBrg_de_UNISPEDDE_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_de_UNISPEDDE.Click
If cbxAufschub_de_UnispedDE.Checked Then
Dim frmShowData As New frmShowData
frmShowData.dgv.DataSource = getAufschubDT("ZOLL", 14)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
frmShowData.Show()
End If
End Sub
Private Sub lblAtTagUNISPED_Click(sender As Object, e As EventArgs) Handles lblAtTagUNISPED.Click
If cbxBrg_at_UNISPED.Checked Then
Dim brg_AT As String = "17DE0000000071270"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddMonths(-3), Now)
frmShowData.Show()
End If
End Sub
Private Sub lblAtTagVERAG_CS_Click(sender As Object, e As EventArgs) Handles lblAtTagVERAG_CS.Click
If cbxBrg_at_VERAG_CS.Checked Then
Dim brg_AT As String = "22AT600000G0000H4"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddMonths(-3), Now)
frmShowData.Show()
End If
End Sub
Private Sub lblAtWocheVERAG_CS_Click(sender As Object, e As EventArgs) Handles lblAtWocheVERAG_CS.Click
If cbxBrg_at_VERAG_CS.Checked Then
Dim brg_AT As String = "22AT600000G0000H4"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now)
frmShowData.Show()
End If
End Sub
Private Sub lblAtWocheUNISPED_Click(sender As Object, e As EventArgs) Handles lblAtWocheUNISPED.Click
If cbxBrg_at_UNISPED.Checked Then
Dim brg_AT As String = "17DE0000000071270"
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now)
frmShowData.Show()
End If
End Sub
Private Sub lblAufschubBrg_at_IMEX_Click(sender As Object, e As EventArgs) Handles lblAufschubBrg_at_IMEX.Click
If cbxAufschub_at_IMEX.Checked Then
Dim brg_AT_VeragZS As String = "3027279"
Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
Dim vonbrg As Date = von
If Now.Day <= 15 Then vonbrg = von.AddMonths(-1)
frmShowData.Show()
frmShowData.dgv.DataSource = BRG.loadDgvBySqlZOLARIS(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_VeragZS)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
End If
End Sub End Sub
End Class End Class

93
VERAGMonitoring/frmShowData.Designer.vb generated
View File

@@ -32,10 +32,10 @@ Partial Class frmShowData
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.TabPage3 = New System.Windows.Forms.TabPage() Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.TabPage4 = New System.Windows.Forms.TabPage() Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.NCTS_TR = New System.Windows.Forms.TabPage()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.NCTS_TR = New System.Windows.Forms.TabPage()
CType(Me.dgv, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgv, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.tbcntr.SuspendLayout() Me.tbcntr.SuspendLayout()
@@ -49,10 +49,12 @@ Partial Class frmShowData
Me.dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.ColumnHeader Me.dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.ColumnHeader
Me.dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgv.Dock = System.Windows.Forms.DockStyle.Fill Me.dgv.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgv.Location = New System.Drawing.Point(0, 55) Me.dgv.Location = New System.Drawing.Point(0, 85)
Me.dgv.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.dgv.Name = "dgv" Me.dgv.Name = "dgv"
Me.dgv.ReadOnly = True Me.dgv.ReadOnly = True
Me.dgv.Size = New System.Drawing.Size(1056, 831) Me.dgv.RowHeadersWidth = 62
Me.dgv.Size = New System.Drawing.Size(1584, 1278)
Me.dgv.TabIndex = 1 Me.dgv.TabIndex = 1
' '
'Panel1 'Panel1
@@ -65,24 +67,27 @@ Partial Class frmShowData
Me.Panel1.Controls.Add(Me.Label1) Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1056, 55) Me.Panel1.Size = New System.Drawing.Size(1584, 85)
Me.Panel1.TabIndex = 2 Me.Panel1.TabIndex = 2
' '
'datBIS 'datBIS
' '
Me.datBIS.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.datBIS.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datBIS.Location = New System.Drawing.Point(448, 13) Me.datBIS.Location = New System.Drawing.Point(672, 20)
Me.datBIS.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.datBIS.Name = "datBIS" Me.datBIS.Name = "datBIS"
Me.datBIS.Size = New System.Drawing.Size(94, 20) Me.datBIS.Size = New System.Drawing.Size(139, 26)
Me.datBIS.TabIndex = 4 Me.datBIS.TabIndex = 4
' '
'datVON 'datVON
' '
Me.datVON.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.datVON.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datVON.Location = New System.Drawing.Point(245, 13) Me.datVON.Location = New System.Drawing.Point(368, 20)
Me.datVON.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.datVON.Name = "datVON" Me.datVON.Name = "datVON"
Me.datVON.Size = New System.Drawing.Size(94, 20) Me.datVON.Size = New System.Drawing.Size(139, 26)
Me.datVON.TabIndex = 4 Me.datVON.TabIndex = 4
' '
'tbcntr 'tbcntr
@@ -94,56 +99,73 @@ Partial Class frmShowData
Me.tbcntr.Controls.Add(Me.TabPage3) Me.tbcntr.Controls.Add(Me.TabPage3)
Me.tbcntr.Controls.Add(Me.TabPage4) Me.tbcntr.Controls.Add(Me.TabPage4)
Me.tbcntr.Controls.Add(Me.NCTS_TR) Me.tbcntr.Controls.Add(Me.NCTS_TR)
Me.tbcntr.Location = New System.Drawing.Point(0, 31) Me.tbcntr.Location = New System.Drawing.Point(0, 48)
Me.tbcntr.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.tbcntr.Name = "tbcntr" Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0 Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(1053, 26) Me.tbcntr.Size = New System.Drawing.Size(1580, 40)
Me.tbcntr.TabIndex = 3 Me.tbcntr.TabIndex = 3
' '
'TabPage2 'TabPage2
' '
Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Location = New System.Drawing.Point(4, 29)
Me.TabPage2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.TabPage2.Name = "TabPage2" Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) Me.TabPage2.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.TabPage2.Size = New System.Drawing.Size(1045, 0) Me.TabPage2.Size = New System.Drawing.Size(1572, 7)
Me.TabPage2.TabIndex = 1 Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "DAKOSY" Me.TabPage2.Text = "DAKOSY"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True
' '
'TabPage1 'TabPage1
' '
Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Location = New System.Drawing.Point(4, 29)
Me.TabPage1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.TabPage1.Name = "TabPage1" Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) Me.TabPage1.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.TabPage1.Size = New System.Drawing.Size(1045, 0) Me.TabPage1.Size = New System.Drawing.Size(1572, 7)
Me.TabPage1.TabIndex = 0 Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "BLUJAY" Me.TabPage1.Text = "BLUJAY"
Me.TabPage1.UseVisualStyleBackColor = True Me.TabPage1.UseVisualStyleBackColor = True
' '
'TabPage3 'TabPage3
' '
Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Location = New System.Drawing.Point(4, 29)
Me.TabPage3.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.TabPage3.Name = "TabPage3" Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(1045, 0) Me.TabPage3.Size = New System.Drawing.Size(1572, 7)
Me.TabPage3.TabIndex = 2 Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "EZOLL" Me.TabPage3.Text = "EZOLL"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
' '
'TabPage4 'TabPage4
' '
Me.TabPage4.Location = New System.Drawing.Point(4, 22) Me.TabPage4.Location = New System.Drawing.Point(4, 29)
Me.TabPage4.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.TabPage4.Name = "TabPage4" Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) Me.TabPage4.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.TabPage4.Size = New System.Drawing.Size(1045, 0) Me.TabPage4.Size = New System.Drawing.Size(1572, 7)
Me.TabPage4.TabIndex = 3 Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "TELOTEC" Me.TabPage4.Text = "TELOTEC"
Me.TabPage4.UseVisualStyleBackColor = True Me.TabPage4.UseVisualStyleBackColor = True
' '
'NCTS_TR
'
Me.NCTS_TR.Location = New System.Drawing.Point(4, 29)
Me.NCTS_TR.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.NCTS_TR.Name = "NCTS_TR"
Me.NCTS_TR.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.NCTS_TR.Size = New System.Drawing.Size(1572, 7)
Me.NCTS_TR.TabIndex = 4
Me.NCTS_TR.Text = "NCTS_FREMD"
Me.NCTS_TR.UseVisualStyleBackColor = True
'
'Button1 'Button1
' '
Me.Button1.Location = New System.Drawing.Point(599, 5) Me.Button1.Location = New System.Drawing.Point(898, 8)
Me.Button1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(123, 23) Me.Button1.Size = New System.Drawing.Size(184, 35)
Me.Button1.TabIndex = 1 Me.Button1.TabIndex = 1
Me.Button1.Text = "In Excel konvertieren" Me.Button1.Text = "In Excel konvertieren"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.TopCenter Me.Button1.TextAlign = System.Drawing.ContentAlignment.TopCenter
@@ -152,9 +174,10 @@ Partial Class frmShowData
'Label2 'Label2
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(956, 9) Me.Label2.Location = New System.Drawing.Point(1434, 14)
Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(42, 13) Me.Label2.Size = New System.Drawing.Size(62, 20)
Me.Label2.TabIndex = 0 Me.Label2.TabIndex = 0
Me.Label2.Text = "Anzahl:" Me.Label2.Text = "Anzahl:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopCenter Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopCenter
@@ -163,30 +186,22 @@ Partial Class frmShowData
' '
Me.Label1.AutoSize = True Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(3, 9) Me.Label1.Location = New System.Drawing.Point(4, 14)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(75, 13) Me.Label1.Size = New System.Drawing.Size(111, 20)
Me.Label1.TabIndex = 0 Me.Label1.TabIndex = 0
Me.Label1.Text = "Datensätze:" Me.Label1.Text = "Datensätze:"
' '
'NCTS_TR
'
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 'frmShowData
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1056, 886) Me.ClientSize = New System.Drawing.Size(1584, 1363)
Me.Controls.Add(Me.dgv) Me.Controls.Add(Me.dgv)
Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.Panel1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Name = "frmShowData" Me.Name = "frmShowData"
Me.Text = "Details" Me.Text = "Details"
CType(Me.dgv, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgv, System.ComponentModel.ISupportInitialize).EndInit()

4
VERAGMonitoring/frmShowData.vb
View File

@@ -106,7 +106,7 @@ Public Class frmShowData
dgv.Columns("veoerz_basbtg").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight dgv.Columns("veoerz_basbtg").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
End If End If
Case 2 'EZOLL DHF Case 2 'EZOLL DHF
dgv.DataSource = BRG.loadDgvBySqlFromBrgKtoUnionEZoll(datVON.Value.ToShortDateString, datBIS.Value.ToShortDateString, "50", "50", BRG_GRN) dgv.DataSource = BRG.loadDgvBySqlFromBrgKtoUnionEZoll(datVON.Value.ToShortDateString, datBIS.Value.ToShortDateString, "50", "50", BRG_GRN, " AND DatumBestimmungErreicht IS NULL ")
If dgv.Columns.Count > 0 Then If dgv.Columns.Count > 0 Then
dgv.Columns("GarantieWert").DefaultCellStyle.Format = "N2" dgv.Columns("GarantieWert").DefaultCellStyle.Format = "N2"
dgv.Columns("Gesamtrohmasse").DefaultCellStyle.Format = "N2" dgv.Columns("Gesamtrohmasse").DefaultCellStyle.Format = "N2"
@@ -119,7 +119,7 @@ Public Class frmShowData
dgv.Columns("Betrag").DefaultCellStyle.Format = "N2" dgv.Columns("Betrag").DefaultCellStyle.Format = "N2"
dgv.Columns("Betrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight dgv.Columns("Betrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
End If End If
Case 4 'NCTS_TR TELOTEC Case 4 'NCTS_TR
dgv.DataSource = BRG.loadDgvBySqlFromBrgKt_NCTS_TR_Details(datVON.Value.ToShortDateString, datBIS.Value.ToShortDateString, "50", "50", BRG_GRN) dgv.DataSource = BRG.loadDgvBySqlFromBrgKt_NCTS_TR_Details(datVON.Value.ToShortDateString, datBIS.Value.ToShortDateString, "50", "50", BRG_GRN)
If dgv.Columns.Count > 0 Then If dgv.Columns.Count > 0 Then
dgv.Columns("nctsSA_AbgabenBetrag").DefaultCellStyle.Format = "N2" dgv.Columns("nctsSA_AbgabenBetrag").DefaultCellStyle.Format = "N2"

BIN
initATLASAufschubkonten/Resources/Muster_IDS_PLATTSPR.xls Normal file
View File

Binary file not shown.

3
initATLASAufschubkonten/RoutineManager.vbproj
View File

@@ -267,6 +267,9 @@
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Content Include="admin_monitoring.ico" /> <Content Include="admin_monitoring.ico" />
<None Include="Resources\Muster_IDS_PLATTSPR.xls">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\ok.png" /> <None Include="Resources\ok.png" />
<None Include="Resources\del.png" /> <None Include="Resources\del.png" />
<None Include="Resources\start.png" /> <None Include="Resources\start.png" />

1
initATLASAufschubkonten/cBuergschaften.vb
View File

@@ -154,6 +154,7 @@ Public Class cBuergschaften
Dim dr As SqlDataReader Dim dr As SqlDataReader
Dim sql As String = "SELECT * FROM ezoll.dbo.vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme" Dim sql As String = "SELECT * FROM ezoll.dbo.vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme"
If Not history Then sql &= " WHERE [AnmeldungsDatum] > DATEADD(DAY, - 10, GETDATE()) AND CRN is not null " 'letzten 10 Tage If Not history Then sql &= " WHERE [AnmeldungsDatum] > DATEADD(DAY, - 10, GETDATE()) AND CRN is not null " 'letzten 10 Tage
If history Then sql &= " WHERE [AnmeldungsDatum] > DATEADD(MONTH, - 6, GETDATE()) AND CRN is not null " 'letzten 6 Monate
Dim sqlConn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionEZOLL Dim sqlConn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionEZOLL
' setLabel(frmAtlasAufschub.lbBrgAtlasSuben, "einlesen ...") ' setLabel(frmAtlasAufschub.lbBrgAtlasSuben, "einlesen ...")

159
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -25,6 +25,11 @@ Partial Class frmStartOptions
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
Me.Button14 = New System.Windows.Forms.Button()
Me.Label20 = New System.Windows.Forms.Label()
Me.Label19 = New System.Windows.Forms.Label()
Me.Label18 = New System.Windows.Forms.Label()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.LinkLabel36 = New System.Windows.Forms.LinkLabel() Me.LinkLabel36 = New System.Windows.Forms.LinkLabel()
Me.Button13 = New System.Windows.Forms.Button() Me.Button13 = New System.Windows.Forms.Button()
Me.Button12 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button()
@@ -52,6 +57,7 @@ Partial Class frmStartOptions
Me.CheckBox3 = New System.Windows.Forms.CheckBox() Me.CheckBox3 = New System.Windows.Forms.CheckBox()
Me.tbcntr = New System.Windows.Forms.TabControl() Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.Button15 = New System.Windows.Forms.Button()
Me.Button8 = New System.Windows.Forms.Button() Me.Button8 = New System.Windows.Forms.Button()
Me.LinkLabel28 = New System.Windows.Forms.LinkLabel() Me.LinkLabel28 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel4 = New System.Windows.Forms.LinkLabel() Me.LinkLabel4 = New System.Windows.Forms.LinkLabel()
@@ -149,9 +155,7 @@ Partial Class frmStartOptions
Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() Me.LinkLabel3 = New System.Windows.Forms.LinkLabel()
Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
Me.lblRoutineManager = New System.Windows.Forms.Label() Me.lblRoutineManager = New System.Windows.Forms.Label()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button16 = New System.Windows.Forms.Button()
Me.Label18 = New System.Windows.Forms.Label()
Me.Label19 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tbcntr.SuspendLayout() Me.tbcntr.SuspendLayout()
@@ -181,6 +185,9 @@ Partial Class frmStartOptions
' '
Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.Button16)
Me.pnl.Controls.Add(Me.Button14)
Me.pnl.Controls.Add(Me.Label20)
Me.pnl.Controls.Add(Me.Label19) Me.pnl.Controls.Add(Me.Label19)
Me.pnl.Controls.Add(Me.Label18) Me.pnl.Controls.Add(Me.Label18)
Me.pnl.Controls.Add(Me.MyTextBox2) Me.pnl.Controls.Add(Me.MyTextBox2)
@@ -239,6 +246,68 @@ Partial Class frmStartOptions
Me.pnl.Size = New System.Drawing.Size(861, 827) Me.pnl.Size = New System.Drawing.Size(861, 827)
Me.pnl.TabIndex = 0 Me.pnl.TabIndex = 0
' '
'Button14
'
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button14.Location = New System.Drawing.Point(268, 340)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(143, 24)
Me.Button14.TabIndex = 67
Me.Button14.Text = "Buchungen LDV --> BMD"
Me.Button14.UseVisualStyleBackColor = True
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label20.Location = New System.Drawing.Point(265, 324)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(146, 13)
Me.Label20.TabIndex = 66
Me.Label20.Text = "Routine Manager AWOR"
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.Location = New System.Drawing.Point(205, 155)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(67, 13)
Me.Label19.TabIndex = 65
Me.Label19.Text = "Tage zurück"
'
'Label18
'
Me.Label18.AutoSize = True
Me.Label18.Location = New System.Drawing.Point(206, 135)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(27, 13)
Me.Label18.TabIndex = 64
Me.Label18.Text = "Max"
'
'MyTextBox2
'
Me.MyTextBox2._DateTimeOnly = False
Me.MyTextBox2._numbersOnly = True
Me.MyTextBox2._numbersOnlyKommastellen = ""
Me.MyTextBox2._Prozent = False
Me.MyTextBox2._ShortDateNew = False
Me.MyTextBox2._ShortDateOnly = False
Me.MyTextBox2._TimeOnly = False
Me.MyTextBox2._TimeOnly_Seconds = False
Me.MyTextBox2._value = ""
Me.MyTextBox2._Waehrung = False
Me.MyTextBox2._WaehrungZeichen = True
Me.MyTextBox2.ForeColor = System.Drawing.Color.Red
Me.MyTextBox2.Location = New System.Drawing.Point(151, 152)
Me.MyTextBox2.MaxLineLength = -1
Me.MyTextBox2.MaxLines_Warning = ""
Me.MyTextBox2.MaxLines_Warning_Label = Nothing
Me.MyTextBox2.Name = "MyTextBox2"
Me.MyTextBox2.Size = New System.Drawing.Size(53, 20)
Me.MyTextBox2.TabIndex = 63
'
'LinkLabel36 'LinkLabel36
' '
Me.LinkLabel36.AutoSize = True Me.LinkLabel36.AutoSize = True
@@ -294,6 +363,7 @@ Partial Class frmStartOptions
Me.txtSyskaWdhDateiname._ShortDateNew = False Me.txtSyskaWdhDateiname._ShortDateNew = False
Me.txtSyskaWdhDateiname._ShortDateOnly = False Me.txtSyskaWdhDateiname._ShortDateOnly = False
Me.txtSyskaWdhDateiname._TimeOnly = False Me.txtSyskaWdhDateiname._TimeOnly = False
Me.txtSyskaWdhDateiname._TimeOnly_Seconds = False
Me.txtSyskaWdhDateiname._value = "" Me.txtSyskaWdhDateiname._value = ""
Me.txtSyskaWdhDateiname._Waehrung = False Me.txtSyskaWdhDateiname._Waehrung = False
Me.txtSyskaWdhDateiname._WaehrungZeichen = True Me.txtSyskaWdhDateiname._WaehrungZeichen = True
@@ -340,6 +410,7 @@ Partial Class frmStartOptions
Me.txtEZOLLAnhDat._ShortDateNew = True Me.txtEZOLLAnhDat._ShortDateNew = True
Me.txtEZOLLAnhDat._ShortDateOnly = False Me.txtEZOLLAnhDat._ShortDateOnly = False
Me.txtEZOLLAnhDat._TimeOnly = False Me.txtEZOLLAnhDat._TimeOnly = False
Me.txtEZOLLAnhDat._TimeOnly_Seconds = False
Me.txtEZOLLAnhDat._value = "" Me.txtEZOLLAnhDat._value = ""
Me.txtEZOLLAnhDat._Waehrung = False Me.txtEZOLLAnhDat._Waehrung = False
Me.txtEZOLLAnhDat._WaehrungZeichen = True Me.txtEZOLLAnhDat._WaehrungZeichen = True
@@ -560,6 +631,7 @@ Partial Class frmStartOptions
' '
'TabPage1 'TabPage1
' '
Me.TabPage1.Controls.Add(Me.Button15)
Me.TabPage1.Controls.Add(Me.Button8) Me.TabPage1.Controls.Add(Me.Button8)
Me.TabPage1.Controls.Add(Me.LinkLabel28) Me.TabPage1.Controls.Add(Me.LinkLabel28)
Me.TabPage1.Controls.Add(Me.LinkLabel4) Me.TabPage1.Controls.Add(Me.LinkLabel4)
@@ -596,12 +668,24 @@ Partial Class frmStartOptions
Me.TabPage1.Controls.Add(Me.PictureBox8) Me.TabPage1.Controls.Add(Me.PictureBox8)
Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1" Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) Me.TabPage1.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
Me.TabPage1.Size = New System.Drawing.Size(851, 395) Me.TabPage1.Size = New System.Drawing.Size(851, 395)
Me.TabPage1.TabIndex = 0 Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Zollverfahren" Me.TabPage1.Text = "Zollverfahren"
Me.TabPage1.UseVisualStyleBackColor = True Me.TabPage1.UseVisualStyleBackColor = True
' '
'Button15
'
Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button15.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button15.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button15.Location = New System.Drawing.Point(581, 250)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(211, 24)
Me.Button15.TabIndex = 56
Me.Button15.Text = "MIC NCTS Imort (aus Pfad)"
Me.Button15.UseVisualStyleBackColor = True
'
'Button8 'Button8
' '
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -1006,8 +1090,8 @@ Partial Class frmStartOptions
Me.TabPage2.Controls.Add(Me.txtVRGOut_BezugsNr) Me.TabPage2.Controls.Add(Me.txtVRGOut_BezugsNr)
Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2" Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) Me.TabPage2.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
Me.TabPage2.Size = New System.Drawing.Size(851, 395) Me.TabPage2.Size = New System.Drawing.Size(852, 395)
Me.TabPage2.TabIndex = 1 Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "VERAG Interface" Me.TabPage2.Text = "VERAG Interface"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True
@@ -1254,6 +1338,7 @@ Partial Class frmStartOptions
Me.dgvMRN.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMRN}) Me.dgvMRN.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMRN})
Me.dgvMRN.Location = New System.Drawing.Point(637, 63) Me.dgvMRN.Location = New System.Drawing.Point(637, 63)
Me.dgvMRN.Name = "dgvMRN" Me.dgvMRN.Name = "dgvMRN"
Me.dgvMRN.RowHeadersWidth = 62
Me.dgvMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvMRN.Size = New System.Drawing.Size(207, 134) Me.dgvMRN.Size = New System.Drawing.Size(207, 134)
Me.dgvMRN.TabIndex = 75 Me.dgvMRN.TabIndex = 75
@@ -1262,6 +1347,7 @@ Partial Class frmStartOptions
' '
Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnMRN.HeaderText = "MRN" Me.clmnMRN.HeaderText = "MRN"
Me.clmnMRN.MinimumWidth = 8
Me.clmnMRN.Name = "clmnMRN" Me.clmnMRN.Name = "clmnMRN"
' '
'txtVRGOut_MRN 'txtVRGOut_MRN
@@ -1273,6 +1359,7 @@ Partial Class frmStartOptions
Me.txtVRGOut_MRN._ShortDateNew = False Me.txtVRGOut_MRN._ShortDateNew = False
Me.txtVRGOut_MRN._ShortDateOnly = False Me.txtVRGOut_MRN._ShortDateOnly = False
Me.txtVRGOut_MRN._TimeOnly = False Me.txtVRGOut_MRN._TimeOnly = False
Me.txtVRGOut_MRN._TimeOnly_Seconds = False
Me.txtVRGOut_MRN._value = "" Me.txtVRGOut_MRN._value = ""
Me.txtVRGOut_MRN._Waehrung = False Me.txtVRGOut_MRN._Waehrung = False
Me.txtVRGOut_MRN._WaehrungZeichen = False Me.txtVRGOut_MRN._WaehrungZeichen = False
@@ -1294,6 +1381,7 @@ Partial Class frmStartOptions
Me.txtVRGOut_FilialenNr._ShortDateNew = False Me.txtVRGOut_FilialenNr._ShortDateNew = False
Me.txtVRGOut_FilialenNr._ShortDateOnly = False Me.txtVRGOut_FilialenNr._ShortDateOnly = False
Me.txtVRGOut_FilialenNr._TimeOnly = False Me.txtVRGOut_FilialenNr._TimeOnly = False
Me.txtVRGOut_FilialenNr._TimeOnly_Seconds = False
Me.txtVRGOut_FilialenNr._value = "" Me.txtVRGOut_FilialenNr._value = ""
Me.txtVRGOut_FilialenNr._Waehrung = False Me.txtVRGOut_FilialenNr._Waehrung = False
Me.txtVRGOut_FilialenNr._WaehrungZeichen = False Me.txtVRGOut_FilialenNr._WaehrungZeichen = False
@@ -1316,6 +1404,7 @@ Partial Class frmStartOptions
Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False
Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False
Me.txtVRGOut_AbfertigungsNr._TimeOnly = False Me.txtVRGOut_AbfertigungsNr._TimeOnly = False
Me.txtVRGOut_AbfertigungsNr._TimeOnly_Seconds = False
Me.txtVRGOut_AbfertigungsNr._value = "" Me.txtVRGOut_AbfertigungsNr._value = ""
Me.txtVRGOut_AbfertigungsNr._Waehrung = False Me.txtVRGOut_AbfertigungsNr._Waehrung = False
Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False
@@ -1349,6 +1438,7 @@ Partial Class frmStartOptions
Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False
Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False
Me.txtVRGOutEZA_BezugsNr._TimeOnly = False Me.txtVRGOutEZA_BezugsNr._TimeOnly = False
Me.txtVRGOutEZA_BezugsNr._TimeOnly_Seconds = False
Me.txtVRGOutEZA_BezugsNr._value = "" Me.txtVRGOutEZA_BezugsNr._value = ""
Me.txtVRGOutEZA_BezugsNr._Waehrung = False Me.txtVRGOutEZA_BezugsNr._Waehrung = False
Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False
@@ -1382,6 +1472,7 @@ Partial Class frmStartOptions
Me.txtVRGOut_BezugsNr._ShortDateNew = False Me.txtVRGOut_BezugsNr._ShortDateNew = False
Me.txtVRGOut_BezugsNr._ShortDateOnly = False Me.txtVRGOut_BezugsNr._ShortDateOnly = False
Me.txtVRGOut_BezugsNr._TimeOnly = False Me.txtVRGOut_BezugsNr._TimeOnly = False
Me.txtVRGOut_BezugsNr._TimeOnly_Seconds = False
Me.txtVRGOut_BezugsNr._value = "" Me.txtVRGOut_BezugsNr._value = ""
Me.txtVRGOut_BezugsNr._Waehrung = False Me.txtVRGOut_BezugsNr._Waehrung = False
Me.txtVRGOut_BezugsNr._WaehrungZeichen = False Me.txtVRGOut_BezugsNr._WaehrungZeichen = False
@@ -1406,7 +1497,7 @@ Partial Class frmStartOptions
Me.TabPage3.Controls.Add(Me.Label11) Me.TabPage3.Controls.Add(Me.Label11)
Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3" Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(851, 395) Me.TabPage3.Size = New System.Drawing.Size(852, 395)
Me.TabPage3.TabIndex = 2 Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Partner-Systeme" Me.TabPage3.Text = "Partner-Systeme"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
@@ -1582,6 +1673,7 @@ Partial Class frmStartOptions
Me.MyTextBox1._ShortDateNew = False Me.MyTextBox1._ShortDateNew = False
Me.MyTextBox1._ShortDateOnly = False Me.MyTextBox1._ShortDateOnly = False
Me.MyTextBox1._TimeOnly = False Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._TimeOnly_Seconds = False
Me.MyTextBox1._value = "100000" Me.MyTextBox1._value = "100000"
Me.MyTextBox1._Waehrung = False Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True Me.MyTextBox1._WaehrungZeichen = True
@@ -1701,7 +1793,7 @@ Partial Class frmStartOptions
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn.ForeColor = System.Drawing.Color.White Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(785, -1) Me.btn.Location = New System.Drawing.Point(786, -1)
Me.btn.Margin = New System.Windows.Forms.Padding(0) Me.btn.Margin = New System.Windows.Forms.Padding(0)
Me.btn.Name = "btn" Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(75, 22) Me.btn.Size = New System.Drawing.Size(75, 22)
@@ -1763,44 +1855,17 @@ Partial Class frmStartOptions
Me.lblRoutineManager.TabIndex = 1 Me.lblRoutineManager.TabIndex = 1
Me.lblRoutineManager.Text = "Routine Manager" Me.lblRoutineManager.Text = "Routine Manager"
' '
'MyTextBox2 'Button16
' '
Me.MyTextBox2._DateTimeOnly = False Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.MyTextBox2._numbersOnly = True Me.Button16.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.MyTextBox2._numbersOnlyKommastellen = "" Me.Button16.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.MyTextBox2._Prozent = False Me.Button16.Location = New System.Drawing.Point(559, 182)
Me.MyTextBox2._ShortDateNew = False Me.Button16.Name = "Button16"
Me.MyTextBox2._ShortDateOnly = False Me.Button16.Size = New System.Drawing.Size(211, 24)
Me.MyTextBox2._TimeOnly = False Me.Button16.TabIndex = 57
Me.MyTextBox2._value = "" Me.Button16.Text = "MAIL_ATTACH_WORK_FILES"
Me.MyTextBox2._Waehrung = False Me.Button16.UseVisualStyleBackColor = True
Me.MyTextBox2._WaehrungZeichen = True
Me.MyTextBox2.ForeColor = System.Drawing.Color.Red
Me.MyTextBox2.Location = New System.Drawing.Point(151, 152)
Me.MyTextBox2.MaxLineLength = -1
Me.MyTextBox2.MaxLines_Warning = ""
Me.MyTextBox2.MaxLines_Warning_Label = Nothing
Me.MyTextBox2.Name = "MyTextBox2"
Me.MyTextBox2.Size = New System.Drawing.Size(53, 20)
Me.MyTextBox2.TabIndex = 63
'
'Label18
'
Me.Label18.AutoSize = True
Me.Label18.Location = New System.Drawing.Point(206, 135)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(27, 13)
Me.Label18.TabIndex = 64
Me.Label18.Text = "Max"
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.Location = New System.Drawing.Point(205, 155)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(67, 13)
Me.Label19.TabIndex = 65
Me.Label19.Text = "Tage zurück"
' '
'frmStartOptions 'frmStartOptions
' '
@@ -1973,4 +2038,8 @@ Partial Class frmStartOptions
Friend WithEvents Label19 As Label Friend WithEvents Label19 As Label
Friend WithEvents Label18 As Label Friend WithEvents Label18 As Label
Friend WithEvents MyTextBox2 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents MyTextBox2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Button14 As Button
Friend WithEvents Label20 As Label
Friend WithEvents Button15 As Button
Friend WithEvents Button16 As Button
End Class End Class

192
initATLASAufschubkonten/frmStartOptions.resx
View File

@@ -140,102 +140,6 @@
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox11.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="PictureBox13.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="PictureBox13.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -476,6 +380,102 @@
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox11.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="PictureBox15.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="PictureBox15.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

925
initATLASAufschubkonten/frmStartOptions.vb
View File

File diff suppressed because it is too large Load Diff