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

vers

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-05-16 10:49:00 +02:00
parent 3a7af7940e
commit dbb7a78111
6 changed files with 513 additions and 100 deletions
Download Patch File Download Diff File Expand all files Collapse all files

394
DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
View File

@@ -82,7 +82,7 @@ Public Class cZollsysteme_Aktenbeschriftung
End Function
Function getDataByBezugsnummer(BezugsNr As String, Abfertigungsart As String, DY_Ref As String, Grenzstelle As Object) As Boolean
Function getDataByBezugsnummer(BezugsNr As String, Abfertigungsart As String, DY_Ref As String, Grenzstelle As Object, Zollsystem_Land As String) As Boolean
If If(DY_Ref, "") <> "" Then
BezugsNr = DY_Ref
Else
@@ -113,9 +113,16 @@ Public Class cZollsysteme_Aktenbeschriftung
Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen...
End If
Case 1, 2, 3, 28, 39
getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True)
'... and Systeme
Select Case Zollsystem_Land
Case "AT"
'eZoll
getDataByBezugsnummer = load_EZA_FromEZOLL(BezugsNr, True)
Case Else
getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True)
End Select
Case Else
getDataByBezugsnummer = load_NCTS004_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Neues NCTS Format!
@@ -172,6 +179,389 @@ Public Class cZollsysteme_Aktenbeschriftung
Function load_EZA_FromEZOLL(AnmID As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
Try
' VERAG_NCTS.Version = "1.0.2" Automaitsch, weil default
Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
" FROM zsAnmRefs" &
" WHERE (VorgangID = 'AV') AND (AnmID = '" & AnmID & "')" &
" ORDER BY GeaendertAm DESC", "EZOLL")
If dEZOLL Is Nothing Then Return Nothing
If dEZOLL.Rows.Count = 0 Then Return Nothing
'TextBox2.ForeColor = Color.Green
Dim r As DataRow = dEZOLL.Rows(0)
' LRN = r.Item("LRN")
ATCMRN = r.Item("CRN")
' Praeferenznachweis
' Handelsrechnung
' PräferenzAufRechnung
' Colli
' num_Colli As Integer = 0
' num_Gewicht As Double = 0
' Rechnungspreis
' Warenbezeichung
' AbgabenKonto
' Garantie
' Absender
' Empfaenger
' Anmelder
' Vertreter
' Sachbearbeiter
' VerBestLandZst
' Vorpapier
' ABGABEN_EUST As Double = 0
' ABGABEN_ZOLL As Double = 0
' ANZ_POS As Integer = 0
Dim DTzsAnmHea As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmHea WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmHea.Rows().Count > 0 Then
Dim rDTzsAnmHea = DTzsAnmHea.Rows(0)
' VERAG_NCTS.ProcessData.ProcedureCode = rDTzsAnmHea("DecTy")
'Gewicht = rDTzsAnmHea("TotGross") 'If(NCTS_TMP.ncts_GesamtRohmasse, "0")
Me.Gewicht = CDbl(rDTzsAnmHea("TotGross")).ToString("N1") & " kg"
Me.num_Gewicht = CDbl(rDTzsAnmHea("TotGross")).ToString("N1")
'VERAG_NCTS.ProcessData.TransactionDate = CDate(rDTzsAnmHea("DecDT"))
End If
If IsNumeric(If(EZA.eza_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1") & " kg" : num_Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1")
If IsNumeric(If(EZA.eza_Rechnungspreis, "")) Then Me.Rechnungspreis = CDbl(EZA.eza_Rechnungspreis).ToString("N2")
Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "")
ATCMRN = If(EZA.eza_ANR, "")
' Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "")
'Property Absender As String
'Property Empfaenger As String
'Property Anmelder As String
Dim RG_List As New List(Of String)
Dim ATR_List As New List(Of String)
Dim PAR_List As New List(Of String) ' präfAufRg
Dim Colli As Integer = 0
Dim cnt As Integer = 0
If EZA.eza_WARENPOS.Count > 0 Then
Me.Warenbezeichung = EZA.eza_WARENPOS.Count & " POS: "
Me.Warenbezeichung &= If(EZA.eza_WARENPOS.Count = 1, If(EZA.eza_WARENPOS(0).ezaWP_Warenbezeichnung, ""), "* diverse *")
For Each POS In EZA.eza_WARENPOS
For Each UL In POS.ezaWP_UNTERLAGEN
If UL.ezaWpUl_Art IsNot Nothing Then
Select Case UL.ezaWpUl_Art
Case "N380", "N325" : addIfNotExists(RG_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim)
'case "4EEQ" : addIfNotExists(ATR_List, "4EEQ: " & (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim)
Case "N018", "N954" : addIfNotExists(ATR_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim)
Case "N864" : addIfNotExists(PAR_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim)
End Select
End If
Next
If IsNumeric(If(POS.ezaWP_PackstueckAnzahl, "")) Then Colli += POS.ezaWP_PackstueckAnzahl
cnt += 1
Next
End If
ANZ_POS = EZA.eza_WARENPOS.Count
For Each A In EZA.eza_AUFSCHUB
If If(A.ezaAfb_AbgabeArt, "") = "B0000" Then
ABGABEN_EUST += CDbl(A.ezaAfb_Abgabenbetrag)
Else
ABGABEN_ZOLL += CDbl(A.ezaAfb_Abgabenbetrag)
End If
Next
num_Colli = Colli
Me.Colli = Colli & " Pk."
For Each AD In EZA.eza_ADRESSEN
If AD.ezaAd_AdressTyp IsNot Nothing Then
Dim Anschrift = ""
If If(AD.ezaAd_TeilnehmerEORI, "") <> "" Then
Anschrift = (SQL.getValueTxtBySql("SELECT Ordnungsbegriff FROM [Adressen] inner join Kunden on AdressenNr=KundenNr where EORITIN='" & AD.ezaAd_TeilnehmerEORI & "'", "FMZOLL")).Trim
If Anschrift = "" Then Anschrift = AD.ezaAd_TeilnehmerEORI
Else
Anschrift = If(AD.ezaAd_NameFirma1, "") & " " & If(AD.ezaAd_LandCode, "") & " " & If(AD.ezaAd_Ort, "").ToString.Trim
End If
Select Case AD.ezaAd_AdressTyp
Case "CZ" : Absender = ""'Anschrift --> nicht benötigt
Case "CN" : Empfaenger = Anschrift
Case "DT" : Anmelder = Anschrift
Case "CB" : Vertreter = "" ' Anschrift - -> nicht benötigt
End Select
End If
Next
Sachbearbeiter = If(EZA.eza_Bearbeiter, "")
VerBestLandZst = If(EZA.eza_VersendungsLandCode, "") & " --> " & If(EZA.eza_Bestimmungsland, "")
If VerBestLandZst.Trim.StartsWith("-->") Then VerBestLandZst = VerBestLandZst.Replace("-->", "")
If If(EZA.eza_Bestimmungsland, "") = "DE" Then
If If(EZA.eza_AdressierteZollstelle, "") <> "" Then VerBestLandZst &= ", DE00" & EZA.eza_AdressierteZollstelle
Else
If If(EZA.eza_AdressierteZollstelle, "") <> "" Then VerBestLandZst &= ", " & EZA.eza_AdressierteZollstelle
End If
Handelsrechnung = listToString(RG_List)
Praeferenznachweis = listToString(ATR_List)
PräferenzAufRechnung = listToString(PAR_List)
Dim AUFSCHUB_List As New List(Of String)
For Each AB In EZA.eza_AUFSCHUB
Dim kto = (If(AB.ezaAfb_HZA, "") & If(AB.ezaAfb_KontoNr, "")).Trim
addIfNotExists(AUFSCHUB_List, kto & " " & load_KdFromAKto(kto))
Next
If EZA.eza_VorpapierArtCode IsNot Nothing AndAlso EZA.eza_VorpapierArtCode <> "" AndAlso EZA.eza_VorpapierArtCode <> "OHNE" Then
Vorpapier = EZA.eza_VorpapierArtCode
If If(EZA.eza_VorpapierNr, "") <> "" Then Vorpapier &= ": " & EZA.eza_VorpapierNr
End If
AbgabenKonto = listToString(AUFSCHUB_List)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return Nothing
End Try
Exit Sub
'------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
Dim LRN = ""
Try
' VERAG_NCTS.Version = "1.0.2" Automaitsch, weil default
Dim Bestimmungszollstelle = ""
Dim Bürgschaft = ""
Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
" FROM zsAnmRefs" &
" WHERE (VorgangID = 'AV') AND (AnmID = '" & AnmID & "')" &
" ORDER BY GeaendertAm DESC", "EZOLL")
If dEZOLL Is Nothing Then Return Nothing
If dEZOLL.Rows.Count = 0 Then Return Nothing
'TextBox2.ForeColor = Color.Green
Dim r As DataRow = dEZOLL.Rows(0)
LRN = r.Item("LRN")
If Not SQL.IsNull(r.Item("OperatorID")) Then
Select Case r.Item("OperatorID")
Case "1"
VERAG_NCTS.Company = "VERAG"
VERAG_NCTS.Department = "SUB"
Case "2"
VERAG_NCTS.Company = "VERAG"
VERAG_NCTS.Department = "SBG"
Case "3"
VERAG_NCTS.Company = "VERAG"
VERAG_NCTS.Department = "NKD"
Case "4", "5"
VERAG_NCTS.Company = "ATILLA"
VERAG_NCTS.Department = "SUB"
Case "6"
If LRN.StartsWith("4801") Or LRN.StartsWith("4802") Then
VERAG_NCTS.Company = "ATILLA"
Else
VERAG_NCTS.Company = "VERAG"
End If
VERAG_NCTS.Department = "SUB"
Case "8"
VERAG_NCTS.Company = "DURMAZ"
VERAG_NCTS.Department = "SBG"
Return Nothing
Case Else
VERAG_NCTS.Company = "ATILLA"
VERAG_NCTS.Department = "SUB"
End Select
End If
VERAG_NCTS.ProcessData.TransactionDate = CDate(r.Item("GeaendertAm")) 'default
VERAG_NCTS.ProcessData.MRN = r.Item("CRN")
VERAG_NCTS.ProcessData.ReferenzNumber = LRN
Select Case (SQL.getValueTxtBySql("SELECT ErledigungsTypID FROM zsAnmDHFRefs WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
Case "F"
VERAG_NCTS.ProcessData.Status = 50
Case "FB"
VERAG_NCTS.ProcessData.Status = 60
Case Else
VERAG_NCTS.ProcessData.Status = 0
End Select
Dim DTzsAnmHea As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmHea WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmHea.Rows().Count > 0 Then
Dim rDTzsAnmHea = DTzsAnmHea.Rows(0)
VERAG_NCTS.ProcessData.ProcedureCode = rDTzsAnmHea("DecTy")
VERAG_NCTS.NCTS_Data.SumGrossWeight = rDTzsAnmHea("TotGross") 'If(NCTS_TMP.ncts_GesamtRohmasse, "0")
VERAG_NCTS.ProcessData.TransactionDate = CDate(rDTzsAnmHea("DecDT"))
End If
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = SQL.isleernothing(SQL.getValueTxtBySql("SELECT Ref FROM zsAnmDepCO WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
VERAG_NCTS.NCTS_Data.DatDeterminationLimit = SQL.isleernothing(SQL.getValueTxtBySql("SELECT DLimit FROM zsAnmCtrlRslt WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
'BestimmungsstelleDienststelle
Dim DTzsAnmDestCo As DataTable = SQL.loadDgvBySql("SELECT Ref FROM zsAnmDestCo WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmDestCo.Rows().Count > 0 Then
If Not SQL.IsNull(DTzsAnmDestCo.Rows(0).Item("ref")) Then VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = DTzsAnmDestCo.Rows(0).Item("ref")
End If
' Kennzeichen
Dim DTzsAnmTransp As DataTable = SQL.loadDgvBySql("SELECT DepIdnt FROM zsAnmTransp WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmTransp.Rows().Count > 0 Then
If Not SQL.IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then
VERAG_NCTS.NCTS_Data.LicensePlate = DTzsAnmTransp.Rows(0).Item("DepIdnt")
End If
End If
'Versender
Dim DTzsAnmSender As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmConorTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmSender.Rows().Count > 0 Then
VERAG_NCTS.NCTS_Data.Sender.Name = DTzsAnmSender.Rows(0).Item("Na")
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = DTzsAnmSender.Rows(0).Item("Pst")
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Street = DTzsAnmSender.Rows(0).Item("Strt")
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.City = DTzsAnmSender.Rows(0).Item("Cty")
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Ctry")) Then
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = DTzsAnmSender.Rows(0).Item("Ctry")
VERAG_NCTS.NCTS_Data.DepartureCountry = DTzsAnmSender.Rows(0).Item("Ctry")
End If
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Sender.EORI = DTzsAnmSender.Rows(0).Item("TIN")
'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
End If
'Empfänger
Dim DTzsAnmConeeTra As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmConeeTra WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmConeeTra.Rows().Count > 0 Then
VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmConeeTra.Rows(0).Item("Na")
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = DTzsAnmConeeTra.Rows(0).Item("Pst")
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = DTzsAnmConeeTra.Rows(0).Item("Strt")
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.City = DTzsAnmConeeTra.Rows(0).Item("Cty")
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then
VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = DTzsAnmConeeTra.Rows(0).Item("Ctry")
VERAG_NCTS.NCTS_Data.DestinationCountry = DTzsAnmConeeTra.Rows(0).Item("Ctry")
End If
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Consignee.EORI = DTzsAnmConeeTra.Rows(0).Item("TIN")
'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
End If
'Frächter
Dim DTzsAnmCarrier As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmCarrTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmCarrier.Rows().Count > 0 Then
VERAG_NCTS.NCTS_Data.Carrier.Name = DTzsAnmCarrier.Rows(0).Item("Na")
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = DTzsAnmCarrier.Rows(0).Item("Pst")
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = DTzsAnmCarrier.Rows(0).Item("Strt")
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.City = DTzsAnmCarrier.Rows(0).Item("Cty")
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Ctry")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = DTzsAnmCarrier.Rows(0).Item("Ctry")
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Carrier.EORI = DTzsAnmCarrier.Rows(0).Item("TIN")
'VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
End If
' Tabelle zsAnmGrteeGrteeRef lesen.
Dim DTzsAnmGrteeGrteeRef As DataTable = SQL.loadDgvBySql("SELECT GRN, GVal" &
" FROM zsAnmGrteeGrteeRef" &
" WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")" &
" ORDER BY GrteeID, GrteeRefID", "EZOLL")
If DTzsAnmGrteeGrteeRef.Rows().Count > 0 Then
VERAG_NCTS.NCTS_Data.Guarantee.Amount = 0
For Each DTzsAnmGrteeGrteeRef_row In DTzsAnmGrteeGrteeRef.Rows()
If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GRN")) Then VERAG_NCTS.NCTS_Data.Guarantee.GRN = DTzsAnmGrteeGrteeRef_row.item("GRN")
If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GVal")) Then VERAG_NCTS.NCTS_Data.Guarantee.Amount += DTzsAnmGrteeGrteeRef_row.item("GVal")
Next
End If
'POSITIONEN
Dim cntPos = 1
Dim DTzsAnmGdsitem As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmGdsitem WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") ORDER BY GdsItemID", "EZOLL")
If DTzsAnmGdsitem.Rows().Count > 0 Then
For Each DTzsAnmGdsitem_row In DTzsAnmGdsitem.Rows()
Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsNCTS_DataPosition
V_POS.PosNr = cntPos
Dim pkGes = 0
Dim pkArt = ""
Dim DTzsAnmGdsitemPk As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmGdsItemPack] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") AND GdsItemID='" & DTzsAnmGdsitem_row.Item("GdsItemID") & "' ORDER BY GdsItemID", "EZOLL")
If DTzsAnmGdsitemPk.Rows().Count > 0 Then
For Each DTzsAnmGdsitemPk_row In DTzsAnmGdsitemPk.Rows()
If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Kind")) Then pkArt = DTzsAnmGdsitemPk_row.item("Kind")
If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Nr")) Then pkGes += DTzsAnmGdsitemPk_row.item("Nr")
Next
End If
V_POS.Quantity = pkGes
V_POS.Packaging = pkArt
If Not SQL.IsNull(DTzsAnmGdsitem_row.item("Gross")) Then V_POS.GrossWeight = DTzsAnmGdsitem_row.item("Gross")
V_POS.GoodsDescription = DTzsAnmGdsitem_row.item("GdsDes")
VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
cntPos += 1
Next
End If
UniqueId = AnmID
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return Nothing
End Try
Return VERAG_NCTS
End Function
Function load_EZA_FromDAKOSY(BezugsNr As String, Optional checkValidStatus As Boolean = False) As Boolean
Dim EZA = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(BezugsNr, True, True)
If EZA Is Nothing Then Return False

4
VERAGMonitoring/My Project/AssemblyInfo.vb
View File

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

12
VERAGMonitoring/cClasses.vb
View File

@@ -62,11 +62,13 @@ Public Class cMonitoringBrg
Property brgusrset_gvvAt_ATILLA_woche_warn1 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
Property brgusrset_gvvAt_CS_at_summe As Double = 0.0
Property brgusrset_gvvAt_CS_tag_warn1 As Double = 0.0
Property brgusrset_gvvAt_CS_tag_warn2 As Double = 0.0
Property brgusrset_gvvAt_CS_woche_warn1 As Double = 0.0
Property brgusrset_gvvAt_CS_woche_warn2 As Double = 0.0
End Class

20
VERAGMonitoring/cSqlDb.vb
View File

@@ -1151,6 +1151,16 @@ Public Class cBrgDb
cMonitoringBrg.brgusrset_gvvAt_ATILLA_woche_warn1 = dr.Item("brgusrset_gvvAt_ATILLA_woche_warn1")
cMonitoringBrg.brgusrset_gvvAt_ATILLA_woche_warn2 = dr.Item("brgusrset_gvvAt_ATILLA_woche_warn2")
cMonitoringBrg.brgusrset_gvvAt_CS_at_summe = dr.Item("brgusrset_gvvAt_CS_at_summe")
cMonitoringBrg.brgusrset_gvvAt_CS_tag_warn1 = dr.Item("brgusrset_gvvAt_CS_tag_warn1")
cMonitoringBrg.brgusrset_gvvAt_CS_tag_warn2 = dr.Item("brgusrset_gvvAt_CS_tag_warn2")
cMonitoringBrg.brgusrset_gvvAt_CS_woche_warn1 = dr.Item("brgusrset_gvvAt_CS_woche_warn1")
cMonitoringBrg.brgusrset_gvvAt_CS_woche_warn2 = dr.Item("brgusrset_gvvAt_CS_woche_warn2")
End If
Return cMonitoringBrg
Catch ex As Exception
@@ -1177,8 +1187,11 @@ Public Class cBrgDb
" brgusrset_aufschub_AG_de_summe=@brgusrset_aufschub_AG_de_summe, brgusrset_aufschub_AG_de_warn1=@brgusrset_aufschub_AG_de_warn1, brgusrset_aufschub_AG_de_warn2=@brgusrset_aufschub_AG_de_warn2, brgusrset_aufschub_AG_at_summe=@brgusrset_aufschub_AG_at_summe, brgusrset_aufschub_AG_at_warn1=@brgusrset_aufschub_AG_at_warn1, brgusrset_aufschub_AG_at_warn2=@brgusrset_aufschub_AG_at_warn2, brgusrset_aufschub_CS_at_summe=@brgusrset_aufschub_CS_at_summe, brgusrset_aufschub_CS_at_warn1=@brgusrset_aufschub_CS_at_warn1, brgusrset_aufschub_CS_at_warn2=@brgusrset_aufschub_CS_at_warn2, brgusrset_aufschub_ZS_at_summe=@brgusrset_aufschub_ZS_at_summe, brgusrset_aufschub_ZS_at_warn1=@brgusrset_aufschub_ZS_at_warn1, brgusrset_aufschub_ZS_at_warn2=@brgusrset_aufschub_ZS_at_warn2, " &
" brgusrset_aufschub_imex_de_summe=@brgusrset_aufschub_imex_de_summe,brgusrset_aufschub_imex_de_warn1=@brgusrset_aufschub_imex_de_warn1,brgusrset_aufschub_imex_de_warn2=@brgusrset_aufschub_imex_de_warn2,brgusrset_gvvAt_imex_de_summe =@brgusrset_gvvAt_imex_de_summe,brgusrset_gvvAt_imex_tag_warn1=@brgusrset_gvvAt_imex_tag_warn1,brgusrset_gvvAt_imex_tag_warn2=@brgusrset_gvvAt_imex_tag_warn2,brgusrset_gvvAt_imex_woche_warn1=@brgusrset_gvvAt_imex_woche_warn1,brgusrset_gvvAt_imex_woche_warn2=@brgusrset_gvvAt_imex_woche_warn2, " &
" brgusrset_gvvAt_ATILLA_de_summe =@brgusrset_gvvAt_ATILLA_de_summe,brgusrset_gvvAt_ATILLA_tag_warn1=@brgusrset_gvvAt_ATILLA_tag_warn1,brgusrset_gvvAt_ATILLA_tag_warn2=@brgusrset_gvvAt_ATILLA_tag_warn2,brgusrset_gvvAt_ATILLA_woche_warn1=@brgusrset_gvvAt_ATILLA_woche_warn1,brgusrset_gvvAt_ATILLA_woche_warn2=@brgusrset_gvvAt_ATILLA_woche_warn2 " &
" brgusrset_gvvAt_CS_at_summe =@brgusrset_gvvAt_CS_at_summe,brgusrset_gvvAt_CS_tag_warn1=@brgusrset_gvvAt_CS_tag_warn1,brgusrset_gvvAt_CS_tag_warn2=@brgusrset_gvvAt_CS_tag_warn2,brgusrset_gvvAt_CS_woche_warn1=@brgusrset_gvvAt_CS_woche_warn1,brgusrset_gvvAt_CS_woche_warn2=@brgusrset_gvvAt_CS_woche_warn2 " &
" WHERE brgusrset_id=@brgusrset_id "
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
Using cmd As New SqlCommand(sql, conn)
'msgbo
@@ -1228,6 +1241,13 @@ Public Class cBrgDb
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_ATILLA_tag_warn2", d.brgusrset_gvvAt_ATILLA_tag_warn2)
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_ATILLA_woche_warn1", d.brgusrset_gvvAt_ATILLA_woche_warn1)
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_ATILLA_woche_warn2", d.brgusrset_gvvAt_ATILLA_woche_warn2)
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_CS_at_summe", d.brgusrset_gvvAt_CS_at_summe)
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_CS_tag_warn1", d.brgusrset_gvvAt_CS_tag_warn1)
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_CS_tag_warn2", d.brgusrset_gvvAt_CS_tag_warn2)
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_CS_woche_warn1", d.brgusrset_gvvAt_CS_woche_warn1)
cmd.Parameters.AddWithValue("@brgusrset_gvvAt_CS_woche_warn2", d.brgusrset_gvvAt_CS_woche_warn2)
Try
cmd.ExecuteNonQuery()
Return True

178
VERAGMonitoring/frmMain.Designer.vb generated
View File

@@ -300,7 +300,7 @@ Partial Class frmMain
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(671, 627)
Me.Panel2.Size = New System.Drawing.Size(692, 627)
Me.Panel2.TabIndex = 8
'
'Button2
@@ -308,7 +308,7 @@ Partial Class frmMain
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.Black
Me.Button2.Location = New System.Drawing.Point(408, 594)
Me.Button2.Location = New System.Drawing.Point(429, 594)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(87, 23)
Me.Button2.TabIndex = 0
@@ -331,16 +331,16 @@ Partial Class frmMain
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.Size = New System.Drawing.Size(257, 13)
Me.lblBrg_at_VERAG_CS.TabIndex = 88
Me.lblBrg_at_VERAG_CS.Text = "AT - gVV - HZA Linz/Wels VERAG Customs Service GmbH"
Me.lblBrg_at_VERAG_CS.Text = "AT - gVV - HZA Linz/Wels VERAG Customs Service"
'
'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.Location = New System.Drawing.Point(555, 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)
@@ -352,7 +352,7 @@ Partial Class frmMain
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.Location = New System.Drawing.Point(406, 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)
@@ -367,7 +367,7 @@ Partial Class frmMain
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.Location = New System.Drawing.Point(651, 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)
@@ -382,7 +382,7 @@ Partial Class frmMain
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.Location = New System.Drawing.Point(504, 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)
@@ -410,7 +410,7 @@ Partial Class frmMain
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.ForeColor = System.Drawing.Color.White
Me.Button3.Location = New System.Drawing.Point(501, 594)
Me.Button3.Location = New System.Drawing.Point(522, 594)
Me.Button3.Name = "Button3"
Me.Button3.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.Button3.Size = New System.Drawing.Size(45, 24)
@@ -423,7 +423,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.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.Location = New System.Drawing.Point(413, 456)
Me.lblAufschubBrgEUST_de_UNISPEDDE_oE.Location = New System.Drawing.Point(434, 456)
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.Size = New System.Drawing.Size(90, 13)
@@ -455,7 +455,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.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.Location = New System.Drawing.Point(534, 456)
Me.lblAufschubBrgEUST_de_UNISPEDDE.Location = New System.Drawing.Point(555, 456)
Me.lblAufschubBrgEUST_de_UNISPEDDE.Name = "lblAufschubBrgEUST_de_UNISPEDDE"
Me.lblAufschubBrgEUST_de_UNISPEDDE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrgEUST_de_UNISPEDDE.Size = New System.Drawing.Size(90, 13)
@@ -470,7 +470,7 @@ Partial Class frmMain
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.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatusEUST_de_UNISPEDDE.Location = New System.Drawing.Point(630, 456)
Me.lblAufschubStatusEUST_de_UNISPEDDE.Location = New System.Drawing.Point(651, 456)
Me.lblAufschubStatusEUST_de_UNISPEDDE.Name = "lblAufschubStatusEUST_de_UNISPEDDE"
Me.lblAufschubStatusEUST_de_UNISPEDDE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatusEUST_de_UNISPEDDE.Size = New System.Drawing.Size(22, 13)
@@ -482,7 +482,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.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.Location = New System.Drawing.Point(413, 438)
Me.lblAufschubBrg_de_UNISPEDDE_oE.Location = New System.Drawing.Point(434, 438)
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.Size = New System.Drawing.Size(90, 13)
@@ -514,7 +514,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.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.Location = New System.Drawing.Point(534, 438)
Me.lblAufschubBrg_de_UNISPEDDE.Location = New System.Drawing.Point(555, 438)
Me.lblAufschubBrg_de_UNISPEDDE.Name = "lblAufschubBrg_de_UNISPEDDE"
Me.lblAufschubBrg_de_UNISPEDDE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_de_UNISPEDDE.Size = New System.Drawing.Size(90, 13)
@@ -529,7 +529,7 @@ Partial Class frmMain
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.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_de_UNISPEDDE.Location = New System.Drawing.Point(630, 438)
Me.lblAufschubStatus_de_UNISPEDDE.Location = New System.Drawing.Point(651, 438)
Me.lblAufschubStatus_de_UNISPEDDE.Name = "lblAufschubStatus_de_UNISPEDDE"
Me.lblAufschubStatus_de_UNISPEDDE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_de_UNISPEDDE.Size = New System.Drawing.Size(22, 13)
@@ -541,7 +541,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.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.Location = New System.Drawing.Point(413, 370)
Me.lblAufschubBrgEUST_de_global_oE.Location = New System.Drawing.Point(434, 370)
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.Size = New System.Drawing.Size(90, 13)
@@ -573,7 +573,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.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.Location = New System.Drawing.Point(534, 370)
Me.lblAufschubBrgEUST_de_global.Location = New System.Drawing.Point(555, 370)
Me.lblAufschubBrgEUST_de_global.Name = "lblAufschubBrgEUST_de_global"
Me.lblAufschubBrgEUST_de_global.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrgEUST_de_global.Size = New System.Drawing.Size(90, 13)
@@ -588,7 +588,7 @@ Partial Class frmMain
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.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatusEUST_de_global.Location = New System.Drawing.Point(630, 370)
Me.lblAufschubStatusEUST_de_global.Location = New System.Drawing.Point(651, 370)
Me.lblAufschubStatusEUST_de_global.Name = "lblAufschubStatusEUST_de_global"
Me.lblAufschubStatusEUST_de_global.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatusEUST_de_global.Size = New System.Drawing.Size(22, 13)
@@ -613,7 +613,7 @@ Partial Class frmMain
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.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_at_IMEX.Location = New System.Drawing.Point(630, 565)
Me.lblAufschubStatus_at_IMEX.Location = New System.Drawing.Point(651, 565)
Me.lblAufschubStatus_at_IMEX.Name = "lblAufschubStatus_at_IMEX"
Me.lblAufschubStatus_at_IMEX.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_at_IMEX.Size = New System.Drawing.Size(22, 13)
@@ -625,7 +625,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.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.Location = New System.Drawing.Point(534, 565)
Me.lblAufschubBrg_at_IMEX.Location = New System.Drawing.Point(555, 565)
Me.lblAufschubBrg_at_IMEX.Name = "lblAufschubBrg_at_IMEX"
Me.lblAufschubBrg_at_IMEX.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_IMEX.Size = New System.Drawing.Size(90, 13)
@@ -667,7 +667,7 @@ Partial Class frmMain
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.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, 143)
Me.lblAtWocheUNISPED.Location = New System.Drawing.Point(555, 143)
Me.lblAtWocheUNISPED.Name = "lblAtWocheUNISPED"
Me.lblAtWocheUNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtWocheUNISPED.Size = New System.Drawing.Size(90, 13)
@@ -679,7 +679,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.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.Location = New System.Drawing.Point(385, 144)
Me.lblAtTagUNISPED.Location = New System.Drawing.Point(406, 144)
Me.lblAtTagUNISPED.Name = "lblAtTagUNISPED"
Me.lblAtTagUNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtTagUNISPED.Size = New System.Drawing.Size(90, 13)
@@ -694,7 +694,7 @@ Partial Class frmMain
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.ForeColor = System.Drawing.Color.White
Me.lblAt_woche_StatusUNISPED.Location = New System.Drawing.Point(630, 143)
Me.lblAt_woche_StatusUNISPED.Location = New System.Drawing.Point(651, 143)
Me.lblAt_woche_StatusUNISPED.Name = "lblAt_woche_StatusUNISPED"
Me.lblAt_woche_StatusUNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAt_woche_StatusUNISPED.Size = New System.Drawing.Size(22, 13)
@@ -710,7 +710,7 @@ Partial Class frmMain
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.ForeColor = System.Drawing.Color.White
Me.lblAt_tag_StatusUNISPED.Location = New System.Drawing.Point(483, 144)
Me.lblAt_tag_StatusUNISPED.Location = New System.Drawing.Point(504, 144)
Me.lblAt_tag_StatusUNISPED.Name = "lblAt_tag_StatusUNISPED"
Me.lblAt_tag_StatusUNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAt_tag_StatusUNISPED.Size = New System.Drawing.Size(22, 13)
@@ -723,7 +723,7 @@ Partial Class frmMain
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.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, 418)
Me.lblAufschubBrgEUST_de_UNISPED_oE.Location = New System.Drawing.Point(434, 418)
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.Size = New System.Drawing.Size(90, 13)
@@ -755,7 +755,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.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.Location = New System.Drawing.Point(534, 418)
Me.lblAufschubBrgEUST_de_UNISPED.Location = New System.Drawing.Point(555, 418)
Me.lblAufschubBrgEUST_de_UNISPED.Name = "lblAufschubBrgEUST_de_UNISPED"
Me.lblAufschubBrgEUST_de_UNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrgEUST_de_UNISPED.Size = New System.Drawing.Size(90, 13)
@@ -770,7 +770,7 @@ Partial Class frmMain
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.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatusEUST_de_UNISPED.Location = New System.Drawing.Point(630, 418)
Me.lblAufschubStatusEUST_de_UNISPED.Location = New System.Drawing.Point(651, 418)
Me.lblAufschubStatusEUST_de_UNISPED.Name = "lblAufschubStatusEUST_de_UNISPED"
Me.lblAufschubStatusEUST_de_UNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatusEUST_de_UNISPED.Size = New System.Drawing.Size(22, 13)
@@ -782,7 +782,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.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.Location = New System.Drawing.Point(413, 400)
Me.lblAufschubBrg_de_UNISPED_oE.Location = New System.Drawing.Point(434, 400)
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.Size = New System.Drawing.Size(90, 13)
@@ -814,7 +814,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.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.Location = New System.Drawing.Point(534, 400)
Me.lblAufschubBrg_de_UNISPED.Location = New System.Drawing.Point(555, 400)
Me.lblAufschubBrg_de_UNISPED.Name = "lblAufschubBrg_de_UNISPED"
Me.lblAufschubBrg_de_UNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_de_UNISPED.Size = New System.Drawing.Size(90, 13)
@@ -829,7 +829,7 @@ Partial Class frmMain
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.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_de_UNISPED.Location = New System.Drawing.Point(630, 400)
Me.lblAufschubStatus_de_UNISPED.Location = New System.Drawing.Point(651, 400)
Me.lblAufschubStatus_de_UNISPED.Name = "lblAufschubStatus_de_UNISPED"
Me.lblAufschubStatus_de_UNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_de_UNISPED.Size = New System.Drawing.Size(22, 13)
@@ -841,7 +841,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.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.Location = New System.Drawing.Point(413, 306)
Me.lblAufschubBrgEUST_de_VeragAG_oE.Location = New System.Drawing.Point(434, 306)
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.Size = New System.Drawing.Size(90, 13)
@@ -873,7 +873,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.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.Location = New System.Drawing.Point(534, 306)
Me.lblAufschubBrgEUST_de_VeragAG.Location = New System.Drawing.Point(555, 306)
Me.lblAufschubBrgEUST_de_VeragAG.Name = "lblAufschubBrgEUST_de_VeragAG"
Me.lblAufschubBrgEUST_de_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrgEUST_de_VeragAG.Size = New System.Drawing.Size(90, 13)
@@ -888,7 +888,7 @@ Partial Class frmMain
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.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatusEUST_de_VeragAG.Location = New System.Drawing.Point(630, 306)
Me.lblAufschubStatusEUST_de_VeragAG.Location = New System.Drawing.Point(651, 306)
Me.lblAufschubStatusEUST_de_VeragAG.Name = "lblAufschubStatusEUST_de_VeragAG"
Me.lblAufschubStatusEUST_de_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatusEUST_de_VeragAG.Size = New System.Drawing.Size(22, 13)
@@ -900,7 +900,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.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.Location = New System.Drawing.Point(413, 351)
Me.lblAufschubBrgEUST_de_Imex_oE.Location = New System.Drawing.Point(434, 351)
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.Size = New System.Drawing.Size(90, 13)
@@ -932,7 +932,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.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.Location = New System.Drawing.Point(534, 351)
Me.lblAufschubBrgEUST_de_Imex.Location = New System.Drawing.Point(555, 351)
Me.lblAufschubBrgEUST_de_Imex.Name = "lblAufschubBrgEUST_de_Imex"
Me.lblAufschubBrgEUST_de_Imex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrgEUST_de_Imex.Size = New System.Drawing.Size(90, 13)
@@ -947,7 +947,7 @@ Partial Class frmMain
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.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatusEUST_de_Imex.Location = New System.Drawing.Point(630, 351)
Me.lblAufschubStatusEUST_de_Imex.Location = New System.Drawing.Point(651, 351)
Me.lblAufschubStatusEUST_de_Imex.Name = "lblAufschubStatusEUST_de_Imex"
Me.lblAufschubStatusEUST_de_Imex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatusEUST_de_Imex.Size = New System.Drawing.Size(22, 13)
@@ -979,7 +979,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.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAtWocheAtilla.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAtWocheAtilla.Location = New System.Drawing.Point(534, 209)
Me.lblAtWocheAtilla.Location = New System.Drawing.Point(555, 209)
Me.lblAtWocheAtilla.Name = "lblAtWocheAtilla"
Me.lblAtWocheAtilla.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtWocheAtilla.Size = New System.Drawing.Size(90, 13)
@@ -991,7 +991,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.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAtTagAtilla.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAtTagAtilla.Location = New System.Drawing.Point(385, 210)
Me.lblAtTagAtilla.Location = New System.Drawing.Point(406, 210)
Me.lblAtTagAtilla.Name = "lblAtTagAtilla"
Me.lblAtTagAtilla.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtTagAtilla.Size = New System.Drawing.Size(90, 13)
@@ -1006,7 +1006,7 @@ Partial Class frmMain
Me.lblAt_woche_StatusAtilla.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAt_woche_StatusAtilla.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAt_woche_StatusAtilla.ForeColor = System.Drawing.Color.White
Me.lblAt_woche_StatusAtilla.Location = New System.Drawing.Point(630, 209)
Me.lblAt_woche_StatusAtilla.Location = New System.Drawing.Point(651, 209)
Me.lblAt_woche_StatusAtilla.Name = "lblAt_woche_StatusAtilla"
Me.lblAt_woche_StatusAtilla.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAt_woche_StatusAtilla.Size = New System.Drawing.Size(22, 13)
@@ -1021,7 +1021,7 @@ Partial Class frmMain
Me.lblAt_tag_StatusAtilla.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAt_tag_StatusAtilla.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAt_tag_StatusAtilla.ForeColor = System.Drawing.Color.White
Me.lblAt_tag_StatusAtilla.Location = New System.Drawing.Point(483, 210)
Me.lblAt_tag_StatusAtilla.Location = New System.Drawing.Point(504, 210)
Me.lblAt_tag_StatusAtilla.Name = "lblAt_tag_StatusAtilla"
Me.lblAt_tag_StatusAtilla.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAt_tag_StatusAtilla.Size = New System.Drawing.Size(22, 13)
@@ -1053,7 +1053,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.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.Location = New System.Drawing.Point(534, 186)
Me.lblAtWocheImex.Location = New System.Drawing.Point(555, 186)
Me.lblAtWocheImex.Name = "lblAtWocheImex"
Me.lblAtWocheImex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtWocheImex.Size = New System.Drawing.Size(90, 13)
@@ -1065,7 +1065,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.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.Location = New System.Drawing.Point(385, 187)
Me.lblAtTagImex.Location = New System.Drawing.Point(406, 187)
Me.lblAtTagImex.Name = "lblAtTagImex"
Me.lblAtTagImex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtTagImex.Size = New System.Drawing.Size(90, 13)
@@ -1080,7 +1080,7 @@ Partial Class frmMain
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.ForeColor = System.Drawing.Color.White
Me.lblAt_woche_StatusImex.Location = New System.Drawing.Point(630, 186)
Me.lblAt_woche_StatusImex.Location = New System.Drawing.Point(651, 186)
Me.lblAt_woche_StatusImex.Name = "lblAt_woche_StatusImex"
Me.lblAt_woche_StatusImex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAt_woche_StatusImex.Size = New System.Drawing.Size(22, 13)
@@ -1095,7 +1095,7 @@ Partial Class frmMain
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.ForeColor = System.Drawing.Color.White
Me.lblAt_tag_StatusImex.Location = New System.Drawing.Point(483, 187)
Me.lblAt_tag_StatusImex.Location = New System.Drawing.Point(504, 187)
Me.lblAt_tag_StatusImex.Name = "lblAt_tag_StatusImex"
Me.lblAt_tag_StatusImex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAt_tag_StatusImex.Size = New System.Drawing.Size(22, 13)
@@ -1107,7 +1107,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.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(528, 488)
Me.Label3.Location = New System.Drawing.Point(549, 488)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(128, 13)
Me.Label3.TabIndex = 25
@@ -1118,7 +1118,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.Cursor = System.Windows.Forms.Cursors.Default
Me.lblAufschubBrg_de_Imex_oE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_de_Imex_oE.Location = New System.Drawing.Point(413, 333)
Me.lblAufschubBrg_de_Imex_oE.Location = New System.Drawing.Point(434, 333)
Me.lblAufschubBrg_de_Imex_oE.Name = "lblAufschubBrg_de_Imex_oE"
Me.lblAufschubBrg_de_Imex_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_de_Imex_oE.Size = New System.Drawing.Size(90, 13)
@@ -1130,7 +1130,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.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrg_at_VeragZS_oE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_at_VeragZS_oE.Location = New System.Drawing.Point(413, 545)
Me.lblAufschubBrg_at_VeragZS_oE.Location = New System.Drawing.Point(434, 545)
Me.lblAufschubBrg_at_VeragZS_oE.Name = "lblAufschubBrg_at_VeragZS_oE"
Me.lblAufschubBrg_at_VeragZS_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_VeragZS_oE.Size = New System.Drawing.Size(90, 13)
@@ -1143,7 +1143,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.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrg_at_VeragCS_oE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_at_VeragCS_oE.Location = New System.Drawing.Point(413, 525)
Me.lblAufschubBrg_at_VeragCS_oE.Location = New System.Drawing.Point(434, 525)
Me.lblAufschubBrg_at_VeragCS_oE.Name = "lblAufschubBrg_at_VeragCS_oE"
Me.lblAufschubBrg_at_VeragCS_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_VeragCS_oE.Size = New System.Drawing.Size(90, 13)
@@ -1156,7 +1156,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.Cursor = System.Windows.Forms.Cursors.Default
Me.lblAufschubBrg_de_VeragAG_oE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_de_VeragAG_oE.Location = New System.Drawing.Point(413, 288)
Me.lblAufschubBrg_de_VeragAG_oE.Location = New System.Drawing.Point(434, 288)
Me.lblAufschubBrg_de_VeragAG_oE.Name = "lblAufschubBrg_de_VeragAG_oE"
Me.lblAufschubBrg_de_VeragAG_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_de_VeragAG_oE.Size = New System.Drawing.Size(90, 13)
@@ -1168,7 +1168,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.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrg_at_VeragAG_oE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_at_VeragAG_oE.Location = New System.Drawing.Point(413, 505)
Me.lblAufschubBrg_at_VeragAG_oE.Location = New System.Drawing.Point(434, 505)
Me.lblAufschubBrg_at_VeragAG_oE.Name = "lblAufschubBrg_at_VeragAG_oE"
Me.lblAufschubBrg_at_VeragAG_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_VeragAG_oE.Size = New System.Drawing.Size(90, 13)
@@ -1201,7 +1201,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.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrg_de_Imex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_de_Imex.Location = New System.Drawing.Point(534, 333)
Me.lblAufschubBrg_de_Imex.Location = New System.Drawing.Point(555, 333)
Me.lblAufschubBrg_de_Imex.Name = "lblAufschubBrg_de_Imex"
Me.lblAufschubBrg_de_Imex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_de_Imex.Size = New System.Drawing.Size(90, 13)
@@ -1213,7 +1213,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.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubAkt_de_Imex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubAkt_de_Imex.Location = New System.Drawing.Point(293, 340)
Me.lblAufschubAkt_de_Imex.Location = New System.Drawing.Point(314, 340)
Me.lblAufschubAkt_de_Imex.Name = "lblAufschubAkt_de_Imex"
Me.lblAufschubAkt_de_Imex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubAkt_de_Imex.Size = New System.Drawing.Size(90, 13)
@@ -1229,7 +1229,7 @@ Partial Class frmMain
Me.lblAufschubStatus_de_Imex.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAufschubStatus_de_Imex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubStatus_de_Imex.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_de_Imex.Location = New System.Drawing.Point(630, 333)
Me.lblAufschubStatus_de_Imex.Location = New System.Drawing.Point(651, 333)
Me.lblAufschubStatus_de_Imex.Name = "lblAufschubStatus_de_Imex"
Me.lblAufschubStatus_de_Imex.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_de_Imex.Size = New System.Drawing.Size(22, 13)
@@ -1261,7 +1261,7 @@ Partial Class frmMain
Me.lblDe2Woche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDe2Woche.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblDe2Woche.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDe2Woche.Location = New System.Drawing.Point(534, 122)
Me.lblDe2Woche.Location = New System.Drawing.Point(555, 122)
Me.lblDe2Woche.Name = "lblDe2Woche"
Me.lblDe2Woche.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblDe2Woche.Size = New System.Drawing.Size(90, 13)
@@ -1273,7 +1273,7 @@ Partial Class frmMain
Me.lblDe2Tag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDe2Tag.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblDe2Tag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDe2Tag.Location = New System.Drawing.Point(385, 123)
Me.lblDe2Tag.Location = New System.Drawing.Point(406, 123)
Me.lblDe2Tag.Name = "lblDe2Tag"
Me.lblDe2Tag.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblDe2Tag.Size = New System.Drawing.Size(90, 13)
@@ -1288,7 +1288,7 @@ Partial Class frmMain
Me.lblDe2_woche_Status.Cursor = System.Windows.Forms.Cursors.Help
Me.lblDe2_woche_Status.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDe2_woche_Status.ForeColor = System.Drawing.Color.White
Me.lblDe2_woche_Status.Location = New System.Drawing.Point(630, 122)
Me.lblDe2_woche_Status.Location = New System.Drawing.Point(651, 122)
Me.lblDe2_woche_Status.Name = "lblDe2_woche_Status"
Me.lblDe2_woche_Status.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblDe2_woche_Status.Size = New System.Drawing.Size(22, 13)
@@ -1303,7 +1303,7 @@ Partial Class frmMain
Me.lblDe2_tag_Status.Cursor = System.Windows.Forms.Cursors.Help
Me.lblDe2_tag_Status.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDe2_tag_Status.ForeColor = System.Drawing.Color.White
Me.lblDe2_tag_Status.Location = New System.Drawing.Point(483, 123)
Me.lblDe2_tag_Status.Location = New System.Drawing.Point(504, 123)
Me.lblDe2_tag_Status.Name = "lblDe2_tag_Status"
Me.lblDe2_tag_Status.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblDe2_tag_Status.Size = New System.Drawing.Size(22, 13)
@@ -1314,7 +1314,7 @@ Partial Class frmMain
'
Me.lblAkt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAkt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblAkt.Location = New System.Drawing.Point(493, 64)
Me.lblAkt.Location = New System.Drawing.Point(514, 64)
Me.lblAkt.Name = "lblAkt"
Me.lblAkt.Size = New System.Drawing.Size(164, 13)
Me.lblAkt.TabIndex = 7
@@ -1366,7 +1366,7 @@ Partial Class frmMain
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(669, 50)
Me.Panel1.Size = New System.Drawing.Size(690, 50)
Me.Panel1.TabIndex = 2
'
'Button5
@@ -1374,7 +1374,7 @@ Partial Class frmMain
Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.ForeColor = System.Drawing.Color.White
Me.Button5.Location = New System.Drawing.Point(530, 15)
Me.Button5.Location = New System.Drawing.Point(551, 15)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(91, 23)
Me.Button5.TabIndex = 11
@@ -1386,7 +1386,7 @@ Partial Class frmMain
Me.btnBelastungAufheben.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnBelastungAufheben.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBelastungAufheben.ForeColor = System.Drawing.Color.White
Me.btnBelastungAufheben.Location = New System.Drawing.Point(255, 15)
Me.btnBelastungAufheben.Location = New System.Drawing.Point(276, 15)
Me.btnBelastungAufheben.Name = "btnBelastungAufheben"
Me.btnBelastungAufheben.Size = New System.Drawing.Size(91, 23)
Me.btnBelastungAufheben.TabIndex = 10
@@ -1399,7 +1399,7 @@ Partial Class frmMain
Me.btnKtoAkt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnKtoAkt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnKtoAkt.ForeColor = System.Drawing.Color.White
Me.btnKtoAkt.Location = New System.Drawing.Point(349, 15)
Me.btnKtoAkt.Location = New System.Drawing.Point(370, 15)
Me.btnKtoAkt.Name = "btnKtoAkt"
Me.btnKtoAkt.Size = New System.Drawing.Size(96, 23)
Me.btnKtoAkt.TabIndex = 9
@@ -1412,7 +1412,7 @@ Partial Class frmMain
Me.btnZusBel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnZusBel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnZusBel.ForeColor = System.Drawing.Color.White
Me.btnZusBel.Location = New System.Drawing.Point(255, 6)
Me.btnZusBel.Location = New System.Drawing.Point(276, 6)
Me.btnZusBel.Name = "btnZusBel"
Me.btnZusBel.Size = New System.Drawing.Size(79, 23)
Me.btnZusBel.TabIndex = 3
@@ -1425,7 +1425,7 @@ Partial Class frmMain
Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox1.Image = Global.VERAGMonitoring.My.Resources.Resources.refresh
Me.PictureBox1.Location = New System.Drawing.Point(619, 11)
Me.PictureBox1.Location = New System.Drawing.Point(640, 11)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(38, 27)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -1448,7 +1448,7 @@ Partial Class frmMain
Me.btnEinzahlung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnEinzahlung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnEinzahlung.ForeColor = System.Drawing.Color.White
Me.btnEinzahlung.Location = New System.Drawing.Point(448, 15)
Me.btnEinzahlung.Location = New System.Drawing.Point(469, 15)
Me.btnEinzahlung.Name = "btnEinzahlung"
Me.btnEinzahlung.Size = New System.Drawing.Size(79, 23)
Me.btnEinzahlung.TabIndex = 2
@@ -1521,7 +1521,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.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(552, 594)
Me.Button1.Location = New System.Drawing.Point(573, 594)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(103, 23)
Me.Button1.TabIndex = 0
@@ -1546,7 +1546,7 @@ Partial Class frmMain
Me.lblAufschubStatus_at_VeragZS.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAufschubStatus_at_VeragZS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubStatus_at_VeragZS.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_at_VeragZS.Location = New System.Drawing.Point(630, 545)
Me.lblAufschubStatus_at_VeragZS.Location = New System.Drawing.Point(651, 545)
Me.lblAufschubStatus_at_VeragZS.Name = "lblAufschubStatus_at_VeragZS"
Me.lblAufschubStatus_at_VeragZS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_at_VeragZS.Size = New System.Drawing.Size(22, 13)
@@ -1561,7 +1561,7 @@ Partial Class frmMain
Me.lblAufschubStatus_at_VeragCS.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAufschubStatus_at_VeragCS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubStatus_at_VeragCS.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_at_VeragCS.Location = New System.Drawing.Point(630, 525)
Me.lblAufschubStatus_at_VeragCS.Location = New System.Drawing.Point(651, 525)
Me.lblAufschubStatus_at_VeragCS.Name = "lblAufschubStatus_at_VeragCS"
Me.lblAufschubStatus_at_VeragCS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_at_VeragCS.Size = New System.Drawing.Size(22, 13)
@@ -1573,7 +1573,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.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubAkt_at_VeragZS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubAkt_at_VeragZS.Location = New System.Drawing.Point(293, 546)
Me.lblAufschubAkt_at_VeragZS.Location = New System.Drawing.Point(314, 546)
Me.lblAufschubAkt_at_VeragZS.Name = "lblAufschubAkt_at_VeragZS"
Me.lblAufschubAkt_at_VeragZS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubAkt_at_VeragZS.Size = New System.Drawing.Size(90, 13)
@@ -1596,7 +1596,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.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrg_at_VeragZS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_at_VeragZS.Location = New System.Drawing.Point(534, 545)
Me.lblAufschubBrg_at_VeragZS.Location = New System.Drawing.Point(555, 545)
Me.lblAufschubBrg_at_VeragZS.Name = "lblAufschubBrg_at_VeragZS"
Me.lblAufschubBrg_at_VeragZS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_VeragZS.Size = New System.Drawing.Size(90, 13)
@@ -1608,7 +1608,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.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubAkt_at_VeragCS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubAkt_at_VeragCS.Location = New System.Drawing.Point(293, 526)
Me.lblAufschubAkt_at_VeragCS.Location = New System.Drawing.Point(314, 526)
Me.lblAufschubAkt_at_VeragCS.Name = "lblAufschubAkt_at_VeragCS"
Me.lblAufschubAkt_at_VeragCS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubAkt_at_VeragCS.Size = New System.Drawing.Size(90, 13)
@@ -1621,7 +1621,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.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.Location = New System.Drawing.Point(534, 164)
Me.lblAtWoche.Location = New System.Drawing.Point(555, 164)
Me.lblAtWoche.Name = "lblAtWoche"
Me.lblAtWoche.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtWoche.Size = New System.Drawing.Size(90, 13)
@@ -1633,7 +1633,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.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrg_at_VeragCS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_at_VeragCS.Location = New System.Drawing.Point(534, 525)
Me.lblAufschubBrg_at_VeragCS.Location = New System.Drawing.Point(555, 525)
Me.lblAufschubBrg_at_VeragCS.Name = "lblAufschubBrg_at_VeragCS"
Me.lblAufschubBrg_at_VeragCS.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_VeragCS.Size = New System.Drawing.Size(90, 13)
@@ -1645,7 +1645,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.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.Location = New System.Drawing.Point(385, 165)
Me.lblAtTag.Location = New System.Drawing.Point(406, 165)
Me.lblAtTag.Name = "lblAtTag"
Me.lblAtTag.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAtTag.Size = New System.Drawing.Size(90, 13)
@@ -1670,7 +1670,7 @@ Partial Class frmMain
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.ForeColor = System.Drawing.Color.White
Me.lblAt_woche_Status.Location = New System.Drawing.Point(630, 164)
Me.lblAt_woche_Status.Location = New System.Drawing.Point(651, 164)
Me.lblAt_woche_Status.Name = "lblAt_woche_Status"
Me.lblAt_woche_Status.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAt_woche_Status.Size = New System.Drawing.Size(22, 13)
@@ -1702,7 +1702,7 @@ Partial Class frmMain
Me.Label32.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label32.AutoSize = True
Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label32.Location = New System.Drawing.Point(552, 98)
Me.Label32.Location = New System.Drawing.Point(573, 98)
Me.Label32.Name = "Label32"
Me.Label32.Size = New System.Drawing.Size(104, 13)
Me.Label32.TabIndex = 1
@@ -1716,7 +1716,7 @@ Partial Class frmMain
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.ForeColor = System.Drawing.Color.White
Me.lblAt_tag_Status.Location = New System.Drawing.Point(483, 165)
Me.lblAt_tag_Status.Location = New System.Drawing.Point(504, 165)
Me.lblAt_tag_Status.Name = "lblAt_tag_Status"
Me.lblAt_tag_Status.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAt_tag_Status.Size = New System.Drawing.Size(22, 13)
@@ -1728,7 +1728,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.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(386, 259)
Me.Label8.Location = New System.Drawing.Point(407, 259)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(116, 13)
Me.Label8.TabIndex = 1
@@ -1749,7 +1749,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.AutoSize = True
Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label34.Location = New System.Drawing.Point(540, 259)
Me.Label34.Location = New System.Drawing.Point(561, 259)
Me.Label34.Name = "Label34"
Me.Label34.Size = New System.Drawing.Size(116, 13)
Me.Label34.TabIndex = 1
@@ -1760,7 +1760,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.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrg_de_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_de_VeragAG.Location = New System.Drawing.Point(534, 288)
Me.lblAufschubBrg_de_VeragAG.Location = New System.Drawing.Point(555, 288)
Me.lblAufschubBrg_de_VeragAG.Name = "lblAufschubBrg_de_VeragAG"
Me.lblAufschubBrg_de_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_de_VeragAG.Size = New System.Drawing.Size(90, 13)
@@ -1772,7 +1772,7 @@ Partial Class frmMain
Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label12.AutoSize = True
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label12.Location = New System.Drawing.Point(432, 98)
Me.Label12.Location = New System.Drawing.Point(453, 98)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(76, 13)
Me.Label12.TabIndex = 1
@@ -1783,7 +1783,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.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubAkt_de_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubAkt_de_VeragAG.Location = New System.Drawing.Point(293, 295)
Me.lblAufschubAkt_de_VeragAG.Location = New System.Drawing.Point(314, 295)
Me.lblAufschubAkt_de_VeragAG.Name = "lblAufschubAkt_de_VeragAG"
Me.lblAufschubAkt_de_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubAkt_de_VeragAG.Size = New System.Drawing.Size(90, 13)
@@ -1806,7 +1806,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.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubBrg_at_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubBrg_at_VeragAG.Location = New System.Drawing.Point(534, 505)
Me.lblAufschubBrg_at_VeragAG.Location = New System.Drawing.Point(555, 505)
Me.lblAufschubBrg_at_VeragAG.Name = "lblAufschubBrg_at_VeragAG"
Me.lblAufschubBrg_at_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubBrg_at_VeragAG.Size = New System.Drawing.Size(90, 13)
@@ -1821,7 +1821,7 @@ Partial Class frmMain
Me.lblAufschubStatus_at_VeragAG.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAufschubStatus_at_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubStatus_at_VeragAG.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_at_VeragAG.Location = New System.Drawing.Point(630, 505)
Me.lblAufschubStatus_at_VeragAG.Location = New System.Drawing.Point(651, 505)
Me.lblAufschubStatus_at_VeragAG.Name = "lblAufschubStatus_at_VeragAG"
Me.lblAufschubStatus_at_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_at_VeragAG.Size = New System.Drawing.Size(22, 13)
@@ -1833,7 +1833,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.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblAufschubAkt_at_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubAkt_at_VeragAG.Location = New System.Drawing.Point(293, 506)
Me.lblAufschubAkt_at_VeragAG.Location = New System.Drawing.Point(314, 506)
Me.lblAufschubAkt_at_VeragAG.Name = "lblAufschubAkt_at_VeragAG"
Me.lblAufschubAkt_at_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubAkt_at_VeragAG.Size = New System.Drawing.Size(90, 13)
@@ -1849,7 +1849,7 @@ Partial Class frmMain
Me.lblAufschubStatus_de_VeragAG.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAufschubStatus_de_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAufschubStatus_de_VeragAG.ForeColor = System.Drawing.Color.White
Me.lblAufschubStatus_de_VeragAG.Location = New System.Drawing.Point(630, 288)
Me.lblAufschubStatus_de_VeragAG.Location = New System.Drawing.Point(651, 288)
Me.lblAufschubStatus_de_VeragAG.Name = "lblAufschubStatus_de_VeragAG"
Me.lblAufschubStatus_de_VeragAG.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblAufschubStatus_de_VeragAG.Size = New System.Drawing.Size(22, 13)
@@ -1861,7 +1861,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.AutoSize = True
Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label30.Location = New System.Drawing.Point(410, 272)
Me.Label30.Location = New System.Drawing.Point(431, 272)
Me.Label30.Name = "Label30"
Me.Label30.Size = New System.Drawing.Size(92, 13)
Me.Label30.TabIndex = 1
@@ -1872,7 +1872,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.AutoSize = True
Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label31.Location = New System.Drawing.Point(548, 271)
Me.Label31.Location = New System.Drawing.Point(569, 271)
Me.Label31.Name = "Label31"
Me.Label31.Size = New System.Drawing.Size(108, 13)
Me.Label31.TabIndex = 1
@@ -1924,7 +1924,7 @@ Partial Class frmMain
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(671, 627)
Me.ClientSize = New System.Drawing.Size(692, 627)
Me.Controls.Add(Me.Panel2)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MinimizeBox = False

5
VERAGMonitoring/frmMain.vb
View File

@@ -568,8 +568,8 @@ Public Class frmMain
' 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_VERAG_CS.Checked Then setAlarm("VERAG CS | AT - gVV - HZA Linz/Wels Tagessaldo", "19", Me.lblAtTagVERAG_CS, cMonitoringBrg.brgusrset_gvvAt_CS_tag_warn1, cMonitoringBrg.brgusrset_gvvAt_CS_tag_warn2, cMonitoringBrg.brgusrset_gvvAt_CS_at_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_CS_woche_warn1, cMonitoringBrg.brgusrset_gvvAt_CS_woche_warn2, cMonitoringBrg.brgusrset_gvvAt_CS_at_summe, lblAt_woche_StatusVERAG_CS)
@@ -1191,6 +1191,7 @@ Public Class frmMain
If cbxBrg_de2_VeragAG.Checked Then lblBrg_de2_VeragAG.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_gvvDe2_summe) & ")"
lblBrg_at_Imex.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_gvvAt_imex_de_summe) & ")"
lblBrg_at_Atilla.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_gvvAt_ATILLA_de_summe) & ")"
lblBrg_at_VERAG_CS.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.brgusrset_gvvAt_CS_at_summe) & ")"
'Label33lblBrg_at_UNISPED.Text &= " (" & String.Format("{0:C}", cMonitoringBrg.unis) & ")"