From dbb7a78111ac03bb78100461bf46f496e6e188b4 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Fri, 16 May 2025 10:49:00 +0200 Subject: [PATCH] vers --- .../cZollsysteme_Aktenbeschriftung.vb | 394 +++++++++++++++++- VERAGMonitoring/My Project/AssemblyInfo.vb | 4 +- VERAGMonitoring/cClasses.vb | 12 +- VERAGMonitoring/cSqlDb.vb | 20 + VERAGMonitoring/frmMain.Designer.vb | 178 ++++---- VERAGMonitoring/frmMain.vb | 5 +- 6 files changed, 513 insertions(+), 100 deletions(-) diff --git a/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb b/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb index 95aab5f..8503a9b 100644 --- a/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb +++ b/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb @@ -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 diff --git a/VERAGMonitoring/My Project/AssemblyInfo.vb b/VERAGMonitoring/My Project/AssemblyInfo.vb index 3031053..b950278 100644 --- a/VERAGMonitoring/My Project/AssemblyInfo.vb +++ b/VERAGMonitoring/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/VERAGMonitoring/cClasses.vb b/VERAGMonitoring/cClasses.vb index b9fff0b..37b7233 100644 --- a/VERAGMonitoring/cClasses.vb +++ b/VERAGMonitoring/cClasses.vb @@ -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 diff --git a/VERAGMonitoring/cSqlDb.vb b/VERAGMonitoring/cSqlDb.vb index 9bfe636..ce2f8cb 100644 --- a/VERAGMonitoring/cSqlDb.vb +++ b/VERAGMonitoring/cSqlDb.vb @@ -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 diff --git a/VERAGMonitoring/frmMain.Designer.vb b/VERAGMonitoring/frmMain.Designer.vb index f69ca59..39fbf80 100644 --- a/VERAGMonitoring/frmMain.Designer.vb +++ b/VERAGMonitoring/frmMain.Designer.vb @@ -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 diff --git a/VERAGMonitoring/frmMain.vb b/VERAGMonitoring/frmMain.vb index d92377d..e0ba94b 100644 --- a/VERAGMonitoring/frmMain.vb +++ b/VERAGMonitoring/frmMain.vb @@ -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) & ")"