diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb index f60d897..ce83184 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb @@ -921,7 +921,7 @@ Public Class cDakosyNCTSOut SPEDITIONSBUCH.Abfertigungsart = 6 For Each s In DY.ncts_SICHERHEITSANGABEN Select Case If(s.nctsSA_GRN, "") - Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518" : SPEDITIONSBUCH.Abfertigungsart = 34 + Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157" : SPEDITIONSBUCH.Abfertigungsart = 34 Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33 Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37 End Select @@ -944,7 +944,7 @@ Public Class cDakosyNCTSOut End If End If - + VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW Try Dim ANM As New DAKOSY_Worker.cDakosy_Zollanmeldungen(DY.ncts_dyaAnmID) diff --git a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj index 8049a6f..8df92d9 100644 --- a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj +++ b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj @@ -21,6 +21,7 @@ bin\Debug\ DAKOSY_Worker.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + x64 pdbonly diff --git a/DAKOSY_Worker/cDakosy_Statusmeldungen.vb b/DAKOSY_Worker/cDakosy_Statusmeldungen.vb index cfe8d52..b5b5c50 100644 --- a/DAKOSY_Worker/cDakosy_Statusmeldungen.vb +++ b/DAKOSY_Worker/cDakosy_Statusmeldungen.vb @@ -55,9 +55,12 @@ Public Class cDakosy_Statusmeldungen Dim STATUS As New cDakosy_Statusmeldungen Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL 'Primär wird nach erg_datum geprüft! - Dim cntNewerTrans As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and isnull([dySt_ergZeitpunkt],dySt_DakosyTransaktionsDatum)> '" & ergDate & "'", "FMZOLL") + Dim cntNewerTrans As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and isnull(isnull([dySt_ergZeitpunkt],dySt_DakosyTransaktionsDatum),[dySt_ts])> '" & ergDate & "' AND [dySt_status] > 5 ", "FMZOLL") + ' AND [dySt_status] > 5 --> Weil bei den 5er Status keine korrekte Zeitangabe vorliegt und die hoheren Staten sind immer danach. + ' MsgBox("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and isnull([dySt_ergZeitpunkt],dySt_DakosyTransaktionsDatum)> '" & ergDate & "'" & " - " & cntNewerTrans & " - " & BezugsNr) + Return cntNewerTrans = 0 Catch ex As Exception diff --git a/DAKOSY_Worker/cZOLL_IMPORT.vb b/DAKOSY_Worker/cZOLL_IMPORT.vb index dcfe6c4..33e8b8b 100644 --- a/DAKOSY_Worker/cZOLL_IMPORT.vb +++ b/DAKOSY_Worker/cZOLL_IMPORT.vb @@ -139,6 +139,17 @@ Public Class cZOLL_IMPORT Dim errHInweis = "ATC: " & ABGABEN.Registriernummer & " - BezugsNr: " & ABGABEN.Bezugsnummer ABGABEN.SAVE(errHInweis) + + + Dim EDIFACTNachrichtenNr = "" + 'Aufschub - Überwachung: + Select Case CInt(ABGABEN.AKTO) + Case 3027279 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 1, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) + 'UNISPED Case XXX: tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag,XXX, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) + + 'Case 2718 : VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMailTEST("al@verag.ag", "AUFSCHUB IMEX: " & ABGABEN.Betrag, "AUFSCHUB IMEX: " & ABGABEN.Betrag & vbNewLine & ABGABEN.Bezugsnummer) + End Select + End If End If End If @@ -147,6 +158,52 @@ Public Class cZOLL_IMPORT End If End Sub + + Public Function tryToInsertProgramm(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_fileline, brgak_faelligkeitsdatum) As Boolean + + Dim sql As String = " begin tran" & + " if Not exists (select * from tblBrgAufschub with (updlock,serializable) where brgak_filename = @brgak_filename AND brgak_fileline=@brgak_fileline ) " & + " begin " & + " INSERT INTO tblBrgAufschub " & + " (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc,brgak_fileline,brgak_faelligkeitsdatum) VALUES " & + " (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,@brgak_fileline,@brgak_faelligkeitsdatum) " & + " End " & + " commit tran " + + + Dim cn As System.Data.SqlClient.SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN + + Using cn + Using cmd As New System.Data.SqlClient.SqlCommand(sql, cn) + cmd.Parameters.AddWithValue("@brgak_datum", brgak_datum) + cmd.Parameters.AddWithValue("@brgak_betrag", brgak_betrag) + cmd.Parameters.AddWithValue("@brgak_brgaktoId", brgak_brgaktoId) + cmd.Parameters.AddWithValue("@brgak_filename", brgak_filename) + cmd.Parameters.AddWithValue("@brgak_atc", brgak_atc) + cmd.Parameters.AddWithValue("@brgak_fileline", brgak_fileline) + cmd.Parameters.AddWithValue("@brgak_faelligkeitsdatum", brgak_faelligkeitsdatum) + Try + cmd.ExecuteNonQuery() + + 'Lösche File: + + + Return True + Catch ex As System.Data.SqlClient.SqlException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Using + End Using + cn.Close() + Return False + End Function + + + + + + + Shared Function getLeistungsBez(LeistungsBez) Select Case LeistungsBez Case "0ML" diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index 7013765..24148c9 100644 --- a/MailSender/MAILSender.vb +++ b/MailSender/MAILSender.vb @@ -35,6 +35,38 @@ Module Mail + 'Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG("ATILLA/VERAG", "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '", CDate("01.08.2021 00:00:00"), CDate("12.08.2021 23:59:59"), True) + 'Dim _list As New List(Of String) : _list.Add(_erg) + 'VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TOBB " & "ATILLA/VERAG", "*Automatic generated e-mail*",,,, "", "al@verag.ag", _list) + + '_erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG("IMEX", "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '", CDate("01.08.2021 00:00:00"), CDate("12.08.2021 23:59:59"), True) + '_list.Clear() : _list.Add(_erg) + 'VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TOBB " & "IMEX", "*Automatic generated e-mail*",,,, "", "al@verag.ag", _list) + + 'Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG("UNISPED", "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '", CDate("01.08.2021 00:00:00"), CDate("12.08.2021 23:59:59"), True) + 'Dim _list As New List(Of String) : _list.Add(_erg) + '' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TOBB " & "UNISPED", "*Automatic generated e-mail*",,,, "", "al@verag.ag", _list) + 'VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;pinar.dogan@tobbund.com.tr;kerem.gozutok@tobbund.com.tr", "TOBB " & "UNISPED", "*Automatic generated e-mail*",,,, "Katharina.Haas@unisped.at;Sabine.Muehlboeck@unisped.at;Ernst.Stolzlechner@unisped.at", "al@verag.ag", _list) + 'Exit Sub + + + + + + 'SendEmail_QS_Auswertung("01.01.2021", "31.01.2021") + 'SendEmail_QS_Auswertung("01.02.2021", "28.02.2021") + 'SendEmail_QS_Auswertung("01.03.2021", "31.03.2021") + 'SendEmail_QS_Auswertung("01.04.2021", "30.04.2021") + 'SendEmail_QS_Auswertung("01.05.2021", "31.05.2021") + 'SendEmail_QS_Auswertung("01.06.2021", "30.06.2021") + 'SendEmail_QS_Auswertung("01.07.2021", "31.07.2021") + + 'Threading.Thread.Sleep(165000) + + + + 'Exit Sub + '------------------------------------------------------------------------------------ @@ -44,7 +76,10 @@ Module Mail - + 'Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG("VERAG/ATILLA", "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '", CDate("07.06.2021 00:00:00"), CDate("07.06.2021 23:59:59"), True) + 'Dim _list As New List(Of String) : _list.Add(_erg) + 'VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TOBB " & "VERAG/ATILLA test", "*Automatic generated e-mail*",,,, , , _list) + 'Exit Sub @@ -64,7 +99,6 @@ Module Mail System.Console.WriteLine("MailSender konnte nicht gestartet werden, da eine Insatanz noch läuft...") Else - 'Select Case firma ' Case "ATILLA" ' Msg.Subject = "Kunden TR - Offene Rechnungen - ATILLA" @@ -148,7 +182,11 @@ Module Mail Case "QS_AUFTEILUNG" System.Console.WriteLine("OPTION erkannt: QS_AUFTEILUNG _ Erstellt die Auswertung der QS-AUFTEILUNG.") System.Console.WriteLine("Auswertung gestartet...") - If SendEmail_QS_Auswertung() Then 'für Andreas Details + + Dim von = CDate("01." & Now.AddMonths(-1).Month & "." & Now.AddMonths(-1).Year) + Dim bis = CDate("01." & Now.Month & "." & Now.Year).AddDays(-1) + + If SendEmail_QS_Auswertung(von, bis) Then 'für Andreas Details System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...") End If Case "CS_AUFTEILUNG" @@ -218,7 +256,7 @@ Module Mail End Sub Sub sendTOBB(FirmaTmp, datVon, datBis) - Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG(FirmaTmp, "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '", datVon, datBis, True) + Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG(FirmaTmp, "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 / 21TR0004000079552 / 21TR0004000078157", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518','21TR0004000079552','21TR0004000078157'", datVon, datBis, True) Select Case _erg Case "NO_RESULT" System.Console.WriteLine("Keine Einträge gefunden.") @@ -495,7 +533,7 @@ Module Mail Return False End Function - Private Function SendEmail_QS_Auswertung() As Boolean + Private Function SendEmail_QS_Auswertung(von, bis) As Boolean Dim Msg As New MailMessage Dim myCredentials As New System.Net.NetworkCredential myCredentials.UserName = "al@verag.ag" @@ -515,15 +553,15 @@ Module Mail Try Dim datum As String = Now.AddDays(-1).ToShortDateString System.Console.WriteLine("Erstelle EXCEL...") - Dim excel As String = genEXCEL_QS() - System.Console.WriteLine("EXCEL erstellt...") + Dim excel As String = genEXCEL_QS(von, bis) + System.Console.WriteLine("EXCEL erstellt..." & excel) If excel <> "" And Not excel.StartsWith("ERROR: ") Then System.Console.WriteLine("Sende E-Mail...") Msg.From = New MailAddress("al@verag.ag") - Msg.To.Add("jl@verag.ag") + Msg.To.Add("al@verag.ag") Msg.Bcc.Add("al@verag.ag") ' Msg.Bcc.Add("ga@verag.ag") @@ -995,28 +1033,25 @@ Module Mail End Try End Function - Public Function genEXCEL_QS() As String + Public Function genEXCEL_QS(von As Date, bis As Date) As String Try Dim sqlstr As String = "" - Dim von = CDate("01." & Now.AddMonths(-1).Month & "." & Now.AddMonths(-1).Year) - Dim bis = CDate("01." & Now.Month & "." & Now.Year).AddDays(-1) - 'sqlstr &= " SELECT Aviso.[Grenzstelle], SUM(Speditionsbuch.Abfertigungsanzahl) as Anzahl FROM Speditionsbuch INNER JOIN [SQLGUIDE01.verag.ost.dmn].AVISO.dbo.AVISO on Aviso.avisoid=Speditionsbuch.AvisoID " - 'sqlstr &= " WHERE PersonalnummerQS is not null " - 'sqlstr &= " and FilialenNr NOT IN ( 4801,4806,5501 ) " + 'sqlstr &= " WHERE PersonalnummerQS is not null " + 'sqlstr &= " and FilialenNr NOT IN ( 4801,4806,5501 ) " 'sqlstr &= " and Abfertigungsdatum between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " & ' " GROUP BY Aviso.[Grenzstelle]" & ' " ORDER BY Anzahl DESC" - sqlstr &= " SELECT [Grenzstelle], SUM(Speditionsbuch.Abfertigungsanzahl) as Anzahl FROM Speditionsbuch " + sqlstr &= " SELECT Speditionsbuch.[Grenzstelle], SUM(Speditionsbuch.Abfertigungsanzahl) as Anzahl FROM Speditionsbuch inner join Filialen on filialen.FilialenNr=Speditionsbuch.FilialenNr " sqlstr &= " WHERE FilialenNrAbklaerung ='4803' " 'QS SUB ' sqlstr &= " WHERE Filiale " - sqlstr &= " and FilialenNr NOT IN ( 4801,4806,5501 ) " + sqlstr &= " and Filialen.Firma='VERAG' " sqlstr &= " and Abfertigungsdatum between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " & - " GROUP BY [Grenzstelle]" & + " GROUP BY Speditionsbuch.[Grenzstelle]" & " ORDER BY Anzahl DESC" Dim dt As DataTable = loadDgvBySqlFMZOLL(sqlstr) @@ -1029,6 +1064,9 @@ Module Mail With exclApp .Visible = False Dim filepath = sPath & "QS_Auswertung.xlsx" + While IO.File.Exists(filepath) + filepath = sPath & "QS_Auswertung_" & Now.ToString("ddMMyyy_HHmmss_fff") & ".xlsx" + End While Try My.Computer.FileSystem.WriteAllBytes(filepath, My.Resources.QS_Aufteilung, False) Catch ex As System.Exception @@ -1049,9 +1087,14 @@ Module Mail Blatt.Range("F1").Value = bis.ToShortDateString Datei.Save() + Try : Datei.close() : Catch ex As System.Exception + Return "ERROR 03: " & ex.Message & vbNewLine & ex.StackTrace + End Try .DisplayAlerts = False .quit() - Try : Datei.close(True) : Catch : End Try + releaseObject(exclApp) + releaseObject(Datei) + Return filepath End With @@ -1061,6 +1104,16 @@ Module Mail End Try End Function + Private Sub releaseObject(ByVal obj As Object) + Try + System.Runtime.InteropServices.Marshal.ReleaseComObject(obj) + obj = Nothing + Catch ex As Exception + obj = Nothing + Finally + GC.Collect() + End Try + End Sub Public Function genEXCEL_CS() As String Try diff --git a/MailSender/Resources/QS_Aufteilung.xlsx b/MailSender/Resources/QS_Aufteilung.xlsx index 24da685..624646c 100644 Binary files a/MailSender/Resources/QS_Aufteilung.xlsx and b/MailSender/Resources/QS_Aufteilung.xlsx differ diff --git a/TELOTEK_Worker_lib/TELOTEC_Worker_lib.vbproj b/TELOTEK_Worker_lib/TELOTEC_Worker_lib.vbproj index 7c62f7d..a7b94ff 100644 --- a/TELOTEK_Worker_lib/TELOTEC_Worker_lib.vbproj +++ b/TELOTEK_Worker_lib/TELOTEC_Worker_lib.vbproj @@ -22,6 +22,7 @@ bin\Debug\ TELOTEC_Worker.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + x64 pdbonly diff --git a/TELOTEK_Worker_lib/cTelokec.vb b/TELOTEK_Worker_lib/cTelokec.vb index d515f97..085fd09 100644 --- a/TELOTEK_Worker_lib/cTelokec.vb +++ b/TELOTEK_Worker_lib/cTelokec.vb @@ -392,7 +392,14 @@ Public Class cTelotec_Anmeldung If srchStrFiliale.Length <> 4 Then Return False 'If srchStrAbf.Length > 8 Then srchStrAbf = srchStrAbf.Substring(0, 8) - If srchStrAbf.Length < 8 Then srchStrAbf = Me.telanm_Erstellung.ToString("yy") & CInt(srchStrAbf).ToString("000000") + If srchStrAbf.Length < 8 Then + If Me.telanm_Erstellung IsNot Nothing Then + srchStrAbf = CDate(Me.telanm_Erstellung).ToString("yy") & CInt(srchStrAbf).ToString("000000") + Else + srchStrAbf = Now.ToString("yy") & CInt(srchStrAbf).ToString("000000") + End If + + End If Dim sqlstr = " Select [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where '" & srchStrAbf & "' like ('%' + cast(AbfertigungsNr as varchar(10))+ '%') and FilialenNr ='" & srchStrFiliale & "' and AbfertigungsNr >0" diff --git a/UID/cProgramFunctions.vb b/UID/cProgramFunctions.vb index 27cf404..864bc17 100644 --- a/UID/cProgramFunctions.vb +++ b/UID/cProgramFunctions.vb @@ -25,7 +25,7 @@ Public Class cProgramFunctions Try Dim BRG As New cBrgDb Dim brg_AT As String = "05AT510000G000FP7" - Dim brg_DE As String = "05DE0000000009345" + Dim brg_DE As String = "05DE0000000009345" 'ALT _ NICHT MEHR IN VERWENDUNG Dim brg_DE_NEU As String = "17DE0000000071678" ' BRG.getBrgFromFMZOLL(datEinlesenVon.Value.ToShortDateString, datEinlesenBis.Value.ToShortDateString, "50", "60","05AT510000G000FP7") @@ -36,23 +36,27 @@ Public Class cProgramFunctions ' Dim datvon As Date = datEinlesenVon.Value ' MsgBox(datvon.ToShortDateString & " - " & datbis.ToShortDateString) While datvon <= datbis - ' MsgBox(datvon.ToShortDateString) - Dim AtWoche_atlas As String = BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_AT) - AtWoche_atlas += BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_AT) ' DATEN AUS DAKOSY/ZODIAK EINLESEN - AtWoche_atlas += BRG.getBrgSumFrom_NCTS_TR(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_AT) ' DATEN AUS DAKOSY/ZODIAK EINLESEN - Dim DeWoche As String = BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_DE) - 'DeWoche += BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_DE) - Dim De2Woche As String = BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_DE_NEU) - De2Woche += BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_DE_NEU) ' DATEN AUS DAKOSY/ZODIAK EINLESEN - De2Woche += BRG.getBrgSumFrom_NCTS_TR(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_DE_NEU) ' DATEN AUS DAKOSY/ZODIAK EINLESEN + ' MsgBox(datvon.ToShortDateString) + Dim AtWoche_atlas As Double = 0 'BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datbisWo.ToShortDateString, "50", "60", brg_AT) + AtWoche_atlas += BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_AT) ' DATEN AUS DAKOSY/ZODIAK EINLESEN + AtWoche_atlas += BRG.getBrgSumFrom_NCTS_TR(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_AT) ' DATEN AUS DAKOSY/ZODIAK EINLESEN + ' Dim DeWoche As String = BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datbisWo.ToShortDateString, "50", "60", brg_DE) + 'DeWoche += BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datbisWo.ToShortDateString, "50", "60", brg_DE) + Dim De2Woche As Double = 0 'BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datbisWo.ToShortDateString, "50", "60", brg_DE_NEU) + De2Woche += BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_DE_NEU) ' DATEN AUS DAKOSY/ZODIAK EINLESEN + De2Woche += BRG.getBrgSumFromFMZOLL_TELOTEC(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_DE_NEU) ' DATEN AUS DAKOSY/ZODIAK EINLESEN + De2Woche += BRG.getBrgSumFrom_NCTS_TR(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_DE_NEU) ' DATEN AUS DAKOSY/ZODIAK EINLESEN - ' MsgBox(BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_DE_NEU)) - ' Dim test As Double = BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_DE_NEU) + ' MsgBox(BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datbisWo.ToShortDateString, "50", "60", brg_DE_NEU)) + ' Dim test As Double = BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datbisWo.ToShortDateString, "50", "60", brg_DE_NEU) - Dim AtWoche_zolaris As String = BRG.getBrgSumFromFMZOLL_Zolaris(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_AT) - AtWoche_zolaris += BRG.getBrgSumFromFMZOLL_TELOTEC(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_AT) ' DATEN AUS TELOTEC EINLESEN + Dim AtWoche_zolaris As Double = 0 + AtWoche_zolaris += BRG.getBrgSumFromFMZOLL_Zolaris(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_AT) + AtWoche_zolaris += BRG.getBrgSumFromFMZOLL_TELOTEC(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_AT) ' DATEN AUS TELOTEC EINLESEN + ' MsgBox("getBrgSumFromFMZOLL_Zolaris: " & BRG.getBrgSumFromFMZOLL_Zolaris(datvon.ToShortDateString, datbisWo.ToShortDateString, "50", "60", brg_AT)) + ' MsgBox("getBrgSumFromFMZOLL_TELOTEC: " & BRG.getBrgSumFromFMZOLL_TELOTEC(datvon.ToShortDateString, datbisWo.ToShortDateString, "50", "60", brg_AT)) 'UPDATE Dim buergschaft As cBuergschaft @@ -66,33 +70,33 @@ Public Class cProgramFunctions ' buergschaft.brg_at_tag_zolaris = "" buergschaft.brg_at_woche_atlas = StrIntValue(toDec(AtWoche_atlas)) buergschaft.brg_at_woche_zolaris = StrIntValue(toDec(AtWoche_zolaris)) - ' buergschaft.brg_de_tag_atlas = "" - buergschaft.brg_de_woche_atlas = StrIntValue(toDec(DeWoche)) + buergschaft.brg_de_tag_atlas = "" + buergschaft.brg_de_woche_atlas = "" 'StrIntValue(toDec(DeWoche)) buergschaft.brg_de2_woche_atlas = StrIntValue(toDec(De2Woche)) ' buergschaft.brg_at_tag = "" buergschaft.brg_at_woche = StrIntValue(toDec(buergschaft.brg_at_woche_atlas) + toDec(buergschaft.brg_at_woche_zolaris)) - - If datvon.ToShortDateString = Now.ToShortDateString Then - buergschaft.brg_de2_tag_atlas = - BRG.getBrgSumFromFMZOLL_Zabis(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE_NEU) + - BRG.getBrgSumFromFMZOLL_Zodiak(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE_NEU) + - BRG.getBrgSumFrom_NCTS_TR(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE_NEU) + buergschaft.brg_de2_tag_atlas = 0 + 'BRG.getBrgSumFromFMZOLL_Zabis(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE_NEU) + + BRG.getBrgSumFromFMZOLL_Zodiak(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE_NEU) + + BRG.getBrgSumFromFMZOLL_TELOTEC(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE_NEU) + + BRG.getBrgSumFrom_NCTS_TR(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE_NEU) - buergschaft.brg_de_tag_atlas = BRG.getBrgSumFromFMZOLL_Zabis(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE) - buergschaft.brg_at_tag_atlas = - BRG.getBrgSumFromFMZOLL_Zabis(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT) + - BRG.getBrgSumFromFMZOLL_Zodiak(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT) + - BRG.getBrgSumFrom_NCTS_TR(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT) + 'buergschaft.brg_de_tag_atlas = BRG.getBrgSumFromFMZOLL_Zabis(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE) + buergschaft.brg_at_tag_atlas = 0 + ' BRG.getBrgSumFromFMZOLL_Zabis(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT) + + BRG.getBrgSumFromFMZOLL_Zodiak(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT) + + BRG.getBrgSumFromFMZOLL_TELOTEC(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT) + + BRG.getBrgSumFrom_NCTS_TR(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT) + Dim AtTag_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT, " AND DatumBestimmungErreicht IS NULL ") + AtTag_zolaris += BRG.getBrgSumFromFMZOLL_TELOTEC(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT) ' DATEN AUS TELOTEC EINLESEN - buergschaft.brg_at_tag_zolaris = BRG.getBrgSumFromFMZOLL_Zolaris(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT, " AND DatumBestimmungErreicht IS NULL ") - buergschaft.brg_at_tag = StrIntValue(toDec(buergschaft.brg_at_tag_atlas) + toDec(buergschaft.brg_at_tag_zolaris)) + buergschaft.brg_at_tag_zolaris = AtTag_zolaris 'BRG.getBrgSumFromFMZOLL_Zolaris(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT, " AND DatumBestimmungErreicht IS NULL ") + buergschaft.brg_at_tag = StrIntValue(toDec(buergschaft.brg_at_tag_atlas) + toDec(AtTag_zolaris)) End If - buergschaft.brg_de_tag = buergschaft.brg_de_tag_atlas - buergschaft.brg_de_woche = buergschaft.brg_de_woche_atlas + ' buergschaft.brg_de_tag = "" 'buergschaft.brg_de_tag_atlas + ' buergschaft.brg_de_woche = buergschaft.brg_de_woche_atlas buergschaft.brg_de2_tag = buergschaft.brg_de2_tag_atlas buergschaft.brg_de2_woche = buergschaft.brg_de2_woche_atlas @@ -125,7 +129,9 @@ Public Class cProgramFunctions Private Function toDec(ByVal s As Object) As Decimal Try - If s = "" Then Return 0 + If s Is Nothing Then Return 0 + If s.ToString = "" Then Return 0 + Return CDec(s) Catch ex As System.Exception Return 0 diff --git a/UID/cSqlDb.vb b/UID/cSqlDb.vb index b245352..dd99aa3 100644 --- a/UID/cSqlDb.vb +++ b/UID/cSqlDb.vb @@ -156,9 +156,9 @@ Public Class cBrgDb - Public Function getBrgSumFrom_NCTS_TR(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As String + Public Function getBrgSumFrom_NCTS_TR(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As Double 'Return Nothing - Dim sql As String = "SELECT sum(nctsSA_AbgabenBetrag)" + Dim sql As String = "SELECT isnull(sum(cast(nctsSA_AbgabenBetrag as float)),0)" sql &= " from tblNCTS_TR_Sicherheitsangaben inner join [tblNCTS_TR] on ncts_Id = nctsSA_NctsId" sql &= " where [ncts_Eroeffnung] BETWEEN '" & datumVon.ToShortDateString & " 00:00:00' AND '" & datumBis.ToShortDateString & " 23:23:59' AND ncts_Status BETWEEN '" & statusVon & "' AND '" & statusBis & "' AND nctsSA_GRN = '" & buergschaft & "' " & where 'MsgBox(sql) @@ -176,7 +176,7 @@ Public Class cBrgDb End If End If - Return "0" + Return 0 Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Finally @@ -184,7 +184,7 @@ Public Class cBrgDb End Try End Using End Using - Return Nothing + Return 0 End Function Public Function getBrgSumFromFMZOLL_Zabis(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As Double @@ -206,7 +206,7 @@ Public Class cBrgDb Return dr.GetValue(0) End If End If - Return "" + Return 0 Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Finally @@ -214,7 +214,7 @@ Public Class cBrgDb End Try End Using End Using - Return Nothing + Return 0 End Function Public Function getBrgSumFromFMZOLL_Zodiak(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As Double @@ -240,7 +240,7 @@ Public Class cBrgDb Return dr.GetValue(0) End If End If - Return "" + Return 0 Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Finally @@ -248,7 +248,7 @@ Public Class cBrgDb End Try End Using End Using - Return Nothing + Return 0 End Function @@ -256,11 +256,11 @@ Public Class cBrgDb ' Dim sql As String = "SELECT ISNULL(SUM(veoerz_sicbtg),0) " & ' " FROM tblZabis_Atlas_NCTS WHERE ( veoant_andat BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND ( veoant_stat BETWEEN '" & statusVon & "' AND '" & statusBis & "') AND veoerz_sicbsc = '" & buergschaft & "' " & where - Dim sql As String = " SELECT ISNULL(sum(GVal),0) + Dim sql As String = " SELECT ISNULL(sum(cast(GVal as float)),0) from [tblTelotec_Sicherheit] inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId - where dec_CreateDate BETWEEN '" & datumVon & "' AND '" & datumBis & "' AND telanm_Status BETWEEN '" & statusVon & "' AND '" & statusBis & "' AND GRN = '" & buergschaft & "' AND [telnam_aktuellsteNachricht]=1 " & where + where dec_CreateDate BETWEEN '" & datumVon.ToShortDateString & " 00:00:000' AND '" & datumBis.ToShortDateString & " 23:59:59' AND telanm_Status BETWEEN '" & statusVon & "' AND '" & statusBis & "' AND GRN = '" & buergschaft & "' AND [telnam_aktuellsteNachricht]=1 " & where - ' MsgBox(sql) + ' MsgBox(sql) ' Dim daten As New List(Of cEntry) Dim dr As SqlDataReader Dim daten As New List(Of cBuergschaft) @@ -336,7 +336,7 @@ Public Class cBrgDb Return Nothing End Function - Public Function getBrgSumFromFMZOLL_Zolaris(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As String + Public Function getBrgSumFromFMZOLL_Zolaris(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As Double Dim sql As String = "SELECT ISNULL(SUM(GarantieWert),0) " & " FROM tblZolaris_EZoll_NCTS WHERE ( AnmeldungsDatum BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND GRN = '" & buergschaft & "' " & where diff --git a/VERAGMonitoring/My Project/Resources.Designer.vb b/VERAGMonitoring/My Project/Resources.Designer.vb index c934bf7..4f705eb 100644 --- a/VERAGMonitoring/My Project/Resources.Designer.vb +++ b/VERAGMonitoring/My Project/Resources.Designer.vb @@ -22,7 +22,7 @@ Namespace My.Resources ''' ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ @@ -60,6 +60,15 @@ Namespace My.Resources End Set End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. + ''' + Friend ReadOnly Property dfsdfe333() As String + Get + Return ResourceManager.GetString("dfsdfe333", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -71,16 +80,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. - ''' - Friend ReadOnly Property sdfsdfsdf3sdfsdf() As String - Get - Return ResourceManager.GetString("sdfsdfsdf3sdfsdf", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 1.3.6 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 1.3.8 ähnelt. ''' Friend ReadOnly Property version() As String Get diff --git a/VERAGMonitoring/My Project/Resources.resx b/VERAGMonitoring/My Project/Resources.resx index 4c688df..62d5285 100644 --- a/VERAGMonitoring/My Project/Resources.resx +++ b/VERAGMonitoring/My Project/Resources.resx @@ -118,13 +118,13 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - 1.3.6 + 1.3.8 ..\Resources\refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - + \ No newline at end of file diff --git a/VERAGMonitoring/cSqlDb.vb b/VERAGMonitoring/cSqlDb.vb index 3d84fe8..f70c13a 100644 --- a/VERAGMonitoring/cSqlDb.vb +++ b/VERAGMonitoring/cSqlDb.vb @@ -211,6 +211,32 @@ Public Class cBrgDb Return Nothing End Function + Public Function loadDgvBySqlFromAufschubKto_Faelligkeit(ByVal faelligkeitWHERE As String, ByVal brgKto As String, Optional where As String = "") As DataTable + + Dim sql As String = "SELECT [brgak_id] as Id,[brgak_datum] as Datum,[brgak_betrag] as Betrag,[brgak_filename] as Dateiname,[brgak_atc] as ATC " & + " FROM tblBrgAufschub WHERE brgak_brgaktoId = '" & brgKto & "' " & faelligkeitWHERE & where + + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Try + Dim myTable = New DataTable() + Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand(sql, conn) + Dim dr As SqlDataReader = cmd.ExecuteReader() + myTable.Load(dr) + dr.Close() + End Using + conn.Close() + End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'loadDgvBySqlZOLARIS'") + End Try + End While + + Return Nothing + + End Function Public Function loadDgvBySqlFromBrgKtoAtlas(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As DataTable Dim sql As String = "SELECT [ID_NCTS], [basman_nr], [basman_nl], [veoant_beznr], [veoant_lfdnr], [veoant_stat], [veoant_arbnr], [veoant_mrn], [veoant_abgdst], [veoant_bedst], [veoant_wgdat], [veoant_anzpos], [veoant_andat], [veoant_korant], [veoant_vrbdat], [veoant_sb], [veopos_posnr], [veopos_stat], [veopos_wbsch1], [veopos_rohmas], [veoerz_sicbsc], [veoerz_basbtg],[veoerz_sicbtg],[vegdat_erldat] " & @@ -690,13 +716,32 @@ Public Class cBrgDb Return Nothing End Function - Public Function getBrgSumFromBrgKto(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal brgKto As String, Optional where As String = "", Optional EinzahlungsbetraegeMitrechnen As Boolean = True) As String + Public Function getBrgSumFromBrgKto(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal brgKto As String, Optional where As String = "", Optional EinzahlungsbetraegeMitrechnen As Boolean = True, Optional faelligkeitsTAG As String = "", Optional faelligkeit As Object = Nothing) As String Dim einzahlung = "" If Not EinzahlungsbetraegeMitrechnen Then einzahlung = " AND [brgak_art] NOT IN ('einzahlung') " End If - Dim sql As String = "SELECT SUM(brgak_betrag) " & - " FROM tblBrgAufschub WHERE ( brgak_datum BETWEEN '" & datumVon & " 00:00:00' AND '" & datumBis & " 23:59:59') AND brgak_brgaktoId = '" & brgKto & "' " & where & einzahlung + + Dim sql As String = "" + If faelligkeit Is Nothing Then + + Dim faelligkeitWhere As String = "" + + If faelligkeitsTAG <> "" Then + If faelligkeitsTAG = "16" Then + faelligkeitWhere = " And (DATEPART(day,[brgak_faelligkeitsdatum] )=" & faelligkeitsTAG & " Or [brgak_faelligkeitsdatum] Is null) " + Else + faelligkeitWhere = " And DATEPART(day,[brgak_faelligkeitsdatum] )=" & faelligkeitsTAG & " " + End If + End If + + sql = "SELECT SUM(brgak_betrag) " & + " FROM tblBrgAufschub WHERE ( brgak_datum BETWEEN '" & datumVon & " 00:00:00' AND '" & datumBis & " 23:59:59') AND brgak_brgaktoId = '" & brgKto & "' " & where & einzahlung & faelligkeitWhere + + Else + sql = "SELECT SUM(brgak_betrag) " & + " FROM tblBrgAufschub WHERE brgak_faelligkeitsdatum='" & CDate(faelligkeit).ToShortDateString & "' AND brgak_brgaktoId = '" & brgKto & "' " & where & einzahlung + End If ' MsgBox(sql) ' Dim daten As New List(Of cEntry) diff --git a/VERAGMonitoring/frmEinzahlung.vb b/VERAGMonitoring/frmEinzahlung.vb index 5282869..28defb7 100644 --- a/VERAGMonitoring/frmEinzahlung.vb +++ b/VERAGMonitoring/frmEinzahlung.vb @@ -6,6 +6,8 @@ cboBrg.Items.Add(New MyListItem("Aufschub VERAG Spedition AG (Österreich)", "2")) cboBrg.Items.Add(New MyListItem("Aufschub VERAG Customs Service GmbH (Österreich)", "3")) cboBrg.Items.Add(New MyListItem("Aufschub VERAG Zollservice GmbH (Österreich)", "4")) + cboBrg.Items.Add(New MyListItem("Aufschub IMEX Customs Service GmbH", "8")) + cboBrg.Items.Add(New MyListItem("Aufschub IMEX Customs Service GmbH (Österreich)", "13")) cboBrg.SelectedIndex = 0 initDgv() diff --git a/VERAGMonitoring/frmMain.Designer.vb b/VERAGMonitoring/frmMain.Designer.vb index f9d69da..9002689 100644 --- a/VERAGMonitoring/frmMain.Designer.vb +++ b/VERAGMonitoring/frmMain.Designer.vb @@ -25,6 +25,51 @@ Partial Class frmMain Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) Me.Panel2 = New System.Windows.Forms.Panel() + Me.lblAufschubBrgEUST_de_UNISPEDDE_oE = New System.Windows.Forms.Label() + Me.cbxAufschubEUST_de_UnispedDE = New System.Windows.Forms.CheckBox() + Me.lblAufschubEUST_de_UNISPEDDE = New System.Windows.Forms.Label() + Me.lblAufschubBrgEUST_de_UNISPEDDE = New System.Windows.Forms.Label() + Me.lblAufschubStatusEUST_de_UNISPEDDE = New System.Windows.Forms.Label() + Me.lblAufschubBrg_de_UNISPEDDE_oE = New System.Windows.Forms.Label() + Me.cbxAufschub_de_UnispedDE = New System.Windows.Forms.CheckBox() + Me.lblAufschub_de_UNISPEDDE = New System.Windows.Forms.Label() + Me.lblAufschubBrg_de_UNISPEDDE = New System.Windows.Forms.Label() + Me.lblAufschubStatus_de_UNISPEDDE = New System.Windows.Forms.Label() + Me.lblAufschubBrgEUST_de_global_oE = New System.Windows.Forms.Label() + Me.cbxAufschubEUST_de_Global = New System.Windows.Forms.CheckBox() + Me.lblAufschubEUST_de_Global = New System.Windows.Forms.Label() + Me.lblAufschubBrgEUST_de_global = New System.Windows.Forms.Label() + Me.lblAufschubStatusEUST_de_global = New System.Windows.Forms.Label() + Me.cbxAufschub_at_IMEX = New System.Windows.Forms.CheckBox() + Me.lblAufschubStatus_at_IMEX = New System.Windows.Forms.Label() + Me.lblAufschubBrg_at_IMEX = New System.Windows.Forms.Label() + Me.lblAufschub_at_IMEX = New System.Windows.Forms.Label() + Me.cbxBrg_at_UNISPED = New System.Windows.Forms.CheckBox() + Me.Label33lblBrg_at_UNISPED = New System.Windows.Forms.Label() + Me.lblAtWocheUNISPED = New System.Windows.Forms.Label() + Me.lblAtTagUNISPED = New System.Windows.Forms.Label() + Me.lblAt_woche_StatusUNISPED = New System.Windows.Forms.Label() + Me.lblAt_tag_StatusUNISPED = New System.Windows.Forms.Label() + Me.lblAufschubBrgEUST_de_UNISPED_oE = New System.Windows.Forms.Label() + Me.cbxAufschubEUST_de_Unisped = New System.Windows.Forms.CheckBox() + Me.lblAufschubEUST_de_UNISPED = New System.Windows.Forms.Label() + Me.lblAufschubBrgEUST_de_UNISPED = New System.Windows.Forms.Label() + Me.lblAufschubStatusEUST_de_UNISPED = New System.Windows.Forms.Label() + Me.lblAufschubBrg_de_UNISPED_oE = New System.Windows.Forms.Label() + Me.cbxAufschub_de_Unisped = New System.Windows.Forms.CheckBox() + Me.lblAufschub_de_UNISPED = New System.Windows.Forms.Label() + Me.lblAufschubBrg_de_UNISPED = New System.Windows.Forms.Label() + Me.lblAufschubStatus_de_UNISPED = New System.Windows.Forms.Label() + Me.lblAufschubBrgEUST_de_VeragAG_oE = New System.Windows.Forms.Label() + Me.cbxAufschubEUST_de_VeragAG = New System.Windows.Forms.CheckBox() + Me.lblAufschubEUST_de_VeragAG = New System.Windows.Forms.Label() + Me.lblAufschubBrgEUST_de_VeragAG = New System.Windows.Forms.Label() + Me.lblAufschubStatusEUST_de_VeragAG = New System.Windows.Forms.Label() + Me.lblAufschubBrgEUST_de_Imex_oE = New System.Windows.Forms.Label() + Me.cbxAufschubEUST_de_Imex = New System.Windows.Forms.CheckBox() + Me.lblAufschubEUST_de_Imex = New System.Windows.Forms.Label() + Me.lblAufschubBrgEUST_de_Imex = New System.Windows.Forms.Label() + Me.lblAufschubStatusEUST_de_Imex = New System.Windows.Forms.Label() Me.cbxBrg_at_Atilla = New System.Windows.Forms.CheckBox() Me.lblBrg_at_Atilla = New System.Windows.Forms.Label() Me.lblAtWocheAtilla = New System.Windows.Forms.Label() @@ -119,6 +164,51 @@ Partial Class frmMain 'Panel2 ' Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel2.Controls.Add(Me.lblAufschubBrgEUST_de_UNISPEDDE_oE) + Me.Panel2.Controls.Add(Me.cbxAufschubEUST_de_UnispedDE) + Me.Panel2.Controls.Add(Me.lblAufschubEUST_de_UNISPEDDE) + Me.Panel2.Controls.Add(Me.lblAufschubBrgEUST_de_UNISPEDDE) + Me.Panel2.Controls.Add(Me.lblAufschubStatusEUST_de_UNISPEDDE) + Me.Panel2.Controls.Add(Me.lblAufschubBrg_de_UNISPEDDE_oE) + Me.Panel2.Controls.Add(Me.cbxAufschub_de_UnispedDE) + Me.Panel2.Controls.Add(Me.lblAufschub_de_UNISPEDDE) + Me.Panel2.Controls.Add(Me.lblAufschubBrg_de_UNISPEDDE) + Me.Panel2.Controls.Add(Me.lblAufschubStatus_de_UNISPEDDE) + Me.Panel2.Controls.Add(Me.lblAufschubBrgEUST_de_global_oE) + Me.Panel2.Controls.Add(Me.cbxAufschubEUST_de_Global) + Me.Panel2.Controls.Add(Me.lblAufschubEUST_de_Global) + Me.Panel2.Controls.Add(Me.lblAufschubBrgEUST_de_global) + Me.Panel2.Controls.Add(Me.lblAufschubStatusEUST_de_global) + Me.Panel2.Controls.Add(Me.cbxAufschub_at_IMEX) + Me.Panel2.Controls.Add(Me.lblAufschubStatus_at_IMEX) + Me.Panel2.Controls.Add(Me.lblAufschubBrg_at_IMEX) + Me.Panel2.Controls.Add(Me.lblAufschub_at_IMEX) + Me.Panel2.Controls.Add(Me.cbxBrg_at_UNISPED) + Me.Panel2.Controls.Add(Me.Label33lblBrg_at_UNISPED) + Me.Panel2.Controls.Add(Me.lblAtWocheUNISPED) + Me.Panel2.Controls.Add(Me.lblAtTagUNISPED) + Me.Panel2.Controls.Add(Me.lblAt_woche_StatusUNISPED) + Me.Panel2.Controls.Add(Me.lblAt_tag_StatusUNISPED) + Me.Panel2.Controls.Add(Me.lblAufschubBrgEUST_de_UNISPED_oE) + Me.Panel2.Controls.Add(Me.cbxAufschubEUST_de_Unisped) + Me.Panel2.Controls.Add(Me.lblAufschubEUST_de_UNISPED) + Me.Panel2.Controls.Add(Me.lblAufschubBrgEUST_de_UNISPED) + Me.Panel2.Controls.Add(Me.lblAufschubStatusEUST_de_UNISPED) + Me.Panel2.Controls.Add(Me.lblAufschubBrg_de_UNISPED_oE) + Me.Panel2.Controls.Add(Me.cbxAufschub_de_Unisped) + Me.Panel2.Controls.Add(Me.lblAufschub_de_UNISPED) + Me.Panel2.Controls.Add(Me.lblAufschubBrg_de_UNISPED) + Me.Panel2.Controls.Add(Me.lblAufschubStatus_de_UNISPED) + Me.Panel2.Controls.Add(Me.lblAufschubBrgEUST_de_VeragAG_oE) + Me.Panel2.Controls.Add(Me.cbxAufschubEUST_de_VeragAG) + Me.Panel2.Controls.Add(Me.lblAufschubEUST_de_VeragAG) + Me.Panel2.Controls.Add(Me.lblAufschubBrgEUST_de_VeragAG) + Me.Panel2.Controls.Add(Me.lblAufschubStatusEUST_de_VeragAG) + Me.Panel2.Controls.Add(Me.lblAufschubBrgEUST_de_Imex_oE) + Me.Panel2.Controls.Add(Me.cbxAufschubEUST_de_Imex) + Me.Panel2.Controls.Add(Me.lblAufschubEUST_de_Imex) + Me.Panel2.Controls.Add(Me.lblAufschubBrgEUST_de_Imex) + Me.Panel2.Controls.Add(Me.lblAufschubStatusEUST_de_Imex) Me.Panel2.Controls.Add(Me.cbxBrg_at_Atilla) Me.Panel2.Controls.Add(Me.lblBrg_at_Atilla) Me.Panel2.Controls.Add(Me.lblAtWocheAtilla) @@ -192,9 +282,552 @@ Partial Class frmMain Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel2.Location = New System.Drawing.Point(0, 0) Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(646, 430) + Me.Panel2.Size = New System.Drawing.Size(671, 608) Me.Panel2.TabIndex = 8 ' + 'lblAufschubBrgEUST_de_UNISPEDDE_oE + ' + 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, 436) + 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) + Me.lblAufschubBrgEUST_de_UNISPEDDE_oE.TabIndex = 87 + Me.lblAufschubBrgEUST_de_UNISPEDDE_oE.Text = " 0 €" + ' + 'cbxAufschubEUST_de_UnispedDE + ' + Me.cbxAufschubEUST_de_UnispedDE.AutoSize = True + Me.cbxAufschubEUST_de_UnispedDE.Checked = True + Me.cbxAufschubEUST_de_UnispedDE.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschubEUST_de_UnispedDE.Location = New System.Drawing.Point(9, 437) + Me.cbxAufschubEUST_de_UnispedDE.Name = "cbxAufschubEUST_de_UnispedDE" + Me.cbxAufschubEUST_de_UnispedDE.Size = New System.Drawing.Size(15, 14) + Me.cbxAufschubEUST_de_UnispedDE.TabIndex = 86 + Me.cbxAufschubEUST_de_UnispedDE.UseVisualStyleBackColor = True + ' + 'lblAufschubEUST_de_UNISPEDDE + ' + Me.lblAufschubEUST_de_UNISPEDDE.AutoSize = True + Me.lblAufschubEUST_de_UNISPEDDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAufschubEUST_de_UNISPEDDE.Location = New System.Drawing.Point(26, 437) + Me.lblAufschubEUST_de_UNISPEDDE.Name = "lblAufschubEUST_de_UNISPEDDE" + Me.lblAufschubEUST_de_UNISPEDDE.Size = New System.Drawing.Size(266, 13) + Me.lblAufschubEUST_de_UNISPEDDE.TabIndex = 83 + Me.lblAufschubEUST_de_UNISPEDDE.Text = "* DE - UNISPED Deutschland - HZA München - EUST" + ' + 'lblAufschubBrgEUST_de_UNISPEDDE + ' + 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, 436) + 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) + Me.lblAufschubBrgEUST_de_UNISPEDDE.TabIndex = 84 + Me.lblAufschubBrgEUST_de_UNISPEDDE.Text = " 0 €" + ' + 'lblAufschubStatusEUST_de_UNISPEDDE + ' + Me.lblAufschubStatusEUST_de_UNISPEDDE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblAufschubStatusEUST_de_UNISPEDDE.AutoSize = True + Me.lblAufschubStatusEUST_de_UNISPEDDE.BackColor = System.Drawing.Color.Green + 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, 436) + 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) + Me.lblAufschubStatusEUST_de_UNISPEDDE.TabIndex = 85 + Me.lblAufschubStatusEUST_de_UNISPEDDE.Text = "OK" + ' + 'lblAufschubBrg_de_UNISPEDDE_oE + ' + 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, 418) + 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) + Me.lblAufschubBrg_de_UNISPEDDE_oE.TabIndex = 82 + Me.lblAufschubBrg_de_UNISPEDDE_oE.Text = " 0 €" + ' + 'cbxAufschub_de_UnispedDE + ' + Me.cbxAufschub_de_UnispedDE.AutoSize = True + Me.cbxAufschub_de_UnispedDE.Checked = True + Me.cbxAufschub_de_UnispedDE.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschub_de_UnispedDE.Location = New System.Drawing.Point(9, 419) + Me.cbxAufschub_de_UnispedDE.Name = "cbxAufschub_de_UnispedDE" + Me.cbxAufschub_de_UnispedDE.Size = New System.Drawing.Size(15, 14) + Me.cbxAufschub_de_UnispedDE.TabIndex = 81 + Me.cbxAufschub_de_UnispedDE.UseVisualStyleBackColor = True + ' + 'lblAufschub_de_UNISPEDDE + ' + Me.lblAufschub_de_UNISPEDDE.AutoSize = True + Me.lblAufschub_de_UNISPEDDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAufschub_de_UNISPEDDE.Location = New System.Drawing.Point(26, 419) + Me.lblAufschub_de_UNISPEDDE.Name = "lblAufschub_de_UNISPEDDE" + Me.lblAufschub_de_UNISPEDDE.Size = New System.Drawing.Size(264, 13) + Me.lblAufschub_de_UNISPEDDE.TabIndex = 78 + Me.lblAufschub_de_UNISPEDDE.Text = "* DE - UNISPED Deutschland - HZA München - ZOLL" + ' + 'lblAufschubBrg_de_UNISPEDDE + ' + 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, 418) + 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) + Me.lblAufschubBrg_de_UNISPEDDE.TabIndex = 79 + Me.lblAufschubBrg_de_UNISPEDDE.Text = " 0 €" + ' + 'lblAufschubStatus_de_UNISPEDDE + ' + Me.lblAufschubStatus_de_UNISPEDDE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblAufschubStatus_de_UNISPEDDE.AutoSize = True + Me.lblAufschubStatus_de_UNISPEDDE.BackColor = System.Drawing.Color.Green + 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, 418) + 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) + Me.lblAufschubStatus_de_UNISPEDDE.TabIndex = 80 + Me.lblAufschubStatus_de_UNISPEDDE.Text = "OK" + ' + 'lblAufschubBrgEUST_de_global_oE + ' + 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, 350) + 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) + Me.lblAufschubBrgEUST_de_global_oE.TabIndex = 77 + Me.lblAufschubBrgEUST_de_global_oE.Text = " 0 €" + ' + 'cbxAufschubEUST_de_Global + ' + Me.cbxAufschubEUST_de_Global.AutoSize = True + Me.cbxAufschubEUST_de_Global.Checked = True + Me.cbxAufschubEUST_de_Global.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschubEUST_de_Global.Location = New System.Drawing.Point(9, 351) + Me.cbxAufschubEUST_de_Global.Name = "cbxAufschubEUST_de_Global" + Me.cbxAufschubEUST_de_Global.Size = New System.Drawing.Size(15, 14) + Me.cbxAufschubEUST_de_Global.TabIndex = 76 + Me.cbxAufschubEUST_de_Global.UseVisualStyleBackColor = True + ' + 'lblAufschubEUST_de_Global + ' + Me.lblAufschubEUST_de_Global.AutoSize = True + Me.lblAufschubEUST_de_Global.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAufschubEUST_de_Global.Location = New System.Drawing.Point(26, 351) + Me.lblAufschubEUST_de_Global.Name = "lblAufschubEUST_de_Global" + Me.lblAufschubEUST_de_Global.Size = New System.Drawing.Size(197, 13) + Me.lblAufschubEUST_de_Global.TabIndex = 73 + Me.lblAufschubEUST_de_Global.Text = "* DE - GLOBAL - HZA München - EUST" + ' + 'lblAufschubBrgEUST_de_global + ' + 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, 350) + 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) + Me.lblAufschubBrgEUST_de_global.TabIndex = 74 + Me.lblAufschubBrgEUST_de_global.Text = " 0 €" + ' + 'lblAufschubStatusEUST_de_global + ' + Me.lblAufschubStatusEUST_de_global.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblAufschubStatusEUST_de_global.AutoSize = True + Me.lblAufschubStatusEUST_de_global.BackColor = System.Drawing.Color.Green + 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, 350) + 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) + Me.lblAufschubStatusEUST_de_global.TabIndex = 75 + Me.lblAufschubStatusEUST_de_global.Text = "OK" + ' + 'cbxAufschub_at_IMEX + ' + Me.cbxAufschub_at_IMEX.AutoSize = True + Me.cbxAufschub_at_IMEX.Checked = True + Me.cbxAufschub_at_IMEX.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschub_at_IMEX.Location = New System.Drawing.Point(9, 546) + Me.cbxAufschub_at_IMEX.Name = "cbxAufschub_at_IMEX" + Me.cbxAufschub_at_IMEX.Size = New System.Drawing.Size(15, 14) + Me.cbxAufschub_at_IMEX.TabIndex = 72 + Me.cbxAufschub_at_IMEX.UseVisualStyleBackColor = True + ' + 'lblAufschubStatus_at_IMEX + ' + Me.lblAufschubStatus_at_IMEX.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblAufschubStatus_at_IMEX.AutoSize = True + Me.lblAufschubStatus_at_IMEX.BackColor = System.Drawing.Color.Green + 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, 545) + 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) + Me.lblAufschubStatus_at_IMEX.TabIndex = 68 + Me.lblAufschubStatus_at_IMEX.Text = "OK" + ' + 'lblAufschubBrg_at_IMEX + ' + 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, 545) + 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) + Me.lblAufschubBrg_at_IMEX.TabIndex = 70 + Me.lblAufschubBrg_at_IMEX.Text = " 0 €" + ' + 'lblAufschub_at_IMEX + ' + Me.lblAufschub_at_IMEX.AutoSize = True + Me.lblAufschub_at_IMEX.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAufschub_at_IMEX.Location = New System.Drawing.Point(26, 546) + Me.lblAufschub_at_IMEX.Name = "lblAufschub_at_IMEX" + Me.lblAufschub_at_IMEX.Size = New System.Drawing.Size(250, 13) + Me.lblAufschub_at_IMEX.TabIndex = 71 + Me.lblAufschub_at_IMEX.Text = "AT - IMEX Customs Service GmbH- HZA Linz/Wels" + ' + 'cbxBrg_at_UNISPED + ' + Me.cbxBrg_at_UNISPED.AutoSize = True + Me.cbxBrg_at_UNISPED.Checked = True + Me.cbxBrg_at_UNISPED.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxBrg_at_UNISPED.Location = New System.Drawing.Point(9, 210) + Me.cbxBrg_at_UNISPED.Name = "cbxBrg_at_UNISPED" + Me.cbxBrg_at_UNISPED.Size = New System.Drawing.Size(15, 14) + Me.cbxBrg_at_UNISPED.TabIndex = 67 + Me.cbxBrg_at_UNISPED.UseVisualStyleBackColor = True + ' + 'Label33lblBrg_at_UNISPED + ' + Me.Label33lblBrg_at_UNISPED.AutoSize = True + Me.Label33lblBrg_at_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label33lblBrg_at_UNISPED.Location = New System.Drawing.Point(24, 211) + Me.Label33lblBrg_at_UNISPED.Name = "Label33lblBrg_at_UNISPED" + Me.Label33lblBrg_at_UNISPED.Size = New System.Drawing.Size(183, 13) + Me.Label33lblBrg_at_UNISPED.TabIndex = 62 + Me.Label33lblBrg_at_UNISPED.Text = "AT - gVV - HZA Linz/Wels UNISPED" + ' + 'lblAtWocheUNISPED + ' + 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, 210) + Me.lblAtWocheUNISPED.Name = "lblAtWocheUNISPED" + Me.lblAtWocheUNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.lblAtWocheUNISPED.Size = New System.Drawing.Size(90, 13) + Me.lblAtWocheUNISPED.TabIndex = 63 + Me.lblAtWocheUNISPED.Text = " 0 €" + ' + 'lblAtTagUNISPED + ' + 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, 211) + Me.lblAtTagUNISPED.Name = "lblAtTagUNISPED" + Me.lblAtTagUNISPED.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.lblAtTagUNISPED.Size = New System.Drawing.Size(90, 13) + Me.lblAtTagUNISPED.TabIndex = 64 + Me.lblAtTagUNISPED.Text = " 0 €" + ' + 'lblAt_woche_StatusUNISPED + ' + Me.lblAt_woche_StatusUNISPED.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblAt_woche_StatusUNISPED.AutoSize = True + Me.lblAt_woche_StatusUNISPED.BackColor = System.Drawing.Color.Green + 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, 210) + 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) + Me.lblAt_woche_StatusUNISPED.TabIndex = 65 + Me.lblAt_woche_StatusUNISPED.Text = "OK" + ' + 'lblAt_tag_StatusUNISPED + ' + Me.lblAt_tag_StatusUNISPED.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblAt_tag_StatusUNISPED.AutoSize = True + Me.lblAt_tag_StatusUNISPED.BackColor = System.Drawing.Color.Green + 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, 211) + 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) + Me.lblAt_tag_StatusUNISPED.TabIndex = 66 + Me.lblAt_tag_StatusUNISPED.Text = "OK" + ' + 'lblAufschubBrgEUST_de_UNISPED_oE + ' + Me.lblAufschubBrgEUST_de_UNISPED_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblAufschubBrgEUST_de_UNISPED_oE.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, 398) + 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) + Me.lblAufschubBrgEUST_de_UNISPED_oE.TabIndex = 61 + Me.lblAufschubBrgEUST_de_UNISPED_oE.Text = " 0 €" + ' + 'cbxAufschubEUST_de_Unisped + ' + Me.cbxAufschubEUST_de_Unisped.AutoSize = True + Me.cbxAufschubEUST_de_Unisped.Checked = True + Me.cbxAufschubEUST_de_Unisped.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschubEUST_de_Unisped.Location = New System.Drawing.Point(9, 399) + Me.cbxAufschubEUST_de_Unisped.Name = "cbxAufschubEUST_de_Unisped" + Me.cbxAufschubEUST_de_Unisped.Size = New System.Drawing.Size(15, 14) + Me.cbxAufschubEUST_de_Unisped.TabIndex = 60 + Me.cbxAufschubEUST_de_Unisped.UseVisualStyleBackColor = True + ' + 'lblAufschubEUST_de_UNISPED + ' + Me.lblAufschubEUST_de_UNISPED.AutoSize = True + Me.lblAufschubEUST_de_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAufschubEUST_de_UNISPED.Location = New System.Drawing.Point(26, 399) + Me.lblAufschubEUST_de_UNISPED.Name = "lblAufschubEUST_de_UNISPED" + Me.lblAufschubEUST_de_UNISPED.Size = New System.Drawing.Size(203, 13) + Me.lblAufschubEUST_de_UNISPED.TabIndex = 56 + Me.lblAufschubEUST_de_UNISPED.Text = "* DE - UNISPED - HZA München - EUST" + ' + 'lblAufschubBrgEUST_de_UNISPED + ' + 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, 398) + 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) + Me.lblAufschubBrgEUST_de_UNISPED.TabIndex = 57 + Me.lblAufschubBrgEUST_de_UNISPED.Text = " 0 €" + ' + 'lblAufschubStatusEUST_de_UNISPED + ' + Me.lblAufschubStatusEUST_de_UNISPED.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblAufschubStatusEUST_de_UNISPED.AutoSize = True + Me.lblAufschubStatusEUST_de_UNISPED.BackColor = System.Drawing.Color.Green + 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, 398) + 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) + Me.lblAufschubStatusEUST_de_UNISPED.TabIndex = 59 + Me.lblAufschubStatusEUST_de_UNISPED.Text = "OK" + ' + 'lblAufschubBrg_de_UNISPED_oE + ' + 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, 380) + 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) + Me.lblAufschubBrg_de_UNISPED_oE.TabIndex = 55 + Me.lblAufschubBrg_de_UNISPED_oE.Text = " 0 €" + ' + 'cbxAufschub_de_Unisped + ' + Me.cbxAufschub_de_Unisped.AutoSize = True + Me.cbxAufschub_de_Unisped.Checked = True + Me.cbxAufschub_de_Unisped.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschub_de_Unisped.Location = New System.Drawing.Point(9, 381) + Me.cbxAufschub_de_Unisped.Name = "cbxAufschub_de_Unisped" + Me.cbxAufschub_de_Unisped.Size = New System.Drawing.Size(15, 14) + Me.cbxAufschub_de_Unisped.TabIndex = 54 + Me.cbxAufschub_de_Unisped.UseVisualStyleBackColor = True + ' + 'lblAufschub_de_UNISPED + ' + Me.lblAufschub_de_UNISPED.AutoSize = True + Me.lblAufschub_de_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAufschub_de_UNISPED.Location = New System.Drawing.Point(26, 381) + Me.lblAufschub_de_UNISPED.Name = "lblAufschub_de_UNISPED" + Me.lblAufschub_de_UNISPED.Size = New System.Drawing.Size(201, 13) + Me.lblAufschub_de_UNISPED.TabIndex = 50 + Me.lblAufschub_de_UNISPED.Text = "* DE - UNISPED - HZA München - ZOLL" + ' + 'lblAufschubBrg_de_UNISPED + ' + 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, 380) + 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) + Me.lblAufschubBrg_de_UNISPED.TabIndex = 51 + Me.lblAufschubBrg_de_UNISPED.Text = " 0 €" + ' + 'lblAufschubStatus_de_UNISPED + ' + Me.lblAufschubStatus_de_UNISPED.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblAufschubStatus_de_UNISPED.AutoSize = True + Me.lblAufschubStatus_de_UNISPED.BackColor = System.Drawing.Color.Green + 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, 380) + 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) + Me.lblAufschubStatus_de_UNISPED.TabIndex = 53 + Me.lblAufschubStatus_de_UNISPED.Text = "OK" + ' + 'lblAufschubBrgEUST_de_VeragAG_oE + ' + 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, 286) + 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) + Me.lblAufschubBrgEUST_de_VeragAG_oE.TabIndex = 49 + Me.lblAufschubBrgEUST_de_VeragAG_oE.Text = " 0 €" + ' + 'cbxAufschubEUST_de_VeragAG + ' + Me.cbxAufschubEUST_de_VeragAG.AutoSize = True + Me.cbxAufschubEUST_de_VeragAG.Checked = True + Me.cbxAufschubEUST_de_VeragAG.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschubEUST_de_VeragAG.Location = New System.Drawing.Point(9, 287) + Me.cbxAufschubEUST_de_VeragAG.Name = "cbxAufschubEUST_de_VeragAG" + Me.cbxAufschubEUST_de_VeragAG.Size = New System.Drawing.Size(15, 14) + Me.cbxAufschubEUST_de_VeragAG.TabIndex = 48 + Me.cbxAufschubEUST_de_VeragAG.UseVisualStyleBackColor = True + ' + 'lblAufschubEUST_de_VeragAG + ' + Me.lblAufschubEUST_de_VeragAG.AutoSize = True + Me.lblAufschubEUST_de_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAufschubEUST_de_VeragAG.Location = New System.Drawing.Point(26, 287) + Me.lblAufschubEUST_de_VeragAG.Name = "lblAufschubEUST_de_VeragAG" + Me.lblAufschubEUST_de_VeragAG.Size = New System.Drawing.Size(257, 13) + Me.lblAufschubEUST_de_VeragAG.TabIndex = 44 + Me.lblAufschubEUST_de_VeragAG.Text = "* DE - VERAG Spedition AG - HZA München - EUST" + ' + 'lblAufschubBrgEUST_de_VeragAG + ' + 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, 286) + 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) + Me.lblAufschubBrgEUST_de_VeragAG.TabIndex = 45 + Me.lblAufschubBrgEUST_de_VeragAG.Text = " 0 €" + ' + 'lblAufschubStatusEUST_de_VeragAG + ' + Me.lblAufschubStatusEUST_de_VeragAG.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblAufschubStatusEUST_de_VeragAG.AutoSize = True + Me.lblAufschubStatusEUST_de_VeragAG.BackColor = System.Drawing.Color.Green + 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, 286) + 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) + Me.lblAufschubStatusEUST_de_VeragAG.TabIndex = 47 + Me.lblAufschubStatusEUST_de_VeragAG.Text = "OK" + ' + 'lblAufschubBrgEUST_de_Imex_oE + ' + 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, 331) + 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) + Me.lblAufschubBrgEUST_de_Imex_oE.TabIndex = 43 + Me.lblAufschubBrgEUST_de_Imex_oE.Text = " 0 €" + ' + 'cbxAufschubEUST_de_Imex + ' + Me.cbxAufschubEUST_de_Imex.AutoSize = True + Me.cbxAufschubEUST_de_Imex.Checked = True + Me.cbxAufschubEUST_de_Imex.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschubEUST_de_Imex.Location = New System.Drawing.Point(9, 332) + Me.cbxAufschubEUST_de_Imex.Name = "cbxAufschubEUST_de_Imex" + Me.cbxAufschubEUST_de_Imex.Size = New System.Drawing.Size(15, 14) + Me.cbxAufschubEUST_de_Imex.TabIndex = 42 + Me.cbxAufschubEUST_de_Imex.UseVisualStyleBackColor = True + ' + 'lblAufschubEUST_de_Imex + ' + Me.lblAufschubEUST_de_Imex.AutoSize = True + Me.lblAufschubEUST_de_Imex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAufschubEUST_de_Imex.Location = New System.Drawing.Point(26, 332) + Me.lblAufschubEUST_de_Imex.Name = "lblAufschubEUST_de_Imex" + Me.lblAufschubEUST_de_Imex.Size = New System.Drawing.Size(181, 13) + Me.lblAufschubEUST_de_Imex.TabIndex = 38 + Me.lblAufschubEUST_de_Imex.Text = "* DE - IMEX - HZA München - EUST" + ' + 'lblAufschubBrgEUST_de_Imex + ' + 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, 331) + 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) + Me.lblAufschubBrgEUST_de_Imex.TabIndex = 39 + Me.lblAufschubBrgEUST_de_Imex.Text = " 0 €" + ' + 'lblAufschubStatusEUST_de_Imex + ' + Me.lblAufschubStatusEUST_de_Imex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblAufschubStatusEUST_de_Imex.AutoSize = True + Me.lblAufschubStatusEUST_de_Imex.BackColor = System.Drawing.Color.Green + 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, 331) + 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) + Me.lblAufschubStatusEUST_de_Imex.TabIndex = 41 + Me.lblAufschubStatusEUST_de_Imex.Text = "OK" + ' 'cbxBrg_at_Atilla ' Me.cbxBrg_at_Atilla.AutoSize = True @@ -218,9 +851,10 @@ Partial Class frmMain ' 'lblAtWocheAtilla ' + 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(509, 188) + Me.lblAtWocheAtilla.Location = New System.Drawing.Point(534, 188) Me.lblAtWocheAtilla.Name = "lblAtWocheAtilla" Me.lblAtWocheAtilla.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAtWocheAtilla.Size = New System.Drawing.Size(90, 13) @@ -229,9 +863,10 @@ Partial Class frmMain ' 'lblAtTagAtilla ' + 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(360, 189) + Me.lblAtTagAtilla.Location = New System.Drawing.Point(385, 189) Me.lblAtTagAtilla.Name = "lblAtTagAtilla" Me.lblAtTagAtilla.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAtTagAtilla.Size = New System.Drawing.Size(90, 13) @@ -240,12 +875,13 @@ Partial Class frmMain ' 'lblAt_woche_StatusAtilla ' + Me.lblAt_woche_StatusAtilla.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAt_woche_StatusAtilla.AutoSize = True Me.lblAt_woche_StatusAtilla.BackColor = System.Drawing.Color.Green Me.lblAt_woche_StatusAtilla.Cursor = System.Windows.Forms.Cursors.Help Me.lblAt_woche_StatusAtilla.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAt_woche_StatusAtilla.ForeColor = System.Drawing.Color.White - Me.lblAt_woche_StatusAtilla.Location = New System.Drawing.Point(605, 188) + Me.lblAt_woche_StatusAtilla.Location = New System.Drawing.Point(630, 188) Me.lblAt_woche_StatusAtilla.Name = "lblAt_woche_StatusAtilla" Me.lblAt_woche_StatusAtilla.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAt_woche_StatusAtilla.Size = New System.Drawing.Size(22, 13) @@ -254,12 +890,13 @@ Partial Class frmMain ' 'lblAt_tag_StatusAtilla ' + Me.lblAt_tag_StatusAtilla.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAt_tag_StatusAtilla.AutoSize = True Me.lblAt_tag_StatusAtilla.BackColor = System.Drawing.Color.Green Me.lblAt_tag_StatusAtilla.Cursor = System.Windows.Forms.Cursors.Help Me.lblAt_tag_StatusAtilla.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAt_tag_StatusAtilla.ForeColor = System.Drawing.Color.White - Me.lblAt_tag_StatusAtilla.Location = New System.Drawing.Point(458, 189) + Me.lblAt_tag_StatusAtilla.Location = New System.Drawing.Point(483, 189) Me.lblAt_tag_StatusAtilla.Name = "lblAt_tag_StatusAtilla" Me.lblAt_tag_StatusAtilla.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAt_tag_StatusAtilla.Size = New System.Drawing.Size(22, 13) @@ -289,9 +926,10 @@ Partial Class frmMain ' 'lblAtWocheImex ' + 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(509, 165) + Me.lblAtWocheImex.Location = New System.Drawing.Point(534, 165) Me.lblAtWocheImex.Name = "lblAtWocheImex" Me.lblAtWocheImex.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAtWocheImex.Size = New System.Drawing.Size(90, 13) @@ -300,9 +938,10 @@ Partial Class frmMain ' 'lblAtTagImex ' + 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(360, 166) + Me.lblAtTagImex.Location = New System.Drawing.Point(385, 166) Me.lblAtTagImex.Name = "lblAtTagImex" Me.lblAtTagImex.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAtTagImex.Size = New System.Drawing.Size(90, 13) @@ -311,12 +950,13 @@ Partial Class frmMain ' 'lblAt_woche_StatusImex ' + Me.lblAt_woche_StatusImex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAt_woche_StatusImex.AutoSize = True Me.lblAt_woche_StatusImex.BackColor = System.Drawing.Color.Green 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(605, 165) + Me.lblAt_woche_StatusImex.Location = New System.Drawing.Point(630, 165) 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) @@ -325,12 +965,13 @@ Partial Class frmMain ' 'lblAt_tag_StatusImex ' + Me.lblAt_tag_StatusImex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAt_tag_StatusImex.AutoSize = True Me.lblAt_tag_StatusImex.BackColor = System.Drawing.Color.Green 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(458, 166) + Me.lblAt_tag_StatusImex.Location = New System.Drawing.Point(483, 166) 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) @@ -339,9 +980,10 @@ Partial Class frmMain ' 'Label3 ' + 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(503, 303) + Me.Label3.Location = New System.Drawing.Point(528, 468) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(128, 13) Me.Label3.TabIndex = 25 @@ -349,9 +991,10 @@ Partial Class frmMain ' 'lblAufschubBrg_de_Imex_oE ' + 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(388, 270) + Me.lblAufschubBrg_de_Imex_oE.Location = New System.Drawing.Point(413, 313) 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) @@ -360,9 +1003,10 @@ Partial Class frmMain ' 'lblAufschubBrg_at_VeragZS_oE ' + 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(388, 360) + Me.lblAufschubBrg_at_VeragZS_oE.Location = New System.Drawing.Point(413, 525) 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) @@ -372,9 +1016,10 @@ Partial Class frmMain ' 'lblAufschubBrg_at_VeragCS_oE ' + 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(388, 340) + Me.lblAufschubBrg_at_VeragCS_oE.Location = New System.Drawing.Point(413, 505) 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) @@ -384,9 +1029,10 @@ Partial Class frmMain ' 'lblAufschubBrg_de_VeragAG_oE ' + 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(388, 251) + Me.lblAufschubBrg_de_VeragAG_oE.Location = New System.Drawing.Point(413, 268) 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) @@ -395,9 +1041,10 @@ Partial Class frmMain ' 'lblAufschubBrg_at_VeragAG_oE ' + 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(388, 320) + Me.lblAufschubBrg_at_VeragAG_oE.Location = New System.Drawing.Point(413, 485) 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) @@ -410,7 +1057,7 @@ Partial Class frmMain Me.cbxAufschub_de_Imex.AutoSize = True Me.cbxAufschub_de_Imex.Checked = True Me.cbxAufschub_de_Imex.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxAufschub_de_Imex.Location = New System.Drawing.Point(9, 271) + Me.cbxAufschub_de_Imex.Location = New System.Drawing.Point(9, 314) Me.cbxAufschub_de_Imex.Name = "cbxAufschub_de_Imex" Me.cbxAufschub_de_Imex.Size = New System.Drawing.Size(15, 14) Me.cbxAufschub_de_Imex.TabIndex = 19 @@ -420,17 +1067,18 @@ Partial Class frmMain ' Me.lblAufschub_de_Imex.AutoSize = True Me.lblAufschub_de_Imex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAufschub_de_Imex.Location = New System.Drawing.Point(26, 271) + Me.lblAufschub_de_Imex.Location = New System.Drawing.Point(26, 314) Me.lblAufschub_de_Imex.Name = "lblAufschub_de_Imex" - Me.lblAufschub_de_Imex.Size = New System.Drawing.Size(254, 13) + Me.lblAufschub_de_Imex.Size = New System.Drawing.Size(179, 13) Me.lblAufschub_de_Imex.TabIndex = 15 - Me.lblAufschub_de_Imex.Text = "* DE - Imex Customs Service GmbH - HZA München" + Me.lblAufschub_de_Imex.Text = "* DE - IMEX - HZA München - ZOLL" ' 'lblAufschubBrg_de_Imex ' + 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(509, 270) + Me.lblAufschubBrg_de_Imex.Location = New System.Drawing.Point(534, 313) 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) @@ -439,9 +1087,10 @@ Partial Class frmMain ' 'lblAufschubAkt_de_Imex ' + 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(268, 277) + Me.lblAufschubAkt_de_Imex.Location = New System.Drawing.Point(293, 320) 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) @@ -451,12 +1100,13 @@ Partial Class frmMain ' 'lblAufschubStatus_de_Imex ' + Me.lblAufschubStatus_de_Imex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubStatus_de_Imex.AutoSize = True Me.lblAufschubStatus_de_Imex.BackColor = System.Drawing.Color.Green Me.lblAufschubStatus_de_Imex.Cursor = System.Windows.Forms.Cursors.Help Me.lblAufschubStatus_de_Imex.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubStatus_de_Imex.ForeColor = System.Drawing.Color.White - Me.lblAufschubStatus_de_Imex.Location = New System.Drawing.Point(605, 270) + Me.lblAufschubStatus_de_Imex.Location = New System.Drawing.Point(630, 313) 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) @@ -486,9 +1136,10 @@ Partial Class frmMain ' 'lblDe2Woche ' + 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(509, 122) + Me.lblDe2Woche.Location = New System.Drawing.Point(534, 122) Me.lblDe2Woche.Name = "lblDe2Woche" Me.lblDe2Woche.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblDe2Woche.Size = New System.Drawing.Size(90, 13) @@ -497,9 +1148,10 @@ Partial Class frmMain ' 'lblDe2Tag ' + 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(360, 123) + Me.lblDe2Tag.Location = New System.Drawing.Point(385, 123) Me.lblDe2Tag.Name = "lblDe2Tag" Me.lblDe2Tag.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblDe2Tag.Size = New System.Drawing.Size(90, 13) @@ -508,12 +1160,13 @@ Partial Class frmMain ' 'lblDe2_woche_Status ' + Me.lblDe2_woche_Status.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblDe2_woche_Status.AutoSize = True Me.lblDe2_woche_Status.BackColor = System.Drawing.Color.Green 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(605, 122) + Me.lblDe2_woche_Status.Location = New System.Drawing.Point(630, 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) @@ -522,12 +1175,13 @@ Partial Class frmMain ' 'lblDe2_tag_Status ' + Me.lblDe2_tag_Status.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblDe2_tag_Status.AutoSize = True Me.lblDe2_tag_Status.BackColor = System.Drawing.Color.Green 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(458, 123) + Me.lblDe2_tag_Status.Location = New System.Drawing.Point(483, 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) @@ -536,8 +1190,9 @@ Partial Class frmMain ' 'lblAkt ' + 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(468, 64) + Me.lblAkt.Location = New System.Drawing.Point(493, 64) Me.lblAkt.Name = "lblAkt" Me.lblAkt.Size = New System.Drawing.Size(164, 13) Me.lblAkt.TabIndex = 7 @@ -547,7 +1202,7 @@ Partial Class frmMain 'Label2 ' Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(6, 393) + Me.Label2.Location = New System.Drawing.Point(5, 579) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(177, 13) Me.Label2.TabIndex = 5 @@ -558,7 +1213,7 @@ Partial Class frmMain ' Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button4.Location = New System.Drawing.Point(183, 388) + Me.Button4.Location = New System.Drawing.Point(182, 574) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(62, 23) Me.Button4.TabIndex = 4 @@ -571,7 +1226,7 @@ Partial Class frmMain Me.cbxAufschub_at_VeragZS.AutoSize = True Me.cbxAufschub_at_VeragZS.Checked = True Me.cbxAufschub_at_VeragZS.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxAufschub_at_VeragZS.Location = New System.Drawing.Point(9, 361) + Me.cbxAufschub_at_VeragZS.Location = New System.Drawing.Point(9, 526) Me.cbxAufschub_at_VeragZS.Name = "cbxAufschub_at_VeragZS" Me.cbxAufschub_at_VeragZS.Size = New System.Drawing.Size(15, 14) Me.cbxAufschub_at_VeragZS.TabIndex = 3 @@ -590,14 +1245,15 @@ 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(644, 50) + Me.Panel1.Size = New System.Drawing.Size(669, 50) Me.Panel1.TabIndex = 2 ' 'btnBelastungAufheben ' + 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(230, 16) + Me.btnBelastungAufheben.Location = New System.Drawing.Point(255, 16) Me.btnBelastungAufheben.Name = "btnBelastungAufheben" Me.btnBelastungAufheben.Size = New System.Drawing.Size(91, 23) Me.btnBelastungAufheben.TabIndex = 10 @@ -607,9 +1263,10 @@ Partial Class frmMain ' 'btnKtoAkt ' + 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(324, 16) + Me.btnKtoAkt.Location = New System.Drawing.Point(349, 16) Me.btnKtoAkt.Name = "btnKtoAkt" Me.btnKtoAkt.Size = New System.Drawing.Size(96, 23) Me.btnKtoAkt.TabIndex = 9 @@ -619,9 +1276,10 @@ Partial Class frmMain ' 'btnZusBel ' + 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(230, 3) + Me.btnZusBel.Location = New System.Drawing.Point(255, 3) Me.btnZusBel.Name = "btnZusBel" Me.btnZusBel.Size = New System.Drawing.Size(79, 23) Me.btnZusBel.TabIndex = 3 @@ -631,9 +1289,10 @@ Partial Class frmMain ' 'PictureBox1 ' + 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(594, 12) + Me.PictureBox1.Location = New System.Drawing.Point(619, 12) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(38, 27) Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom @@ -653,9 +1312,10 @@ Partial Class frmMain ' 'btnEinzahlung ' + 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(423, 16) + Me.btnEinzahlung.Location = New System.Drawing.Point(448, 16) Me.btnEinzahlung.Name = "btnEinzahlung" Me.btnEinzahlung.Size = New System.Drawing.Size(79, 23) Me.btnEinzahlung.TabIndex = 2 @@ -665,9 +1325,10 @@ Partial Class frmMain ' 'Button2 ' + 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.White - Me.Button2.Location = New System.Drawing.Point(505, 16) + Me.Button2.Location = New System.Drawing.Point(530, 16) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(87, 23) Me.Button2.TabIndex = 0 @@ -679,7 +1340,7 @@ Partial Class frmMain Me.cbxAufschub_at_VeragCS.AutoSize = True Me.cbxAufschub_at_VeragCS.Checked = True Me.cbxAufschub_at_VeragCS.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxAufschub_at_VeragCS.Location = New System.Drawing.Point(9, 341) + Me.cbxAufschub_at_VeragCS.Location = New System.Drawing.Point(9, 506) Me.cbxAufschub_at_VeragCS.Name = "cbxAufschub_at_VeragCS" Me.cbxAufschub_at_VeragCS.Size = New System.Drawing.Size(15, 14) Me.cbxAufschub_at_VeragCS.TabIndex = 3 @@ -700,7 +1361,7 @@ Partial Class frmMain Me.cbxAufschub_at_VeragAG.AutoSize = True Me.cbxAufschub_at_VeragAG.Checked = True Me.cbxAufschub_at_VeragAG.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxAufschub_at_VeragAG.Location = New System.Drawing.Point(9, 321) + Me.cbxAufschub_at_VeragAG.Location = New System.Drawing.Point(9, 486) Me.cbxAufschub_at_VeragAG.Name = "cbxAufschub_at_VeragAG" Me.cbxAufschub_at_VeragAG.Size = New System.Drawing.Size(15, 14) Me.cbxAufschub_at_VeragAG.TabIndex = 3 @@ -711,7 +1372,7 @@ Partial Class frmMain Me.cbxAufschub_de_VeragAG.AutoSize = True Me.cbxAufschub_de_VeragAG.Checked = True Me.cbxAufschub_de_VeragAG.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxAufschub_de_VeragAG.Location = New System.Drawing.Point(9, 252) + Me.cbxAufschub_de_VeragAG.Location = New System.Drawing.Point(9, 269) Me.cbxAufschub_de_VeragAG.Name = "cbxAufschub_de_VeragAG" Me.cbxAufschub_de_VeragAG.Size = New System.Drawing.Size(15, 14) Me.cbxAufschub_de_VeragAG.TabIndex = 3 @@ -721,11 +1382,12 @@ Partial Class frmMain ' Me.Label5.AutoSize = True Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label5.Location = New System.Drawing.Point(153, 222) + Me.Label5.Location = New System.Drawing.Point(207, 239) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(76, 13) Me.Label5.TabIndex = 1 Me.Label5.Text = "(1 1/2 Monate)" + Me.Label5.Visible = False ' 'cbxBrg_at_VeragAG ' @@ -740,8 +1402,9 @@ Partial Class frmMain ' 'Button1 ' + 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(528, 388) + Me.Button1.Location = New System.Drawing.Point(552, 574) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(103, 23) Me.Button1.TabIndex = 0 @@ -752,20 +1415,21 @@ Partial Class frmMain ' Me.Label7.AutoSize = True Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label7.Location = New System.Drawing.Point(6, 222) + Me.Label7.Location = New System.Drawing.Point(6, 239) Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(139, 13) + Me.Label7.Size = New System.Drawing.Size(189, 13) Me.Label7.TabIndex = 1 - Me.Label7.Text = "Aufschubkonten - Zölle" + Me.Label7.Text = "Aufschubkonten - ZOLL / EUST" ' 'lblAufschubStatus_at_VeragZS ' + Me.lblAufschubStatus_at_VeragZS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubStatus_at_VeragZS.AutoSize = True Me.lblAufschubStatus_at_VeragZS.BackColor = System.Drawing.Color.Green Me.lblAufschubStatus_at_VeragZS.Cursor = System.Windows.Forms.Cursors.Help Me.lblAufschubStatus_at_VeragZS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubStatus_at_VeragZS.ForeColor = System.Drawing.Color.White - Me.lblAufschubStatus_at_VeragZS.Location = New System.Drawing.Point(605, 360) + Me.lblAufschubStatus_at_VeragZS.Location = New System.Drawing.Point(630, 525) 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) @@ -774,12 +1438,13 @@ Partial Class frmMain ' 'lblAufschubStatus_at_VeragCS ' + Me.lblAufschubStatus_at_VeragCS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubStatus_at_VeragCS.AutoSize = True Me.lblAufschubStatus_at_VeragCS.BackColor = System.Drawing.Color.Green Me.lblAufschubStatus_at_VeragCS.Cursor = System.Windows.Forms.Cursors.Help Me.lblAufschubStatus_at_VeragCS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubStatus_at_VeragCS.ForeColor = System.Drawing.Color.White - Me.lblAufschubStatus_at_VeragCS.Location = New System.Drawing.Point(605, 340) + Me.lblAufschubStatus_at_VeragCS.Location = New System.Drawing.Point(630, 505) 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) @@ -788,9 +1453,10 @@ Partial Class frmMain ' 'lblAufschubAkt_at_VeragZS ' + 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(268, 361) + Me.lblAufschubAkt_at_VeragZS.Location = New System.Drawing.Point(293, 526) 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) @@ -810,9 +1476,10 @@ Partial Class frmMain ' 'lblAufschubBrg_at_VeragZS ' + 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(509, 360) + Me.lblAufschubBrg_at_VeragZS.Location = New System.Drawing.Point(534, 525) 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) @@ -821,9 +1488,10 @@ Partial Class frmMain ' 'lblAufschubAkt_at_VeragCS ' + 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(268, 341) + Me.lblAufschubAkt_at_VeragCS.Location = New System.Drawing.Point(293, 506) 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) @@ -833,9 +1501,10 @@ Partial Class frmMain ' 'lblAtWoche ' + 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(509, 143) + Me.lblAtWoche.Location = New System.Drawing.Point(534, 143) Me.lblAtWoche.Name = "lblAtWoche" Me.lblAtWoche.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAtWoche.Size = New System.Drawing.Size(90, 13) @@ -844,9 +1513,10 @@ Partial Class frmMain ' 'lblAufschubBrg_at_VeragCS ' + 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(509, 340) + Me.lblAufschubBrg_at_VeragCS.Location = New System.Drawing.Point(534, 505) 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) @@ -855,9 +1525,10 @@ Partial Class frmMain ' 'lblAtTag ' + 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(360, 144) + Me.lblAtTag.Location = New System.Drawing.Point(385, 144) Me.lblAtTag.Name = "lblAtTag" Me.lblAtTag.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.lblAtTag.Size = New System.Drawing.Size(90, 13) @@ -868,7 +1539,7 @@ Partial Class frmMain ' Me.lblAufschub_at_VeragZS.AutoSize = True Me.lblAufschub_at_VeragZS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAufschub_at_VeragZS.Location = New System.Drawing.Point(26, 361) + Me.lblAufschub_at_VeragZS.Location = New System.Drawing.Point(26, 526) Me.lblAufschub_at_VeragZS.Name = "lblAufschub_at_VeragZS" Me.lblAufschub_at_VeragZS.Size = New System.Drawing.Size(236, 13) Me.lblAufschub_at_VeragZS.TabIndex = 1 @@ -876,12 +1547,13 @@ Partial Class frmMain ' 'lblAt_woche_Status ' + Me.lblAt_woche_Status.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAt_woche_Status.AutoSize = True Me.lblAt_woche_Status.BackColor = System.Drawing.Color.Green 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(605, 143) + Me.lblAt_woche_Status.Location = New System.Drawing.Point(630, 143) 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) @@ -892,7 +1564,7 @@ Partial Class frmMain ' Me.lblAufschub_at_VeragCS.AutoSize = True Me.lblAufschub_at_VeragCS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAufschub_at_VeragCS.Location = New System.Drawing.Point(26, 341) + Me.lblAufschub_at_VeragCS.Location = New System.Drawing.Point(26, 506) Me.lblAufschub_at_VeragCS.Name = "lblAufschub_at_VeragCS" Me.lblAufschub_at_VeragCS.Size = New System.Drawing.Size(235, 13) Me.lblAufschub_at_VeragCS.TabIndex = 1 @@ -902,17 +1574,18 @@ Partial Class frmMain ' Me.lblAufschub_de_VeragAG.AutoSize = True Me.lblAufschub_de_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAufschub_de_VeragAG.Location = New System.Drawing.Point(26, 252) + Me.lblAufschub_de_VeragAG.Location = New System.Drawing.Point(26, 269) Me.lblAufschub_de_VeragAG.Name = "lblAufschub_de_VeragAG" - Me.lblAufschub_de_VeragAG.Size = New System.Drawing.Size(219, 13) + Me.lblAufschub_de_VeragAG.Size = New System.Drawing.Size(255, 13) Me.lblAufschub_de_VeragAG.TabIndex = 1 - Me.lblAufschub_de_VeragAG.Text = "* DE - VERAG Spedition AG - HZA München" + Me.lblAufschub_de_VeragAG.Text = "* DE - VERAG Spedition AG - HZA München - ZOLL" ' 'Label32 ' + 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(527, 98) + Me.Label32.Location = New System.Drawing.Point(552, 98) Me.Label32.Name = "Label32" Me.Label32.Size = New System.Drawing.Size(104, 13) Me.Label32.TabIndex = 1 @@ -920,12 +1593,13 @@ Partial Class frmMain ' 'lblAt_tag_Status ' + Me.lblAt_tag_Status.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAt_tag_Status.AutoSize = True Me.lblAt_tag_Status.BackColor = System.Drawing.Color.Green 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(458, 144) + Me.lblAt_tag_Status.Location = New System.Drawing.Point(483, 144) 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) @@ -934,9 +1608,10 @@ Partial Class frmMain ' 'Label8 ' + 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(361, 222) + Me.Label8.Location = New System.Drawing.Point(386, 239) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(116, 13) Me.Label8.TabIndex = 1 @@ -946,7 +1621,7 @@ Partial Class frmMain ' Me.lblAufschub_at_VeragAG.AutoSize = True Me.lblAufschub_at_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAufschub_at_VeragAG.Location = New System.Drawing.Point(26, 321) + Me.lblAufschub_at_VeragAG.Location = New System.Drawing.Point(26, 486) Me.lblAufschub_at_VeragAG.Name = "lblAufschub_at_VeragAG" Me.lblAufschub_at_VeragAG.Size = New System.Drawing.Size(214, 13) Me.lblAufschub_at_VeragAG.TabIndex = 1 @@ -954,9 +1629,10 @@ Partial Class frmMain ' 'Label34 ' + 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(515, 222) + Me.Label34.Location = New System.Drawing.Point(540, 239) Me.Label34.Name = "Label34" Me.Label34.Size = New System.Drawing.Size(116, 13) Me.Label34.TabIndex = 1 @@ -964,9 +1640,10 @@ Partial Class frmMain ' 'lblAufschubBrg_de_VeragAG ' + 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(509, 251) + Me.lblAufschubBrg_de_VeragAG.Location = New System.Drawing.Point(534, 268) 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) @@ -975,9 +1652,10 @@ Partial Class frmMain ' 'Label12 ' + 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(407, 98) + Me.Label12.Location = New System.Drawing.Point(432, 98) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(76, 13) Me.Label12.TabIndex = 1 @@ -985,9 +1663,10 @@ Partial Class frmMain ' 'lblAufschubAkt_de_VeragAG ' + 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(268, 258) + Me.lblAufschubAkt_de_VeragAG.Location = New System.Drawing.Point(293, 275) 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) @@ -1007,9 +1686,10 @@ Partial Class frmMain ' 'lblAufschubBrg_at_VeragAG ' + 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(509, 320) + Me.lblAufschubBrg_at_VeragAG.Location = New System.Drawing.Point(534, 485) 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) @@ -1018,12 +1698,13 @@ Partial Class frmMain ' 'lblAufschubStatus_at_VeragAG ' + Me.lblAufschubStatus_at_VeragAG.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubStatus_at_VeragAG.AutoSize = True Me.lblAufschubStatus_at_VeragAG.BackColor = System.Drawing.Color.Green Me.lblAufschubStatus_at_VeragAG.Cursor = System.Windows.Forms.Cursors.Help Me.lblAufschubStatus_at_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubStatus_at_VeragAG.ForeColor = System.Drawing.Color.White - Me.lblAufschubStatus_at_VeragAG.Location = New System.Drawing.Point(605, 320) + Me.lblAufschubStatus_at_VeragAG.Location = New System.Drawing.Point(630, 485) 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) @@ -1032,9 +1713,10 @@ Partial Class frmMain ' 'lblAufschubAkt_at_VeragAG ' + 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(268, 321) + Me.lblAufschubAkt_at_VeragAG.Location = New System.Drawing.Point(293, 486) 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) @@ -1044,12 +1726,13 @@ Partial Class frmMain ' 'lblAufschubStatus_de_VeragAG ' + Me.lblAufschubStatus_de_VeragAG.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAufschubStatus_de_VeragAG.AutoSize = True Me.lblAufschubStatus_de_VeragAG.BackColor = System.Drawing.Color.Green Me.lblAufschubStatus_de_VeragAG.Cursor = System.Windows.Forms.Cursors.Help Me.lblAufschubStatus_de_VeragAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAufschubStatus_de_VeragAG.ForeColor = System.Drawing.Color.White - Me.lblAufschubStatus_de_VeragAG.Location = New System.Drawing.Point(605, 251) + Me.lblAufschubStatus_de_VeragAG.Location = New System.Drawing.Point(630, 268) 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) @@ -1058,9 +1741,10 @@ Partial Class frmMain ' 'Label30 ' + 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(385, 235) + Me.Label30.Location = New System.Drawing.Point(410, 252) Me.Label30.Name = "Label30" Me.Label30.Size = New System.Drawing.Size(92, 13) Me.Label30.TabIndex = 1 @@ -1068,9 +1752,10 @@ Partial Class frmMain ' 'Label31 ' + 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(523, 234) + Me.Label31.Location = New System.Drawing.Point(548, 251) Me.Label31.Name = "Label31" Me.Label31.Size = New System.Drawing.Size(108, 13) Me.Label31.TabIndex = 1 @@ -1122,7 +1807,7 @@ Partial Class frmMain Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(646, 430) + Me.ClientSize = New System.Drawing.Size(671, 608) Me.Controls.Add(Me.Panel2) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.MinimizeBox = False @@ -1224,4 +1909,49 @@ Partial Class frmMain Friend WithEvents lblAtTagAtilla As Label Friend WithEvents lblAt_woche_StatusAtilla As Label Friend WithEvents lblAt_tag_StatusAtilla As Label + Friend WithEvents lblAufschubBrgEUST_de_UNISPED_oE As Label + Friend WithEvents cbxAufschubEUST_de_Unisped As CheckBox + Friend WithEvents lblAufschubEUST_de_UNISPED As Label + Friend WithEvents lblAufschubBrgEUST_de_UNISPED As Label + Friend WithEvents lblAufschubStatusEUST_de_UNISPED As Label + Friend WithEvents lblAufschubBrg_de_UNISPED_oE As Label + Friend WithEvents cbxAufschub_de_Unisped As CheckBox + Friend WithEvents lblAufschub_de_UNISPED As Label + Friend WithEvents lblAufschubBrg_de_UNISPED As Label + Friend WithEvents lblAufschubStatus_de_UNISPED As Label + Friend WithEvents lblAufschubBrgEUST_de_VeragAG_oE As Label + Friend WithEvents cbxAufschubEUST_de_VeragAG As CheckBox + Friend WithEvents lblAufschubEUST_de_VeragAG As Label + Friend WithEvents lblAufschubBrgEUST_de_VeragAG As Label + Friend WithEvents lblAufschubStatusEUST_de_VeragAG As Label + Friend WithEvents lblAufschubBrgEUST_de_Imex_oE As Label + Friend WithEvents cbxAufschubEUST_de_Imex As CheckBox + Friend WithEvents lblAufschubEUST_de_Imex As Label + Friend WithEvents lblAufschubBrgEUST_de_Imex As Label + Friend WithEvents lblAufschubStatusEUST_de_Imex As Label + Friend WithEvents cbxBrg_at_UNISPED As CheckBox + Friend WithEvents Label33lblBrg_at_UNISPED As Label + Friend WithEvents lblAtWocheUNISPED As Label + Friend WithEvents lblAtTagUNISPED As Label + Friend WithEvents lblAt_woche_StatusUNISPED As Label + Friend WithEvents lblAt_tag_StatusUNISPED As Label + Friend WithEvents cbxAufschub_at_IMEX As CheckBox + Friend WithEvents lblAufschubStatus_at_IMEX As Label + Friend WithEvents lblAufschubBrg_at_IMEX As Label + Friend WithEvents lblAufschub_at_IMEX As Label + Friend WithEvents lblAufschubBrgEUST_de_global_oE As Label + Friend WithEvents cbxAufschubEUST_de_Global As CheckBox + Friend WithEvents lblAufschubEUST_de_Global As Label + Friend WithEvents lblAufschubBrgEUST_de_global As Label + Friend WithEvents lblAufschubStatusEUST_de_global As Label + Friend WithEvents lblAufschubBrgEUST_de_UNISPEDDE_oE As Label + Friend WithEvents cbxAufschubEUST_de_UnispedDE As CheckBox + Friend WithEvents lblAufschubEUST_de_UNISPEDDE As Label + Friend WithEvents lblAufschubBrgEUST_de_UNISPEDDE As Label + Friend WithEvents lblAufschubStatusEUST_de_UNISPEDDE As Label + Friend WithEvents lblAufschubBrg_de_UNISPEDDE_oE As Label + Friend WithEvents cbxAufschub_de_UnispedDE As CheckBox + Friend WithEvents lblAufschub_de_UNISPEDDE As Label + Friend WithEvents lblAufschubBrg_de_UNISPEDDE As Label + Friend WithEvents lblAufschubStatus_de_UNISPEDDE As Label End Class diff --git a/VERAGMonitoring/frmMain.vb b/VERAGMonitoring/frmMain.vb index 0c65fa5..a77084f 100644 --- a/VERAGMonitoring/frmMain.vb +++ b/VERAGMonitoring/frmMain.vb @@ -76,6 +76,7 @@ Public Class frmMain cbxAufschub_at_VeragCS.Enabled = False cbxAufschub_at_VeragZS.Enabled = False + cbxAufschub_de_Imex.Checked = False cbxAufschub_de_Imex.Enabled = False cbxBrg_at_Imex.Enabled = False Button2.Visible = False @@ -96,6 +97,35 @@ Public Class frmMain cbxAufschub_at_VeragZS.Enabled = False Button2.Visible = False Button4.Enabled = False + cbxAufschub_de_Imex.Checked = True + cbxAufschub_de_Imex.Enabled = True + + Case "UNISPED" + cbxBrg_at_VeragAG.Enabled = False + cbxBrg_de2_VeragAG.Enabled = False + cbxBrg_at_VeragAG.Checked = False + cbxBrg_de2_VeragAG.Checked = False + cbxBrg_at_Atilla.Enabled = False + cbxAufschub_de_VeragAG.Checked = False + cbxAufschub_at_VeragAG.Checked = False + cbxAufschub_at_VeragCS.Checked = False + cbxAufschub_at_VeragZS.Checked = False + cbxAufschub_de_VeragAG.Enabled = False + cbxAufschub_at_VeragAG.Enabled = False + cbxAufschub_at_VeragCS.Enabled = False + cbxAufschub_at_VeragZS.Enabled = False + Button2.Visible = False + Button4.Enabled = False + cbxAufschub_de_Imex.Checked = False + cbxAufschub_de_Imex.Enabled = False + + cbxAufschub_de_Unisped.Checked = True + cbxAufschub_de_Unisped.Enabled = True + + cbxAufschub_de_Unisped.Checked = True + cbxAufschub_de_Unisped.Enabled = True + cbxAufschubEUST_de_Unisped.Checked = True + cbxAufschubEUST_de_Unisped.Enabled = True Case "VERIMEX" 'cbxBrg_at_VeragAG.Enabled = False @@ -325,59 +355,92 @@ Public Class frmMain Dim von As Date = DateSerial(Now.Year, Now.Month, 1) Dim vonbrg As Date = von + Dim vonFaell As Date = von + ' Dim vonbrg26 As Date = von If Now.Day <= 15 Then vonbrg = von.AddMonths(-1) + If Now.Day > 16 Then vonFaell = von.AddMonths(1) + 'If Now.Day <= 26 Then vonbrg26 = von.AddMonths(-1) - 'Aufschub DE VERAG AG - Dim threadAufschub_de_VeragAG As _ - New System.Threading.Thread(Sub() - If cbxAufschub_de_VeragAG.Checked Then + ''Aufschub DE VERAG AG + 'Dim threadAufschub_de_VeragAG As _ + ' New System.Threading.Thread(Sub() + ' If cbxAufschub_de_VeragAG.Checked Then - Dim betragAktuell As Double = BRG.getBrgSumFromBrgKto(von.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG) - setLabel(lblAufschubAkt_de_VeragAG, String.Format("{0:C}", CDbl(betragAktuell))) + ' ' Dim betragAktuell As Double = BRG.getBrgSumFromBrgKto(von.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG) + ' ' setLabel(lblAufschubAkt_de_VeragAG, String.Format("{0:C}", CDbl(betragAktuell))) - Dim betragBrg As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG) - setLabel(lblAufschubBrg_de_VeragAG, String.Format("{0:C}", CDbl(betragBrg))) - setAlarm("Aufschubkonto DE - VERAG Spedition AG - HZA München", "1", Me.lblAufschubBrg_de_VeragAG, cMonitoringBrg.brgusrset_aufschub_AG_de_warn1, cMonitoringBrg.brgusrset_aufschub_AG_de_warn2, cMonitoringBrg.brgusrset_aufschub_AG_de_summe, lblAufschubStatus_de_VeragAG) + ' ' Dim betragBrg_16 As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG,,, "16") + ' ' Dim betragBrg_26 As Double = BRG.getBrgSumFromBrgKto(vonbrg.AddMonths(-1).ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG,,, "26") + ' Dim betragBrg_16 As Double = BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,,, , CDate("16" & vonFaell.ToString(".MM.yyyy"))) + ' Dim betragBrg_26 As Double = 0 + ' If Now.Day <= 26 Then betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, , , CDate("26" & Now.ToString(".MM.yyyy"))) '9 + ' betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, , , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9 + ' betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, , , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10 - Dim betragBrg_oE As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG,, False) - setLabel(lblAufschubBrg_de_VeragAG_oE, String.Format("{0:C}", CDbl(betragBrg_oE))) - Else - setLabel(lblAufschubAkt_de_VeragAG, "0.0") - setLabel(lblAufschubBrg_de_VeragAG, "0.0") - setLabel(lblAufschubBrg_de_VeragAG_oE, "0.0") - End If - End Sub) - threadAufschub_de_VeragAG.IsBackground = True - threadAufschub_de_VeragAG.Start() - threads.Add(threadAufschub_de_VeragAG) + ' setLabel(lblAufschubBrg_de_VeragAG, String.Format("{0:C}", CDbl(betragBrg_16) + CDbl(betragBrg_26))) + ' setAlarm("Aufschubkonto DE - VERAG Spedition AG - HZA München", "1", Me.lblAufschubBrg_de_VeragAG, cMonitoringBrg.brgusrset_aufschub_AG_de_warn1, cMonitoringBrg.brgusrset_aufschub_AG_de_warn2, cMonitoringBrg.brgusrset_aufschub_AG_de_summe, lblAufschubStatus_de_VeragAG) - lblAufschubAkt_de_VeragAG.ForeColor = Color.Black + ' 'Dim betragBrg_oE_16 As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG,, False, "16") + ' 'Dim betragBrg_oE_26 As Double = BRG.getBrgSumFromBrgKto(vonbrg.AddMonths(-1).ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG,, False, "26") + ' Dim betragBrg_oE_16 As Double = BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, False, , CDate("16" & vonFaell.ToString(".MM.yyyy"))) + ' Dim betragBrg_oE_26 As Double = 0 + ' If Now.Day <= 26 Then betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, False, , CDate("26" & Now.ToString(".MM.yyyy"))) '9 + ' betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, False, , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9 + ' betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, False, , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10 - 'Aufschub DE IMEX - Dim threadAufschub_de_Imex As _ - New System.Threading.Thread(Sub() - If cbxAufschub_de_Imex.Checked Then + ' setLabel(lblAufschubBrg_de_VeragAG_oE, String.Format("{0:C}", CDbl(betragBrg_oE_16) + CDbl(betragBrg_oE_26))) + ' Else + ' ' setLabel(lblAufschubAkt_de_VeragAG, "0.0") + ' setLabel(lblAufschubBrg_de_VeragAG, "0.0") + ' setLabel(lblAufschubBrg_de_VeragAG_oE, "0.0") - Dim betragAktuell As Double = BRG.getBrgSumFromBrgKto(von.ToShortDateString, Now.ToShortDateString, brg_DE_Imex) - setLabel(lblAufschubAkt_de_Imex, String.Format("{0:C}", CDbl(betragAktuell))) + ' End If + ' End Sub) + 'threadAufschub_de_VeragAG.IsBackground = True + 'threadAufschub_de_VeragAG.Start() + 'threads.Add(threadAufschub_de_VeragAG) - Dim betragBrg As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex) - setLabel(lblAufschubBrg_de_Imex, String.Format("{0:C}", CDbl(betragBrg))) - setAlarm("Aufschubkonto DE - Imex Customs Service GmbH - HZA München", "8", Me.lblAufschubBrg_de_Imex, cMonitoringBrg.brgusrset_aufschub_AG_de_warn1, cMonitoringBrg.brgusrset_aufschub_AG_de_warn2, cMonitoringBrg.brgusrset_aufschub_AG_de_summe, lblAufschubStatus_de_Imex) + 'lblAufschubAkt_de_VeragAG.ForeColor = Color.Black + + ''Aufschub DE IMEX + 'Dim threadAufschub_de_Imex As _ + ' New System.Threading.Thread(Sub() + ' If cbxAufschub_de_Imex.Checked Then + + ' ' Dim betragAktuell As Double = BRG.getBrgSumFromBrgKto(von.ToShortDateString, Now.ToShortDateString, brg_DE_Imex) + ' 'setLabel(lblAufschubAkt_de_Imex, String.Format("{0:C}", CDbl(betragAktuell))) + + ' 'Dim betragBrg_16 As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex,,, "16") + ' 'Dim betragBrg_26 As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex,,, "26") + + ' Dim betragBrg_16 As Double = BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,,, , CDate("16" & vonFaell.ToString(".MM.yyyy"))) + ' Dim betragBrg_26 As Double = 0 + ' If Now.Day <= 26 Then betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, , , CDate("26" & Now.ToString(".MM.yyyy"))) '9 + ' betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, , , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9 + ' betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, , , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10 - Dim betragBrg_oE As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex,, False) - setLabel(lblAufschubBrg_de_Imex_oE, String.Format("{0:C}", CDbl(betragBrg_oE))) - Else - setLabel(lblAufschubAkt_de_Imex, "0.0") - setLabel(lblAufschubBrg_de_Imex, "0.0") - setLabel(lblAufschubBrg_de_Imex_oE, "0.0") - End If - End Sub) - threadAufschub_de_Imex.IsBackground = True - threadAufschub_de_Imex.Start() - threads.Add(threadAufschub_de_Imex) - lblAufschubAkt_de_Imex.ForeColor = Color.Black + ' setLabel(lblAufschubBrg_de_Imex, String.Format("{0:C}", CDbl(betragBrg_16) + CDbl(betragBrg_26))) + ' setAlarm("Aufschubkonto DE - Imex Customs Service GmbH - HZA München", "8", Me.lblAufschubBrg_de_Imex, cMonitoringBrg.brgusrset_aufschub_imex_de_warn1, cMonitoringBrg.brgusrset_aufschub_imex_de_warn2, cMonitoringBrg.brgusrset_aufschub_imex_de_summe, lblAufschubStatus_de_Imex) + + ' ' Dim betragBrg_oE_16 As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex,, False, "16") + ' ' Dim betragBrg_oE_26 As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex,, False, "26") + ' Dim betragBrg_oE_16 As Double = BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, False, , CDate("16" & vonFaell.ToString(".MM.yyyy"))) + ' Dim betragBrg_oE_26 As Double = 0 + ' If Now.Day <= 26 Then betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, False, , CDate("26" & Now.ToString(".MM.yyyy"))) '9 + ' betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, False, , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9 + ' betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, False, , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10 + ' setLabel(lblAufschubBrg_de_Imex_oE, String.Format("{0:C}", CDbl(betragBrg_oE_16) + CDbl(betragBrg_oE_26))) + ' Else + ' ' setLabel(lblAufschubAkt_de_Imex, "0.0") + ' setLabel(lblAufschubBrg_de_Imex, "0.0") + ' setLabel(lblAufschubBrg_de_Imex_oE, "0.0") + ' End If + ' End Sub) + 'threadAufschub_de_Imex.IsBackground = True + 'threadAufschub_de_Imex.Start() + 'threads.Add(threadAufschub_de_Imex) + 'lblAufschubAkt_de_Imex.ForeColor = Color.Black Dim von_new = New Date(2015, 1, 1) 'KTOSTAND von Begin der Aufzeichnungen an... Dim vonbrg_new = von_new @@ -480,8 +543,161 @@ Public Class frmMain threadAufschub_at_VeragZS.Start() threads.Add(threadAufschub_at_VeragZS) + 'Aufschub AT VERAG Zollservice Service GmbH + Dim threadAufschub_at_IMEX As _ + New System.Threading.Thread(Sub() + If cbxAufschub_at_IMEX.Checked Then + + 'Dim betragAktuell As Double = CDbl(BRG.getBrgSumFromZolaris(von_new.ToShortDateString, Now.ToShortDateString, brg_AT_IMEX, True)) _ + ' + CDbl(BRG.getBrgSumFromBrgKto(von_new.ToShortDateString, Now.ToShortDateString, brg_AT_IMEX_Aufschub)) + 'setLabel(lblAufschubAkt_at_IMEX, String.Format("{0:C}", CDbl(betragAktuell))) + + Dim betragBrg As Double = -CDbl(BRG.getBrgSumFromZolaris(vonbrg_new.ToShortDateString, Now.ToShortDateString, "3027279", True)) _ + + (-1 * CDbl(BRG.getBrgSumFromBrgKto(vonbrg_new.ToShortDateString, Now.ToShortDateString, 13))) + 'Dim betragBrg As Double = BRG.getBrgSumFromBrgKto(vonbrg_new.ToShortDateString, Now.ToShortDateString, brg_AT_IMEX_Aufschub) + 'Dim zolaris As Double = BRG.getBrgSumFromZolaris(vonbrg_new.ToShortDateString, Now.ToShortDateString, brg_AT_IMEX, True) + 'betragBrg += zolaris + setLabel(lblAufschubBrg_at_IMEX, String.Format("{0:C}", CDbl(betragBrg))) + setAlarm2("Aufschubkonto AT - VERAG Zollsercvie GmbH - HZA Linz/Wels", "4", Me.lblAufschubBrg_at_IMEX, cMonitoringBrg.brgusrset_aufschub_ZS_at_warn1, cMonitoringBrg.brgusrset_aufschub_ZS_at_warn2, cMonitoringBrg.brgusrset_aufschub_ZS_at_summe, lblAufschubStatus_at_IMEX) + + + 'Dim betragBrg_oE As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_IMEX,, False) + 'betragBrg_oE += zolaris + 'setLabel(lblAufschubBrg_at_IMEX_oE, String.Format("{0:C}", CDbl(betragBrg_oE))) + Else + ' setLabel(lblAufschubAkt_at_IMEX, "0.0") + setLabel(lblAufschubBrg_at_IMEX, "0.0") + ' setLabel(lblAufschubBrg_at_IMEX_oE, "0.0") + End If + End Sub) + threadAufschub_at_IMEX.IsBackground = True + threadAufschub_at_IMEX.Start() + threads.Add(threadAufschub_at_IMEX) + + doAufschubCalc("ZOLL", 1, cbxAufschub_de_VeragAG, lblAufschubBrg_de_VeragAG, lblAufschubBrg_de_VeragAG_oE, lblAufschub_de_VeragAG, lblAufschubStatus_de_VeragAG) 'VERAG AG DE - ZOLL + doAufschubCalc("ZOLL", 8, cbxAufschub_de_Imex, lblAufschubBrg_de_Imex, lblAufschubBrg_de_Imex_oE, lblAufschub_de_Imex, lblAufschubStatus_de_Imex) 'IMEX DE - ZOLL + + doAufschubCalc("ZOLL", 14, cbxAufschub_de_Unisped, lblAufschubBrg_de_UNISPED, lblAufschubBrg_de_UNISPED_oE, lblAufschub_de_UNISPED, lblAufschubStatus_de_UNISPED) 'UNISPED DE - ZOLL + doAufschubCalc("EUST", 15, cbxAufschubEUST_de_Unisped, lblAufschubBrgEUST_de_UNISPED, lblAufschubBrgEUST_de_UNISPED_oE, lblAufschubEUST_de_UNISPED, lblAufschubStatusEUST_de_UNISPED) 'UNISPED DE - EUST + + doAufschubCalc("EUST", 12, cbxAufschubEUST_de_Imex, lblAufschubBrgEUST_de_Imex, lblAufschubBrgEUST_de_Imex_oE, lblAufschubEUST_de_Imex, lblAufschubStatusEUST_de_Imex) 'imex DE - EUST + doAufschubCalc("EUST", 10, cbxAufschubEUST_de_Global, lblAufschubBrgEUST_de_global, lblAufschubBrgEUST_de_global_oE, lblAufschubEUST_de_Global, lblAufschubStatusEUST_de_global) 'GLOBAL DE - EUST + doAufschubCalc("EUST", 11, cbxAufschubEUST_de_VeragAG, lblAufschubBrgEUST_de_VeragAG, lblAufschubBrgEUST_de_VeragAG_oE, lblAufschubEUST_de_VeragAG, lblAufschubStatusEUST_de_VeragAG) 'VERAG DE - EUST + + doAufschubCalc("ZOLL", 16, cbxAufschub_de_UnispedDE, lblAufschubBrg_de_UNISPEDDE, lblAufschubBrg_de_UNISPEDDE_oE, lblAufschub_de_UNISPEDDE, lblAufschubStatus_de_UNISPEDDE) 'UNISPED(DE) DE - ZOLL + doAufschubCalc("EUST", 17, cbxAufschubEUST_de_UnispedDE, lblAufschubBrgEUST_de_UNISPEDDE, lblAufschubBrgEUST_de_UNISPEDDE_oE, lblAufschubEUST_de_UNISPEDDE, lblAufschubStatusEUST_de_UNISPEDDE) 'UNISPED(DE) DE - EUST + + doAufschubCalc_AT("GESAMT", 13, cbxAufschub_at_IMEX, lblAufschubBrg_at_IMEX, Nothing, lblAufschub_at_IMEX, lblAufschubStatus_at_IMEX) 'IMEX AT - GESAMT + End Sub + + Sub doAufschubCalc(ART As String, BRG_ID As Integer, cbx As CheckBox, lblBRG As Label, lblBRG_oE As Label, lblAufschub As Label, lblAStatus As Label) + + Dim von As Date = DateSerial(Now.Year, Now.Month, 1) + Dim vonbrg As Date = von + Dim vonFaell As Date = von + + If Now.Day <= 15 Then vonbrg = von.AddMonths(-1) + If Now.Day > 16 Then vonFaell = von.AddMonths(1) + + lblAufschub.ForeColor = Color.Gray + lblBRG.ForeColor = Color.Gray + If lblBRG_oE IsNot Nothing Then lblBRG_oE.ForeColor = Color.Gray + + Dim cAufschubKonten As New VERAG_PROG_ALLGEMEIN.cAufschubKonten(BRG_ID) + + + setLabel(lblAufschub, cAufschubKonten.brgakto_bez & " - " & CDbl(cAufschubKonten.brgakto_betrag).ToString("C0")) + + Dim threadAufschub As _ + New System.Threading.Thread(Sub() + If cbx.Checked Then + + Dim betrag As Double = 0 + Dim betrag_oE As Double = 0 + + If ART = "ZOLL" Then + Dim betragBrg_16 As Double = BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,,, , CDate("16" & vonFaell.ToString(".MM.yyyy"))) + Dim betragBrg_26 As Double = 0 + If Now.Day <= 26 Then betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, , , CDate("26" & Now.ToString(".MM.yyyy"))) '9 + betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, , , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9 + betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, , , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10 + betrag = CDbl(betragBrg_16) + CDbl(betragBrg_26) + + Dim betragBrg_oE_16 As Double = BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, False, , CDate("16" & vonFaell.ToString(".MM.yyyy"))) + Dim betragBrg_oE_26 As Double = 0 + If Now.Day <= 26 Then betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, False, , CDate("26" & Now.ToString(".MM.yyyy"))) '9 + betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, False, , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9 + betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, False, , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10 + betrag_oE = CDbl(betragBrg_oE_16) + CDbl(betragBrg_oE_26) + + Else + betrag = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, BRG_ID) + betrag_oE = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, BRG_ID,, False) + End If + + + setLabel(lblBRG, String.Format("{0:C}", betrag)) + setAlarm(cAufschubKonten.brgakto_bez, BRG_ID, lblBRG, cAufschubKonten.brgakto_warn1, cAufschubKonten.brgakto_warn2, cAufschubKonten.brgakto_betrag, lblAStatus) + + setLabel(lblBRG_oE, String.Format("{0:C}", betrag_oE)) + setLabelvisible(lblAStatus, True) + Else + setLabel(lblBRG, "0.0") + setLabel(lblBRG_oE, "0.0") + setLabelvisible(lblAStatus, False) + + End If + + lblAufschub.ForeColor = Color.Black + lblBRG.ForeColor = Color.Black + lblBRG_oE.ForeColor = Color.Black + End Sub) + threadAufschub.IsBackground = True + threadAufschub.Start() + threads.Add(threadAufschub) + + + End Sub + + Sub doAufschubCalc_AT(ART As String, BRG_ID As Integer, cbx As CheckBox, lblBRG As Label, lblBRG_oE As Label, lblAufschub As Label, lblAStatus As Label) + + + + Dim von_new = New Date(2015, 1, 1) 'KTOSTAND von Begin der Aufzeichnungen an... + Dim vonbrg_new = von_new + + ' lblAufschub.ForeColor = Color.Gray + lblBRG.ForeColor = Color.Gray + If lblBRG_oE IsNot Nothing Then lblBRG_oE.ForeColor = Color.Gray + + Dim cAufschubKonten As New VERAG_PROG_ALLGEMEIN.cAufschubKonten(BRG_ID) + + 'Aufschub AT VERAG Zollservice Service GmbH + Dim threadAufschub As _ + New System.Threading.Thread(Sub() + If cbx.Checked Then + + Dim betragBrg As Double = -CDbl(BRG.getBrgSumFromZolaris(vonbrg_new.ToShortDateString, Now.ToShortDateString, cAufschubKonten.brgakto_ktonr, True)) _ + + (-1 * CDbl(BRG.getBrgSumFromBrgKto(vonbrg_new.ToShortDateString, Now.ToShortDateString, BRG_ID))) + setLabel(lblBRG, String.Format("{0:C}", CDbl(betragBrg))) + + setAlarm2(cAufschubKonten.brgakto_bez, BRG_ID, lblBRG, cAufschubKonten.brgakto_warn1, cAufschubKonten.brgakto_warn2, cAufschubKonten.brgakto_betrag, lblAStatus) + + Else + setLabel(lblBRG, "0.0") + + End If + End Sub) + threadAufschub.IsBackground = True + threadAufschub.Start() + threads.Add(threadAufschub) + + + End Sub + + 'threadsicherer Aufruf Delegate Sub setLabelCallback(l As Label, t As String) Private Sub setLabel(l As Label, t As String) @@ -493,6 +709,16 @@ Public Class frmMain End If End Sub + 'threadsicherer Aufruf + Delegate Sub setLabelCallbackvisible(l As Label, visible As Boolean) + Private Sub setLabelvisible(l As Label, visible As Boolean) + If Me.InvokeRequired Then + Dim d As New setLabelCallbackvisible(AddressOf setLabelvisible) + Me.Invoke(d, New Object() {l, visible}) + Else + l.Visible = visible + End If + End Sub Sub allinGray() @@ -719,7 +945,7 @@ Public Class frmMain End Try Return True End Function - Private Sub cbxBrg_de_VeragAG_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_de2_VeragAG.CheckedChanged, cbxBrg_at_VeragAG.CheckedChanged, cbxAufschub_de_VeragAG.CheckedChanged, cbxAufschub_at_VeragAG.CheckedChanged, cbxAufschub_at_VeragCS.CheckedChanged, cbxAufschub_at_VeragZS.CheckedChanged + Private Sub cbxBrg_de_VeragAG_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_de2_VeragAG.CheckedChanged, cbxBrg_at_VeragAG.CheckedChanged, cbxAufschub_de_VeragAG.CheckedChanged, cbxAufschub_at_VeragAG.CheckedChanged, cbxAufschub_at_VeragCS.CheckedChanged, cbxAufschub_at_VeragZS.CheckedChanged, cbxAufschubEUST_de_VeragAG.CheckedChanged, cbxAufschubEUST_de_Imex.CheckedChanged, cbxAufschubEUST_de_Global.CheckedChanged, cbxAufschub_de_Unisped.CheckedChanged, cbxAufschubEUST_de_Unisped.CheckedChanged, cbxAufschub_de_UnispedDE.CheckedChanged, cbxAufschubEUST_de_UnispedDE.CheckedChanged, cbxAufschub_at_IMEX.CheckedChanged, cbxBrg_at_UNISPED.CheckedChanged, cbxBrg_at_Atilla.CheckedChanged, cbxBrg_at_Imex.CheckedChanged 'MsgBox(sender.name) Me.Cursor = Cursors.WaitCursor If loaded Then @@ -830,9 +1056,22 @@ Public Class frmMain Dim brg_DE_VeragAG As String = "1" Dim von As Date = DateSerial(Now.Year, Now.Month, 1) Dim vonbrg As Date = von + Dim vonFaell As Date = von If Now.Day <= 15 Then vonbrg = von.AddMonths(-1) + If Now.Day > 16 Then vonFaell = von.AddMonths(1) frmShowData.Show() - frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG) + + Dim faelligkeitWhere = " AND brgak_faelligkeitsdatum IN (" + faelligkeitWhere &= "'" & CDate("16" & vonFaell.ToString(".MM.yyyy")).ToShortDateString & "'" + + If Now.Day <= 26 Then faelligkeitWhere &= ",'" & CDate("26" & Now.ToString(".MM.yyyy")).ToShortDateString & "'" + faelligkeitWhere &= ",'" & CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy")).ToShortDateString & "'" + faelligkeitWhere &= ",'" & CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy")).ToShortDateString & "'" + faelligkeitWhere &= ") " + MsgBox(faelligkeitWhere) + frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto_Faelligkeit(faelligkeitWhere, brg_DE_VeragAG) + ' frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG) + frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount End Sub @@ -983,9 +1222,22 @@ Public Class frmMain Dim brg_DE_Imex As String = "8" Dim von As Date = DateSerial(Now.Year, Now.Month, 1) Dim vonbrg As Date = von + Dim vonFaell As Date = von If Now.Day <= 15 Then vonbrg = von.AddMonths(-1) + If Now.Day > 16 Then vonFaell = von.AddMonths(1) frmShowData.Show() - frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex) + ' frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex) + + Dim faelligkeitWhere = " AND brgak_faelligkeitsdatum IN (" + faelligkeitWhere &= "'" & CDate("16" & vonFaell.ToString(".MM.yyyy")).ToShortDateString & "'" + + If Now.Day <= 26 Then faelligkeitWhere &= ",'" & CDate("26" & Now.ToString(".MM.yyyy")).ToShortDateString & "'" + faelligkeitWhere &= ",'" & CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy")).ToShortDateString & "'" + faelligkeitWhere &= ",'" & CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy")).ToShortDateString & "'" + faelligkeitWhere &= ") " + + frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto_Faelligkeit(faelligkeitWhere, brg_DE_Imex) + frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount End Sub @@ -1001,13 +1253,6 @@ Public Class frmMain frmShowData.Show() End Sub - Private Sub cbxBrg_at_Atilla_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_at_Atilla.CheckedChanged - - End Sub - - Private Sub cbxBrg_at_Imex_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_at_Imex.CheckedChanged - - End Sub End Class diff --git a/cNCTSPartnerWorker/NCTSPartnerWorker.vbproj b/cNCTSPartnerWorker/NCTSPartnerWorker.vbproj index fec87b5..f2abb22 100644 --- a/cNCTSPartnerWorker/NCTSPartnerWorker.vbproj +++ b/cNCTSPartnerWorker/NCTSPartnerWorker.vbproj @@ -21,6 +21,7 @@ bin\Debug\ cNCTSPartnerWorker.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + x64 pdbonly diff --git a/initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb b/initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb index 7675d6e..b3300aa 100644 --- a/initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb +++ b/initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb @@ -133,7 +133,7 @@ Module AtlasAufschubDatenEinlesen Dim cn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN - 'cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;" + 'cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" 'cn.Open() Using cn Using cmd As New SqlCommand(sql, cn) diff --git a/initATLASAufschubkonten/EZollAufschubEinlesen.vb b/initATLASAufschubkonten/EZollAufschubEinlesen.vb index 38addc0..fe67eee 100644 --- a/initATLASAufschubkonten/EZollAufschubEinlesen.vb +++ b/initATLASAufschubkonten/EZollAufschubEinlesen.vb @@ -212,13 +212,13 @@ Public Class EZollAufschubEinlesen Public Shared Function GetNewOpenConnectionZOLARIS() As SqlConnection Dim cn As New SqlConnection() - cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;" + cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" cn.Open() Return cn End Function Public Shared Function GetNewOpenConnectionADMIN_OLD() As SqlConnection Dim cn As New SqlConnection() - cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;" + cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" cn.Open() Return cn End Function diff --git a/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_eza.vb b/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_eza.vb index b04e436..b265ddb 100644 --- a/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_eza.vb +++ b/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_eza.vb @@ -181,7 +181,8 @@ Shared Sub copyEZAToFTP(ByRef VERAG_OUT_EZA As VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza, IF_Obj As cVERAG_InterfaceSharedObjects, ByRef vorsystem As String, ByRef filePath As String, ByRef destFile As String, ByRef UniqueId As String, Optional checkAlreadyProvided As Boolean = True, ByRef Optional found As Boolean = False) If VERAG_OUT_EZA IsNot Nothing AndAlso Not alreadyProvidedInInterface(VERAG_OUT_EZA.ProcessData.ReferenzNumber, VERAG_OUT_EZA.ProcessData.ProcedureCode, VERAG_OUT_EZA.ProcessData.Status, vorsystem, IF_Obj.CooName, checkAlreadyProvided) Then If genXMLFile(VERAG_OUT_EZA, filePath, vorsystem, UniqueId) <> "" Then - frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile) + + If Not IO.File.Exists(destFile) Then frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile) If IO.File.Exists(destFile) Then insertFTPLOG(destFile, IF_Obj.CooName, VERAG_OUT_EZA.ProcessData.ReferenzNumber, VERAG_OUT_EZA.ProcessData.ProcedureCode, VERAG_OUT_EZA.ProcessData.Status, vorsystem) found = True @@ -294,7 +295,7 @@ If Not checkAlreadyProvided Then Return False ' wenn es nicht geprüft werden soll, dann wird "Nicht bereitgestellt" zurückgegeben Try 'Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & VERAG_OUT_EZA.ProcessData.ReferenzNumber & "','" & VERAG_OUT_EZA.ProcessData.ProcedureCode & "','" & VERAG_OUT_EZA.ProcessData.Status & "','')", "FMZOLL") - If SQL.getValueTxtBySql("SELECT count(*) FROM [tblFTP_Log] where [ftp_BezugsNr]='" & ReferenzNumber & "' AND [ftp_art]='" & ProcedureCode & "' AND [ftp_status]='" & Status & "' AND [ftp_vorsystem]='" & vorsystem & "' AND [ftp_CooName]='" & ftp_CooName & "' ", "FMZOLL",,, 0) = 0 Then + If SQL.getValueTxtBySql("SELECT count(*) FROM [tblFTP_Log] where [ftp_BezugsNr]='" & ReferenzNumber & "' AND [ftp_art]='" & ProcedureCode & "' AND [ftp_status]='" & Status & "' AND [ftp_vorsystem]='" & vorsystem & "' AND [ftp_CooName]='" & ftp_CooName & "' ", "FMZOLL",,, 0, 15) = 0 Then Return False End If Catch ex As Exception @@ -309,6 +310,9 @@ Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\EZA_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\" If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir) XMLFilePath = dir & "VERAG_EZA_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml" + While IO.File.Exists(XMLFilePath) + XMLFilePath = dir & "VERAG_EZA_OUT_" & Now.ToString("ddMMyyyHHmmssffff") & "_" & Code & "_" & UniqueId & ".xml" + End While End If If VERAG_EZA IsNot Nothing Then VERAG_EZA.SaveToFile(XMLFilePath) diff --git a/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb b/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb index a508ac3..a9d8636 100644 --- a/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb +++ b/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb @@ -484,7 +484,7 @@ Try Select Case GRN - Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518" + Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157" If cVERAG_Interface_Settings.acticeInterface_TOBB Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\TOBB\OUT\", "TOBB")) : IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\TOBB\", "TOBB")) Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520", "15TR0004000020500", "ITTR0000000000153" If cVERAG_Interface_Settings.acticeInterface_OREGON Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\OREGON\OUT\", "OREGON")) : IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\OREGON\", "OREGON")) @@ -621,6 +621,9 @@ Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\" If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir) XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml" + While IO.File.Exists(XMLFilePath) + XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmssffff") & "_" & Code & "_" & UniqueId & ".xml" + End While End If If VERAG_NCTS IsNot Nothing Then VERAG_NCTS.SaveToFile(XMLFilePath) diff --git a/initATLASAufschubkonten/cBuergschaften.vb b/initATLASAufschubkonten/cBuergschaften.vb index ddb6493..4e1ab6b 100644 --- a/initATLASAufschubkonten/cBuergschaften.vb +++ b/initATLASAufschubkonten/cBuergschaften.vb @@ -4,26 +4,26 @@ Public Class cBuergschaften Public Shared Function GetNewOpenConnectionATLAS() As SqlConnection Dim cn As New SqlConnection() - cn.ConnectionString = "Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;" + cn.ConnectionString = "Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" cn.Open() Return cn End Function Public Shared Function GetNewOpenConnectionATLAS_SBG() As SqlConnection Dim cn As New SqlConnection() - cn.ConnectionString = "Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;" + cn.ConnectionString = "Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" cn.Open() Return cn End Function Public Shared Function GetNewOpenConnectionFMZOLL() As SqlConnection Dim cn As New SqlConnection() - cn.ConnectionString = "Data Source=FMZOLL\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;" - ' cn.ConnectionString = "Data Source=DEVELOPER\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;" + cn.ConnectionString = "Data Source=FMZOLL\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" + ' cn.ConnectionString = "Data Source=DEVELOPER\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" cn.Open() Return cn End Function Public Shared Function GetNewOpenConnectionBUCHHALTUNG() As SqlConnection Dim cn As New SqlConnection() - cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;" + cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" cn.Open() Return cn End Function diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 680693c..2258e7d 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -1353,10 +1353,12 @@ Public Class frmDYNachrichtenVerarbeitung End If End If - AES.aes_Status = DAKOSY_Worker.cDY_Statusliste.S_05 - AES.aes_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05 + + + If If(AES.aes_Status, 0) <= 5 Then AES.aes_Status = DAKOSY_Worker.cDY_Statusliste.S_05 + If If(AES.aes_Status_KEWILL_Equivalent, 0) <= 5 Then AES.aes_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05 If AES.SAVE_ALL() Then - DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05) + If If(AES.aes_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05) End If End If @@ -5465,7 +5467,6 @@ Public Class frmDYNachrichtenVerarbeitung - Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") If regNr <> "" Then @@ -5553,14 +5554,22 @@ Public Class frmDYNachrichtenVerarbeitung Function InsertAbgaben(EZA, division, STATUS, DY_TMP, regNr, Bezugsnummer, regDat, firma, nl, EDIFACTNachrichtenNr) Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit, regNr) - If EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt IsNot Nothing Then For Each A In EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt Dim LeistungsNr = 0 + If A.AbgabeArt IsNot Nothing Then ' If A.Zahlungsart = "A" Then 'Nur wenn Zahlungsart=...? - If If(A.KennBuchstabenAufschub, "").Trim = "M" And (CInt(A.AufschubkontoNr) = 6128 Or CInt(A.AufschubkontoNr) = 6136 Or CInt(A.AufschubkontoNr) = 2718 Or CInt(A.AufschubkontoNr) = 2719 Or - CInt(A.AufschubkontoNr) = 6145 Or CInt(A.AufschubkontoNr) = 6146 Or CInt(A.AufschubkontoNr) = 6077) Then '_>TEST Or CInt(A.AufschubkontoNr) = 678010 + If If(A.KennBuchstabenAufschub, "").Trim = "M" And + (CInt(A.AufschubkontoNr) = 6128 Or + CInt(A.AufschubkontoNr) = 6136 Or + CInt(A.AufschubkontoNr) = 2718 Or + CInt(A.AufschubkontoNr) = 2719 Or + CInt(A.AufschubkontoNr) = 6145 Or + CInt(A.AufschubkontoNr) = 6146 Or + CInt(A.AufschubkontoNr) = 6077 Or + CInt(A.AufschubkontoNr) = 6078 Or + CInt(A.AufschubkontoNr) = 1994) Then '_>TEST Or CInt(A.AufschubkontoNr) = 678010 Select Case A.AbgabeArt.ToString Case "A0000", "10100" : LeistungsNr = 60 ' ZOLL @@ -5595,21 +5604,29 @@ Public Class frmDYNachrichtenVerarbeitung Dim errHInweis = "ATC: " & ABGABEN.Registriernummer & " - BezugsNr: " & ABGABEN.Bezugsnummer ABGABEN.SAVE(errHInweis) - - 'Aufschub - Überwachung: - Select Case CInt(A.AufschubkontoNr) - Case 6128 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 1, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0) - Case 2718 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 8, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0) - - 'Case 2718 : VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMailTEST("al@verag.ag", "AUFSCHUB IMEX: " & ABGABEN.Betrag, "AUFSCHUB IMEX: " & ABGABEN.Betrag & vbNewLine & ABGABEN.Bezugsnummer) - End Select - - - If CInt(A.AufschubkontoNr) = 6128 Then 'Nur bei ZOLL ' --> TEST: Or CInt(A.AufschubkontoNr) = 678010 - AtlasAufschubDatenEinlesen.tryToInsertProgramm(regDat, A.Abgabenbetrag, "1", "DY", regNr, "") - End If - End If + 'Aufschub - Überwachung: + Select Case CInt(A.AufschubkontoNr) + Case 6128 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 1, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) + Case 2718 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 8, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) + Case 1994 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 10, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'Global + Case 6136 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 11, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'VERAG EUST + Case 2719 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 12, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'IMEX EUST + Case 6145 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 14, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED ZOLL + Case 6146 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 15, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED EUST + Case 6078 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 16, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED(DE) ZOLL + Case 6077 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 17, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED(DE) EUST + 'UNISPED Case XXX: tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag,XXX, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) + + 'Case 2718 : VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMailTEST("al@verag.ag", "AUFSCHUB IMEX: " & ABGABEN.Betrag, "AUFSCHUB IMEX: " & ABGABEN.Betrag & vbNewLine & ABGABEN.Bezugsnummer) + End Select + + + 'If CInt(A.AufschubkontoNr) = 6128 Then 'Nur bei ZOLL ' --> TEST: Or CInt(A.AufschubkontoNr) = 678010 + ' AtlasAufschubDatenEinlesen.tryToInsertProgramm(regDat, A.Abgabenbetrag, "1", "DY", regNr, "") + 'End If + + End If ' End If @@ -5619,14 +5636,14 @@ Public Class frmDYNachrichtenVerarbeitung End Function - Public Function tryToInsertProgramm(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_fileline) As Boolean + Shared Function tryToInsertProgramm(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_fileline, brgak_faelligkeitsdatum) As Boolean Dim sql As String = " begin tran" & - " if Not exists (select * from tblBrgAufschub with (updlock,serializable) where brgak_filename = @brgak_filename AND brgak_fileline=@brgak_fileline) " & + " if Not exists (select * from tblBrgAufschub with (updlock,serializable) where brgak_filename = @brgak_filename AND brgak_fileline=@brgak_fileline ) " & " begin " & " INSERT INTO tblBrgAufschub " & - " (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc,brgak_fileline) VALUES " & - " (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,@brgak_fileline) " & + " (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc,brgak_fileline,brgak_faelligkeitsdatum) VALUES " & + " (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,@brgak_fileline,@brgak_faelligkeitsdatum) " & " End " & " commit tran " '(brgak_fileline='' OR ... ) @@ -5643,7 +5660,7 @@ Public Class frmDYNachrichtenVerarbeitung Dim cn As System.Data.SqlClient.SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN 'Dim cn As New System.Data.SqlClient.SqlConnection() - 'cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;" + 'cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" 'cn.Open() Using cn Using cmd As New System.Data.SqlClient.SqlCommand(sql, cn) @@ -5653,6 +5670,7 @@ Public Class frmDYNachrichtenVerarbeitung cmd.Parameters.AddWithValue("@brgak_filename", brgak_filename) cmd.Parameters.AddWithValue("@brgak_atc", brgak_atc) cmd.Parameters.AddWithValue("@brgak_fileline", brgak_fileline) + cmd.Parameters.AddWithValue("@brgak_faelligkeitsdatum", brgak_faelligkeitsdatum) Try cmd.ExecuteNonQuery() @@ -6143,10 +6161,10 @@ Public Class frmDYNachrichtenVerarbeitung - NCTS.nctsAt_Status = DAKOSY_Worker.cDY_Statusliste.S_05 - NCTS.nctsAt_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05 + If If(NCTS.nctsAt_Status, 0) <= 5 Then NCTS.nctsAt_Status = DAKOSY_Worker.cDY_Statusliste.S_05 + If If(NCTS.nctsAt_Status_KEWILL_Equivalent, 0) <= 5 Then NCTS.nctsAt_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05 If NCTS.SAVE_ALL() Then - DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05) + If If(NCTS.nctsAt_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05) End If diff --git a/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb index fb7ba81..2c23308 100644 --- a/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb @@ -66,7 +66,7 @@ Public Class frmMDMNachrichtenVerarbeitung Me.Enabled = False Try Label9.Visible = True - Dim cnt = getNachrichtenDatenFromMDMServices() + Dim cnt = getNachrichtenDatenFromMDMServices() ' If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, getNachrichtenDatenFromMDMServicesTEST(), getNachrichtenDatenFromMDMServices()) Label9.Text = cnt & " Datensätze empfangen." Catch ex As Exception @@ -108,125 +108,9 @@ Public Class frmMDMNachrichtenVerarbeitung MDM_Worker.cMDMFunctions.getSFTPLoginData(MDM_server, MDM_name, MDM_pwd, MDM_port, "", MDM_PFAD_out) + DownloadFtpDirectory(MDM_server & "/"c & MDM_PFAD_out, New NetworkCredential(MDM_name, MDM_pwd), "", cnt, True) + ' DownloadFtpDirectory("ftp://80.16.102.180" & "/"c & MDM_PFAD_out, New NetworkCredential(MDM_name, MDM_pwd), "", cnt, True) - DownloadFtpDirectory("ftp://ftp.plose.it" & "/"c & MDM_PFAD_out, New NetworkCredential(MDM_name, MDM_pwd), "", cnt, True) - 'Dim request = WebRequest.Create("ftp://ftp.plose.it" & "/"c & MDM_PFAD_out) - ''request.Method = WebRequestMethods.Ftp.DownloadFile - ''request.Credentials = New NetworkCredential(MDM_name, MDM_pwd) - - 'request.Method = WebRequestMethods.Ftp.ListDirectory - 'request.Credentials = New NetworkCredential(MDM_name, MDM_pwd) - - 'Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse) - 'Dim responseStream As Stream = response.GetResponseStream - - 'Using reader As New StreamReader(responseStream) - ' Do While reader.Peek <> -1 - ' Dim fName = reader.ReadLine - - - ' MsgBox(fName) - ' Loop - 'End Using - - ' Dim dest = Path.Combine(MDM_PFAD_out, fileName) - ' Using resp = request.GetResponse(), strmResp = resp.GetResponseStream, - 'strmFile = New FileStream(dest, FileMode.Create) - ' Dim buf(1023) As Byte - ' Do - ' Dim read = strmResp.Read(buf, 0, buf.Length) - ' If read = 0 Then Exit Do 'end of Transmission - ' strmFile.Write(buf, 0, read) - ' Loop - ' End Using - ' Return False - - - 'MsgBox(MDM_server & "/" & MDM_PFAD_out) - 'Dim Dirlist As New List(Of String) 'I prefer List() instead of an array - 'Dim request As New FtpWebRequest("http://ftp.plose.it") ' DirectCast(WebRequest.Create("http://ftp.plose.it"), FtpWebRequest) ' DirectCast(WebRequest.Create("ftp.plose.it"), FtpWebRequest) - - 'request.Method = WebRequestMethods.Ftp.ListDirectory - 'request.Credentials = New NetworkCredential(MDM_name, MDM_pwd) - - 'Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse) - 'Dim responseStream As Stream = response.GetResponseStream - - 'Using reader As New StreamReader(responseStream) - ' Do While reader.Peek <> -1 - ' Dim fName = reader.ReadLine - - ' MsgBox(fName) - ' Loop - 'End Using - - 'response.Close() - - - - 'Try - ' ' Setup session options - ' Dim sessionOptions As New SessionOptions - ' With sessionOptions - ' .Protocol = Protocol.Ftp - ' .HostName = "example.com" - ' .UserName = "user" - ' .Password = "mypassword" - ' End With - - ' Using session As New Session - ' ' Will continuously report progress of synchronization - ' AddHandler session.FileTransferred, AddressOf FileTransferred - - ' ' Connect - ' session.Open(sessionOptions) - - ' ' Synchronize files - ' Dim synchronizationResult As SynchronizationResult - ' synchronizationResult = - ' session.SynchronizeDirectories( - ' SynchronizationMode.Local, "d:\www", "/home/martin/public_html", False) - - ' ' Throw on any error - ' synchronizationResult.Check() - ' End Using - - ' Return 0 - 'Catch e As Exception - ' Console.WriteLine("Error: {0}", e) - ' Return 1 - 'End Try - - - - 'MsgBox(MDM_server & " - " & MDM_name & " - " & MDM_pwd & " - " & MDM_port) - 'Dim ConnectionInfo As New ConnectionInfo(MDM_server, MDM_port, MDM_name, New PasswordAuthenticationMethod(MDM_name, MDM_pwd)) - 'Using client = New SftpClient(ConnectionInfo) - ' client.Connect() - - ' For Each f In client.ListDirectory(MDM_PFAD_out) - ' ' MsgBox(f.Name) - ' If Not f.Name.StartsWith(".") Then - ' 'Temp. DownloadPfad - ' Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name - - ' 'Datei herunterladen - ' Dim downloadFileStream As Stream = File.OpenWrite(destFilenameTMP) - ' client.DownloadFile(f.FullName, downloadFileStream) - ' If IO.File.Exists(destFilenameTMP) Then client.DeleteFile(f.FullName) 'Datei nach erfolgreichem Herunterladen vom Server löschen - ' downloadFileStream.Dispose() - - ' 'Gültiger Filename - ' Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name - ' IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen - - ' Dim fi As FileInfo = New FileInfo(destFilename) - ' ListBox3.Items.Add(frmStartOptions.cut_file(fi.Name)) 'zur Liste hinzufügen - ' cnt += 1 - ' End If - ' Next - ' client.Disconnect() - 'End Using Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try @@ -234,6 +118,7 @@ Public Class frmMDMNachrichtenVerarbeitung Return cnt End Function + Sub DownloadFtpDirectory(url As String, credentials As NetworkCredential, localPath As String, ByRef cnt As Integer, deleteAfterDownload As Boolean) Dim listRequest As FtpWebRequest = WebRequest.Create(url) listRequest.Method = WebRequestMethods.Ftp.ListDirectoryDetails @@ -259,7 +144,7 @@ Public Class frmMDMNachrichtenVerarbeitung Dim localFilePath As String = Path.Combine(localPath, name) Dim fileUrl As String = url + name - If permissions(0) = "d" Then + If permissions(0) = "d" Then 'Ordner If Not Directory.Exists(localFilePath) Then Directory.CreateDirectory(localFilePath) End If @@ -518,20 +403,27 @@ Public Class frmMDMNachrichtenVerarbeitung End Select End If + If fi.Extension.ToLower = ".pdf" Then + found = False + + If Not IO.Directory.Exists(ZIEL_PFAD & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") + frmStartOptions.moveFile_DateBack(d, ZIEL_PFAD & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") + + End If If True Then - If Not alreadyMoved Then - If found Then - If Not IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") - frmStartOptions.moveFile_DateBack(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") + If Not alreadyMoved Then + If found Then + If Not IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") + frmStartOptions.moveFile_DateBack(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") + End If End If End If + + Me.Refresh() + End If - - Me.Refresh() - - End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 1e520f8..3378fe3 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -30,7 +30,6 @@ Partial Class frmStartOptions Me.Button4 = New System.Windows.Forms.Button() Me.CheckBox5 = New System.Windows.Forms.CheckBox() Me.Button3 = New System.Windows.Forms.Button() - Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.CheckBox4 = New System.Windows.Forms.CheckBox() Me.Label13 = New System.Windows.Forms.Label() Me.CheckBox3 = New System.Windows.Forms.CheckBox() @@ -70,9 +69,8 @@ Partial Class frmStartOptions Me.LinkLabel16 = New System.Windows.Forms.LinkLabel() Me.PictureBox8 = New System.Windows.Forms.PictureBox() Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.Label15 = New System.Windows.Forms.Label() Me.Label14 = New System.Windows.Forms.Label() - Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxOUT_NCTS_TESTORDNER = New System.Windows.Forms.CheckBox() Me.cbxISettEZA_VERAG = New System.Windows.Forms.CheckBox() Me.PictureBox15 = New System.Windows.Forms.PictureBox() @@ -91,10 +89,6 @@ Partial Class frmStartOptions Me.Label7 = New System.Windows.Forms.Label() Me.LinkLabel27 = New System.Windows.Forms.LinkLabel() Me.Label6 = New System.Windows.Forms.Label() - Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.LinkLabel31 = New System.Windows.Forms.LinkLabel() Me.Label12 = New System.Windows.Forms.Label() @@ -108,7 +102,6 @@ Partial Class frmStartOptions Me.cbxKd = New System.Windows.Forms.CheckBox() Me.Button9 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox12 = New System.Windows.Forms.PictureBox() Me.LinkLabel20 = New System.Windows.Forms.LinkLabel() Me.PictureBox11 = New System.Windows.Forms.PictureBox() @@ -124,8 +117,21 @@ Partial Class frmStartOptions Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lblRoutineManager = New System.Windows.Forms.Label() + Me.Button6 = New System.Windows.Forms.Button() + Me.CheckBox6 = New System.Windows.Forms.CheckBox() + Me.Button7 = New System.Windows.Forms.Button() + Me.CheckBox7 = New System.Windows.Forms.CheckBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label15 = New System.Windows.Forms.Label() + Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.pnl.SuspendLayout() Me.tbcntr.SuspendLayout() Me.TabPage1.SuspendLayout() @@ -153,6 +159,12 @@ Partial Class frmStartOptions ' Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.Button6) + Me.pnl.Controls.Add(Me.CheckBox6) + Me.pnl.Controls.Add(Me.Button7) + Me.pnl.Controls.Add(Me.cboSYSKAFirma) + Me.pnl.Controls.Add(Me.CheckBox7) + Me.pnl.Controls.Add(Me.Label16) Me.pnl.Controls.Add(Me.LinkLabel33) Me.pnl.Controls.Add(Me.Button5) Me.pnl.Controls.Add(Me.LinkLabel32) @@ -190,7 +202,7 @@ Partial Class frmStartOptions Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(790, 720) + Me.pnl.Size = New System.Drawing.Size(861, 720) Me.pnl.TabIndex = 0 ' 'LinkLabel33 @@ -232,9 +244,9 @@ Partial Class frmStartOptions Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button4.Location = New System.Drawing.Point(449, 228) + Me.Button4.Location = New System.Drawing.Point(391, 228) Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(149, 24) + Me.Button4.Size = New System.Drawing.Size(136, 24) Me.Button4.TabIndex = 44 Me.Button4.Text = "Stammdaten --> BMD" Me.Button4.UseVisualStyleBackColor = True @@ -245,7 +257,7 @@ Partial Class frmStartOptions Me.CheckBox5.Checked = True Me.CheckBox5.CheckState = System.Windows.Forms.CheckState.Checked Me.CheckBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CheckBox5.Location = New System.Drawing.Point(519, 255) + Me.CheckBox5.Location = New System.Drawing.Point(449, 255) Me.CheckBox5.Name = "CheckBox5" Me.CheckBox5.Size = New System.Drawing.Size(79, 17) Me.CheckBox5.TabIndex = 43 @@ -257,29 +269,18 @@ Partial Class frmStartOptions Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button3.Location = New System.Drawing.Point(302, 228) + Me.Button3.Location = New System.Drawing.Point(268, 228) Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(148, 24) + Me.Button3.Size = New System.Drawing.Size(124, 24) Me.Button3.TabIndex = 40 Me.Button3.Text = "Buchungen --> BMD" Me.Button3.UseVisualStyleBackColor = True ' - 'cboBMDUnispedFirma - ' - Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing - Me.cboBMDUnispedFirma._allowFreiText = False - Me.cboBMDUnispedFirma._value = "" - Me.cboBMDUnispedFirma.FormattingEnabled = True - Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(302, 251) - Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" - Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(148, 21) - Me.cboBMDUnispedFirma.TabIndex = 42 - ' 'CheckBox4 ' Me.CheckBox4.AutoSize = True Me.CheckBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CheckBox4.Location = New System.Drawing.Point(457, 255) + Me.CheckBox4.Location = New System.Drawing.Point(394, 255) Me.CheckBox4.Name = "CheckBox4" Me.CheckBox4.Size = New System.Drawing.Size(56, 17) Me.CheckBox4.TabIndex = 41 @@ -290,7 +291,7 @@ Partial Class frmStartOptions ' Me.Label13.AutoSize = True Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label13.Location = New System.Drawing.Point(299, 212) + Me.Label13.Location = New System.Drawing.Point(265, 212) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(163, 13) Me.Label13.TabIndex = 39 @@ -315,7 +316,7 @@ Partial Class frmStartOptions Me.tbcntr.Location = New System.Drawing.Point(0, 297) Me.tbcntr.Name = "tbcntr" Me.tbcntr.SelectedIndex = 0 - Me.tbcntr.Size = New System.Drawing.Size(788, 421) + Me.tbcntr.Size = New System.Drawing.Size(859, 421) Me.tbcntr.TabIndex = 19 ' 'TabPage1 @@ -356,7 +357,7 @@ Partial Class frmStartOptions Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(780, 395) + Me.TabPage1.Size = New System.Drawing.Size(851, 395) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Zollverfahren" Me.TabPage1.UseVisualStyleBackColor = True @@ -723,10 +724,7 @@ Partial Class frmStartOptions 'TabPage2 ' Me.TabPage2.Controls.Add(Me.Label15) - Me.TabPage2.Controls.Add(Me.txtVRGOut_MRN) Me.TabPage2.Controls.Add(Me.Label14) - Me.TabPage2.Controls.Add(Me.txtVRGOut_FilialenNr) - Me.TabPage2.Controls.Add(Me.txtVRGOut_AbfertigungsNr) Me.TabPage2.Controls.Add(Me.cbxOUT_NCTS_TESTORDNER) Me.TabPage2.Controls.Add(Me.cbxISettEZA_VERAG) Me.TabPage2.Controls.Add(Me.PictureBox15) @@ -745,6 +743,9 @@ Partial Class frmStartOptions Me.TabPage2.Controls.Add(Me.Label7) Me.TabPage2.Controls.Add(Me.LinkLabel27) Me.TabPage2.Controls.Add(Me.Label6) + Me.TabPage2.Controls.Add(Me.txtVRGOut_MRN) + Me.TabPage2.Controls.Add(Me.txtVRGOut_FilialenNr) + Me.TabPage2.Controls.Add(Me.txtVRGOut_AbfertigungsNr) Me.TabPage2.Controls.Add(Me.MyComboBox2) Me.TabPage2.Controls.Add(Me.txtVRGOutEZA_BezugsNr) Me.TabPage2.Controls.Add(Me.MyComboBox1) @@ -752,11 +753,21 @@ Partial Class frmStartOptions Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(780, 395) + Me.TabPage2.Size = New System.Drawing.Size(851, 395) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "VERAG Interface" Me.TabPage2.UseVisualStyleBackColor = True ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label15.Location = New System.Drawing.Point(295, 87) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(59, 13) + Me.Label15.TabIndex = 74 + Me.Label15.Text = "oder MRN:" + ' 'Label14 ' Me.Label14.AutoSize = True @@ -767,50 +778,6 @@ Partial Class frmStartOptions Me.Label14.TabIndex = 72 Me.Label14.Text = "Zuordnung Filiale/Abf.Nr ( opt.):" ' - 'txtVRGOut_FilialenNr - ' - Me.txtVRGOut_FilialenNr._DateTimeOnly = False - Me.txtVRGOut_FilialenNr._numbersOnly = False - Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_FilialenNr._Prozent = False - Me.txtVRGOut_FilialenNr._ShortDateNew = False - Me.txtVRGOut_FilialenNr._ShortDateOnly = False - Me.txtVRGOut_FilialenNr._TimeOnly = False - Me.txtVRGOut_FilialenNr._value = "" - Me.txtVRGOut_FilialenNr._Waehrung = False - Me.txtVRGOut_FilialenNr._WaehrungZeichen = False - Me.txtVRGOut_FilialenNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_FilialenNr.Location = New System.Drawing.Point(398, 176) - Me.txtVRGOut_FilialenNr.MaxLineLength = -1 - Me.txtVRGOut_FilialenNr.MaxLines_Warning = "" - Me.txtVRGOut_FilialenNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_FilialenNr.Multiline = True - Me.txtVRGOut_FilialenNr.Name = "txtVRGOut_FilialenNr" - Me.txtVRGOut_FilialenNr.Size = New System.Drawing.Size(56, 21) - Me.txtVRGOut_FilialenNr.TabIndex = 71 - ' - 'txtVRGOut_AbfertigungsNr - ' - Me.txtVRGOut_AbfertigungsNr._DateTimeOnly = False - Me.txtVRGOut_AbfertigungsNr._numbersOnly = False - Me.txtVRGOut_AbfertigungsNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_AbfertigungsNr._Prozent = False - Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False - Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False - Me.txtVRGOut_AbfertigungsNr._TimeOnly = False - Me.txtVRGOut_AbfertigungsNr._value = "" - Me.txtVRGOut_AbfertigungsNr._Waehrung = False - Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False - Me.txtVRGOut_AbfertigungsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_AbfertigungsNr.Location = New System.Drawing.Point(453, 176) - Me.txtVRGOut_AbfertigungsNr.MaxLineLength = -1 - Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning = "" - Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_AbfertigungsNr.Multiline = True - Me.txtVRGOut_AbfertigungsNr.Name = "txtVRGOut_AbfertigungsNr" - Me.txtVRGOut_AbfertigungsNr.Size = New System.Drawing.Size(137, 21) - Me.txtVRGOut_AbfertigungsNr.TabIndex = 70 - ' 'cbxOUT_NCTS_TESTORDNER ' Me.cbxOUT_NCTS_TESTORDNER.AutoSize = True @@ -1014,71 +981,6 @@ Partial Class frmStartOptions Me.Label6.TabIndex = 0 Me.Label6.Text = "VERAG IN" ' - 'MyComboBox2 - ' - Me.MyComboBox2._allowedValuesFreiText = Nothing - Me.MyComboBox2._allowFreiText = False - Me.MyComboBox2._value = "" - Me.MyComboBox2.FormattingEnabled = True - Me.MyComboBox2.Location = New System.Drawing.Point(298, 252) - Me.MyComboBox2.Name = "MyComboBox2" - Me.MyComboBox2.Size = New System.Drawing.Size(62, 21) - Me.MyComboBox2.TabIndex = 64 - ' - 'txtVRGOutEZA_BezugsNr - ' - Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False - Me.txtVRGOutEZA_BezugsNr._numbersOnly = False - Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = "" - Me.txtVRGOutEZA_BezugsNr._Prozent = False - Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False - Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False - Me.txtVRGOutEZA_BezugsNr._TimeOnly = False - Me.txtVRGOutEZA_BezugsNr._value = "" - Me.txtVRGOutEZA_BezugsNr._Waehrung = False - Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False - Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 252) - Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1 - Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = "" - Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOutEZA_BezugsNr.Multiline = True - Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr" - Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(153, 21) - Me.txtVRGOutEZA_BezugsNr.TabIndex = 65 - ' - 'MyComboBox1 - ' - Me.MyComboBox1._allowedValuesFreiText = Nothing - Me.MyComboBox1._allowFreiText = False - Me.MyComboBox1._value = "" - Me.MyComboBox1.FormattingEnabled = True - Me.MyComboBox1.Location = New System.Drawing.Point(298, 62) - Me.MyComboBox1.Name = "MyComboBox1" - Me.MyComboBox1.Size = New System.Drawing.Size(62, 21) - Me.MyComboBox1.TabIndex = 4 - ' - 'txtVRGOut_BezugsNr - ' - Me.txtVRGOut_BezugsNr._DateTimeOnly = False - Me.txtVRGOut_BezugsNr._numbersOnly = False - Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_BezugsNr._Prozent = False - Me.txtVRGOut_BezugsNr._ShortDateNew = False - Me.txtVRGOut_BezugsNr._ShortDateOnly = False - Me.txtVRGOut_BezugsNr._TimeOnly = False - Me.txtVRGOut_BezugsNr._value = "" - Me.txtVRGOut_BezugsNr._Waehrung = False - Me.txtVRGOut_BezugsNr._WaehrungZeichen = False - Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62) - Me.txtVRGOut_BezugsNr.MaxLineLength = -1 - Me.txtVRGOut_BezugsNr.MaxLines_Warning = "" - Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" - Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20) - Me.txtVRGOut_BezugsNr.TabIndex = 5 - ' 'TabPage3 ' Me.TabPage3.Controls.Add(Me.LinkLabel31) @@ -1088,7 +990,7 @@ Partial Class frmStartOptions Me.TabPage3.Controls.Add(Me.Label11) Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Name = "TabPage3" - Me.TabPage3.Size = New System.Drawing.Size(780, 395) + Me.TabPage3.Size = New System.Drawing.Size(851, 395) Me.TabPage3.TabIndex = 2 Me.TabPage3.Text = "Partner-Systeme" Me.TabPage3.UseVisualStyleBackColor = True @@ -1224,28 +1126,6 @@ Partial Class frmStartOptions Me.Label3.TabIndex = 14 Me.Label3.Text = "Routine Manager IMEX" ' - 'MyTextBox1 - ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = True - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._Prozent = False - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._value = "10000" - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.ForeColor = System.Drawing.Color.Black - Me.MyTextBox1.Location = New System.Drawing.Point(151, 132) - Me.MyTextBox1.MaxLineLength = -1 - Me.MyTextBox1.MaxLines_Warning = "" - Me.MyTextBox1.MaxLines_Warning_Label = Nothing - Me.MyTextBox1.Name = "MyTextBox1" - Me.MyTextBox1.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox1.TabIndex = 11 - Me.MyTextBox1.Text = "10000" - ' 'PictureBox12 ' Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image) @@ -1346,12 +1226,13 @@ Partial Class frmStartOptions ' 'btn ' + Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btn.BackColor = System.Drawing.Color.Red Me.btn.FlatAppearance.BorderColor = System.Drawing.Color.Gray Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btn.ForeColor = System.Drawing.Color.White - Me.btn.Location = New System.Drawing.Point(714, -1) + Me.btn.Location = New System.Drawing.Point(785, -1) Me.btn.Margin = New System.Windows.Forms.Padding(0) Me.btn.Name = "btn" Me.btn.Size = New System.Drawing.Size(75, 22) @@ -1413,6 +1294,86 @@ Partial Class frmStartOptions Me.lblRoutineManager.TabIndex = 1 Me.lblRoutineManager.Text = "Routine Manager" ' + 'Button6 + ' + Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button6.Location = New System.Drawing.Point(687, 228) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(136, 24) + Me.Button6.TabIndex = 53 + Me.Button6.Text = "Stammdaten --> Syska" + Me.Button6.UseVisualStyleBackColor = True + ' + 'CheckBox6 + ' + Me.CheckBox6.AutoSize = True + Me.CheckBox6.Checked = True + Me.CheckBox6.CheckState = System.Windows.Forms.CheckState.Checked + Me.CheckBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CheckBox6.Location = New System.Drawing.Point(745, 255) + Me.CheckBox6.Name = "CheckBox6" + Me.CheckBox6.Size = New System.Drawing.Size(79, 17) + Me.CheckBox6.TabIndex = 52 + Me.CheckBox6.Text = "Testsystem" + Me.CheckBox6.UseVisualStyleBackColor = True + ' + 'Button7 + ' + Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button7.Location = New System.Drawing.Point(559, 228) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(129, 24) + Me.Button7.TabIndex = 49 + Me.Button7.Text = "Buchungen --> Syska" + Me.Button7.UseVisualStyleBackColor = True + ' + 'CheckBox7 + ' + Me.CheckBox7.AutoSize = True + Me.CheckBox7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CheckBox7.Location = New System.Drawing.Point(690, 255) + Me.CheckBox7.Name = "CheckBox7" + Me.CheckBox7.Size = New System.Drawing.Size(56, 17) + Me.CheckBox7.TabIndex = 50 + Me.CheckBox7.Text = "öffnen" + Me.CheckBox7.UseVisualStyleBackColor = True + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label16.Location = New System.Drawing.Point(556, 212) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(150, 13) + Me.Label16.TabIndex = 48 + Me.Label16.Text = "Routine Manager VERAG" + ' + 'cboSYSKAFirma + ' + Me.cboSYSKAFirma._allowedValuesFreiText = Nothing + Me.cboSYSKAFirma._allowFreiText = False + Me.cboSYSKAFirma._value = "" + Me.cboSYSKAFirma.FormattingEnabled = True + Me.cboSYSKAFirma.Location = New System.Drawing.Point(559, 251) + Me.cboSYSKAFirma.Name = "cboSYSKAFirma" + Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21) + Me.cboSYSKAFirma.TabIndex = 51 + ' + 'cboBMDUnispedFirma + ' + Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing + Me.cboBMDUnispedFirma._allowFreiText = False + Me.cboBMDUnispedFirma._value = "" + Me.cboBMDUnispedFirma.FormattingEnabled = True + Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 251) + Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" + Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) + Me.cboBMDUnispedFirma.TabIndex = 42 + ' 'txtVRGOut_MRN ' Me.txtVRGOut_MRN._DateTimeOnly = False @@ -1434,22 +1395,143 @@ Partial Class frmStartOptions Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20) Me.txtVRGOut_MRN.TabIndex = 73 ' - 'Label15 + 'txtVRGOut_FilialenNr ' - Me.Label15.AutoSize = True - Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label15.Location = New System.Drawing.Point(295, 87) - Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(59, 13) - Me.Label15.TabIndex = 74 - Me.Label15.Text = "oder MRN:" + Me.txtVRGOut_FilialenNr._DateTimeOnly = False + Me.txtVRGOut_FilialenNr._numbersOnly = False + Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_FilialenNr._Prozent = False + Me.txtVRGOut_FilialenNr._ShortDateNew = False + Me.txtVRGOut_FilialenNr._ShortDateOnly = False + Me.txtVRGOut_FilialenNr._TimeOnly = False + Me.txtVRGOut_FilialenNr._value = "" + Me.txtVRGOut_FilialenNr._Waehrung = False + Me.txtVRGOut_FilialenNr._WaehrungZeichen = False + Me.txtVRGOut_FilialenNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_FilialenNr.Location = New System.Drawing.Point(398, 176) + Me.txtVRGOut_FilialenNr.MaxLineLength = -1 + Me.txtVRGOut_FilialenNr.MaxLines_Warning = "" + Me.txtVRGOut_FilialenNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_FilialenNr.Multiline = True + Me.txtVRGOut_FilialenNr.Name = "txtVRGOut_FilialenNr" + Me.txtVRGOut_FilialenNr.Size = New System.Drawing.Size(56, 21) + Me.txtVRGOut_FilialenNr.TabIndex = 71 + ' + 'txtVRGOut_AbfertigungsNr + ' + Me.txtVRGOut_AbfertigungsNr._DateTimeOnly = False + Me.txtVRGOut_AbfertigungsNr._numbersOnly = False + Me.txtVRGOut_AbfertigungsNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_AbfertigungsNr._Prozent = False + Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False + Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False + Me.txtVRGOut_AbfertigungsNr._TimeOnly = False + Me.txtVRGOut_AbfertigungsNr._value = "" + Me.txtVRGOut_AbfertigungsNr._Waehrung = False + Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False + Me.txtVRGOut_AbfertigungsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_AbfertigungsNr.Location = New System.Drawing.Point(453, 176) + Me.txtVRGOut_AbfertigungsNr.MaxLineLength = -1 + Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning = "" + Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_AbfertigungsNr.Multiline = True + Me.txtVRGOut_AbfertigungsNr.Name = "txtVRGOut_AbfertigungsNr" + Me.txtVRGOut_AbfertigungsNr.Size = New System.Drawing.Size(137, 21) + Me.txtVRGOut_AbfertigungsNr.TabIndex = 70 + ' + 'MyComboBox2 + ' + Me.MyComboBox2._allowedValuesFreiText = Nothing + Me.MyComboBox2._allowFreiText = False + Me.MyComboBox2._value = "" + Me.MyComboBox2.FormattingEnabled = True + Me.MyComboBox2.Location = New System.Drawing.Point(298, 252) + Me.MyComboBox2.Name = "MyComboBox2" + Me.MyComboBox2.Size = New System.Drawing.Size(62, 21) + Me.MyComboBox2.TabIndex = 64 + ' + 'txtVRGOutEZA_BezugsNr + ' + Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False + Me.txtVRGOutEZA_BezugsNr._numbersOnly = False + Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = "" + Me.txtVRGOutEZA_BezugsNr._Prozent = False + Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False + Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False + Me.txtVRGOutEZA_BezugsNr._TimeOnly = False + Me.txtVRGOutEZA_BezugsNr._value = "" + Me.txtVRGOutEZA_BezugsNr._Waehrung = False + Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False + Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 252) + Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1 + Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = "" + Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOutEZA_BezugsNr.Multiline = True + Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr" + Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(153, 21) + Me.txtVRGOutEZA_BezugsNr.TabIndex = 65 + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(298, 62) + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(62, 21) + Me.MyComboBox1.TabIndex = 4 + ' + 'txtVRGOut_BezugsNr + ' + Me.txtVRGOut_BezugsNr._DateTimeOnly = False + Me.txtVRGOut_BezugsNr._numbersOnly = False + Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_BezugsNr._Prozent = False + Me.txtVRGOut_BezugsNr._ShortDateNew = False + Me.txtVRGOut_BezugsNr._ShortDateOnly = False + Me.txtVRGOut_BezugsNr._TimeOnly = False + Me.txtVRGOut_BezugsNr._value = "" + Me.txtVRGOut_BezugsNr._Waehrung = False + Me.txtVRGOut_BezugsNr._WaehrungZeichen = False + Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62) + Me.txtVRGOut_BezugsNr.MaxLineLength = -1 + Me.txtVRGOut_BezugsNr.MaxLines_Warning = "" + Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" + Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20) + Me.txtVRGOut_BezugsNr.TabIndex = 5 + ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = True + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._value = "10000" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(151, 132) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox1.TabIndex = 11 + Me.MyTextBox1.Text = "10000" ' 'frmStartOptions ' 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(790, 720) + Me.ClientSize = New System.Drawing.Size(861, 720) Me.Controls.Add(Me.pnl) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) @@ -1588,4 +1670,10 @@ Partial Class frmStartOptions Friend WithEvents txtVRGOut_AbfertigungsNr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label15 As Label Friend WithEvents txtVRGOut_MRN As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Button6 As Button + Friend WithEvents CheckBox6 As CheckBox + Friend WithEvents Button7 As Button + Friend WithEvents cboSYSKAFirma As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents CheckBox7 As CheckBox + Friend WithEvents Label16 As Label End Class diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx index b0ba11d..4fe3046 100644 --- a/initATLASAufschubkonten/frmStartOptions.resx +++ b/initATLASAufschubkonten/frmStartOptions.resx @@ -118,150 +118,6 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj @@ -500,6 +356,150 @@ WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 9c8acb5..062ce5b 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -58,6 +58,15 @@ Public Class frmStartOptions cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Zollservice (AT)", "23")) cboBMDUnispedFirma.changeItem("") + cboSYSKAFirma.Items.Clear() + cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "1")) + cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH", "11")) + cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Spedition GmbH", "7")) + cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Front-Office Suben eG", "17")) + cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG 360 GmbH", "19")) + cboSYSKAFirma.changeItem("") + Dim PARAM = "" Dim parameter() As String = Environment.GetCommandLineArgs().ToArray If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 de r Pfad zum programm ist @@ -114,7 +123,7 @@ Public Class frmStartOptions VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" UPDATE_SMS() - + closeMe() Case "DY_EINARBEITUNG_UNISPED" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" @@ -123,7 +132,6 @@ Public Class frmStartOptions f.Show() AddHandler f.FormClosed, AddressOf closeMe - Case "MDM_EINARBEITUNG" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim f As New frmMDMNachrichtenVerarbeitung(True) @@ -226,7 +234,7 @@ Public Class frmStartOptions Dim sql As New VERAG_PROG_ALLGEMEIN.SQL Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,LRN,CRN FROM [zzAktivitaet] INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID - where MsgTyp IN ('EZ922','EZ923','TR109') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", "EZOLL") + where MsgTyp IN ('EZ922','EZ923','TR109') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", "EZOLL", 20) If dt IsNot Nothing Then For Each row In dt.Rows Dim cDHF_Anhaenge As New VERAG_PROG_ALLGEMEIN.cDHF_Anhaenge(row("AnmID"), row("MsgTyp")) @@ -1865,11 +1873,11 @@ Public Class frmStartOptions Function UPDATE_SMS() As Boolean Try Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblSMS where sms_Status not IN(3,4) and sms_MessageIds is not null and sms_MessageIds not like 'https://api.esendex.com/%'", "FMZOLL") + Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblSMS where sms_Status not IN(3,4) and sms_MessageIds is not null and sms_MessageIds not like 'https://api.esendex.com/%' AND sms_Datum>DATEADD(DAY,-2, GETDATE())", "FMZOLL") If dt IsNot Nothing Then For Each r In dt.Rows Dim cSMS As New VERAG_PROG_ALLGEMEIN.cSMS(r("sms_id")) - cSMS.checkSMSStatus() + cSMS.checkSMSStatus(True) Next End If Return True @@ -1879,5 +1887,21 @@ Public Class frmStartOptions End Try End Function + Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox6.Checked 'False + If cboSYSKAFirma._value = "" Then + VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_ALL(CheckBox7.Checked, False) + Else + VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(cboSYSKAFirma._value, CheckBox7.Checked) + End If + End Sub + Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox6.Checked 'False + If cboSYSKAFirma._value = "" Then + VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_ALL(CheckBox7.Checked,, False) + Else + VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Stammdaten(cboSYSKAFirma._value, CheckBox7.Checked) + End If + End Sub End Class \ No newline at end of file diff --git a/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb index 56fa897..067231c 100644 --- a/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb @@ -933,7 +933,7 @@ Public Class frmTCNachrichtenVerarbeitung Dim cn As New System.Data.SqlClient.SqlConnection() - cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;" + cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" cn.Open() Using cn Using cmd As New System.Data.SqlClient.SqlCommand(sql, cn)