diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj index f40197e..10db894 100644 --- a/Aviso/Aviso.vbproj +++ b/Aviso/Aviso.vbproj @@ -569,6 +569,7 @@ Component + @@ -738,6 +739,12 @@ Form + + frmHauptfensterNew.vb + + + Form + frmNCTSRouten.vb @@ -1335,6 +1342,9 @@ frmGesamtsicherheitenNEU.vb + + frmHauptfensterNew.vb + frmNCTSRouten.vb diff --git a/Aviso/AvisoStatusFunctions.vb b/Aviso/AvisoStatusFunctions.vb new file mode 100644 index 0000000..5de29a2 --- /dev/null +++ b/Aviso/AvisoStatusFunctions.vb @@ -0,0 +1,2520 @@ + +Imports System.IO +Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO +Imports VERAG_PROG_ALLGEMEIN.cGlobal +Imports com.esendex.sdk.messaging +Imports Newtonsoft.Json +Imports System.Reflection +Imports System.Drawing.Drawing2D +Imports SDL +Imports Microsoft.Office.Interop +Imports Spire.Pdf.Texts +Imports System.Net +Imports System.Text +Imports System.IO.Pipes +Imports System.Security.AccessControl + +Public Class AvisoStatusFunctions + Dim Standorte As New cStandorteDAL + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim AvisoDAL As New cAvisoDAL + Dim VermerkeDAL As New cVermerkeDAL + + Public Function getAnkunftDateNow() As Date + Try + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB") Then + If Now.DayOfWeek = DayOfWeek.Sunday Then + Return CDate(Now.AddDays(1).ToShortDateString & " 06:00:00") + End If + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG",,,,, "ERR_HFST_SETDATE") + End Try + Return Now + End Function + + + Public Shared Sub ummeldenAVISO(Aviso As VERAG_PROG_ALLGEMEIN.cAviso, Grenzstelle As String) + If Aviso IsNot Nothing Then + Select Case Aviso.Status + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft + 'Nur wenn Ankunft --> Status auf den letzten vor Ankunft ändern + If Aviso.Vorgeschrieben <> cMeineFunktionenAVISO.LeerDatum Then + Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben + ElseIf Aviso.Vorbereitet <> cMeineFunktionenAVISO.LeerDatum Then + Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet + Else + Aviso.Status = Status_Erfasst + End If + End Select + End If + If Grenzstelle = "???" Then + AvisoStatusFunctions.insertVermerkAllg(Aviso.AvisoID, "LKW nach umgemeldet", 94) + Else + AvisoStatusFunctions.insertVermerkAllg(Aviso.AvisoID, "LKW nach '" & Grenzstelle & "' umgemeldet", 94) + End If + + Aviso.Grenzstelle = Grenzstelle + Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL + AvisoDAL.SpeichernAviso(Aviso) + End Sub + + Public Sub sendAnkunftBenachrichtigung(AvisoId) + 'VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, -1, 3, "T", TeamID, "*ANKUNFT*", 0, "", "AUTO: LKW Ankunft - nicht vorgeschrieben!") + + Dim alreadySent As New List(Of Integer) + Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId).Rows + SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID"))) + Next + For Each s In SENDUNG_LIST + 'Keine Fremdspedition / Handling + nicht vorgeschrieben + If Not s.tblSnd_Fremdspedition And s.tblSnd_Abfertigungsart_ID <> "23" And s.tblSnd_Vorgeschrieben = Nothing Then + 'Avisierer vorhanden + Dim TeamId = "" + 'Zugeordnetes Team anhand von Avisierer... + If s.tblSnd_AvisiererKdNr IsNot Nothing AndAlso s.tblSnd_AvisiererKdNr > 0 Then + TeamId = SQL.getValueTxtBySql("SELECT TOP 1 kde_TeamId FROM [tblKundenErweitert] where kde_KundenNr ='" & s.tblSnd_AvisiererKdNr & "'", "FMZOLL") + End If + '...wenn nicht --> Team aus Sendung + 'If TeamId = "" And If(s.tblSnd_TeamId, "") <> "" Then TeamId = s.tblSnd_TeamId 'derzeit nicht.. + + If TeamId <> "" Then + Dim sent = False + For Each i In alreadySent + If i = TeamId Then sent = True + Next + If Not sent Then + VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, -1, 3, "T", TeamId, "*ANKUNFT*", 0, "", "AUTO: LKW Ankunft - nicht vorgeschrieben!") + alreadySent.Add(TeamId) + End If + End If + End If + Next + End Sub + + Public Function printQR_CODE(aviso As VERAG_PROG_ALLGEMEIN.cAviso) As Boolean + If aviso Is Nothing Then Return False + + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then + Select Case aviso.Grenzstelle + Case "NEU", "DTB", "NKN" + Dim rpt As New rptQRSendung_VerwahrungApp(aviso, Nothing) + Dim printer = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON + If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("BON", True) + If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True) + + 'If printer = "" Then + SDL.cProgramFunctions.printRpt(rpt, printer, True) + Return True + ' End If + End Select + + End If + Return False + End Function + Public Function setAnkunft(AvisoID) As Boolean + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then + MsgBox("Keine Berechtigung!") + Return False + End If + 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen + If AvisoID <= 0 Then + MsgBox("Kein Aviso ausgewählt!") + Return False + End If + + 'jetzt ausgewählten Datensatz einlesen + Dim Aviso As New cAviso + Aviso = AvisoDAL.LesenAviso(AvisoID, "") + If Aviso Is Nothing Then Return False + If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False + + + Dim msg As String + Dim antwort As MsgBoxResult + + ' Taste ANKUNFT + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then + MsgBox("Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt.", vbInformation) + Return False + End If + + 'Wenn Aviserer einem Team zugeordnet, aber noch nicht "vorgeschrieben", dann bekommt das Team eine Nachricht! + ' If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then + 'Sendungsbasis + ' End If + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then + msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf & + "Soll es jetzt trotzdem auf ANKUNFT (zurück)gesetzt werden?" + antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), "Status-Änderung") + If antwort = vbNo Then Return False + End If + Dim Rücksetzen As Boolean = False + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then + msg = "Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt." & vbCrLf & vbCrLf & + "Soll der Status wieder auf ANKUNFT geändert werden?" + antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), "Status-Änderung") + If antwort = vbNo Then Return False + 'Status ist offen - jetzt auf Ankunft setzen + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then + Aviso.Vorbereitet = LeerDatum + Aviso.Vorgeschrieben = LeerDatum + End If + Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft + Aviso.Freigabe = LeerDatum + Aviso.Dauer = 0 + Rücksetzen = True + Else + Aviso.Ankunft = getAnkunftDateNow() + End If + + 'E-Mail + If Aviso.FIRMA <> "ATILLA" Then + sendAnkunftBenachrichtigung(Aviso.AvisoID) + End If + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then + Rücksetzen = True + End If + + + 'Fahrer Handy-Nr. + Dim frmAnkunftSetzen As New frmAnkunftSetzen(Aviso) + If frmAnkunftSetzen.ShowDialog() = DialogResult.Cancel Then + Return False 'Abbrechen + End If + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then + ' If Aviso.Grenzstelle.Replace("???", "") <> "" Then + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + ' End If + 'End If + ' If Aviso.Grenzstelle.Replace("???", "") <> "" Then + If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then + If Aviso.Grenzstelle <> VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG Then + Dim f As New frmAnkunftAendern(Aviso) + If f.ShowDialog() Then + Aviso.Grenzstelle = f.AVISO.Grenzstelle + End If + End If + End If + ' End If + + Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft + Aviso.Änderungen = "auf ANKUNFT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + + + + Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) + AvisoDAL.addAenderung(tmpid, "auf ANKUNFT gesetzt", "auf ANKUNFT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + + If Not Rücksetzen Then + 'nach dem erfolgreichem Speichern wird jetzt noch ein automatisches Mail für den Frächter und Auftraggeber erstellt + 'Mail-Adressen aus Firmentabelle holen + SendAnkunftEmail(Aviso) + End If + + + 'Verwahrungs-Ticket Drucken, wenn parameter + printQR_CODE(Aviso) + 'Ticket Drucken, wenn parameter + If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("TICKET_ANKUNFT") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("TICKET_ANKUNFT", "AVISO") Then + Dim rpt As New rptQRAviso(Aviso) + Dim printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True) + If printer <> "" Then + SDL.cProgramFunctions.printRpt(rpt, printer, True) + Else + SDL.cProgramFunctions.showRpt(rpt, "AVISO", False) + End If + + End If + + + + 'Wenn Atilla, dann Eintrag anzeigen, um zu korrigieren und Aktendeckel auszudrucken + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then 'And VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Then + Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() + Dim f As New frmEintragAviso + f.AktenzetteldruckenVisible = True + f.ShowDialog(frmGrayOut) + frmGrayOut.Close() + End If + + Return (tmpid > 0) + End Function + + + Shared Sub SendAnkunftEmail(AVISO As cAviso, Optional ForceMail As String = "") + Dim AvisoDAL As New cAvisoDAL + Dim art = 1 + If AVISO.ImEx = "EXPORT" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then art = 3 + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Case "ATILLA" + 'Case "VERAG", "IMEX" + Case Else + + Dim EMails As String = "" + Dim EMails_CC As String = "" + Dim EMails_BCC As String = "" + + Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList + + + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Auftraggeber_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Auftraggeber_KdNr, ForceMail, "AVISIERER") + 'Frächter und Avisierer werden getrennt voneinander eingelesen, damit es kein Problem mit gesendeten VBD/Steuerbescheiden gibt! + If AVISO.Frächter_KdNr <> AVISO.Auftraggeber_KdNr Then + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Frächter_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Frächter_KdNr, ForceMail, "FRÄCHTER") + End If + + Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AVISO.AvisoID).Rows + SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID"))) + Next + For Each s In SENDUNG_LIST + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_EmpfaengerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_EmpfaengerKdNr, ForceMail, "EMPFÄNGER") + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AuftraggeberKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AuftraggeberKdNr, ForceMail, "AUFTRAGGEBER") + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_FrachtfuehrerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_FrachtfuehrerKdNr, ForceMail, "FRÄCHTER") + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AvisiererKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AvisiererKdNr, ForceMail, "AVISIERER") + + Next + + End Select + + End Sub + + 'freigabe + Shared Sub SendFreigabeEmail(AVISO As cAviso, Optional ForceMail As String = "") + Dim AvisoDAL As New cAvisoDAL + Dim art = 2 + If AVISO.ImEx = "EXPORT" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then art = 4 + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + ' Case "ATILLA" + 'Case "VERAG", "IMEX" + Case Else + + 'Mail-Adressen aus Firmentabelle holen + Dim EMails As String = "" + Dim EMails_CC As String = "" + Dim EMails_BCC As String = "" + + + Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList + + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Auftraggeber_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Auftraggeber_KdNr, ForceMail) + + 'Frächter und Avisierer werden getrennt voneinander eingelesen, damit es kein Problem mit gesendeten VBD/Steuerbescheiden gibt! + If AVISO.Frächter_KdNr <> AVISO.Auftraggeber_KdNr Then + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Frächter_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Frächter_KdNr, ForceMail) + End If + + + Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AVISO.AvisoID).Rows + SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID"))) + Next + For Each s In SENDUNG_LIST + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_EmpfaengerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_EmpfaengerKdNr, ForceMail) + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AuftraggeberKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AuftraggeberKdNr, ForceMail) + + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_FrachtfuehrerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_FrachtfuehrerKdNr, ForceMail) + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AvisiererKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AvisiererKdNr, ForceMail) + Next + + End Select + + End Sub + + Shared Sub SendStatusEmail(AVISO As cAviso, Optional ForceMail As String = "") + Dim AvisoDAL As New cAvisoDAL + Dim art = 5 + ' If AVISO.ImEx = "EXPORT" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then art = 4 + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + Case "ATILLA" + 'NED! + + 'Case "VERAG", "IMEX" + Case "VERAG", "IMEX" + + 'Mail-Adressen aus Firmentabelle holen + Dim EMails As String = "" + Dim EMails_CC As String = "" + Dim EMails_BCC As String = "" + + + Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList + + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Auftraggeber_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Auftraggeber_KdNr, ForceMail) + 'Frächter und Avisierer werden getrennt voneinander eingelesen, damit es kein Problem mit gesendeten VBD/Steuerbescheiden gibt! + If AVISO.Frächter_KdNr <> AVISO.Auftraggeber_KdNr Then + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Frächter_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Frächter_KdNr, ForceMail) + End If + + Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AVISO.AvisoID).Rows + SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID"))) + Next + For Each s In SENDUNG_LIST + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_EmpfaengerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_EmpfaengerKdNr, ForceMail) + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AuftraggeberKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AuftraggeberKdNr, ForceMail) + + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_FrachtfuehrerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_FrachtfuehrerKdNr, ForceMail) + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AvisiererKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AvisiererKdNr, ForceMail) + Next + + End Select + + End Sub + + Shared Sub SendStatusEmailByKdNr(AVISO As cAviso, KdNr As Integer) + Dim AvisoDAL As New cAvisoDAL + Dim art = 5 + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + Case "ATILLA" + 'NED! + Case "VERAG", "IMEX" + + 'Mail-Adressen aus Firmentabelle holen + Dim EMails As String = "" + Dim EMails_CC As String = "" + Dim EMails_BCC As String = "" + + Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList + + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + If Emails_list_sent.LIST.Count > 0 Then + Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, KdNr, "") + ' VERAG_PROG_ALLGEMEIN.cAvisoStatusMails.INSERT_INTO(AVISO.AvisoID, KdNr, art) + End If + + End Select + + End Sub + + + + Shared Sub Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, KundenNr, Optional ForceMail = "", Optional artKunde = "") + 'art = 1 : Ankunft + 'art = 2 : Freigabe + 'art = 3 : Ankunft Export + 'art = 4 : Freigabe Export + 'art = 5 : Status + If KundenNr Is Nothing OrElse Not IsNumeric(KundenNr) Then Exit Sub + If KundenNr <= 0 Then Exit Sub + + If art = 2 Then ' Freigabe + Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr) + Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KundenNr) + If KUNDE.EmailFreigabe And KUNDE_ERW.EmailFreigabe_Art = "BLG" Then + Exit Sub ' Keine Freigabe-Mail, wenn "BELEG" bei Freigabe gewählt wurde --> Der STB wird indem Fall pro Beleg geschickt. + End If + End If + If art = 4 Then ' Freigabe Export + 'Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr) + Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KundenNr) + If KUNDE_ERW.EmailFreigabe_Export And KUNDE_ERW.EmailFreigabe_Export_Art = "BLG" Then + Exit Sub ' Keine Freigabe-Mail, wenn "BELEG" bei Freigabe gewählt wurde --> Der STB wird indem Fall pro Beleg geschickt. + End If + End If + + Dim Standorte As New cStandorteDAL + 'nur Mail erstellen, falls mindestens ein Empfänger vorhanden + + If EMails <> "" Or EMails_CC <> "" Or EMails_BCC <> "" Then + + Dim hBetreff As String = If(art = 1 Or art = 3, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Betreff, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Betreff) + Dim hBody As String = If(art = 1 Or art = 3, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Text, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Text) + + Select Case art 'DEFAULT!! + Case 1, 3 + hBetreff = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Betreff + hBody = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Text + Case 2, 4 + hBetreff = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Betreff + hBody = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Text + Case 5 + hBetreff = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Status_Betreff + hBody = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Status_Text + End Select + + 'jetzt nachsehen, ob indiv. eMail-Text für Standort vorhanden + + Dim GrenzstelleMail = AVISO.Grenzstelle.replace("?", "") + GrenzstelleMail = GrenzstelleMail.replace("WO_GE", "") 'KEINE MAIL + GrenzstelleMail = GrenzstelleMail.replace("WO_KITA", "") 'KEINE MAIL + + + + 'Prüfen ob WO oder ZA, in dem Fall keine Mail senden + Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(GrenzstelleMail) + If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then + + If Not GRZ.grz_AvisoStatusVorOrt Then + GrenzstelleMail = "" 'KEINE MAIL + End If + + 'If GRZ.grz_Zollamt Then GrenzstelleMail = "" 'KEINE MAIL + 'If GRZ.grz_Warenort Then GrenzstelleMail = "" 'KEINE MAIL + End If + + + + If GrenzstelleMail = "" And art <> 5 Then + '---------------------------------------- + Exit Sub ' Wenn Grenzstelle leer / ??? --> Keine MAIL! + 'If GrenzstelleMail = "" Then GrenzstelleMail = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + End If + + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then GrenzstelleMail = "FO" + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then GrenzstelleMail = "UNI" + + If GrenzstelleMail <> "" Then + Dim Standort As New cStandort + + Standort = Standorte.LesenStandort(0, GrenzstelleMail, "") + + If Not IsNothing(Standort) Then + Select Case art + Case 1, 3 + If Standort.eMail_Ankunft_Betreff <> "" Then + hBetreff = Standort.eMail_Ankunft_Betreff + hBody = Standort.eMail_Ankunft_Text + End If + Case 2, 4 + If Standort.eMail_Freigabe_Betreff <> "" Then + hBetreff = Standort.eMail_Freigabe_Betreff + hBody = Standort.eMail_Freigabe_Text + End If + Case 5 + If Standort.eMail_Status_Betreff <> "" Then + hBetreff = Standort.eMail_Status_Betreff + hBody = Standort.eMail_Status_Text + End If + End Select + End If + + End If + + Dim anhaenge As New List(Of String) + hBetreff = Platzhalter_ersetzen(hBetreff, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, 0, AVISO, KundenNr, anhaenge, artKunde) ' art 0 damit nicht beim betreff auch die DY-Daten durchsuht werden und die Sendungsliste erstellt wird. + hBody = Platzhalter_ersetzen(hBody, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, art, AVISO, KundenNr, anhaenge, artKunde) + + + hBody = hBody.Replace("%0", "
") + + hBody = hBody.Replace("%Firma", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) ' gibts noch nicht! + + 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA '= "IMEX" + ' Case "VERAG" + ' Case "UNISPED" + ' hBody = hBody.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) 'hier der Ersatz + 'End Select + + Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_STATUSMAIL, art,,, KundenNr, AVISO.AvisoId) + + API.api_EMail = EMails + API.api_EMailCC = EMails_CC + API.api_EMailBCC = EMails_BCC + API.api_EMailSubject = hBetreff + API.api_EMailText = hBody + API.api_EMailAttCnt = anhaenge.Count + + + If ForceMail <> "" Then + Dim mailsTXT = "" + mailsTXT &= "TO: " & EMails & "
" + mailsTXT &= "CC: " & EMails_CC & "
" + mailsTXT &= "BCC: " & EMails_BCC & "

" + + + If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(ForceMail, hBetreff, mailsTXT & hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, "", "", anhaenge, art) Then + API.UPDTAE_OK() + Else + API.UPDTAE_ERR() + End If + + Else + + + EMails_BCC &= If(EMails_BCC <> "", ";", "") & VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getBCCEmail() 'Damit Mails gespeichert werden. + + Dim MailArt = "" + Select Case art + Case 1, 3 : MailArt = "Ankunft" + Case 2, 4 : MailArt = "Freigabe" + Case 5 : MailArt = "Status" + End Select + If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, hBetreff, hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, EMails_CC, EMails_BCC, anhaenge, art) Then + API.UPDTAE_OK() + Dim txt = " E-Mail gesendet an: " & EMails + If EMails_CC.ToString.Trim <> "" Then txt &= " CC: " & EMails_CC + If EMails_BCC.ToString.Trim <> "" Then txt &= " BCC: " & EMails_BCC + + AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, MailArt & txt, 46, , "(AUTO)") + + Else + API.UPDTAE_ERR() + AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, "ERR: " & MailArt & " E-Mail konnte nicht gesendet werden!", 46, , "(AUTO)") + End If + End If + + 'OLD ---------------------------------- + If False Then + Dim hMail As String = "mailto:" & EMails & "?subject=" & hBetreff + If EMails_CC.ToString.Trim <> "" Then hMail += "&CC=" & EMails_CC + If EMails_BCC.ToString.Trim <> "" Then hMail += "&BCC=" & EMails_BCC + If hBody <> "" Then hMail += "&Body=" & hBody + Try + System.Diagnostics.Process.Start(hMail) + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW, "Beim Mail-Versenden ist ein Fehler aufgetreten") + End Try + End If + ' ---------------------------------- + End If + End Sub + + + + Public Function setVorbereitet(AvisoID) As Boolean + 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then + ' MsgBox("Keine Berechtigung!") + ' Return False + 'End If + + 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen + If AvisoID <= 0 Then + MsgBox("Kein Aviso ausgewählt!") + Return False + End If + + 'jetzt ausgewählten Datensatz einlesen + Dim Aviso As New cAviso + Aviso = AvisoDAL.LesenAviso(AvisoID, "") + If Aviso Is Nothing Then Return False + If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False + + Dim msg As String + Dim antwort As MsgBoxResult + + ' Taste VORBEREITET + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then + MsgBox("Dieses LKW-Aviso ist bereits auf VORBEREITET gesetzt.", vbInformation) + Return False + End If + + + + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then + msg = "Dieses LKW-Aviso hat bereits den Status 'Vorgeschrieben'." & vbCrLf & vbCrLf & + "Soll es jetzt trotzdem auf VORBEREITET (zurück)gesetzt werden?" + antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), + "Status-Änderung") + If antwort = vbNo Then Return False + 'SQL.doSQL("UPDATE tblSendungen SET tblSnd_Vorgeschrieben=null WHERE tblSnd_Vorgeschrieben is not null AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO") + + End If + + + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then + msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf & + "Soll es jetzt trotzdem auf VORBEREITET (zurück)gesetzt werden?" + antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), + "Status-Änderung") + If antwort = vbNo Then Return False + End If + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then + msg = "Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt." & vbCrLf & vbCrLf & + "Soll der Status wieder auf VORBEREITET geändert werden?" + antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), + "Status-Änderung") + If antwort = vbNo Then Return False + Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet + Aviso.Freigabe = LeerDatum + Aviso.Ankunft = LeerDatum + Aviso.Vorgeschrieben = LeerDatum + Aviso.Vorbereitet = Now + Aviso.Dauer = 0 + Else + Aviso.Vorbereitet = Now + ' Aviso.Grenzstelle = cGlobal.AktiverMitarbeiter.Grenzstelle + End If + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then + msg = "Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt." & vbCrLf & vbCrLf & + "Soll der Status wieder auf VORBEREITET geändert werden?" + antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), + "Status-Änderung") + If antwort = vbNo Then Return False + Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet + Aviso.Freigabe = LeerDatum + Aviso.Ankunft = LeerDatum + Aviso.Vorgeschrieben = LeerDatum + Aviso.Vorbereitet = Now + Aviso.Dauer = 0 + Else + Aviso.Vorbereitet = Now + ' Aviso.Grenzstelle = cGlobal.AktiverMitarbeiter.Grenzstelle + End If + + 'Status ist offen - jetzt auf VORBEREITET setzen + Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet + Aviso.Änderungen = "auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + + Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + + Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) + AvisoDAL.addAenderung(tmpid, "auf VORBEREITET gesetzt", "auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + + ' SQL.doSQL("UPDATE tblSendungen SET tblSnd_Vorbereitet=getDate() WHERE tblSnd_Vorbereitet IS NULL AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO") + + If False Then + + Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, Aviso.AvisoID) + + For Each s In SENDUNG_LIST + If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER OrElse VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(s.FilialenNr, False) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then + If s.tblSnd_Vorbereitet Is Nothing Then + s.tblSnd_Vorbereitet = Now + End If + + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "" Then + 'Else + ' If s.tblSnd_VG_MA Is Nothing Then + ' s.tblSnd_VG_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + ' s.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + ' s.LetzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + ' End If + 'End If + s.SAVE() + End If + Next + End If + + + + Return (tmpid > 0) + End Function + + Public Function setAnINDONESIEN(AvisoID) As Boolean + 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then + ' MsgBox("Keine Berechtigung!") + ' Return False + 'End If + + 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen + If AvisoID <= 0 Then + MsgBox("Kein Aviso ausgewählt!") + Return False + End If + + 'jetzt ausgewählten Datensatz einlesen + Dim Aviso As New cAviso + Aviso = AvisoDAL.LesenAviso(AvisoID, "") + If Aviso Is Nothing Then Return False + If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False + + Dim msg As String + Dim antwort As MsgBoxResult + + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then + MsgBox("Dieses LKW-Aviso ist bereits auf 'AN INDONESIEN' gesetzt.", vbInformation) + Return False + End If + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then + MsgBox("Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt.") + Return False + End If + + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then + msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf & + "Soll es jetzt trotzdem auf VORBEREITET (zurück)gesetzt werden?" + antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), + "Status-Änderung") + If antwort = vbNo Then Return False + End If + + + 'Status ist offen - jetzt auf 'AN INDONESIEN' setzen + Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN + Aviso.Änderungen = "auf 'AN INDONESIEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + + Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + + Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) + AvisoDAL.addAenderung(tmpid, "auf 'AN INDONESIEN' gesetzt", "auf 'AN INDONESIEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + + Return (tmpid > 0) + End Function + + + Public Function setAnVERIMEX(AvisoID) As Boolean + 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then + ' MsgBox("Keine Berechtigung!") + ' Return False + 'End If + + 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen + If AvisoID <= 0 Then + MsgBox("Kein Aviso ausgewählt!") + Return False + End If + + 'jetzt ausgewählten Datensatz einlesen + Dim Aviso As New cAviso + Aviso = AvisoDAL.LesenAviso(AvisoID, "") + If Aviso Is Nothing Then Return False + If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False + + Dim msg As String + Dim antwort As MsgBoxResult + + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Then + MsgBox("Dieses LKW-Aviso ist bereits auf 'AN VERIMEX' gesetzt.", vbInformation) + Return False + End If + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then + MsgBox("Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt.") + Return False + End If + + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then + msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf & + "Soll es jetzt trotzdem auf VORBEREITET (zurück)gesetzt werden?" + antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), + "Status-Änderung") + If antwort = vbNo Then Return False + End If + + + 'Status ist offen - jetzt auf 'AN VERIMEX' setzen + Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX + Aviso.Änderungen = "auf 'AN VERIMEX' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + + Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + + Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) + AvisoDAL.addAenderung(tmpid, "auf 'AN VERIMEX' gesetzt", "auf 'AN VERIMEX' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + + Return (tmpid > 0) + End Function + + Public Function setVorgeschreiben(AvisoID) As Boolean + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then + MsgBox("Keine Berechtigung!") + Return False + End If + + 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen + If AvisoID <= 0 Then + MsgBox("Kein Aviso ausgewählt!") + Return False + End If + + 'jetzt ausgewählten Datensatz einlesen + Dim Aviso As New cAviso + Aviso = AvisoDAL.LesenAviso(AvisoID, "") + If Aviso Is Nothing Then Return False + If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False + + Dim msg As String + Dim antwort As MsgBoxResult + + + ' Taste VORGESCHRIEBEN + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then + MsgBox("Dieses LKW-Aviso ist bereits auf VORGESCHRIEBEN gesetzt.", vbInformation) + Return False + End If + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then + msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf & + "Soll es jetzt trotzdem auf VORGESCHRIEBEN (zurück)gesetzt werden?" + antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), + "Status-Änderung") + If antwort = vbNo Then Return False + End If + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then + msg = "Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt." & vbCrLf & vbCrLf & + "Soll der Status wieder auf VORGESCHRIEBEN geändert werden?" + antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), + "Status-Änderung") + If antwort = vbNo Then Return False + Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben + Aviso.Freigabe = LeerDatum + Aviso.Ankunft = LeerDatum + Aviso.Dauer = 0 + Else + Aviso.Vorgeschrieben = Now + ' Aviso.Grenzstelle = cGlobal.AktiverMitarbeiter.Grenzstelle + End If + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then + msg = "Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt." & vbCrLf & vbCrLf & + "Soll der Status wieder auf VORGESCHRIEBEN geändert werden?" + antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), + "Status-Änderung") + If antwort = vbNo Then Return False + Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben + Aviso.Freigabe = LeerDatum + Aviso.Ankunft = LeerDatum + Aviso.Dauer = 0 + Else + Aviso.Vorgeschrieben = Now + ' Aviso.Grenzstelle = cGlobal.AktiverMitarbeiter.Grenzstelle + End If + + 'Status ist offen - jetzt auf VORGESCHRIEBEN setzen + Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben + Aviso.Änderungen = "auf VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) + AvisoDAL.addAenderung(tmpid, "auf VORGESCHRIEBEN gesetzt", "auf VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + + + 'SQL.doSQL("UPDATE tblSendungen SET tblSnd_Vorgeschrieben=getDate() WHERE tblSnd_Vorgeschrieben IS NULL AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO") + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "" Then + 'Else + ' SQL.doSQL("UPDATE tblSendungen SET tblSnd_VG_MA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "',LetzterMitarbeiterId='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "',LetzterMitarbeiter='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "' WHERE tblSnd_VG_MA IS NULL AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO") + 'End If + + If False Then + Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, Aviso.AvisoID) + + For Each s In SENDUNG_LIST + If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER OrElse VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(s.FilialenNr, False) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then + If s.tblSnd_Vorgeschrieben Is Nothing Then + s.tblSnd_Vorgeschrieben = Now + End If + + If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "" Then + Else + If s.tblSnd_VG_MA Is Nothing Then + s.tblSnd_VG_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + s.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + s.LetzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + End If + End If + s.SAVE() + End If + Next + End If + + vermerkVorgeschreiben(AvisoID) + 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Case "VERAG", "ATILLA" + + ' Dim frmInsertVermerkFach As New frmInsertVermerkFach(Aviso.AvisoID) + ' frmInsertVermerkFach.ShowDialog() + + ' 'Case "IMEX" + ' ' Dim frmInsertVermerkFach As New frmInsertVermerkFachIMEX(Aviso.AvisoID) + ' ' frmInsertVermerkFach.ShowDialog() + 'End Select + + + Return (tmpid > 0) + End Function + + + Sub vermerkVorgeschreiben(AvisoID) + Dim VermerkeDAL As New cVermerkeDAL + Dim myVermerk As New cVermerk + myVermerk.AvisoID = AvisoID + myVermerk.Datum = Now + myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID + myVermerk.Hinweis_Vermerk = "Akt vorgeschrieben" : myVermerk.VermerkCodeId = 35 + VermerkeDAL.SpeichernVermerk(myVermerk) + + End Sub + + + Public Function setErfasst(AvisoID) As Boolean + + ' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_Erfasst", "AVISO") Then + MsgBox("Keine Berechtigung!") + Return False + End If + + 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen + If AvisoID <= 0 Then + MsgBox("Kein Aviso ausgewählt!") + Return False + End If + + 'jetzt ausgewählten Datensatz einlesen + Dim Aviso As New cAviso + Aviso = AvisoDAL.LesenAviso(AvisoID, "") + If Aviso Is Nothing Then Return False + If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False + + Dim msg As String + Dim antwort As MsgBoxResult + + 'Taste ERFASST + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then + MsgBox("Dieses LKW-Aviso ist bereits freigegeben.", vbInformation) + Return False + End If + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then + MsgBox("Dieses LKW-Aviso ist bereits auf 'LKW nicht eingetroffen' gesetzt.", vbInformation) + Return False + End If + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then + MsgBox("Dieses LKW-Aviso ist bereits auf ERFASST gesetzt.", vbInformation) + Return False + End If + Dim tmpid = -1 + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then + msg = "Dieses LKW-Aviso ist bereits auf VORBEREITET gesetzt." & vbCrLf & vbCrLf & + "Soll der Status wieder auf ERFASST geändert werden?" + antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), + "Status-Änderung") + If antwort = vbNo Then Return False + Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst + Aviso.Ankunft = LeerDatum + Aviso.Vorbereitet = LeerDatum + Aviso.Vorgeschrieben = LeerDatum + Aviso.Änderungen = "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + tmpid = AvisoDAL.SpeichernAviso(Aviso) + AvisoDAL.addAenderung(tmpid, "auf ERFASST gesetzt", "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + + End If + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then + msg = "Dieses LKW-Aviso ist bereits auf VORGESCHRIEBEN gesetzt." & vbCrLf & vbCrLf & + "Soll der Status wieder auf ERFASST geändert werden?" + antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), + "Status-Änderung") + If antwort = vbNo Then Return False + Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst + Aviso.Ankunft = LeerDatum + Aviso.Vorbereitet = LeerDatum + Aviso.Vorgeschrieben = LeerDatum + Aviso.Änderungen = "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + tmpid = AvisoDAL.SpeichernAviso(Aviso) + AvisoDAL.addAenderung(tmpid, "auf ERFASST gesetzt", "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + + End If + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then + msg = "Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt." & vbCrLf & vbCrLf & + "Soll der Status wieder auf ERFASST geändert werden?" + antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), + "Status-Änderung") + If antwort = vbNo Then Return False + Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst + Aviso.Ankunft = LeerDatum + Aviso.Vorbereitet = LeerDatum + Aviso.Vorgeschrieben = LeerDatum + Aviso.Änderungen = "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + tmpid = AvisoDAL.SpeichernAviso(Aviso) + AvisoDAL.addAenderung(tmpid, "auf ERFASST gesetzt", "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + End If + Return (tmpid > 0) + End Function + + Public Function setAbgeschlossen(AvisoID As Integer, value As Boolean) As Boolean + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then + MsgBox("Keine Berechtigung!") + Return False + End If + + 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen + If AvisoID <= 0 Then + MsgBox("Kein Aviso ausgewählt!") + Return False + End If + + 'jetzt ausgewählten Datensatz einlesen + Dim Aviso As New cAviso + Aviso = AvisoDAL.LesenAviso(AvisoID, "") + If Aviso Is Nothing Then Return False + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then + 'Prüfung + If False Then + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then + ' If value Then + ' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + ' If SQL.getValueTxtBySql("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE AvisoID=" & AvisoID, "FMZOLL") = 0 Then + ' If vbYes <> MsgBox("Keine Speditionbucheinträge vorhanden!" & vbNewLine & vbNewLine & "Möchten Sie trotzdem fortfahren?", vbYesNoCancel) Then + ' Return False + ' End If + ' End If + + ' Aviso.Abgeschlossen = value + ' AvisoDAL.SpeichernAviso(Aviso) + ' AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + ' Else + ' Aviso.Abgeschlossen = value + ' AvisoDAL.SpeichernAviso(Aviso) + ' AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + ' End If + Else + If value Then + For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SpeditionsbuchEingetragen FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoID & " AND [tblSnd_Fremdspedition]=0").Rows + If Not CBool(r(0)) Then + MsgBox("Sie müssen erst alle Sendungen ins Speditionsbuch eintragen!") + Return False + End If + Next + Aviso.Abgeschlossen = value + AvisoDAL.SpeichernAviso(Aviso) + + '--> Nicht mehr benötigt, alte Archiv Software IMEX + 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Case "IMEX" : createNLC(Aviso) + 'End Select + + AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + + 'Benachrichtigungen erledigen + VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID, False) + Else + Aviso.Abgeschlossen = value + AvisoDAL.SpeichernAviso(Aviso) + AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + End If + End If + + + Return True + Else + MsgBox("LKW-Status muss auf 'Freigegeben' sein.", vbInformation) + Return False + End If + + Return True + End Function + + + + Function createNLC(aviso As VERAG_PROG_ALLGEMEIN.cAviso) As Boolean + + Dim haserror = True + Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, aviso.AvisoID) + + For Each s In SENDUNG_LIST + If Not createNLCSimple(aviso, s) Then haserror = False + Next + Return haserror + + End Function + + Function createNLCSimple(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen) As Boolean + + Try + Dim resPath As String = System.IO.Path.GetFullPath(Application.StartupPath & "\Resources\") + + Dim nlcString As String = My.Computer.FileSystem.ReadAllText(resPath & "\MUSTER.NLC", System.Text.Encoding.Default) + + nlcString = nlcString.Replace("%Empfaenger%", SENDUNG.tblSnd_Empfaenger) + nlcString = nlcString.Replace("%Versender%", SENDUNG.tblSnd_Absender) + nlcString = nlcString.Replace("%Fraechter%", AVISO.Frächter) + nlcString = nlcString.Replace("%Auftraggeber%", SENDUNG.tblSnd_Auftraggeber) + nlcString = nlcString.Replace("%AvisNr%", AVISO.AvisoID) + nlcString = nlcString.Replace("%LKWKennzeichen%", AVISO.LKW_Nr) + If AVISO.Ankunft > CDate("01.01.2001") Then nlcString = nlcString.Replace("%Ankunft%", AVISO.Ankunft) + If AVISO.Freigabe > CDate("01.01.2001") Then nlcString = nlcString.Replace("%Datum%", AVISO.Freigabe.ToShortDateString) + nlcString = nlcString.Replace("%PosNr%", SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr) + + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + My.Computer.FileSystem.WriteAllText("C:\Temp\" & SENDUNG.FilialenNr & "_" & SENDUNG.AbfertigungsNr & ".nlc", nlcString, False) + Else + My.Computer.FileSystem.WriteAllText("\\192.168.1.20\daten\PronobisApps\JobExtender\Jobs\UpdIdx_Abfertigung\" & SENDUNG.FilialenNr & "_" & SENDUNG.AbfertigungsNr & ".nlc", nlcString, False) + End If + + Console.ReadLine() + + Return True + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return False + End Try + End Function + + + Public Function setNichtEingeftroffen(AvisoID, Optional geloescht = False) As Boolean + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then + MsgBox("Keine Berechtigung!") + Return False + End If + + 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen + If AvisoID <= 0 Then + MsgBox("Kein Aviso ausgewählt!") + Return False + End If + + 'jetzt ausgewählten Datensatz einlesen + Dim Aviso As New cAviso + Aviso = AvisoDAL.LesenAviso(AvisoID, "") + If Aviso Is Nothing Then Return False + If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False + + + Dim msg As String + Dim antwort As MsgBoxResult + + 'Taste NICHT EINGETROFFEN + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then + MsgBox("Dieses LKW-Aviso ist bereits freigegeben.", vbInformation) + Return False + End If + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then + MsgBox("Dieses LKW-Aviso ist bereits auf 'LKW nicht eingetroffen' gesetzt.", vbInformation) + Return False + End If + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then + MsgBox("Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt.", vbInformation) + Return False + End If + Dim tmpid = -1 + ' If Aviso.Status = VERAG_PROG_ALLGEMEIN.cglobal.Status_Erfasst Then + Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen + Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + tmpid = AvisoDAL.SpeichernAviso(Aviso) + + If geloescht Then + Aviso.Änderungen = "auf 'Gelöscht' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + AvisoDAL.addAenderung(tmpid, "auf 'Gelöscht' gesetzt", "auf 'Gelöscht' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + Else + Aviso.Änderungen = "auf LKW nicht eingetroffen gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + AvisoDAL.addAenderung(tmpid, "auf LKW nicht eingetroffen gesetzt", "auf LKW nicht eingetroffen gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + End If + + ' End If + Return (tmpid > 0) + End Function + + Public Function setFreigabe(AvisoID As Integer, CONTROL As Control, Optional allowEveryState As Boolean = False) As Boolean + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then + MsgBox("Keine Berechtigung!") + Return False + End If + + 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen + If AvisoID <= 0 Then + MsgBox("Kein Aviso ausgewählt!") + Return False + End If + + 'jetzt ausgewählten Datensatz einlesen + Dim Aviso As New cAviso + Aviso = AvisoDAL.LesenAviso(AvisoID, "") + If Aviso Is Nothing Then Return False + If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False + + + 'Prüfung kassieren: + Dim CURRENT_INDEX = -1 + Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoID) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim zuKassieren As Double = 0 + Dim belegVorhanden As Boolean = True + Dim found As Boolean = False + 'Dim zuKassBelege As String = "" + For Each S In SENDUNG_LIST 'LÄDT alle SENDUNGSDATEN + If If(S.tblSnd_BARzuKassieren, 0) > 0 Then + zuKassieren += S.tblSnd_BARzuKassieren + If S.FilialenNr > 0 And S.AbfertigungsNr > 0 Then + Try + If SQL.getValueTxtBySql("SELECT Count(*) FROM [tblEABelegnummer] as b INNER JOIN [tblEABelegposition] as p ON (b.BelegNr = p.BelegNr AND b.BelegDat = p.BelegDat AND b.Benutzer = p.Benutzer AND b.Niederlassung = p.Niederlassung AND b.Mandant = p.Mandant) where ((b.AbfertigungsNr='" & S.AbfertigungsNr & "' and b.FilialenNr='" & S.FilialenNr & "') or (p.AbfertigungsNr='" & S.AbfertigungsNr & "' and p.FilialenNr='" & S.FilialenNr & "')) and storniert=0 and gebuchtstorno=0 ", "FMZOLL") > 0 Then + found = True + Else + belegVorhanden = False + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End If + End If + Next + If zuKassieren > 0 Then + If Not found Or Not belegVorhanden Then + If vbYes <> MsgBox("BAR-Beleg fehlt!" & vbNewLine & "Wurde der Betrag '" & zuKassieren.ToString("C2") & "' (Summe) bereits kassiert?", vbYesNoCancel, "Bar kassieren") Then + Return False + End If + End If + End If + + + + + 'Taste FREIGABE + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then + MsgBox("Dieses LKW-Aviso ist bereits freigegeben.", vbInformation) + Return False + End If + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then + MsgBox("Dieses LKW-Aviso ist bereits auf 'LKW nicht eingetroffen' gesetzt.", vbInformation) + Return False + End If + + If allowEveryState = False And (Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben) Then + MsgBox("Dieses LKW-Aviso wurde noch nicht auf ANKUNFT gesetzt und kann deshalb nicht auf FREIGABE gesetzt werden.", vbInformation) + Return False + End If + Dim tmpid = -1 + 'Status ist Ankunft - jetzt auf Freigabe setzen und Dauer berechnen + If allowEveryState Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then + + If Not setFreigabeMsg(Aviso) Then + Return False + End If + + Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben + Aviso.Freigabe = Now + Aviso.Dauer = CInt(DateDiff(DateInterval.Minute, Aviso.Ankunft, Now)) + If Aviso.Dauer = 0 Then Aviso.Dauer = 1 'Sonderfall, wenn Ankunft und Freigabe hintereinander gedrückt wird (z.b. vergessen) + Aviso.Änderungen = "auf FREIGABE gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + If Not Aviso.LKW_fertig Then + Aviso.LKW_fertig = True + Aviso.Änderungen = "LKW ist fertig - nicht gesetzt, deshalb automatisch gesetzt mit FREIGABE" & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + End If + + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then + ' If Aviso.Grenzstelle.Replace("???", "") <> "" Then + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + ' End If + 'End If + Aviso.FreigabeFiliale = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE + + 'Speditionsbuch aktualisieren + SQL.doSQL("UPDATE Speditionsbuch SET FilialenNrHandling='" & VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE & "' WHERE AvisoId='" & Aviso.AvisoID & "'", "FMZOLL") + + tmpid = AvisoDAL.SpeichernAviso(Aviso) + AvisoDAL.addAenderung(tmpid, "auf FREIGABE gesetzt", "auf FREIGABE gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + If Not Aviso.LKW_fertig Then + AvisoDAL.addAenderung(tmpid, "LKW ist fertig - nicht gesetzt", "LKW ist fertig - nicht gesetzt, deshalb automatisch gesetzt mit FREIGABE") + End If + + + 'Wenn DE oder AT Zoll eingereicht -> automatisch fertigstellen XXXXXXXXXX + ' MsgBox(AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 17)) + If AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 17) Then + ' MsgBox(AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 18)) + If Not AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 18) Then + Dim myVermerk As New cVermerk + myVermerk.AvisoID = Aviso.AvisoID : myVermerk.Datum = Now + myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID + myVermerk.Hinweis_Vermerk = "DE Zoll fertig" : myVermerk.VermerkCodeId = 18 + VermerkeDAL.SpeichernVermerk(myVermerk) + End If + End If + If AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 19) Then + If Not AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 20) Then + Dim myVermerk As New cVermerk + myVermerk.AvisoID = Aviso.AvisoID : myVermerk.Datum = Now + myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID + myVermerk.Hinweis_Vermerk = "AT Zoll fertig" : myVermerk.VermerkCodeId = 20 + VermerkeDAL.SpeichernVermerk(myVermerk) + End If + End If + + + + 'nach dem erfolgreichem Speichern wird jetzt noch ein automatisches Mail für den Frächter und Auftraggeber erstellt + + SendFreigabeEmail(Aviso) + + VERAG_PROG_ALLGEMEIN.cMessenger.SET_LKWCHAT_INAKTIV(Aviso.AvisoID) + + If True Then + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTONACHERFASSUNG", CONTROL.FindForm) Then + Dim doAutoNacherf = True ' (vbYes = MsgBox("Autonacherfassung durchführen?", vbYesNoCancel)) + If doAutoNacherf Then + AUTONACHERFASSUNG(CONTROL, AvisoID) + End If + + End If + End If + End If + Return (tmpid > 0) + End Function + + Function setFreigabeMsg(AVISO As VERAG_PROG_ALLGEMEIN.cAviso) As Boolean + + Dim text = "" + Dim text_Freigabe = "" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "ATILLA" + 'Case "VERAG", "IMEX", "IMEX", "IMEX" + Case Else + Try + If IsNumeric(AVISO.Auftraggeber_KdNr) Then + Dim cADMIN As New cADMIN + text = cADMIN.getValueTxtBySql("SELECT DokumenteLKWFreigabe FROM Kunden WHERE KundenNr=" & AVISO.Auftraggeber_KdNr, "FMZOLL") + End If + Catch ex As Exception + End Try + End Select + + If AVISO.Freigabe_Info <> "" Then + text_Freigabe &= AVISO.Freigabe_Info + End If + + If True Then ' If text <> "" Or text_Freigabe <> "" Then + + Dim f As New frmFreigabeSetzen(AVISO) + f.rtbDokumente.Text = text + f.rtbSonstigeInfo.Text = text_Freigabe + If AVISO.Grenzstelle = "SUB" Then ' Nur in Suben! + f.cbxInfoblattFurDigitalabfertigungDrucken.Checked = (SQL.DLookup("COUNT(*)", "Vermerke", " AvisoID=" & AVISO.AvisoID & " and VermerkeCode=82", "AVISO", 0) > 0) + End If + + If f.ShowDialog() = DialogResult.Cancel Then + Return False + End If + End If + Return True + End Function + + + Shared Sub printFinish(myAviso As VERAG_PROG_ALLGEMEIN.cAviso) + Try + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_Freigabe_FinishDigital") Then + If myAviso.Grenzstelle = "SUB" Then ' Nur in Suben! + If (SQL.DLookup("COUNT(*)", "Vermerke", " AvisoID=" & myAviso.AvisoID & " and VermerkeCode=82", "AVISO", 0) > 0) Then + Dim path = SDL.FormularManagerNEU.Finish_AVISO(myAviso) + Dim oPS As New System.Drawing.Printing.PrinterSettings + If path <> "" Then + VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, oPS.PrinterName) + MsgBox("Finish-Zettel wird gedruckt!") + End If + End If + End If + + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + End Sub + + Public Sub AUTONACHERFASSUNG(CONTROL As Control, AvisoID As Integer) + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then + MsgBox("Keine Berechtigung!") + Exit Sub + End If + Dim ZOLL_IMPORT As New DAKOSY_Worker.cZOLL_IMPORT + + Try + CONTROL.FindForm.Cursor = Cursors.WaitCursor + Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoID).Rows + SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID"))) + Next + + For Each s In SENDUNG_LIST + If s.tblSnd_Abfertigungsart_ID = 23 Then + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FMZollPersID Then + Dim Personalnummer = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FMZollPersID + + Dim SPEDITIONSBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(s.FilialenNr, s.AbfertigungsNr) + If Not SPEDITIONSBUCH.hasEntry Then + + Dim notFound As Boolean = True + + SPEDITIONSBUCH = ZOLL_IMPORT.IMPORT(SPEDITIONSBUCH, AvisoID, s.tblSnd_SendungID, "", "", "", "", "", notFound, True, Personalnummer) + + If ZOLL_IMPORT.checkIfAutoOK Then + If SPEDITIONSBUCH.SAVE() Then + s.tblSnd_SpeditionsbuchEingetragen = 1 + s.SAVE() + End If + End If + Else + Dim SPEDBUCH_LIST As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuchList(s.FilialenNr, s.AbfertigungsNr) 'Liste laden, falls merhrere Einträge + If SPEDBUCH_LIST IsNot Nothing AndAlso SPEDBUCH_LIST.LIST IsNot Nothing Then + For Each SB In SPEDBUCH_LIST.LIST + If Not SPEDITIONSBUCH.Bar Then + ZOLL_IMPORT.SetBarKassiert(SB) ' BAR-Häckchen setzen, wenn kassiert wurde! (durch auto-Nacherfassung of nicht gesetzt) + End If + Next + + End If + + End If + 'If ZOLL_IMPORT.AUTO_IMPORT(s.tblSnd_SendungID) Then + ' s.tblSnd_SpeditionsbuchEingetragen = 1 + ' s.SAVE() + 'End If + End If + End If + Next + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + CONTROL.FindForm.Cursor = Cursors.Default + End Sub + Public Function AktUebernehmen(AvisoID, Optional askSendungenUebernehmen = False, Optional checkStatus = True, Optional nurLeereSendungenUebernehmen = False) As Boolean + + 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then + ' MsgBox("Keine Berechtigung!") + ' Return False + 'End If + + 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen + If AvisoID <= 0 Then + MsgBox("Kein Aviso ausgewählt!") + Return False + End If + + 'jetzt ausgewählten Datensatz einlesen + Dim Aviso As New cAviso + Aviso = AvisoDAL.LesenAviso(AvisoID, "") + If Aviso Is Nothing Then Return False + If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False + + + Dim msg As String + Dim antwort As MsgBoxResult + + + If checkStatus Then + + 'Taste Akt übernehmen + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then + MsgBox("Dieses LKW-Aviso ist bereits freigegeben.", vbInformation) + Return False + End If + + If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then + MsgBox("Dieses LKW-Aviso ist bereits auf 'LKW nicht eingetroffen' gesetzt.", vbInformation) + Return False + End If + End If + + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then + Aviso.Buero = VERAG_PROG_ALLGEMEIN.cAllgemein.BÜRO + End If + 'Status ist Ankunft, Vorbereitet, Vorgeschrieben oder Erfasst - aktiver Mitarbeiter wird geändert + Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + + + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then + ' If Aviso.Grenzstelle.Replace("???", "") <> "" Then + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + ' End If + 'End If + + Aviso.Änderungen = "Akt übernommen von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) + AvisoDAL.addAenderung(tmpid, "Akt übernommen", "Akt übernommen von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + + 'Benachrichtigungen erledigen 'nicht mehr, 16.07.2020 + 'VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID, True) + + + If askSendungenUebernehmen Or nurLeereSendungenUebernehmen Then + Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN + + If nurLeereSendungenUebernehmen Then + For Each s In SENDUNG_LIST + If s.LetzterMitarbeiterId Is Nothing OrElse CInt(s.LetzterMitarbeiterId) <= 0 Then + SendungUebernehmen(s.tblSnd_SendungID, AvisoID) + End If + Next + Else + Dim alleAkten = False + If askSendungenUebernehmen Then + + If Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then + For Each s1 In SENDUNG_LIST + If s1.LetzterMitarbeiterId IsNot Nothing AndAlso s1.LetzterMitarbeiterId <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then + Select Case MsgBox("Möchten Sie alle Sendungen übernehmen?", vbYesNoCancel) + Case vbYes : alleAkten = True + Case vbCancel : Return False + End Select + Exit For + End If + Next + End If + End If + + If alleAkten Then + For Each s In SENDUNG_LIST + ' If s.LetzterMitarbeiterId IsNot Nothing Then + SendungUebernehmen(s.tblSnd_SendungID, AvisoID) + ' End If + Next + End If + End If + + End If + Try + If frmHauptfenster.pnlDetailsRechts.Controls.Count > 0 Then + Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoID) + 'Case "VERAG" + ' If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then + ' DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2) + ' End If + Case "ATILLA" + If VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND Then + + GoTo ELSE_ATILLA + + Else + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", "AVISO") Then + If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID = AvisoID Then + DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).showInfo("Akt übernommen", 2) + End If + End If + End If + + Case Else +ELSE_ATILLA: + If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then + DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2) + End If + + End Select + End If + Catch ex As Exception + 'MsgBox(ex.Message) + End Try + Return (tmpid > 0) + End Function + + + + Public Function AktUebernehmen_Zuruecksetzen(AvisoID As Integer, Optional WeiterleitungTextTV As String = "", Optional letzterMitarbeiter As String = "Weiterleitung") As Boolean + Try + + 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then + ' MsgBox("Keine Berechtigung!") + ' Return False + 'End If + + 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen + If AvisoID <= 0 Then + MsgBox("Kein Aviso ausgewählt!") + Return False + End If + + 'jetzt ausgewählten Datensatz einlesen + Dim Aviso As New cAviso + Aviso = AvisoDAL.LesenAviso(AvisoID, "") + If Aviso Is Nothing Then Return False + If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False + + + + Aviso.LetzterMitarbeiterId = -1 + Aviso.letzterMitarbeiter = letzterMitarbeiter ' VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.WeiterleitungTextTV = WeiterleitungTextTV ' VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + + Aviso.TeamId = -1 'VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + + + 'Aviso.Änderungen = "Akt übernommen von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + 'Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) + 'AvisoDAL.addAenderung(tmpid, "Akt übernommen", "Akt übernommen von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + + Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN + + AvisoDAL.SpeichernAviso(Aviso, False) + + + 'Nicht MEHR! + 'For Each s In SENDUNG_LIST + ' ' If s.LetzterMitarbeiterId IsNot Nothing Then + ' SendungUebernehmen_Zuruecksetzen(s.tblSnd_SendungID, AvisoID) + ' ' End If + 'Next + + + + Return True + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return False + End Try + + + End Function + + Public Function SendungUebernehmen(SendungsId As Integer, AvisoID As Integer, Optional MaId As Integer = -1, Optional GesendetAn As Boolean = False) As Boolean + + 'If SendungsId Is Nothing Then Return False + If Not IsNumeric(SendungsId) Then Return False + ' If AvisoID Is Nothing Then Return False + If Not IsNumeric(AvisoID) Then Return False + + Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) + + Return SendungUebernehmen(SENDUNG_TMP, MaId, GesendetAn) + End Function + + Public Function SendungUebernehmen(ByRef SENDUNG_TMP As VERAG_PROG_ALLGEMEIN.cSendungen, Optional MaId As Integer = -1, Optional GesendetAn As Boolean = False) As Boolean + Dim MITARBEITER As cMitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER + If MaId > 0 Then + MITARBEITER = New cMitarbeiter(MaId) + End If + + If SENDUNG_TMP Is Nothing Then Return False + Dim saveSachbearbeiterTmp = SENDUNG_TMP.saveSachbearbeiter + SENDUNG_TMP.saveSachbearbeiter = True + SENDUNG_TMP.LetzterMitarbeiterId = MITARBEITER.mit_id + SENDUNG_TMP.LetzterMitarbeiter = MITARBEITER.Fullname + If Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then ' nur, wenn BO, dann darf das Team geändert werden... Damit das zuständige Team nachvollzeiehn kann, was mit dem LKW ist... + SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + End If + If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + If (SENDUNG_TMP.tblSnd_QS_MA Is Nothing OrElse SENDUNG_TMP.tblSnd_QS_MA <= 0) Then SENDUNG_TMP.tblSnd_QS_MA = MITARBEITER.mit_id + Else + If (SENDUNG_TMP.tblSnd_VG_MA Is Nothing OrElse SENDUNG_TMP.tblSnd_VG_MA <= 0) Then SENDUNG_TMP.tblSnd_VG_MA = MITARBEITER.mit_id + End If + + If SENDUNG_TMP.SAVE() Then + AvisoDAL.addAenderung(SENDUNG_TMP.tblSnd_AvisoID, "Sendung übernommen", "Sendung Nr. " & SENDUNG_TMP.tblSnd_PosUnterNr & If(GesendetAn, " gesendet an ", " übernommen von ") & MITARBEITER.Fullname & " am " & Format(Now, "dd.MM.yyyy HH:mm") & If(GesendetAn, " (von " & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname & ")", "")) + SENDUNG_TMP.saveSachbearbeiter = saveSachbearbeiterTmp + + 'Benachrichtigungen erledigen 'nicht mehr, 16.07.2020 + ' VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_SND(SENDUNG_TMP.tblSnd_SendungID, True) + + Return True + End If + SENDUNG_TMP.saveSachbearbeiter = saveSachbearbeiterTmp + Return False + End Function + + Public Function SendungUebernehmen_Zuruecksetzen(SendungsId As Integer, AvisoID As Integer) As Boolean + + If Not IsNumeric(SendungsId) Then Return False + If Not IsNumeric(AvisoID) Then Return False + + Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) + + Return SendungUebernehmen_Zuruecksetzen(SENDUNG_TMP) + End Function + Public Function SendungUebernehmen_Zuruecksetzen(ByRef SENDUNG_TMP As VERAG_PROG_ALLGEMEIN.cSendungen) As Boolean + + + If SENDUNG_TMP Is Nothing Then Return False + Dim saveSachbearbeiterTmp = SENDUNG_TMP.saveSachbearbeiter + SENDUNG_TMP.saveSachbearbeiter = True + SENDUNG_TMP.LetzterMitarbeiterId = -1 + SENDUNG_TMP.LetzterMitarbeiter = "" + SENDUNG_TMP.tblSnd_TeamId = -1 + + 'If Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then ' nur, wenn BO, dann darf das Team geändert werden... Damit das zuständige Team nachvollzeiehn kann, was mit dem LKW ist... + ' SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + 'End If + + If SENDUNG_TMP.SAVE() Then + 'AvisoDAL.addAenderung(SENDUNG_TMP.tblSnd_AvisoID, "Sendung übernommen", "Sendung Nr. " & SENDUNG_TMP.tblSnd_PosUnterNr & If(GesendetAn, " gesendet an ", " übernommen von ") & MITARBEITER.Fullname & " am " & Format(Now, "dd.MM.yyyy HH:mm") & If(GesendetAn, " (von " & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname & ")", "")) + SENDUNG_TMP.saveSachbearbeiter = saveSachbearbeiterTmp + Return True + End If + SENDUNG_TMP.saveSachbearbeiter = saveSachbearbeiterTmp + Return False + End Function + + + Public Function setSendungVorgeschrieben(SendungsId, AvisoID) As Boolean + + If SendungsId Is Nothing Then Return False + If Not IsNumeric(SendungsId) Then Return False + If AvisoID Is Nothing Then Return False + If Not IsNumeric(AvisoID) Then Return False + + + Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) + + SENDUNG_TMP.saveSachbearbeiter = True + + If SENDUNG_TMP.tblSnd_Vorgeschrieben Is Nothing Then + SENDUNG_TMP.tblSnd_VG_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERIMEX" Then + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + End If + SENDUNG_TMP.tblSnd_Vorgeschrieben = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn.. + AvisoDAL.addAenderung(AvisoID, "Sendung auf VORGESCHRIEBEN gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kreditlimit_Check_SND_Vorgeschrieben", "AVISO") Then + frmSendungsdetailsNEU.checkKreditlimit_ID(frmHauptfenster, AvisoID, SendungsId, True, False) 'NOCH NICHT.. + End If + Else + SENDUNG_TMP.tblSnd_Vorgeschrieben = Nothing + AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT VORGESCHRIEBEN gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + End If + + + Return SENDUNG_TMP.SAVE() + + End Function + + Public Function setSendungVorbereitetQS(SendungsId, AvisoID) As Boolean + + If SendungsId Is Nothing Then Return False + If Not IsNumeric(SendungsId) Then Return False + If AvisoID Is Nothing Then Return False + If Not IsNumeric(AvisoID) Then Return False + + Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) + + SENDUNG_TMP.saveSachbearbeiter = True + + If SENDUNG_TMP.tblSnd_Vorbereitet Is Nothing Then ' VB gesetzt! + SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + SENDUNG_TMP.tblSnd_FilialeAbklaerung = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + ' SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + 'End If + + + 'Lt. Bespr. ML und TW (6.10.22) --> wenn VBQS gesetzt, soll MA leer sein: + SENDUNG_TMP.LetzterMitarbeiter = "" + SENDUNG_TMP.LetzterMitarbeiterId = -1 + + + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERIMEX" Then + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + End If + SENDUNG_TMP.tblSnd_Vorbereitet = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn.. + AvisoDAL.addAenderung(AvisoID, "Sendung auf VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + Else + SENDUNG_TMP.tblSnd_Vorbereitet = Nothing + AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + End If + Return SENDUNG_TMP.SAVE() + + End Function + + Public Function setSendungAbklaerungTR(SendungsId, AvisoID) As Boolean + + If SendungsId Is Nothing Then Return False + If Not IsNumeric(SendungsId) Then Return False + If AvisoID Is Nothing Then Return False + If Not IsNumeric(AvisoID) Then Return False + + Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) + + SENDUNG_TMP.saveSachbearbeiter = True + + 'If SENDUNG_TMP.tblSnd_Vorgeschrieben IsNot Nothing Then + ' MsgBox("Sendung wurde bereits auf 'Vorgeschrieben' gesetzt - Status nicht mehr möglich!") + ' Return False + 'End If + 'If SENDUNG_TMP.tblSnd_Vorbereitet IsNot Nothing Then + ' MsgBox("Sendung wurde bereits auf 'QS Vorbereitet' gesetzt - Status nicht mehr möglich!") + ' Return False + 'End If + + + If SENDUNG_TMP.tblSnd_AbklaerungTR Is Nothing Then + SENDUNG_TMP.tblSnd_AbklaerungTR_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + SENDUNG_TMP.tblSnd_FilialeAbklaerung = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + ' SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + 'End If + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + + SENDUNG_TMP.tblSnd_AbklaerungTR = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn.. + AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + Else + SENDUNG_TMP.tblSnd_AbklaerungTR = Nothing + AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + End If + Return SENDUNG_TMP.SAVE() + + End Function + + Public Function setSendungAbfertigungTR(SendungsId, AvisoID, Optional anzahl = 1, Optional anzahlPos = 1) As Boolean + + If SendungsId Is Nothing Then Return False + If Not IsNumeric(SendungsId) Then Return False + If AvisoID Is Nothing Then Return False + If Not IsNumeric(AvisoID) Then Return False + + Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) + + SENDUNG_TMP.saveSachbearbeiter = True + + 'If SENDUNG_TMP.tblSnd_Vorgeschrieben IsNot Nothing Then + ' MsgBox("Sendung wurde bereits auf 'Vorgeschrieben' gesetzt - Status nicht mehr möglich!") + ' Return False + 'End If + 'If SENDUNG_TMP.tblSnd_Vorbereitet IsNot Nothing Then + ' MsgBox("Sendung wurde bereits auf 'QS Vorbereitet' gesetzt - Status nicht mehr möglich!") + ' Return False + 'End If + + SENDUNG_TMP.tblSnd_AbfertigungTRAnzahl = anzahl + SENDUNG_TMP.tblSnd_AbfertigungTRAnzahlPos = anzahlPos + + If SENDUNG_TMP.tblSnd_AbfertigungTR Is Nothing Then + SENDUNG_TMP.tblSnd_AbfertigungTR_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + 'SENDUNG_TMP.tblSnd_FilialeAbfertigung = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + ' SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + 'End If + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + + SENDUNG_TMP.tblSnd_AbfertigungTR = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn.. + AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & "(Anz:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahl & ", Pos:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahlPos & ")") + Else + SENDUNG_TMP.tblSnd_AbfertigungTR = Nothing + AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + End If + Return SENDUNG_TMP.SAVE() + + End Function + + Public Function setSendungFakturiert(SendungsId, AvisoID) As Boolean + + If SendungsId Is Nothing Then Return False + If Not IsNumeric(SendungsId) Then Return False + If AvisoID Is Nothing Then Return False + If Not IsNumeric(AvisoID) Then Return False + + Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) + + SENDUNG_TMP.saveSachbearbeiter = False + + If SENDUNG_TMP.tblSnd_Fakturiert Is Nothing Then + + SENDUNG_TMP.tblSnd_Fakturiert = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn.. + AvisoDAL.addAenderung(AvisoID, "Sendung auf FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + Else + SENDUNG_TMP.tblSnd_Fakturiert = Nothing + AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + End If + Return SENDUNG_TMP.SAVE() + + End Function + + + Public Function openSnd(sendId, AvisoID) As Form + Try + + + If sendId Is Nothing Then Return Nothing + If AvisoID Is Nothing Then Return Nothing + If sendId <= 0 Then Return Nothing + If AvisoID <= 0 Then Return Nothing + + For Each openForm In Application.OpenForms() + If TypeOf (openForm) Is frmSendungsdetailsNEU Then + 'MsgBox("Sendungsfenster bereits geöffnet!") + 'CType(openForm, frmSendungsdetailsNEU).BringToFront() + 'Return Nothing + CType(openForm, frmSendungsdetailsNEU).WindowState = FormWindowState.Minimized + CType(openForm, frmSendungsdetailsNEU).Close() + Exit For + End If + Next + + ' Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() + Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId) + frmSendungsdetails.Show() 'Dialog() ' frmSendungsdetails.ShowDialog(frmGrayOut) + ' frmGrayOut.Close() + Return frmSendungsdetails + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + End Function + + + 'avisoAktualisierenAktiveIdBehalten(AvisoID) + + + ' End Function + + + Shared Function getGrenzstelleZollstelle(hGrenzstelle As String, AVISO As VERAG_PROG_ALLGEMEIN.cAviso) As String + If hGrenzstelle.Replace("???", "") <> "" Then + Dim Standorte As New cStandorteDAL + Dim Standort As New cStandort + Standort = Standorte.LesenStandort(0, hGrenzstelle, "") + If Not IsNothing(Standort) Then + Return Standort.Standort_Text.Trim + End If + Else + If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle.ToString <> "" Then + ' hGrenzstelle = VERAGSQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS") + hGrenzstelle = VERAGSQL.getValueTxtBySql("SELECT [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & AVISO.Zollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())) order by left(Code,2), Description ", "FMZOLL") + + End If + End If + + Return hGrenzstelle.Replace("???", "") + End Function + + + Shared Function Platzhalter_ersetzen(hText As String, hLKW As String, hGrenzstelle As String, abfertigungsNr As String, art As String, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, KundenNr As Integer, ByRef anhaenge As List(Of String), artKunde As String) As String + If hText = "" Then + Platzhalter_ersetzen = hText + Exit Function + End If + + hText = hText.Replace("%LKW%", hLKW) + + Select Case art + Case "5" + Dim linkAviso = "https://status.app.verag.ag/aviso-status/" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID) + hText = hText.Replace("%Link%", "

 Tracking shipment status
") + + Case Else + + + 'hier werden alle möglichen Platzhalter ersetzt + + + hText = hText.Replace("%Standort%", getGrenzstelleZollstelle(hGrenzstelle, AVISO)) + hText = hText.Replace("%Uhrzeit%", Format(Now, "dd.MM.yyyy HH:mm")) + hText = hText.Replace("&", "und") + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" + hText = hText.Replace("%Firma_simple%", "IMEX") + hText = hText.Replace("%Firma%", "IMEX Customs Service GmbH") + hText = hText.Replace("%Platzhalter2%", "

Freundliche Grüße / Saygilarimizla / Best Regards
+ IMEX Customs Service GmbH
+ Abteilung: Zollabfertigung
+ Tel.: +43 7711 31630
+ Fax: +43 7711 31630 - 1
+ Mail: info@imex-group.at
+ ") + Case "UNISPED" + hText = hText.Replace("%Firma_simple%", "UNISPED") + hText = hText.Replace("%Firma%", "UNISPED Speditions GmbH") + hText = hText.Replace("%Platzhalter2%", "

Freundliche Grüße / Saygilarimizla / Best Regards
+ UNISPED Speditions GmbH
+ Abteilung: Zollabfertigung
+ Tel.: +43 7711 2677-0
+ Mail: office@unisped.at
+ ") + Case "ATILLA" + + hText = hText.Replace("%Firma_simple%", "ATILLA") + hText = hText.Replace("%Firma%", "ATILLA Spedition GmbH") + Case "AMBAR" + + hText = hText.Replace("%Firma_simple%", "AMBAR") + hText = hText.Replace("%FirmaTR%", "Ambar Logistic Bad Reichenhall") + hText = hText.Replace("%Firma%", "Ambar Logistic in Bad Reichenhall") + Case Else + hText = hText.Replace("%Platzhalter2%", "") + + hText = hText.Replace("%Firma_simple%", "VERAG") + hText = hText.Replace("%Firma%", "VERAG Spedition AG") + End Select + + hText = hText.Replace("%AbfertigungsNr%", abfertigungsNr) + + Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KundenNr) + + If (art = 2 Or art = 4) And (KUNDE_ERW.EmailFreigabeSendungsListe Or KUNDE_ERW.EmailFreigabe_VBDPDF Or KUNDE_ERW.EmailFreigabe_SteuerbescheidPDF) Then 'Freigabe + + Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AVISO.AvisoID) 'LÄDT alle SENDUNGSDATEN + If SENDUNG_LIST.Count > 0 Then + + Dim SendungslistTXT = "" + SendungslistTXT &= "Sendungsliste:
" + SendungslistTXT &= "" + + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then + ' SendungslistTXT &= "" + 'Else + ' SendungslistTXT &= "" + 'End If + Dim showNCTSAdress = False + If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FREIGABEMAIL_T1Adresse") Then showNCTSAdress = True + SendungslistTXT &= "" & If(showNCTSAdress, "", "") & "" + + Dim cnt = 1 + For Each s In SENDUNG_LIST + If s.tblSnd_Abfertigungsart_ID <> 9 And isKdInSendData(KUNDE_ERW, AVISO, s) Then + + Dim AtcMrn = "" + Dim DsId = "" + Dim DsId2 = "" + Dim frist = "" + Dim gestellungsadresse = "" + + + + getDataFronDY_NCTS(s.tblSnd_SendungID, AtcMrn, frist, DsId, s.FilialenNr, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID, s.tblSnd_DakosyRef) + If KUNDE_ERW.EmailFreigabe_VBDPDF And IsNumeric(DsId) Then 'VBD anhängen + Try + Dim anhaengeVersand As New List(Of String) + Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False) + If PathTmp <> "" Then anhaengeVersand.Add(PathTmp) : found = True + + '--------------------------------------------------------- + 'AMBAR: BEI T2 auch EXPORT_DOCS mitschicken! ' ------------------------'''Rechnung, CMR; Ausfuhr + '--------------------------------------------------------- + If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FREIGABEMAIL_T2_ANHAENGER") Then '--> nur bei AMBAR gesetzt + Select Case s.tblSnd_Abfertigungsart_ID + Case 6, 18, 24, 32, 33, 34, 37, 40 'nur T2!! + Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge) + VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST, s.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge + For Each l In ANH_LIST + Select Case l.anh_Art.ToString.ToUpper + ' Case "RECHNUNG", "CMR", "AUSFUHR", "COO", "PACKLISTE" + Case "EXPORT_DOCS" + Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False) + If PathTmpANH <> "" Then anhaengeVersand.Add(PathTmpANH) : found = True + End Select + Next + End Select + End If + '--------------------------------------------------------- + + If anhaengeVersand.Count = 1 Then + anhaenge.Add(anhaengeVersand(0)) 'Falls nur 1 Anhang + ElseIf anhaengeVersand.Count > 1 Then + 'AMBAR: Zusammenfassen des T2 und der T2 Anhänge + Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("T2_" & s.FilialenNr & "-" & s.AbfertigungsNr & ".pdf", ".pdf",, False, "Zusammenfassung_T2_AMB") + If SDL.FormularManagerNEU.MergePdfFiles(anhaengeVersand, zielPfadZusammenfassung) Then + anhaenge.Add(zielPfadZusammenfassung) + End If + End If + + + + Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try + If Not found Then + AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47) + 'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)") + MsgBox("ACHTUNG: Das Versandbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das VBD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr) + End If + End If + Case 7 'Ausfuhr + + getDataFronDY_AES(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2) + ' MsgBox(DsId) + If KUNDE_ERW.EmailFreigabe_ABDPDF And IsNumeric(DsId) Then 'VBD anhängen + Try + Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False) + If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True + Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try + If Not found Then + AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: ABD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47) + 'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)") + MsgBox("ACHTUNG: Das Ausfuhrbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das ABD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr) + End If + End If + Case Else + getDataFronDY_EZA(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2) + If s.tblSnd_Abfertigungsart_ID = 23 Then + s.LOAD_HANDLING() + For Each hd In s.HANDLING + AtcMrn &= hd.sndhdg_nr & ", " + Next + If AtcMrn.EndsWith(", ") Then AtcMrn = AtcMrn.Substring(0, AtcMrn.Length - 2) + + 'If If(s.tblSnd_ATCMRN_Fremd, "") <> "" Then AtcMrn = s.tblSnd_ATCMRN_Fremd + End If + Select Case artKunde + Case "FRÄCHTER", "AVISIERER" 'Die bekommen keine Steuerbescheide.. + Case Else + + If KUNDE_ERW.EmailFreigabe_SteuerbescheidPDF And (IsNumeric(DsId) Or IsNumeric(DsId2)) Then 'Steuerbescheid anhängen + If checkSteuerbescheidbedingung(KundenNr, DsId) Or checkSteuerbescheidbedingung(KundenNr, DsId2) Then + Try + If IsNumeric(DsId) Then + Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False) + If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True + End If + If IsNumeric(DsId) Then + Dim PathTmp2 = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId2)).GET_TOP1_PATH(False) + If PathTmp2 <> "" Then anhaenge.Add(PathTmp2) : found = True + End If + Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try + If Not found Then + AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47) + ' AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)") + MsgBox("ACHTUNG: Der Steuerbescheid konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden den Steuerbescheid per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr) + End If + End If + End If + End Select + End Select + If IsDate(frist) Then frist = CDate(frist).ToShortDateString + + Dim txtCluster = "" + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then txtCluster = "" + txtCluster = "" + SendungslistTXT &= "" & txtCluster & "" & If(showNCTSAdress, gestellungsadresse, "") & " " + cnt += 1 + End If + Next + + SendungslistTXT &= "
Nr. Spedition PosNr Art Empfänger ATC/MRN Frist (T1/T2)
Nr. PosNr Art Empfänger ATC/MRN Frist (T1/T2)
Nr. Spedition PosNr Art Empfänger ATC/MRN Frist (T1/T2) Gestellungsadresse (T1/T2)
" + Dim found = False + Select Case s.tblSnd_Abfertigungsart_ID + Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand + gestellungsadresse = "" & s.getNCTSAdress(True, True, False) & "" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(s.FilialenNr, False) & "" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(s.FilialenNr, False) & "
" & cnt & "" & If(s.FilialenNr > 0, s.FilialenNr, "") & "/" & If(s.AbfertigungsNr > 0, s.AbfertigungsNr, "") & "" & getAbfertBez(s) & "" & If(s.tblSnd_Empfaenger, "") & "" & AtcMrn & "" & frist & "
" + SendungslistTXT &= "

" + If cnt = 1 Then ' wurde nicht erhöht -> keine Einträge + SendungslistTXT = "" + End If + If KUNDE_ERW.EmailFreigabeSendungsListe Then hText = hText.Replace("%Platzhalter%", SendungslistTXT) + End If + End If + End Select + hText = hText.Replace("%Platzhalter%", "") + + Platzhalter_ersetzen = hText + End Function + + Private Shared VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL + Shared Function getEZOLL_Steuerbescheid(KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen) As List(Of String) + Dim LIST As New List(Of String) + + Dim dt As DataTable = VERAGSQL.loadDgvBySql("", "EZOLL") + + + End Function + + + 'Prüft, ob die KundenNr in den Daten vorkommt --> zB Empfänger, soll nur die Empfänger-Sendung gefunden werden, Frächter scheint immer auf. + Shared Function isKdInSendData(KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen) + If KUNDE_ERW.kde_KundenNr <= 0 Then Return False + Select Case KUNDE_ERW.kde_KundenNr.ToString + Case SENDUNG.tblSnd_AbsenderKdNr.ToString : Return True + Case SENDUNG.tblSnd_EmpfaengerKdNr.ToString : Return True + Case SENDUNG.tblSnd_AuftraggeberKdNr.ToString : Return True + Case AVISO.Auftraggeber_KdNr.ToString : Return True + Case AVISO.Frächter_KdNr.ToString : Return True + End Select + Return False + End Function + Shared Function checkSteuerbescheidbedingung(KdNr As Integer, DSId As String) As Boolean + Try + If DSId = "" Then Return False + If Not IsNumeric(DSId) Then Return False + + Dim KD_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KdNr) + 'Alle KD-Aufschubdaten laden + Dim KD_AUFSCHUB = VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten.LOAD_ListAufschubKTOByKdNr(KdNr) + If KD_ERW IsNot Nothing AndAlso KD_ERW.EmailFreigabe_SteuerbescheidPDF Then + Select Case KD_ERW.EmailFreigabe_SteuerbescheidPDF_Bedingung + Case 0 : Return True + Case 1 + 'EZA Laden + Dim eza_id = VERAGSQL.getValueTxtBySql("SELECT TOP 1 isnull(eza_id,'') FROM [tblDakosy_Zollanmeldungen] INNER JOIN tblDakosy_EZA ON eza_dyaAnmID=dy_Id where [dy_Steuerbescheid_dsId]='" & DSId & "'", "FMZOLL") + If IsNumeric(eza_id) Then + 'Aufschub laden und vergleichen + Dim EZA As New DAKOSY_Worker.cDakosyEZA(eza_id) + If EZA IsNot Nothing AndAlso EZA.eza_AUFSCHUB IsNot Nothing Then + For Each eza_a In EZA.eza_AUFSCHUB + For Each a In KD_AUFSCHUB + If eza_a.ezaAfb_KontoNr = a.kdAkto_kontonummer Then + 'Wenn Kontonummer gefunden --> reuten true + Return True + End If + Next + Next + End If + End If + End Select + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + Return False + End Function + + + Shared Function getAbfertBez(s As VERAG_PROG_ALLGEMEIN.cSendungen) As String + If s.tblSnd_Fremdspedition Then Return If(s.tblSnd_FremdspeditionText <> "", s.tblSnd_FremdspeditionText, "FREMD") + If s.tblSnd_Abfertigungsart_ID < 0 Then Return "-" + Return VERAGSQL.getValueTxtBySql("select isnull(Abfertigungsbezeichnung,'-') from Abfertigungsarten where Abfertigungsart='" & s.tblSnd_Abfertigungsart_ID & "'", "FMZOLL") + End Function + + Shared Function getDataFronDY_NCTS(SendungsId, ByRef AtcMrn, ByRef frist, ByRef dsId, FilialenNr, AbfertigungsNr, tblSnd_Abfertigungsart_ID, tblSnd_DakosyRef) As Boolean + If SendungsId Is Nothing Then Return False + If Not IsNumeric(AbfertigungsNr) Then Return False + If AbfertigungsNr <= 0 Then Return False + + If FilialenNr <> 4805 And FilialenNr <> 4811 Then ' Kein Ü-T + Dim dt = VERAGSQL.loadDgvBySql("SELECT isnull(dy_vbd_dsid,'') as DsId ,isnull(isnull(ncts_MRN,ncts_ANR),'') as MRN, isnull(ncts_Wiedergestellungsdatum ,'') as WG FROM tblDakosy_Zollanmeldungen inner join tblDakosy_nctsout on dy_id=ncts_dyaAnmID where dy_SendungsId='" & SendungsId & "' and dy_status <= 70 order by dy_status desc, dy_Erstellung desc", "FMZOLL") + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + AtcMrn = dt.Rows(0)("MRN") + dsId = dt.Rows(0)("DsId") + frist = dt.Rows(0)("WG") + Return True + Else + Try 'AT-Zollsystem + Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + AtcMrn = sql.getValueTxtBySql("SELECT CRN FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN LIKE '" & FilialenNr & "/" & AbfertigungsNr & "%' OR LRN LIKE '" & FilialenNr & "-" & AbfertigungsNr & "%') ORDER BY GeaendertAm DESC", "EZOLL") + frist = sql.getValueTxtBySql("SELECT TOP 1 Gestellungsfrist FROM vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme WHERE (LRN LIKE '" & FilialenNr & "/" & AbfertigungsNr & "%' OR LRN LIKE '" & FilialenNr & "-" & AbfertigungsNr & "%') ", "EZOLL") + dsId = sql.getValueTxtBySql("SELECT TOP 1 [DokumentId_VBD] FROM [Speditionsbuch] where [DokumentId_VBD] is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL") + Catch : End Try + End If + End If + + 'Wenn nichts gefunden: + Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung + ZOLLANMELDUNG.getDataByBezugsnummer(FilialenNr & "/" & AbfertigungsNr, tblSnd_Abfertigungsart_ID.ToString, tblSnd_DakosyRef, False, "DE") ' Die weiteren Daten werden hier geladen + If ZOLLANMELDUNG IsNot Nothing Then + AtcMrn = ZOLLANMELDUNG.ATCMRN + 'dsId = dt.Rows(0)("DsId") + 'frist = ZOLLANMELDUNG.dat + End If + + Return False + End Function + + Shared Function getDataFronDY_EZA(SendungsId, ByRef AtcMrn, ByRef dsId, FilialenNr, AbfertigungsNr, ByRef dsId2) As Boolean + If SendungsId Is Nothing Then Return False + If Not IsNumeric(AbfertigungsNr) Then Return False + If AbfertigungsNr <= 0 Then Return False + + Dim dt = VERAGSQL.loadDgvBySql("SELECT isnull(dy_steuerbescheid_dsid,'') as DsId, isnull(eza_ANR,'') as ATC FROM tblDakosy_Zollanmeldungen inner join tblDakosy_eza on dy_id=eza_dyaAnmID where dy_SendungsId='" & SendungsId & "' and dy_status <= 70 order by dy_status desc, dy_Erstellung desc", "FMZOLL") + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + AtcMrn = dt.Rows(0)("ATC") + dsId = dt.Rows(0)("DsId") + Return True + Else + Try 'AT-Zollsystem + Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + AtcMrn = sql.getValueTxtBySql("SELECT CRN FROM zsAnmRefs WHERE (VorgangID = 'EF') AND (LRN LIKE '" & FilialenNr & "/" & AbfertigungsNr & "%' OR LRN LIKE '" & FilialenNr & "-" & AbfertigungsNr & "%') ORDER BY GeaendertAm DESC", "EZOLL") + dsId = sql.getValueTxtBySql("SELECT TOP 1 DokumentId_Steuerbeleg FROM [Speditionsbuch] where DokumentId_Steuerbeleg is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL") + dsId2 = sql.getValueTxtBySql("SELECT TOP 1 DokumentId_Mitteilung FROM [Speditionsbuch] where DokumentId_Mitteilung is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL") + + Catch : End Try + End If + Return False + End Function + + Shared Function getDataFronDY_AES(SendungsId, ByRef AtcMrn, ByRef dsId, FilialenNr, AbfertigungsNr, ByRef dsId2) As Boolean + If SendungsId Is Nothing Then Return False + If Not IsNumeric(AbfertigungsNr) Then Return False + If AbfertigungsNr <= 0 Then Return False + + Dim dt = VERAGSQL.loadDgvBySql("SELECT isnull(dy_ABD_dsId,'') as DsId, isnull(aes_MRN,'') as ATC FROM tblDakosy_Zollanmeldungen inner join tblDakosy_AES on dy_id=aes_dyaAnmID where dy_SendungsId='" & SendungsId & "' and dy_status <= 70 order by dy_status desc, dy_Erstellung desc", "FMZOLL") + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + AtcMrn = dt.Rows(0)("ATC") + dsId = dt.Rows(0)("DsId") + Return True + Else + Try 'AT-Zollsystem + 'Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + 'AtcMrn = sql.getValueTxtBySql("SELECT CRN FROM zsAnmRefs WHERE (VorgangID = 'EF') AND (LRN LIKE '" & FilialenNr & "/" & AbfertigungsNr & "%' OR LRN LIKE '" & FilialenNr & "-" & AbfertigungsNr & "%') ORDER BY GeaendertAm DESC", "EZOLL") + 'dsId = sql.getValueTxtBySql("SELECT TOP 1 DokumentId_Steuerbeleg FROM [Speditionsbuch] where DokumentId_Steuerbeleg is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL") + 'dsId2 = sql.getValueTxtBySql("SELECT TOP 1 DokumentId_Mitteilung FROM [Speditionsbuch] where DokumentId_Mitteilung is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL") + '....... FEHLT NOCH !!!! + Catch : End Try + End If + Return False + End Function + + Function SpeditionsbuchEintrag(AvisoID As Integer, SendungID As Integer) As posNr + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then + MsgBox("Keine Berechtigung!") + Return Nothing + End If + + Try + Dim posNr As New posNr + If SendungID < 0 Then MsgBox("Fehler: SendungID kleiner 0.") : Return Nothing + If AvisoID < 0 Then MsgBox("Fehler: AvisoID kleiner 0.") : Return Nothing + + Dim frmNacherfassung As New SDL.frmNacherfassungNEU + ' MsgBox("1") + Dim sendung As New VERAG_PROG_ALLGEMEIN.cSendungen(SendungID) + 'Dim dr As DataRow = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr,AbfertigungsNr, UnterNr FROM tblSendungen WHERE tblSnd_SendungID=" & SendungID).Rows(0) + Dim dr As DataRow = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr,AbfertigungsNr, UnterNr FROM tblSendungen WHERE FilialenNr=" & sendung.FilialenNr & " AND AbfertigungsNr=" & sendung.AbfertigungsNr & " order by UnterNr ").Rows(0) + + posNr.Filiale = VarToInt2(dr.Item("FilialenNr")) + posNr.Abfertigungsnummer = VarToInt2(dr.Item("AbfertigungsNr")) + posNr.UnterNr = VarToInt2(dr.Item("UnterNr")) + If posNr.UnterNr < 0 Then posNr.UnterNr = 0 + + If posNr.Filiale <= 0 And VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale > 0 Then 'Aus den Mitarbeiter-Stammdaten + posNr.Filiale = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale + End If + + If posNr.Abfertigungsnummer <= 0 Or posNr.Filiale <= 0 Or posNr.UnterNr < 0 Then + Dim frmPosNr As New SDL.frmPosNr(posNr.Filiale, posNr.Abfertigungsnummer, posNr.UnterNr) + Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() + + If Not frmPosNr.ShowDialog(frmGrayOut) = DialogResult.OK Then frmGrayOut.Close() : Return Nothing + frmGrayOut.Close() + + posNr.Abfertigungsnummer = frmPosNr.txtAbfertigungsnummer.Text + posNr.Filiale = frmPosNr.cboFiliale._value + posNr.UnterNr = frmPosNr.txtUnterNr.Text + ' Dim cADMIN As New cADMIN + ' cADMIN.doSQL(" UPDATE tblSendungen SET FilialenNr='" & posNr.Filiale & "',AbfertigungsNr='" & srchAbfertigungsnummer & "', UnterNr='" & srchUnterNr & "' FROM tblSendungen WHERE tblSnd_SendungID=" & SendungID) + + End If + + frmNacherfassung.avisoLinkId = AvisoID + frmNacherfassung.SendungID = SendungID + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + frmNacherfassung.srchAbfertigungsnummer = posNr.Abfertigungsnummer + frmNacherfassung.srchFiliale = posNr.Filiale + frmNacherfassung.srchUnterNr = posNr.UnterNr + ' frmNacherfassung.FMZollPersID = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.mit_FMZollPersID + ' Dim qsMa_TMP = SQL.getValueTxtBySql("SELECT TOP 1 isnull([MitarbeiterId],-1) FROM [Aenderungen] WHERE Aenderung_Art = 'auf VORBEREITET gesetzt' AND [AvisoID]='" & AvisoID & "' ORDER BY Datum DESC", "AVISO") + + ' Dim qsMa = SQL.getValueTxtBySql("SELECT TOP 1 isnull([mit_FMZollPersID],-1) FROM [tblMitarbeiter] WHERE [mit_id]='" & qsMa_TMP & "' ", "ADMIN") + frmNacherfassung.newEntry = (0 = CInt(SQL.getValueTxtBySql("SELECT Count(*) FROM Speditionsbuch WHERE FilialenNr='" & posNr.Filiale & "' AND AbfertigungsNr='" & posNr.Abfertigungsnummer & "' AND UnterNr='" & posNr.UnterNr & "' ", "FMZOLL"))) + 'frmNacherfassung.FMZollPersIDQS = IIf(IsNumeric(qsMa_TMP), qsMa_TMP, -1) + + + frmNacherfassung.ShowDialog() + + posNr.Abfertigungsnummer = frmNacherfassung.txtAbfertigungsnummer.Text + posNr.Filiale = frmNacherfassung.cboFiliale._value + posNr.UnterNr = frmNacherfassung.txtUnterNr.Text + + + Return posNr + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return Nothing + End Try + End Function + + Public Sub showKd(kdnr, Optional TopMost = False) + 'For Each frm As Form In Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then Exit Sub + + For Each openForm In Application.OpenForms() + If TypeOf (openForm) Is SDL.frmKundenUebersichtZOLL Then + CType(openForm, SDL.frmKundenUebersichtZOLL).BringToFront() + If TopMost Then CType(openForm, SDL.frmKundenUebersichtZOLL).TopMost = True + CType(openForm, SDL.frmKundenUebersichtZOLL).KdSearchBox1.KdNr = kdnr + Exit Sub + End If + Next + 'If False Then + + ' If Not Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing Then + ' Application.OpenForms.Item("frmKundenUebersichtZOLL").BringToFront() + ' Exit Sub + ' End If + 'End If + '' Next + Dim zoll As New SDL.frmKundenUebersichtZOLL(kdnr) + If zoll IsNot Nothing Then zoll.Show() : zoll.BringToFront() + End Sub + + + Shared Sub insertVermerkAllg(AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "", Optional BeschreibungMA As String = "") + 'Daten zuweisen und speichern + Dim myVermerk As New cVermerk + myVermerk.VermerkID = 0 + myVermerk.AvisoID = AvisoID + myVermerk.Datum = Now + myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter & " " & BeschreibungMA + myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID + myVermerk.Hinweis_Vermerk = Text + myVermerk.VermerkCodeId = VermerkCodeId + Dim VermerkeDAL As New cVermerkeDAL + VermerkeDAL.SpeichernVermerk(myVermerk) + If frmHauptfenster IsNot Nothing Then frmHauptfenster.Details_anzeigen(AvisoID) + + End Sub + + Shared Sub insertSendungsVermerk(SendungID As Integer, AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "", Optional VorauskasseId As Object = Nothing, Optional addAuto As Boolean = False) + 'Daten zuweisen und speichern + Dim myVermerk As New cVermerk + myVermerk.VermerkID = 0 + myVermerk.AvisoID = AvisoID + myVermerk.Datum = Now + myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter & If(addAuto, " (AUTO)", "") + myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID + myVermerk.Hinweis_Vermerk = Text + myVermerk.VermerkCodeId = VermerkCodeId + myVermerk.SendungID = SendungID + If VorauskasseId IsNot Nothing AndAlso VorauskasseId IsNot DBNull.Value Then myVermerk.VorauskasseId = VorauskasseId + myVermerk.VermerkArt = "S" + Dim VermerkeDAL As New cVermerkeDAL + + VermerkeDAL.SpeichernVermerk(myVermerk) + + If myVermerk.VermerkCodeId = 18 Then + VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False) + frmHauptfenster.avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID) + End If + + End Sub +End Class +Public Class posNr + Property Abfertigungsnummer As Integer = -1 + Property Filiale As Integer = -1 + Property UnterNr As Integer = -1 +End Class + diff --git a/Aviso/Benachrichtigung/frmAvisoWeiterleiten.Designer.vb b/Aviso/Benachrichtigung/frmAvisoWeiterleiten.Designer.vb index 37033c6..86b21d5 100644 --- a/Aviso/Benachrichtigung/frmAvisoWeiterleiten.Designer.vb +++ b/Aviso/Benachrichtigung/frmAvisoWeiterleiten.Designer.vb @@ -74,6 +74,7 @@ Partial Class frmAvisoWeiterleiten Me.btnVERIMEX = New System.Windows.Forms.Button() Me.btnAMBAR = New System.Windows.Forms.Button() Me.btnATILLA = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() Me.Panel5 = New System.Windows.Forms.Panel() Me.Label6 = New System.Windows.Forms.Label() Me.dgvAnmhaenge = New System.Windows.Forms.DataGridView() @@ -82,7 +83,6 @@ Partial Class frmAvisoWeiterleiten Me.Button1 = New System.Windows.Forms.Button() Me.Label5 = New System.Windows.Forms.Label() Me.rtbVermerk = New System.Windows.Forms.RichTextBox() - Me.Button2 = New System.Windows.Forms.Button() Me.pnl.SuspendLayout() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel2.SuspendLayout() @@ -167,7 +167,7 @@ Partial Class frmAvisoWeiterleiten Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left Me.Panel2.Location = New System.Drawing.Point(0, 37) Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(320, 702) + Me.Panel2.Size = New System.Drawing.Size(320, 815) Me.Panel2.TabIndex = 17 ' 'btnTeam @@ -177,7 +177,7 @@ Partial Class frmAvisoWeiterleiten Me.btnTeam.FlatStyle = System.Windows.Forms.FlatStyle.Popup Me.btnTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) Me.btnTeam.ForeColor = System.Drawing.Color.White - Me.btnTeam.Location = New System.Drawing.Point(161, 643) + Me.btnTeam.Location = New System.Drawing.Point(161, 756) Me.btnTeam.Name = "btnTeam" Me.btnTeam.Size = New System.Drawing.Size(140, 42) Me.btnTeam.TabIndex = 14 @@ -191,7 +191,7 @@ Partial Class frmAvisoWeiterleiten Me.btnBenutzer.FlatStyle = System.Windows.Forms.FlatStyle.Popup Me.btnBenutzer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) Me.btnBenutzer.ForeColor = System.Drawing.Color.White - Me.btnBenutzer.Location = New System.Drawing.Point(15, 643) + Me.btnBenutzer.Location = New System.Drawing.Point(15, 756) Me.btnBenutzer.Name = "btnBenutzer" Me.btnBenutzer.Size = New System.Drawing.Size(140, 42) Me.btnBenutzer.TabIndex = 13 @@ -222,7 +222,7 @@ Partial Class frmAvisoWeiterleiten Me.dgvMitarbeiter.Name = "dgvMitarbeiter" Me.dgvMitarbeiter.RowHeadersVisible = False Me.dgvMitarbeiter.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvMitarbeiter.Size = New System.Drawing.Size(286, 589) + Me.dgvMitarbeiter.Size = New System.Drawing.Size(286, 702) Me.dgvMitarbeiter.TabIndex = 10 ' 'MyTextBox1 @@ -258,7 +258,7 @@ Partial Class frmAvisoWeiterleiten Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Location = New System.Drawing.Point(320, 37) Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(792, 702) + Me.Panel4.Size = New System.Drawing.Size(792, 815) Me.Panel4.TabIndex = 20 ' 'Panel1 @@ -270,7 +270,7 @@ Partial Class frmAvisoWeiterleiten Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left Me.Panel1.Location = New System.Drawing.Point(200, 57) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(577, 468) + Me.Panel1.Size = New System.Drawing.Size(577, 581) Me.Panel1.TabIndex = 20 ' 'flpFirma @@ -278,7 +278,7 @@ Partial Class frmAvisoWeiterleiten Me.flpFirma.Dock = System.Windows.Forms.DockStyle.Fill Me.flpFirma.Location = New System.Drawing.Point(0, 28) Me.flpFirma.Name = "flpFirma" - Me.flpFirma.Size = New System.Drawing.Size(575, 438) + Me.flpFirma.Size = New System.Drawing.Size(575, 551) Me.flpFirma.TabIndex = 1 ' 'Panel3 @@ -430,7 +430,7 @@ Partial Class frmAvisoWeiterleiten Me.Panel7.Dock = System.Windows.Forms.DockStyle.Left Me.Panel7.Location = New System.Drawing.Point(0, 57) Me.Panel7.Name = "Panel7" - Me.Panel7.Size = New System.Drawing.Size(200, 468) + Me.Panel7.Size = New System.Drawing.Size(200, 581) Me.Panel7.TabIndex = 19 ' 'flpTeams @@ -438,7 +438,7 @@ Partial Class frmAvisoWeiterleiten Me.flpTeams.Dock = System.Windows.Forms.DockStyle.Fill Me.flpTeams.Location = New System.Drawing.Point(0, 28) Me.flpTeams.Name = "flpTeams" - Me.flpTeams.Size = New System.Drawing.Size(198, 438) + Me.flpTeams.Size = New System.Drawing.Size(198, 551) Me.flpTeams.TabIndex = 1 ' 'Panel8 @@ -675,6 +675,17 @@ Partial Class frmAvisoWeiterleiten Me.btnATILLA.Text = "ATILLA" Me.btnATILLA.UseVisualStyleBackColor = True ' + 'Button2 + ' + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Popup + Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.Button2.Location = New System.Drawing.Point(3, 52) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(120, 43) + Me.Button2.TabIndex = 12 + Me.Button2.Text = "WARENORT" + Me.Button2.UseVisualStyleBackColor = True + ' 'Panel5 ' Me.Panel5.BackColor = System.Drawing.Color.SeaShell @@ -684,7 +695,7 @@ Partial Class frmAvisoWeiterleiten Me.Panel5.Controls.Add(Me.Label5) Me.Panel5.Controls.Add(Me.rtbVermerk) Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel5.Location = New System.Drawing.Point(0, 525) + Me.Panel5.Location = New System.Drawing.Point(0, 638) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(790, 175) Me.Panel5.TabIndex = 22 @@ -762,23 +773,12 @@ Partial Class frmAvisoWeiterleiten Me.rtbVermerk.TabIndex = 0 Me.rtbVermerk.Text = "" ' - 'Button2 - ' - Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Popup - Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.Button2.Location = New System.Drawing.Point(3, 52) - Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(120, 43) - Me.Button2.TabIndex = 12 - Me.Button2.Text = "WARENORT" - Me.Button2.UseVisualStyleBackColor = True - ' 'frmAvisoWeiterleiten ' 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(1112, 739) + Me.ClientSize = New System.Drawing.Size(1112, 852) Me.Controls.Add(Me.Panel4) Me.Controls.Add(Me.Panel2) Me.Controls.Add(Me.pnl) diff --git a/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb b/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb index c51b600..e0fd904 100644 --- a/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb +++ b/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb @@ -272,6 +272,7 @@ Public Class frmAvisoWeiterleiten addBtn(flpFirma, "N", "NKN", "VERAG Neunkirchen (Saar)") addBtn(flpFirma, "A", "FISK", "VERAG Fiskal") + addBtn(flpFirma, "A", "VRR", "VERRECHNUNG") Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='VERAG' order by team_id", "ADMIN") If dt IsNot Nothing Then diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 78411de..a9058eb 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmEintragAviso.designer.vb b/Aviso/frmEintragAviso.designer.vb index bc67750..ac4bb51 100644 --- a/Aviso/frmEintragAviso.designer.vb +++ b/Aviso/frmEintragAviso.designer.vb @@ -1200,7 +1200,6 @@ Partial Class frmEintragAviso Me.cboImEx.Name = "cboImEx" Me.cboImEx.Size = New System.Drawing.Size(79, 28) Me.cboImEx.TabIndex = 21 - Me.cboImEx.Visible = False ' 'Label1 ' @@ -1211,7 +1210,6 @@ Partial Class frmEintragAviso Me.Label1.Size = New System.Drawing.Size(35, 13) Me.Label1.TabIndex = 19 Me.Label1.Text = "Im/Ex" - Me.Label1.Visible = False ' 'lblErr_Uhrzeit ' diff --git a/Aviso/frmEintragAviso.resx b/Aviso/frmEintragAviso.resx index 27f42d4..a34cc12 100644 --- a/Aviso/frmEintragAviso.resx +++ b/Aviso/frmEintragAviso.resx @@ -120,94 +120,94 @@ - iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d - kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf - zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+ - fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr - N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G - AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q - /pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER - 7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK - F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA - pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL - uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx - 9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm - Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA - hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q - GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII= + iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAyVJREFUOE+d + 0ntIU1EcwPF792xqS2aaIf1T/VkEQUXZS4kSCoQoKJJwilCmVhqVpb2mZYVROs2z2uZjZW5pj5XdrJaV + vZ82dYnORKHU5bw+zl7u3l/cpf+MRo8vHDh//PjAOfwIYiIej8cPC4uYmijfnakppwavXjPReXlFSTJZ + WCifzycn534XTdO/LkKhUBS9Ii5ZrTONX79vHi+lBuwllJ2+1dA83tLR50lIkMdGREQG+wOT+SCS5PEX + LVmTpNS3Dpc8GRx8Pwy4AwPudQK2OgDf7WL6OgcctFpdne4PTOaDpFKZNDe/xrNfP9B/oxvwExtgDvs8 + CvjjCODndsA17V7bs6YPPQsXLlnuj3D5oJWrNmUePFvvPtMEWNMCmMMe9AFutAF+NADY2Au4osU7mnfF + +rWgoFjvj3D5oO3yUz+is8wtMYXOh8nVnqZzL5nuojdsq+IxY8qmvA9Vzay98AU7steAu1SqCsof4fJB + WxNODC3d86lt/pExtPGS+/KBeqZG0cjqjjxgUaaRQZlG780tGvftbarRptJSbWAoJna7PD6pzLahxI2y + jF6kfMcivRVQXTeg8lZAChOL5Dr3ZcUV6/fs7ILAkEQSHJp+sHwopdqpvfCaRQ19gMwuQBYPoJfDgKos + gI7eZ9SNT9+0iUTiIH+Ea2KPSGLevOiYfOXdTm2zS/N2aPzSIMOiURZQh4tR1/d4NUrldSgsrPy2bu36 + eLGAEAeACEIgEEkWL16XkrH7dE9JJfW5o9+u77XRNXdMn/pr6+61ZWWdaasoN3bVFh96dHHHrCpZMBn+ + W2iymTPnLIuLk1cnJu6jUlIOUJs3p1ECgTBIJBSKT6YlGyy6eHBYjkPxrjlVkdPIqIBQoAQ8Qpy6MkTX + qZoPXksuYHMOnN85VztjAvtriCtETEzPiJVUtaMF4LUchjFzDhSlzq6UBZPT/wniCp1CRqWtDtK2l3FY + DjgsJ6AsdZbBOUZP8Z/9Y6ESMiojRlJp5Z755Sj0vtIC43FJ/ef+qhAxEZ6xOshguHAIFMcugtPpkvo+ + 6n8OHqElbqdT6nC4pCzLEj8BSDXvdo3uV48AAAAASUVORK5CYII= - /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB - AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID - BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA - GQAZAwERAAIRAQMRAf/EABYAAQEBAAAAAAAAAAAAAAAAAAoACf/EACgQAAAGAgICAQMFAAAAAAAAAAEC - AwQFBgcIABESCSExEwpBQiMVJf/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAAAAAA - AAAA/9oADAMBAAIRAxEAPwBaeVMm0DDWJc2bBZoyJfq9S8ZT2brDZ5YuXLNAxkbXqhYphu3QQbNJhu1Q - Arduk3RTTTKHfiHXACDf/wAvPZA2bnDrF+B6m31xRnmgN4C85cypJZpfVlI/TgRmmORWUI3crk+Uv8o5 - SD8GBT68BmuqO3eIt6dJS7a4Gt+X4xjLUe3OFYmUzNa3EvRr9WmKp3ca6KabMgsowdAUPLxEhw6Hroeu - BtdwMXN69b5vcLRnb7WasTLWAs2WVdga5XZR4mKrNCdLb5hy0KsHmn0ms4QImcfL4ARHgA3hfT364qrR - k4zYLbHa7GGz9XimkPkjW9hqlI2mzlygkmQi0XBSLJVaDkkH7sTf1zkz4hTpeJ1RSERKALg9MGqGRdNf - U9M4yyfBStTsFpNnHJrCn2NNNG2VStXVBZSNYy5EVFkSPU2qRDOCJqGAph6AR64Ci+AWX3JWzfSe18ns - GeuhGHJlLIWZ87MMo3smaqZiqexlR2tlklE0Gx7LORD5N1Oi7H7DhgBjpESOJjE+4mJgKrF6j/k3Q1QP - RI3PGQGtXO0esRjCewqiCUGsiPkqQDjfRUDyER/d8fpwN3PTe69ruEMf5x159iQ1Gdw8XEF5sGJMpWDY - +nZayU2yE6UbN06v1D2SXlXjZ6zdOnKSjgggkZEqRDfyFJwG0cC4FwLgXA//2Q== + /9j/4AAQSkZJRgABAQEAAAAAAAD/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQIBAQEBAQICAgICAgIC + AgICAgMCAgIDAwMDAwMFBQUFBQUFBQUFBQUFBQX/2wBDAQEBAQIBAgMCAgMEBAMEBAUFBQUFBQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQX/wAARCAAZABkDAREAAhEBAxEB/8QA + FgABAQEAAAAAAAAAAAAAAAAACgAJ/8QAKBAAAAYCAgIBAwUAAAAAAAAAAQIDBAUGBwgAERIJITETCkFC + IxUl/8QAFAEBAAAAAAAAAAAAAAAAAAAAAP/EABQRAQAAAAAAAAAAAAAAAAAAAAD/2gAMAwEAAhEDEQA/ + AFp5UybQMNYlzZsFmjIl+r1LxlPZusNnli5cs0DGRteqFimG7dBBs0mG7VACt26TdFNNMod+IdcAIN// + AC89kDZucOsX4HqbfXFGeaA3gLzlzKklml9WUj9OBGaY5FZQjdyuT5S/yjlIPwYFPrwGa6o7d4i3p0lL + trga35fjGMtR7c4ViZTM1rcS9Gv1aYqndxroppsyCyjB0BQ8vESHDoeuh64G13Axc3r1vm9wtGdvtZqx + MtYCzZZV2BrldlHiYqs0J0tvmHLQqweafSazhAiZx8vgBEeADeF9PfriqtGTjNgtsdrsYbP1eKaQ+SNb + 2GqUjabOXKCSZCLRcFIslVoOSQfuxN/XOTPiFOl4nVFIREoAuD0waoZF019T0zjLJ8FK1OwWk2ccmsKf + Y000bZVK1dUFlI1jLkRUWRI9TapEM4ImoYCmHoBHrgKL4BZfclbN9J7XyewZ66EYcmUshZnzswyjeyZq + pmKp7GVHa2WSUTQbHss5EPk3U6LsfsOGAGOkRI4mMT7iYmAqsXqP+TdDVA9Ejc8ZAa1c7R6xGMJ7CqIJ + QayI+SpAON9FQPIRH93x+nA3c9N7r2u4Qx/nHXn2JDUZ3DxcQXmwYkylYNj6dlrJTbITpRs3Tq/UPZJe + VeNnrN06cpKOCCCRkSpEN/IUnAbRwLgXAuBcD//Z - /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB - AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID - BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA - GQAZAwERAAIRAQMRAf/EABYAAQEBAAAAAAAAAAAAAAAAAAoACf/EACgQAAAGAgICAQMFAAAAAAAAAAEC - AwQFBgcIABESCSExEwpBQiMVJf/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAAAAAA - AAAA/9oADAMBAAIRAxEAPwBaeVMm0DDWJc2bBZoyJfq9S8ZT2brDZ5YuXLNAxkbXqhYphu3QQbNJhu1Q - Arduk3RTTTKHfiHXACDf/wAvPZA2bnDrF+B6m31xRnmgN4C85cypJZpfVlI/TgRmmORWUI3crk+Uv8o5 - SD8GBT68BmuqO3eIt6dJS7a4Gt+X4xjLUe3OFYmUzNa3EvRr9WmKp3ca6KabMgsowdAUPLxEhw6Hroeu - BtdwMXN69b5vcLRnb7WasTLWAs2WVdga5XZR4mKrNCdLb5hy0KsHmn0ms4QImcfL4ARHgA3hfT364qrR - k4zYLbHa7GGz9XimkPkjW9hqlI2mzlygkmQi0XBSLJVaDkkH7sTf1zkz4hTpeJ1RSERKALg9MGqGRdNf - U9M4yyfBStTsFpNnHJrCn2NNNG2VStXVBZSNYy5EVFkSPU2qRDOCJqGAph6AR64Ci+AWX3JWzfSe18ns - GeuhGHJlLIWZ87MMo3smaqZiqexlR2tlklE0Gx7LORD5N1Oi7H7DhgBjpESOJjE+4mJgKrF6j/k3Q1QP - RI3PGQGtXO0esRjCewqiCUGsiPkqQDjfRUDyER/d8fpwN3PTe69ruEMf5x159iQ1Gdw8XEF5sGJMpWDY - +nZayU2yE6UbN06v1D2SXlXjZ6zdOnKSjgggkZEqRDfyFJwG0cC4FwLgXA//2Q== + /9j/4AAQSkZJRgABAQEAAAAAAAD/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQIBAQEBAQICAgICAgIC + AgICAgMCAgIDAwMDAwMFBQUFBQUFBQUFBQUFBQX/2wBDAQEBAQIBAgMCAgMEBAMEBAUFBQUFBQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQX/wAARCAAZABkDAREAAhEBAxEB/8QA + FgABAQEAAAAAAAAAAAAAAAAACgAJ/8QAKBAAAAYCAgIBAwUAAAAAAAAAAQIDBAUGBwgAERIJITETCkFC + IxUl/8QAFAEBAAAAAAAAAAAAAAAAAAAAAP/EABQRAQAAAAAAAAAAAAAAAAAAAAD/2gAMAwEAAhEDEQA/ + AFp5UybQMNYlzZsFmjIl+r1LxlPZusNnli5cs0DGRteqFimG7dBBs0mG7VACt26TdFNNMod+IdcAIN// + AC89kDZucOsX4HqbfXFGeaA3gLzlzKklml9WUj9OBGaY5FZQjdyuT5S/yjlIPwYFPrwGa6o7d4i3p0lL + trga35fjGMtR7c4ViZTM1rcS9Gv1aYqndxroppsyCyjB0BQ8vESHDoeuh64G13Axc3r1vm9wtGdvtZqx + MtYCzZZV2BrldlHiYqs0J0tvmHLQqweafSazhAiZx8vgBEeADeF9PfriqtGTjNgtsdrsYbP1eKaQ+SNb + 2GqUjabOXKCSZCLRcFIslVoOSQfuxN/XOTPiFOl4nVFIREoAuD0waoZF019T0zjLJ8FK1OwWk2ccmsKf + Y000bZVK1dUFlI1jLkRUWRI9TapEM4ImoYCmHoBHrgKL4BZfclbN9J7XyewZ66EYcmUshZnzswyjeyZq + pmKp7GVHa2WSUTQbHss5EPk3U6LsfsOGAGOkRI4mMT7iYmAqsXqP+TdDVA9Ejc8ZAa1c7R6xGMJ7CqIJ + QayI+SpAON9FQPIRH93x+nA3c9N7r2u4Qx/nHXn2JDUZ3DxcQXmwYkylYNj6dlrJTbITpRs3Tq/UPZJe + VeNnrN06cpKOCCCRkSpEN/IUnAbRwLgXAuBcD//Z - /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB - AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID - BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA - GQAZAwERAAIRAQMRAf/EABYAAQEBAAAAAAAAAAAAAAAAAAoACf/EACgQAAAGAgICAQMFAAAAAAAAAAEC - AwQFBgcIABESCSExEwpBQiMVJf/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAAAAAA - AAAA/9oADAMBAAIRAxEAPwBaeVMm0DDWJc2bBZoyJfq9S8ZT2brDZ5YuXLNAxkbXqhYphu3QQbNJhu1Q - Arduk3RTTTKHfiHXACDf/wAvPZA2bnDrF+B6m31xRnmgN4C85cypJZpfVlI/TgRmmORWUI3crk+Uv8o5 - SD8GBT68BmuqO3eIt6dJS7a4Gt+X4xjLUe3OFYmUzNa3EvRr9WmKp3ca6KabMgsowdAUPLxEhw6Hroeu - BtdwMXN69b5vcLRnb7WasTLWAs2WVdga5XZR4mKrNCdLb5hy0KsHmn0ms4QImcfL4ARHgA3hfT364qrR - k4zYLbHa7GGz9XimkPkjW9hqlI2mzlygkmQi0XBSLJVaDkkH7sTf1zkz4hTpeJ1RSERKALg9MGqGRdNf - U9M4yyfBStTsFpNnHJrCn2NNNG2VStXVBZSNYy5EVFkSPU2qRDOCJqGAph6AR64Ci+AWX3JWzfSe18ns - GeuhGHJlLIWZ87MMo3smaqZiqexlR2tlklE0Gx7LORD5N1Oi7H7DhgBjpESOJjE+4mJgKrF6j/k3Q1QP - RI3PGQGtXO0esRjCewqiCUGsiPkqQDjfRUDyER/d8fpwN3PTe69ruEMf5x159iQ1Gdw8XEF5sGJMpWDY - +nZayU2yE6UbN06v1D2SXlXjZ6zdOnKSjgggkZEqRDfyFJwG0cC4FwLgXA//2Q== + /9j/4AAQSkZJRgABAQEAAAAAAAD/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQIBAQEBAQICAgICAgIC + AgICAgMCAgIDAwMDAwMFBQUFBQUFBQUFBQUFBQX/2wBDAQEBAQIBAgMCAgMEBAMEBAUFBQUFBQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQX/wAARCAAZABkDAREAAhEBAxEB/8QA + FgABAQEAAAAAAAAAAAAAAAAACgAJ/8QAKBAAAAYCAgIBAwUAAAAAAAAAAQIDBAUGBwgAERIJITETCkFC + IxUl/8QAFAEBAAAAAAAAAAAAAAAAAAAAAP/EABQRAQAAAAAAAAAAAAAAAAAAAAD/2gAMAwEAAhEDEQA/ + AFp5UybQMNYlzZsFmjIl+r1LxlPZusNnli5cs0DGRteqFimG7dBBs0mG7VACt26TdFNNMod+IdcAIN// + AC89kDZucOsX4HqbfXFGeaA3gLzlzKklml9WUj9OBGaY5FZQjdyuT5S/yjlIPwYFPrwGa6o7d4i3p0lL + trga35fjGMtR7c4ViZTM1rcS9Gv1aYqndxroppsyCyjB0BQ8vESHDoeuh64G13Axc3r1vm9wtGdvtZqx + MtYCzZZV2BrldlHiYqs0J0tvmHLQqweafSazhAiZx8vgBEeADeF9PfriqtGTjNgtsdrsYbP1eKaQ+SNb + 2GqUjabOXKCSZCLRcFIslVoOSQfuxN/XOTPiFOl4nVFIREoAuD0waoZF019T0zjLJ8FK1OwWk2ccmsKf + Y000bZVK1dUFlI1jLkRUWRI9TapEM4ImoYCmHoBHrgKL4BZfclbN9J7XyewZ66EYcmUshZnzswyjeyZq + pmKp7GVHa2WSUTQbHss5EPk3U6LsfsOGAGOkRI4mMT7iYmAqsXqP+TdDVA9Ejc8ZAa1c7R6xGMJ7CqIJ + QayI+SpAON9FQPIRH93x+nA3c9N7r2u4Qx/nHXn2JDUZ3DxcQXmwYkylYNj6dlrJTbITpRs3Tq/UPZJe + VeNnrN06cpKOCCCRkSpEN/IUnAbRwLgXAuBcD//Z - iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d - kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf - zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+ - fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr - N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G - AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q - /pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER - 7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK - F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA - pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL - uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx - 9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm - Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA - hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q - GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII= + iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAyVJREFUOE+d + 0ntIU1EcwPF792xqS2aaIf1T/VkEQUXZS4kSCoQoKJJwilCmVhqVpb2mZYVROs2z2uZjZW5pj5XdrJaV + vZ82dYnORKHU5bw+zl7u3l/cpf+MRo8vHDh//PjAOfwIYiIej8cPC4uYmijfnakppwavXjPReXlFSTJZ + WCifzycn534XTdO/LkKhUBS9Ii5ZrTONX79vHi+lBuwllJ2+1dA83tLR50lIkMdGREQG+wOT+SCS5PEX + LVmTpNS3Dpc8GRx8Pwy4AwPudQK2OgDf7WL6OgcctFpdne4PTOaDpFKZNDe/xrNfP9B/oxvwExtgDvs8 + CvjjCODndsA17V7bs6YPPQsXLlnuj3D5oJWrNmUePFvvPtMEWNMCmMMe9AFutAF+NADY2Au4osU7mnfF + +rWgoFjvj3D5oO3yUz+is8wtMYXOh8nVnqZzL5nuojdsq+IxY8qmvA9Vzay98AU7steAu1SqCsof4fJB + WxNODC3d86lt/pExtPGS+/KBeqZG0cjqjjxgUaaRQZlG780tGvftbarRptJSbWAoJna7PD6pzLahxI2y + jF6kfMcivRVQXTeg8lZAChOL5Dr3ZcUV6/fs7ILAkEQSHJp+sHwopdqpvfCaRQ19gMwuQBYPoJfDgKos + gI7eZ9SNT9+0iUTiIH+Ea2KPSGLevOiYfOXdTm2zS/N2aPzSIMOiURZQh4tR1/d4NUrldSgsrPy2bu36 + eLGAEAeACEIgEEkWL16XkrH7dE9JJfW5o9+u77XRNXdMn/pr6+61ZWWdaasoN3bVFh96dHHHrCpZMBn+ + W2iymTPnLIuLk1cnJu6jUlIOUJs3p1ECgTBIJBSKT6YlGyy6eHBYjkPxrjlVkdPIqIBQoAQ8Qpy6MkTX + qZoPXksuYHMOnN85VztjAvtriCtETEzPiJVUtaMF4LUchjFzDhSlzq6UBZPT/wniCp1CRqWtDtK2l3FY + DjgsJ6AsdZbBOUZP8Z/9Y6ESMiojRlJp5Z755Sj0vtIC43FJ/ef+qhAxEZ6xOshguHAIFMcugtPpkvo+ + 6n8OHqElbqdT6nC4pCzLEj8BSDXvdo3uV48AAAAASUVORK5CYII= diff --git a/Aviso/frmEintragAviso.vb b/Aviso/frmEintragAviso.vb index 39fea39..a546da0 100644 --- a/Aviso/frmEintragAviso.vb +++ b/Aviso/frmEintragAviso.vb @@ -173,6 +173,10 @@ Public Class frmEintragAviso txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Code] +' - ' + [Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"}) pnl.Visible = True + + Case "ATILLA" + cboImEx.Visible = True + cboImEx.Text = "EXPORT" Case "VERAG" Label1.Visible = True cboImEx.Visible = True diff --git a/Aviso/frmHauptfenster.Designer.vb b/Aviso/frmHauptfenster.Designer.vb index a1c4d65..8037651 100644 --- a/Aviso/frmHauptfenster.Designer.vb +++ b/Aviso/frmHauptfenster.Designer.vb @@ -56,6 +56,7 @@ Partial Class frmHauptfenster Me.ZeilenInFarbeEinausToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BerechtigungenNeuLadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FenstergrößeVariabelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ATILLASENDUNGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.StandorteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AvisoTVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.InfoTextÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -322,7 +323,7 @@ Partial Class frmHauptfenster Me.btnFertig = New System.Windows.Forms.Button() Me.tabAlle = New System.Windows.Forms.TabPage() Me.tabErfasst = New System.Windows.Forms.TabPage() - Me.tbcntrAviso = New System.Windows.Forms.TabControl() + Me.tbcntrAvisoLKW = New System.Windows.Forms.TabControl() Me.tabVERIMEX = New System.Windows.Forms.TabPage() Me.tabINDONESIEN = New System.Windows.Forms.TabPage() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() @@ -331,7 +332,7 @@ Partial Class frmHauptfenster Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel1 = New System.Windows.Forms.Panel() Me.CheckBox1 = New System.Windows.Forms.CheckBox() - Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.tbcntrAvisoSND = New System.Windows.Forms.TabControl() Me.tbSndAlle = New System.Windows.Forms.TabPage() Me.tbSndOffen = New System.Windows.Forms.TabPage() Me.tbSndFreigegeben = New System.Windows.Forms.TabPage() @@ -406,12 +407,11 @@ Partial Class frmHauptfenster Me.cntVerag = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ZertifikateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem() Me.pnlLeft = New System.Windows.Forms.Panel() Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen() Me.Panel5 = New System.Windows.Forms.Panel() Me.Panel7 = New System.Windows.Forms.Panel() - Me.ATILLASENDUNGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem() Me.conMenuAviso.SuspendLayout() Me.MenuStrip1.SuspendLayout() Me.pnlDetailsRechts.SuspendLayout() @@ -433,7 +433,7 @@ Partial Class frmHauptfenster Me.pnl.SuspendLayout() CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel6.SuspendLayout() - Me.tbcntrAviso.SuspendLayout() + Me.tbcntrAvisoLKW.SuspendLayout() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout() @@ -445,7 +445,7 @@ Partial Class frmHauptfenster Me.splitMain.SuspendLayout() CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() - Me.TabControl1.SuspendLayout() + Me.tbcntrAvisoSND.SuspendLayout() Me.pnlTime.SuspendLayout() Me.pnlSearch.SuspendLayout() Me.pnlOptionen.SuspendLayout() @@ -466,7 +466,7 @@ Partial Class frmHauptfenster 'conÜbernehmen ' Me.conÜbernehmen.Name = "conÜbernehmen" - Me.conÜbernehmen.Size = New System.Drawing.Size(284, 22) + Me.conÜbernehmen.Size = New System.Drawing.Size(286, 22) Me.conÜbernehmen.Text = "Akt übernehmen" ' 'conMenuAviso @@ -474,75 +474,75 @@ Partial Class frmHauptfenster Me.conMenuAviso.ImageScalingSize = New System.Drawing.Size(24, 24) Me.conMenuAviso.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.conÜbernehmen, Me.ToolStripSeparator5, Me.conFertig, Me.ToolStripSeparator1, Me.conVorbereitet, Me.conVorgeschrieben, Me.conAnkunft, Me.conAnVerimex, Me.conAnIndonesien, Me.conFreigabe, Me.conNichtEingetroffen, Me.ToolStripSeparator2, Me.conÄndern}) Me.conMenuAviso.Name = "conMenuTage" - Me.conMenuAviso.Size = New System.Drawing.Size(285, 242) + Me.conMenuAviso.Size = New System.Drawing.Size(287, 242) ' 'ToolStripSeparator5 ' Me.ToolStripSeparator5.Name = "ToolStripSeparator5" - Me.ToolStripSeparator5.Size = New System.Drawing.Size(281, 6) + Me.ToolStripSeparator5.Size = New System.Drawing.Size(283, 6) ' 'conFertig ' Me.conFertig.Name = "conFertig" - Me.conFertig.Size = New System.Drawing.Size(284, 22) + Me.conFertig.Size = New System.Drawing.Size(286, 22) Me.conFertig.Text = "LKW ist FERTIG / nicht FERTIG" ' 'ToolStripSeparator1 ' Me.ToolStripSeparator1.Name = "ToolStripSeparator1" - Me.ToolStripSeparator1.Size = New System.Drawing.Size(281, 6) + Me.ToolStripSeparator1.Size = New System.Drawing.Size(283, 6) ' 'conVorbereitet ' Me.conVorbereitet.Name = "conVorbereitet" - Me.conVorbereitet.Size = New System.Drawing.Size(284, 22) + Me.conVorbereitet.Size = New System.Drawing.Size(286, 22) Me.conVorbereitet.Text = "auf Status VORBEREITET setzen" ' 'conVorgeschrieben ' Me.conVorgeschrieben.Name = "conVorgeschrieben" - Me.conVorgeschrieben.Size = New System.Drawing.Size(284, 22) + Me.conVorgeschrieben.Size = New System.Drawing.Size(286, 22) Me.conVorgeschrieben.Text = "auf Status VORGESCHRIEBEN setzen" ' 'conAnkunft ' Me.conAnkunft.Name = "conAnkunft" - Me.conAnkunft.Size = New System.Drawing.Size(284, 22) + Me.conAnkunft.Size = New System.Drawing.Size(286, 22) Me.conAnkunft.Text = "auf Status ANKUNFT setzen" ' 'conAnVerimex ' Me.conAnVerimex.Name = "conAnVerimex" - Me.conAnVerimex.Size = New System.Drawing.Size(284, 22) + Me.conAnVerimex.Size = New System.Drawing.Size(286, 22) Me.conAnVerimex.Text = "auf Status AN VERIMEX setzen" ' 'conAnIndonesien ' Me.conAnIndonesien.Name = "conAnIndonesien" - Me.conAnIndonesien.Size = New System.Drawing.Size(284, 22) + Me.conAnIndonesien.Size = New System.Drawing.Size(286, 22) Me.conAnIndonesien.Text = "auf Status AN INDONESIEN setzen" ' 'conFreigabe ' Me.conFreigabe.Name = "conFreigabe" - Me.conFreigabe.Size = New System.Drawing.Size(284, 22) + Me.conFreigabe.Size = New System.Drawing.Size(286, 22) Me.conFreigabe.Text = "auf Status FREIGABE setzen" ' 'conNichtEingetroffen ' Me.conNichtEingetroffen.Name = "conNichtEingetroffen" - Me.conNichtEingetroffen.Size = New System.Drawing.Size(284, 22) + Me.conNichtEingetroffen.Size = New System.Drawing.Size(286, 22) Me.conNichtEingetroffen.Text = "auf Status NICHT EINGETROFFEN setzen" ' 'ToolStripSeparator2 ' Me.ToolStripSeparator2.Name = "ToolStripSeparator2" - Me.ToolStripSeparator2.Size = New System.Drawing.Size(281, 6) + Me.ToolStripSeparator2.Size = New System.Drawing.Size(283, 6) ' 'conÄndern ' Me.conÄndern.Name = "conÄndern" - Me.conÄndern.Size = New System.Drawing.Size(284, 22) + Me.conÄndern.Size = New System.Drawing.Size(286, 22) Me.conÄndern.Text = "Eintrag ändern" ' 'MenuStrip1 @@ -604,6 +604,12 @@ Partial Class frmHauptfenster Me.FenstergrößeVariabelToolStripMenuItem.Size = New System.Drawing.Size(213, 22) Me.FenstergrößeVariabelToolStripMenuItem.Text = "Fenstergröße variabel" ' + 'ATILLASENDUNGToolStripMenuItem + ' + Me.ATILLASENDUNGToolStripMenuItem.Name = "ATILLASENDUNGToolStripMenuItem" + Me.ATILLASENDUNGToolStripMenuItem.Size = New System.Drawing.Size(213, 22) + Me.ATILLASENDUNGToolStripMenuItem.Text = "AVISO LAYOUT NEU " + ' 'StandorteToolStripMenuItem ' Me.StandorteToolStripMenuItem.Name = "StandorteToolStripMenuItem" @@ -756,43 +762,43 @@ Partial Class frmHauptfenster 'VERAGToolStripMenuItem ' Me.VERAGToolStripMenuItem.Name = "VERAGToolStripMenuItem" - Me.VERAGToolStripMenuItem.Size = New System.Drawing.Size(148, 22) + Me.VERAGToolStripMenuItem.Size = New System.Drawing.Size(149, 22) Me.VERAGToolStripMenuItem.Text = "VERAG" ' 'ATILLAToolStripMenuItem ' Me.ATILLAToolStripMenuItem.Name = "ATILLAToolStripMenuItem" - Me.ATILLAToolStripMenuItem.Size = New System.Drawing.Size(148, 22) + Me.ATILLAToolStripMenuItem.Size = New System.Drawing.Size(149, 22) Me.ATILLAToolStripMenuItem.Text = "ATILLA" ' 'IMEXToolStripMenuItem ' Me.IMEXToolStripMenuItem.Name = "IMEXToolStripMenuItem" - Me.IMEXToolStripMenuItem.Size = New System.Drawing.Size(148, 22) + Me.IMEXToolStripMenuItem.Size = New System.Drawing.Size(149, 22) Me.IMEXToolStripMenuItem.Text = "IMEX" ' 'UNISPEDToolStripMenuItem ' Me.UNISPEDToolStripMenuItem.Name = "UNISPEDToolStripMenuItem" - Me.UNISPEDToolStripMenuItem.Size = New System.Drawing.Size(148, 22) + Me.UNISPEDToolStripMenuItem.Size = New System.Drawing.Size(149, 22) Me.UNISPEDToolStripMenuItem.Text = "UNISPED" ' 'AMBARToolStripMenuItem ' Me.AMBARToolStripMenuItem.Name = "AMBARToolStripMenuItem" - Me.AMBARToolStripMenuItem.Size = New System.Drawing.Size(148, 22) + Me.AMBARToolStripMenuItem.Size = New System.Drawing.Size(149, 22) Me.AMBARToolStripMenuItem.Text = "AMBAR" ' 'FRONTOFFICEToolStripMenuItem ' Me.FRONTOFFICEToolStripMenuItem.Name = "FRONTOFFICEToolStripMenuItem" - Me.FRONTOFFICEToolStripMenuItem.Size = New System.Drawing.Size(148, 22) + Me.FRONTOFFICEToolStripMenuItem.Size = New System.Drawing.Size(149, 22) Me.FRONTOFFICEToolStripMenuItem.Text = "FRONTOFFICE" ' 'VERIMEXToolStripMenuItem ' Me.VERIMEXToolStripMenuItem.Name = "VERIMEXToolStripMenuItem" - Me.VERIMEXToolStripMenuItem.Size = New System.Drawing.Size(148, 22) + Me.VERIMEXToolStripMenuItem.Size = New System.Drawing.Size(149, 22) Me.VERIMEXToolStripMenuItem.Text = "VERIMEX" ' 'StandortWechselnToolStripMenuItem @@ -856,19 +862,19 @@ Partial Class frmHauptfenster 'DeutschToolStripMenuItem ' Me.DeutschToolStripMenuItem.Name = "DeutschToolStripMenuItem" - Me.DeutschToolStripMenuItem.Size = New System.Drawing.Size(118, 22) + Me.DeutschToolStripMenuItem.Size = New System.Drawing.Size(119, 22) Me.DeutschToolStripMenuItem.Text = "Deutsch" ' 'EnglishToolStripMenuItem ' Me.EnglishToolStripMenuItem.Name = "EnglishToolStripMenuItem" - Me.EnglishToolStripMenuItem.Size = New System.Drawing.Size(118, 22) + Me.EnglishToolStripMenuItem.Size = New System.Drawing.Size(119, 22) Me.EnglishToolStripMenuItem.Text = "Englisch" ' 'TürkischToolStripMenuItem ' Me.TürkischToolStripMenuItem.Name = "TürkischToolStripMenuItem" - Me.TürkischToolStripMenuItem.Size = New System.Drawing.Size(118, 22) + Me.TürkischToolStripMenuItem.Size = New System.Drawing.Size(119, 22) Me.TürkischToolStripMenuItem.Text = "Türkisch" ' 'StandarddruckerWechselnToolStripMenuItem @@ -913,26 +919,26 @@ Partial Class frmHauptfenster 'GenerelleGestellungenDurchsuchenToolStripMenuItem ' Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Name = "GenerelleGestellungenDurchsuchenToolStripMenuItem" - Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Text = "Generelle Gestellungen durchsuchen" Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Visible = False ' 'KundenVonFremdenSpeditionenToolStripMenuItem ' Me.KundenVonFremdenSpeditionenToolStripMenuItem.Name = "KundenVonFremdenSpeditionenToolStripMenuItem" - Me.KundenVonFremdenSpeditionenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.KundenVonFremdenSpeditionenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.KundenVonFremdenSpeditionenToolStripMenuItem.Text = "Kunden von fremden Speditionen" ' 'KundenverwaltungToolStripMenuItem ' Me.KundenverwaltungToolStripMenuItem.Name = "KundenverwaltungToolStripMenuItem" - Me.KundenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.KundenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.KundenverwaltungToolStripMenuItem.Text = "Kundenverwaltung" ' 'MDMParkplatzkartenToolStripMenuItem ' Me.MDMParkplatzkartenToolStripMenuItem.Name = "MDMParkplatzkartenToolStripMenuItem" - Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.MDMParkplatzkartenToolStripMenuItem.Text = "MDM - Parkplatzkarten" ' 'SMSSendenToolStripMenuItem @@ -940,7 +946,7 @@ Partial Class frmHauptfenster Me.SMSSendenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueSMSSendenToolStripMenuItem, Me.GesendeteSMSToolStripMenuItem}) Me.SMSSendenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.handy2 Me.SMSSendenToolStripMenuItem.Name = "SMSSendenToolStripMenuItem" - Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.SMSSendenToolStripMenuItem.Text = "SMS" ' 'NeueSMSSendenToolStripMenuItem @@ -958,51 +964,51 @@ Partial Class frmHauptfenster 'ZollprogrammeNachEORIDurchsuchenToolStripMenuItem ' Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Name = "ZollprogrammeNachEORIDurchsuchenToolStripMenuItem" - Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Text = "Zollprogramme nach EORI durchsuchen" ' 'MRNBarcodedruckToolStripMenuItem ' Me.MRNBarcodedruckToolStripMenuItem.Name = "MRNBarcodedruckToolStripMenuItem" - Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.MRNBarcodedruckToolStripMenuItem.Text = "MRN Barcodedruck" ' 'ToolStripSeparator12 ' Me.ToolStripSeparator12.Name = "ToolStripSeparator12" - Me.ToolStripSeparator12.Size = New System.Drawing.Size(388, 6) + Me.ToolStripSeparator12.Size = New System.Drawing.Size(380, 6) ' 'tool_BRGXLS ' Me.tool_BRGXLS.Name = "tool_BRGXLS" - Me.tool_BRGXLS.Size = New System.Drawing.Size(391, 30) + Me.tool_BRGXLS.Size = New System.Drawing.Size(383, 22) Me.tool_BRGXLS.Text = "Bürgschaften Excel" ' 'ToolStripMenuItem4 ' Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" - Me.ToolStripMenuItem4.Size = New System.Drawing.Size(391, 30) + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem4.Text = "DE | Gesamtsicherheit VERAG GmbH - Excel" Me.ToolStripMenuItem4.Visible = False ' 'ToolStripMenuItem5 ' Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" - Me.ToolStripMenuItem5.Size = New System.Drawing.Size(391, 30) + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem5.Text = "AT | Gesamtsicherheit VERAG AG - Excel" Me.ToolStripMenuItem5.Visible = False ' 'BürgschaftenExcelToolStripMenuItem ' Me.BürgschaftenExcelToolStripMenuItem.Name = "BürgschaftenExcelToolStripMenuItem" - Me.BürgschaftenExcelToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.BürgschaftenExcelToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.BürgschaftenExcelToolStripMenuItem.Text = "AT | Gesamtsicherheit VERAG Customs Service - Excel" Me.BürgschaftenExcelToolStripMenuItem.Visible = False ' 'ToolStripMenuItem6 ' Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" - Me.ToolStripMenuItem6.Size = New System.Drawing.Size(391, 30) + Me.ToolStripMenuItem6.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem6.Text = "AT | Gesamtsicherheit IMEX Customs Service GmbH - Excel" Me.ToolStripMenuItem6.Visible = False ' @@ -1010,69 +1016,69 @@ Partial Class frmHauptfenster ' Me.GesamtsicherheitenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATVeragAGToolStripMenuItem, Me.ATImexCSToolStripMenuItem, Me.ATVeragCSToolStripMenuItem, Me.DEVeragGmbHToolStripMenuItem, Me.ATUnispedGmbHToolStripMenuItem, Me.DEAmbarToolStripMenuItem}) Me.GesamtsicherheitenToolStripMenuItem.Name = "GesamtsicherheitenToolStripMenuItem" - Me.GesamtsicherheitenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.GesamtsicherheitenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.GesamtsicherheitenToolStripMenuItem.Text = "Gesamtsicherheiten" Me.GesamtsicherheitenToolStripMenuItem.Visible = False ' 'ATVeragAGToolStripMenuItem ' Me.ATVeragAGToolStripMenuItem.Name = "ATVeragAGToolStripMenuItem" - Me.ATVeragAGToolStripMenuItem.Size = New System.Drawing.Size(178, 22) + Me.ATVeragAGToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.ATVeragAGToolStripMenuItem.Text = "AT | Verag AG" ' 'ATImexCSToolStripMenuItem ' Me.ATImexCSToolStripMenuItem.Name = "ATImexCSToolStripMenuItem" - Me.ATImexCSToolStripMenuItem.Size = New System.Drawing.Size(178, 22) + Me.ATImexCSToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.ATImexCSToolStripMenuItem.Text = "AT | IMEX CS GmbH" ' 'ATVeragCSToolStripMenuItem ' Me.ATVeragCSToolStripMenuItem.Name = "ATVeragCSToolStripMenuItem" - Me.ATVeragCSToolStripMenuItem.Size = New System.Drawing.Size(178, 22) + Me.ATVeragCSToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.ATVeragCSToolStripMenuItem.Text = "AT | Verag CS" ' 'DEVeragGmbHToolStripMenuItem ' Me.DEVeragGmbHToolStripMenuItem.Name = "DEVeragGmbHToolStripMenuItem" - Me.DEVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(178, 22) + Me.DEVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.DEVeragGmbHToolStripMenuItem.Text = "DE | Verag GmbH" ' 'ATUnispedGmbHToolStripMenuItem ' Me.ATUnispedGmbHToolStripMenuItem.Name = "ATUnispedGmbHToolStripMenuItem" - Me.ATUnispedGmbHToolStripMenuItem.Size = New System.Drawing.Size(178, 22) + Me.ATUnispedGmbHToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.ATUnispedGmbHToolStripMenuItem.Text = "AT | Unisped GmbH" ' 'DEAmbarToolStripMenuItem ' Me.DEAmbarToolStripMenuItem.Name = "DEAmbarToolStripMenuItem" - Me.DEAmbarToolStripMenuItem.Size = New System.Drawing.Size(178, 22) + Me.DEAmbarToolStripMenuItem.Size = New System.Drawing.Size(179, 22) Me.DEAmbarToolStripMenuItem.Text = "DE | Ambar GmbH" Me.DEAmbarToolStripMenuItem.Visible = False ' 'ToolStripMenuItem10 ' Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10" - Me.ToolStripMenuItem10.Size = New System.Drawing.Size(391, 30) + Me.ToolStripMenuItem10.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem10.Text = "TICKET Parkplatz" ' 'TICKETWaidhausToolStripMenuItem ' Me.TICKETWaidhausToolStripMenuItem.Name = "TICKETWaidhausToolStripMenuItem" - Me.TICKETWaidhausToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.TICKETWaidhausToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.TICKETWaidhausToolStripMenuItem.Text = "Infoschreiben Parkplatz" ' 'ToolStripSeparator10 ' Me.ToolStripSeparator10.Name = "ToolStripSeparator10" - Me.ToolStripSeparator10.Size = New System.Drawing.Size(388, 6) + Me.ToolStripSeparator10.Size = New System.Drawing.Size(380, 6) ' 'DAKOSYToolStripMenuItem ' Me.DAKOSYToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StammreferenzenVerwaltenToolStripMenuItem}) Me.DAKOSYToolStripMenuItem.Name = "DAKOSYToolStripMenuItem" - Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.DAKOSYToolStripMenuItem.Text = "DAKOSY" ' 'StammreferenzenVerwaltenToolStripMenuItem @@ -1084,69 +1090,69 @@ Partial Class frmHauptfenster 'ToolStripSeparator23 ' Me.ToolStripSeparator23.Name = "ToolStripSeparator23" - Me.ToolStripSeparator23.Size = New System.Drawing.Size(388, 6) + Me.ToolStripSeparator23.Size = New System.Drawing.Size(380, 6) ' 'toolOriginalATR ' Me.toolOriginalATR.Image = Global.AVISO.My.Resources.Resources.atr Me.toolOriginalATR.Name = "toolOriginalATR" - Me.toolOriginalATR.Size = New System.Drawing.Size(391, 30) + Me.toolOriginalATR.Size = New System.Drawing.Size(383, 22) Me.toolOriginalATR.Text = "Original-ATR" ' 'SDLAbholaufträgeToolStripMenuItem ' Me.SDLAbholaufträgeToolStripMenuItem.Name = "SDLAbholaufträgeToolStripMenuItem" - Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.SDLAbholaufträgeToolStripMenuItem.Text = "SDL Abholaufträge" ' 'ToolStripMenuItem13 ' Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13" - Me.ToolStripMenuItem13.Size = New System.Drawing.Size(391, 30) + Me.ToolStripMenuItem13.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem13.Text = "Postversand (Einschreiben)" ' 'VorauskassenToolStripMenuItem ' Me.VorauskassenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.vorauszahlung Me.VorauskassenToolStripMenuItem.Name = "VorauskassenToolStripMenuItem" - Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.VorauskassenToolStripMenuItem.Text = "Vorauskassen" ' 'ToolStripSeparator11 ' Me.ToolStripSeparator11.Name = "ToolStripSeparator11" - Me.ToolStripSeparator11.Size = New System.Drawing.Size(388, 6) + Me.ToolStripSeparator11.Size = New System.Drawing.Size(380, 6) ' 'EssensbestellungenToolStripMenuItem ' Me.EssensbestellungenToolStripMenuItem.Name = "EssensbestellungenToolStripMenuItem" - Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.EssensbestellungenToolStripMenuItem.Text = "Essensbestellungen" Me.EssensbestellungenToolStripMenuItem.Visible = False ' 'AdministrationEssensbestellungenToolStripMenuItem ' Me.AdministrationEssensbestellungenToolStripMenuItem.Name = "AdministrationEssensbestellungenToolStripMenuItem" - Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.AdministrationEssensbestellungenToolStripMenuItem.Text = "Administration Essensbestellungen" Me.AdministrationEssensbestellungenToolStripMenuItem.Visible = False ' 'ToolStripSeparator24 ' Me.ToolStripSeparator24.Name = "ToolStripSeparator24" - Me.ToolStripSeparator24.Size = New System.Drawing.Size(388, 6) + Me.ToolStripSeparator24.Size = New System.Drawing.Size(380, 6) ' 'WarenorteToolStripMenuItem ' Me.WarenorteToolStripMenuItem.Name = "WarenorteToolStripMenuItem" - Me.WarenorteToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.WarenorteToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.WarenorteToolStripMenuItem.Text = "Warenorte" ' 'DatevBuchungsexportToolStripMenuItem ' Me.DatevBuchungsexportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EMAILToolStripMenuItem, Me.FTPToolStripMenuItem}) Me.DatevBuchungsexportToolStripMenuItem.Name = "DatevBuchungsexportToolStripMenuItem" - Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.DatevBuchungsexportToolStripMenuItem.Text = "Datev Buchungsexport" Me.DatevBuchungsexportToolStripMenuItem.Visible = False ' @@ -1165,13 +1171,13 @@ Partial Class frmHauptfenster 'APIToolStripMenuItem ' Me.APIToolStripMenuItem.Name = "APIToolStripMenuItem" - Me.APIToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.APIToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.APIToolStripMenuItem.Text = "API" ' 'FIBUSachkontenToolStripMenuItem ' Me.FIBUSachkontenToolStripMenuItem.Name = "FIBUSachkontenToolStripMenuItem" - Me.FIBUSachkontenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.FIBUSachkontenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.FIBUSachkontenToolStripMenuItem.Text = "FIBU Sachkonten" Me.FIBUSachkontenToolStripMenuItem.Visible = False ' @@ -1388,31 +1394,31 @@ Partial Class frmHauptfenster 'ToolStripMenuItem8 ' Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8" - Me.ToolStripMenuItem8.Size = New System.Drawing.Size(243, 22) + Me.ToolStripMenuItem8.Size = New System.Drawing.Size(244, 22) Me.ToolStripMenuItem8.Text = "Annahmeblatt IMPORT DE / TR" ' 'ToolStripMenuItem9 ' Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9" - Me.ToolStripMenuItem9.Size = New System.Drawing.Size(243, 22) + Me.ToolStripMenuItem9.Size = New System.Drawing.Size(244, 22) Me.ToolStripMenuItem9.Text = "Annahmeblatt EXPORT DE / TR" ' 'AnnahmeblattIMPORTToolStripMenuItem ' Me.AnnahmeblattIMPORTToolStripMenuItem.Name = "AnnahmeblattIMPORTToolStripMenuItem" - Me.AnnahmeblattIMPORTToolStripMenuItem.Size = New System.Drawing.Size(243, 22) + Me.AnnahmeblattIMPORTToolStripMenuItem.Size = New System.Drawing.Size(244, 22) Me.AnnahmeblattIMPORTToolStripMenuItem.Text = "Annahmeblatt IMPORT DE / SRB" ' 'AnnahmeblattEXPORTToolStripMenuItem ' Me.AnnahmeblattEXPORTToolStripMenuItem.Name = "AnnahmeblattEXPORTToolStripMenuItem" - Me.AnnahmeblattEXPORTToolStripMenuItem.Size = New System.Drawing.Size(243, 22) + Me.AnnahmeblattEXPORTToolStripMenuItem.Size = New System.Drawing.Size(244, 22) Me.AnnahmeblattEXPORTToolStripMenuItem.Text = "Annahmeblatt EXPORT DE / SRB" ' 'ChecklisteVerwahrlagerToolStripMenuItem ' Me.ChecklisteVerwahrlagerToolStripMenuItem.Name = "ChecklisteVerwahrlagerToolStripMenuItem" - Me.ChecklisteVerwahrlagerToolStripMenuItem.Size = New System.Drawing.Size(243, 22) + Me.ChecklisteVerwahrlagerToolStripMenuItem.Size = New System.Drawing.Size(244, 22) Me.ChecklisteVerwahrlagerToolStripMenuItem.Text = "Checkliste Verwahrlager" ' 'ToolStripSeparator13 @@ -1548,7 +1554,7 @@ Partial Class frmHauptfenster ' Me.BREXITToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GVMSToolStripMenuItem, Me.GVMSUKIMportToolStripMenuItem, Me.GVMSBeschreibungToolStripMenuItem, Me.ToolStripSeparator14, Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem, Me.TicketIBFBeschreibungToolStripMenuItem, Me.IBFStatusToolStripMenuItem, Me.ToolStripSeparator15, Me.FREnveloppeSmartBorderToolStripMenuItem, Me.ToolStripSeparator16, Me.PBNIrelandFähreToolStripMenuItem, Me.ToolStripSeparator20, Me.WARENORTToolStripMenuItem, Me.ToolStripMenuItem14, Me.ToolStripSeparator18, Me.EORIUKGeneriertenToolStripMenuItem, Me.KAPKentAccessPermitToolStripMenuItem}) Me.BREXITToolStripMenuItem.Name = "BREXITToolStripMenuItem" - Me.BREXITToolStripMenuItem.Size = New System.Drawing.Size(55, 16) + Me.BREXITToolStripMenuItem.Size = New System.Drawing.Size(56, 16) Me.BREXITToolStripMenuItem.Text = "BREXIT" Me.BREXITToolStripMenuItem.Visible = False ' @@ -1556,147 +1562,147 @@ Partial Class frmHauptfenster ' Me.GVMSToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.GVMSToolStripMenuItem.Name = "GVMSToolStripMenuItem" - Me.GVMSToolStripMenuItem.Size = New System.Drawing.Size(248, 22) + Me.GVMSToolStripMenuItem.Size = New System.Drawing.Size(249, 22) Me.GVMSToolStripMenuItem.Text = "GVMS" ' 'GVMSUKIMportToolStripMenuItem ' Me.GVMSUKIMportToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.GVMSUKIMportToolStripMenuItem.Name = "GVMSUKIMportToolStripMenuItem" - Me.GVMSUKIMportToolStripMenuItem.Size = New System.Drawing.Size(248, 22) + Me.GVMSUKIMportToolStripMenuItem.Size = New System.Drawing.Size(249, 22) Me.GVMSUKIMportToolStripMenuItem.Text = "GVMS (UK Import)" ' 'GVMSBeschreibungToolStripMenuItem ' Me.GVMSBeschreibungToolStripMenuItem.Enabled = False Me.GVMSBeschreibungToolStripMenuItem.Name = "GVMSBeschreibungToolStripMenuItem" - Me.GVMSBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(248, 22) + Me.GVMSBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(249, 22) Me.GVMSBeschreibungToolStripMenuItem.Text = "GVMS Beschreibung" ' 'ToolStripSeparator14 ' Me.ToolStripSeparator14.Name = "ToolStripSeparator14" - Me.ToolStripSeparator14.Size = New System.Drawing.Size(245, 6) + Me.ToolStripSeparator14.Size = New System.Drawing.Size(246, 6) ' 'TicketIBFInlandBorderFacilitiesToolStripMenuItem ' Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Name = "TicketIBFInlandBorderFacilitiesToolStripMenuItem" - Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Size = New System.Drawing.Size(248, 22) + Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Size = New System.Drawing.Size(249, 22) Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Text = "Ticket IBF (InlandBorderFacilities)" ' 'TicketIBFBeschreibungToolStripMenuItem ' Me.TicketIBFBeschreibungToolStripMenuItem.Name = "TicketIBFBeschreibungToolStripMenuItem" - Me.TicketIBFBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(248, 22) + Me.TicketIBFBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(249, 22) Me.TicketIBFBeschreibungToolStripMenuItem.Text = "Ticket IBF Beschreibung" ' 'IBFStatusToolStripMenuItem ' Me.IBFStatusToolStripMenuItem.Name = "IBFStatusToolStripMenuItem" - Me.IBFStatusToolStripMenuItem.Size = New System.Drawing.Size(248, 22) + Me.IBFStatusToolStripMenuItem.Size = New System.Drawing.Size(249, 22) Me.IBFStatusToolStripMenuItem.Text = "IBF Status" ' 'ToolStripSeparator15 ' Me.ToolStripSeparator15.Name = "ToolStripSeparator15" - Me.ToolStripSeparator15.Size = New System.Drawing.Size(245, 6) + Me.ToolStripSeparator15.Size = New System.Drawing.Size(246, 6) ' 'FREnveloppeSmartBorderToolStripMenuItem ' Me.FREnveloppeSmartBorderToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.FREnveloppeSmartBorderToolStripMenuItem.Name = "FREnveloppeSmartBorderToolStripMenuItem" - Me.FREnveloppeSmartBorderToolStripMenuItem.Size = New System.Drawing.Size(248, 22) + Me.FREnveloppeSmartBorderToolStripMenuItem.Size = New System.Drawing.Size(249, 22) Me.FREnveloppeSmartBorderToolStripMenuItem.Text = "FR: Enveloppe (SmartBorder)" ' 'ToolStripSeparator16 ' Me.ToolStripSeparator16.Name = "ToolStripSeparator16" - Me.ToolStripSeparator16.Size = New System.Drawing.Size(245, 6) + Me.ToolStripSeparator16.Size = New System.Drawing.Size(246, 6) ' 'PBNIrelandFähreToolStripMenuItem ' Me.PBNIrelandFähreToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.PBNIrelandFähreToolStripMenuItem.Name = "PBNIrelandFähreToolStripMenuItem" - Me.PBNIrelandFähreToolStripMenuItem.Size = New System.Drawing.Size(248, 22) + Me.PBNIrelandFähreToolStripMenuItem.Size = New System.Drawing.Size(249, 22) Me.PBNIrelandFähreToolStripMenuItem.Text = "PBN (Ireland Fähre)" ' 'ToolStripSeparator20 ' Me.ToolStripSeparator20.Name = "ToolStripSeparator20" - Me.ToolStripSeparator20.Size = New System.Drawing.Size(245, 6) + Me.ToolStripSeparator20.Size = New System.Drawing.Size(246, 6) ' 'WARENORTToolStripMenuItem ' Me.WARENORTToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATFormularZa282ToolStripMenuItem, Me.ATInfoToolStripMenuItem, Me.ToolStripSeparator17, Me.DEFormular0442ToolStripMenuItem, Me.DEInfoToolStripMenuItem}) Me.WARENORTToolStripMenuItem.Name = "WARENORTToolStripMenuItem" - Me.WARENORTToolStripMenuItem.Size = New System.Drawing.Size(248, 22) + Me.WARENORTToolStripMenuItem.Size = New System.Drawing.Size(249, 22) Me.WARENORTToolStripMenuItem.Text = "REX" ' 'ATFormularZa282ToolStripMenuItem ' Me.ATFormularZa282ToolStripMenuItem.Name = "ATFormularZa282ToolStripMenuItem" - Me.ATFormularZa282ToolStripMenuItem.Size = New System.Drawing.Size(172, 22) + Me.ATFormularZa282ToolStripMenuItem.Size = New System.Drawing.Size(173, 22) Me.ATFormularZa282ToolStripMenuItem.Text = "AT Formular Za278" ' 'ATInfoToolStripMenuItem ' Me.ATInfoToolStripMenuItem.Name = "ATInfoToolStripMenuItem" - Me.ATInfoToolStripMenuItem.Size = New System.Drawing.Size(172, 22) + Me.ATInfoToolStripMenuItem.Size = New System.Drawing.Size(173, 22) Me.ATInfoToolStripMenuItem.Text = "AT Info" ' 'ToolStripSeparator17 ' Me.ToolStripSeparator17.Name = "ToolStripSeparator17" - Me.ToolStripSeparator17.Size = New System.Drawing.Size(169, 6) + Me.ToolStripSeparator17.Size = New System.Drawing.Size(170, 6) ' 'DEFormular0442ToolStripMenuItem ' Me.DEFormular0442ToolStripMenuItem.Name = "DEFormular0442ToolStripMenuItem" - Me.DEFormular0442ToolStripMenuItem.Size = New System.Drawing.Size(172, 22) + Me.DEFormular0442ToolStripMenuItem.Size = New System.Drawing.Size(173, 22) Me.DEFormular0442ToolStripMenuItem.Text = "DE Formular 0442" ' 'DEInfoToolStripMenuItem ' Me.DEInfoToolStripMenuItem.Name = "DEInfoToolStripMenuItem" - Me.DEInfoToolStripMenuItem.Size = New System.Drawing.Size(172, 22) + Me.DEInfoToolStripMenuItem.Size = New System.Drawing.Size(173, 22) Me.DEInfoToolStripMenuItem.Text = "DE Info" ' 'ToolStripMenuItem14 ' Me.ToolStripMenuItem14.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem16, Me.ToolStripSeparator19}) Me.ToolStripMenuItem14.Name = "ToolStripMenuItem14" - Me.ToolStripMenuItem14.Size = New System.Drawing.Size(248, 22) + Me.ToolStripMenuItem14.Size = New System.Drawing.Size(249, 22) Me.ToolStripMenuItem14.Text = "WARENORT" ' 'ToolStripMenuItem16 ' Me.ToolStripMenuItem16.Name = "ToolStripMenuItem16" - Me.ToolStripMenuItem16.Size = New System.Drawing.Size(172, 22) + Me.ToolStripMenuItem16.Size = New System.Drawing.Size(173, 22) Me.ToolStripMenuItem16.Text = "AT Formular Za283" ' 'ToolStripSeparator19 ' Me.ToolStripSeparator19.Name = "ToolStripSeparator19" - Me.ToolStripSeparator19.Size = New System.Drawing.Size(169, 6) + Me.ToolStripSeparator19.Size = New System.Drawing.Size(170, 6) ' 'ToolStripSeparator18 ' Me.ToolStripSeparator18.Name = "ToolStripSeparator18" - Me.ToolStripSeparator18.Size = New System.Drawing.Size(245, 6) + Me.ToolStripSeparator18.Size = New System.Drawing.Size(246, 6) ' 'EORIUKGeneriertenToolStripMenuItem ' Me.EORIUKGeneriertenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.fragezeichen1 Me.EORIUKGeneriertenToolStripMenuItem.Name = "EORIUKGeneriertenToolStripMenuItem" - Me.EORIUKGeneriertenToolStripMenuItem.Size = New System.Drawing.Size(248, 22) + Me.EORIUKGeneriertenToolStripMenuItem.Size = New System.Drawing.Size(249, 22) Me.EORIUKGeneriertenToolStripMenuItem.Text = "EORI UK generierten" ' 'KAPKentAccessPermitToolStripMenuItem ' Me.KAPKentAccessPermitToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.fragezeichen Me.KAPKentAccessPermitToolStripMenuItem.Name = "KAPKentAccessPermitToolStripMenuItem" - Me.KAPKentAccessPermitToolStripMenuItem.Size = New System.Drawing.Size(248, 22) + Me.KAPKentAccessPermitToolStripMenuItem.Size = New System.Drawing.Size(249, 22) Me.KAPKentAccessPermitToolStripMenuItem.Text = "KAP (KentAccessPermit)" ' 'btnWoche @@ -1757,7 +1763,7 @@ Partial Class frmHauptfenster Me.pnlDetailsRechts.Location = New System.Drawing.Point(0, 0) Me.pnlDetailsRechts.MinimumSize = New System.Drawing.Size(200, 0) Me.pnlDetailsRechts.Name = "pnlDetailsRechts" - Me.pnlDetailsRechts.Size = New System.Drawing.Size(547, 609) + Me.pnlDetailsRechts.Size = New System.Drawing.Size(447, 609) Me.pnlDetailsRechts.TabIndex = 0 ' 'lblMitarbeiter @@ -1767,7 +1773,7 @@ Partial Class frmHauptfenster Me.lblMitarbeiter.BackColor = System.Drawing.SystemColors.Control Me.lblMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.lblMitarbeiter.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) - Me.lblMitarbeiter.Location = New System.Drawing.Point(366, -52) + Me.lblMitarbeiter.Location = New System.Drawing.Point(366, -50) Me.lblMitarbeiter.Name = "lblMitarbeiter" Me.lblMitarbeiter.Size = New System.Drawing.Size(126, 13) Me.lblMitarbeiter.TabIndex = 1 @@ -2319,7 +2325,7 @@ Partial Class frmHauptfenster 'SplitContainer2.Panel2 ' Me.SplitContainer2.Panel2.Controls.Add(Me.SplitContainer3) - Me.SplitContainer2.Size = New System.Drawing.Size(496, 300) + Me.SplitContainer2.Size = New System.Drawing.Size(596, 300) Me.SplitContainer2.SplitterDistance = 164 Me.SplitContainer2.SplitterWidth = 1 Me.SplitContainer2.TabIndex = 0 @@ -2480,12 +2486,12 @@ Partial Class frmHauptfenster Me.cntxtAtilla.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxtAtilla.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem17}) Me.cntxtAtilla.Name = "cntxt" - Me.cntxtAtilla.Size = New System.Drawing.Size(111, 26) + Me.cntxtAtilla.Size = New System.Drawing.Size(112, 26) ' 'ToolStripMenuItem17 ' Me.ToolStripMenuItem17.Name = "ToolStripMenuItem17" - Me.ToolStripMenuItem17.Size = New System.Drawing.Size(110, 22) + Me.ToolStripMenuItem17.Size = New System.Drawing.Size(111, 22) Me.ToolStripMenuItem17.Text = "ATILLA" ' 'Button7 @@ -2542,8 +2548,8 @@ Partial Class frmHauptfenster 'SplitContainer3.Panel2 ' Me.SplitContainer3.Panel2.Controls.Add(Me.pnl) - Me.SplitContainer3.Size = New System.Drawing.Size(331, 300) - Me.SplitContainer3.SplitterDistance = 77 + Me.SplitContainer3.Size = New System.Drawing.Size(431, 300) + Me.SplitContainer3.SplitterDistance = 99 Me.SplitContainer3.TabIndex = 3 ' 'UsrCntlBenachrichtigungen1 @@ -2552,7 +2558,7 @@ Partial Class frmHauptfenster Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0) Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1" - Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(77, 300) + Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(99, 300) Me.UsrCntlBenachrichtigungen1.TabIndex = 0 ' 'pnl @@ -2563,7 +2569,7 @@ Partial Class frmHauptfenster 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(250, 300) + Me.pnl.Size = New System.Drawing.Size(328, 300) Me.pnl.TabIndex = 0 ' 'Button10 @@ -2621,7 +2627,7 @@ Partial Class frmHauptfenster Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.gridMyAviso.RowHeadersVisible = False Me.gridMyAviso.RowHeadersWidth = 62 - Me.gridMyAviso.Size = New System.Drawing.Size(250, 279) + Me.gridMyAviso.Size = New System.Drawing.Size(328, 279) Me.gridMyAviso.TabIndex = 0 ' 'Panel6 @@ -2641,7 +2647,7 @@ Partial Class frmHauptfenster Me.Panel6.Dock = System.Windows.Forms.DockStyle.Top Me.Panel6.Location = New System.Drawing.Point(0, 0) Me.Panel6.Name = "Panel6" - Me.Panel6.Size = New System.Drawing.Size(250, 21) + Me.Panel6.Size = New System.Drawing.Size(328, 21) Me.Panel6.TabIndex = 1 ' 'cbx_My_Brexit @@ -2649,7 +2655,7 @@ Partial Class frmHauptfenster Me.cbx_My_Brexit.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cbx_My_Brexit.AutoSize = True Me.cbx_My_Brexit.ForeColor = System.Drawing.Color.White - Me.cbx_My_Brexit.Location = New System.Drawing.Point(-329, 3) + Me.cbx_My_Brexit.Location = New System.Drawing.Point(-247, 3) Me.cbx_My_Brexit.Name = "cbx_My_Brexit" Me.cbx_My_Brexit.Size = New System.Drawing.Size(65, 17) Me.cbx_My_Brexit.TabIndex = 28 @@ -2661,7 +2667,7 @@ Partial Class frmHauptfenster ' Me.btnColor.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnColor.BackColor = System.Drawing.Color.White - Me.btnColor.Location = New System.Drawing.Point(159, -1) + Me.btnColor.Location = New System.Drawing.Point(241, -1) Me.btnColor.Name = "btnColor" Me.btnColor.Size = New System.Drawing.Size(36, 23) Me.btnColor.TabIndex = 27 @@ -2673,7 +2679,7 @@ Partial Class frmHauptfenster Me.lblMeineAviso.AutoSize = True Me.lblMeineAviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblMeineAviso.ForeColor = System.Drawing.Color.White - Me.lblMeineAviso.Location = New System.Drawing.Point(29, 5) + Me.lblMeineAviso.Location = New System.Drawing.Point(21, 5) Me.lblMeineAviso.Name = "lblMeineAviso" Me.lblMeineAviso.Size = New System.Drawing.Size(113, 13) Me.lblMeineAviso.TabIndex = 0 @@ -2691,7 +2697,7 @@ Partial Class frmHauptfenster Me.cboMy_Grenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.cboMy_Grenzstelle.FormattingEnabled = True - Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(-125, 1) + Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(-43, 1) Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle" Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 21) Me.cboMy_Grenzstelle.TabIndex = 26 @@ -2701,7 +2707,7 @@ Partial Class frmHauptfenster Me.lblMySnd_Grenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblMySnd_Grenzstelle.AutoSize = True Me.lblMySnd_Grenzstelle.ForeColor = System.Drawing.Color.White - Me.lblMySnd_Grenzstelle.Location = New System.Drawing.Point(-193, 4) + Me.lblMySnd_Grenzstelle.Location = New System.Drawing.Point(-111, 4) Me.lblMySnd_Grenzstelle.Name = "lblMySnd_Grenzstelle" Me.lblMySnd_Grenzstelle.Size = New System.Drawing.Size(62, 13) Me.lblMySnd_Grenzstelle.TabIndex = 25 @@ -2712,7 +2718,7 @@ Partial Class frmHauptfenster Me.cbx_My_LKW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cbx_My_LKW.AutoSize = True Me.cbx_My_LKW.ForeColor = System.Drawing.Color.White - Me.cbx_My_LKW.Location = New System.Drawing.Point(-249, 3) + Me.cbx_My_LKW.Location = New System.Drawing.Point(-167, 3) Me.cbx_My_LKW.Name = "cbx_My_LKW" Me.cbx_My_LKW.Size = New System.Drawing.Size(50, 17) Me.cbx_My_LKW.TabIndex = 24 @@ -2726,7 +2732,7 @@ Partial Class frmHauptfenster Me.cboMy_QS.Checked = True Me.cboMy_QS.CheckState = System.Windows.Forms.CheckState.Indeterminate Me.cboMy_QS.ForeColor = System.Drawing.Color.White - Me.cboMy_QS.Location = New System.Drawing.Point(207, 3) + Me.cboMy_QS.Location = New System.Drawing.Point(289, 3) Me.cboMy_QS.Name = "cboMy_QS" Me.cboMy_QS.Size = New System.Drawing.Size(15, 14) Me.cboMy_QS.TabIndex = 23 @@ -2740,7 +2746,7 @@ Partial Class frmHauptfenster Me.cboMy_VB.Checked = True Me.cboMy_VB.CheckState = System.Windows.Forms.CheckState.Indeterminate Me.cboMy_VB.ForeColor = System.Drawing.Color.White - Me.cboMy_VB.Location = New System.Drawing.Point(226, 3) + Me.cboMy_VB.Location = New System.Drawing.Point(308, 3) Me.cboMy_VB.Name = "cboMy_VB" Me.cboMy_VB.Size = New System.Drawing.Size(15, 14) Me.cboMy_VB.TabIndex = 22 @@ -2758,7 +2764,7 @@ Partial Class frmHauptfenster Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.cboMyAvisoAnzeige.FormattingEnabled = True - Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(-6, 1) + Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(76, 1) Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige" Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(127, 21) Me.cboMyAvisoAnzeige.TabIndex = 21 @@ -2768,7 +2774,7 @@ Partial Class frmHauptfenster Me.lblMySND_Anzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblMySND_Anzeige.AutoSize = True Me.lblMySND_Anzeige.ForeColor = System.Drawing.Color.White - Me.lblMySND_Anzeige.Location = New System.Drawing.Point(-55, 3) + Me.lblMySND_Anzeige.Location = New System.Drawing.Point(27, 3) Me.lblMySND_Anzeige.Name = "lblMySND_Anzeige" Me.lblMySND_Anzeige.Size = New System.Drawing.Size(48, 13) Me.lblMySND_Anzeige.TabIndex = 20 @@ -2778,7 +2784,7 @@ Partial Class frmHauptfenster ' Me.lblAkte.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAkte.ForeColor = System.Drawing.Color.White - Me.lblAkte.Location = New System.Drawing.Point(523, 6) + Me.lblAkte.Location = New System.Drawing.Point(1388, 6) Me.lblAkte.Name = "lblAkte" Me.lblAkte.Size = New System.Drawing.Size(207, 19) Me.lblAkte.TabIndex = 1 @@ -2866,7 +2872,7 @@ Partial Class frmHauptfenster Me.pnlAktOption.Dock = System.Windows.Forms.DockStyle.Top Me.pnlAktOption.Location = New System.Drawing.Point(0, 0) Me.pnlAktOption.Name = "pnlAktOption" - Me.pnlAktOption.Size = New System.Drawing.Size(496, 5) + Me.pnlAktOption.Size = New System.Drawing.Size(596, 5) Me.pnlAktOption.TabIndex = 1 ' 'Button8 @@ -2876,7 +2882,7 @@ Partial Class frmHauptfenster Me.Button8.ForeColor = System.Drawing.Color.Black Me.Button8.Image = CType(resources.GetObject("Button8.Image"), System.Drawing.Image) Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button8.Location = New System.Drawing.Point(62, 214) + Me.Button8.Location = New System.Drawing.Point(1186, 214) Me.Button8.Name = "Button8" Me.Button8.Size = New System.Drawing.Size(89, 34) Me.Button8.TabIndex = 3 @@ -2893,7 +2899,7 @@ Partial Class frmHauptfenster Me.btnFertig.ForeColor = System.Drawing.Color.Black Me.btnFertig.Image = CType(resources.GetObject("btnFertig.Image"), System.Drawing.Image) Me.btnFertig.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnFertig.Location = New System.Drawing.Point(166, 214) + Me.btnFertig.Location = New System.Drawing.Point(1290, 214) Me.btnFertig.Name = "btnFertig" Me.btnFertig.Size = New System.Drawing.Size(102, 34) Me.btnFertig.TabIndex = 0 @@ -2925,27 +2931,27 @@ Partial Class frmHauptfenster Me.tabErfasst.TabIndex = 1 Me.tabErfasst.Text = "1. Erfasst" ' - 'tbcntrAviso + 'tbcntrAvisoLKW ' - Me.tbcntrAviso.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.tbcntrAviso.Controls.Add(Me.tabAlle) - Me.tbcntrAviso.Controls.Add(Me.tabErfasst) - Me.tbcntrAviso.Controls.Add(Me.tabVorbereitet) - Me.tbcntrAviso.Controls.Add(Me.tabVorgeschrieben) - Me.tbcntrAviso.Controls.Add(Me.tabAnkunft) - Me.tbcntrAviso.Controls.Add(Me.tabVERIMEX) - Me.tbcntrAviso.Controls.Add(Me.tabINDONESIEN) - Me.tbcntrAviso.Controls.Add(Me.tabFreigegeben) - Me.tbcntrAviso.Controls.Add(Me.tabNichtEingetroffen) - Me.tbcntrAviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.tbcntrAviso.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.tbcntrAviso.ItemSize = New System.Drawing.Size(60, 30) - Me.tbcntrAviso.Location = New System.Drawing.Point(-1, 216) - Me.tbcntrAviso.Name = "tbcntrAviso" - Me.tbcntrAviso.Padding = New System.Drawing.Point(12, 3) - Me.tbcntrAviso.SelectedIndex = 0 - Me.tbcntrAviso.Size = New System.Drawing.Size(129, 37) - Me.tbcntrAviso.TabIndex = 10 + Me.tbcntrAvisoLKW.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabAlle) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabErfasst) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabVorbereitet) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabVorgeschrieben) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabAnkunft) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabVERIMEX) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabINDONESIEN) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabFreigegeben) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabNichtEingetroffen) + Me.tbcntrAvisoLKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbcntrAvisoLKW.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.tbcntrAvisoLKW.ItemSize = New System.Drawing.Size(60, 30) + Me.tbcntrAvisoLKW.Location = New System.Drawing.Point(-1, 216) + Me.tbcntrAvisoLKW.Name = "tbcntrAvisoLKW" + Me.tbcntrAvisoLKW.Padding = New System.Drawing.Point(12, 3) + Me.tbcntrAvisoLKW.SelectedIndex = 0 + Me.tbcntrAvisoLKW.Size = New System.Drawing.Size(129, 37) + Me.tbcntrAvisoLKW.TabIndex = 10 ' 'tabVERIMEX ' @@ -2984,7 +2990,7 @@ Partial Class frmHauptfenster Me.SplitContainer1.Panel2.Controls.Add(Me.pnlDetailsRechts) Me.SplitContainer1.Panel2MinSize = 200 Me.SplitContainer1.Size = New System.Drawing.Size(1050, 611) - Me.SplitContainer1.SplitterDistance = 500 + Me.SplitContainer1.SplitterDistance = 600 Me.SplitContainer1.SplitterWidth = 1 Me.SplitContainer1.TabIndex = 7 ' @@ -2997,7 +3003,7 @@ Partial Class frmHauptfenster Me.pnlDetailsLinks.Location = New System.Drawing.Point(0, 0) Me.pnlDetailsLinks.MinimumSize = New System.Drawing.Size(324, 564) Me.pnlDetailsLinks.Name = "pnlDetailsLinks" - Me.pnlDetailsLinks.Size = New System.Drawing.Size(498, 609) + Me.pnlDetailsLinks.Size = New System.Drawing.Size(598, 609) Me.pnlDetailsLinks.TabIndex = 0 ' 'splitMain @@ -3021,7 +3027,7 @@ Partial Class frmHauptfenster ' Me.splitMain.Panel2.Controls.Add(Me.SplitContainer2) Me.splitMain.Panel2.Controls.Add(Me.pnlAktOption) - Me.splitMain.Size = New System.Drawing.Size(496, 607) + Me.splitMain.Size = New System.Drawing.Size(596, 607) Me.splitMain.SplitterDistance = 298 Me.splitMain.TabIndex = 0 ' @@ -3075,7 +3081,7 @@ Partial Class frmHauptfenster Me.gridAviso.RowTemplate.ReadOnly = True Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.gridAviso.Size = New System.Drawing.Size(496, 50) + Me.gridAviso.Size = New System.Drawing.Size(596, 50) Me.gridAviso.TabIndex = 1 Me.gridAviso.TabStop = False ' @@ -3083,7 +3089,7 @@ Partial Class frmHauptfenster ' Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Panel1.Controls.Add(Me.CheckBox1) - Me.Panel1.Controls.Add(Me.TabControl1) + Me.Panel1.Controls.Add(Me.tbcntrAvisoSND) Me.Panel1.Controls.Add(Me.txtBestimmungszollstelle) Me.Panel1.Controls.Add(Me.Label10) Me.Panel1.Controls.Add(Me.cboImEx) @@ -3106,12 +3112,12 @@ Partial Class frmHauptfenster Me.Panel1.Controls.Add(Me.btnWichtigeStandort) Me.Panel1.Controls.Add(Me.btnAlleAnzeigen) Me.Panel1.Controls.Add(Me.lblSuche) - Me.Panel1.Controls.Add(Me.tbcntrAviso) + Me.Panel1.Controls.Add(Me.tbcntrAvisoLKW) Me.Panel1.Controls.Add(Me.pnlSearch) 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(496, 248) + Me.Panel1.Size = New System.Drawing.Size(596, 248) Me.Panel1.TabIndex = 2 ' 'CheckBox1 @@ -3121,29 +3127,29 @@ Partial Class frmHauptfenster Me.CheckBox1.Checked = True Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked Me.CheckBox1.ForeColor = System.Drawing.Color.White - Me.CheckBox1.Location = New System.Drawing.Point(-210, 55) + Me.CheckBox1.Location = New System.Drawing.Point(364, 55) Me.CheckBox1.Name = "CheckBox1" Me.CheckBox1.Size = New System.Drawing.Size(50, 17) Me.CheckBox1.TabIndex = 28 Me.CheckBox1.Text = "LKW" Me.CheckBox1.UseVisualStyleBackColor = True ' - 'TabControl1 + 'tbcntrAvisoSND ' - Me.TabControl1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.TabControl1.Controls.Add(Me.tbSndAlle) - Me.TabControl1.Controls.Add(Me.tbSndOffen) - Me.TabControl1.Controls.Add(Me.tbSndFreigegeben) - Me.TabControl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TabControl1.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.TabControl1.ItemSize = New System.Drawing.Size(60, 30) - Me.TabControl1.Location = New System.Drawing.Point(492, 217) - Me.TabControl1.Name = "TabControl1" - Me.TabControl1.Padding = New System.Drawing.Point(12, 3) - Me.TabControl1.SelectedIndex = 0 - Me.TabControl1.Size = New System.Drawing.Size(129, 11) - Me.TabControl1.TabIndex = 27 - Me.TabControl1.Visible = False + Me.tbcntrAvisoSND.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.tbcntrAvisoSND.Controls.Add(Me.tbSndAlle) + Me.tbcntrAvisoSND.Controls.Add(Me.tbSndOffen) + Me.tbcntrAvisoSND.Controls.Add(Me.tbSndFreigegeben) + Me.tbcntrAvisoSND.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbcntrAvisoSND.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.tbcntrAvisoSND.ItemSize = New System.Drawing.Size(60, 30) + Me.tbcntrAvisoSND.Location = New System.Drawing.Point(492, 217) + Me.tbcntrAvisoSND.Name = "tbcntrAvisoSND" + Me.tbcntrAvisoSND.Padding = New System.Drawing.Point(12, 3) + Me.tbcntrAvisoSND.SelectedIndex = 0 + Me.tbcntrAvisoSND.Size = New System.Drawing.Size(129, 11) + Me.tbcntrAvisoSND.TabIndex = 27 + Me.tbcntrAvisoSND.Visible = False ' 'tbSndAlle ' @@ -3303,10 +3309,9 @@ Partial Class frmHauptfenster ' 'lblEintraege ' - Me.lblEintraege.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblEintraege.BackColor = System.Drawing.Color.Transparent Me.lblEintraege.ForeColor = System.Drawing.Color.White - Me.lblEintraege.Location = New System.Drawing.Point(266, 56) + Me.lblEintraege.Location = New System.Drawing.Point(840, 56) Me.lblEintraege.Name = "lblEintraege" Me.lblEintraege.Size = New System.Drawing.Size(169, 15) Me.lblEintraege.TabIndex = 14 @@ -3354,7 +3359,7 @@ Partial Class frmHauptfenster Me.pnlTime.Controls.Add(Me.Label5) Me.pnlTime.Location = New System.Drawing.Point(446, 0) Me.pnlTime.Name = "pnlTime" - Me.pnlTime.Size = New System.Drawing.Size(174, 57) + Me.pnlTime.Size = New System.Drawing.Size(748, 57) Me.pnlTime.TabIndex = 12 ' 'MyComboBox1 @@ -3790,35 +3795,35 @@ Partial Class frmHauptfenster ' Me.AllgemeinToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.zollico Me.AllgemeinToolStripMenuItem.Name = "AllgemeinToolStripMenuItem" - Me.AllgemeinToolStripMenuItem.Size = New System.Drawing.Size(280, 22) + Me.AllgemeinToolStripMenuItem.Size = New System.Drawing.Size(279, 22) Me.AllgemeinToolStripMenuItem.Text = "Allgemein" ' 'AllgemeineEinführungExportkontrolleToolStripMenuItem ' Me.AllgemeineEinführungExportkontrolleToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.zollico Me.AllgemeineEinführungExportkontrolleToolStripMenuItem.Name = "AllgemeineEinführungExportkontrolleToolStripMenuItem" - Me.AllgemeineEinführungExportkontrolleToolStripMenuItem.Size = New System.Drawing.Size(280, 22) + Me.AllgemeineEinführungExportkontrolleToolStripMenuItem.Size = New System.Drawing.Size(279, 22) Me.AllgemeineEinführungExportkontrolleToolStripMenuItem.Text = "Allgemeine Einführung Exportkontrolle" ' 'BrexitToolStripMenuItem1 ' Me.BrexitToolStripMenuItem1.Image = Global.AVISO.My.Resources.Resources.zollico Me.BrexitToolStripMenuItem1.Name = "BrexitToolStripMenuItem1" - Me.BrexitToolStripMenuItem1.Size = New System.Drawing.Size(280, 22) + Me.BrexitToolStripMenuItem1.Size = New System.Drawing.Size(279, 22) Me.BrexitToolStripMenuItem1.Text = "Brexit" ' 'EmbargosLänderToolStripMenuItem ' Me.EmbargosLänderToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.zollico Me.EmbargosLänderToolStripMenuItem.Name = "EmbargosLänderToolStripMenuItem" - Me.EmbargosLänderToolStripMenuItem.Size = New System.Drawing.Size(280, 22) + Me.EmbargosLänderToolStripMenuItem.Size = New System.Drawing.Size(279, 22) Me.EmbargosLänderToolStripMenuItem.Text = "Embargos-Länder" ' 'GüterlisteToolStripMenuItem ' Me.GüterlisteToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.zollico Me.GüterlisteToolStripMenuItem.Name = "GüterlisteToolStripMenuItem" - Me.GüterlisteToolStripMenuItem.Size = New System.Drawing.Size(280, 22) + Me.GüterlisteToolStripMenuItem.Size = New System.Drawing.Size(279, 22) Me.GüterlisteToolStripMenuItem.Text = "Güterliste" ' 'Timer_REFRESH @@ -3900,17 +3905,6 @@ Partial Class frmHauptfenster Me.HomepageToolStripMenuItem.Size = New System.Drawing.Size(133, 22) Me.HomepageToolStripMenuItem.Text = "Homepage" ' - 'UsrCntlTestsystem1 - ' - Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.White - Me.UsrCntlTestsystem1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.UsrCntlTestsystem1.ForeColor = System.Drawing.Color.Red - Me.UsrCntlTestsystem1.Location = New System.Drawing.Point(632, -1) - Me.UsrCntlTestsystem1.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6) - Me.UsrCntlTestsystem1.Name = "UsrCntlTestsystem1" - Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28) - Me.UsrCntlTestsystem1.TabIndex = 8 - ' 'pnlLeft ' Me.pnlLeft.Controls.Add(Me.UsrCntlBenachrichtigungen2) @@ -3949,11 +3943,16 @@ Partial Class frmHauptfenster Me.Panel7.Size = New System.Drawing.Size(252, 51) Me.Panel7.TabIndex = 4 ' - 'ATILLASENDUNGToolStripMenuItem + 'UsrCntlTestsystem1 ' - Me.ATILLASENDUNGToolStripMenuItem.Name = "ATILLASENDUNGToolStripMenuItem" - Me.ATILLASENDUNGToolStripMenuItem.Size = New System.Drawing.Size(213, 22) - Me.ATILLASENDUNGToolStripMenuItem.Text = "ATILLA - SENDUNG" + Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.White + Me.UsrCntlTestsystem1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.UsrCntlTestsystem1.ForeColor = System.Drawing.Color.Red + Me.UsrCntlTestsystem1.Location = New System.Drawing.Point(632, -1) + Me.UsrCntlTestsystem1.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6) + Me.UsrCntlTestsystem1.Name = "UsrCntlTestsystem1" + Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28) + Me.UsrCntlTestsystem1.TabIndex = 8 ' 'frmHauptfenster ' @@ -3999,7 +3998,7 @@ Partial Class frmHauptfenster CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel6.ResumeLayout(False) Me.Panel6.PerformLayout() - Me.tbcntrAviso.ResumeLayout(False) + Me.tbcntrAvisoLKW.ResumeLayout(False) Me.SplitContainer1.Panel1.ResumeLayout(False) Me.SplitContainer1.Panel1.PerformLayout() Me.SplitContainer1.Panel2.ResumeLayout(False) @@ -4014,7 +4013,7 @@ Partial Class frmHauptfenster CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() - Me.TabControl1.ResumeLayout(False) + Me.tbcntrAvisoSND.ResumeLayout(False) Me.pnlTime.ResumeLayout(False) Me.pnlTime.PerformLayout() Me.pnlSearch.ResumeLayout(False) @@ -4108,7 +4107,7 @@ Partial Class frmHauptfenster Friend WithEvents btnFertig As System.Windows.Forms.Button Friend WithEvents tabAlle As System.Windows.Forms.TabPage Friend WithEvents tabErfasst As System.Windows.Forms.TabPage - Friend WithEvents tbcntrAviso As System.Windows.Forms.TabControl + Friend WithEvents tbcntrAvisoLKW As System.Windows.Forms.TabControl Public WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer Public WithEvents pnlDetailsRechts As System.Windows.Forms.Panel Public WithEvents pnlDetailsLinks As System.Windows.Forms.Panel @@ -4403,7 +4402,7 @@ Partial Class frmHauptfenster Friend WithEvents Panel5 As Panel Friend WithEvents Panel7 As Panel Friend WithEvents Button7 As Button - Friend WithEvents TabControl1 As TabControl + Friend WithEvents tbcntrAvisoSND As TabControl Friend WithEvents tbSndAlle As TabPage Friend WithEvents tbSndOffen As TabPage Friend WithEvents tbSndFreigegeben As TabPage diff --git a/Aviso/frmHauptfenster.resx b/Aviso/frmHauptfenster.resx index e3d5220..1cc3a6c 100644 --- a/Aviso/frmHauptfenster.resx +++ b/Aviso/frmHauptfenster.resx @@ -126,43 +126,42 @@ - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAHtJREFUSEvt - ldEKgCAMReePSz8WflptdYk9aA/TZeAuHJilOw+OIklK6fiCSyapvfQAuolCLguzGSi6cQved0c9kMOW - ZN24BfauJPQGupWEXFrv8C3P/WI9UegNdDE03fnR0HApf4s8mL0p9Aa6GJruxKfND+hCOA4iohNTug01 - QlZADQAAAABJRU5ErkJggg== + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAG9JREFUSEvt + lTEOgDAMA52PV3wM9WmgMGSIAkNpaolg6ZamzQ0eCgAQkWMF6rriB1nwhQA6gG2A7pdHREJ9PJLml0fY + 7TrCbAoKX3T4FOvXTmjCbAoKl3fIEOpv0Saz3wqz4QsZHX5cmM0vnA5FeAJTug01ZzKXygAAAABJRU5E + rkJggg== - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAHtJREFUSEvt - ldEKgCAMReePSz8WflptdYk9aA/TZeAuHJilOw+OIklK6fiCSyapvfQAuolCLguzGSi6cQved0c9kMOW - ZN24BfauJPQGupWEXFrv8C3P/WI9UegNdDE03fnR0HApf4s8mL0p9Aa6GJruxKfND+hCOA4iohNTug01 - QlZADQAAAABJRU5ErkJggg== + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAG9JREFUSEvt + lTEOgDAMA52PV3wM9WmgMGSIAkNpaolg6ZamzQ0eCgAQkWMF6rriB1nwhQA6gG2A7pdHREJ9PJLml0fY + 7TrCbAoKX3T4FOvXTmjCbAoKl3fIEOpv0Saz3wqz4QsZHX5cmM0vnA5FeAJTug01ZzKXygAAAABJRU5E + rkJggg== - iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAAAQhJREFUSEvt - k00KwjAUhFPEC7jTY7l370IXnkHP6M56CwuCPy91Ikk6SZO2iIt8MGjezJsHgqpQ+BuqqnoxwZ4edowJ - 8WlgB2LC2nhYeUxYy2LBiqaQ7v6c6LIm4YM/S5Xsbslsow85+CEEs39mo1inQyjE5imKdToEQns2T5Hs - 7gJzFzoUZH4JeQwcqPF0oD0yfIYOoKz3eCwH74Gnixh3s2wk4/ZvYL1P+u1xtHzN3Lwt3eDlQ8ocIZYH - K7KFWEuO5wuxDyxghIhmhs8Y3wzrMuoLNG1AqSXxtM5Qx5OdlV6U743vGWk/CFvIEWrykMXaLxqgK+rS - ISWDhLo0WMEYobZQ+AVKvQF7kkl9rIbjgwAAAABJRU5ErkJggg== + iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAAAP1JREFUSEvt + k0sKwkAQRLsRL+BOj+XevQtdeAY9ozv1FgYEP0wYZXjpnoxJBBd5UGCqq6slEJGRkX9BVZ+WmBsMHvLE + vV6wvE3c7wyL28T9EmYsGUqhm8feLI3wjl6pRGRteCseNV+n55fI2+VdN0SvVN4u73qhLb1SiciGXvSb + h+kFVPXkzSzigTP9gNmjqg9zkLwN+iSXi7M7/RpVvRmvpv4MkucD90Rkj6NT9qjqFTvlGGX8k9/DEiqX + zc2oNJsNJ7FJ8tvjk2FPo5Nmoip2zI1Z0DGKfihexO6KsyTjw/C3Yl8R4VtkUQdd2NuKUdJJ7M3C5b5i + /8jIT3kBe5JJfQp6Jq0AAAAASUVORK5CYII= - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAhBJREFUSEvt - 1k1LVFEcgPE7hLYoKQva+Q2ibbve1pL0AYzIXCVIpbVJaqHSJxCswLULKXeBIFRgqwJDJTNQsY0YtdLE - 0Hye8dzLdTgz4zQt58CPOXPO/2XUO56TMH7iNC5jCZv4gRFcwCkcRwHlhnvGGGuOudaw1ldcgXuuJXtY - gIHncR/r+IPdQqHwl9eX8AO14hjS4dy1S3gRYndhrjUewJrWnsNeYlAI/I1JtOMp3mIN20gbD+EiTgTO - h3KNjP2Od7CGtV5jK+uTTkKSCZ/wCNfxGG/gp02bzqA3+BDWbGaMsQPowEN8xPahHvk32eJB8jju4AbG - 8AUb+FXCNfeMMdYcc9ejtWOLKZJW8AQW6sQzjOJ54Nw194wxdjlWK1WxoShg02604Cpu4lbg/BpOwp9s - JVYjr2pDUWgYZzGIabwPnPsgncFgLLdUrQ0nsJNb38ErNBpmGg2LKNZo2GiYIS5Zi23kEfNfGhLj+Zrc - xVIsIMV+3Q3Z/4YeJE3wP/18LFDs1dWQPa8wnjjNKA6Pl9uYLZPwzw1Z/4wu2OPQ8DLkQTqFjZKkmhvy - 3puAtTwzrR0dXuW8gXnGLeaSa2rIfBHWsJY1Kw5/z224h+LDxOuRG/Lqw+FV0xrZ36za8GJ7Dn3winGk - hlhFP8ytdHEuO7yRe93zq1OtoTFeL82pa3iF96vjKNfQYYyxFUaS7APsTyl69HfqsQAAAABJRU5ErkJg - gg== + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAgBJREFUSEvt + 1suLzXEYx/HXSVggt7LzH8jWzm0t8geQXFaU3DfEwshfoFzK2kLMTimFYkURcisjNhOxcmk06DN9z/Q7 + 3845M+PMRs1TT33P8/08n/c5M79znge+YBk24A2+4TMuYC2WYiFaekfuook2PemNR7xeY2O5S81vvCjC + NTiMUfzCeKvV+oMr5Q0tx7wGKOfU1uNy0Y6X3ngcKZ7xfjbBiqgIf2AYW3AGd/EBPxvgIazDopI5DzVA + 0X7EveIRr5v4PslpH0pTGh7jBLbiJG6Vd9uGPsDBkg8bsGiiPYVtOI5H8exgNF80wGm+hr3Yjqt4iU/4 + WmVquYsm2vSkd7T27QlsgEdwuhjtwHlcxKWSOaeWu2iifVf7TBvYgO7DEmzCTuwqmfNmLC6fbKTur3NK + 4ISIc1iJs7iD+yVzzoO0Ind1X7ecKfA6xhr1MdyYA3Z41YVuOQecA3Z41YVu+X8DM/PqYp2zBSzz1f6s + FvVlJRwYiLc4EOD88kv/vBbNFrCsMJk4C9q7ScbLbjypxYMC8RR7CqMjsgxlkN7OFB8UWDaBeGVmxrtr + ZJXLBpYZ9+pfgektHvGKZ9/I33k1DrUfppkAy8ORVTMek/+zqSKL7SocLSvGtIB4j2Olt9/i3DOykWfd + y1dnKmA0WS/TM1Bkhc9XJ9ELmIgm2r7xF+xPKXpoDa+RAAAAAElFTkSuQmCC @@ -173,17 +172,16 @@ - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAhBJREFUSEvt - 1k1LVFEcgPE7hLYoKQva+Q2ibbve1pL0AYzIXCVIpbVJaqHSJxCswLULKXeBIFRgqwJDJTNQsY0YtdLE - 0Hye8dzLdTgz4zQt58CPOXPO/2XUO56TMH7iNC5jCZv4gRFcwCkcRwHlhnvGGGuOudaw1ldcgXuuJXtY - gIHncR/r+IPdQqHwl9eX8AO14hjS4dy1S3gRYndhrjUewJrWnsNeYlAI/I1JtOMp3mIN20gbD+EiTgTO - h3KNjP2Od7CGtV5jK+uTTkKSCZ/wCNfxGG/gp02bzqA3+BDWbGaMsQPowEN8xPahHvk32eJB8jju4AbG - 8AUb+FXCNfeMMdYcc9ejtWOLKZJW8AQW6sQzjOJ54Nw194wxdjlWK1WxoShg02604Cpu4lbg/BpOwp9s - JVYjr2pDUWgYZzGIabwPnPsgncFgLLdUrQ0nsJNb38ErNBpmGg2LKNZo2GiYIS5Zi23kEfNfGhLj+Zrc - xVIsIMV+3Q3Z/4YeJE3wP/18LFDs1dWQPa8wnjjNKA6Pl9uYLZPwzw1Z/4wu2OPQ8DLkQTqFjZKkmhvy - 3puAtTwzrR0dXuW8gXnGLeaSa2rIfBHWsJY1Kw5/z224h+LDxOuRG/Lqw+FV0xrZ36za8GJ7Dn3winGk - hlhFP8ytdHEuO7yRe93zq1OtoTFeL82pa3iF96vjKNfQYYyxFUaS7APsTyl69HfqsQAAAABJRU5ErkJg - gg== + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAgBJREFUSEvt + 1suLzXEYx/HXSVggt7LzH8jWzm0t8geQXFaU3DfEwshfoFzK2kLMTimFYkURcisjNhOxcmk06DN9z/Q7 + 3845M+PMRs1TT33P8/08n/c5M79znge+YBk24A2+4TMuYC2WYiFaekfuook2PemNR7xeY2O5S81vvCjC + NTiMUfzCeKvV+oMr5Q0tx7wGKOfU1uNy0Y6X3ngcKZ7xfjbBiqgIf2AYW3AGd/EBPxvgIazDopI5DzVA + 0X7EveIRr5v4PslpH0pTGh7jBLbiJG6Vd9uGPsDBkg8bsGiiPYVtOI5H8exgNF80wGm+hr3Yjqt4iU/4 + WmVquYsm2vSkd7T27QlsgEdwuhjtwHlcxKWSOaeWu2iifVf7TBvYgO7DEmzCTuwqmfNmLC6fbKTur3NK + 4ISIc1iJs7iD+yVzzoO0Ind1X7ecKfA6xhr1MdyYA3Z41YVuOQecA3Z41YVu+X8DM/PqYp2zBSzz1f6s + FvVlJRwYiLc4EOD88kv/vBbNFrCsMJk4C9q7ScbLbjypxYMC8RR7CqMjsgxlkN7OFB8UWDaBeGVmxrtr + ZJXLBpYZ9+pfgektHvGKZ9/I33k1DrUfppkAy8ORVTMek/+zqSKL7SocLSvGtIB4j2Olt9/i3DOykWfd + y1dnKmA0WS/TM1Bkhc9XJ9ELmIgm2r7xF+xPKXpoDa+RAAAAAElFTkSuQmCC @@ -192,17 +190,17 @@ iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABdSURBVEhL7c0xDsAgEANB/v+AfNcUyRWWVhEF0JyL - oUDW7ZB0FX6e9D7PMv2gvUmQUKjQ3iRIKFRob3oF6cB2CW7XK7gKD31obxIkFCq0NwkSChXam0bBm/Dz - HI0JXRTSkcElwuUAAAAASUVORK5CYII= + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO + BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO + zULyAAAAAElFTkSuQmCC iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABdSURBVEhL7c0xDsAgEANB/v+AfNcUyRWWVhEF0JyL - oUDW7ZB0FX6e9D7PMv2gvUmQUKjQ3iRIKFRob3oF6cB2CW7XK7gKD31obxIkFCq0NwkSChXam0bBm/Dz - HI0JXRTSkcElwuUAAAAASUVORK5CYII= + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO + BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO + zULyAAAAAElFTkSuQmCC @@ -211,44 +209,44 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - vAAADrwBlbxySQAAAkRJREFUOE9joClQ3/CaV37+fQ4olzSgvfqhm+bqh6+A+IbKymeiIDGNlY8CNVc9 - OqK9/IksWBEuoLv+kW76oZf/9NY++q+5GohXPTptvO5xhemGR380Vj96h9UAkFOBkhM0Vz3cr7Hq4bbo - /S/+L7vz6b8W0AB9oEGbHnz5H7//5U/t1Y+DtFa95IFqgwCLzY+kTTc8vqS95tF/baAGkCaQzVlHXv1v - v/Du/0aQ5gMvIa6B4O+aq+8bQrUzMBivf5z+5Mvv/9///Pv/5vuf/3c//vp/+tWP/7uefP2/8u7n/9Ov - fQQbVHbyzX+3bU/BFmitfhgK1c7AYL7hcerzr7//9116D5a03Pjkv9f2Z/9j97/8n3/s9f/6M2//T77y - 4f+nX3//rwIaCHKF2uqH/lDtDAzOm5/Eg1wwCagIyZkYGOSyFXcgBqjOv+QN1Y4wYMpVwgYsBxqgAwwr - scjSAKBWFrABNmvvRzz49IugAY8+//6/8NYnsAE8ejaZQK0SYAPU65ZGg0yfRsAAkCthBnBpWpQCtWqC - DRDySg46+uL7/w8///4/8/rH/+2Pv/5ffPvT//7L7/9XnX77P/XQq/+Bu57/fwWModk3Pv7XXHz9C7Ow - lB9QqzjYAAYVFXax0OIM6aTGHpPqGUt9J2/al7HuzNWGk8/fTrv6/t+ae5//H3z27f+19z//N559+4/X - wqsQqAuUGiFhgAQYoZiJgSGUmcHenkXYyoqX1yVSVSKp3k48piaC1y7YEyjPC8QYmskADAwACfSzwjHl - AmsAAAAASUVORK5CYII= + vAAADrwBlbxySQAAAkJJREFUOE+1kl1IU2EYx59SKMJzk6SSRDczd7Y0wqQloheF0KIPjYFiIRiidRMR + RlRkXnUTFRkWdCEhZjtn06mg4EUrsUC2IJYzqa153rM2tzn33dyHe+Kc1fALFkF/eG6e5/3/nj8PL8D/ + VKnOQ+3vs+3c2P8ryVmujmY5N81y8xK1Y4/Qk6pJPc2Qafmgfd/G9+tUNkzK2qdcqXItQZolSDPEUDHE + 36zUkaSUJctbAoSoUpY8phlOL2W48Wb9Ir6yBFHGEjykJTi6EMYWvSsmZ/kGGePKW2dWjJHiSh1vkmsI + ylkimoTNV6bdeP/TMo4I5reudJp0RWnWdjgDqBjm2+3hBEaTKVyKJtEaiKPBvYKT9giqrSF8NhcQQTdm + lrBu/Ie4QMZyqgzgqI5vc0YS+NDkE4fHRuyonHDgRb0Lr37wYJfRiz2zfgzGV5GxhsQUB1jubAZwfMze + IiR4MutfG3NTCcleW9KAkj7TqU2Ap+bsgEFLCA9qCBY0dZ4DgFwRUK21NS4E41kBJJTAl1+DIiCvvPoy + ABSJgNK7A80CvTcLQEj5B7CLVnQCAC0CdisvNbxfjKI/topGzwpO8BHs/xbER599eMvgxbYpN9ZPOtEd + TeKL+QDS/V/COfl7zwBAYfoIEsmOAtX1juLW7gdHbj8fON0z+qZjyGi+N+P09pp9Kc33EL5z/MQ5Xwy7 + P3pTlEJ5DQCE35i+wRpt+13bAVQ5UFubm19VRVEnmkqKWrtqCi/caaRqzp8EAGor8z/pFwn0s8KqVrGp + AAAAAElFTkSuQmCC iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAATKSURBVFhHxZZ/UNN1GMd3XXXXlZl5LO/kD39gWhd2 - aUaddV3nP5RHWVpGpIX4i040EYb4A2Vk8puNzY1AlK5MMz1IjWWG+ePEgYOmE4bmjy1gMGTgGM6B4Lvn - +W6nbLc7R9zN5+7Fnr2f5/k+7332/e4QAXio+BWDiV8xmPgVg4lfMZhwPHpqU9iRM5sn4szmCf+LakK7 - KfQwX0u44jBj1Nktk9CtyYCtUgobvw4HmrmpSYchbSx/nFHuSw4vQmrSJ8BpOARz5gyYs2fBnBMRGNxL - My5DOYxbnsbU7IYfZimbEKFoIC76QFqOdhnte8S99n6IddKJ6K3fB3Pe6zAXzCbeDBDqpRln3R5c3joa - 05St2Hbcim1VFnzzpwUZxwh6lR5rFXhVftFF+55wr70f4vptk9CrLQMuKYAmJbEjQKiXZpzaUlzJeAZT - CltQYXTgNaURSw+aEPuLCXEHTJitbsIg3XFpZCh8s2YF7fQ6BbF++2Q4qosBY6GbxgDx9Dur1bj27RiE - yVuw12DHG7SwdwCwuQB7PxB7wIzGjju4ZBvAywXnb9NOr1MQX8iegltni9BRNg8d339IfBQg1EszrrMq - mDLHCgZ26+14u/QKLD3AVdtdNN8E4sqbUW7shcUBrNdYMN3nFMQNeVPpGHeg6+cYdO1fRCwOEOqlmT6t - Ai25IYKBkr/teO/HazB1A5c7gWtdwKojFhRqu3Gd8vNtg3il4EIf7b13CmJjwQu4rVXCXrEU9l+XDw+a - 6dfK0Zb/HKaQAWVdDxbs/xdRe82Y+5MJ8/aZhfdJR62CgVY6mRkyAz+yz7rXk4FL8hfRVyuHo3IVHJqE - 4UEzA7UFsMrHCQZk5+yIqWhBP911VjrytL868eWhVnxBxFS0YvGRdsxUGNmA2L2ekn+UL6G/Nh/OqkRi - 3TBJxMC5HNxQjkeYrBm5uh4sq7RiCS2K+60NyyvbEa+xYuXvHVh2tBtLTvRj2s52bwNXVeEY0OXDdWrD - PfpPezO05stdXS5sqlDBQJbOgTVVN7C6qhNrjtvwtUAnVh/vwoqTd4ADItifEnkbMBdNB/R5GKyV4m5t - OnBOCtQT+gw3nJPGtcEaH7hfnw17USgmy1qwvd4FyRkHJNrbSKntc0N5cvUtJGjpx0AqQpevgbZdZKBJ - Rs92Fj3XmXSrbsfW1NWY//kKAc5ZE2oNPjQSTTlw7RqPOSojMgzAxhon4lPSEbcoWoBz1lL1QFIjEFra - 42VgDBGRpdyDXOVu5O8ow5L4tciTqVBTpxfgnDWu5Sp2E7u8yKO5QnUZsjJzsLNIjYSvVkIhl0FXVyfA - eUL8SpSoVShWq1H8XTGKSkrZxONsgP9MWpu8EYmSVCSlbMCChZ/hxOlqfBodI8A5a1xbRz2Jyev9Qtd5 - X5KyHp8sjMbJIfOcsyZJSUWyJEUgSSL084cXgpMZxBwicv78j6H5owqLFscKcM4a1zw9/oggwom3Apzn - ffcM8CnwG/5eno+K+uB62pZ0HKw4LMA5a1zz9PiD558kJgQ4z/3CV+Abo4mZkZHvmufOjQLDOWue2oNi - pPOix4hxBA+844Fz1rj2oBjpvBDcyG5DPHAe8DDFSOeDGEP/RX4Y+BWDiV8xmPgVg4lfMXhA9B+exBGw - pOTzPwAAAABJRU5ErkJggg== + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAATLSURBVFhHxZZ9TNR1HMe/a9XWysyc5CZ/4FNaS1uY + UbPWmv9YjtLUzAhL8YkmmgiHqKAcmTzDcSdHKIIr00wnKUGmmA8Tj8dQhEPzgUs4HuTB4/B4EHy17w/G + 5M7NI9v12V53n9/783n/7n3f3247AYj/EwfB1TgIrsZBcDUOgquR9fiZzROyz4WN5VyYx78iP8wDw2b3 + o/Jeyh2HWMPObxlHa24kzTlqmuX7UMhRczs3gvLwkfLrDLO/uTM1qiDCA1v5EUxRnphipmOK9XIOuRvl + SWf5YYxbnmVSTMX303VVeGkr8NJesqMCr1jDciHEY/YB3IrVY2kv3Y8p/k1MiTMwJb7tJDMUj61kL1e2 + DmeyrpZtJxvYlmfmmxNmIo+biTxhRn28VuF1zaVOIcRTDgFKt42j3ZAJl7VQpYOqHU6iUzw2QzpXI59j + YnINWUYrb+iMLDtUzZKfq/E7WM0MfRW9QPhxM1PCclfan4Jb2fbxWPPTwJjcR6WT9O/b8vVc/3YEEzQ1 + 7Cu38Ja+ivYeaO4ESzcsOWiisvEul5t7eDXxQof9KbhdjJnInfOpNGbOoXHPXBr3fOwkcxVP5/kUqqNG + KgEyyiy8m34Vcxtca77Hzdvgd/gmh43tmK2wIdfMVLtTcKuIn4TNsIOWn3xoOeBLy4HFTuKreLoMWmri + RikBdv5p4YMfrlPdClea4HoLrM42k2xo5UYLXKjr5bXEi133n4KbMfElOgw6LFnLsPyyYmhkLaPboKEu + 4QUmamrQlbQx/8DfeO8zMfvHaubsNynXQccalAC1beCZVC5/ss8PBLiseZmuQg3WnNVYcwOGRs5qegoT + adCMVgIkFVnwyaqhuxcarBD+RxNfHqnliyO1+GTVsji7nmlaowzgNhDgL90rdBcmYMsLxJa3fogE0lMU + yy3dGCYk3SSuuI3lOQ0sza7H79c6VuTU45/bwKrfGll+rJWlp7qZvKt+cIBrKVPoKU6g88zGAbrPDub+ + mT33iuNoTnFXAkQXW1mbd4s1eU2sPdnM1wpNrDnZwsrTd+GgwPKMGBzAlDoVyuLpLVRzrzACitRQqoay + yD5kX9Q36y2wQ+6XxWBJdWd8Ug3bSztRnbOiMnQQUtjVh6GD4Pw7BBgAtaDFPkDd7qlQlQSV0WCMggvb + 2Rq6hnmfr1SQvdSUWYUdlVFQFUvn7jHMTDESWQ6bCmz4h0Tg57tIQfZSCy2DoEpwT28bFGCEEMIrWreX + OF0GCTsyWeq/jvikFApKyhRkLzU5i9NmEKfdPYh4XQbJ+kyio2LZlaon4KtVaDVJFJeUKMg+wH8VO/Up + pOn1pH2XRurOdBniSRlAvoxbF7yJQFUoQSEbmb/wM06dzefTRT4KspeanK1XhRIYvOGBCCE+VIVs4JOF + izh9n1/2UlOFhBKsClEIUin78ssPnIKnEGKmEGLWvHkLyP09D9/FSxRkLzU56995EF5CiClCiHec9MvP + GwggT0FeyOfyorf3RzfCt0RwKOuoguylJmf9Ow9C+p8WQng46Zf7yiOwr+FCiGmzZr1vmj3bG4nspdY/ + e1g9ql88IYQY3W94rx/ZS03OHlaP6ldKLsq0o/qRvdPm/8DvwrL/m+xqHARX4yC4GgfB1TgIruYfnsQR + sDvNfNUAAAAASUVORK5CYII= @@ -263,17 +261,17 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - vAAADrwBlbxySQAAAkRJREFUOE9joClQ3/CaV37+fQ4olzSgvfqhm+bqh6+A+IbKymeiIDGNlY8CNVc9 - OqK9/IksWBEuoLv+kW76oZf/9NY++q+5GohXPTptvO5xhemGR380Vj96h9UAkFOBkhM0Vz3cr7Hq4bbo - /S/+L7vz6b8W0AB9oEGbHnz5H7//5U/t1Y+DtFa95IFqgwCLzY+kTTc8vqS95tF/baAGkCaQzVlHXv1v - v/Du/0aQ5gMvIa6B4O+aq+8bQrUzMBivf5z+5Mvv/9///Pv/5vuf/3c//vp/+tWP/7uefP2/8u7n/9Ov - fQQbVHbyzX+3bU/BFmitfhgK1c7AYL7hcerzr7//9116D5a03Pjkv9f2Z/9j97/8n3/s9f/6M2//T77y - 4f+nX3//rwIaCHKF2uqH/lDtDAzOm5/Eg1wwCagIyZkYGOSyFXcgBqjOv+QN1Y4wYMpVwgYsBxqgAwwr - scjSAKBWFrABNmvvRzz49IugAY8+//6/8NYnsAE8ejaZQK0SYAPU65ZGg0yfRsAAkCthBnBpWpQCtWqC - DRDySg46+uL7/w8///4/8/rH/+2Pv/5ffPvT//7L7/9XnX77P/XQq/+Bu57/fwWModk3Pv7XXHz9C7Ow - lB9QqzjYAAYVFXax0OIM6aTGHpPqGUt9J2/al7HuzNWGk8/fTrv6/t+ae5//H3z27f+19z//N559+4/X - wqsQqAuUGiFhgAQYoZiJgSGUmcHenkXYyoqX1yVSVSKp3k48piaC1y7YEyjPC8QYmskADAwACfSzwjHl - AmsAAAAASUVORK5CYII= + vAAADrwBlbxySQAAAkJJREFUOE+1kl1IU2EYx59SKMJzk6SSRDczd7Y0wqQloheF0KIPjYFiIRiidRMR + RlRkXnUTFRkWdCEhZjtn06mg4EUrsUC2IJYzqa153rM2tzn33dyHe+Kc1fALFkF/eG6e5/3/nj8PL8D/ + VKnOQ+3vs+3c2P8ryVmujmY5N81y8xK1Y4/Qk6pJPc2Qafmgfd/G9+tUNkzK2qdcqXItQZolSDPEUDHE + 36zUkaSUJctbAoSoUpY8phlOL2W48Wb9Ir6yBFHGEjykJTi6EMYWvSsmZ/kGGePKW2dWjJHiSh1vkmsI + ylkimoTNV6bdeP/TMo4I5reudJp0RWnWdjgDqBjm2+3hBEaTKVyKJtEaiKPBvYKT9giqrSF8NhcQQTdm + lrBu/Ie4QMZyqgzgqI5vc0YS+NDkE4fHRuyonHDgRb0Lr37wYJfRiz2zfgzGV5GxhsQUB1jubAZwfMze + IiR4MutfG3NTCcleW9KAkj7TqU2Ap+bsgEFLCA9qCBY0dZ4DgFwRUK21NS4E41kBJJTAl1+DIiCvvPoy + ABSJgNK7A80CvTcLQEj5B7CLVnQCAC0CdisvNbxfjKI/topGzwpO8BHs/xbER599eMvgxbYpN9ZPOtEd + TeKL+QDS/V/COfl7zwBAYfoIEsmOAtX1juLW7gdHbj8fON0z+qZjyGi+N+P09pp9Kc33EL5z/MQ5Xwy7 + P3pTlEJ5DQCE35i+wRpt+13bAVQ5UFubm19VRVEnmkqKWrtqCi/caaRqzp8EAGor8z/pFwn0s8KqVrGp + AAAAAElFTkSuQmCC diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 0d1c553..6405341 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -120,7 +120,7 @@ Public Class frmHauptfenster ' End If MyComboBox1.changeItem(UStatus_AVEingang) - tbcntrAviso.SelectedIndex = 0 + tbcntrAvisoLKW.SelectedIndex = 0 txtSuche.Text = "" txtSuche.Focus() Grid_aktiv = True @@ -147,13 +147,13 @@ Public Class frmHauptfenster If picAVISOMessenger.Visible Then PictureBox1_Click(picAVISOMessenger, New EventArgs) End If - If e.KeyCode = Keys.D1 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 1 : txtSuche.Focus() - If e.KeyCode = Keys.D2 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 2 : txtSuche.Focus() - If (e.KeyCode) = Keys.D3 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 3 : txtSuche.Focus() - If (e.KeyCode) = Keys.D4 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 4 : txtSuche.Focus() - If (e.KeyCode) = Keys.D5 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 5 : txtSuche.Focus() - If (e.KeyCode) = Keys.D0 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 6 : txtSuche.Focus() - If (e.KeyCode) = Keys.Oem5 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 0 : txtSuche.Focus() + If e.KeyCode = Keys.D1 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 1 : txtSuche.Focus() + If e.KeyCode = Keys.D2 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 2 : txtSuche.Focus() + If (e.KeyCode) = Keys.D3 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 3 : txtSuche.Focus() + If (e.KeyCode) = Keys.D4 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 4 : txtSuche.Focus() + If (e.KeyCode) = Keys.D5 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 5 : txtSuche.Focus() + If (e.KeyCode) = Keys.D0 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 6 : txtSuche.Focus() + If (e.KeyCode) = Keys.Oem5 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 0 : txtSuche.Focus() End Sub @@ -620,7 +620,7 @@ Public Class frmHauptfenster dtpVon.Value = Now.AddMonths(-1) 'Now.AddDays(-15) dtpBis.Value = Now.AddDays(1) 'optAnkunft.Checked = True - tbcntrAviso.SelectedTab = tabAnkunft + tbcntrAvisoLKW.SelectedTab = tabAnkunft Grid_aktiv = True SucheStandort = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim If SucheStandort <> "" Then btnWichtigeStandort.Text = "Wichtig " & SucheStandort.Trim.ToUpper @@ -984,7 +984,7 @@ ELSE_ATILLA: End Sub ' Dim AVISOBinding As New cBinding("AVISO") - Public Sub Aviso_anzeigen(hSort As String, Optional showDetails As Boolean = True) + Public Sub Aviso_anzeigen(hSort As String, Optional showDetails As Boolean = True, Optional typ As String = "LKW") 'Paint wieder reaktivieren locZeilen = -1 If Not Grid_aktiv Then Exit Sub @@ -998,14 +998,14 @@ ELSE_ATILLA: Dim top = "TOP 1000 " Dim hSQL As String = "" - If CheckBox1.Checked Then + If typ = "LKW" Then '---------------------------------------------------------------------------------------------------------------------------------- '--- LKW --- '---------------------------------------------------------------------------------------------------------------------------------- 'Bei ANKUNFT nicht nach Datum einschränken - If tbcntrAviso.SelectedTab Is tabAnkunft Or tbcntrAviso.SelectedTab Is tabErfasst Or tbcntrAviso.SelectedTab Is tabVorbereitet Or tbcntrAviso.SelectedTab Is tabVorgeschrieben Then + If tbcntrAvisoLKW.SelectedTab Is tabAnkunft Or tbcntrAvisoLKW.SelectedTab Is tabErfasst Or tbcntrAvisoLKW.SelectedTab Is tabVorbereitet Or tbcntrAvisoLKW.SelectedTab Is tabVorgeschrieben Then pnlTime.Visible = False Else pnlTime.Visible = True @@ -1090,25 +1090,25 @@ ELSE_ATILLA: If cboTeams.Text <> "" Then hSQL += " AND TeamId = '" & cboTeams._value & "'" 'je nach Auswahl SQL anpassen - If tbcntrAviso.SelectedTab Is tabAlle Then + If tbcntrAvisoLKW.SelectedTab Is tabAlle Then 'alle 'Falls Freigabe/NE bei "ALLE" eingeschränkt werden sollte::: 'hSQL += " AND (Status NOT IN (1,2) OR (Status=1 AND Freigabe >= " & SQLDatum(dtpVon.Value) & " AND Freigabe < " & SQLDatum(dtpBis.Value.AddDays(1)) & ") OR (Status=2 AND [Datum] >= " & SQLDatum(dtpVon.Value) & " AND [Datum] < " & SQLDatum(dtpBis.Value.AddDays(1)) & "))" - ElseIf tbcntrAviso.SelectedTab Is tabErfasst Then 'Erfasst + ElseIf tbcntrAvisoLKW.SelectedTab Is tabErfasst Then 'Erfasst hSQL += " AND Status = 0" - ElseIf tbcntrAviso.SelectedTab Is tabVorbereitet Then 'Vorbereitet + ElseIf tbcntrAvisoLKW.SelectedTab Is tabVorbereitet Then 'Vorbereitet hSQL += " AND Status = 4" - ElseIf tbcntrAviso.SelectedTab Is tabVorgeschrieben Then 'Vorgeschrieben + ElseIf tbcntrAvisoLKW.SelectedTab Is tabVorgeschrieben Then 'Vorgeschrieben hSQL += " AND Status = 5" - ElseIf tbcntrAviso.SelectedTab Is tabAnkunft Then 'Ankunft + ElseIf tbcntrAvisoLKW.SelectedTab Is tabAnkunft Then 'Ankunft hSQL += " AND Status = 3" - ElseIf tbcntrAviso.SelectedTab Is tabFreigegeben Then 'Freigegeben + ElseIf tbcntrAvisoLKW.SelectedTab Is tabFreigegeben Then 'Freigegeben hSQL += " AND Status = 1" - ElseIf tbcntrAviso.SelectedTab Is tabVERIMEX Then 'Nicht Eingetroffen + ElseIf tbcntrAvisoLKW.SelectedTab Is tabVERIMEX Then 'Nicht Eingetroffen hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX - ElseIf tbcntrAviso.SelectedTab Is tabINDONESIEN Then 'Nicht Eingetroffen + ElseIf tbcntrAvisoLKW.SelectedTab Is tabINDONESIEN Then 'Nicht Eingetroffen hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN - ElseIf tbcntrAviso.SelectedTab Is tabNichtEingetroffen Then 'Nicht Eingetroffen + ElseIf tbcntrAvisoLKW.SelectedTab Is tabNichtEingetroffen Then 'Nicht Eingetroffen hSQL += " AND Status = 2" End If @@ -2157,12 +2157,12 @@ ELSE_ATILLA: Sub initDat() Dim tmpGrid_aktiv = Grid_aktiv Grid_aktiv = False - If tbcntrAviso.SelectedIndex = 0 Then + If tbcntrAvisoLKW.SelectedIndex = 0 Then cboGrenzstelle.SelectedIndex = 0 MyComboBox1.changeItem(UStatus_AVEingang) dtpVon.Value = Now.AddMonths(-1) 'Now.AddDays(-15) dtpBis.Value = Now.AddDays(1) - ElseIf tbcntrAviso.SelectedTab Is tabFreigegeben Then + ElseIf tbcntrAvisoLKW.SelectedTab Is tabFreigegeben Then MyComboBox1.changeItem(Status_Freigegeben) dtpVon.Value = Now dtpBis.Value = Now @@ -2170,7 +2170,7 @@ ELSE_ATILLA: Grid_aktiv = tmpGrid_aktiv End Sub - Private Sub tbcntrAviso_TabIndexChanged(sender As Object, e As EventArgs) Handles tbcntrAviso.SelectedIndexChanged + Private Sub tbcntrAviso_TabIndexChanged(sender As Object, e As EventArgs) Handles tbcntrAvisoLKW.SelectedIndexChanged If Not Grid_aktiv Then Exit Sub VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1 SucheStandort = "" @@ -2195,7 +2195,7 @@ ELSE_ATILLA: dtpBis.Value = #12/31/2099# txtSuche.Text = "" 'optAlle.Checked = True - tbcntrAviso.SelectedIndex = 0 + tbcntrAvisoLKW.SelectedIndex = 0 Grid_aktiv = True SucheStandort = "" Aviso_anzeigen("") @@ -2330,7 +2330,7 @@ ELSE_ATILLA: dtpVon.Value = Now.AddMonths(-1) ' Now.AddDays(-15) dtpBis.Value = Now.AddDays(1) 'optAnkunft.Checked = True - tbcntrAviso.SelectedTab = tabAnkunft + tbcntrAvisoLKW.SelectedTab = tabAnkunft txtSuche.Text = "" hSort = " ORDER BY Ankunft" ' If sender Is btnWichtigeStandort Then SucheStandort = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.Grenzstelle.Trim @@ -2982,7 +2982,7 @@ ELSE_ATILLA: Me.Location = New Point(0, 0) Me.Size = Screen.PrimaryScreen.WorkingArea.Size ' MsgBox(Me.Size.Height) - + pnlDetailsRechts.MinimumSize = New Size(650, 0) Details_aktiv = True ' If gridMyAviso.RowCount > 0 Then 'gridMyAviso.Rows(0).Selected = True @@ -3001,8 +3001,8 @@ ELSE_ATILLA: Button6.Visible = False If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then 'tabVorbereitet.Text = "2. VERIMEX/INDONESIEN" - tbcntrAviso.TabPages.Remove(tabVorgeschrieben) - tbcntrAviso.TabPages.Remove(tabVorbereitet) + tbcntrAvisoLKW.TabPages.Remove(tabVorgeschrieben) + tbcntrAvisoLKW.TabPages.Remove(tabVorbereitet) End If btnWichtigeStandort.Visible = False @@ -3021,11 +3021,11 @@ ELSE_ATILLA: If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("STATUS_ATILLA") Then 'tabVorbereitet.Text = "2. VERIMEX/INDONESIEN" - tbcntrAviso.TabPages.Remove(tabVorgeschrieben) - tbcntrAviso.TabPages.Remove(tabVorbereitet) + tbcntrAvisoLKW.TabPages.Remove(tabVorgeschrieben) + tbcntrAvisoLKW.TabPages.Remove(tabVorbereitet) Else - tbcntrAviso.TabPages.Remove(tabINDONESIEN) - tbcntrAviso.TabPages.Remove(tabVERIMEX) + tbcntrAvisoLKW.TabPages.Remove(tabINDONESIEN) + tbcntrAvisoLKW.TabPages.Remove(tabVERIMEX) conAnVerimex.Visible = False conAnIndonesien.Visible = False End If @@ -3072,10 +3072,14 @@ ELSE_ATILLA: End If - tbcntrAviso.Width = Panel1.Width + tbcntrAvisoLKW.Width = Panel1.Width + + 'tbcntrAvisoSND.Location = New Point(tbcntrAvisoLKW.Location.X + getTbControlWidth(tbcntrAvisoLKW) + 80, tbcntrAvisoSND.Location.Y) + tbcntrAvisoSND.Location = New Point(tbcntrAvisoLKW.Location.X, tbcntrAvisoLKW.Location.Y) + tbcntrAvisoSND.SelectedIndex = 1 + tbcntrAvisoSND.Width = tbcntrAvisoLKW.Width + tbcntrAvisoSND.Height = tbcntrAvisoLKW.Height - TabControl1.Location = New Point(tbcntrAviso.Location.X + getTbControlWidth(tbcntrAviso) + 80, TabControl1.Location.Y) - TabControl1.SelectedIndex = -1 VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me) BürgschaftenExcelToolStripMenuItem.Visible = False @@ -3171,8 +3175,13 @@ ELSE_ATILLA: ' End If If SplitContainer1.Panel2.Width > 700 And (SplitContainer1.Width - 660) > 0 Then SplitContainer1.SplitterDistance = SplitContainer1.Width - 660 - End If + Else + If SplitContainer1.Panel2.Width < 700 Then + SplitContainer1.SplitterDistance = SplitContainer1.Width - 660 + End If + End If + sd = SplitContainer1.SplitterDistance End Sub Private Sub KdNrZuordnenToolStripMenuItem_Click(sender As Object, e As EventArgs) @@ -3685,7 +3694,7 @@ ELSE_ATILLA: Public Sub showHideDetails() If sd <> SplitContainer1.SplitterDistance Or SplitContainer1.Panel2.Size.Width = 15 Then SplitContainer1.SplitterDistance = sd - SplitContainer1.Panel2MinSize = 600 '300 + SplitContainer1.Panel2MinSize = 660 '300 Fullscreen = False Else SplitContainer1.Panel2MinSize = 15 @@ -3695,7 +3704,7 @@ ELSE_ATILLA: End If ' avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cglobal.Aktive_ID) gridAviso_SpaltenFestlegen() - tbcntrAviso.Width = Panel1.Width + tbcntrAvisoLKW.Width = Panel1.Width End Sub Private Sub btnSmall_Click(sender As Object, e As EventArgs) Handles btnSmall.Click @@ -3857,15 +3866,15 @@ ELSE_ATILLA: If pnlSearch.Visible Then pnlSearch.Visible = False Panel1.Height -= pnlSearch.Height - Panel1.Height += tbcntrAviso.Height - tbcntrAviso.Visible = True + Panel1.Height += tbcntrAvisoLKW.Height + tbcntrAvisoLKW.Visible = True Me.Refresh() Aviso_anzeigen("") Else pnlSearch.Visible = True Panel1.Height += pnlSearch.Height - Panel1.Height -= tbcntrAviso.Height - tbcntrAviso.Visible = False + Panel1.Height -= tbcntrAvisoLKW.Height + tbcntrAvisoLKW.Visible = False Me.Refresh() initDat() gridAviso.Columns.Clear() @@ -3874,19 +3883,39 @@ ELSE_ATILLA: cboGrenzstelle.SelectedIndex = 0 End If - If tbcntrAviso.SelectedTab IsNot tabAlle Then + If tbcntrAvisoLKW.SelectedTab IsNot tabAlle Then Grid_aktiv = False - tbcntrAviso.SelectedIndex = 0 + tbcntrAvisoLKW.SelectedIndex = 0 End If Grid_aktiv = True End Sub Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click, CheckBox1.CheckedChanged - Aviso_anzeigen("") + If CheckBox1.Checked Then + toggle_LKW_SND("LKW") + Else + toggle_LKW_SND("SND") + End If End Sub + Private Sub toggle_LKW_SND(typ) + + If typ = "LKW" Then + tbcntrAvisoLKW.Visible = True + tbcntrAvisoSND.Visible = False + + ElseIf typ = "SND" Then + tbcntrAvisoLKW.Visible = False + tbcntrAvisoSND.Visible = True + + End If + + Aviso_anzeigen("",, typ) + + End Sub Private Sub cbxAlle_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAlle.CheckedChanged + 'If cbxAlle.Checked Then cbxErfasst.Checked = cbxAlle.Checked cbxVorg.Checked = cbxAlle.Checked @@ -5280,7 +5309,9 @@ ELSE_ATILLA: Private Sub ATILLASENDUNGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATILLASENDUNGToolStripMenuItem.Click - VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND = True + 'VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND = True + Dim f As New frmHauptfensterNew + f.Show(Me.Owner) End Sub Private Sub OnSendungsdetailsRequested(ByVal AvisoId As Integer, ByVal SendungId As Integer) @@ -5289,2507 +5320,3 @@ ELSE_ATILLA: End Sub End Class - -Public Class AvisoStatusFunctions - Dim Standorte As New cStandorteDAL - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Dim AvisoDAL As New cAvisoDAL - Dim VermerkeDAL As New cVermerkeDAL - - Public Function getAnkunftDateNow() As Date - Try - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB") Then - If Now.DayOfWeek = DayOfWeek.Sunday Then - Return CDate(Now.AddDays(1).ToShortDateString & " 06:00:00") - End If - End If - - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG",,,,, "ERR_HFST_SETDATE") - End Try - Return Now - End Function - - - Public Shared Sub ummeldenAVISO(Aviso As VERAG_PROG_ALLGEMEIN.cAviso, Grenzstelle As String) - If Aviso IsNot Nothing Then - Select Case Aviso.Status - Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft - 'Nur wenn Ankunft --> Status auf den letzten vor Ankunft ändern - If Aviso.Vorgeschrieben <> cMeineFunktionenAVISO.LeerDatum Then - Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben - ElseIf Aviso.Vorbereitet <> cMeineFunktionenAVISO.LeerDatum Then - Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet - Else - Aviso.Status = Status_Erfasst - End If - End Select - End If - If Grenzstelle = "???" Then - AvisoStatusFunctions.insertVermerkAllg(Aviso.AvisoID, "LKW nach umgemeldet", 94) - Else - AvisoStatusFunctions.insertVermerkAllg(Aviso.AvisoID, "LKW nach '" & Grenzstelle & "' umgemeldet", 94) - End If - - Aviso.Grenzstelle = Grenzstelle - Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL - AvisoDAL.SpeichernAviso(Aviso) - End Sub - - Public Sub sendAnkunftBenachrichtigung(AvisoId) - 'VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, -1, 3, "T", TeamID, "*ANKUNFT*", 0, "", "AUTO: LKW Ankunft - nicht vorgeschrieben!") - - Dim alreadySent As New List(Of Integer) - Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) - For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId).Rows - SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID"))) - Next - For Each s In SENDUNG_LIST - 'Keine Fremdspedition / Handling + nicht vorgeschrieben - If Not s.tblSnd_Fremdspedition And s.tblSnd_Abfertigungsart_ID <> "23" And s.tblSnd_Vorgeschrieben = Nothing Then - 'Avisierer vorhanden - Dim TeamId = "" - 'Zugeordnetes Team anhand von Avisierer... - If s.tblSnd_AvisiererKdNr IsNot Nothing AndAlso s.tblSnd_AvisiererKdNr > 0 Then - TeamId = SQL.getValueTxtBySql("SELECT TOP 1 kde_TeamId FROM [tblKundenErweitert] where kde_KundenNr ='" & s.tblSnd_AvisiererKdNr & "'", "FMZOLL") - End If - '...wenn nicht --> Team aus Sendung - 'If TeamId = "" And If(s.tblSnd_TeamId, "") <> "" Then TeamId = s.tblSnd_TeamId 'derzeit nicht.. - - If TeamId <> "" Then - Dim sent = False - For Each i In alreadySent - If i = TeamId Then sent = True - Next - If Not sent Then - VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, -1, 3, "T", TeamId, "*ANKUNFT*", 0, "", "AUTO: LKW Ankunft - nicht vorgeschrieben!") - alreadySent.Add(TeamId) - End If - End If - End If - Next - End Sub - - Public Function printQR_CODE(aviso As VERAG_PROG_ALLGEMEIN.cAviso) As Boolean - If aviso Is Nothing Then Return False - - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then - Select Case aviso.Grenzstelle - Case "NEU", "DTB", "NKN" - Dim rpt As New rptQRSendung_VerwahrungApp(aviso, Nothing) - Dim printer = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON - If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("BON", True) - If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True) - - 'If printer = "" Then - SDL.cProgramFunctions.printRpt(rpt, printer, True) - Return True - ' End If - End Select - - End If - Return False - End Function - Public Function setAnkunft(AvisoID) As Boolean - - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then - MsgBox("Keine Berechtigung!") - Return False - End If - 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen - If AvisoID <= 0 Then - MsgBox("Kein Aviso ausgewählt!") - Return False - End If - - 'jetzt ausgewählten Datensatz einlesen - Dim Aviso As New cAviso - Aviso = AvisoDAL.LesenAviso(AvisoID, "") - If Aviso Is Nothing Then Return False - If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False - - - Dim msg As String - Dim antwort As MsgBoxResult - - ' Taste ANKUNFT - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then - MsgBox("Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt.", vbInformation) - Return False - End If - - 'Wenn Aviserer einem Team zugeordnet, aber noch nicht "vorgeschrieben", dann bekommt das Team eine Nachricht! - ' If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then - 'Sendungsbasis - ' End If - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then - msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf & - "Soll es jetzt trotzdem auf ANKUNFT (zurück)gesetzt werden?" - antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), "Status-Änderung") - If antwort = vbNo Then Return False - End If - Dim Rücksetzen As Boolean = False - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then - msg = "Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt." & vbCrLf & vbCrLf & - "Soll der Status wieder auf ANKUNFT geändert werden?" - antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), "Status-Änderung") - If antwort = vbNo Then Return False - 'Status ist offen - jetzt auf Ankunft setzen - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then - Aviso.Vorbereitet = LeerDatum - Aviso.Vorgeschrieben = LeerDatum - End If - Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft - Aviso.Freigabe = LeerDatum - Aviso.Dauer = 0 - Rücksetzen = True - Else - Aviso.Ankunft = getAnkunftDateNow() - End If - - 'E-Mail - If Aviso.FIRMA <> "ATILLA" Then - sendAnkunftBenachrichtigung(Aviso.AvisoID) - End If - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then - Rücksetzen = True - End If - - - 'Fahrer Handy-Nr. - Dim frmAnkunftSetzen As New frmAnkunftSetzen(Aviso) - If frmAnkunftSetzen.ShowDialog() = DialogResult.Cancel Then - Return False 'Abbrechen - End If - 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then - ' If Aviso.Grenzstelle.Replace("???", "") <> "" Then - ' If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG - ' End If - 'End If - ' If Aviso.Grenzstelle.Replace("???", "") <> "" Then - If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then - If Aviso.Grenzstelle <> VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG Then - Dim f As New frmAnkunftAendern(Aviso) - If f.ShowDialog() Then - Aviso.Grenzstelle = f.AVISO.Grenzstelle - End If - End If - End If - ' End If - - Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft - Aviso.Änderungen = "auf ANKUNFT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) - Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter - Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId - - - - Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) - AvisoDAL.addAenderung(tmpid, "auf ANKUNFT gesetzt", "auf ANKUNFT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - - If Not Rücksetzen Then - 'nach dem erfolgreichem Speichern wird jetzt noch ein automatisches Mail für den Frächter und Auftraggeber erstellt - 'Mail-Adressen aus Firmentabelle holen - SendAnkunftEmail(Aviso) - End If - - - 'Verwahrungs-Ticket Drucken, wenn parameter - printQR_CODE(Aviso) - 'Ticket Drucken, wenn parameter - If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("TICKET_ANKUNFT") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("TICKET_ANKUNFT", "AVISO") Then - Dim rpt As New rptQRAviso(Aviso) - Dim printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True) - If printer <> "" Then - SDL.cProgramFunctions.printRpt(rpt, printer, True) - Else - SDL.cProgramFunctions.showRpt(rpt, "AVISO", False) - End If - - End If - - - - 'Wenn Atilla, dann Eintrag anzeigen, um zu korrigieren und Aktendeckel auszudrucken - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then 'And VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Then - Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() - Dim f As New frmEintragAviso - f.AktenzetteldruckenVisible = True - f.ShowDialog(frmGrayOut) - frmGrayOut.Close() - End If - - Return (tmpid > 0) - End Function - - - Shared Sub SendAnkunftEmail(AVISO As cAviso, Optional ForceMail As String = "") - Dim AvisoDAL As New cAvisoDAL - Dim art = 1 - If AVISO.ImEx = "EXPORT" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then art = 3 - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - ' Case "ATILLA" - 'Case "VERAG", "IMEX" - Case Else - - Dim EMails As String = "" - Dim EMails_CC As String = "" - Dim EMails_BCC As String = "" - - Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList - - - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Auftraggeber_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) - Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Auftraggeber_KdNr, ForceMail, "AVISIERER") - 'Frächter und Avisierer werden getrennt voneinander eingelesen, damit es kein Problem mit gesendeten VBD/Steuerbescheiden gibt! - If AVISO.Frächter_KdNr <> AVISO.Auftraggeber_KdNr Then - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Frächter_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) - Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Frächter_KdNr, ForceMail, "FRÄCHTER") - End If - - Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) - For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AVISO.AvisoID).Rows - SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID"))) - Next - For Each s In SENDUNG_LIST - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_EmpfaengerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) - Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_EmpfaengerKdNr, ForceMail, "EMPFÄNGER") - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AuftraggeberKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) - Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AuftraggeberKdNr, ForceMail, "AUFTRAGGEBER") - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_FrachtfuehrerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) - Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_FrachtfuehrerKdNr, ForceMail, "FRÄCHTER") - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AvisiererKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) - Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AvisiererKdNr, ForceMail, "AVISIERER") - - Next - - End Select - - End Sub - - 'freigabe - Shared Sub SendFreigabeEmail(AVISO As cAviso, Optional ForceMail As String = "") - Dim AvisoDAL As New cAvisoDAL - Dim art = 2 - If AVISO.ImEx = "EXPORT" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then art = 4 - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - - ' Case "ATILLA" - 'Case "VERAG", "IMEX" - Case Else - - 'Mail-Adressen aus Firmentabelle holen - Dim EMails As String = "" - Dim EMails_CC As String = "" - Dim EMails_BCC As String = "" - - - Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList - - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Auftraggeber_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) - Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Auftraggeber_KdNr, ForceMail) - - 'Frächter und Avisierer werden getrennt voneinander eingelesen, damit es kein Problem mit gesendeten VBD/Steuerbescheiden gibt! - If AVISO.Frächter_KdNr <> AVISO.Auftraggeber_KdNr Then - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Frächter_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) - Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Frächter_KdNr, ForceMail) - End If - - - Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) - For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AVISO.AvisoID).Rows - SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID"))) - Next - For Each s In SENDUNG_LIST - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_EmpfaengerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) - Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_EmpfaengerKdNr, ForceMail) - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AuftraggeberKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) - Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AuftraggeberKdNr, ForceMail) - - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_FrachtfuehrerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) - Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_FrachtfuehrerKdNr, ForceMail) - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AvisiererKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) - Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AvisiererKdNr, ForceMail) - Next - - End Select - - End Sub - - Shared Sub SendStatusEmail(AVISO As cAviso, Optional ForceMail As String = "") - Dim AvisoDAL As New cAvisoDAL - Dim art = 5 - ' If AVISO.ImEx = "EXPORT" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then art = 4 - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - - Case "ATILLA" - 'NED! - - 'Case "VERAG", "IMEX" - Case "VERAG", "IMEX" - - 'Mail-Adressen aus Firmentabelle holen - Dim EMails As String = "" - Dim EMails_CC As String = "" - Dim EMails_BCC As String = "" - - - Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList - - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Auftraggeber_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) - Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Auftraggeber_KdNr, ForceMail) - 'Frächter und Avisierer werden getrennt voneinander eingelesen, damit es kein Problem mit gesendeten VBD/Steuerbescheiden gibt! - If AVISO.Frächter_KdNr <> AVISO.Auftraggeber_KdNr Then - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Frächter_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) - Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Frächter_KdNr, ForceMail) - End If - - Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) - For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AVISO.AvisoID).Rows - SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID"))) - Next - For Each s In SENDUNG_LIST - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_EmpfaengerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) - Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_EmpfaengerKdNr, ForceMail) - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AuftraggeberKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) - Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AuftraggeberKdNr, ForceMail) - - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_FrachtfuehrerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) - Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_FrachtfuehrerKdNr, ForceMail) - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AvisiererKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) - Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AvisiererKdNr, ForceMail) - Next - - End Select - - End Sub - - Shared Sub SendStatusEmailByKdNr(AVISO As cAviso, KdNr As Integer) - Dim AvisoDAL As New cAvisoDAL - Dim art = 5 - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - - Case "ATILLA" - 'NED! - Case "VERAG", "IMEX" - - 'Mail-Adressen aus Firmentabelle holen - Dim EMails As String = "" - Dim EMails_CC As String = "" - Dim EMails_BCC As String = "" - - Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList - - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) - If Emails_list_sent.LIST.Count > 0 Then - Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, KdNr, "") - ' VERAG_PROG_ALLGEMEIN.cAvisoStatusMails.INSERT_INTO(AVISO.AvisoID, KdNr, art) - End If - - End Select - - End Sub - - - - Shared Sub Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, KundenNr, Optional ForceMail = "", Optional artKunde = "") - 'art = 1 : Ankunft - 'art = 2 : Freigabe - 'art = 3 : Ankunft Export - 'art = 4 : Freigabe Export - 'art = 5 : Status - If KundenNr Is Nothing OrElse Not IsNumeric(KundenNr) Then Exit Sub - If KundenNr <= 0 Then Exit Sub - - If art = 2 Then ' Freigabe - Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr) - Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KundenNr) - If KUNDE.EmailFreigabe And KUNDE_ERW.EmailFreigabe_Art = "BLG" Then - Exit Sub ' Keine Freigabe-Mail, wenn "BELEG" bei Freigabe gewählt wurde --> Der STB wird indem Fall pro Beleg geschickt. - End If - End If - If art = 4 Then ' Freigabe Export - 'Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr) - Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KundenNr) - If KUNDE_ERW.EmailFreigabe_Export And KUNDE_ERW.EmailFreigabe_Export_Art = "BLG" Then - Exit Sub ' Keine Freigabe-Mail, wenn "BELEG" bei Freigabe gewählt wurde --> Der STB wird indem Fall pro Beleg geschickt. - End If - End If - - Dim Standorte As New cStandorteDAL - 'nur Mail erstellen, falls mindestens ein Empfänger vorhanden - - If EMails <> "" Or EMails_CC <> "" Or EMails_BCC <> "" Then - - Dim hBetreff As String = If(art = 1 Or art = 3, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Betreff, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Betreff) - Dim hBody As String = If(art = 1 Or art = 3, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Text, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Text) - - Select Case art 'DEFAULT!! - Case 1, 3 - hBetreff = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Betreff - hBody = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Text - Case 2, 4 - hBetreff = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Betreff - hBody = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Text - Case 5 - hBetreff = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Status_Betreff - hBody = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Status_Text - End Select - - 'jetzt nachsehen, ob indiv. eMail-Text für Standort vorhanden - - Dim GrenzstelleMail = AVISO.Grenzstelle.replace("?", "") - GrenzstelleMail = GrenzstelleMail.replace("WO_GE", "") 'KEINE MAIL - GrenzstelleMail = GrenzstelleMail.replace("WO_KITA", "") 'KEINE MAIL - - - - 'Prüfen ob WO oder ZA, in dem Fall keine Mail senden - Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(GrenzstelleMail) - If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then - - If Not GRZ.grz_AvisoStatusVorOrt Then - GrenzstelleMail = "" 'KEINE MAIL - End If - - 'If GRZ.grz_Zollamt Then GrenzstelleMail = "" 'KEINE MAIL - 'If GRZ.grz_Warenort Then GrenzstelleMail = "" 'KEINE MAIL - End If - - - - If GrenzstelleMail = "" And art <> 5 Then - '---------------------------------------- - Exit Sub ' Wenn Grenzstelle leer / ??? --> Keine MAIL! - 'If GrenzstelleMail = "" Then GrenzstelleMail = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG - End If - - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then GrenzstelleMail = "FO" - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then GrenzstelleMail = "UNI" - - If GrenzstelleMail <> "" Then - Dim Standort As New cStandort - - Standort = Standorte.LesenStandort(0, GrenzstelleMail, "") - - If Not IsNothing(Standort) Then - Select Case art - Case 1, 3 - If Standort.eMail_Ankunft_Betreff <> "" Then - hBetreff = Standort.eMail_Ankunft_Betreff - hBody = Standort.eMail_Ankunft_Text - End If - Case 2, 4 - If Standort.eMail_Freigabe_Betreff <> "" Then - hBetreff = Standort.eMail_Freigabe_Betreff - hBody = Standort.eMail_Freigabe_Text - End If - Case 5 - If Standort.eMail_Status_Betreff <> "" Then - hBetreff = Standort.eMail_Status_Betreff - hBody = Standort.eMail_Status_Text - End If - End Select - End If - - End If - - Dim anhaenge As New List(Of String) - hBetreff = Platzhalter_ersetzen(hBetreff, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, 0, AVISO, KundenNr, anhaenge, artKunde) ' art 0 damit nicht beim betreff auch die DY-Daten durchsuht werden und die Sendungsliste erstellt wird. - hBody = Platzhalter_ersetzen(hBody, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, art, AVISO, KundenNr, anhaenge, artKunde) - - - hBody = hBody.Replace("%0", "
") - - hBody = hBody.Replace("%Firma", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) ' gibts noch nicht! - - 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA '= "IMEX" - ' Case "VERAG" - ' Case "UNISPED" - ' hBody = hBody.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) 'hier der Ersatz - 'End Select - - Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_STATUSMAIL, art,,, KundenNr, AVISO.AvisoId) - - API.api_EMail = EMails - API.api_EMailCC = EMails_CC - API.api_EMailBCC = EMails_BCC - API.api_EMailSubject = hBetreff - API.api_EMailText = hBody - API.api_EMailAttCnt = anhaenge.Count - - - If ForceMail <> "" Then - Dim mailsTXT = "" - mailsTXT &= "TO: " & EMails & "
" - mailsTXT &= "CC: " & EMails_CC & "
" - mailsTXT &= "BCC: " & EMails_BCC & "

" - - - If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(ForceMail, hBetreff, mailsTXT & hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, "", "", anhaenge, art) Then - API.UPDTAE_OK() - Else - API.UPDTAE_ERR() - End If - - Else - - - EMails_BCC &= If(EMails_BCC <> "", ";", "") & VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getBCCEmail() 'Damit Mails gespeichert werden. - - Dim MailArt = "" - Select Case art - Case 1, 3 : MailArt = "Ankunft" - Case 2, 4 : MailArt = "Freigabe" - Case 5 : MailArt = "Status" - End Select - If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, hBetreff, hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, EMails_CC, EMails_BCC, anhaenge, art) Then - API.UPDTAE_OK() - Dim txt = " E-Mail gesendet an: " & EMails - If EMails_CC.ToString.Trim <> "" Then txt &= " CC: " & EMails_CC - If EMails_BCC.ToString.Trim <> "" Then txt &= " BCC: " & EMails_BCC - - AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, MailArt & txt, 46, , "(AUTO)") - - Else - API.UPDTAE_ERR() - AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, "ERR: " & MailArt & " E-Mail konnte nicht gesendet werden!", 46, , "(AUTO)") - End If - End If - - 'OLD ---------------------------------- - If False Then - Dim hMail As String = "mailto:" & EMails & "?subject=" & hBetreff - If EMails_CC.ToString.Trim <> "" Then hMail += "&CC=" & EMails_CC - If EMails_BCC.ToString.Trim <> "" Then hMail += "&BCC=" & EMails_BCC - If hBody <> "" Then hMail += "&Body=" & hBody - Try - System.Diagnostics.Process.Start(hMail) - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW, "Beim Mail-Versenden ist ein Fehler aufgetreten") - End Try - End If - ' ---------------------------------- - End If - End Sub - - - - Public Function setVorbereitet(AvisoID) As Boolean - 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then - ' MsgBox("Keine Berechtigung!") - ' Return False - 'End If - - 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen - If AvisoID <= 0 Then - MsgBox("Kein Aviso ausgewählt!") - Return False - End If - - 'jetzt ausgewählten Datensatz einlesen - Dim Aviso As New cAviso - Aviso = AvisoDAL.LesenAviso(AvisoID, "") - If Aviso Is Nothing Then Return False - If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False - - Dim msg As String - Dim antwort As MsgBoxResult - - ' Taste VORBEREITET - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then - MsgBox("Dieses LKW-Aviso ist bereits auf VORBEREITET gesetzt.", vbInformation) - Return False - End If - - - - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then - msg = "Dieses LKW-Aviso hat bereits den Status 'Vorgeschrieben'." & vbCrLf & vbCrLf & - "Soll es jetzt trotzdem auf VORBEREITET (zurück)gesetzt werden?" - antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), - "Status-Änderung") - If antwort = vbNo Then Return False - 'SQL.doSQL("UPDATE tblSendungen SET tblSnd_Vorgeschrieben=null WHERE tblSnd_Vorgeschrieben is not null AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO") - - End If - - - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then - msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf & - "Soll es jetzt trotzdem auf VORBEREITET (zurück)gesetzt werden?" - antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), - "Status-Änderung") - If antwort = vbNo Then Return False - End If - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then - msg = "Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt." & vbCrLf & vbCrLf & - "Soll der Status wieder auf VORBEREITET geändert werden?" - antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), - "Status-Änderung") - If antwort = vbNo Then Return False - Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet - Aviso.Freigabe = LeerDatum - Aviso.Ankunft = LeerDatum - Aviso.Vorgeschrieben = LeerDatum - Aviso.Vorbereitet = Now - Aviso.Dauer = 0 - Else - Aviso.Vorbereitet = Now - ' Aviso.Grenzstelle = cGlobal.AktiverMitarbeiter.Grenzstelle - End If - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then - msg = "Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt." & vbCrLf & vbCrLf & - "Soll der Status wieder auf VORBEREITET geändert werden?" - antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), - "Status-Änderung") - If antwort = vbNo Then Return False - Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet - Aviso.Freigabe = LeerDatum - Aviso.Ankunft = LeerDatum - Aviso.Vorgeschrieben = LeerDatum - Aviso.Vorbereitet = Now - Aviso.Dauer = 0 - Else - Aviso.Vorbereitet = Now - ' Aviso.Grenzstelle = cGlobal.AktiverMitarbeiter.Grenzstelle - End If - - 'Status ist offen - jetzt auf VORBEREITET setzen - Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet - Aviso.Änderungen = "auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) - - Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter - Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId - - Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) - AvisoDAL.addAenderung(tmpid, "auf VORBEREITET gesetzt", "auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - - ' SQL.doSQL("UPDATE tblSendungen SET tblSnd_Vorbereitet=getDate() WHERE tblSnd_Vorbereitet IS NULL AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO") - - If False Then - - Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) - VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, Aviso.AvisoID) - - For Each s In SENDUNG_LIST - If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER OrElse VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(s.FilialenNr, False) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then - If s.tblSnd_Vorbereitet Is Nothing Then - s.tblSnd_Vorbereitet = Now - End If - - 'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "" Then - 'Else - ' If s.tblSnd_VG_MA Is Nothing Then - ' s.tblSnd_VG_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID - ' s.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID - ' s.LetzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME - ' End If - 'End If - s.SAVE() - End If - Next - End If - - - - Return (tmpid > 0) - End Function - - Public Function setAnINDONESIEN(AvisoID) As Boolean - 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then - ' MsgBox("Keine Berechtigung!") - ' Return False - 'End If - - 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen - If AvisoID <= 0 Then - MsgBox("Kein Aviso ausgewählt!") - Return False - End If - - 'jetzt ausgewählten Datensatz einlesen - Dim Aviso As New cAviso - Aviso = AvisoDAL.LesenAviso(AvisoID, "") - If Aviso Is Nothing Then Return False - If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False - - Dim msg As String - Dim antwort As MsgBoxResult - - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then - MsgBox("Dieses LKW-Aviso ist bereits auf 'AN INDONESIEN' gesetzt.", vbInformation) - Return False - End If - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then - MsgBox("Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt.") - Return False - End If - - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then - msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf & - "Soll es jetzt trotzdem auf VORBEREITET (zurück)gesetzt werden?" - antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), - "Status-Änderung") - If antwort = vbNo Then Return False - End If - - - 'Status ist offen - jetzt auf 'AN INDONESIEN' setzen - Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN - Aviso.Änderungen = "auf 'AN INDONESIEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) - - Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter - Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId - - Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) - AvisoDAL.addAenderung(tmpid, "auf 'AN INDONESIEN' gesetzt", "auf 'AN INDONESIEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - - Return (tmpid > 0) - End Function - - - Public Function setAnVERIMEX(AvisoID) As Boolean - 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then - ' MsgBox("Keine Berechtigung!") - ' Return False - 'End If - - 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen - If AvisoID <= 0 Then - MsgBox("Kein Aviso ausgewählt!") - Return False - End If - - 'jetzt ausgewählten Datensatz einlesen - Dim Aviso As New cAviso - Aviso = AvisoDAL.LesenAviso(AvisoID, "") - If Aviso Is Nothing Then Return False - If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False - - Dim msg As String - Dim antwort As MsgBoxResult - - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Then - MsgBox("Dieses LKW-Aviso ist bereits auf 'AN VERIMEX' gesetzt.", vbInformation) - Return False - End If - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then - MsgBox("Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt.") - Return False - End If - - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then - msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf & - "Soll es jetzt trotzdem auf VORBEREITET (zurück)gesetzt werden?" - antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), - "Status-Änderung") - If antwort = vbNo Then Return False - End If - - - 'Status ist offen - jetzt auf 'AN VERIMEX' setzen - Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX - Aviso.Änderungen = "auf 'AN VERIMEX' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) - - Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter - Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId - - Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) - AvisoDAL.addAenderung(tmpid, "auf 'AN VERIMEX' gesetzt", "auf 'AN VERIMEX' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - - Return (tmpid > 0) - End Function - - Public Function setVorgeschreiben(AvisoID) As Boolean - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then - MsgBox("Keine Berechtigung!") - Return False - End If - - 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen - If AvisoID <= 0 Then - MsgBox("Kein Aviso ausgewählt!") - Return False - End If - - 'jetzt ausgewählten Datensatz einlesen - Dim Aviso As New cAviso - Aviso = AvisoDAL.LesenAviso(AvisoID, "") - If Aviso Is Nothing Then Return False - If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False - - Dim msg As String - Dim antwort As MsgBoxResult - - - ' Taste VORGESCHRIEBEN - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then - MsgBox("Dieses LKW-Aviso ist bereits auf VORGESCHRIEBEN gesetzt.", vbInformation) - Return False - End If - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then - msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf & - "Soll es jetzt trotzdem auf VORGESCHRIEBEN (zurück)gesetzt werden?" - antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), - "Status-Änderung") - If antwort = vbNo Then Return False - End If - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then - msg = "Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt." & vbCrLf & vbCrLf & - "Soll der Status wieder auf VORGESCHRIEBEN geändert werden?" - antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), - "Status-Änderung") - If antwort = vbNo Then Return False - Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben - Aviso.Freigabe = LeerDatum - Aviso.Ankunft = LeerDatum - Aviso.Dauer = 0 - Else - Aviso.Vorgeschrieben = Now - ' Aviso.Grenzstelle = cGlobal.AktiverMitarbeiter.Grenzstelle - End If - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then - msg = "Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt." & vbCrLf & vbCrLf & - "Soll der Status wieder auf VORGESCHRIEBEN geändert werden?" - antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), - "Status-Änderung") - If antwort = vbNo Then Return False - Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben - Aviso.Freigabe = LeerDatum - Aviso.Ankunft = LeerDatum - Aviso.Dauer = 0 - Else - Aviso.Vorgeschrieben = Now - ' Aviso.Grenzstelle = cGlobal.AktiverMitarbeiter.Grenzstelle - End If - - 'Status ist offen - jetzt auf VORGESCHRIEBEN setzen - Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben - Aviso.Änderungen = "auf VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) - Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter - Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId - Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) - AvisoDAL.addAenderung(tmpid, "auf VORGESCHRIEBEN gesetzt", "auf VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - - - 'SQL.doSQL("UPDATE tblSendungen SET tblSnd_Vorgeschrieben=getDate() WHERE tblSnd_Vorgeschrieben IS NULL AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO") - 'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "" Then - 'Else - ' SQL.doSQL("UPDATE tblSendungen SET tblSnd_VG_MA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "',LetzterMitarbeiterId='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "',LetzterMitarbeiter='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "' WHERE tblSnd_VG_MA IS NULL AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO") - 'End If - - If False Then - Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) - VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, Aviso.AvisoID) - - For Each s In SENDUNG_LIST - If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER OrElse VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(s.FilialenNr, False) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then - If s.tblSnd_Vorgeschrieben Is Nothing Then - s.tblSnd_Vorgeschrieben = Now - End If - - If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "" Then - Else - If s.tblSnd_VG_MA Is Nothing Then - s.tblSnd_VG_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID - s.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID - s.LetzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME - End If - End If - s.SAVE() - End If - Next - End If - - vermerkVorgeschreiben(AvisoID) - 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - ' Case "VERAG", "ATILLA" - - ' Dim frmInsertVermerkFach As New frmInsertVermerkFach(Aviso.AvisoID) - ' frmInsertVermerkFach.ShowDialog() - - ' 'Case "IMEX" - ' ' Dim frmInsertVermerkFach As New frmInsertVermerkFachIMEX(Aviso.AvisoID) - ' ' frmInsertVermerkFach.ShowDialog() - 'End Select - - - Return (tmpid > 0) - End Function - - - Sub vermerkVorgeschreiben(AvisoID) - Dim VermerkeDAL As New cVermerkeDAL - Dim myVermerk As New cVermerk - myVermerk.AvisoID = AvisoID - myVermerk.Datum = Now - myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID - myVermerk.Hinweis_Vermerk = "Akt vorgeschrieben" : myVermerk.VermerkCodeId = 35 - VermerkeDAL.SpeichernVermerk(myVermerk) - - End Sub - - - Public Function setErfasst(AvisoID) As Boolean - - ' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then - If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_Erfasst", "AVISO") Then - MsgBox("Keine Berechtigung!") - Return False - End If - - 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen - If AvisoID <= 0 Then - MsgBox("Kein Aviso ausgewählt!") - Return False - End If - - 'jetzt ausgewählten Datensatz einlesen - Dim Aviso As New cAviso - Aviso = AvisoDAL.LesenAviso(AvisoID, "") - If Aviso Is Nothing Then Return False - If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False - - Dim msg As String - Dim antwort As MsgBoxResult - - 'Taste ERFASST - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then - MsgBox("Dieses LKW-Aviso ist bereits freigegeben.", vbInformation) - Return False - End If - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then - MsgBox("Dieses LKW-Aviso ist bereits auf 'LKW nicht eingetroffen' gesetzt.", vbInformation) - Return False - End If - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then - MsgBox("Dieses LKW-Aviso ist bereits auf ERFASST gesetzt.", vbInformation) - Return False - End If - Dim tmpid = -1 - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then - msg = "Dieses LKW-Aviso ist bereits auf VORBEREITET gesetzt." & vbCrLf & vbCrLf & - "Soll der Status wieder auf ERFASST geändert werden?" - antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), - "Status-Änderung") - If antwort = vbNo Then Return False - Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst - Aviso.Ankunft = LeerDatum - Aviso.Vorbereitet = LeerDatum - Aviso.Vorgeschrieben = LeerDatum - Aviso.Änderungen = "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) - Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter - Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId - tmpid = AvisoDAL.SpeichernAviso(Aviso) - AvisoDAL.addAenderung(tmpid, "auf ERFASST gesetzt", "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - - End If - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then - msg = "Dieses LKW-Aviso ist bereits auf VORGESCHRIEBEN gesetzt." & vbCrLf & vbCrLf & - "Soll der Status wieder auf ERFASST geändert werden?" - antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), - "Status-Änderung") - If antwort = vbNo Then Return False - Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst - Aviso.Ankunft = LeerDatum - Aviso.Vorbereitet = LeerDatum - Aviso.Vorgeschrieben = LeerDatum - Aviso.Änderungen = "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) - Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter - Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId - tmpid = AvisoDAL.SpeichernAviso(Aviso) - AvisoDAL.addAenderung(tmpid, "auf ERFASST gesetzt", "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - - End If - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then - msg = "Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt." & vbCrLf & vbCrLf & - "Soll der Status wieder auf ERFASST geändert werden?" - antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), - "Status-Änderung") - If antwort = vbNo Then Return False - Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst - Aviso.Ankunft = LeerDatum - Aviso.Vorbereitet = LeerDatum - Aviso.Vorgeschrieben = LeerDatum - Aviso.Änderungen = "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) - Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter - Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId - tmpid = AvisoDAL.SpeichernAviso(Aviso) - AvisoDAL.addAenderung(tmpid, "auf ERFASST gesetzt", "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - End If - Return (tmpid > 0) - End Function - - Public Function setAbgeschlossen(AvisoID As Integer, value As Boolean) As Boolean - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then - MsgBox("Keine Berechtigung!") - Return False - End If - - 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen - If AvisoID <= 0 Then - MsgBox("Kein Aviso ausgewählt!") - Return False - End If - - 'jetzt ausgewählten Datensatz einlesen - Dim Aviso As New cAviso - Aviso = AvisoDAL.LesenAviso(AvisoID, "") - If Aviso Is Nothing Then Return False - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then - 'Prüfung - If False Then - 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then - ' If value Then - ' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - ' If SQL.getValueTxtBySql("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE AvisoID=" & AvisoID, "FMZOLL") = 0 Then - ' If vbYes <> MsgBox("Keine Speditionbucheinträge vorhanden!" & vbNewLine & vbNewLine & "Möchten Sie trotzdem fortfahren?", vbYesNoCancel) Then - ' Return False - ' End If - ' End If - - ' Aviso.Abgeschlossen = value - ' AvisoDAL.SpeichernAviso(Aviso) - ' AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - ' Else - ' Aviso.Abgeschlossen = value - ' AvisoDAL.SpeichernAviso(Aviso) - ' AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - ' End If - Else - If value Then - For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SpeditionsbuchEingetragen FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoID & " AND [tblSnd_Fremdspedition]=0").Rows - If Not CBool(r(0)) Then - MsgBox("Sie müssen erst alle Sendungen ins Speditionsbuch eintragen!") - Return False - End If - Next - Aviso.Abgeschlossen = value - AvisoDAL.SpeichernAviso(Aviso) - - '--> Nicht mehr benötigt, alte Archiv Software IMEX - 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - ' Case "IMEX" : createNLC(Aviso) - 'End Select - - AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - - 'Benachrichtigungen erledigen - VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID, False) - Else - Aviso.Abgeschlossen = value - AvisoDAL.SpeichernAviso(Aviso) - AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - End If - End If - - - Return True - Else - MsgBox("LKW-Status muss auf 'Freigegeben' sein.", vbInformation) - Return False - End If - - Return True - End Function - - - - Function createNLC(aviso As VERAG_PROG_ALLGEMEIN.cAviso) As Boolean - - Dim haserror = True - Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) - VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, aviso.AvisoID) - - For Each s In SENDUNG_LIST - If Not createNLCSimple(aviso, s) Then haserror = False - Next - Return haserror - - End Function - - Function createNLCSimple(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen) As Boolean - - Try - Dim resPath As String = System.IO.Path.GetFullPath(Application.StartupPath & "\Resources\") - - Dim nlcString As String = My.Computer.FileSystem.ReadAllText(resPath & "\MUSTER.NLC", System.Text.Encoding.Default) - - nlcString = nlcString.Replace("%Empfaenger%", SENDUNG.tblSnd_Empfaenger) - nlcString = nlcString.Replace("%Versender%", SENDUNG.tblSnd_Absender) - nlcString = nlcString.Replace("%Fraechter%", AVISO.Frächter) - nlcString = nlcString.Replace("%Auftraggeber%", SENDUNG.tblSnd_Auftraggeber) - nlcString = nlcString.Replace("%AvisNr%", AVISO.AvisoID) - nlcString = nlcString.Replace("%LKWKennzeichen%", AVISO.LKW_Nr) - If AVISO.Ankunft > CDate("01.01.2001") Then nlcString = nlcString.Replace("%Ankunft%", AVISO.Ankunft) - If AVISO.Freigabe > CDate("01.01.2001") Then nlcString = nlcString.Replace("%Datum%", AVISO.Freigabe.ToShortDateString) - nlcString = nlcString.Replace("%PosNr%", SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr) - - If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then - My.Computer.FileSystem.WriteAllText("C:\Temp\" & SENDUNG.FilialenNr & "_" & SENDUNG.AbfertigungsNr & ".nlc", nlcString, False) - Else - My.Computer.FileSystem.WriteAllText("\\192.168.1.20\daten\PronobisApps\JobExtender\Jobs\UpdIdx_Abfertigung\" & SENDUNG.FilialenNr & "_" & SENDUNG.AbfertigungsNr & ".nlc", nlcString, False) - End If - - Console.ReadLine() - - Return True - - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - Return False - End Try - End Function - - - Public Function setNichtEingeftroffen(AvisoID, Optional geloescht = False) As Boolean - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then - MsgBox("Keine Berechtigung!") - Return False - End If - - 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen - If AvisoID <= 0 Then - MsgBox("Kein Aviso ausgewählt!") - Return False - End If - - 'jetzt ausgewählten Datensatz einlesen - Dim Aviso As New cAviso - Aviso = AvisoDAL.LesenAviso(AvisoID, "") - If Aviso Is Nothing Then Return False - If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False - - - Dim msg As String - Dim antwort As MsgBoxResult - - 'Taste NICHT EINGETROFFEN - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then - MsgBox("Dieses LKW-Aviso ist bereits freigegeben.", vbInformation) - Return False - End If - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then - MsgBox("Dieses LKW-Aviso ist bereits auf 'LKW nicht eingetroffen' gesetzt.", vbInformation) - Return False - End If - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then - MsgBox("Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt.", vbInformation) - Return False - End If - Dim tmpid = -1 - ' If Aviso.Status = VERAG_PROG_ALLGEMEIN.cglobal.Status_Erfasst Then - Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen - Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter - Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId - tmpid = AvisoDAL.SpeichernAviso(Aviso) - - If geloescht Then - Aviso.Änderungen = "auf 'Gelöscht' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) - AvisoDAL.addAenderung(tmpid, "auf 'Gelöscht' gesetzt", "auf 'Gelöscht' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - Else - Aviso.Änderungen = "auf LKW nicht eingetroffen gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) - AvisoDAL.addAenderung(tmpid, "auf LKW nicht eingetroffen gesetzt", "auf LKW nicht eingetroffen gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - End If - - ' End If - Return (tmpid > 0) - End Function - - Public Function setFreigabe(AvisoID As Integer, CONTROL As Control, Optional allowEveryState As Boolean = False) As Boolean - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then - MsgBox("Keine Berechtigung!") - Return False - End If - - 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen - If AvisoID <= 0 Then - MsgBox("Kein Aviso ausgewählt!") - Return False - End If - - 'jetzt ausgewählten Datensatz einlesen - Dim Aviso As New cAviso - Aviso = AvisoDAL.LesenAviso(AvisoID, "") - If Aviso Is Nothing Then Return False - If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False - - - 'Prüfung kassieren: - Dim CURRENT_INDEX = -1 - Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) - VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoID) - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Dim zuKassieren As Double = 0 - Dim belegVorhanden As Boolean = True - Dim found As Boolean = False - 'Dim zuKassBelege As String = "" - For Each S In SENDUNG_LIST 'LÄDT alle SENDUNGSDATEN - If If(S.tblSnd_BARzuKassieren, 0) > 0 Then - zuKassieren += S.tblSnd_BARzuKassieren - If S.FilialenNr > 0 And S.AbfertigungsNr > 0 Then - Try - If SQL.getValueTxtBySql("SELECT Count(*) FROM [tblEABelegnummer] as b INNER JOIN [tblEABelegposition] as p ON (b.BelegNr = p.BelegNr AND b.BelegDat = p.BelegDat AND b.Benutzer = p.Benutzer AND b.Niederlassung = p.Niederlassung AND b.Mandant = p.Mandant) where ((b.AbfertigungsNr='" & S.AbfertigungsNr & "' and b.FilialenNr='" & S.FilialenNr & "') or (p.AbfertigungsNr='" & S.AbfertigungsNr & "' and p.FilialenNr='" & S.FilialenNr & "')) and storniert=0 and gebuchtstorno=0 ", "FMZOLL") > 0 Then - found = True - Else - belegVorhanden = False - End If - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - End If - End If - Next - If zuKassieren > 0 Then - If Not found Or Not belegVorhanden Then - If vbYes <> MsgBox("BAR-Beleg fehlt!" & vbNewLine & "Wurde der Betrag '" & zuKassieren.ToString("C2") & "' (Summe) bereits kassiert?", vbYesNoCancel, "Bar kassieren") Then - Return False - End If - End If - End If - - - - - 'Taste FREIGABE - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then - MsgBox("Dieses LKW-Aviso ist bereits freigegeben.", vbInformation) - Return False - End If - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then - MsgBox("Dieses LKW-Aviso ist bereits auf 'LKW nicht eingetroffen' gesetzt.", vbInformation) - Return False - End If - - If allowEveryState = False And (Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben) Then - MsgBox("Dieses LKW-Aviso wurde noch nicht auf ANKUNFT gesetzt und kann deshalb nicht auf FREIGABE gesetzt werden.", vbInformation) - Return False - End If - Dim tmpid = -1 - 'Status ist Ankunft - jetzt auf Freigabe setzen und Dauer berechnen - If allowEveryState Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then - - If Not setFreigabeMsg(Aviso) Then - Return False - End If - - Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben - Aviso.Freigabe = Now - Aviso.Dauer = CInt(DateDiff(DateInterval.Minute, Aviso.Ankunft, Now)) - If Aviso.Dauer = 0 Then Aviso.Dauer = 1 'Sonderfall, wenn Ankunft und Freigabe hintereinander gedrückt wird (z.b. vergessen) - Aviso.Änderungen = "auf FREIGABE gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) - Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter - Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId - If Not Aviso.LKW_fertig Then - Aviso.LKW_fertig = True - Aviso.Änderungen = "LKW ist fertig - nicht gesetzt, deshalb automatisch gesetzt mit FREIGABE" & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) - End If - - 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then - ' If Aviso.Grenzstelle.Replace("???", "") <> "" Then - ' If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG - ' End If - 'End If - Aviso.FreigabeFiliale = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE - - 'Speditionsbuch aktualisieren - SQL.doSQL("UPDATE Speditionsbuch SET FilialenNrHandling='" & VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE & "' WHERE AvisoId='" & Aviso.AvisoID & "'", "FMZOLL") - - tmpid = AvisoDAL.SpeichernAviso(Aviso) - AvisoDAL.addAenderung(tmpid, "auf FREIGABE gesetzt", "auf FREIGABE gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - If Not Aviso.LKW_fertig Then - AvisoDAL.addAenderung(tmpid, "LKW ist fertig - nicht gesetzt", "LKW ist fertig - nicht gesetzt, deshalb automatisch gesetzt mit FREIGABE") - End If - - - 'Wenn DE oder AT Zoll eingereicht -> automatisch fertigstellen XXXXXXXXXX - ' MsgBox(AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 17)) - If AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 17) Then - ' MsgBox(AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 18)) - If Not AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 18) Then - Dim myVermerk As New cVermerk - myVermerk.AvisoID = Aviso.AvisoID : myVermerk.Datum = Now - myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID - myVermerk.Hinweis_Vermerk = "DE Zoll fertig" : myVermerk.VermerkCodeId = 18 - VermerkeDAL.SpeichernVermerk(myVermerk) - End If - End If - If AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 19) Then - If Not AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 20) Then - Dim myVermerk As New cVermerk - myVermerk.AvisoID = Aviso.AvisoID : myVermerk.Datum = Now - myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID - myVermerk.Hinweis_Vermerk = "AT Zoll fertig" : myVermerk.VermerkCodeId = 20 - VermerkeDAL.SpeichernVermerk(myVermerk) - End If - End If - - - - 'nach dem erfolgreichem Speichern wird jetzt noch ein automatisches Mail für den Frächter und Auftraggeber erstellt - - SendFreigabeEmail(Aviso) - - VERAG_PROG_ALLGEMEIN.cMessenger.SET_LKWCHAT_INAKTIV(Aviso.AvisoID) - - If True Then - - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTONACHERFASSUNG", CONTROL.FindForm) Then - Dim doAutoNacherf = True ' (vbYes = MsgBox("Autonacherfassung durchführen?", vbYesNoCancel)) - If doAutoNacherf Then - AUTONACHERFASSUNG(CONTROL, AvisoID) - End If - - End If - End If - End If - Return (tmpid > 0) - End Function - - Function setFreigabeMsg(AVISO As VERAG_PROG_ALLGEMEIN.cAviso) As Boolean - - Dim text = "" - Dim text_Freigabe = "" - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "ATILLA" - 'Case "VERAG", "IMEX", "IMEX", "IMEX" - Case Else - Try - If IsNumeric(AVISO.Auftraggeber_KdNr) Then - Dim cADMIN As New cADMIN - text = cADMIN.getValueTxtBySql("SELECT DokumenteLKWFreigabe FROM Kunden WHERE KundenNr=" & AVISO.Auftraggeber_KdNr, "FMZOLL") - End If - Catch ex As Exception - End Try - End Select - - If AVISO.Freigabe_Info <> "" Then - text_Freigabe &= AVISO.Freigabe_Info - End If - - If True Then ' If text <> "" Or text_Freigabe <> "" Then - - Dim f As New frmFreigabeSetzen(AVISO) - f.rtbDokumente.Text = text - f.rtbSonstigeInfo.Text = text_Freigabe - If AVISO.Grenzstelle = "SUB" Then ' Nur in Suben! - f.cbxInfoblattFurDigitalabfertigungDrucken.Checked = (SQL.DLookup("COUNT(*)", "Vermerke", " AvisoID=" & AVISO.AvisoID & " and VermerkeCode=82", "AVISO", 0) > 0) - End If - - If f.ShowDialog() = DialogResult.Cancel Then - Return False - End If - End If - Return True - End Function - - - Shared Sub printFinish(myAviso As VERAG_PROG_ALLGEMEIN.cAviso) - Try - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_Freigabe_FinishDigital") Then - If myAviso.Grenzstelle = "SUB" Then ' Nur in Suben! - If (SQL.DLookup("COUNT(*)", "Vermerke", " AvisoID=" & myAviso.AvisoID & " and VermerkeCode=82", "AVISO", 0) > 0) Then - Dim path = SDL.FormularManagerNEU.Finish_AVISO(myAviso) - Dim oPS As New System.Drawing.Printing.PrinterSettings - If path <> "" Then - VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, oPS.PrinterName) - MsgBox("Finish-Zettel wird gedruckt!") - End If - End If - End If - - End If - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - - End Sub - - Public Sub AUTONACHERFASSUNG(CONTROL As Control, AvisoID As Integer) - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then - MsgBox("Keine Berechtigung!") - Exit Sub - End If - Dim ZOLL_IMPORT As New DAKOSY_Worker.cZOLL_IMPORT - - Try - CONTROL.FindForm.Cursor = Cursors.WaitCursor - Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) - For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoID).Rows - SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID"))) - Next - - For Each s In SENDUNG_LIST - If s.tblSnd_Abfertigungsart_ID = 23 Then - If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FMZollPersID Then - Dim Personalnummer = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FMZollPersID - - Dim SPEDITIONSBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(s.FilialenNr, s.AbfertigungsNr) - If Not SPEDITIONSBUCH.hasEntry Then - - Dim notFound As Boolean = True - - SPEDITIONSBUCH = ZOLL_IMPORT.IMPORT(SPEDITIONSBUCH, AvisoID, s.tblSnd_SendungID, "", "", "", "", "", notFound, True, Personalnummer) - - If ZOLL_IMPORT.checkIfAutoOK Then - If SPEDITIONSBUCH.SAVE() Then - s.tblSnd_SpeditionsbuchEingetragen = 1 - s.SAVE() - End If - End If - Else - Dim SPEDBUCH_LIST As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuchList(s.FilialenNr, s.AbfertigungsNr) 'Liste laden, falls merhrere Einträge - If SPEDBUCH_LIST IsNot Nothing AndAlso SPEDBUCH_LIST.LIST IsNot Nothing Then - For Each SB In SPEDBUCH_LIST.LIST - If Not SPEDITIONSBUCH.Bar Then - ZOLL_IMPORT.SetBarKassiert(SB) ' BAR-Häckchen setzen, wenn kassiert wurde! (durch auto-Nacherfassung of nicht gesetzt) - End If - Next - - End If - - End If - 'If ZOLL_IMPORT.AUTO_IMPORT(s.tblSnd_SendungID) Then - ' s.tblSnd_SpeditionsbuchEingetragen = 1 - ' s.SAVE() - 'End If - End If - End If - Next - - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - CONTROL.FindForm.Cursor = Cursors.Default - End Sub - Public Function AktUebernehmen(AvisoID, Optional askSendungenUebernehmen = False, Optional checkStatus = True, Optional nurLeereSendungenUebernehmen = False) As Boolean - - 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then - ' MsgBox("Keine Berechtigung!") - ' Return False - 'End If - - 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen - If AvisoID <= 0 Then - MsgBox("Kein Aviso ausgewählt!") - Return False - End If - - 'jetzt ausgewählten Datensatz einlesen - Dim Aviso As New cAviso - Aviso = AvisoDAL.LesenAviso(AvisoID, "") - If Aviso Is Nothing Then Return False - If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False - - - Dim msg As String - Dim antwort As MsgBoxResult - - - If checkStatus Then - - 'Taste Akt übernehmen - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then - MsgBox("Dieses LKW-Aviso ist bereits freigegeben.", vbInformation) - Return False - End If - - If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then - MsgBox("Dieses LKW-Aviso ist bereits auf 'LKW nicht eingetroffen' gesetzt.", vbInformation) - Return False - End If - End If - - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then - Aviso.Buero = VERAG_PROG_ALLGEMEIN.cAllgemein.BÜRO - End If - 'Status ist Ankunft, Vorbereitet, Vorgeschrieben oder Erfasst - aktiver Mitarbeiter wird geändert - Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter - Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId - - - 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then - ' If Aviso.Grenzstelle.Replace("???", "") <> "" Then - ' If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG - ' End If - 'End If - - Aviso.Änderungen = "Akt übernommen von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) - Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) - AvisoDAL.addAenderung(tmpid, "Akt übernommen", "Akt übernommen von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - - 'Benachrichtigungen erledigen 'nicht mehr, 16.07.2020 - 'VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID, True) - - - If askSendungenUebernehmen Or nurLeereSendungenUebernehmen Then - Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) - VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN - - If nurLeereSendungenUebernehmen Then - For Each s In SENDUNG_LIST - If s.LetzterMitarbeiterId Is Nothing OrElse CInt(s.LetzterMitarbeiterId) <= 0 Then - SendungUebernehmen(s.tblSnd_SendungID, AvisoID) - End If - Next - Else - Dim alleAkten = False - If askSendungenUebernehmen Then - - If Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then - For Each s1 In SENDUNG_LIST - If s1.LetzterMitarbeiterId IsNot Nothing AndAlso s1.LetzterMitarbeiterId <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then - Select Case MsgBox("Möchten Sie alle Sendungen übernehmen?", vbYesNoCancel) - Case vbYes : alleAkten = True - Case vbCancel : Return False - End Select - Exit For - End If - Next - End If - End If - - If alleAkten Then - For Each s In SENDUNG_LIST - ' If s.LetzterMitarbeiterId IsNot Nothing Then - SendungUebernehmen(s.tblSnd_SendungID, AvisoID) - ' End If - Next - End If - End If - - End If - Try - If frmHauptfenster.pnlDetailsRechts.Controls.Count > 0 Then - Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoID) - 'Case "VERAG" - ' If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then - ' DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2) - ' End If - Case "ATILLA" - If VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND Then - - GoTo ELSE_ATILLA - - Else - If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", "AVISO") Then - If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID = AvisoID Then - DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).showInfo("Akt übernommen", 2) - End If - End If - End If - - Case Else -ELSE_ATILLA: - If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then - DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2) - End If - - End Select - End If - Catch ex As Exception - 'MsgBox(ex.Message) - End Try - Return (tmpid > 0) - End Function - - - - Public Function AktUebernehmen_Zuruecksetzen(AvisoID As Integer, Optional WeiterleitungTextTV As String = "", Optional letzterMitarbeiter As String = "Weiterleitung") As Boolean - Try - - 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then - ' MsgBox("Keine Berechtigung!") - ' Return False - 'End If - - 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen - If AvisoID <= 0 Then - MsgBox("Kein Aviso ausgewählt!") - Return False - End If - - 'jetzt ausgewählten Datensatz einlesen - Dim Aviso As New cAviso - Aviso = AvisoDAL.LesenAviso(AvisoID, "") - If Aviso Is Nothing Then Return False - If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False - - - - Aviso.LetzterMitarbeiterId = -1 - Aviso.letzterMitarbeiter = letzterMitarbeiter ' VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter - Aviso.WeiterleitungTextTV = WeiterleitungTextTV ' VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter - - Aviso.TeamId = -1 'VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId - - - 'Aviso.Änderungen = "Akt übernommen von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) - 'Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) - 'AvisoDAL.addAenderung(tmpid, "Akt übernommen", "Akt übernommen von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - - Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) - VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN - - AvisoDAL.SpeichernAviso(Aviso, False) - - - 'Nicht MEHR! - 'For Each s In SENDUNG_LIST - ' ' If s.LetzterMitarbeiterId IsNot Nothing Then - ' SendungUebernehmen_Zuruecksetzen(s.tblSnd_SendungID, AvisoID) - ' ' End If - 'Next - - - - Return True - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - Return False - End Try - - - End Function - - Public Function SendungUebernehmen(SendungsId As Integer, AvisoID As Integer, Optional MaId As Integer = -1, Optional GesendetAn As Boolean = False) As Boolean - - 'If SendungsId Is Nothing Then Return False - If Not IsNumeric(SendungsId) Then Return False - ' If AvisoID Is Nothing Then Return False - If Not IsNumeric(AvisoID) Then Return False - - Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) - - Return SendungUebernehmen(SENDUNG_TMP, MaId, GesendetAn) - End Function - - Public Function SendungUebernehmen(ByRef SENDUNG_TMP As VERAG_PROG_ALLGEMEIN.cSendungen, Optional MaId As Integer = -1, Optional GesendetAn As Boolean = False) As Boolean - Dim MITARBEITER As cMitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER - If MaId > 0 Then - MITARBEITER = New cMitarbeiter(MaId) - End If - - If SENDUNG_TMP Is Nothing Then Return False - Dim saveSachbearbeiterTmp = SENDUNG_TMP.saveSachbearbeiter - SENDUNG_TMP.saveSachbearbeiter = True - SENDUNG_TMP.LetzterMitarbeiterId = MITARBEITER.mit_id - SENDUNG_TMP.LetzterMitarbeiter = MITARBEITER.Fullname - If Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then ' nur, wenn BO, dann darf das Team geändert werden... Damit das zuständige Team nachvollzeiehn kann, was mit dem LKW ist... - SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId - End If - If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then - If (SENDUNG_TMP.tblSnd_QS_MA Is Nothing OrElse SENDUNG_TMP.tblSnd_QS_MA <= 0) Then SENDUNG_TMP.tblSnd_QS_MA = MITARBEITER.mit_id - Else - If (SENDUNG_TMP.tblSnd_VG_MA Is Nothing OrElse SENDUNG_TMP.tblSnd_VG_MA <= 0) Then SENDUNG_TMP.tblSnd_VG_MA = MITARBEITER.mit_id - End If - - If SENDUNG_TMP.SAVE() Then - AvisoDAL.addAenderung(SENDUNG_TMP.tblSnd_AvisoID, "Sendung übernommen", "Sendung Nr. " & SENDUNG_TMP.tblSnd_PosUnterNr & If(GesendetAn, " gesendet an ", " übernommen von ") & MITARBEITER.Fullname & " am " & Format(Now, "dd.MM.yyyy HH:mm") & If(GesendetAn, " (von " & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname & ")", "")) - SENDUNG_TMP.saveSachbearbeiter = saveSachbearbeiterTmp - - 'Benachrichtigungen erledigen 'nicht mehr, 16.07.2020 - ' VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_SND(SENDUNG_TMP.tblSnd_SendungID, True) - - Return True - End If - SENDUNG_TMP.saveSachbearbeiter = saveSachbearbeiterTmp - Return False - End Function - - Public Function SendungUebernehmen_Zuruecksetzen(SendungsId As Integer, AvisoID As Integer) As Boolean - - If Not IsNumeric(SendungsId) Then Return False - If Not IsNumeric(AvisoID) Then Return False - - Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) - - Return SendungUebernehmen_Zuruecksetzen(SENDUNG_TMP) - End Function - Public Function SendungUebernehmen_Zuruecksetzen(ByRef SENDUNG_TMP As VERAG_PROG_ALLGEMEIN.cSendungen) As Boolean - - - If SENDUNG_TMP Is Nothing Then Return False - Dim saveSachbearbeiterTmp = SENDUNG_TMP.saveSachbearbeiter - SENDUNG_TMP.saveSachbearbeiter = True - SENDUNG_TMP.LetzterMitarbeiterId = -1 - SENDUNG_TMP.LetzterMitarbeiter = "" - SENDUNG_TMP.tblSnd_TeamId = -1 - - 'If Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then ' nur, wenn BO, dann darf das Team geändert werden... Damit das zuständige Team nachvollzeiehn kann, was mit dem LKW ist... - ' SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId - 'End If - - If SENDUNG_TMP.SAVE() Then - 'AvisoDAL.addAenderung(SENDUNG_TMP.tblSnd_AvisoID, "Sendung übernommen", "Sendung Nr. " & SENDUNG_TMP.tblSnd_PosUnterNr & If(GesendetAn, " gesendet an ", " übernommen von ") & MITARBEITER.Fullname & " am " & Format(Now, "dd.MM.yyyy HH:mm") & If(GesendetAn, " (von " & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname & ")", "")) - SENDUNG_TMP.saveSachbearbeiter = saveSachbearbeiterTmp - Return True - End If - SENDUNG_TMP.saveSachbearbeiter = saveSachbearbeiterTmp - Return False - End Function - - - Public Function setSendungVorgeschrieben(SendungsId, AvisoID) As Boolean - - If SendungsId Is Nothing Then Return False - If Not IsNumeric(SendungsId) Then Return False - If AvisoID Is Nothing Then Return False - If Not IsNumeric(AvisoID) Then Return False - - - Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) - - SENDUNG_TMP.saveSachbearbeiter = True - - If SENDUNG_TMP.tblSnd_Vorgeschrieben Is Nothing Then - SENDUNG_TMP.tblSnd_VG_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERIMEX" Then - If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId - End If - SENDUNG_TMP.tblSnd_Vorgeschrieben = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn.. - AvisoDAL.addAenderung(AvisoID, "Sendung auf VORGESCHRIEBEN gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kreditlimit_Check_SND_Vorgeschrieben", "AVISO") Then - frmSendungsdetailsNEU.checkKreditlimit_ID(frmHauptfenster, AvisoID, SendungsId, True, False) 'NOCH NICHT.. - End If - Else - SENDUNG_TMP.tblSnd_Vorgeschrieben = Nothing - AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT VORGESCHRIEBEN gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - End If - - - Return SENDUNG_TMP.SAVE() - - End Function - - Public Function setSendungVorbereitetQS(SendungsId, AvisoID) As Boolean - - If SendungsId Is Nothing Then Return False - If Not IsNumeric(SendungsId) Then Return False - If AvisoID Is Nothing Then Return False - If Not IsNumeric(AvisoID) Then Return False - - Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) - - SENDUNG_TMP.saveSachbearbeiter = True - - If SENDUNG_TMP.tblSnd_Vorbereitet Is Nothing Then ' VB gesetzt! - SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID - SENDUNG_TMP.tblSnd_FilialeAbklaerung = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE - 'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then - ' SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID - 'End If - - - 'Lt. Bespr. ML und TW (6.10.22) --> wenn VBQS gesetzt, soll MA leer sein: - SENDUNG_TMP.LetzterMitarbeiter = "" - SENDUNG_TMP.LetzterMitarbeiterId = -1 - - - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERIMEX" Then - If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId - End If - SENDUNG_TMP.tblSnd_Vorbereitet = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn.. - AvisoDAL.addAenderung(AvisoID, "Sendung auf VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - Else - SENDUNG_TMP.tblSnd_Vorbereitet = Nothing - AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - End If - Return SENDUNG_TMP.SAVE() - - End Function - - Public Function setSendungAbklaerungTR(SendungsId, AvisoID) As Boolean - - If SendungsId Is Nothing Then Return False - If Not IsNumeric(SendungsId) Then Return False - If AvisoID Is Nothing Then Return False - If Not IsNumeric(AvisoID) Then Return False - - Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) - - SENDUNG_TMP.saveSachbearbeiter = True - - 'If SENDUNG_TMP.tblSnd_Vorgeschrieben IsNot Nothing Then - ' MsgBox("Sendung wurde bereits auf 'Vorgeschrieben' gesetzt - Status nicht mehr möglich!") - ' Return False - 'End If - 'If SENDUNG_TMP.tblSnd_Vorbereitet IsNot Nothing Then - ' MsgBox("Sendung wurde bereits auf 'QS Vorbereitet' gesetzt - Status nicht mehr möglich!") - ' Return False - 'End If - - - If SENDUNG_TMP.tblSnd_AbklaerungTR Is Nothing Then - SENDUNG_TMP.tblSnd_AbklaerungTR_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID - SENDUNG_TMP.tblSnd_FilialeAbklaerung = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE - 'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then - ' SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID - 'End If - 'If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId - - SENDUNG_TMP.tblSnd_AbklaerungTR = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn.. - AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - Else - SENDUNG_TMP.tblSnd_AbklaerungTR = Nothing - AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - End If - Return SENDUNG_TMP.SAVE() - - End Function - - Public Function setSendungAbfertigungTR(SendungsId, AvisoID, Optional anzahl = 1, Optional anzahlPos = 1) As Boolean - - If SendungsId Is Nothing Then Return False - If Not IsNumeric(SendungsId) Then Return False - If AvisoID Is Nothing Then Return False - If Not IsNumeric(AvisoID) Then Return False - - Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) - - SENDUNG_TMP.saveSachbearbeiter = True - - 'If SENDUNG_TMP.tblSnd_Vorgeschrieben IsNot Nothing Then - ' MsgBox("Sendung wurde bereits auf 'Vorgeschrieben' gesetzt - Status nicht mehr möglich!") - ' Return False - 'End If - 'If SENDUNG_TMP.tblSnd_Vorbereitet IsNot Nothing Then - ' MsgBox("Sendung wurde bereits auf 'QS Vorbereitet' gesetzt - Status nicht mehr möglich!") - ' Return False - 'End If - - SENDUNG_TMP.tblSnd_AbfertigungTRAnzahl = anzahl - SENDUNG_TMP.tblSnd_AbfertigungTRAnzahlPos = anzahlPos - - If SENDUNG_TMP.tblSnd_AbfertigungTR Is Nothing Then - SENDUNG_TMP.tblSnd_AbfertigungTR_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID - 'SENDUNG_TMP.tblSnd_FilialeAbfertigung = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE - 'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then - ' SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID - 'End If - ' If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId - - SENDUNG_TMP.tblSnd_AbfertigungTR = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn.. - AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & "(Anz:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahl & ", Pos:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahlPos & ")") - Else - SENDUNG_TMP.tblSnd_AbfertigungTR = Nothing - AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - End If - Return SENDUNG_TMP.SAVE() - - End Function - - Public Function setSendungFakturiert(SendungsId, AvisoID) As Boolean - - If SendungsId Is Nothing Then Return False - If Not IsNumeric(SendungsId) Then Return False - If AvisoID Is Nothing Then Return False - If Not IsNumeric(AvisoID) Then Return False - - Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) - - SENDUNG_TMP.saveSachbearbeiter = False - - If SENDUNG_TMP.tblSnd_Fakturiert Is Nothing Then - - SENDUNG_TMP.tblSnd_Fakturiert = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn.. - AvisoDAL.addAenderung(AvisoID, "Sendung auf FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - Else - SENDUNG_TMP.tblSnd_Fakturiert = Nothing - AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) - End If - Return SENDUNG_TMP.SAVE() - - End Function - - - Public Function openSnd(sendId, AvisoID) As Form - Try - - - If sendId Is Nothing Then Return Nothing - If AvisoID Is Nothing Then Return Nothing - If sendId <= 0 Then Return Nothing - If AvisoID <= 0 Then Return Nothing - - For Each openForm In Application.OpenForms() - If TypeOf (openForm) Is frmSendungsdetailsNEU Then - 'MsgBox("Sendungsfenster bereits geöffnet!") - 'CType(openForm, frmSendungsdetailsNEU).BringToFront() - 'Return Nothing - CType(openForm, frmSendungsdetailsNEU).WindowState = FormWindowState.Minimized - CType(openForm, frmSendungsdetailsNEU).Close() - Exit For - End If - Next - - ' Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() - Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId) - frmSendungsdetails.Show() 'Dialog() ' frmSendungsdetails.ShowDialog(frmGrayOut) - ' frmGrayOut.Close() - Return frmSendungsdetails - - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - - End Function - - - 'avisoAktualisierenAktiveIdBehalten(AvisoID) - - - ' End Function - - - Shared Function getGrenzstelleZollstelle(hGrenzstelle As String, AVISO As VERAG_PROG_ALLGEMEIN.cAviso) As String - If hGrenzstelle.Replace("???", "") <> "" Then - Dim Standorte As New cStandorteDAL - Dim Standort As New cStandort - Standort = Standorte.LesenStandort(0, hGrenzstelle, "") - If Not IsNothing(Standort) Then - Return Standort.Standort_Text.Trim - End If - Else - If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle.ToString <> "" Then - ' hGrenzstelle = VERAGSQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS") - hGrenzstelle = VERAGSQL.getValueTxtBySql("SELECT [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & AVISO.Zollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())) order by left(Code,2), Description ", "FMZOLL") - - End If - End If - - Return hGrenzstelle.Replace("???", "") - End Function - - - Shared Function Platzhalter_ersetzen(hText As String, hLKW As String, hGrenzstelle As String, abfertigungsNr As String, art As String, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, KundenNr As Integer, ByRef anhaenge As List(Of String), artKunde As String) As String - If hText = "" Then - Platzhalter_ersetzen = hText - Exit Function - End If - - hText = hText.Replace("%LKW%", hLKW) - - Select Case art - Case "5" - Dim linkAviso = "https://status.app.verag.ag/aviso-status/" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID) - hText = hText.Replace("%Link%", "") - - Case Else - - - 'hier werden alle möglichen Platzhalter ersetzt - - - hText = hText.Replace("%Standort%", getGrenzstelleZollstelle(hGrenzstelle, AVISO)) - hText = hText.Replace("%Uhrzeit%", Format(Now, "dd.MM.yyyy HH:mm")) - hText = hText.Replace("&", "und") - - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" - hText = hText.Replace("%Firma_simple%", "IMEX") - hText = hText.Replace("%Firma%", "IMEX Customs Service GmbH") - hText = hText.Replace("%Platzhalter2%", "

Freundliche Grüße / Saygilarimizla / Best Regards
- IMEX Customs Service GmbH
- Abteilung: Zollabfertigung
- Tel.: +43 7711 31630
- Fax: +43 7711 31630 - 1
- Mail: info@imex-group.at
- ") - Case "UNISPED" - hText = hText.Replace("%Firma_simple%", "UNISPED") - hText = hText.Replace("%Firma%", "UNISPED Speditions GmbH") - hText = hText.Replace("%Platzhalter2%", "

Freundliche Grüße / Saygilarimizla / Best Regards
- UNISPED Speditions GmbH
- Abteilung: Zollabfertigung
- Tel.: +43 7711 2677-0
- Mail: office@unisped.at
- ") - Case "ATILLA" - - hText = hText.Replace("%Firma_simple%", "ATILLA") - hText = hText.Replace("%Firma%", "ATILLA Spedition GmbH") - Case "AMBAR" - - hText = hText.Replace("%Firma_simple%", "AMBAR") - hText = hText.Replace("%FirmaTR%", "Ambar Logistic Bad Reichenhall") - hText = hText.Replace("%Firma%", "Ambar Logistic in Bad Reichenhall") - Case Else - hText = hText.Replace("%Platzhalter2%", "") - - hText = hText.Replace("%Firma_simple%", "VERAG") - hText = hText.Replace("%Firma%", "VERAG Spedition AG") - End Select - - hText = hText.Replace("%AbfertigungsNr%", abfertigungsNr) - - Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KundenNr) - - If (art = 2 Or art = 4) And (KUNDE_ERW.EmailFreigabeSendungsListe Or KUNDE_ERW.EmailFreigabe_VBDPDF Or KUNDE_ERW.EmailFreigabe_SteuerbescheidPDF) Then 'Freigabe - - Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) - VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AVISO.AvisoID) 'LÄDT alle SENDUNGSDATEN - If SENDUNG_LIST.Count > 0 Then - - Dim SendungslistTXT = "" - SendungslistTXT &= "Sendungsliste:
" - SendungslistTXT &= "" - - 'If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then - ' SendungslistTXT &= "" - 'Else - ' SendungslistTXT &= "" - 'End If - Dim showNCTSAdress = False - If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FREIGABEMAIL_T1Adresse") Then showNCTSAdress = True - SendungslistTXT &= "" & If(showNCTSAdress, "", "") & "" - - Dim cnt = 1 - For Each s In SENDUNG_LIST - If s.tblSnd_Abfertigungsart_ID <> 9 And isKdInSendData(KUNDE_ERW, AVISO, s) Then - - Dim AtcMrn = "" - Dim DsId = "" - Dim DsId2 = "" - Dim frist = "" - Dim gestellungsadresse = "" - - - - getDataFronDY_NCTS(s.tblSnd_SendungID, AtcMrn, frist, DsId, s.FilialenNr, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID, s.tblSnd_DakosyRef) - If KUNDE_ERW.EmailFreigabe_VBDPDF And IsNumeric(DsId) Then 'VBD anhängen - Try - Dim anhaengeVersand As New List(Of String) - Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False) - If PathTmp <> "" Then anhaengeVersand.Add(PathTmp) : found = True - - '--------------------------------------------------------- - 'AMBAR: BEI T2 auch EXPORT_DOCS mitschicken! ' ------------------------'''Rechnung, CMR; Ausfuhr - '--------------------------------------------------------- - If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FREIGABEMAIL_T2_ANHAENGER") Then '--> nur bei AMBAR gesetzt - Select Case s.tblSnd_Abfertigungsart_ID - Case 6, 18, 24, 32, 33, 34, 37, 40 'nur T2!! - Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge) - VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST, s.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge - For Each l In ANH_LIST - Select Case l.anh_Art.ToString.ToUpper - ' Case "RECHNUNG", "CMR", "AUSFUHR", "COO", "PACKLISTE" - Case "EXPORT_DOCS" - Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False) - If PathTmpANH <> "" Then anhaengeVersand.Add(PathTmpANH) : found = True - End Select - Next - End Select - End If - '--------------------------------------------------------- - - If anhaengeVersand.Count = 1 Then - anhaenge.Add(anhaengeVersand(0)) 'Falls nur 1 Anhang - ElseIf anhaengeVersand.Count > 1 Then - 'AMBAR: Zusammenfassen des T2 und der T2 Anhänge - Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("T2_" & s.FilialenNr & "-" & s.AbfertigungsNr & ".pdf", ".pdf",, False, "Zusammenfassung_T2_AMB") - If SDL.FormularManagerNEU.MergePdfFiles(anhaengeVersand, zielPfadZusammenfassung) Then - anhaenge.Add(zielPfadZusammenfassung) - End If - End If - - - - Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try - If Not found Then - AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47) - 'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)") - MsgBox("ACHTUNG: Das Versandbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das VBD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr) - End If - End If - Case 7 'Ausfuhr - - getDataFronDY_AES(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2) - ' MsgBox(DsId) - If KUNDE_ERW.EmailFreigabe_ABDPDF And IsNumeric(DsId) Then 'VBD anhängen - Try - Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False) - If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True - Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try - If Not found Then - AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: ABD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47) - 'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)") - MsgBox("ACHTUNG: Das Ausfuhrbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das ABD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr) - End If - End If - Case Else - getDataFronDY_EZA(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2) - If s.tblSnd_Abfertigungsart_ID = 23 Then - s.LOAD_HANDLING() - For Each hd In s.HANDLING - AtcMrn &= hd.sndhdg_nr & ", " - Next - If AtcMrn.EndsWith(", ") Then AtcMrn = AtcMrn.Substring(0, AtcMrn.Length - 2) - - 'If If(s.tblSnd_ATCMRN_Fremd, "") <> "" Then AtcMrn = s.tblSnd_ATCMRN_Fremd - End If - Select Case artKunde - Case "FRÄCHTER", "AVISIERER" 'Die bekommen keine Steuerbescheide.. - Case Else - - If KUNDE_ERW.EmailFreigabe_SteuerbescheidPDF And (IsNumeric(DsId) Or IsNumeric(DsId2)) Then 'Steuerbescheid anhängen - If checkSteuerbescheidbedingung(KundenNr, DsId) Or checkSteuerbescheidbedingung(KundenNr, DsId2) Then - Try - If IsNumeric(DsId) Then - Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False) - If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True - End If - If IsNumeric(DsId) Then - Dim PathTmp2 = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId2)).GET_TOP1_PATH(False) - If PathTmp2 <> "" Then anhaenge.Add(PathTmp2) : found = True - End If - Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try - If Not found Then - AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47) - ' AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)") - MsgBox("ACHTUNG: Der Steuerbescheid konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden den Steuerbescheid per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr) - End If - End If - End If - End Select - End Select - If IsDate(frist) Then frist = CDate(frist).ToShortDateString - - Dim txtCluster = "" - ' If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then txtCluster = "" - txtCluster = "" - SendungslistTXT &= "" & txtCluster & "" & If(showNCTSAdress, gestellungsadresse, "") & " " - cnt += 1 - End If - Next - - SendungslistTXT &= "
Nr. Spedition PosNr Art Empfänger ATC/MRN Frist (T1/T2)
Nr. PosNr Art Empfänger ATC/MRN Frist (T1/T2)
Nr. Spedition PosNr Art Empfänger ATC/MRN Frist (T1/T2) Gestellungsadresse (T1/T2)
" - Dim found = False - Select Case s.tblSnd_Abfertigungsart_ID - Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand - gestellungsadresse = "" & s.getNCTSAdress(True, True, False) & "" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(s.FilialenNr, False) & "" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(s.FilialenNr, False) & "
" & cnt & "" & If(s.FilialenNr > 0, s.FilialenNr, "") & "/" & If(s.AbfertigungsNr > 0, s.AbfertigungsNr, "") & "" & getAbfertBez(s) & "" & If(s.tblSnd_Empfaenger, "") & "" & AtcMrn & "" & frist & "
" - SendungslistTXT &= "

" - If cnt = 1 Then ' wurde nicht erhöht -> keine Einträge - SendungslistTXT = "" - End If - If KUNDE_ERW.EmailFreigabeSendungsListe Then hText = hText.Replace("%Platzhalter%", SendungslistTXT) - End If - End If - End Select - hText = hText.Replace("%Platzhalter%", "") - - Platzhalter_ersetzen = hText - End Function - - Private Shared VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL - Shared Function getEZOLL_Steuerbescheid(KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen) As List(Of String) - Dim LIST As New List(Of String) - - Dim dt As DataTable = VERAGSQL.loadDgvBySql("", "EZOLL") - - - End Function - - - 'Prüft, ob die KundenNr in den Daten vorkommt --> zB Empfänger, soll nur die Empfänger-Sendung gefunden werden, Frächter scheint immer auf. - Shared Function isKdInSendData(KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen) - If KUNDE_ERW.kde_KundenNr <= 0 Then Return False - Select Case KUNDE_ERW.kde_KundenNr.ToString - Case SENDUNG.tblSnd_AbsenderKdNr.ToString : Return True - Case SENDUNG.tblSnd_EmpfaengerKdNr.ToString : Return True - Case SENDUNG.tblSnd_AuftraggeberKdNr.ToString : Return True - Case AVISO.Auftraggeber_KdNr.ToString : Return True - Case AVISO.Frächter_KdNr.ToString : Return True - End Select - Return False - End Function - Shared Function checkSteuerbescheidbedingung(KdNr As Integer, DSId As String) As Boolean - Try - If DSId = "" Then Return False - If Not IsNumeric(DSId) Then Return False - - Dim KD_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KdNr) - 'Alle KD-Aufschubdaten laden - Dim KD_AUFSCHUB = VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten.LOAD_ListAufschubKTOByKdNr(KdNr) - If KD_ERW IsNot Nothing AndAlso KD_ERW.EmailFreigabe_SteuerbescheidPDF Then - Select Case KD_ERW.EmailFreigabe_SteuerbescheidPDF_Bedingung - Case 0 : Return True - Case 1 - 'EZA Laden - Dim eza_id = VERAGSQL.getValueTxtBySql("SELECT TOP 1 isnull(eza_id,'') FROM [tblDakosy_Zollanmeldungen] INNER JOIN tblDakosy_EZA ON eza_dyaAnmID=dy_Id where [dy_Steuerbescheid_dsId]='" & DSId & "'", "FMZOLL") - If IsNumeric(eza_id) Then - 'Aufschub laden und vergleichen - Dim EZA As New DAKOSY_Worker.cDakosyEZA(eza_id) - If EZA IsNot Nothing AndAlso EZA.eza_AUFSCHUB IsNot Nothing Then - For Each eza_a In EZA.eza_AUFSCHUB - For Each a In KD_AUFSCHUB - If eza_a.ezaAfb_KontoNr = a.kdAkto_kontonummer Then - 'Wenn Kontonummer gefunden --> reuten true - Return True - End If - Next - Next - End If - End If - End Select - End If - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - - Return False - End Function - - - Shared Function getAbfertBez(s As VERAG_PROG_ALLGEMEIN.cSendungen) As String - If s.tblSnd_Fremdspedition Then Return If(s.tblSnd_FremdspeditionText <> "", s.tblSnd_FremdspeditionText, "FREMD") - If s.tblSnd_Abfertigungsart_ID < 0 Then Return "-" - Return VERAGSQL.getValueTxtBySql("select isnull(Abfertigungsbezeichnung,'-') from Abfertigungsarten where Abfertigungsart='" & s.tblSnd_Abfertigungsart_ID & "'", "FMZOLL") - End Function - - Shared Function getDataFronDY_NCTS(SendungsId, ByRef AtcMrn, ByRef frist, ByRef dsId, FilialenNr, AbfertigungsNr, tblSnd_Abfertigungsart_ID, tblSnd_DakosyRef) As Boolean - If SendungsId Is Nothing Then Return False - If Not IsNumeric(AbfertigungsNr) Then Return False - If AbfertigungsNr <= 0 Then Return False - - If FilialenNr <> 4805 And FilialenNr <> 4811 Then ' Kein Ü-T - Dim dt = VERAGSQL.loadDgvBySql("SELECT isnull(dy_vbd_dsid,'') as DsId ,isnull(isnull(ncts_MRN,ncts_ANR),'') as MRN, isnull(ncts_Wiedergestellungsdatum ,'') as WG FROM tblDakosy_Zollanmeldungen inner join tblDakosy_nctsout on dy_id=ncts_dyaAnmID where dy_SendungsId='" & SendungsId & "' and dy_status <= 70 order by dy_status desc, dy_Erstellung desc", "FMZOLL") - If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - AtcMrn = dt.Rows(0)("MRN") - dsId = dt.Rows(0)("DsId") - frist = dt.Rows(0)("WG") - Return True - Else - Try 'AT-Zollsystem - Dim sql As New VERAG_PROG_ALLGEMEIN.SQL - AtcMrn = sql.getValueTxtBySql("SELECT CRN FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN LIKE '" & FilialenNr & "/" & AbfertigungsNr & "%' OR LRN LIKE '" & FilialenNr & "-" & AbfertigungsNr & "%') ORDER BY GeaendertAm DESC", "EZOLL") - frist = sql.getValueTxtBySql("SELECT TOP 1 Gestellungsfrist FROM vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme WHERE (LRN LIKE '" & FilialenNr & "/" & AbfertigungsNr & "%' OR LRN LIKE '" & FilialenNr & "-" & AbfertigungsNr & "%') ", "EZOLL") - dsId = sql.getValueTxtBySql("SELECT TOP 1 [DokumentId_VBD] FROM [Speditionsbuch] where [DokumentId_VBD] is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL") - Catch : End Try - End If - End If - - 'Wenn nichts gefunden: - Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung - ZOLLANMELDUNG.getDataByBezugsnummer(FilialenNr & "/" & AbfertigungsNr, tblSnd_Abfertigungsart_ID.ToString, tblSnd_DakosyRef, False) ' Die weiteren Daten werden hier geladen - If ZOLLANMELDUNG IsNot Nothing Then - AtcMrn = ZOLLANMELDUNG.ATCMRN - 'dsId = dt.Rows(0)("DsId") - 'frist = ZOLLANMELDUNG.dat - End If - - Return False - End Function - - Shared Function getDataFronDY_EZA(SendungsId, ByRef AtcMrn, ByRef dsId, FilialenNr, AbfertigungsNr, ByRef dsId2) As Boolean - If SendungsId Is Nothing Then Return False - If Not IsNumeric(AbfertigungsNr) Then Return False - If AbfertigungsNr <= 0 Then Return False - - Dim dt = VERAGSQL.loadDgvBySql("SELECT isnull(dy_steuerbescheid_dsid,'') as DsId, isnull(eza_ANR,'') as ATC FROM tblDakosy_Zollanmeldungen inner join tblDakosy_eza on dy_id=eza_dyaAnmID where dy_SendungsId='" & SendungsId & "' and dy_status <= 70 order by dy_status desc, dy_Erstellung desc", "FMZOLL") - If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - AtcMrn = dt.Rows(0)("ATC") - dsId = dt.Rows(0)("DsId") - Return True - Else - Try 'AT-Zollsystem - Dim sql As New VERAG_PROG_ALLGEMEIN.SQL - AtcMrn = sql.getValueTxtBySql("SELECT CRN FROM zsAnmRefs WHERE (VorgangID = 'EF') AND (LRN LIKE '" & FilialenNr & "/" & AbfertigungsNr & "%' OR LRN LIKE '" & FilialenNr & "-" & AbfertigungsNr & "%') ORDER BY GeaendertAm DESC", "EZOLL") - dsId = sql.getValueTxtBySql("SELECT TOP 1 DokumentId_Steuerbeleg FROM [Speditionsbuch] where DokumentId_Steuerbeleg is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL") - dsId2 = sql.getValueTxtBySql("SELECT TOP 1 DokumentId_Mitteilung FROM [Speditionsbuch] where DokumentId_Mitteilung is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL") - - Catch : End Try - End If - Return False - End Function - - Shared Function getDataFronDY_AES(SendungsId, ByRef AtcMrn, ByRef dsId, FilialenNr, AbfertigungsNr, ByRef dsId2) As Boolean - If SendungsId Is Nothing Then Return False - If Not IsNumeric(AbfertigungsNr) Then Return False - If AbfertigungsNr <= 0 Then Return False - - Dim dt = VERAGSQL.loadDgvBySql("SELECT isnull(dy_ABD_dsId,'') as DsId, isnull(aes_MRN,'') as ATC FROM tblDakosy_Zollanmeldungen inner join tblDakosy_AES on dy_id=aes_dyaAnmID where dy_SendungsId='" & SendungsId & "' and dy_status <= 70 order by dy_status desc, dy_Erstellung desc", "FMZOLL") - If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - AtcMrn = dt.Rows(0)("ATC") - dsId = dt.Rows(0)("DsId") - Return True - Else - Try 'AT-Zollsystem - 'Dim sql As New VERAG_PROG_ALLGEMEIN.SQL - 'AtcMrn = sql.getValueTxtBySql("SELECT CRN FROM zsAnmRefs WHERE (VorgangID = 'EF') AND (LRN LIKE '" & FilialenNr & "/" & AbfertigungsNr & "%' OR LRN LIKE '" & FilialenNr & "-" & AbfertigungsNr & "%') ORDER BY GeaendertAm DESC", "EZOLL") - 'dsId = sql.getValueTxtBySql("SELECT TOP 1 DokumentId_Steuerbeleg FROM [Speditionsbuch] where DokumentId_Steuerbeleg is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL") - 'dsId2 = sql.getValueTxtBySql("SELECT TOP 1 DokumentId_Mitteilung FROM [Speditionsbuch] where DokumentId_Mitteilung is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL") - '....... FEHLT NOCH !!!! - Catch : End Try - End If - Return False - End Function - - Function SpeditionsbuchEintrag(AvisoID As Integer, SendungID As Integer) As posNr - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then - MsgBox("Keine Berechtigung!") - Return Nothing - End If - - Try - Dim posNr As New posNr - If SendungID < 0 Then MsgBox("Fehler: SendungID kleiner 0.") : Return Nothing - If AvisoID < 0 Then MsgBox("Fehler: AvisoID kleiner 0.") : Return Nothing - - Dim frmNacherfassung As New SDL.frmNacherfassungNEU - ' MsgBox("1") - Dim sendung As New VERAG_PROG_ALLGEMEIN.cSendungen(SendungID) - 'Dim dr As DataRow = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr,AbfertigungsNr, UnterNr FROM tblSendungen WHERE tblSnd_SendungID=" & SendungID).Rows(0) - Dim dr As DataRow = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr,AbfertigungsNr, UnterNr FROM tblSendungen WHERE FilialenNr=" & sendung.FilialenNr & " AND AbfertigungsNr=" & sendung.AbfertigungsNr & " order by UnterNr ").Rows(0) - - posNr.Filiale = VarToInt2(dr.Item("FilialenNr")) - posNr.Abfertigungsnummer = VarToInt2(dr.Item("AbfertigungsNr")) - posNr.UnterNr = VarToInt2(dr.Item("UnterNr")) - If posNr.UnterNr < 0 Then posNr.UnterNr = 0 - - If posNr.Filiale <= 0 And VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale > 0 Then 'Aus den Mitarbeiter-Stammdaten - posNr.Filiale = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale - End If - - If posNr.Abfertigungsnummer <= 0 Or posNr.Filiale <= 0 Or posNr.UnterNr < 0 Then - Dim frmPosNr As New SDL.frmPosNr(posNr.Filiale, posNr.Abfertigungsnummer, posNr.UnterNr) - Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() - - If Not frmPosNr.ShowDialog(frmGrayOut) = DialogResult.OK Then frmGrayOut.Close() : Return Nothing - frmGrayOut.Close() - - posNr.Abfertigungsnummer = frmPosNr.txtAbfertigungsnummer.Text - posNr.Filiale = frmPosNr.cboFiliale._value - posNr.UnterNr = frmPosNr.txtUnterNr.Text - ' Dim cADMIN As New cADMIN - ' cADMIN.doSQL(" UPDATE tblSendungen SET FilialenNr='" & posNr.Filiale & "',AbfertigungsNr='" & srchAbfertigungsnummer & "', UnterNr='" & srchUnterNr & "' FROM tblSendungen WHERE tblSnd_SendungID=" & SendungID) - - End If - - frmNacherfassung.avisoLinkId = AvisoID - frmNacherfassung.SendungID = SendungID - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - frmNacherfassung.srchAbfertigungsnummer = posNr.Abfertigungsnummer - frmNacherfassung.srchFiliale = posNr.Filiale - frmNacherfassung.srchUnterNr = posNr.UnterNr - ' frmNacherfassung.FMZollPersID = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.mit_FMZollPersID - ' Dim qsMa_TMP = SQL.getValueTxtBySql("SELECT TOP 1 isnull([MitarbeiterId],-1) FROM [Aenderungen] WHERE Aenderung_Art = 'auf VORBEREITET gesetzt' AND [AvisoID]='" & AvisoID & "' ORDER BY Datum DESC", "AVISO") - - ' Dim qsMa = SQL.getValueTxtBySql("SELECT TOP 1 isnull([mit_FMZollPersID],-1) FROM [tblMitarbeiter] WHERE [mit_id]='" & qsMa_TMP & "' ", "ADMIN") - frmNacherfassung.newEntry = (0 = CInt(SQL.getValueTxtBySql("SELECT Count(*) FROM Speditionsbuch WHERE FilialenNr='" & posNr.Filiale & "' AND AbfertigungsNr='" & posNr.Abfertigungsnummer & "' AND UnterNr='" & posNr.UnterNr & "' ", "FMZOLL"))) - 'frmNacherfassung.FMZollPersIDQS = IIf(IsNumeric(qsMa_TMP), qsMa_TMP, -1) - - - frmNacherfassung.ShowDialog() - - posNr.Abfertigungsnummer = frmNacherfassung.txtAbfertigungsnummer.Text - posNr.Filiale = frmNacherfassung.cboFiliale._value - posNr.UnterNr = frmNacherfassung.txtUnterNr.Text - - - Return posNr - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - Return Nothing - End Try - End Function - - Public Sub showKd(kdnr, Optional TopMost = False) - 'For Each frm As Form In Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then Exit Sub - - For Each openForm In Application.OpenForms() - If TypeOf (openForm) Is SDL.frmKundenUebersichtZOLL Then - CType(openForm, SDL.frmKundenUebersichtZOLL).BringToFront() - If TopMost Then CType(openForm, SDL.frmKundenUebersichtZOLL).TopMost = True - CType(openForm, SDL.frmKundenUebersichtZOLL).KdSearchBox1.KdNr = kdnr - Exit Sub - End If - Next - 'If False Then - - ' If Not Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing Then - ' Application.OpenForms.Item("frmKundenUebersichtZOLL").BringToFront() - ' Exit Sub - ' End If - 'End If - '' Next - Dim zoll As New SDL.frmKundenUebersichtZOLL(kdnr) - If zoll IsNot Nothing Then zoll.Show() : zoll.BringToFront() - End Sub - - - Shared Sub insertVermerkAllg(AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "", Optional BeschreibungMA As String = "") - 'Daten zuweisen und speichern - Dim myVermerk As New cVermerk - myVermerk.VermerkID = 0 - myVermerk.AvisoID = AvisoID - myVermerk.Datum = Now - myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter & " " & BeschreibungMA - myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID - myVermerk.Hinweis_Vermerk = Text - myVermerk.VermerkCodeId = VermerkCodeId - Dim VermerkeDAL As New cVermerkeDAL - VermerkeDAL.SpeichernVermerk(myVermerk) - If frmHauptfenster IsNot Nothing Then frmHauptfenster.Details_anzeigen(AvisoID) - - End Sub - - Shared Sub insertSendungsVermerk(SendungID As Integer, AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "", Optional VorauskasseId As Object = Nothing, Optional addAuto As Boolean = False) - 'Daten zuweisen und speichern - Dim myVermerk As New cVermerk - myVermerk.VermerkID = 0 - myVermerk.AvisoID = AvisoID - myVermerk.Datum = Now - myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter & If(addAuto, " (AUTO)", "") - myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID - myVermerk.Hinweis_Vermerk = Text - myVermerk.VermerkCodeId = VermerkCodeId - myVermerk.SendungID = SendungID - If VorauskasseId IsNot Nothing AndAlso VorauskasseId IsNot DBNull.Value Then myVermerk.VorauskasseId = VorauskasseId - myVermerk.VermerkArt = "S" - Dim VermerkeDAL As New cVermerkeDAL - - VermerkeDAL.SpeichernVermerk(myVermerk) - - If myVermerk.VermerkCodeId = 18 Then - VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False) - frmHauptfenster.avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID) - End If - - End Sub -End Class -Public Class posNr - Property Abfertigungsnummer As Integer = -1 - Property Filiale As Integer = -1 - Property UnterNr As Integer = -1 -End Class - diff --git a/Aviso/frmHauptfensterNew.Designer.vb b/Aviso/frmHauptfensterNew.Designer.vb new file mode 100644 index 0000000..a623d60 --- /dev/null +++ b/Aviso/frmHauptfensterNew.Designer.vb @@ -0,0 +1,4232 @@ + +Partial Class frmHauptfensterNew + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHauptfensterNew)) + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem() + Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem() + Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.conFertig = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.conVorbereitet = New System.Windows.Forms.ToolStripMenuItem() + Me.conVorgeschrieben = New System.Windows.Forms.ToolStripMenuItem() + Me.conAnkunft = New System.Windows.Forms.ToolStripMenuItem() + Me.conAnVerimex = New System.Windows.Forms.ToolStripMenuItem() + Me.conAnIndonesien = New System.Windows.Forms.ToolStripMenuItem() + Me.conFreigabe = New System.Windows.Forms.ToolStripMenuItem() + Me.conNichtEingetroffen = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.conÄndern = New System.Windows.Forms.ToolStripMenuItem() + Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() + Me.mnuProgramm = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuFirmen = New System.Windows.Forms.ToolStripMenuItem() + Me.NeuesPasswortToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.OptionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ZeilenInFarbeEinausToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.BerechtigungenNeuLadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.FenstergrößeVariabelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ATILLASENDUNGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.StandorteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AvisoTVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.InfoTextÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.TVEditorNewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SecretAvisoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AdministrationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.KdNrZuordnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.OptionenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.VorlagenUploadToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.BarcodeTestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.TabellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SMSTestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.QSTeamsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.LeereRechnungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.EMAILTESTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.FreigabeMailTestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SDLProgrammStartenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.TESTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AlleStatusMailsSchickenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.RoutenverwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AnhangsartenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SpireLizenzPrüfenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.FirmaWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.VERAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ATILLAToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.IMEXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.UNISPEDToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AMBARToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.FRONTOFFICEToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.VERIMEXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.StandortWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SUBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SBGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.WAIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.NKDToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.NEUToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AMBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DTBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SpracheWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DeutschToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.EnglishToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.TürkischToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.StandarddruckerWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.NacherfassungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.VollständigesUpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.LogoutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.FunktionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.GenerelleGestellungenDurchsuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.KundenVonFremdenSpeditionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.KundenverwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.MDMParkplatzkartenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SMSSendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.NeueSMSSendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.GesendeteSMSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.MRNBarcodedruckToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator() + Me.tool_BRGXLS = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem() + Me.BürgschaftenExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() + Me.GesamtsicherheitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ATVeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ATImexCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ATVeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DEVeragGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ATUnispedGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DEAmbarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem10 = New System.Windows.Forms.ToolStripMenuItem() + Me.TICKETWaidhausToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator() + Me.DAKOSYToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.StammreferenzenVerwaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator23 = New System.Windows.Forms.ToolStripSeparator() + Me.toolOriginalATR = New System.Windows.Forms.ToolStripMenuItem() + Me.SDLAbholaufträgeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem13 = New System.Windows.Forms.ToolStripMenuItem() + Me.VorauskassenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator11 = New System.Windows.Forms.ToolStripSeparator() + Me.EssensbestellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AdministrationEssensbestellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator24 = New System.Windows.Forms.ToolStripSeparator() + Me.WarenorteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DatevBuchungsexportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.EMAILToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.FTPToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.APIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.FIBUSachkontenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.StatistikToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.LKWBerichtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.StatistikADMINToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator() + Me.BürgschafrtsbuchungenFremdToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.LKWEingetroffenNachToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator() + Me.SDLAuswertungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SDLAuswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripFormulare = New System.Windows.Forms.ToolStripMenuItem() + Me.MANAGERToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.MailvorlagenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.toolStrVM_de = New System.Windows.Forms.ToolStripMenuItem() + Me.ZollvollmachtDEFiskalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.toolStrVM_at = New System.Windows.Forms.ToolStripMenuItem() + Me.toolStrVM_at4200 = New System.Windows.Forms.ToolStripMenuItem() + Me.ZollvollmachtATEVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem12 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem15 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem18 = New System.Windows.Forms.ToolStripMenuItem() + Me.AuftragÜberwachungsdokumentToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.toolVUB = New System.Windows.Forms.ToolStripMenuItem() + Me.VUBVERAGSpeditionAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.VeragCustomsServiceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.toolVPCreditreform = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator() + Me.VerzollungsunterlagenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem11 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator() + Me.WAIDHAUSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem8 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem9 = New System.Windows.Forms.ToolStripMenuItem() + Me.AnnahmeblattIMPORTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AnnahmeblattEXPORTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ChecklisteVerwahrlagerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator() + Me.EinheitspapierToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CMRToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Einheitspapier0735VersandverfahrenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CarnetTIRToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CarnetTIRALTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuFragezeichen = New System.Windows.Forms.ToolStripMenuItem() + Me.VerfahrenshandbücherToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ChecklistenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ChecklisteWOCHECKLISTEZEallgemein = New System.Windows.Forms.ToolStripMenuItem() + Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator22 = New System.Windows.Forms.ToolStripSeparator() + Me.WOCHECKLISTEZVAllgemeinToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator21 = New System.Windows.Forms.ToolStripSeparator() + Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.WOCECKLISTEZEWDHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.HandbuchToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.VERAGWIKIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.BREXITToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.GVMSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.GVMSUKIMportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.GVMSBeschreibungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator14 = New System.Windows.Forms.ToolStripSeparator() + Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.TicketIBFBeschreibungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.IBFStatusToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator15 = New System.Windows.Forms.ToolStripSeparator() + Me.FREnveloppeSmartBorderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator16 = New System.Windows.Forms.ToolStripSeparator() + Me.PBNIrelandFähreToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator20 = New System.Windows.Forms.ToolStripSeparator() + Me.WARENORTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ATFormularZa282ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ATInfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator17 = New System.Windows.Forms.ToolStripSeparator() + Me.DEFormular0442ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DEInfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem16 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator19 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripSeparator18 = New System.Windows.Forms.ToolStripSeparator() + Me.EORIUKGeneriertenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.KAPKentAccessPermitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.btnWoche = New System.Windows.Forms.Button() + Me.btnGestern = New System.Windows.Forms.Button() + Me.btnHeute = New System.Windows.Forms.Button() + Me.btnAlleAnzeigen = New System.Windows.Forms.Button() + Me.pnlDetailsRechts = New System.Windows.Forms.Panel() + Me.lblMitarbeiter = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.txtSuche = New System.Windows.Forms.TextBox() + Me.Top = New System.Windows.Forms.Panel() + Me.Button1 = New System.Windows.Forms.Button() + Me.lblUsrname = New System.Windows.Forms.Label() + Me.lblFimaAviso = New System.Windows.Forms.Label() + Me.Button11 = New System.Windows.Forms.Button() + Me.btnMAVerzeichnis = New System.Windows.Forms.Button() + Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnKontakt = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.lblGrenzstelle = New System.Windows.Forms.Label() + Me.lblVersion = New System.Windows.Forms.Label() + Me.btnFakturierung = New System.Windows.Forms.Button() + Me.btnDienstplan = New System.Windows.Forms.Button() + Me.btnRg = New System.Windows.Forms.Button() + Me.btnKassenbuch = New System.Windows.Forms.Button() + Me.btnRefresh = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() + Me.btnKunden = New System.Windows.Forms.Button() + Me.btnSpedBuch = New System.Windows.Forms.Button() + Me.lblDauer = New System.Windows.Forms.Label() + Me.btnDrucken = New System.Windows.Forms.Button() + Me.Button6 = New System.Windows.Forms.Button() + Me.btnUmrechnungskurse = New System.Windows.Forms.Button() + Me.btnZollwebseiten = New System.Windows.Forms.Button() + Me.lblZeit_aktuell = New System.Windows.Forms.Label() + Me.dtpBis = New System.Windows.Forms.DateTimePicker() + Me.dtpVon = New System.Windows.Forms.DateTimePicker() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Timer1 = New System.Windows.Forms.Timer(Me.components) + Me.btnWichtige = New System.Windows.Forms.Button() + Me.btnWichtigeStandort = New System.Windows.Forms.Button() + Me.btnMinimieren = New System.Windows.Forms.Button() + Me.lblSuche = New System.Windows.Forms.Label() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.btnZertifikate = New System.Windows.Forms.Button() + Me.Label7 = New System.Windows.Forms.Label() + Me.lblErrVermerk = New System.Windows.Forms.Label() + Me.lblHinweis = New System.Windows.Forms.Label() + Me.Label20 = New System.Windows.Forms.Label() + Me.pnlLinksOben = New System.Windows.Forms.Panel() + Me.Label22 = New System.Windows.Forms.Label() + Me.btnE_Aviso = New System.Windows.Forms.Button() + Me.btnNeu = New System.Windows.Forms.Button() + Me.cntxtAtilla = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ToolStripMenuItem17 = New System.Windows.Forms.ToolStripMenuItem() + Me.Button7 = New System.Windows.Forms.Button() + Me.picAVISOMessenger = New System.Windows.Forms.PictureBox() + Me.pic = New System.Windows.Forms.PictureBox() + Me.btnClose = New System.Windows.Forms.Button() + Me.TimerAkte = New System.Windows.Forms.Timer(Me.components) + Me.tabVorgeschrieben = New System.Windows.Forms.TabPage() + Me.tabFreigegeben = New System.Windows.Forms.TabPage() + Me.tabNichtEingetroffen = New System.Windows.Forms.TabPage() + Me.tabAnkunft = New System.Windows.Forms.TabPage() + Me.tabVorbereitet = New System.Windows.Forms.TabPage() + Me.pnlAktOption = New System.Windows.Forms.Panel() + Me.Button8 = New System.Windows.Forms.Button() + Me.btnFertig = New System.Windows.Forms.Button() + Me.tabAlle = New System.Windows.Forms.TabPage() + Me.tabErfasst = New System.Windows.Forms.TabPage() + Me.tbcntrAvisoLKW = New System.Windows.Forms.TabControl() + Me.tabVERIMEX = New System.Windows.Forms.TabPage() + Me.tabINDONESIEN = New System.Windows.Forms.TabPage() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.pnlDetailsLinks = New System.Windows.Forms.Panel() + Me.splitMain = New System.Windows.Forms.SplitContainer() + Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.Panel1 = New System.Windows.Forms.Panel() + Me.pblSNDOptions = New System.Windows.Forms.Panel() + Me.cbx_My_Brexit = New System.Windows.Forms.CheckBox() + Me.btnColor = New System.Windows.Forms.Button() + Me.lblMySND_Anzeige = New System.Windows.Forms.Label() + Me.cboMyAvisoAnzeige = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboMy_QS = New System.Windows.Forms.CheckBox() + Me.cbx_My_LKW = New System.Windows.Forms.CheckBox() + Me.cboMy_VB = New System.Windows.Forms.CheckBox() + Me.lblMySnd_Grenzstelle = New System.Windows.Forms.Label() + Me.CheckBox1 = New System.Windows.Forms.CheckBox() + Me.tbcntrAvisoSND = New System.Windows.Forms.TabControl() + Me.tbSndAlle = New System.Windows.Forms.TabPage() + Me.tbSndOffen = New System.Windows.Forms.TabPage() + Me.tbSndFreigegeben = New System.Windows.Forms.TabPage() + Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.cboImEx = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.lblAkte = New System.Windows.Forms.Label() + Me.Label21 = New System.Windows.Forms.Label() + Me.cbxCluster = New System.Windows.Forms.CheckBox() + Me.cboTeams = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.lblErweitereSuche = New System.Windows.Forms.LinkLabel() + Me.Label16 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.lblEintraege = New System.Windows.Forms.Label() + Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.lblGrenze = New System.Windows.Forms.Label() + Me.pnlTime = New System.Windows.Forms.Panel() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.pnlSearch = New System.Windows.Forms.Panel() + Me.lblAbsender = New System.Windows.Forms.Label() + Me.txtAbsender = New System.Windows.Forms.TextBox() + Me.txtDyRef = New System.Windows.Forms.TextBox() + Me.Label19 = New System.Windows.Forms.Label() + Me.lblErwLKWID = New System.Windows.Forms.Label() + Me.txtlkwId = New System.Windows.Forms.TextBox() + Me.cbxNE = New System.Windows.Forms.CheckBox() + Me.cbxFreigabe = New System.Windows.Forms.CheckBox() + Me.cbxAnkunft = New System.Windows.Forms.CheckBox() + Me.cbxVorg = New System.Windows.Forms.CheckBox() + Me.cbxVorb = New System.Windows.Forms.CheckBox() + Me.cbxErfasst = New System.Windows.Forms.CheckBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.txtKdAuftragsnr = New System.Windows.Forms.TextBox() + Me.txtAuftraggeber = New System.Windows.Forms.TextBox() + Me.lblErwKdAtrNr = New System.Windows.Forms.Label() + Me.Button4 = New System.Windows.Forms.Button() + Me.lblErwEmpfänger = New System.Windows.Forms.Label() + Me.txtEmpfänger = New System.Windows.Forms.TextBox() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsnummer = New System.Windows.Forms.TextBox() + Me.lblErwFilialePos = New System.Windows.Forms.Label() + Me.lblErwAuftraggeber = New System.Windows.Forms.Label() + Me.cbxAlle = New System.Windows.Forms.CheckBox() + Me.btnSmall = New System.Windows.Forms.Button() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() + Me.timerStandzeit = New System.Windows.Forms.Timer(Me.components) + Me.Label9 = New System.Windows.Forms.Label() + Me.TimerUPDATE = New System.Windows.Forms.Timer(Me.components) + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.pnlOptionen = New System.Windows.Forms.Panel() + Me.btnKasse_User = New System.Windows.Forms.Button() + Me.btnKasse_LG = New System.Windows.Forms.Button() + Me.btnTV = New System.Windows.Forms.Button() + Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.BundesanzeigerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.EUTaricToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ZugelassenerAusführerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AllgemeinToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AllgemeineEinführungExportkontrolleToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.BrexitToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.EmbargosLänderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.GüterlisteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components) + Me.ColorDialog = New System.Windows.Forms.ColorDialog() + Me.ctxtFarben = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ALLEToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.Panel4 = New System.Windows.Forms.Panel() + Me.cntVerag = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ZertifikateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem() + Me.pnlLeft = New System.Windows.Forms.Panel() + Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen() + Me.Panel5 = New System.Windows.Forms.Panel() + Me.Panel7 = New System.Windows.Forms.Panel() + Me.conMenuAviso.SuspendLayout() + Me.MenuStrip1.SuspendLayout() + Me.pnlDetailsRechts.SuspendLayout() + Me.Top.SuspendLayout() + Me.Panel2.SuspendLayout() + Me.pnlLinksOben.SuspendLayout() + Me.cntxtAtilla.SuspendLayout() + CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tbcntrAvisoLKW.SuspendLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + Me.pnlDetailsLinks.SuspendLayout() + CType(Me.splitMain, System.ComponentModel.ISupportInitialize).BeginInit() + Me.splitMain.Panel1.SuspendLayout() + Me.splitMain.Panel2.SuspendLayout() + Me.splitMain.SuspendLayout() + CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + Me.pblSNDOptions.SuspendLayout() + Me.tbcntrAvisoSND.SuspendLayout() + Me.pnlTime.SuspendLayout() + Me.pnlSearch.SuspendLayout() + Me.pnlOptionen.SuspendLayout() + Me.cntxt.SuspendLayout() + Me.ctxtFarben.SuspendLayout() + Me.Panel3.SuspendLayout() + Me.Panel4.SuspendLayout() + Me.cntVerag.SuspendLayout() + Me.pnlLeft.SuspendLayout() + Me.Panel5.SuspendLayout() + Me.SuspendLayout() + ' + 'mnuInfo + ' + Me.mnuInfo.Name = "mnuInfo" + Me.mnuInfo.Size = New System.Drawing.Size(214, 22) + Me.mnuInfo.Text = "Info" + ' + 'conÜbernehmen + ' + Me.conÜbernehmen.Name = "conÜbernehmen" + Me.conÜbernehmen.Size = New System.Drawing.Size(286, 22) + Me.conÜbernehmen.Text = "Akt übernehmen" + ' + 'conMenuAviso + ' + Me.conMenuAviso.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.conMenuAviso.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.conÜbernehmen, Me.ToolStripSeparator5, Me.conFertig, Me.ToolStripSeparator1, Me.conVorbereitet, Me.conVorgeschrieben, Me.conAnkunft, Me.conAnVerimex, Me.conAnIndonesien, Me.conFreigabe, Me.conNichtEingetroffen, Me.ToolStripSeparator2, Me.conÄndern}) + Me.conMenuAviso.Name = "conMenuTage" + Me.conMenuAviso.Size = New System.Drawing.Size(287, 242) + ' + 'ToolStripSeparator5 + ' + Me.ToolStripSeparator5.Name = "ToolStripSeparator5" + Me.ToolStripSeparator5.Size = New System.Drawing.Size(283, 6) + ' + 'conFertig + ' + Me.conFertig.Name = "conFertig" + Me.conFertig.Size = New System.Drawing.Size(286, 22) + Me.conFertig.Text = "LKW ist FERTIG / nicht FERTIG" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(283, 6) + ' + 'conVorbereitet + ' + Me.conVorbereitet.Name = "conVorbereitet" + Me.conVorbereitet.Size = New System.Drawing.Size(286, 22) + Me.conVorbereitet.Text = "auf Status VORBEREITET setzen" + ' + 'conVorgeschrieben + ' + Me.conVorgeschrieben.Name = "conVorgeschrieben" + Me.conVorgeschrieben.Size = New System.Drawing.Size(286, 22) + Me.conVorgeschrieben.Text = "auf Status VORGESCHRIEBEN setzen" + ' + 'conAnkunft + ' + Me.conAnkunft.Name = "conAnkunft" + Me.conAnkunft.Size = New System.Drawing.Size(286, 22) + Me.conAnkunft.Text = "auf Status ANKUNFT setzen" + ' + 'conAnVerimex + ' + Me.conAnVerimex.Name = "conAnVerimex" + Me.conAnVerimex.Size = New System.Drawing.Size(286, 22) + Me.conAnVerimex.Text = "auf Status AN VERIMEX setzen" + ' + 'conAnIndonesien + ' + Me.conAnIndonesien.Name = "conAnIndonesien" + Me.conAnIndonesien.Size = New System.Drawing.Size(286, 22) + Me.conAnIndonesien.Text = "auf Status AN INDONESIEN setzen" + ' + 'conFreigabe + ' + Me.conFreigabe.Name = "conFreigabe" + Me.conFreigabe.Size = New System.Drawing.Size(286, 22) + Me.conFreigabe.Text = "auf Status FREIGABE setzen" + ' + 'conNichtEingetroffen + ' + Me.conNichtEingetroffen.Name = "conNichtEingetroffen" + Me.conNichtEingetroffen.Size = New System.Drawing.Size(286, 22) + Me.conNichtEingetroffen.Text = "auf Status NICHT EINGETROFFEN setzen" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(283, 6) + ' + 'conÄndern + ' + Me.conÄndern.Name = "conÄndern" + Me.conÄndern.Size = New System.Drawing.Size(286, 22) + Me.conÄndern.Text = "Eintrag ändern" + ' + 'MenuStrip1 + ' + Me.MenuStrip1.BackColor = System.Drawing.Color.White + Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.Fill + Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProgramm, Me.FunktionenToolStripMenuItem, Me.StatistikToolStripMenuItem, Me.ToolStripFormulare, Me.mnuFragezeichen, Me.BREXITToolStripMenuItem}) + Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) + Me.MenuStrip1.Name = "MenuStrip1" + Me.MenuStrip1.Size = New System.Drawing.Size(1303, 20) + Me.MenuStrip1.TabIndex = 3 + Me.MenuStrip1.Text = "MenuStrip1" + ' + 'mnuProgramm + ' + Me.mnuProgramm.BackColor = System.Drawing.Color.Transparent + Me.mnuProgramm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFirmen, Me.NeuesPasswortToolStripMenuItem, Me.OptionenToolStripMenuItem, Me.StandorteToolStripMenuItem, Me.AvisoTVToolStripMenuItem, Me.SecretAvisoToolStripMenuItem, Me.AdministrationToolStripMenuItem, Me.ToolStripSeparator4, Me.FirmaWechselnToolStripMenuItem, Me.StandortWechselnToolStripMenuItem, Me.SpracheWechselnToolStripMenuItem, Me.StandarddruckerWechselnToolStripMenuItem, Me.NacherfassungToolStripMenuItem, Me.VollständigesUpdateToolStripMenuItem, Me.UpdateToolStripMenuItem, Me.LogoutToolStripMenuItem}) + Me.mnuProgramm.ForeColor = System.Drawing.Color.Black + Me.mnuProgramm.Name = "mnuProgramm" + Me.mnuProgramm.Size = New System.Drawing.Size(78, 16) + Me.mnuProgramm.Text = "Verwaltung" + ' + 'mnuFirmen + ' + Me.mnuFirmen.Name = "mnuFirmen" + Me.mnuFirmen.Size = New System.Drawing.Size(213, 22) + Me.mnuFirmen.Text = "Firmen" + Me.mnuFirmen.Visible = False + ' + 'NeuesPasswortToolStripMenuItem + ' + Me.NeuesPasswortToolStripMenuItem.Name = "NeuesPasswortToolStripMenuItem" + Me.NeuesPasswortToolStripMenuItem.Size = New System.Drawing.Size(213, 22) + Me.NeuesPasswortToolStripMenuItem.Text = "Neues Passwort" + ' + 'OptionenToolStripMenuItem + ' + Me.OptionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZeilenInFarbeEinausToolStripMenuItem, Me.BerechtigungenNeuLadenToolStripMenuItem, Me.FenstergrößeVariabelToolStripMenuItem, Me.ATILLASENDUNGToolStripMenuItem}) + Me.OptionenToolStripMenuItem.Name = "OptionenToolStripMenuItem" + Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(213, 22) + Me.OptionenToolStripMenuItem.Text = "Optionen" + ' + 'ZeilenInFarbeEinausToolStripMenuItem + ' + Me.ZeilenInFarbeEinausToolStripMenuItem.Name = "ZeilenInFarbeEinausToolStripMenuItem" + Me.ZeilenInFarbeEinausToolStripMenuItem.Size = New System.Drawing.Size(213, 22) + Me.ZeilenInFarbeEinausToolStripMenuItem.Text = "Zeilen in Farbe ein/aus" + ' + 'BerechtigungenNeuLadenToolStripMenuItem + ' + Me.BerechtigungenNeuLadenToolStripMenuItem.Name = "BerechtigungenNeuLadenToolStripMenuItem" + Me.BerechtigungenNeuLadenToolStripMenuItem.Size = New System.Drawing.Size(213, 22) + Me.BerechtigungenNeuLadenToolStripMenuItem.Text = "Berechtigungen neu laden" + ' + 'FenstergrößeVariabelToolStripMenuItem + ' + Me.FenstergrößeVariabelToolStripMenuItem.Name = "FenstergrößeVariabelToolStripMenuItem" + Me.FenstergrößeVariabelToolStripMenuItem.Size = New System.Drawing.Size(213, 22) + Me.FenstergrößeVariabelToolStripMenuItem.Text = "Fenstergröße variabel" + ' + 'ATILLASENDUNGToolStripMenuItem + ' + Me.ATILLASENDUNGToolStripMenuItem.Name = "ATILLASENDUNGToolStripMenuItem" + Me.ATILLASENDUNGToolStripMenuItem.Size = New System.Drawing.Size(213, 22) + Me.ATILLASENDUNGToolStripMenuItem.Text = "ATILLA - SENDUNG" + ' + 'StandorteToolStripMenuItem + ' + Me.StandorteToolStripMenuItem.Name = "StandorteToolStripMenuItem" + Me.StandorteToolStripMenuItem.Size = New System.Drawing.Size(213, 22) + Me.StandorteToolStripMenuItem.Text = "Standorte" + Me.StandorteToolStripMenuItem.Visible = False + ' + 'AvisoTVToolStripMenuItem + ' + Me.AvisoTVToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.InfoTextÄndernToolStripMenuItem, Me.TVEditorNewToolStripMenuItem}) + Me.AvisoTVToolStripMenuItem.Name = "AvisoTVToolStripMenuItem" + Me.AvisoTVToolStripMenuItem.Size = New System.Drawing.Size(213, 22) + Me.AvisoTVToolStripMenuItem.Text = "AvisoTV" + Me.AvisoTVToolStripMenuItem.Visible = False + ' + 'InfoTextÄndernToolStripMenuItem + ' + Me.InfoTextÄndernToolStripMenuItem.Name = "InfoTextÄndernToolStripMenuItem" + Me.InfoTextÄndernToolStripMenuItem.Size = New System.Drawing.Size(156, 22) + Me.InfoTextÄndernToolStripMenuItem.Text = "InfoText ändern" + ' + 'TVEditorNewToolStripMenuItem + ' + Me.TVEditorNewToolStripMenuItem.Name = "TVEditorNewToolStripMenuItem" + Me.TVEditorNewToolStripMenuItem.Size = New System.Drawing.Size(156, 22) + Me.TVEditorNewToolStripMenuItem.Text = "TVEditorNew" + ' + 'SecretAvisoToolStripMenuItem + ' + Me.SecretAvisoToolStripMenuItem.Name = "SecretAvisoToolStripMenuItem" + Me.SecretAvisoToolStripMenuItem.Size = New System.Drawing.Size(213, 22) + Me.SecretAvisoToolStripMenuItem.Text = "SecretAviso" + ' + 'AdministrationToolStripMenuItem + ' + Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdNrZuordnenToolStripMenuItem, Me.OptionenToolStripMenuItem1, Me.VorlagenUploadToolStripMenuItem, Me.BarcodeTestToolStripMenuItem, Me.TabellenToolStripMenuItem, Me.SMSTestToolStripMenuItem, Me.QSTeamsToolStripMenuItem, Me.LeereRechnungToolStripMenuItem, Me.EMAILTESTToolStripMenuItem, Me.FreigabeMailTestToolStripMenuItem, Me.SDLProgrammStartenToolStripMenuItem, Me.TESTToolStripMenuItem, Me.AlleStatusMailsSchickenToolStripMenuItem, Me.RoutenverwaltungToolStripMenuItem, Me.AnhangsartenToolStripMenuItem, Me.SpireLizenzPrüfenToolStripMenuItem}) + Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem" + Me.AdministrationToolStripMenuItem.Size = New System.Drawing.Size(213, 22) + Me.AdministrationToolStripMenuItem.Text = "Administration" + Me.AdministrationToolStripMenuItem.Visible = False + ' + 'KdNrZuordnenToolStripMenuItem + ' + Me.KdNrZuordnenToolStripMenuItem.Name = "KdNrZuordnenToolStripMenuItem" + Me.KdNrZuordnenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.KdNrZuordnenToolStripMenuItem.Text = "KdNr Zuordnen" + ' + 'OptionenToolStripMenuItem1 + ' + Me.OptionenToolStripMenuItem1.Name = "OptionenToolStripMenuItem1" + Me.OptionenToolStripMenuItem1.Size = New System.Drawing.Size(209, 22) + Me.OptionenToolStripMenuItem1.Text = "Optionen" + ' + 'VorlagenUploadToolStripMenuItem + ' + Me.VorlagenUploadToolStripMenuItem.Name = "VorlagenUploadToolStripMenuItem" + Me.VorlagenUploadToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.VorlagenUploadToolStripMenuItem.Text = "Vorlagen Upload" + ' + 'BarcodeTestToolStripMenuItem + ' + Me.BarcodeTestToolStripMenuItem.Name = "BarcodeTestToolStripMenuItem" + Me.BarcodeTestToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.BarcodeTestToolStripMenuItem.Text = "Barcode Test" + ' + 'TabellenToolStripMenuItem + ' + Me.TabellenToolStripMenuItem.Name = "TabellenToolStripMenuItem" + Me.TabellenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.TabellenToolStripMenuItem.Text = "Tabellen" + ' + 'SMSTestToolStripMenuItem + ' + Me.SMSTestToolStripMenuItem.Name = "SMSTestToolStripMenuItem" + Me.SMSTestToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.SMSTestToolStripMenuItem.Text = "SMS Test" + ' + 'QSTeamsToolStripMenuItem + ' + Me.QSTeamsToolStripMenuItem.Name = "QSTeamsToolStripMenuItem" + Me.QSTeamsToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.QSTeamsToolStripMenuItem.Text = "QS Teams" + ' + 'LeereRechnungToolStripMenuItem + ' + Me.LeereRechnungToolStripMenuItem.Name = "LeereRechnungToolStripMenuItem" + Me.LeereRechnungToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.LeereRechnungToolStripMenuItem.Text = "leere Rechnung TEST" + ' + 'EMAILTESTToolStripMenuItem + ' + Me.EMAILTESTToolStripMenuItem.Name = "EMAILTESTToolStripMenuItem" + Me.EMAILTESTToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.EMAILTESTToolStripMenuItem.Text = "EMAILTEST" + ' + 'FreigabeMailTestToolStripMenuItem + ' + Me.FreigabeMailTestToolStripMenuItem.Name = "FreigabeMailTestToolStripMenuItem" + Me.FreigabeMailTestToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.FreigabeMailTestToolStripMenuItem.Text = "FreigabeMail test" + ' + 'SDLProgrammStartenToolStripMenuItem + ' + Me.SDLProgrammStartenToolStripMenuItem.Name = "SDLProgrammStartenToolStripMenuItem" + Me.SDLProgrammStartenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.SDLProgrammStartenToolStripMenuItem.Text = "SDL Programm starten" + ' + 'TESTToolStripMenuItem + ' + Me.TESTToolStripMenuItem.Name = "TESTToolStripMenuItem" + Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.TESTToolStripMenuItem.Text = "TEST" + ' + 'AlleStatusMailsSchickenToolStripMenuItem + ' + Me.AlleStatusMailsSchickenToolStripMenuItem.Name = "AlleStatusMailsSchickenToolStripMenuItem" + Me.AlleStatusMailsSchickenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.AlleStatusMailsSchickenToolStripMenuItem.Text = "Alle Status Mails schicken" + ' + 'RoutenverwaltungToolStripMenuItem + ' + Me.RoutenverwaltungToolStripMenuItem.Name = "RoutenverwaltungToolStripMenuItem" + Me.RoutenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.RoutenverwaltungToolStripMenuItem.Text = "Routenverwaltung" + ' + 'AnhangsartenToolStripMenuItem + ' + Me.AnhangsartenToolStripMenuItem.Name = "AnhangsartenToolStripMenuItem" + Me.AnhangsartenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.AnhangsartenToolStripMenuItem.Text = "Anhangsarten" + ' + 'SpireLizenzPrüfenToolStripMenuItem + ' + Me.SpireLizenzPrüfenToolStripMenuItem.Name = "SpireLizenzPrüfenToolStripMenuItem" + Me.SpireLizenzPrüfenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.SpireLizenzPrüfenToolStripMenuItem.Text = "Spire-Lizenz prüfen" + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(210, 6) + ' + 'FirmaWechselnToolStripMenuItem + ' + Me.FirmaWechselnToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VERAGToolStripMenuItem, Me.ATILLAToolStripMenuItem, Me.IMEXToolStripMenuItem, Me.UNISPEDToolStripMenuItem, Me.AMBARToolStripMenuItem, Me.FRONTOFFICEToolStripMenuItem, Me.VERIMEXToolStripMenuItem}) + Me.FirmaWechselnToolStripMenuItem.Name = "FirmaWechselnToolStripMenuItem" + Me.FirmaWechselnToolStripMenuItem.Size = New System.Drawing.Size(213, 22) + Me.FirmaWechselnToolStripMenuItem.Text = "Firma wechseln" + ' + 'VERAGToolStripMenuItem + ' + Me.VERAGToolStripMenuItem.Name = "VERAGToolStripMenuItem" + Me.VERAGToolStripMenuItem.Size = New System.Drawing.Size(149, 22) + Me.VERAGToolStripMenuItem.Text = "VERAG" + ' + 'ATILLAToolStripMenuItem + ' + Me.ATILLAToolStripMenuItem.Name = "ATILLAToolStripMenuItem" + Me.ATILLAToolStripMenuItem.Size = New System.Drawing.Size(149, 22) + Me.ATILLAToolStripMenuItem.Text = "ATILLA" + ' + 'IMEXToolStripMenuItem + ' + Me.IMEXToolStripMenuItem.Name = "IMEXToolStripMenuItem" + Me.IMEXToolStripMenuItem.Size = New System.Drawing.Size(149, 22) + Me.IMEXToolStripMenuItem.Text = "IMEX" + ' + 'UNISPEDToolStripMenuItem + ' + Me.UNISPEDToolStripMenuItem.Name = "UNISPEDToolStripMenuItem" + Me.UNISPEDToolStripMenuItem.Size = New System.Drawing.Size(149, 22) + Me.UNISPEDToolStripMenuItem.Text = "UNISPED" + ' + 'AMBARToolStripMenuItem + ' + Me.AMBARToolStripMenuItem.Name = "AMBARToolStripMenuItem" + Me.AMBARToolStripMenuItem.Size = New System.Drawing.Size(149, 22) + Me.AMBARToolStripMenuItem.Text = "AMBAR" + ' + 'FRONTOFFICEToolStripMenuItem + ' + Me.FRONTOFFICEToolStripMenuItem.Name = "FRONTOFFICEToolStripMenuItem" + Me.FRONTOFFICEToolStripMenuItem.Size = New System.Drawing.Size(149, 22) + Me.FRONTOFFICEToolStripMenuItem.Text = "FRONTOFFICE" + ' + 'VERIMEXToolStripMenuItem + ' + Me.VERIMEXToolStripMenuItem.Name = "VERIMEXToolStripMenuItem" + Me.VERIMEXToolStripMenuItem.Size = New System.Drawing.Size(149, 22) + Me.VERIMEXToolStripMenuItem.Text = "VERIMEX" + ' + 'StandortWechselnToolStripMenuItem + ' + Me.StandortWechselnToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SUBToolStripMenuItem, Me.SBGToolStripMenuItem, Me.WAIToolStripMenuItem, Me.NKDToolStripMenuItem, Me.NEUToolStripMenuItem, Me.AMBToolStripMenuItem, Me.DTBToolStripMenuItem}) + Me.StandortWechselnToolStripMenuItem.Name = "StandortWechselnToolStripMenuItem" + Me.StandortWechselnToolStripMenuItem.Size = New System.Drawing.Size(213, 22) + Me.StandortWechselnToolStripMenuItem.Text = "Standort wechseln" + Me.StandortWechselnToolStripMenuItem.Visible = False + ' + 'SUBToolStripMenuItem + ' + Me.SUBToolStripMenuItem.Name = "SUBToolStripMenuItem" + Me.SUBToolStripMenuItem.Size = New System.Drawing.Size(100, 22) + Me.SUBToolStripMenuItem.Text = "SUB" + ' + 'SBGToolStripMenuItem + ' + Me.SBGToolStripMenuItem.Name = "SBGToolStripMenuItem" + Me.SBGToolStripMenuItem.Size = New System.Drawing.Size(100, 22) + Me.SBGToolStripMenuItem.Text = "SBG" + ' + 'WAIToolStripMenuItem + ' + Me.WAIToolStripMenuItem.Name = "WAIToolStripMenuItem" + Me.WAIToolStripMenuItem.Size = New System.Drawing.Size(100, 22) + Me.WAIToolStripMenuItem.Text = "WAI" + ' + 'NKDToolStripMenuItem + ' + Me.NKDToolStripMenuItem.Name = "NKDToolStripMenuItem" + Me.NKDToolStripMenuItem.Size = New System.Drawing.Size(100, 22) + Me.NKDToolStripMenuItem.Text = "NKD" + ' + 'NEUToolStripMenuItem + ' + Me.NEUToolStripMenuItem.Name = "NEUToolStripMenuItem" + Me.NEUToolStripMenuItem.Size = New System.Drawing.Size(100, 22) + Me.NEUToolStripMenuItem.Text = "NEU" + ' + 'AMBToolStripMenuItem + ' + Me.AMBToolStripMenuItem.Name = "AMBToolStripMenuItem" + Me.AMBToolStripMenuItem.Size = New System.Drawing.Size(100, 22) + Me.AMBToolStripMenuItem.Text = "AMB" + Me.AMBToolStripMenuItem.Visible = False + ' + 'DTBToolStripMenuItem + ' + Me.DTBToolStripMenuItem.Name = "DTBToolStripMenuItem" + Me.DTBToolStripMenuItem.Size = New System.Drawing.Size(100, 22) + Me.DTBToolStripMenuItem.Text = "DTB" + ' + 'SpracheWechselnToolStripMenuItem + ' + Me.SpracheWechselnToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DeutschToolStripMenuItem, Me.EnglishToolStripMenuItem, Me.TürkischToolStripMenuItem}) + Me.SpracheWechselnToolStripMenuItem.Name = "SpracheWechselnToolStripMenuItem" + Me.SpracheWechselnToolStripMenuItem.Size = New System.Drawing.Size(213, 22) + Me.SpracheWechselnToolStripMenuItem.Text = "Sprache wechseln" + ' + 'DeutschToolStripMenuItem + ' + Me.DeutschToolStripMenuItem.Name = "DeutschToolStripMenuItem" + Me.DeutschToolStripMenuItem.Size = New System.Drawing.Size(119, 22) + Me.DeutschToolStripMenuItem.Text = "Deutsch" + ' + 'EnglishToolStripMenuItem + ' + Me.EnglishToolStripMenuItem.Name = "EnglishToolStripMenuItem" + Me.EnglishToolStripMenuItem.Size = New System.Drawing.Size(119, 22) + Me.EnglishToolStripMenuItem.Text = "Englisch" + ' + 'TürkischToolStripMenuItem + ' + Me.TürkischToolStripMenuItem.Name = "TürkischToolStripMenuItem" + Me.TürkischToolStripMenuItem.Size = New System.Drawing.Size(119, 22) + Me.TürkischToolStripMenuItem.Text = "Türkisch" + ' + 'StandarddruckerWechselnToolStripMenuItem + ' + Me.StandarddruckerWechselnToolStripMenuItem.Name = "StandarddruckerWechselnToolStripMenuItem" + Me.StandarddruckerWechselnToolStripMenuItem.Size = New System.Drawing.Size(213, 22) + Me.StandarddruckerWechselnToolStripMenuItem.Text = "Standarddrucker wechseln" + ' + 'NacherfassungToolStripMenuItem + ' + Me.NacherfassungToolStripMenuItem.Name = "NacherfassungToolStripMenuItem" + Me.NacherfassungToolStripMenuItem.Size = New System.Drawing.Size(213, 22) + Me.NacherfassungToolStripMenuItem.Text = "Nacherfassung" + Me.NacherfassungToolStripMenuItem.Visible = False + ' + 'VollständigesUpdateToolStripMenuItem + ' + Me.VollständigesUpdateToolStripMenuItem.Name = "VollständigesUpdateToolStripMenuItem" + Me.VollständigesUpdateToolStripMenuItem.Size = New System.Drawing.Size(213, 22) + Me.VollständigesUpdateToolStripMenuItem.Text = "Vollständiges Update" + ' + 'UpdateToolStripMenuItem + ' + Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem" + Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(213, 22) + Me.UpdateToolStripMenuItem.Text = "Update" + ' + 'LogoutToolStripMenuItem + ' + Me.LogoutToolStripMenuItem.Name = "LogoutToolStripMenuItem" + Me.LogoutToolStripMenuItem.Size = New System.Drawing.Size(213, 22) + Me.LogoutToolStripMenuItem.Text = "Logout" + Me.LogoutToolStripMenuItem.Visible = False + ' + 'FunktionenToolStripMenuItem + ' + Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.MRNBarcodedruckToolStripMenuItem, Me.ToolStripSeparator12, Me.tool_BRGXLS, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.GesamtsicherheitenToolStripMenuItem, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator23, Me.toolOriginalATR, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.ToolStripSeparator11, Me.EssensbestellungenToolStripMenuItem, Me.AdministrationEssensbestellungenToolStripMenuItem, Me.ToolStripSeparator24, Me.WarenorteToolStripMenuItem, Me.DatevBuchungsexportToolStripMenuItem, Me.APIToolStripMenuItem, Me.FIBUSachkontenToolStripMenuItem}) + Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem" + Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 16) + Me.FunktionenToolStripMenuItem.Text = "Funktionen" + ' + 'GenerelleGestellungenDurchsuchenToolStripMenuItem + ' + Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Name = "GenerelleGestellungenDurchsuchenToolStripMenuItem" + Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Text = "Generelle Gestellungen durchsuchen" + Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Visible = False + ' + 'KundenVonFremdenSpeditionenToolStripMenuItem + ' + Me.KundenVonFremdenSpeditionenToolStripMenuItem.Name = "KundenVonFremdenSpeditionenToolStripMenuItem" + Me.KundenVonFremdenSpeditionenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.KundenVonFremdenSpeditionenToolStripMenuItem.Text = "Kunden von fremden Speditionen" + ' + 'KundenverwaltungToolStripMenuItem + ' + Me.KundenverwaltungToolStripMenuItem.Name = "KundenverwaltungToolStripMenuItem" + Me.KundenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.KundenverwaltungToolStripMenuItem.Text = "Kundenverwaltung" + ' + 'MDMParkplatzkartenToolStripMenuItem + ' + Me.MDMParkplatzkartenToolStripMenuItem.Name = "MDMParkplatzkartenToolStripMenuItem" + Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.MDMParkplatzkartenToolStripMenuItem.Text = "MDM - Parkplatzkarten" + ' + 'SMSSendenToolStripMenuItem + ' + Me.SMSSendenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueSMSSendenToolStripMenuItem, Me.GesendeteSMSToolStripMenuItem}) + Me.SMSSendenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.handy2 + Me.SMSSendenToolStripMenuItem.Name = "SMSSendenToolStripMenuItem" + Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.SMSSendenToolStripMenuItem.Text = "SMS" + ' + 'NeueSMSSendenToolStripMenuItem + ' + Me.NeueSMSSendenToolStripMenuItem.Name = "NeueSMSSendenToolStripMenuItem" + Me.NeueSMSSendenToolStripMenuItem.Size = New System.Drawing.Size(169, 22) + Me.NeueSMSSendenToolStripMenuItem.Text = "Neue SMS senden" + ' + 'GesendeteSMSToolStripMenuItem + ' + Me.GesendeteSMSToolStripMenuItem.Name = "GesendeteSMSToolStripMenuItem" + Me.GesendeteSMSToolStripMenuItem.Size = New System.Drawing.Size(169, 22) + Me.GesendeteSMSToolStripMenuItem.Text = "SMS Verlauf" + ' + 'ZollprogrammeNachEORIDurchsuchenToolStripMenuItem + ' + Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Name = "ZollprogrammeNachEORIDurchsuchenToolStripMenuItem" + Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Text = "Zollprogramme nach EORI durchsuchen" + ' + 'MRNBarcodedruckToolStripMenuItem + ' + Me.MRNBarcodedruckToolStripMenuItem.Name = "MRNBarcodedruckToolStripMenuItem" + Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.MRNBarcodedruckToolStripMenuItem.Text = "MRN Barcodedruck" + ' + 'ToolStripSeparator12 + ' + Me.ToolStripSeparator12.Name = "ToolStripSeparator12" + Me.ToolStripSeparator12.Size = New System.Drawing.Size(380, 6) + ' + 'tool_BRGXLS + ' + Me.tool_BRGXLS.Name = "tool_BRGXLS" + Me.tool_BRGXLS.Size = New System.Drawing.Size(383, 22) + Me.tool_BRGXLS.Text = "Bürgschaften Excel" + ' + 'ToolStripMenuItem4 + ' + Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(383, 22) + Me.ToolStripMenuItem4.Text = "DE | Gesamtsicherheit VERAG GmbH - Excel" + Me.ToolStripMenuItem4.Visible = False + ' + 'ToolStripMenuItem5 + ' + Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(383, 22) + Me.ToolStripMenuItem5.Text = "AT | Gesamtsicherheit VERAG AG - Excel" + Me.ToolStripMenuItem5.Visible = False + ' + 'BürgschaftenExcelToolStripMenuItem + ' + Me.BürgschaftenExcelToolStripMenuItem.Name = "BürgschaftenExcelToolStripMenuItem" + Me.BürgschaftenExcelToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.BürgschaftenExcelToolStripMenuItem.Text = "AT | Gesamtsicherheit VERAG Customs Service - Excel" + Me.BürgschaftenExcelToolStripMenuItem.Visible = False + ' + 'ToolStripMenuItem6 + ' + Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" + Me.ToolStripMenuItem6.Size = New System.Drawing.Size(383, 22) + Me.ToolStripMenuItem6.Text = "AT | Gesamtsicherheit IMEX Customs Service GmbH - Excel" + Me.ToolStripMenuItem6.Visible = False + ' + 'GesamtsicherheitenToolStripMenuItem + ' + Me.GesamtsicherheitenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATVeragAGToolStripMenuItem, Me.ATImexCSToolStripMenuItem, Me.ATVeragCSToolStripMenuItem, Me.DEVeragGmbHToolStripMenuItem, Me.ATUnispedGmbHToolStripMenuItem, Me.DEAmbarToolStripMenuItem}) + Me.GesamtsicherheitenToolStripMenuItem.Name = "GesamtsicherheitenToolStripMenuItem" + Me.GesamtsicherheitenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.GesamtsicherheitenToolStripMenuItem.Text = "Gesamtsicherheiten" + Me.GesamtsicherheitenToolStripMenuItem.Visible = False + ' + 'ATVeragAGToolStripMenuItem + ' + Me.ATVeragAGToolStripMenuItem.Name = "ATVeragAGToolStripMenuItem" + Me.ATVeragAGToolStripMenuItem.Size = New System.Drawing.Size(179, 22) + Me.ATVeragAGToolStripMenuItem.Text = "AT | Verag AG" + ' + 'ATImexCSToolStripMenuItem + ' + Me.ATImexCSToolStripMenuItem.Name = "ATImexCSToolStripMenuItem" + Me.ATImexCSToolStripMenuItem.Size = New System.Drawing.Size(179, 22) + Me.ATImexCSToolStripMenuItem.Text = "AT | IMEX CS GmbH" + ' + 'ATVeragCSToolStripMenuItem + ' + Me.ATVeragCSToolStripMenuItem.Name = "ATVeragCSToolStripMenuItem" + Me.ATVeragCSToolStripMenuItem.Size = New System.Drawing.Size(179, 22) + Me.ATVeragCSToolStripMenuItem.Text = "AT | Verag CS" + ' + 'DEVeragGmbHToolStripMenuItem + ' + Me.DEVeragGmbHToolStripMenuItem.Name = "DEVeragGmbHToolStripMenuItem" + Me.DEVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(179, 22) + Me.DEVeragGmbHToolStripMenuItem.Text = "DE | Verag GmbH" + ' + 'ATUnispedGmbHToolStripMenuItem + ' + Me.ATUnispedGmbHToolStripMenuItem.Name = "ATUnispedGmbHToolStripMenuItem" + Me.ATUnispedGmbHToolStripMenuItem.Size = New System.Drawing.Size(179, 22) + Me.ATUnispedGmbHToolStripMenuItem.Text = "AT | Unisped GmbH" + ' + 'DEAmbarToolStripMenuItem + ' + Me.DEAmbarToolStripMenuItem.Name = "DEAmbarToolStripMenuItem" + Me.DEAmbarToolStripMenuItem.Size = New System.Drawing.Size(179, 22) + Me.DEAmbarToolStripMenuItem.Text = "DE | Ambar GmbH" + Me.DEAmbarToolStripMenuItem.Visible = False + ' + 'ToolStripMenuItem10 + ' + Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10" + Me.ToolStripMenuItem10.Size = New System.Drawing.Size(383, 22) + Me.ToolStripMenuItem10.Text = "TICKET Parkplatz" + ' + 'TICKETWaidhausToolStripMenuItem + ' + Me.TICKETWaidhausToolStripMenuItem.Name = "TICKETWaidhausToolStripMenuItem" + Me.TICKETWaidhausToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.TICKETWaidhausToolStripMenuItem.Text = "Infoschreiben Parkplatz" + ' + 'ToolStripSeparator10 + ' + Me.ToolStripSeparator10.Name = "ToolStripSeparator10" + Me.ToolStripSeparator10.Size = New System.Drawing.Size(380, 6) + ' + 'DAKOSYToolStripMenuItem + ' + Me.DAKOSYToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StammreferenzenVerwaltenToolStripMenuItem}) + Me.DAKOSYToolStripMenuItem.Name = "DAKOSYToolStripMenuItem" + Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.DAKOSYToolStripMenuItem.Text = "DAKOSY" + ' + 'StammreferenzenVerwaltenToolStripMenuItem + ' + Me.StammreferenzenVerwaltenToolStripMenuItem.Name = "StammreferenzenVerwaltenToolStripMenuItem" + Me.StammreferenzenVerwaltenToolStripMenuItem.Size = New System.Drawing.Size(221, 22) + Me.StammreferenzenVerwaltenToolStripMenuItem.Text = "Stammreferenzen verwalten" + ' + 'ToolStripSeparator23 + ' + Me.ToolStripSeparator23.Name = "ToolStripSeparator23" + Me.ToolStripSeparator23.Size = New System.Drawing.Size(380, 6) + ' + 'toolOriginalATR + ' + Me.toolOriginalATR.Image = Global.AVISO.My.Resources.Resources.atr + Me.toolOriginalATR.Name = "toolOriginalATR" + Me.toolOriginalATR.Size = New System.Drawing.Size(383, 22) + Me.toolOriginalATR.Text = "Original-ATR" + ' + 'SDLAbholaufträgeToolStripMenuItem + ' + Me.SDLAbholaufträgeToolStripMenuItem.Name = "SDLAbholaufträgeToolStripMenuItem" + Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.SDLAbholaufträgeToolStripMenuItem.Text = "SDL Abholaufträge" + ' + 'ToolStripMenuItem13 + ' + Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13" + Me.ToolStripMenuItem13.Size = New System.Drawing.Size(383, 22) + Me.ToolStripMenuItem13.Text = "Postversand (Einschreiben)" + ' + 'VorauskassenToolStripMenuItem + ' + Me.VorauskassenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.vorauszahlung + Me.VorauskassenToolStripMenuItem.Name = "VorauskassenToolStripMenuItem" + Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.VorauskassenToolStripMenuItem.Text = "Vorauskassen" + ' + 'ToolStripSeparator11 + ' + Me.ToolStripSeparator11.Name = "ToolStripSeparator11" + Me.ToolStripSeparator11.Size = New System.Drawing.Size(380, 6) + ' + 'EssensbestellungenToolStripMenuItem + ' + Me.EssensbestellungenToolStripMenuItem.Name = "EssensbestellungenToolStripMenuItem" + Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.EssensbestellungenToolStripMenuItem.Text = "Essensbestellungen" + Me.EssensbestellungenToolStripMenuItem.Visible = False + ' + 'AdministrationEssensbestellungenToolStripMenuItem + ' + Me.AdministrationEssensbestellungenToolStripMenuItem.Name = "AdministrationEssensbestellungenToolStripMenuItem" + Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.AdministrationEssensbestellungenToolStripMenuItem.Text = "Administration Essensbestellungen" + Me.AdministrationEssensbestellungenToolStripMenuItem.Visible = False + ' + 'ToolStripSeparator24 + ' + Me.ToolStripSeparator24.Name = "ToolStripSeparator24" + Me.ToolStripSeparator24.Size = New System.Drawing.Size(380, 6) + ' + 'WarenorteToolStripMenuItem + ' + Me.WarenorteToolStripMenuItem.Name = "WarenorteToolStripMenuItem" + Me.WarenorteToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.WarenorteToolStripMenuItem.Text = "Warenorte" + ' + 'DatevBuchungsexportToolStripMenuItem + ' + Me.DatevBuchungsexportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EMAILToolStripMenuItem, Me.FTPToolStripMenuItem}) + Me.DatevBuchungsexportToolStripMenuItem.Name = "DatevBuchungsexportToolStripMenuItem" + Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.DatevBuchungsexportToolStripMenuItem.Text = "Datev Buchungsexport" + Me.DatevBuchungsexportToolStripMenuItem.Visible = False + ' + 'EMAILToolStripMenuItem + ' + Me.EMAILToolStripMenuItem.Name = "EMAILToolStripMenuItem" + Me.EMAILToolStripMenuItem.Size = New System.Drawing.Size(113, 22) + Me.EMAILToolStripMenuItem.Text = "E-MAIL" + ' + 'FTPToolStripMenuItem + ' + Me.FTPToolStripMenuItem.Name = "FTPToolStripMenuItem" + Me.FTPToolStripMenuItem.Size = New System.Drawing.Size(113, 22) + Me.FTPToolStripMenuItem.Text = "FTP" + ' + 'APIToolStripMenuItem + ' + Me.APIToolStripMenuItem.Name = "APIToolStripMenuItem" + Me.APIToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.APIToolStripMenuItem.Text = "API" + ' + 'FIBUSachkontenToolStripMenuItem + ' + Me.FIBUSachkontenToolStripMenuItem.Name = "FIBUSachkontenToolStripMenuItem" + Me.FIBUSachkontenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.FIBUSachkontenToolStripMenuItem.Text = "FIBU Sachkonten" + Me.FIBUSachkontenToolStripMenuItem.Visible = False + ' + 'StatistikToolStripMenuItem + ' + Me.StatistikToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LKWBerichtToolStripMenuItem, Me.StatistikADMINToolStripMenuItem, Me.ToolStripSeparator8, Me.BürgschafrtsbuchungenFremdToolStripMenuItem, Me.LKWEingetroffenNachToolStripMenuItem, Me.ToolStripSeparator7, Me.SDLAuswertungenToolStripMenuItem, Me.SDLAuswertungenToolStripMenuItem1}) + Me.StatistikToolStripMenuItem.ForeColor = System.Drawing.Color.Black + Me.StatistikToolStripMenuItem.Name = "StatistikToolStripMenuItem" + Me.StatistikToolStripMenuItem.Size = New System.Drawing.Size(83, 16) + Me.StatistikToolStripMenuItem.Text = "Auswertung" + ' + 'LKWBerichtToolStripMenuItem + ' + Me.LKWBerichtToolStripMenuItem.Name = "LKWBerichtToolStripMenuItem" + Me.LKWBerichtToolStripMenuItem.Size = New System.Drawing.Size(234, 22) + Me.LKWBerichtToolStripMenuItem.Text = "LKW Bericht" + ' + 'StatistikADMINToolStripMenuItem + ' + Me.StatistikADMINToolStripMenuItem.Name = "StatistikADMINToolStripMenuItem" + Me.StatistikADMINToolStripMenuItem.Size = New System.Drawing.Size(234, 22) + Me.StatistikADMINToolStripMenuItem.Text = "Statistik (Aviso)" + ' + 'ToolStripSeparator8 + ' + Me.ToolStripSeparator8.Name = "ToolStripSeparator8" + Me.ToolStripSeparator8.Size = New System.Drawing.Size(231, 6) + ' + 'BürgschafrtsbuchungenFremdToolStripMenuItem + ' + Me.BürgschafrtsbuchungenFremdToolStripMenuItem.Name = "BürgschafrtsbuchungenFremdToolStripMenuItem" + Me.BürgschafrtsbuchungenFremdToolStripMenuItem.Size = New System.Drawing.Size(234, 22) + Me.BürgschafrtsbuchungenFremdToolStripMenuItem.Text = "Bürgschaftsbuchungen Fremd" + ' + 'LKWEingetroffenNachToolStripMenuItem + ' + Me.LKWEingetroffenNachToolStripMenuItem.Name = "LKWEingetroffenNachToolStripMenuItem" + Me.LKWEingetroffenNachToolStripMenuItem.Size = New System.Drawing.Size(234, 22) + Me.LKWEingetroffenNachToolStripMenuItem.Text = "LKW eingetroffen nach ..." + ' + 'ToolStripSeparator7 + ' + Me.ToolStripSeparator7.Name = "ToolStripSeparator7" + Me.ToolStripSeparator7.Size = New System.Drawing.Size(231, 6) + ' + 'SDLAuswertungenToolStripMenuItem + ' + Me.SDLAuswertungenToolStripMenuItem.Name = "SDLAuswertungenToolStripMenuItem" + Me.SDLAuswertungenToolStripMenuItem.Size = New System.Drawing.Size(234, 22) + Me.SDLAuswertungenToolStripMenuItem.Text = "Buchhaltung" + ' + 'SDLAuswertungenToolStripMenuItem1 + ' + Me.SDLAuswertungenToolStripMenuItem1.Name = "SDLAuswertungenToolStripMenuItem1" + Me.SDLAuswertungenToolStripMenuItem1.Size = New System.Drawing.Size(234, 22) + Me.SDLAuswertungenToolStripMenuItem1.Text = "SDL Auswertungen" + ' + 'ToolStripFormulare + ' + Me.ToolStripFormulare.BackColor = System.Drawing.Color.White + Me.ToolStripFormulare.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MANAGERToolStripMenuItem, Me.ToolStripSeparator3, Me.MailvorlagenToolStripMenuItem, Me.ToolStripMenuItem2, Me.ToolStripMenuItem7, Me.ToolStripMenuItem12, Me.ToolStripMenuItem15, Me.ToolStripMenuItem18, Me.AuftragÜberwachungsdokumentToolStripMenuItem, Me.toolVUB, Me.toolVPCreditreform, Me.ToolStripSeparator9, Me.VerzollungsunterlagenToolStripMenuItem, Me.ToolStripMenuItem11, Me.ToolStripSeparator6, Me.WAIDHAUSToolStripMenuItem, Me.ToolStripSeparator13, Me.EinheitspapierToolStripMenuItem, Me.CMRToolStripMenuItem, Me.Einheitspapier0735VersandverfahrenToolStripMenuItem, Me.CarnetTIRToolStripMenuItem, Me.CarnetTIRALTToolStripMenuItem}) + Me.ToolStripFormulare.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.ToolStripFormulare.ForeColor = System.Drawing.Color.Black + Me.ToolStripFormulare.ImageAlign = System.Drawing.ContentAlignment.BottomRight + Me.ToolStripFormulare.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripFormulare.Name = "ToolStripFormulare" + Me.ToolStripFormulare.Size = New System.Drawing.Size(73, 16) + Me.ToolStripFormulare.Text = "Formulare" + ' + 'MANAGERToolStripMenuItem + ' + Me.MANAGERToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold) + Me.MANAGERToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.android_note + Me.MANAGERToolStripMenuItem.Name = "MANAGERToolStripMenuItem" + Me.MANAGERToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.MANAGERToolStripMenuItem.Text = "Formular - Manager" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(274, 6) + ' + 'MailvorlagenToolStripMenuItem + ' + Me.MailvorlagenToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold) + Me.MailvorlagenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.stift + Me.MailvorlagenToolStripMenuItem.Name = "MailvorlagenToolStripMenuItem" + Me.MailvorlagenToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.MailvorlagenToolStripMenuItem.Text = "Mailvorlagen" + Me.MailvorlagenToolStripMenuItem.Visible = False + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStrVM_de, Me.ZollvollmachtDEFiskalToolStripMenuItem, Me.toolStrVM_at, Me.toolStrVM_at4200, Me.ZollvollmachtATEVToolStripMenuItem}) + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(277, 22) + Me.ToolStripMenuItem2.Text = "Vollmachten" + ' + 'toolStrVM_de + ' + Me.toolStrVM_de.Name = "toolStrVM_de" + Me.toolStrVM_de.Size = New System.Drawing.Size(204, 22) + Me.toolStrVM_de.Text = "Zollvollmacht DE" + ' + 'ZollvollmachtDEFiskalToolStripMenuItem + ' + Me.ZollvollmachtDEFiskalToolStripMenuItem.Name = "ZollvollmachtDEFiskalToolStripMenuItem" + Me.ZollvollmachtDEFiskalToolStripMenuItem.Size = New System.Drawing.Size(204, 22) + Me.ZollvollmachtDEFiskalToolStripMenuItem.Text = "Zollvollmacht DE - Fiskal" + ' + 'toolStrVM_at + ' + Me.toolStrVM_at.Name = "toolStrVM_at" + Me.toolStrVM_at.Size = New System.Drawing.Size(204, 22) + Me.toolStrVM_at.Text = "Zollvollmacht AT" + ' + 'toolStrVM_at4200 + ' + Me.toolStrVM_at4200.Name = "toolStrVM_at4200" + Me.toolStrVM_at4200.Size = New System.Drawing.Size(204, 22) + Me.toolStrVM_at4200.Text = "Zollvollmacht AT - Fiskal" + ' + 'ZollvollmachtATEVToolStripMenuItem + ' + Me.ZollvollmachtATEVToolStripMenuItem.Name = "ZollvollmachtATEVToolStripMenuItem" + Me.ZollvollmachtATEVToolStripMenuItem.Size = New System.Drawing.Size(204, 22) + Me.ZollvollmachtATEVToolStripMenuItem.Text = "Zollvollmacht AT - EV" + ' + 'ToolStripMenuItem7 + ' + Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" + Me.ToolStripMenuItem7.Size = New System.Drawing.Size(277, 22) + Me.ToolStripMenuItem7.Text = "Gestellungsgarantien" + ' + 'ToolStripMenuItem12 + ' + Me.ToolStripMenuItem12.Name = "ToolStripMenuItem12" + Me.ToolStripMenuItem12.Size = New System.Drawing.Size(277, 22) + Me.ToolStripMenuItem12.Text = "Importaviso" + ' + 'ToolStripMenuItem15 + ' + Me.ToolStripMenuItem15.Name = "ToolStripMenuItem15" + Me.ToolStripMenuItem15.Size = New System.Drawing.Size(277, 22) + Me.ToolStripMenuItem15.Text = "Dispoliste" + ' + 'ToolStripMenuItem18 + ' + Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18" + Me.ToolStripMenuItem18.Size = New System.Drawing.Size(277, 22) + Me.ToolStripMenuItem18.Text = "Verzollungspreise" + ' + 'AuftragÜberwachungsdokumentToolStripMenuItem + ' + Me.AuftragÜberwachungsdokumentToolStripMenuItem.Name = "AuftragÜberwachungsdokumentToolStripMenuItem" + Me.AuftragÜberwachungsdokumentToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.AuftragÜberwachungsdokumentToolStripMenuItem.Text = "Auftrag Überwachungsdokument" + ' + 'toolVUB + ' + Me.toolVUB.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VUBVERAGSpeditionAGToolStripMenuItem, Me.VeragCustomsServiceToolStripMenuItem}) + Me.toolVUB.Name = "toolVUB" + Me.toolVUB.Size = New System.Drawing.Size(277, 22) + Me.toolVUB.Text = "VUB" + ' + 'VUBVERAGSpeditionAGToolStripMenuItem + ' + Me.VUBVERAGSpeditionAGToolStripMenuItem.Name = "VUBVERAGSpeditionAGToolStripMenuItem" + Me.VUBVERAGSpeditionAGToolStripMenuItem.Size = New System.Drawing.Size(271, 22) + Me.VUBVERAGSpeditionAGToolStripMenuItem.Text = "VUB - VERAG Spedition AG" + ' + 'VeragCustomsServiceToolStripMenuItem + ' + Me.VeragCustomsServiceToolStripMenuItem.Name = "VeragCustomsServiceToolStripMenuItem" + Me.VeragCustomsServiceToolStripMenuItem.Size = New System.Drawing.Size(271, 22) + Me.VeragCustomsServiceToolStripMenuItem.Text = "VUB - VERAG Customs Service GmbH" + ' + 'toolVPCreditreform + ' + Me.toolVPCreditreform.Name = "toolVPCreditreform" + Me.toolVPCreditreform.Size = New System.Drawing.Size(277, 22) + Me.toolVPCreditreform.Text = "Bonitätsauskunft (Creditreform)" + Me.toolVPCreditreform.Visible = False + ' + 'ToolStripSeparator9 + ' + Me.ToolStripSeparator9.Name = "ToolStripSeparator9" + Me.ToolStripSeparator9.Size = New System.Drawing.Size(274, 6) + ' + 'VerzollungsunterlagenToolStripMenuItem + ' + Me.VerzollungsunterlagenToolStripMenuItem.Name = "VerzollungsunterlagenToolStripMenuItem" + Me.VerzollungsunterlagenToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.VerzollungsunterlagenToolStripMenuItem.Text = "Verzollungsunterlagen" + ' + 'ToolStripMenuItem11 + ' + Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11" + Me.ToolStripMenuItem11.Size = New System.Drawing.Size(277, 22) + Me.ToolStripMenuItem11.Text = "Verzollungsunterlagen BAR" + ' + 'ToolStripSeparator6 + ' + Me.ToolStripSeparator6.Name = "ToolStripSeparator6" + Me.ToolStripSeparator6.Size = New System.Drawing.Size(274, 6) + ' + 'WAIDHAUSToolStripMenuItem + ' + Me.WAIDHAUSToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem8, Me.ToolStripMenuItem9, Me.AnnahmeblattIMPORTToolStripMenuItem, Me.AnnahmeblattEXPORTToolStripMenuItem, Me.ChecklisteVerwahrlagerToolStripMenuItem}) + Me.WAIDHAUSToolStripMenuItem.Name = "WAIDHAUSToolStripMenuItem" + Me.WAIDHAUSToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.WAIDHAUSToolStripMenuItem.Text = "WAIDHAUS" + ' + 'ToolStripMenuItem8 + ' + Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8" + Me.ToolStripMenuItem8.Size = New System.Drawing.Size(244, 22) + Me.ToolStripMenuItem8.Text = "Annahmeblatt IMPORT DE / TR" + ' + 'ToolStripMenuItem9 + ' + Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9" + Me.ToolStripMenuItem9.Size = New System.Drawing.Size(244, 22) + Me.ToolStripMenuItem9.Text = "Annahmeblatt EXPORT DE / TR" + ' + 'AnnahmeblattIMPORTToolStripMenuItem + ' + Me.AnnahmeblattIMPORTToolStripMenuItem.Name = "AnnahmeblattIMPORTToolStripMenuItem" + Me.AnnahmeblattIMPORTToolStripMenuItem.Size = New System.Drawing.Size(244, 22) + Me.AnnahmeblattIMPORTToolStripMenuItem.Text = "Annahmeblatt IMPORT DE / SRB" + ' + 'AnnahmeblattEXPORTToolStripMenuItem + ' + Me.AnnahmeblattEXPORTToolStripMenuItem.Name = "AnnahmeblattEXPORTToolStripMenuItem" + Me.AnnahmeblattEXPORTToolStripMenuItem.Size = New System.Drawing.Size(244, 22) + Me.AnnahmeblattEXPORTToolStripMenuItem.Text = "Annahmeblatt EXPORT DE / SRB" + ' + 'ChecklisteVerwahrlagerToolStripMenuItem + ' + Me.ChecklisteVerwahrlagerToolStripMenuItem.Name = "ChecklisteVerwahrlagerToolStripMenuItem" + Me.ChecklisteVerwahrlagerToolStripMenuItem.Size = New System.Drawing.Size(244, 22) + Me.ChecklisteVerwahrlagerToolStripMenuItem.Text = "Checkliste Verwahrlager" + ' + 'ToolStripSeparator13 + ' + Me.ToolStripSeparator13.Name = "ToolStripSeparator13" + Me.ToolStripSeparator13.Size = New System.Drawing.Size(274, 6) + ' + 'EinheitspapierToolStripMenuItem + ' + Me.EinheitspapierToolStripMenuItem.Name = "EinheitspapierToolStripMenuItem" + Me.EinheitspapierToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.EinheitspapierToolStripMenuItem.Text = "Einheitspapier 0777 (Vereinfachte ZA)" + ' + 'CMRToolStripMenuItem + ' + Me.CMRToolStripMenuItem.Name = "CMRToolStripMenuItem" + Me.CMRToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.CMRToolStripMenuItem.Text = "CMR" + ' + 'Einheitspapier0735VersandverfahrenToolStripMenuItem + ' + Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Name = "Einheitspapier0735VersandverfahrenToolStripMenuItem" + Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Text = "Einheitspapier 0735 (Versandverfahren)" + ' + 'CarnetTIRToolStripMenuItem + ' + Me.CarnetTIRToolStripMenuItem.Name = "CarnetTIRToolStripMenuItem" + Me.CarnetTIRToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.CarnetTIRToolStripMenuItem.Text = "Carnet TIR" + ' + 'CarnetTIRALTToolStripMenuItem + ' + Me.CarnetTIRALTToolStripMenuItem.Name = "CarnetTIRALTToolStripMenuItem" + Me.CarnetTIRALTToolStripMenuItem.Size = New System.Drawing.Size(277, 22) + Me.CarnetTIRALTToolStripMenuItem.Text = "Carnet TIR (ALT)" + ' + 'mnuFragezeichen + ' + Me.mnuFragezeichen.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuInfo, Me.VerfahrenshandbücherToolStripMenuItem, Me.ChecklistenToolStripMenuItem, Me.HandbuchToolStripMenuItem, Me.VERAGWIKIToolStripMenuItem}) + Me.mnuFragezeichen.ForeColor = System.Drawing.Color.Black + Me.mnuFragezeichen.ImageTransparentColor = System.Drawing.Color.Brown + Me.mnuFragezeichen.Name = "mnuFragezeichen" + Me.mnuFragezeichen.Size = New System.Drawing.Size(111, 16) + Me.mnuFragezeichen.Text = "Info/Handbücher" + ' + 'VerfahrenshandbücherToolStripMenuItem + ' + Me.VerfahrenshandbücherToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem}) + Me.VerfahrenshandbücherToolStripMenuItem.Name = "VerfahrenshandbücherToolStripMenuItem" + Me.VerfahrenshandbücherToolStripMenuItem.Size = New System.Drawing.Size(214, 22) + Me.VerfahrenshandbücherToolStripMenuItem.Text = "Verfahrenshandbücher" + ' + 'VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem + ' + Me.VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem.Name = "VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem" + Me.VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem.Size = New System.Drawing.Size(306, 22) + Me.VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem.Text = "Verfahrenshandbuch VERAG GmbH Zoll WO" + ' + 'ChecklistenToolStripMenuItem + ' + Me.ChecklistenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ChecklisteWOCHECKLISTEZEallgemein, Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem, Me.ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem, Me.ToolStripSeparator22, Me.WOCHECKLISTEZVAllgemeinToolStripMenuItem, Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1, Me.ToolStripSeparator21, Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem, Me.WOCECKLISTEZEWDHToolStripMenuItem}) + Me.ChecklistenToolStripMenuItem.Name = "ChecklistenToolStripMenuItem" + Me.ChecklistenToolStripMenuItem.Size = New System.Drawing.Size(214, 22) + Me.ChecklistenToolStripMenuItem.Text = "DE-Warenorte/Checklisten" + ' + 'ChecklisteWOCHECKLISTEZEallgemein + ' + Me.ChecklisteWOCHECKLISTEZEallgemein.Name = "ChecklisteWOCHECKLISTEZEallgemein" + Me.ChecklisteWOCHECKLISTEZEallgemein.Size = New System.Drawing.Size(381, 22) + Me.ChecklisteWOCHECKLISTEZEallgemein.Text = "ZE WO CHECKLISTE ZE allgemein" + ' + 'ZEVerfahrensanleitungGestellungSumAToolStripMenuItem + ' + Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem.Name = "ZEVerfahrensanleitungGestellungSumAToolStripMenuItem" + Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem.Size = New System.Drawing.Size(381, 22) + Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem.Text = "ZE Verfahrensanleitung Gestellung/SumA" + ' + 'ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem + ' + Me.ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem.Name = "ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem" + Me.ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem.Size = New System.Drawing.Size(381, 22) + Me.ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem.Text = "ZE Verfahrensanleitung Gestellung/SumA - Fremdpersonal" + ' + 'ToolStripSeparator22 + ' + Me.ToolStripSeparator22.Name = "ToolStripSeparator22" + Me.ToolStripSeparator22.Size = New System.Drawing.Size(378, 6) + ' + 'WOCHECKLISTEZVAllgemeinToolStripMenuItem + ' + Me.WOCHECKLISTEZVAllgemeinToolStripMenuItem.Name = "WOCHECKLISTEZVAllgemeinToolStripMenuItem" + Me.WOCHECKLISTEZVAllgemeinToolStripMenuItem.Size = New System.Drawing.Size(381, 22) + Me.WOCHECKLISTEZVAllgemeinToolStripMenuItem.Text = "ZV WO CHECKLISTE ZV allgemein" + ' + 'ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1 + ' + Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1.Name = "ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1" + Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1.Size = New System.Drawing.Size(381, 22) + Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1.Text = "ZV Verfahrensanleitung" + ' + 'ToolStripSeparator21 + ' + Me.ToolStripSeparator21.Name = "ToolStripSeparator21" + Me.ToolStripSeparator21.Size = New System.Drawing.Size(378, 6) + ' + 'WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem + ' + Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem.Name = "WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem" + Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem.Size = New System.Drawing.Size(381, 22) + Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem.Text = "WO CHECKLISTE Abgang Verwahrungsort ZV" + ' + 'WOCECKLISTEZEWDHToolStripMenuItem + ' + Me.WOCECKLISTEZEWDHToolStripMenuItem.Name = "WOCECKLISTEZEWDHToolStripMenuItem" + Me.WOCECKLISTEZEWDHToolStripMenuItem.Size = New System.Drawing.Size(381, 22) + Me.WOCECKLISTEZEWDHToolStripMenuItem.Text = "WO CHECKLISTE ZE WDH" + ' + 'HandbuchToolStripMenuItem + ' + Me.HandbuchToolStripMenuItem.Name = "HandbuchToolStripMenuItem" + Me.HandbuchToolStripMenuItem.Size = New System.Drawing.Size(214, 22) + Me.HandbuchToolStripMenuItem.Text = "Handbuch" + ' + 'VERAGWIKIToolStripMenuItem + ' + Me.VERAGWIKIToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.wiki + Me.VERAGWIKIToolStripMenuItem.Name = "VERAGWIKIToolStripMenuItem" + Me.VERAGWIKIToolStripMenuItem.Size = New System.Drawing.Size(214, 22) + Me.VERAGWIKIToolStripMenuItem.Text = "VERAG-WIKI" + ' + 'BREXITToolStripMenuItem + ' + Me.BREXITToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GVMSToolStripMenuItem, Me.GVMSUKIMportToolStripMenuItem, Me.GVMSBeschreibungToolStripMenuItem, Me.ToolStripSeparator14, Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem, Me.TicketIBFBeschreibungToolStripMenuItem, Me.IBFStatusToolStripMenuItem, Me.ToolStripSeparator15, Me.FREnveloppeSmartBorderToolStripMenuItem, Me.ToolStripSeparator16, Me.PBNIrelandFähreToolStripMenuItem, Me.ToolStripSeparator20, Me.WARENORTToolStripMenuItem, Me.ToolStripMenuItem14, Me.ToolStripSeparator18, Me.EORIUKGeneriertenToolStripMenuItem, Me.KAPKentAccessPermitToolStripMenuItem}) + Me.BREXITToolStripMenuItem.Name = "BREXITToolStripMenuItem" + Me.BREXITToolStripMenuItem.Size = New System.Drawing.Size(56, 16) + Me.BREXITToolStripMenuItem.Text = "BREXIT" + Me.BREXITToolStripMenuItem.Visible = False + ' + 'GVMSToolStripMenuItem + ' + Me.GVMSToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 + Me.GVMSToolStripMenuItem.Name = "GVMSToolStripMenuItem" + Me.GVMSToolStripMenuItem.Size = New System.Drawing.Size(249, 22) + Me.GVMSToolStripMenuItem.Text = "GVMS" + ' + 'GVMSUKIMportToolStripMenuItem + ' + Me.GVMSUKIMportToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 + Me.GVMSUKIMportToolStripMenuItem.Name = "GVMSUKIMportToolStripMenuItem" + Me.GVMSUKIMportToolStripMenuItem.Size = New System.Drawing.Size(249, 22) + Me.GVMSUKIMportToolStripMenuItem.Text = "GVMS (UK Import)" + ' + 'GVMSBeschreibungToolStripMenuItem + ' + Me.GVMSBeschreibungToolStripMenuItem.Enabled = False + Me.GVMSBeschreibungToolStripMenuItem.Name = "GVMSBeschreibungToolStripMenuItem" + Me.GVMSBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(249, 22) + Me.GVMSBeschreibungToolStripMenuItem.Text = "GVMS Beschreibung" + ' + 'ToolStripSeparator14 + ' + Me.ToolStripSeparator14.Name = "ToolStripSeparator14" + Me.ToolStripSeparator14.Size = New System.Drawing.Size(246, 6) + ' + 'TicketIBFInlandBorderFacilitiesToolStripMenuItem + ' + Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 + Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Name = "TicketIBFInlandBorderFacilitiesToolStripMenuItem" + Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Size = New System.Drawing.Size(249, 22) + Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Text = "Ticket IBF (InlandBorderFacilities)" + ' + 'TicketIBFBeschreibungToolStripMenuItem + ' + Me.TicketIBFBeschreibungToolStripMenuItem.Name = "TicketIBFBeschreibungToolStripMenuItem" + Me.TicketIBFBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(249, 22) + Me.TicketIBFBeschreibungToolStripMenuItem.Text = "Ticket IBF Beschreibung" + ' + 'IBFStatusToolStripMenuItem + ' + Me.IBFStatusToolStripMenuItem.Name = "IBFStatusToolStripMenuItem" + Me.IBFStatusToolStripMenuItem.Size = New System.Drawing.Size(249, 22) + Me.IBFStatusToolStripMenuItem.Text = "IBF Status" + ' + 'ToolStripSeparator15 + ' + Me.ToolStripSeparator15.Name = "ToolStripSeparator15" + Me.ToolStripSeparator15.Size = New System.Drawing.Size(246, 6) + ' + 'FREnveloppeSmartBorderToolStripMenuItem + ' + Me.FREnveloppeSmartBorderToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 + Me.FREnveloppeSmartBorderToolStripMenuItem.Name = "FREnveloppeSmartBorderToolStripMenuItem" + Me.FREnveloppeSmartBorderToolStripMenuItem.Size = New System.Drawing.Size(249, 22) + Me.FREnveloppeSmartBorderToolStripMenuItem.Text = "FR: Enveloppe (SmartBorder)" + ' + 'ToolStripSeparator16 + ' + Me.ToolStripSeparator16.Name = "ToolStripSeparator16" + Me.ToolStripSeparator16.Size = New System.Drawing.Size(246, 6) + ' + 'PBNIrelandFähreToolStripMenuItem + ' + Me.PBNIrelandFähreToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 + Me.PBNIrelandFähreToolStripMenuItem.Name = "PBNIrelandFähreToolStripMenuItem" + Me.PBNIrelandFähreToolStripMenuItem.Size = New System.Drawing.Size(249, 22) + Me.PBNIrelandFähreToolStripMenuItem.Text = "PBN (Ireland Fähre)" + ' + 'ToolStripSeparator20 + ' + Me.ToolStripSeparator20.Name = "ToolStripSeparator20" + Me.ToolStripSeparator20.Size = New System.Drawing.Size(246, 6) + ' + 'WARENORTToolStripMenuItem + ' + Me.WARENORTToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATFormularZa282ToolStripMenuItem, Me.ATInfoToolStripMenuItem, Me.ToolStripSeparator17, Me.DEFormular0442ToolStripMenuItem, Me.DEInfoToolStripMenuItem}) + Me.WARENORTToolStripMenuItem.Name = "WARENORTToolStripMenuItem" + Me.WARENORTToolStripMenuItem.Size = New System.Drawing.Size(249, 22) + Me.WARENORTToolStripMenuItem.Text = "REX" + ' + 'ATFormularZa282ToolStripMenuItem + ' + Me.ATFormularZa282ToolStripMenuItem.Name = "ATFormularZa282ToolStripMenuItem" + Me.ATFormularZa282ToolStripMenuItem.Size = New System.Drawing.Size(173, 22) + Me.ATFormularZa282ToolStripMenuItem.Text = "AT Formular Za278" + ' + 'ATInfoToolStripMenuItem + ' + Me.ATInfoToolStripMenuItem.Name = "ATInfoToolStripMenuItem" + Me.ATInfoToolStripMenuItem.Size = New System.Drawing.Size(173, 22) + Me.ATInfoToolStripMenuItem.Text = "AT Info" + ' + 'ToolStripSeparator17 + ' + Me.ToolStripSeparator17.Name = "ToolStripSeparator17" + Me.ToolStripSeparator17.Size = New System.Drawing.Size(170, 6) + ' + 'DEFormular0442ToolStripMenuItem + ' + Me.DEFormular0442ToolStripMenuItem.Name = "DEFormular0442ToolStripMenuItem" + Me.DEFormular0442ToolStripMenuItem.Size = New System.Drawing.Size(173, 22) + Me.DEFormular0442ToolStripMenuItem.Text = "DE Formular 0442" + ' + 'DEInfoToolStripMenuItem + ' + Me.DEInfoToolStripMenuItem.Name = "DEInfoToolStripMenuItem" + Me.DEInfoToolStripMenuItem.Size = New System.Drawing.Size(173, 22) + Me.DEInfoToolStripMenuItem.Text = "DE Info" + ' + 'ToolStripMenuItem14 + ' + Me.ToolStripMenuItem14.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem16, Me.ToolStripSeparator19}) + Me.ToolStripMenuItem14.Name = "ToolStripMenuItem14" + Me.ToolStripMenuItem14.Size = New System.Drawing.Size(249, 22) + Me.ToolStripMenuItem14.Text = "WARENORT" + ' + 'ToolStripMenuItem16 + ' + Me.ToolStripMenuItem16.Name = "ToolStripMenuItem16" + Me.ToolStripMenuItem16.Size = New System.Drawing.Size(173, 22) + Me.ToolStripMenuItem16.Text = "AT Formular Za283" + ' + 'ToolStripSeparator19 + ' + Me.ToolStripSeparator19.Name = "ToolStripSeparator19" + Me.ToolStripSeparator19.Size = New System.Drawing.Size(170, 6) + ' + 'ToolStripSeparator18 + ' + Me.ToolStripSeparator18.Name = "ToolStripSeparator18" + Me.ToolStripSeparator18.Size = New System.Drawing.Size(246, 6) + ' + 'EORIUKGeneriertenToolStripMenuItem + ' + Me.EORIUKGeneriertenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.fragezeichen1 + Me.EORIUKGeneriertenToolStripMenuItem.Name = "EORIUKGeneriertenToolStripMenuItem" + Me.EORIUKGeneriertenToolStripMenuItem.Size = New System.Drawing.Size(249, 22) + Me.EORIUKGeneriertenToolStripMenuItem.Text = "EORI UK generierten" + ' + 'KAPKentAccessPermitToolStripMenuItem + ' + Me.KAPKentAccessPermitToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.fragezeichen + Me.KAPKentAccessPermitToolStripMenuItem.Name = "KAPKentAccessPermitToolStripMenuItem" + Me.KAPKentAccessPermitToolStripMenuItem.Size = New System.Drawing.Size(249, 22) + Me.KAPKentAccessPermitToolStripMenuItem.Text = "KAP (KentAccessPermit)" + ' + 'btnWoche + ' + Me.btnWoche.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnWoche.ForeColor = System.Drawing.Color.White + Me.btnWoche.Location = New System.Drawing.Point(251, 0) + Me.btnWoche.Name = "btnWoche" + Me.btnWoche.Size = New System.Drawing.Size(64, 22) + Me.btnWoche.TabIndex = 2 + Me.btnWoche.TabStop = False + Me.btnWoche.Text = "1 Woche" + Me.btnWoche.UseVisualStyleBackColor = True + ' + 'btnGestern + ' + Me.btnGestern.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnGestern.ForeColor = System.Drawing.Color.White + Me.btnGestern.Location = New System.Drawing.Point(194, 0) + Me.btnGestern.Name = "btnGestern" + Me.btnGestern.Size = New System.Drawing.Size(58, 22) + Me.btnGestern.TabIndex = 1 + Me.btnGestern.TabStop = False + Me.btnGestern.Text = "Gestern" + Me.btnGestern.UseVisualStyleBackColor = True + ' + 'btnHeute + ' + Me.btnHeute.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnHeute.ForeColor = System.Drawing.Color.White + Me.btnHeute.Location = New System.Drawing.Point(145, 0) + Me.btnHeute.Name = "btnHeute" + Me.btnHeute.Size = New System.Drawing.Size(50, 22) + Me.btnHeute.TabIndex = 0 + Me.btnHeute.TabStop = False + Me.btnHeute.Text = "Heute" + Me.btnHeute.UseVisualStyleBackColor = True + ' + 'btnAlleAnzeigen + ' + Me.btnAlleAnzeigen.FlatAppearance.BorderSize = 0 + Me.btnAlleAnzeigen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAlleAnzeigen.ForeColor = System.Drawing.Color.White + Me.btnAlleAnzeigen.Location = New System.Drawing.Point(942, 25) + Me.btnAlleAnzeigen.Name = "btnAlleAnzeigen" + Me.btnAlleAnzeigen.Size = New System.Drawing.Size(84, 29) + Me.btnAlleAnzeigen.TabIndex = 2 + Me.btnAlleAnzeigen.Text = "Alle anzeigen" + Me.btnAlleAnzeigen.UseVisualStyleBackColor = True + Me.btnAlleAnzeigen.Visible = False + ' + 'pnlDetailsRechts + ' + Me.pnlDetailsRechts.AutoSize = True + Me.pnlDetailsRechts.BackColor = System.Drawing.SystemColors.ButtonFace + Me.pnlDetailsRechts.Controls.Add(Me.lblMitarbeiter) + Me.pnlDetailsRechts.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlDetailsRechts.Location = New System.Drawing.Point(0, 0) + Me.pnlDetailsRechts.MinimumSize = New System.Drawing.Size(200, 0) + Me.pnlDetailsRechts.Name = "pnlDetailsRechts" + Me.pnlDetailsRechts.Size = New System.Drawing.Size(288, 609) + Me.pnlDetailsRechts.TabIndex = 0 + ' + 'lblMitarbeiter + ' + Me.lblMitarbeiter.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.lblMitarbeiter.AutoSize = True + Me.lblMitarbeiter.BackColor = System.Drawing.SystemColors.Control + Me.lblMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.lblMitarbeiter.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.lblMitarbeiter.Location = New System.Drawing.Point(366, -50) + Me.lblMitarbeiter.Name = "lblMitarbeiter" + Me.lblMitarbeiter.Size = New System.Drawing.Size(126, 13) + Me.lblMitarbeiter.TabIndex = 1 + Me.lblMitarbeiter.Text = "Max Mustermann (Admin)" + Me.lblMitarbeiter.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.ForeColor = System.Drawing.Color.White + Me.Label6.Location = New System.Drawing.Point(232, 55) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(81, 13) + Me.Label6.TabIndex = 11 + Me.Label6.Text = "mind. 2 Zeichen" + ' + 'txtSuche + ' + Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSuche.Location = New System.Drawing.Point(7, 28) + Me.txtSuche.MaxLength = 30 + Me.txtSuche.Name = "txtSuche" + Me.txtSuche.Size = New System.Drawing.Size(306, 26) + Me.txtSuche.TabIndex = 0 + ' + 'Top + ' + Me.Top.BackColor = System.Drawing.Color.White + Me.Top.Controls.Add(Me.Button1) + Me.Top.Controls.Add(Me.lblUsrname) + Me.Top.Controls.Add(Me.lblFimaAviso) + Me.Top.Controls.Add(Me.Button11) + Me.Top.Controls.Add(Me.btnMAVerzeichnis) + Me.Top.Controls.Add(Me.btnMitarbeiterKonto) + Me.Top.Controls.Add(Me.btnKontakt) + Me.Top.Controls.Add(Me.Button2) + Me.Top.Controls.Add(Me.Button5) + Me.Top.Controls.Add(Me.lblGrenzstelle) + Me.Top.Controls.Add(Me.lblVersion) + Me.Top.Controls.Add(Me.btnFakturierung) + Me.Top.Controls.Add(Me.btnDienstplan) + Me.Top.Controls.Add(Me.btnRg) + Me.Top.Controls.Add(Me.btnKassenbuch) + Me.Top.Controls.Add(Me.btnRefresh) + Me.Top.Controls.Add(Me.Button3) + Me.Top.Controls.Add(Me.btnKunden) + Me.Top.Controls.Add(Me.btnSpedBuch) + Me.Top.Dock = System.Windows.Forms.DockStyle.Top + Me.Top.Location = New System.Drawing.Point(0, 20) + Me.Top.Name = "Top" + Me.Top.Size = New System.Drawing.Size(1473, 63) + Me.Top.TabIndex = 6 + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(1028, 7) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(75, 23) + Me.Button1.TabIndex = 87 + Me.Button1.Text = "Button1" + Me.Button1.UseVisualStyleBackColor = True + Me.Button1.Visible = False + ' + 'lblUsrname + ' + Me.lblUsrname.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblUsrname.BackColor = System.Drawing.Color.White + Me.lblUsrname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.lblUsrname.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.lblUsrname.Location = New System.Drawing.Point(1353, 34) + Me.lblUsrname.Name = "lblUsrname" + Me.lblUsrname.Size = New System.Drawing.Size(75, 13) + Me.lblUsrname.TabIndex = 86 + Me.lblUsrname.Text = "ADMIN" + Me.lblUsrname.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'lblFimaAviso + ' + Me.lblFimaAviso.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblFimaAviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblFimaAviso.ForeColor = System.Drawing.Color.Black + Me.lblFimaAviso.Location = New System.Drawing.Point(1409, 20) + Me.lblFimaAviso.Name = "lblFimaAviso" + Me.lblFimaAviso.Size = New System.Drawing.Size(63, 13) + Me.lblFimaAviso.TabIndex = 11 + Me.lblFimaAviso.Text = "XXXXXXXX" + Me.lblFimaAviso.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Button11 + ' + Me.Button11.Location = New System.Drawing.Point(1081, 15) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(75, 23) + Me.Button11.TabIndex = 14 + Me.Button11.Text = "TEST" + Me.Button11.UseVisualStyleBackColor = True + Me.Button11.Visible = False + ' + 'btnMAVerzeichnis + ' + Me.btnMAVerzeichnis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnMAVerzeichnis.Cursor = System.Windows.Forms.Cursors.Default + Me.btnMAVerzeichnis.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMAVerzeichnis.ForeColor = System.Drawing.Color.Black + Me.btnMAVerzeichnis.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s + Me.btnMAVerzeichnis.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnMAVerzeichnis.Location = New System.Drawing.Point(859, 6) + Me.btnMAVerzeichnis.Name = "btnMAVerzeichnis" + Me.btnMAVerzeichnis.Size = New System.Drawing.Size(107, 39) + Me.btnMAVerzeichnis.TabIndex = 13 + Me.btnMAVerzeichnis.TabStop = False + Me.btnMAVerzeichnis.Text = "Mitarbeiter Verzeichnis" + Me.btnMAVerzeichnis.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnMAVerzeichnis.UseVisualStyleBackColor = True + Me.btnMAVerzeichnis.Visible = False + ' + 'btnMitarbeiterKonto + ' + Me.btnMitarbeiterKonto.allowBorder = False + Me.btnMitarbeiterKonto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnMitarbeiterKonto.BackColor = System.Drawing.Color.White + Me.btnMitarbeiterKonto.FlatAppearance.BorderSize = 0 + Me.btnMitarbeiterKonto.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black + Me.btnMitarbeiterKonto.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s + Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(1210, -6) + Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto" + Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61) + Me.btnMitarbeiterKonto.TabIndex = 86 + Me.btnMitarbeiterKonto.Text = "Andreas Luxbauer" + Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False + ' + 'btnKontakt + ' + Me.btnKontakt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnKontakt.Cursor = System.Windows.Forms.Cursors.Default + Me.btnKontakt.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnKontakt.ForeColor = System.Drawing.Color.Black + Me.btnKontakt.Image = Global.AVISO.My.Resources.Resources.Telefonliste_small + Me.btnKontakt.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnKontakt.Location = New System.Drawing.Point(970, 6) + Me.btnKontakt.Name = "btnKontakt" + Me.btnKontakt.Size = New System.Drawing.Size(119, 39) + Me.btnKontakt.TabIndex = 12 + Me.btnKontakt.TabStop = False + Me.btnKontakt.Text = "Kontakte/Tel" + Me.btnKontakt.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnKontakt.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button2.BackColor = System.Drawing.Color.Gray + Me.Button2.FlatAppearance.BorderColor = System.Drawing.Color.White + Me.Button2.FlatAppearance.BorderSize = 0 + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button2.ForeColor = System.Drawing.Color.White + Me.Button2.Location = New System.Drawing.Point(1351, 3) + Me.Button2.Name = "Button2" + Me.Button2.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.Button2.Size = New System.Drawing.Size(45, 20) + Me.Button2.TabIndex = 85 + Me.Button2.Text = "< >" + Me.Button2.UseVisualStyleBackColor = False + ' + 'Button5 + ' + Me.Button5.Cursor = System.Windows.Forms.Cursors.Default + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.ForeColor = System.Drawing.Color.Black + Me.Button5.Image = Global.AVISO.My.Resources.Resources.parkplatz + Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button5.Location = New System.Drawing.Point(609, 6) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(98, 39) + Me.Button5.TabIndex = 8 + Me.Button5.TabStop = False + Me.Button5.Text = "Parkticket" + Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button5.UseVisualStyleBackColor = True + Me.Button5.Visible = False + ' + 'lblGrenzstelle + ' + Me.lblGrenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblGrenzstelle.BackColor = System.Drawing.Color.White + Me.lblGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.lblGrenzstelle.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.lblGrenzstelle.Location = New System.Drawing.Point(1412, 34) + Me.lblGrenzstelle.Name = "lblGrenzstelle" + Me.lblGrenzstelle.Size = New System.Drawing.Size(60, 13) + Me.lblGrenzstelle.TabIndex = 0 + Me.lblGrenzstelle.Text = "SUB" + Me.lblGrenzstelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'lblVersion + ' + Me.lblVersion.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblVersion.ForeColor = System.Drawing.Color.Black + Me.lblVersion.Location = New System.Drawing.Point(1404, 6) + Me.lblVersion.Name = "lblVersion" + Me.lblVersion.Size = New System.Drawing.Size(68, 13) + Me.lblVersion.TabIndex = 6 + Me.lblVersion.Text = "V1.0.0.0" + Me.lblVersion.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'btnFakturierung + ' + Me.btnFakturierung.Cursor = System.Windows.Forms.Cursors.Default + Me.btnFakturierung.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnFakturierung.ForeColor = System.Drawing.Color.Black + Me.btnFakturierung.Image = CType(resources.GetObject("btnFakturierung.Image"), System.Drawing.Image) + Me.btnFakturierung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnFakturierung.Location = New System.Drawing.Point(474, 6) + Me.btnFakturierung.Name = "btnFakturierung" + Me.btnFakturierung.Size = New System.Drawing.Size(116, 39) + Me.btnFakturierung.TabIndex = 11 + Me.btnFakturierung.TabStop = False + Me.btnFakturierung.Text = "Fakturierung" + Me.btnFakturierung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnFakturierung.UseVisualStyleBackColor = True + Me.btnFakturierung.Visible = False + ' + 'btnDienstplan + ' + Me.btnDienstplan.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDienstplan.Cursor = System.Windows.Forms.Cursors.Default + Me.btnDienstplan.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDienstplan.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnDienstplan.ForeColor = System.Drawing.Color.Black + Me.btnDienstplan.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnDienstplan.Location = New System.Drawing.Point(1092, 6) + Me.btnDienstplan.Margin = New System.Windows.Forms.Padding(0) + Me.btnDienstplan.Name = "btnDienstplan" + Me.btnDienstplan.Size = New System.Drawing.Size(87, 39) + Me.btnDienstplan.TabIndex = 10 + Me.btnDienstplan.Text = "Dienstplan" + Me.btnDienstplan.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnDienstplan.UseVisualStyleBackColor = True + ' + 'btnRg + ' + Me.btnRg.Cursor = System.Windows.Forms.Cursors.Default + Me.btnRg.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnRg.ForeColor = System.Drawing.Color.Black + Me.btnRg.Image = CType(resources.GetObject("btnRg.Image"), System.Drawing.Image) + Me.btnRg.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnRg.Location = New System.Drawing.Point(367, 6) + Me.btnRg.Name = "btnRg" + Me.btnRg.Size = New System.Drawing.Size(101, 39) + Me.btnRg.TabIndex = 9 + Me.btnRg.TabStop = False + Me.btnRg.Text = "Rechnungs-" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "daten" + Me.btnRg.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnRg.UseVisualStyleBackColor = True + Me.btnRg.Visible = False + ' + 'btnKassenbuch + ' + Me.btnKassenbuch.Cursor = System.Windows.Forms.Cursors.Default + Me.btnKassenbuch.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnKassenbuch.ForeColor = System.Drawing.Color.Black + Me.btnKassenbuch.Image = Global.AVISO.My.Resources.Resources.kasse_sw_small + Me.btnKassenbuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnKassenbuch.Location = New System.Drawing.Point(249, 6) + Me.btnKassenbuch.Name = "btnKassenbuch" + Me.btnKassenbuch.Size = New System.Drawing.Size(112, 39) + Me.btnKassenbuch.TabIndex = 8 + Me.btnKassenbuch.TabStop = False + Me.btnKassenbuch.Text = "Kassenbuch" + Me.btnKassenbuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnKassenbuch.UseVisualStyleBackColor = True + Me.btnKassenbuch.Visible = False + ' + 'btnRefresh + ' + Me.btnRefresh.Cursor = System.Windows.Forms.Cursors.Default + Me.btnRefresh.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnRefresh.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnRefresh.ForeColor = System.Drawing.Color.Black + Me.btnRefresh.Image = Global.AVISO.My.Resources.Resources.refresh + Me.btnRefresh.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnRefresh.Location = New System.Drawing.Point(710, 6) + Me.btnRefresh.Margin = New System.Windows.Forms.Padding(0) + Me.btnRefresh.Name = "btnRefresh" + Me.btnRefresh.Size = New System.Drawing.Size(135, 39) + Me.btnRefresh.TabIndex = 1 + Me.btnRefresh.Text = "Aktualisieren" + Me.btnRefresh.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnRefresh.UseVisualStyleBackColor = True + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(642, 14) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(75, 23) + Me.Button3.TabIndex = 5 + Me.Button3.Text = "TEST" + Me.Button3.UseVisualStyleBackColor = True + Me.Button3.Visible = False + ' + 'btnKunden + ' + Me.btnKunden.Cursor = System.Windows.Forms.Cursors.Default + Me.btnKunden.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnKunden.ForeColor = System.Drawing.Color.Black + Me.btnKunden.Image = CType(resources.GetObject("btnKunden.Image"), System.Drawing.Image) + Me.btnKunden.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnKunden.Location = New System.Drawing.Point(8, 6) + Me.btnKunden.Name = "btnKunden" + Me.btnKunden.Size = New System.Drawing.Size(102, 39) + Me.btnKunden.TabIndex = 2 + Me.btnKunden.TabStop = False + Me.btnKunden.Text = "Kunden" + Me.btnKunden.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnKunden.UseVisualStyleBackColor = True + ' + 'btnSpedBuch + ' + Me.btnSpedBuch.Cursor = System.Windows.Forms.Cursors.Default + Me.btnSpedBuch.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSpedBuch.ForeColor = System.Drawing.Color.Black + Me.btnSpedBuch.Image = Global.AVISO.My.Resources.Resources.spedbuch1 + Me.btnSpedBuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnSpedBuch.Location = New System.Drawing.Point(129, 6) + Me.btnSpedBuch.Name = "btnSpedBuch" + Me.btnSpedBuch.Size = New System.Drawing.Size(114, 39) + Me.btnSpedBuch.TabIndex = 3 + Me.btnSpedBuch.TabStop = False + Me.btnSpedBuch.Text = "Sped.Buch" + Me.btnSpedBuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSpedBuch.UseVisualStyleBackColor = True + ' + 'lblDauer + ' + Me.lblDauer.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.lblDauer.BackColor = System.Drawing.Color.Transparent + Me.lblDauer.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.lblDauer.Location = New System.Drawing.Point(3, 298) + Me.lblDauer.Name = "lblDauer" + Me.lblDauer.Size = New System.Drawing.Size(155, 17) + Me.lblDauer.TabIndex = 2 + Me.lblDauer.Text = "1111123 ms" + Me.lblDauer.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'btnDrucken + ' + Me.btnDrucken.Cursor = System.Windows.Forms.Cursors.Default + Me.btnDrucken.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDrucken.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.btnDrucken.ForeColor = System.Drawing.Color.Black + Me.btnDrucken.Location = New System.Drawing.Point(812, 248) + Me.btnDrucken.Name = "btnDrucken" + Me.btnDrucken.Size = New System.Drawing.Size(79, 39) + Me.btnDrucken.TabIndex = 0 + Me.btnDrucken.Text = "Logbuch" + Me.btnDrucken.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnDrucken.UseVisualStyleBackColor = True + Me.btnDrucken.Visible = False + ' + 'Button6 + ' + Me.Button6.Cursor = System.Windows.Forms.Cursors.Default + Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button6.ForeColor = System.Drawing.Color.Black + Me.Button6.Image = Global.AVISO.My.Resources.Resources.fremdSped + Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button6.Location = New System.Drawing.Point(474, 293) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(140, 39) + Me.Button6.TabIndex = 7 + Me.Button6.TabStop = False + Me.Button6.Text = "Kunden von" & Global.Microsoft.VisualBasic.ChrW(10) & "Fremd-Speditionen" + Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button6.UseVisualStyleBackColor = True + Me.Button6.Visible = False + ' + 'btnUmrechnungskurse + ' + Me.btnUmrechnungskurse.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUmrechnungskurse.ForeColor = System.Drawing.Color.Black + Me.btnUmrechnungskurse.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnUmrechnungskurse.Location = New System.Drawing.Point(5, 19) + Me.btnUmrechnungskurse.Name = "btnUmrechnungskurse" + Me.btnUmrechnungskurse.Size = New System.Drawing.Size(121, 30) + Me.btnUmrechnungskurse.TabIndex = 2 + Me.btnUmrechnungskurse.TabStop = False + Me.btnUmrechnungskurse.Text = "Umrechnungskurse" + Me.btnUmrechnungskurse.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnUmrechnungskurse.UseVisualStyleBackColor = True + ' + 'btnZollwebseiten + ' + Me.btnZollwebseiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnZollwebseiten.ForeColor = System.Drawing.Color.Black + Me.btnZollwebseiten.Image = CType(resources.GetObject("btnZollwebseiten.Image"), System.Drawing.Image) + Me.btnZollwebseiten.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnZollwebseiten.Location = New System.Drawing.Point(5, 50) + Me.btnZollwebseiten.Name = "btnZollwebseiten" + Me.btnZollwebseiten.Size = New System.Drawing.Size(121, 30) + Me.btnZollwebseiten.TabIndex = 0 + Me.btnZollwebseiten.TabStop = False + Me.btnZollwebseiten.Text = "Zoll-Webseiten" + Me.btnZollwebseiten.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnZollwebseiten.UseVisualStyleBackColor = True + ' + 'lblZeit_aktuell + ' + Me.lblZeit_aktuell.AutoSize = True + Me.lblZeit_aktuell.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lblZeit_aktuell.Location = New System.Drawing.Point(6, 39) + Me.lblZeit_aktuell.Name = "lblZeit_aktuell" + Me.lblZeit_aktuell.Size = New System.Drawing.Size(154, 13) + Me.lblZeit_aktuell.TabIndex = 6 + Me.lblZeit_aktuell.Text = "letzte Aktualisierung: 11:22 Uhr" + ' + 'dtpBis + ' + Me.dtpBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dtpBis.Location = New System.Drawing.Point(230, 34) + Me.dtpBis.Name = "dtpBis" + Me.dtpBis.Size = New System.Drawing.Size(85, 20) + Me.dtpBis.TabIndex = 4 + ' + 'dtpVon + ' + Me.dtpVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dtpVon.Location = New System.Drawing.Point(145, 34) + Me.dtpVon.Name = "dtpVon" + Me.dtpVon.Size = New System.Drawing.Size(85, 20) + Me.dtpVon.TabIndex = 3 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.ForeColor = System.Drawing.Color.White + Me.Label5.Location = New System.Drawing.Point(143, 22) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(25, 13) + Me.Label5.TabIndex = 6 + Me.Label5.Text = "von" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.ForeColor = System.Drawing.Color.White + Me.Label2.Location = New System.Drawing.Point(228, 22) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(20, 13) + Me.Label2.TabIndex = 5 + Me.Label2.Text = "bis" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.ForeColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(798, 39) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(140, 13) + Me.Label1.TabIndex = 8 + Me.Label1.Text = "(zeigt alle ANKUNFT-LKWs)" + Me.Label1.Visible = False + ' + 'Label3 + ' + Me.Label3.ForeColor = System.Drawing.Color.White + Me.Label3.Location = New System.Drawing.Point(796, 1) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(142, 34) + Me.Label3.TabIndex = 7 + Me.Label3.Text = "(zeigt ANKUNFT-LKWs für aktiven Standort)" + Me.Label3.Visible = False + ' + 'Timer1 + ' + Me.Timer1.Interval = 1000 + ' + 'btnWichtige + ' + Me.btnWichtige.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnWichtige.ForeColor = System.Drawing.Color.White + Me.btnWichtige.Location = New System.Drawing.Point(235, 1) + Me.btnWichtige.Name = "btnWichtige" + Me.btnWichtige.Size = New System.Drawing.Size(78, 25) + Me.btnWichtige.TabIndex = 4 + Me.btnWichtige.TabStop = False + Me.btnWichtige.Text = "WICHTIG" + Me.btnWichtige.UseVisualStyleBackColor = True + ' + 'btnWichtigeStandort + ' + Me.btnWichtigeStandort.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnWichtigeStandort.ForeColor = System.Drawing.Color.White + Me.btnWichtigeStandort.Location = New System.Drawing.Point(137, 0) + Me.btnWichtigeStandort.Name = "btnWichtigeStandort" + Me.btnWichtigeStandort.Size = New System.Drawing.Size(92, 27) + Me.btnWichtigeStandort.TabIndex = 3 + Me.btnWichtigeStandort.TabStop = False + Me.btnWichtigeStandort.Text = "Wichtig-Standort" + Me.ToolTip1.SetToolTip(Me.btnWichtigeStandort, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" & + "d sortiert nach Dauer") + Me.btnWichtigeStandort.UseVisualStyleBackColor = True + ' + 'btnMinimieren + ' + Me.btnMinimieren.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnMinimieren.BackColor = System.Drawing.Color.RoyalBlue + Me.btnMinimieren.FlatAppearance.BorderColor = System.Drawing.Color.White + Me.btnMinimieren.FlatAppearance.BorderSize = 0 + Me.btnMinimieren.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMinimieren.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnMinimieren.ForeColor = System.Drawing.Color.White + Me.btnMinimieren.Location = New System.Drawing.Point(48, 0) + Me.btnMinimieren.Name = "btnMinimieren" + Me.btnMinimieren.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.btnMinimieren.Size = New System.Drawing.Size(63, 25) + Me.btnMinimieren.TabIndex = 5 + Me.btnMinimieren.Text = "_" + Me.btnMinimieren.UseVisualStyleBackColor = False + ' + 'lblSuche + ' + Me.lblSuche.AutoSize = True + Me.lblSuche.ForeColor = System.Drawing.Color.White + Me.lblSuche.Location = New System.Drawing.Point(6, 9) + Me.lblSuche.Name = "lblSuche" + Me.lblSuche.Size = New System.Drawing.Size(61, 13) + Me.lblSuche.TabIndex = 1 + Me.lblSuche.Text = "Suchbegriff" + ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.btnZertifikate) + Me.Panel2.Controls.Add(Me.Label7) + Me.Panel2.Controls.Add(Me.lblErrVermerk) + Me.Panel2.Controls.Add(Me.btnUmrechnungskurse) + Me.Panel2.Controls.Add(Me.btnZollwebseiten) + Me.Panel2.Controls.Add(Me.lblHinweis) + Me.Panel2.Location = New System.Drawing.Point(6, 87) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(243, 129) + Me.Panel2.TabIndex = 10 + ' + 'btnZertifikate + ' + Me.btnZertifikate.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnZertifikate.ForeColor = System.Drawing.Color.Black + Me.btnZertifikate.Image = CType(resources.GetObject("btnZertifikate.Image"), System.Drawing.Image) + Me.btnZertifikate.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnZertifikate.Location = New System.Drawing.Point(5, 81) + Me.btnZertifikate.Name = "btnZertifikate" + Me.btnZertifikate.Size = New System.Drawing.Size(121, 30) + Me.btnZertifikate.TabIndex = 5 + Me.btnZertifikate.TabStop = False + Me.btnZertifikate.Text = "Zertifikate" + Me.btnZertifikate.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnZertifikate.UseVisualStyleBackColor = True + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.ForeColor = System.Drawing.Color.Black + Me.Label7.Location = New System.Drawing.Point(2, 5) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(41, 13) + Me.Label7.TabIndex = 3 + Me.Label7.Text = "Links:" + ' + 'lblErrVermerk + ' + Me.lblErrVermerk.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblErrVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.lblErrVermerk.ForeColor = System.Drawing.Color.Red + Me.lblErrVermerk.Location = New System.Drawing.Point(12, 176) + Me.lblErrVermerk.Name = "lblErrVermerk" + Me.lblErrVermerk.Size = New System.Drawing.Size(216, 27) + Me.lblErrVermerk.TabIndex = 1 + Me.lblErrVermerk.Text = "Bei diesem Status kann kein Vermerk erfasst werden!" + Me.lblErrVermerk.TextAlign = System.Drawing.ContentAlignment.BottomLeft + Me.lblErrVermerk.Visible = False + ' + 'lblHinweis + ' + Me.lblHinweis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblHinweis.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lblHinweis.Location = New System.Drawing.Point(5, 93) + Me.lblHinweis.Name = "lblHinweis" + Me.lblHinweis.Size = New System.Drawing.Size(129, 16) + Me.lblHinweis.TabIndex = 4 + Me.lblHinweis.Text = "Hinweis eingetragen" + Me.lblHinweis.Visible = False + ' + 'Label20 + ' + Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Label20.BackColor = System.Drawing.Color.Red + Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label20.ForeColor = System.Drawing.Color.White + Me.Label20.Location = New System.Drawing.Point(52, 270) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(28, 19) + Me.Label20.TabIndex = 9 + Me.Label20.Text = "99" + Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.Label20.Visible = False + ' + 'pnlLinksOben + ' + Me.pnlLinksOben.Controls.Add(Me.Label22) + Me.pnlLinksOben.Controls.Add(Me.btnE_Aviso) + Me.pnlLinksOben.Controls.Add(Me.btnNeu) + Me.pnlLinksOben.Controls.Add(Me.Button7) + Me.pnlLinksOben.Location = New System.Drawing.Point(3, 11) + Me.pnlLinksOben.Name = "pnlLinksOben" + Me.pnlLinksOben.Size = New System.Drawing.Size(164, 91) + Me.pnlLinksOben.TabIndex = 1 + ' + 'Label22 + ' + Me.Label22.BackColor = System.Drawing.Color.Red + Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label22.ForeColor = System.Drawing.Color.White + Me.Label22.Location = New System.Drawing.Point(92, 48) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(28, 19) + Me.Label22.TabIndex = 10 + Me.Label22.Text = "99" + Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.Label22.Visible = False + ' + 'btnE_Aviso + ' + Me.btnE_Aviso.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnE_Aviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnE_Aviso.ForeColor = System.Drawing.Color.Black + Me.btnE_Aviso.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnE_Aviso.Location = New System.Drawing.Point(5, 39) + Me.btnE_Aviso.MaximumSize = New System.Drawing.Size(121, 34) + Me.btnE_Aviso.Name = "btnE_Aviso" + Me.btnE_Aviso.Size = New System.Drawing.Size(121, 34) + Me.btnE_Aviso.TabIndex = 1 + Me.btnE_Aviso.Text = "eAVISO" + Me.btnE_Aviso.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnE_Aviso.UseVisualStyleBackColor = True + Me.btnE_Aviso.Visible = False + ' + 'btnNeu + ' + Me.btnNeu.ContextMenuStrip = Me.cntxtAtilla + Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnNeu.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnNeu.ForeColor = System.Drawing.Color.Black + Me.btnNeu.Image = CType(resources.GetObject("btnNeu.Image"), System.Drawing.Image) + Me.btnNeu.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnNeu.Location = New System.Drawing.Point(5, 4) + Me.btnNeu.MaximumSize = New System.Drawing.Size(121, 34) + Me.btnNeu.Name = "btnNeu" + Me.btnNeu.Size = New System.Drawing.Size(121, 34) + Me.btnNeu.TabIndex = 0 + Me.btnNeu.Text = " LKW" + Me.btnNeu.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnNeu.UseVisualStyleBackColor = True + ' + 'cntxtAtilla + ' + Me.cntxtAtilla.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.cntxtAtilla.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem17}) + Me.cntxtAtilla.Name = "cntxt" + Me.cntxtAtilla.Size = New System.Drawing.Size(112, 26) + ' + 'ToolStripMenuItem17 + ' + Me.ToolStripMenuItem17.Name = "ToolStripMenuItem17" + Me.ToolStripMenuItem17.Size = New System.Drawing.Size(111, 22) + Me.ToolStripMenuItem17.Text = "ATILLA" + ' + 'Button7 + ' + Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) + Me.Button7.ForeColor = System.Drawing.Color.Black + Me.Button7.Image = CType(resources.GetObject("Button7.Image"), System.Drawing.Image) + Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button7.Location = New System.Drawing.Point(70, 39) + Me.Button7.MaximumSize = New System.Drawing.Size(121, 35) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(121, 35) + Me.Button7.TabIndex = 11 + Me.Button7.Text = "Sendung" + Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button7.UseVisualStyleBackColor = True + Me.Button7.Visible = False + ' + 'picAVISOMessenger + ' + Me.picAVISOMessenger.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.picAVISOMessenger.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger + Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand + Me.picAVISOMessenger.Location = New System.Drawing.Point(4, 222) + Me.picAVISOMessenger.Name = "picAVISOMessenger" + Me.picAVISOMessenger.Size = New System.Drawing.Size(59, 55) + Me.picAVISOMessenger.TabIndex = 7 + Me.picAVISOMessenger.TabStop = False + Me.picAVISOMessenger.Visible = False + ' + 'pic + ' + Me.pic.BackgroundImage = Global.AVISO.My.Resources.Resources.disconnect + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.pic.Location = New System.Drawing.Point(184, 239) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(59, 50) + Me.pic.TabIndex = 5 + Me.pic.TabStop = False + Me.pic.Visible = False + ' + 'btnClose + ' + Me.btnClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnClose.BackColor = System.Drawing.Color.Red + Me.btnClose.FlatAppearance.BorderColor = System.Drawing.Color.White + Me.btnClose.FlatAppearance.BorderSize = 0 + Me.btnClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnClose.ForeColor = System.Drawing.Color.White + Me.btnClose.Location = New System.Drawing.Point(109, 0) + Me.btnClose.Name = "btnClose" + Me.btnClose.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.btnClose.Size = New System.Drawing.Size(63, 25) + Me.btnClose.TabIndex = 4 + Me.btnClose.Text = "X" + Me.btnClose.UseVisualStyleBackColor = False + ' + 'TimerAkte + ' + Me.TimerAkte.Interval = 5000 + ' + 'tabVorgeschrieben + ' + Me.tabVorgeschrieben.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.tabVorgeschrieben.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tabVorgeschrieben.Location = New System.Drawing.Point(4, 34) + Me.tabVorgeschrieben.Name = "tabVorgeschrieben" + Me.tabVorgeschrieben.Padding = New System.Windows.Forms.Padding(3) + Me.tabVorgeschrieben.Size = New System.Drawing.Size(121, 0) + Me.tabVorgeschrieben.TabIndex = 3 + Me.tabVorgeschrieben.Text = "3.Vorgeschrieben" + ' + 'tabFreigegeben + ' + Me.tabFreigegeben.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.tabFreigegeben.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tabFreigegeben.Location = New System.Drawing.Point(4, 34) + Me.tabFreigegeben.Name = "tabFreigegeben" + Me.tabFreigegeben.Padding = New System.Windows.Forms.Padding(3) + Me.tabFreigegeben.Size = New System.Drawing.Size(121, 0) + Me.tabFreigegeben.TabIndex = 5 + Me.tabFreigegeben.Text = "5. Freigegeben" + ' + 'tabNichtEingetroffen + ' + Me.tabNichtEingetroffen.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.tabNichtEingetroffen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tabNichtEingetroffen.Location = New System.Drawing.Point(4, 34) + Me.tabNichtEingetroffen.Name = "tabNichtEingetroffen" + Me.tabNichtEingetroffen.Padding = New System.Windows.Forms.Padding(3) + Me.tabNichtEingetroffen.Size = New System.Drawing.Size(121, 0) + Me.tabNichtEingetroffen.TabIndex = 6 + Me.tabNichtEingetroffen.Text = "Nicht eingetroffen" + ' + 'tabAnkunft + ' + Me.tabAnkunft.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.tabAnkunft.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tabAnkunft.Location = New System.Drawing.Point(4, 34) + Me.tabAnkunft.Name = "tabAnkunft" + Me.tabAnkunft.Padding = New System.Windows.Forms.Padding(3) + Me.tabAnkunft.Size = New System.Drawing.Size(121, 0) + Me.tabAnkunft.TabIndex = 4 + Me.tabAnkunft.Text = "4. Ankunft" + ' + 'tabVorbereitet + ' + Me.tabVorbereitet.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.tabVorbereitet.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tabVorbereitet.Location = New System.Drawing.Point(4, 34) + Me.tabVorbereitet.Name = "tabVorbereitet" + Me.tabVorbereitet.Padding = New System.Windows.Forms.Padding(3) + Me.tabVorbereitet.Size = New System.Drawing.Size(121, 0) + Me.tabVorbereitet.TabIndex = 2 + Me.tabVorbereitet.Text = "2.Vorbereitet QS" + ' + 'pnlAktOption + ' + Me.pnlAktOption.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlAktOption.Location = New System.Drawing.Point(0, 0) + Me.pnlAktOption.Name = "pnlAktOption" + Me.pnlAktOption.Size = New System.Drawing.Size(926, 5) + Me.pnlAktOption.TabIndex = 1 + ' + 'Button8 + ' + Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button8.ForeColor = System.Drawing.Color.Black + Me.Button8.Image = CType(resources.GetObject("Button8.Image"), System.Drawing.Image) + Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button8.Location = New System.Drawing.Point(1042, 214) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(89, 34) + Me.Button8.TabIndex = 3 + Me.Button8.TabStop = False + Me.Button8.Text = "TV-Hinweis" + Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button8.UseVisualStyleBackColor = True + Me.Button8.Visible = False + ' + 'btnFertig + ' + Me.btnFertig.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnFertig.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnFertig.ForeColor = System.Drawing.Color.Black + Me.btnFertig.Image = CType(resources.GetObject("btnFertig.Image"), System.Drawing.Image) + Me.btnFertig.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnFertig.Location = New System.Drawing.Point(1146, 214) + Me.btnFertig.Name = "btnFertig" + Me.btnFertig.Size = New System.Drawing.Size(102, 34) + Me.btnFertig.TabIndex = 0 + Me.btnFertig.Text = "LKW fertig" + Me.btnFertig.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnFertig.UseVisualStyleBackColor = True + Me.btnFertig.Visible = False + ' + 'tabAlle + ' + Me.tabAlle.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.tabAlle.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tabAlle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tabAlle.Location = New System.Drawing.Point(4, 34) + Me.tabAlle.Name = "tabAlle" + Me.tabAlle.Padding = New System.Windows.Forms.Padding(3) + Me.tabAlle.Size = New System.Drawing.Size(121, 0) + Me.tabAlle.TabIndex = 0 + Me.tabAlle.Text = "Alle LKW" + ' + 'tabErfasst + ' + Me.tabErfasst.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.tabErfasst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tabErfasst.Location = New System.Drawing.Point(4, 34) + Me.tabErfasst.Name = "tabErfasst" + Me.tabErfasst.Padding = New System.Windows.Forms.Padding(3) + Me.tabErfasst.Size = New System.Drawing.Size(121, 0) + Me.tabErfasst.TabIndex = 1 + Me.tabErfasst.Text = "1. Erfasst" + ' + 'tbcntrAvisoLKW + ' + Me.tbcntrAvisoLKW.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabAlle) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabErfasst) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabVorbereitet) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabVorgeschrieben) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabAnkunft) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabVERIMEX) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabINDONESIEN) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabFreigegeben) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabNichtEingetroffen) + Me.tbcntrAvisoLKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbcntrAvisoLKW.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.tbcntrAvisoLKW.ItemSize = New System.Drawing.Size(60, 30) + Me.tbcntrAvisoLKW.Location = New System.Drawing.Point(-1, 216) + Me.tbcntrAvisoLKW.Name = "tbcntrAvisoLKW" + Me.tbcntrAvisoLKW.Padding = New System.Drawing.Point(12, 3) + Me.tbcntrAvisoLKW.SelectedIndex = 0 + Me.tbcntrAvisoLKW.Size = New System.Drawing.Size(129, 37) + Me.tbcntrAvisoLKW.TabIndex = 10 + ' + 'tabVERIMEX + ' + Me.tabVERIMEX.Location = New System.Drawing.Point(4, 34) + Me.tabVERIMEX.Name = "tabVERIMEX" + Me.tabVERIMEX.Size = New System.Drawing.Size(121, 0) + Me.tabVERIMEX.TabIndex = 7 + Me.tabVERIMEX.Text = "VERIMEX" + Me.tabVERIMEX.UseVisualStyleBackColor = True + ' + 'tabINDONESIEN + ' + Me.tabINDONESIEN.Location = New System.Drawing.Point(4, 34) + Me.tabINDONESIEN.Name = "tabINDONESIEN" + Me.tabINDONESIEN.Size = New System.Drawing.Size(121, 0) + Me.tabINDONESIEN.TabIndex = 8 + Me.tabINDONESIEN.Text = "INDONESIEN" + Me.tabINDONESIEN.UseVisualStyleBackColor = True + ' + 'SplitContainer1 + ' + Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer1.IsSplitterFixed = True + Me.SplitContainer1.Location = New System.Drawing.Point(252, 83) + Me.SplitContainer1.Name = "SplitContainer1" + ' + 'SplitContainer1.Panel1 + ' + Me.SplitContainer1.Panel1.Controls.Add(Me.pnlDetailsLinks) + Me.SplitContainer1.Panel1MinSize = 0 + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.Controls.Add(Me.btnSmall) + Me.SplitContainer1.Panel2.Controls.Add(Me.pnlDetailsRechts) + Me.SplitContainer1.Panel2MinSize = 200 + Me.SplitContainer1.Size = New System.Drawing.Size(1221, 611) + Me.SplitContainer1.SplitterDistance = 930 + Me.SplitContainer1.SplitterWidth = 1 + Me.SplitContainer1.TabIndex = 7 + ' + 'pnlDetailsLinks + ' + Me.pnlDetailsLinks.AutoSize = True + Me.pnlDetailsLinks.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlDetailsLinks.Controls.Add(Me.splitMain) + Me.pnlDetailsLinks.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlDetailsLinks.Location = New System.Drawing.Point(0, 0) + Me.pnlDetailsLinks.MinimumSize = New System.Drawing.Size(324, 564) + Me.pnlDetailsLinks.Name = "pnlDetailsLinks" + Me.pnlDetailsLinks.Size = New System.Drawing.Size(928, 609) + Me.pnlDetailsLinks.TabIndex = 0 + ' + 'splitMain + ' + Me.splitMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.splitMain.FixedPanel = System.Windows.Forms.FixedPanel.Panel2 + Me.splitMain.Location = New System.Drawing.Point(0, 0) + Me.splitMain.Name = "splitMain" + Me.splitMain.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'splitMain.Panel1 + ' + Me.splitMain.Panel1.Controls.Add(Me.btnDrucken) + Me.splitMain.Panel1.Controls.Add(Me.Button6) + Me.splitMain.Panel1.Controls.Add(Me.Button8) + Me.splitMain.Panel1.Controls.Add(Me.btnFertig) + Me.splitMain.Panel1.Controls.Add(Me.gridAviso) + Me.splitMain.Panel1.Controls.Add(Me.Panel1) + ' + 'splitMain.Panel2 + ' + Me.splitMain.Panel2.Controls.Add(Me.pnlLinksOben) + Me.splitMain.Panel2.Controls.Add(Me.pnlAktOption) + Me.splitMain.Size = New System.Drawing.Size(926, 607) + Me.splitMain.SplitterDistance = 400 + Me.splitMain.TabIndex = 0 + ' + 'gridAviso + ' + Me.gridAviso.AKTUALISIERUNGS_INTERVALL = -1 + Me.gridAviso.AllowUserToAddRows = False + Me.gridAviso.AllowUserToDeleteRows = False + Me.gridAviso.AllowUserToResizeRows = False + DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray + Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 + Me.gridAviso.ColumnHeadersHeight = 25 + Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle3 + Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill + Me.gridAviso.Location = New System.Drawing.Point(0, 248) + Me.gridAviso.MultiSelect = False + Me.gridAviso.Name = "gridAviso" + Me.gridAviso.ReadOnly = True + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 + Me.gridAviso.RowHeadersVisible = False + Me.gridAviso.RowHeadersWidth = 62 + Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle5 + Me.gridAviso.RowTemplate.ReadOnly = True + Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.gridAviso.Size = New System.Drawing.Size(926, 152) + Me.gridAviso.TabIndex = 1 + Me.gridAviso.TabStop = False + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel1.Controls.Add(Me.pblSNDOptions) + Me.Panel1.Controls.Add(Me.CheckBox1) + Me.Panel1.Controls.Add(Me.tbcntrAvisoSND) + Me.Panel1.Controls.Add(Me.txtBestimmungszollstelle) + Me.Panel1.Controls.Add(Me.Label10) + Me.Panel1.Controls.Add(Me.cboImEx) + Me.Panel1.Controls.Add(Me.lblAkte) + Me.Panel1.Controls.Add(Me.Label21) + Me.Panel1.Controls.Add(Me.cbxCluster) + Me.Panel1.Controls.Add(Me.cboTeams) + Me.Panel1.Controls.Add(Me.lblErweitereSuche) + Me.Panel1.Controls.Add(Me.Label16) + Me.Panel1.Controls.Add(Me.Label8) + Me.Panel1.Controls.Add(Me.lblEintraege) + Me.Panel1.Controls.Add(Me.cboGrenzstelle) + Me.Panel1.Controls.Add(Me.lblGrenze) + Me.Panel1.Controls.Add(Me.pnlTime) + Me.Panel1.Controls.Add(Me.Label6) + Me.Panel1.Controls.Add(Me.txtSuche) + Me.Panel1.Controls.Add(Me.lblZeit_aktuell) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Controls.Add(Me.Label3) + Me.Panel1.Controls.Add(Me.btnWichtige) + Me.Panel1.Controls.Add(Me.btnWichtigeStandort) + Me.Panel1.Controls.Add(Me.btnAlleAnzeigen) + Me.Panel1.Controls.Add(Me.lblSuche) + Me.Panel1.Controls.Add(Me.tbcntrAvisoLKW) + Me.Panel1.Controls.Add(Me.pnlSearch) + 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(926, 248) + Me.Panel1.TabIndex = 2 + ' + 'pblSNDOptions + ' + Me.pblSNDOptions.Controls.Add(Me.cbx_My_Brexit) + Me.pblSNDOptions.Controls.Add(Me.btnColor) + Me.pblSNDOptions.Controls.Add(Me.lblMySND_Anzeige) + Me.pblSNDOptions.Controls.Add(Me.cboMyAvisoAnzeige) + Me.pblSNDOptions.Controls.Add(Me.cboMy_Grenzstelle) + Me.pblSNDOptions.Controls.Add(Me.cboMy_QS) + Me.pblSNDOptions.Controls.Add(Me.cbx_My_LKW) + Me.pblSNDOptions.Controls.Add(Me.cboMy_VB) + Me.pblSNDOptions.Controls.Add(Me.lblMySnd_Grenzstelle) + Me.pblSNDOptions.Location = New System.Drawing.Point(355, 217) + Me.pblSNDOptions.Name = "pblSNDOptions" + Me.pblSNDOptions.Size = New System.Drawing.Size(568, 25) + Me.pblSNDOptions.TabIndex = 29 + Me.pblSNDOptions.Visible = False + ' + 'cbx_My_Brexit + ' + Me.cbx_My_Brexit.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cbx_My_Brexit.AutoSize = True + Me.cbx_My_Brexit.ForeColor = System.Drawing.Color.White + Me.cbx_My_Brexit.Location = New System.Drawing.Point(3, 3) + Me.cbx_My_Brexit.Name = "cbx_My_Brexit" + Me.cbx_My_Brexit.Size = New System.Drawing.Size(65, 17) + Me.cbx_My_Brexit.TabIndex = 28 + Me.cbx_My_Brexit.Text = "BREXIT" + Me.cbx_My_Brexit.UseVisualStyleBackColor = True + Me.cbx_My_Brexit.Visible = False + ' + 'btnColor + ' + Me.btnColor.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnColor.BackColor = System.Drawing.Color.White + Me.btnColor.Location = New System.Drawing.Point(471, 1) + Me.btnColor.Name = "btnColor" + Me.btnColor.Size = New System.Drawing.Size(36, 23) + Me.btnColor.TabIndex = 37 + Me.btnColor.UseVisualStyleBackColor = False + Me.btnColor.Visible = False + ' + 'lblMySND_Anzeige + ' + Me.lblMySND_Anzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblMySND_Anzeige.AutoSize = True + Me.lblMySND_Anzeige.ForeColor = System.Drawing.Color.White + Me.lblMySND_Anzeige.Location = New System.Drawing.Point(277, 3) + Me.lblMySND_Anzeige.Name = "lblMySND_Anzeige" + Me.lblMySND_Anzeige.Size = New System.Drawing.Size(48, 13) + Me.lblMySND_Anzeige.TabIndex = 20 + Me.lblMySND_Anzeige.Text = "Anzeige:" + ' + 'cboMyAvisoAnzeige + ' + Me.cboMyAvisoAnzeige._allowedValuesFreiText = Nothing + Me.cboMyAvisoAnzeige._allowFreiText = False + Me.cboMyAvisoAnzeige._value = "" + Me.cboMyAvisoAnzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cboMyAvisoAnzeige.BackColor = System.Drawing.Color.WhiteSmoke + Me.cboMyAvisoAnzeige.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.cboMyAvisoAnzeige.FormattingEnabled = True + Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(326, 1) + Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige" + Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(127, 21) + Me.cboMyAvisoAnzeige.TabIndex = 21 + ' + 'cboMy_Grenzstelle + ' + Me.cboMy_Grenzstelle._allowedValuesFreiText = Nothing + Me.cboMy_Grenzstelle._allowFreiText = False + Me.cboMy_Grenzstelle._value = "" + Me.cboMy_Grenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cboMy_Grenzstelle.BackColor = System.Drawing.Color.WhiteSmoke + Me.cboMy_Grenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboMy_Grenzstelle.DropDownWidth = 120 + Me.cboMy_Grenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.cboMy_Grenzstelle.FormattingEnabled = True + Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(207, 1) + Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle" + Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 21) + Me.cboMy_Grenzstelle.TabIndex = 26 + ' + 'cboMy_QS + ' + Me.cboMy_QS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cboMy_QS.AutoSize = True + Me.cboMy_QS.Checked = True + Me.cboMy_QS.CheckState = System.Windows.Forms.CheckState.Indeterminate + Me.cboMy_QS.ForeColor = System.Drawing.Color.White + Me.cboMy_QS.Location = New System.Drawing.Point(519, 5) + Me.cboMy_QS.Name = "cboMy_QS" + Me.cboMy_QS.Size = New System.Drawing.Size(15, 14) + Me.cboMy_QS.TabIndex = 33 + Me.cboMy_QS.ThreeState = True + Me.cboMy_QS.UseVisualStyleBackColor = True + ' + 'cbx_My_LKW + ' + Me.cbx_My_LKW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cbx_My_LKW.AutoSize = True + Me.cbx_My_LKW.ForeColor = System.Drawing.Color.White + Me.cbx_My_LKW.Location = New System.Drawing.Point(83, 3) + Me.cbx_My_LKW.Name = "cbx_My_LKW" + Me.cbx_My_LKW.Size = New System.Drawing.Size(50, 17) + Me.cbx_My_LKW.TabIndex = 24 + Me.cbx_My_LKW.Text = "LKW" + Me.cbx_My_LKW.UseVisualStyleBackColor = True + ' + 'cboMy_VB + ' + Me.cboMy_VB.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cboMy_VB.AutoSize = True + Me.cboMy_VB.Checked = True + Me.cboMy_VB.CheckState = System.Windows.Forms.CheckState.Indeterminate + Me.cboMy_VB.ForeColor = System.Drawing.Color.White + Me.cboMy_VB.Location = New System.Drawing.Point(538, 5) + Me.cboMy_VB.Name = "cboMy_VB" + Me.cboMy_VB.Size = New System.Drawing.Size(15, 14) + Me.cboMy_VB.TabIndex = 32 + Me.cboMy_VB.ThreeState = True + Me.cboMy_VB.UseVisualStyleBackColor = True + ' + 'lblMySnd_Grenzstelle + ' + Me.lblMySnd_Grenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblMySnd_Grenzstelle.AutoSize = True + Me.lblMySnd_Grenzstelle.ForeColor = System.Drawing.Color.White + Me.lblMySnd_Grenzstelle.Location = New System.Drawing.Point(139, 4) + Me.lblMySnd_Grenzstelle.Name = "lblMySnd_Grenzstelle" + Me.lblMySnd_Grenzstelle.Size = New System.Drawing.Size(62, 13) + Me.lblMySnd_Grenzstelle.TabIndex = 25 + Me.lblMySnd_Grenzstelle.Text = "Grenzstelle:" + ' + 'CheckBox1 + ' + Me.CheckBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.CheckBox1.AutoSize = True + Me.CheckBox1.Checked = True + Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked + Me.CheckBox1.ForeColor = System.Drawing.Color.White + Me.CheckBox1.Location = New System.Drawing.Point(220, 55) + Me.CheckBox1.Name = "CheckBox1" + Me.CheckBox1.Size = New System.Drawing.Size(50, 17) + Me.CheckBox1.TabIndex = 28 + Me.CheckBox1.Text = "LKW" + Me.CheckBox1.UseVisualStyleBackColor = True + ' + 'tbcntrAvisoSND + ' + Me.tbcntrAvisoSND.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.tbcntrAvisoSND.Controls.Add(Me.tbSndAlle) + Me.tbcntrAvisoSND.Controls.Add(Me.tbSndOffen) + Me.tbcntrAvisoSND.Controls.Add(Me.tbSndFreigegeben) + Me.tbcntrAvisoSND.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbcntrAvisoSND.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.tbcntrAvisoSND.ItemSize = New System.Drawing.Size(60, 30) + Me.tbcntrAvisoSND.Location = New System.Drawing.Point(157, 220) + Me.tbcntrAvisoSND.Name = "tbcntrAvisoSND" + Me.tbcntrAvisoSND.Padding = New System.Drawing.Point(12, 3) + Me.tbcntrAvisoSND.SelectedIndex = 0 + Me.tbcntrAvisoSND.Size = New System.Drawing.Size(129, 11) + Me.tbcntrAvisoSND.TabIndex = 27 + Me.tbcntrAvisoSND.Visible = False + ' + 'tbSndAlle + ' + Me.tbSndAlle.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.tbSndAlle.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbSndAlle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbSndAlle.Location = New System.Drawing.Point(4, 34) + Me.tbSndAlle.Name = "tbSndAlle" + Me.tbSndAlle.Padding = New System.Windows.Forms.Padding(3) + Me.tbSndAlle.Size = New System.Drawing.Size(121, 0) + Me.tbSndAlle.TabIndex = 0 + Me.tbSndAlle.Text = "Alle Sendungen" + ' + 'tbSndOffen + ' + Me.tbSndOffen.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.tbSndOffen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbSndOffen.Location = New System.Drawing.Point(4, 34) + Me.tbSndOffen.Name = "tbSndOffen" + Me.tbSndOffen.Padding = New System.Windows.Forms.Padding(3) + Me.tbSndOffen.Size = New System.Drawing.Size(121, 0) + Me.tbSndOffen.TabIndex = 1 + Me.tbSndOffen.Text = "Offen" + ' + 'tbSndFreigegeben + ' + Me.tbSndFreigegeben.Location = New System.Drawing.Point(4, 34) + Me.tbSndFreigegeben.Name = "tbSndFreigegeben" + Me.tbSndFreigegeben.Size = New System.Drawing.Size(121, 0) + Me.tbSndFreigegeben.TabIndex = 2 + Me.tbSndFreigegeben.Text = "Freigegeben" + Me.tbSndFreigegeben.UseVisualStyleBackColor = True + ' + 'txtBestimmungszollstelle + ' + Me.txtBestimmungszollstelle._allowFreitext = False + Me.txtBestimmungszollstelle._AllowSetValue = False + Me.txtBestimmungszollstelle._allowSpaceAsSplitter = False + Me.txtBestimmungszollstelle._autoSizeGross = False + Me.txtBestimmungszollstelle._hideIfListEmpty = True + Me.txtBestimmungszollstelle._value = Nothing + Me.txtBestimmungszollstelle.conn_art = "FMZOLL" + Me.txtBestimmungszollstelle.dgvpos = "LEFT" + Me.txtBestimmungszollstelle.DISPLAY_PARAM = Nothing + Me.txtBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing + Me.txtBestimmungszollstelle.key_visible = False + Me.txtBestimmungszollstelle.KEYPARAM = Nothing + Me.txtBestimmungszollstelle.Location = New System.Drawing.Point(379, 55) + Me.txtBestimmungszollstelle.MaxLength = 50 + Me.txtBestimmungszollstelle.Name = "txtBestimmungszollstelle" + Me.txtBestimmungszollstelle.searchActive = True + Me.txtBestimmungszollstelle.Size = New System.Drawing.Size(211, 20) + Me.txtBestimmungszollstelle.SQL_ORDER_BY = Nothing + Me.txtBestimmungszollstelle.SQL_SELECT = Nothing + Me.txtBestimmungszollstelle.SQL_WHERE = Nothing + Me.txtBestimmungszollstelle.SQL_WhereParamList = Nothing + Me.txtBestimmungszollstelle.TabIndex = 25 + Me.txtBestimmungszollstelle.usrcntl = Nothing + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.ForeColor = System.Drawing.Color.White + Me.Label10.Location = New System.Drawing.Point(332, 56) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(44, 13) + Me.Label10.TabIndex = 26 + Me.Label10.Text = "Zollamt:" + ' + 'cboImEx + ' + Me.cboImEx._allowedValuesFreiText = Nothing + Me.cboImEx._allowFreiText = False + Me.cboImEx._value = "" + Me.cboImEx.BackColor = System.Drawing.Color.WhiteSmoke + Me.cboImEx.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboImEx.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboImEx.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboImEx.FormattingEnabled = True + Me.cboImEx.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD"}) + Me.cboImEx.Location = New System.Drawing.Point(828, 3) + Me.cboImEx.Name = "cboImEx" + Me.cboImEx.Size = New System.Drawing.Size(78, 24) + Me.cboImEx.TabIndex = 24 + ' + 'lblAkte + ' + Me.lblAkte.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblAkte.ForeColor = System.Drawing.Color.White + Me.lblAkte.Location = New System.Drawing.Point(835, 185) + Me.lblAkte.Name = "lblAkte" + Me.lblAkte.Size = New System.Drawing.Size(207, 19) + Me.lblAkte.TabIndex = 29 + Me.lblAkte.Text = "0 Akte vom Arbeitsplatz übernommen" + Me.lblAkte.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.ForeColor = System.Drawing.Color.White + Me.Label21.Location = New System.Drawing.Point(777, 9) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(41, 13) + Me.Label21.TabIndex = 23 + Me.Label21.Text = "IM/EX:" + ' + 'cbxCluster + ' + Me.cbxCluster.AutoSize = True + Me.cbxCluster.Checked = True + Me.cbxCluster.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxCluster.ForeColor = System.Drawing.Color.White + Me.cbxCluster.Location = New System.Drawing.Point(767, 35) + Me.cbxCluster.Name = "cbxCluster" + Me.cbxCluster.Size = New System.Drawing.Size(96, 17) + Me.cbxCluster.TabIndex = 20 + Me.cbxCluster.Text = "Firmenverbund" + Me.cbxCluster.UseVisualStyleBackColor = True + ' + 'cboTeams + ' + Me.cboTeams._allowedValuesFreiText = Nothing + Me.cboTeams._allowFreiText = False + Me.cboTeams._value = "" + Me.cboTeams.BackColor = System.Drawing.Color.WhiteSmoke + Me.cboTeams.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboTeams.DropDownWidth = 200 + Me.cboTeams.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboTeams.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboTeams.FormattingEnabled = True + Me.cboTeams.Location = New System.Drawing.Point(379, 3) + Me.cboTeams.Name = "cboTeams" + Me.cboTeams.Size = New System.Drawing.Size(107, 24) + Me.cboTeams.TabIndex = 19 + ' + 'lblErweitereSuche + ' + Me.lblErweitereSuche.AutoSize = True + Me.lblErweitereSuche.LinkColor = System.Drawing.Color.White + Me.lblErweitereSuche.Location = New System.Drawing.Point(6, 54) + Me.lblErweitereSuche.Name = "lblErweitereSuche" + Me.lblErweitereSuche.Size = New System.Drawing.Size(87, 13) + Me.lblErweitereSuche.TabIndex = 17 + Me.lblErweitereSuche.TabStop = True + Me.lblErweitereSuche.Text = "erweiterte Suche" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.ForeColor = System.Drawing.Color.White + Me.Label16.Location = New System.Drawing.Point(339, 8) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(37, 13) + Me.Label16.TabIndex = 18 + Me.Label16.Text = "Team:" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.Label8.Location = New System.Drawing.Point(67, 7) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(15, 18) + Me.Label8.TabIndex = 15 + Me.Label8.Text = "*" + Me.Label8.Visible = False + ' + 'lblEintraege + ' + Me.lblEintraege.BackColor = System.Drawing.Color.Transparent + Me.lblEintraege.ForeColor = System.Drawing.Color.White + Me.lblEintraege.Location = New System.Drawing.Point(696, 56) + Me.lblEintraege.Name = "lblEintraege" + Me.lblEintraege.Size = New System.Drawing.Size(169, 15) + Me.lblEintraege.TabIndex = 14 + Me.lblEintraege.Text = "0 Einträge" + Me.lblEintraege.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'cboGrenzstelle + ' + Me.cboGrenzstelle._allowedValuesFreiText = Nothing + Me.cboGrenzstelle._allowFreiText = False + Me.cboGrenzstelle._value = "" + Me.cboGrenzstelle.BackColor = System.Drawing.Color.WhiteSmoke + Me.cboGrenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboGrenzstelle.DropDownWidth = 200 + Me.cboGrenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboGrenzstelle.FormattingEnabled = True + Me.cboGrenzstelle.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD", "NEU", "AMB", "???"}) + Me.cboGrenzstelle.Location = New System.Drawing.Point(379, 30) + Me.cboGrenzstelle.Name = "cboGrenzstelle" + Me.cboGrenzstelle.Size = New System.Drawing.Size(107, 24) + Me.cboGrenzstelle.TabIndex = 13 + ' + 'lblGrenze + ' + Me.lblGrenze.AutoSize = True + Me.lblGrenze.ForeColor = System.Drawing.Color.White + Me.lblGrenze.Location = New System.Drawing.Point(314, 36) + Me.lblGrenze.Name = "lblGrenze" + Me.lblGrenze.Size = New System.Drawing.Size(62, 13) + Me.lblGrenze.TabIndex = 9 + Me.lblGrenze.Text = "Grenzstelle:" + ' + 'pnlTime + ' + Me.pnlTime.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.pnlTime.Controls.Add(Me.MyComboBox1) + Me.pnlTime.Controls.Add(Me.btnHeute) + Me.pnlTime.Controls.Add(Me.btnGestern) + Me.pnlTime.Controls.Add(Me.btnWoche) + Me.pnlTime.Controls.Add(Me.dtpBis) + Me.pnlTime.Controls.Add(Me.Label2) + Me.pnlTime.Controls.Add(Me.dtpVon) + Me.pnlTime.Controls.Add(Me.Label5) + Me.pnlTime.Location = New System.Drawing.Point(446, 0) + Me.pnlTime.Name = "pnlTime" + Me.pnlTime.Size = New System.Drawing.Size(604, 57) + Me.pnlTime.TabIndex = 12 + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.MyComboBox1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.MyComboBox1.ForeColor = System.Drawing.Color.White + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(46, 1) + Me.MyComboBox1.MaxLength = 4 + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(98, 21) + Me.MyComboBox1.TabIndex = 7 + ' + 'pnlSearch + ' + Me.pnlSearch.Controls.Add(Me.lblAbsender) + Me.pnlSearch.Controls.Add(Me.txtAbsender) + Me.pnlSearch.Controls.Add(Me.txtDyRef) + Me.pnlSearch.Controls.Add(Me.Label19) + Me.pnlSearch.Controls.Add(Me.lblErwLKWID) + Me.pnlSearch.Controls.Add(Me.txtlkwId) + Me.pnlSearch.Controls.Add(Me.cbxNE) + Me.pnlSearch.Controls.Add(Me.cbxFreigabe) + Me.pnlSearch.Controls.Add(Me.cbxAnkunft) + Me.pnlSearch.Controls.Add(Me.cbxVorg) + Me.pnlSearch.Controls.Add(Me.cbxVorb) + Me.pnlSearch.Controls.Add(Me.cbxErfasst) + Me.pnlSearch.Controls.Add(Me.Label14) + Me.pnlSearch.Controls.Add(Me.txtKdAuftragsnr) + Me.pnlSearch.Controls.Add(Me.txtAuftraggeber) + Me.pnlSearch.Controls.Add(Me.lblErwKdAtrNr) + Me.pnlSearch.Controls.Add(Me.Button4) + Me.pnlSearch.Controls.Add(Me.lblErwEmpfänger) + Me.pnlSearch.Controls.Add(Me.txtEmpfänger) + Me.pnlSearch.Controls.Add(Me.cboFiliale) + Me.pnlSearch.Controls.Add(Me.txtAbfertigungsnummer) + Me.pnlSearch.Controls.Add(Me.lblErwFilialePos) + Me.pnlSearch.Controls.Add(Me.lblErwAuftraggeber) + Me.pnlSearch.Controls.Add(Me.cbxAlle) + Me.pnlSearch.Location = New System.Drawing.Point(-2, 79) + Me.pnlSearch.Name = "pnlSearch" + Me.pnlSearch.Size = New System.Drawing.Size(823, 135) + Me.pnlSearch.TabIndex = 16 + Me.pnlSearch.Visible = False + ' + 'lblAbsender + ' + Me.lblAbsender.AutoSize = True + Me.lblAbsender.ForeColor = System.Drawing.Color.White + Me.lblAbsender.Location = New System.Drawing.Point(8, 40) + Me.lblAbsender.Name = "lblAbsender" + Me.lblAbsender.Size = New System.Drawing.Size(55, 13) + Me.lblAbsender.TabIndex = 23 + Me.lblAbsender.Text = "Absender:" + ' + 'txtAbsender + ' + Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbsender.Location = New System.Drawing.Point(79, 35) + Me.txtAbsender.MaxLength = 100 + Me.txtAbsender.Name = "txtAbsender" + Me.txtAbsender.Size = New System.Drawing.Size(236, 23) + Me.txtAbsender.TabIndex = 2 + ' + 'txtDyRef + ' + Me.txtDyRef.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtDyRef.Location = New System.Drawing.Point(389, 84) + Me.txtDyRef.MaxLength = 100 + Me.txtDyRef.Name = "txtDyRef" + Me.txtDyRef.Size = New System.Drawing.Size(216, 23) + Me.txtDyRef.TabIndex = 10 + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.ForeColor = System.Drawing.Color.White + Me.Label19.Location = New System.Drawing.Point(316, 89) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(48, 13) + Me.Label19.TabIndex = 20 + Me.Label19.Text = "DY-Ref.:" + ' + 'lblErwLKWID + ' + Me.lblErwLKWID.AutoSize = True + Me.lblErwLKWID.ForeColor = System.Drawing.Color.White + Me.lblErwLKWID.Location = New System.Drawing.Point(8, 89) + Me.lblErwLKWID.Name = "lblErwLKWID" + Me.lblErwLKWID.Size = New System.Drawing.Size(46, 13) + Me.lblErwLKWID.TabIndex = 19 + Me.lblErwLKWID.Text = "LKW-Id:" + ' + 'txtlkwId + ' + Me.txtlkwId.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtlkwId.Location = New System.Drawing.Point(79, 84) + Me.txtlkwId.MaxLength = 100 + Me.txtlkwId.Name = "txtlkwId" + Me.txtlkwId.Size = New System.Drawing.Size(236, 23) + Me.txtlkwId.TabIndex = 10 + ' + 'cbxNE + ' + Me.cbxNE.AutoSize = True + Me.cbxNE.ForeColor = System.Drawing.Color.White + Me.cbxNE.Location = New System.Drawing.Point(553, 111) + Me.cbxNE.Name = "cbxNE" + Me.cbxNE.Size = New System.Drawing.Size(110, 17) + Me.cbxNE.TabIndex = 16 + Me.cbxNE.Text = "Nicht eingetroffen" + Me.cbxNE.UseVisualStyleBackColor = True + ' + 'cbxFreigabe + ' + Me.cbxFreigabe.AutoSize = True + Me.cbxFreigabe.ForeColor = System.Drawing.Color.White + Me.cbxFreigabe.Location = New System.Drawing.Point(462, 111) + Me.cbxFreigabe.Name = "cbxFreigabe" + Me.cbxFreigabe.Size = New System.Drawing.Size(85, 17) + Me.cbxFreigabe.TabIndex = 15 + Me.cbxFreigabe.Text = "Freigegeben" + Me.cbxFreigabe.UseVisualStyleBackColor = True + ' + 'cbxAnkunft + ' + Me.cbxAnkunft.AutoSize = True + Me.cbxAnkunft.ForeColor = System.Drawing.Color.White + Me.cbxAnkunft.Location = New System.Drawing.Point(393, 111) + Me.cbxAnkunft.Name = "cbxAnkunft" + Me.cbxAnkunft.Size = New System.Drawing.Size(63, 17) + Me.cbxAnkunft.TabIndex = 14 + Me.cbxAnkunft.Text = "Ankunft" + Me.cbxAnkunft.UseVisualStyleBackColor = True + ' + 'cbxVorg + ' + Me.cbxVorg.AutoSize = True + Me.cbxVorg.ForeColor = System.Drawing.Color.White + Me.cbxVorg.Location = New System.Drawing.Point(294, 111) + Me.cbxVorg.Name = "cbxVorg" + Me.cbxVorg.Size = New System.Drawing.Size(100, 17) + Me.cbxVorg.TabIndex = 13 + Me.cbxVorg.Text = "Vorgeschrieben" + Me.cbxVorg.UseVisualStyleBackColor = True + ' + 'cbxVorb + ' + Me.cbxVorb.AutoSize = True + Me.cbxVorb.ForeColor = System.Drawing.Color.White + Me.cbxVorb.Location = New System.Drawing.Point(193, 111) + Me.cbxVorb.Name = "cbxVorb" + Me.cbxVorb.Size = New System.Drawing.Size(95, 17) + Me.cbxVorb.TabIndex = 12 + Me.cbxVorb.Text = "Vorbereitet QS" + Me.cbxVorb.UseVisualStyleBackColor = True + ' + 'cbxErfasst + ' + Me.cbxErfasst.AutoSize = True + Me.cbxErfasst.ForeColor = System.Drawing.Color.White + Me.cbxErfasst.Location = New System.Drawing.Point(129, 111) + Me.cbxErfasst.Name = "cbxErfasst" + Me.cbxErfasst.Size = New System.Drawing.Size(58, 17) + Me.cbxErfasst.TabIndex = 11 + Me.cbxErfasst.Text = "Erfasst" + Me.cbxErfasst.UseVisualStyleBackColor = True + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.ForeColor = System.Drawing.Color.White + Me.Label14.Location = New System.Drawing.Point(8, 112) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(40, 13) + Me.Label14.TabIndex = 8 + Me.Label14.Text = "Status:" + ' + 'txtKdAuftragsnr + ' + Me.txtKdAuftragsnr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtKdAuftragsnr.Location = New System.Drawing.Point(389, 35) + Me.txtKdAuftragsnr.MaxLength = 100 + Me.txtKdAuftragsnr.Name = "txtKdAuftragsnr" + Me.txtKdAuftragsnr.Size = New System.Drawing.Size(216, 23) + Me.txtKdAuftragsnr.TabIndex = 9 + ' + 'txtAuftraggeber + ' + Me.txtAuftraggeber.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAuftraggeber.Location = New System.Drawing.Point(79, 13) + Me.txtAuftraggeber.MaxLength = 100 + Me.txtAuftraggeber.Name = "txtAuftraggeber" + Me.txtAuftraggeber.Size = New System.Drawing.Size(236, 23) + Me.txtAuftraggeber.TabIndex = 1 + ' + 'lblErwKdAtrNr + ' + Me.lblErwKdAtrNr.AutoSize = True + Me.lblErwKdAtrNr.ForeColor = System.Drawing.Color.White + Me.lblErwKdAtrNr.Location = New System.Drawing.Point(316, 40) + Me.lblErwKdAtrNr.Name = "lblErwKdAtrNr" + Me.lblErwKdAtrNr.Size = New System.Drawing.Size(65, 13) + Me.lblErwKdAtrNr.TabIndex = 0 + Me.lblErwKdAtrNr.Text = "Kd-Auftr.Nr.:" + ' + 'Button4 + ' + Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.ForeColor = System.Drawing.Color.White + Me.Button4.Image = Global.AVISO.My.Resources.Resources.search + Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button4.Location = New System.Drawing.Point(621, 13) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(88, 45) + Me.Button4.TabIndex = 17 + Me.Button4.TabStop = False + Me.Button4.Text = "Suche" + Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button4.UseVisualStyleBackColor = True + ' + 'lblErwEmpfänger + ' + Me.lblErwEmpfänger.AutoSize = True + Me.lblErwEmpfänger.ForeColor = System.Drawing.Color.White + Me.lblErwEmpfänger.Location = New System.Drawing.Point(8, 62) + Me.lblErwEmpfänger.Name = "lblErwEmpfänger" + Me.lblErwEmpfänger.Size = New System.Drawing.Size(61, 13) + Me.lblErwEmpfänger.TabIndex = 6 + Me.lblErwEmpfänger.Text = "Empfänger:" + ' + 'txtEmpfänger + ' + Me.txtEmpfänger.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtEmpfänger.Location = New System.Drawing.Point(79, 57) + Me.txtEmpfänger.MaxLength = 100 + Me.txtEmpfänger.Name = "txtEmpfänger" + Me.txtEmpfänger.Size = New System.Drawing.Size(236, 23) + Me.txtEmpfänger.TabIndex = 3 + ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 300 + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(389, 13) + Me.cboFiliale.MaxLength = 4 + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(70, 24) + Me.cboFiliale.TabIndex = 3 + ' + 'txtAbfertigungsnummer + ' + Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(458, 13) + Me.txtAbfertigungsnummer.MaxLength = 8 + Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" + Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(147, 23) + Me.txtAbfertigungsnummer.TabIndex = 5 + ' + 'lblErwFilialePos + ' + Me.lblErwFilialePos.AutoSize = True + Me.lblErwFilialePos.ForeColor = System.Drawing.Color.White + Me.lblErwFilialePos.Location = New System.Drawing.Point(316, 18) + Me.lblErwFilialePos.Name = "lblErwFilialePos" + Me.lblErwFilialePos.Size = New System.Drawing.Size(73, 13) + Me.lblErwFilialePos.TabIndex = 2 + Me.lblErwFilialePos.Text = "Filiale/PosNr.:" + ' + 'lblErwAuftraggeber + ' + Me.lblErwAuftraggeber.AutoSize = True + Me.lblErwAuftraggeber.ForeColor = System.Drawing.Color.White + Me.lblErwAuftraggeber.Location = New System.Drawing.Point(8, 19) + Me.lblErwAuftraggeber.Name = "lblErwAuftraggeber" + Me.lblErwAuftraggeber.Size = New System.Drawing.Size(71, 13) + Me.lblErwAuftraggeber.TabIndex = 7 + Me.lblErwAuftraggeber.Text = "Auftraggeber:" + ' + 'cbxAlle + ' + Me.cbxAlle.AutoSize = True + Me.cbxAlle.ForeColor = System.Drawing.Color.White + Me.cbxAlle.Location = New System.Drawing.Point(79, 111) + Me.cbxAlle.Name = "cbxAlle" + Me.cbxAlle.Size = New System.Drawing.Size(43, 17) + Me.cbxAlle.TabIndex = 10 + Me.cbxAlle.Text = "Alle" + Me.cbxAlle.UseVisualStyleBackColor = True + ' + 'btnSmall + ' + Me.btnSmall.BackColor = System.Drawing.Color.White + Me.btnSmall.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.btnSmall.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSmall.ForeColor = System.Drawing.Color.Black + Me.btnSmall.Location = New System.Drawing.Point(0, 0) + Me.btnSmall.Margin = New System.Windows.Forms.Padding(0) + Me.btnSmall.Name = "btnSmall" + Me.btnSmall.Size = New System.Drawing.Size(17, 37) + Me.btnSmall.TabIndex = 1 + Me.btnSmall.Text = ">" + Me.btnSmall.UseVisualStyleBackColor = False + ' + 'BackgroundWorker1 + ' + ' + 'timerStandzeit + ' + Me.timerStandzeit.Interval = 300000 + ' + 'Label9 + ' + Me.Label9.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label9.AutoSize = True + Me.Label9.BackColor = System.Drawing.Color.White + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) + Me.Label9.ForeColor = System.Drawing.Color.Red + Me.Label9.Location = New System.Drawing.Point(370, 5) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(438, 15) + Me.Label9.TabIndex = 9 + Me.Label9.Text = "Es ist ein Programm-Update verfügbar, bitte das AVISO neu starten." + Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Label9.Visible = False + ' + 'TimerUPDATE + ' + Me.TimerUPDATE.Interval = 900000 + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(234, 22) + Me.ToolStripMenuItem1.Text = "SDL-Auswertungen" + ' + 'pnlOptionen + ' + Me.pnlOptionen.BackColor = System.Drawing.Color.Black + Me.pnlOptionen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlOptionen.Controls.Add(Me.btnKasse_User) + Me.pnlOptionen.Controls.Add(Me.btnKasse_LG) + Me.pnlOptionen.Controls.Add(Me.btnTV) + Me.pnlOptionen.Location = New System.Drawing.Point(249, 69) + Me.pnlOptionen.Name = "pnlOptionen" + Me.pnlOptionen.Size = New System.Drawing.Size(116, 66) + Me.pnlOptionen.TabIndex = 84 + Me.pnlOptionen.Visible = False + ' + 'btnKasse_User + ' + Me.btnKasse_User.BackColor = System.Drawing.Color.White + Me.btnKasse_User.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnKasse_User.ForeColor = System.Drawing.Color.Black + Me.btnKasse_User.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnKasse_User.Location = New System.Drawing.Point(2, 32) + Me.btnKasse_User.Name = "btnKasse_User" + Me.btnKasse_User.Size = New System.Drawing.Size(109, 34) + Me.btnKasse_User.TabIndex = 4 + Me.btnKasse_User.Text = "Kasse" + Me.btnKasse_User.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnKasse_User.UseVisualStyleBackColor = False + ' + 'btnKasse_LG + ' + Me.btnKasse_LG.BackColor = System.Drawing.Color.White + Me.btnKasse_LG.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnKasse_LG.ForeColor = System.Drawing.Color.Black + Me.btnKasse_LG.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnKasse_LG.Location = New System.Drawing.Point(2, -1) + Me.btnKasse_LG.Name = "btnKasse_LG" + Me.btnKasse_LG.Size = New System.Drawing.Size(109, 34) + Me.btnKasse_LG.TabIndex = 3 + Me.btnKasse_LG.Text = "Leihgeldkasse" + Me.btnKasse_LG.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnKasse_LG.UseVisualStyleBackColor = False + ' + 'btnTV + ' + Me.btnTV.BackColor = System.Drawing.Color.White + Me.btnTV.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnTV.ForeColor = System.Drawing.Color.Black + Me.btnTV.Image = CType(resources.GetObject("btnTV.Image"), System.Drawing.Image) + Me.btnTV.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnTV.Location = New System.Drawing.Point(3, 65) + Me.btnTV.Name = "btnTV" + Me.btnTV.Size = New System.Drawing.Size(108, 28) + Me.btnTV.TabIndex = 100 + Me.btnTV.TabStop = False + Me.btnTV.Text = "TV-Hinweis" + Me.btnTV.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnTV.UseVisualStyleBackColor = False + ' + 'cntxt + ' + Me.cntxt.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BundesanzeigerToolStripMenuItem, Me.EUTaricToolStripMenuItem, Me.ZugelassenerAusführerToolStripMenuItem}) + Me.cntxt.Name = "cntxt" + Me.cntxt.Size = New System.Drawing.Size(207, 94) + ' + 'BundesanzeigerToolStripMenuItem + ' + Me.BundesanzeigerToolStripMenuItem.Name = "BundesanzeigerToolStripMenuItem" + Me.BundesanzeigerToolStripMenuItem.Size = New System.Drawing.Size(206, 30) + Me.BundesanzeigerToolStripMenuItem.Text = "Bundesanzeiger" + ' + 'EUTaricToolStripMenuItem + ' + Me.EUTaricToolStripMenuItem.Name = "EUTaricToolStripMenuItem" + Me.EUTaricToolStripMenuItem.Size = New System.Drawing.Size(206, 30) + Me.EUTaricToolStripMenuItem.Text = "EU-Taric" + ' + 'ZugelassenerAusführerToolStripMenuItem + ' + Me.ZugelassenerAusführerToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AllgemeinToolStripMenuItem, Me.AllgemeineEinführungExportkontrolleToolStripMenuItem, Me.BrexitToolStripMenuItem1, Me.EmbargosLänderToolStripMenuItem, Me.GüterlisteToolStripMenuItem}) + Me.ZugelassenerAusführerToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.zollico + Me.ZugelassenerAusführerToolStripMenuItem.Name = "ZugelassenerAusführerToolStripMenuItem" + Me.ZugelassenerAusführerToolStripMenuItem.Size = New System.Drawing.Size(206, 30) + Me.ZugelassenerAusführerToolStripMenuItem.Text = "Zugelassener Ausführer" + ' + 'AllgemeinToolStripMenuItem + ' + Me.AllgemeinToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.zollico + Me.AllgemeinToolStripMenuItem.Name = "AllgemeinToolStripMenuItem" + Me.AllgemeinToolStripMenuItem.Size = New System.Drawing.Size(279, 22) + Me.AllgemeinToolStripMenuItem.Text = "Allgemein" + ' + 'AllgemeineEinführungExportkontrolleToolStripMenuItem + ' + Me.AllgemeineEinführungExportkontrolleToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.zollico + Me.AllgemeineEinführungExportkontrolleToolStripMenuItem.Name = "AllgemeineEinführungExportkontrolleToolStripMenuItem" + Me.AllgemeineEinführungExportkontrolleToolStripMenuItem.Size = New System.Drawing.Size(279, 22) + Me.AllgemeineEinführungExportkontrolleToolStripMenuItem.Text = "Allgemeine Einführung Exportkontrolle" + ' + 'BrexitToolStripMenuItem1 + ' + Me.BrexitToolStripMenuItem1.Image = Global.AVISO.My.Resources.Resources.zollico + Me.BrexitToolStripMenuItem1.Name = "BrexitToolStripMenuItem1" + Me.BrexitToolStripMenuItem1.Size = New System.Drawing.Size(279, 22) + Me.BrexitToolStripMenuItem1.Text = "Brexit" + ' + 'EmbargosLänderToolStripMenuItem + ' + Me.EmbargosLänderToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.zollico + Me.EmbargosLänderToolStripMenuItem.Name = "EmbargosLänderToolStripMenuItem" + Me.EmbargosLänderToolStripMenuItem.Size = New System.Drawing.Size(279, 22) + Me.EmbargosLänderToolStripMenuItem.Text = "Embargos-Länder" + ' + 'GüterlisteToolStripMenuItem + ' + Me.GüterlisteToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.zollico + Me.GüterlisteToolStripMenuItem.Name = "GüterlisteToolStripMenuItem" + Me.GüterlisteToolStripMenuItem.Size = New System.Drawing.Size(279, 22) + Me.GüterlisteToolStripMenuItem.Text = "Güterliste" + ' + 'Timer_REFRESH + ' + Me.Timer_REFRESH.Enabled = True + Me.Timer_REFRESH.Interval = 15000 + ' + 'ctxtFarben + ' + Me.ctxtFarben.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.ctxtFarben.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ALLEToolStripMenuItem, Me.ToolStripMenuItem19, Me.ToolStripMenuItem20, Me.ToolStripMenuItem21}) + Me.ctxtFarben.Name = "cntxt" + Me.ctxtFarben.Size = New System.Drawing.Size(122, 92) + ' + 'ALLEToolStripMenuItem + ' + Me.ALLEToolStripMenuItem.Name = "ALLEToolStripMenuItem" + Me.ALLEToolStripMenuItem.Size = New System.Drawing.Size(121, 22) + Me.ALLEToolStripMenuItem.Text = "ALLE" + ' + 'ToolStripMenuItem19 + ' + Me.ToolStripMenuItem19.BackColor = System.Drawing.Color.Red + Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19" + Me.ToolStripMenuItem19.Size = New System.Drawing.Size(121, 22) + Me.ToolStripMenuItem19.Text = "ROT" + ' + 'ToolStripMenuItem20 + ' + Me.ToolStripMenuItem20.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20" + Me.ToolStripMenuItem20.Size = New System.Drawing.Size(121, 22) + Me.ToolStripMenuItem20.Text = "ORANGE" + ' + 'ToolStripMenuItem21 + ' + Me.ToolStripMenuItem21.BackColor = System.Drawing.Color.Yellow + Me.ToolStripMenuItem21.Name = "ToolStripMenuItem21" + Me.ToolStripMenuItem21.Size = New System.Drawing.Size(121, 22) + Me.ToolStripMenuItem21.Text = "GELB" + ' + 'Panel3 + ' + Me.Panel3.Controls.Add(Me.MenuStrip1) + Me.Panel3.Controls.Add(Me.Panel4) + Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel3.Location = New System.Drawing.Point(0, 0) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(1473, 20) + Me.Panel3.TabIndex = 87 + ' + 'Panel4 + ' + Me.Panel4.BackColor = System.Drawing.Color.White + Me.Panel4.Controls.Add(Me.btnClose) + Me.Panel4.Controls.Add(Me.btnMinimieren) + Me.Panel4.Dock = System.Windows.Forms.DockStyle.Right + Me.Panel4.Location = New System.Drawing.Point(1303, 0) + Me.Panel4.Name = "Panel4" + Me.Panel4.Size = New System.Drawing.Size(170, 20) + Me.Panel4.TabIndex = 4 + ' + 'cntVerag + ' + Me.cntVerag.ImageScalingSize = New System.Drawing.Size(20, 20) + Me.cntVerag.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZertifikateToolStripMenuItem, Me.HomepageToolStripMenuItem}) + Me.cntVerag.Name = "cntVerag" + Me.cntVerag.Size = New System.Drawing.Size(134, 48) + ' + 'ZertifikateToolStripMenuItem + ' + Me.ZertifikateToolStripMenuItem.Name = "ZertifikateToolStripMenuItem" + Me.ZertifikateToolStripMenuItem.Size = New System.Drawing.Size(133, 22) + Me.ZertifikateToolStripMenuItem.Text = "Zertifikate" + ' + 'HomepageToolStripMenuItem + ' + Me.HomepageToolStripMenuItem.Name = "HomepageToolStripMenuItem" + Me.HomepageToolStripMenuItem.Size = New System.Drawing.Size(133, 22) + Me.HomepageToolStripMenuItem.Text = "Homepage" + ' + 'UsrCntlTestsystem1 + ' + Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.White + Me.UsrCntlTestsystem1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.UsrCntlTestsystem1.ForeColor = System.Drawing.Color.Red + Me.UsrCntlTestsystem1.Location = New System.Drawing.Point(632, -1) + Me.UsrCntlTestsystem1.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6) + Me.UsrCntlTestsystem1.Name = "UsrCntlTestsystem1" + Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28) + Me.UsrCntlTestsystem1.TabIndex = 8 + ' + 'pnlLeft + ' + Me.pnlLeft.Controls.Add(Me.UsrCntlBenachrichtigungen1) + Me.pnlLeft.Controls.Add(Me.Panel5) + Me.pnlLeft.Controls.Add(Me.Panel7) + Me.pnlLeft.Dock = System.Windows.Forms.DockStyle.Left + Me.pnlLeft.Location = New System.Drawing.Point(0, 83) + Me.pnlLeft.Name = "pnlLeft" + Me.pnlLeft.Size = New System.Drawing.Size(252, 611) + Me.pnlLeft.TabIndex = 88 + ' + 'UsrCntlBenachrichtigungen1 + ' + Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 51) + Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1" + Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(252, 243) + Me.UsrCntlBenachrichtigungen1.TabIndex = 1 + ' + 'Panel5 + ' + Me.Panel5.Controls.Add(Me.Panel2) + Me.Panel5.Controls.Add(Me.lblDauer) + Me.Panel5.Controls.Add(Me.Label20) + Me.Panel5.Controls.Add(Me.pic) + Me.Panel5.Controls.Add(Me.picAVISOMessenger) + Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel5.Location = New System.Drawing.Point(0, 294) + Me.Panel5.Name = "Panel5" + Me.Panel5.Size = New System.Drawing.Size(252, 317) + Me.Panel5.TabIndex = 3 + ' + 'Panel7 + ' + Me.Panel7.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel7.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel7.Location = New System.Drawing.Point(0, 0) + Me.Panel7.Name = "Panel7" + Me.Panel7.Size = New System.Drawing.Size(252, 51) + Me.Panel7.TabIndex = 4 + ' + 'frmHauptfensterNew + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1473, 694) + Me.Controls.Add(Me.pnlOptionen) + Me.Controls.Add(Me.Label9) + Me.Controls.Add(Me.UsrCntlTestsystem1) + Me.Controls.Add(Me.SplitContainer1) + Me.Controls.Add(Me.pnlLeft) + Me.Controls.Add(Me.Top) + Me.Controls.Add(Me.Panel3) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.KeyPreview = True + Me.Name = "frmHauptfensterNew" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "AVISO - Hauptfenster" + Me.WindowState = System.Windows.Forms.FormWindowState.Minimized + Me.conMenuAviso.ResumeLayout(False) + Me.MenuStrip1.ResumeLayout(False) + Me.MenuStrip1.PerformLayout() + Me.pnlDetailsRechts.ResumeLayout(False) + Me.pnlDetailsRechts.PerformLayout() + Me.Top.ResumeLayout(False) + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + Me.pnlLinksOben.ResumeLayout(False) + Me.cntxtAtilla.ResumeLayout(False) + CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.tbcntrAvisoLKW.ResumeLayout(False) + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel1.PerformLayout() + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + Me.pnlDetailsLinks.ResumeLayout(False) + Me.splitMain.Panel1.ResumeLayout(False) + Me.splitMain.Panel2.ResumeLayout(False) + CType(Me.splitMain, System.ComponentModel.ISupportInitialize).EndInit() + Me.splitMain.ResumeLayout(False) + CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.pblSNDOptions.ResumeLayout(False) + Me.pblSNDOptions.PerformLayout() + Me.tbcntrAvisoSND.ResumeLayout(False) + Me.pnlTime.ResumeLayout(False) + Me.pnlTime.PerformLayout() + Me.pnlSearch.ResumeLayout(False) + Me.pnlSearch.PerformLayout() + Me.pnlOptionen.ResumeLayout(False) + Me.cntxt.ResumeLayout(False) + Me.ctxtFarben.ResumeLayout(False) + Me.Panel3.ResumeLayout(False) + Me.Panel3.PerformLayout() + Me.Panel4.ResumeLayout(False) + Me.cntVerag.ResumeLayout(False) + Me.pnlLeft.ResumeLayout(False) + Me.Panel5.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents mnuInfo As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents conÜbernehmen As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents conMenuAviso As System.Windows.Forms.ContextMenuStrip + Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents conFertig As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents conVorgeschrieben As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents conVorbereitet As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents conAnkunft As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents conFreigabe As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents conNichtEingetroffen As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents conÄndern As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip + Friend WithEvents mnuProgramm As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents mnuFirmen As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents StandorteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents AdministrationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents KdNrZuordnenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents OptionenToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents VorlagenUploadToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents BarcodeTestToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents NacherfassungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents UpdateToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents StatistikToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents LKWBerichtToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents StatistikADMINToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents FunktionenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents GenerelleGestellungenDurchsuchenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents KundenVonFremdenSpeditionenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents mnuFragezeichen As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents btnWoche As System.Windows.Forms.Button + Friend WithEvents btnGestern As System.Windows.Forms.Button + Friend WithEvents btnHeute As System.Windows.Forms.Button + Friend WithEvents btnAlleAnzeigen As System.Windows.Forms.Button + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents txtSuche As System.Windows.Forms.TextBox + Friend WithEvents Top As System.Windows.Forms.Panel + Friend WithEvents btnRefresh As System.Windows.Forms.Button + Friend WithEvents btnZollwebseiten As System.Windows.Forms.Button + Friend WithEvents btnKunden As System.Windows.Forms.Button + Friend WithEvents btnSpedBuch As System.Windows.Forms.Button + Friend WithEvents lblDauer As System.Windows.Forms.Label + Friend WithEvents lblMitarbeiter As System.Windows.Forms.Label + Friend WithEvents btnDrucken As System.Windows.Forms.Button + Friend WithEvents lblGrenzstelle As System.Windows.Forms.Label + Friend WithEvents lblZeit_aktuell As System.Windows.Forms.Label + Friend WithEvents dtpBis As System.Windows.Forms.DateTimePicker + Friend WithEvents dtpVon As System.Windows.Forms.DateTimePicker + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Timer1 As System.Windows.Forms.Timer + Friend WithEvents btnWichtige As System.Windows.Forms.Button + Friend WithEvents btnWichtigeStandort As System.Windows.Forms.Button + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents btnMinimieren As System.Windows.Forms.Button + Friend WithEvents lblSuche As System.Windows.Forms.Label + Friend WithEvents btnClose As System.Windows.Forms.Button + Friend WithEvents TimerAkte As System.Windows.Forms.Timer + Friend WithEvents tabVorgeschrieben As System.Windows.Forms.TabPage + Friend WithEvents tabFreigegeben As System.Windows.Forms.TabPage + Friend WithEvents tabNichtEingetroffen As System.Windows.Forms.TabPage + Friend WithEvents gridAviso As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents tabAnkunft As System.Windows.Forms.TabPage + Friend WithEvents tabVorbereitet As System.Windows.Forms.TabPage + Friend WithEvents pnlAktOption As System.Windows.Forms.Panel + Friend WithEvents btnFertig As System.Windows.Forms.Button + Friend WithEvents tabAlle As System.Windows.Forms.TabPage + Friend WithEvents tabErfasst As System.Windows.Forms.TabPage + Friend WithEvents tbcntrAvisoLKW As System.Windows.Forms.TabControl + Public WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Public WithEvents pnlDetailsRechts As System.Windows.Forms.Panel + Public WithEvents pnlDetailsLinks As System.Windows.Forms.Panel + Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents timerStandzeit As System.Windows.Forms.Timer + Friend WithEvents pnlTime As System.Windows.Forms.Panel + Friend WithEvents lblGrenze As System.Windows.Forms.Label + Friend WithEvents cboGrenzstelle As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Button6 As System.Windows.Forms.Button + Friend WithEvents ToolStripFormulare As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents toolStrVM_de As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents toolStrVM_at As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents toolStrVM_at4200 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem7 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem12 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem15 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem18 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents toolVUB As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents toolVPCreditreform As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents lblErrVermerk As System.Windows.Forms.Label + Friend WithEvents lblEintraege As System.Windows.Forms.Label + Friend WithEvents Button8 As System.Windows.Forms.Button + Friend WithEvents lblHinweis As System.Windows.Forms.Label + Friend WithEvents btnSmall As System.Windows.Forms.Button + Friend WithEvents OptionenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ZeilenInFarbeEinausToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents btnKassenbuch As System.Windows.Forms.Button + Friend WithEvents btnUmrechnungskurse As System.Windows.Forms.Button + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents LogoutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents UsrCntlTestsystem1 As VERAG_PROG_ALLGEMEIN.usrCntlTestsystem + Friend WithEvents TabellenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents splitMain As System.Windows.Forms.SplitContainer + Friend WithEvents HandbuchToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents EinheitspapierToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents CMRToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents btnRg As System.Windows.Forms.Button + Friend WithEvents pnlLinksOben As System.Windows.Forms.Panel + Friend WithEvents btnNeu As System.Windows.Forms.Button + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents TimerUPDATE As System.Windows.Forms.Timer + Friend WithEvents MANAGERToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ZollvollmachtDEFiskalToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ZollvollmachtATEVToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents VUBVERAGSpeditionAGToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents VeragCustomsServiceToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents Einheitspapier0735VersandverfahrenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pnlSearch As System.Windows.Forms.Panel + Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtAbfertigungsnummer As System.Windows.Forms.TextBox + Friend WithEvents lblErwFilialePos As System.Windows.Forms.Label + Friend WithEvents lblErwKdAtrNr As System.Windows.Forms.Label + Friend WithEvents txtKdAuftragsnr As System.Windows.Forms.TextBox + Friend WithEvents lblErweitereSuche As System.Windows.Forms.LinkLabel + Friend WithEvents lblErwEmpfänger As System.Windows.Forms.Label + Friend WithEvents txtEmpfänger As System.Windows.Forms.TextBox + Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtAuftraggeber As System.Windows.Forms.TextBox + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents lblErwAuftraggeber As System.Windows.Forms.Label + Friend WithEvents cbxAlle As System.Windows.Forms.CheckBox + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents cbxNE As System.Windows.Forms.CheckBox + Friend WithEvents cbxFreigabe As System.Windows.Forms.CheckBox + Friend WithEvents cbxAnkunft As System.Windows.Forms.CheckBox + Friend WithEvents cbxVorg As System.Windows.Forms.CheckBox + Friend WithEvents cbxVorb As System.Windows.Forms.CheckBox + Friend WithEvents cbxErfasst As System.Windows.Forms.CheckBox + Friend WithEvents lblErwLKWID As System.Windows.Forms.Label + Friend WithEvents txtlkwId As System.Windows.Forms.TextBox + Friend WithEvents btnDienstplan As System.Windows.Forms.Button + Friend WithEvents MDMParkplatzkartenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents BürgschafrtsbuchungenFremdToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents SDLAuswertungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents VorauskassenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator9 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents VerzollungsunterlagenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ZollprogrammeNachEORIDurchsuchenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator10 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents SDLAbholaufträgeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents SMSTestToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents SMSSendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents NeueSMSSendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents GesendeteSMSToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents AuftragÜberwachungsdokumentToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents QSTeamsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents BerechtigungenNeuLadenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents DAKOSYToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents StammreferenzenVerwaltenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator11 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents LeereRechnungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents EMAILTESTToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents FreigabeMailTestToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents KundenverwaltungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents NeuesPasswortToolStripMenuItem As ToolStripMenuItem + Friend WithEvents btnFakturierung As Button + Friend WithEvents pic As PictureBox + Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem + Friend WithEvents SDLAuswertungenToolStripMenuItem1 As ToolStripMenuItem + Friend WithEvents pnlOptionen As Panel + Friend WithEvents btnKasse_User As Button + Friend WithEvents btnKasse_LG As Button + Friend WithEvents btnTV As Button + Friend WithEvents Button2 As Button + Friend WithEvents SDLProgrammStartenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents cntxt As ContextMenuStrip + Friend WithEvents BundesanzeigerToolStripMenuItem As ToolStripMenuItem + Friend WithEvents EUTaricToolStripMenuItem As ToolStripMenuItem + Friend WithEvents BürgschaftenExcelToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ToolStripSeparator12 As ToolStripSeparator + Friend WithEvents tool_BRGXLS As ToolStripMenuItem + Friend WithEvents ToolStripMenuItem4 As ToolStripMenuItem + Friend WithEvents ToolStripMenuItem5 As ToolStripMenuItem + Friend WithEvents WAIDHAUSToolStripMenuItem As ToolStripMenuItem + Friend WithEvents AnnahmeblattIMPORTToolStripMenuItem As ToolStripMenuItem + Friend WithEvents AnnahmeblattEXPORTToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ChecklisteVerwahrlagerToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ToolStripSeparator13 As ToolStripSeparator + Friend WithEvents ToolStripMenuItem8 As ToolStripMenuItem + Friend WithEvents ToolStripMenuItem9 As ToolStripMenuItem + Friend WithEvents lblVersion As Label + Friend WithEvents LKWEingetroffenNachToolStripMenuItem As ToolStripMenuItem + Friend WithEvents TICKETWaidhausToolStripMenuItem As ToolStripMenuItem + Friend WithEvents Button5 As Button + Friend WithEvents ToolStripMenuItem10 As ToolStripMenuItem + Friend WithEvents ToolStripMenuItem11 As ToolStripMenuItem + Friend WithEvents FirmaWechselnToolStripMenuItem As ToolStripMenuItem + Friend WithEvents VERAGToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ATILLAToolStripMenuItem As ToolStripMenuItem + Friend WithEvents IMEXToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ToolStripMenuItem13 As ToolStripMenuItem + Friend WithEvents UNISPEDToolStripMenuItem As ToolStripMenuItem + Friend WithEvents AMBARToolStripMenuItem As ToolStripMenuItem + Friend WithEvents VollständigesUpdateToolStripMenuItem As ToolStripMenuItem + Friend WithEvents TESTToolStripMenuItem As ToolStripMenuItem + Friend WithEvents cboTeams As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label16 As Label + Friend WithEvents cbxCluster As CheckBox + Friend WithEvents txtDyRef As TextBox + Friend WithEvents Label19 As Label + Friend WithEvents picAVISOMessenger As PictureBox + Friend WithEvents Label20 As Label + Friend WithEvents Timer_REFRESH As Timer + Friend WithEvents cboImEx As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label21 As Label + Friend WithEvents btnKontakt As Button + Friend WithEvents ToolStripMenuItem6 As ToolStripMenuItem + Friend WithEvents btnMAVerzeichnis As Button + Friend WithEvents Label22 As Label + Friend WithEvents btnE_Aviso As Button + Friend WithEvents FRONTOFFICEToolStripMenuItem As ToolStripMenuItem + Friend WithEvents VERIMEXToolStripMenuItem As ToolStripMenuItem + Friend WithEvents StandortWechselnToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SUBToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SBGToolStripMenuItem As ToolStripMenuItem + Friend WithEvents WAIToolStripMenuItem As ToolStripMenuItem + Friend WithEvents NKDToolStripMenuItem As ToolStripMenuItem + Friend WithEvents NEUToolStripMenuItem As ToolStripMenuItem + Friend WithEvents AMBToolStripMenuItem As ToolStripMenuItem + Friend WithEvents MRNBarcodedruckToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SecretAvisoToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SpracheWechselnToolStripMenuItem As ToolStripMenuItem + Friend WithEvents EnglishToolStripMenuItem As ToolStripMenuItem + Friend WithEvents TürkischToolStripMenuItem As ToolStripMenuItem + Friend WithEvents Button11 As Button + Friend WithEvents BREXITToolStripMenuItem As ToolStripMenuItem + Friend WithEvents GVMSUKIMportToolStripMenuItem As ToolStripMenuItem + Friend WithEvents GVMSBeschreibungToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ToolStripSeparator14 As ToolStripSeparator + Friend WithEvents TicketIBFInlandBorderFacilitiesToolStripMenuItem As ToolStripMenuItem + Friend WithEvents TicketIBFBeschreibungToolStripMenuItem As ToolStripMenuItem + Friend WithEvents IBFStatusToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ToolStripSeparator15 As ToolStripSeparator + Friend WithEvents FREnveloppeSmartBorderToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ToolStripSeparator16 As ToolStripSeparator + Friend WithEvents EORIUKGeneriertenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents KAPKentAccessPermitToolStripMenuItem As ToolStripMenuItem + Friend WithEvents WARENORTToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ATFormularZa282ToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ATInfoToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ToolStripSeparator17 As ToolStripSeparator + Friend WithEvents DEFormular0442ToolStripMenuItem As ToolStripMenuItem + Friend WithEvents DEInfoToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ToolStripSeparator18 As ToolStripSeparator + Friend WithEvents ToolStripMenuItem14 As ToolStripMenuItem + Friend WithEvents ToolStripMenuItem16 As ToolStripMenuItem + Friend WithEvents ToolStripSeparator19 As ToolStripSeparator + Friend WithEvents PBNIrelandFähreToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ToolStripSeparator20 As ToolStripSeparator + Friend WithEvents VerfahrenshandbücherToolStripMenuItem As ToolStripMenuItem + Friend WithEvents VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ChecklistenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ChecklisteWOCHECKLISTEZEallgemein As ToolStripMenuItem + Friend WithEvents WOCECKLISTEZEWDHToolStripMenuItem As ToolStripMenuItem + Friend WithEvents WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem As ToolStripMenuItem + Friend WithEvents cntxtAtilla As ContextMenuStrip + Friend WithEvents ToolStripMenuItem17 As ToolStripMenuItem + Friend WithEvents lblFimaAviso As Label + Friend WithEvents GVMSToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ZEVerfahrensanleitungGestellungSumAToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ToolStripSeparator22 As ToolStripSeparator + Friend WithEvents WOCHECKLISTEZVAllgemeinToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1 As ToolStripMenuItem + Friend WithEvents ToolStripSeparator21 As ToolStripSeparator + Friend WithEvents AlleStatusMailsSchickenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents AvisoTVToolStripMenuItem As ToolStripMenuItem + Friend WithEvents InfoTextÄndernToolStripMenuItem As ToolStripMenuItem + Friend WithEvents txtBestimmungszollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents Label10 As Label + Friend WithEvents ZugelassenerAusführerToolStripMenuItem As ToolStripMenuItem + Friend WithEvents AllgemeinToolStripMenuItem As ToolStripMenuItem + Friend WithEvents AllgemeineEinführungExportkontrolleToolStripMenuItem As ToolStripMenuItem + Friend WithEvents BrexitToolStripMenuItem1 As ToolStripMenuItem + Friend WithEvents EmbargosLänderToolStripMenuItem As ToolStripMenuItem + Friend WithEvents GüterlisteToolStripMenuItem As ToolStripMenuItem + Friend WithEvents DTBToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ColorDialog As ColorDialog + Friend WithEvents ctxtFarben As ContextMenuStrip + Friend WithEvents ToolStripMenuItem19 As ToolStripMenuItem + Friend WithEvents ToolStripMenuItem20 As ToolStripMenuItem + Friend WithEvents ToolStripMenuItem21 As ToolStripMenuItem + Friend WithEvents ALLEToolStripMenuItem As ToolStripMenuItem + Friend WithEvents RoutenverwaltungToolStripMenuItem As ToolStripMenuItem + Friend WithEvents StandarddruckerWechselnToolStripMenuItem As ToolStripMenuItem + Friend WithEvents EssensbestellungenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents DeutschToolStripMenuItem As ToolStripMenuItem + Friend WithEvents tabVERIMEX As TabPage + Friend WithEvents tabINDONESIEN As TabPage + Friend WithEvents conAnVerimex As ToolStripMenuItem + Friend WithEvents conAnIndonesien As ToolStripMenuItem + Friend WithEvents AdministrationEssensbestellungenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents WarenorteToolStripMenuItem As ToolStripMenuItem + Friend WithEvents btnMitarbeiterKonto As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents lblUsrname As Label + Friend WithEvents CarnetTIRToolStripMenuItem As ToolStripMenuItem + Friend WithEvents Panel3 As Panel + Friend WithEvents Panel4 As Panel + Friend WithEvents CarnetTIRALTToolStripMenuItem As ToolStripMenuItem + Friend WithEvents DatevBuchungsexportToolStripMenuItem As ToolStripMenuItem + Friend WithEvents APIToolStripMenuItem As ToolStripMenuItem + Friend WithEvents lblAbsender As Label + Friend WithEvents txtAbsender As TextBox + Friend WithEvents FenstergrößeVariabelToolStripMenuItem As ToolStripMenuItem + Friend WithEvents btnZertifikate As Button + Friend WithEvents cntVerag As ContextMenuStrip + Friend WithEvents ZertifikateToolStripMenuItem As ToolStripMenuItem + Friend WithEvents HomepageToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ToolStripSeparator23 As ToolStripSeparator + Friend WithEvents toolOriginalATR As ToolStripMenuItem + Friend WithEvents ToolStripSeparator24 As ToolStripSeparator + Friend WithEvents VERAGWIKIToolStripMenuItem As ToolStripMenuItem + Friend WithEvents GesamtsicherheitenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ATVeragAGToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ATImexCSToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ATVeragCSToolStripMenuItem As ToolStripMenuItem + Friend WithEvents DEVeragGmbHToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ATUnispedGmbHToolStripMenuItem As ToolStripMenuItem + Friend WithEvents AnhangsartenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents MailvorlagenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents FIBUSachkontenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents EMAILToolStripMenuItem As ToolStripMenuItem + Friend WithEvents FTPToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SpireLizenzPrüfenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents DEAmbarToolStripMenuItem As ToolStripMenuItem + Friend WithEvents Button1 As Button + Friend WithEvents pnlLeft As Panel + Friend WithEvents UsrCntlBenachrichtigungen1 As usrCntlBenachrichtigungen + Friend WithEvents Panel5 As Panel + Friend WithEvents Panel7 As Panel + Friend WithEvents Button7 As Button + Friend WithEvents tbcntrAvisoSND As TabControl + Friend WithEvents tbSndAlle As TabPage + Friend WithEvents tbSndOffen As TabPage + Friend WithEvents tbSndFreigegeben As TabPage + Friend WithEvents CheckBox1 As CheckBox + Friend WithEvents TVEditorNewToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ATILLASENDUNGToolStripMenuItem As ToolStripMenuItem + Friend WithEvents Panel2 As Panel + Friend WithEvents Panel1 As Panel + Friend WithEvents pblSNDOptions As Panel + Friend WithEvents cbx_My_Brexit As CheckBox + Friend WithEvents lblMySND_Anzeige As Label + Friend WithEvents cboMyAvisoAnzeige As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cboMy_Grenzstelle As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbx_My_LKW As CheckBox + Friend WithEvents lblMySnd_Grenzstelle As Label + Friend WithEvents btnColor As Button + Friend WithEvents cboMy_QS As CheckBox + Friend WithEvents cboMy_VB As CheckBox + Friend WithEvents lblAkte As Label +End Class diff --git a/Aviso/frmHauptfensterNew.resx b/Aviso/frmHauptfensterNew.resx new file mode 100644 index 0000000..1cc3a6c --- /dev/null +++ b/Aviso/frmHauptfensterNew.resx @@ -0,0 +1,1427 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 117, 17 + + + 249, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAG9JREFUSEvt + lTEOgDAMA52PV3wM9WmgMGSIAkNpaolg6ZamzQ0eCgAQkWMF6rriB1nwhQA6gG2A7pdHREJ9PJLml0fY + 7TrCbAoKX3T4FOvXTmjCbAoKl3fIEOpv0Saz3wqz4QsZHX5cmM0vnA5FeAJTug01ZzKXygAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAG9JREFUSEvt + lTEOgDAMA52PV3wM9WmgMGSIAkNpaolg6ZamzQ0eCgAQkWMF6rriB1nwhQA6gG2A7pdHREJ9PJLml0fY + 7TrCbAoKX3T4FOvXTmjCbAoKl3fIEOpv0Saz3wqz4QsZHX5cmM0vnA5FeAJTug01ZzKXygAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAAAP1JREFUSEvt + k0sKwkAQRLsRL+BOj+XevQtdeAY9ozv1FgYEP0wYZXjpnoxJBBd5UGCqq6slEJGRkX9BVZ+WmBsMHvLE + vV6wvE3c7wyL28T9EmYsGUqhm8feLI3wjl6pRGRteCseNV+n55fI2+VdN0SvVN4u73qhLb1SiciGXvSb + h+kFVPXkzSzigTP9gNmjqg9zkLwN+iSXi7M7/RpVvRmvpv4MkucD90Rkj6NT9qjqFTvlGGX8k9/DEiqX + zc2oNJsNJ7FJ8tvjk2FPo5Nmoip2zI1Z0DGKfihexO6KsyTjw/C3Yl8R4VtkUQdd2NuKUdJJ7M3C5b5i + /8jIT3kBe5JJfQp6Jq0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAgBJREFUSEvt + 1suLzXEYx/HXSVggt7LzH8jWzm0t8geQXFaU3DfEwshfoFzK2kLMTimFYkURcisjNhOxcmk06DN9z/Q7 + 3845M+PMRs1TT33P8/08n/c5M79znge+YBk24A2+4TMuYC2WYiFaekfuook2PemNR7xeY2O5S81vvCjC + NTiMUfzCeKvV+oMr5Q0tx7wGKOfU1uNy0Y6X3ngcKZ7xfjbBiqgIf2AYW3AGd/EBPxvgIazDopI5DzVA + 0X7EveIRr5v4PslpH0pTGh7jBLbiJG6Vd9uGPsDBkg8bsGiiPYVtOI5H8exgNF80wGm+hr3Yjqt4iU/4 + WmVquYsm2vSkd7T27QlsgEdwuhjtwHlcxKWSOaeWu2iifVf7TBvYgO7DEmzCTuwqmfNmLC6fbKTur3NK + 4ISIc1iJs7iD+yVzzoO0Ind1X7ecKfA6xhr1MdyYA3Z41YVuOQecA3Z41YVu+X8DM/PqYp2zBSzz1f6s + FvVlJRwYiLc4EOD88kv/vBbNFrCsMJk4C9q7ScbLbjypxYMC8RR7CqMjsgxlkN7OFB8UWDaBeGVmxrtr + ZJXLBpYZ9+pfgektHvGKZ9/I33k1DrUfppkAy8ORVTMek/+zqSKL7SocLSvGtIB4j2Olt9/i3DOykWfd + y1dnKmA0WS/TM1Bkhc9XJ9ELmIgm2r7xF+xPKXpoDa+RAAAAAElFTkSuQmCC + + + + 364, 17 + + + 560, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAgBJREFUSEvt + 1suLzXEYx/HXSVggt7LzH8jWzm0t8geQXFaU3DfEwshfoFzK2kLMTimFYkURcisjNhOxcmk06DN9z/Q7 + 3845M+PMRs1TT33P8/08n/c5M79znge+YBk24A2+4TMuYC2WYiFaekfuook2PemNR7xeY2O5S81vvCjC + NTiMUfzCeKvV+oMr5Q0tx7wGKOfU1uNy0Y6X3ngcKZ7xfjbBiqgIf2AYW3AGd/EBPxvgIazDopI5DzVA + 0X7EveIRr5v4PslpH0pTGh7jBLbiJG6Vd9uGPsDBkg8bsGiiPYVtOI5H8exgNF80wGm+hr3Yjqt4iU/4 + WmVquYsm2vSkd7T27QlsgEdwuhjtwHlcxKWSOaeWu2iifVf7TBvYgO7DEmzCTuwqmfNmLC6fbKTur3NK + 4ISIc1iJs7iD+yVzzoO0Ind1X7ecKfA6xhr1MdyYA3Z41YVuOQecA3Z41YVu+X8DM/PqYp2zBSzz1f6s + FvVlJRwYiLc4EOD88kv/vBbNFrCsMJk4C9q7ScbLbjypxYMC8RR7CqMjsgxlkN7OFB8UWDaBeGVmxrtr + ZJXLBpYZ9+pfgektHvGKZ9/I33k1DrUfppkAy8ORVTMek/+zqSKL7SocLSvGtIB4j2Olt9/i3DOykWfd + y1dnKmA0WS/TM1Bkhc9XJ9ELmIgm2r7xF+xPKXpoDa+RAAAAAElFTkSuQmCC + + + + 1158, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO + BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO + zULyAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO + BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO + zULyAAAAAElFTkSuQmCC + + + + 453, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAkJJREFUOE+1kl1IU2EYx59SKMJzk6SSRDczd7Y0wqQloheF0KIPjYFiIRiidRMR + RlRkXnUTFRkWdCEhZjtn06mg4EUrsUC2IJYzqa153rM2tzn33dyHe+Kc1fALFkF/eG6e5/3/nj8PL8D/ + VKnOQ+3vs+3c2P8ryVmujmY5N81y8xK1Y4/Qk6pJPc2Qafmgfd/G9+tUNkzK2qdcqXItQZolSDPEUDHE + 36zUkaSUJctbAoSoUpY8phlOL2W48Wb9Ir6yBFHGEjykJTi6EMYWvSsmZ/kGGePKW2dWjJHiSh1vkmsI + ylkimoTNV6bdeP/TMo4I5reudJp0RWnWdjgDqBjm2+3hBEaTKVyKJtEaiKPBvYKT9giqrSF8NhcQQTdm + lrBu/Ie4QMZyqgzgqI5vc0YS+NDkE4fHRuyonHDgRb0Lr37wYJfRiz2zfgzGV5GxhsQUB1jubAZwfMze + IiR4MutfG3NTCcleW9KAkj7TqU2Ap+bsgEFLCA9qCBY0dZ4DgFwRUK21NS4E41kBJJTAl1+DIiCvvPoy + ABSJgNK7A80CvTcLQEj5B7CLVnQCAC0CdisvNbxfjKI/topGzwpO8BHs/xbER599eMvgxbYpN9ZPOtEd + TeKL+QDS/V/COfl7zwBAYfoIEsmOAtX1juLW7gdHbj8fON0z+qZjyGi+N+P09pp9Kc33EL5z/MQ5Xwy7 + P3pTlEJ5DQCE35i+wRpt+13bAVQ5UFubm19VRVEnmkqKWrtqCi/caaRqzp8EAGor8z/pFwn0s8KqVrGp + AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAATLSURBVFhHxZZ9TNR1HMe/a9XWysyc5CZ/4FNaS1uY + UbPWmv9YjtLUzAhL8YkmmgiHqKAcmTzDcSdHKIIr00wnKUGmmA8Tj8dQhEPzgUs4HuTB4/B4EHy17w/G + 5M7NI9v12V53n9/783n/7n3f3247AYj/EwfB1TgIrsZBcDUOgquR9fiZzROyz4WN5VyYx78iP8wDw2b3 + o/Jeyh2HWMPObxlHa24kzTlqmuX7UMhRczs3gvLwkfLrDLO/uTM1qiDCA1v5EUxRnphipmOK9XIOuRvl + SWf5YYxbnmVSTMX303VVeGkr8NJesqMCr1jDciHEY/YB3IrVY2kv3Y8p/k1MiTMwJb7tJDMUj61kL1e2 + DmeyrpZtJxvYlmfmmxNmIo+biTxhRn28VuF1zaVOIcRTDgFKt42j3ZAJl7VQpYOqHU6iUzw2QzpXI59j + YnINWUYrb+iMLDtUzZKfq/E7WM0MfRW9QPhxM1PCclfan4Jb2fbxWPPTwJjcR6WT9O/b8vVc/3YEEzQ1 + 7Cu38Ja+ivYeaO4ESzcsOWiisvEul5t7eDXxQof9KbhdjJnInfOpNGbOoXHPXBr3fOwkcxVP5/kUqqNG + KgEyyiy8m34Vcxtca77Hzdvgd/gmh43tmK2wIdfMVLtTcKuIn4TNsIOWn3xoOeBLy4HFTuKreLoMWmri + RikBdv5p4YMfrlPdClea4HoLrM42k2xo5UYLXKjr5bXEi133n4KbMfElOgw6LFnLsPyyYmhkLaPboKEu + 4QUmamrQlbQx/8DfeO8zMfvHaubsNynXQccalAC1beCZVC5/ss8PBLiseZmuQg3WnNVYcwOGRs5qegoT + adCMVgIkFVnwyaqhuxcarBD+RxNfHqnliyO1+GTVsji7nmlaowzgNhDgL90rdBcmYMsLxJa3fogE0lMU + yy3dGCYk3SSuuI3lOQ0sza7H79c6VuTU45/bwKrfGll+rJWlp7qZvKt+cIBrKVPoKU6g88zGAbrPDub+ + mT33iuNoTnFXAkQXW1mbd4s1eU2sPdnM1wpNrDnZwsrTd+GgwPKMGBzAlDoVyuLpLVRzrzACitRQqoay + yD5kX9Q36y2wQ+6XxWBJdWd8Ug3bSztRnbOiMnQQUtjVh6GD4Pw7BBgAtaDFPkDd7qlQlQSV0WCMggvb + 2Rq6hnmfr1SQvdSUWYUdlVFQFUvn7jHMTDESWQ6bCmz4h0Tg57tIQfZSCy2DoEpwT28bFGCEEMIrWreX + OF0GCTsyWeq/jvikFApKyhRkLzU5i9NmEKfdPYh4XQbJ+kyio2LZlaon4KtVaDVJFJeUKMg+wH8VO/Up + pOn1pH2XRurOdBniSRlAvoxbF7yJQFUoQSEbmb/wM06dzefTRT4KspeanK1XhRIYvOGBCCE+VIVs4JOF + izh9n1/2UlOFhBKsClEIUin78ssPnIKnEGKmEGLWvHkLyP09D9/FSxRkLzU56995EF5CiClCiHec9MvP + GwggT0FeyOfyorf3RzfCt0RwKOuoguylJmf9Ow9C+p8WQng46Zf7yiOwr+FCiGmzZr1vmj3bG4nspdY/ + e1g9ql88IYQY3W94rx/ZS03OHlaP6ldKLsq0o/qRvdPm/8DvwrL/m+xqHARX4yC4GgfB1TgIruYfnsQR + sDvNfNUAAAAASUVORK5CYII= + + + + 659, 17 + + + 822, 17 + + + 953, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAkJJREFUOE+1kl1IU2EYx59SKMJzk6SSRDczd7Y0wqQloheF0KIPjYFiIRiidRMR + RlRkXnUTFRkWdCEhZjtn06mg4EUrsUC2IJYzqa153rM2tzn33dyHe+Kc1fALFkF/eG6e5/3/nj8PL8D/ + VKnOQ+3vs+3c2P8ryVmujmY5N81y8xK1Y4/Qk6pJPc2Qafmgfd/G9+tUNkzK2qdcqXItQZolSDPEUDHE + 36zUkaSUJctbAoSoUpY8phlOL2W48Wb9Ir6yBFHGEjykJTi6EMYWvSsmZ/kGGePKW2dWjJHiSh1vkmsI + ylkimoTNV6bdeP/TMo4I5reudJp0RWnWdjgDqBjm2+3hBEaTKVyKJtEaiKPBvYKT9giqrSF8NhcQQTdm + lrBu/Ie4QMZyqgzgqI5vc0YS+NDkE4fHRuyonHDgRb0Lr37wYJfRiz2zfgzGV5GxhsQUB1jubAZwfMze + IiR4MutfG3NTCcleW9KAkj7TqU2Ap+bsgEFLCA9qCBY0dZ4DgFwRUK21NS4E41kBJJTAl1+DIiCvvPoy + ABSJgNK7A80CvTcLQEj5B7CLVnQCAC0CdisvNbxfjKI/topGzwpO8BHs/xbER599eMvgxbYpN9ZPOtEd + TeKL+QDS/V/COfl7zwBAYfoIEsmOAtX1juLW7gdHbj8fON0z+qZjyGi+N+P09pp9Kc33EL5z/MQ5Xwy7 + P3pTlEJ5DQCE35i+wRpt+13bAVQ5UFubm19VRVEnmkqKWrtqCi/caaRqzp8EAGor8z/pFwn0s8KqVrGp + AAAAAElFTkSuQmCC + + + + 1080, 17 + + + 1264, 17 + + + 1400, 17 + + + 17, 56 + + + 17, 17 + + + 25 + + + + AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA + AABmMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/5uDd///////////////////////39fT/dEkm/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP+AXUL///////////////////////////////////////////////////////// + /////////////////////////////3RJJv9mMwD/ZjMA/2YzAP9mMwD/ZjMA/3RJJv/39fT///////// + /////////////2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+AXUL///////////////////////// + //+YfWv/ZjMA/2YzAP9mMwD/ZjMA/3RJJv/u6+n/////////////////9/X0/3RJJv9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/39fT//////////////////////8Gzqv9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/t6ec/9TLxf//////////////////////y7+4/62a + jf9mMwD/ZjMA/5h9a////////////3RJJv9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/3RJJv////////////////////////////// + ///Lv7j/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/u6+n///////// + ////////////////////////////////////////////////////////////////////////o4x9/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/+bg3f//////////////////////jG5Y/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/7ennP//////////////////////5uDd/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/5h9 + a///////////////////////wbOq/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/dEkm//// + ////////////////////////o4x9/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/rZqN//// + /////////////////////////////////////////////+bg3f+Mblj/t6ec////////////o4x9/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/jG5Y//////////////////////////////////////+Mblj/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/9TLxf////////////////////////////////////////////// + ///////////////////////////////////Lv7j/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/wbOq//// + //////////////////+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/5uDd//////////////////// + //+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/9TLxf//////////////////////gF1C/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+YfWv///////////////////////////90SSb/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/8u/uP////////////////////////////////////////////// + //////////////f19P/m4N3///////////+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+3p5z///////////////////////// + /////////////93W0f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/t6ec//// + ///////////////////39fT/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+jjH3//////////////////////8u/uP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/4BdQv///////////////////////////3RJJv9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/gF1C//f19P/////////////////Lv7j/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/7en + nP//////////////////////9/X0/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+3p5z///////// + ///////////////////Uy8X/gF1C/2YzAP9mMwD/t6ec//f19P///////////////////////////9TL + xf9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/8Gzqv//////////////////////7uvp/////////////////62ajf9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+Mblj///////////////////////////90SSb/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/4xu + WP//////////////////////5uDd/2YzAP9mMwD/ZjMA/2YzAP9mMwD/t6ec//////////////////// + ///Uy8X/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/t6ec//////////////////// + ///////////////////////////////////////////////////////////////////Uy8X/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA//f19P//////////////////////y7+4/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/gF1C/+7r6f//////////////////////9/X0/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/5uDd//////////////////// + //+jjH3/////////////////7uvp/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/3RJ + Jv///////////////////////////6OMff9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA//f19P//////////////////////dEkm/2Yz + AP9mMwD/ZjMA/2YzAP/m4N3//////////////////////6OMff9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/7uvp//////////////////////////////////////////////////// + /////////////////////////////7ennP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+jjH3///////// + //////////////////+Mblj/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/jG5Y//////////////////// + ////////dEkm/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP/39fT//////////////////////2YzAP/Lv7j/////////////////t6ec/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/+bg3f//////////////////////wbOq/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/1MvF//////////////////////+YfWv/ZjMA/2YzAP9mMwD/gF1C//////////////////// + ///39fT/dEkm/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+YfWv///////// + ////////////////////////////////////////////////////////////////////////o4x9/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/7ennP///////////////////////////2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/1MvF//////////////////////+jjH3/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/jG5Y//////////////////// + ///m4N3/ZjMA/4BdQv/39fT////////////39fT/gF1C/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/wbOq///////////////////////Uy8X/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+3p5z///////////////////////// + /////////////////////////////////////////////+7r6f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/Uy8X/////////////////7uvp/2YzAP9mMwD/ZjMA/2Yz + AP+Mblj///////////////////////////90SSb/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/t6ec//// + ////////////////////////ZjMA/2YzAP9mMwD/dEkm//////////////////////////////////// + /////////////7ennP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP+jjH3//////////////////////9TLxf9mMwD/ZjMA/7ennP////////////// + ///Lv7j/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+3p5z///////////////////////// + /////////////////////////////////////////////+bg3f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/6OMff////////////////////////////////////////////////////////////// + ///////////////////d1tH/jG5Y/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/4Bd + Qv//////////////////////rZqN/2YzAP9mMwD/ZjMA/62ajf//////////////////////5uDd/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+3p5z///////////////////////////90SSb/ZjMA/2Yz + AP9mMwD/5uDd////////////////////////////////////////////1MvF/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/7ennP////////////// + ////////t6ec/2YzAP9mMwD/dEkm//f19P////////////////+YfWv/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/4xuWP////////////////////////////////////////////////////////////// + /////////////2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/dEkm//////////////////// + ////////////////////////////////////////////////////////////////////////mH1r/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/7ennP/////////////////39fT/dEkm/2Yz + AP9mMwD/wbOq///////////////////////Uy8X/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/6OM + ff///////////////////////////6OMff9mMwD/ZjMA/2YzAP/Bs6r///////////////////////// + ///////////////////39fT/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/1MvF//////////////////////+tmo3/ZjMA/2YzAP9mMwD/rZqN//// + /////////////+bg3f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA//f19P////////////// + ////////////////////////////////////////////////////////mH1r/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/7uvp//////////////////////90SSb/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP+jjH3/5uDd///////////////////////39fT/dEkm/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/+7r6f////////////////+3p5z/ZjMA/2YzAP/Uy8X//////////////////////7en + nP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/dEkm////////////////////////////wbOq/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/u6+n///////// + /////////////4xuWP9mMwD/ZjMA/2YzAP9mMwD/7uvp/////////////////62ajf9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/3dbR///////////////////////Bs6r/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/Uy8X///////// + /////////////5h9a/9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP90SSb/7uvp//////////////////// + //+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/o4x9//////////////////f1 + 9P+AXUL/ZjMA//f19P//////////////////////jG5Y/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/1MvF///////////////////////39fT/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP/Bs6r//////9TLxf+3p5z/t6ec/5h9a/9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/dEkm////////////////////////////dEkm/2YzAP9mMwD/ZjMA/2Yz + AP+tmo3/////////////////7uvp/3RJJv9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/Bs6r///////// + /////////////+bg3f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/7ennP//////////////////////t6ec/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP/Lv7j//////////////////////8Gzqv9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/1MvF/////////////////8u/uP90SSb///////////////////////// + //90SSb/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+YfWv///////////////////////// + //+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/+7r6f//////////////////////o4x9/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+YfWv///////// + /////////////+7r6f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/d1tH/////////////////t6ec/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/6OMff///////////////////////////3RJJv9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/mH1r//// + ///////////////////Uy8X/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/+bg3f////////////// + ////////t6ec/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+AXUL///////// + /////////////62ajf//////////////////////5uDd/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP/Bs6r///////////////////////////+YfWv/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP+tmo3//////////////////////+7r6f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/7ennP//////////////////////1MvF/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/5h9a///////////////////////gF1C/2YzAP9mMwD/ZjMA/2YzAP9mMwD/gF1C//// + ////////////////////////jG5Y/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP90SSb//////////////////////+7r6f9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/4BdQv/Lv7j///////////////////////////+Mblj/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+3p5z///////////////////////////////////////// + ///Lv7j/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/d1tH///////// + //////////////////+3p5z/dEkm/2YzAP9mMwD/t6ec////////////////////////////rZqN/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/y7+4//// + ///////////////////Bs6r/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/93W0f////////////// + ///Uy8X/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/9/X0//////////////////////////////////// + /////////////////////////////////////////////3RJJv9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP/m4N3///////////////////////////////////////////////////////////////////////// + ////////wbOq/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP/u6+n//////////////////////////////////////7ennP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/Uy8X///////////////////////////////////////// + /////////////////////////////8u/uP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/m4N3//////////////////////62ajf9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/gF1C//////////////////////+YfWv/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP/Uy8X///////////////////////////////////////////////////////////////////////// + ////////mH1r/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/8u/uP////////////////////////////// + /////////////////////////////////////////////9TLxf9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/6OMff////////////////////////////// + ////////jG5Y/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP+tmo3/9/X0//////////////////////////////////////////////////////+tmo3/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/dEkm//// + ////////////////////////jG5Y/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/y7+4//// + /////////////+7r6f90SSb/ZjMA/2YzAP9mMwD/ZjMA/7ennP////////////////////////////// + //////////////////////////////////////////////////+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/t6ec////////////////////////////////////////////////////////////5uDd/7en + nP+Mblj/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/93W0f////////////////////////////////9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/o4x9/7ennP/39fT///////// + /////////////9TLxf+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/AAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAEAAAACAAAAAwAAAAMAAAAFAAAABwAAAAkBAQEMAQEBEAMDAxQFBQUYBwcHHQUFBSAGBgYkBQUFJwQE + BCsFBQUtBQUFLwUFBTEFBQUxBgYGLgYGBioFBQUkBQUFHgMDAxgEBAQSAQEBDQEBAQkAAAAGAAAABAAA + AAIAAAACAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAAAAAABAAAAAgAAAAIAAAADAAAABAAAAAcAAAAJAgICDAICAhAEBAQVBAQEGgUF + BSAFBQUnBQUFLQUFBTQGBgY6BgYGPwUFBUQEBARIBQUFSgUFBU0GBgZPBgYGUAYGBk8GBgZMBQUFRwUF + BUAFBQU5BQUFMQYGBikGBgYhBgYGGQQEBBMBAQENAAAACQAAAAUAAAADAAAAAgAAAAEAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAQAAAAIAAAACAAAAAwAAAAUAAAAHAAAACAIC + AgwCAgIPBQUFFAQEBBkGBgYgBQUFJgUFBS4FBQU2BQUFPgUFBUYGBgZPBQUFVwUFBV0FBQVhBAQEZgQE + BGgFBQVqBQUFawUFBWwFBQVsBQUFawUFBWkFBQVlBQUFYAYGBlkFBQVSBQUFSAUFBT8GBgY0BQUFKgUF + BSAEBAQXAgICEAAAAAoAAAAGAAAABAAAAAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAEAAAABAAAAAgAA + AAMAAAAEAAAABgAAAAgBAQELAgICDwMDAxMFBQUYBgYGHgUFBSUGBgYsBQUFNAUFBT0FBQVGBQUFTwUF + BVgGBgZgBQUFaQYGBm8FBQV2BgYGegUFBX4FBQV/BQUFgQUFBYEFBQWBBQUFgQUFBYAFBQWABAQEfQIC + AngCAgJ1AwMDcQMDA2wDAwNkAwMDWwQEBFIFBQVKBQUFPgUFBTEFBQUmBAQEHAICAhMBAQEMAAAACAAA + AAQAAAACAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAABAAAAAQAAAAIAAAADAAAABAAAAAYAAAAIAQEBCwICAg4DAwMTBQUFGAUFBR4GBgYkBQUFKwUF + BTMFBQU7BQUFRAYGBk4FBQVXBQUFXwUFBWgGBgZwBQUFdwYGBn0FBQWDBQUFhwUFBYsFBQWNBQUFjgUF + BY8FBQWPBQUFjwUFBY8EBASLAwMDiAQEBIkLCwuSFhYWpioqKsA3NzfeNzc34jMzM94lJSW7Dw8PhwQE + BGUFBQVeBgYGUgUFBUQFBQU2BQUFKQUFBR8DAwMVAQEBDgAAAAkAAAAFAAAAAwAAAAIAAAABAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAACAAAAAgAAAAQAAAAFAAAABwAAAAoCAgINAgICEQUF + BRcFBQUcBgYGIwUFBSsFBQUyBQUFOgYGBkQFBQVNBgYGVQUFBV8FBQVnBgYGbgUFBXYGBgZ9BQUFggUF + BYcFBQWLBQUFjwUFBZEFBQWUBQUFlQUFBZYFBQWWBQUFlgUFBZYFBQWVAwMDkA0NDaEdHR3ALCws2jc3 + N/FJSUn/Tk5O/0lJSf9FRUX/QUFB/z09Pf81NTX4HBwcuAUFBXkFBQVvBQUFZQUFBVcFBQVJBQUFOwUF + BS0EBAQiAgICGAICAhABAQEKAAAABgAAAAMAAAACAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAADAAAABAAA + AAcAAAAKAQEBDQMDAxEFBQUWBQUFGwYGBiIFBQUpBgYGMQUFBTkGBgZCBQUFSwUFBVUFBQVdBQUFZgUF + BW4FBQV1BgYGfAUFBYEFBQWHBQUFiwUFBY4FBQWRBQUFkwQEBZUEBASVAgIClgAAAJQAAACSAAAAkgEB + ApUFBQWYBQUFmAQEBJQYGBjBMDAw+DY2Nv80NDT/Pz8//01NTf9ISEj/RERE/0BAQP87Ozv/ODg4/zU1 + Nf8zMzP/Hh4ezwUFBYYFBQV+BQUFdQYGBmkFBQVbBQUFTgUFBT8EBAQxBgYGJQQEBBsBAQESAAAADAAA + AAgAAAAEAAAAAgAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAACAAAABQAAAAkAAAAOAgICFAUFBRoFBQUgBgYGKAUFBS8FBQU4BQUFQQUF + BUoGBgZTBQUFXAYGBmUFBQVtBQUFdAUFBXsFBQWABQUFhgUFBYsFBQWOBQUFkQUFBZMEBASVAwMDlQAA + AJUAAACSAAAAkwQEBZcTExCgKyghsTYxKL80Lya+GxkUqAEBApQBAQKREhISvSgoKP8oKCj/JSUl/yoq + Kv9JSUn/SkpK/0VFRf9AQED/ODg4/zIyMv8vLy//MDAw/y4uLv8sLCz/GBgYzAQEBIoFBQWJBQUFggYG + BnkFBQVuBQUFYAUFBVIFBQVDBQUFNQUFBSkFBQUeBAQEFAEBAQ4AAAAJAAAABQAAAAMAAAABAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAYAAAANAQEBFQMD + AyEFBQUrBQUFNQUFBT8FBQVIBgYGUQUFBVsGBgZjBQUFawYGBnMFBQV6BgYGgAUFBYUFBQWKBQUFjgUF + BZAFBQWTBAQElQICApUAAACUAAAAkQAAAJQICAiZJSQhp0NBObtkYFPPgnxq542Eb/aNg2r+i35k/4l7 + Yf96bVX6SUAx0A4NDKcXFxjzGxsb/xoaGv8XFxf/Li4u/05OTv9HR0f/QEBA/0RERP9oaGj/dXV1/1VV + Vf8uLi7/Jycn/ygoKP8lJSX/Dg4OswMDA48FBQWRBgYGjAUFBYQFBQV8BQUFcQUFBWUFBQVXBQUFSAQE + BDoFBQUtBAQEIQMDAxcDAwMQAAAACgAAAAYAAAADAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAAEAAAACgMDAxYFBQUlBQUFNgUFBUQFBQVSBQUFXgUFBWcFBQVxBQUFeAUF + BX8FBQWFBQUFiQUFBY0FBQWQBQUFkgQEBJQCAgKUAAAAkwAAAJEAAQGUDQwMmzAvK6tSUEfAfHlr1p2Z + h+ywq5b6uLKb/7Stlf+ooIj/m5J7/4yCav+Dd17/gXRc/35xWP9/cFT/SD8v9ggJCv8PDw//EBAQ/w4O + Dv81NTX/TExM/0RERP9GRkb/amlp/39/f//S0tP/3Nzd/5CQkP8xMTH/ICAg/yIiIv8aGhrtBgYGmgQE + BJUFBQWVBQUFkgUFBY0FBQWHBgYGfwYGBnUFBQVoBQUFWwYGBk0FBQU+BAQEMAUFBSQEBAQaAwMDEgAA + AAsAAAAHAAAABAAAAAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQCAgINBgYGGwQE + BC4FBQVCBQUFVQUFBWQFBQVwBQUFegYGBoMGBgaJBQUFjgUFBZEEBASTAQECkwAAAJMAAACRAQEBlRAQ + D5w4NzKuXFpQxIOBc9mqp5Xwvrum/MfErf/Fwav/v7mk/7iznP+xq5T/qqON/6Kag/+Yj3j/i4Fp/4N3 + Xv+BdFz/fG9X/3hqUP9fU0D/GRkZ/wEBAv8AAAH/BAQD/zk5Of9ISEj/Pj4+/2JiYv9paWn/SkpK/2ho + aP/e3t//+vr6/5ubm/8kJCT/HBwc/xsbG/8NDQ3ABAQEkgUFBZgFBQWXBQUFlQUFBZMFBQWPBQUFiQUF + BYIFBQV4BQUFbQYGBl8FBQVRBQUFQwUFBTUFBQUoBAQEHQMDAxQCAgINAAAACAAAAAUAAAADAAAAAQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAACAAAABAICAgwHBwcaBQUFKwUFBT4FBQVQBgYGYAYGBm4FBQV5BAQEgQEB + AoYAAACJAAAAigAAAZAQEA6bNTQurGFfVMSMiXrapKGO8qShjv3Bvqn/zMmz/8XCrP/Bvqj/vbqk/7u3 + ov+5tJ//tbCa/7CqlP+qo43/o5uE/5mRev+Ng2v/hXpg/4N2Xv99cVj/c2VM/4ByXP+dj4T/bWRd/xkY + GP8FBQb/Pj4+/0ZGRv8+Pj7/cXFx/3x8fP92dnb/X19f/4SEhP/5+fn/7u7u/2JiYv8VFRX/GBgY/xER + EeUFBQWXBQUFmAUFBZkFBQWYBQUFmAUFBZYFBQWUBQUFkAUFBYsGBgaEBQUFfAUFBXAGBgZkBgYGVQUF + BUcEBAQ5BQUFLAUFBSADAwMWAQEBDwAAAAoAAAAGAAAAAwAAAAIAAAABAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADAAAACAIC + AhEEBAQeBAQELAICAjoAAAFFAAAATgAAAFcEBARnFRUTgDs6NJ1jYle9iYd416imkvCoppL+paKS/5WT + iP+cm5X/qKem/6yqm//DwKr/wL2o/7+8pv+9uqT/u7ei/7q1oP+4s53/tK+Z/6+okv+hmYL/kYhw/35y + Wf9wYkf/cmRF/3RmS/9yZEr/gXJc/6majP+xoZP/dm1m/xMTFP85OTn/Q0ND/z09Pf98fHz/k5OU/5CQ + kf+Li4r/ampq/7e3t//j4+P/oKCg/yAgIP8TExP/EhIS/AcHB6gFBQWWBQUFmQUFBZkFBQWZBQUFmAUF + BZgFBQWXBQUFlAUFBZIFBQWNBQUFhwYGBn4GBgZ0BQUFaAUFBVkFBQVLBQUFPAUFBS8FBQUjAwMDGQEB + AREAAAALAAAABwAAAAQAAAACAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAADAAAABAAAAAYAAAAKDAsLFxwcGThDQjtjcG5im5KQ + f8ixrprrsK2Z/q2rmf+fnZH/n56X/7KysP/Ozs7/8PDx//7+////////ubep/8G+p//Cv6r/w8Cq/8PA + qv/AvKf/tbCa/6agif+OhW3/fG9X/3NjTf9lUz7/a15N/2xmZP9NSFL/V0xB/1tONv93aVP/p5iL/6aX + iv+fkYX/NzY1/zg5Of9AQED/ODg4/4SEhP+DhIX/goKD/6Wlpv98fHz/gYGB/76+vv+srKz/Ojo6/w4O + Dv8SEhL/CQkJvgQEBJMFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZgFBQWYBQUFlwUFBZYFBQWSBQUFjwYG + BokGBgaBBgYGdwYGBmsGBgZeBQUFTwQEBEEEBAQzBAQEJgMDAxwBAQETAAAADQAAAAcAAAAFAAAAAwAA + AAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAgIBwNNjUvMXt5bHCem4qxwL2o3r+8pv+0sZ//p6aZ/6emn/+5ubb/zc3N/+7u7//8/P3///////// + ///////////////////Bv7H/x8Wt/7+7pf+wqpT/l494/4F4Y/90aVX/bGFQ/3Vyaf93f33/fpmf/3y0 + xv9twtP/R37e/woW6v8qNK7/e3Jj/31yY/+mlon/pJWI/6qajf9jXln/PT0+/0JCQv8yMjL/dHR0/4KD + hP9ZWlz/iYmK/4KCgv9ubm7/mpqa/5iYmP9KSkr/DAwM/w8PD/8JCQnNBAQEkgUFBZkFBQWZBQUFmQUF + BZkFBQWZBQUFmQUFBZkFBQWZBQUFmAUFBZcFBQWWBQUFlAUFBZAGBgaLBgYGgwUFBXoFBQVvBQUFYgUF + BVMFBQVFBAQENwQEBCkEBAQfAgICFQAAAA8AAAAJAAAABQAAAAMAAAACAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAzcmzCsjFryuWk4Nlioh5pMXCrdPGw67+zsu0/8nFsP/DwKn/xsS3/9DQ + 0P/v7/D//f3+/////////////////////////////////////f/t7Ob/0MzA/5mSff94b1r/YllH/0pB + NP8/OjL/nJSO/5uUjv+ls7n/xuXt/5Pp//9m4///eOr//03l//9opfj/U0zw/zg/vP+Ce3H/jYV7/6WW + iP+klYj/qJiL/4l/dv9DQ0P/SEhI/zExMf9NTU3/lZWV/1tcXf9paWr/eHh4/2FhYf97e3v/gICA/0hI + SP8LCwv/DQ0N/wgICNYFBQWUBQUFmQUFBZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUF + BZgFBQWYBQUFlgUFBZQFBQWRBQUFjAUFBYYFBQV9BQUFcgUFBWUFBQVXBAQESQUFBTsEBAQuAwMDIgMD + AxgBAQEQAAAACwAAAAYAAAAEAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMK/qpnCv6rSwr+q/crH + sf/MyLL/w8Cr/8PAq//Cv6r/wr+q/767o//f3tL///////////////////////////////3/7Ovk/83K + vv+mn4//e3Ri/1lRQP9COy7/OjUu/zc1Mv81NTX/NTU2/zM0Nf+wqqf/r6af/7TDyf/Z+///oOz//1Xg + //9j4///gOz//6G89P9GPuT/NDi1/4F7cP+Gfnb/oJKG/6WWiP+lloj/opSH/01LSf9KS0v/Nzc3/y0t + Lf93d3f/h4eH/3Jycv9hYWH/U1NT/2FhYf9ubm7/Pj4+/wkJCf8KCgr/BgYG2QUFBZQFBQWYBQUFmQUF + BZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZkFBQWYBQUFmAUFBZcFBQWVBQUFkgUF + BY4FBQWIBQUFgAUFBXUFBQVqBQUFXAUFBU4EBAQ/BAQEMgQEBCUDAwMbAQEBEgAAAAwAAAAIAAAABQAA + AAIAAAABAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAwr+q+8K/qv/Cv6r/wr+q/8K/qv/Cv6r/wr+q/8K/qv/Cv6r/v7yl/+Lh + 1v/////////+/+zr5P/NyL3/o5yN/3dvXv9WTj7/PTcr/zEtJv8uLCr/LS0t/y0uL/8tLi//MDEy/0A/ + P/9PTU3/ZGNi/7Wuqv+6sKj/wb26/8Xd5f/E6vT/uOXx/7/i6//j5+b/x8DL/2tli/9oZYT/gntz/4F7 + dP+ZjYL/ppaJ/6WWif+uoJP/dG1n/z09Pv9GRkb/KCgo/zo6Ov97e3v/YGBg/0lJSf9JSUn/UVFR/2xs + bP8fHx//CAgI/wgICP8FBQXUBQUFkQUFBZQFBQWXBAQEmQAAAZYAAAGVAgIDlwUFBZkFBQWZBQUFmQUF + BZkFBQWZBQUFmQUFBZkFBQWZBQUFmAUFBZgFBQWXBQUFlQUFBZMFBQWPBQUFiQUFBYIGBgZ5BQUFbQUF + BWAFBQVSBQUFRAQEBDUEBAQpBAQEHgICAhUAAAAOAAAACQAAAAUAAAADAAAAAQAAAAEAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADCv6rvwr+q/8K/ + qv/Cv6r/wr+q/8PAq//GxK//yMWw/8jFsP++uqP/ubSj/6agkf93cF//Uks7/zYxJv8rJyH/JyYj/yUl + Jv8mJyj/KCkq/y8vMP9DQ0P/VlZW/29ubv9/fn7/hYSD/358e/9qamn/rqei/7atpP/Tzsr/2tTR/9rT + 0P/e1NH/3dXS/97Y1v/LxsD/hX5w/4R9cP+BenT/gHpz/4+FfP+nmIv/qZuQ/7Cil/+lmpH/Ozs6/0tL + TP80NDT/ICAg/zk5Of9oaGj/ZGRk/19fX/9sbGz/PDw8/wkJCf8JCQn/BQUF/wEBAfkBAQHhAwMDuwAA + AZ0EBQWXHx0ZqCQiHa0TEhCgAQEClQAAAJUEBASYBQUFmQUFBZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUF + BZgFBQWYBQUFlwUFBZcFBQWUBQUFkAYGBosGBgaFBQUFfAYGBnEFBQVkBQUFVgUFBUgEBAQ6BAQELAMD + AyEDAwMXAQEBEAAAAAoAAAAGAAAAAwAAAAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAMK/qu/DwKv/xsSv/8jFsP/Fwqz/vbmj/66okv+UjXf/b2dV/1BJ + O/80LyX/JCEb/x8eHP8dHR7/HyAi/yQlJv8xMDD/RURD/1pYV/9ycG//gX9+/4B/f/91dHT/YGBg/1BP + T/9BQUH/OTo6/zY3N/+gmZX/tayj/9HMx//a1dL/2dTS/9nV0v/a1dP/3tnY/8rFwv+AenT/f3hy/4F6 + dP+AenT/hX12/6aZjv+uoZb/sqab/72xp/90b2r/Kyss/05OTv8nJyf/Ghoa/yMjI/86Ojr/Pj4+/ycn + J/8LCwv/CwsL/wcHB/8DAwP/AAAA/wAAAP8AAAD/FhUS73BpWOaLgWn5hnph/XNoUfJVTT3WLSslsQgI + CJgAAACUAgIDmAUFBZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZgFBQWXBQUFlQUF + BZIGBgaNBQUFhwUFBX4FBQV0BQUFZwUFBVoFBQVMBAQEPQUFBTAEBAQkBAQEGQEBAREAAAALAAAABwAA + AAQAAAACAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxsOv8MG9 + pv+qo4v/kIVu/39zXv9rYlP/UUpB/x4cF/8ZGBf/FRYX/xobHP8iIiL/MzIx/0dFQ/9eW1j/cW5r/3h1 + dP9ycG//ZWRj/1FQUP9CQkL/NTU1/zExMf8vLy//MjIy/zg4OP9HRkb/V1ZV/6efmv+xp57/0MrH/9nU + 0P/Z09D/2dTR/9rV0v/e2df/ycTB/4B6dP9+eHL/gHp0/4B3av+AeXH/nJKJ/7Sonv+1q6L/vLKp/7qx + qv9BPz3/Li4v/0lJSf8hISH/FhYW/xEREf8ODg7/DQ0N/w0NDf8JCQn/BAQE/wEBAf8AAAD/AAAA/wkJ + B/97dGD/lIhu/35yWP90ZUv/cWJI/3RlSf+FeWD/bWVS5j88M7wODw2cAAAAkwEBApcFBQWZBQUFmQUF + BZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZkFBQWYBQUFlwUFBZYFBQWTBQUFjgUFBYkFBQWBBQUFdwUF + BWwFBQVeBQUFUAUFBUEEBAQ0BAQEJgQEBBwCAgITAQEBDQAAAAgAAAAEAAAAAgAAAAEAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB6b1nzV01C/1xfXf9ngIH/X5us/23F4f9Sg5b/HRgW/zYz + Mf9JRkP/X1tX/25pZf9uamf/ZWNg/1VUUv9CQkH/NTU1/ywsLf8qKir/Kikp/zAwMP85OTn/Tk1N/2Ri + Yv93d3b/hYSD/4SDgv96eHj/qaGa/66kmv/Qysb/2dPQ/9jSz//Z09D/2tTR/93Y1f/JxMH/gHl0/354 + cv+AenX/fnRi/393af+Jgnz/s6if/7uxqf++ta7/yL+4/7KqpP8vLy3/JCUl/0BAQP8lJSX/ExMT/xAQ + EP8ODg7/CwsL/wcHB/8CAgL/AAAA/wAAAP8AAAD/Ojct/5SIb/97bVX/bmBG/25gRv90Zkz/dmlQ/3hq + UP9uYkj/fnRc/4Z+au9NST3GGRgVoQAAAJMAAAGWBQUFmQUFBZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUF + BZkFBQWZBQUFmAUFBZcFBQWWBQUFlAUFBZAFBQWLBQUFgwUFBXoGBgZvBQUFYgYGBlQFBQVFBQUFNwUF + BSoFBQUfAgICFgICAg4AAAAJAAAABQAAAAMAAAACAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEw8 + G40rKWT/erT2/4L1//9n6f//j/D//6i7wP9hWFH/Yl1Z/1dUUf9EQkH/NDQz/ykpKv8kJSX/IyQk/yYm + Jv8tLS3/Ozo5/09OTf9lY2L/fHt6/4WDg/+Af3//c3Ny/15eXv9QUFD/RERE/z4+P/+akYv/rqSZ/9DK + xv/Y09D/19LP/9jT0P/Y09H/3dfV/8nDwP+AenT/f3hy/4F6df9/dmb/gHZk/4B4b/+elY7/wbix/8O6 + tP/Iv7r/1MvF/7q0r/9SUE7/JSUk/ycoKP8iIiP/GRkZ/xEREf8JCQn/BAQE/wAAAP8AAAD/AAAA/wAA + AP9OSTv/i31j/3BhR/9wYkf/e25U/4J3X/+IfWT/gnZd/2laQf9PRDL/g3Ze/4J2W/96cVv0XllNzh0d + GaYAAQGUAAABlgUFBZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZgFBQWXBQUFlgUF + BZQFBQWRBQUFjAUFBYUEBAR6AQEBbAEBAV0BAQFPAwMDRQUFBToFBQUtBQUFIgQEBBgBAQEQAAAACgAA + AAYAAAAEAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZFxEFD07kPZ+vP//eOz//4Lk+//L5ev/p5+a/yEg + IP8fHyD/HB0e/x0dHv8jIiP/LCsr/z08Ov9SUE3/aWZk/3l2c/96eHb/c3Fw/2VkY/9QT0//RERE/zg4 + OP81NTX/NDU1/zk5Of9AQED/U1JR/6Wdlv+topj/0MnF/9fSzv/X0c7/19LP/9jT0P/c19T/yMPA/4F7 + dP+AeXL/gXp1/392aP+BeW//gHZm/4R9dv+yqqP/zcO+/8zEv//Qy8b/2tTR/9zX1P+0sK7/cW9t/z07 + Ov8aGhr/BQYG/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/0tFNv+Bc1j/bl9E/3lsUv+Ge2L/koly/5qR + ev+UinL/e25V/0Y7Kv9vYUr/a11D/1lOOP+Sh27/hXtj+VlTQ9YiIB2nAAAAlQUFBZkFBQWZBQUFmQUF + BZkFBQWZBQUFmQUFBZkFBQWZBQUFmQUFBZgEBASYBAQElgICApICAgKPBQUFkhAQEJofHx+vIiIitR8f + H6oRERF/BAQEVgQEBEsFBQU/BQUFMQQEBCUFBQUaAgICEgAAAAwAAAAHAAAABAAAAAIAAAABAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAB0c24UeXaY9a7D3P/N2Nb/zs3J/97Syf+emZL/FRUV/yopJ/9APTr/VVFO/2lkYf9ybWr/b2xp/2Vi + Yf9UU1L/QkJC/zc3N/8vMDD/LS4u/zExMf85ODj/R0ZG/19dXf9vbm7/gH5+/4eFhf+DgYD/sqmj/6+l + m//OyMT/19HO/9fQzf/X0c7/2NLP/9vX0//Iw7//g3t1/4B6c/+Ce3X/gHZo/4N8df+CeGz/gHZn/42E + fv/Fvrn/2tTQ/9XQzf/Y1NL/3dnY/+He3f/j3tv/0cvH/6+ppP+HgX3/YV1a/w0MDP8AAAD/AAAA/wAA + AP8AAAD/Lioh/3prUP9wYkn/f3Na/5CGbv+hmoP/rqiS/6ihi/+Jf2n/YVZE/4N3X/9zZkv/Sz8t/29i + TP93aU7/a19H/4mAa/YuKySxAAAAkwQEBJkFBQWZBQUFmQUFBZkFBQWZBQUFmQQEBJcCAgKVAgICkwYG + BpgMDAyhFxcXtiMjI80yMjLmRkZG+UxMTP9ISEj/QkJC/zk5OfojIyPBCAgIcQQEBFwGBgZRBAQEQwUF + BTUFBQUoBAQEHQMDAxQBAQENAAAACQAAAAUAAAACAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG1rahaqo5n12czB/9PIwP/SycH/1c7H/7Ot + pv9sZmH/cmxo/2FcWf9UUU//QkFA/zU1Nf8sLC3/Jygo/ygoKP8wMDD/Ojk5/09OTf9lY2L/eXd2/4SD + gv+Hhob/fXx8/21tbf9ZWVn/S0tL/z4+P/+poZz/tqyi/87Iw//W0c3/1tDN/9bRzv/X0c//3NXT/8jC + v/+DfHX/gnpz/4N8dv+Ad2j/g3x0/4V9d/+CeWv/f3Vn/46Gf//Iw7//5+Tj/+Ti4f/i4OD/39zc/9rX + 1f/X0tD/1c/J/9fNx//FvLb/GxoY/wAAAP8AAAD/AAAA/wAAAP8HAQD/W043/3lqTv+Cdl3/lItz/6ii + jP+7t6L/wLym/4uBbf+KgG7/npV+/4qBaP9XTDn/dmpU/3BhRv9NQCv/cmZQ/3RoU+8cGhemAAAAlAAA + AJQDAwOYBQUFmQUFBZgEBASUCAgInRUVFbIkJCTMODg45DQ0NPgyMjL/MzMz/0NDQ/9NTU3/RUVF/z4+ + Pv85OTn/NjY2/zQ0NP8jIyPaCAgIgAUFBW4FBQVkBgYGVgUFBUcFBQU5BQUFLAQEBCECAgIXAQEBDwEB + AQoAAAAGAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAbmxrFqSdmPXTysP/0MrC/9HJwv/Uzcb/t7Ks/21sbP9nZ2f/S0xM/zAwMf8lJSX/LS0s/z48 + O/9WU1H/aGVj/3h2c/99enj/d3Z0/2xra/9ZWVj/SEhI/zw8PP81NTX/ODg5/0FAQf9PTk7/YmFh/7u0 + sP+4r6b/zcbC/9bQzP/W0Mz/1tHN/9fRzv/b1dL/yMK//4R9dv+Ce3T/g3x2/4F3aP+EfXX/hX52/4Z+ + d/+Eemz/gHVl/4Z+dP+vqaT/3NrY/+3t7f/v7e7/6Obl/9/c2//Z09D/zsbB/7auqP8aFBD/AAMF/wAO + F/8AJ0H/AD9r/wAcOP8OEBD/WEct/4NyU/+ViW7/oJiB/6Sdh/+Ph3H/jYJw/7y4pP+3spz/mJB6/29j + UP+TinP/hXlf/1FFMf9mWkX/dGVK/4t8bfltZFvYMCwosQUGBZgAAACSAgIClhsbG8UxMTHxNjY2/0ND + Q/8zMzP/ISEh/yAgIP8oKCj/SkpK/0hISP8/Pz//Q0ND/z4+Pv8xMTH/Kioq/ywsLP8bGxvYBQUFhAUF + BX4GBgZ0BQUFaAUFBVoFBQVMBQUFPgUFBTAFBQUkBgYGGgMDAxIBAQELAAAABwAAAAQAAAACAAAAAQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABubmsWo52Y9dLJwv/QycH/0cnC/9XO + xv+wq6X/Xl1d/25sa/+Cf33/i4iF/4SBfv+EgH3/d3Nw/2JgX/9XVVT/RUVE/zk6Ov8wMTH/Ly8v/zo6 + Ov9HRkb/X11e/3Jxcf+Bf3//iYeH/4ODgv92dHT/wby5/7y0q//NxsH/19DM/9bPy//W0Mz/1tHN/9rV + 0f/Iwr7/hX53/4N8df+FfXf/gXho/4V+df+Gfnf/h393/4iAeP+GfXL/gndn/350ZP+If3P/oZqS/7Ot + pv+8trH/urWw/62moP+imJD/k4d9/xdhkv8Ac8P/AI7v/wCZ//8Amv//AG3X/wBXr/8BO3L/KDlF/1tQ + Pv9vXD7/aFg+/3JlUP+gmIP/tbCZ/7KumP+GfGj/pZ2K/6ymj/+ZkXn/ZFlG/4N3Yv94a1H/jn9v/6uc + jv+omIv/g3dt5kU/ObocGxrJICAh/yIiI/8rKyv/PDw8/xQUFP8TExP/EBAQ/ysrK/9NTU3/QUFB/1NT + U/+BgYH/urq7/5aWl/89PT3/ISEh/yIiIv8PDw+5BAQEigUFBYkEBAR+AgICcwEBAWUBAQFXAgICSgMD + Az8FBQU0BQUFKAUFBRwDAwMUAAAADQAAAAgAAAAFAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAG9uaxajnJf10cfB/9DIwf/QycH/08zE/722r/+NiYX/lJCN/4+Miv+GhIP/fn59/3R0 + dP9jZGT/T09Q/0JDQ/8+Pj3/TkxM/2JgX/92dHL/g4GA/4KCgf97enr/bm1t/1lZWf9KSkr/RERE/0FC + Qv+8uLb/wbqy/8zGwP/V0Mv/1c/L/9bQzP/X0M3/2tTR/8jCvv+Gfnf/hH11/4V+d/+CeGj/hn52/4d/ + d/+Hf3f/iH94/4mAef+JgXn/iH50/4V7bP+Bd2f/f3Rl/4F2Zv+Cd2f/gnZl/4Z6af+NgXf/F4fP/wCS + 9v8Amv//AJn//wCU/f8Abtf/AG/a/wBy4P8AadL/AFao/xVFb/88R0v/bmFI/4d0Vf97blT/bWJN/5SL + d/++u6X/wb2o/5OKdf+LgW7/o5uE/5CGb/+ThHX/pJWI/6WWif+rm43/rJyO/5SHfP9iWlT/KScl/ykq + K/8kJSX/AgIC/wUFBf8CAgL/LCws/0lJSf9ISEj/cnJy/1RUVf+FhYb/8vP0/7u7u/80NDT/Gxsb/xcX + F+4EBASVBAQEjwsLC5gaGhqpKioqwSoqKsUfHx+jCwsLbwMDA04FBQVGBQUFOQQEBCsEBAQgAwMDFgEB + AQ4AAAAJAAAABQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAb25rFqKclvXRx8D/0MjA/9DI + wf/UzcX/ta+p/2RkZP9iYmP/X2Bg/2NjY/9vbm3/eXh3/4yJiP+cmpf/op+d/5+dnP+cmpr/iYiH/3Rz + c/9dXV3/VFRU/05PT/9TU1P/X15e/3BwcP9/fn//lJKS/9jV0//BurL/y8S//9XPy//Vz8v/1dDL/9bQ + zP/Z1ND/y8TB/4iAef+FfXb/hn54/4J4af+Hf3b/iH94/4iAeP+JgHj/iYB4/4qBef+Lgnr/jIN7/4yD + e/+Ng3r/jYN5/42Def+OhHr/h3xr/4+CeP8XebX/AIfi/wCX/v8AmP//AJT8/wBv1/8AbdX/AG7W/wBw + 2f8AdOH/AHPi/wBs0/8FWaP/I1B0/0VKSP90ZUz/mIhp/5mNc/+DemX/iX9s/8G9qP+8uKH/m5F//5uM + fv+llon/pJWI/6SViP+klYj/qJmL/6ycjv+cjYH/gndv/z47OP8HCAf/CgoK/wgICP8tLS3/Q0ND/1RU + VP+EhIT/e3t7/2FhYf+tra3//v7+/4aGhv8XFxf/FRUV/xwcHNgsLCzdPj4+9ExMTP9JSUn/RERE/z4+ + Pv8yMjLuFhYWngQEBGEFBQVZBQUFSgUFBTwFBQUuBAQEIQEBARYAAAAOAAAABwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABvb2wWopyW9dHHv//PyMD/z8jA/9TNxf+xrKb/ZmRj/316eP+Kh4T/lJCO/5uX + lf+YlZP/j42M/4iHh/99fX3/dnd3/3N0dP90dHT/d3h3/4GBgf+Lior/m5ub/6inp/+wr6//s7Ky/6ur + qv+gn5//29rY/9DKw//Lxb//1c/L/9XPy//Wz8v/1tDM/9jTz//RzMj/i4N7/4Z+dv+Hf3j/gnhp/4h/ + d/+IgHj/iYB4/4mBef+KgXn/ioF5/4uCev+Mg3r/jYN7/42Ee/+OhHv/j4V8/5CGfP+IfWz/j4N4/xd3 + rv8Ahd3/AJf+/wCY//8AlPz/AHDY/wBu1v8AcNj/AHDY/wBx2f8Actr/AHTd/wB55v8AduT/AGzO/wla + n/8nTmn/QEI9/2hZQf+Yi3D/n5eA/1ZUSv94bWP/q5uO/6SViP+klYj/pJWI/6SViP+klYj/pJWI/6aX + iv+vnpD/mIuA/yQkI/8bGxr/Gxsb/zQ0NP8+Pj7/WVlY/5SUlP+Ojo//kpGS/3Z2dv/IyMj/srKy/y0t + Lf8ODg7/Hx8f/zU1Nf9JSUn/SUlJ/0FBQf85OTn/NDQ0/zMzM/8vLy//FBQUrgQEBHAFBQVpBQUFWgUF + BUoFBQU5BAQEKQICAhoAAAAPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHBvbBaim5b10Ma//8/I + wP/PyMD/0svD/7y2r/+JhYL/h4SC/358e/90c3P/ampr/2hoaP9mZ2f/a2tr/3Z1df+BgID/kI+O/6Cd + nP+opqX/qqqo/6inpv+cnJz/k5OT/4iHiP+FhYX/kJCQ/5+fn//m5eT/2NPO/8vEv//Vz8v/1c/K/9bP + y//W0Mz/2dLP/9HLx/+MhHz/h393/4iAef+DeWn/iYB3/4mAeP+JgXn/ioF5/4qCef+Lgnr/jIJ6/4yD + ev+NhHv/joR7/4+FfP+QhXz/kIZ9/4l9bP+Qg3j/F3as/wCE3P8Alv7/AJj//wCU/P8Acdn/AG/X/wBx + 2f8Actr/AHLa/wBz2/8AdNz/AHbe/wB33/8AeuP/AH3r/wB66P8Abcz/BVWW/xk7Vf8YHiH/IRYL/4Bt + XP+kk4T/pZaK/6aXiv+llon/pJWI/6SViP+klYj/pJWI/6majf+ajoP/ODc3/y4uL/8vLy//PT09/z4+ + Pv9NTU3/hoaH/2hqa/+UlZb/dnZ2/5GRkf+pqan/RUVF/wsLC/8PDw//MzMz/0xMTP9CQkL/RUVE/1tb + W/9NTU3/Li4u/ykpKf8mJib9DQ0NoQQEBHYFBQVvBQUFXwUFBU0FBQU4BQUFJgICAhYAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAcG9sFqGblfXQxb7/z8fA/8/IwP/UzcT/sKqk/1ZXWP9cXFz/X19f/2pp + aP93dXT/hYOB/5SRj/+dmpj/oJ6c/5+dnP+Tk5P/jIyM/4OEhP+AgID/iYiH/5WTkv+op6X/wb+9/9nX + 1f/s6+r///7+///////Z1dD/y8O9/9XPy//Vzsr/1c/L/9bQy//Z087/0cvH/4yEfP+If3f/iYB5/4N5 + av+JgHj/ioF5/4qBef+Lgnn/i4J6/4yDev+Mg3r/jYN7/46Ee/+PhXz/j4V8/5CGfP+Rhn3/iX1s/46D + ev8Wdq3/AITb/wCW/v8AmP//AJT8/wBz2/8Acdn/AHLa/wBz2/8AdNz/AHTc/wB13f8Adt7/AHjg/wB5 + 4f8AeuL/AHvj/wCA6v8Ag/H/AH7q/wVzzf85fbD/XnSC/3tvYv+Od2L/nIh1/6SUhv+nmIv/pZaJ/6SV + iP+klYj/qZuO/5yQhv9DQkH/OTo6/zo6Ov9DQ0P/RERE/zU1Nf+EhIT/ZWVm/25vb/9ubm7/c3Nz/4iI + iP9JSUn/CgoK/woKCv86Ojr/SEhI/0hISP9qamr/lpaX/9DQ0f+Ki4v/LS0t/yAgIP8aGhrlBQUFfAUF + BW4GBgZgBQUFTwUFBTsFBQUoAwMDGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwb2wWoZqV9c/F + vf/PyL//z8i//9PLw/+1rqj/dHFv/4iDgP+RjYr/lJGN/5OQjf+HhoT/fn5+/3l5ef90dHX/e3p5/4WD + gP+VkY7/qqSf/721sP/Mxr//29XQ/+Te2v/q5eL/8Ozo//Lw7v/39vX//////+Dd2f/Kw7z/1c/K/9XO + yv/Vz8r/1tDM/9jSz//Ry8f/jYV9/4mAeP+KgXr/hHlq/4qBeP+Lgnn/i4J6/4yCev+Mg3r/jYN6/42D + e/+OhHv/joV8/4+FfP+Qhnz/kYZ9/5GHff+LfWz/h4R//xB2sf8Ag9r/AJb+/wCY//8AlPz/AHTc/wBy + 2v8Ac9v/AHTc/wB13f8Adt7/AHbe/wB33/8AeOD/AHri/wB74/8AfOT/AH3l/wB/5/8AgOn/AITv/wCE + 8/8AhO//FoDS/zl4pv9fb3b/f3Bf/5V+av+ijn3/p5eK/6eYi/+rnJD/mo+E/zo5Of8yMjP/NDQ0/zY2 + Nv9LS0v/Ly8v/1VVVf+Kior/ampq/1ZWVv9YWFj/cXFx/zo6Ov8GBgb/BgYG/zs7O/9CQkL/YmJi/29v + b/9TU1P/pKSl//7+/v+Hh4f/HBwc/xoaGv8MDAyWBAQEVAYGBk4FBQU+BQUFLgUFBR8BAQESAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAHFvbhagmpT1z8S8/8/Hv//PyMH/1MvD/7u1rv93dHP/b25t/2tr + av9naGj/c3Jy/4GAfv+RjYr/oZuW/6yjnP+vpZv/tamg/72yqP/CuLD/yr+3/87Gvv/TzMX/2tTQ/+Ld + 2f/l4d7/6OXi/+jl4v/g3dr/x8K7/83GwP/Vzsr/1c7K/9XPyv/W0Mv/2NLO/9HLx/+Ohn3/ioF4/4uC + ev+Eemr/i4J5/4yCev+Mg3r/jIN6/42De/+NhHv/joR7/46Ee/+PhXz/kIZ8/5CGff+Rh33/kod+/4t9 + bP+IhH//EHaw/wCD2v8Alv7/AJj//wCU/P8Adt7/AHPb/wB13f8Add3/AHbe/wB33/8AeOD/AHnh/wB5 + 4f8Ae+P/AHzk/wB95f8Afub/AH/n/wCB6f8Agur/AIPr/wCE7f8Ah/P/AIn3/wKI7v8YgdD/PXWc/2Vu + cf+GdGT/nYZy/6+cjP+ZjoT/LCws/ysrK/8sLCz/KSkp/0BAQP9CQkL/JiYm/2BgYP9qamr/UVFR/1pa + Wv9oaGj/FxcX/wcHB/8GBgb/Ozs7/0BAQP9ycnL/jo6O/4ODhP9tbW3/0dHR/9TU1P9AQED/ERER/xAQ + EMMEBAQ1BQUFMQUFBSYFBQUbAQEBEgAAAAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcnBtFqGa + lfXQxb7/0cnC/9HLw//Wzsf/uLKs/3t6ev+WlZP/r6yq/8O/u//MxsH/0cnD/9DFvv/Iv7b/wbiv/7uw + p/+1qaD/tKmf/7qwp/++taz/wrix/8e+tv/Du7P/v7ev/762rv+5sqj/ubKo/8G4sP/Hv7j/1M3I/9TO + yf/Vzsn/1c/L/9bQy//Z087/0svH/4+Gfv+LgXn/jIN7/4V6av+Mgnn/jIN6/42De/+NhHv/jYR7/46E + e/+OhXz/j4V8/5CGfP+Qhn3/kYd9/5KHff+SiH7/i35s/4iFgP8QdrD/AIPa/wCW/v8AmP//AJX9/wB3 + 3/8Add3/AHbe/wB33/8Ad9//AHjg/wB54f8AeuL/AHvj/wB85P8AfeX/AH7m/wB/5/8AgOj/AIHp/wCD + 6/8AhOz/AIXt/wCG7v8AiPD/AInz/wCM+f8Ajv3/BIvv/xuAyf9Dc5L/cXd2/4V2aP85MSz/IR4c/yMi + Iv8iIiL/JCQk/0pKSv8wMDD/Hx8f/0ZGRv9dXV3/WFhY/yUlJf8ICAj/BAQE/w4ODv8/Pz//Ozs7/3R0 + dP+EhIb/lJSW/4aGhv+MjIz/wsLC/2pqav8PDw//EBAQ4QYGBiwDAwMUAgICEQEBAQwAAAAHAAAABAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABxcG0XopyX9tLJwf/TzMb/083I/9LMxv/a1ND/8O3s//Lu + 6//r5+P/5N/b/97Z1P/X0cv/08vE/8/Gv//Ivrf/vLOr/7Wqof+rn5X/pZmO/6yil/+vppv/s6qg/722 + rP/CurH/ycG4/9HKw//TzcX/1M7H/9XPyf/Uzcj/1M7J/9XOyv/Vz8r/1tDL/9jSzv/Sy8f/j4d+/4uC + ef+NhHv/hXtr/42Cev+NhHv/joR7/46Ee/+OhHv/j4V8/4+FfP+QhXz/kYZ9/5GHff+Sh33/koh+/5OI + fv+Lfmz/iIWA/xB2sP8Ag9r/AJb+/wCY//8Alf3/AHjg/wB33/8Ad9//AHjg/wB44P8AeeH/AHri/wB7 + 4/8AfOT/AH3l/wB+5v8Afub/AIDo/wCB6f8Agur/AIPr/wCF7f8Ahu7/AIfv/wCI8P8AivL/AIvz/wCN + 9f8Ajvj/AJH//wCT//8Gje3/GHq9/zBjh/8cJi7/GhMP/xoTDv8YFhT/JSUk/0hJSf8oKCj/EhIS/xAQ + EP8MDAz/CgoK/wgICP8CAgL/Kioq/0hISP84ODj/YGBg/3t8ff9lZmf/hISF/3Fxcf+Wlpb/eHh4/xAQ + EP8NDQ31AwMDMgAAAAIAAAAGAAAABAAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHJy + bxOhm5bt1MvE/9XPyv/Vz8v/083I/+Db1//5+Pb/8u/t/+/s6v/q5+P/39rW/9XQyv/Jwrv/ubGn/7Sr + ov+zqZ//s6qg/721q//EvbP/ycK5/9DJwf/Sy8P/0svD/9PMxP/SzMT/0cvD/9HKw//Sy8T/08zG/9PM + xv/SzMf/08zH/9TNyP/Vz8r/2dPO/9HLx/+Qh3//jIN6/46EfP+MgHD/kod+/46Ee/+OhHv/j4V8/4+F + fP+QhXz/kIZ8/5CGff+Rh33/kod9/5KIfv+TiH7/lIl//4x+bP+JhoD/EHaw/wCD2v8Alv7/AJj//wCV + /f8AeuH/AHjg/wB54f8AeeH/AHri/wB64v8Ae+P/AHzk/wB95f8Afub/AH7m/wB/5/8Agen/AILq/wCD + 6/8AhOz/AIbu/wCH7/8AiPD/AInx/wCK8v8AjPT/AI31/wCO9v8AkPj/AJH5/wCU/v8Al///AJn//wOL + 6P8IZaL/DjpW/xIXG/8QCAP/IRoW/z49PP8qKir/FhYW/w8PD/8JCQn/AgIC/xcXF/85OTn/RERE/0FB + Qf88PDz/iYmJ/2xtbv9tbm7/W1tb/3Fxcf9paWn/Dw8P/woKCvkBAQEvAAAAAAAAAAIAAAABAAAAAQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdnVyDJ6aldvVzcX/19HN/9fSzf/V0Mv/4t3a//b0 + 8//p5uL/0c3H/8XAuP+/uLD/urKp/7+3sP/IwLr/zca//9TOyP/X0cz/1s/J/9TNx//Sy8T/z8nB/8/H + vv/Oxr7/zsa+/8/Hv//RycH/08zE/9XOyP/X0cz/3djU/+Ld2v/k4N3/5ODd/+Hc2f/d19T/0szH/5GH + f/+Qhnz/hHtz/0tEO/9za2T/koh//4+FfP+QhXz/kIZ8/5CGff+Rhn3/kod9/5KHfv+SiH7/k4h+/5SJ + f/+UiX//jH5s/4qGgf8QdrD/AIPa/wCW/v8AmP//AJX9/wB74/8AeuL/AHri/wB74/8Ae+P/AHzk/wB9 + 5f8AfeX/AH7m/wB/5/8AgOj/AIHp/wCC6v8Ag+v/AITs/wCF7f8Ahu7/AIjw/wCJ8f8AivL/AIvz/wCM + 9f8Ajvb/AI/3/wCQ+P8Akvr/AJP7/wCV/f8Alv//AJr//wCg//8CnP//BYfe/whbkv8IK0H/DxAR/yIZ + E/8iHBj/FxYV/xISEv8ZGRn/Ly8v/zAwMP8zMzP/TExM/ysrK/9WVlb/fn5+/1RUVP9JSUn/ZmZm/0lJ + Sf8ICAj/BwcH+AEBASwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAB1dHEMn5uW3NbPyP/Z1M//2dTQ/9nU0P/c2NP/y8W+/8S8tf/MxL7/z8nC/9bPyv/b1dH/29TQ/9rT + z//Z0s3/1tDL/9TOyf/SzMf/0szG/9TNx//Vz8j/2dPN/9/a1f/k4dz/6+jl//Lv7f/39fT/+ff3//f3 + 9v/x7+3/6ufl/+Pf3P/d2NP/2tTQ/9nTzv/TzMj/lImB/4+Fe/+OhXz/b2ZZ/0VAO/+Adm7/k4l//5CG + ff+Rhn3/kod9/5KHff+SiH7/k4h+/5SJfv+UiX//lIl//5WKf/+Nf23/ioaB/xB2sP8Ag9r/AJb+/wCY + //8Alf3/AHzk/wB74/8AfOT/AHzk/wB95f8AfeX/AH7m/wB+5v8Af+f/AIDo/wCB6f8Agur/AIPr/wCE + 7P8Ahe3/AIbu/wCH7/8AiPD/AIry/wCL8/8AjPT/AI71/wCP9/8AkPj/AJL6/wCS+v8AlPz/AJX9/wCX + //8Bl///Apj//wOa//8Env//BKP//wad/v8Ff83/BE5+/xk2SP8tKyv/SkE7/zItK/8lJCP/JiYm/yQk + JP89PT3/QkJC/yEhIf9PT0//ampq/2hoaP9eXl7/FxcX/wcHB/8EBAThAQEBEwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHJwbgyemZTc19DK/9rV0P/c19L/3NfT/9vW + 0v/d2NT/3tjU/93X1P/d19P/3NbR/9rU0P/Z0s7/2NLN/9rTz//b1dH/39vX/+bi4P/t6uj/8/Hv//n4 + +P/9/fz//f39//z8/P/49vX/7+3q/+fj3//e2dX/19DL/9TMx//RysT/083H/9jRzP/f2NP/3dfS/9TO + yv+bkYj/j4R6/5CGff+YjHv/ZF1V/25mXv+VioD/kod9/5KHfv+SiH7/koh+/5OIfv+UiH7/lIh+/5WJ + f/+VioD/loqA/41/bf+Kh4H/EHaw/wCD2v8Alv7/AJj//wCV/f8Afub/AH3l/wB95f8Afub/AH7m/wB/ + 5/8Af+f/AIDo/wCB6f8Agen/AILq/wCD6/8Ahe3/AIbu/wCH7/8AiPD/AInx/wCK8v8AivL/AIz0/wCN + 9f8Ajvf/AI/3/wCR+f8Akvr/AJT8/wCV/f8Alv7/AJf//wGY//8Cmf//A5r//wSa//8Fm///Bp7//wei + //8Jp///DJ/9/xKCyP8ucJv/N0pW/xwYF/8dFQ//HBkW/x0cHP9DRET/NDQ0/xcXF/8jIyP/Kioq/xMT + E/8JCQn/BgYG/wEBAa0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAbmxpDJuWkd3X0cr/3NfT/97Z1f/e2dX/3tnV/93Y1P/d2NT/3djU/9zX0//d2NT/39rX/+Tf + 3P/p5uP/7+zq//Xz8v/39/b/+Pj3//f29f/08vD/7ero/+fj3//f2db/2NHM/9HKw//QyL//0cnC/9fQ + yf/e19L/5uDb/+zn4//l4d//2NXU/8LBwP/Ev7v/2NLN/5uSif+PhXv/k4l+/3x3cP9ZVlX/fHZw/6GX + jv+TiH7/kYZ7/5KHff+UiH7/lIh+/5WJf/+fk4n/nJCF/5eLgP+Win//jX9t/4yIgf8RdrD/AIPa/wCW + /v8AmP//AJX9/wB/5/8Afub/AH/n/wB/5/8Af+f/AIDo/wCA6P8Agen/AILq/wCD6/8AhOz/AITs/wCG + 7v8Ah+//AIjw/wCJ8f8AivL/AIvz/wCM9P8AjfX/AI72/wCP9/8Akfn/AJL6/wCT+/8AlP3/AJb+/wCX + //8BmP//Apj//wOZ//8Emv//BZv//wab//8HnP//CJ3//wme//8KoP//CaX//wmm//8Qnvf/EXq6/xNM + bv8UIiv/Ew0J/xkRDP88OTf/MjIy/xUVFf8NDQ3/DAwM/wkJCf8DAwP/AAAA5AAAAI4AAAAvAAAAAwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABta2gLmpWQ2tjSy//d2dX/3trX/9/a + 1v/f2tb/4NvY/+Ld2v/l4d7/6efk/+3r6f/x7+7/8fDu//Lw7v/v7Ov/6+jm/+bk4P/h3dr/3NfT/9jS + zf/W0Mr/2NDL/93W0f/j3Nj/6OPe/+vn4v/f3Nn/0M7M/7W0tP+UlJP/c3Ny/1pZWP9CQD7/IiEf/4F/ + e//h29f/nZOL/5CFfP+YjoP/SUVA/yUjIf9NTEr/iYWD/56Zlf+ooJn/n5SK/5SIff+Thnz/lIl//2xo + ZP9ybWn/lYyE/56SiP+PgG3/jIiB/xF2sP8Ag9r/AJb+/wCY//8Alf3/AIDo/wB/5/8AgOj/AIDo/wCB + 6f8Agen/AILq/wCC6v8Ag+v/AITs/wCF7f8Ahu7/AIbu/wCI8P8AifH/AIry/wCL8/8AjPT/AI31/wCO + 9v8Aj/f/AJD4/wCR+f8Ak/v/AJT8/wCV/f8Al///AZf//wGY//8Cmf//A5r//wSa//8Fm///Bpz//wed + //8Inv//Cp7//wqf//8LoP//DKH//wyj//8Oqf//D6n//xCZ7f8Rcav/Dj1Z/w4XHf8lHRj/KSIe/xwZ + GP8ODg7/BQUF/wAAAP8AAAD/AAAA/wAAAPcAAAA8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAHBubAOVkY3F2NLN/9/a1//i3tv/5eHe/+jk4v/q5+X/7Ono/+zq6P/s6ef/6ebk/+bi + 3//j39z/39vX/93X1P/d2NP/4NvX/+bh3f/q5uP/8e3q//Lv7P/g3dz/zs3M/62srP+KiYn/aWho/1RS + Uf9IRED/SEQ+/1BKQ/9VTkf/W1RO/19ZUv88ODP/fXl3/+Te2v+kmpL/kIV7/5SJf/9zamL/opOH/56P + gf+JfHH/Pjw6/1ZWV/+GhIT/qqWi/7CnoP+hloz/bGNb/zk0Mf9ZU07/fXZv/5WLf/+PioT/EXaw/wCD + 2v8Alv7/AJj//wCV/f8Agur/AIHp/wCC6v8Agur/AILq/wCD6/8Ag+v/AITs/wCF7f8Ahe3/AIbu/wCH + 7/8AiPD/AInx/wCK8v8Ai/P/AIz0/wCN9f8Ajvb/AI/3/wCQ+P8Akfn/AJL6/wCT+/8Alf3/AJb+/wCX + //8BmP//Apn//wOZ//8Emv//BZv//wab//8HnP//CJ3//wme//8Kn///C6D//wyg//8Nof//DqL//w+j + //8QpP//Eaf//xKt//8Tq///EZXh/wxlmf8LM0v/CQ8T/wIAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AEwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAamhlAZGOisDb1dH/5N/c/+fj + 4P/n4+L/5uPh/+Xi3//j393/4t7b/+Hd2f/j39v/6OTh/+7q5//y7+z/+PXz//Hv7f/b2tn/xsbF/6Sk + pP96enn/WVlY/z49PP87NzT/Lion/0hCPP9aUkv/aGBY/3RrYv98cmn/fHJq/3ZtZf9tZl7/amNc/zw3 + M/9taWf/5+Hc/6aclP+Rhnz/lYl//3tyav+0qJ7/saOY/6GUiP92bmT/XFRN/z46Nv8+PDz/ZWZm/5qZ + mP+7tbH/s6mi/5eMgv9+c2n/j4R4/4+LhP8Sd7D/AIPa/wCW/v8AmP//AJX9/wCE7P8Ag+v/AIPr/wCD + 6/8AhOz/AITs/wCF7f8Ahe3/AIbu/wCG7v8AiPD/AIjw/wCJ8f8AivL/AIvz/wCM9P8AjfX/AI72/wCP + 9/8AkPj/AJH5/wCS+v8Ak/v/AJX9/wCW/v8Al///AZj//wKY//8Dmf//BJr//wSb//8Fm///Bpz//wed + //8Inf//CZ7//wqf//8LoP//DKH//w2i//8Oov//D6P//xCk//8Rpf//EqX//xOm//8Tq///FLH//xSr + //8RjdD/DF6L/wUlN/8BAwX/AAAA/wAAAP8AAAD/AAAASgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAjYqGrdrU0f/i3tv/49/c/+Pf3f/n4+H/7+vp//Tx7v/39fP//fv5/+3s + 7P/X19b/vr6+/5WVlf9tbGz/T09O/zg3Nf8qJyT/Mi4q/zkzLv8WExH/KSYj/yglIv8yLir/Z19Y/2tj + W/9tZV3/cGhg/3RrYv92bWX/eG9n/3RsZP9waWH/Qjw3/2hlY//q5OD/raOb/5GGe/+ViX7/gXlz/8jA + uv/DubH/q6CW/3VtY/9tZV3/amJa/1pTTP8+OTT/LCkn/0FBQf93dnj/q6mo/8G7t/+bjn7/jIeB/xN4 + sP8AhNr/AJf+/wCY//8Alv7/AIXt/wCE7P8AhOz/AIXt/wCF7f8Ahe3/AIbu/wCH7/8Ah+//AIjw/wCI + 8P8AivL/AIry/wCL8/8AjPT/AI31/wCO9v8Aj/f/AJD4/wCR+f8Akvr/AJP7/wCU/P8Alf3/AJf//wGX + //8BmP//Apn//wOa//8Emv//BZv//wac//8HnP//CJ3//wme//8Kn///C6D//wyg//8Nof//DqL//w+j + //8QpP//EaT//xKl//8Tpv//E6f//xOn//8UqP//Far//xew//8YtP//GKz//xSLyv8NVHv/BR0r/wAA + AP8AAABGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABta2io3dnV/+Tg + 3v/18/H//fz7/+vq6f/Ozs3/tLS0/4WFhf9cXFv/Ozs7/ycmJv8JCAj/EQ8O/xMRD/8YFRP/Pzs2/0pE + QP9JRD//Ih8d/xIQEP8wLSr/S0VB/2FaU/9iW1T/ZV5X/2lhWf9sZV3/cGhg/3NrYv92bmX/eXBn/3Zu + Zf9RS0X/XlpZ/+fh3f+xqKH/kYZ7/5WJfv+Gf3r/2tbU/9TOyP+0qqL/aWJa/15XUP9ZU0z/VE5I/1JL + Rv9MRkH/OjUx/yQgHv8kIiL/Tk5Q/6qjnv+NiIH/EXeu/wCG2v8BmP7/AJj//wCW/v8Ahu7/AIXt/wCG + 7v8Ahu7/AIbu/wCH7/8Ah+//AIjw/wCI8P8AifH/AIry/wCK8v8AjPT/AIz0/wCN9f8Ajvb/AI/3/wCQ + +P8Akfn/AJL6/wCT+/8AlPz/AJX9/wCW/v8Al///AZj//wKZ//8Dmf//BJr//wWb//8Gm///B5z//wed + //8Inv//CZ7//wqf//8LoP//DaH//w2i//8Oov//D6P//xCk//8Rpf//EqX//xOm//8Tp///E6j//xSo + //8Wqv//F6r//xir//8Zrf//G7T//xy2//8bq/n/FoK9/xJqmnEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAEJBQKbe2db/8e3r/7i4uP9GRkb/Ly8w/xMSEv8EBAT/CAcH/w4N + DP8aGBf/FhUT/wwLC/8XFhX/HRwa/zEuK/81MS7/KCYk/yIgHv8uKyn/SUM//1ZQSv9YUkz/WlNN/15X + UP9hWlP/Zl5X/2lhWv9tZV3/cGhg/3NrYv92bmX/e3Jp/1lSS/9VUlD/5eDc/7eup/+Shnv/lYl9/42H + gv/n5eX/3trX/7iwqf9dVlD/U0xH/09JRP9JRD//RD87/z87N/87NzT/ODQx/y8sKP8YFxb/lY+K/5GM + hf8SeK7/AYfa/wOZ/v8Bmf//AJb+/wCI8P8Ah+//AIfv/wCH7/8AiPD/AIjw/wCJ8f8AifH/AIry/wCK + 8v8Ai/P/AIz0/wCM9P8Ajvb/AI72/wCP9/8AkPj/AJH5/wCS+v8Ak/v/AJT8/wCV/f8Alv7/AJf//wGY + //8Cmf//A5n//wSa//8Em///BZv//wac//8Hnf//CJ3//wme//8Kn///C6D//wyg//8Nof//DqL//w+j + //8QpP//EaT//xKl//8Tpv//E6f//xOn//8UqP//Fan//xaq//8Xq///GKz//xms//8arf//G67//xyx + //8et///H7j/qAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACmlohYg3t06M7K + x//28vD/jo2N/wAAAP8PDg7/EhER/xUUFP8UFBT/FxUV/xYWFv8PDw7/GhkY/yglI/8wLSv/HBoZ/xgX + Fv8rKSb/Pzo2/0hDP/9LRkH/TkhD/1JMRv9WUEr/WlNN/15XUP9iW1T/Zl5X/2piWv9tZV3/cGhf/3Nq + Yf92bWX/Zl1V/1BOTP/h3Nj/vrau/5WIff+ViX7/mZKL/+Xj4v/f29f/vbWv/19ZVP9FQDv/RD86/z87 + N/86NjP/NTIv/zEuK/8sKSf/KCYj/xkYGP+RioX/ko2H/xR4r/8CiNr/BZr+/wOa//8Bl/7/AInx/wCI + 8P8AifH/AInx/wCJ8f8AivL/AIry/wCL8/8Ai/P/AIz0/wCM9P8AjfX/AI72/wCP9/8AkPj/AJD4/wCR + +f8Akvr/AJP7/wCU/P8Alf3/AJb+/wCX//8BmP//AZn//wOZ//8Dmv//BJr//wWb//8GnP//B5z//wid + //8Jnv//Cp///wqf//8LoP//DaH//w6i//8Oov//D6P//xCk//8Rpf//EqX//xOm//8Tp///E6j//xSo + //8Wqf//Fqr//xer//8YrP//Ga3//xqt//8brv//HK///x2w//8esf+kAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAKaWiaeakIb/xcK///Tw7v+srKv/DAwM/xgXF/8TEhL/Dg0N/wsL + C/8REBD/FRQU/xwbGv8iIB//JiMi/yonJf8nJCP/My8s/zo2M/89ODX/QTw4/0ZBPP9KRT//TkhD/1JM + Rv9WUEr/WVNN/15WUP9gWVL/Y1xU/2dfV/9rY1v/cmpi/4F5cf91bWb/REJA/93Y1P/EvLb/l4p+/5aJ + fv+elY3/4t7b/9/Z1f+8tK3/e3dz/1NPS/84NDD/NDAt/zEuK/8sKif/KCYk/yQiIf8iIB//CQkJ/4iB + fP+Uj4j/FHmv/wOJ2v8Gm/7/BJv//wKY/v8Ai/P/AIry/wCK8v8AivL/AIvz/wCL8/8Ai/P/AIz0/wCM + 9P8AjfX/AI72/wCO9v8Aj/f/AJD4/wCR+f8Akvr/AJL6/wCT+/8AlPz/AJX9/wCW/v8Al///AZj//wGY + //8Dmf//A5r//wSa//8Fm///Bpz//wec//8Hnf//CJ7//wme//8Kn///C6D//wyg//8Nov//DqL//w+j + //8QpP//EaT//xKl//8Tpv//E6f//xOn//8UqP//Fan//xaq//8Xq///GKz//xms//8arf//G67//xyv + //8dr///HrD//x+x/6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAqp2Rn6Oa + kv+8ubf/8/Du/8C/v/8cHBz/Ozo6/ywsLP8cHBz/GBgY/xQUFP8TEhL/FhUU/xoYF/8eHBv/IyEf/yon + Jf8tKij/Mi4r/zYyL/87NjP/Pzo2/0M+Of9HQTz/S0ZB/1BKRf9VT0n/XldR/2hhW/9zbWf/gXp0/5CK + hP+clpH/qqWf/5CKhP9EQT7/2NTQ/8vDvv+ZjIH/mIt//6SYjv/NxsD/z8a//6yimv9yb2z/cG1r/1ZT + Uf8zMC7/JSMg/yIgHv8gHh3/HRsa/xsZGf8FBQX/iYJ9/5WQif8Weq//BIra/wec/v8GnP//A5n+/wCM + 9P8Ai/P/AIvz/wCM9P8AjPT/AIz0/wCN9f8AjfX/AI72/wCO9v8Aj/f/AJD4/wCR+f8Akfn/AJL6/wCT + +/8AlPz/AJT8/wCV/f8Alv7/AJf//wGY//8BmP//A5n//wOa//8Emv//BZv//wab//8HnP//B53//wid + //8Jnv//Cp///wug//8MoP//DaH//w6i//8Po///EKP//xGk//8Rpf//Eqb//xOm//8Tp///E6j//xSo + //8Vqf//Fqr//xer//8YrP//Ga3//xqt//8brv//HK///x2w//8esP//H7H/pAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC1qqCftKym/7Wyr//x7ez/zczM/yYmJv9BQUH/QUFB/0FB + Qf89PDz/ODc3/zIxMf8uLSz/LCsq/y0sK/8wLi3/Mi8t/zQxL/85NjT/PTo3/0M/Pf9LSET/Uk5K/1tX + U/9kYFz/b2tm/3p2cv+FgXz/jYiE/5WQjP+alZH/nJeT/5+alf+loJv/kIqE/zs4Nf/Szsv/083G/5uO + g/+fkof/gndu/yklI/9gXFj/b2pn/2RiYP9lYmD/Z2Vk/15cW/9BQD//JyUk/xkXFv8TERH/ERER/wME + BP+Kg33/lpCJ/xZ7r/8Gi9r/CZ3+/wed//8Fmv7/AI71/wCN9f8AjfX/AI31/wCN9f8Ajvb/AI72/wCP + 9/8Aj/f/AJD4/wCQ+P8Akfn/AJL6/wCS+v8Ak/v/AJT8/wCV/f8Alv7/AJb+/wCX//8BmP//Apj//wKZ + //8Dmf//BJr//wWb//8Gm///Bpz//wed//8Inf//CZ7//wqf//8Ln///C6D//wyh//8Oov//DqL//w+j + //8QpP//EaX//xKl//8Tpv//E6f//xOn//8UqP//Fan//xaq//8Xq///GKz//xms//8arf//G67//xyv + //8dr///HrD//x+x//8gsv+kAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALyy + qZ/Evbf/sK2q/+vo5v/Z2Nf/MTEx/zg4OP86OTn/Ojk5/zo5Of87Ojr/PDw8/z49Pf9BQED/RURE/0pJ + SP9NTEv/UlBP/1dVU/9cWVj/Yl9d/2lmY/9va2n/dXJv/3l1cv98eXX/gX15/4WAfP+JhID/jIeD/5CL + hv+Tj4r/mZSP/6Cblv+Vj4n/QT47/9DMyP/a1ND/nZCF/5+Rhf+QhHr/ExEQ/0RCQf9dW1n/WVdV/1lX + Vv9YV1b/W1lY/11cXP9XVlb/SEdH/zc2Nv8qKyr/EhIT/5aPiv+Uj4f/F3uv/weM2v8Knv7/CZ7//wab + /v8Aj/b/AI72/wCP9/8Aj/f/AI/3/wCP9/8AkPj/AJD4/wCR+f8Akfn/AJL6/wCS+v8Ak/v/AJT8/wCV + /f8Alf3/AJb+/wCX//8Al///AZj//wKY//8Cmf//A5n//wSb//8Em///Bpv//wac//8Hnf//CJ3//wme + //8Kn///Cp///wug//8Mof//DaH//w6i//8Po///EKT//xGk//8Spf//E6b//xOm//8Tp///E6j//xSp + //8Vqf//Fqr//xir//8YrP//Ga3//xqt//8brv//HK///x2w//8esP//H7H//yCy/6QAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAvbOsn83Fwf+tqaf/5eLg/+bk4/89PT3/MTAw/zc1 + Nf81NTX/NTQ0/zU0NP81NDT/NTQ0/zc2Nv85ODj/Pj08/0RCQv9KSEf/T01M/1VSUf9aV1X/Xlxa/2Rh + Xv9pZWP/bmpn/3NvbP95dXH/f3t3/4SAfP+Ggn3/iYR//4qEf/+CfXj/e3Vw/2tlX/8kIh//y8fE/9/a + 1f+lmI7/mIt//4+Def8sKCT/GxoZ/z8+Pf9QTk3/UE9O/09NTf9PTk3/UE9P/1NTU/9YV1f/X15e/1tb + W/8cHB3/lo+K/5WQh/8YfK//CYza/wyf/v8Kn///B5z+/wCR+P8AkPj/AJD4/wCQ+P8Akfn/AJH5/wCR + +f8Akvr/AJL6/wCT+/8Ak/v/AJT8/wCV/f8Alf3/AJb+/wCW//8Al///AZj//wGY//8Cmf//A5n//wSa + //8Emv//BZv//wab//8GnP//CJ3//wid//8Jnv//Cp///wqf//8LoP//DKD//w2h//8Oov//D6L//xCj + //8RpP//EaX//xKm//8Tpv//E6f//xOo//8UqP//Fan//xaq//8Xqv//GKv//xms//8arf//G67//xyv + //8dr///HrD//x+x//8gsv//IbL/pAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAC5rqafyL+5/6mkoP/Z19b/9vX0/0lJSf8qKSn/NDMz/zExMf8wMDD/Ly4u/y8uLv8vLi7/MS8w/zEx + Mf80MzP/OTg4/z8+Pf9GREL/S0pI/1JQTv9YVVP/W1hV/15bWP9gXFn/XFhV/1ZSTv9OSkb/RUE9/0I/ + O/8+Ozj/Ozg1/0dDQf9UUk//ZmNh/4WCf//c1tT/4dzY/62hlv+Qg3j/W1NM/2phWf9sY1r/LCcl/x0c + HP8tLi7/QUFB/0lJSf9LSkr/Tk1N/1BQUP9WVVX/UlFR/x4eH/+ck43/lY6H/xp9rv8Kjdr/DaD+/wuh + //8Jnf//AJL5/wCR+f8Akfn/AJL6/wCS+v8Akvr/AJP7/wCT+/8Ak/v/AJT8/wCV/f8Alf3/AJb+/wCX + //8Al///AJf//wGY//8CmP//Apn//wOZ//8Dmv//BJr//wWb//8Gm///B5z//wid//8Inf//CZ7//wme + //8Kn///C6D//wyg//8Nof//DaL//w6i//8Qo///EKT//xGl//8Spf//E6b//xOn//8Tp///FKj//xWp + //8Vqv//Fqr//xir//8YrP//Gq3//xuu//8brv//HK///x6w//8esP//H7H//yCy//8hs/+kAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALGkmqjCtqz/qKCa/8vIx//+/Pz/XVxc/yUk + JP8xMTH/Li4u/y0sLP8rKir/Kyoq/ysqKv8rKir/LCsr/ywrK/8rKir/Li0s/y4sK/8sKSj/KCYl/yMi + IP8nJST/Kyoo/y4sKv88OTj/UlBO/2hmY/99e3j/lZKQ/62qp//JxcL/1dHN/9/b1//q5uL/7unl/+Hd + 2P/g29j/s6mf/5yMgP+klYj/pZeK/6aYi/+dj4T/cWde/zo1MP8aGRj/HBwd/zIyMv9ERET/T09P/1dX + V/9KSUn/JCUl/6uhmv+TjYT/Gn6u/wuP2v8Pov7/DaH//wqf//8AlPv/AJP7/wCT+/8Ak/v/AJT8/wCU + /P8AlPz/AJX9/wCV/f8Alf3/AJb+/wCW/v8Al///AJj//wGY//8Cmf//Apn//wOZ//8Emf//BJr//wWb + //8Fm///Bpz//wad//8Hnf//CJ7//wme//8Kn///C5///wug//8Mof//DaH//w6i//8Oov//D6P//xCk + //8RpP//EqX//xOm//8Tpv//E6f//xOo//8Vqf//Far//xaq//8Xq///GKz//xms//8arf//G67//xyv + //8dsP//HrD//x+x//8gsv//IbP//yKz/6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAqpuOaHduZr6EfHVYuba18vz7+v91dXX/IyIi/zIyMv8sKyv/KCcn/yMjI/8dHBz/FhYW/xAP + D/8JCQn/Dw4P/xcXF/8gHx//MzIy/0xKSv9nZmX/g4KB/56bmv+4trX/1NLP/+Lf3f/o5uP/8e3q//Lu + 6v/r5+P/5uHc/9/Z1P/Y0s3/1M3H/9DJw//NxsD/zMW+/8vDvf/Hvrn/vLGq/62imf+ilIn/nY+C/5+Q + hP+nmIv/pZeK/4yAdf9bU0z/Lysn/xsaGf8eHh//LCwt/x8fIP84Ojz/uq2k/5CKgv8bf6//DJDa/xCj + /v8Oov//C5///wCV/P8AlPz/AJX9/wCV/f8Alf3/AJb+/wCW/v8Alv7/AJb//wCX//8Al///AJj//wGY + //8Cmf//Apn//wOZ//8Dmv//BJr//wSb//8Fm///Bpv//wac//8GnP//CJ3//wme//8Jnv//Cp///wuf + //8LoP//DKH//w2h//8Oov//DqL//w+j//8QpP//EaT//xKl//8Tpv//E6f//xOn//8UqP//FKn//xWp + //8Wqv//F6v//xir//8ZrP//Gq3//xuu//8cr///Ha///x6w//8fsf//ILL//yCy//8hs///IrT/pAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADg0MYAIDAl6OjIrh/Pr4/42M + jP8RERH/Ghoa/xcXF/8eHh3/JCQk/zIxMf9PTk7/bW1s/4yLiv+npqb/w8LB/97d3P/u7Ov/8/Hw//j3 + 9f/59/T/8+7s/+rm4//i3Nj/2NPN/9HJxP/Kwrz/xr22/8K5sf+/ta7/vbSs/7+1rv+/tq//wLex/8K5 + s//GvLf/yL65/8vCvf/OxsH/zsjC/8nCu/+8sqr/raGW/6KTh/+fkIL/o5SH/6qajf+klYn/jYB1/2ph + WP9PSEH/OzUw/4R8d/+xoZT/koyE/x1/r/8Nkdr/EaT+/w+j//8Mof//AZb+/wCW/v8Alv7/AJb+/wCX + //8Al///AJf//wCX//8BmP//AZj//wGY//8CmP//Apn//wOZ//8Dmv//BJr//wSa//8Fm///BZv//wac + //8HnP//B53//wid//8Inv//CZ7//wqf//8LoP//C6D//wyh//8Nof//DqL//w6i//8Po///EKT//xGk + //8Spf//E6b//xOm//8Tp///E6j//xSo//8Vqf//Fqr//xeq//8Yq///GKz//xmt//8arf//G67//xyv + //8dsP//HrD//x+x//8gsv//IbP//yKz//8jtP+kAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAQAAAASmBfXaPt6+n/xsXF/2tqav+SkpL/r6+w/8bHx//h4eH/9fX1//v6 + +/////////z8//bz8f/t6uj/4t3Z/9fQyv/NxL3/xLuz/760q/+4raT/tKie/7Omnf+zqJ7/tKif/7Wq + oP+3rKP/ua+m/7uxqf+9tKz/v7av/8G4sf/CurP/xLu1/8e+uP/JwLr/y8K9/8zDv//OxsH/0MvF/9TO + yv/Tzcn/ysO+/7yyq/+sn5T/opSH/6CRg/+llYj/rJyO/6ucjv+pmYz/qJiL/6iWiP+Sj4n/G4Cx/w+R + 2v8Spf7/EKT//w2h//8BmP//AJf//wCX//8Bl///AZj//wGY//8BmP//AZj//wKY//8Cmf//Apn//wOZ + //8Dmv//BJr//wSa//8Fm///BZv//wac//8GnP//B5z//wed//8Inf//CZ7//wme//8Kn///C6D//wyg + //8Mof//DaH//w6i//8Oov//D6P//xCk//8RpP//EaX//xOm//8Tpv//E6f//xOo//8UqP//Fan//xaq + //8Wqv//F6v//xis//8ZrP//Gq3//xuu//8crv//HbD//x6w//8fsf//ILL//yGy//8is///I7T//yO1 + /6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcG5rMr+8 + u//49vb/+/r6//37+//39fP/7+zq/+Le2v/Vzsj/yL+3/76zqv+2qp//rqCV/6maj/+nmIz/qJqN/6ia + jv+pm4//q56S/66hlv+wpJr/s6ee/7SpoP+2q6L/uK2k/7mvpv+7san/vLKr/760rf+/tq//wbix/8K6 + s//EvLb/x724/8nAu//Lwr3/zMS//87Hwf/PycP/0cvG/9LNyv/W0c7/2NPS/9fS0P/MxsH/u7Gp/6yf + lP+jk4b/opKF/6SUh/+llon/q5mK/4uPjP8VgLT/EZPa/xOl/v8Rpf//DqL//wKY//8BmP//AZj//wKY + //8Cmf//Apn//wKZ//8Dmf//A5n//wOZ//8Dmv//BJr//wSb//8Fm///BZv//wac//8GnP//B5z//wed + //8Inf//CJ7//wme//8Kn///Cp///wug//8MoP//DKH//w2h//8Oov//DqL//w+j//8QpP//EaT//xGl + //8Tpf//E6b//xOn//8TqP//FKj//xWp//8Vqv//Fqr//xer//8YrP//Gaz//xqt//8brv//HK7//x2v + //8esP//H7H//x+x//8gsv//IbP//yK0//8jtP//JLX/pAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABta2gBgX98kLewqPa7r6X/tKec/62fkv+llon/opKF/6GS + hP+gkIP/oJCC/6GRhP+jlIf/ppeL/6iajv+qnJD/q56S/62flP+uoZf/sKOZ/7Glm/+zqJ7/tamg/7ar + ov+4raT/ua+n/7uxqf+8s6v/vrSt/7+2r//BuLH/wrqz/8W8tv/Ivrn/ycC7/8vCvf/MxL//zsjB/8/J + xP/Ry8j/0s3K/9TPzP/V0c7/19PR/9vX1f/d2tn/29fV/9LLx//EuLD/uKib/7Gdj/+0mYf/aoiS/wyC + u/8Tk9r/E6b+/xKm//8Po///A5n//wOZ//8Dmf//A5n//wOZ//8Dmf//A5r//wSa//8Emv//BJr//wSb + //8Fm///BZv//wac//8GnP//B5z//wed//8Inf//CJ3//wme//8Jnv//Cp///wqf//8LoP//DKD//w2h + //8Nov//DqL//w+j//8Po///EKT//xGk//8Rpf//EqX//xOm//8Tp///E6j//xSo//8Vqf//Fan//xaq + //8Xq///GKv//xms//8Zrf//Gq3//xuu//8cr///HbD//x6w//8fsf//ILL//yGz//8is///I7T//yS1 + //8ltf+kAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAeHJsLX52b3KRhnu5mIuA5qGShf+llon/ppaJ/6aWif+lloj/pJWI/6WWif+nmIz/qJqO/6qc + kP+rnpL/rZ+U/66hl/+wo5n/saWb/7Oonv+1qaD/tqui/7itpP+5r6f/u7Gp/7yzq/++tK3/v7av/8G4 + sf/CurP/xb22/8i+uf/JwLv/y8K9/83Ev//OyMH/0MrE/9HLyP/Uzsv/19LO/9zV0f/g2NP/4tnU/+Pa + 1//h2db/1tPR/8PMz/+pusD/gZ6p/1aGmv8fga3/EYe//xOW3f8Tp/7/E6b//xCk//8Emv//BJr//wSa + //8Emv//BJr//wSa//8Emv//BZv//wWb//8Fm///Bpv//wac//8GnP//B5z//wed//8Inf//CJ3//wme + //8Jnv//Cp///wqf//8LoP//C6D//wyg//8Nof//DaL//w6i//8Po///EKP//xCk//8RpP//EqX//xKm + //8Tpv//E6f//xOo//8TqP//FKn//xWp//8Wqv//F6v//xir//8YrP//Ga3//xqt//8brv//HK///x2v + //8esP//H7H//yCy//8hsv//IrP//yK0//8jtf//JLX//yW2/6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB9dnEchX52SId/ + d4mUiX7Bm46C56GThv+llon/p5iK/6majf+pm4//qpyQ/6uekv+tn5T/rqGW/7Cjmf+xpZv/s6ie/7Wp + oP+2q6L/uK2k/7mvpv+7san/vLOr/760rf+/tq//wbix/8K6s//EvLb/yL65/8vCvf/Qxb//08jC/9bM + w//XzMX/2M7J/9LJxf/Fwr//tbu8/6Cwtf+Ho63/aZan/06Npf83h6b/In6j/xV+qf8Pg7T/D4a6/xKJ + v/8Ujsr/FJvl/xSo/v8Tp///EaT//wWb//8Fm///BZv//wWb//8Fm///BZv//wab//8Gm///Bpz//wac + //8HnP//B5z//wed//8Inf//CJ3//wme//8Jnv//Cp///wqf//8Ln///C6D//wyg//8Mof//DaH//w6i + //8Oov//D6P//xCj//8QpP//EaT//xKl//8Spv//E6b//xOn//8Tp///E6j//xSo//8Vqf//Fqr//xer + //8Yq///GKz//xms//8arf//G67//xyu//8cr///HrD//x+x//8fsf//ILL//yGz//8itP//I7T//yS1 + //8ltv//Jrb/pAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACBenQbgnt0Q4Z+dnuPhnyzmY2D2aKW + iv+pnJD/rZ+T/7Cilv+wo5f/sKSZ/7Glm/+zp57/tKmg/7arov+4raT/ua+m/7yxqP++s6z/wrav/8W5 + sf/Ju7P/yby0/8q+tv/Jvbf/wriy/7Syr/+kra3/kKOm/3eXn/9ci5j/RYOW/zR9lP8kd5P/GHaX/xR6 + n/8UfaX/FIGq/xWEsf8Yi7z/Go/D/xqSyv8amdj/GJzh/xeg6v8Wpvf/Fan//xOo//8Spf//B5v//wab + //8GnP//Bpz//wac//8GnP//B5z//wec//8Hnf//B53//wid//8Inf//CJ7//wme//8Jnv//Cp///wqf + //8Ln///C6D//wug//8Mof//DaH//w2h//8Oov//D6P//w+j//8QpP//EaT//xGl//8Spf//E6b//xOm + //8Tp///E6f//xOo//8UqP//Fan//xaq//8Xq///GKv//xis//8ZrP//Gq3//xuu//8crv//HK///x2w + //8esP//H7H//yCy//8hs///IrP//yO0//8ktf//JbX//yW2//8mt/+kAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB7dnAQioJ7L4B6dGOSiYGblo2FxaOYj/CsoZb/saWb/7Wo + n/+4raP/t6yj/7uroP+9rKH/vK6l/7aro/+qp6L/nKOh/4ydnv96lZn/Zo6X/0+Gkv8+gpL/MX2Q/yR4 + j/8ceJL/GnqV/xt7mP8bfZz/HYKj/yCJrv8ijrj/I5TB/yOcz/8joNj/IqPg/yGp7P8hrfX/H675/x6v + /v8cr///Gq7//xis//8Wqv//FKj//xKm//8InP//B5z//wec//8Hnf//B53//wed//8Inf//CJ3//wid + //8Inv//CZ7//wme//8Jnv//Cp///wqf//8Ln///C6D//wug//8Mof//DaH//w2h//8Oov//DqL//w+j + //8Qo///EKT//xGk//8Rpf//EqX//xOm//8Tpv//E6f//xOn//8TqP//FKj//xWp//8Wqv//F6v//xir + //8YrP//Gaz//xqt//8brv//G67//xyv//8dsP//HrD//x+x//8gsv//IbP//yKz//8jtP//I7X//yS1 + //8ltv//Jrf//ye3/6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABta2gCi4R+Hnt2cUSSioN7mZGJrJSNhrmhkIaihKix0Gexxv9SlaX/QoeW/zaB + kf8sfY7/JX2Q/yJ/lP8jf5b/JIGZ/ySEnf8nh6L/KY2r/yqRs/8slrv/LJ/I/yyk0/8tqt7/LbHp/y22 + 8v8suPn/K7n9/ym5//8nuf//Jbf//yO1//8hs///H7H//x2v//8brf//Gaz//xeq//8Vqf//Eqb//wmd + //8Inf//CJ3//wid//8Inf//CJ7//wme//8Jnv//CZ7//wme//8Kn///Cp///wqf//8LoP//C6D//wyg + //8Mof//DaH//w2h//8Nov//DqL//w6i//8Po///EKP//xCk//8RpP//EqX//xKl//8Tpv//E6b//xOn + //8TqP//FKj//xSp//8Vqf//Fqr//xar//8Yq///GKz//xms//8arf//G67//xuu//8cr///Ha///x6w + //8fsf//H7H//yGy//8is///IrT//yO0//8ktf//Jbb//ya2//8nt///KLj/pAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABH1v17Pc77/zSmxv8ukqn/Lo2i/y+No/8xkqv/M5iz/zOcu/81pcf/N6zT/zey + 3P84uuj/OL/y/zjC+f83w/3/NsT//zTD//8ywv//MMD//y69//8su///Kbn//ye3//8ltv//I7T//yGz + //8fsf//HbD//xuu//8ZrP//Fqr//xOo//8PpP//CJ7//wme//8Jnv//CZ7//wme//8Kn///Cp///wqf + //8Kn///Cp///wug//8LoP//C6D//wyg//8Mof//DaH//w2h//8Nov//DqL//w6i//8Po///D6P//xCk + //8RpP//EaX//xKl//8Tpv//E6b//xOn//8Tp///E6j//xSo//8Uqf//Fan//xaq//8Wqv//GKv//xis + //8ZrP//Gq3//xuu//8brv//HK///x2v//8esP//HrH//x+x//8gsv//IbP//yK0//8jtP//JLX//yW2 + //8mtv//Jrf//ye4//8ouP+kAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEba/4RIz/n/Qbrf/z6y + 1P8+ttf/P7re/0HB6P9DyPL/Q8z5/0PO/v9Bzv//QM///z7O//88y///O8r//znH//83xP7/NcL+/zPA + /v8xv/7/L73+/yy7/v8quv7/KLj//yW2//8jtP//ILL//xyw//8Zrf//GKz//xmt//8arf//IrD//xKl + //8Hnf//BJv//wed//8Jnv//Cp///wuf//8LoP//C6D//wug//8MoP//DKD//wyg//8Nof//DaH//w2i + //8Oov//DqL//w+i//8Po///D6P//xCk//8QpP//EaT//xGl//8Tpf//E6b//xOm//8Tp///E6f//xOo + //8UqP//Fan//xWp//8Wqv//F6r//xes//8YrP//Gaz//xqt//8brv//G67//xyv//8dr///HrD//x6x + //8fsf//ILL//yGz//8is///I7T//yS1//8ltf//Jbb//ya3//8nt///KLj//ym5/6QAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAS9T+hErV/f9K1Pz/StT+/0vW//9K1///Sdb//0jU//9G0///RNH//0PP + /v9Bzv7/P8z+/z3K/v87yf7/Ocj+/zjF/v82w/7/M8H+/zG//v8uvf7/Krv+/ye4/v8mt///J7f//yi3 + //8tuv//N7///0HG//9MzP//WNT//2Xb//9v4f//Z9z//0/N//84vv//IK///xCj//8Jn///BZz//wie + //8Kn///DKD//w2h//8Nov//DaH//w6i//8Oov//DqL//w+j//8Po///EKT//xCk//8QpP//EaT//xGl + //8Spv//E6b//xOn//8Tp///E6f//xOo//8UqP//Faj//xWp//8Vqv//Fqr//xer//8Xq///Gaz//xqs + //8arf//G67//xuu//8cr///Ha///x6w//8esf//H7H//yCy//8hsv//IrP//yO0//8jtf//JLX//yW2 + //8mt///J7f//yi4//8puf//Kbn/pAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABN1v6ETdf+/03X + //9N1///Tdf+/0zW/v9L1f7/SNT+/0jT/v9G0f7/RND+/0LO/v8/zf7/Psv+/zvJ/v84x/7/NcT+/zXD + /v81wv7/NsL+/zrE/v9CyP7/Ssz+/1PS//9d1///Z93//23g//9y4///dub//3jm//935v//duX//3Xl + //925v//euj//3rp//9z5P//aN3//1LP//89wP//JrL//xWn//8Mof//B57//wmf//8Mof//DaL//w+j + //8QpP//EKP//xGk//8QpP//EaT//xKl//8Spv//E6b//xOm//8Tpv//E6f//xOn//8TqP//FKj//xSp + //8Vqv//Fqr//xeq//8Xq///GKv//xms//8ZrP//Gq3//xuu//8brv//HK///x2v//8esP//H7H//x+x + //8gsv//IbL//yGz//8jtP//I7X//yW2//8ltv//Jrf//ye3//8ouP//Kbn//ym5//8puf+kAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAE/Z/olP2f7/UNn+/0/Z/v9P2P7/Ttf+/0zW/v9K1f7/SNP+/0XS + /v9D0P7/Qs/+/0PO/v9Dzv7/R8/+/0zR//9S0///Wtb//2Da//9o3v//beD//2/i//9z5P//dOX//3Tk + //9z5P//cuP//3Pk//9y4///c+P//3Pk//9z5P//dOT//3Tk//905P//deX//3bm//945///e+n//3vp + //935v//buH//1nT//9Exv//Lbf//xqr//8Rpf//CqD//wuh//8Oo///D6P//xGl//8Spv//E6b//xOm + //8Tp///E6f//xOn//8UqP//FKj//xWo//8Vqf//Fqr//xaq//8Wq///GKv//xis//8YrP//Ga3//xqu + //8brv//HK///x2v//8dsP//HrD//x6x//8fsf//ILL//yGz//8hs///I7T//yO1//8ktf//Jbb//ya3 + //8nt///KLj//ym5//8puf//Kbn//ym5/6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAStT/S1Hb + /vpS2/7/Utv+/1Lb/v9Q2f7/T9j+/0/X/v9R1v7/Vtj//1rZ//9e2v//Y9z//2ne//9s3///buH//3Di + //9w4v//cOL//2/i//9w4f//cOL//3Di//9x4v//ceL//3Lj//9y4///cuP//3Pj//9z4///dOT//3Tk + //915P//deX//3Xl//915f//duX//3bl//925f//duX//3fm//945///e+n//3zq//945///ceP//2DY + //9Ny///N73//yGv//8WqP//D6P//w2i//8PpP//Eab//xKn//8TqP//FKj//xSp//8Vqf//Fqr//xaq + //8Xqv//F6v//xir//8YrP//Gaz//xqt//8arf//G67//xyu//8dr///HbD//x6w//8fsf//ILL//yCy + //8hs///IrP//yO0//8jtf//JbX//yW2//8mt///J7f//yi4//8ouf//Kbn//ym5//8puf//Kbn/pAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAU9z+OFLa/qdI0f/oSdD//03S//9T1P//Wtb//1/Z + //9j2v//Z93//2rf//9r3///bN///23g//9u4P//buH//2/h//9v4f//b+H//3Dh//9w4v//ceL//3Hj + //9y4///cuP//3Pj//9z4///dOT//3Tk//905P//deT//3Xk//915f//deX//3bl//925f//duX//3bl + //925f//duX//3bl//925f//duX//3fm//935v//euf//3zp//945///c+T//2Xb//9Tz///QMT//yq2 + //8brP//Eqf//w6k//8Qpv//Eqj//xSp//8Wqv//F6v//xir//8YrP//Gaz//xmt//8arf//G67//xuu + //8cr///Ha///x6w//8esP//H7H//yCy//8gsv//IbP//yKz//8jtP//I7X//yS1//8ltv//Jrf//ye3 + //8ouP//KLn//ym5//8puf//Kbn//ym5//8puf+kAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAADjC/xk6wf9IO8P/dT7F/6dDyP/XRsv/8kzO//9T0v//V9X//13Y//9i2v//Zdz//2nd + //9q3///beD//27h//9w4f//ceL//3Hi//9y4///cuP//3Pj//9z4///dOP//3Tk//905P//dOT//3Xk + //915f//deX//3bl//925f//duX//3bl//925f//dub//3fm//935v//d+b//3fm//925v//duX//3bl + //925f//duX//3bl//925f//d+b//3nn//945///dOX//2ne//9Z1P//R8n//zK8//8isv//Gav//xKo + //8Uqf//Far//xer//8ZrP//Gq3//xuu//8brv//HK///x2v//8esP//HrH//x+x//8gsv//ILL//yGz + //8is///I7T//yO1//8ktf//Jbb//ya3//8mt///KLj//yi4//8puf//Kbn//ym5//8puf//Kbn//ym5 + /6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADnB + /wM3wP8qO8P/TDzD/35ByP+3RMr/2krM//tQ0f//VtT//1zX//9h2v//Zdz//2je//9r4P//buH//3Hi + //9x4///c+P//3Pk//905P//dOT//3Xk//915P//deT//3Xl//925f//duX//3fl//935f//d+X//3fl + //935v//d+X//3fm//935v//d+b//3fm//935v//dub//3bl//925f//duX//3Xl//905f//dOT//3Tl + //905P//deX//3fm//925v//dOX//23h//9e1///T87//zzC//8qt///H7H//xis//8XrP//GKz//xqu + //8cr///HrD//x+w//8fsf//ILL//yGy//8hs///IrP//yO0//8jtf//JLX//yW2//8mtv//Jrf//yi3 + //8ouP//Kbn//ym5//8puf//Kbn//ym5//8puf//Kbn/pAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA3wP8KPMP/NDvE + /1k+xv+LQ8r/xEjM/+FNz///VNP//1nW//9f2f//Zdz//2nf//9t4P//b+H//3Li//9z5P//dOT//3Xl + //925f//duX//3fl//935f//d+X//3fm//935v//d+b//3fm//945f//d+b//3fm//935v//d+b//3fl + //935f//duX//3bl//925f//duX//3Xl//915P//deT//3Tk//9z5P//c+P//3Lj//9y4///cuP//3Pk + //905P//cuP//27h//9i2v//VNH//0TI//8yvf//J7b//x6w//8brv//HK///x2w//8gsv//IbP//yK0 + //8jtP//I7X//yS1//8ltv//Jrb//ya3//8ot///KLj//ym5//8puf//Kbn//ym5//8puf//Kbn//ym5 + //8puf+kAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAO8P/Fj/H/zc+x/9nQcn/m0bM + /8dMz//sU9P//1nW//9e2f//ZNz//2je//9s4P//cOL//3Hi//9z5P//deX//3bl//935f//eOb//3jm + //945v//eOb//3jm//945v//eOb//3jm//945v//eOb//3fl//935f//d+X//3fl//925f//duX//3Xl + //915P//dOT//3Pk//9z4///cuP//3Lj//9x4v//cOL//3Di//9v4f//buH//2/i//9x4v//cOL//27h + //9l3P//WtX//0zM//87w///Lrv//yW1//8fsv//ILP//yGz//8jtP//Jbb//ya2//8mt///J7j//yi4 + //8puf//Kbn//ym5//8puf//Kbn//ym5//8puf//Kbn//ym5/6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/I/yFCyf8+Qsr/cEfN/6hLz//NUNL/8lbV + //9c2P//Ydr//2bd//9q3///buH//3Hi//9z5P//deX//3fm//945v//eOb//3nm//955v//eOb//3jm + //945v//d+b//3fm//935f//d+X//3bl//925f//deX//3Xl//915P//dOT//3Tk//9z5P//cuP//3Lj + //9x4v//cOL//2/i//9v4f//buH//23g//9t4P//bN///2zg//9t4P//beD//2vf//9m3f//XNb//1HP + //9Cx///Nb///yy7//8ltv//JLb//yS2//8mt///KLj//ym5//8puf//Kbn//ym5//8puf//Kbn//ym5 + //8puf//Kbn/pAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAEDJ/wVEy/8kQ8v/SEbN/39Kz/+xTdH/01LT//pZ1///Xtn//2Tc + //9p3///beH//3Hi//9z4///deX//3fl//935v//eOb//3jm//945v//eOb//3fm//935f//d+X//3bl + //925f//deX//3Xk//905P//dOT//3Pj//9y4///cuP//3Hi//9x4v//cOL//2/h//9v4f//buD//23g + //9s4P//a9///2rf//9q3v//aN7//2jd//9p3v//ad7//2nd//9m3P//X9j//1bT//9JzP//PcX//zTA + //8ruv//J7j//ya3//8nuP//KLj//ym5//8puf//Kbn//ym5//8puf+kAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABDy/8LRsz/J0XM/1RHzv+ITND/tFDT/+BX1v/+XNj//2Hb//9m3f//at///27h + //9w4v//cuP//3Xl//925f//d+X//3fl//935f//d+X//3bl//925f//duT//3Xk//905P//dOT//3Pj + //9z4///cuP//3Hi//9x4v//cOL//2/h//9u4f//buH//23g//9s4P//a9///2vf//9p3v//ad3//2jd + //9n3P//Ztz//2bc//9n3f//aN3//2fd//9n3f//Ytr//1vV//9Pz///Qsf//zfB//8uvP//Kbn//yi4 + //8ouP//Kbn//ym5/6UAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAR83/FEbO/yxHzv9eTND/kU3R/7xS0//oWNb//1zY//9i2///Zt7//2rf//9u4f//cOL//3Lk + //905P//dOX//3Xl//915f//deX//3Xk//905P//dOT//3Pj//9y4///cuP//3Hi//9w4v//cOL//2/h + //9u4f//beD//23g//9s3///a9///2ne//9o3v//Z93//2Xc//9k2///ZNv//2Pa//9h2v//X9n//17Y + //9d2P//XNf//1rW//9Z1f//VdP//07P//9Eyv//OML//y+9//8ruv//Kbn/owAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEnO + /xZGzf80SM7/Z0vQ/5dN0f/CUtP/7lfW//9b2P//Ydr//2Xc//9p3///bOD//27h//9w4v//cuL//3Lj + //9z4///c+P//3Hi//9w4v//b+L//27g//9t4P//a9///2vf//9p3v//Z93//2Xc//9j2///Ydr//1/Y + //9c1///WdX//1fU//9W1P//VNP//1HR//9Nz///Ss3//0jM//9Fyv/8Qcf/8j7G/9o+xf/FPcX/rj7F + /5g7w/9/NsD/YjG9/0Qsu/8cAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAETM/wJIzf8WQ8z/PEfO + /25Jzv+bTND/xVDS/+9V1P//Wdf//1/Z//9j2///Zt3//2je//9o3v//Zt3//2Tc//9h2v//X9j//13Y + //9c1///Wtf//1nW//9V0///UNH//03P//9Lzf//Sc3/+0bL//VCyP/kP8b/zj7G/7k8xf+iPsT/jjrC + /3Y3wf9eNsD/RDW//ys4wP8YNsD/DTW//wQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABDzP8DRcz/FkHL/z9GzP9vRsz/mEnO + /8NO0P/oUdL/71HS/+9R0v/vTdD/70jN/+NEy//UQ8r/x0PK/7lByP+lQsn/k0HJ/4M8xf9sOcL/WzjB + /0Y2wf8wOsT/GjrC/w83wP8HAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA//////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////AAAAA////////////////wAAAAP///////////8AAAAAAAAAP///////////AAAAAAAAAD//// + ///8AAAAAAAAAAAAAP///////AAAAAAAAAAAAAD////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAA + AD//8AAAAAAAAAAAAAAAAAAP//AAAAAAAAAAAAAAAAAAD//AAAAAAAAAAAAAAAAAAAP/wAAAAAAAAAAA + AAAAAAAD/wAAAAAAAAAAAAAAAAAAAP8AAAAAAAAAAAAAAAAAAAD8AAAAAAAAAAAAAAAAAAAA/AAAAAAA + AAAAAAAAAAAAAPAAAAAAAAAAAAAAAAAAAADwAAAAAAAAAAAAAAAAAAAA8AAAAAAAAAAAAAAAAAAAAPAA + AAAAAAAAAAAAAAAAAADwAAAAAAAAAAAAAAAAAAAA8AAAAAAAAAAAAAAAAAAAAPAAAAAAAAAAAAAAAAAA + AADwAAAAAAAAAAAAAAAAAAAA8AAAAAAAAAAAAAAAAAAAAPAAAAAAAAAAAAAAAAAAAADwAAAAAAAAAAAA + AAAAAAAA8AAAAAAAAAAAAAAAAAAAAPwAAAAAAAAAAAAAAAAAAAD8AAAAAAAAAAAAAAAAAAAA/AAAAAAA + AAAAAAAAAAAAAPwAAAAAAAAAAAAAAAAAAAD/AAAAAAAAAAAAAAAAAAAA/wAAAAAAAAAAAAAAAAAAAP/A + AAAAAAAAAAAAAAAAAAD/wAAAAAAAAAAAAAAAAAAA//AAAAAAAAAAAAAAAAAAAP/wAAAAAAAAAAAAAAAA + AAD/+AAAAAAAAAAAAAAAAAAA//gAAAAAAAAAAAAAAAAAAP/4AAAAAAAAAAAAAAAAAAD/+AAAAAAAAAAA + AAAAAAAA//gAAAAAAAAAAAAAAAAAAP/4AAAAAAAAAAAAAAAAAAD/+AAAAAAAAAAAAAAAAAAA//gAAAAA + AAAAAAAAAAAAAP/4AAAAAAAAAAAAAAAAAAD/+AAAAAAAAAAAAAAAAAAA//gAAAAAAAAAAAAAAAAAA//4 + AAAAAAAAAAAAAAAAAAP/+AAAAAAAAAAAAAAAAAA///gAAAAAAAAAAAAAAAAAP//4AAAAAAAAAAAAAAAA + H///+AAAAAAAAAAAAAAAAB////gAAAAAAAAAAAAAAAAf///4AAAAAAAAAAAAAAAAH///+AAAAAAAAAAA + AAAAAB////gAAAAAAAAAAAAAAAAf///4AAAAAAAAAAAAAAAAH///8AAAAAAAAAAAAAAAAB////AAAAAA + AAAAAAAAAAAf///wAAAAAAAAAAAAAAAAH///8AAAAAAAAAAAAAAAAB////AAAAAAAAAAAAAAAAAf///w + AAAAAAAAAAAAAAAAH///8AAAAAAAAAAAAAAAAB////AAAAAAAAAAAAAAAAAf///wAAAAAAAAAAAAAAAA + H///8AAAAAAAAAAAAAAAAB////AAAAAAAAAAAAAAAAAf///wAAAAAAAAAAAAAAAAH///8AAAAAAAAAAA + AAAAAB////AAAAAAAAAAAAAAAAAf///wAAAAAAAAAAAAAAAAH///+AAAAAAAAAAAAAAAAB////gAAAAA + AAAAAAAAAAAf///8AAAAAAAAAAAAAAAAH////gAAAAAAAAAAAAAAAB////8AAAAAAAAAAAAAAAA///// + gAAAAAAAAAAAAAAAf////+AAAAAAAAAAAAAAAH/////wAAAAAAAAAAAAAAH/////+AAAAAAAAAAAAAAD + //////4AAAAAAAAAAAAP////////AAAAAAAAAAAA/////////4AAAAAAAAAAAH/////////gAAAAAAAA + AAA/////////8AAAAAAAAAAAH/////////4//AAAAAAAAA////////////wAAAAAAAAH///////////8 + AAAAAAAAA////////////AAAAAAAAAH///////////wAAAAAQAAA///////////8AAAAAOAAAH////// + /////AAAAAHwAAA///////////wAAAAD+AAAP//////////+AAAAB/4AAD///////////wAAAA//AAA/ + //////////+AAAAf/4AAH///////////wAAAP//AAD////////////AAAD//4AA////////////4AAB/ + //AAP////////////AAA///4AH////////////8AAf///gD/////////////gAP///+D//////////// + /8AH///////////////////wH/////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////8= + + + \ No newline at end of file diff --git a/Aviso/frmHauptfensterNew.vb b/Aviso/frmHauptfensterNew.vb new file mode 100644 index 0000000..c7b19a5 --- /dev/null +++ b/Aviso/frmHauptfensterNew.vb @@ -0,0 +1,5704 @@ + +Imports System.IO +Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO +Imports VERAG_PROG_ALLGEMEIN.cGlobal +Imports com.esendex.sdk.messaging +Imports Newtonsoft.Json +Imports System.Reflection +Imports System.Drawing.Drawing2D +Imports SDL +Imports Microsoft.Office.Interop +Imports Spire.Pdf.Texts +Imports System.Net +Imports System.Text +Imports System.IO.Pipes +Imports System.Security.AccessControl +'Imports UID +Public Class frmHauptfensterNew + + + + Public AVISO_TYP = "LKW" + Public aktiv = False + Private AvisoDAL As New cAvisoDAL + Private VermerkeDAL As New cVermerkeDAL + Private Standorte As New cStandorteDAL + Private FUNC As New AvisoStatusFunctions + Private locZeilen As Integer = -1 + Private Anzahl As Integer + Public Grid_aktiv As Boolean = False + Private Details_aktiv As Boolean = False + Private Zähler As Long = 0 + Private hMerkZeit As Date + Private hMerkZeit2 As Date + + Private hMerkZeit_MeineAviso As Date + Dim cProgramFunctions As New cProgramFunctions + Private Paketdienste_EXE As String + + Private SucheStandort As String = "" + Private GridAnzeigen As Integer = 0 + Private GridZeichnen As Integer = 0 + Dim lkwbackcolor As Color = Color.FromArgb(220, 220, 220) + Dim lkwbackcolorSel As Color = Color.FromArgb(200, 200, 200) + Dim FIMRA_COLOR As Color = Color.FromArgb(0, 54, 128) + Dim VermerkeAktuelleAvisoId As Integer = -1 + Private infotxt As String = "" + Public gridFont As New Font(Me.Font.FontFamily, 8) + Dim cFormularManager As New VERAG_PROG_ALLGEMEIN.cFormularManager + ' Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER + Dim sd = 0 + Dim closeOK = False + Dim Fullscreen = False + Dim rowHeight = 20 + Dim chkFarben = True + + Private VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim WithEvents hideErr As New Timer + + Dim WithEvents UpdateUpdater As New Timer + Dim WithEvents UpdateSession As New Timer + + Public Sub New() + InitializeComponent() + Me.DoubleBuffered = True + SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True) + UpdateStyles() + + Icon = cMeineFunktionenAVISO.GetProgrammIcon + End Sub + + Private Sub frmMain_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed + VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGOUT() + If Not closeOK Then + My.Settings.frmMainSize = Me.Size + My.Settings.frmMainPosition = Me.Location + My.Settings.Save() + Application.Exit() + End If + End Sub + + Private Sub frmHauptfenster_GotFocus(sender As Object, e As EventArgs) Handles MyBase.GotFocus + Timer1_Tick(Timer1, New EventArgs) + End Sub + + Public Shared Sub EnableDoubleBuffered(ByRef dgv As DataGridView) + If dgv IsNot Nothing Then + + Dim dgvType As Type = dgv.[GetType]() + Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered", BindingFlags.Instance Or BindingFlags.NonPublic) + pi.SetValue(dgv, True, Nothing) + + End If + End Sub + + + + Private Sub frmMain_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown + + If e.KeyCode = Keys.F2 Or e.KeyCode = Keys.F5 Then + btnRefresh_Click(sender, e) 'F2 löst Aktualisierung aus + End If + + 'If e.KeyCode = Keys.F5 Then + ' FUNC.setAnkunft(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + ' avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + 'End If + + 'If e.KeyCode = Keys.F9 Then + ' FUNC.setFreigabe(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, Me) + ' avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + 'End If + + If e.KeyCode = Keys.F11 Then + FUNC.AktUebernehmen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + End If + + If e.KeyCode = Keys.Escape Then + Grid_aktiv = False + cboGrenzstelle.SelectedIndex = 0 + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then + 'cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung + ' End If + MyComboBox1.changeItem(UStatus_AVEingang) + + tbcntrAvisoLKW.SelectedIndex = 0 + txtSuche.Text = "" + txtSuche.Focus() + Grid_aktiv = True + initDat() + Aviso_anzeigen("") + End If + If (e.KeyCode) = Keys.Add AndAlso e.Control Then + btnNeu.PerformClick() + End If + + If (e.KeyCode) = Keys.K AndAlso e.Control Then + If btnKunden.Visible Then btnKunden.PerformClick() + End If + If (e.KeyCode) = Keys.R AndAlso e.Control Then + If btnRg.Visible Then btnRg.PerformClick() + End If + If (e.KeyCode) = Keys.F AndAlso e.Control Then + If btnFakturierung.Visible Then btnFakturierung.PerformClick() + End If + If (e.KeyCode) = Keys.S AndAlso e.Control Then + If btnSpedBuch.Visible Then btnSpedBuch.PerformClick() + End If + If (e.KeyCode) = Keys.M AndAlso e.Control Then + If picAVISOMessenger.Visible Then PictureBox1_Click(picAVISOMessenger, New EventArgs) + End If + + If e.KeyCode = Keys.D1 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 1 : txtSuche.Focus() + If e.KeyCode = Keys.D2 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 2 : txtSuche.Focus() + If (e.KeyCode) = Keys.D3 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 3 : txtSuche.Focus() + If (e.KeyCode) = Keys.D4 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 4 : txtSuche.Focus() + If (e.KeyCode) = Keys.D5 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 5 : txtSuche.Focus() + If (e.KeyCode) = Keys.D0 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 6 : txtSuche.Focus() + If (e.KeyCode) = Keys.Oem5 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 0 : txtSuche.Focus() + + End Sub + + '---------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------- + + Private listenerThread As System.Threading.Thread + + Private Sub StartPipeListener() + listenerThread = New System.Threading.Thread(Sub() + Try + + Dim pipeName As String = $"AVISO_{Process.GetCurrentProcess().Id}" + Dim pipeSecurity As New PipeSecurity() + pipeSecurity.AddAccessRule(New PipeAccessRule(Environment.UserName, PipeAccessRights.FullControl, AccessControlType.Allow)) + + Console.WriteLine($"Waiting for messages on pipe {pipeName}...") + + While True + Using server = New NamedPipeServerStream(pipeName, PipeDirection.In, 1, PipeTransmissionMode.Byte, PipeOptions.None, 0, 0, pipeSecurity) + Try + server.WaitForConnection() + + Using reader = New StreamReader(server, Encoding.UTF8) + Dim message = reader.ReadLine() + + ProcessMessage(message) + End Using + + server.Disconnect() + Catch ex As Exception + Console.WriteLine("Fehler im Listener: " & ex.Message) + End Try + End Using + End While + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + + End Try + End Sub) + listenerThread.IsBackground = True + listenerThread.Start() + End Sub + + Private Sub ProcessMessage(message As String) + + + If message.StartsWith("OpenKd_") Then + Invoke(Sub() + Dim split = message.ToString.Split("_") + FUNC.showKd(split(1), True) + End Sub) + End If + End Sub + + Protected Overrides Sub OnFormClosed(e As FormClosedEventArgs) + MyBase.OnFormClosed(e) + Try + If listenerThread IsNot Nothing Then + listenerThread.Abort() + End If + + Catch ex As Exception + + End Try + End Sub + + '---------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------- + + Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then + If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then + StartPipeListener() + End If + End If + + 'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + Me.AutoScaleMode = AutoScaleMode.Dpi + hideErr.Interval = 3000 + + VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL + + + EnableDoubleBuffered(gridAviso) + 'EnableDoubleBuffered(gridMyAviso) + 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Case "IMEX" + ' FIMRA_COLOR = Color.FromArgb(250, 200, 0) + ' Case "ATILLA" + ' FIMRA_COLOR = Color.FromArgb(0, 54, 128) + ' ' FIMRA_COLOR = Color.Red + ' Case Else + ' FIMRA_COLOR = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor + 'End Select + + lblFimaAviso.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + Panel1.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor + ' Panel6.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor + pnlSearch.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor + UsrCntlBenachrichtigungen1.Panel3.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor + + UpdateUpdater.Interval = 5000 + UpdateUpdater.Enabled = True + + lblVersion.Text = "V " & Application.ProductVersion 'My.Resources.Version2 + UpdateSession.Interval = 60000 + UpdateSession.Enabled = True + + ' transparentpnl.Visible = True + 'transparentpnl.BackColor = Color.FromArgb(25, Color.Red) + ' transparentpnl.BackColor = Color.Transparent + + + btnMitarbeiterKonto.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + setProfileImage() + + TimerAkte.Enabled = True + Grid_aktiv = False + + Dim OptionenDAL As New VERAG_PROG_ALLGEMEIN.cOptionenDAL + + If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then + cboGrenzstelle.Items.Clear() + cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where grz_Grenzstelle='" & VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT & "' AND grz_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False) + Else + cboGrenzstelle.Items.Clear() + cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where ([grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE") + cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE WARENORTE", "ALLE_WO")) + cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???")) + End If + + + 'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "")) + 'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB")) + 'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG")) + 'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI")) + 'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD")) + 'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD")) + 'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU")) + 'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMB")) + 'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: GE TRANSPORT", "WO_GE")) + ''cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: KITA", "WO_KITA")) + 'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???")) + cboGrenzstelle.changeItem("") + + ' txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"}) + txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"}) + + cboImEx.Items.Clear() + cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMPORT", "IMPORT")) + cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EXPORT", "EXPORT")) + cboImEx.changeItem("") + + + + + If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then + cboMy_Grenzstelle.Items.Clear() + cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where grz_Grenzstelle='" & VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT & "' AND grz_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False) + cboMy_Grenzstelle.changeItem("") + Else + cboMy_Grenzstelle.Items.Clear() + ''''If Not VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then ' Nicht, wenn Front-Office + '''' cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE (BACKOFFICE)", "ALLE_BACK")) + ''''End If + + cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where ([grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True, False, "ALLE") + ' cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG+AMB", "SBG+AMB")) + cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE WARENORTE", "ALLE_WO")) + cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???")) + cboMy_Grenzstelle.changeItem("") + ''''cboMy_Grenzstelle.changeItem("ALLE_BACK") 'greift nur wenn verfügbar.. + End If + + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SBG" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then + ' cboMy_Grenzstelle.changeItem("SBG+AMB") + 'End If + + 'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "")) + 'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB")) + 'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG")) + 'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI")) + 'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD")) + 'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD")) + 'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU")) + 'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMB")) + 'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: GE TRANSPORT", "WO_GE")) + ''cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: KITA", "WO_KITA")) + 'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???")) + + cboMyAvisoAnzeige.Items.Clear() + cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE")) + cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Benutzer", "Benutzer")) + cboMyAvisoAnzeige.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True, False) + cboMyAvisoAnzeige.changeItem("Benutzer") + + + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then + cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1-Sendungen", "T1")) + cboMy_QS.CheckState = CheckState.Checked + cboMy_VB.CheckState = CheckState.Unchecked + cboMyAvisoAnzeige.changeItem("T1") + Else + + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then + StandortWechselnToolStripMenuItem.Visible = True + ElseIf VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STANDORT_WECHSELN", "AVISO") Then + StandortWechselnToolStripMenuItem.Visible = True + End If + + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" Then + cboMy_QS.CheckState = CheckState.Unchecked + cboMy_VB.CheckState = CheckState.Indeterminate + Else + cboMy_QS.CheckState = CheckState.Checked + cboMy_VB.CheckState = CheckState.Unchecked + End If + + Dim myLKW As Boolean = False + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId Is Nothing Then + myLKW = True + End If + + If myLKW Then + cbx_My_LKW.Checked = True + cboMy_QS.CheckState = CheckState.Indeterminate + cboMy_VB.CheckState = CheckState.Indeterminate + ElseIf IsNumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) Then + cboMyAvisoAnzeige.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) + ' MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) + End If + End If + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("GESAMTSICHERHEIT", "AVISO") Then GesamtsicherheitenToolStripMenuItem.Visible = True + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "ATILLA" ' Case "VERAG", "IMEX" + ' lblErweitereSuche.Visible = False + MDMParkplatzkartenToolStripMenuItem.Visible = False + + ' SplitContainer3.Panel1Collapsed = True + ' Button10.Visible = False + + 'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then + ' Button10.Visible = True + ' SplitContainer3.Panel1Collapsed = True + 'End If + Case Else + + 'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then + ' SplitContainer3.Panel1Collapsed = True + 'End If + + 'AVISO vom PC übernehmen + Dim zeilen As Integer = OptionenDAL.setAVISOFromPcName() + Select Case zeilen + Case 0 : lblAkte.Visible = False + Case 1 : lblAkte.Text = zeilen & " Akt vom Arbeitsplatz übernommen" + Case Else : lblAkte.Text = zeilen & " Akte vom Arbeitsplatz übernommen" + End Select + + If Not (VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB") Then + ' cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung + cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + End If + End Select + + + 'Einlesen der Standardoptionen (ist normalerweise immer ID 1) + Try + VERAG_PROG_ALLGEMEIN.cGlobal.Optionen = OptionenDAL.LesenOptionen(1, "") + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Betreff = "" + VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Text = "" + VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Betreff = "" + VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Text = "" + End Try + + ' VERAG_PROG_ALLGEMEIN.cglobal.Admin = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.Sicherheitsstufe = 0 + + 'Menü je nach Berechtigungsebene anzeigen + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then + AdministrationToolStripMenuItem.Visible = True + lblMitarbeiter.Text += " (Admin)" + Button3.Visible = True + Button1.Visible = True + + End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("eAVISO", "AVISO") Then + btnE_Aviso.Visible = True + Label22.Visible = True + initEAviso() + End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MESSENGER", "AVISO") Then + picAVISOMessenger.Visible = True + End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG", "SDL") Then + btnFakturierung.Visible = True + End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("RECHNUNGSSUCHE", "SDL") Then + btnRg.Visible = True + End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAILVORLAGEN", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAILVORLAGEN_ALLE", "SDL") Then + MailvorlagenToolStripMenuItem.Visible = True + End If + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Leistungen_FIBU", "SDL") Then + FIBUSachkontenToolStripMenuItem.Visible = True + End If + + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MITARBEITER_VERZEICHNIS", "SDL") Then + btnMAVerzeichnis.Visible = True + End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then + BREXITToolStripMenuItem.Visible = True + cbx_My_Brexit.Checked = True + End If + + 'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then + ' btnSpedBuch.Visible = False + 'End If + + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_Stammref_Verwalten", "AVISO") Then + DAKOSYToolStripMenuItem.Visible = False + End If + + + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SRI_LANKA", "AVISO") Then + 'MenuStrip1.Items.Clear() + ' MenuStrip1.Items.Remove(FunktionenToolStripMenuItem)'-->Siehe unten + MenuStrip1.Items.Remove(ToolStripFormulare) + + StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem1) + StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem) + + + For Each i In FunktionenToolStripMenuItem.DropDownItems + If i.name <> "tool_BRGXLS" And i.name <> "toolOriginalATR" Then + + i.Visible = False + End If + Next + + 'While MenuStrip1.Items.Count > 1 + ' MenuStrip1.Items.RemoveAt(1) + 'End While + 'btnGenerelleGestellungen.Visible = False + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then btnSpedBuch.Visible = False + btnDienstplan.Visible = True + 'btnNeu.Enabled = False + ' SplitContainer2.Visible = False + btnDrucken.Visible = False + 'SplitContainer2.Panel2Collapsed = True + ' splitMain.Panel2Collapsed = True + End If + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then + MenuStrip1.Items.Remove(FunktionenToolStripMenuItem) + MenuStrip1.Items.Remove(StatistikToolStripMenuItem) + btnZollwebseiten.Visible = False + lblErweitereSuche.Visible = False + End If + + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN", "AVISO") Then + btnKunden.Visible = False + End If + + + MyComboBox1.Items.Clear() + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", UStatus_none)) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Aviso-Eingang", UStatus_AVEingang)) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Erfasst", Status_Erfasst)) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorbereit.QS", Status_Vorgeschrieben)) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorgeschrieben", Status_Vorbereitet)) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ankunft", Status_Ankunft)) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Freigabe", Status_Freigegeben)) + MyComboBox1.changeItem(UStatus_AVEingang) + + 'Größe wird sicherheitshalber maximiert angezeigt, da es mit dem Größe-/Positionsspeichern teilweise Probleme in der virtuellen Umgebung gibt + ' Me.WindowState = FormWindowState.Normal + + 'Position+Größe wird in ApplicationSettings vom Formular gespeichert + 'Try + 'Me.Size = My.Settings.frmMainSize + 'Me.Location = My.Settings.frmMainPosition + 'Me.Left = 100 + 'Me.Top = 100 + 'Catch ex As Exception + 'bei Fehler nichts machen + 'End Try + + 'Mitarbeiterinfos anzeigen + If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("SHOW_AVISO_PCNAME") Then + VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter += "/" & SystemInformation.UserName.ToString + End If + + + lblMitarbeiter.Text = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then + ' lblMitarbeiter.Text += " (Verwaltung)Then" + 'End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then + lblMitarbeiter.Text += " (" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & ")" + End If + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AvisoTV_verwalten", Me) Then + AvisoTVToolStripMenuItem.Visible = True + End If + + lblUsrname.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + lblGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim + chkFarben = True + + ' btnAlleAnzeigen.Visible = cGlobal.Admin + + 'zuerst noch prüfen, ob unerledigte Aviso auf nicht eingetroffen gesetzt werden können + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then + 'Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & " And dateadd(DAY,10,VoraussichtlichesEintreffen) < GETDATE() and Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND Grenzstelle IN ('AMB','NKD','SBG','SUB','WAI') " + Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & " AND Grenzstelle IN ('AMB','NKD','SBG','SUB','WAI') and Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' and ((Transportmittelart = 'CONTAINER' and dateadd(DAY,20,VoraussichtlichesEintreffen) < GETDATE()) or (Transportmittelart <> 'CONTAINER' and dateadd(DAY,10,VoraussichtlichesEintreffen) < GETDATE()))" + 'dateadd(DAY,10,VoraussichtlichesEintreffen) --> Voraussichtliches Eintreffen muss zudem um 10 Tage überschritten sein --> Container/Hafen haben lange Vorlaufzeiten + Dim anz As Integer = AvisoDAL.Check_Nicht_eingetroffen(hSQL) + If anz > 0 Then + ' MsgBox("HINWEIS: " & vbCrLf & anz & " LKW-Aviso wurden auf 'LKW nicht eingetroffen' gesetzt, da bereits seit mehr als 21 Tagen offen.", vbInformation) + End If + End If + + + cboTeams.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True) + If cboTeams.Items.Count = 0 Then cboTeams.Visible = False + 'jetzt noch den Pfad zum Programm Paketdienste einlesen und zuweisen + Try + Dim pfadPaketdienste As String = Application.StartupPath & "\Paketdienste.txt" + If Not File.Exists(pfadPaketdienste) Then + 'MsgBox("nicht gefunden: " & pfadDatei) + 'Sonderfall zum Debuggen + pfadPaketdienste = "c:\projekte.net\verag\aviso\Paketdienste.txt" + End If + If Not File.Exists(Paketdienste_EXE) Then + Paketdienste_EXE = "C:\Projekte.NET\Verag\Paketdienste\Paketdienste\bin\Debug\Paketdienste.exe" + 'Paketdienste_EXE = "C:\Program Files\Calibre2\calibre.exe" + End If + If File.Exists(pfadPaketdienste) Then + Dim fs As New FileStream(pfadPaketdienste, FileMode.Open, FileAccess.Read) + Dim strmReader As New StreamReader(fs) + Paketdienste_EXE = strmReader.ReadLine + End If + Catch ex As Exception + Paketdienste_EXE = "" + End Try + + + 'Vorschlagswerte werden gesetzt + ' tbcntrAviso.SelectedIndex = 0 + + 'Grid jetzt aktivieren und befüllen - Standardanzeige ident mit Button Wichtig + dtpVon.Value = Now.AddMonths(-1) 'Now.AddDays(-15) + dtpBis.Value = Now.AddDays(1) + 'optAnkunft.Checked = True + tbcntrAvisoLKW.SelectedTab = tabAnkunft + Grid_aktiv = True + SucheStandort = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim + If SucheStandort <> "" Then btnWichtigeStandort.Text = "Wichtig " & SucheStandort.Trim.ToUpper + Aviso_anzeigen(" ORDER BY Ankunft") + + UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont) + ' gridAviso_SpaltenFestlegen() 'Auskommentiert, do bei Aviso anzeigen schon ausgeführt wird + 'gridVermerke_SpaltenFestlegen() + + + Timer1.Enabled = True + Timer_REFRESH_Tick(Timer_REFRESH, New EventArgs) + + If gridAviso.RowCount > 0 Then + gridAviso.Rows(0).Selected = True + End If + ' MsgBox(gridVermerke.Rows(0).Cells(5).Value) + + 'If Me.Height * 0.4 < 220 Then + ' SplitContainer2.Height = 220 + 'Else + ' SplitContainer2.Height = Me.Height * 0.4 + 'End If + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE", "SDL") Or + VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE_BH_Login", "SDL") Or + VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE_Saldo_Anzeige", "SDL") Then + btnKassenbuch.Visible = True + End If + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ESSENSBESTELLUNGEN", "SDL") Then + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "FRONTOFFICE", "VERAG", "IMEX", "UNISPED" + EssensbestellungenToolStripMenuItem.Visible = True + End Select + End If + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN_ESSENSBESTELLUNGEN", "AVISO") Then + AdministrationEssensbestellungenToolStripMenuItem.Visible = True + End If + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DATEV_EXPORT", "SDL") And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then + DatevBuchungsexportToolStripMenuItem.Visible = True + End If + + + Panel1.Height -= pnlSearch.Height + + If Now.ToShortDateString >= DateTime.Parse("01/01/2023") Then + + ToolStripMenuItem4.Visible = False + ToolStripMenuItem5.Visible = False + ToolStripMenuItem6.Visible = False + BürgschaftenExcelToolStripMenuItem.Visible = False + + End If + + Try + + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then + If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then + Dim timas As New cTimasAPI("timas") + Dim infoMessage As New DataTable + Dim timeEntryExisting As Boolean = False + Dim isEndpointRunning As Boolean = True + timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning) + If Not timeEntryExisting AndAlso isEndpointRunning Then + Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo) + If a = vbYes Then + + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasMehrereFirmen Then + Dim f As New frmZEButtons("in", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasFirmen) + f.ShowDialog() + f.BringToFront() + Else + Dim info + timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0)) + MsgBox(info) + End If + + Else + + End If + + End If + + End If + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + + + End Sub + + Sub initEAviso() + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("eAVISO", "AVISO") Then + If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '?? + Label22.Text = VERAGSQL.getValueTxtBySql("SELECT count(*) FROM [tblNCTS_TR] where ncts_AVISO_einarbeitet=0 AND ncts_Partnersystem='ATEZ'", "FMZOLL") '"XX" + If Label22.Text = "0" Then Label22.Text = "" + Label22.Visible = Label22.Text <> "" + Label22.BringToFront() + End If + End Sub + + + Public Sub setAktDetails(id, showSendungsdetails) + Details_anzeigen(id) ', showSendungsdetails) + End Sub + + Private Sub gridAviso_SpaltenFestlegen() + If gridAviso.RowCount = 0 Then Exit Sub + Dim bfont = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) + + If AVISO_TYP = "LKW" Then + + With gridAviso + + ' .Columns("AvisoID").Visible = False 'AvisoID nicht anzeigen + + If Fullscreen Then + .Columns("Datum").Visible = True 'Mitarb. nicht anzeigen + .Columns("Freigabe").Visible = True 'Mitarb. nicht anzeigen + .Columns("Handling").Visible = True 'Mitarb. nicht anzeigen + .Columns("Vorbereitet").Visible = True + .Columns("Vorgeschrieben").Visible = True + Else + .Columns("Datum").Visible = False 'Mitarb. nicht anzeigen + .Columns("Freigabe").Visible = False 'Mitarb. nicht anzeigen + .Columns("Handling").Visible = False 'Mitarb. nicht anzeigen + .Columns("Vorbereitet").Visible = False + .Columns("Vorgeschrieben").Visible = False + + End If + + .Columns("TageBisEintreffen").Visible = False + .Columns("Transportmittelart").Visible = False + + .Columns("Status").Width = 25 + .Columns("Status").HeaderText = "St." + + .Columns("AvisoID").Width = 60 + .Columns("AvisoID").HeaderText = "LKW-Id" + + .Columns("LetzterMitarbeiter").Width = 135 + .Columns("LetzterMitarbeiter").HeaderText = "akt. Mitarb" + + + .Columns("VoraussichtlichesEintreffen").Width = 95 + .Columns("VoraussichtlichesEintreffen").HeaderText = "Vorauss.Eintreffen" + .Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Format = "dd.MM.yyyy" + '.Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold) + + + .Columns("AvisoEingang").Width = 95 + .Columns("AvisoEingang").HeaderText = "Av.Eingang" + .Columns("AvisoEingang").DefaultCellStyle.Format = "dd.MM. HH:mm" + + .Columns("Datum").Width = 95 + .Columns("Datum").HeaderText = "Erfasst" + .Columns("Datum").DefaultCellStyle.Format = "dd.MM. HH:mm" + .Columns("Datum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter + + + .Columns("Vorbereitet").Width = 100 + .Columns("Vorbereitet").HeaderText = "Vorbereitet" + .Columns("Vorbereitet").DefaultCellStyle.Format = "dd.MM. HH:mm" + + + .Columns("Vorgeschrieben").Width = 100 + .Columns("Vorgeschrieben").HeaderText = "Vorgeschrieben" + .Columns("Vorgeschrieben").DefaultCellStyle.Format = "dd.MM. HH:mm" + + + .Columns("Ankunft").Width = 100 + .Columns("Ankunft").HeaderText = "Ankunft" + .Columns("Ankunft").DefaultCellStyle.Format = "dd.MM. HH:mm" + + + .Columns("Freigabe").Width = 100 + .Columns("Freigabe").HeaderText = "Freigabe" + .Columns("Freigabe").DefaultCellStyle.Format = "dd.MM. HH:mm" + + .Columns("Dauer").Width = 60 + .Columns("Dauer").HeaderText = "Dauer" + .Columns("Dauer").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("Dauer").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + + ' If cGlobal.AktiverMitarbeiter.Abteilung = "quick-stop" Then + '.Columns(10).Visible = True + ' Else + ' .Columns(10).Visible = False + ' End If + + .Columns("Grenzstelle").Width = 55 + .Columns("Grenzstelle").HeaderText = "Grenz." + .Columns("Grenzstelle").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("Grenzstelle").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + + + + .Columns("LKW_Nr").Width = 150 + '.Columns("LKW_Nr").MinimumWidth = 90 + .Columns("LKW_Nr").HeaderText = "LKW-Nr" + ' .Columns("LKW_Nr").DefaultCellStyle.Font = New Font(.DefaultCellStyle.Font.FontFamily, .DefaultCellStyle.Font.Size, FontStyle.Bold) + '.Columns("LKW_Nr").DefaultCellStyle.BackColor = lkwbackcolor + '.Columns("LKW_Nr").DefaultCellStyle.SelectionBackColor = lkwbackcolor + + .Columns("Auftraggeber").MinimumWidth = 150 + .Columns("Auftraggeber").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns("Auftraggeber").HeaderText = "Avisierer" + + .Columns("Frächter").MinimumWidth = 150 + .Columns("Frächter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns("Frächter").HeaderText = "Frächter" + + .Columns("Telefonisch").Visible = False 'Status Telefon nicht anzeigen + .Columns("AvisoTVHinweis").Visible = False 'Status Telefon nicht anzeigen + + .Columns("LKW_fertig").Width = 35 + .Columns("LKW_fertig").HeaderText = "OK" + .Columns("LKW_fertig").DefaultCellStyle.ForeColor = Color.White + .Columns("LKW_fertig").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("LKW_fertig").DefaultCellStyle.Font = bfont + + If cboGrenzstelle._value = "NEU" Then + .Columns("VerwahrungStatus").Width = 55 + .Columns("VerwahrungStatus").HeaderText = "Kontrolle" + .Columns("VerwahrungStatus").DefaultCellStyle.ForeColor = Color.White + .Columns("VerwahrungStatus").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("VerwahrungStatus").DefaultCellStyle.Font = bfont + .Columns("VerwahrungStatus").Visible = True + Else + .Columns("VerwahrungStatus").Visible = False + End If + + .Columns("Info").Visible = False + .Columns("Info").MinimumWidth = 200 + .Columns("Info").HeaderText = "Info (Einträge bis zum Status ERFASST)" + .Columns("Info").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + .Columns("Handling").Width = 50 + .Columns("Handling").HeaderText = "Handling" + + + '.Columns(12).Width = 700 + '.Columns(12).HeaderText = "Änderungen" + + initDauerLKWFertig() + ._TRANSLATE() + + + End With + Else + + + + + '------------------------------------------------------------- + '------------------------------------------------------------- + '------------------------------------------------------------- + '------------------------------------------------------------- + '------------------------------------------------------------- + '------------------------------------------------------------- + '------------------------------------------------------------- + '------------------------------------------------------------- + '------------------------------------------------------------- + + + + + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)) + If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '? vlt hilfts... + + Dim errOcc = False + + 'MsgBox(sqlStr) + Try + gridAviso.DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list, False, errOcc) + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG) + End Try + + If errOcc Then + pic.Visible = True + End If + ' gridMyAviso.DataSource = VermerkeDAL.loadTableMyAviso(VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID) + ' MsgBox(DateDiff(DateInterval.Minute, CDate(VarToDate("16.12.2013 11:02:08")), CDate(VarToDate("16.12.2013 12:02:08")))) + ' MsgBox(gridMyAviso.RowCount) + + ' Dim bfont = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) + Dim nfont = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Regular) + + + 'MsgBox(sqlStr) + + + With gridAviso + If .Columns.Count <= 0 Then pic.Visible = False : Exit Sub + If .Columns("AvisoID") Is Nothing Then pic.Visible = False : Exit Sub + + .DefaultCellStyle.Font = nfont + + .MultiSelect = False + .Columns("AvisoID").Visible = False 'AvisoID nicht anzeigen + .Columns("Freigabe").Visible = False 'AvisoID nicht anzeigen + .Columns("maId").Visible = False 'maID nicht anzeigen + '.Columns("Vorbereitung").Visible = False 'Vorber. nicht anzeigen + + .Columns("LetzterMitarbeiter").Visible = False 'Mitarb. nicht anzeigen + .Columns("LetzterMitarbeiterId").Visible = False 'Mitarb. nicht anzeigen + .Columns("LetzterMitarbeiter").Visible = False 'Mitarb. nicht anzeigen + + .Columns("Status").Width = 90 + .Columns("Status").HeaderText = "Status" + + .Columns("LKW_Nr").MinimumWidth = 90 + .Columns("LKW_Nr").HeaderText = "LKW-Kennzeichen" + .Columns("LKW_Nr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + .Columns("AvisoTVHinweis").Visible = False ' = 60 + .Columns("Dauer").Visible = False ' = 60 + + + .Columns("Datum").Visible = False 'Mitarb. nicht anzeigen + '.Columns("Datum").Width = 145 '115 + '.Columns("Datum").HeaderText = "Erfasst" + '.Columns("Datum").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)" + '.Columns("Datum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter + + .Columns("AvisoEingang").Visible = False + ' .Columns("AvisoEingang").Width = 120 + ' .Columns("AvisoEingang").HeaderText = "Av.Eingang" + ' .Columns("AvisoEingang").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)" + ' .Columns("AvisoEingang").DefaultCellStyle.Format = "HH:mm, dddd" + + .Columns("Ankunft").Visible = False + .Columns("Ankunft").Width = 145 '115 + .Columns("Ankunft").HeaderText = "Ankunft" + .Columns("Ankunft").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)" + + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + .Columns("Grenzstelle").Visible = True + .Columns("Grenzstelle").Width = 70 + .Columns("Grenzstelle").HeaderText = "Grenzstelle" + .Columns("Grenzstelle").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("Grenzstelle").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + ' Else + ' .Columns("Grenzstelle").Visible = False + ' End If + + .Columns("Freigabe").Width = 80 + .Columns("Freigabe").HeaderText = "Freigabe" + ' .Columns("Freigabe").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)" + + .Columns("LKW_fertig").Width = 35 + .Columns("LKW_fertig").HeaderText = "OK" + .Columns("LKW_fertig").DefaultCellStyle.ForeColor = Color.White + .Columns("LKW_fertig").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + + If cboGrenzstelle._value = "NEU" Then + .Columns("VerwahrungStatus").Width = 55 + .Columns("VerwahrungStatus").HeaderText = "Kontrolle" + .Columns("VerwahrungStatus").DefaultCellStyle.ForeColor = Color.White + .Columns("VerwahrungStatus").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("VerwahrungStatus").Visible = True + Else + .Columns("VerwahrungStatus").Visible = False + End If + + If gridAviso.RowCount = 0 Then gridAviso.Columns.Clear() : Exit Sub + + + Dim t As New DataGridViewTextBoxColumn + t.Name = "DauerText" + t.Width = 80 + t.HeaderText = "Dauer" + t.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter + t.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns.Insert(7, t) + + + + .Columns("tblSnd_Status").Visible = False + + .Columns("tblSnd_Abfertigungsart_ID").Visible = False + .Columns("tblSnd_Zollsystem_Land").Visible = False + .Columns("tblSnd_Vorgeschrieben").Visible = False + .Columns("tblSnd_Vorbereitet").Visible = False + .Columns("tblSnd_SendungID").Visible = False + .Columns("tblSnd_Fremdspedition").Visible = False + .Columns("tblSnd_FremdspeditionText").Visible = False + + .Columns("tblSnd_Empfaenger").MinimumWidth = 80 + .Columns("tblSnd_Empfaenger").HeaderText = "Empfaenger" + .Columns("tblSnd_Empfaenger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + .Columns("VoraussichtlichesEintreffen").Width = 55 + .Columns("VoraussichtlichesEintreffen").HeaderText = "Eintreffen" + .Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Format = "dd.MM." + + ' .Columns("Vermerke_Anzahl").Width = 60 + ' .Columns("Vermerke_Anzahl").HeaderText = "Vermerke" + ' .Columns("Vermerke_Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("AbfertigungsNr").Width = 110 + .Columns("AbfertigungsNr").HeaderText = "Pos-Nr." + .Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft + .Columns("AbfertigungsNr").Visible = False + + + + + + Dim c As DataGridViewImageColumn + c = New DataGridViewImageColumn + c.Name = "StatusVorbereitetQS" + c.Image = My.Resources.statusBtn_vorbereitet_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom + c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White + c.ToolTipText = "Status 'Vorbereitet-QS' eintragen" + c.HeaderText = "QS" + .Columns.Add(c) + + + c = New DataGridViewImageColumn + c.Name = "StatusVorgeschrieben" + c.Image = My.Resources.statusBtn_vorgeschrieben_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom + c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White + c.ToolTipText = "Status 'Vorgeschrieben' eintragen" + c.HeaderText = "VG" + .Columns.Add(c) + + + Dim t2 = New DataGridViewTextBoxColumn + t2.Name = "Abfertigungsart" + t2.HeaderText = "Abfertigungsart" + t2.Width = 110 : t.DefaultCellStyle.Padding = New Padding(2) : t2.DefaultCellStyle.BackColor = Color.White + 't.ToolTipText = "" + .Columns.Insert(7, t2) + + + + 'Dauer berechnen: + For Each r As DataGridViewRow In .Rows + r.DefaultCellStyle.Font = nfont + If Not cbx_My_LKW.Checked Then + If r.Cells("tblSnd_Fremdspedition").Value Then 'FREMDANMELDER + r.Cells("Abfertigungsart").Style.BackColor = Color.FromArgb(230, 230, 230) + ' r.Cells("tblSnd_PosUnterNr").Style.BackColor = Color.FromArgb(230, 230, 230) + ' r.Cells("Abfertigungsart").Value = "FREMD" + r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value + Else 'Nomal + Dim Abfertigungsland As String = r.Cells("tblSnd_Zollsystem_Land").Value + If Abfertigungsland <> "" Then Abfertigungsland = "[" & Abfertigungsland & "] " + + r.Cells("Abfertigungsart").Value = VERAGSQL.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL") + r.Cells("Abfertigungsart").Value = Abfertigungsland & r.Cells("Abfertigungsart").Value + + If r.Cells("Abfertigungsart").Value.ToString.Length > 20 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 20) & ".." + End If + + If .Columns("StatusVorbereitetQS") IsNot Nothing Then + If r.Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then + DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorbereitet_Aktiv + DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")" + Else + DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' eintragen" + End If + End If + If .Columns("StatusVorgeschrieben") IsNot Nothing Then + If r.Cells("tblSnd_Vorgeschrieben").Value IsNot DBNull.Value Then + DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorgeschrieben_Aktiv + DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")" + Else + DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' eintragen" + End If + End If + + End If + + ' MsgBox(r.Cells(1).Value) + ' MsgBox(r.Cells(6).Value) + ' MsgBox(DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells(6).Value)), Now)) + If Not IsDBNull(r.Cells("Ankunft").Value) AndAlso Not CDate(r.Cells("Ankunft").Value) = LeerDatum Then + If CInt(r.Cells("Status").Value) > VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then + Dim dauerTmp = DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now) + If IsNumeric(dauerTmp) Then + r.Cells("Dauer").Value = dauerTmp + r.Cells("DauerText").Value = cProgramFunctions.MinToTime2(dauerTmp) + Else + r.Cells("Dauer").Value = "0" + r.Cells("DauerText").Value = "0" + End If + End If + Else + r.Cells("DauerText").Value = "0" + r.Cells("Dauer").Value = "0" + + End If + + + If r.Cells("VerwahrungStatus").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green + If r.Cells("LKW_fertig").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.FromArgb(0, 54, 128) + If r.Cells("LKW_fertig").Value = "DE" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green + If r.Cells("Dauer").Value > 120 Then r.Cells("DauerText").Style.ForeColor = Color.Red + ' MsgBox(r.Cells("Dauer").Value) + + ' If CBool(r.Cells("Vorbereitung").Value) = True Then + 'r.Cells("Status").Value = 99 + 'End If + + + + + 'Farbkennung + + If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then + If Not cbx_My_LKW.Checked Then + Select Case r.Cells("Status").Value + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben '"1", "2" + ' Freigabe, N.Eingetr. + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft '"3" + ' Ankunft + r.DefaultCellStyle.BackColor = Color.IndianRed + r.Cells("DauerText").Style.ForeColor = Color.White + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX, VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN + ' Ankunft + r.DefaultCellStyle.BackColor = Color.SteelBlue + r.Cells("DauerText").Style.ForeColor = Color.White + Case Else + 'Alle anderen Status: + If r.Cells("VoraussichtlichesEintreffen").Value IsNot DBNull.Value AndAlso IsDate(r.Cells("VoraussichtlichesEintreffen").Value) Then + + Dim VoraussichtlichesEintreffen = CDate(r.Cells("VoraussichtlichesEintreffen").Value) + + 'If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.ToShortDateString) Then 'heute + ' r.DefaultCellStyle.BackColor = Color.IndianRed + 'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'morgen + ' r.DefaultCellStyle.BackColor = Color.Orange + 'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'Ümorgen+ÜÜmorgen + ' r.DefaultCellStyle.BackColor = Color.LightYellow + 'End If + + 'If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'heute + ' r.DefaultCellStyle.BackColor = Color.Orange + 'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'morgen + ' r.DefaultCellStyle.BackColor = Color.LightYellow + 'End If + + If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(getDateVorschreiben(1).ToShortDateString) Then 'heute + r.DefaultCellStyle.BackColor = Color.Orange + ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(getDateVorschreiben(3).ToShortDateString) Then 'morgen + r.DefaultCellStyle.BackColor = Color.LightYellow + End If + + Else + End If + End Select + End If + End If + + + Next + + + + + + + + .SelectionMode = DataGridViewSelectionMode.FullRowSelect + .ClearSelection() + + End With + End If + + gridAviso._TRANSLATE() + End Sub + + Sub initDauerLKWFertig() + Try + + 'Dauer berechnen: + With gridAviso + + For Each r As DataGridViewRow In .Rows + If r.Cells("Dauer").Value Is DBNull.Value Or r.Cells("Dauer").Value = 0 Then + If CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Or CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Or CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then + If Not IsDBNull(r.Cells("Ankunft").Value) AndAlso Not CDate(r.Cells("Ankunft").Value) = LeerDatum Then + Dim dauerTmp = DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now) + If IsNumeric(dauerTmp) AndAlso dauerTmp > 0 Then + r.Cells("Dauer").Value = dauerTmp + Else + r.Cells("Dauer").Value = "0" + End If + Else + r.Cells("Dauer").Value = "0" + End If + End If + End If + If r.Cells("LKW_fertig").Value = "OK" Then + r.Cells("LKW_fertig").Style.ForeColor = Color.White + r.Cells("LKW_fertig").Style.BackColor = Color.FromArgb(0, 54, 128) + 'Else + 'r.Cells("LKW_fertig").Style.BackColor = Color.White + End If + If r.Cells("LKW_fertig").Value = "DE" Then + r.Cells("LKW_fertig").Style.ForeColor = Color.White + r.Cells("LKW_fertig").Style.BackColor = Color.Green + 'Else + 'r.Cells("LKW_fertig").Style.BackColor = Color.White + End If + If r.Cells("VerwahrungStatus").Value = "OK" Then + r.Cells("VerwahrungStatus").Style.ForeColor = Color.White + r.Cells("VerwahrungStatus").Style.BackColor = Color.Green + 'Else + 'r.Cells("LKW_fertig").Style.BackColor = Color.White + End If + + + Next + End With + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + + Public Sub Details_anzeigen(ByVal id As Integer, Optional reloadIfSameId As Boolean = True) ', Optional opensendungsDetails As Boolean = False) + Me.Cursor = Cursors.AppStarting + If Not Details_aktiv Then Exit Sub + + If id > 0 Then + pnlDetailsRechts.Visible = True + + showPnlRight(id, reloadIfSameId) + + Else + pnlDetailsRechts.Visible = False + End If + lblEintraege.Text = gridAviso.RowCount & " Einträge" & If(gridAviso.RowCount = 2000, " (begrenzt)", "") + + Me.Cursor = Cursors.Default + End Sub + + + Sub showPnlRight(AvisoId, reloadIfSameId) + ' MsgBox(VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoId)) + Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoId) + + Case "ATILLA" + If VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND Then + GoTo ELSE_ATILLA + Else + + 'If pnlDetailsRechts.Controls.Count > 0 Then + ' MsgBox(pnlDetailsRechts.Controls(0).Name) + 'End If + If pnlDetailsRechts.Controls.Count = 0 OrElse pnlDetailsRechts.Controls(0).Name <> "usrcntlAktDetailsATILLANeu" Then + pnlDetailsRechts.Controls.Clear() + Dim usrCntl As New usrcntlAktDetailsATILLANeu(AvisoId) + usrCntl.Dock = DockStyle.Fill + pnlDetailsRechts.Controls.Add(usrCntl) + Else + DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).reload(AvisoId) + End If + End If + + + Case Else +ELSE_ATILLA: + If pnlDetailsRechts.Controls.Count = 0 OrElse pnlDetailsRechts.Controls(0).Name <> "usrcntlAktDetails" Then + pnlDetailsRechts.Controls.Clear() + Dim usrCntl As New usrcntlAktDetails(AvisoId) + usrCntl.Dock = DockStyle.Fill + pnlDetailsRechts.Controls.Add(usrCntl) + Else + If reloadIfSameId Then + DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(AvisoId) + Else + If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> AvisoId Then + DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(AvisoId) + End If + End If + End If + End Select + End Sub + ' Dim AVISOBinding As New cBinding("AVISO") + + Public Sub Aviso_anzeigen(hSort As String, Optional showDetails As Boolean = True) + 'Paint wieder reaktivieren + locZeilen = -1 + If Not Grid_aktiv Then Exit Sub + ' Grid_aktiv = False + Dim hStart As Integer = My.Computer.Clock.TickCount + Details_aktiv = False + gridAviso.GetOrder() + + + Dim datumseinschr = "" + Dim top = "TOP 1000 " + + Dim hSQL As String = "" + If AVISO_TYP = "LKW" Then + + '---------------------------------------------------------------------------------------------------------------------------------- + '--- LKW --- + '---------------------------------------------------------------------------------------------------------------------------------- + + 'Bei ANKUNFT nicht nach Datum einschränken + If tbcntrAvisoLKW.SelectedTab Is tabAnkunft Or tbcntrAvisoLKW.SelectedTab Is tabErfasst Or tbcntrAvisoLKW.SelectedTab Is tabVorbereitet Or tbcntrAvisoLKW.SelectedTab Is tabVorgeschrieben Then + pnlTime.Visible = False + Else + pnlTime.Visible = True + Select Case MyComboBox1._value + Case UStatus_none + top = " TOP 1000 " + Case UStatus_AVEingang : datumseinschr &= " AND AvisoEingang >= " & SQLDatum(dtpVon.Value) & " AND AvisoEingang < " & SQLDatum(dtpBis.Value.AddDays(1)) + Case Status_Erfasst : datumseinschr &= " AND Datum >= " & SQLDatum(dtpVon.Value) & " AND Datum < " & SQLDatum(dtpBis.Value.AddDays(1)) + Case Status_Vorgeschrieben : datumseinschr &= " AND Vorgeschrieben >= " & SQLDatum(dtpVon.Value) & " AND Vorgeschrieben < " & SQLDatum(dtpBis.Value.AddDays(1)) + Case Status_Vorbereitet : datumseinschr &= " AND Vorbereitet >= " & SQLDatum(dtpVon.Value) & " AND Vorbereitet < " & SQLDatum(dtpBis.Value.AddDays(1)) + Case Status_Ankunft : datumseinschr &= " AND Ankunft >= " & SQLDatum(dtpVon.Value) & " AND Ankunft < " & SQLDatum(dtpBis.Value.AddDays(1)) + Case Status_Freigegeben : datumseinschr &= " AND Freigabe >= " & SQLDatum(dtpVon.Value) & " AND Freigabe < " & SQLDatum(dtpBis.Value.AddDays(1)) + End Select + End If + + If pnlSearch.Visible Then + top = " TOP 1000 " + End If + + + hSQL = "SELECT " & top & " Status, AvisoID, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter,CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],CASE WHEN [ZOLLDigitalEingereicht] = 1 THEN 'DE' WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben, Freigabe, " + hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen,isnull(Transportmittelart,'')Transportmittelart" + hSQL &= " FROM Aviso " + hSQL &= " WHERE 1=1 " + + If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" And cbxCluster.Checked Then + hSQL &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) " + Else + hSQL &= " AND FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " + End If + If pnlSearch.Visible Then + Dim srchkrit = False + Dim hSQLSnd = "" + hSQLSnd &= " AND ( SELECT COUNT(*) FROM tblSendungen where tblSnd_AvisoId=AvisoId " + If txtEmpfänger.Text <> "" Then hSQLSnd &= " AND tblSnd_Empfaenger LIKE '" & txtEmpfänger.Text.Replace("*", "%") & "%' " : srchkrit = True + If txtAbsender.Text <> "" Then hSQLSnd &= " AND tblSnd_Absender LIKE '" & txtAbsender.Text.Replace("*", "%") & "%' " : srchkrit = True + If txtAuftraggeber.Text <> "" Then hSQLSnd &= " AND tblSnd_Auftraggeber LIKE '" & txtAuftraggeber.Text.Replace("*", "%") & "%' " : srchkrit = True + If txtKdAuftragsnr.Text <> "" Then hSQLSnd &= " AND (tblSnd_KdAuftragsNr LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrAvisierer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrEmpfaenger LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrFrachtfuehrer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%') " : srchkrit = True + If cboFiliale._value <> "" Then hSQLSnd &= " AND FilialenNr ='" & cboFiliale._value & "'" : srchkrit = True + If txtAbfertigungsnummer.Text <> "" Then hSQLSnd &= " AND AbfertigungsNr LIKE '" & txtAbfertigungsnummer.Text.Replace("*", "%") & "' " : srchkrit = True + If txtDyRef.Text <> "" Then hSQLSnd &= " AND tblSnd_DakosyRef LIKE '" & txtDyRef.Text.Replace("*", "%") & "' " : srchkrit = True + hSQLSnd &= " ) > 0 " + If srchkrit = True Then hSQL &= hSQLSnd + If txtlkwId.Text <> "" Then hSQL &= " AND AvisoID LIKE '" & txtlkwId.Text.Replace("*", "%") & "' " + + If cbxAlle.Checked = False Then + Dim statWhere = "" + If cbxErfasst.Checked Then statWhere &= Status_Erfasst & "," + If cbxVorb.Checked Then statWhere &= Status_Vorbereitet & "," + If cbxVorg.Checked Then statWhere &= Status_Vorgeschrieben & "," + If cbxAnkunft.Checked Then statWhere &= Status_Ankunft & "," + If cbxFreigabe.Checked Then statWhere &= Status_Freigegeben & "," + If cbxNE.Checked Then statWhere &= Status_NichtEingetroffen & "," + If statWhere.EndsWith(",") Then statWhere = statWhere.Substring(0, statWhere.Length - 1) + If statWhere <> "" Then hSQL &= " AND Status IN ( " & statWhere & " ) " Else hSQL &= " AND 1<>1 " + End If + End If + + hSQL &= datumseinschr + + + If cboGrenzstelle._value = "ALLE_WO" Then + hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) " + + Else + ' If SucheStandort <> "" Then hSQL += " AND Grenzstelle = '" & SucheStandort & "'" + If cboGrenzstelle._value <> "" Then hSQL += " AND Grenzstelle = '" & cboGrenzstelle._value & "'" + ' Bestimmungs.ZST + If cboGrenzstelle._value = "???" And txtBestimmungszollstelle._value <> "" Then + hSQL += " AND Zollstelle = '" & txtBestimmungszollstelle._value & "'" + End If + End If + + + If cboImEx._value <> "" Then + Select Case cboImEx._value + Case "IMPORT" : hSQL += " AND (ImEx = '" & cboImEx._value & "' OR ImEx = '' )" + Case "EXPORT" : hSQL += " AND ImEx = '" & cboImEx._value & "'" + End Select + + End If 'Then hSQL += " AND ImEx = '" & cboImEx._value & "'" + If cboTeams.Text <> "" Then hSQL += " AND TeamId = '" & cboTeams._value & "'" + + 'je nach Auswahl SQL anpassen + If tbcntrAvisoLKW.SelectedTab Is tabAlle Then + 'alle + 'Falls Freigabe/NE bei "ALLE" eingeschränkt werden sollte::: 'hSQL += " AND (Status NOT IN (1,2) OR (Status=1 AND Freigabe >= " & SQLDatum(dtpVon.Value) & " AND Freigabe < " & SQLDatum(dtpBis.Value.AddDays(1)) & ") OR (Status=2 AND [Datum] >= " & SQLDatum(dtpVon.Value) & " AND [Datum] < " & SQLDatum(dtpBis.Value.AddDays(1)) & "))" + + ElseIf tbcntrAvisoLKW.SelectedTab Is tabErfasst Then 'Erfasst + hSQL += " AND Status = 0" + ElseIf tbcntrAvisoLKW.SelectedTab Is tabVorbereitet Then 'Vorbereitet + hSQL += " AND Status = 4" + ElseIf tbcntrAvisoLKW.SelectedTab Is tabVorgeschrieben Then 'Vorgeschrieben + hSQL += " AND Status = 5" + ElseIf tbcntrAvisoLKW.SelectedTab Is tabAnkunft Then 'Ankunft + hSQL += " AND Status = 3" + ElseIf tbcntrAvisoLKW.SelectedTab Is tabFreigegeben Then 'Freigegeben + hSQL += " AND Status = 1" + ElseIf tbcntrAvisoLKW.SelectedTab Is tabVERIMEX Then 'Nicht Eingetroffen + hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX + ElseIf tbcntrAvisoLKW.SelectedTab Is tabINDONESIEN Then 'Nicht Eingetroffen + hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN + ElseIf tbcntrAvisoLKW.SelectedTab Is tabNichtEingetroffen Then 'Nicht Eingetroffen + hSQL += " AND Status = 2" + End If + + Dim search = txtSuche.Text.Trim + If search <> "" Then + hSQL += " AND (LKW_Nr LIKE N'%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' )" + + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And search.Length = 8 Then 'AbfertigungsNr Suche für ATILLA, length, damit nicht unnötig der Verweis zu tblSendungen hergestellt wird --> performance + ' hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' OR (SELECT count(*) FROM tblSendungen WHERE AbfertigungsNr LIKE '%" & search & "%' AND FilialenNr=4801 AND tblSnd_AvisoID=AvisoId)>0 ) " + 'Else + ' hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' )" + 'End If + End If + + + hSQL += " ORDER BY Ankunft ASC, AvisoEingang ASC, Datum ASC" + + + Else + + + '---------------------------------------------------------------------------------------------------------------------------------- + '--- Sendung --- + '---------------------------------------------------------------------------------------------------------------------------------- + Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 " 'DEFAULT = "Benutzer" + If cboMyAvisoAnzeige._value <> "" Then + If cboMyAvisoAnzeige._value = "ALLE" Then + ' inBearbeitungSQL = " 1=1 " 'ALLE + inBearbeitungSQL = " ( (tblSendungen.[tblSnd_TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) OR (Aviso.[TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND tblSendungen.[tblSnd_TeamId] is null)) OR [tblSendungen].tblSnd_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR tblSendungen.LetzterMitarbeiterId=@maId) " + ElseIf cboMyAvisoAnzeige._value = "T1" Then + inBearbeitungSQL = " tblSnd_Abfertigungsart_ID=5 " + 'NUR VERAG/IMEX: + inBearbeitungSQL &= " AND FilialenNr IN (SELECT FilialenNr FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen WHERE Filialen.FilialenNr=tblSendungen.FilialenNr and Filialen.Firma IN ('VERAG','IMEX')) " + ElseIf cboMyAvisoAnzeige._value <> "Benutzer" And IsNumeric(cboMyAvisoAnzeige._value) Then + If cboMyAvisoAnzeige._value = "27" Then ' TEAM SALZBURG + inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId + OR Grenzstelle IN('SBG') OR (tblSendungen.FilialenNr IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66)) ) " + Else + inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId) " + + End If + End If + End If + + hSQL = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],[Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " & + " ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " & + " FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " & + " WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " & + hSQLFirma & " AND ( " & inBearbeitungSQL & ") " + + Select Case cboMy_VB.CheckState + Case CheckState.Checked : hSQL &= " AND tblSnd_Vorgeschrieben is not null " + Case CheckState.Unchecked : hSQL &= " AND tblSnd_Vorgeschrieben is null " + ' Case CheckState.Indeterminate : hSQL &= " AND tblSnd_Vorbereitet is not null " + End Select + Select Case cboMy_QS.CheckState + Case CheckState.Checked : hSQL &= " AND tblSnd_Vorbereitet is not null " + Case CheckState.Unchecked : hSQL &= " AND tblSnd_Vorbereitet is null " + ' Case CheckState.Indeterminate : hSQL &= " AND tblSnd_Vorbereitet is not null " + End Select + If cboMy_Grenzstelle._value = "ALLE_WO" Then + hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) " + + Else + + If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then hSQL &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'" + If cboMy_Grenzstelle._value = "ALLE_BACK" Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') " + + End If + + If cbx_My_Brexit.Visible AndAlso Not cbx_My_Brexit.Checked Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') " + + 'Farbe + If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then + Select Case btnColor.BackColor + Case Color.Red + hSQL &= " AND (Status = 3 ) " + Case Color.Orange + ' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(GETDATE() AS DATE) ) ) " + hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(DATEADD(DAY, " & getDaysVorschreiben(1) & ",GETDATE()) AS DATE) ) ) " + Case Color.Yellow + hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY," & getDaysVorschreiben(2) & ",GETDATE()) AS DATE) AND cast(DATEADD(DAY," & getDaysVorschreiben(3) & ",GETDATE()) AS DATE) ) ) " + End Select + End If + ''Farbe + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then + ' Select Case btnColor.BackColor + ' Case Color.Red + ' hSQL &= " AND (Status = 3 OR (Status IN (0, 3, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE)<= cast(GETDATE() AS DATE) ) or VoraussichtlichesEintreffen is null) " + ' Case Color.Orange + ' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) = cast(DATEADD(DAY, 1,GETDATE()) AS DATE) ) ) " + ' Case Color.Yellow + ' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY, 2,GETDATE()) AS DATE) AND cast(DATEADD(DAY, 3,GETDATE()) AS DATE) ) ) " + ' End Select + 'End If + + 'hSQL &= " AND (Grenzstelle ='???' OR Status NOT IN (1)) " ' "Freigabe" nur bei Fremde Grenze anzeigen! + ' Funktioniert nciht, wg. WO + + hSQL &= " ORDER BY case " & " when [Status] =3 then 0 " & " when [Status] =1 then 5 " & " else 1 " & " END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID") + + End If + + ' MsgBox(hSQL) + 'If hSort = "" Then + 'hSQL += " ORDER BY Ankunft DESC, AvisoEingang DESC, Datum DESC" + ' Else + ' hSQL += " " & hSort + ' End If + gridAviso.DefaultCellStyle.Font = gridFont + gridAviso.RowTemplate.Height = rowHeight 'muss vor Bindung sein + 'gridAviso.DataSource = AvisoDAL.loadDataTableBySQL(hSQL) + gridAviso.SET_SQL(hSQL, "AVISO") + Dim errOcc = False + gridAviso.LOAD(False, errOcc) + If errOcc Then + pic.Visible = True + End If + ' AVISOBinding.setARITHABORTOn() + 'AVISOBinding.initBinding(hSQL, "Aviso") + 'gridAviso.DataSource = AVISOBinding.bindingSource + + 'MsgBox(DirectCast(gridAviso.DataSource, DataTable).Rows.Count) + 'Grid neu designen + + + If CheckBox1.Checked Then + gridAviso_SpaltenFestlegen() + End If + + 'Tabelle Kommt/Geht bereinigen + If gridAviso.RowCount = 0 Then + gridAviso.DataSource = Nothing + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = 0 + ' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cglobal.Aktive_ID) + End If + + 'Anzeige der Anzahl gewählter Datensätze + VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl = gridAviso.RowCount + 'If AnzahlAuswahl > AnzahlAlle Then AnzahlAlle = AnzahlAuswahl + ' lblAnzahl.Text = "Einträge: " & Format(VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl, "#,##0") & " ausgewählt" ' / " & Format(AnzahlAlle, "#,##0") & " gesamt" + + hMerkZeit = Now + lblZeit_aktuell.Text = "letzte Aktualisierung: " & Format(Now, "HH:mm") + + + + 'Focus auf 1. Zeile setzen, falls Auswahl vorhanden + If showDetails Then + If VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl > 0 Then gridAviso.CurrentCell = gridAviso.Rows(0).Cells(1) + End If + + Dim hEnde As Integer = My.Computer.Clock.TickCount + Dim hDifferenz As Integer = hEnde - hStart + ' btnÜbernehmen.Visible = True + Grid_aktiv = True + 'Aviso_anzeigen("") + If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID <= 0 Then + If gridAviso.RowCount > 0 Then gridAviso.Rows(0).Selected = True + End If + + gridAviso.SetOrder() + Details_aktiv = True + + If showDetails Then + If gridAviso.SelectedRows.Count > 0 Then + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = gridAviso.SelectedRows(0).Cells("AvisoID").Value + End If + Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + End If + If chkFarben Then GridZeichnenAviso() + Label8.Visible = False + lblDauer.Text = "" & hDifferenz.ToString & " ms" + 'lblDauer.Text = "Dauer Anzeige aufbauen: " & hDifferenz.ToString & " ms" + End Sub + + Public Sub setProfileImage() + Try + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId IsNot Nothing Then + + + 'Get the original image. + 'Dim originalImage = Image.FromFile("\\share01\Datenarchiv\DOKUMENTE\MITARBEITER\PERSONAL_FOTOS\20200419_000451_Hofer_375.jpg") 'My.Resources.Koerfez61 + 'Dim originalImage = Image.FromFile("\\share01\Datenarchiv\DOKUMENTE\MITARBEITER\PERSONAL_FOTOS\20220620_091930_Luxbauer_4.jpg") 'My.Resources.Koerfez61 + Dim originalImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId)) 'My.Resources.Koerfez61 + 'Dim originalImage = Image.FromFile("C:\Users\DEVELOPER1\Desktop\grund.png") 'My.Resources.Koerfez61 + + ' MsgBox(cDATENSERVER.GET_PDFPath_BY_DocID(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId)) + + + Dim picSize = 35 + + Dim space_X As Integer = 0 + Dim space_Y As Integer = 0 + Dim picWidth As Integer = 0 + Dim picHheight As Integer = 0 + + Dim factor As Double = 1 + If originalImage.Height < originalImage.Width Then + factor = picSize / originalImage.Height + picWidth = originalImage.Width * factor + picHheight = originalImage.Height * factor + ' space_X = (picWidth - picHheight) / 2 + + Else + factor = picSize / originalImage.Width + picWidth = originalImage.Width * factor + picHheight = originalImage.Height * factor + ' space_X = (picHheight - picWidth) / 2 + End If + + ' MsgBox(picWidth & " - " & picHheight) + 'Create a new, blank image with the same dimensions. + Dim croppedImage As New Bitmap(picWidth, picHheight) + + 'Prepare to draw on the new image. + Using g = Graphics.FromImage(croppedImage) + Dim path As New GraphicsPath + + 'Create an ellipse that fills the image in both directions. + 'path.AddEllipse(0, 0, croppedImage.Width, croppedImage.Height) + path.AddEllipse(0, 0, picSize, picSize) + + Dim reg As New Region(path) + + 'Draw only within the specified ellipse. + g.Clip = reg + 'g.DrawImage(originalImage, 0, 0, picSize, picSize) + g.DrawImage(originalImage, 0, 0, picWidth, picHheight) + End Using + + 'Display the new image. + btnMitarbeiterKonto.Image = croppedImage + + Exit Sub + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + btnMitarbeiterKonto.Image = My.Resources.mitarbeiter_s + + End Sub + + Function setAkive_AuswahlID() As Integer + If gridAviso.SelectedRows.Count > 0 Then + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridAviso.Rows(gridAviso.SelectedRows(0).Index).Cells("AvisoID").Value) + Else + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1 + End If + + 'If gridMyAviso.SelectedRows.Count > 0 Then + ' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridMyAviso.Rows(gridMyAviso.SelectedRows(0).Index).Cells("AvisoID").Value) + ' If Not cbx_My_LKW.Checked Then + ' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = CInt(gridMyAviso.Rows(gridMyAviso.SelectedRows(0).Index).Cells("tblSnd_SendungID").Value) + ' Else + ' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1 + + ' End If + 'Else + ' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1 + 'End If + + Return VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID + End Function + + + + Function formatdate(s) As String + If s IsNot Nothing AndAlso IsDate(s) AndAlso CDate(s) > LeerDatum Then + If CDate(s).ToShortDateString = Now.ToShortDateString Then + Return "heute, " & CDate(s).ToShortTimeString & "" + End If + Return "" & CDate(s).ToString("dd.MM.") & ", " & CDate(s).ToShortTimeString & "" + End If + Return "" + End Function + + + 'Private Sub Aviso_anzeigen("") + ' Try + + ' If Not Grid_aktiv Then Exit Sub + ' ' Grid_aktiv = False + ' hMerkZeit_MeineAviso = Now + + + ' 'Dim hSQL As String = " EXECUTE spMyAviso @maId='" & (cGlobal.AktiverMitarbeiter.MitarbeiterID) & "' " + ' If gridMyAviso Is Nothing Then Exit Sub + + ' gridMyAviso.DefaultCellStyle.Font = gridFont + ' gridMyAviso.RowTemplate.Height = rowHeight 'muss vor Bindung sein + + ' Try + ' If gridMyAviso.Columns IsNot Nothing AndAlso gridMyAviso.ColumnCount > 0 Then ' Sunst komischer Fehler DataAreaMouseLeave + ' gridMyAviso.Columns.Clear() + ' End If + ' gridMyAviso.DataSource = Nothing + + ' 'gridMyAviso.Columns.Clear() 'Macht CellMouseLeave-Fehler????? + + ' Catch ex As Exception + + ' End Try + + + + ' 'Dim dt As DataTable = VERAGSQL.loadDgvBySql(" SELECT distinct(tblSnd_AvisoID) FROM [tblSendungen] WHERE tblSnd_inbearbeitung=1 AND tblSnd_Bearbeitung_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "", "AVISO") + ' 'If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + ' ' inBearbeitungSQL = " AVISOid IN (" + ' ' For Each r In dt.Rows + ' ' inBearbeitungSQL &= r(0) & "," + ' ' Next + ' ' inBearbeitungSQL = inBearbeitungSQL.Substring(0, inBearbeitungSQL.Length - 1) + ' ' inBearbeitungSQL &= " ) " + ' 'End If + + ' Dim sqlStr As String = "" + + ' Dim sqlStrFirma As String = "" + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" And cbxCluster.Checked Then + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then + ' sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' OR FIRMA='ATILLA' ) " + ' Else + ' sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) " + + ' End If + + ' Else + ' sqlStrFirma &= " AND FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " + ' End If + + ' 'Verimex soll keine Abgeschlossenen und keine Freigegebenen sehen: + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then sqlStrFirma &= " AND Abgeschlossen=0 AND Status <>1 " + + + ' If cbx_My_LKW.Checked Then + ' '---------------------------------------------------------------------------------------------------------------------------------- + ' '--- LKW --- + ' '---------------------------------------------------------------------------------------------------------------------------------- + ' sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],[Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe,LetzterMitarbeiterId AS maId, LetzterMitarbeiterId ,/* CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,*/LetzterMitarbeiter,AvisoTVHinweis " & + ' " FROM Aviso " & + ' " WHERE ( Status IN (0, 3, 4, 5,6,7) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " & + ' sqlStrFirma & " AND (LetzterMitarbeiterId=@maId) " + ' 'If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'" + + ' If cboMy_Grenzstelle._value = "ALLE_WO" Then + ' sqlStr += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) " + ' 'ElseIf cboMy_Grenzstelle._value = "SBG+AMB" Then + ' ' sqlStr &= " AND (Grenzstelle IN('SBG') OR (tblSendungen.FilialenNr IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66) )) " + ' ElseIf cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then + ' sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'" + + ' End If + + + ' sqlStr &= " ORDER BY case " & + ' " when [Status] =3 then 0 " & + ' " when [Status] =6 then 0.5 " & + ' " when [Status] =7 then 0.5 " & + ' " when [Status] =0 then 1 " & + ' " when [Status] =99 then 2 " & + ' " when [Status] =4 then 3 " & + ' " when [Status] =1 then 4 " & + ' " when [Status] =5 then 4 " & + ' " when [Status] =0 then 5 " & + ' " END, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID") + ' Else + + ' '---------------------------------------------------------------------------------------------------------------------------------- + ' '--- Sendung --- + ' '---------------------------------------------------------------------------------------------------------------------------------- + ' Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 " 'DEFAULT = "Benutzer" + ' If cboMyAvisoAnzeige._value <> "" Then + ' If cboMyAvisoAnzeige._value = "ALLE" Then + ' ' inBearbeitungSQL = " 1=1 " 'ALLE + ' inBearbeitungSQL = " ( (tblSendungen.[tblSnd_TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) OR (Aviso.[TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND tblSendungen.[tblSnd_TeamId] is null)) OR [tblSendungen].tblSnd_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR tblSendungen.LetzterMitarbeiterId=@maId) " + ' ElseIf cboMyAvisoAnzeige._value = "T1" Then + ' inBearbeitungSQL = " tblSnd_Abfertigungsart_ID=5 " + ' 'NUR VERAG/IMEX: + ' inBearbeitungSQL &= " AND FilialenNr IN (SELECT FilialenNr FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen WHERE Filialen.FilialenNr=tblSendungen.FilialenNr and Filialen.Firma IN ('VERAG','IMEX')) " + ' ElseIf cboMyAvisoAnzeige._value <> "Benutzer" And IsNumeric(cboMyAvisoAnzeige._value) Then + ' If cboMyAvisoAnzeige._value = "27" Then ' TEAM SALZBURG + ' inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId + ' OR Grenzstelle IN('SBG') OR (tblSendungen.FilialenNr IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66)) ) " + ' Else + ' inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId) " + + ' End If + ' End If + ' End If + + ' sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus], [Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " & + ' " ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,isnull(tblSnd_Zollsystem_Land,'')tblSnd_Zollsystem_Land,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " & + ' " FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " & + ' " WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " & + ' sqlStrFirma & " AND ( " & inBearbeitungSQL & ") " + + ' Select Case cboMy_VB.CheckState + ' Case CheckState.Checked : sqlStr &= " AND tblSnd_Vorgeschrieben is not null " + ' Case CheckState.Unchecked : sqlStr &= " AND tblSnd_Vorgeschrieben is null " + ' ' Case CheckState.Indeterminate : sqlStr &= " AND tblSnd_Vorbereitet is not null " + ' End Select + ' Select Case cboMy_QS.CheckState + ' Case CheckState.Checked : sqlStr &= " AND tblSnd_Vorbereitet is not null " + ' Case CheckState.Unchecked : sqlStr &= " AND tblSnd_Vorbereitet is null " + ' ' Case CheckState.Indeterminate : sqlStr &= " AND tblSnd_Vorbereitet is not null " + ' End Select + ' If cboMy_Grenzstelle._value = "ALLE_WO" Then + ' sqlStr += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) " + + ' Else + + ' If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'" + ' If cboMy_Grenzstelle._value = "ALLE_BACK" Then sqlStr &= " AND FilialenNr NOT IN ('7001','7002','7003') " + + ' End If + + ' If cbx_My_Brexit.Visible AndAlso Not cbx_My_Brexit.Checked Then sqlStr &= " AND FilialenNr NOT IN ('7001','7002','7003') " + + ' 'Farbe + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then + ' Select Case btnColor.BackColor + ' Case Color.Red + ' sqlStr &= " AND (Status = 3 ) " + ' Case Color.Orange + ' ' sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(GETDATE() AS DATE) ) ) " + ' sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(DATEADD(DAY, " & getDaysVorschreiben(1) & ",GETDATE()) AS DATE) ) ) " + ' Case Color.Yellow + ' sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY," & getDaysVorschreiben(2) & ",GETDATE()) AS DATE) AND cast(DATEADD(DAY," & getDaysVorschreiben(3) & ",GETDATE()) AS DATE) ) ) " + ' End Select + ' End If + ' ''Farbe + ' 'If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then + ' ' Select Case btnColor.BackColor + ' ' Case Color.Red + ' ' sqlStr &= " AND (Status = 3 OR (Status IN (0, 3, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE)<= cast(GETDATE() AS DATE) ) or VoraussichtlichesEintreffen is null) " + ' ' Case Color.Orange + ' ' sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) = cast(DATEADD(DAY, 1,GETDATE()) AS DATE) ) ) " + ' ' Case Color.Yellow + ' ' sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY, 2,GETDATE()) AS DATE) AND cast(DATEADD(DAY, 3,GETDATE()) AS DATE) ) ) " + ' ' End Select + ' 'End If + + ' 'sqlStr &= " AND (Grenzstelle ='???' OR Status NOT IN (1)) " ' "Freigabe" nur bei Fremde Grenze anzeigen! + ' ' Funktioniert nciht, wg. WO + + ' sqlStr &= " ORDER BY case " & " when [Status] =3 then 0 " & " when [Status] =1 then 5 " & " else 1 " & " END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID") + + ' End If + ' ' MsgBox(sqlStr) + ' 'Dim sqlStr As String = " SELECT AvisoID, [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, LetzterMitarbeiterId AS maId, CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,LetzterMitarbeiter,CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],AvisoTVHinweis " & + ' ' " FROM Aviso " & + ' ' " WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " & + ' ' " AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND (LetzterMitarbeiterId=@maId OR " & inBearbeitungSQL & ") " & + ' ' "ORDER BY case " & + ' ' " when [Status] =3 then 0 " & + ' ' " when [Status] =0 then 1 " & + ' ' " when [Status] =99 then 2 " & + ' ' " when [Status] =4 then 3 " & + ' ' " when [Status] =1 then 4 " & + ' ' " when [Status] =5 then 4 " & + ' ' " when [Status] =0 then 5 " & + ' ' " END, Ankunft" + + + ' 'Public Const Status_Erfasst = 0 + ' 'Public Const Status_Vorbereitet = 4 + ' 'Public Const Status_Vorgeschrieben = 5 + ' 'Public Const Status_Freigegeben = 1 + ' 'Public Const Status_NichtEingetroffen = 2 + ' 'Public Const Status_Ankunft = 3 + + + ' Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)) + ' If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '? vlt hilfts... + + ' Dim errOcc = False + + ' 'MsgBox(sqlStr) + ' Try + ' gridMyAviso.DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list, False, errOcc) + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG) + ' End Try + + ' If errOcc Then + ' pic.Visible = True + ' End If + ' ' gridMyAviso.DataSource = VermerkeDAL.loadTableMyAviso(VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID) + ' ' MsgBox(DateDiff(DateInterval.Minute, CDate(VarToDate("16.12.2013 11:02:08")), CDate(VarToDate("16.12.2013 12:02:08")))) + ' ' MsgBox(gridMyAviso.RowCount) + + ' ' Dim bfont = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) + ' Dim nfont = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Regular) + + + ' 'MsgBox(sqlStr) + + + ' With gridMyAviso + ' If .Columns.Count <= 0 Then pic.Visible = False : Exit Sub + ' If .Columns("AvisoID") Is Nothing Then pic.Visible = False : Exit Sub + + ' .DefaultCellStyle.Font = nfont + + ' .MultiSelect = False + ' .Columns("AvisoID").Visible = False 'AvisoID nicht anzeigen + ' .Columns("Freigabe").Visible = False 'AvisoID nicht anzeigen + ' .Columns("maId").Visible = False 'maID nicht anzeigen + ' '.Columns("Vorbereitung").Visible = False 'Vorber. nicht anzeigen + + ' .Columns("LetzterMitarbeiter").Visible = False 'Mitarb. nicht anzeigen + ' .Columns("LetzterMitarbeiterId").Visible = False 'Mitarb. nicht anzeigen + ' .Columns("LetzterMitarbeiter").Visible = False 'Mitarb. nicht anzeigen + + ' .Columns("Status").Width = 90 + ' .Columns("Status").HeaderText = "Status" + + ' .Columns("LKW_Nr").MinimumWidth = 90 + ' .Columns("LKW_Nr").HeaderText = "LKW-Kennzeichen" + ' .Columns("LKW_Nr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + ' .Columns("AvisoTVHinweis").Visible = False ' = 60 + ' .Columns("Dauer").Visible = False ' = 60 + + + ' .Columns("Datum").Visible = False 'Mitarb. nicht anzeigen + ' '.Columns("Datum").Width = 145 '115 + ' '.Columns("Datum").HeaderText = "Erfasst" + ' '.Columns("Datum").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)" + ' '.Columns("Datum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter + + ' .Columns("AvisoEingang").Visible = False + ' ' .Columns("AvisoEingang").Width = 120 + ' ' .Columns("AvisoEingang").HeaderText = "Av.Eingang" + ' ' .Columns("AvisoEingang").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)" + ' ' .Columns("AvisoEingang").DefaultCellStyle.Format = "HH:mm, dddd" + + ' .Columns("Ankunft").Visible = False + ' .Columns("Ankunft").Width = 145 '115 + ' .Columns("Ankunft").HeaderText = "Ankunft" + ' .Columns("Ankunft").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)" + + ' ' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + ' .Columns("Grenzstelle").Visible = True + ' .Columns("Grenzstelle").Width = 70 + ' .Columns("Grenzstelle").HeaderText = "Grenzstelle" + ' .Columns("Grenzstelle").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter + ' .Columns("Grenzstelle").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + ' ' Else + ' ' .Columns("Grenzstelle").Visible = False + ' ' End If + + ' .Columns("Freigabe").Width = 80 + ' .Columns("Freigabe").HeaderText = "Freigabe" + ' ' .Columns("Freigabe").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)" + + ' .Columns("LKW_fertig").Width = 35 + ' .Columns("LKW_fertig").HeaderText = "OK" + ' .Columns("LKW_fertig").DefaultCellStyle.ForeColor = Color.White + ' .Columns("LKW_fertig").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + + ' If cboGrenzstelle._value = "NEU" Then + ' .Columns("VerwahrungStatus").Width = 55 + ' .Columns("VerwahrungStatus").HeaderText = "Kontrolle" + ' .Columns("VerwahrungStatus").DefaultCellStyle.ForeColor = Color.White + ' .Columns("VerwahrungStatus").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + ' .Columns("VerwahrungStatus").Visible = True + ' Else + ' .Columns("VerwahrungStatus").Visible = False + ' End If + + ' If gridMyAviso.RowCount = 0 Then gridMyAviso.Columns.Clear() : Exit Sub + + + ' Dim t As New DataGridViewTextBoxColumn + ' t.Name = "DauerText" + ' t.Width = 80 + ' t.HeaderText = "Dauer" + ' t.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter + ' t.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + ' .Columns.Insert(7, t) + + + + ' If cbx_My_LKW.Checked Then + ' .Columns("statVorb").Visible = False 'Mitarb. nicht anzeigen + ' Else + ' .Columns("tblSnd_Status").Visible = False + + ' .Columns("tblSnd_Abfertigungsart_ID").Visible = False + ' .Columns("tblSnd_Zollsystem_Land").Visible = False + ' .Columns("tblSnd_Vorgeschrieben").Visible = False + ' .Columns("tblSnd_Vorbereitet").Visible = False + ' .Columns("tblSnd_SendungID").Visible = False + ' .Columns("tblSnd_Fremdspedition").Visible = False + ' .Columns("tblSnd_FremdspeditionText").Visible = False + + ' .Columns("tblSnd_Empfaenger").MinimumWidth = 80 + ' .Columns("tblSnd_Empfaenger").HeaderText = "Empfaenger" + ' .Columns("tblSnd_Empfaenger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + ' .Columns("VoraussichtlichesEintreffen").Width = 55 + ' .Columns("VoraussichtlichesEintreffen").HeaderText = "Eintreffen" + ' .Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Format = "dd.MM." + + ' ' .Columns("Vermerke_Anzahl").Width = 60 + ' ' .Columns("Vermerke_Anzahl").HeaderText = "Vermerke" + ' ' .Columns("Vermerke_Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + ' .Columns("AbfertigungsNr").Width = 110 + ' .Columns("AbfertigungsNr").HeaderText = "Pos-Nr." + ' .Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft + ' .Columns("AbfertigungsNr").Visible = False + + + + + + ' Dim c As DataGridViewImageColumn + ' c = New DataGridViewImageColumn + ' c.Name = "StatusVorbereitetQS" + ' c.Image = My.Resources.statusBtn_vorbereitet_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom + ' c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White + ' c.ToolTipText = "Status 'Vorbereitet-QS' eintragen" + ' c.HeaderText = "QS" + ' .Columns.Add(c) + + + ' c = New DataGridViewImageColumn + ' c.Name = "StatusVorgeschrieben" + ' c.Image = My.Resources.statusBtn_vorgeschrieben_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom + ' c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White + ' c.ToolTipText = "Status 'Vorgeschrieben' eintragen" + ' c.HeaderText = "VG" + ' .Columns.Add(c) + + + ' Dim t2 = New DataGridViewTextBoxColumn + ' t2.Name = "Abfertigungsart" + ' t2.HeaderText = "Abfertigungsart" + ' t2.Width = 110 : t.DefaultCellStyle.Padding = New Padding(2) : t2.DefaultCellStyle.BackColor = Color.White + ' 't.ToolTipText = "" + ' .Columns.Insert(7, t2) + + ' End If + + + ' 'Dauer berechnen: + ' For Each r As DataGridViewRow In .Rows + ' r.DefaultCellStyle.Font = nfont + ' If Not cbx_My_LKW.Checked Then + ' If r.Cells("tblSnd_Fremdspedition").Value Then 'FREMDANMELDER + ' r.Cells("Abfertigungsart").Style.BackColor = Color.FromArgb(230, 230, 230) + ' ' r.Cells("tblSnd_PosUnterNr").Style.BackColor = Color.FromArgb(230, 230, 230) + ' ' r.Cells("Abfertigungsart").Value = "FREMD" + ' r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value + ' Else 'Nomal + ' Dim Abfertigungsland As String = r.Cells("tblSnd_Zollsystem_Land").Value + ' If Abfertigungsland <> "" Then Abfertigungsland = "[" & Abfertigungsland & "] " + + ' r.Cells("Abfertigungsart").Value = VERAGSQL.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL") + ' r.Cells("Abfertigungsart").Value = Abfertigungsland & r.Cells("Abfertigungsart").Value + + ' If r.Cells("Abfertigungsart").Value.ToString.Length > 20 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 20) & ".." + ' End If + + ' If .Columns("StatusVorbereitetQS") IsNot Nothing Then + ' If r.Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then + ' DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorbereitet_Aktiv + ' DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")" + ' Else + ' DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' eintragen" + ' End If + ' End If + ' If .Columns("StatusVorgeschrieben") IsNot Nothing Then + ' If r.Cells("tblSnd_Vorgeschrieben").Value IsNot DBNull.Value Then + ' DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorgeschrieben_Aktiv + ' DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")" + ' Else + ' DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' eintragen" + ' End If + ' End If + + ' End If + + ' ' MsgBox(r.Cells(1).Value) + ' ' MsgBox(r.Cells(6).Value) + ' ' MsgBox(DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells(6).Value)), Now)) + ' If Not IsDBNull(r.Cells("Ankunft").Value) AndAlso Not CDate(r.Cells("Ankunft").Value) = LeerDatum Then + ' If CInt(r.Cells("Status").Value) > VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then + ' Dim dauerTmp = DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now) + ' If IsNumeric(dauerTmp) Then + ' r.Cells("Dauer").Value = dauerTmp + ' r.Cells("DauerText").Value = cProgramFunctions.MinToTime2(dauerTmp) + ' Else + ' r.Cells("Dauer").Value = "0" + ' r.Cells("DauerText").Value = "0" + ' End If + ' End If + ' Else + ' r.Cells("DauerText").Value = "0" + ' r.Cells("Dauer").Value = "0" + + ' End If + + + ' If r.Cells("VerwahrungStatus").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green + ' If r.Cells("LKW_fertig").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.FromArgb(0, 54, 128) + ' If r.Cells("LKW_fertig").Value = "DE" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green + ' If r.Cells("Dauer").Value > 120 Then r.Cells("DauerText").Style.ForeColor = Color.Red + ' ' MsgBox(r.Cells("Dauer").Value) + + ' ' If CBool(r.Cells("Vorbereitung").Value) = True Then + ' 'r.Cells("Status").Value = 99 + ' 'End If + + + + + ' 'Farbkennung + + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then + ' If Not cbx_My_LKW.Checked Then + ' Select Case r.Cells("Status").Value + ' Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben '"1", "2" + ' ' Freigabe, N.Eingetr. + ' Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft '"3" + ' ' Ankunft + ' r.DefaultCellStyle.BackColor = Color.IndianRed + ' r.Cells("DauerText").Style.ForeColor = Color.White + ' Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX, VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN + ' ' Ankunft + ' r.DefaultCellStyle.BackColor = Color.SteelBlue + ' r.Cells("DauerText").Style.ForeColor = Color.White + ' Case Else + ' 'Alle anderen Status: + ' If r.Cells("VoraussichtlichesEintreffen").Value IsNot DBNull.Value AndAlso IsDate(r.Cells("VoraussichtlichesEintreffen").Value) Then + + ' Dim VoraussichtlichesEintreffen = CDate(r.Cells("VoraussichtlichesEintreffen").Value) + + ' 'If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.ToShortDateString) Then 'heute + ' ' r.DefaultCellStyle.BackColor = Color.IndianRed + ' 'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'morgen + ' ' r.DefaultCellStyle.BackColor = Color.Orange + ' 'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'Ümorgen+ÜÜmorgen + ' ' r.DefaultCellStyle.BackColor = Color.LightYellow + ' 'End If + + ' 'If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'heute + ' ' r.DefaultCellStyle.BackColor = Color.Orange + ' 'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'morgen + ' ' r.DefaultCellStyle.BackColor = Color.LightYellow + ' 'End If + + ' If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(getDateVorschreiben(1).ToShortDateString) Then 'heute + ' r.DefaultCellStyle.BackColor = Color.Orange + ' ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(getDateVorschreiben(3).ToShortDateString) Then 'morgen + ' r.DefaultCellStyle.BackColor = Color.LightYellow + ' End If + + ' Else + ' End If + ' End Select + ' End If + ' End If + + + ' Next + + + + + + + + + ' '.Width = gridAviso.Width - gridVermerke.Width + ' '.Sort(.Columns(3), System.ComponentModel.ListSortDirection.Descending) + ' .SelectionMode = DataGridViewSelectionMode.FullRowSelect + ' .ClearSelection() + ' ._TRANSLATE() + ' End With + + ' Catch ex As Exception + ' ' MsgBox(ex.Message) + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' End Try + ' ' Grid_aktiv = True + + 'End Sub + + + + Function getDateVorschreiben(addDays) As Date + Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(Now.Year) 'Evtl Jahressprung, darum neu definieren + + While FT.isFeiertag(Now.AddDays(addDays), VERAG_PROG_ALLGEMEIN.cAllgemein.GET_LAND()) Or FT.isWeekend(Now.AddDays(addDays)) + addDays += 1 + End While + Return Now.AddDays(addDays) + End Function + + Function getDaysVorschreiben(addDays) As Integer + Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(Now.Year) 'Evtl Jahressprung, darum neu definieren + + While FT.isFeiertag(Now.AddDays(addDays), VERAG_PROG_ALLGEMEIN.cAllgemein.GET_LAND()) Or FT.isWeekend(Now.AddDays(addDays)) + addDays += 1 + End While + Return addDays + End Function + + + 'Private Sub dgvSendungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) + ' Try + ' If e.RowIndex > 0 Then + + ' ' MsgBox(gridMyAviso.Columns(e.ColumnIndex).Name) + ' If Not cbx_My_LKW.Checked Then + ' If True Then 'gridMyAviso.SelectedRows.Count = 1 Then + ' Dim SendungsId = gridMyAviso.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value + ' Dim AvisoID = gridMyAviso.Rows(e.RowIndex).Cells("AvisoID").Value + ' If SendungsId > 0 And AvisoID > 0 Then + + ' Select Case gridMyAviso.Columns(e.ColumnIndex).Name + + ' Case "StatusVorgeschrieben" + ' Me.Cursor = Cursors.WaitCursor + ' If FUNC.setSendungVorgeschrieben(SendungsId, AvisoID) Then + ' avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_anzeigen("") + ' End If + ' Me.Cursor = Cursors.Default + ' Case "StatusVorbereitetQS" + ' Me.Cursor = Cursors.WaitCursor + ' If FUNC.setSendungVorbereitetQS(SendungsId, AvisoID) Then + ' avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_anzeigen("") + ' End If + + ' Me.Cursor = Cursors.Default + ' End Select + ' End If + ' End If + ' End If + ' End If + + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' End Try + 'End Sub + + + 'Private Sub gridMyAviso_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) + ' Try + + + ' If gridMyAviso Is Nothing Then Exit Sub + ' If gridMyAviso.Columns Is Nothing Then Exit Sub + ' If gridMyAviso.ColumnCount = 0 Then Exit Sub + + + ' 'Anzahl Minuten als verständlichen Text anzeigen + ' Select Case gridMyAviso.Columns(e.ColumnIndex).Name + ' Case "Status" 'Status + + ' 'Dim vb As Boolean = gridMyAviso.Rows(e.RowIndex).Cells("statVorb").Value + ' 'Select Case VarToInt(e.Value) + ' ' Case 0 : e.Value = IIf(vb, "Erfasst (in VB)", "Erfasst") : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromArgb(60, 60, 60) + ' ' Case 1 : e.Value = IIf(vb, "Freigegeben (in VB)", "Freigegeben") + ' ' Case 2 : e.Value = IIf(vb, "LKW n.e. (in VB)", "LKW n.e.") + ' ' Case 3 : e.Value = IIf(vb, "Ankunft (in VB)", "Ankunft") : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F) + ' ' Case 4 : e.Value = IIf(vb, "Vorber. (in VB)", "Vorbereitet") + ' ' Case 5 : e.Value = IIf(vb, "Vorg. (in VB)", "Vorgeschrieben") + ' ' ' Case 99 : e.Value = "in Vorbereitung" : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F) + ' ' 'gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown + ' ' ' gridMyAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F) + ' ' Case Else : e.Value = "unbekannt" + ' 'End Select + + ' Select Case VarToInt(e.Value) + ' Case 0 : e.Value = "Erfasst" : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromArgb(60, 60, 60) + ' Case 1 : e.Value = "Freigegeben" + ' Case 2 : e.Value = "LKW n.e." + ' Case 3 : e.Value = "Ankunft" : gridMyAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F) + ' Case 4 : e.Value = "Vorbereitet" + ' Case 5 : e.Value = "Vorgeschrieben" + ' Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN : e.Value = "An Indonesien" + ' Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX : e.Value = "An Verimex" + ' ' Case 99 : e.Value = "in Vorbereitung" : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F) + ' 'gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown + ' ' gridMyAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F) + ' Case Else : e.Value = "unbekannt" + ' End Select + + ' ' If gridMyAviso.Rows(e.RowIndex).Cells("statVorb").Value = "1" Then + ' 'e.Value &= " (VB)" + ' ' End If + + ' Case "AvisoEingang" 'Aviso-Eingang + ' If VarToDate(e.Value) = LeerDatum Then e.Value = "" + + ' Case "Ankunft" 'Ankunft + ' If VarToDate(e.Value) = LeerDatum Then + ' e.Value = "" + ' Else + ' ' If DateDiff(DateInterval.Minute, CDate(VarToDate(e.Value)), Now) > 120 Then + ' ' 'gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red + ' ' gridMyAviso.Rows(e.RowIndex).Cells("Dauer").Style.ForeColor = Color.Red + ' ' gridMyAviso.Rows(e.RowIndex).Cells("Ankunft").Style.ForeColor = Color.Red + ' ' End If + ' End If + ' End Select + + + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' End Try + 'End Sub + + Private Sub gridAviso_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles gridAviso.CellFormatting + 'Anzahl Minuten als verständlichen Text anzeigen + + If AVISO_TYP = "LKW" Then + Select Case gridAviso.Columns(e.ColumnIndex).Name + Case "Status" 'Status + Select Case VarToInt(e.Value) + Case 0 : e.Value = "Erfasst" + Case 1 : e.Value = "Freigegeben" + Case 2 : e.Value = "LKW n.e." + Case 3 : e.Value = "Ankunft" + Case 4 : e.Value = "Vorbereitet" + Case 5 : e.Value = "Vorgeschrieben" + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN : e.Value = "An Indonesien" + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX : e.Value = "An Verimex" + Case Else : e.Value = "unbekannt" + End Select + + Case "AvisoEingang" 'Aviso-Eingang + If VarToDate(e.Value) = LeerDatum Then e.Value = "" + + Case "Datum" 'Aviso-Eingang + If VarToDate(e.Value) = LeerDatum Then e.Value = "" + + Case "Erfasst" 'Aviso-Eingang + If VarToDate(e.Value) = LeerDatum Then e.Value = "" + + Case "Vorbereitet" 'Vorbereitet + If VarToDate(e.Value) = LeerDatum Then e.Value = "" + + Case "Vorgeschrieben" 'Vorgeschrieben + If VarToDate(e.Value) = LeerDatum Then e.Value = "" + + Case "Ankunft" 'Ankunft + If VarToDate(e.Value) = LeerDatum Then e.Value = "" + + Case "Freigabe" 'Abfahrt + If VarToDate(e.Value) = LeerDatum Then e.Value = "" + + Case "Dauer" 'Dauer + + If VarToInt(e.Value) > 120 Then + gridAviso.Rows(e.RowIndex).Cells("Dauer").Style.ForeColor = Color.Red + End If + If VarToInt(e.Value) = 0 Then + e.Value = "" + Else + e.Value = Minuten_auf_Text(VarToLng(e.Value)) + End If + Case "VoraussichtlichesEintreffen" + ' "Der Operator = ist für Typ DBNull und Typ Date nicht definiert." + + If (gridAviso.Rows(e.RowIndex).Cells("Ankunft").Value Is DBNull.Value OrElse gridAviso.Rows(e.RowIndex).Cells("Ankunft").Value = LeerDatum) AndAlso gridAviso.Rows(e.RowIndex).Cells("TageBisEintreffen").Value IsNot DBNull.Value AndAlso gridAviso.Rows(e.RowIndex).Cells("TageBisEintreffen").Value <= 1 Then + 'gridAviso.Rows(e.RowIndex).Cells("VoraussichtlichesEintreffen").Style.ForeColor = Color.Red + gridAviso.Rows(e.RowIndex).Cells("VoraussichtlichesEintreffen").Style.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold) + End If + End Select + + Else + Try + + + If gridAviso Is Nothing Then Exit Sub + If gridAviso.Columns Is Nothing Then Exit Sub + If gridAviso.ColumnCount = 0 Then Exit Sub + + + 'Anzahl Minuten als verständlichen Text anzeigen + Select Case gridAviso.Columns(e.ColumnIndex).Name + Case "Status" 'Status + + 'Dim vb As Boolean = gridAviso.Rows(e.RowIndex).Cells("statVorb").Value + 'Select Case VarToInt(e.Value) + ' Case 0 : e.Value = IIf(vb, "Erfasst (in VB)", "Erfasst") : gridAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromArgb(60, 60, 60) + ' Case 1 : e.Value = IIf(vb, "Freigegeben (in VB)", "Freigegeben") + ' Case 2 : e.Value = IIf(vb, "LKW n.e. (in VB)", "LKW n.e.") + ' Case 3 : e.Value = IIf(vb, "Ankunft (in VB)", "Ankunft") : gridAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F) + ' Case 4 : e.Value = IIf(vb, "Vorber. (in VB)", "Vorbereitet") + ' Case 5 : e.Value = IIf(vb, "Vorg. (in VB)", "Vorgeschrieben") + ' ' Case 99 : e.Value = "in Vorbereitung" : gridAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F) + ' 'gridAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown + ' ' gridAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F) + ' Case Else : e.Value = "unbekannt" + 'End Select + + Select Case VarToInt(e.Value) + Case 0 : e.Value = "Erfasst" : gridAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromArgb(60, 60, 60) + Case 1 : e.Value = "Freigegeben" + Case 2 : e.Value = "LKW n.e." + Case 3 : e.Value = "Ankunft" : gridAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F) + Case 4 : e.Value = "Vorbereitet" + Case 5 : e.Value = "Vorgeschrieben" + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN : e.Value = "An Indonesien" + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX : e.Value = "An Verimex" + ' Case 99 : e.Value = "in Vorbereitung" : gridAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F) + 'gridAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown + ' gridAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F) + Case Else : e.Value = "unbekannt" + End Select + + ' If gridAviso.Rows(e.RowIndex).Cells("statVorb").Value = "1" Then + 'e.Value &= " (VB)" + ' End If + + Case "AvisoEingang" 'Aviso-Eingang + If VarToDate(e.Value) = LeerDatum Then e.Value = "" + + Case "Ankunft" 'Ankunft + If VarToDate(e.Value) = LeerDatum Then + e.Value = "" + Else + ' If DateDiff(DateInterval.Minute, CDate(VarToDate(e.Value)), Now) > 120 Then + ' 'gridAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red + ' gridAviso.Rows(e.RowIndex).Cells("Dauer").Style.ForeColor = Color.Red + ' gridAviso.Rows(e.RowIndex).Cells("Ankunft").Style.ForeColor = Color.Red + ' End If + End If + End Select + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End If + + + + End Sub + + Private Sub GridZeichnenAviso() + 'hier wird der Grid speziell designed + If gridAviso.RowCount = 0 Then Exit Sub + 'Falls Kunde auf inaktiv steht, dann wird Zeile ausgegraut angezeigt + For Each dr As DataGridViewRow In gridAviso.Rows + Select Case VarToInt(dr.Cells("Status").Value) + Case 0 'erfasst + dr.DefaultCellStyle.SelectionBackColor = Color.FromArgb(230, 0, 0) + dr.DefaultCellStyle.ForeColor = Color.FromArgb(230, 0, 0) + dr.DefaultCellStyle.SelectionForeColor = Color.White + Case 1 'freigegeben + dr.DefaultCellStyle.SelectionBackColor = Color.Green + dr.DefaultCellStyle.ForeColor = Color.Green + dr.DefaultCellStyle.SelectionForeColor = Color.White + Case 2 'LKW nicht eingetroffen + dr.DefaultCellStyle.SelectionBackColor = Color.Gray + dr.DefaultCellStyle.ForeColor = Color.Gray + dr.DefaultCellStyle.SelectionForeColor = Color.White + Case 3 'Ankunft + dr.DefaultCellStyle.SelectionBackColor = Color.Blue + dr.DefaultCellStyle.ForeColor = Color.Blue + dr.DefaultCellStyle.SelectionForeColor = Color.White + Case 4 'Vorbereitet + dr.DefaultCellStyle.SelectionBackColor = Color.Brown + dr.DefaultCellStyle.ForeColor = Color.Brown + dr.DefaultCellStyle.SelectionForeColor = Color.White + Case 5 'Vorbereitet + dr.DefaultCellStyle.SelectionBackColor = Color.Purple + dr.DefaultCellStyle.ForeColor = Color.Purple + dr.DefaultCellStyle.SelectionForeColor = Color.White + End Select + dr.Cells("Status").Style.BackColor = dr.DefaultCellStyle.ForeColor + dr.Cells("Status").Style.SelectionForeColor = dr.DefaultCellStyle.ForeColor + dr.Cells("LKW_Nr").Style.BackColor = lkwbackcolor + 'dr.Cells("LKW_Nr").Style.SelectionBackColor = lkwbackcolorSel + ' dr.Cells("LKW_Nr").Style.SelectionForeColor = Color.Black + Next + + + End Sub + + Private Sub mnuPunkt_Click(sender As Object, e As System.EventArgs) Handles mnuInfo.Click, mnuFirmen.Click + 'Hier werden alle Menüpunkte abgearbeitet + If sender Is mnuInfo Then + Dim f As New frmInfo + f.ShowDialog(Me) + Exit Sub + End If + End Sub + + Sub initDat() + Dim tmpGrid_aktiv = Grid_aktiv + Grid_aktiv = False + If tbcntrAvisoLKW.SelectedIndex = 0 Then + cboGrenzstelle.SelectedIndex = 0 + MyComboBox1.changeItem(UStatus_AVEingang) + dtpVon.Value = Now.AddMonths(-1) 'Now.AddDays(-15) + dtpBis.Value = Now.AddDays(1) + ElseIf tbcntrAvisoLKW.SelectedTab Is tabFreigegeben Then + MyComboBox1.changeItem(Status_Freigegeben) + dtpVon.Value = Now + dtpBis.Value = Now + End If + Grid_aktiv = tmpGrid_aktiv + End Sub + + Private Sub tbcntrAviso_TabIndexChanged(sender As Object, e As EventArgs) Handles tbcntrAvisoLKW.SelectedIndexChanged + If Not Grid_aktiv Then Exit Sub + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1 + SucheStandort = "" + initDat() + Aviso_anzeigen("") + + setAkive_AuswahlID() 'Lädt die aktuelle ID + If gridAviso.SelectedRows.Count > 0 Then + Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, False) + Else + pnlDetailsRechts.Visible = False + End If + + End Sub + + Private Sub btnAlleAnzeigen_Click(sender As System.Object, e As System.EventArgs) Handles btnAlleAnzeigen.Click + + If sender Is btnAlleAnzeigen Then + 'Auswahl wird zurückgesetzt, alle Einträge werden angezeigt + Grid_aktiv = False + dtpVon.Value = #1/1/2013# + dtpBis.Value = #12/31/2099# + txtSuche.Text = "" + 'optAlle.Checked = True + tbcntrAvisoLKW.SelectedIndex = 0 + Grid_aktiv = True + SucheStandort = "" + Aviso_anzeigen("") + End If + + End Sub + + + + Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer) + + Private Sub txtSuche_GotFocus(sender As Object, e As EventArgs) Handles txtSuche.Enter + Try + If My.Computer.Keyboard.CapsLock Then + Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 1, 0) + Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 3, 0) + End If + Catch ex As Exception + + End Try + End Sub + + Private Sub txtSuche_KeyDown1(sender As Object, e As PreviewKeyDownEventArgs) Handles txtSuche.PreviewKeyDown + If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Tab Then + Aviso_anzeigen("") + End If + End Sub + + + + Private Sub txtSuche_KeyDown(sender As Object, e As EventArgs) Handles txtSuche.TextChanged + Label8.Visible = True + ' Exit Sub + 'If e.KeyCode = Keys.Return Then + If Not Grid_aktiv Then Exit Sub + ' If txtSuche.Text.Length = 1 Then Exit Sub + If txtSuche.Text.StartsWith("/") Then + If txtSuche.Text.Length > 3 And txtSuche.Text.EndsWith("/") Then 'AVISO ID + If txtSuche.Text.Count(Function(c As Char) c = "/") > 2 Then + Exit Sub + End If + If txtSuche.Text.Contains("-") Then + + Dim t As String = txtSuche.Text + ' t = t.Replace("/V003/", "") + t = t.Replace("/", "") + Dim v() = t.Split("-") + 'Dim o As New cOptionenDAL + If v.Length > 1 Then + + Dim dt As DataTable = AvisoDAL.loadDataTableBySQL("SELECT TOP 1 tblSnd_AvisoID,tblSnd_SendungID FROM [tblSendungen] WHERE [FilialenNr]='" & v(0) & "' AND [AbfertigungsNr]='" & v(1) & "' AND [UnterNr]='" & v(2) & "' ") + If dt.Rows.Count > 0 Then + + Dim avisoidTmp = dt.Rows(0)("tblSnd_AvisoID") + Dim sndidTmp = dt.Rows(0)("tblSnd_SendungID") + + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = avisoidTmp + FUNC.AktUebernehmen(avisoidTmp) 'Übernahme des Aktes + gridAviso.ClearSelection() + 'gridMyAviso.ClearSelection() + UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.ClearSelection() + Details_anzeigen(avisoidTmp, False) + selectRow(avisoidTmp) + Try + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "ATILLA" + Case Else ' "VERAG", "IMEX" + DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).openSnd(sndidTmp) + End Select + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + txtSuche.Text = "" + End If + + End If + Else + Dim avisoidTmp = txtSuche.Text.Replace("/", "") + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = avisoidTmp + FUNC.AktUebernehmen(avisoidTmp) 'Übernahme des Aktes + gridAviso.ClearSelection() + 'gridMyAviso.ClearSelection() + UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.ClearSelection() + Details_anzeigen(avisoidTmp) + selectRow(avisoidTmp) + txtSuche.Text = "" + End If + End If + Else + ' SucheStandort = "" + ' Aviso_anzeigen("") + ' JETZT NU BEI ENTER + + 'gridAviso.Refresh() 'für Variante mit Treffer gelb anzeigen + End If + + End Sub + + Sub selectRow(AvisoId) + Try + For Each r As DataGridViewRow In gridAviso.Rows + If r.Cells("AvisoId").Value = AvisoId Then + r.Selected = True + Exit For + End If + Next + 'For Each r As DataGridViewRow In gridMyAviso.Rows + ' If r.Cells("AvisoId").Value = AvisoId Then + ' r.Selected = True + ' Exit For + ' End If + 'Next + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG") + End Try + + End Sub + Private Sub dtp_ValueChanged(sender As System.Object, e As System.EventArgs) Handles dtpVon.ValueChanged, dtpBis.ValueChanged + If Not pnlSearch.Visible Then + If Not Grid_aktiv Then Exit Sub + Aviso_anzeigen("") + End If + End Sub + + Private Sub WichtigChanged(sender As System.Object, e As System.EventArgs) Handles btnWichtigeStandort.Click, btnWichtige.Click + Grid_aktiv = False + Dim hSort As String = "" + + ' SucheStandort = "" + + dtpVon.Value = Now.AddMonths(-1) ' Now.AddDays(-15) + dtpBis.Value = Now.AddDays(1) + 'optAnkunft.Checked = True + tbcntrAvisoLKW.SelectedTab = tabAnkunft + txtSuche.Text = "" + hSort = " ORDER BY Ankunft" + ' If sender Is btnWichtigeStandort Then SucheStandort = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.Grenzstelle.Trim + If sender Is btnWichtigeStandort Then + cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim + End If + If sender Is btnWichtige Then + cboGrenzstelle.SelectedIndex = 0 + End If + + Grid_aktiv = True + Aviso_anzeigen(hSort) + End Sub + + Private Sub GrenzstelleChanged(sender As System.Object, e As System.EventArgs) Handles cboGrenzstelle.SelectedIndexChanged + + 'Suche Bestimmungs.ZST + If cboGrenzstelle._value = "???" Then + Label10.Visible = True + txtBestimmungszollstelle.Visible = True + Else + Label10.Visible = False + txtBestimmungszollstelle.Visible = False + End If + + If Grid_aktiv Then + ' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "") + Aviso_anzeigen("") + End If + + + End Sub + + Private Sub cbxClusterChanged(sender As System.Object, e As System.EventArgs) Handles cbxCluster.CheckedChanged + If Grid_aktiv Then + ' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "") + Aviso_anzeigen("") + End If + End Sub + + + Private Sub btnHeute_Click(sender As System.Object, e As System.EventArgs) Handles MyComboBox1.SelectedIndexChanged, btnWoche.Click, btnHeute.Click, btnGestern.Click + If Not Grid_aktiv Then Exit Sub + Grid_aktiv = False + Dim hSort As String = "" + + ' SucheStandort = "" + If sender Is btnHeute Then + dtpVon.Value = Now.Date + dtpBis.Value = Now.Date + ElseIf sender Is btnGestern Then + dtpVon.Value = Now.Date.AddDays(-1) + dtpBis.Value = Now.Date.AddDays(-1) + ElseIf sender Is btnWoche Then + dtpVon.Value = Now.Date.AddDays(-7) + dtpBis.Value = Now.Date + End If + Grid_aktiv = True + Aviso_anzeigen(hSort) + End Sub + + Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As IntPtr + + Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick + If frmLogin.AnmeldungOK Then + + Try + If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then + avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert + UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont) + + End If + Catch ex As Exception + + End Try + + If False Then 'NUR AKTUALISIEREN; WENN FENSTER AKTIV --> bei 2. Monitor PROBLEM + Try + If GetActiveWindow = Me.Handle Then + + If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then + ' System.Threading.Thread.Sleep(1000) '? warum?? + avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert + UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont) + End If + Else + hMerkZeit = hMerkZeit.AddSeconds(-60) 'Somit wird beid er nächste Aktiveierung aktualisiert + If DateDiff(DateInterval.Second, hMerkZeit2, Now) > 10 Then + gridAviso.RELOAD() + GridZeichnenAviso() + initDauerLKWFertig() + hMerkZeit2 = Now + End If + End If + + Catch ex As Exception + + End Try + End If + End If + End Sub + + Private Sub btnRefresh_Click(sender As System.Object, e As System.EventArgs) Handles btnRefresh.Click + avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True) + UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont) + + End Sub + + + + Private Sub gridAviso_ColumnHeaderMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridAviso.ColumnHeaderMouseClick + GridZeichnenAviso() + End Sub + + Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseEnter, btnUmrechnungskurse.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnNeu.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnDrucken.MouseEnter + Try + Dim cF As Color = DirectCast(sender, Button).ForeColor + Dim cB As Color = DirectCast(sender, Button).BackColor + If cF = Color.Black Then cF = Color.Gray + DirectCast(sender, Button).ForeColor = cB + DirectCast(sender, Button).BackColor = cF + Catch ex As Exception + + End Try + End Sub + Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseLeave, btnUmrechnungskurse.MouseLeave, Button6.MouseLeave, Button5.MouseLeave, btnSpedBuch.MouseLeave, btnRg.MouseLeave, btnRefresh.MouseLeave, btnNeu.MouseLeave, btnKunden.MouseLeave, btnKassenbuch.MouseLeave, btnDrucken.MouseLeave + Try + Dim cF As Color = DirectCast(sender, Button).ForeColor + Dim cB As Color = DirectCast(sender, Button).BackColor + If cB = Color.Gray Then cB = Color.Black + DirectCast(sender, Button).ForeColor = cB + DirectCast(sender, Button).BackColor = cF + Catch ex As Exception + + End Try + End Sub + + Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles gridAviso.DoubleClick + + If gridAviso.SelectedRows.Count = 0 Then Exit Sub + ' If gridAviso.SelectedRows(0).Cells("AvisoID").Value Is DBNull.Value Then Exit Sub + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then + Exit Sub + End If + + If cbx_My_LKW.Checked Then + + + Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() + Dim f As New frmEintragAviso + f.ShowDialog(frmGrayOut) + frmGrayOut.Close() + btnRefresh.PerformClick() 'Aviso_anzeigen("") + + Else + + If gridAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value Is DBNull.Value Then Exit Sub + + Dim SendungsId = gridAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value + Dim AvisoID = gridAviso.SelectedRows(0).Cells("AvisoID").Value + + Dim f = FUNC.openSnd(SendungsId, AvisoID) + If f IsNot Nothing Then + AddHandler f.FormClosed, Sub() + btnRefresh.PerformClick() + End Sub + End If + End If + + If gridAviso.SelectedRows.Count = 0 Then Exit Sub + + + End Sub + + + + + Private Sub btnNeu_Click(sender As System.Object, e As System.EventArgs) Handles btnNeu.Click, ToolStripMenuItem17.Click + Try + + Me.Cursor = Cursors.WaitCursor + gridAviso.ClearSelection() + 'gridMyAviso.ClearSelection() + Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() + Dim f As New frmEintragAviso + + If sender Is ToolStripMenuItem17 Then + f.FIRMA_TMP = "ATILLA" + End If + + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0 + ' f.frmHilf = Me + If Not f.IsDisposed And f IsNot Nothing And Not frmGrayOut.IsDisposed And frmGrayOut IsNot Nothing Then + f.ShowDialog(frmGrayOut) + End If + frmGrayOut.Close() + btnRefresh.PerformClick() 'Aviso_anzeigen("") + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG") + End Try + Me.Cursor = Cursors.Default + End Sub + + Private Sub btnLöschen_Click(sender As System.Object, e As System.EventArgs) + + End Sub + + Private Sub btnDrucken_Click(sender As System.Object, e As System.EventArgs) Handles btnDrucken.Click + + 'MsgBox("Druck steht derzeit noch nicht zur Verfügung.", vbInformation) + Dim f As New frmAuswahl_Aviso + f.Show() + End Sub + + Private Sub btnPaketdienst_Click(sender As System.Object, e As System.EventArgs) Handles btnKunden.Click + + + Me.Cursor = Cursors.WaitCursor + 'For Each frm As Form In Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing + If Not Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing Then + Application.OpenForms.Item("frmKundenUebersichtZOLL").BringToFront() + Me.Cursor = Cursors.Default : Exit Sub + End If + ' Next + Try + Dim zoll As New SDL.frmKundenUebersichtZOLL + zoll.Show() + Me.Cursor = Cursors.Default + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + Private Sub btnSpedBuch_Click(sender As Object, e As EventArgs) Handles btnSpedBuch.Click + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then + Return + End If + + For Each ft As Form In Application.OpenForms + If TypeOf ft Is SDL.frmSpeditionsbuchSuche Then + ft.BringToFront() + Return + End If + Next + + Me.Cursor = Cursors.WaitCursor + + Dim spedForm As New SDL.frmSpeditionsbuchSuche() + + AddHandler spedForm.SendungsdetailsRequested, AddressOf OnSendungsdetailsRequested + + + spedForm.Show() + + Me.Cursor = Cursors.Default + End Sub + + Private Declare Function ShowWindow Lib "user32" _ + (ByVal hWnd As System.IntPtr, ByVal nCmdShow As Long) As Long + + Private Const SW_RESTORE = 9 + + + Private Function DoesProcessExists(ByVal PName As String) As Boolean + If System.Diagnostics.Process.GetProcessesByName(PName).Count = 0 Then Return False + Shell("UID.exe", AppWinStyle.NormalFocus) + ' ShowWindow(System.Diagnostics.Process.GetProcessesByName(PName)(0).MainWindowHandle, SW_RESTORE) + Return True + For Each p As Process In System.Diagnostics.Process.GetProcessesByName(PName) + + If p.StartInfo.UserName = Environment.UserName Then + + + ' ShowWindow(p.MainWindowHandle, SW_RESTORE) + + Return True + End If + Next + Return False + End Function + Private Sub old_Click(sender As System.Object, e As System.EventArgs) + + + + + If Paketdienste_EXE = "" Then + MsgBox("Es ist kein Pfad für den Programm-Aufruf zugewiesen. Bitte den Administrator verständigen.", vbInformation) + Exit Sub + End If + If Not File.Exists(Paketdienste_EXE) Then + MsgBox("Die Zuweisung zum Programm-Aufruf ist falsch." & vbCrLf & vbCrLf & Paketdienste_EXE & vbCrLf & vbCrLf & + "Bitte den Administrator verständigen.", vbInformation) + Exit Sub + End If + + 'Dim Program As ProcessStartInfo = New ProcessStartInfo + 'Dim ProgramProcess As Process = New Process + + 'Program.Arguments = Paketdienste_EXE + 'Program.UseShellExecute = True + 'Program.CreateNoWindow = False + 'Program.WindowStyle = ProcessWindowStyle.Normal + 'Program.WorkingDirectory = "" + Try + Process.Start(Paketdienste_EXE) + Catch ex As Exception + Throw New ApplicationException("Startshell", ex) + End Try + + End Sub + Private Sub kexdown(sender As Object, e As KeyEventArgs) Handles gridAviso.KeyUp + Try + + If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then + If sender.selectedRows.count = 0 Then Exit Sub + Dim tmpId = CInt(sender.selectedRows(0).Cells("AvisoId").Value) + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId + avisoAktualisierenAktiveIdBehalten(tmpId, , False) + + End If + + Catch ex As Exception + + End Try + End Sub + + + Private Sub keydownMyAviso(sender As Object, e As KeyEventArgs) + Try + + If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then + If sender.selectedRows.count = 0 Then Exit Sub + Dim tmpId = CInt(sender.selectedRows(0).Cells("AvisoId").Value) + Dim tmpSndId = CInt(sender.selectedRows(0).Cells("tblSnd_SendungID").Value) + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = tmpSndId + avisoAktualisierenAktiveIdBehalten(tmpId, False) + + End If + + Catch ex As Exception + + End Try + End Sub + + + + + Public Sub lblHinweiseVisible() + ' If gridMyAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridMyAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "") + If gridAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "") + End Sub + Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True) + + pic.Visible = False + Try + + + If Not Grid_aktiv Then Exit Sub + Details_aktiv = False + + initEAviso() + + If Aviso_anzeigenBool Then Aviso_anzeigen("", False) ': Aviso_anzeigen("") + + + If AVISO_TYP = "LKW" Then + gridAviso.ClearSelection() + For Each r As DataGridViewRow In gridAviso.Rows + If CInt(r.Cells("AvisoId").Value) = tmpid Then + ' gridMyAviso.ClearSelection() + gridAviso.CurrentCell = r.Cells("Status") + r.Selected = True : Exit For + End If + Next + Else + gridAviso.ClearSelection() + If gridAviso.Rows.Count > 0 Then + For Each r As DataGridViewRow In gridAviso.Rows + If CInt(r.Cells("tblSnd_SendungID").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID Then + gridAviso.CurrentCell = r.Cells("Status") + r.Selected = True : Exit For + End If + Next + End If + End If + + + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpid + Details_aktiv = True + + If pnlDetailsRechts.Controls.Count > 0 Then + + Dim usrcntlAvisoID = -1 + Dim usrcntlAktiv As DateTime + If Not pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then + If pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then + usrcntlAvisoID = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID + usrcntlAktiv = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv + Else + usrcntlAvisoID = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID + usrcntlAktiv = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv + End If + + If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then + Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + Else + If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown) + Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + End If + End If + End If + + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG") + End Try + End Sub + + + + Private Sub dgvSendungen_CellContentClick() Handles UsrCntlBenachrichtigungen1.SelectionChanged + Try + + If UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.SelectedRows.Count = 1 Then + + gridAviso.ClearSelection() + ' MsgBox(Grid_aktiv) + + Dim tmpId = UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_AvisoID").Value + + If UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_art").Value = "A" Then + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1 + Else 'Sendungsbenachrichtigung + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_SendungID").Value + End If + + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId + + avisoAktualisierenAktiveIdBehalten(tmpId, , False) + End If + + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridAviso.CellMouseClick + + If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt + 'If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt + 'gridMyAviso.ClearSelection() 'WARUM? + ' If sender Is gridAviso Then gridMyAviso.ClearSelection() : UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.ClearSelection() + ' If sender Is gridMyAviso Then gridAviso.ClearSelection() : UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.ClearSelection() + ' MsgBox(Grid_aktiv) + DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True + + Dim tmpId = CInt(sender.Rows(e.RowIndex).Cells("AvisoId").Value) + + If AVISO_TYP = "SND" Then + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = CInt(gridAviso.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value) + Else + + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1 + End If + + + If e.Button = MouseButtons.Right Then + If True Then + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then + ' If sender Is gridAviso Then + ' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId + ' sender.CurrentCell = sender.Rows(e.RowIndex).Cells(e.ColumnIndex) + ' conMenuAviso.Show(Cursor.Position) + ' End If + 'Else + setAkive_AuswahlID() + avisoAktualisierenAktiveIdBehalten(tmpId, , False) + Dim hStatus = AvisoDAL.LesenAviso(tmpId, "").Status + If hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then + 'MsgBox("Ein Vermerk kann nur erfasst werden, wenn der Status des Aviso auf 'Erfasst', 'Vorbereitet', 'Vorgeschrieben' oder 'Ankunft' steht.", vbInformation) + lblErrVermerk.Width = 300 + lblErrVermerk.Visible = True + hideErr.Enabled = True + Exit Sub + End If + + Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() + Dim sv As New frmAddAktenvermerkShort(tmpId) + sv.Location = Me.PointToClient(Cursor.Position) + ' sv.ShowDialog() + sv.ShowDialog(frmGrayOut) + frmGrayOut.Close() + + End If + ElseIf e.Button = MouseButtons.Left Then + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId + avisoAktualisierenAktiveIdBehalten(tmpId, , False) + End If + End Sub + + + Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVorgeschrieben.Click, conVorbereitet.Click, conÜbernehmen.Click, conNichtEingetroffen.Click, conFreigabe.Click, conFertig.Click, conAnkunft.Click, conAnVerimex.Click, conAnIndonesien.Click ',conVermerkLöschen.Click, + + Timer1.Enabled = False + + If sender Is conFertig Then + btnFertig.PerformClick() + End If + + If sender Is conVorbereitet Then + FUNC.setVorbereitet(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + ' If btnVorbereitet.Visible Then + 'btnVorbereitet.PerformClick() + 'Else + ' MsgBox("Die Anzeige wurde länger nicht mehr aktualisiert. Bitte vor Statusänderung die Anzeige mit F2 aktualisieren.", vbInformation) + ' End If + End If + + If sender Is conVorgeschrieben Then + FUNC.setVorgeschreiben(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + 'If btnVorgeschrieben.Visible Then + 'btnVorgeschrieben.PerformClick() + 'Else + ' MsgBox("Die Anzeige wurde länger nicht mehr aktualisiert. Bitte vor Statusänderung die Anzeige mit F2 aktualisieren.", vbInformation) + 'End If + End If + + + If sender Is conAnkunft Then + FUNC.setAnkunft(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + ' If btnFreigabe.Visible Then + ' btnAnkunft.PerformClick() + ' Else + ' MsgBox("Die Anzeige wurde länger nicht mehr aktualisiert. Bitte vor Statusänderung die Anzeige mit F2 aktualisieren.", vbInformation) + ' End If + End If + + If sender Is conAnVerimex Then + FUNC.setAnVERIMEX(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + End If + + If sender Is conAnIndonesien Then + FUNC.setAnINDONESIEN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + End If + + If sender Is conFreigabe Then + FUNC.setFreigabe(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, Me) + 'If btnFreigabe.Visible Then + ' btnFreigabe.PerformClick() + ' Else + ' MsgBox("Die Anzeige wurde länger nicht mehr aktualisiert. Bitte vor Statusänderung die Anzeige mit F2 aktualisieren.", vbInformation) + ' End If + End If + + If sender Is conNichtEingetroffen Then + FUNC.setNichtEingeftroffen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + ' If btnFreigabe.Visible Then + ' btnNichtEingetroffen.PerformClick() + ' Else + ' MsgBox("Die Anzeige wurde länger nicht mehr aktualisiert. Bitte vor Statusänderung die Anzeige mit F2 aktualisieren.", vbInformation) + ' End If + End If + + If sender Is conÜbernehmen Then + FUNC.AktUebernehmen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + 'btnÜbernehmen.PerformClick() + End If + avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True) + Timer1.Enabled = True + End Sub + + + ' Private Sub chkFarben_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkFarbenChanged + 'Aviso_anzeigen("") + ' End Sub + + Public Sub UpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UpdateToolStripMenuItem.Click + frmLogin.UpdateAVISO() + End Sub + + Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) + 'MsgBox(cGlobal.AktiverMitarbeiter.Mitarbeiter) + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then + frmAuswertung.Show() + Else + MsgBox("Nicht verfügbar!", vbInformation) + End If + End Sub + + Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown + Me.Visible = False + Me.MaximumSize = Screen.PrimaryScreen.WorkingArea.Size + 'Me.MaximumSize = New Size(1920, 1000) + Me.WindowState = FormWindowState.Normal + Me.Location = New Point(0, 0) + Me.Size = Screen.PrimaryScreen.WorkingArea.Size + ' MsgBox(Me.Size.Height) + + Details_aktiv = True + ' If gridMyAviso.RowCount > 0 Then + 'gridMyAviso.Rows(0).Selected = True + 'ElseIf gridAviso.RowCount > 0 Then + 'gridAviso.Rows(0).Selected = True + 'End If + + ' Details_anzeigen(setAkive_AuswahlID()) + timerStart.Interval = 500 + timerStart.Enabled = True + TimerUPDATE.Enabled = True + Me.Visible = True + If sd = 0 Then sd = SplitContainer1.SplitterDistance + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then + 'btnGenerelleGestellungen.Visible = False + Button6.Visible = False + If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then + 'tabVorbereitet.Text = "2. VERIMEX/INDONESIEN" + tbcntrAvisoLKW.TabPages.Remove(tabVorgeschrieben) + tbcntrAvisoLKW.TabPages.Remove(tabVorbereitet) + End If + + btnWichtigeStandort.Visible = False + Panel2.Visible = False + + ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then + 'nix + ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then + 'nix + Else 'VERAG + + If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then + Button5.Visible = True + End If + End If + + If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("STATUS_ATILLA") Then + 'tabVorbereitet.Text = "2. VERIMEX/INDONESIEN" + tbcntrAvisoLKW.TabPages.Remove(tabVorgeschrieben) + tbcntrAvisoLKW.TabPages.Remove(tabVorbereitet) + Else + tbcntrAvisoLKW.TabPages.Remove(tabINDONESIEN) + tbcntrAvisoLKW.TabPages.Remove(tabVERIMEX) + conAnVerimex.Visible = False + conAnIndonesien.Visible = False + End If + + + + 'Wenn Teamzuweisung --> Backoffice --> Meine Senungen größer! + If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, 0) > 0 Then + splitMain.SplitterDistance = CInt(splitMain.Height / 2) + Else + + + End If + + 'If SplitContainer2.Width > 800 Then + ' 'SplitContainer2.Panel2MinSize = 600 + ' SplitContainer2.SplitterDistance = 130 'SplitContainer2.Width - 750 + ' If SplitContainer2.Panel2.Width > 1200 Then SplitContainer2.SplitterDistance = SplitContainer2.Width - 1200 '__> DAS"!!! + ' ' If SplitContainer2.Panel2.Width > 900 Then SplitContainer2.SplitterDistance = SplitContainer2.Width - 900 + 'End If + + 'If SplitContainer2.Width > 1300 Then + ' SplitContainer2.SplitterDistance = 350 'SplitContainer2.Width - 750 + ' SplitContainer3.SplitterDistance = 400 + 'ElseIf SplitContainer2.Width > 1200 Then + ' SplitContainer2.SplitterDistance = 180 'SplitContainer2.Width - 750 + ' SplitContainer3.SplitterDistance = 300 + 'Else + ' SplitContainer2.SplitterDistance = 160 'SplitContainer2.Width - 750 + ' SplitContainer3.SplitterDistance = 250 + 'End If + + + + If My.Computer.Screen.WorkingArea.Width < 1300 Then + 'tabAnkunft.Text = "ANKUNFT." + 'tabErfasst.Text = "ERFASST" + tabVorbereitet.Text = "2.Vorb.QS" + tabVorgeschrieben.Text = "3.Vorgeschr." + 'tabFreigegeben.Text = "FREIGABE" + tabNichtEingetroffen.Text = "N.E." + ' tabVorgeschrieben.Text = "VORGESCHR." + + End If + + + tbcntrAvisoLKW.Width = Panel1.Width + + 'tbcntrAvisoSND.Location = New Point(tbcntrAvisoLKW.Location.X + getTbControlWidth(tbcntrAvisoLKW) + 80, tbcntrAvisoSND.Location.Y) + tbcntrAvisoSND.Location = New Point(tbcntrAvisoLKW.Location.X, tbcntrAvisoLKW.Location.Y) + tbcntrAvisoSND.SelectedIndex = 1 + tbcntrAvisoSND.Width = tbcntrAvisoLKW.Width + tbcntrAvisoSND.Height = tbcntrAvisoLKW.Height + + VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me) + + BürgschaftenExcelToolStripMenuItem.Visible = False + + setGesamtsicherheitenBerechtigung() + + + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA IsNot "VERIMEX" And VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG = False Then + + If CInt(Application.ProductVersion.Replace(".", "")) = 4000 Then + Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() + Dim f As New frmAvisoBirthday + f.ShowDialog(frmGrayOut) + frmGrayOut.Close() + End If + End If + + + End Sub + + Private Function getTbControlWidth(tbcntr) As Integer + Dim totalWidth As Integer = 0 + + ' Durchlaufe alle TabPages und summiere die Breite der Tabs + For i As Integer = 0 To tbcntr.TabCount - 1 + totalWidth += tbcntr.GetTabRect(i).Width + Next + + Return totalWidth + End Function + + WithEvents timerStart As New Timer + + Private Sub timerStart_Tick(sender As Object, e As EventArgs) Handles timerStart.Tick + Details_anzeigen(setAkive_AuswahlID()) + + Try + VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath() + Catch ex As Exception + + End Try + timerStart.Enabled = False + End Sub + + Private Sub setGesamtsicherheitenBerechtigung() + + ATVeragCSToolStripMenuItem.Visible = False + DEVeragGmbHToolStripMenuItem.Visible = False + ATVeragAGToolStripMenuItem.Visible = False + ATImexCSToolStripMenuItem.Visible = False + DEAmbarToolStripMenuItem.Visible = False + ATUnispedGmbHToolStripMenuItem.Visible = False + + + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then + ATVeragCSToolStripMenuItem.Visible = True + DEVeragGmbHToolStripMenuItem.Visible = True + ATVeragAGToolStripMenuItem.Visible = True + ATUnispedGmbHToolStripMenuItem.Visible = True + ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then + 'nix + ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then + DEVeragGmbHToolStripMenuItem.Visible = True + ATVeragCSToolStripMenuItem.Visible = True + ATVeragAGToolStripMenuItem.Visible = True + ATImexCSToolStripMenuItem.Visible = True + ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then + DEAmbarToolStripMenuItem.Visible = True + ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then + ATUnispedGmbHToolStripMenuItem.Visible = True + + ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then + ATVeragCSToolStripMenuItem.Visible = True + ATVeragAGToolStripMenuItem.Visible = True + ATImexCSToolStripMenuItem.Visible = True + Else + 'VERAG + ATVeragCSToolStripMenuItem.Visible = True + DEVeragGmbHToolStripMenuItem.Visible = True + ATVeragAGToolStripMenuItem.Visible = True + ATImexCSToolStripMenuItem.Visible = True + + End If + + + End Sub + + 'Private Sub frmMain_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged + ' If Me.WindowState = FormWindowState.Minimized Then Exit Sub + + ' ' If SplitContainer1.Panel2.Width > 700 And (SplitContainer1.Width - 760) > 0 Then + ' ' SplitContainer1.SplitterDistance = SplitContainer1.Width - 760 + ' ' End If + ' If SplitContainer1.Panel2.Width > 700 And (SplitContainer1.Width - 660) > 0 Then + ' SplitContainer1.SplitterDistance = SplitContainer1.Width - 660 + ' End If + + 'End Sub + + + Private Sub frmMain_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged + If Me.WindowState = FormWindowState.Minimized Then Exit Sub + + ' If SplitContainer1.Panel2.Width > 700 And (SplitContainer1.Width - 760) > 0 Then + ' SplitContainer1.SplitterDistance = SplitContainer1.Width - 760 + ' End If + If SplitContainer1.Panel2.Width > 700 And (SplitContainer1.Width - 660) > 0 Then + SplitContainer1.SplitterDistance = SplitContainer1.Width - 660 + Else + If SplitContainer1.Panel2.Width < 700 Then + SplitContainer1.SplitterDistance = SplitContainer1.Width - 660 + End If + + End If + sd = SplitContainer1.SplitterDistance + End Sub + + Private Sub KdNrZuordnenToolStripMenuItem_Click(sender As Object, e As EventArgs) + If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then + frmZuordnungKd.Show() + Else : MsgBox("Sie sind für diese Funktion nicht freigeschaltet.") + End If + End Sub + + + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnZollwebseiten.Click + cntxt.Show(Cursor.Position) + End Sub + + + + + Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click + + Try + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ausstempelnBeiBeenden Then + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then + If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then + Dim timas As New cTimasAPI("timas") + Dim infoMessage As New DataTable + Dim timeEntryExisting As Boolean = False + Dim isEndpointRunning As Boolean = True + Dim isPresent = timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning) + If timeEntryExisting AndAlso isEndpointRunning AndAlso isPresent Then + Dim a As MsgBoxResult = MsgBox("Soll " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " ausgestempelt werden?" & vbNewLine & Now.ToString() & " als Endzeit erfassen?", vbYesNo) + If a = vbYes Then + Dim info + timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "out", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0)) + MsgBox(info) + Else + + End If + + End If + + End If + End If + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + + Me.Close() + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnMinimieren.Click + Me.WindowState = FormWindowState.Minimized + End Sub + + Private Sub TimerAkte_Tick(sender As Object, e As EventArgs) Handles TimerAkte.Tick + ' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1) + + lblAkte.Visible = False + End Sub + + + + + + Private Sub btnBar_Click(sender As Object, e As EventArgs) + frmBarcodeGenerator.Show() + End Sub + + Private Sub NacherfassungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NacherfassungToolStripMenuItem.Click + If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then + Dim frmNacherfassung As New SDL.frmNacherfassungNEU + frmNacherfassung.Show() + End If + + End Sub + + Private Sub StatistikADMINToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StatistikADMINToolStripMenuItem.Click + 'MsgBox(cGlobal.AktiverMitarbeiter.Mitarbeiter) + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik", Me) Then + frmAuswertung.Show() + Else : MsgBox("Sie sind für diese Funktion nicht freigeschaltet.") + End If + End Sub + + Private Sub LKWBerichtToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LKWBerichtToolStripMenuItem.Click + Dim frmLKWBericht As New frmLKWBericht + frmLKWBericht.ShowDialog(Me) + End Sub + + Private Sub GenerelleGestellungenDurchsuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GenerelleGestellungenDurchsuchenToolStripMenuItem.Click + frmGenerelleGestellungen.ShowDialog() + + End Sub + + Private Sub KundenVonFremdenSpeditionenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KundenVonFremdenSpeditionenToolStripMenuItem.Click + Dim frmKundenFremdeSpeditionen As New frmKundenFremdeSpeditionen + frmKundenFremdeSpeditionen.ShowDialog() + End Sub + + + Private Sub StandorteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StandorteToolStripMenuItem.Click + Dim f As New frmTabelleStandorte + f.ShowDialog(Me) + Exit Sub + End Sub + + + + Private Sub KdNrZuordnenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles KdNrZuordnenToolStripMenuItem.Click + If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then + frmZuordnungKd.Show() + Else : MsgBox("Sie sind für diese Funktion nicht freigeschaltet.") + End If + End Sub + + Private Sub OptionenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles OptionenToolStripMenuItem1.Click + gridAviso.ClearSelection() + 'gridMyAviso.ClearSelection() + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 1 + Dim f As New frmEintragOptionen + f.ShowDialog(Me) + End Sub + + Private Sub VorlagenUploadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorlagenUploadToolStripMenuItem.Click + Dim vu As New VERAG_PROG_ALLGEMEIN.frmVorlagen + vu.ShowDialog() + + End Sub + + Private Sub gridAviso_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridAviso.CellContentClick + Try + If e.RowIndex > 0 Then + + ' MsgBox(gridMyAviso.Columns(e.ColumnIndex).Name) + If AVISO_TYP = "SND" Then + If True Then 'gridMyAviso.SelectedRows.Count = 1 Then + Dim SendungsId = gridAviso.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value + Dim AvisoID = gridAviso.Rows(e.RowIndex).Cells("AvisoID").Value + If SendungsId > 0 And AvisoID > 0 Then + + Select Case gridAviso.Columns(e.ColumnIndex).Name + + Case "StatusVorgeschrieben" + Me.Cursor = Cursors.WaitCursor + If FUNC.setSendungVorgeschrieben(SendungsId, AvisoID) Then + avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_anzeigen("") + End If + Me.Cursor = Cursors.Default + Case "StatusVorbereitetQS" + Me.Cursor = Cursors.WaitCursor + If FUNC.setSendungVorbereitetQS(SendungsId, AvisoID) Then + avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_anzeigen("") + End If + + Me.Cursor = Cursors.Default + End Select + End If + End If + End If + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + Private Sub BarcodeTestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BarcodeTestToolStripMenuItem.Click + If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then + frmBarcodeGenerator.Show() + End If + End Sub + + + 'Private Sub btnAsd_Click(sender As Object, e As EventArgs) + ' newNotify(frmNotify.cNotify_ART.AVISO_2H, 1, gridMyAviso.Rows(0).Cells("LKW_Nr").Value, gridMyAviso.Rows(0).Cells("AvisoId").Value) + 'End Sub + + Sub newNotify(art As frmNotify.cNotify_ART, title As Integer, text As String, id As Integer) + ' Exit Sub 'NICHT AKTIV + Dim formTmp = Me.ActiveForm + Dim frmNotify As New frmNotify(art, title, text, id) + frmNotify.TimerInterval = 1200000 ' 20min + + + Dim tmpY As Integer = Me.Height + If tmpY <= 0 Then tmpY = My.Computer.Screen.WorkingArea.Height + + For Each ft As Form In Application.OpenForms + If ft.GetType.ToString = "AVISO.frmNotify" Then + If ft.Location.Y < tmpY Then tmpY = ft.Location.Y + End If + Next + frmNotify.Y = tmpY - frmNotify.Height - 10 + frmNotify.Show() + + If formTmp IsNot Nothing Then formTmp.Focus() + End Sub + + Public Function ConvertFileToBase64(ByVal fileName As String) As String + Return Convert.ToBase64String(System.IO.File.ReadAllBytes(fileName)) + + End Function + Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click + Dim process As Process + Dim ProgrammID As Integer + Dim Programmname As String = "AVISO" + + For Each process In System.Diagnostics.Process.GetProcesses + If (InStr(process.ProcessName, Programmname)) Then + ProgrammID = process.Id + End If + Next + AppActivate(ProgrammID) + Exit Sub + + + VERAG_PROG_ALLGEMEIN.cTranslateAuto_LIST.DoToAllControls(Me, "TR") + 'VERAG_PROG_ALLGEMEIN.cTranslateAuto._Transle("What you deserve, is what you get World!!", "DE", "") + + Exit Sub + Try + + + Dim MIC = New VERAG_PROG_ALLGEMEIN.MIC_IMPORT.InsertImportShipment + MIC.ImportShipmentMessage.ImportShipment.Shipment.company = "UK" + MIC.SaveToFile("C:\VeragTMP\Test2.xml") + + 'Dim MIC = VERAG_PROG_ALLGEMEIN.MIC_IMPORT.InsertImportShipment.LoadFromFile("C:\VeragTMP\Test.xml") + ''Dim MIC = VERAG_PROG_ALLGEMEIN.MIC_IMPORT.InsertImportShipment.LoadFromFile("C:\VeragTMP\MicCustImportShipment_Sample.xml") + + 'MsgBox(MIC.ImportShipmentMessage.ImportShipment.Shipment.company) + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + + + Exit Sub + + + Dim rpt As New rptTEST + + + SDL.cProgramFunctions.printRpt(rpt, "") + + Exit Sub + + 'Dim sms As New VERAG_PROG_ALLGEMEIN.cSMS + 'sms.sms_Handynummer = "00436644178557" + 'sms.sms_Nachricht = "Das ist ein TEST" + 'sms.sms_Firma = "FRONTOFFICE" + 'sms.sms_Account = "EX0252513" + 'sms.sendWhatsApp(sms.sms_Firma) + + 'Exit Sub + cHMRC.hmrcTEST() + + Exit Sub + + Dim list = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(717858, CDate("01.10.2021"), CDate("31.10.2021")) '{5}) + + For Each d In list + MsgBox(d.RechnungsDatum & " - " & d.RechnungsName_1) + Next + + + + 'VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolderCat("C:\Users\test01\Desktop\TEST.pdf", "12345", "", "Import ab Jänner 2021", "Import ab Jänner 2021") + Dim mailTo = "al@verag.ag" + Dim betreff = "Betreff - TESTMAIL" + Dim htmlBody = "E-Mail Body HTML " + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailTo, betreff, htmlBody, , False, False, ,,, 2) + Exit Sub + + Exit Sub + Dim ep As New SDL.cEORIWebService + MsgBox(ep.ValidateEoriNumber("ATEOS1000000199").Result(0).Name) + + Exit Sub + 'Dim cRKSV_DE As New VERAG_PROG_ALLGEMEIN.cRKSV_DE + + 'cRKSV_DE.SignRKSV_DE() + + + 'Exit Sub + 'Me.Cursor = Cursors.WaitCursor + + Dim firma = "" + ' MsgBox("LOS" & vbNewLine & firma) + + Dim path = SDL.cFinanzOnlineWebService.genUID_Formular("ATU74813856") + If path <> "" Then + Process.Start(path) + End If + 'If SDL.cFinanzOnlineWebService.Call_Web_Service_MethodUID_Abfrage_NEU2020(firma, "ATU74813856") = 0 Then + ' MsgBox("HURRA2" & vbNewLine & firma) + + + 'End If + + + Exit Sub + + + MsgBox("1" & Environment.UserDomainName) + MsgBox("1" & Environment.UserName) + Exit Sub + Dim file As System.IO.StreamWriter + file = My.Computer.FileSystem.OpenTextFileWriter("C:\Users\DEVELOPER1\Desktop\test.txt", True) + file.WriteLine(ConvertFileToBase64("C:\Users\DEVELOPER1\Desktop\Example.pdf")) + file.Close() + + MsgBox("2") + + Exit Sub + + Dim SH As New VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAviso + SH.POSITIONS.Add(New cVERAG_in_TRAviso_shipments) + SH.DOCUMENTS.Add(New cVERAG_in_TRAviso_document) + SH.POSITIONS(0).ADDRESS.Add(New cVERAG_in_TRAviso_Adressen) + SH.POSITIONS(0).DOCUMENTS.Add(New cVERAG_in_TRAviso_document) + Dim resultJson = FromClass(SH) + + MsgBox(resultJson) + + + + + Exit Sub + + Dim jsonPost As New VERAG_PROG_ALLGEMEIN.cJsonPost("https://api.verag.ag/api/V001/CustomsDeclaration?value=test123") + Dim dictData As New Dictionary(Of String, Object) + Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza + EZA.POSITIONS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position) + EZA.POSITIONS(0).DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position_document) + 'EZA.DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_document) + EZA.ADDRESS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen) + + EZA.Company = "VERAG" + + dictData.Add("EZA", EZA) + dictData.Add("TEST", "JA") + MsgBox(jsonPost.postData(dictData)) + + + '---------------------------------------------- + + + 'Dim SH As New VERAG_PROG_ALLGEMEIN.cVERAG_in_shippment + + 'Dim resultJson = FromClass(SH) + + 'MsgBox(resultJson) + '---------------------------------------------- + + + 'newNotify(frmNotify.cNotify_ART.AVISO_2H3, gridMyAviso.Rows(1).Cells("LKW_Nr").Value, gridMyAviso.Rows(1).Cells("AvisoId").Value) + 'newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1) + + 'Dim TJ As New VERAG_PROG_ALLGEMEIN.TESTJSON.BeyannameBilgi + + 'Dim stringtst = "" + 'Dim user = JsonConvert.DeserializeObject(Of List(Of VERAG_PROG_ALLGEMEIN.cVERAG_in_shippment))(SH) + End Sub + + Public Function FromClass(Of T)(data As T, + Optional isEmptyToNull As Boolean = False, + Optional jsonSettings As JsonSerializerSettings = Nothing) As String + + Dim response As String = String.Empty + + If Not EqualityComparer(Of T).Default.Equals(data, Nothing) Then + response = JsonConvert.SerializeObject(data, jsonSettings) + End If + + Return If(isEmptyToNull, (If(response = "{}", "null", response)), response) + + End Function + + Public Function ToClass(Of T)(data As String, + Optional jsonSettings As JsonSerializerSettings = Nothing) As T + + Dim response = Nothing + + If Not String.IsNullOrEmpty(data) Then + response = If(jsonSettings Is Nothing, + JsonConvert.DeserializeObject(Of T)(data), + JsonConvert.DeserializeObject(Of T)(data, jsonSettings)) + End If + + Return response + + End Function + + + Private Sub timerStandzeit_Tick(sender As Object, e As EventArgs) Handles timerStandzeit.Tick + Exit Sub + Dim maId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID + Dim dt As DataTable = AvisoDAL.getStandzeitInfo(maId, 1441, 9999999, 2) + + For Each r As DataRow In dt.Rows + newNotify(frmNotify.cNotify_ART.AVISO_2H, 3, dt.Rows(0).Item("LKW_Nr").ToString, dt.Rows(0).Item("AvisoId").ToString) + AvisoDAL.UpdateWarnstufe(dt.Rows(0).Item("AvisoId").ToString, 2) + Next + + dt = Nothing + dt = AvisoDAL.getStandzeitInfo(maId, 120, 1440, 1) + For Each r As DataRow In dt.Rows + newNotify(frmNotify.cNotify_ART.AVISO_2H, 1, dt.Rows(0).Item("LKW_Nr").ToString, dt.Rows(0).Item("AvisoId").ToString) + AvisoDAL.UpdateWarnstufe(dt.Rows(0).Item("AvisoId").ToString, 1) + Next + + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) + 'timerStandzeit_Tick(timerStandzeit, New EventArgs) + ' Dim zt As New SDL.frmZolltarif + ' zt.Show() + Dim f As New Form + f.WindowState = FormWindowState.Maximized + + Dim usr As New SDL.usrcntlKundeBearbeitenFull(401053) + usr.Dock = DockStyle.Fill + f.Controls.Add(usr) + f.Show() + 'Dim k As New cAdressen(401053) + 'MsgBox(k.BLZ) + End Sub + + + Private Sub btnFertig_Click(sender As Object, e As EventArgs) Handles btnFertig.Click + VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + End Sub + + + Private Sub pnlDetailsLinks_Paint(sender As Object, e As PaintEventArgs) Handles pnlDetailsLinks.Paint + + End Sub + + Private Sub Button5_Click(sender As Object, e As EventArgs) + frmGenerelleGestellungen.ShowDialog() + End Sub + + + Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click + MsgBox("Noch nicht verfügbar") + Exit Sub + Dim frmKundenFremdeSpeditionen As New frmKundenFremdeSpeditionen + frmKundenFremdeSpeditionen.ShowDialog() + End Sub + + + Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Gestellungsgarantie) + End Sub + + Private Sub ZollvollmachtDEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolStrVM_de.Click + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DE_Vollmacht) + 'cFormularManager.fillVollmacht(-1, "ZVM_DE") + End Sub + + + Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem12.Click + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK) + End Sub + + Private Sub ZollFiskalVMCustomsServiceGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolStrVM_at.Click + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Vollmacht) + ' cFormularManager.fillVollmacht(-1, "ZVM_CS") + End Sub + + Private Sub ExportVMToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolStrVM_at4200.Click + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Fiskal) + ' cFormularManager.fillVollmacht(-1, "ZVM_CS_4200") + End Sub + + Private Sub VeragCustomsServiceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VeragCustomsServiceToolStripMenuItem.Click + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VUB_CS) + + End Sub + + Private Sub ImportavisoVorauskasseToolStripMenuItem_Click(sender As Object, e As EventArgs) + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK) + 'cFormularManager.fillImportaviso(-1, "Vorauskasse") + End Sub + Private Sub ToolStripMenuItem15_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem15.Click + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DispoListe) + End Sub + + + Private Sub VUBVERAGSpeditionAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VUBVERAGSpeditionAGToolStripMenuItem.Click + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VUB_AG) + End Sub + + + Private Sub MANAGERToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MANAGERToolStripMenuItem.Click + Dim f As New SDL.frmFormulare + f.Show() + End Sub + + + + Private Sub ToolStripMenuItem18_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem18.Click + + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungspreise) + End Sub + + Private Sub toolVPCreditreformTRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolVPCreditreform.Click + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Boniteatsauskunft) + ' cFormularManager.fillCreditreform(-1) + End Sub + + + Private Sub hideErr_Tick(sender As Object, e As EventArgs) Handles hideErr.Tick + lblErrVermerk.Visible = False + hideErr.Enabled = False + End Sub + + Private Sub UpdateUpdater_Tick(sender As Object, e As EventArgs) Handles UpdateUpdater.Tick + UpdateUpdater.Enabled = False + cProgramFunctions.updateUpdater() + End Sub + + Private Sub UpdateSession_Tick(sender As Object, e As EventArgs) Handles UpdateSession.Tick + VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.UPDATE_TIME() + End Sub + + + + Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click + Dim frmTV As New frmTv + frmTV.avisoID = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID + frmTV.ShowDialog() + avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + 'If gridMyAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridMyAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "") + If gridAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "") + End Sub + + Public Sub showHideDetails() + If sd <> SplitContainer1.SplitterDistance Or SplitContainer1.Panel2.Size.Width = 15 Then + SplitContainer1.SplitterDistance = sd + SplitContainer1.Panel2MinSize = 600 '300 + Fullscreen = False + Else + SplitContainer1.Panel2MinSize = 15 + SplitContainer1.SplitterDistance = Me.Width - 15 + 'SHOW FREIGBAE, etc + Fullscreen = True + End If + ' avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cglobal.Aktive_ID) + gridAviso_SpaltenFestlegen() + tbcntrAvisoLKW.Width = Panel1.Width + End Sub + + Private Sub btnSmall_Click(sender As Object, e As EventArgs) Handles btnSmall.Click + Me.showHideDetails() + btnSmall.Text = IIf(btnSmall.Text = "<", ">", "<") + End Sub + + Private Sub ZeilenInFarbeEinausToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZeilenInFarbeEinausToolStripMenuItem.Click + chkFarben = Not chkFarben + End Sub + + Private Sub btnKassenbuch_Click(sender As Object, e As EventArgs) Handles btnKassenbuch.Click + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" + pnlOptionen.Visible = Not pnlOptionen.Visible + Case Else + Dim s As New SDL.frmSecureLoginKassenbuch + s.openKB = True + s.disableCBO = False + ' End If + s.ShowDialog(Me) + End Select + + ' Dim ADMIN As New cADMIN + ' Dim PersID As Integer = ADMIN.getValueTxtBySql("Select isnull(mit_FMZollPersID,-1) FROM tblMitarbeiter WHERE [mit_id]=" & VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID, "ADMIN") + ' Dim KBNr = ADMIN.getValueTxtBySql("Select isnull(KassenbuchNr,-1) FROM Personal WHERE [ID]=" & PersID, "FMZOLL") + + ' If KBNr > 0 Then + ' s.KassenbuchNr_tmp = KBNr + + End Sub + + + + Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btnUmrechnungskurse.Click + 'Process.Start("http://www.zoll.de/DE/Fachthemen/Zoelle/Zollwert/Aktuelle-Umrechnungskurse/Datenbankanwendung/datenbankanwendung_node.html") + + 'Process.Start("http://www.zoll.de/SiteGlobals/Forms/KursSuche/KurseSuche_Formular_NotierteWaehrung.html?method=post&iso2code2=TR") + ' Process.Start("https://www.zoll.de/SiteGlobals/Forms/KursSuche/KurseSuche_Formular_NotierteWaehrung.html") + 'http://www.zoll.de/SiteGlobals/Functions/Kurse/KursExport.xml?nn=21174&date=20170127165538660&kursart=1&iso2code2=TR&view=xmlexportkurse !!!!!!!!!!!!!!!!!!!!!!!!!! + + Process.Start("https://www.zoll.de/SiteGlobals/Forms/KursSuche/NotierteWaehrungen/KurseSuche_Formular_NotierteWaehrung.html") + + End Sub + + Private Sub LogoutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LogoutToolStripMenuItem.Click + frmLogin.Visible = True + closeOK = True + 'Me.Close() + ' Me.Dispose() + + End Sub + + + + Private Sub gridAviso_MouseMove(sender As Object, e As DataGridViewCellMouseEventArgs) Handles gridAviso.CellMouseMove ', gridMyAviso.CellMouseMove + Exit Sub ' Klappt nicht richtig + If e.RowIndex >= 0 And e.ColumnIndex >= 0 Then + sender.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.SteelBlue + sender.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.White + If sender Is gridAviso Then + sender.Rows(e.RowIndex).Cells("Status").Style.ForeColor = sender.Rows(e.RowIndex).Cells("Status").Style.BackColor + sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.BackColor = Color.SteelBlue + sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.ForeColor = Color.White + End If + End If + End Sub + + Private Sub gridAviso_CellMouseLeave(sender As Object, e As DataGridViewCellEventArgs) Handles gridAviso.CellMouseLeave ', gridMyAviso.CellMouseLeave + Exit Sub ' Klappt nicht richtig + If e.RowIndex >= 0 And e.ColumnIndex >= 0 Then + sender.Rows(e.RowIndex).DefaultCellStyle.BackColor = sender.Rows(e.RowIndex).DefaultCellStyle.SelectionForeColor + sender.Rows(e.RowIndex).DefaultCellStyle.ForeColor = sender.Rows(e.RowIndex).DefaultCellStyle.SelectionBackColor + If sender Is gridAviso Then + sender.Rows(e.RowIndex).Cells("Status").Style.ForeColor = sender.Rows(e.RowIndex).Cells("Status").Style.BackColor + sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.ForeColor = sender.Rows(e.RowIndex).Cells("Status").Style.BackColor + sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.BackColor = Color.LightGray + End If + End If + End Sub + + Private Sub TabellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TabellenToolStripMenuItem.Click + Dim f As New Form + Dim c As New SDL.usrCntlAdministration + c.Dock = DockStyle.Fill + f.Controls.Add(c) + f.Width = 850 + f.Height = 800 + f.Show() + End Sub + + Private Sub HandbuchToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HandbuchToolStripMenuItem.Click + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "", "", "", "AVISO_Benutzerhandbuch 3.0.pdf") + DS.OPEN_SINGLE() + ' + ' Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER + 'cDATENSERVER.openDataTMP(cDATENSERVER.getTOP1Path("DOKUMENTE", "VORLAGEN", , "AVISO_Benutzerhandbuch 3.0.pdf")) + + End Sub + + + + Private Sub EinheitspapierToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EinheitspapierToolStripMenuItem.Click + ' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then + Me.Cursor = Cursors.WaitCursor + Dim eh As New SDL.frmEinheitspapier + eh.Show() + Me.Cursor = Cursors.Default + ' End If + End Sub + + Private Sub Einheitspapier0735VersandverfahrenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Einheitspapier0735VersandverfahrenToolStripMenuItem.Click + ' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then + Me.Cursor = Cursors.WaitCursor + Dim eh As New SDL.frmEinheitspapierVersandverfahren + eh.Show() + Me.Cursor = Cursors.Default + ' End If + End Sub + + Private Sub CMRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CMRToolStripMenuItem.Click + 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then + Me.Cursor = Cursors.WaitCursor + Dim eh As New SDL.frmCMR + eh.Show() + Me.Cursor = Cursors.Default + ' End If + End Sub + + + + Private Sub btnRg_Click(sender As Object, e As EventArgs) Handles btnRg.Click + For Each ft As Form In Application.OpenForms + If ft.GetType.ToString = "SDL.frmRechnungenSuche" Then + ft.BringToFront() + Exit Sub + End If + Next + Me.Cursor = Cursors.WaitCursor + Dim sped As New SDL.frmRechnungenSuche + sped.Show() + Me.Cursor = Cursors.Default + End Sub + + Private Sub TimerUPDATE_Tick(sender As Object, e As EventArgs) Handles TimerUPDATE.Tick + Dim cADMIN As New cADMIN + ' If CInt(cADMIN.getAktuelleVersion().Replace(".", "")) > CInt(My.Resources.Version2.Replace(".", "")) Then + If CInt(cADMIN.getAktuelleVersion().Replace(".", "")) > CInt(Application.ProductVersion.Replace(".", "")) Then + Label9.Visible = True + End If + End Sub + + + + Private Sub lklErweitereSuche_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblErweitereSuche.LinkClicked + initPnlSearch() + End Sub + Sub initPnlSearch() + If pnlSearch.Visible Then + pnlSearch.Visible = False + Panel1.Height -= pnlSearch.Height + Panel1.Height += tbcntrAvisoLKW.Height + tbcntrAvisoLKW.Visible = True + Me.Refresh() + Aviso_anzeigen("") + Else + pnlSearch.Visible = True + Panel1.Height += pnlSearch.Height + Panel1.Height -= tbcntrAvisoLKW.Height + tbcntrAvisoLKW.Visible = False + Me.Refresh() + initDat() + gridAviso.Columns.Clear() + cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) + cbxAlle.Checked = True + cboGrenzstelle.SelectedIndex = 0 + End If + + If tbcntrAvisoLKW.SelectedTab IsNot tabAlle Then + Grid_aktiv = False + tbcntrAvisoLKW.SelectedIndex = 0 + End If + + Grid_aktiv = True + End Sub + + Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click, CheckBox1.CheckedChanged + If CheckBox1.Checked Then + toggle_LKW_SND("LKW") + Else + toggle_LKW_SND("SND") + End If + End Sub + + Private Sub toggle_LKW_SND(typ) + AVISO_TYP = typ + If AVISO_TYP = "LKW" Then + tbcntrAvisoLKW.Visible = True + tbcntrAvisoSND.Visible = False + pblSNDOptions.Visible = False + + ElseIf AVISO_TYP = "SND" Then + tbcntrAvisoLKW.Visible = False + tbcntrAvisoSND.Visible = True + pblSNDOptions.Visible = True + End If + + Aviso_anzeigen("") + + End Sub + Private Sub cbxAlle_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAlle.CheckedChanged + + 'If cbxAlle.Checked Then + cbxErfasst.Checked = cbxAlle.Checked + cbxVorg.Checked = cbxAlle.Checked + cbxVorb.Checked = cbxAlle.Checked + cbxAnkunft.Checked = cbxAlle.Checked + cbxFreigabe.Checked = cbxAlle.Checked + cbxNE.Checked = cbxAlle.Checked + ' End If + End Sub + + + Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles btnDienstplan.Click + Dim f As New SDL.frmDienstplan + f.Show() + End Sub + + Private Sub MDMParkplatzkartenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MDMParkplatzkartenToolStripMenuItem.Click + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_VERAG_CARD", Me) Then + + 'Dim f As New SDL.frmKundenblatt() + Dim f As New Form + Dim u As New SDL.usrCntlVERAGCard + u.Dock = DockStyle.Fill + f.Controls.Add(u) + f.WindowState = FormWindowState.Maximized + f.Text = "MDM VERAG Card" + f.StartPosition = FormStartPosition.CenterScreen + f.Show() + Else + MsgBox("Sie sind für diese Funktion nicht freigeschaltet.") + End If + End Sub + + Private Sub BürgschafrtsbuchungenFremdToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BürgschafrtsbuchungenFremdToolStripMenuItem.Click + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATILLA_VERWALTUNG", Me) Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("IMEX_VERWALTUNG", Me) Or + VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Auswertung_Fremdbürgschaften", Me) Then + + Dim f As New Form + Dim u As New SDL.usrCntlBrgBuchungenFremd + f.Size = New Size(720, 185) + f.Icon = Me.Icon + u.Dock = DockStyle.Fill + f.Controls.Add(u) + f.StartPosition = FormStartPosition.CenterScreen + f.Show(Me) + + End If + End Sub + + Private Sub SDLAuswertungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SDLAuswertungenToolStripMenuItem.Click + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("BH_Hauptmenü", "SDL") = 0 Then + + Dim f As New Form + Dim u As New SDL.usrCntlBH + f.Size = New Size(1200, 900) + f.Icon = Me.Icon + u.Dock = DockStyle.Fill + f.Controls.Add(u) + f.StartPosition = FormStartPosition.CenterScreen + f.WindowState = FormWindowState.Normal + f.Show(Me) + Else + MsgBox("Keine Berechtigung!") + End If + End Sub + + + Private Sub VorauskassenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauskassenToolStripMenuItem.Click + Dim f As New SDL.frmVorauskasse + f.Show(Me) + End Sub + + + + Private Sub VerzollungsunterlagenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerzollungsunterlagenToolStripMenuItem.Click + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungsunterlagen) + End Sub + + Private Sub ZollprogrammeNachEORIDurchsuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Click + Dim f As New SDL.frmZollprogrammeDurchsuchen + f.Show(Me) + End Sub + + Private Sub SDLAbholaufträgeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SDLAbholaufträgeToolStripMenuItem.Click + 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") btnFakturierung + Dim f As New SDL.frmSDLAbholung(True) + + f.Show(Me) + 'Else + ' MsgBox("Noch nicht verfügbar!") + ' End If + End Sub + + Private Sub SMSTestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SMSTestToolStripMenuItem.Click + + Dim f As New SDL.frmSendSMS("", "") + f.ShowDialog() + Exit Sub + Dim messagingService As New MessagingService("al@verag.ag", "Developer#2") + messagingService.SendMessage(New SmsMessage("00436644178557", "Hello!", "EX0252513")) + End Sub + + + Private Sub NeueSMSSendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueSMSSendenToolStripMenuItem.Click + Dim f As New SDL.frmSendSMS("", "") + f.ShowDialog() + End Sub + + Private Sub GesendeteSMSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GesendeteSMSToolStripMenuItem.Click + Dim f As New SDL.frmSMS + f.Show(Me) + End Sub + + Private Sub StammreferenzenVerwaltenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StammreferenzenVerwaltenToolStripMenuItem.Click + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_Stammref_Verwalten", "AVISO") Then + Dim f As New SDL.frmDakosyStammreferenzVerwalten + f.Show(Me) + End If + End Sub + + Private Sub AuftragÜberwachungsdokumentToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuftragÜberwachungsdokumentToolStripMenuItem.Click + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.QS_UeDok) + End Sub + + Private Sub QSTeamsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QSTeamsToolStripMenuItem.Click + Dim f As New SDL.frmTeamsZuordnung() + f.Show(Me) + End Sub + + Private Sub BerechtigungenNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BerechtigungenNeuLadenToolStripMenuItem.Click + showMeNew() + 'VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER() + 'cADMIN.checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) + End Sub + + Private Sub LeereRechnungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LeereRechnungToolStripMenuItem.Click + Dim f As New SDL.frmAbrechnungsMaskeEinzeln(-1, -1) + f.Show(Me) + End Sub + + Private Sub EMAILTESTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMAILTESTToolStripMenuItem.Click + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("luxbauer@gmail.com", "TESTMAIL", "TESTMAIL",, False, True, ,,, 2) + + + End Sub + + Private Sub FreigabeMailTestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FreigabeMailTestToolStripMenuItem.Click + AvisoStatusFunctions.Email_senden(2, AvisoDAL.LesenAviso(451993, ""), "al@verag.ag", "", "", 711104) + End Sub + + Private Sub KundenverwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KundenverwaltungToolStripMenuItem.Click + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Verwaltung", "SDL") Then + Dim f As New SDL.frmKundenSucheUebersicht + f.Show(Me) + Else + MsgBox("Keine Berechtigung!") + End If + End Sub + + Private Sub ATILLAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATILLAToolStripMenuItem.Click + If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "ATILLA", "SUB", True)) Then + showMeNew() + Else + MsgBox("Keine Berechtigung!") + End If + End Sub + + Private Sub IMEXToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IMEXToolStripMenuItem.Click + If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "IMEX", "SUB", True)) Then + showMeNew() + Else + MsgBox("Keine Berechtigung!") + End If + End Sub + + Sub closeAllWindows() + ' Hole alle geöffneten Fenster in einer Liste + Dim openForms = Application.OpenForms.Cast(Of Form).ToList() + + ' Iteriere über jedes Fenster in der Liste + For Each frm As Form In openForms + ' Prüfe, ob das Fenster nicht das aktuelle Fenster + If frm.GetType.ToString <> "AVISO.frmHauptfenster" And frm.GetType.ToString <> "AVISO.frmLogin" Then + ' Schließe das Fenster, unabhängig davon, ob es modal oder nicht ist + frm.Close() + End If + Next + End Sub + + Private Sub VERAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGToolStripMenuItem.Click + If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "VERAG", "SUB", True)) Then + showMeNew() + End If + End Sub + Sub showMeNew() + 'VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA() + 'VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER() + closeOK = True + + 'For Each ft As Form In Application.OpenForms + ' If ft.GetType.ToString = "SDL.frmSpeditionsbuchSuche" Then ft.Close() + ' If ft.GetType.ToString = "SDL.frmRechnungenSuche" Then ft.Close() + 'Next + closeAllWindows() + + Dim f As New frmHauptfenster + f.Show() + f.Visible = True + f.WindowState = FormWindowState.Maximized + Me.Close() + End Sub + + Private Sub NeuesPasswortToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuesPasswortToolStripMenuItem.Click + Dim f As New frmChangePWD(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER) + If f.ShowDialog() = DialogResult.OK Then + MsgBox("Passwort geändert!", vbInformation) + 'Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch() + 'frmSecureLoginKassenbuch.openKB = True + 'frmSecureLoginKassenbuch.ShowDialog(Me.Parent) + 'Me.Close() + End If + End Sub + + Private Sub Button2_Click_2(sender As Object, e As EventArgs) Handles btnFakturierung.Click + Me.Cursor = Cursors.WaitCursor + Dim f As New SDL.frmAbrechnungsMaske + f.Show(Me) + Me.Cursor = Cursors.Default + End Sub + + Private Sub ToolStripMenuItem1_Click_1(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click + + End Sub + + Private Sub SDLAuswertungenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SDLAuswertungenToolStripMenuItem1.Click + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ZOLL_Auswertungen", "SDL") = 0 Then + + Dim f As New Form + Dim u As New SDL.usrCntlZOLLAuswertungen + f.Size = New Size(1200, 900) + f.Icon = Me.Icon + u.Dock = DockStyle.Fill + f.Controls.Add(u) + f.StartPosition = FormStartPosition.CenterScreen + f.WindowState = FormWindowState.Normal + f.Show(Me) + Else + MsgBox("Keine Berechtigung!") + End If + End Sub + + Private Sub btnÄndern_Click(sender As Object, e As EventArgs) Handles btnKasse_LG.Click + pnlOptionen.Visible = False + Dim s As New SDL.frmSecureLoginKassenbuch + s.openKB = True + s.KassenbuchNr_tmp = 5030 + s.disableCBO = False + s.ShowDialog(Me) + + End Sub + + Private Sub btnLöschen_Click_1(sender As Object, e As EventArgs) Handles btnKasse_User.Click + pnlOptionen.Visible = False + Dim s As New SDL.frmSecureLoginKassenbuch + s.openKB = True + s.disableCBO = False + s.ShowDialog(Me) + End Sub + + Dim secondmonitorSelected = False + Private Sub Button2_Click_3(sender As Object, e As EventArgs) Handles Button2.Click + Dim secondaryMonitor = Screen.AllScreens.FirstOrDefault(Function(x) Not x.Primary) + If secondmonitorSelected Then + secondaryMonitor = Screen.AllScreens.FirstOrDefault(Function(x) x.Primary) 'Hauptbildschirm + End If + If secondaryMonitor IsNot Nothing Then + Me.WindowState = FormWindowState.Normal + Dim newLocation = secondaryMonitor.Bounds.Location + newLocation.Offset(0, 0) ' adjust as needed + Me.Location = newLocation + Me.Refresh() + Me.WindowState = FormWindowState.Maximized + ' Also see Me.Size and Me.Bounds + End If + secondmonitorSelected = Not secondmonitorSelected + End Sub + + Private Sub SDLProgrammStartenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SDLProgrammStartenToolStripMenuItem.Click + Dim main As New SDL.frmMain + main.Show() + End Sub + + Private Sub BundesanzeigerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BundesanzeigerToolStripMenuItem.Click + Dim frmBundesanzeigerZollTarif As New frmBundesanzeigerZollTarif + If Not frmBundesanzeigerZollTarif.Visible Then + frmBundesanzeigerZollTarif.Show() + End If + frmBundesanzeigerZollTarif.BringToFront() + End Sub + + Private Sub EUTaricToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EUTaricToolStripMenuItem.Click + Dim frmBundesanzeigerZollTarif As New frmBundesanzeigerZollTarif("EU") + If Not frmBundesanzeigerZollTarif.Visible Then + frmBundesanzeigerZollTarif.Show() + End If + frmBundesanzeigerZollTarif.BringToFront() + End Sub + Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles tool_BRGXLS.Click + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "ATILLA", "", "ATILLA_Bürgschaften") + DS.OPEN_SINGLE() + End Sub + Private Sub BürgschaftenExcelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BürgschaftenExcelToolStripMenuItem.Click + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_CS") + 'MsgBox(DS.da_id) + DS.OPEN_SINGLE_ORIG() + End Sub + + + + Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click + ' Process.Start("https://file.verag.ag:5001/oo/r/pkjsynkkXrTgPm85JLVFWAHem4NuF6IO") + Process.Start("https://file.verag.ag:5001/d/s/pkjsynkkXrTgPm85JLVFWAHem4NuF6IO/i4_Ss9mG9jR7hB4wStoIbzhvYzlJJJPv-BbegLJoGuQk") + 'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_GmbH") + 'DS.OPEN_SINGLE_ORIG() + End Sub + + Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_AG") + 'MsgBox(DS.da_id) + DS.OPEN_SINGLE_ORIG() + End Sub + + + Private Sub ToolStripMenuItem8_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_WAI_IMPORT_TR") + DS.OPEN_SINGLE_ORIG() + End Sub + + Private Sub ToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_WAI_EXPORT_TR") + DS.OPEN_SINGLE_ORIG() + End Sub + + Private Sub AnnahmeblattIMPORTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnnahmeblattIMPORTToolStripMenuItem.Click + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_WAI_IMPORT_SRB") + DS.OPEN_SINGLE_ORIG() + End Sub + + Private Sub AnnahmeblattEXPORTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnnahmeblattEXPORTToolStripMenuItem.Click + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_WAI_EXPORT_SRB") + DS.OPEN_SINGLE_ORIG() + End Sub + + Private Sub ChecklisteVerwahrlagerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChecklisteVerwahrlagerToolStripMenuItem.Click + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Checkliste_Verwahrlager_WAI") + DS.OPEN_SINGLE_ORIG() + End Sub + + Private Sub LKWEingetroffenNachToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LKWEingetroffenNachToolStripMenuItem.Click + Dim f As New SDL.frmLKWEingetroffen_nach + f.Show(Me) + End Sub + + Private Sub TICKETWaidhausToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TICKETWaidhausToolStripMenuItem.Click + Dim frmLKWTicket As New frmLKWTicketInfo(cGlobal.Aktive_ID) + frmLKWTicket.ShowDialog() + End Sub + + Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click + Dim frmLKWTicket As New frmLKWTicket(cGlobal.Aktive_ID) + frmLKWTicket.ShowDialog() + End Sub + + Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click + Dim frmLKWTicket As New frmLKWTicket(cGlobal.Aktive_ID) + frmLKWTicket.ShowDialog() + End Sub + + Private Sub ToolStripMenuItem11_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem11.Click + + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VerzollungsunterlagenBAR) + End Sub + + Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click + Dim f As New SDL.frmPostEinschreiben + f.Show(Me) + End Sub + + Private Sub UNISPEDToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UNISPEDToolStripMenuItem.Click + If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "UNISPED", "SUB", True)) Then + showMeNew() + Else + MsgBox("Keine Berechtigung!") + End If + End Sub + + Private Sub AMBARToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AMBARToolStripMenuItem.Click + If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "AMBAR", "AMB", True)) Then + showMeNew() + Else + MsgBox("Keine Berechtigung!") + End If + End Sub + + Private Sub VollständigesUpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VollständigesUpdateToolStripMenuItem.Click + frmLogin.UpdateAVISO(True) + End Sub + + Private Sub ZollvollmachtDEFiskalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollvollmachtDEFiskalToolStripMenuItem.Click + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DE_Fiskal) + + End Sub + + Private Sub ZollvollmachtATEVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollvollmachtATEVToolStripMenuItem.Click + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Vollmacht_EV) + End Sub + + 'Private Sub TESTToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TESTToolStripMenuItem.Click + ' 'VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({"C:\Users\DEVELOPER1\Desktop\Reiter.pdf"}) + ' ' VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder("C:\Users\DEVELOPER1\Desktop\20191017092932604.pdf", 489919001, 1234) + + ' TryPDF() + 'End Sub + + 'Shared Sub TryPDF() + ' ' Spire.License.LicenseProvider.SetLicenseKey("0xMEMAEABRiC6jPC4G3HMNAremyuZ15w8z1KmLKr9LnNmK8HaKpB6Q2+qrwh1uG0h5ui52KoJSRMg1suH9cs+IW+GtPapLk/UMMWbBlil6FmO/3TvpVJeLs3UetAz3YYCThbpPViCAY/6vBZrGePq9jMpST0Ln3PgEAVK6Obm4NELOjk9GNUdQGXgdCQ7ry9QIXR5DPYOSi2gSkQ+WihEx9K1hS5bl6VYOmIeAg109mcPIzdlja8O8z8wvIrqBwdivQXCN88B0NzEoBr7EiKl3mQEIcm1W8B3ppWmYPeZt3xfkR9H+xdVVfRnK8AEEgfB+/YEA9K2hQZpTPhaz3cHq31hHqeS2/NgQxaTx0/QghmPaLnoxqR2v2dDRe2oOxfXqmeHTI5e9cl8nWcgYl2fRhaDSvYYOs7GeO8tmiOlgMCdg+JO3EMQByyQ+AACEKRuTB8TI7OIU9POPs6dWaEZyu3YuWSDk4rGnCmdpJ3gHCJ7Qy9qoBtv+psnJAe/ylQCbqdvejSAKKtUonSpolK2zhqFljWqsWclgxk4NdvOd4tphER9c7H5sr2cn/SZgCXRftpk+G6zT/JPcY7LH5OP4kgQR9pH3g7O67C0YPCE7+20gLsTNaPfv7/mGoIMzTbUoteJN5D9jTLipYtfh8eLaEsLWL1rJ+sqr+MQvoYDNeWq6oG8bjkTyFe2GQkOZlBZEmpmR7W2QliMC7uSfbuJe6XHpM3dgROIluQHJQDAKge+LlYOd+QU5QPsI754noJZttSNKthzPxI9rP/FN+otlvvG8nddbx8v+PZAJ6KovIvexH7lWITw/Xrak4wzzaXCoeC5wUM2M5Y/4PL8tbKM+qIrH0kMZPHAdGIM4wJ8PA1UoEqB9Hgml6ggzk69WA1zY88W0y03js/7a/tWgwa+sEK9YK+cJXy54FpsLRFqkpSA0mOcJa3ukST9wnCOzVdN+Z4K4mCUzR++VJPVNkAA+KxEHrOOWG5kaUwUAk0sVRB8j8pjB83InevzxZJGX0+F+agjZJHQpzPdF1blS9WQqrW9p80fco3YI63i9+K78Q5TIuSlHOlPTLvuC1dxglzD3WkLsxnBd9woA5zQLVMdfYTfGntOuAEiBYqyVIMo35J/ese8SxczTqKOCcxBdLYCtE4S23yik6gL1YifmvjboavpRl6BPEf9M8iLe2xLRiJ+63rXTnexITUUYsq2XqCOj2YDdDnQywjMfnQ74WRQfD1vrGu7xcCTDCDkfql8uF2f8w00kqCS9UgpnsEuw5FoElVrgPNLvOlDSgqLdHOG0yiL9wwzPxtUZBiq6vNxkEkc+w0ZaQr012bHQoDyR/uMKPoLgmANaCb7qnsWLeoo+IrhfjwpUW6dXnIo7ENAFS0U6kjwGMrWDJU2JaH3M+8Iz//HLDO3Yr3eWC+wtt/I3Ii48Ra6CgPYTOfeRL3L+NkEBYfCVdxpQ==") + + ' Dim tmpFile = "C:\Users\DEVELOPER1\Desktop\Base\" & "27 AVN 83.pdf" + ' 'Test file: 16 AST 87 AVIS.PDF' + ' Dim oldPdf As New Spire.Pdf.PdfDocument() + ' oldPdf.LoadFromFile(tmpFile) + ' For i As Integer = 0 To oldPdf.Pages.Count - 1 + ' extractFirstPage(tmpFile, i) + ' Next i + 'End Sub + + 'Shared Sub extractFirstPage(ByRef TmpFile, i) + ' Dim oldPdf As New Spire.Pdf.PdfDocument() + ' oldPdf.LoadFromFile(TmpFile) + + ' Dim SplitPdf As New Spire.Pdf.PdfDocument() + ' Dim page1 As Spire.Pdf.PdfPageBase + ' page1 = SplitPdf.Pages.Add(oldPdf.Pages(0).Size, New Spire.Pdf.Graphics.PdfMargins(0)) + ' oldPdf.Pages(0).CreateTemplate().Draw(page1, New PointF(0, 0)) + ' Dim result As String = String.Format("C:\Users\DEVELOPER1\Desktop\Base\" & "output2\SplitOutput{0}.pdf", i) + ' SplitPdf.SaveToFile(result, Spire.Pdf.FileFormat.PDF) + + + ' Dim pdfNew As New Spire.Pdf.PdfDocument() + ' Dim page As Spire.Pdf.PdfPageBase + + ' For j As Integer = 1 To oldPdf.Pages.Count - 1 + ' Dim pageOLD As Spire.Pdf.PdfPageBase = oldPdf.Pages(j) + ' If pageOLD.Rotation = Spire.Pdf.PdfPageRotateAngle.RotateAngle90 Then + ' page = pdfNew.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Spire.Pdf.Graphics.PdfMargins(0)) + ' ElseIf pageOLD.Rotation = Spire.Pdf.PdfPageRotateAngle.RotateAngle270 Then + ' page = pdfNew.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Spire.Pdf.Graphics.PdfMargins(0)) + ' Else + ' page = pdfNew.Pages.Add(pageOLD.Size, New Spire.Pdf.Graphics.PdfMargins(0)) + ' End If + ' oldPdf.Pages(j).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0)) + + ' Next + + ' pdfNew.SaveToFile("C:\Users\DEVELOPER1\Desktop\Base\PFDtmp" & i & ".pdf") + + ' pdfNew.Dispose() + ' System.IO.File.Delete(TmpFile) + ' TmpFile = "C:\Users\DEVELOPER1\Desktop\Base\PFDtmp" & i & ".pdf" + + 'End Sub + + Private Sub cboTeams_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTeams.SelectedIndexChanged + If Grid_aktiv Then + ' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "") + Aviso_anzeigen("") + End If + End Sub + + Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) + + End Sub + + Private Sub cboMyAvisoAnzeige_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMyAvisoAnzeige.SelectedIndexChanged, cbx_My_LKW.CheckedChanged, cbx_My_Brexit.CheckedChanged, cboMy_Grenzstelle.SelectedIndexChanged, cboMy_QS.CheckStateChanged, cboMy_VB.CheckStateChanged + If Grid_aktiv Then + 'Wenn VERIMEX/T1 und cboMyAvisoAnzeige geändert --> Checkboxes richtig setzen + If sender Is cboMyAvisoAnzeige Then + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then + Grid_aktiv = False + If cboMyAvisoAnzeige._value = "T1" Then + cboMy_QS.CheckState = CheckState.Checked + cboMy_VB.CheckState = CheckState.Unchecked + Else + cboMy_QS.CheckState = CheckState.Indeterminate + cboMy_VB.CheckState = CheckState.Indeterminate + End If + Grid_aktiv = True + End If + End If + + 'DGV anzeigen: + Aviso_anzeigen("") + End If + cboMy_QS.Visible = Not cbx_My_LKW.Checked + cboMy_VB.Visible = Not cbx_My_LKW.Checked + cboMyAvisoAnzeige.Visible = Not cbx_My_LKW.Checked + lblMySND_Anzeige.Visible = Not cbx_My_LKW.Checked + + If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then + btnColor.Visible = Not cbx_My_LKW.Checked + Else + btnColor.Visible = False + End If + If cbx_My_LKW.Checked Then + ' lblMeineAviso.Text = "Meine Aviso:" + cbx_My_Brexit.Visible = False + Else + ' lblMeineAviso.Text = "Meine Sendungen:" + cbx_My_Brexit.Visible = True + End If + End Sub + + Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click + Me.Cursor = Cursors.WaitCursor + For Each openForm In Application.OpenForms() + If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then + CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal + CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront() + Me.Cursor = Cursors.Default : Exit Sub + End If + Next + + Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger + f.Location = Cursor.Position + f.Show(Me) + Me.Cursor = Cursors.Default + End Sub + + 'Private Sub TimerMessanger_NewMessages_Tick(sender As Object, e As EventArgs) Handles TimerMessanger_NewMessages.Tick + ' Label20.Visible = (VERAG_PROG_ALLGEMEIN.cMessenger.UNREAD_MESAGES > 0) + ' Label20.Text = (VERAG_PROG_ALLGEMEIN.cMessenger.UNREAD_MESAGES) + 'End Sub + Dim Timer_REFRESH_firstTime = True + Private Sub Timer_REFRESH_Tick(sender As Object, e As EventArgs) Handles Timer_REFRESH.Tick + If Timer_REFRESH_firstTime Then + Timer_REFRESH_firstTime = False + Exit Sub + End If + Try + If frmLogin.AnmeldungOK Then + ' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "XXX Chat-Nachricht!", -1) 'TEST + + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ChatBenutzer And picAVISOMessenger.Visible Then + VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = False 'NEUE NACHTICHTEN + Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT() + Label20.Text = newMsg.ToString + Label20.Visible = (newMsg > 0) + 'VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True 'NEUE NACHTICHTEN -> falsch gesetzt? + + If newMsg > 0 Then + VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True + Me.Icon = My.Resources.avisoNewMsg + + Dim isshown = False + For Each openForm In Application.OpenForms() + If TypeOf (openForm) Is frmNotify Then + isshown = True + End If + Next + + Dim isInFront = False + For Each openForm In Application.OpenForms() + If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then + ' If DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Focused Then + If GetActiveWindow = DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Handle Then + isInFront = True + End If + End If + Next + If Not isshown And Not isInFront Then newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1) + Else + Me.Icon = My.Resources.Aviso + End If + If Label20.Visible Then Label20.BringToFront() + End If + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + + End Try + End Sub + + Private Sub cboImEx_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboImEx.SelectedIndexChanged + If Grid_aktiv Then + Aviso_anzeigen("") + End If + End Sub + + Private Sub Button9_Click(sender As Object, e As EventArgs) Handles btnKontakt.Click + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Telefonliste") + 'MsgBox(DS.da_id) + DS.OPEN_SINGLE() + End Sub + + 'Private Sub Button10_Click(sender As Object, e As EventArgs) + ' SplitContainer3.Panel1Collapsed = Not SplitContainer3.Panel1Collapsed + ' Button10.Text = If(Button10.Text = "<", ">", "<") + 'End Sub + + Private Sub ToolStripMenuItem6_Click_1(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "IMEX", "", "Gesamtsicherheit_IMEX") + 'MsgBox(DS.da_id) + DS.OPEN_SINGLE_ORIG() + End Sub + + Private Sub Button11_Click(sender As Object, e As EventArgs) Handles btnMAVerzeichnis.Click + Me.Cursor = Cursors.WaitCursor + Dim f As New VERAG_PROG_ALLGEMEIN.frmMitarbeitersuche + f.Show() + Me.Cursor = Cursors.Default + End Sub + + Private Sub Button12_Click(sender As Object, e As EventArgs) Handles btnE_Aviso.Click, Label22.Click + Me.Cursor = Cursors.WaitCursor + Dim f As New frm_eAVISO + f.Show() + Me.Cursor = Cursors.Default + End Sub + + Private Sub FRONTOFFICEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FRONTOFFICEToolStripMenuItem.Click + If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "FRONTOFFICE", "SUB", True)) Then + showMeNew() + Else + MsgBox("Keine Berechtigung!") + End If + End Sub + + Private Sub VERIMEXToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERIMEXToolStripMenuItem.Click + If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "VERIMEX", "", True)) Then + showMeNew() + Else + MsgBox("Keine Berechtigung!") + End If + End Sub + + Private Sub SUBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SUBToolStripMenuItem.Click, SBGToolStripMenuItem.Click, WAIToolStripMenuItem.Click, NKDToolStripMenuItem.Click, NEUToolStripMenuItem.Click, AMBToolStripMenuItem.Click + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STANDORT_WECHSELN", "AVISO") Then + VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = sender.text + VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung = sender.text 'Nochmal, sonst wird es durch MA geändert + showMeNew() + Else + MsgBox("Keine Berechtigung!") + End If + End Sub + + Private Sub MRNBarcodedruckToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MRNBarcodedruckToolStripMenuItem.Click + + Dim MRN = InputBox("Bitte geben Sie die MRN-Nummer ein:") + SDL.FormularManagerNEU.printMRN(MRN) + + + End Sub + + Private Sub SecretAvisoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SecretAvisoToolStripMenuItem.Click + Dim frmSecretAviso As New frmSecretAviso + frmSecretAviso.Show(Me) + End Sub + + Private Sub DeutschToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeutschToolStripMenuItem.Click + If True Then + VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "DE" + showMeNew() + Else + MsgBox("Keine Berechtigung!") + End If + End Sub + + Private Sub TürkischToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TürkischToolStripMenuItem.Click + If True Then + VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "TR" + showMeNew() + Else + MsgBox("Keine Berechtigung!") + End If + End Sub + Private Sub EnglishToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EnglishToolStripMenuItem.Click + If True Then + VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "EN" + showMeNew() + Else + MsgBox("Keine Berechtigung!") + End If + End Sub + + Private Sub Button11_Click_1(sender As Object, e As EventArgs) Handles Button11.Click + + Exit Sub + + setProfileImage() + + cHMRC.VATTEST(InputBox("Token")) + End Sub + Sub saveLukowaPDFsFromTherefore() + ' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + ' Dim dt As DataTable = SQL.loadDgvBySql("", "EZOLL") + Dim slist As New List(Of String) + slist.Add("510322010193") + slist.Add("510322011571") + slist.Add("480322050190") + slist.Add("480322050410") + slist.Add("510322013047") + slist.Add("480322052547") + slist.Add("510322014009") + slist.Add("480322056856") + slist.Add("510322014450") + slist.Add("510322015430") + slist.Add("480322064453") + slist.Add("510322010825") + slist.Add("510322010960") + slist.Add("510322011010") + slist.Add("510322011054") + slist.Add("510322011220") + slist.Add("510322011416") + slist.Add("510322011334") + slist.Add("510322015642") + slist.Add("510322015821") + slist.Add("510322015984") + slist.Add("510322015883") + slist.Add("510322016423") + slist.Add("510322016609") + slist.Add("510322017257") + slist.Add("510322017397") + slist.Add("510322011605") + slist.Add("510322011813") + slist.Add("510322012097") + slist.Add("510322012102") + slist.Add("510322012106") + slist.Add("510322011759") + slist.Add("510322012131") + slist.Add("510322012220") + slist.Add("510322012248") + slist.Add("510322011680") + slist.Add("510322012454") + slist.Add("510322012499") + slist.Add("510322012495") + slist.Add("510322012477") + slist.Add("510322012565") + slist.Add("510322012924") + slist.Add("510322013000") + slist.Add("510322009806") + slist.Add("510322009814") + slist.Add("510322009820") + slist.Add("510322010007") + slist.Add("510322010221") + slist.Add("510322010223") + slist.Add("510322010237") + slist.Add("510322010321") + slist.Add("510322010115") + slist.Add("510322010427") + slist.Add("510322010497") + slist.Add("510322010362") + slist.Add("510322010651") + slist.Add("510322010698") + slist.Add("510322013133") + slist.Add("510322013407") + slist.Add("510322013581") + slist.Add("510322013558") + slist.Add("510322013713") + slist.Add("510322013714") + slist.Add("510322013736") + slist.Add("510322016954") + slist.Add("510322017014") + slist.Add("510322016978") + slist.Add("510322017065") + slist.Add("510322017044") + slist.Add("510322017078") + slist.Add("510322017062") + slist.Add("510322017308") + slist.Add("510322017406") + slist.Add("510322017408") + slist.Add("510322017398") + slist.Add("510322015326") + slist.Add("510322015332") + slist.Add("510322015340") + slist.Add("510322015350") + slist.Add("510322015631") + slist.Add("510322015635") + slist.Add("510322015634") + slist.Add("510322015639") + slist.Add("510322015626") + slist.Add("510322015907") + slist.Add("510322016034") + slist.Add("510322017410") + slist.Add("510322017402") + slist.Add("510322017323") + slist.Add("510322017407") + slist.Add("510322017401") + slist.Add("510322017619") + slist.Add("510322017599") + slist.Add("510322013950") + slist.Add("510322013929") + slist.Add("510322013960") + slist.Add("510322014077") + slist.Add("510322014084") + slist.Add("510322014268") + slist.Add("510322014301") + slist.Add("510322014451") + slist.Add("510322016288") + slist.Add("510322016371") + slist.Add("510322016384") + slist.Add("510322016380") + slist.Add("510322016459") + slist.Add("510322016709") + slist.Add("510322016736") + slist.Add("510322016644") + slist.Add("510322016787") + slist.Add("510322016793") + slist.Add("510322014437") + slist.Add("510322014373") + slist.Add("510322014675") + slist.Add("510322014682") + slist.Add("510322014679") + slist.Add("510322014751") + slist.Add("510322014750") + slist.Add("510322014849") + slist.Add("510322014853") + slist.Add("510322014894") + slist.Add("510322014915") + slist.Add("510322014914") + slist.Add("510322014912") + slist.Add("510322014947") + slist.Add("510322015084") + slist.Add("510322015101") + slist.Add("510322015059") + slist.Add("510322014880") + slist.Add("510322015143") + slist.Add("510322015234") + slist.Add("510322015260") + slist.Add("510322015295") + slist.Add("510322015235") + + + + + + For Each s In slist + VERAG_PROG_ALLGEMEIN.cTherefore.getFileFromFolderCat("C:\Users\DEVELOPER1\Desktop\LUKOWA\2022\", s, "", "Import ab Jänner 2022", "Import ab Jänner 2022") + Next + + + End Sub + Private Sub GVMSUKIMportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GVMSUKIMportToolStripMenuItem.Click + Process.Start("https://www.tax.service.gov.uk/goods-movement-system/dashboard") + End Sub + + Private Sub TicketIBFInlandBorderFacilitiesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TicketIBFInlandBorderFacilitiesToolStripMenuItem.Click + Process.Start("https://attend-an-inland-border-facility.hmrc.gov.uk/login") + End Sub + + Private Sub TicketIBFBeschreibungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TicketIBFBeschreibungToolStripMenuItem.Click + Process.Start("https://inlandborderfacilities.uk") + End Sub + + Private Sub IBFStatusToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IBFStatusToolStripMenuItem.Click + Process.Start("https://inland-border-facility-site-availability.hmrc.gov.uk/dashboard") + End Sub + + Private Sub FREnveloppeSmartBorderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FREnveloppeSmartBorderToolStripMenuItem.Click + Process.Start("https://www.douane.gouv.fr/enveloppe/en/enveloppe/creer") + End Sub + + Private Sub EORIUKGeneriertenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EORIUKGeneriertenToolStripMenuItem.Click + Process.Start("https://www.gov.uk/eori") + End Sub + + Private Sub KAPKentAccessPermitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KAPKentAccessPermitToolStripMenuItem.Click + Process.Start("https://www.gov.uk/check-hgv-border") + End Sub + + Private Sub ATFormularZa282ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATFormularZa282ToolStripMenuItem.Click + Process.Start("https://formulare.bmf.gv.at/service/formulare/inter-Zoll/pdfs/9999/Za278.pdf") + End Sub + + Private Sub ATInfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATInfoToolStripMenuItem.Click + Process.Start("https://service.bmf.gv.at/service/anwend/formulare/show_mast.asp?s=Za278") + End Sub + + Private Sub DEFormular0442ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEFormular0442ToolStripMenuItem.Click + Process.Start("https://www.formulare-bfinv.de/ffw/form/display.do?%24context=F11B5CC0E2F9CCCDE3E5") + End Sub + + Private Sub DEInfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEInfoToolStripMenuItem.Click + Process.Start("https://www.zoll.de/DE/Fachthemen/Warenursprung-Praeferenzen/Praeferenzen/Praeferenznachweise/Ausfertigung-nicht-foermlicher-Praeferenznachweise/Registrierter-Ausfuehrer/Allgemeines-REX/allgemeines-rex_node.html") + End Sub + + Private Sub ToolStripMenuItem16_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem16.Click + Process.Start("https://formulare.bmf.gv.at/service/formulare/inter-Zoll/pdfs/9999/Za283.pdf?open=inline") + End Sub + + Private Sub PBNIrelandFähreToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PBNIrelandFähreToolStripMenuItem.Click + Process.Start("https://www.ros.ie/customs-roro-control-web/ros/pbn/create") + End Sub + + Private Sub ATGesamtsicherheitVeragAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATVeragAGToolStripMenuItem.Click, DEVeragGmbHToolStripMenuItem.Click, ATImexCSToolStripMenuItem.Click, ATVeragCSToolStripMenuItem.Click, ATUnispedGmbHToolStripMenuItem.Click, DEAmbarToolStripMenuItem.Click + + Dim frm As New frmGesamtsicherheitenMenuNEU() + Select Case sender.name + Case "ATVeragAGToolStripMenuItem" : frm.Standort = "VERAG AG" + Case "DEVeragGmbHToolStripMenuItem" : frm.Standort = "Verag GmbH" + Case "ATImexCSToolStripMenuItem" : frm.Standort = "IMEX" + Case "ATVeragCSToolStripMenuItem" : frm.Standort = "Verag CS" + Case "ATUnispedGmbHToolStripMenuItem" : frm.Standort = "Unisped GmbH" + Case "DEAmbarToolStripMenuItem" : frm.Standort = "AMBAR GmbH" + End Select + + frm.Show() + + End Sub + + + + Private Sub gridAviso_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAviso.CellPainting + If e.RowIndex <> -1 AndAlso gridAviso.Columns(e.ColumnIndex).Name = "Status" Then + If gridAviso.Rows(e.RowIndex).Cells("Transportmittelart").Value = "SPRINTER" Then + If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then + e.Graphics.DrawImage(My.Resources.sprinter_white, e.CellBounds) + 'e.CellStyle.BackColor = Color.White + End If + + + If Not e.Handled Then + e.Handled = True + e.PaintContent(e.CellBounds) + End If + End If + End If + + End Sub + + Private Sub VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem.Click + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "VerfahrenshandbuchVERAGGmbHZollWO") + DS.OPEN_SINGLE() + + End Sub + + Private Sub ChecklisteWOVERAGGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChecklisteWOCHECKLISTEZEallgemein.Click + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ChecklisteWOCHECKLISTEZEallgemein") + DS.OPEN_SINGLE() + End Sub + + Private Sub WOCECKLISTEZEWDHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WOCECKLISTEZEWDHToolStripMenuItem.Click + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "WOCECKLISTEZEWDH") + DS.OPEN_SINGLE() + End Sub + + Private Sub WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem.Click + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "WOCECKLISTEAbgangVerwahrungsortZV") + DS.OPEN_SINGLE() + End Sub + + + + Private Sub cntxtAtilla_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles cntxtAtilla.Opening + ToolStripMenuItem17.Visible = (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") + End Sub + + Private Sub GVMSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GVMSToolStripMenuItem.Click + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then + Dim f As New frmGVMS + f.Show() + Else + MsgBox("Noch nicht verfügbar") + End If + End Sub + + Private Sub ZEVerfahrensanleitungGestellungSumAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZEVerfahrensanleitungGestellungSumAToolStripMenuItem.Click + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ZE_Verfahrensanleitung") + DS.OPEN_SINGLE() + End Sub + + Private Sub ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem.Click + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ZE_Verfahrensanleitung_Fremdpersonal") + DS.OPEN_SINGLE() + End Sub + + Private Sub WOCHECKLISTEZVAllgemeinToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WOCHECKLISTEZVAllgemeinToolStripMenuItem.Click + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ZV_Checkliste") + DS.OPEN_SINGLE() + End Sub + + Private Sub ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1.Click + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ZV_Verfahrensanleitung") + DS.OPEN_SINGLE() + End Sub + + Private Sub AlleStatusMailsSchickenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleStatusMailsSchickenToolStripMenuItem.Click + Dim dt = VERAGSQL.loadDgvBySql("SELECT [AvisoID] FROM [AVISO].[dbo].[Aviso] where datum >= '05.03.2022' + and Firma IN ('VERAG','IMEX') and (SELECT COUNT(*) FROM Vermerke where Vermerke.AvisoID=aviso.AvisoID and Hinweis_Vermerk LIKE 'Status E-Mail gesendet an:%') =0 and status NOT IN (1,2)", "AVISO") + + For Each r In dt.Rows + 'MsgBox("SO: " & (r("AvisoID"))) + Dim AVISO = AvisoDAL.LesenAviso(r("AvisoID"), "") + AvisoStatusFunctions.SendStatusEmail(AVISO) + Next + End Sub + + Private Sub InfoTextÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InfoTextÄndernToolStripMenuItem.Click + frmEintragTV.ShowDialog(Me) + End Sub + + + Private Sub txtBestimmungszollstelle_VALUE_CHANGED() Handles txtBestimmungszollstelle.VALUE_CHANGED + If Grid_aktiv Then + Aviso_anzeigen("") + End If + End Sub + + Private Sub AllgemeinToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllgemeinToolStripMenuItem.Click + Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/ausfuhrkontrolle_node.html") + End Sub + + Private Sub AllgemeineEinführungExportkontrolleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllgemeineEinführungExportkontrolleToolStripMenuItem.Click + Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Allgemeine_Einfuehrung/allgemeine_einfuehrung_node.html") + End Sub + + Private Sub BrexitToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BrexitToolStripMenuItem1.Click + Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Brexit/brexit_node.html") + End Sub + + Private Sub EmbargosLänderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EmbargosLänderToolStripMenuItem.Click + Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Embargos/embargos_node.html") + End Sub + + Private Sub GüterlisteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GüterlisteToolStripMenuItem.Click + Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Gueterlisten/gueterlisten_node.html") + End Sub + + Private Sub RoutenverwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RoutenverwaltungToolStripMenuItem.Click + gridAviso.ClearSelection() + 'gridMyAviso.ClearSelection() + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 1 + Dim f As New frmNCTSRouten() + f.ShowDialog(Me) + End Sub + + Private Sub DTBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DTBToolStripMenuItem.Click + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STANDORT_WECHSELN", "AVISO") Then + VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = sender.text + VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung = sender.text 'Nochmal, sonst wird es durch MA geändert + showMeNew() + Else + MsgBox("Keine Berechtigung!") + End If + End Sub + + Private Sub Button13_Click(sender As Object, e As EventArgs) Handles btnColor.Click + ctxtFarben.Show(Cursor.Position) + + End Sub + + Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click + btnColor.BackColor = Color.Red + Aviso_anzeigen("") + End Sub + + Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click + btnColor.BackColor = Color.Orange + Aviso_anzeigen("") + End Sub + + Private Sub ToolStripMenuItem21_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem21.Click + btnColor.BackColor = Color.Yellow + Aviso_anzeigen("") + End Sub + + + Private Sub ALLEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ALLEToolStripMenuItem.Click + btnColor.BackColor = Color.White + Aviso_anzeigen("") + End Sub + + Private Sub StandarddruckerWechselnToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StandarddruckerWechselnToolStripMenuItem.Click + Dim f As New frmWechselStandarddrucker() + f.ShowDialog(Me) + End Sub + + Private Sub EssensbestellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EssensbestellungenToolStripMenuItem.Click + Dim f As New SDL.frmEssensbestellungen() + f.ShowDialog(Me) + End Sub + + Private Sub AdministrationEssensbestellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AdministrationEssensbestellungenToolStripMenuItem.Click + Dim f As New SDL.frmEssensbestellungenAdministration() + f.ShowDialog(Me) + End Sub + + Private Sub WarenorteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WarenorteToolStripMenuItem.Click + Dim writepermissions As Boolean + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORTE", "AVISO") Then writepermissions = True + + Dim f As New frmWarenorte(writepermissions) + f.ShowDialog(Me) + End Sub + + Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles btnMitarbeiterKonto.Click + Me.Cursor = Cursors.WaitCursor + Dim f As New VERAG_PROG_ALLGEMEIN.frmMitarbeitersuche(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) + f.Show() + Me.Cursor = Cursors.Default + End Sub + + + + Private Sub CarnetTIRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CarnetTIRToolStripMenuItem.Click + Me.Cursor = Cursors.WaitCursor + Dim eh As New SDL.frmTIR + eh.Show() + Me.Cursor = Cursors.Default + End Sub + + Private Sub CarnetTIRALTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CarnetTIRALTToolStripMenuItem.Click + Me.Cursor = Cursors.WaitCursor + Dim eh As New SDL.frmTIR_alt + eh.Show() + Me.Cursor = Cursors.Default + End Sub + + Private Sub DatevBuchungsexportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMAILToolStripMenuItem.Click, FTPToolStripMenuItem.Click + + Try + + Dim Pathlist As New List(Of String) + + Select Case sender.name + Case "EMAILToolStripMenuItem" + + If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, True,, Pathlist, False) Then + MsgBox("Buchungen wurden erfolgreich exportiert!") + Else + MsgBox("Es wurden keine Buchungen exportiert!") + Exit Sub + End If + + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) + + Mail.To = "T.Wesolowski@hkt-tax.de" + Mail.CC = "C.Tuendermann@hkt-tax.de;D.Horneber@hkt-tax.de;IO@ambarlog.de" + + Dim TextHTML = "" + TextHTML &= "Sehr geehrte Damen und Herren,
im Anhang befinden sich die Exportdaten für die Buchhaltung!" + TextHTML &= "
" + TextHTML &= "
" + TextHTML &= "Mit freundlichen Grüßen
" + TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" + TextHTML &= "
" + TextHTML &= cFakturierung.getSignature("DE", 24, True, True) + + Mail.HTMLBody = "
" & TextHTML & "
" + + Mail.Subject = "DATEV-Buchungsdaten AMBAR " & Now.Date.ToShortDateString + + For Each path In Pathlist + Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + Next + + Mail.Display() + + Case "FTPToolStripMenuItem" + + If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, True,, Pathlist, False, "ftp") Then + MsgBox("Buchungen wurden erfolgreich exportiert!") + Else + MsgBox("Es wurden keine Buchungen exportiert!") + Exit Sub + End If + + End Select + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + End Sub + + Private Sub APIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles APIToolStripMenuItem.Click + Dim f As New frmNorsware() + f.ShowDialog(Me) + End Sub + + Private Sub FenstergrößeVariabelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FenstergrößeVariabelToolStripMenuItem.Click + If Me.FormBorderStyle = FormBorderStyle.None Then + Me.FormBorderStyle = FormBorderStyle.Sizable + Panel4.Visible = False + Else + Me.FormBorderStyle = FormBorderStyle.None + Panel4.Visible = True + End If + + End Sub + + Private Sub btnZertifikate_Click(sender As Object, e As EventArgs) Handles btnZertifikate.Click + Process.Start("https://verag.ag/de/about-us") + End Sub + + Private Sub ToolStripMenuItem3_Click_1(sender As Object, e As EventArgs) Handles toolOriginalATR.Click + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ORIGINAL_ATR", "AVISO") Then + Dim f As New frmOriginalArchiv_ATR + f.Show() + End If + + End Sub + + Private Sub VERAGWIKIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGWIKIToolStripMenuItem.Click + Process.Start("https://wiki.verag.ag/") + End Sub + + Private Sub AnhangsartenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnhangsartenToolStripMenuItem.Click + Dim f = New frmAvisoAnhangsarten("tblAvisoAnhangsArten", "AVISO") + f.Show() + End Sub + + Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork + + End Sub + + Private Sub MailvorlagenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MailvorlagenToolStripMenuItem.Click + Dim f As New SDL.frmdynMailvorlagen(VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAILVORLAGEN_ALLE", "SDL")) + f.ShowDialog(Me) + End Sub + + Private Sub FIBUSachkontenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FIBUSachkontenToolStripMenuItem.Click + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Leistungen_FIBU", "SDL") Then + Dim f As New SDL.frmLeistundenFIBUKonten(VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Leistungen_FIBU", "SDL")) + f.ShowDialog(Me) + End If + End Sub + + Private Sub SpireLizenzPrüfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpireLizenzPrüfenToolStripMenuItem.Click + + If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") + + + Dim pdf As New Spire.Pdf.PdfDocument() + Dim pdfNew As New Spire.Pdf.PdfDocument() + pdf.PageSettings.Size = Spire.Pdf.PdfPageSize.A4 + pdf.AppendPage() + pdf.SaveToFile("test.pdf") + pdfNew = New Spire.Pdf.PdfDocument("test.pdf") + + If pdfNew.Pages.Count = 0 Then + MsgBox("FEhler beim erstellen der PDF-Datei") + Exit Sub + + End If + + Dim finder As PdfTextFinder = New PdfTextFinder(pdfNew.Pages(0)) + + If finder.Find("Evaluation Warning").Count > 0 Then + MsgBox("PDF License wurde nicht geladen!") + Process.Start("test.pdf") + Else + MsgBox("PDF License wurde erfolgreich geladen!") + Process.Start("test.pdf") + End If + + End Sub + + Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click + + + + + saveLukowaPDFsFromTherefore() + + + Exit Sub + + MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("AW: Kennzeichen: CB4178EB | Grenze SUB DE007701 Suben | Absender CEMOBSAN;TEKIRDAG | Gewicht: 7.200,0")) + MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("*00*Fwd: Abgabenbescheid 5003/25001269 T31M492")) + MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("AW: Warenbeschreibung in T1-Dokumenten - 5003/25000389")) + MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("Kennzeichen: 06CLS811 | Grenze WAI DE008904 Waidhaus | Absender VAMET | Gewicht: 1.689,0")) + MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("*00*RE: 16 ALF 807 AVIS/ GERMANY")) + + + Exit Sub + + + + Dim resp = "" + cHMRC.checkEORI_UK("GB078068385000", resp) + MsgBox(resp) + + 'resp = "" + 'cHMRC.checkVAT_UK("389356931", resp) + 'MsgBox(resp) + 'VERAG_PROG_ALLGEMEIN.cOpenAI.doFirstAI() + 'saveLukowaPDFsFromTherefore() + ' MsgBox(VERAG_PROG_ALLGEMEIN.cATEZ_Tariff.GetTariffInfo_SingleOrEmpty("6207220000")) + + ' + 'Dim resp = GetDataFromSharePoint("https://dpdhl.sharepoint.com/sites/FRTTR-Verag", "TruckList", "al@verag.ag", "Muellerskuh1!") + 'MsgBox(resp) + 'saveLukowaPDFsFromTherefore() + End Sub + + + + Public Function GetDataFromSharePoint(siteUrl As String, listName As String, username As String, password As String) As String + '' SharePoint-URL und Liste konfigurieren + 'Dim requestUrl As String = siteUrl & "/_api/web/lists/getbytitle('" & listName & "')/items" + + '' Authentifizierung: Benutzername und Passwort als Basis64 + 'Dim credentials As String = Convert.ToBase64String(Encoding.ASCII.GetBytes(username & ":" & password)) + + '' HTTP-Anfrage vorbereiten + 'Dim request As HttpWebRequest = CType(WebRequest.Create(requestUrl), HttpWebRequest) + 'request.Method = "GET" + 'request.Accept = "application/json;odata=verbose" + 'request.Headers("Authorization") = "Basic " & credentials + + 'Try + ' ' Antwort von SharePoint erhalten + ' Using response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse) + ' Using reader As New StreamReader(response.GetResponseStream()) + ' Dim jsonResponse As String = reader.ReadToEnd() + ' Return jsonResponse + ' End Using + ' End Using + 'Catch ex As WebException + ' ' Fehlerbehandlung + ' Return "Fehler: " & ex.Message + 'End Try + ' 1. Zugriffstoken abrufen + + + '------------------------------------- + + + + ' Dim authority As String = $"https://login.microsoftonline.com/{tenantId}" + ' Dim scopes As String() = {"https://graph.microsoft.com/.default"} + + ' ' Authentifizierung mit dem vertraulichen Client + ' Dim app As IConfidentialClientApplication = ConfidentialClientApplicationBuilder.Create(clientId). + ' WithClientSecret(clientSecret). + ' WithAuthority(New Uri(authority)). + ' Build() + + ' ' Token abrufen + ' Dim authResult = Await app.AcquireTokenForClient(scopes).ExecuteAsync() + + '' 2. Zugriff auf SharePoint + 'Dim requestUrl As String = $"{siteUrl}/_api/web/lists/getbytitle('{listName}')/items" + ' Using client As New HttpClient() + ' client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Bearer", authResult.AccessToken) + ' client.DefaultRequestHeaders.Accept.Add(New MediaTypeWithQualityHeaderValue("application/json")) + + ' ' GET-Anfrage an SharePoint senden + ' Dim response As HttpResponseMessage = Await client.GetAsync(requestUrl) + + ' ' Antwort prüfen und zurückgeben + ' If response.IsSuccessStatusCode Then + ' Dim jsonResponse As String = Await response.Content.ReadAsStringAsync() + ' Return jsonResponse + ' Else + ' Return $"Fehler: {response.StatusCode} - {response.ReasonPhrase}" + ' End If + ' End Using + End Function + + Private Sub Button7_Click_1(sender As Object, e As EventArgs) Handles Button7.Click + + + Dim f As New frmSendungsdetailsNEU + + Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, f.SENDUNG_LIST.Count + 1, filiale_tmp, Nothing, 0, 0) 'Neue Sendung erstellen + NEW_SND.SAVE(False) 'Insert neue Sendung + f.SENDUNG_LIST.Add(NEW_SND) + + f.UNBOUND = True + f.Show() + End Sub + + Private Sub TVEditorNewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TVEditorNewToolStripMenuItem.Click + frmEintragTvNew.ShowDialog(Me) + End Sub + + + Private Sub ATILLASENDUNGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATILLASENDUNGToolStripMenuItem.Click + VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND = True + End Sub + + Private Sub OnSendungsdetailsRequested(ByVal AvisoId As Integer, ByVal SendungId As Integer) + Dim detailForm As New frmSendungsdetailsNEU(AvisoId, SendungId) + detailForm.Show() + End Sub + +End Class diff --git a/Aviso/frmLogin.designer.vb b/Aviso/frmLogin.designer.vb index aab9406..456cfcd 100644 --- a/Aviso/frmLogin.designer.vb +++ b/Aviso/frmLogin.designer.vb @@ -29,6 +29,7 @@ Partial Class frmLogin Me.btnOK = New System.Windows.Forms.Button() Me.txtSachbear = New System.Windows.Forms.TextBox() Me.Panel1 = New System.Windows.Forms.Panel() + Me.lblWO = New System.Windows.Forms.Label() Me.picWO = New System.Windows.Forms.PictureBox() Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() @@ -57,7 +58,7 @@ Partial Class frmLogin Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() - Me.lblWO = New System.Windows.Forms.Label() + Me.NewLoginToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Panel1.SuspendLayout() CType(Me.picWO, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStrip2.SuspendLayout() @@ -133,6 +134,16 @@ Partial Class frmLogin Me.Panel1.Size = New System.Drawing.Size(306, 222) Me.Panel1.TabIndex = 0 ' + 'lblWO + ' + Me.lblWO.AutoSize = True + Me.lblWO.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lblWO.Location = New System.Drawing.Point(50, 64) + Me.lblWO.Name = "lblWO" + Me.lblWO.Size = New System.Drawing.Size(54, 13) + Me.lblWO.TabIndex = 15 + Me.lblWO.Text = "Warenort:" + ' 'picWO ' Me.picWO.BackgroundImage = Global.AVISO.My.Resources.Resources.Verag_AG_Logopng @@ -147,64 +158,64 @@ Partial Class frmLogin ' 'ContextMenuStrip2 ' - Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2, Me.TESTSYSTEMToolStripMenuItem, Me.UpdateToolStripMenuItem1}) + Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2, Me.TESTSYSTEMToolStripMenuItem, Me.UpdateToolStripMenuItem1, Me.NewLoginToolStripMenuItem}) Me.ContextMenuStrip2.Name = "ctxUpdate" - Me.ContextMenuStrip2.Size = New System.Drawing.Size(141, 70) + Me.ContextMenuStrip2.Size = New System.Drawing.Size(181, 114) ' 'ToolStripMenuItem2 ' Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VERAGToolStripMenuItem, Me.ATILLAToolStripMenuItem, Me.IMEXToolStripMenuItem, Me.FRONTOFFICEToolStripMenuItem, Me.UNISPEDToolStripMenuItem, Me.AMBARToolStripMenuItem, Me.VERIMEXToolStripMenuItem}) Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" - Me.ToolStripMenuItem2.Size = New System.Drawing.Size(140, 22) + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(180, 22) Me.ToolStripMenuItem2.Text = "FIRMA" ' 'VERAGToolStripMenuItem ' Me.VERAGToolStripMenuItem.Name = "VERAGToolStripMenuItem" - Me.VERAGToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.VERAGToolStripMenuItem.Size = New System.Drawing.Size(155, 22) Me.VERAGToolStripMenuItem.Text = "VERAG" ' 'ATILLAToolStripMenuItem ' Me.ATILLAToolStripMenuItem.Name = "ATILLAToolStripMenuItem" - Me.ATILLAToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.ATILLAToolStripMenuItem.Size = New System.Drawing.Size(155, 22) Me.ATILLAToolStripMenuItem.Text = "ATILLA" ' 'IMEXToolStripMenuItem ' Me.IMEXToolStripMenuItem.Name = "IMEXToolStripMenuItem" - Me.IMEXToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.IMEXToolStripMenuItem.Size = New System.Drawing.Size(155, 22) Me.IMEXToolStripMenuItem.Text = "IMEX" ' 'FRONTOFFICEToolStripMenuItem ' Me.FRONTOFFICEToolStripMenuItem.Name = "FRONTOFFICEToolStripMenuItem" - Me.FRONTOFFICEToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.FRONTOFFICEToolStripMenuItem.Size = New System.Drawing.Size(155, 22) Me.FRONTOFFICEToolStripMenuItem.Text = "FRONT-OFFICE" ' 'UNISPEDToolStripMenuItem ' Me.UNISPEDToolStripMenuItem.Name = "UNISPEDToolStripMenuItem" - Me.UNISPEDToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.UNISPEDToolStripMenuItem.Size = New System.Drawing.Size(155, 22) Me.UNISPEDToolStripMenuItem.Text = "UNISPED" ' 'AMBARToolStripMenuItem ' Me.AMBARToolStripMenuItem.Name = "AMBARToolStripMenuItem" - Me.AMBARToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.AMBARToolStripMenuItem.Size = New System.Drawing.Size(155, 22) Me.AMBARToolStripMenuItem.Text = "AMBAR" ' 'VERIMEXToolStripMenuItem ' Me.VERIMEXToolStripMenuItem.Name = "VERIMEXToolStripMenuItem" - Me.VERIMEXToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.VERIMEXToolStripMenuItem.Size = New System.Drawing.Size(155, 22) Me.VERIMEXToolStripMenuItem.Text = "VERIMEX" ' 'TESTSYSTEMToolStripMenuItem ' Me.TESTSYSTEMToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PRODUKTIVToolStripMenuItem, Me.TESTSYSTEMToolStripMenuItem1}) Me.TESTSYSTEMToolStripMenuItem.Name = "TESTSYSTEMToolStripMenuItem" - Me.TESTSYSTEMToolStripMenuItem.Size = New System.Drawing.Size(140, 22) + Me.TESTSYSTEMToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.TESTSYSTEMToolStripMenuItem.Text = "TESTSYSTEM" Me.TESTSYSTEMToolStripMenuItem.Visible = False ' @@ -223,7 +234,7 @@ Partial Class frmLogin 'UpdateToolStripMenuItem1 ' Me.UpdateToolStripMenuItem1.Name = "UpdateToolStripMenuItem1" - Me.UpdateToolStripMenuItem1.Size = New System.Drawing.Size(140, 22) + Me.UpdateToolStripMenuItem1.Size = New System.Drawing.Size(180, 22) Me.UpdateToolStripMenuItem1.Text = "Update" ' 'cboWarenort @@ -369,15 +380,11 @@ Partial Class frmLogin Me.ToolStripMenuItem1.Size = New System.Drawing.Size(112, 22) Me.ToolStripMenuItem1.Text = "Update" ' - 'lblWO + 'NewLoginToolStripMenuItem ' - Me.lblWO.AutoSize = True - Me.lblWO.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.lblWO.Location = New System.Drawing.Point(50, 64) - Me.lblWO.Name = "lblWO" - Me.lblWO.Size = New System.Drawing.Size(54, 13) - Me.lblWO.TabIndex = 15 - Me.lblWO.Text = "Warenort:" + Me.NewLoginToolStripMenuItem.Name = "NewLoginToolStripMenuItem" + Me.NewLoginToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.NewLoginToolStripMenuItem.Text = "NewLogin" ' 'frmLogin ' @@ -441,4 +448,5 @@ Partial Class frmLogin Friend WithEvents cboWarenort As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents picWO As PictureBox Friend WithEvents lblWO As Label + Friend WithEvents NewLoginToolStripMenuItem As ToolStripMenuItem End Class diff --git a/Aviso/frmLogin.resx b/Aviso/frmLogin.resx index fc24504..c015291 100644 --- a/Aviso/frmLogin.resx +++ b/Aviso/frmLogin.resx @@ -124,633 +124,637 @@ iVBORw0KGgoAAAANSUhEUgAACToAAAGSCAYAAADJzuyaAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAJKeSURBVHhe7N0LvG1T3f/xczgOh1MuIbekSC4VXZyu - ShfypHokSRc93dOF7qX7qVS6SXcSqXZFqVQq3aQ7SegiIkmJJCKh4/D/f3+W09pzr+/eZ+21xxxrzDk/ - vV7v1//1Hw97jPWbYy5jrfFdc8z7f//v/wEAAAAAAAAAAAAAAABA0WwjAAAAAAAAAAAAAAAAAJTENgIA - AAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAA - AJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAA - AAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwj - AAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAA - AABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAA - AAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTE - NgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAA - AAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAA - AAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABA - SWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAA - AAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENuY0 - b8lSAAAAAAAAAACAJlhTNpedZHd5qrxQXiPvkA/Lp+Urcor8WM6S38pFcon881Y3yP9DNjfKitqHP0lc - k3COxHX6hcR1+5acIJ+TY+RD8l5ZKi+VZ8u+soc8RHaQO8ha4uZN57g9QQAAgBRsY05u8QMAAAAAAAAA - AJDRqrKF7CxPklfJ++WLcppEKOY6cQEaYLL/yF/lN/JD+bx8UCIM9wyJgNw9ZF1xc7EV3J4gAABACrYx - J7f4AQAAAAAAAAAAqMEmspscIBFkOlHOlWXiQitAneLJUvEkqS/LoRJPB9tFNhA3fxvD7QkCAACkYBvr - oEXNT8Qt4lB1vWwsA4tCoFCryNni5jN6uK/TeYm4GgNopngEvLvXUZb40tVdP6Btph5f8SuJDYc4auSb - Er/CPloOkzfLK+T/5NFyf9labifuPgKAYSwR9/6ENOJ9Pb7DcLUH0E4LJY6X21/i2LE4juxKce8RQIn+ - LjFvIwAVx+TdWdxcL5LbKwQAAEjBNtZBi5oHi1uoYVB86BpYFAKFikftunmMvkPE1Q6zR9AJaBeCTs1A - 0AmYnXgSwMXyMzle4vPdQbKPxEYbYSgA04mjbdz7CtJ5mrjaA2iHreQpEkeEnSpxfJh7LwCaLMJP8X1K - fE96N5kv7n4YO7dXCAAAkIJtrIsWNvErWLcwQ1V8MX5HGVgYAoVZUy4RN4/RE5vD64irH2aPoBPQLgSd - moGgE5DeNXKmHCtvlMfL9rKauPsQQPs9Rtz7BdKKJ/bFE17cNQDQPPEd+tPlGIn72933QNv9TT4te8ti - cffKWLh9QgAAgBRsY120sLmnuIUYBsWHs4GFIVCYN4ibv+iLX++72mE0BJ2AdiHo1AwEnYB8bpRfypES - R6zEE6BWF3dvAmiPBfJbce8LSO/F4q4DgPLF++Uu8l45T9w9DnTZDfI1earEj5TdfZSN2ycEAABIwTbW - SYub48QtwFC1XLaVgcUhUIiN5Fpx8xc9l8oicfXDaAg6Ae1C0KkZCDoB4xWbFXGc1dtkd7mtuHsVQHM9 - S9z9j3rEkT+3EXctAJQnQt+Pk8/IleLuawCD/iVHy87i7q3auT1CAACAFGxjnbS42VoixOMWXqj6vAws - DoFCHC5u3qLveeJqh9ERdALahaBTMxB0AsoSn6cj+PQ6uZfMF3fvAmiG+HEMR8Ln92Zx1wNAGVaReHJT - POXyKnH3MYDhxbHZT5Osx7e6PUIAAIAUbGPdtMCJDyhusYVBcdzfwAIRGLPthMDizC6QeJy2qx9GR9AJ - aBeCTs1A0Ako22USP0J4uMSmoLuPAZQrQovu3ka94gnVG4q7JgDGJ+7LeF+8WNy9C2Bu/irx/WqWUwjc - /iAAAEAKtrFuWuDcQa4Xt9BC1TdkYIEIjNmJ4uYr+p4ornaYG4JOQLsQdGoGgk5Ac8TGxQeEH8wAzbC+ - XC3ufkb94v3SXRcA+T1A4mi6ZeLuVwBpRZjwuVLrD3Xd/iAAAEAKtjEHLXIOFbfAwqAHysAiERiT+KW4 - m6fo+6VwhEg9CDoB7ULQqRkIOgHNdIbE5sVtxN3bAMYvgjbu/kUeEai4s7hrAyCP+J7xFHH3KID6/Vpq - 239ye4MAAAAp2MYctMiJX61dI25xhar4sDewSATGII7CiBCPm6foe6S4+mHuCDoB7ULQqRkIOgHNFvfw - O2Qjcfc4gPHYUnhyyfhNiLs+AOoV352dKu6+BJDfx2UdcffryNzeIAAAQAq2MRctdJaKW1RhEMEJlGA/ - cfMTfd8XVzukQdAJaBeCTs1A0AlohxvkcNlE3L0OIK9jxd2ryOtm2UHcNQKQ3vbyLXH3I4Dx+pMkfbqT - 2xcEAABIwTbmooXOYrlC3KIKVacLR2FhnBbJn8XNT/TdT1z9kAZBJ6BdCDo1A0EnoF2uk4NlbXH3PID6 - 3Ufc/Ynx+Lq46wQgndvJR2W5uPsQQBniHn2DJNmLcvuCAAAAKdjGnLTYeam4BRUG7SkDi0Ugk9eKm5fo - +7K42iEdgk5AuxB0agaCTkA7XS5PEnffA6jXyeLuS4zPg8VdKwBzF99pXybu3gNQpuNkTXH39NDcniAA - AEAKtjEnLXbiKTEXi1tMoeocWUUGFoxAzTaUa8TNS/TEr122E1c/pEPQCWgXgk7NQNAJaLdvyubi7n8A - 6e0h7l7EeP1M3PUCMLp4itNnxN1zAMr3c9lI3P09FLcnCAAAkIJtzOnWBc+zxC2kMGg/qSwWgQw+JG4+ - ou8T4mqHtAg6Ae1C0KkZCDoB7XeVPE7cewCAdOLHa78Wdx9i/HiSOpDOg+Qv4u41AM1xgWwm7j5fKbcn - CAAAkIJtzOnWBc8COU/cQgpVsbBcTSoLRqBGdxXOz5/ZDcKv4PMg6AS0C0GnZiDoBHTHYcLnTaA+zxR3 - 76EM8ST1VcVdOwDDi+9u+C4RaI+Rw05uTxAAACAF25jTpEXPPuIWURi0v0yuHVCnr4ibh+g7VFztkB5B - J6BdCDo1A0EnoFtOksXi3g8AjG6R8HST8kUYzV0/ACsXYemjxN1bAJotwk4biLv3p+X2BAEAAFKwjTlN - WvTMlzPFLaJQFV+MxRdkk+sH1OEh4uYg+q6R9cXVD+kRdALahaBTMxB0ArrnFzLrjQwAM3q1uPsNZblY - +M4NmL015Vvi7isA7XCaxL3u3gMstycIAACQgm3MacrCZ3dxCygMeqlMrR+QUoQPY4PDzT/0vVFc/VAP - gk5AuxB0agaCTkA3/VoIOwFp3E7472lzvFzcdQTgrS0/EXc/AWiXOP0h9g3ce8EAtycIAACQgm3MySx+ - ThG3gELVFcJxAqjTk8XNPfRdLtyHeRF0AtqFoFMzsDELdFf88CE2L917A4DhxXHn7h5DmeI7t3XEXUsA - VbeReMqLu5cAtNPrxL0fDHB7ggAAACnYxpzM4ucB4hZPGMSTZFCXNeQicfMOfQeKqx/qQ9AJaBeCTs1A - 0Anoth/IauLeHwCs3J1kmbj7C+V6m7jrCaBvoXxP3D0EoL1ukoeIe1+ocHuCAAAAKdjGnNziR74mbgGF - qth0Wk9cDYG5eJW4OYe+P0p8oePqh/oQdALahaBTMxB0AvBRce8PAFbuM+LuK5Tt37KxuGsKoHd01XHi - 7h8A7XeprCvu/eG/3J4gAABACrYxJ7f4kR3kZnELKFQdIq6GwKjWFzY0V+5p4uqHehF0AtqFoFMzsC4A - EJ4r7j0CwPTuJe5+QjN8RNx1BbBk6evF3TcAuuMYce8P/+X2BAEAAFKwjTm5xc+t+MXbcK4TfmGGlD4g - bq6h79eyirj6oV4EnYB2IejUDASdAITrZVtx7xMAvO+Ku5/QDDfKVuKuLdBljxZ+pAwg7CbufeIWbk8Q - AAAgBduYk1v83Cq+SIgvFNziCVUfFFdDYLbuIsvEzTP0PUZc/VA/gk5AuxB0agaCTgBW+KWsJu69AkDV - I8XdR2iWOJrLXV+gq+I7ez4fAFjhQlko7v3C7gkCAACkYBtzcoufSQ4Xt3hCVQRTNhdXQ2A2vihujqHv - J+JqhzwIOgHtQtCpGdjIADDZm8W9VwDoiycAny3uHkLzxBGE7joDXbOq/EzcfQKgu14u7j3D7gkCAACk - YBtzcoufSeJItng8vls8oWql5yEDK/EgcXMLVTuLqx/yIOgEtAtBp2Yg6ARgshtkS3HvFwB6nibu/kEz - fVvcdQa65vXi7hEA3XaVrCcD7xtuTxAAACAF25iTW/xM8U5xiydULZdtxNUQWJn5cpq4uYW+r4urH/Ih - 6AS0C0GnZiDoBGAq1sXA9BbJxeLuHTTXw8Vdb6Ar7ik3irs/AOAQGXjvcHuCAAAAKdjGnNziZ4pIgrO5 - MpzjxNUQWJl9xM0p9N0sO4irH/Ih6AS0C0GnZmAtDsB5pLj3DKDrXinunkGznS7xIzF3zYG2i+M4+YEk - gJlcI+tI5f3D7QkCAACkYBtzmrrwmQaPxR1e/LrG1RCYzkK5UNx8Qt+EuPohL4JOQLsQdGoGgk4AnNjw - ZNMfqFpX4vgWd8+g+fYWd92BtnuOuHsCACZ7nVTeP9yeIAAAQAq2MaepC59pLJa/iVs8oYojBDBbLxc3 - l9C3TLYUVz/kRdAJaBeCTs1A0AnAdPYU974BdNV7xN0raIfzZIG4aw+0VQQ4Lxd3TwDAZH+X1eW/7yFu - TxAAACAF25jT5EXPShwobvGEQQ8QV0Ngqjgakl+brtyHxNUP+RF0AtqFoFMzEHQCMJ0zxL1vAF10R7lB - 3L2C9niuuOsPtNX7xN0LAODsI/99D3F7ggAAACnYxpwmL3pWIo7X+pO4xROqThFXQ2CqQ8XNIfRdKxuJ - qx/yI+gEtAtBp2Yg6ARgJjuLe+8AuubT4u4RtMtfZZG4OQC0zcZyvbh7AQCc78l/30fcniAAAEAKtjGn - yYueITxd3OIJg3YVV0NghTtLHMnm5g/6DhZXP4wHQSegXQg6NQNBJwAzOV7cewfQJTvKzeLuEbTPq8XN - A6BtDhN3DwDATLaSW95H3J4gAABACrYxpxULniGtKueIWzyh6jSZL66OQPi8uLmDvitkHXH1w3gQdALa - haBTMxB0AjCT5XIHce8fQFd8R9z9gXaKtdG64uYC0BabC09zAjCKN8gt7yVuTxAAACAF25jTigXPLOwl - bvGEQXuKqyFwf3FzBlWvEFc/jA9BJ6BdCDo1A0EnACvzOnHvH0AXPELcfYF2e5e4+QC0RcxxN/cBYGXO - klveS9yeIAAAQAq2MacVC55ZiKcU/VzcAgpVv5FVxNUR3RX30E/EzRn0/VkWiashxoegE9AuBJ2agaAT - gJU5T9z7B9B28Z3LL8XdF2i3eNLNpuLmBdB0a8lV4uY+AAxjS7F7ggAAACnYxpxisTMCfi03vKeIqyG6 - 6/Hi5gqqniWufhgvgk5AuxB0agaCTgCGsUTcewjQZk8Vdz+gG44UNy+Apttf3JwHgGG9UuyeIAAAQAq2 - MadY7IzoZHELKFRdIAvE1RDds1DOFzdX0HeucN+UiaAT0C4EnZqBoBOAYRwq7j0EaKvV5SJx9wO6Ybls - I25+AE0VT4L/nbg5DwDD+o7YPUEAAIAUbGNOsdgZ0X3FLaAw6HniaojuebG4OYKqeOqVqx/Gj6AT0C4E - nZqBoBOAYcSPbNx7CNBWLxd3L6BbvihufgBN9QBxcx0AZuMGWcPtCQIAAKRgG3PSYmcuYnPMLaJQ9WdZ - JK6G6I515B/i5gj6fi7x6zVXQ4wfQSegXQg6NQNBJwDD2k7c+wjQNvH5+kpx9wG6h6M70SaHi5vnADBb - j3B7ggAAACnYxpy02JmL+BL1ZnGLKFRFOMDVEN3xHnFzA1UPF1c/lIGgE9AuBJ2agaATgGEdJO59BGib - d4q7B9BNJ4ubJ0DTxJGcV4mb5wAwW293e4IAAAAp2MactNiZq0+KW0Sh6gpZLK6GaL8tJB4X6+YG+m45 - OxxFI+gEtAtBp2Yg6ARgWN8V9z4CtMkd5Hpx9wC6azdx8wVokseLm98AMIrvuj1BAACAFGxjTlrszNWd - ZJm4hRSq3iCuhmi/z4qbE6i6j7j6oRwEnYB2IejUDASdAAzrOlko7r0EaItjxM1/dNuZwjH4aLpjxc1v - ABjFNbKK2xcEAACYK9uYkxY6KXxQ3EIKVbFJta64GqK9dhI3H1D1BXH1Q1kIOgHtQtCpGQg6AZiNB4l7 - LwHa4B5ys7i5DzxJ3LwBmmA1uVrc3AaAUW3n9gUBAADmyjbmpIVOChvLteIWUqg6RFwN0V4/EjcX0Ldc - thZXP5SFoBPQLgSdmoGgE4DZeL249xKgDb4pbt4D4QKJsIibO0DpdhU3rwFgLvZz+4IAAABzZRtz0kIn - lbeLW0ih6t8SwTBXQ7TP48TNA1QdKa5+KA9BJ6BdCDo1A0EnALPxdXHvJUDTPVzcnAcme6G4+QOUjhMT - ANThELcvCAAAMFe2MSctdFJZR9iEGc4HxNUQ7bJAzhM3B9B3vWwqroYoD0EnoF0IOjUDa2wAs3GZuPcS - oMnmyy/EzXlgsktlsbh5BJTsj+LmNADMxVfdviAAAMBc2cactNBJ6SBxiylULZPNxdUQ7fEicdcfVe8S - Vz+UiaAT0C4EnZqBoBOA2eKHBGibJ4mb64DDEZ5omi3EzWUAmKsL3b4gAADAXNnGnLTQSWmRxC+n3IIK - VUeLqyHaYW35u7hrj77YuF1PXA1RJoJOQLsQdGoGgk4AZuux4t5PgCZaKBeKm+uAE2un9cXNJ6BETxc3 - lwFgrm6WNdzeIAAAwFzYxpy0yEntBeIWVKhaLluLqyGa7xBx1x1VrxVXP5SLoBPQLgSdmoGgE4DZeoO4 - 9xOgifgMglEcKm4+ASU6Rtw8BoAUtnF7gwAAAHNhG3PSIie1+KXdH8QtqFB1rLgaotniWMLrxV1z9MXT - 39YSV0OUi00GoF0IOjUDQScAszUh7v0EaJp15Apx8xyYyQ0S38+4eQWU5iJx8xgAUtjd7Q0CAADMhW3M - SYucOuwnbkGFqnhs6D3F1RDN9Wlx1xtV8fQ3Vz+UjaAT0C4EnZqBoBOA2fqluPcToGneLm6OA8P4hLh5 - BZRkY3HzFwBS2d/tDQIAAMyFbcxJi5w6rCK/FreoQtXXxNUQzXRviQCbu9bou0BWE1dDlI2gE9AuBJ2a - gaATgNm6Vtz7CdAkmwpPS57edaYNVTfJ9uLmF1CKx4qbvxiveP+Ip9H/Qr4uH5N3yuvlxfJ0eZw8Qu4r - O8qdZItb3VHiqYRNtq6seD0h3k/jR9u7yO6yp/yfPFcOknfJxyW+Z/iRnCP/EFdf5PV2tzcIAAAwF7Yx - Jy1y6vK/4hZVGHQ/cTVE83xf3DVG1ZPF1Q/lI+gEtAtBp2Yg6ARgFJuIe08BmuIocXMbPU+S2IB3/zf0 - fUXc/AJK8RZxcxf1i89ZP5Qj5ZWyl9xH4ilbq4q7Xpi9tWQbeaQ8W2LOf0EiCLVc3LVBWp9ye4MAAABz - YRtz0iKnTqeKW1ih6hRx9UOzPEbc9UXVmRJPfXM1RPkIOg1qw6/00F3xhaO711EWgk4ARsEPatBkd5N4 - moab21iy9AyZLw+d1IbpPUDcPANKEE8LcvMWacXTLr8tB0t8h7uZuOuBvBbKPeQpcrj8Ttz1w9x80+0N - AgAAzIVtzEmLnDrFY0zdwgqD4jG3roZohgXCB7HhPEpcDdEMBJ0GRVjE1QoAUiHoVHWxTA3toRluJ3Hs - RRztEcddPFPiCJDY4PuruOuN0T1R3HsK0AQnipvX6Jn8HRK1Wrl4Ysvk+QWU5DJx8xZz90t5kzxQ4rtb - V3+UZwPZWz4tV4q7tpid093eIAAAwFzYxpy0yKnbt8QtrlAVT7+KX+O5GqJ8+4u7rqj6gbj6oTkIOg2K - jVtXKwBIhaBT1UXi6oTmiyMtDpBYM7prj9l5hbg6A6XjR3Mz+65Mrlc8/Yqjf1bu0TK5bkAJ1hc3XzG6 - c+W1srm4mqNZVpcI7/P5YG4udnuDAAAAc2Ebc9Iip273Fre4wqA9xdUQZbuN/E3cNUXV/cXVEM1B0GkQ - QScAdSPoVEXQqRu2lMPkenHzACv3AXG1BUoWPwA7XdycRk98zza1bh8X98+i71fCMfoozYPFzVfM3kmy - q/BD4vaK75V/Ku76Y2bXu71BAACAubCNOWmRk8Px4hZYqPq18KVL88TZ7u56ouor4uqHZiHoNIigE4C6 - EXSqIujULRvLMeLmAmZ2nLiaAiV7grj5jJ5jxdVtE/m3uH8HffuJqx8wLs8RN1cxvAi+xNF0rr5onwiy - HSj/ETcfML0Fbn8QAABgVLYxJy1wcthWeIz2cJ4sroYo02bCr8xX7mbZXlwN0SwEnQYRdAJQN4JOVQSd - uimefvsPcXMC3tTjrYDSLZQLxM1nLFm6TLYSV7vwVnH/Hvr+KDHPXP2AcXifuLmKlYvvY18k/Gi4m+4r - fxc3N+Ct4/YHAQAARmUbc9ICJ5ejxS2wUBVf6i0QV0OU5xPiriOq4lf4rn5oHoJOgwg6AagbQacqgk7d - tbXEJrWbFxgUTwx2dQRKdYC4uYyeD4mr2wocqz+cF4urHzAO3xQ3TzGzP8s9xdUU3bGN8N+94d3R7Q8C - AACMyjbmpAVOLpsLjxQdznPF1RBl2UHiSUXuGqIvfnV6R3E1RPMQdBpE0AlA3Qg6VRF06rYt5K/i5gaq - ok6uhkCJbis8mWF618pG4mo32QvF/fvoi3m2WFz9gNzOFTdPMb34kXA8Yd/VE91zL+Ho1uFs7/YHAQAA - RmUbc9ICJ6fDxC2yUHWxLBJXQ5QjjoJw1w9Vcd+7+qGZCDoNIugEoG4EnaoIOiGOqrhR3PxAX/zgwNUP - KNHB4uYxet4irm5TxRPCzxP3N9C3VFz9gNzi+DU3R+HFMcYzHeGJbnqGuPmCqp3c/iAAAMCobGNOWuDk - tIHEr9DcQgtVESZwNUQZHiXuuqEq7ve4710N0UwEnQYRdAJQN4JOVQSdEAhFDGehuPoBJdlErhM3h9F7 - AlEcS+dq5zxO3N9BX3xXsaG4+gG5xPdlbn5ieruKqyXwdXFzBn27uP1BAACAUdnGnLTAyS1+heYWWqi6 - XHiUdplWld+Iu26o4leS7UPQaRBBJwB1I+hURdAJYXX5g7g5gj7WKWiCI8XNX/QcKK5uM/mxuL+Fvg+I - qx2Qy73FzU14h4qrIxC2lHiaqZs76CHoBAAAkrKNOWmBk9vacoW4xRaqXieuhhivZ4u7XqiK+5ywXvsQ - dBrEBiKAuhF0qiLohBWeLm6OoG8LcbUDSrGtLBc3f7Fk6R9llCez3V/c30NfbIjfSVz9gBx4+trw/ixr - iasjsMIR4uYPegg6AQCApGxjTlrgjMMrxC22UBWbWmyglyWCO5eKu16o4vjFdiLoNIj3aQB1I+hURdAJ - KyyQi8XNE/RsJ652QCm+Km7uouep4uo2jOPF/U30fVpc7YAcXiBuXmJQhNtdDYHJthY3f9DzCLc/CAAA - MCrbmJMWOOOwSC4Rt+BC1TvE1RDj8WZx1wlVf5JRfnWK8hF0GkTQCUDdCDpVEXTCZG8TN0/Qs6O4ugEl - 2FncvEXPWbKKuNoN4y7CMT4zu1nuIa5+QN2WipuXqDpfItzuaghM9QNx8whLlu7p9gcBAABGZRtz0gJn - XJ4rbsGFqmtlI3E1RF6byL/FXSdU8Uur9iLoNIigE4C6EXSqIuiEybYRN0/Q80BxdQPGbb6cKm7eomd3 - cbWbjQ+K+9vo+7q42gF1+7C4OYmq2ENw9QOc/cXNIxB0AgAAidnGnLTAGZf4JcYF4hZdqDpMXA2R18fF - XR9U/Vbm8qtTlI2g0yCCTgDqRtCpiqATpuJz5fR2EVczYNz2Fjdn0fN9cXWbrQ3kanF9oO/B4uoH1Ok4 - cfMRfVfJmuLqBzibiptLWLJ0N7c/CAAAMCrbmJMWOOO0r7hFF6riUeObi6sh8ri73CTu+qBqT3E1RDsQ - dBpE0AlA3Qg6VRF0wlT8IGF6BJ1Qovjh2+/FzVn0LBFXu1G8Tlwf6PupuNoBdfqeuPmIvsPF1Q6YSXxe - dPOp63Zx+4MAAACjso05aYEzTvHUlzPFLbxQdZS4GiKPk8RdF1T9TFz90B4EnQYRdAJQN4JOVQSdMNV+ - 4uYKCDqhTC8UN1/Rc7y4uo1qkfxFXF/o+19x9QPq8itxcxF9DxJXO2AmnxU3n7qOoBMAAEjKNuakBc64 - 7SFu4YWq5XIXcTVEvXYTd00w6CHiaoj2IOg0iKATgLoRdKoi6ISpdhQ3V7Bk6cPE1QwYl8XyN3HzFb3v - frYWV7u5eIa4/tB3jqwqrn5AHXjqzMwuk/iRtKsdMJMDxc2priPoBAAAkrKNOWmBU4IfiVt8oepYcfVD - feIDNb+wGs43xdUQ7ULQaRBBJwB1I+hURdAJU60hHDPt8UQnlOYt4uYqeuo6ponvNoYTgTBXP6AOV4ib - h+g5WlzdgJV5lLg51XUEnQAAQFK2MSctcEqws7jFF6pulvi1sqsh6sGvHocTc/Oe4mqIdiHoNIigE4C6 - EXSqIugEh6cieASdUJKN5VpxcxVLll4nUSNXuxR2F9cv+i6WCM+6+gGpXS9uHqJnH3F1A1ZmO3FzqusI - OgEAgKRsY05a4JTiG+IWYKj6qrj6Ib015RJx1wFVcfa5qyHah6DTIIJOAOpG0KmKoBOcU8XNl67jaGmU - 5Ahx8xQ9bxNXt5S+K65v9L1cXO2AlOaLm3/o20hc7YCVie/03Zzquge4/UEAAIBR2cactMApRTwNxi3A - MOh+4mqItN4grv6oulG2EldDtA9Bp0EEnQDUjaBTFUEnOF8RN1+6jicCoxR3leXi5il6R1jl+FwR373F - E5ndGNCT61qg22KOufmHnvPE1Q0Y1tXi5laX7eD2BwEAAEZlG3PSAqckx4pbhKHq++Lqh3TiV0M8Un84 - HxFXQ7QTQadBfAkOoG4EnaoIOsE5Rtx86TqCTijFl8TNUfS8TFzd6vBpcWNA38Hiagekspm4uYeez4ir - GzCsv4mbW122hdsfBAAAGJVtzEkLnJLEU2H4hd9wHi6uhkiDR+oP5zrZWFwN0U4EnQYRdAJQN4JOVQSd - 4HxI3HzpOoJOKMEDxc1P9Fwsq4urXR3uKNeLGwt64odvfNeBOm0hbu6hJ2f4E+0Unxnd3OqyDdz+IAAA - wKhsY05a4JTmY+IWYqg6VVz9MHfbCYG74bxdXA3RXgSdBhF0AlA3gk5VBJ3gHCZuvnTdluLqBeT0E3Hz - Ez3/J65udXq3uLGgj6dXo04EnWbGD3wxV78WN7e6bE23PwgAADAq25iTFjiliUf38suy4fyvuBpibk4U - V29UXSkEPLqHoNMg7gMAdSPoVEXQCQ5BJ48nkmDc9hI3N9ETG7GriKtdneIzzD/EjQk9N0o8ed7VD5gr - gk4z21Rc3YBhvUXiaGvcyu0NAgAAzIVtzEmLnBK9V9yHHFSdLeP4QqzN4hdDrtYY9CpxNUS7EXQaRNAJ - QN0IOlURdIJD0MlbJK5eQA4L5DxxcxM9jxZXuxxeKm5M6PucuNoBc3U3cXMOS5ZeI65mAEbg9gQBAABS - sI05ucVPAdaXq8V92EHVvuJqiNmL0NiZ4uqMqkuETZNuIug0iKATgLoRdKoi6ASHoNOgZeJqBeTyPHFz - Ez0/FFe3XBbKheLGhr57iasfMBc7iptvWLL0LHE1AzACtycIAACQgm3MyS1+CvEmcR92UHWBxK8kXQ0x - O/uJqzEGPUdcDdF+BJ0GEXQCUDeCTlUEneAcKW6+dNnl4moF5LBYLhU3N9Fzf3G1yyl+POfGhr5vi6sd - MBcEnaZ3griaARiB2xMEAABIwTbm5BY/hYgvxa4Q94EHVc8WV0MML55O9Gdx9UXV74VwXXcRdBpE0AlA - 3Qg6VRF0gvNJcfOly2Ld7moF5PBGcfMSPV8WV7fc5svp4saIvoeJqx8wKoJO0/uQuJoBGIHbEwQAAEjB - NubkFj8FYUN9OBfL6uJqiOG8VlxtMegJ4mqIbuB9eRBBJwB1I+hURdAJzlfFzZcui/CCqxVQt9vLteLm - JZYsXS7biqvdODxE3DjR93OJUJirHzAKgk7Te724mgEYgdsTBAAASME25uQWPwWJ8E6EeNyHHlRF+MDV - ECu3oVwjrq6oOkP4cq/bCDoNIugEoG4EnaoIOsH5sbj50mUniasVULcPi5uT6Pm4uLqN09fEjRV9e4ur - HTAKgk7Te764mgEYgdsTBAAASME25uQWP4V5prgPPaj6m8Rxf66GmBlfwg5vV3E1RHcQdBpE0AlA3Qg6 - VRF0gnOOuPnSZUeKqxVQp60lnljk5iSWLL1eNhVXu3HaTrhuMztPOMYfqRB0mt4+4moGYARuTxAAACAF - 25iTW/wUJr5EOFfcBx9UxfFrroaY3l2FL/OG8z1xNUS3EHQCmoEnPbYLQacqgk5wrhQ3X7rszeJqBdTp - eHHzET3vEle3EkQ40o0Zfc8RVztgtgg6Te/h4moGYARuTxAAACAF25iTW/wU6AniPvigKjbBeLLI7HxF - XC0xaIm4GqJbCDoBzUDQqV0IOlURdMJUtxU3V7qODXnkdj9xcxE9V0nJ39lsLNeKGzt6LpFF4uoHzAZB - p+ntIK5mAEbg9gQBAABSsI05ucVPgebLGeI+/KDq7eJqiEEPEVdDDPqiuBqiewg6Ac1A0KldCDpVEXTC - VPcQN1e6bndx9QLq8iNxcxE9rxRXt5LEk+Dc2NH3anG1A2aDoNP0SjzeE2gstycIAACQgm3MyS1+CvVI - cR9+UBW/vru9uBqiL8JzvxBXQ1TF0X7biKsjuoegE9AMBJ3ahaBTFUEnTLWnuLnSdduLqxdQh8eKm4fo - +bM04UlAi+Uyca8BPTxNHSkQdJoe9xeQkNsTBAAASME25uQWPwU7RdwHIFQdJq5+6HuquNph0FHiaohu - IugENANBp3Yh6FRF0AlTvUXcXOm624irF5DaAvmduHmInmeKq12J9hf3GtD3TnG1A4ZF0Gl6BJ2AhNye - IAAAQAq2MSe3+CnY/cV9AELVf2RzcTXEkqVrSGyQudqh6nq5g7g6opsIOgHNQNCpXQg6VRF0wlRfFzdX - uuxicbUC6vAccfMQPedIhMFc7UoUYz1X3GtBT3xXwvFamAuCTtNbTVzNAIzA7QkCAACkYBtzcoufwn1V - 3IcgVH1cXP2wZOmrxNUMg94rroboLoJOQDMQdGoXgk5VBJ0w1aXi5kqXnSSuVkBqawr34Mz+V1ztShZj - dq8FfUeKqx0wDIJO03P1AjAitycIAACQgm3MyS1+Cnd3uVncByH0LZetxNWwy9YXNguHE3WKerk6orsI - OgHNQNCpXVi7VBF0wmT3EDdPuu5QcfUCUnu9uDmInp+Iq1sT/Ejca0JPfO92V3G1A1aGoNP0XL265hRx - tQFS2MXtEwIAAMyWbcxJC5smmhC3SEPV58TVr8s+KK5WGBRfWLsaotsIOgHNQNCpXQg6VRF0wmQ8rdV7 - prh6ASltINeIm4PoeZC42jXBfcW9JvQdL652wMoQdPKuFlevriHohDoRdAIAAEnYxpy0sGmieFLRMnEL - NfTFk6/iF86uhl10F7lRXK1QdZksFldHdBtBJ6AZCDq1C0GnKoJOmCyeluLmSdfdT1y9gJT4IdHMviau - bk3yeXGvDX07iasdMBOCTl587nH16hqCTqgTQScAAJCEbcxJC5um+oi4hRqqThBXvy76orgaYdCLxNUQ - IOgENANBp3Yh6FRF0AkrbCtujnTdTcKPFlA3foA2s/jh2d3E1a5JthSu88xOFlc7YCYEnTyCTj0EnVAn - gk4AACAJ25iTFjZNtbFcL26xhip+zdt7XLyrDQZdKAvF1REg6AQ0A0GndiHoVEXQCSscKm6OdN3Z4uoF - pPQFcfMPPZ8QV7cmer+414i+3cTVDpgOQSePoFMPQSfUiaATAABIwjbmpIVNkx0ibrGGqu+Jq19XzJfT - xNUGg54qro5AIOgENANBp3Yh6FRF0Akhfvhynbg50nUfE1czIJU4qsvNPfTEj/I2F1e7JlpfWIvM7JcS - 3z25+gEOQSePoFMPQSfUiaATAABIwjbmpIVNk60rfNkynIeKq2EX7CuuJhgUv/5eRVwdgUDQCWgGgk7t - wnq3iqATwhHi5gf44QLqxwbszN4rrm5NdpC414q++O7J1Q5wCDp5BJ16+O8s6kTQCQAAJGEbc9LCpule - J27BhqpTxdWv7eIItjiKzdUEgx4tro7ACgSdgGYg6NQuBJ2qCDrhwXKzuPmBJUs3E1c3IIX4zOjmHXri - v9m3E1e7Jlskfxb3mtFzgawmrn7AVASdPIJOPQSdUCeCTgAAIAnbmJMWNk23WC4Vt2hD1WPF1bDNXi6u - Fhj0I3E1BCYj6AQ0A0GndiHoVEXQqdsixMPnv+n9TlzdgBRWld+Im3voea242rXB/4l7zeh7gbjaAVMR - dPIIOvUQdEKdCDoBAIAkbGNOWti0wQHiFm2oOku6dCzZenKVuFpg0APF1RGYjKAT0AwEndqFoFMVQafu - ipDTueLmBXraeGQWyvEscfMOPX+VePKRq10bxPdJcdy9e+3oiSDuWuLqB0xG0Mkj6NRD0Al1IugEAACS - sI05aWHTBnE8WWx4uIUbqvYVV8M2ep+4GmDQ18TVEJiKoBPQDASd2oWgUxVBp266r3Bs0so9VFz9gLmK - AM8l4uYdep4jrnZtspu4146+14urHTAZQSePoFMPQSfUiaATAABIwjbmpIVNWzxd3MINVefLAnE1bJMt - ZZm4GqDqZrm7uDoCUxF0ApqBoFO7EHSqIujULevIO2W5uPmAvssljhZzdQTmKo5kc/MOPedJF75rCd8W - VwP0xLptfXG1A1Yg6OQRdOoh6IQ6EXQCAABJ2MactLBpi3iE9jniFm+oisfNuxq2yefFvXYM+rS4GgIO - QSegGQg6tQtBpyqCTt2woRwkV4ibBxh0uLhaAnMVoQ3+WzSzx4urXRvtIPGDKVcH9HCMKFaGoJNH0KmH - oBPqRNAJAAAkYRtz0sKmTfYUt3hD1cUSx/25GrbB/cW9bgyKp17dSVwdAYegE9AMBJ3ahc3lKoJO7bWp - PFO+LDeKu/6Y3gPF1RWYq8PEzTn0nCbzxdWurT4prhbouV42F1c7IBB08gg69RB0Qp0IOgEAgCRsY05a - 2LRJfLEUXzC5BRyq2roBGnPgJ+JeMwZ9QFwdgekQdAKagaBTuxB0qiLo1DxxnFMcQXc72ULuJo+UOH78 - zXKC/EHc9cZwzhVXe2Cu7iwcCz+zh4irXZvdQSLM4+qBnk+Iqx0QCDp5BJ16CDqhTgSdAABAErYxJy1s - 2ubh4hZwqLpMFourYZPtLe71YtC1cntxdQSmQ9AJaAaCTu1C0AnAyvC+j7p8TtycQ883xNWtCw4RVxP0 - 3CTbiasdQNDJI+jUQ9AJdSLoBAAAkrCNOWlh00bfE7eIQ9VrxNWvqeI4vgvEvVYMeou4OgIzIegENAMb - 3u1C0AnATK6R24p7/wDm4j7i5hx6bpYdxNWuC+JJfVeIqw164omFrnYAQSePoFMPQSfUiaATAABIwjbm - pIVNGy0Rt4hDVXx4jC+mXA2b6MXiXicGxZeRbIZgFASdgGYg6NQuBJ0AzCSequLeO4C54kdkM/u0uLp1 - Cd/DrNwDxNUO3UbQySPo1EPQCXUi6AQAAJKwjTlpYdNWXxa3kEPVweLq1zQR2PqHuNeIQS8TV0dgZQg6 - Ac1A0KldCDoBmE4cR72+uPcOYC7+R9ycQ88y2UJc7boknqz9B3E1Qs8PxdUO3UbQySPo1EPQCXUi6AQA - AJKwjTlpYdNWcQ5+PEbcLebQF1+MbyCuhk3yHnGvD4MuljXE1RFYGYJOQDMQdGoXgk4AptOWH66gLKvI - r8TNOfS8T1ztumgfcTVC3x7iaofuIujkEXTqIeiEOhF0AgAASdjGnLSwabNjxC3mUHWYuPo1xZ3kP+Je - GwY9U1wdgWEQdAKagaBTuxB0AuD8VRaLe98A5uLp4uYceq4RnqTWN19OE1cr9JwtESB09UM3EXTyCDr1 - EHRCnQg6AQCAJGxjTlrYtNkdJR4n7hZ06LteNhdXwyb4rLjXhUHnyAJxdQSGQdAJaAaCTu1C0AmA80Rx - 7xnAXCySP4ubc+h5g7jaddnO4mqFvv3E1Q7dRNDJI+jUQ9AJdSLoBAAAkrCNOWlh03YfELegQ9XHxNWv - dDuJez3wHieujsCwCDoBzUDQqV0IOgGY6gRx7xfAXL1a3JxDz6XCk9S8r4irGXr+KAvF1Q7dQ9DJI+jU - Q9AJdSLoBAAAkrCNOWlh03YbybXiFnXoWy5biathyX4k7vVgUDxKPh4p7+oIDIugE9AMBJ3ahaATgMni - yLoNxL1fAHOxnvDfnJm9QFztsGTpNhLfLbm6oedAcbVD9xB08gg69RB0Qp0IOgEAgCRsY05a2HTB28Qt - 6lAVR8C5+pUqnk7kXge8h4qrIzAbBJ2AZiDo1C5sOgNYIUIErOtRl/eKm3fouUA4Cn5mh4urHXouF54I - hkDQySPo1EPQCXUi6AQAAJKwjTlpYdMF68iV4hZ26LtZ7i6uhqWJLxd/L+51YNC3xNURmC2CTkAzEHRq - F4JOAFZ4kbj3CWCutpD/iJt36NlHXO3Qx1PVV26puNqhWwg6eQSdegg6oU4EnQAAQBK2MSctbLri1eIW - dqg6QVz9ShNf8Lvxw7uXuDoCs0XQCWgGgk7tQtAJQIin7bj3CCCFCXHzDj2/EI6CH86bxNUQPREE4/hR - EHTyCDr1EHRCnQg6AQCAJGxjTlrYdMUiuVTc4g5V9xNXw1KsLX8XN3YMOk5cHYFREHQCmoGgU7sQdAJw - hBCyQF3ihzHxhGc399DzcHG1w6A4mo3v32b2fnG1Q3cQdPIIOvUQdEKdCDoBAIAkbGNOWth0yfPFLe5Q - 9V1x9SvFIeLGjUHL5S7i6giMgqAT0AwEndqFoBPQbR8VQk6oU3wH4OYeer4trm6Y3nPF1RI9yySOi3S1 - QzcQdPIIOvUQdEKdCDoBAIAkbGNOWth0yUK5QNwCD1W7iKvhuN1Rrhc3ZgyKX367OgKjIugENANBp3Yh - 6AR011Ih5IQ67SZu7qHvnuJqh+ktkHPE1RM9nxZXO3QDQSePoFMPQSfUiaATAABIwjbmpIVN1zxF3AIP - VaeKq9+4xRdBbrwYFIGwjcXVERgVQSegGQg6tQtBJ6B7rpOnintPAFJZRc4SNwfR81lxtcPKPUZcTdET - x0XeQ1zt0H4EnTyCTj0EnVAngk4AACAJ25iTFjZdE1/k/UrcIg9V8aWUq+G43FviiyA3Vgx6p7g6AnNB - 0AloBoJO7ULQCeiW84TNb+Swn7g5iJ44XmxLcbXDcH4grrboOVFc3dB+BJ08gk49BJ1QJ4JOAAAgCduY - kxY2XfRYcYs8VJ0pEQxzNRyH74sbJwbFFwPriKsjMBcEnYBmIOjULgSdgO74kKwp7r0ASGkN+ZO4eYie - D4qrHYa3k7jaom9ncbVDuxF08gg69RB0Qp0IOgEAgCRsY05a2HTVT8Ut9FC1r7j65cYjz2fnIHF1BOaK - oBPQDASd2oWgE9B+v5UHinsPAOrwCnFzET3XyobiaofZOVZcjdET30+6uqHdCDp5BJ16CDqhTgSdAABA - ErYxJy1sumoXcQs9VMWxCQvE1TCX6P9ccePDoEtlkbhaAnNF0AloBoJO7ULQCWivv8uLZNyfudAt68pV - 4uYket4srnaYvTtLHAPo6oye/xVXO7QXQScv3itcvbqGoBPqRNAJAAAkYRtz0sKmy04St9hD1TPE1S+X - /cWNC17Uy9URSIGgE9AMBJ3ahaAT0D5XSDyFdbG4+x6o07vFzUv0XC7cm2m9T1yt0RNP9VtFXO3QTgSd - pufq1TUEnVAngk4AACAJ25iTFjZddi9xiz1UXSwLxdWwbreRv4kbFwZdIPwaHHUi6AQ0A0GndiHoBLTH - 7yWe4ESIAuOyuVwvbn6i5wBxtcPobiesZ2Y27h8ZIi+CTtNbQ1zNuoSgE+pE0AkAACRhG3PSwqbrviBu - wYeqA8XVr24HixsPvCeKqyOQCkEnoBkIOrULG4NAs0Wo5HPycJkv7j4HcvmUuHkKYLziR4YEPLqDoNP0 - 1hFXsy4h6IQ6EXQCAABJ2MactLDpurvKcnGLPvRdKmuJq2FdNhN+aTq8M4WNE9SNoBPQDASd2oWgE9A8 - /5YT5CnC05tQih3kZnFzFsD4vUzcvYv2Ieg0vduLq1mXEHRCnQg6AQCAJGxjTlrYYMnSo8Qt+lB1kLj6 - 1eUYceOA90hxdQRSIugENANBp3Yh6AQ0w9nyHol1+eri7mdgnL4lbu4CKMMVsra4+xftQtBpeluJq1mX - EHRCnQg6AQCAJGxjTlrYYMnSzeUGcQs/9F0luR4fzC9NZ+f74uoIpEbQadAdJd4bgZKwwd4uBJ2AZrha - viwvlK3F3c/AuDxC3LwFUJaDxd3DaBeCTtO7r7iadQlBJ9SJoBMAAEjCNuakhQ16DhO38EPVW8XVL7Xv - iusf3v3E1RFIjaDToAiVuFoBQCoEnYBm+oMcIvEjDndvA7nEEee/FDdPAZTlWtlY3L2M9iDoNL09xNWs - Swg6oU4EnQAAQBK2MSctbNCzvsSXCW7xh76oUdTK1TCVR4nrG178atzVEagDQadBBJ0A1I2gE9B858ob - hc1rjMNTxM1LAGX6sLh7Ge1B0Gl6zxFXsy4h6IQ6EXQCAABJ2MactLBB31Jxiz9UxdOvXP1SWCC/Edcv - Bt0k24mrJVAHgk6DCDoBqBtBJ6A9bpTj5CHi7ncgtYXyR3HzEUCZlslW4u5ptANBp+nlOk2gZASdUCeC - TgAAIAnbmJMWNui7rVwhbgGIvuvlDuJqOFfxqx3XJ7xPiKsjUBeCToMIOgGoG0EnoJ1Old3F3fdAKi8T - N/8AlO1z4u5ptANBp+kdI65mXULQCXUi6AQAAJKwjTlpYYOql4tbAKLqCHH1m4vFcqm4/jDoBtlcXC2B - uhB0GkTQCUDdCDoB7fYTebC4+x+Yi1in/kPcvANQvnuKu7fRfASdpvczcTXrkviOPP4bjtHcXdzcQg9B - JwAAkIRtzEkLG1Qtkr+IWwSib7mkfoz2m8X1Be994uoI1Img06D4EsXVCgBSIegEdMOE3F7c+wAwineK - m2sAmuFb4u5tNB9Bp+ldJa5mwLBWFze30EPQCQAAJGEbc9LCBoM4Pm04nxFXv1FsIv8W1w8GXSPri6sl - UCeCToMIOgGoG0EnoDtic+95Ml/c+wEwrM0kjp138wxAczxM3D2OZiPoNLNNxdUNGNZl4uYWCDoBAIBE - bGNOWthg0AI5X9xCEH03y93E1XC2jhLXB7w3iqsjUDeCToMIOgGoG0EnoHu+KRuKe08AhnG0uLkFoFl+ - LoRf24eg08weK65uwLBOFTe3QNAJAAAkYhtz0sIG3r7iFoKoOkFc/WYjzs2O0JT7+xh0ucRZ7a6WQN0I - Og0i6ASgbgSdgG66RO4v7n0BmAmfsYF2eby4ex3NRdBpZm8VVzdgWJ8XN7dA0AkAACRiG3PSwgZe/Frq - THGLQVQtEVfDYZ0k7u/CO1BcHYEcCDoNIugEoG4EnYDuWiZPFffeAEzn6+LmE4BmOlfi6fPufkczEXSa - 2Sni6gYM62Pi5hYIOgEAgERsY05a2GB6/yNuMYiqb4ur3zB2E/c34V0kC8XVEsiBoNMggk4A6kbQCcAr - xL0/AFM9TNwcAtBszxF3z6OZthZ3ndFzgywSVztgGO8SN7dA0AkAACRiG3PSwgYz+6G4BSGqdhFXv5ms - Ir8S9/fgPU1cLYFcCDoNIugEoG4EnQCEg8S9RwArxJOpfyFu/gBotjjOlOBHe2wh7jqjbw9xtQOGcai4 - eQWCTgAAIBHbmJMWNpjZg8QtCFH1U3H1m8mzxP0teL+WCIe5WgK5EHQaRNAJQN0IOgFY4aXi3ieAsK+4 - eQOgHV4l7t5H8xB0WrkjxNUOGMbHxc0rEHQCAACJ2MactLDByn1d3KIQVbP5pc2aEr9Gc38H3mPF1RLI - iaDTIIJOAOpG0AnACjfL48W9V6Db4ojzP4ibNwDa4Srh82c7EHRauctlNXH1A1bmOHHzCgSdAABAIrYx - Jy1ssHI7Snyh7BaG6DtT4lH5roZTvUHc34D3E3F1BHIj6DSIL5oB1I2gE4DJ/i33EPd+ge46UNx8AdAu - 7xT3HoBmWU/c9UXVo8XVD1iZH4ibUyDoBAAAErGNOWlhg+F8TtzCEFVPFFe/yTaSa8X9+/AeLK6WQG4E - nQYRdAJQN4JOAKb6vSwW956B7llbrhA3VwC0y/Wyibj3AjTH6uKuL6q+Jq5+wMpcJm5OgaATAABIxDbm - pIUNhrOVLBe3OETfubJAXA1X+Ji4fxdeHJ3o6giMA0GnQQSdANSNoBMAJz5XufcMdM/bxM0RAO3E+387 - 3Cju+qIvTljYUlz9gOlsKm4+oYegEwAASMI25qSFDYZ3hLjFIaqeLq5+YXshMDa8+EC/g7haAuNA0GkQ - QScAdSPoBGA6Dxf3voHuiM28eMKLmx8A2im+V9ta3HsCmuNKcdcXVUeJqx8wnaeKm0voIegEAACSsI05 - aWGD4fEF4nAuloXianiiuH8H3mfE1REYF4JOgwg6AagbQScA0zlPVhP33oFuiA1gNzcAtNvx4t4T0BwX - ibu2qIpg313E1RBwjhU3l9BD0AkAACRhG3PSwgaz825xC0RUHSBTaxe/Nnb/LLxlwuOZURqCToMIOgGo - G0EnADN5sbj3DrQfT0wGum0nce8NaIazxV1XDPq6uBoCU91GrhM3j9BD0AkAACRhG3PSwgazs76w2bRy - l8qasqJuq8iZ4v5ZeB+SyXMPKAFBp0EEnQDUjbUngJnEZ681xL1/oN2+Jm5OAOiG74l7b0AzfF/cdYX3 - OHF1BCZ7qbj5gz6CTgAAIAnbmJMWNpi9N4pbJKLqIFlRs/+7tQ3DuVY2lsnzDigBQadBBJ0A1I2gE4CV - 2V/c+wfa68Hi5gKAbtlV3HsEysfxWrPzd+G7UsxkLYkfALj5gz6CTgAAIAnbmJMWNpi9xXK5uIUi+q6U - CAAskj/f2obhHCxu7gHjRtBpEEEnAHUj6ARgZf4kq4p7D0H7zJefi5sLALrllxLvCe69AmV7v7hriun9 - UBaKqyfwdnHzBlUEnQAAQBK2MSctbDAaNvuH8xZ57ZQ2zOwfQnACpeK9bxD3K4C6EXQCMIxHiXsPQfs8 - QdwcANBNTxT3XoGyvUbc9cTMjhbCfZjqfrJc3JxBFUEnAACQhG3MSQsbjCZ+PXKxuMUi+uIItmumtGFm - rxA354ASEHQaRNAJQN0IOgEYxnHi3kPQLqvJBeLmAIBuiveEBeLeM1CuZ4m7nli5jwphJ6ywqXCaxPAI - OgEAgCRsY05a2GB0zxC3WARGFR/K4qg/N9+AEhB0GkTQCUDdCDoBGMYNwrqk/V4k7voD6LYXiHvPQLke - Ke5aYjjHyuriaovu2EB+LW6OwCPoBAAAkrCNOWlhg9HFr6V+J27BCIzi2eLmGlAKgk6D2FAEUDeCTgCG - tZ+49xG0w23kcnHXHkC3XSpriXvvQJnuIu5aYnhnyJbi6ov2i2vP3szsEXQCAABJ2MactLDB3Dxe3IIR - mK1zhUeNo3QEnQYRdAJQN4JOAIb1KXHvI2iHt4q77gAQXifuvQNlWig3ibuWGN6/5RXCd6rdspdcKW5O - YGYEnQAAQBK2MSctbDA3cR74L8QtGoHZiNCcm2NASQg6DSLoBKBuBJ0ADCue6BGfUd17CZptY4nNXHfd - ASDEmvF24t5DUKY/ibuWmL1zJMIvrIPabVOJYwvdHMBwCDoBAIAkbGNOWthg7nYTt2gEhnW68EEcTUDQ - aRBBJwB1I+gEYDbuJu69BM12pLjrDQCTvVfcewjK9H1x1xGj+408S9YQV3M00ybybrle3HXH8Ag6AQCA - JGxjTlrYII1TxC0cgWE8XNy8AkpD0GkQQScAdSPoVHWxxHsvyraRbCF3lwfJHvIUebV8UL4oZ8kN4q4z - Rvd0ce8laK5tZbm46w0Ak0UIYHNx7yUoz8fEXUfMXXyG+qg8UFYRV3+ULY4jjB+YxxOclom7zpg9gk4A - ACAJ25iTFjZI437iFo7AynxX3JwCSkTQaVBs5rpaAUAqBJ2qLhJXJzTTqrK17CMfkl/LzeKuPYZzmLha - o7lOEHetAcA5Wtx7CcpzgLhriLT+KofL42RtcdcCZVhXniyflavEXU/MDUEnAACQhG3MSQsbpMOXjxjF - fcTNJ6BEBJ0GEXQCUDeCTlUEndovjqaINcfPxc0BzCyOwXF1RTPFE9HcdQaA6cQT4LYT956CsjxE3DVE - fW6SX8gH5EkSgXue+DQeCyWe/vpc+bicI/zgoX4EnQAAQBK2MSctbJDO3YTFOGbjC+LmElAqgk6DCDoB - qBtBpyqCTt3yAPmmuLkA73JxtUTzzJefirvOADCT+DGme19BWeL7BHf9kNe18jP5hMQxy/Hkp50kjmKO - /xa7a4fhrCXbyK7yDDlE4v3pPOFY3vEg6AQAAJKwjTlpYYO0Pi1uAQlMFR/m7ipuHgGlIugEtNfTxd33 - GD+CTlUEnbrpkXKJuDmBQauLqyOa5fHiri8ADOP+4t5bUJY/ibt+KMMyic8fP5FjJZ4E9VZ5hTxHniC7 - yX1lR9lStrhVPKU0wmwrlPzkqNVk8ljDerLitcTritcXP0LYRfaUOHr6WfJKeYccIfGj3u/Jb4Sj58p0 - T7dPCAAAMFu2MSctbJBWLPrjA5BbRAKTHSluDgElI+gEtBdBp3IRdKoi6NRdt5c4asTNC1TdWVwN0RwL - 5Pfiri8ADOMH4t5fUJYvibt+AFCHHd0+IQAAwGzZxpy0sEF6Hxa3iARWuF42FTd/gJIRdALai6BTuQg6 - VRF06ra15dfi5gb6HiSufmiOF4i7tgAwG3uIe49BOV4u7toBQB22c/uEAAAAs2Ubc9LCBultLNeJW0gC - 4d3i5g5QOoJOQHsRdCoXQacqgk6IpxVdI25+oCeOPHO1QzMslsvEXVsAmI2zpeTjstA78sxdOwCow0Zu - nxAAAGC2bGNOWtigHoeIW0gCsVkZZ5y7eQOUjqAT0F4EncpF0KmKoBPCAeLmB3p4T2+2peKuKwCM4qni - 3mtQhtWEH8wCyGWh2ycEAACYLduYkxY2qMc6wqYUnNeJmzNAExB0AtqLTfFysaasIuiEsEDOEzdHsGTp - c8TVDeXbSK4Vd10BYBQXykJx7zkow/fFXTsASOlfbo8QAABgFLYxJy1uUJ/XiFtQorsulbXEzRegCQg6 - Ae1F0KlcBJ2qCDphhWeImyPordlczVC+j4q7pgAwFweKe89BGV4t7roBQEoXuD1CAACAUdjGnLS4QX0i - 0BLBFreoRDe9QNxcAZqCoBPQXgSdykXQqYqgE1ZYU7g/vIPE1Qxlu6ssF3dNAWAuLpfF4t57MH53F3fd - ACCl77k9QgAAgFHYxpy0uEG9XiRuUYnuuUB4VDiajqAT0F4EncpFkKOKoBMmO0rcPOm6peLqhbJ9Sdz1 - BIAU3iTuvQdluFjcdQOAVD7u9ggBAABGYRtz0uIG9Ypgyx/FLSzRLU8WN0eAJiHoBLQXQadyEXSqIuiE - yfYWN0+6jqBT8zxA3LUEgFT+JeuLew/C+HF0KYC6vd7tEQIAAIzCNuakxQ3q9zRxC0t0x5myirj5ATQJ - QSegvQg6lYugUxVBJ0y2jtwsbq50GUGn5vmxuGsJACm9X9x7EMbvEeKuGQCk8ni3RwgAADAK25iTFjeo - XwRcfitucYlueJS4uQE0DUEnoL0IOpWLoFMVQSdMFUdEu7nSZQSdmmVPcdcRAFJbJluIey/CeMX3x5eI - u24AkMJWbo8QAABgFLYxJy1ukAdfXHbXD8TNCaCJCDoB7UXQqVwEnaoIOmGqL4qbK11G0Kk5Fsi54q4j - ANThU+LejzB+7xZ3zQBgruL40vlujxAAAGAUtjEnLW6Qx3w5VdwiE+32AHFzAmgigk5AexF0KhdBpyqC - TpjqYHFzpcsIOjXH88RdQwCoSxz5endx70kYrx3FXTMAmKsfuf1BAACAUdnGnLTAQT4PE7fIRHt9Rdxc - AJqKoBPQXgSdykXQqYqgE6Z6vri50mUEnZphsVwq7hoCQJ1OFPe+hPH7ubhrBgBzcbDbHwQAABiVbcxJ - Cxzk9R1xC020T/xCbntx8wBoKoJOQHsRdCoXQacqgk6YimPCBxF0aoY3iLt+AJDDzuLemzBeTxV3vQBg - Lh7h9gcBAABGZRtz0gIHee0kbqGJ9vmkuDkANBlBJ6C9CDqVi6BTFUEnTPVgcXOlywg6lW9D+Ze464dB - f5WNZR1gGuvLheLmD7yfiHt/wngtFJ72ByCl/8iabn8QAABgVLYxJy1wkN+XxC040R7L5I7irj/QZASd - gPYi6FQugk5VBJ0w1Y7i5kqXEXQq34fEXTt4rFMwjL3EzR9M77HiaonxeqO46wUAo/im2xsEAACYC9uY - kxY5yG87WS5u0Yl2OEzctQeajqAT0F5sIJaLoFMVQSdMtYO4udJlBJ3Kdhe5Udy1w6DTZRVxtQSmOkXc - PIL3W+H+Kk88pYzPAABSeY7bGwQAAJgL25iTFjkYj2PELTrRfNfKBuKuO9B0BJ2A9iLoVC42OaoIOmGq - LcTNlS4j6FS248VdN3gPEFdHwImn/N0sbi7B43NAmeK/5e56AcBsxH8TN3R7gwAAAHNhG3PSIgfjsbnE - 8WZu8YlmY1MBbUbQCWgvNjjKRdCpiqATpiLoNIjPJOW6r7hrBu9z4uoIzORIcfMJ3sWyurhaYnxuK1eI - u2YAMKxvuH1BAACAubKNOWmhg/F5v7jFJ5orvoC4jbjrDbQBQSegvQg6lYugUxVBJ0xF0GkQQady/VDc - NcOg6+QO4uoIzOT2co24eQXvZeJqifF6pbjrBQDDerzbFwQAAJgr25iTFjoYn/jiJY45cwtQNFOEQNy1 - BtqCoBPQXgSdykXQqYqgE6Yi6DSIoFOZHiPuesFjHmMuXi1uXsGLH+6tLa6WGJ+Fcq64awYAK3OZrOb2 - BQEAAObKNuakhQ7G663iFqFonnjUd3wB4a4z0BYEnYD2IuhULoJOVQSdMBVBp0EERMqzQH4r7nph0J9l - TXG1BIYRR7FdKG5+wYvvKF0tMV67irteALAyr3d7ggAAACnYxpy02MF4rSP/ELcQRbOwQYwuIOgEtBf/ - HSsXQacqgk6YiqDTIIJO5Xm2uGsF70ni6gjMxl7i5he8eOr8RuJqifH6grhrBgDTiSNc13F7ggAAACnY - xpy02MH4vUrcYhTNEb/MXUXc9QXahKAT0F4EncpF0KmKoBOmIug0iKBTWeLJRH8Vd60w6KcyX1wtgdk6 - Rdw8g/dhcXXEeG0s/FAWwGwcInZPEAAAIAXbmFMsdjB2i+RScQtSNMOe4q4t0DYEnYD2IuhULoJOVQSd - MBVBp0EEncryenHXCYNuliXi6giMYkeJeeXmGwYtk63E1RLj9Xhx1wwApopg5Lpi9wQBAABSsI05xWIH - Rdhf3KIU5fuZuGsKtBFBJ6C9CDqVi6BTFUEnTEXQaRBBp3KsL1eLu04YdIy4OgJzcaS4+Qbvs+LqiPH7 - pLhrBgCTvUhued9we4IAAAAp2MacVix4MHYL5AJxC1OUbRdx1xRoI4JOQHsRdCoXQacqgk6YiqDTIIJO - 5fiAuGuEQdfKJuLqCMzF7eUacfMOg+IJWPcUV0uM122F748BzOQ3EntNt7xvuD1BAACAFGxjTisWPCjC - k8UtTlGub4q7lkBbEXQC2ougU7kIOlURdMJUBJ0GEXQqw5YSx0C5a4RBrxFXRyCFV4ubd/C+Ja6OGL+7 - SQRD3XUD0G3L5T7y3/cMtycIAACQgm3MafKiB2O3ipwtbpGK8vALN3QRQSegvQg6lYugUxVBJ0xF0GkQ - QacyHCfu+mDQH2UNcXUEUlhdLhQ3/+A9VFwtMX57i7tmALrtbVJ5v3B7ggAAACnYxpymLnwwdo8Rt0hF - eT4n7hoCbUbQCWgvgk7lIuhURdAJUxF0GkTQafx2Endt4MWmvasjkNJe4uYfvNNkvrhaYvzeKu66Aeim - eM9eKJX3CrcnCAAAkIJtzGnqwgdF+Im4xSrKcaNsJe76AW1G0AloL4JO5SLoVEXQCVMRdBpE0Gn8vi/u - 2mDQKeJqCNQh5pubh/AeL66OGL8IoR0t7roB6Ja/yWYy8F7h9gQBAABSsI05ucUPxu4h4hasKMdHxV07 - oO0IOgHtRdCpXASdqgg6YSqCToMIOo3XHuKuCwbFkfA7iqsjUIeYbzHv3HzEoHNlgbhaYvxWlRPEXTsA - 3bBMpj1q1O0JAgAApGAbc3KLHxThJHELV4zfdbKxuOsGtB1BJ6C9CDqVi6BTFUEnTEXQaRBBp/FZRX4t - 7rpg0BHi6gjU6Uhx8xHes8XVEWVYJCeLu3YA2i2Cu/uKe2+4hdsTBAAASME25uQWPyjCPcUtXjF+bxd3 - zYAuIOgEtBdBp3IRdKoi6ISpCDoNIug0Ps8Ud00w6GrZUFwdgTrdXq4RNy8x6C8SYRpXS5RhTSHsBHTP - geLeE/7L7QkCAACkYBtzcosfFOM4cQtYjM9Vso646wV0AUEnoL0IOpWLoFMVQSdMRdBpEEGn8YggQAQC - 3DXBoFeKqyOQw6vFzUt4rxJXR5Qjwk6cEAB0x0pDTsHtCQIAAKRgG3Nyix8UY2tZLm4hi/Hgix10HUEn - oL0IOpWLoFMVQSdMRdBpEEGn8XiNuOuBQb+XheLqCOSwulwobn5iED/8a4Z4X/2cuGsIoB1ukniCqHsP - GOD2BAEAAFKwjTm5xQ+K8nFxC1rkd4nwqG50HUEnoL0IOpWLoFMVQSdMRdBpEEGn/NYX3q+H91hxdQRy - 2kvc/IT3DnF1RFnmy1vEXUMAzRbHrj5a3L1vuT1BAACAFGxjTm7xg6JsLteLW9gir+eKu0ZAlxB0AtqL - oFO52DivIuiEqQg6DSLolN+h4q4FBn1bXA2BcThF3DzFoPh+cmNxdUR5niw3iLuWAJrnAtlO3P0+Lbcn - CAAAkIJtzMktflAcvjAdv3is/gJx1wfoEoJOQHsRdCoXQacqgk6YiqDTIIJOed1Jlom7FqiK4/m3F1dH - YBx2lJvFzVcM+pi4OqJM95eLxV1LAM1xrIx0fKjbEwQAAEjBNubkFj8oTjwC/1/iFrnIYx9x1wboGoJO - QHsRdCoXQacqgk6YiqDTIIJOeX1G3HXAoA+LqyEwTkeKm68YFGHFrcXVEWVaT74s7noCKFscVbefuHt7 - KG5PEAAAIAXbmJNb/KBI8UW1W+yifmdInG/vrgvQNQSdgPYi6FQugk5VBJ0wFUGnQQSd8rm3uGuAQVdK - bLi7OgLjdHuJzWQ3bzHoC+LqiHLF95ovlH+Lu6YAyhPvtZuJu6eH5vYEAQAAUrCNObnFD4p0G7lC3KIX - 9dpV3DUBuoigE9BeBJ3KRdCpiqATpiLoNIigUz7fE3cNMOhAcTUESvBqcfMW3n3E1RFli6NWvy3umgIo - w/myu7h7eNbcniAAAEAKtjEnt/hBsV4mbvGL+pws7loAXUXQCWgvgk7lIuhURdAJUxF0GkTQKY//EVd/ - DPqdLBBXR6AEq8uF4uYvBkXI09UR5YunO8Vnv7+Ju7YAxuPP8hxJul5ye4IAAAAp2Mac3OIHxVokF4tb - CKMeS8RdC6CrCDoB7UXQqVwEnaoIOmEqgk6DCDrVbxU5W1z9MeiR4uoIlGQvcfMXHk9Ab7bbyjvkenHX - F0Aef5QDJPZ+3L06J25PEAAAIAXbmJNb/KBozxa3IEZ6XxR3DYAuI+gEtBdBp3IRdKoi6ISpCDoNIuhU - v6eJqz0GfV1cDYES/UDcPMagMySeDuTqiOaIddQxslzcdQZQj1PlCVLrEy/dniAAAEAKtjEnt/hB0WLh - +3txi2OkEx/utxV3DYAuI+gEtBdBp3IRdKoi6ISpCDoNIuhUL562PLxlcldxdQRKdC+5Wdx8xqB9xNUR - zbOVHCHxvu2uNYC5u1I+KDuIuw+Tc3uCAAAAKdjGnNziB8WLLxHcQhnpHCWu9kDXEXQC2ougU7kIOlUR - dMJUBJ0GEXSq1yvF1R2DDhVXQ6BkR4ubzxh0gdT6NBJkdwd5u1wu7poDmJ04HjJOjniirCHuvquN2xME - AABIwTbm5BY/KF48FvpMcQtnzF18+NhcXO2BriPoBLQXQadyEXSqIuiEqQg6DSLoVJ/1hPfl4fxd1hFX - R6BkG8m/xM1rDHq+uDqi2VaXOKb1x+KuO4DpXSXHyb6yWNw9loXbEwQAAEjBNubkFj9ohN3FLaIxd+8V - V3MABJ2ANiPoVC421KsIOmEqgk6DCDrVJz4vuppj0PPE1RBogteIm9cYdKmsKa6OaIc7y+vlPHFzAOi6 - m+QX8g55kKwq7l7Kzu0JAgAApGAbc3KLHzTGD8QtrDG62EhcX1y9ARB0AtqMoFO5CDpVEXTCVASdBhF0 - qscd5QZxNUfVr6SYTT5gBHG80B/FzW8Mep24OqJ97iFxvU+Tm8XNB6DtbpSfy3vk0bK2uPtl7NyeIAAA - QAq2MSe3+EFjPFDcQhuje4O4WgPoIegEtBdBp3IRdKoi6ISpCDoNIuhUj0+LqzcGPVRcDYEmeYK4+Y1B - sV69nbg6or3imMenysflAnFzA2i6eFrT72RCDpD7SRzt6O6J4rg9QQAAgBRsY05u8YNG+Zq4BThm7zIZ - 65nZQAMQdALai6BTuQg6VRF0wlQEnQYRdEpvR+HJFcP5krgaAk30Q3HzHIPiySauhuiOzeSJcoh8R64U - N1eAEsU670/ybXmfPEPuLYvEzfdGcHuCAAAAKdjGnNziB40Svx5YB0msJa7GAPp4zwHaa6G4+x7jF4/B - d9esq24rrk7orlXEzZUuiyOXXK0wOtbBw2NNgTbh3h/ebcTVEN0WgfT/kfjh3EfkZPmzEB7GOMQRxOfK - SfIxeY08XuJIxkYHmqbj9gQBAABSsI05ucUPAAAAAAAAAABADVaTCEHtLE+RCJx8WD4vp0gcFfZ3cWEV - YKqr5Hw5VU6UIySecPo8ebTcR+KoRTcXW83tCQIAAKRgG3Nyix8AAAAAAAAAAIAxWiC3l7vKfWU32Uee - K6+UN8thcrgcI1+Wb0iEpc6Qs+S3Esdfh8skjgYPy8WFZlCPm2RF7f8mK65JXJ+4Tj+WeOLXCfI5iesZ - 1/bt8mrZX54se8iDZHuJ8FKE5tzcgbg9QQAAgBRsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAA - QElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAA - AAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYC - AAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAA - AACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAA - AAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQEls - IwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAA - AAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAA - AAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACU - xDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAA - AAAAAACUxDYCAAAAAICqeUuW5raxPESeJa+TD8hn5dtyipwmZ03xMzlZviRHy7vlpfIEWSLriOsLAAAA - 5bmt3FueKK+SQyXWg1+XH8vUteBPJNaJ35D452It+Ep5sjxQWAtiaO4zUZdMTEwAdVtH7iP7yCvl3RL/ - +6qcImcZ0f59OV6OkLfJi2QPuassFNfXrLh7AgBKYhsBAAAAAECV+/I/oY1kb3mPxKbVv+T/1eQSibDU - 2+TRcjtxY2q7Y2Tq5mAJfimxQRniOn1BPi6xsfkmeYH8r8Sm5+3FvbY2+Zy4OnXZ12QNcfXK5URxY8sp - NvO/IyfIJyXCoBEK3V/iHtlR1hU3fvTUeX99SFyfdYjwhxsDen4qEZ52tatDW+bVOCyQ+0kEkyK0fqG4 - tdxc/UVOkoPlEbKmuPF0Ra61xi7i+s8hfjzhxjSKW95T3OeltnHhj8K9Rlwwpi5LxY0D3trySIm6fUP+ - LP+vBjfJb+VTcoDsIPPFjWla7p4AgJLYRgAAAAAAUDXPbxrMxT0kgiuni9uEyuVmiadDLZV7ihtr26wm - 14mrR9PcIGdKBD1eIQ+XtmxYxutYJu51d11sTLua5bCBuDGV6kr5oRwuz5MdZFVxr61LctxfMVdc36md - Kq5/9L1YXO1Sa9O8ymVt2U+Ol2vEvea6xTX7vhwgOUNxJci51jhDVhE3jrpFqM2NaVQvcZ+X2saFPwp2 - X1kuLvhSl9+IGwv67i4RbPqJ5L4+k/1NPi1PkDXEjbXC3RMAUBLbCAAAAAAAqub5TYPZuo08V2Kjw20a - lOAceY1sKO41tEE8LcG99rb4j8STGiLUEUfeuBo0QTz5wL2+rlsui8XVLIc9xY2rSeKpeV+V58tm4l5n - 29V9f50vrt/UCEQOZydx9UutLfOqbhF2eaTEU5viv9nutY7LTfI9eYpEMNyNv01yrzX+T9w46hZBNjee - Ud3XfV5qGxf+KFQEV84VF3Cp23rixtRld5IIN/1BXM3G7Wo5WpaIG/8t3D0BACWxjQAAAAAAoGqe3zQY - 1joST0z6p7jNghLFk4KOkm3EvaYmiycfudfcRv+Wj8qW4mpRsteLe01d9wtx9coljth042qqeKpdbAA/ - XVYX95rbqO776xPi+k3toeL6R9+1EkeiufqlVve8Olpcv02xSF4ofxD3+koTR9zFMXqxjnWvpw1yrzWi - pjEP3FjqkvpJpvG3FrjPS23jwh+Fere4QEsOjxE3pq6Jo+EeJSeJq1OpfiyPlYGj7dw9AQAlsY0AAAAA - AKBqnt84WJk4Hukl0qSA01Tx9JiPy6biXmMTnSDutbZZXMcPyXrialKieCqVey1d915x9cqlzceEXS5v - lCY/CW1Ydd9fzxTXb2pvENc/+uJau9rVoS3zKrWFcqBcJu51le4qicBTG8Og41hrRLjKjaUuqZ9kerL7 - rNRGU4Mfhbqf3CQuxJLDu8SNqytWkX0ljvFz9WmK0+RB8t/X5u4JACiJbQQAAAAAAFXz/MbBTHaQ08Vt - EDRRHPX0IonjVtzrbYr5coW419gFf5e9xNWmJBESvEbca+i6ODrO1SyHOCbsRnHjapN4j3i55HoKTm45 - 7q+txfWd2rfF9Y++XKGKNs2rlPaQpjzBaWXi6MBdxb3OJhrXWiPW1BuJG1MdUj/J9C3us1IbTQ59FGqc - R9atcKq4sXXBrnK2uLo0VfzvdmLvCQAoiW0EAAAAAABV8/zGwXTiWJJl4jYHmu6Hsom4190E24p7XV3z - YYknTLgaleCe4saN8T6Vq2vHhP1aHiCuFk1W9/31N3H9phYhhTiWzY0BfTuLq19q9xLXfyq55lUqEWT5 - srjX0nQfkdzHr9VhnGuNj4kbUx1Sz8Pd3GelNoqwR+HGeWTdCstkTXHja6vN5QRx9WiDy2QPd08AQEls - IwAAAAAAqJrnNw6miqedfEbcpkCbxGZjBB5cDUr3XHGvqYt+IGuLq9O4xRE/bsxd9xtx9coljnVz42qz - m+RgadPTneq+v74ort/U7iOuf/TdIGuIq19qbZlXKcST9/4h7nW0RQRBm/iErcnGudaII4XvJm5cqcXT - PN0YRhH/TVzsPiu10YQPuZRi3EfWTfZQcWNsm/nyArlWXB3a5s0y390bAFAC2wgAAAAAAKrm+Y2DySIw - coq4TYE2iidWPUFcLUr2KXGvp6vOlhLDTp8XN96ui6douHrl0uVjwiIYuL64ujRN3ffXS8X1m9pLxPWP - vngKo6tdHdoyr+ZiNTlM3Pjb6CppavA9jHutcZK4caW0jbi+R3WG+5zUVhM+7FKCEo6sm+wN4sbZJhvK - SeJef5t9QRa5+wMAxs02AgAAAACAqnl+82CFCIqcIW5DoM3iV91PF1eTUl0o7rV02amS64kfw7pU3Fi7 - bl9x9cqBY8KWLP2jxKaxq0+T1H1/7SSu39SOF9c/+uJpZK52dWjLvBrVOvJdcWNvswi+7yWuJqUrYa2x - m7ixpfJscf2O6v3uc1JbTfjASwlKOLJusm+LG2dbPEguEffau+BkWdPdIwAwTrYRAAAAAABUzfObB2Gh - nCxuM6ALIuz0WHG1Kc0m4l4Dliw9WlzNxmFLcWNEbw67muVwb3Fj6po4AmgHcTVqgrrvrwjD5TrmL45R - dWNA3yPF1S61Ns2rUWwmvxM39i5o0lpwhVLWGr+SVcSNMYVjxPU7qr3d56S2mvChl3Er6ci6FeIotwXi - xtt0z5Bl4l53l3xdVnX3CQCMi20EAAAAAABV8/zmQThK3EZAl1wnO4qrT0meKG786Cllk/L/xI2v6y4Q - V69cXixuXF0UxzXdXVydSlf3/RVPtHH9pra1uP7Rt1wWi6tfam2ZV6PYSuJpb27cXRJPdtpZXI1KVNJa - I5665MaYwvni+hzVRu5zUltN+ODLOJV2ZN1k9xE35iZ7q7jX2lWHuvsEAMbFNgIAAAAAgKp5fvMgjupw - mwBdFBspcYSfq1MpPihu7Oi5SOIJZa52OR0pbnxd9wlx9crlC+LG1VWXyJ3E1apkdd9fS8X1m9qzxPWP - vtPF1a4Odc+rN4nrd9zuKH8RN+Yu+odsIa5WpSlprRFH6NURStxIXH+jOt99RmqzCR9+GafSjqyb7KXi - xtxE8+Uj4l5n1z3F3SsAMA62EQAAAAAAVM0b3DxYR+III7cRULf41fyVEsGUCBjF/xv//+vF/fO5jDuI - sTJnihs3+vYXV7uczhU3tq57urh65XKZuHGlEEc+nbUSv5V4r4vjyuI90P2d3H4juZ6Yk0rd99fDxfWb - GoHIlXuPuNrVoS3zajZuL/GkPTfenK6WCFutWA+Oa226wmmymrialaS0tcabxY1zLvYW19eoPuE+I7XZ - hA/BjMvOcrO48EkJvihu3E0TIaePinuN43CFXCTny1/kX+L+uVz+KZu6+wUAcrONAAAAAACgat7g5sFb - xW0CpHaznCpvkUdKPEFkVXFjCrHxdn95phwjfxL3d+vyUHHjGrfbyk3ixpxC/G0XzphOBDtiQzJcIf8R - 93dzO1tc/XLZQNy4Uoqau2tSujuLq1kOcTSTq2UKEVpaJK7fmawv95SnyLsk3ifjqC7XR52+JG58Jar7 - /or6ryWu79R2kgivunslhXhil3uNqfxTXL8p7Squdqm1aV4NKwKOZ4gbb50i1P4ZeYbEPTBd0DKezril - 7CmHyC/F/b265Hqy26hyrDVm69+yqbjxjuowcX2N6lnuM1KbTfggzDisKRF0ccGTUlwubuxN80Fxry+H - C+QD8iTZTuKoQjfGVWVLeZzEU77OEff36vIVd78AQG62EQAAAAAAVM2rbhxEaOZacZsAqcTG3uFyV5na - /2w9UCL0lOMpKPHUlVXEjWOcdhc33lRiw931OxuxYRnXezc5QOKaxRMaXH91upu48eUQm7JuTCndW1zf - mF48TcrVMoWfietzFOvJc+QX4vqqS/TpxlOauu+vn4vrt4k+JO41pvIOcf020ePEvcZUSptX8+Ur4sZa - lx/L/8pMQfeV2U6OkBvF9ZFShLcjIOvGUYIca41RpH4yahxf6foZ1V3dZ6Q2m/Ahk3E4TFzgpDTbiBt/ - U7xa3Ouq0/USx+TdW9yYhrWTHCeujzrs4u4ZAMjJNgIAAAAAgKp51Y2D+CW92wBIJY7TuI9M7Xeu4okw - 3xLXZ0r7iet/nA4WN9ZUPiiu3xS2lfj7OTYnw0vEjSOH94obUyr/krlsFHfVUeLqmUI8jcn1OVePkDha - zvWZWgRftxA3jpLUfX8dKq7fJoonIrnXmMqjxPXbRF2bV3HEmBtnHeLpj6mP7dtecjzh6cvi+i9B3XN2 - VPEU1x3EjXm2Ijyf8imHl7vPR2034QMluZV+ZN1kzxb3Gpogno7kXlOdPi4bixvPqGK+xJOhXH8p/czd - MwCQk20EAAAAAABV86qbB3WGheIJPnGkxtQ+U4knEcSRIq7vVE4U1/c4nSJurKnsI67flOJJRH8R139K - nxPXfw6niRtTKnHvun4xs/PE1TOFx4rrM4UFEkEq129qTTjCru77ay9x/TbN2lLnUacRZlhHXN9N1KV5 - FaGjuH5unKl9VNYQN465WlO+Kq7flOJ4Udf/uNU9Z+fie+LGPFsR9nV/f1Rfcp+P2m7CB0lyquPIut+b - tlQ+Ke51lC6OifuXuNdUh7/Ig8WNJYX15DRxfafEU50AjJVtBAAAAAAAVfP6GwdxLNs14jYBUniMTO6v - Lm8S1/+oYuPvj/J1iaPyXJ/jslCuEzfuVDYW13dqcRTM38SNIZUzxPVdt9h4Tfn0AecN4vrG9DYUV8tU - 4rg5129KT5U6gysrPERc/yXIcX/FXHF9N03dR53+Sly/TdSleXU7+au4MaYU71VxfK0bQ0qLJI4FdGNI - ZUJc3+OUY87O1aPFjX02Uv+o4aXu81HbTfgQSU6pj6w7Rfad0pbSheJeR8lWl1+Jez11+LGsL24sKa0t - Z4sbQyqfdfcNAORiGwEAAAAAQNW8/sbBXW/9wr8uq8vk/uoST3b6prgxzCSOT4uj9eLpJXEc3FMkfrEf - G0eunxLcT9xrSeUP4vqtyx7ixpHKn8T1W7eHiRtPSruI6xvTi6epuFqm8FtxfdbhReLGkNLJ4vouQd33 - Vzz1y/XbRG8T9xpT+Yi4fpuo7nkV6w3X7zh8RtwYU3u+uP7rEOHpG8SNI4X/SATEXN/jkmOtMVfnSDyR - 0I1/WN8R97dHtZP7fNR2Ez5AkkvqI+uWSTy56M6T2uqwibjXU6pDxb2OOnxVFokbRx3uIteJG0sK/5H1 - 3L0DADnYRgAAAAAAUDWvv3FQ9wZJzicX3EmWiRvH9XKWfFbeKBF22F5WE/e3SvZKca8xlU+K67dOPxM3 - lhT+Ka7PusU8c+NJJeZ6yYG8Uh0qrp4pHC6uz7p8Xtw4UtpJXN/jVvf99XFx/TbRD8S9xlSeJK7fJurK - vNpV3PhSi5Cd679Odb7Hh/3F9Tsudc/ZVOYSeIuQ1LXi/u4o4m8tcJ+P2m7Ch0dyqOPIurfLir9/xa1t - dYgnRk1+LSXbSW4S9zpS+54sFDeOOr1W3HhSeaq7dwAgB9sIAAAAAACq5vU3Dx4vbhMglefI5P7qFkGD - U+UYiUBQHJ13Z4kj+tw/30RfEVfrVJ4trt86vVXcWFK4Ulyfdfu2uPGkEvPc9YuZ1Xm0URwp5/qsy6aS - cvPX+Zi4vset7vvr6eL6bZo46rTOJ9yEO4jru4m6MK8i4B1PlnLjS+nHsqq4MdQpQu9x/LAbUwrfEtfv - uNQ9Z1O5XG4r7jWszH3E/c1Rfdd9NuqCCR8cySH1kXV/lAhPrfj7J4n751L4kEx+LaVaRc4U9xpS+53E - UXJuHHWL6/4PceNKYcLdOwCQg20EAAAAAABV8/qbB3UHna4RjtdKJ47o+4e4Wqeyjbi+63SguLGkcL64 - PusUm7t1B1DeJa5vTG8tWS6unilsIa7fOtX99JKrZZG4vsclx/0VR2C5vpvmAeJeXyrjOhq0Dl2ZV/Fk - HTe2lGLtF4Ej138Op4kbVwoRHFxDXL+5pZ6zcZyza0/l7eJex8q8WNzfG9VS99moCyZ8cKRuqY+sC4+S - yX0cLO6fS+FsmdxXqZ4hbvypxdFx24gbQy7vFje2FH7o7h0AyME2AgAAAACAqnn9zYPdbv3Sv26fkB1l - ct+Yve3E1TeVv4vrt251PtHp++L6rFPqpw84jxXXN6b3CHG1TOEv4vqs25bixpPSHuL6Hpe676/LxPXb - RK8W9xpT+Yy4fpuoC/MqQouXihtfSi8T138uda4pwoPE9Ztb6jn7BqnzaVhxjPTm4l7LTI4T9/dG9Qj3 - 2agLJnxopE51HFl3vEzt57Hi/tkUIqS1jkztsyRxhNzF4saf2gvEjSGne4sb22z9S86ReCLYkfIGuYu7 - dwAgB9sIAAAAAACq5vU3D+LpAm4ToC5ny9sknjIRx6dMHgtW7nni6prKl8X1W7c44saNJ4UPiOuzTi8R - N5aUbieub0xvqbhapnCsuD5zOFPcmFIZxz00k7rvry+I67eJvibuNaayv7h+m6gL8yrH05x+L3Fkous/ - l73EjS2VqKPrN7fUczaeSnj0lLbUJsS9lplcJO5vjSKe6rjYfTbqggkfGqnTB8QFTEYVwZTNZGo/G4v7 - 51OZ+gSp0uwvbtypnSZxRJ4bQ07z5e/ixrjCjRJHHP5QPiPvkOfLHnIPWdfdIwAwTrYRAAAAAABUzetv - Hqwi/xS3GVC36ySetnOw7Cmj/Mq7az4trpapvFxcv3W6v7ixpLKvuH7rdLy4saTyW3H9YmbfFVfPFF4o - rs8cDhE3plQioOr6HZe67684Jsn12zRx1OmV4l5jKncT13cTtX1exXyIEJIbW0p7i+s/p7uLG1sqh4nr - N7eUczbW5DFHNpJ/3dpWl3gSlXs9zsbi/saoTnefi7piwodG6vJQcQGUuXipuL7CJeL+nRQOEddnCSL0 - k/qpWdO5v7gxjMNRcrp8Sd4vL5d95H6yiQwEstw9AQAlsY0AAAAAAKBqXnUT4YviNgPGITZlI4zwHnmK - bC+rytQxd9UfxdUtlSXi+q3LbSRCO24sKdwk64vru05xRJEbTyqHi+sX01sg14qrZwr3ENdvDo8XN6ZU - 4gkYq4vrexzqvr/uLa7fpon/frrXl0r89zrC0q7vJmr7vNpV3LhSOkdKmBPx3303vlS+Ka7f3FLO2dNl - xd99za1tdfmhTH4dM3mcuL8xqve5z0VdMTX4UaPFEk/TcWGZUZ0lC8T1F04Q9++l8GNxfZZgd3FjTu2r - 4vpvDHdPAEBJbCMAAAAAAKiaV91EiF/fu82AUlwvp8lHZD/ZWqa+hi7YVFx9Uvm3RBjE9V2HteVkcWNJ - 5Tvi+q7TXcSNJaW/ylmFiSOy1hBXkxLsJK6WKcRT8ca5ub+tuHGldC9xfedW9/0VYbi2hGvjWDn3GlM5 - UVy/TdSFeRXHa7qxpRQBddd3bnE0shtfKvHfPNdvTqnn7BGy4m/Hf8vrDtZHgGny65nOO8X9+6Pay30u - 6goX/qjJh8WFZUZ1s8STelxfK7xO3L+bwn9kDXH9jtvnxY05tZ3F9d8Y7p4AgJLYRgAAAAAAUDWvuokQ - 4ZaLxW0IlOoK+YYcJPeTLjz1KY5gc7VI5Xvi+q1DPDmqrUfoPEPcWLognhjialKCl4obcwrxXuT6zGUt - ceNKadhN6brVfX99W1y/TTQh7jWmEv/9df02Ud3z6lvi+s1lsdT5RLtwuSwU1/84uDGmcoG4PnNKPWcj - GDn57z9R3D+XSqwBI5A2uU/nB+L+/VFt6D4XdYULf9SgjiPrjhDX12S7ift3U3mwuH7HaW25Xtx4U/ql - uP4bxd0TAFAS2wgAAAAAAKrmDW4kxJOS3IZAU1wt8XSJF8udxb3GpvuQuNeeypvF9ZvKfHmQHCc3ixtD - SrERmfMJVSscJW48bRfXdB1xNSlBnUd0xjE/rs+c4sl3bmypHCCu39zqvr/eIK7fJrpI3GtM5YHi+m2i - ts+rvcSNK6V3iet7HOoOf8aRca7fnFLP2Xjq4eS/H2u2H4v7Z1M5UCb3OVWs4eJpo+7fHcV57jNRl7jw - R2J1HFl3uawrrr/J1hP376fyWnH9jtO+4saa2gHi+m8Ud08AQElsIwAAAAAAqJo3uJkQGxrfF7cx0ES/ - kbfJPcW93iaKo1Lca03lEeL6HUXMp40lNsLjKQHHyJ/F9VuXeNqBG1vdzhM3nrY7R1w9SvE3ceNOYWdx - feZ0pbixpbJUXL+51X1/PVRcv02zmbjXl8oNsrq4vpuo7fPq4+LGldLdxfU9DhuIG2MqcVyp6zenlHP2 - RnH3832kzmD6P2SmgHQcmer+vVEd5T4TdYkLfySW+si6sJ+4vpzzxf2NFE4S1+c4fVrcWFO6STYU13+j - uHsCAEpiGwEAAAAAQNU8v6GwicSv1N3mQJNF6CmeRnIbca+7CdaWm8S9vlQiqBJhqlH9QeIJInGsYN1j - XZlfyirialmnDcWNpwuOFFeTEmwtbswp/EfWENdvTrFh7MaXSglPa6n7/orN/jXF9d00dR91+iNx/TZR - F+ZV/PfZjS2VOIbM9TsudxM3zlTGHXRKPWfPENdPiKC6+3dSeY+4fsPzxf07o3qG+0zUJS78kVAdR9Z9 - X+aL6885VtzfSeFqWVVcv+NyqbixpvQjcX03jrsnAKAkthEAAAAAAFTN8xsKIY6u+Je4DYKmi42peCpJ - hIbcay/Z7uJeEwYtl3gKgatj3R4vbkxd8ExxNSnBs8SNOYU42sf1mVvd79uHies3p7rvr1PF9dtEHxb3 - GlN5h7h+m6jt82ojceNKqaRj60Lda6Y/ies3l9RzNo5Gdv2E+BHEteL+vRQiLHwncX1/Sty/M6q7uM9E - XeLCH4nUcWTdMtlWXH/Tebm4v5XKPcX1Ow5bihtjaq8S1/+w7iFnNcAZsr27bwAgF9sIAAAAAACq5vkN - hRUeJFeL2yRog8slgg9xvJp7/SWKY/jca8Gg14urYQ7vEzemLthWXE1K8AlxY07hEHF95rSauLGlNNNT - N3Kp+/4q4TWmcra415jK/4jrt4naPq8eLW5cKUWwyPU9LvEUTzfOVOJJoa7fXFLP2SeL62eFN4j791L5 - vLh+Ux7PF0+stZ+JumTCB1FSqOPIureJ62smDxb3t1I5UFy/4/AkcWNMbTtx/Q8raub+bone5+4bAMjF - NgIAAAAAgKr4sn8l7iFxDJnbLGiLb0k86cC9/tL8QNxrQNUXZRxH1q1wurhxtV0cm1ZycPB8ceNOYQ9x - feYUT8NwY0spnobn+s6p7vtrT3H9Nk08tfBmca8xhfjbTXwy4nTaPq9eI25cqcRTFBeL63tcDhc31lRO - FtdvLqnn7J3F9bPCIrlY3L+byv1lcp/rivvnRnW82M9EXTLhgyhzVceRdX+QReL6m8lacpO4v5nC58X1 - Ow5vFzfGlC4S1/ds1HmcYGp7u/sGAHKxjQAAAAAAoCq+7B/CevIlcRsGbfFXGdcxZ8NaKNeLGz/6YuNx - TXE1zCE2emPD142t7b4hriYlqPPYpgh8xGas6zenh4obX0oHius7lxz31wbi+m6aeNqSe32pxNOiXL9N - 1IV5dbS4caVylrh+x+k0cWNNJY5Uc/3mkHrO/k1cP1M9Sdy/n8pPZXJgeldx/9yoXiz2M1GXTPggylzU - cWRd+B9x/Q3jt+L+ZgqXietzHL4kbowpxf9c37Nxsbi/XaIN3H0DALnYRgAAAAAAUBVf9s/C3lL3L7nH - 6Vp5mLjXXoL4lbsbN/pOknGGnMIjxI2tC14nriYliPcvN+YUfi2uz9xeJm58KT1RXN+51H1/nSuu3yZ6 - u7jXmMqHxfXbRF2YVxECdmNL5TPi+h2XWAvUHV57s7i+c0g9Z08Q189UEUKKMJL7G6nsIyv6i3WF+2dG - dW+xn4m6ZMIHUebiY+ICI3PxBXF9DesT4v5uKluJ6ze3X4obX0r7i+t7WJuJ+7sl+q27ZwAgJ9sIAAAA - AACq4sv+WYpjK14i8QQkt4HQdNfIvcS99nF7lbgxo+d9sqq42uUUR3u58XVByUHBw8SNOYWPiusztwga - uPGldF9xfedS9/31MXH9NtEPxb3GVPYV128TdWFe/U7c2FKJo/Fcv+OSI3Q8zuBn6jn7anH9OEvE/Y1U - LpR4imn09eVb21KIHzTcsk50n4m6ZMKHUUa1m7jAyFxcI5uK629YLxT3t1N5hrh+c/u7uPGldDdxfQ/r - ieL+bokOd/cMAORkGwEAAAAAQFV82T+i2ICITc7vyE3iNhSa6k9yO3Gve5y+Km68XRehu8eIq9k4fFfc - ONsu3gfiKB1XkxL8Qty4U3iyuD5ziqds5Aig3lZc/7nUfX89TVy/TRP/jb5B3GtMZTNxfTdRF+ZVHE3m - xpZKHGnm+h2XCD+7caa0rbi+c0g9Z3cW1890JsT9nVReLtHPJZPa5urbcsv43WeiLpnwYZRR3FbqOJLs - JeL6m42dxP3tVI4W129uN4sbXyo3ymri+h7W+8X97RLt6+4ZAMjJNgIAAAAAgKoVX/jP0YbyfDlFbhS3 - udA0nxL3WsclQgxXihtrV/1H3iNri6vZOCyQeGKAG2/bnSmuJiWIAFadRxhtLq7fnHYUN7aU/iiu71xy - 3F93Ftd30zxQ3OtL5SJx/TZRV+bVP8WNLZVdxPU7LvFUIDfOVK6SVcT1XbfUczbW7vHEVtfXdCLoeJ24 - v5dCzNe7T2mbqzfKLeN3n4m6ZMKHUUZxpLiwyFycKQvE9Tcbq0uEdFwfKZwvrt+c1hE3tpTOFdf3bPxc - 3N8u0UbungGAnGwjAAAAAACoWvGFf0LxtI/HyRFygbiNhqbYSdxrHIftxY2xi66X90sJ4ZKpYs64MXfB - R8TVpAS7ihtzCvEEONdnbm8XN76U4gkeru9c6r6/4olYrt8mOkjca0xl3HMhpbqP4SplXrmxpXRXcf2O - QxxB7MaY0oni+s4h9Xvhz8X1szJ1H/n4G9M2F/89Xtd9JuqSCR9Gma06jqyLpxPdV1x/ozhdXD+pbCSu - 31w2EDeulE4Q1/ew1pTl4v52ac5z9wsA5GYbAQAAAABA1Yov/Gu0sewjH5A4OqpJT3w6QdxrGof9xY2x - S/4ssam2vrgaleBl4sae0lmF+l9xNSnBW8TVMoXPiOszp3iqyMXixpfS88T1n0vd99dx4vptoghhuNeY - Svw3yfXbRF2ZV/EURDe+VLYQ1+84xJrTjTGlA8X1nUPqORv1cv2szJryF3F/szTxVMcY7y1jd5+JumTC - B1Jmo64j6z4qrr9RHS6un1T2FtdvLluIG1dK8dQu1/ewHiLu75bo4+5+AYDcbCMAAAAAAKha8YV/RqvL - feQ5cricLnVvvo0qNkU2Evc6counZ7gxtl0czRKbxI+RVcXVpiRfEvc6UvmduH4xs5PF1TOFEgIfjxY3 - ttTuIK7/XOq+vw4Q12/TRPCt7qNO4ymDru8m6sq8+oe48aWyrrh+c4t15hXixpjSOI8jTD1nnySun2E8 - RdzfLM2p8t9xu89EXTLhAymzUceRdSGOgzsrob+K6yeV94urTy7rixtXSu8R1/ewXiPu75boqe5+AYDc - bCMAAAAAAKia/KX/GK0mcczIivDTL+UmcRsVuT1b3Jhzu0jc+NrmBvmpvEsivBEblq4epbpc3OtK5WPi - +sX0Fsh14uqZwt3E9ZvTj8SNLaV4Ip/rO6e67697iuu3aWJOuteXSoSo5ovru4m6Mq/qXkesI67f3J4p - bnwpnSGu71xSz9m5PI0r3gtOE/d3S/Ie+e+43WeiLpnwgZRh1XFkXVP9UlyNclkkblwpLRXX97BOFPd3 - S7SZu18AIDfbCAAAAAAAqiZ/6V+YxbKrvEm+J+N66tOnxI0vp83EjS2VOE7QHUWWUvyS/hT5isQTmo6S - CDO9Sp4uD5c7SjyJxNWgCe4qrr4pPU1c35jefcXVMoUIfIx7zj5M3NhSe6m4/nOp+/66Wprw1Lhh1H3U - 6dfE9dtEXZpXESJ3Y0xlc3H95vYrceNL6SXi+s4h9ZyNo+dcP7PxAHF/uyR7yn/H7D4TdcmED6QMo64j - 65rqJomauFrlEmNwY0tlLk90mi//EPd3S3Ohu1cAYBxsIwAAAAAAqJr8pX/h1pI4viyeaHONuE2MOsSG - mRtPTvuKG1sq8TQY1y9m51ni6pvSncT1jem9XFwtUzhRXJ+5xJM04klLbmwpRdB0fXFjyKXu++skcf02 - 0WfEvcZUXi2u3ybq0rz6vLgxphJP5nT95rS7uLGlFE+eXE9c/zmknrPHiutntj4n7u+XYgP573jdZ6Iu - mfChlGHUdWRdk+0urla51H0832fF9TuMu4j7myU6xt0rADAOthEAAAAAAFRN/tK/QdaUl8m14jYzUrpK - 3Bhy+rC4saXyDnH9YnY+Ia6+qVwirl/M7Mvi6pnCQeL6zCVHuC6U8GS7uu+v14nrt4n+JO41phJPb3H9 - NlGX5tWbxY0xlceJ6zeXCH7+XNzYUjpaXP+5pJ6zLxTXz2zFE72uF9fHuJ0rlfG6z0RdMuFDKSvDkXXe - weLqlcsp4saVyq/E9TuMeKLTMXJWIv8UN8YUnu7uFQAYB9sIAAAAAACqpn7xP8mGcjd5pMRxWbGh/36J - Y8fiCUC/l43F/bu57CTxy3q3qZGS6zuns8WNK5X/EdcvZud8cfVNJdVTF7rm7+LqmcI4Ax8byT/FjSu1 - 7cWNIae676+HiOu3ae4g7vWlEv/NXSiu7ybq0rx6orgxpvIWcf3mEkErN66UbpZtxfWfS+o5u4O4fkYR - c8D1MW5HSmWs7jNRl0z4UMpM1hGOrPN+IK5muRwhblyp3Czries7p8VyhbgxprCFu1cAYBxsIwAAAAAA - XTZvydLVZFNZInEM3PNkqRwuX5XT5C+yTNxGwVTxVKXKxsEYfEDc2FJy/eaytsTGmhtXCvG3ow/XN4YX - oRNX35ReJK5vTG8bcbVMYZyBj3hyydfFjSu1L4obQ05131/x37xF4vpumieJe42p/FBcv03UtXm1mbhx - pvIDcf3msLrUHVoLcTyb6z+X1HM2wrKriOtrFHHM9F/F9TVO/yeVsbrPSV0y4YMkM4mn8rhwCCYmbpCF - 4uqWwwHixpXS88T1ndNbxY0thT+7+wQAxsU2AgAAAADQNfN6GxixUX25uC//5+JiGfeTHfYVN7ZUrhHX - by7xtCU3rlTiaVGuX8zOE8TVN6WUT13oiueIq2UK4wx8vE3cmFK7Ue4ibgw51X1//Uxcv030EXGvMZW3 - i+u3ibo4r84TN9YUbpII4rh+6xZH8LoxpRTvh1uJ6z+X1HP2G+L6mYuni+trnLaUyjjdZ6YumfBBkuns - IS4cgr4HiqtdDvcUN6aUzpE4hs71n8M2EoEyN7YUJtx9AgDjYhsBAAAAAOiaeb1NGfelfypxpF1l8yCz - uoNAfxTXby6xqezGlcqHxfWL2YljHV19U7laUj51oSs+Ka6eKYwj8BFPcnqzuPHU4VBx48it7vvrXeL6 - baJfiXuNqbTpqNMuzqsYkxtrKuM4vi6OWK7zyZcrvFtc/zmlnrOvEdfPXMRa5Rfi+huHS2VgnO4zU5dM - +DCJE0fWXSIuHIK+g8TVL4dV5HJx40rpmeL6r9vqcrq4MaXybHefAMC42EYAAAAAALpoXr3HefxH7isD - mwiZvF7cuFL5prh+c4mnxrhxpRJPxHL9YnbOEFffVMY9D5vqD+LqmULuwMc68gVxY6nDn2SxuLHkVvf9 - 9Vhx/TZNzJE6Ax/xxJ42HXXaxXl1D3FjTeVfsom4vusQryeCwG4sKcUTTG8jbgw5pZ6zO4vrZ64eJK6/ - cThOBsboPi91yYQPlDgcWTecE8XVL5cjxY0rpStlc3H91yWeIvUpceNJaSt3nwDAuNhGAAAAAAC6aN6S - pe8T9+V/Kn+XcRyrFZvwfxE3plTi6Smu7xziWMAbxI0rlU3F9Y3hxTyMAICrbyp1PHWh7TYWV8sUIkyS - K/ART8fYT+KpFG4sdYmnpLjx5Jbj/rqduL6b5lHiXl8qZ4nrt4m6PK9OEzfeVL4tq4rrO6V7Saw/3RhS - 203cGHJKPWdjfbmGuL5SiICR6ze3A2RgfO7zUpdM+FDJVBxZN7yrJJ6s5OqYw87ixpXaL2VtcWNILer5 - UXHjSOkyd48AwDjZRgAAAAAAumheL4TkvvxPKX7F/0QZ2EyoyerydXFjSenB4vrP4QHixpTKuI/la4vY - AHX1Tamupy602T7iapnC2eL6TGkteab8VtwY6hThWDemcaj7/or6un6b6B3iXmMqHxLXbxN1eV49QdyY - U/qMrCau/xSeLP8W13dqpcz71HP2x+L6SWULqTusP4x7ysD43OelLpnwwZLJOLJu9u4hrpY5xJOPfi1u - XKn9VNYXN45UIkz1VXH9p3asu0cAYJxsIwAAAAAAXTVvydIfiNsASO2rsp0MbCoktL3UfeRMuEjmixtD - Dq8WN65UPi2uX8zOW8TVN5U4HrLOpy601QfE1TOFuja+by9Pl8/LNeL6rtupEkFSN75xqPv+Olxcv030 - I3GvMZU2HXXa5XkVT4mLp3O5cacUR+/eWdwYRrW55DzCM9aapbwfpp6zh4jrJ6W6w5crE/8dtU8Xc5+V - umTCh0sm48i62XuhuFrm8n/ixlWHi+WR4sYxV3vJn8X1W4f93T0CAONkGwEAAAAA6Kp5S5Y+WtwmQB3i - WKd42lI8NSCeSjKwwTCiOKbkGFkurt/UloobRy4nihtXKs8T1y9m52Rx9U2l7qcutNUvxdUzhbkEPuJI - ytisv5/sJW+Q4+UCcX3l9FeJI//cuMel7vvrqeL6bZoIY3DU6fC6Pq8eJm7cqV0v8YS4uQaedpSPyTJx - /dThcrmjuPGMQ+o5u4e4flK6jVwmrv8cThI3LvtZqUsmfMBkhbqOrPuXnDVGV4obVyrHiqtnLqvKb8WN - rS6nyKNlNXFjGtbqso+cKq6fOm3j7hEAGCfbCAAAAABAl81bsvQ74jYC6hRPozlF4lfdT5MHySYysOkw - Rfwz8c/G000+KueL+/t1uVrWFze2HOKJC1eKG1sq24rrG8NbINeJq28qMQ/i6RtNc4C4muUQm6s3iatn - CueJe81OPBkuXCX/FPf3ShDveXHMqavnuOS4v+J4Jdd30zxQ3OtLpU1HnTKveibEjb0up8nBEsH7CD5N - d7RdhEHvIREojSfzxfun+3t1itBgSUfGpp6z8YOEdcT1lVocwerGkMPrxY3Jfk7qkgkfNgl1HlkXTxxy - febyZnHjSiXq5vrN6eHixla3v0sEvV4gD5YNJY7Tc2MM68ku8iI5Tq4S93frFuOe7+4RABgn2wgAAAAA - QJfNW7L0bnKjuM2AcYhN/0slNlAjyHTxrW11P5ViGC+VgY2RjOJauXGlcoWM81i+toin8rj6YsnSv4ir - WQ67ixsTvNhAL2lTf4W6769xztHUDhL3GlNp01GnzKuedSXG6l5DLvHUpAgyxRPtYiwRuHT/XE4Rkn28 - uJqNS+o5+ytx/dQhgvt1PmFxJruIG5P9nNQlEz58Euo6si6e/DNT8CWHup5UNdmdxPWd01HixpbbjfJX - uUh+JxfI5XKDuH9+HI539wcAjJttBAAAAACg6+YtWfo6cZsB6PuZrCoDGyMZ7S9ubKl8RVy/mJ1XiKsv - liw9VlzNcoinhrgxYVAEC0oMOYW6769xztHU4rhY9xpTadNRp8yrvgjQ5DwOrnQRcnqKuFqNU+o5+xFx - /dTlweLGUaeY12uKG4/9jNQlEz4gU1cQaJlsJ67PnDYSN76Uniau75wWy7nixoeqF7n7AwDGzTYCAAAA - ANB183q/rK57Q7TJ/i6by8CmSGafETe+VGLTzPWL2TlBXH2xZOmLxNUshzgu040JVfFEvfuIq2EJ6r6/ - Xiiu36aJ/67H0YjuNaaynbi+m4h5VbWfuNfRNRFyepa4Go1b6jkbxwK6fur0JXFjqUv8aMGN4xbuM1KX - TAyGY24nl4oLg8zV28T1OQ4XixtjKkeK6ze3beRqcWNE393d/QEA42YbAQAAAADALWGn28qZ4jYGuiyO - b3qADGyIjMGfxI0xlXiKg+sXw4uj/yIY5+qLJUvvLq5udVsocS+7MaEv/htQQqhzOjnurx3E9d00ca+5 - 15fKP6QtR50yr7w4rte9lq6Ip//sLa4241bHnN1MXF91urP8R9x46vAuceO4hft81CUTg8GYz4gLgszV - hbJIXJ/j8CVx40wlnqTk+h2HneU6cePExMSVsoq7PwBg3GwjAAAAAADombdk6QbyK3GbA10UwYiHycBm - yBjcQdwYU4nXupq4vjG8bcTVF0uWXinxlBlXt7pFiM+NCX2Hyxri6leKuu+vf8q45mhqzxf3GlP5qrh+ - m6jueRVHQTZ1Xr1E3Gtqu8sljlZzNSlB6jl7kbh+cninuDHV4bHixnAL99moSyaqgZg9xQVBUniUTO1v - nA4SN86UNhDX9zg8TAg7eSe4ewMASmAbAQAAAABA37wlS9eWk8VtEHRJ/FL+/jKwETImTxI3zlS+L65f - zM5zxNUXS5Z+RVzNcniluDFhydLLZC9xdStN3ffXN8T120SfFfcaU3mVuH6biHk1szjS7Hpxr62NzpAt - xNWiFKnn7IS4fnKIJ8r+Tdy4UruduDHcwn0u6pKJfhAmjqy7TFwQZK6Ol8l9lWBXcWNN6XHi+h6Xe0td - xxI22UvcvQEAJbCNAAAAAACgal7vyT7vlZvFbRS03elS2ibXR8SNNZW3iusXs/NJcfXFkqWvEFezHCJk - 5cbUZfH+frTMuPFbmLrvr9eI67eJLhb3GlMpKQg8V8yrldtJ4qk/7vW1yfskjjp1NShJ6jn7PHH95JIj - JH6OuL7/y30m6pKJfgimriPr/iWbyeS+SrC2uPGmdKi4vsdpE/mxuPE2Vbyet05pm417uXsDAEpgGwEA - AAAAQNWkL/0fKn8St2HQRjfJwVLiEW51Hym4m7h+MTt/EFdfLFm6RFzN6jZfrhA3pq76qYzresxF3ffX - zuL6bZrNxb2+VOLpPk0IgwyLeTWcdeXz4l5j050vTbpOqefsduL6yWVVqXude4S4vv/LfSbqkole+KXO - I+teKpODNiU5X9yYUzldXL/jtkBeJ/8RN+4meZ8slLtNapuNq2VVd28AQAlsIwAAAAAAqJryxf9tJMI/ - 14nbOGiLU6XUjf91pM6na0XAa7G4vjG8jcXVF0uWXisLxNWtbtuKG1MXnSmPEVen0tV9f/1H1hDXd9M8 - WdxrTOUH4vptIubV7O0tl4h7vU3zb3mtNOkapZ6z/5AIBLu+cnqYuPGlsp+4fv/LfSbqkol6j6w7SyJU - MzVoU4q6nmK1wnJZLK7vEmwjPxM39tJdLLvJitcyX/4m7p+dyYnuvgCAUthGAAAAAABQ5b78l03loxJP - cnAbCE0Vx/vE5kcJmzzTeZS4sadyhrh+MTtPFFdfLFn6bXE1yyGO5HFj6pKTZXcp+X1uZeq+v34irt8m - iv9Wu9eYytvE9dtEzKvRrAjBR4jVve7SRQDtMInQkHt9JUs9Z+NoV9fPOJwgbowp3Elcn//lPhN1yUR9 - YZ+b5X6yIohSonjalBt7SruK67sUERB6slwobvylWSbvltvI1NdyrLh/ZyavcPcFAJTCNgIAAAAAgCr3 - 5f8kG8ib5FJxGwlNEeGeeOrFuJ4yMxvvEPcaUnm/uH4xOx8UV18sWfp6cTXL4dPixtR28R59qMQTrVxd - mqbu++sQcf020a/FvcZUIjTn+m0i5tXc3F4i8NSU40GvlFhTbSLu9TRB6jn7SnH9jMNWskzcOOfiL+L6 - q3Cfibpiot4j646QqUGU0jxQ3NhTerO4vksTx78dIKUGniLgdLhsLm78YX9x/+5M7uvuDQAohW0EAAAA - AABV7st/Y1WJzc7PSlN+0f83iQ2i+4l7TaX6kbjXk0ocQ+P6xezEsWCuvliy9CHiapbDH8WNqY3Ol3hK - SRwBFO/Rrh5NVff99Whx/TbNulL3Uadri+u7iZhXaSyS58tp4uowTjFnvy9PlRinG3+TpJ6zpa2J3y1u - nHNxrLi+Ktxnoi6YqPfIustlXZkaRCnNWnKTuNeQysni+i7VKhIBuBh3PJXLvaacrpBDZaaA0wp3Efc3 - pnOtLHD3BwCUwjYCAAAAAIAq9+X/Sqwuu0k8Geh34jYZxiE2e38h75SmbvzHE6fqPi5wI3F9Y3hrSWym - uvp23Q2yhri61S3mthtT00VNz5UTJZ5Oso808QimYdV9f8V/K9YT13fTRADZvcZUzhLXbxMxr+qxpRwk - sf4a138X/y3x/ri/bChunE2Ues5eJwvF9TUu68jfxY13VC8U11eF+0zUBRMTE++YFPhIbT+ZGkIp1a/E - vYZU/i2riuu7dJvIy+VUyRl6ipp9RZ4g8aQpN7bp/EXc33ROcvcGAJTENgIAAAAAgCr35f8s3U72kDjO - 5ASJp4zUvdm1XC6QL8jr5FHSlg3Gt0hsLtfhm+L6xOzFUwhcjbtuQly9cjlCYhy/l4tm6U/yzxFEEMm9 - T4X4v03+Z+MopejrtxLBgFPka/I5iSfQxbF/sVn/BHmANPnIpbmo8/6K/065PpsonljzDXGvM4VxHkNZ - B+ZVveLpX/FUq/fIDyXe79z74lz9Qb4kr5YHSgTw3XjaIOWcPUZcH+P2DHHjHdX24vqpcJ+JumBiYmJH - OasGn5P5MjWAUqqDxb2OVN4ort+mWU/iSU8flDPkOnHhoVH8S34k75VHyOrixjCM+J/rwznI3RsAUBLb - CAAAAAAAqtyX/wnEE122lUfKs+WN8gH5tMSv7mNz/6cydXPidIn/W4hNw6MkNnleI8+UeFLTnWU1cf0C - AACgDPH0uUfIs+S18mGJkPp3JdZ6se6bvA6Mo9qi/SvyKYmndL5MHi87ymJx/QCz4j4TdcmED4sAKxNP - qYqj4vaSA+UQ+ZR8S06R02RF2OsXt7adJBGEe6ccII+Tu0ocl+f6GMXeMjloNpOd3D0BACWxjQAAAAAA - AAAAAAAAAABQEtsIAAAAAAAAAAAAAAAAACWxjQAAAAAAAAAAAAAAAABQEtsIAAAAAAAAAAAAAAAAACWx - jQAAAAAAAAAAAAAAAABQEtsIAAAAAAAAAAAAAAAAACWxjQAAAAAAAAAAAAAAAABQEtsIAAAAAAAAAAAA - AAAAACWxjQAAAAAAAAAAAAAAAABQEtsIAAAAAAAAAAAAAAAAACWxjQD+fztySAAADANBbP5NdwZewIGA - kAAAAAAAAAAAUDITAAAAAAAAAACgZCYAAAAAAAAAAEDJTAAAAAAAAAAAgJKZAAAAAAAAAAAAJTMBAAAA - AAAAAABKZgIAAAAAAAAAAJTMBAAAAAAAAAAAKJkJAAAAAAAAAABQMhMAAAAAAAAAAKBkJgAAAAAAAAAA - QMe9D/nIDJsB8H0BAAAAAElFTkSuQmCC + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAJN9SURBVHhe7d0H1CxJXTf+2mVZWFhkiZJEJCcJCgUS + BAPhFUQEBFRQDCgGMAsIaKGAmBARlSxKI6CooKCISjKBZBAEQcKSs8SFZdn//5R3rs+d6t9z7xO6e3pm + Pp7zOe95i92nan5dPVsz9Z2u9P/9f/9fAgAAAAAAAAAAmLNeAwAAAAAAAAAAwNz0GgAAAAAAAAAAAOam + 1wAAAAAAAAAAADA3vQYAAAAAAAAAAIC56TUAAAAAAAAAAADMTa8BAAAAAAAAAABgbnoNAAAAAAAAAAAA + c9NrAAAAAAAAAAAAmJteAwAAAAAAAAAAwNz0GgAAAAAAAAAAAOam1wAAAAAAAAAAADA3vQYAAAAAAAAA + AIC56TUAAAAAAAAAAADMTa8BAAAAAAAAAABgbnoNAAAAAAAAAAAAc9NrAAAAAAAAAAAAmJteAwAAAAAA + AAAAwNz0GgAAAAAAAAAAAOam1wAAAAAAAAAAADA3vQYAAAAAAAAAAIC56TUAAAAAAAAAAADMTa8BAAAA + AAAAAABgbnoNAAAAAAAAAAAAc9NrAAAAAAAAAAAAmJteAwAAAAAAAAAAwNz0GgAAAAAAAAAAAOam1wAA + AAAAAAAAADA3vQYAAAAAAAAAAIC56TUAAAAAAAAAAADMTa8BAAAAAAAAAABgbnoNAAAAAAAAAAAAc9Nr + AAAAAAAAAAAAmJteAwAAAAAAAAAAwNz0GgAAAAAAAAAAAOam1wAAAAAAAAAAADA3vQYAAAAAAAAAAIC5 + 6TUAAAAAAAAAAADMTa8BAAAAAAAAAABgbnoNAAAAAAAAAAAAc9NrAAAAAAAAAAAAmJteAwAAAAAAAAAA + wNz0GqaWcgEAAAAAAFgHF0i5XD7lcsOUy21TLvdIufxYyuWBKZdfTbn8XsrlaSmX56ZcXpJy+eeUy+tS + Lm9Kubwr5fK+lMv/LHw+5fL/MZkvHlP76t2La1K9eXGdXrW4bn+XcnlOyuUZKZenplwem3L5rZRLSbn8 + VMrlB1Mud0+53C7lcouUy3VTLl+RcrlgMGe2UrsfCAAwlF7D1NqFDwAAAAAAwMTOk3K5Qsrl5imX70y5 + /HzK5XdSLn+ecnnFIhTzuSA8A60vpFzen3L5j5TLy1Iuf5py+d1FGO77FgG566RcLhLMw43R7gcCAAyl + 1zC1duEDAAAAAAAwksukXG6dcrnvIsj0vJTLW1IuZweBFRhbfbJUfZLUX6ZcHrV4OtgtUy6XCObuWmn3 + AwEAhtJrGEvK5V+CBRx9Z6VcLt0uCGHGTk65vD6Yy+xwXw/nJ4P6AuurPgK+vc+Zn/qla3vtYBO1x1e8 + YbHhUI8a+dvFr7CfknJ5dMrloSmXn025fG/K5fYpl69LuVw15XKx4B4C2KscvDcxnPq+Xr/DaOsObK5T + F8fL3Wdx7Fg9juzjwfsDzNVHFvO2BqDqMXlXDOb5bLX7hAAAQ+k1jCXl8vXBIo1Y/dDVWxTCTNVH7bZz + mGWPDOrGwQg6wWYRdFoPgk6wP/VJAGemXP4t5fLsxee7B6Rc7rrYaBOGAnZTj7Zp31MY1vcEdQc2x5VT + Lt+9OCLs5Yvjw9r3AVh3NfxUv0+p35NeO+VyUnAvzEK7TwgAMJRew5gWv4JtF2X01S/Gv7JdFMIMXSDl + 8r5gDrOjbg6fEdSOgxF0gs0i6LQeBJ1geJ9Kubw25fLMlMsvplzunHK5VsrlvME9CGyHbw3eKxhefWJf + fcJLW39gPdXv0O+Vcnnq4v5u73nYBh9KuTwt5XKXlMvpwX2yMu0eIQDAUHoNY0q5XD9YhBGrH856C0OY + mYcEc5dl9df7bd04OEEn2CyCTutB0Amm88WUy2tSLk9cHLFSnwB1vuC+BDbLKSmXNwXvCYzjJ4JrAKyH + +n55y5TLb6Vc3hrc37DtPp9y+euUyz0WP1Ju76FJtXuEAABD6TWMLeXyrGDxRd85KZdrtAtDmJFLpVw+ + E8xddnwg5XJaUDsOTtAJNoug03oQdILVqpsV9Tirh6dcbpty+bLgPgXW2w8E9z7jqUf+XCi4DsA81dD3 + t6dcnp5y+XhwTwOxT6dcnpJyuXlwX02i3R8EABhKr2FsKZerLkI87aKLvj9tF4YwI48L5izLfjioG4cj + 6ASbRdBpPQg6wbzUz9M1+PSglMvXpFxOCu5bYH3UH8c4En56Dw2uBTAfJy+e3FSfcvmJ4B4G9qcem/09 + Ux/f2u4PAgAMpdcwhcUHlHahRawe99dbIMKKXVNg8YTevnicdls7DkfQCTaLoNN6EHSCefvg4kcI37TY + FGzvYWDeamixva8ZX31C9SWD6wGsVr0v6/vimcF9Cxze+xffr05yCkG7NwgAMJRewxRSLl+RcjkrWGTR + 9zft4hBm4HnBXGXZ3YK6cXiCTrBZBJ3Wg6ATrI+6cfEYP5iBtXHxlMsng3uZadT3y/aaAKtxk8XRdGcH + 9yowvBom/KGxf6jb7g0CAAyl1zCVlMujgsUVsZu2C0RYofpL8XaOsuw1jhAZjaATbBZBp/Ug6ATr6dWL + zYsLBfc1MA81aNPeu0ynBiquGFwXYDr1e8aXBPcnMI03jrn/1O4LAgAMpdcwlcWv1j4VLKzoqx/2eotE + WIF6FEYN8bRzlGW3CWrHMASdYLMIOq0HQSdYb/Ue/tWUy6WC+xtYnSt5csksdMG1AcZXvzt7eXBPAqvx + pJTLGcG9eijtviAAwFB6DVNKuZRgQUVMcII5uGcwN1n24qBuDEfQCTaLoNN6EHSCzfD5lMvjUi6XCe5z + YHrPDO5TpnduyuW6wfUBxnGtlMvfBfcisHrvHvrpTu2eIADAUHoNU0q5nJ5y+WiwoKLvlY7CYsVOS7m8 + J5ibLLtxUDuGI+gEm0XQaT0IOsFm+VzK5WEplwsH9zswjRsE9yar8/zgGgHDuljK5Q9SLucE9yAwH/Ue + fchQe1HtniAAwFB6DVNLufxUsJgidsd2oQgT+oVgTrLsL4O6MSxBJ9gsgk7rQdAJNtOHUy7fGdzzwPhe + FNyTrNbXB9cJGEb9TvuDwX0HzNezUi4XCO7nfWn3AwEAhtJrmNriKTFnBgsp+t6ccjm5XSzCBC6ZcvlU + MCfZUX/tcs2gdgxL0Ak2i6DTehB0gs32tymXywf3PjCO2wX3Iav3b8G1Ag6nPsXp6cH9BqyHf0+5XCq4 + t/es3Q8EABhKr2FqiwXPDwSLKGL3bBeLMIHHBnORZX8Y1I3hCTrBZhF0Wg+CTrD5PpFy+fbg/geGVX+8 + 9sbgHmQePEkdhnOzlMt7g/sMWC9vT7lcLrjH96TdDwQAGEqvYWqLBc8pKZe3Boso+urC8rztghFGdLXF + 04rauciOz/sV/GQEnWCzCDqtB0En2B6P9nkTRvX9wX3HfNQnqZ8nuG7A/tTvbnyXCJvjwGGndj8QAGAo + vYapHbPouWuwgCJ2n3bBCCN6bjAHWfaooG6MQ9AJNoug03oQdILt8oKUy+nBewFwOKd5uslaqGG09toB + e1PD0k8O7itg/dWw0yWC+/642v1AAICh9Bqmdsyi56SUy2uDBRR99Yux+gVZb+EIA7tFMP9Y9qmUy8WD + 2jEOQSfYLIJO60HQCbbPqw6ykQEc1/2De435OdN3bnAgF0i5/F1wTwGb4xWLe729/3fV7gcCAAyl1zC1 + ZuFz22DxROyn2kUjDKyGD+sGRzv3WPaLQe0Yj6ATbBZBp/Ug6ATb6Y3CTjCYi/nv6Vr5meAaAru7cMrl + X4J7Cdg89fSHum/Qvg+E2v1AAICh9Bqm1i58Ui4vCRZP9H3UcQKM7LuCeceyD7sPJyfoBJtF0Gk92JiF + 7VV/+FA3L9v3BWB/6nHn7f3FfNXv3M4IriPQd6HFU17a+wjYXA8K3gtC7X4gAMBQeg1Taxc+KZebBAsn + Yp4kw1jOn3J5VzDnWHa/oHaMS9AJNoug03oQdILt9tKUy3mD9wZgb74q5XJ2cG8xbw8PriWw7NSUyz8G + 9w+w2b6UcrlF8J7Q0+4HAgAMpdcwtXbhs/DXweKJvrrpdNGgfnBYPx/MN5a9c/GFTls7xiXoBJtF0Gk9 + CDoBfxC8NwB78/TgnmL+PptyuXRwPYEj6tFVzwruHWA7fCDlcpHgvWFJux8IADCUXsPU2oXPwnVTLucG + iyf6HhnUDw7j4jY09+R7gtoxPkEn2CyCTuvBugCofih4fwCO72uCe4n18fvBNQWOeHBwzwDb5anBe8OS + dj8QAGAovYaptQufY/jF2958zi/MGNhjgnnGsjemXE4Oasf4BJ1gswg6rQdBJ6A6K+VyjeA9AtjdPwT3 + EuvjiymXKwfXFbbd7f1IGVi4dfAe8X/a/UAAgKH0GqbWLnyOUb9IqF8otAsn+n43qB8cxFVSLmcHc4xl + 3xrUjmkIOsFmEXRaD4JOwFGvSbmcN3ifAPpuE9xDrJ96NFd7bWGb1e/sfT4AjnpHyuXU4L3if7X7gQAA + Q+k1TK1d+DQeFyyc6KvBlMsH9YP9+vNgfrHsX4K6MR1BJ9gsgk7rwUYGcKyHBu8TwLL6BODXB/cP66ke + QdheY9hG50m5/FtwjwDb7WeC94v/1e4HAgAMpdcwtXbh06hHstXH47cLJ/pOeB4ynMDNgnlF382D2jEd + QSfYLIJO60HQCTjW51MuVwreK4Ad3xPcO6yvFwbXGLbRg4P7A+ATKZeLBu8Zvf1AAICh9Bqm1i58Ar8W + LJzoOyflcvWgfrAXJ6VcXhHMK5Y9P6gd0xJ0gs0i6LQeBJ2AlnUx7O60lMuZwX3Devum4FrDNrl+yuWL + wb0BUD0yeN/o7QcCAAyl1zC1duETqElwmyt786ygfrAXdw3mE8vOTblcN6gd0xJ0gs0i6LQerMWByG2C + 9wsgl58L7hfW3ysXPxJrrzdsg3ocpx9IAsfzqZTLGe37R7sfCAAwlF7D1NqFzy48Fnfv6q9r2vrB8Zya + cnlHMJdY1gW1Y3qCTrBZBJ3Wg6ATEKkbnjb9YdlFFse3tPcLm+EuwTWHbXDv4H4AaD2off9o9wMBAIbS + a5hau/DZxekplw8FCyf6HCHAfv1MMI9YdnbK5UpB7ZieoBNsFkGn9SDoBOzmjsF7Bmyz3wzuEzbHW1Mu + pwTXHTZZDXB+OLgfAFofSbmc79j3kHY/EABgKL2GqQUfnnZzv2DhROwmQf0gUo+G9GvTE3tsUDtWQ9AJ + Noug03oQdAJ28+rgPQO21VemXD4f3Cdslh8Krj1sst8O7gOA3dz12PeQdj8QAGAovYapBR+edlOP13p3 + sHCi7yVB/SDyqGD+sOwzKZdLBbVjNQSdYLMIOq0HQSfgeG4evG/ANnpacH+wed6fcjktuP6wiS6dcjkr + uA8AdvOPx76PtPuBAABD6TVMLfgAdTz3ChZOxG4V1A+OdcXFkWzt3GHZw4LasTqCTrBZBJ3Wg6ATcDzP + Dt43YNtcL+VybnB/sJnuH8wB2ESPDuY/wIlc+ej7SLsfCAAwlF7D1IIPUMdznpTLm4OFE32vSLmcFNQQ + jvrTYN6w7KMplzOC2rE6gk6wWQSd1oOgE3A856RcviJ474Bt8vfBvcHmqmujiwTzADbJ5T3NCTighxx9 + L2n3AwEAhtJrmFrwIepE7hQsnIjdMagfVF8XzBf6fjaoHasl6ASbRdBpPQg6ASfyoOC9A7bFNwf3BJvv + 14O5AJukzvF23gPsxeuOvpe0+4EAAEPpNUwt+BB1IvUpRf8eLJ7o+4+Uy8lBDdlu9R76l2C+sOw9KZfT + gvqxWoJOsFkEndaDoBNwIm8N3jtgG9TvXF4T3BNsvvqkm8sGcwI2wQVTLp8I5j3AXl2pvp+0+4EAAEPp + NUwt+CC1F34tt3ffHdSP7XbnYJ7Q9wNB7Vg9QSfYLIJO60HQCdiLHLx/wKa7R3AvsD2eGMwJ2AT3CeY7 + wH78XH0/afcDAQCG0muYWvBBaq9eFCye6Ht7yuWUoH5sp1NTLm8L5gnL3uK+mS1BJ9gsgk7rQdAJ2ItH + Be8fsMnOl3J5V3AvsD3OSblcPZgbsM7qk+D/M5jvAPvx9/U9pd0PBAAYSq9hasGHqb26UbB4IvbDQf3Y + Tj8RzA/66lOv2toxD4JOsFkEndaDoBOwF/VHNu37B2yynwnuA7bPnwdzA9bZTYJ5DrBfn0+5nL/dDwQA + GEqvYWrBh6n9qJtj7QKKvvekXE4L6sd2OSPl8rFgfrDs3xe/XmvrxzwIOsFmEXRaD4JOwF5dM3gPgU1U + P19/PLgH2E6O7mSTPC6Y4wAH8c3tfiAAwFB6DVMLPkztR/0S9dxgAUVfDQe09WO7/GYwL+j7pqB2zIeg + E2wWQaf1IOgE7NUDgvcQ2ES/Fsx/tteLgjkC66geyfmJYI4DHMQj2v1AAICh9BqmFnyg2q8/ChZQ9H00 + 5XJ6UD+2wxUWj4tt5wXL/vfscGZN0Ak2i6DTehB0AvbqH4L3ENg0X5FyOSuY/2y3WwdzBdbNnYO5DXBQ + /9DuBwIADKXXMLXgA9V+fVXK5exgEUXfQ4L6sR3+JJgP9N0gqB3zIugEm0XQaT0IOgF79bmUy6nB+whs + kqcGcx9em3I5KZgvsE6eGcxtgIP6VMrl5HZPEABgCL2GqQUfqA7id4NFFH11k+oiQf3YbDcM5gJ9fxbU + jvkRdILNIui0HgSdgP24WfA+ApviOimXc4N5D9V3BnMG1sV5Uy6fDOY1wGFcs90TBAAYQq9hasGHqoO4 + dMrlM8Eiir5HBvVjs/1TMA9Ydk7K5apB7ZgfQSfYLIJO60HQCdiPBwfvI7Ap/jaY83DU2xdhkXbewDq4 + VTCnAQ7rnu2eIADAEHoNUws+VB3UI4JFFH2fXQTD2vqxmb49mAP0PTGoHfMk6ASbRdBpPQg6Afvx/OB9 + BDbBNwXzHVo/FswdWAdOTADG8Mh2TxAAYAi9hqkFH6oO6gybMHv2mKB+bJ5TUi5vDa4/y85KuVw2qB/z + JOgEm0XQaT1YYwP78cHgfQTW3Ukpl1cF8x1aH0i5nB7MIZi7dwbzGeCw/qrdEwQAGEKvYWrBh6rDeECw + kKLv7JTL5YP6sVl+PLj29P16UDvmS9AJNoug03oQdAL2yw8J2DTfGcxz2I0jPFk3VwjmMcAQ3tHuCQIA + DKHXMLXgg9VhnLb45VS7mKLvKUH92BwXTrl8JLjuLKsbtxcN6sd8CTrBZhF0Wg+CTsB+3SF4L4F1dWrd + pAvmOeymrp0uHswlmKt7BfMYYAjnplzO3+4LAgAcVq9hasEHq8P60WAxRd85KZerBvVjMzwyuOb0/UJQ + O+ZN0Ak2i6DTehB0AvbrIcF7Cawrn0E4iEcFcwnm6qnBHAYYytXbfUEAgMPqNUwt+GB1WPWXdv8dLKbo + e2ZQP9ZfPZbwrOB6s6w+/e2CQf2YN5sMsFkEndaDoBOwX13wXgLr6IyUy0eDOQ4n8vnF9zPtnII5elcw + hwGGctt2XxAA4LB6DVMLPlgN4Z7BYoq++tjQ6wf1Y709LbjW9NWnv7W1Y/4EnWCzCDqtB0EnYL9eE7yX + wDp6RDC/Ya/+MJhTMDeXDuYuwJDu0+4LAgAcVq9hasGHqyGcnHJ5Y7Cgou+vg/qxvr52EWBrrzPL3p5y + OW9QP+ZP0Ak2i6DTehB0AvbrM8F7Cayby3pa8nF9Lmhj2ZdSLtcK5hbMyR2Cucvq1feP+jT6V6Vcnp9y + eULK5ddSLg9OufxEyuVeKZdvT7l8c8rlRimX66VcvirlcoWFr1w8lXCdXeSY11PV99P6o+1b1icEpVzu + mHL53pTLD6VcHpBy+fWUy5MW3zP8U8rlzSmXjwW1ZXqPaPcFAQAOq9cwteDD1VC+LVhQEbtxUD/W04uD + 60vfdwW1Yz0IOsFmEXRaD4JOwEFcJng/gXXy5GBes+M7FxvwbTvLnhvMLZiTXw7mLdOon7NelnJ5Ysrl + 51Iud0q53GDxlK3zBNeKg7lgyuXqKZfbpFx+cDHn/2wRhDonuC4M74/bfUEAgMPqNUwtWHgO6eXBooq+ + lwS1Y/18a3Bt6Xvt4qlvbf1YD4JOfZvwKz22V/3Csb3PmR9BJ+Ag/KCGdXbtxdM02nnNEa9OuZyUcvmG + 4H+j7ybBHIO5qE8Laucsw6tPu3xhyuVhi+9wLxdcC6Z3asrlOimX7065PC7l8p/BtePw/rbdFwQAOKxe + w9SCxeWQ6mNM20UVsfqY27Z+rI9TfBDbs28J6sf6EHTqq2GRtk4AQxJ0WnZmENpjPVxscexFPdqjHnfx + /YsjQOoG3/uDa83h3C14P4F18bxgTrPj2O+Q1OrE6hNb2jkGc/HBYM4yjNekXH4p5XLTxXe3be2Zp0uk + XO6ScnlayuXjwXVl/17Z7gsCABxWr2FqwUJyaH8XLKzoq0+/qr/Ga+vHerhPcE3pe2lQO9aLoFNf3bht + 6wQwJEGnZe8KasRmqEda3HexZmyvO/v3s0GNYR340dzx/UNTr/r0K0f/nNjtg7kGq3bxYK5yOG9JufxC + yuXyQb1ZP+dbhPd9PjicM9t9QQCAw+o1TC1YPA7ta4OFFbE7BvVj/i6UcvlQcD3p+7qgfqwXQac+QSdg + bIJOywSdtsOVUi6PTrmcFcwB9uYxQV1h7uoPwF4ZzGd21O/Z2ro9KfjnWPaGlMvJQe1glb4+mKsczAtS + LrfyQ+KNVr9X/tfg2nNiZ7X7ggAAh9VrmFqwYBzDs4PFFX1v9KXLWqpnu7fXkr7nBrVj/Qg69Qk6AWMT + dFom6LRdLp1yeWowDzixZwX1hLn7jmAus+OZQc2qy6RcPhv88yy7Z1A7WKV7B/OU/anBl3o0XVtbNlMN + st0v5fKFYC5wfKe0e4MAAIfRa5hasFgcwzU8RnvPviuoH/N1Ob8y35NzUy7XCurH+hF06hN0AsYm6LRM + 0Gk71afffiyYD+yuPd4K5u7UlMvbg7nMEWenXK4c1O2oXwn+HZa9czHP2trBqvx2ME/Zm/p97I/70fDW + ulHK5SPBvGB3Z7R7gwAAh9FrmFqwSBzLU4LFFX31S71TgvoxT38YXEP66q/w29qxngSd+gSdgLEJOi0T + dNpeV11sUrdzglh9YnBbQ5iz+wbzmB2PDWp2rAulXD4U/Hss+4mgdrAqfxvMUU7sPSmX6wf1ZLtc3X/3 + 9uUr271BAIDD6DVMLVggjuXyHim6Zz8U1I/5ue7iSUXt9WNZ/dXpVwb1Yz0JOvUJOgFjE3RaJui03a6Q + cnl/MC/oq3Vq6wdz9WWezHBcn0m5XCqoW+vHgn+XZXWenR7UDlbhLcEc5fjqj4TrE/bbWrKdvsbRrXt2 + rXZvEADgMHoNUwsWh2N6dLDAou/MlMtpQf2Yl3oURHvt6Kv3fVs71pegU5+gEzA2Qadlgk7Uoyq+GMwN + ltUfHLS1g7l6WDCH2fHLQc0i9Qnhbw3+fZaVoHawCvX4tXZ+srt6jPHxjvBkO31fMFfou2G7NwgAcBi9 + hqkFC8MxXWLxK7R2kUVfDRO09WM+viW4ZvTV+73e9239WF+CTn2CTsDYBJ2WCTpRCUXszalB7WBuLpNy + +VwwfzmiPoGoHkvX1m033x78DZbV7youGdQOplS/L2vnJsd3q6COUD0/mC8su2W7NwgAcBi9hqkFi8Kx + 1V+htYss+j7sUdqzdZ6Uy38E14w+v5LcPIJOfYJOwNgEnZYJOlGdL+Xy38H8YJl1CuvgicHcZcf9gpqd + yD8Hf4dljwnqBlP62mBesrtHBTWEo660eJppO2/YIegEAAyq1zC1YFE4tgunXD4aLLToe1BQP1bvB4Nr + RV+9z4X1No+gU58NRGBsgk7LBJ046l7B/GDZFYK6wZxcI+VyTjB3OeKdB3wy29cFf4tldUP8q4LawVQ8 + fW3v3pNyuWBQQzjW44O5ww5BJwBgUL2GqQULwin8bLDQoq9uatlAn5ca3PlAcK3oc/ziZhJ06vM+DYxN + 0GmZoBNHnZJyOTOYI+y4ZlA3mJO/CuYtO+4R1Gyvnh38PZY9LagbTOVHgzlJrIbb2/pB66rB3GHHN7d7 + gwAAh9FrmFqwIJzCaSmX9wWLLfp+Nagfq/PQ4BrR9+4D/uqU+RN06hN0AsYm6LRM0IljPTyYI+y4XlAz + mIubB3OWHa9LuZwc1G2vruIYnxM6N+VynaB2MIUSzEn63rYIt7f1g8hLgznEEXds9wYBAA6j1zC1YDE4 + lR8KFlv0fSblcqmgfkzvMimXzwbXiD6/tNpcgk59gk7A2ASdlgk6cayrB3OEHTcNagZzcFLK5eXBnGXH + bYO67dfvBn+XZc8P6gZT+L1gPtJX9xDa2sFu7hPMIY4QdAIABtVrmFqwGJxK/SXG24MFF32PDurH9J4U + XBv63nTIX50yb4JOfYJOwNgEnZYJOtHyuXJ3twzqBXNwl2C+suPFQc0O4hIpl08Gf59lXx/UDsb2rGAu + suwTKZcLBLWD3Vw2mEcccet2bxAA4DB6DVMLFoNTunuw4KKvPmr88kH9mM5Xp1y+FFwb+u4Y1I/NIejU + J+gEjE3QaZmgEy0/SNidoBNzVH/49l/BfGVHDup2UA8K/j7L/jWoG4ztH4O5yLLHBXWDE6mfF9u5RC63 + bPcGAQAOo9cwtWAhOKX61JfXBosu+p4c1I/pvCC4JvT9W1A7NougU5+gEzA2Qadlgk607hnME44QdGKO + fiyYq+x4dlCzwzgt5fLeoB+WfVtQOxjTG4J5yLKbBXWDE/mTYC4h6AQADKzXMLVgITi12wWLLvrOSblc + Jagf47t1cD2I3SKoH5tF0KlP0AkYm6DTMkEnWtcL5glHfGNQL1il01MuHwrmKkfU736uGtTtsL4v6Itl + b065nCeoHYzFU2eO74OLH0m3dYMTuV8wnxB0AgAG1muYWrAQXIV/ChZe9D0zqB3jqh+o/cJqb/42qB+b + R9CpT9AJGJug0zJBJ1rnd8z0rjzRibn55WCesmOsY5p8t7E3NRDW1g7G8tFgDrLjKUHNYC++JZhPCDoB + AAPrNUwtWAiuws2DhRd95y5+rdzWj/H41ePe1Ll5/aB+bB5Bpz5BJ2Bsgk7LBJ2IeCpCTNCJObl0yuUz + wTzliM8tatTWbSi3Dfpk2ZmL8GxbOxjDWcEcZMddg5rBXlwzmE8IOgEAA+s1TC1YCK7K3wSLL/r+Kqgd + 47hAyuV9wTWgr5593taPzSTo1CfoBIxN0GmZoBORlwdzBUdLMy+PD+YoOx4e1Gxo/xD0y7KfCeoGQzsp + mHssu1RQN9iL+p1+O5/I5Sbt3iAAwGH0GqYWLARXpT4Npl18EbtxUD+G95Cg9vR9MeVy5aB+bCZBpz5B + J2Bsgk7LBJ2IPDeYK3giMPNxtZTLOcEc5Yh6hNUUnyvqd2/1icxt/+yY6lqw3eoca+ceO94a1Az245PB + vNp21233BgEADqPXMLVgEbhKzwwWYPS9OKgdw6q/GvJI/b35/aB+bC5Bpz5fggNjE3RaJuhE5KnBXEHQ + ifn4i2B+suOng5qN5WlB/yx7WFA3GNLlgnnHjqcHNYP9+FAwr7bdFdq9QQCAw+g1TC1YBK5SfSqMX/jt + zTcF9WM4Hqm/N59LuVw6qB+bS9CpT9AJGJug0zJBJyKPDeYKgk7Mw02DucmOM1Mu5wvqNpavTLmcFYyD + HfWHb77rYExXCOYdO6YMf7KZ6mfGdl5tu0u0e4MAAIfRa5hasAhctScEizD6Xh7UjmFcU+Buzx4R1I/N + JujUJ+gEjE3QaZmgE5FHB3OFXK4U1Aqm9i/B3GTH9wY1G9tvBONgmadXMyZBp+PzA18O643BvNp2F2j3 + BgEADqPXMLVgEbhq9dG9flm2N98W1I/De15Qa/o+LuCxlQSd+twHwNgEnZYJOhERdIp5IgmrdqdgXrKj + bsSeHNRtbPUzzMeC8bDji4snz7e1gyEIOh3fZYOawX788uJoaxbafUEAgMPqNUwtWATOwW8FH3Doe/2K + vhDbZPUXQ22dif18UD82n6BTn6ATMDZBp2WCTkQEnWKnBbWCqZyScnlrMC/ZcfugblP5qWA8LHtGUDcY + wrWD+cYRnwrqBRxQux8IADCUXsPU2oXPTFw85fLJ4IMOfXcP6sfB1NDYa4Ma0/c+myZbS9CpT9AJGJug + 0zJBJyKCTn1nB3WCKf1wMC/Z8bKgZlM6NeXyjmBcLPuaoHZwWNcL5hpHvC6oF3BA7X4gAMBQeg1Taxc+ + M/JLwQcd+t6++JVkWz/2755BfYndO6gf20HQqU/QCRiboNMyQSciTwzmyrb7cFAnmMrpKZcPBPOSHV8X + 1G1q9cdz7bhY9sKgbnBYgk67e05QL+CA2v1AAICh9Bqm1i58ZqR+KfbR4MMOfT8Y1I/9qU8nek9QW/r+ + S7huqwk69Qk6AWMTdFom6ETkj4K5su3qur2tE0zlF4M5yY6/DGq2CielXF4ZjI9l3xjUDg5D0Gl3jw3q + BRxQux8IADCUXsPU2oXPzNhQ35szUy7nC+rH3v1CUFdi3xHUj+3hfblP0AkYm6DTMkEnIn8VzJVtV8ML + bZ1gCl+ecvlMMCc54pyUyzWCuq3KLYIxsuzfF6GwtnZwUIJOu3twUC/ggNr9QACAofQaptYufGamhndq + iKf9wENfDR+09WNvLply+VRQU/pe7cu9rSfo1CfoBIxN0GmZoBORfw7myrZ7QVAnmMLvBfORHU8KarZq + fx2Mk2V3CeoGByXotLsfCeoFHFC7HwgAMJRew9Tahc8MfX/wgYe+Dy2O+2vrx4n5EnbvbhXUj+0i6NQn + 6ASMTdBpmaATkTcHc2XbPTGoE4ztqosnFrXzkSPOSrlcNqjbql3TdTuht6ZcTglqBwch6LS7uwb1Ag6o + 3Q8EABhKr2Fq7cJnhuqXCG8JPvTQV49fa+vH8V3Nl3l79o9B/dg+gk6wHjzpcbMIOi0TdCLy8WCubLuH + BnWCsT07mIvs+PWgZnNRw5HteFl276BucBCCTrv7pqBewAG1+4EAAEPpNUytXfjM1HcEH3roq5tgniyy + P88N6kgsB/Vj+wg6wXoQdNosgk7LBJ1ofVkwT7Ahz/RuHMxDdnxi5t/ZXDrl8plg3Ox4X8rltKB2sF+C + Tru7blAv4IDa/UAAgKH0GqbWLnxm6qSUy6uDDz70PSKoH7FbBPUj9udB/dhOgk6wHgSdNoug0zJBJ1rX + CeYJudw2qBWM6Z+CeciOnwtqNjf1SXDtuFl2/6BusF+CTrub4/GesLba/UAAgKH0GqbWLnxm7DbBBx/6 + 6q/vvjyoH8tqeO5VQf3oq0f7XT2oIdtJ0AnWg6DTZhF0WiboROuOwTwhl2sFtYKx3CGYg+x4z5o8Cej0 + lMsHg/Gzw9PUGYKg0+7cXzCgdj8QAGAovYaptQufmXtJ8OGHvkcHtWPZPYK6EXtyUD+2l6ATrAdBp80i + 6LRM0InWLwfzhFwuFNQKxnBKyuU/gznIju8P6jZX9wnGz7JfC+oG+yHotDtBJxhQux8IADCUXsPU2oXP + zH1d8OGHvi+kXC4f1I8jzr/YIGvrRt9ZKZevCGrI9hJ0gvUg6LRZBJ2WCTrRen4wT7bdmUGdYCz3DuYg + O968CIO1dZurOta3BK+DHfW7EsdrcRiCTrs7b1Av4IDa/UAAgKH0GqbWLnzWwF8FH4Doe1JQO474+aBe + xH4rqB/bTdAJ1oOg02YRdFom6ETrA8E82XYvCOoEY7iAe/CEvi2o29zVMbevg2VPDOoGeyXotLu2VsAh + tPuBAABD6TVMrV34rIGvTrmcG3wIYtk5KZcrB/Xbdhe3WbhntU61Xm0N2W6CTrAeBJ02i7XLMkEnjnWd + YI6Qy6OCWsEYHhzMP3b8S1CzdfFPwethR/3e7WpB3WAvBJ1219ZqG70kqAsM5ZbtHiEAwEH0GqYWLKTX + QRcs0Oh7RlC7bfe7QZ2I1S+s2/qBoBOsB0GnzSLotEzQiWN5Wmvs+4NawdAukXL5VDD/2HGzoG7r4kbB + 62HZs4O6wV4IOsU+GdRqGwk6MSZBJwBgEL2GqQUL6XVQn1R0drBIY1l98lX9hXNbv211lZTLF4M60ffB + lMvpQQ1B0AnWg6DTZhF0WiboxLHq01LaOUIuNw5qBUPzQ6Lj++ugZuvmT4PXxbIbBnWDExF0itXPPW2t + tpGgE2MSdAIABtFrmFqwkF4Xvx8s0uh7TlC7bfXnQX2I/XhQP6gEnWA9CDptFkGnZYJOHHWNYH6Qy5f8 + aIEJ+AHa8dUfnl07qNu6uZLrfEIvCuoGJyLoFBN0OkLQiTEJOgEAg+g1TC1YSK+LS6dczgoWavT5Ne+R + x8W3dSH2jpTLqUENoRJ0gvUg6LRZBJ2WCTpx1KOC+UEurw9qBUP7s2DuseMPg5qtq98JXh/Lbh3UDY5H + 0Ckm6HSEoBNjEnQCAAbRa5hasJBeJ48MFmr0/WNQu21yUsrlFUFdiN0jqCEcJegE60HQabMIOi0TdKKq + P3z5XDA/yOUJQb1gSPWornbesaP+KO/yQd3W1cWtRU7oNYvvntrawW4EnWKCTkcIOjEmQScAYBC9hqkF + C+l1chFftuzZNwT12xZ3D+pBrP76++SghnCUoBOsB0GnzWK9u0zQierxwdzgCD9cYGw2YI/vt4KarbsH + BK+TZfW7p7ZusBtBp5ig0xH+O8uYBJ0AgEH0GqYWLKTXzYOCxRp9Lw9qtw3qEWz1KLa2HsRuH9QQjiXo + BOtB0GmzCDotE3Ti61Mu5wZzgyMuF9QMhlI/M7Zzjh31v9kXC+q27k5LubwneL3seHvK5bxB7SAi6BQT + dDpC0IkxCToBAIPoNUwtWEivm9NTLh8IFmz03SGo36b7maAOxP4pqB+0BJ1gPQg6bRZBp2WCTtuthnh8 + /tvdfwY1g6GcJ+XyH8G8Y8cvBHXbFN8bvF6W/WhQN4gIOsUEnY4QdGJMgk4AwCB6DVMLFtLr6L7Bgo2+ + 123ZsWQXTbl8IqgDsZsGNYSWoBOsB0GnzSLotEzQaXvVkNNbgjnBjk08Mov5+IFgzrHj/YsnH7V12xT1 + +6R63H37utlRg7gXDGoHLUGnmKDTEYJOjEnQCQAYRK9hasFCeh3V48nqhke7aKPv7kH9NtVvB6+f2F8H + 9YOIoBOsB0GnzSLotEzQaTvdyLFJe/INQe1gCDXA875gzrHj3kHdNs2tg9fNsgcHdYOWoFNM0OkIQSfG + JOgEAAyi1zC1YCG9ru4VLNroe1vK5ZSgfpvmSimXs4PXT9+5KZevDmoIEUEnWA+CTptF0GmZoNN2OSPl + 8mspl3OCucCyDy+OFmtrCEOoR7K1c44db92S71qqFwavnx113XbxoG5wLEGnmKDTEYJOjEnQCQAYRK9h + asFCel3VR2i/OVi40VcfN9/Wb9P8afC6iT0tqB/sRtAJ1oOg02YRdFom6LQdLplyeUDK5aPBHCD2uKCO + MIQa2vDfouO7c1C3TXXdxQ+m2hqwwzGinIigU0zQ6QhBJ8Yk6AQADKLXMLVgIb3O7hgs3Og7c3HcX1u/ + TfF1wWsmVp969VVBDWE3gk6wHgSdNovN5WWCTpvrsimX70+5/GXK5YvBtef4bhrUFIbw6GC+seMVKZeT + grptsj8K6sCOs1Iulw/qBkcJOsUEnY4QdGJMgk4AwCB6DVMLFtLrrH6xVL9gahdv9G3qBmidA/8SvF5i + jwlqCMcj6ATrYVP/O7+tBJ2WCTqtn3qcUz2C7mIplyukXK6dcrnN4vjxh6ZcnpNy+e/gWrN3bwnqDkO4 + omPhT+gWQd023VcswjxtLdjxh0Hd4ChBp5ig0xGCToxJ0AkAGESvYWrBQnrdfVOweKPvgymX04P6rbu7 + BK+V2GdSLl8e1BCOR9AJ1oOg02YRdAJOxPs+Y3lGMN/Y8TdBzbbFI4N6sONLKZdrBnWDStApJuh0hKAT + YxJ0AgAG0WuYWrCQ3gT/GCzg6HtgULt1Vo/je3vwOon9clBDOBFBJ1gPNrw3i6ATcDyfSrl8WfDeAYd1 + g2C+sePclMt1g7pti/qkvo8GdWFHfWJhWzeoBJ1igk5HCDoxJkEnAGAQvYapBQvpTZCDBRx99cNj/WKq + rd+6+ongNRKrX0baDOEgBJ1gPQg6bRZBJ+B46lNV2vcNGIIfkR3f04KabRvfw5zYTYK6gaBTTNDpCEEn + xiToBAAMotcwtWAhvSn+MljE0fewoHbrqAa2Pha8PmI/HdQQ9kLQCdaDoNNmEXQCdlOPo7548L4Bh/X/ + gvnGjrNTLlcI6rZt6pO1/zuoDzteFtQNBJ1igk5HCDoxJkEnAGAQvYapBQvpTXHNxWPE24Ucy+oX45cI + 6rdufjN4bcTOTLmcP6gh7IWgE6wHQafNIugE7GZTfrjCvJyccnlDMN/Y8dtB3bbVXYP6sOx2Qd3YboJO + MUGnIwSdGJOgEwAwiF7D1IKF9CZ5arCQo+/RQe3WyVelXL4QvC5i3x/UEPZK0AnWg6DTZhF0AiLvT7mc + HrxnwGHdK5hv7PiUJ6ktOSnl8oqgTux4/SJA2NaO7SXoFBN0OkLQiTEJOgEAg+g1TC1YSG+Sr1w8Trxd + zLHsrJTL5YP6rYs/CV4TsTenXE4Jagh7JegE60HQabMIOgGRuwXvF3BYp6Vc3hPMN3Y8JKjbtrt5UCeW + 3TOoG9tL0Ckm6HSEoBNjEnQCAAbRa5hasJDeNI8JFnP0PSGo3Tq4YfBa2N23BzWE/RB0gvUg6LRZBJ2A + 1nOC9woYwv2D+caOD3iS2q6eG9SLHe9MuZwa1I3tJOgUE3Q6QtCJMQk6AQCD6DVMLVhIb5pLpVw+Eyzo + WHZOyuXKQf3m7p+C10KsPkq+PlK+rSHsh6ATrAdBp80i6AQcqx5Zd4ngvQIO66L+m3NCPxrUjSOuvvhu + qa0ZO+4X1I3tJOgUE3Q6QtCJMQk6AQCD6DVMLVhIb6KHBws6+uoRcG3t5qw+nah9DezuG4Iawn4JOsF6 + EHTaLDadgaNqiMC6nrH8VjDn2PF2R8Gf0OOCurHjw54IxoKgU0zQ6QhBJ8Yk6AQADKLXMLVgIb2Jzki5 + fDxY1LHs3JTLVwf1m6P65eJ/Ba+B2N8FNYSDEHSC9SDotFkEnYCjfjx4j4AhXCHl8oVgzrHjrkHdWOap + 6idWgrqxfQSdYoJORwg6MSZBJwBgEL2GqQUL6U11/2BRR99zgtrNUf2Cvx07u/uaoIZwEIJOsB4EnTaL + oBNQ1afttO8PMJQumHPseJWj4Pfsl4L6saMGwRw/iqBTTNDpCEEnxiToBAAMotcwtWAhvalOS7l8IFjY + 0XfjoH5zcuGUy0eCcRN7VlBDOChBJ1gPgk6bRdAJeLyQBSOqP4ypT3hu5x07vimoG7F6NJvv347vd4K6 + sV0EnWKCTkcIOjEmQScAYBC9hqkFC+lN9iPBwo6+fwhqNyePDMZM7JyUy1WCGsJBCTrBehB02iyCTrDd + /kDIiZHV7wDaeceOFwY14/h+KKgjO85eHBfZ1o3tIegUE3Q6QtCJMQk6AQCD6DVMLVhIb7JTUy5vDxZ3 + 9N0yqN8cfGXK5axgvMTqL7/bGsJhCDrBehB02iyCTrC9ipATI7t1MO9Ydv2gbhzfKSmXNwe1ZMfTgrqx + PQSdYoJORwg6MSZBJwBgEL2GqQUL6U333cHijr6XB7Wbg/pFUDtWYjUQdumghnAYgk6wHgSdNougE2yf + z6Vc7hG8H8CQTk65vC6Yf+z4k6Bu7M23BvVkRz0u8jpB3dgOgk4xQacjBJ0Yk6ATADCIXsPUgoX0pqtf + 5L0hWODRV7+Uauu3Sl+7+CKoHSexXwtqCIcl6ATrQdBpswg6wXZ5q81vJnLPYP6xox4vdqWgbuzdS4O6 + suN5Qc3YDoJOMUGnIwSdGJOgEwAwiF7D1IKF9Da4Q7DAo++1i2BYW79VeXEwRmL1i4EzghrCYQk6wXoQ + dNosgk6wPR6bcrlA8D4AQzt/yuXdwRxkx+8GdWN/bhjUlWU3D+rG5hN0igk6HSHoxJgEnQCAQfQaphYs + pLfFvwaLPPruHtRuFTzyfH8eENQQhiDoBOtB0GmzCDrB5ntTyuWmwf0PY/nZYB6y4zMpl0sGdWP/nhnU + lx31+8m2Zmw+QaeYoNMRgk6MSdAJABhEr2FqwUJ6W9wyWOTRV49NOCWo35Rq/28JxkbsAymX04I6whAE + nWA9CDptFkEn2FwfSbn8+Aw+c7FdLpJy+UQwH9nx0KBuHMwVF8cAtjVmx7cFdWOzCTrF6ntFW6ttJOjE + mASdAIBB9BqmFiykt8kLgoUefd8X1G5K9wnGxO5qvdoawlAEnWA9CDptFkEn2DwfXTyF9fTgnoex/UYw + J9nxYffm4H47qDM76lP9Tg7qxuYSdNpdW6ttJOjEmASdAIBB9BqmFiykt8nXBAs9+s5MuZwa1G8KF0q5 + fCgYE7G3+zU4IxN0gvUg6LRZBJ1gc/zX4glOQhSsyuVTLmcFc5Md9w3qxuFczHrmhFb9I0OmJei0u/MH + 9do2gk6MSdAJABhEr2FqwUJ62/xZsNij735B7abwsGAs7O5uQQ1hSIJOsB4EnTaLjUFYbzVU8oyUyzel + XE4K7nGY0h8HcxRYvfojQwGP7SHotLszgnptG0EnxiToBAAMotcwtWAhvW2ulnI5J1jwsewDKZcLBvUb + 0+X80nRfXmvjhAkIOsF6EHTaLIJOsH4+m3J5Tsrluz29iRm5bsrl3GC+AvPw08F9y2YSdNrdlwf12jaC + ToxJ0AkAGESvYWrBQnobPTlY8NH3gKB2Y3pqMAZ2d5ughjA0QSdYD4JOm0XQCdbD61Muv7lYl58vuJdh + 1f4umLfAfHw05XLh4N5l8wg67e7KQb22jaATYxJ0AgAG0WuYWrCQ3kaXT7l8Plj0sewTEz4+2C9N9+fF + QQ1hDIJOfV+5eG+EObHBvlkEnWA9fDLl8pcplx9LuVw1uJdhlb45mLPA/DwsuH/ZPIJOu7tRUK9tI+jE + mASdAIBB9BqmFiykt9Wjg0Uffb8S1G4M/xD0ze5uHNQQxiDo1FdDJW2dAIYk6ATr6b9TLo9c/Iijva9h + SvWI89cEcxSYn8+kXC4d3MdsFkGn3d0uqNe2EXRiTIJOAMAgeg1TCxbS2+riiy8T2oUfy2qNaq3a+g3p + W4J+2V391XhbQxiLoFOfoBMwNkEnWH9vSbn8os1rVuS7gzkJzNfvBfcxm0XQaXf3Duq1bQSdGJOgEwAw + iF7D1IKF9DYrwcKPvvr0q7Z2Qzkl5fIfQZ/EvpRyuWZQRxiLoFOfoBMwNkEn2BxfTLk8K+Vyi+BehzGc + mnJ5ZzAXgfk6O+Vy5eB+ZnMIOu1uqtME5kzQiTEJOgEAg+g1TC1YSG+zL0u5fDRY/LHsrJTLVwT1G0L9 + 1U7bH7v7w6CGMCZBpz5BJ2Bsgk6wmV6ecrltcM/DkH46mHvA/D0juJ/ZHIJOu3tqUK9tI+jEmASdAIBB + 9BqmFiykt93PBIs/+h4f1O6wTk+5fCDoi9jnUy6XD+oIYxJ06hN0AsYm6ASb7V9SLl8f3PtwWHWd+rFg + zgHr4frBfc1mEHTa3b8F9do29Tvy+t9wDuarg3nFDkEnAGAQvYapBQvpbXdayuW9wQKQZeeM8Bjthwb9 + sLvfDmoIYxN06qtforR1AhiSoBNshy7l8uXBewAc1K8F8wxYH38X3NdsBkGn3X0iqBfsx/mCecUOQScA + YBC9hqkFC0Ecn7ZXTw9qd1CXSbl8NuiD2KdSLhcP6ghjE3TqE3QCxiboBNujbu79cMrlpOC9APbjcotj + 59s5BqyXbwzub9afoNPxXTaoGezHB4N5xRGCTgDAIHoNUwsWgeRySsrlbcEikGXnplyuHdTvIJ4c/H12 + 94tBDWEKgk59gk7A2ASdYPv8bcrlksH7AezVU4J5Bayffxd+3UiCTsd3h6BmsB8vD+YVRwg6AQCD6DVM + LVgEcsTdg0Ugfc8Jardf9dzsGppq/zaxDy/Oam/rCFMQdOoTdALGJugE2+l9KZevC94T4ER8xobNcufg + Pme9CTod368ENYP9+NNgXnGEoBMAMIhew9SCRSBH1F9LvTZYCNKXg/rtxwuCv8nu7hfUEKYi6NQn6ASM + TdAJttfZKZd7BO8LcDzPD+YSsL7esnj6fHuvs74EnY7vJUHNYD+eEMwrjhB0AgAG0WuYWrAIZMf/CxaC + 9L0wqN1e3Tr4e+zuXSmXU4M6wlQEnfoEnYCxCToBPxu8N0DkG4P5A6y/ewf3O+vrqsE1ZsfnUy6nBXWD + vfr1YF5xhKATADCIXsPUgkUgy14WLAbpu2VQuxM5OeXyhuBvsbvvCeoIUxJ06hN0AsYm6ARUDwjeH+BY + 9cnUrwrmDrD+6nGmgh+b4wrBNWbZ7YK6wV49KphTHCHoBAAMotcwtWARyLKbBYtB+v41qN2J/EDwd9jd + GxfhsLaOMCVBpz5BJ2Bsgk7AUT8VvEfAUXcP5gywOX4+uO9ZT4JOJ/b4oG6wV08K5hRHCDoBAIPoNUwt + WATS9/xgQUjffn5pc4HFr9Hav8Hu7hDUEaYm6NQn6ASMTdAJOOrclMudg/cJqEec/3cwZ4DN8QmfPzeG + oNOJfTjlct6gdrAXzwrmFEcIOgEAg+g1TC1YBNJ3vcUXyu2ikGWvXTwqv61f5CHBv8/u/iWoIayCoFOf + L5qBsQk6Acf6bMrlOsF7BdvtfsFcATbPrwX3P+vnosG1pe/2Qe1gL14azCeOEHQCAAbRa5hasAgk9oxg + UUjf3YLatS6VcvlM8O+yu68P6girIOjUJ+gEjE3QCWj9V8rl9OD9gu104ZTLR4N5Amyes1IulwneB1gv + 5wuuLX1/HdQO9uKDwXziCEEnAGAQvYapBYtAYldOuZwTLAxZ9paUyylB/Y71hODfY3f16MS2hrAqgk59 + gk7A2ASdgEj9XNW+X7CdHh7MD2Bzef/fDF8Mri3L6gkLVwpqB8dz2WAusUPQCQAYRK9hasFCkN09PlgY + 0nevoHZHXUtgbF/qB/rrBnWEVRF06hN0AsYm6ATs5puC9wy2S93Mq094aecGsLnq92pXDd4PWC8fD64t + fU8OagfHc49gHrFD0AkAGESvYWrBQpDd+QJxb85MuZwa1K96XvDPs7unBzWEVRJ06hN0AsYm6ATs5q0p + l/MG7xtsj7oB3M4LYPM9O3g/YL28K7iu9NVg31WC+sFunhnMI3YIOgEAg+g1TC1YCHJ8vxEsDum7b1C7 + +mvj9p9jd2d7PDMzJOjUJ+gEjE3QCTienwjeN9gOnpgM2+2GwfsC6+P1wTUl9vygfhC5UMrlc8EcYoeg + EwAwiF7D1ILFIMd3cZtNe/KBlMsFjqnbySmX1wb/HLt7bDD/YNUEnfoEnYCxWXsCx1M/e50/eO9g8/11 + MB+A7fGPwfsC6+PFwTVld98e1BBaPxXMHZYJOgEAg+g1TC1YDHJivxgsEOl7wDE1+97gf2d3n0m5XDqY + e7Bqgk59gk7A2ASdgBO5T/DewWb7+mAeANvnVsH7A+vB8Vr78xHflXICF1z8AKCdOywTdAIABtFrmFqw + IOTETk+5fDhYJLLs44sAwGkpl/cE/zu7e1gw72AOBJ36BJ2AsQk6ASfy7pTLeYL3DzbTSSmXfw/mAbB9 + XrN4T2jfJ5i/3wmuJ8f3spTLqUEtoXpEMGfoE3QCAAbRa5hasCBkb2z2780vp1x+IWhndx8TnGDGvPf1 + uV+BsQk6AXvxLcH7B5vpO4LrD2yvuwXvE8zfA4NryYk9RbiPwI1TLucE84U+QScAYBC9hqkFi0L2pv56 + 5MxgociyegTbp4J2dvezwXyDuRB06hN0AsYm6ATsxbOC9w82z3lTLm8Prj+wvep7winB+wXz9gPBtWRv + /kDYiWNc1mkS+yLoBAAMotcwtWBhyN59X7BQhMOoH8rqUX/tXIO5EHTqE3QCxiboBOzF561LtsKPB9ce + 4EeD9wvm7TbBdWTvnplyOV9QV7bLJVIubwzmB7sTdAIABtFrmFqwOGTv6q+l/jNYLMJB/WAwz2BOBJ36 + bCgCYxN0AvbqnsF7CJvjQimXDwfXHeADKZcLBu8bzNdVguvI/rw65XKloLZsh3rt7c3sn6ATADCIXsPU + ggUi+3PnYLEIB/EWjxpnDQg69Qk6AWMTdAL26o+D9xA2x68E1xzgqAcF7xvM16kply8F15H9+WzK5Wd9 + p7p17pRy+XgwHzgxQScAYBC9hqkFi0T2p54H/qpgwQj7VUNz7fyCuRF06hN0AsYm6ATsVX2iR/2M2r6P + sP4uvdjMba85wFF1zXix4P2D+Xp3cB05mDcvwi/WQZvtsotjC9vrz94JOgEAg+g1TC1YLLJ/tw4WjLAf + r/RBnDUh6NQn6ASMTdAJ2I9rB+8jrL8nBtcaoPVbwfsH8/Xi4BpyOP+RcvmBlMv5g3qzvi6TcvmNlMtZ + wTVnfwSdAIBB9BqmFiwaOZiXBItG2KtvCuYUzJGgU5+gEzA2QadlZy7ee5m3S6VcrpBy+eqUy81SLrdL + uXx3yuX+KZffTbn8ecrldSmXzwfXmMO5V/A+wnq7RsrlnOBaA7RqCODywfsI8/SE4BoyjPoZ6g9SLjdN + uZwc1J75q8cR1h+Y1yc4nR1cYw5G0AkAGESvYWrBApKDuXGwaIS9+IdgPsFcCTr11c3ctk4AQxJ0Wvau + oEasr/OkXK6acrlryuWxKZc3plzODa47e/fooM6st+cE1xlgN08J3keYp/sG14/hvT/l8riUy7enXC4c + XAfm4yIpl+9KufxJyuUTwbXk8ASdAIBB9BqmFiwmOThfPnIQNwjmEsyVoFOfoBMwNkGnZYJOm68eTVHX + HP8eXH9OrB6D09aU9VWfiNZeY4DjqU+Au2bwfsL83CK4fozrSymXV6VcHpNy+c5F4N4Tn1bj1MXTX38o + 5fKklMub/eBhEoJOAMAgeg1TCxaYHNy1LcbZpz8L5hHMmaBTn6ATMDZBp2WCTtvlJimXvw3mAbv7cFBH + 1tNJKZd/Da4xwInUH2O27ynMT/0+ob12TO8zKZd/S7n84eKY5frkpxsujmKu/y1urxt7d8GUy9VTLrdK + uXxfyuWRi/entzqWd2UEnQCAQfQaphYsPjmcpwWLR4jUD3NXC+YQzJmgE2yuewX3PPMg6LRM0Gk73Sbl + 8r5gPhA7X1BD1s+dg2sLsFdfF7yvMD/vDq4d83H24vPHv6Rcnrl4EtSvpFx+NuVy75TLd6Rcbp1yuVHK + 5XoplyulXK6wUJ9SWsNsR835yVHnbcZaXfSY11JfV3199UcIt0y53HFx9PQPpFx+LuXyqymXxy9+1PuP + KZf/cPTcbF2/3SMEADiIXsPUgkUth1MX/fUDULuAhNYTg/kDcyfoBJtL0Gm+BJ2WCTptry9fHDXSzgn6 + rhjUj/VySsrlv4JrC7BXLw3eW5ifvwiuHcBYrtfuEQIAHESvYWrBhysO7/eCBSQc66yUy2WDuQNzJ+gE + m0vQab4EnZYJOm23C6dc3hjMC5bdLKgd6+VHg+sKsF+3C95fmJefCa4bwFiu2e4RAgAcRK9hasGHKw7v + 0imXzwWLSDjqN4J5A+tA0Ak2l6DTfAk6LRN0oj6t6FPB3GBHPfKsrRvr4/SUyweD6wqwX6+f+XFZHDny + rL1uAGO5VLtHCABwEL2GqQUfrhjGI4NFJFR1s7Kecd7OGVgHgk6wuQSd5kvQaZmgE9V9g7nBDu/p660E + 1xTgoO4RvM8wH+f1g1lgQqe2e4QAAAfRa5ha8OGKYZxhU4pdPCiYL7AuBJ1gc9kUny9rymWCTlSnpFze + GswPjrh3UDPWw6VSLp8JrinAQb2jbmwH7zfMx4uD6wYwtE+3+4MAAAfVa5ha8MGK4TwwWEyy3T6Qcrlg + MFdgXQg6weYSdJovQadlgk4c9X3B/OCIumZr68V6+IPgegIc1v2C9xvm4/7BNQMY2tvb/UEAgIPqNUwt + +GDFcGqgpQZb2gUl2+tHg3kC60TQCTaXoNN8CTotE3TiqAu4P3b1gKBezN/VUi7nBNcT4LA+nHI5PXjf + YR6+OrhmAEP7x3Z/EADgoHoNUws+WDGsHw8WlGynt3tUOBtA0Ak2l6DTfAlyLBN04lhPDuYIuZSgVszf + XwTXEmAovxS87zAfZwbXDGBIT2r3BwEADqrXMLXgQxXDqsGWdwaLSrbPdwXzA9aNoBNsLkGn+RJ0Wibo + xLHuEswRBJ3W0U2C6wgwpE+nXC4evP8wD44uBcb24HZ/EADgoHoNUws+VDG87wkWlWyX16ZcTg7mBqwb + QSfYXIJO8yXotEzQiWOdkXI5N5gn207Qaf38c3AdAYb2O8H7D/PwzcH1AhjSndv9QQCAg+o1TC34UMXw + asDlTcHCku3xLcG8gHUk6ASbS9BpvgSdlgk60apHRLfzZNsJOq2XOwbXEGAMZ6dcrhC8D7F69fvj9wXX + DGAoV273BwEADqrXMLXgQxXj8MXl9nppMB9gXQk6weYSdJovQadlgk60/jyYJ9tO0Gl9nJJyeUtwDQHG + 8sfBexHz8BvB9QIYQj2+9KR2fxAA4KB6DVMLPlAxjpNSLi8PFphsvpsE8wHWlaATbC5Bp/kSdFom6ETr + YcE82XaCTuvjh4PrBzCmeuTrVwfvR6ze9YLrBTCEf2r3BgEADqPXMLXgAxXj+cZggclme24wD2CdCTrB + 5hJ0mi9Bp2WCTrR+JJgn207QaT2cnnL5QHD9AMb2vOA9iXn49+B6ARzWw9q9QQCAw+g1TC34MMW4/j5Y + ZLKZ6i/krhXMAVhngk6wuQSd5kvQaZmgEy3HhPcJOq2HhwTXDmAqNw/el1i9ewTXCuCwvrndGwQAOIxe + w9SCD1OM64bBIpPN9EfB9Yd1J+gEm0vQab4EnZYJOtH6+mCebDtBp/m7ZMrl08G1I/b+lMulUy5nwC4u + nnJ5RzB32N2/BO9NrN6pnvYHDOwLKZcLtHuDAACH0WuYWvBhivH9RbDYZLOcnXL5yuDaw7oTdILNJeg0 + X4JOywSdaF0vmCfbTtBp/h4bXDd2Z53CXtwpmDsc3x2COrJ6vxhcK4CD+tt2XxAA4LB6DVMLPkgxvmum + XM4JFpxsjkcH1x02gaATbC4biPMl6LRM0InWdYN5su0EnebtKimXLwbXjdgrUy4nB3WEyEuCOcTu3uT+ + mqX6lDKfAYCh3LvdFwQAOKxew9SCD1JM46nBgpPN8JmUyyWCaw6bQNAJNpeg03zZ5Fgm6ETrCsE82XaC + TvP27OCasbubBDWE3dSn/J0bzCN253PAPNX/lrfXCmC/6n8TL9nuCwIAHFavYWrBhyimcfnF8WbtwpP1 + Z1OBTSboBJvLBsd8CTotE3SiJejU5zPJfN0ouF7s7hlBDeFEnhjMJXZ3ZsrlfEEdWa0vS7l8NLheAPvx + N+2eIADAEHoNUws+RDGd3wkWnqy3+gXEhYJrDZtC0Ak2l6DTfAk6LRN0oiXo1CfoNF8vC64Xsc+lXL4i + qCGcyJenXD4VzCl299NBHVm9nwuuFcB+3LndEwQAGEKvYWrBByimU794qcectYtP1lcNgbTXGTaJoBNs + LkGn+RJ0WiboREvQqU/QaZ6+NbhW7M485jDuH8wpdld/uHfhoI6s1qkpl7cE1wtgLz6YcjlvuycIADCE + XsPUgg9QTOtXggUo66k+6rt+AdFeY9gkgk6wuQSd5kvQaZmgEy1Bpz4Bkfk5JeXypuBaEXtPyuUCQR1h + r+pRbO8I5ha7q99RtnVk9W4VXCuAvXhwux8IADCUXsPUgg9PTOuMlMvHgkUo68cGMdtA0Ak2l/+OzZeg + 0zJBJ1qCTn2CTvPzg8F1YnffGdQQ9utOwdxid/Wp85cK6sjq/VlwvQCOpx7heka7HwgAMJRew9SCD05M + 7+eDhSjrpf4y9+Tg2sKmEXSCzSXoNF+CTssEnWgJOvUJOs1LfTLR+4PrROxfUy4nBXWEg3hJMMfY3e8F + NWT1Lu2HssA+PbK+f7T7gQAAQ+k1TC344MT0Tku5fCBYjLI+7hhcV9hEgk6wuQSd5kvQaZmgEy1Bpz5B + p3l5cHCNiJ2bcslBDeGgrreYV+1cI3Z2yuXKQR1ZvTsH1wsgUoORF6nvHe1+IADAUHoNUws+NLEa9wkW + pKyHfwuuJ2wqQSfYXIJO8yXotEzQiZagU5+g03xcPOXyyeAaEXtqUEM4rCcGc43d/UlQQ+bhj4LrBdD6 + 8aPvG+1+IADAUHoNUws+MLEap6Rc3h4sSpm/WwbXEzaVoBNsLkGn+RJ0WiboREvQqU/QaT4eE1wfYp9J + uVwmqCEc1penXD4VzDli9QlY1w/qyOp9me+PgRP4j8Ve0/++b7T7gQAAQ+k1TC34wMTqfFewMGXe/ja4 + jrDJBJ1gcwk6zZeg0zJBJ1qCTn2CTvNwpcUxUO31IfbAoIYwlPsHc47d/V1QQ+bh2otgaHvNAM5Judzg + 2PeMdj8QAGAovYapBR+WWJ2TUy6vDxaozJNfuLGNBJ1gcwk6zZeg0zJBJ1qCTn2CTvPwrODaEHtnyuX8 + QQ1hKOdLubwjmHvs7huCOjIPdwmuF8DD2/eLdj8QAGAovYaptQsfVu5bgwUq8/SM4PrBphN0gs0l6DRf + gk7LBJ1oCTr1CTqt3g2D68Lu6qZ9W0MY2p2CucfuXpFyOSmoI/PwK8E1A7ZXfc8+tX2vaPcDAQCG0muY + WrvwYRb+JVioMi9fTLlcObh2sOkEnWBzCTrNl6DTMkEnWoJOfYJOq/fi4LoQe0lQPxhLnW/tHGR3dw5q + yDzUENpTgmsGbJ8PpVwuF7xP9PYDAQCG0muYWrvwYRZuESxWmZc/CK4bbANBJ9hcgk7zJei0TNCJlqBT + n6DTat0uuCbE6pHw1wtqCGOp863Ou3YuEntLyuWUoI7Mw3lSLs8JrhuwPc4+3lGj7X4gAMBQeg1Taxc+ + zMYLgkUr8/C5lMulg2sG20DQCTaXoNN8CTotE3SiJejUJ+i0OienXN4YXBNijw9qCGN7YjAX2d0PBjVk + Pk5LubwouG7A5qvB3bsH7wv/p90PBAAYSq9hau3Ch9m4frBwZR4eEVwv2BaCTrC5BJ3mS9BpmaATLUGn + PkGn1fn+4HoQ+2TK5ZJBDWFsX55y+VQwJ4m9dxGmaevIfFxA2Am20v2C94Ml7X4gAMBQeg1Taxc+zMqz + gsUrq/WJlMsZwbWCbSHoBJtL0Gm+BJ2WCTrREnTqE3RajRoEqIGA9noQ+7mghjCV+wdzkt39fFBD5qWG + nZwQANvjhCGnqt0PBAAYSq9hau3Ch1m5asrlnGARy+r4YodtJ+gEm0vQab4EnZYJOtESdOoTdFqNBwbX + gth/pVxODWoIUzlfyuUdwdwk5od/66G+rz4juH7A5vjS4gmi7f0favcDAQCG0muYWrvwYXaeFCxmWY33 + eVQ3CDrBBhN0mi9Bp2WCTrQEnfoEnaZ3ce/X+3KHoIYwtTsFc5Pd/WpQQ+bnpJTLLwfXD1h/9djV2wf3 + /a7a/UAAgKH0GqbWLnyYncunXM4KFrVM74eC6wPbRtAJNpeg03zZOF8m6ERL0KlP0Gl6jwquA7EXBvWD + VXlJMEeJ1e8nLx3UkHn6rpTL54PrCKynt6dcrhnc68fV7gcCAAyl1zC1duHDLPnCdPXqY/VPCa4NbBtB + J9hcgk7zJei0TNCJlqBTn6DTtL4q5XJ2cB3oOyflcq2ghrAq10u5nBvMVWJPCGrIfH1dyuXM4DoC6+WZ + Bz0+tN0PBAAYSq9hau3Ch1mqj8D/dLDAZTp3Da4LbCNBJ9hcgk7zJei0TNCJlqBTn6DTtJ4eXANivxfU + D1bticFcJVbDilcNash8XTTl8pfBtQTmrx5Vd8/gvt6zdj8QAGAovYaptQsfZqt+Ud0udJnGqxfn27fX + BLaRoBNsLkGn+RJ0WiboREvQqU/QaTpfG9Sf2McXG+5tDWHVvnyxmdzOWWJ/FtSQeavfa/5YyuWzwfUE + 5qm+114uuJ/3pd0PBAAYSq9hau3Ch9m6UMrlo8GCl/HdKrgesK0EnWBzCTrNl6DTMkEnWoJOfYJO0/nH + oP7E7hfUD+bi/sGcZXc3CGrI/NWjVl8YXE9gPt6WcrltcP8eSLsfCAAwlF7D1NqFD7P208HCl3G9KLgO + sM0EnWBzCTrNl6DTMkEnWoJOfYJO0/h/Qe2J/WfK5ZSghjAX50u5vCOYu8RqyLOtIeuhPt2pfvb7UHBd + gdV5T8rl3kOvl9r9QACAofQaptYufJi101IuZwaLYMaTg+sA20zQCTaXoNN8CTotE3SiJejUJ+g0vpNT + Lq8Pak/sNkENYW7uFMxdducJ6Ovty1Iuv5pyOSu4tsB03plyue9i76e9Tw+t3Q8EABhKr2Fq7cKH2fvB + YDHMOP48qD9sO0En2FyCTvMl6LRM0ImWoFOfoNP4vieoO7HnB/WDuXppMIeJvXrxdKC2hqyXuo56asrl + nOAaA+N5ecrlO4Z+glOr3Q8EABhKr2Fq7cKH2asL3/8KFsYMq364v0ZQf9h2gk6wuQSd5kvQaZmgEy1B + pz5Bp3F52vLenZ1yuVpQQ5irr0m5nBvMZWJ3DWrIerpyyuXxi/ft9joDw/h4yuV3Uy7XDe7BUbT7gQAA + Q+k1TK1d+LAW6pcI7SKZYT05qDsg6ASbTNBpvgSdlgk60RJ06hN0GtfPBTUn9qigfjB3TwnmMrG3j/00 + Eib3FSmXR6RcPhxcb2D/6vGQ9eSIu6Vczh/cc6Nq9wMBAIbSa5hau/BhLdTHQr82WDQzjPrh4/JB3QFB + J9hkgk7zJei0TNCJlqBTn6DTeC7qfXnPPpJyOSOoIczdpVIunw7mNLEfCWrI+jvf4pjWfw6uOXB8n0i5 + PCvlcveUy+nB/TWZdj8QAGAovYaptQsf1sZtgwU0w/itoN7AEYJOsLkEnebLhvoyQSdagk59gk7jqZ8X + 23oT++GgfrAuHhjMaWIfSLlcIKghm+OKKZcHp1zeGlx/IJcvpVxelXL51ZTLzVIu5wnuo5Vo9wMBAIbS + a5hau/Bhrbw0WFRzOHUj8eJBrYEjBJ1gcwk6zZeg0zJBJ1qCTn2CTuP4ypTL54N60/eGOW3ywQHU44Xe + GcxtYg8Kashmus7ier8i5XJuMBdgG3wx5fLvKZffTLncPuVy4eBemYV2PxAAYCi9hqm1Cx/Wyk2DRTaH + 85CgzsAOQSfYXIJO8yXotEzQiZagU5+g0zieFtSa2DcE9YN18x3B3CZW16sXC2rIZqvHPN4j5fKklMvb + g3kBm6A+rek/Uy5dyuW+KZcbL452bO+HWWr3AwEAhtJrmFq78GHt/HWw+OZgPrjqM7NhDQg6weYSdJov + Qadlgk60BJ36BJ2Gdz1PrtizvwjqB+vqZcEcJ1afbNLWj+1yuZTL3VIuj0y5/H3K5ePBPIG5quu8d6dc + Xphy+e2Uy/elXL425XJaMNfXRrsfCAAwlF7D1NqFD2un/nrgDAZxwaC+wDLvObC5Tg3ueeahPga/vV7b + 7MuCGrHdTg7mybarRy61deJwrIP3zpqCTeLe37sLBfWDGkj/f4sfzv1+yuVFKZf3CA+zIvUI4rekXF6Q + cnlCyuWBKZc7L45kXOtA027a/UAAgKH0GqbWLnwAAAAAAABGct5FCOrmKZfvXgROfi/l8qcpl5csjgr7 + SBBUgcgnUi5vS7m8POXyvJTL4xdPOP3hlMvtUy43WBy12M7DjdfuBwIADKXXMLV24QMAAAAAALBip6Rc + vjzlcrWUy41SLrdOudw15fJDKZefS7k8NOXy6JTL41IuT025/GXK5W8WYalXp1xel3J50+L46+qDi6PB + q3OCwAzj+dIxtf/QMdekXp96nf558cSv56RcnrG4nvXaPiLlcv+Uy31SLt+VcrldyuVmKZdrLcJLNTTX + zhsW2v1AAICh9BoAAAAAAAAAAADmptcAAAAAAAAAAAAwN70GAAAAAAAAAACAuek1AAAAAAAAAAAAzE2v + AQAAAAAAAAAAYG56DQAAAAAAAAAAAHPTawAAAAAAAAAAAJibXgMAAAAAAAAAAMDc9BoAAAAAAAAAAADm + ptcAAAAAAAAAAAAwN70GAAAAAAAAAACAuek1AAAAAAAAAAAAzE2vAQAAAAAAAAAAYG56DQAAAAAAAAAA + AHPTawAAAAAAAAAAAJibXgMAAAAAAAAAAMDc9BoAAAAAAAAAAADmptcAAAAAAAAAAAAwN70GAAAAAAAA + AACAuek1AAAAAAAAAAAAzE2vAQAAAAAAAAAAYG56DQAAAAAAAAAAAHPTawAAAAAAAAAAAJibXgMAAAAA + AAAAAMDc9BoAAAAAAAAAAADmptcAAAAAAAAAAAAwN70GAAAAAAAAAACAuek1AAAAAAAAAAAAzE2vAQAA + AAAAAAAAYG56DQAAAAAAAAAAAHPTawAAAAAAAAAAAJibXgMAAAAAAAAAAMDc9BoAAAAAAAAAAADmptcA + AAAAAAAAAAAwN70GAAAAAAAAAACAuek1AAAAAH0pl6ldOuVyi5TLD6RcHpRyeUzK5U9SLi9Mubwk5fKK + lMvrGv+WcnlRyuUvUi5PSbn8Rsrlp1Iu35FyySmXM4J+AACYpy9LuXxtyuVuKZefT7k8arEefH7K5Z+D + teC/LNaJf7P45+pa8OdSLt+VcrmptSD70X4e2jZd18HYzui67gZd192167qf67ruN7oj//dXXde9pOu6 + 1wVq+4u7rnt213WP77ru4V3X/XjXdbfruu5qXdedGvSzb+39ADA3vQYAAACgr/3if2CXSrncJeXym4tN + q0+nXP6/kbxvEZZ6eMrl9imXiwXj2QZPDTYH5+A1iw3Kql6nP0u5PGmxsflLKZcfTbl822LT88uD17Vp + nhHUaNv9dcrl/EGtpvS8YFxTq5v5f59yeU7K5Y8WYdAaCr3P4h65XsrlIsHY2THm/fXYoL+x1PBH2z87 + /nURnm7rNpZNmVercErK5caLYFINrb8jWMcN4b0plxekXB6WcvnmlMsFgrFskzHn7LFuGfQ9lfrjiXY8 + B/W/7yntZ6VN1AY/1sADg1DMmEowBnZ34a7rbrOo2990Xfeeruv+vxF8qeu6N3Vd98dd192367rrdl13 + UjCe42rvB4C56TUAAAAAfcGGwWFdZxFceWWwATWlcxdPhyopl+sH49xE5025fC6oxTr6fMrltYugx8+m + XL5pgzYs6+s4O3jNHNmYbus1lUsE45mzj6dcXpZyeVzK5YdTLtdNuZwneF3bZor7q86Vtt8xvDzom2U/ + EdRtDJs0r6Zy4ZTLPVMuz065fCp4vVOo1+zFKZf7ThyKm4Mp5uxRr065nByMYQo11NaO5zB+sv2stIna + 4MfM3ajrunOC0MuY/iMYB8u+ehFs+pcVXJ9jfajruqd1XfcdXdedPxhnT3s/AMxNrwEAAADoCzYMDuJC + KZcfWmx0tBsGc/HmlMsDUy6XDMa/KerTEtrXvUm+sHhSQw111CNv2te/LuqTD9rXRi7npFxOD+o1lTsG + Y1o39al5f5Vy+ZGUy+WC17gNxr6/3hb0OYYpQwrr7IZB7cawKfNqbDXscpvFU5vqf7Pb17lKX0q5/GPK + 5bsXwfB27Jtm7Dnb+t5gDFOoQbZ2LIdxo/az0iZqgx8zVoMrbwnCLVO4aDCebfdVi3DTfwf1moNPdl33 + lK7rcjD2/9PeDwBz02sAAAAA+oINg/04Y/HEpP8JNgrmqj4p6Mkpl6sHr2fd1Scfta93U3025fIHKZcr + BXWYuwcHr4dcXhXUakr1iM12TOusPtWubgDfK+VyvuD1bqqx768/DPocwzcEfbPsM4sj0drajWHsefWU + oM91clrK5cdSLv8dvLY5qkfc1WP06jq2fS2bYuw526o1rfOgHceYhn6Saf1bp7SflTZRG/yYsd8IwixT + +dZgPNuoHg33LV3XvSCo0Zz9c9d1d4iOtmvvB4C56TUAAAAAfcGmwV7U45F+cs0CTq369JgnpVwuG7y+ + dfWc4HVuunodH5tyuWhQj7mqT6VqXwe5/FZQqylt8jFhH065/OKaPwltr8a+v74/6HMMDwn6Zlm91m3d + xrIp82pop6Zc7pdy+WDwmtbBJxaBp00Mg449ZyM1XNWOY0xDP8n0Re3npE3VBj9m6sZd130pCLBM5deD + MW2Tk7uuu/viGL+2NuvkFV3X3ezY19beDwBz02sAAAAA+oJNgxO5bsrllcHmwLqqRz39+OK4lfa1rpOT + Ui4fDV7ftvhIyuVOQV3mpoYEPxWMnyNHx7X1mko9JuyLwZg2TX2P+JkJn4IztSnur6sG/Y7hhUHfLJsq + VLFJ82pIt1ujJzidSD068FbBa1xXU8zZSF1TXyoYz1iGfpLpL7efkzZVEGqZm1UeWXfUy4NxbYtbdV33 + +qAm66z+38Xq62vvB4C56TUAAAAAfcGmwfHUY0nODjYGNsHLUi6XCV7zurhG8Jq20e8tnjDR1mcurh+M + mSNW+VSubTsm7I0pl5sEdVh3Y99fHwr6HEMNKdRj2dr+WXbzoHZj+Jqg7yFNNa+GUoMsfxm8jk3w+ys4 + fm0MY78XHs8TgvGMZeh5eOv2c9KmCoItc7PKI+uOOrvrugsEY9tkl++67jlBLTbFB7uuu117PwDMTa8B + AAAA6As2DSL1aSdPDzYENk3dbKyBh/b1r4MfCl7PtnppyuXCQY3moB7x046XXP4jqNWU6rFu7Zg23ZdS + Lg/bsKc7jX1//XnQ5xhuEPTNss+nXM4f1G4MmzKvhlCfvPex4DVskhoEXccnbB1r7Dl7PPVI4WsHYxpD + fZpn2/9B1f8mnt5+TtpUQcBlTlZ9ZN2xviEY3yY6qeu6H+267jNBDTbRQ+trbu8LgLnoNQAAAAB9waZB + qwZGXhJsCGyq+sSq7wjqMHd/HLyWbfb6mYad/jQYK0eeotHWakrbfExYDQZePKjJOhr7/vqpoM8x/GTQ + N8vqUxjbuo1lU+bVYZw35fLoYOyb6hNrHHyvxp6zJ/KCYExDu3rQ72G8uv2MtMmCoMtczOHIumM9JBjj + prlk13UvCF77pvuzrutOa+8NgDnoNQAAAAB9wcbBsWpQ5NXBZsCmq7/qvldQjzl7R/A6tt3LJ3zix159 + IBgnudw9qNVUHBOWyzsXm8ZtbdbN2PfXDYM+x/DsoG+W1aeRtXUby6bMq4M6I+XyD8G4N10Nvt8pqMc6 + GHvO7sWtg3EN6QeDPg/jd9rPSJssCLvMxRyOrDvWC4MxbpKbdV33vuB1b4sX1eMJ2/sDYNV6DQAAAEBf + sHFw1KkplxcFGwHbooad7hDUZY4uE4yfI54S1GtVrhSMjyPqHG7rNZWvDcazjeoRQNcN6rMuxr6/ahhu + qmP+6jGqbf8su01QtzFs0rw6iMulXP4zGPe2WKe14FFjz9m9ekPK5eRgfEN5atDnYdyl/Yy0yYLAyxzM + 6ci6o+pRbqcEY90E39d13dnBa942z++67jztPQKwSr0GAAAAoC/YODjqycEmwLb5XMrlekFt5uZuwdjZ + MZdNyu8NxkYubw9qNaWfCMa0repxTV8d1GgdjH1/1SfatH2O4apB3yw7J+VyelC7MWzKvDqIKy+e9taO + edvUJzvdPKjPXI09Z/ejPnWpHd9Q3hb0dxiXaj8jbbIg9LJqczuy7lg3CMa77n4leJ3b7FHtPQKwSr0G + AAAAoC/YOKjqUR3tBsC2qhsp9Qi/tkZz8rvBuNnxrsUTytq6Te2JwdjI5Q+DWk3pz4IxbbP3pVy+KqjT + 3I19f5WgzzH8QNA3y14Z1G0sY8+rXwr6nIOvTLm8NxjvtvpYyuUKQZ3maOw5ux/1CL0xQomXCvo6jLe1 + n482XRB8WbW5HVl3rJ8KxruuTuq67veD10jXfXd7nwCsSq8BAAAA6As2D85YHGHUbgJMof5q/uOLYEoN + GNX/t/7/zwr+2SmtOohxIq8Nxsyy+wR1m9pbgnGRy72CWk3pg8GYhlKPfHrdCbxp8V5Xjyur74Ht31iF + /xhpc3pMY99f3xT0OYY5hRTm6jeDuo1lU+bVfnz54kl77Vin9slF2OroenBVa9OjXpFyOW9Qr7kZe87u + 10ODMR7WXYJ+DuMP289Hmy4IwKzSzbuuOzcInszFnwdjXkc15PQHwetblY92Xfeuruve1nXde7uu+3Tw + z0zpf7quu2x7rwCsQq8BAAAA6As2D34l2AAYw7kpl5enXH455XKbxRNEzhOM56i68fZ1KZfvT7k8NeXy + 7uBvjukbgjHNwZelXL4UjHco9W+3wYzjqcGOuiFZfTTl8oXgb67C64PaTekSwZiGVmveXo91cMWgXlOp + RzO1dRxKDS2dFvR5IhdPuVw/5fLdKZdfX7xP1qO62r8/tr8IxjZXY99ftf4XDPodww0X4dX2PhlKfWJX + +/qG9D9Bn0O7VVC3MWzSvNqrGnB8dTDWsdVQ+9NTLt+3uAd2C1rWpzNeKeVyx5TLI1Murwn+1pimerLb + QY09Zw/isymXywZjPYxHB/0cxg+0n482XRCCWZULLIIubehkTj4cjHsd/W7w2qby9q7rHtN13Xd2XXfN + xVGF7fiq83Rdd6Wu67598ZSvNwd/a0zPbe8VgFXoNQAAAAB9zcZBDc18JtgAGFLd2HtcyuVqwcbFft10 + EXqa4iko9akrJwdjWLXbBmMdUt1wb/vcr7phWa/3rVMu911cs/qEhravsV07GNtU6qZsO56hfW3QL8dX + nybV1nEo/xb0d1AXTbncO+XyqqCfMdU+27HM0dj3178Hfa6rxwavb0i/GvS5rr49eH1Dmtu8Oinl8txg + nGP655TLt50g6H4i10y5PD7l8sXg7w+thrdrQLYdw1yM/V54UEM/GbUeX9n2cRhXaz8fbbogYLIqjw7C + JnN09WDs6+T+wWsa21mLY/K+NhjPftyw67pnBX9/LLds7xeAqfUaAAAAgL5m46D+kr798n9I9TiNGwQb + FodVnwjzd0F/Q7tn0PeqPSwY55B+N+hzKNdY/P0pNiernwzGMJXfCsYzpE8fcqN4Wz05qOVQ6tOY2v6G + 8M2Lo+Xa/sZQg69XCMYwN2PfX48K+lxX9YlI7esb0rcEfa6rbZtX9YixdoxjqU9/HPrYvmtN9ISnvwz6 + noux5+xB1ae4XjcY70HU8PyQTzn8cPvZaBsEYZJVmPuRdcf6wWD866I+Hal9PWN7Utd1lw7Gchh1vtQn + Q7V9De3f2vsFYGq9BgAAAKCv2TwYMyxUn+BTj9Ro+xxKfRJBPVKk7XdIzwv6XbWXBOMc0l2DPodWn0T0 + 3qDvoT0j6HsqrwjGM6R677Z9cmJvDWo5lDsE/Q3llEWQqu1zDOtwhN3Y99edgj7X0YVHPuq0hhnOCPpd + V9s0r2roqF6/doxj+IOUy/mDMQzhAimXvwr6HFo9XrTtew7GnrOH8Y/BeA+ihn3bv30Yf9F+NtoGQYhk + amMcWfdfQdtQ/ih4DeugHhP36eD1jOW9Xdd9fTCOoVy067pXBP0OzVOdgJXqNQAAAAB9x2wc1GPZPhVs + AAzlW4PNijH8UtD3YdSNv3emXJ6/OCqv7W+VTk25fC4Y85AuHfQ7hnoUzIeC/of06qDfKdSN1yGfPhB5 + SNAvx3fJoI5DqsfNtX0O7R4jB1eOukXQ91xMcX/VudL2u47GPur0DUGf62qb5tXFUi7vD8Y3tPpeVY+v + bfsf2mmLYwHb/ofUBf2u2hRz9rBuH4x7v4b+UcNPtZ+NtkEQIJna0EfWvaTrursH7UN5R/Aa5u58Xde9 + IXgtY/nnrusuHoxjaBfuuu71Qf9D+pP2ngGYUq8BAAAA6Dtm4+BqwZf/QzpfsFkxhvpkp78N+j+Renxa + PVqvPr2kHgf33Ytf7NeNo7aPubhx8DqG9N9Bn2O6XTCGIb076HMK3xiMZWi3DPrl+OrTVNo6DuVNQX9j + +fGg/6G9KOh3Lsa+v+pTv9o+19XDg9c3pN8P+lxXY8+rut5o+1yVpwfjG8OPBH2PpYanPx+MYShfWATE + 2n5Xaew5O4Q3L55I2I59P/4++LuHccP2s9E2CMIjUxr6yLqzF08uumLwvw3pMsFrmbNHBa9hLH/Vdd1p + wRjGcpWu6z4XjGMoX6hPj2rvG4Cp9BoAAACAvmM2DsbeIJnyyQVflXI5OxhDdVbK5XUplz9JufziIuxw + rZTLeYO/M3c/F7y+If1R0OfY/i0Yx1D+J+hvCnWetWMZUp3rcw7kzdWjgloO5XFBf2P602AMQ7th0O8c + jH1/PSnoc129NHh9Q/rOoM91tS3z6lbB2MZQQ3Zt32Mb8z2+uk/Q5yqNPWeHcpjAWw1JfSb4mwdV/9Yp + 7WejbRAER6YyxpF1jzjm7380+N+HUp8Y1b6eubph13VfCl7DGP6x67pTgzGM7ReCsQzpHu19AzCVXgMA + AADQd8zmwZ2DDYAh3TvYsBhTDRq8POXy1EUgqB6dd8XFEX3tP7uunhvUeUg/GPQ5tl8JxjGUjwf9TeGF + wViGVOd52ycnNubRRvVIuba/MV124M3fyBOCfudg7PvrXkGf66gedTrmE26qrwj6XVfbMK9qwLs+Waod + 29D+OeVynqD/sdXQez1+uB3PUP4u6HOVxp6zQ/lwyuXLgvHvxQ2Cv3cY/9B+LtoWQWhkKkMfWffORXjq + 6N9/QfDPDOWxweuZo5O7rnttMP4x/OfiKLl2DFOo1/1jwZiG0rX3DcBUeg0AAABA3zGbB2MHnT7leK1B + 1SP6PhbUeUhXD/od2/2CcQzlbUF/Y6ubu2MHUH496Jfju2DK5ZyglkO5QtDn2MZ+esknUy6nBf2u0hT3 + Vz0Cq+13Hd0keG1DWtXRoGPYlnlVn6zTjmtode1XA0dt31N5RTCmodTg4PmDPldh6Dlbj3Nu24b0iOA1 + 7MVPBH/rMEr7uWhbBKGRKQx9ZF31LU0fDwv+maG8PnhNc/R9wdjHUI+Ou3rQ/5R+IxjXUF7W3jcAU+k1 + AAAAAH3HbB7cOtgAGMMfplyuF2xesD/XDGo7pI8EfU5hzCc6vTjob2xDP30gcoegX47vm4M6DuW9QX9T + uFIwlqHdLuh3lca+vz4Y9Lmu7h+8viE9PehzXW3DvKqhxQ8EYxvaTwd9T2nMNUV1s6DPVRh6zj5k5Kdh + 1WOkLx+8jhN5VvC3DuOb289F2yIIjIxtjCPrnh30c4fgnxtKDWmdEfQ5J/UIuTODsY/hR4P+p/a1wbgO + 4tNd17158USwJ3Zd95Cu667S3jcAU+k1AAAAAH3HbB7Upwu0GwBjen3K5eGLp0zU41PazQyO74eDmg7p + L4M+p1CPuGnHMpTHBP2N7SeDcQztYkG/HF8J6jiUZwb9TeW1wXiGtIp76HjGvr/+LOhzXf118PqGdJ+g + z3W1DfNqiqc5/dfiyMS27yndKRjXkGod2z5XYeg5W59K+JSgfUhd8DpO5F3B3zmo+lTH09vPRdsiCIyM + 7TFBuOQwajDlckE/lw7+2SG1T5Cam/sEYx7DKxZH5LX9T+2krus+EozvWF9cHHH4sq7rnt513a92Xfcj + Xdfdruu663Rdd5H2/gBYtV4DAAAA0HfM5sHJKZf/CTYCpvC5xdN2HpZyueMBf+W9bZ4W1HFIPxP0Obav + C8YxpLsHfY7t2cE4hvSmoE9O7B+CWg7lx4L+pvLIYDxDqgHVts9VGvv+qscktX2uo3rU6ceD1zekawf9 + rqtNn1d1PtQQUjuuod0l6HtqXx2Ma0iPDvpchSHnbF2T1zlyqZTLp4P/fUj1SVTta9nNpYN//zBe2X4m + 2iZBYGRM3xCETw7rp4J+jnpf8M8P5ZFBf3NRQz9DPzVrN18X9L8qT+667pVd1/1F13W/03Xdz3Rdd9eu + 627cdd1lokBWez8AzE2vAQAAAOhrNhH+PNgIWJW6KVvDCL+ZcvnulMu1Ui7nCTY+ttU7g5oNKQd9julC + i9BOO46hfCnlcvGg37HVI4rasQzpcUGfHN8pKZfPBLUcynWCPqdy52A8Q6pPwDhf0O+qjH1/fW3Q5zqq + //1sX9uQ6n+va1i67Xddbfq8ulUwpqG9eSZzov53vx3bkP426HMVhpyzrzzm7z4w+N+H9LLgtezm24N/ + /zB+u/1MtE3a4MeITl88TacNyhzG67quOyXo66jnBP/OUP456G8ubhuMdwx/FfS9Vtr7AWBueg0AAABA + X7OJUH99324EzMlZKZdXpFx+P+Vyz5TLVYONkG1w2aA2Q/rsIgzS9juWC6dcXhSMY0h/H/Q7tqsE4xja + +1Mur5uZekTW+YN6zMUNgzoOpT4Vb5Wb+9cIxjS0rwn6XYWx768ahtuUcG09Vq59fUN6XtDnutqGeVWP + 12zHNbQaUG/7XYV6NHI7tiHV/+a1fU5t6Dn7+GP+dv1v+djB+hpgal9T5NeCf/cw7tR+JtombfBjRL8X + BGUO49zFk3rafo71oODfG8oXuq47f9DnHPxpMN4x3Dzoe6209wPA3PQaAAAAgL5mE6GGW84MNgPm7KMp + l79JuTwg5XLjGWwgTqEewdbWYUj/GPQ5lvrkqE09Quf7gnFsi/rEkLYec/FTwXiHUt+L2v6mdMFgTEPb + 66b02Ma+v14Y9LmuuuD1Dan+97ftc12NPa/+LuhzSqeP/ES76sMpl1ODvlelHd+Q3h70N7Wh52wNRh77 + 9+8W/DNDqmvAGkhrX1frpcG/exiXbD8TbZM2+DGSMY6se3zQT+vWwb83pK8P+ly1C3ddd1Yw1qG9Juh7 + 7bT3A8Dc9BoAAACAvmAjoT4pqd0MWCefXDxd4idSLlcMXt8meGzwuof00KDPIZ2UcrlZyuVZKZdzg/6H + Vjcip3xC1VFPDsayDeo1PSOox1yMeURnPean7W9q9cl37biGdN+gz1UY+/56SNDnunpX8PqGdNOgz3W1 + 6fPqTsGYhvbrQb+rMnb4sx4Z1/Y5taHnbH3q4bF/v67Z/jn454Z0v+B1Hauu4erTRtt/76De2n4e2jZt + 8GMEYxxZ9+Gu6y4S9NW6aPDvDukXgj5X7e7BOMdw36DvtdPeDwBz02sAAAAA+oLNhLqh8eJgU2Bd/UfK + 5eEpl+sHr3Vd1aNS2tc5pG8O+jyoOp8uvdgIr08JeGrK5T1Bn2OqTztoxzWFtwZj2QZvDmoxJx8KxjyU + mwf9Te3jwbiGVII+V2Hs++sbgj7X0eWC1zakz6dczhf0u642fV49KRjT0L466HdVLhGMb0j1uNK2z6kN + OWe/uMv9fIORg+kfO0FAuh6Z2v47h/Hk9vPQtmmDHyMY+si66p5BP7t5W/DvD+UFQX+r9rRgnEP7Utd1 + lwz6Xjvt/QAwN70GAAAAoC/YTKgus/iVersxsO5q6Kk+jeRCwWteFxdOuXwpeG1DqkGVGqY6qP9ePEGk + His49lhP5DUpl5ODOo7tksFYtsUTg3rMxVWD8Q7lCymX8wd9Tq1uGLdjG9IcntYy9v1VN/svEPS7jsY+ + 6vSfgj7X1TbMq/rf53ZcQ6rHkLV9rtK1gzEOadVBp6Hn7KuDPo6qQfX2nx/SbwZ9HvUjwT9/GN/Xfh7a + Nm3wY2BjHFn34q7rTgr62s0zg78xlE92XXeeoM9V+kAwzqH9U9DvWmrvB4C56TUAAAAAfcFmwlH16IpP + B5sDm6BuTNWnktTQUPu65+62weshds7iKQRtDadw52A82+L7g3rMxQ8E4x1KPdqn7W8Vxn7ffnTQ59TG + vr9eHvS5rn4veH1D+tWgz3W16fPqUsGYhjaHIOSxxl4zvTvoc0pDz9l6NHLbx1H1RxCfCf6dodSw8FcF + /VZ/HPzzh3GV9vPQtmmDHwMa48i6s7uuu0bQ1/H8TPB3hnT9oM9VuVIwvjH8fND3flyn67rXrYFXd113 + rfaeAZhSrwEAAADoCzYTjnWzlMsngw2CTfHhRfChHq/Wvva5qsfwta+D2IOD+k3lt4PxbItrBPWYiz8M + xjuURwb9Te28wbiGdrynbkxl7PtrDq9xKK8PXt+Q/l/Q57ra9Hl1+2BMQ6vBorbfVapP8WzHOKT6pNC2 + zykNPWe/K+jjWA8J/p0h/WnQZzXk8Xz1ibW9z0PbJgihDGWMI+seHvRzIl8f/J0h3S/oc1W+MxjfGK4Z + 9L0ftWbt35yr327vGYAp9RoAAACAvmAzoXWdxTFk7UbBJvm7xZMO2tc+Ry8Nxk/fn6/oyLqjXhmMaRvU + Y9PmHBx8WzDmodwu6G9q9WkY7biGVp+G1/Y7tbHvrzsGfa6j+tTCc4PXN5T6t9fxyYi72fR59cBgTEOq + T1E8Peh3lR4XjHNILwr6nNLQc/aKQR/HOi3lcmbw7w3p65o+LxL8M4fx7Pp3289D2yYIoQxhjCPr/rvr + utOCvk7kgl3XfSn4e0P506DPVXlEML6hvSvod7/GPE5waHdp7xmAKfUaAAAAgL5gEyNy0ZTLXwSbBZvk + /Ss85myvTk25nBWMnWV14/ECQf2mUjd664ZvO65t8DdBPeZizGObauCjbsa2fU7tG4KxDe1+Qb9TmuL+ + ukTQ7zqqT1tqX9uQ6tOi2j7X1TbMq6cEYxrS64I+V+0VwTiHVI9Ua/ucytBz9kNBH5HvDP7dIf1rE5i+ + VfDPHMZP1L/bfh7aNkEI5bDGOLKu+n9BX3v1puDvDeWDQX+r8hfB+IZW/6/td7/ODP7uXF2ivWcAptRr + AAAAAPqCDYzjucsEv+Repc+kXL4xeN1zUX/l3o6ZZS9Yccip+uZgXNviQUE95qK+f7XjHcobg/5W4aeD + sQ3tbkG/Uxr7/npL0Oe6ekTw+ob0e0Gf62ob5lUNAbfjGtLTgz5Xqa4FhgwCRR4a9DuVoefsc4I+IjWE + VMNI7b8/pLse019dV7T/+2F8bf277eehbROEUA7rCUFY5LD+LOhnP/4w+JtDunLQ5yq8Jhjb0O4T9Lsf + lwv+5ly9qb1fAKbWawAAAAD6gg2ME6nHVvzk4glI7ebBJvhUyuVrgtc9Bz8fjJcdv51yOU9Qt6nVo73a + sW2LOQcFHx2Mdyh/EPS3CjVo0I5taDcK+p3S2PfXE4I+19XLgtc3pLsHfa6rbZhX/xmMa0j1aLy2z1Ua + OggUWWXwc+g5e/+gj93k4N8f0jsWTzGtff1l8L8fVP1Bw/+uE9vPQ9smCKIcxq2DsMhhfarrussGfe3H + jwV/d0jfF/S5Ch8Jxja0awf97sfdgr85V49r7xeAqfUaAAAAgL5g82Kv6gZE3eT8+5TLl4LNhHX27pTL + xYLXvGp/FYyVI6G7bw3qtSr/EIxxG9T3gXqUTluPuXhVMOahfFfQ39TqUzamCKB+WdD3lMa+v74n6HMd + 1f9Gfz54fUO6XNDvutqGeVWPJmvHNaR6pFnb5yrV8HM7xqFdI+h3KkPP2ZsHfRxPF/yNIf3Mop/3Bf/b + Qb3w6Pjbz0PbJgiiHNSXjXQk2U8Gfe3XDYO/O6SnBH2uwrnB2Ib0xa7rzhv0ux+/E/zdubp7e78ATK3X + AAAAAPQFGxcHccmUy4+kXF6ScvlisLGwjv44eJ2rVEMMHw/Guc2+kHL5zZTLhYN6rcopiycGtGPdBq8N + 6jEXNYA15hFGlw/6nNr1gnEN7Z1Bv1Oa4v66YtDvOrpp8NqG9K6gz3W1LfPqf4JxDemWQZ+rVJ8K1I5x + SJ9IuZwc9DuFoedsXbvXJ7a2/RxPDTp+LvhbQ6nz9auD9sP4xaPjbz8PbZsgiHJQTwyCIof12q7rTgn6 + 2q/zLUI67d8fytuCPqd2RjCuob0l6He//j34u3N1qfZ+AZharwEAAADoCzYuDqs+7ePbUy6PT7m8Pdhk + WCc3DF7fqlwrGN+2Oivl8jszCZe06pxpx7stfj+ox1zcKhjvUOoT4Nr+VuERwdiGVp/g0fY7pbHvr/pE + rLbPdfWA4PUNadVzYUhjH8M1l3nVjmtoVwv6XJV6BHE7vqE9L+h3KkO/F/570MdeDH18Xus/grbD+L/j + ddvPQ9smCKIcxBhH1tWnE90o6OugXhn0MaRLBX1O6RLBmIb2nKDf/bhA13XnBH93jt7a3isAq9BrAAAA + APqCTYuhXTrlcteUy2MWR0et0xOfnhO8nlW5TzC+bfOexabaxYP6zMVPB+Me2utm6tuCeszFLwd1HMrT + g/6mVp8qcmYwtqH9cND3lMa+v54V9LmuagijfX1Dqv9NavtcV9syr+pTENuxDekKQZ+rUtec7fiGdr+g + 36kMPWdrvdo+9uICKZf3Bn9vjupTHet4/3fs7eehbROEUfZrrCPr/iDo6zAeF/QxpLsEfU7pCsGYhlaf + 2tX2ux+3CP7mXD2pvVcAVqHXAAAAAPQFmxZjO1/K5QYpl3unXB6XcnnlBJtvB1U3RS4VvIZVqE/PaMe3 + DerRLHWT+FtTLucJ6jI3fxG8hiH9Z9AnJ/aioJZDmUPg4/bBuMbwFUHfUxr7/rpv0Oc6qsG3sY86rU8Z + bPtdV9syrz4WjG1IFwn6XIW6zvxoML6hrfI4wqHn7HcGfezVdwd/b45efuy4289D2yYIo+zXGEfWVfU4 + uNcN6P1BH0P6naA2U7p4MKah/WbQ7348MPibc3WP9l4BWIVeAwAAANAXbFiswnkXx4wcDT+9JuXypWCT + YhV+MBjvKrwrGNsm+nzK5V9TLr++CG/UDcu2FnP24eA1DekJQZ8c3ykpl88FtRzKtYM+p/ZPwbiGVp/I + 1/Y7tbHvr+sHfa6jOifb1zakGqI6Keh3XW3LvBp7HXFG0OcqfH8wtqG9Ouh3SkPP2cM8jau+F7wi+Jtz + 85vHjrv9PLRtgjDKfoxxZN26ek1QnymdFoxpaCXodz+eF/zNubpce68ArEKvAQAAAOgLNizm4vSUy61S + Lr+UcvnHFT716Y+DsU3tcsG4hlSPE2yPIRta/SX9S1Iuz108oenJizDTz6dc7pVy+aaUy1cunkTSvv51 + cbWgtkP7nqBfju9GQR2HUgMfq56z3xiMaww/FfQ9pbHvr0+uyVPj9mLso07/OuhzXW3TvKoh8nZ8Q7p8 + 0OcqvCEY29B+Muh3KkPP2Xr0XNvHft0k+Ltzc8djx9x+Hto2QRhlr8Y6sm5dfWlRk7ZOU6pjaMc1pMM8 + 0emkrus+FvzNOXpHe58ArEqvAQAAAOgLNivm6oKL48vqE20+FWxgjKVumLVjmdrdg3ENqT4Npu2T/fuB + oLZD+6qgX47vZ4I6DuV5QX9Tqk/SqE9aasc1tBo0vXjQ/5TGvr9eEPS5rp4evL4h3T/oc11t07z602B8 + Q6pP5mz7nNptg3ENrT558qJB31MZes4+M+jjIJ4R/O05ucSx420/D22bIJCyV2MdWbfObhvUaUpjH8/3 + J0Gfe3WV4O/N1VPb+wRgVXoNAAAAQF+wUbEOLpBy+emUy2eCjYyhfSLof2q/F4xrSL8a9Mn+/WFQ2yG9 + L+iTE/vLoJZDeUDQ35SG3vDezRyebDf2/fWgoM919e7g9Q2pPr2l7XNdbdO8emgwviF9e9DnlGrw89+D + cQ3tKUHfUxp6zv5Y0MdB1Cd6nRX8/Tl4Szve9vPQtgkCKXvhyLrYw4JaTeklwZiG9Iagz72qT3R6atd1 + rxvI/wTjG8q92vsEYFV6DQAAAEBf+8X/MS6Zcrl2yuU2i+Oy6ob+7yyOHatPAPqvlMulg39vSjdc/LK+ + 3dAYWtvv1F4fjGlI/y/ok/17W1DbIQ311IVt85GglkNZZeDjUimX/wnGNIZrBf1Pbez76xZBn+voK4LX + NqT639xTg37X1TbNq7sF4xvSLwd9TqkGrdoxDe3clMs1gr6nNPScvW7Qx0HVOdD+/Tl4YjvW9vPQtgkC + KSdyhiPrdvXSoF5TenwwpiGd23XdRYN+p3Z613UfDcY3lCu09wnAqvQaAAAAYNulXM6bcrlsyiUvjoH7 + 4ZRLSbk8LuXyVymXV6Rc3ptyOTvYJIjUpyq1mxxTe0wwrqG1fU7pwouNtXZMQ6l/u/bR9sv+1NBJW9uh + /XjQL8d39aCOQ1ll4KM+ueT5wZjG8OdB/1Mb+/6q/807Leh3HX1n8PqG9LKgz3W1bfPqcsEYh/TSoM+p + nG+EAFCkHs/W9j2loedsDcueHPRzUPWY6fcH/aza97ZjbT8jbZsgRHIi9ak8bTCEIz7fdd2pQc2mct9g + TEP74aDfqf1KMK6hvKe9RwBWqdcAAAAA22ixgVE3qj8cfPF/WGeucKP/qLsH4xrSp4I+p1SfttSOaUj1 + aVFtn+zfdwS1HdqQT13YFvcO6jiUVQY+Hh6MZwxfTLlcJeh/amPfX/8W9Lmufj94fUN6RNDnutrGefXW + YJxD+dIiiNP2OYV6BG87nqHV98MrB31Paeg5+zdBH4d1r6CfVbtSO87289K2CUIkx3O7IBjCspsGdZvK + 9YPxDO3Ni2Po2r6ncvVFoKwd11C69h4BWKVeAwAAAGyjxaZM+4X/kOqRdu0mx5TGDgK9M+hzSnVTuR3T + kH4v6JP9q8c6trUd0icHfurCtvijoJZDWUXgoz7J6aHBWMbyqGAMqzD2/fXrQZ/r6g3B6xvSJh11uo3z + qo6pHeeQVnF8XT1iecwnXx71G0HfUxt6zj4w6OOw6lrlVUFfq/KBYIy9z0vbJgiS7KYeWfe+IBjCsgcE + tZvKyV3XfTgY09C+P+h7Cufruu6VwXiG9IPtPQKwSr0GAAAA2FYjH+fxhZTLjdoNhAk9OBjTkP426HNK + 9akx7ZiGVJ+I1fbJ/r06qO2QVj0P19V/B7UcytSBjzNSLn8WjGMs7065nB6MYxXGvr/uEPS5juocGTPw + UZ/Ys0lHnW7jvLpOMM4hfTrlcpmg37HU11ODwO04hlafYHqhoP+pDT1nbx70MYSbBX2tyrOC8fU+K22b + IEyyG0fW7c3zgtpN6YnBmIb28a7rLh/0Pab6FKk/DsYytCu39wjAKvUaAAAAYFulXH47+OJ/SB9Z0bFa + dRP+vcF4hlSfntL2O5V6LODngzEN6bJBv+xPnYc1ANDWdkhjPHVh0106qONQaphkqsBHfTrGPRdPpWjH + Mab6lJR2LKswxf11saDfdfQtwWsb0uuCPtfVNs+rVwRjHdILUy7nCfod2tcs1p9t/2O4ddD/1Iaes3V9 + ef6gn6HUgFHb5yrcNxhb77PStgkCJRFH1u3dJxZPVmprOJWbB2Maw2u6rrtw0P8Yaj3/IBjD0D7Y3h8A + q9ZrAAAAgG21CCG1X/wPrf6K/27tRsKIzpdyeX4wjqF9fdD3VG4SjGdIqz6Wb1PUDdC2tkMb66kLm+yu + QR2H8vqgv6FdMOXy/SmXNwX9j62GY9vxrMrY91etb9vnuvrV4PUN6bFBn+tqm+fVdwTjHdrTUy7nDfoe + ynelXD4b9DuGucz7oefsPwd9DOkKE4T19+L6wdh6n5W2TRAqaTmybv+uE9RxKvXJR28MxjSGf+267uLB + GIZUw1R/FfQ9hme29wfAqvUaAAAAYJulXF4afPk/hr9KuVyz3VAY2LVGOL4j8q6Uy0lB/1O5fzCmIT0t + 6JP9++WgtkOqx0OO+dSFTfWYoJZDGWvj+8tTLvdKufxpyuVTQb9TePkiSNqObVXGvr8eF/S5rv4peH1D + 2qSjTrd5XtWnxNWnc7VjHlo9eveKQf+HcfmJj/Csa825vB8OPWcfGfQxtLHDlydS/zsaPl2s/Zy0bYJg + ScuRdfv3Y0Edp/S9wZjGcmbXdbcJxjCEO3Vd956gz7Hcp70/AFat1wAAAADbLOVy+2ADYCz1WKf6tKX6 + 1ID6VJLeBsMB1WNKnppyOSfocwwlGMOUnheMaUg/HPTJ/r0oqO2Qxn7qwqZ6TVDLoRwm8FGPpKyb9TdO + udwp5fKQlMuzUy5vD/qZ2vsXR/61Y16lse+vewR9rqMaxhj76SmbdNTpts+rbwzGPIazFk+IO2zg6Xop + lyekXM4O+hjLh1MuXxmMZVWGnrO3C/oY2oVSLh8M+p7KC4Ix/a/2c9K2CcIlxxrryLpPd133uhX6eDCm + IT0zqOWUztN13ZuCcY3pJV3X3b7ruvMG49mP83Vdd9eu614e9DG2q7f3B8Cq9RoAAABg26Vc/j7YBBhb + fRrNSxa/6v6elMvNUi6XaTccAvWfqf9sfbrJH6Rc3hb87TF9MuVy8WBcU6lPXPh4MK4hXSPol/05JeXy + uaC2Q6rzoD59Y93cN6jXVOrm6peCWg7lrcHr3U19Mlz1iZTL/wR/ay7qe1495rSt5SpNcX/V45XaftfR + TYPXNqRNOurUvDqiC8Y9plekXB62CN7X4NNuR9vVMOh1FoHS+mS++v7Z/q2x1dDgnI6MHXrO1h8knBH0 + M4Z6BGvb/1QeHIznf7WfkbZNEDQ5aswj6+oTh9r+pvTQYExDqnVr+5zaNwXjmsJHFkGvH+267uu7rrvk + 4ji9dnxHXbTrult2XffjXdc9q+u6TwR/cwp13Ce19wfAqvUaAAAAYNulXK6dcvlisBGwKnXT/wOLDdQa + ZDpz0Tb2Uyn24qfaTZGJ1WvVjmlIH13xsXyboj6Vp60tR7w3qNdUbhuMh93VDfQ5beofNfb9tco5OrQH + BK9vSJt01Kl5dcRFFmNtxz+l+tSkGmSqT7SrY6mBy/afmVoNyd45qNcqDT1n3xD0MZYa3B/zCYvHc8tg + PP+r/Yy0bYLgyVFjHVlXn/xzvODLFMZ6UtWxvirod2pPDsa1Cl/suu79Xde9q+u6/+y67u1d132467rP + B//sqjy7vTcA5qDXAAAAAPxv2OlBwUYAy/4t5XKedlNkYvcJxjWk5wZ9sn8/G9SWI54Z1Gsq9akh7XiI + 1WDBHENO1dj31yrn6NDqcbHt6xvSJh11al7tqAGaKY+Dm7sacvruoE6rNvSc/f2gjzF9fTCGsdV5fYFg + LP+r/Xy0bYJwTDVWEOjsruuuGfQ3tUsFYxva9wT9Tu30ruveEoyNvh9v7w2AOeg1AAAAAP8bdKq/rB57 + Q3SdfSTlcvl2Q2QFnh6MbUh106ztk/17TlBbjvjxoF5TqcdltuOhrz5R7wZB/eZi7Pvrx4I+11H973o9 + GrF9fUO6ZtDvujKvlt0zeA3bqIacfiCozxwMPWfrsYBtH2P7i2AcY6o/WmjH8H/az0fbJgjHXKzrug8E + QZAhPDzob1XODMY3pCcGfa7C1buu+2QwPpZ9dXtvAMxBrwEAAAA4IuXyZSmX1wabAtuuHt90k3YzZEXe + HYxvSPUpDm2f7E89+q8G49racsRXBzWbwqmLe7kdD8vqfwPmEOrczRT313WDftdRvdfa1zakj23QUafm + Vawe19u+jm1Sn/5zl6AuczDGnL1c0M/Yrphy+UIwlrH8ejCG/9N+Nto2QTDm6UEIZAjv6LrutKC/VfmL + YIxDqk9SavtclZt3Xfe5YIwc8fGu605u7w2AOeg1AAAAADtSLpdIubwh2BjYVjUY8Y3tRsiKfEUwviHV + 13reoF/25+pBbTni44unzLQ1m0IN8bXjYdnjUi7nD2o3J2PfX/+zwjk6tB8JXt+Q/iroc12NPa/qUZDr + Oq9+Mng92+DDi6PV2nrMxdBz9l1BH1P5tWA8Y7lD0P//aT8XbZsmEHPHIAQylG8JAjir9IBgjEO7RNDv + qnyjsNOuntPeFwBz0WsAAAAAlqVcLpxyeVGwObBt6i/lv67dBFmh7wzGOKQXB32yf/cOassRzw3qNZWf + C8bDER9MudwpqNkcjX1//U3Q57r6k+D1Denngz7XlXl1fPVIs7OC17WpXp1yuUJQhzkZes52QR9TqU+U + /VAwpjFcLOj//7SfibbNMUGYemTdB4MQyBCeHQRvVu1WwTiH9u1Bv6v0tSMeS7jOfrK9LwDmotcAAAAA + 9C2e7PNbKZdzg02CbfDKGW5y/X4wziH9StAn+/dHQW054meDek2lhqza8Wy7+v7+lBNt/M7M2PfXA4M+ + 19WZwesb0pyCwIdlXp3YDRdP/Wlf26b57cVRp+3rn5uh5+wPB31MaejgVuTNQb9L2s9D2+aYEMxYR9Z9 + uuu6ywWhm1W7cDDWoT0q6HfVLtN13T8HY11n9fX8StC+V1/T3hcAc9FrAAAAAPqO+dL/G1Iu7w42CzbV + l1IuD5vpEW5jHyl466BP9u+/g9pyRA7qNYWTUi4fDcazzf51hdfjMMa+v24e9LmOLh+8tiHVp/usQxhk + r8yrvblIyuVPg9e3Cd62Ztdp6Dl7zaCPKZ1ngnXu44N+l7Sfh7bNIvwy5pF1PxWEbebibcF4h/TKoM85 + OKXrugd1XfeFYMzr5re7rju167prB//bXnyy67rztPcFwFz0GgAAAIC+5ov/Cy3CP58LNg02yctnvPF/ + xshP16oBr9ODftmfSwe15YjPpFxOCWo2hWsE49lWr025fGtQo3Uw9v31hZTL+YN+19F3Ba9vSC8N+lxX + 5tX+3SXl8r7gta6jz6ZcfmHNrtHQc/Zji0Bw28/UvjEY25DuGfS5pP08tG1GPrLudYtQTRu0mYuxnmJ1 + 1Dld150e9DsXV++67t+Cca+DM7uuu/Uxr+Wkrus+FPxzJ/K89p4AmJNeAwAAANDXfvG/cNmUyx8snuTQ + bh6ss3q8T938mMMmz26+JRj3kF4d9Mn+3S2oLUe8MKjXVOqRPO14ts2LUi63nfn73ImMfX/9S9Dnuqr/ + rW5f35AeHvS5rsyrgzkagq8h1vY1r4MaQHv0IjTUvra5G3rO1qNd2z5W5TnB+IbyVUF/S9rPQ9tmxLDP + uV3X3TgI18xJfdpUO+6h3Srod05qQOi7uq57RzD2OTq767rf6LruQsFreWbwz5/Iz7b3BMCc9BoAAACA + vvaL/8YlUi6/lHL5QLCJsE5quKc+9WJVT5nZj18Nxj+k3wn6ZP9+N6gtRzw4qNdUnhaMZxvU9+hHLZ5o + 1dZkHY19fz0y6HNdvTF4fUOqobm2z3VlXh3Oly8CT+tyPOjHF2uqywSvZV0MPWd/LuhjVa6ccjk7GONh + vTfoq6f9PLRNRj6y7vFBEGVubhqMe2gPDfqdo3r8231nHHiqAafHdV13+WDsR90n+PdO5EbtfQEwJ70G + AAAAoK/94n8X51lsdv7JGv2i/0OLDaIbB69nzv4peC1DqsfQtH2yf/VYsLa2HHGLoF5TeWcwnk31tsVT + SuoRQPU9uq3FOhv7/rp90Oc6usgER51eOOh3XZlXwzgt5fIjKZdXBDVYtTpnX5xyucdinO3Y183Qc3Zu + a+LfCMZ4WM8M+ulpPw9ti5GPrPtw13UXCYIoc3PBruu+FIx/SC8K+p2zkxcBuDru+lSu9vVM7aNd1z3q + BAGno64S/PvH85l6tGJ7bwDMSa8BAAAA6Gu/+N+D86Vcbr14MtB/BhsMq1I3e1+Vcvm1Nd74r0+cGvu4 + wEsF/bI/F1xspra1JZfPp1zOH9RsCnVut+PZBLWmb0m5PG/xdJK7rukRTHs19v1V/1tx0aDfdVQDyO3r + G9Lrgj7XlXk1jiulXB6wWH+NWd/j+ezi/fE+KZdLBmNcV0PP2c+lXE4N+lmlM1IuHwnGehg/FvTT034e + 2hZd1/1qEPwYyj2DEMpcvSEY/5A+23XdeYJ+18Fluq77ma7rXj5x6KnW7Lld133H4klT7biO573B39vN + C9r7AmBueg0AAABAX/vF/wFcLOVyu8VxJs9ZPGVkyI2ZyDkpl7enXP4s5fKglMu3bNAG4y8vNpfH8LdB + fxxMfQpBW19y6YJaTenxi3H8V8rlXfv07pTL/xxADSK171FH1f/t2H+2HqVU+3rTIhjwkpTLX6dcnrF4 + Al099q9u1n9HyuUma37k0mGMeX/V/061/a2r+sSavwle41BWeQzlGMyrcdWnf9WnWv1myuVli/e79j1x + CP+dcvmLlMv9Uy43XQTw27FsiiHn7FODvz8H3xeM9TCuFfTR034e2hZd112v67rXjeAZXdedFARQ5uph + wWsY0i8Gfa6jiy6e9PS7Xde9uuu6zwXBoYP6dNd1/9R13W91XffNXdedL+h/r+r/tX9/Nw9o7wuAuek1 + AAAAAH3tF/8DqU90uUbK5TYplx9MufxiyuUxKZenLX51Xzf3/zXYnHjl4n+r6qbhkxebPA9MuXz/4klN + V0y5nDfoEwCA+ahPn/vmlMsPpFx+IeXye4uQ+j8s1np13XfsOrAe1Vbbn5ty+ePFUzp/OuVy55TL9VIu + pwd9wL61n4e2TRAUgb2oT6mqR8Xdqeu6+3Vd98iu6/6467q/67ruJV3XveKYsNerFm0vWAThfq3ruvt2 + XfftXdddbXFcXvv3D+ouQdhsNzds7weAuek1AAAAAAAAAAAAzE2vAQAAAAAAAAAAYG56DQAAAAAAAAAA + AHPTawAAAAAAAAAAAJibXgMAAAAAAAAAAMDc9BoAAAAAAAAAAADmptcAAAAAAAAAAAAwN70GAAAAAAAA + AACAuek1AAAAAAAAAAAAzE2vAQAAAAAAAAAAYG56DQAAAAAAAAAAAHPTawAAAAAAAAAAAJibXgMAAAAA + AAAAAMDc9BoAAAAAAAAAAADmptcAAAAAAAAAAAAwN70GAAAAAAAAAACAuek1AAAAAAAAAAAAzE2vAQAA + AAAAAAAAYG56DQAAAAAAAAAAAHPTawAAAAAAAAAAAJibXgMAAAAAAAAAAMDc/P/5yAybljUsJwAAAABJ + RU5ErkJggg== diff --git a/Aviso/frmLogin.vb b/Aviso/frmLogin.vb index d45356a..b4b6a0b 100644 --- a/Aviso/frmLogin.vb +++ b/Aviso/frmLogin.vb @@ -489,9 +489,18 @@ Public Class frmLogin VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME = "AVISO" VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = Application.ProductVersion 'My.Resources.Version2 VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGIN() - frmHauptfenster.Show() - frmHauptfenster.Visible = True - frmHauptfenster.WindowState = FormWindowState.Maximized + If VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN Then + + frmHauptfensterNew.Show() + frmHauptfensterNew.Visible = True + frmHauptfensterNew.WindowState = FormWindowState.Maximized + Else + + frmHauptfenster.Show() + frmHauptfenster.Visible = True + frmHauptfenster.WindowState = FormWindowState.Maximized + End If + cGlobal.AktiverMitarbeiter = ADMIN.cMitarbeiterAVISO 'Me.Close() Me.Hide() @@ -748,4 +757,9 @@ Public Class frmLogin Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click End Sub + + Private Sub NewLoginToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewLoginToolStripMenuItem.Click + VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN = True + btnOK.PerformClick() + End Sub End Class \ No newline at end of file diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 8fd7d52..a03af5e 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -2503,7 +2503,7 @@ Public Class frmSendungsdetailsNEU If Not isFailureShown Then VALIDATE_ME(False) - + sperrePanel() ' initOfferteDGV() End Sub @@ -3150,11 +3150,25 @@ Public Class frmSendungsdetailsNEU End Sub Sub sperrePanel() + txtFrachtfuehrer._UseFIRMA = "" + txtAvisierer._UseFIRMA = "" + txtAuftraggeber._UseFIRMA = "" + txtEmpfaenger._UseFIRMA = "" + txtAbsender._UseFIRMA = "" + + Dim sperren = False If cbxFremdspedition.Checked Then sperren = True ElseIf cboAbfertigungsart._value = "44" Then sperren = False + ElseIf cboAbfertigungsart._value = "23" Then + sperren = False + txtFrachtfuehrer._UseFIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value) + txtAvisierer._UseFIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value) + txtAuftraggeber._UseFIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value) + txtEmpfaenger._UseFIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value) + txtAbsender._UseFIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value) Else If cboFiliale._value <> "" Then Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA