diff --git a/Aviso/frmEintragAviso.designer.vb b/Aviso/AktenErfassung/frmEintragAviso.designer.vb similarity index 100% rename from Aviso/frmEintragAviso.designer.vb rename to Aviso/AktenErfassung/frmEintragAviso.designer.vb diff --git a/Aviso/frmEintragAviso.resx b/Aviso/AktenErfassung/frmEintragAviso.resx similarity index 100% rename from Aviso/frmEintragAviso.resx rename to Aviso/AktenErfassung/frmEintragAviso.resx diff --git a/Aviso/frmEintragAviso.vb b/Aviso/AktenErfassung/frmEintragAviso.vb similarity index 100% rename from Aviso/frmEintragAviso.vb rename to Aviso/AktenErfassung/frmEintragAviso.vb diff --git a/Aviso/frmEintragAvisoInfo.designer.vb b/Aviso/AktenErfassung/frmEintragAvisoInfo.designer.vb similarity index 100% rename from Aviso/frmEintragAvisoInfo.designer.vb rename to Aviso/AktenErfassung/frmEintragAvisoInfo.designer.vb diff --git a/Aviso/frmEintragAvisoInfo.resx b/Aviso/AktenErfassung/frmEintragAvisoInfo.resx similarity index 100% rename from Aviso/frmEintragAvisoInfo.resx rename to Aviso/AktenErfassung/frmEintragAvisoInfo.resx diff --git a/Aviso/frmEintragAvisoInfo.vb b/Aviso/AktenErfassung/frmEintragAvisoInfo.vb similarity index 100% rename from Aviso/frmEintragAvisoInfo.vb rename to Aviso/AktenErfassung/frmEintragAvisoInfo.vb diff --git a/Aviso/AktenErfassung/frmEintragSammelakt.designer.vb b/Aviso/AktenErfassung/frmEintragSammelakt.designer.vb new file mode 100644 index 0000000..4223f48 --- /dev/null +++ b/Aviso/AktenErfassung/frmEintragSammelakt.designer.vb @@ -0,0 +1,532 @@ + +Partial Class frmEintragSammelakt + 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(frmEintragSammelakt)) + Me.btnOK = New System.Windows.Forms.Button() + Me.lblErfAm = New System.Windows.Forms.Label() + Me.btnAbbruch = New System.Windows.Forms.Button() + Me.txtInfo = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.lblLkwKennzeichen = New System.Windows.Forms.Label() + Me.txtÄnderungen = New System.Windows.Forms.TextBox() + Me.lblAenderungen = New System.Windows.Forms.Label() + Me.dtpDatum = New System.Windows.Forms.DateTimePicker() + Me.txtLKW_Nr = New System.Windows.Forms.TextBox() + Me.lblStatus = New System.Windows.Forms.Label() + Me.lblStatus2 = New System.Windows.Forms.Label() + Me.lblAktenuebersicht = New System.Windows.Forms.Label() + Me.grpAviso = New System.Windows.Forms.GroupBox() + Me.lblErr_Kunde = New System.Windows.Forms.Label() + Me.lblErr_Aktentyp = New System.Windows.Forms.Label() + Me.lblErr_LKW = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.kdAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnPfad = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.btnAuftraggeber = New System.Windows.Forms.Button() + Me.lblErrFmZollKdNr = New System.Windows.Forms.Label() + Me.Button3 = New System.Windows.Forms.Button() + Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.lblErrErfasstDat = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.grpAviso.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'btnOK + ' + Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnOK.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnOK.Location = New System.Drawing.Point(21, 489) + Me.btnOK.Name = "btnOK" + Me.btnOK.Size = New System.Drawing.Size(271, 45) + Me.btnOK.TabIndex = 24 + Me.btnOK.Text = "OK" + Me.btnOK.UseVisualStyleBackColor = True + ' + 'lblErfAm + ' + Me.lblErfAm.AutoSize = True + Me.lblErfAm.Location = New System.Drawing.Point(220, 12) + Me.lblErfAm.Name = "lblErfAm" + Me.lblErfAm.Size = New System.Drawing.Size(59, 13) + Me.lblErfAm.TabIndex = 2 + Me.lblErfAm.Text = "Erfasst am:" + ' + 'btnAbbruch + ' + Me.btnAbbruch.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAbbruch.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnAbbruch.Location = New System.Drawing.Point(298, 489) + Me.btnAbbruch.Name = "btnAbbruch" + Me.btnAbbruch.Size = New System.Drawing.Size(111, 45) + Me.btnAbbruch.TabIndex = 27 + Me.btnAbbruch.Text = "Abbruch" + Me.btnAbbruch.UseVisualStyleBackColor = True + ' + 'txtInfo + ' + Me.txtInfo.AcceptsReturn = True + Me.txtInfo.Location = New System.Drawing.Point(424, 356) + Me.txtInfo.MaxLength = 240 + Me.txtInfo.Multiline = True + Me.txtInfo.Name = "txtInfo" + Me.txtInfo.ScrollBars = System.Windows.Forms.ScrollBars.Vertical + Me.txtInfo.Size = New System.Drawing.Size(360, 75) + Me.txtInfo.TabIndex = 25 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(421, 340) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(25, 13) + Me.Label3.TabIndex = 21 + Me.Label3.Text = "Info" + ' + 'lblLkwKennzeichen + ' + Me.lblLkwKennzeichen.AutoSize = True + Me.lblLkwKennzeichen.Location = New System.Drawing.Point(6, 77) + Me.lblLkwKennzeichen.Name = "lblLkwKennzeichen" + Me.lblLkwKennzeichen.Size = New System.Drawing.Size(96, 13) + Me.lblLkwKennzeichen.TabIndex = 11 + Me.lblLkwKennzeichen.Text = "Aktenbezeichnung" + ' + 'txtÄnderungen + ' + Me.txtÄnderungen.AcceptsReturn = True + Me.txtÄnderungen.BackColor = System.Drawing.SystemColors.Info + Me.txtÄnderungen.ForeColor = System.Drawing.SystemColors.InfoText + Me.txtÄnderungen.Location = New System.Drawing.Point(424, 466) + Me.txtÄnderungen.MaxLength = 0 + Me.txtÄnderungen.Multiline = True + Me.txtÄnderungen.Name = "txtÄnderungen" + Me.txtÄnderungen.ReadOnly = True + Me.txtÄnderungen.ScrollBars = System.Windows.Forms.ScrollBars.Vertical + Me.txtÄnderungen.Size = New System.Drawing.Size(360, 68) + Me.txtÄnderungen.TabIndex = 13 + Me.txtÄnderungen.TabStop = False + ' + 'lblAenderungen + ' + Me.lblAenderungen.AutoSize = True + Me.lblAenderungen.Location = New System.Drawing.Point(421, 450) + Me.lblAenderungen.Name = "lblAenderungen" + Me.lblAenderungen.Size = New System.Drawing.Size(65, 13) + Me.lblAenderungen.TabIndex = 12 + Me.lblAenderungen.Text = "Änderungen" + ' + 'dtpDatum + ' + Me.dtpDatum.CustomFormat = "dd.MM.yyyy HH:mm" + Me.dtpDatum.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.dtpDatum.Location = New System.Drawing.Point(285, 7) + Me.dtpDatum.Name = "dtpDatum" + Me.dtpDatum.Size = New System.Drawing.Size(130, 20) + Me.dtpDatum.TabIndex = 0 + ' + 'txtLKW_Nr + ' + Me.txtLKW_Nr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtLKW_Nr.Location = New System.Drawing.Point(108, 69) + Me.txtLKW_Nr.MaxLength = 30 + Me.txtLKW_Nr.Name = "txtLKW_Nr" + Me.txtLKW_Nr.Size = New System.Drawing.Size(289, 26) + Me.txtLKW_Nr.TabIndex = 15 + ' + 'lblStatus + ' + Me.lblStatus.BackColor = System.Drawing.Color.LemonChiffon + Me.lblStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblStatus.ForeColor = System.Drawing.Color.Green + Me.lblStatus.Location = New System.Drawing.Point(516, 7) + Me.lblStatus.Name = "lblStatus" + Me.lblStatus.Size = New System.Drawing.Size(268, 20) + Me.lblStatus.TabIndex = 4 + Me.lblStatus.Text = "freigegeben" + ' + 'lblStatus2 + ' + Me.lblStatus2.AutoSize = True + Me.lblStatus2.Location = New System.Drawing.Point(430, 12) + Me.lblStatus2.Name = "lblStatus2" + Me.lblStatus2.Size = New System.Drawing.Size(80, 13) + Me.lblStatus2.TabIndex = 3 + Me.lblStatus2.Text = "aktueller Status" + ' + 'lblAktenuebersicht + ' + Me.lblAktenuebersicht.AutoSize = True + Me.lblAktenuebersicht.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAktenuebersicht.Location = New System.Drawing.Point(12, 11) + Me.lblAktenuebersicht.Name = "lblAktenuebersicht" + Me.lblAktenuebersicht.Size = New System.Drawing.Size(130, 20) + Me.lblAktenuebersicht.TabIndex = 1 + Me.lblAktenuebersicht.Text = "Aktenübersicht" + ' + 'grpAviso + ' + Me.grpAviso.Controls.Add(Me.lblErr_Kunde) + Me.grpAviso.Controls.Add(Me.lblErr_Aktentyp) + Me.grpAviso.Controls.Add(Me.lblErr_LKW) + Me.grpAviso.Controls.Add(Me.Label5) + Me.grpAviso.Controls.Add(Me.Label4) + Me.grpAviso.Controls.Add(Me.Label1) + Me.grpAviso.Controls.Add(Me.MyComboBox1) + Me.grpAviso.Controls.Add(Me.PictureBox1) + Me.grpAviso.Controls.Add(Me.kdAuftraggeber) + Me.grpAviso.Controls.Add(Me.dgvAnhaenge) + Me.grpAviso.Controls.Add(Me.txtLKW_Nr) + Me.grpAviso.Controls.Add(Me.btnAuftraggeber) + Me.grpAviso.Controls.Add(Me.lblLkwKennzeichen) + Me.grpAviso.Location = New System.Drawing.Point(12, 49) + Me.grpAviso.Name = "grpAviso" + Me.grpAviso.Size = New System.Drawing.Size(403, 434) + Me.grpAviso.TabIndex = 7 + Me.grpAviso.TabStop = False + Me.grpAviso.Text = "CBAM" + ' + 'lblErr_Kunde + ' + Me.lblErr_Kunde.AutoSize = True + Me.lblErr_Kunde.ForeColor = System.Drawing.Color.Red + Me.lblErr_Kunde.Location = New System.Drawing.Point(105, 124) + Me.lblErr_Kunde.Name = "lblErr_Kunde" + Me.lblErr_Kunde.Size = New System.Drawing.Size(130, 13) + Me.lblErr_Kunde.TabIndex = 61 + Me.lblErr_Kunde.Text = "Kunde darf nicht leer sein!" + Me.lblErr_Kunde.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.lblErr_Kunde.Visible = False + ' + 'lblErr_Aktentyp + ' + Me.lblErr_Aktentyp.AutoSize = True + Me.lblErr_Aktentyp.ForeColor = System.Drawing.Color.Red + Me.lblErr_Aktentyp.Location = New System.Drawing.Point(105, 13) + Me.lblErr_Aktentyp.Name = "lblErr_Aktentyp" + Me.lblErr_Aktentyp.Size = New System.Drawing.Size(141, 13) + Me.lblErr_Aktentyp.TabIndex = 60 + Me.lblErr_Aktentyp.Text = "Aktentyp darf nicht leer sein!" + Me.lblErr_Aktentyp.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.lblErr_Aktentyp.Visible = False + ' + 'lblErr_LKW + ' + Me.lblErr_LKW.AutoSize = True + Me.lblErr_LKW.ForeColor = System.Drawing.Color.Red + Me.lblErr_LKW.Location = New System.Drawing.Point(105, 58) + Me.lblErr_LKW.Name = "lblErr_LKW" + Me.lblErr_LKW.Size = New System.Drawing.Size(188, 13) + Me.lblErr_LKW.TabIndex = 54 + Me.lblErr_LKW.Text = "Aktenbezeichnung darf nicht leer sein!" + Me.lblErr_LKW.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.lblErr_LKW.Visible = False + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(6, 132) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(53, 13) + Me.Label5.TabIndex = 59 + Me.Label5.Text = "Anhänge:" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(6, 35) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(59, 13) + Me.Label4.TabIndex = 58 + Me.Label4.Text = "Akten-Typ:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(6, 104) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(41, 13) + Me.Label1.TabIndex = 57 + Me.Label1.Text = "Kunde:" + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(108, 27) + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(198, 28) + Me.MyComboBox1.TabIndex = 56 + ' + 'PictureBox1 + ' + Me.PictureBox1.BackgroundImage = Global.AVISO.My.Resources.Resources.cbam_s + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox1.Location = New System.Drawing.Point(312, 9) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(85, 58) + Me.PictureBox1.TabIndex = 48 + Me.PictureBox1.TabStop = False + ' + 'kdAuftraggeber + ' + Me.kdAuftraggeber._AlleFirmenCLUSTER = False + Me.kdAuftraggeber._AllowSetValue = True + Me.kdAuftraggeber._autoSizeGross = False + Me.kdAuftraggeber._display_Name1 = False + Me.kdAuftraggeber._displayAVISO_Email = True + Me.kdAuftraggeber._displayFullName = False + Me.kdAuftraggeber._displayWoelflKd = False + Me.kdAuftraggeber._hideIfListEmpty = True + Me.kdAuftraggeber._loadKdData = False + Me.kdAuftraggeber._searchName1 = True + Me.kdAuftraggeber._UseFIRMA = "" + Me.kdAuftraggeber._ValueKdAndName = True + Me.kdAuftraggeber.dgvpos = "LEFT" + Me.kdAuftraggeber.KdName = "" + Me.kdAuftraggeber.KdNr = "-1" + Me.kdAuftraggeber.kdNrField = Nothing + Me.kdAuftraggeber.KdNrNullInt = Nothing + Me.kdAuftraggeber.Location = New System.Drawing.Point(108, 101) + Me.kdAuftraggeber.Name = "kdAuftraggeber" + Me.kdAuftraggeber.nurAktive = False + Me.kdAuftraggeber.searchActive = True + Me.kdAuftraggeber.Size = New System.Drawing.Size(258, 20) + Me.kdAuftraggeber.TabIndex = 42 + Me.kdAuftraggeber.TIMER_SEARCH = True + Me.kdAuftraggeber.usrcntl = Nothing + ' + 'dgvAnhaenge + ' + Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvAnhaenge.AllowUserToAddRows = False + Me.dgvAnhaenge.AllowUserToDeleteRows = False + Me.dgvAnhaenge.AllowUserToResizeColumns = False + Me.dgvAnhaenge.AllowUserToResizeRows = False + Me.dgvAnhaenge.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White + Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvAnhaenge.ColumnHeadersVisible = False + Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName, Me.clmnPfad}) + Me.dgvAnhaenge.Location = New System.Drawing.Point(9, 148) + Me.dgvAnhaenge.Name = "dgvAnhaenge" + Me.dgvAnhaenge.ReadOnly = True + Me.dgvAnhaenge.RowHeadersVisible = False + Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvAnhaenge.Size = New System.Drawing.Size(388, 286) + Me.dgvAnhaenge.TabIndex = 17 + ' + 'columnName + ' + Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.columnName.HeaderText = "Name" + Me.columnName.Name = "columnName" + Me.columnName.ReadOnly = True + ' + 'clmnPfad + ' + Me.clmnPfad.HeaderText = "Pfad" + Me.clmnPfad.Name = "clmnPfad" + Me.clmnPfad.ReadOnly = True + Me.clmnPfad.Visible = False + ' + 'btnAuftraggeber + ' + Me.btnAuftraggeber.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnAuftraggeber.Enabled = False + Me.btnAuftraggeber.FlatAppearance.BorderSize = 0 + Me.btnAuftraggeber.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAuftraggeber.Image = CType(resources.GetObject("btnAuftraggeber.Image"), System.Drawing.Image) + Me.btnAuftraggeber.Location = New System.Drawing.Point(372, 97) + Me.btnAuftraggeber.Name = "btnAuftraggeber" + Me.btnAuftraggeber.Size = New System.Drawing.Size(25, 24) + Me.btnAuftraggeber.TabIndex = 43 + Me.btnAuftraggeber.TabStop = False + Me.btnAuftraggeber.Tag = "Kunde hinzufügen" + Me.btnAuftraggeber.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnAuftraggeber.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText + Me.btnAuftraggeber.UseVisualStyleBackColor = True + ' + 'lblErrFmZollKdNr + ' + Me.lblErrFmZollKdNr.AutoSize = True + Me.lblErrFmZollKdNr.ForeColor = System.Drawing.Color.Red + Me.lblErrFmZollKdNr.Location = New System.Drawing.Point(591, 372) + Me.lblErrFmZollKdNr.Name = "lblErrFmZollKdNr" + Me.lblErrFmZollKdNr.Size = New System.Drawing.Size(156, 26) + Me.lblErrFmZollKdNr.TabIndex = 26 + Me.lblErrFmZollKdNr.Text = "Wenn möglich bitte die FM-Zoll " & Global.Microsoft.VisualBasic.ChrW(10) & "Zuordnung mit KdNr eintragen!" + Me.lblErrFmZollKdNr.Visible = False + ' + 'Button3 + ' + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button3.Location = New System.Drawing.Point(424, 49) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(359, 37) + Me.Button3.TabIndex = 11 + Me.Button3.Text = "Weiter zu den Unterakten" + Me.Button3.UseVisualStyleBackColor = True + ' + 'cboFirma + ' + Me.cboFirma._allowedValuesFreiText = Nothing + Me.cboFirma._allowFreiText = False + Me.cboFirma._value = "" + Me.cboFirma.FormattingEnabled = True + Me.cboFirma.Location = New System.Drawing.Point(285, 28) + Me.cboFirma.Name = "cboFirma" + Me.cboFirma.Size = New System.Drawing.Size(130, 21) + Me.cboFirma.TabIndex = 6 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(220, 31) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(43, 13) + Me.Label2.TabIndex = 5 + Me.Label2.Text = "FIRMA:" + ' + 'lblErrErfasstDat + ' + Me.lblErrErfasstDat.AutoSize = True + Me.lblErrErfasstDat.ForeColor = System.Drawing.Color.Red + Me.lblErrErfasstDat.Location = New System.Drawing.Point(139, 5) + Me.lblErrErfasstDat.Name = "lblErrErfasstDat" + Me.lblErrErfasstDat.Size = New System.Drawing.Size(85, 26) + Me.lblErrErfasstDat.TabIndex = 52 + Me.lblErrErfasstDat.Text = "Darf nicht in der " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Zukunft liegen!" + Me.lblErrErfasstDat.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.lblErrErfasstDat.Visible = False + ' + 'Label12 + ' + Me.Label12.BackColor = System.Drawing.Color.Transparent + Me.Label12.Location = New System.Drawing.Point(421, 432) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(372, 18) + Me.Label12.TabIndex = 29 + Me.Label12.Text = "Achtung: im Feld Info nur allgemeine Infos erfassen. " + ' + 'Panel1 + ' + Me.Panel1.Location = New System.Drawing.Point(424, 92) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(358, 245) + Me.Panel1.TabIndex = 53 + ' + 'frmEintragAvisoCBAM + ' + Me.AcceptButton = Me.btnOK + 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(792, 564) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.cboFirma) + Me.Controls.Add(Me.Button3) + Me.Controls.Add(Me.grpAviso) + Me.Controls.Add(Me.lblAktenuebersicht) + Me.Controls.Add(Me.lblStatus) + Me.Controls.Add(Me.lblStatus2) + Me.Controls.Add(Me.lblErfAm) + Me.Controls.Add(Me.txtÄnderungen) + Me.Controls.Add(Me.dtpDatum) + Me.Controls.Add(Me.btnAbbruch) + Me.Controls.Add(Me.lblAenderungen) + Me.Controls.Add(Me.btnOK) + Me.Controls.Add(Me.txtInfo) + Me.Controls.Add(Me.lblErrFmZollKdNr) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Label12) + Me.Controls.Add(Me.lblErrErfasstDat) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.KeyPreview = True + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmEintragAvisoCBAM" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Sammelaktakt erfassen/bearbeiten" + Me.grpAviso.ResumeLayout(False) + Me.grpAviso.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents btnOK As System.Windows.Forms.Button + Friend WithEvents lblErfAm As System.Windows.Forms.Label + Friend WithEvents btnAbbruch As System.Windows.Forms.Button + Friend WithEvents txtInfo As System.Windows.Forms.TextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents lblLkwKennzeichen As System.Windows.Forms.Label + Friend WithEvents txtÄnderungen As System.Windows.Forms.TextBox + Friend WithEvents lblAenderungen As System.Windows.Forms.Label + Friend WithEvents txtLKW_Nr As System.Windows.Forms.TextBox + Friend WithEvents txtDatum As System.Windows.Forms.TextBox + Friend WithEvents lblStatus As System.Windows.Forms.Label + Friend WithEvents lblStatus2 As System.Windows.Forms.Label + Friend WithEvents dtpDatum As System.Windows.Forms.DateTimePicker + Friend WithEvents lblAktenuebersicht As System.Windows.Forms.Label + Friend WithEvents grpAviso As System.Windows.Forms.GroupBox + Friend WithEvents lblErrFmZollKdNr As System.Windows.Forms.Label + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents btnAuftraggeber As System.Windows.Forms.Button + Friend WithEvents kdAuftraggeber As VERAG_PROG_ALLGEMEIN.KdSearchBox + Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents columnName As DataGridViewTextBoxColumn + Friend WithEvents clmnPfad As DataGridViewTextBoxColumn + Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label2 As Label + Friend WithEvents lblErrErfasstDat As Label + Friend WithEvents Label4 As Label + Friend WithEvents Label1 As Label + Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents PictureBox1 As PictureBox + Friend WithEvents Label12 As Label + Friend WithEvents Label5 As Label + Friend WithEvents Panel1 As Panel + Friend WithEvents lblErr_Kunde As Label + Friend WithEvents lblErr_Aktentyp As Label + Friend WithEvents lblErr_LKW As Label +End Class diff --git a/Aviso/AktenErfassung/frmEintragSammelakt.resx b/Aviso/AktenErfassung/frmEintragSammelakt.resx new file mode 100644 index 0000000..d3a3364 --- /dev/null +++ b/Aviso/AktenErfassung/frmEintragSammelakt.resx @@ -0,0 +1,1277 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + True + + + True + + + + + /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 + + + + + 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/AktenErfassung/frmEintragSammelakt.vb b/Aviso/AktenErfassung/frmEintragSammelakt.vb new file mode 100644 index 0000000..ee0a7af --- /dev/null +++ b/Aviso/AktenErfassung/frmEintragSammelakt.vb @@ -0,0 +1,597 @@ +Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO + +Public Class frmEintragSammelakt + ' Public frmHilf As frmMain + + Dim Firmen As New cFirmenDAL + Dim AvisoDAL As New cAvisoDAL + Dim myAviso As New cAviso + Dim AVISOFUNC As New AvisoStatusFunctions + Dim ADMIN As New cADMIN + Dim hÄnderung As Boolean = False + Dim Neuanlage As Boolean = False + Public EingangsDatum As Date = CDate("01.01.1990") + + Dim hStatus As Integer + Dim showSendungsdetails As Boolean = False + Dim hAdresse As String = "" + Dim hCC As String = "" + Public aktiv As Boolean = False + + Public ATT As List(Of String) + Dim PROG As New cProgramFunctions + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + + Public FIRMA_TMP As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + Public Sub New() + InitializeComponent() + Icon = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.GetProgrammIcon + End Sub + + + + Private Sub frmEintragAviso_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + 'Escape händisch abfangen und auf Abbruch-Taste legen + If e.KeyCode = Keys.Escape Then + btnAbbruch.PerformClick() + End If + If e.KeyCode = Keys.Return Then + e.Handled = True + End If + End Sub + + Sub initAttachment() + If ATT Is Nothing Then dgvAnhaenge.Visible = False : Exit Sub + dgvAnhaenge.Rows.Clear() + If ATT.Count = 0 Then + ' btnSaveAttachments.Enabled = False + Else + dgvAnhaenge.Visible = True + + For Each a In ATT + Dim display = a + If a.Contains("\") Then + Dim sp = a.Split("\") + display = sp(sp.Count - 1) + End If + dgvAnhaenge.Rows.Add({display, a}) + Next + End If + dgvAnhaenge.ClearSelection() + End Sub + + + Private Sub frmEintragAviso_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load + 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then + ' MsgBox("Keine Berechtigung!") + ' Me.Close() + 'End If + + + Me.CenterToParent() + btnOK.Enabled = False + kdAuftraggeber.initKdBox(Me) + + MyComboBox1.Items.Clear() + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM", "CBAM")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EUDR", "EUDR")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FGAS", "FGAS")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZOLLBERATUNG", "COMPLIANCE")) + MyComboBox1.changeItem("") + + + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + ATILLA_NEUERAKTENDECKEL = True + End If + + ' SDL.cProgramFunctions.initDrucker(cboPrinter) + + + cboFirma.Items.Clear() + cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG")) + cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX")) + cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED")) + cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR")) + cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA")) + cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE")) + cboFirma.changeItem(FIRMA_TMP) + cboFirma.Enabled = False + + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then + cboFirma.Enabled = True + End If + + + + AddHandler kdAuftraggeber.PropertyChanged, Sub() + If kdAuftraggeber.KdNr_value > 0 Then + btnAuftraggeber.Enabled = True + Else + btnAuftraggeber.Enabled = False + End If + End Sub + + + + btnOK.Enabled = True + + + + Dim bearb As Boolean = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me.FindForm) + + If cGlobal.Aktive_ID = 0 Then + 'es erfolgt eine Neuanlage + Neuanlage = True + Me.Text = "Neuanlage LKW-Aviso" + dtpDatum.Value = Now + If Not bearb Then dtpDatum.Enabled = False + + txtÄnderungen.Text = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter + lblStatus.Text = "Neuanlage" + + kdAuftraggeber.Text = "" + + + Else + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then + Me.Close() + End If + + + Me.Text = "Änderung LKW-Aviso" + 'If myAviso.Status = cGlobal.Status_Ankunft Or myAviso.Status = cGlobal.Status_Freigegeben Then datVoraussichtlichesEintreffen.Visible = False + + 'txtInfo.Visible = False + 'Label3.Visible = False + ''ausgewählter Datensatz wird geladen + 'Button3.Visible = False + + myAviso = AvisoDAL.LesenAviso(cGlobal.Aktive_ID, "") + + 'Werte(zuweisen) + dtpDatum.Value = myAviso.Datum + If Not bearb Then dtpDatum.Enabled = False + + If myAviso.Auftraggeber_KdNr > 0 Then + kdAuftraggeber.KdNr = myAviso.Auftraggeber_KdNr + Else + kdAuftraggeber.Text = myAviso.Auftraggeber + End If + + txtInfo.Text = myAviso.Info.Trim + txtLKW_Nr.Text = myAviso.LKW_Nr + + + txtÄnderungen.Text = myAviso.Änderungen.Trim + + hStatus = myAviso.Status + + If myAviso.Status <> cGlobal.Status_Erfasst Then txtInfo.Enabled = False + + 'optOhneAviso.Checked = txtÄnderungen.Text.Contains("Neuanlage Ankunft ohne Aviso") + + 'Status anzeigen + + Select Case hStatus + Case cGlobal.Status_Ankunft + lblStatus.Text = "Ankunft" + If myAviso.Ankunft <> LeerDatum Then lblStatus.Text += " " & Format(myAviso.Ankunft, "dd.MM. HH:mm") + lblStatus.ForeColor = Color.Blue + Case cGlobal.Status_Erfasst + lblStatus.Text = "erfasst" + lblStatus.ForeColor = Color.Red + Case cGlobal.Status_Freigegeben + lblStatus.Text = "Freigabe " & Format(myAviso.Freigabe, "dd.MM. HH:mm") + lblStatus.ForeColor = Color.Green + btnOK.Enabled = bearb + Case cGlobal.Status_NichtEingetroffen + lblStatus.Text = "LKW nicht eingetroffen" + lblStatus.ForeColor = Color.DarkGray + btnOK.Enabled = bearb + Case cGlobal.Status_Vorbereitet + lblStatus.Text = "Vorbereitet" + lblStatus.ForeColor = Color.Brown + btnOK.Enabled = bearb + Case cGlobal.Status_Vorgeschrieben + lblStatus.Text = "Vorgeschrieben" + lblStatus.ForeColor = Color.Purple + btnOK.Enabled = bearb + Case Else + lblStatus.Text = "" + End Select + lblStatus.Text = " " & lblStatus.Text & " " 'für bessere farbliche Hervorhebung + cboFirma.changeItem("") + cboFirma.changeItem(myAviso.FIRMA) + + + + + End If + + If bearb Then Me.Text += " (Verwaltung)" + + hÄnderung = False + + dtpDatum.Enabled = bearb 'nur Administrator darf Erfassungsdatum ändern/bearbeiten + 'If Neuanlage Then + ' dtpAvisoEingangDatum.Value = Now.Date + ' dtpAvisoEingangZeit.Value = LeerDatum + 'Else + ' dtpAvisoEingangDatum.Enabled = bearb + ' dtpAvisoEingangZeit.Enabled = bearb + 'End If + + + initAttachment() + + End Sub + + Private Sub dgvAnhaenge_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvAnhaenge.KeyDown + If e.KeyCode = Keys.Delete Then + + If dgvAnhaenge.SelectedRows.Count > 0 Then + For Each row In dgvAnhaenge.SelectedRows.Cast(Of DataGridViewRow)().OrderByDescending(Function(dgvr) dgvr.Index) + ATT.RemoveAt(row.Index) + Next + + 'ATT.RemoveAt(dgvAnhaenge.SelectedRows(0).Index) 'Inex-Rows = Index-Att + initAttachment() + End If + End If + End Sub + + Private Sub btnAbbruch_Click(sender As System.Object, e As System.EventArgs) Handles btnAbbruch.Click + Me.Close() + End Sub + + Private Sub txtFeld_GotFocus(sender As Object, e As System.EventArgs) Handles txtLKW_Nr.GotFocus + CType(sender, TextBox).SelectAll() + End Sub + + Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click + Try + + + If Not aktiv Then Exit Sub + + + lblErrErfasstDat.Visible = False + lblErr_Aktentyp.Visible = False + lblErr_Kunde.Visible = False + lblErr_LKW.Visible = False + + If FIRMA_TMP = "VERIMEX" Then + If cboFirma._value = "" Then + MsgBox("Firma auswählen!", vbInformation) + cboFirma.Focus() + Exit Sub + + End If + End If + + + If dtpDatum.Enabled AndAlso CDate(dtpDatum.Value) > Now Then + lblErrErfasstDat.Visible = True + dtpDatum.Focus() + Exit Sub + End If + + If MyComboBox1._value.Trim = "" Then + ' MsgBox("Bitte die LKW-Nummer eingegeben.", vbInformation) + lblErr_Aktentyp.Visible = True + MyComboBox1.Focus() + Exit Sub + End If + + If txtLKW_Nr.Text.Trim = "" Then + ' MsgBox("Bitte die LKW-Nummer eingegeben.", vbInformation) + lblErr_LKW.Visible = True + txtLKW_Nr.Focus() + Exit Sub + End If + + If kdAuftraggeber.KdNr_value <= 0 Then + lblErr_Kunde.Visible = True + kdAuftraggeber.Focus() + Exit Sub + End If + + + + If Neuanlage Then + 'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde + Dim hLKWCheck2 As String = AvisoDAL.Suche_LKWStatus(txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", "")) + If hLKWCheck2 <> "" Then + Dim antwort As MsgBoxResult = MsgBox(hLKWCheck2 & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Aviso-Eintrag") + If antwort = vbNo Then + Exit Sub + End If + End If + + If hLKWCheck2 = "" Then + 'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde + Dim hLKWCheck As String = AvisoDAL.Suche_LKW(txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", "")) + If hLKWCheck <> "" Then + Dim antwort As MsgBoxResult = MsgBox(hLKWCheck & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Aviso-Eintrag") + If antwort = vbNo Then + Exit Sub + End If + End If + End If + + End If + + + + Me.Cursor = Cursors.WaitCursor + + Dim aendart As String = "" + Dim aendText As String = "" + + 'Werte zuweisen + myAviso.Telefonisch = "" + myAviso.Datum = dtpDatum.Value + myAviso.LKW_Nr = txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", "") + + + If kdAuftraggeber.KdNr_value > 0 Then + myAviso.Auftraggeber = IIf(kdAuftraggeber.KdName <> "", kdAuftraggeber.KdName, kdAuftraggeber.Text) + myAviso.Auftraggeber_KdNr = kdAuftraggeber.KdNr_value + Else + myAviso.Auftraggeber = kdAuftraggeber.Text + myAviso.Auftraggeber_KdNr = -1 + End If + + If myAviso.Auftraggeber.Length > 50 Then myAviso.Auftraggeber = myAviso.Auftraggeber.Substring(0, 50) + + myAviso.Frächter = myAviso.Auftraggeber + myAviso.Frächter_KdNr = myAviso.Auftraggeber_KdNr + + + myAviso.Grenzstelle = "" + myAviso.Info = "" + + If Neuanlage Then + myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter + myAviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + End If + + If Neuanlage Then + myAviso.Änderungen = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") + aendart = "Neuanlage" + aendText = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") + + Else + myAviso.Änderungen = "Änderung per Eingabefenster von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & myAviso.Änderungen + aendart = "Änderung per Eingabefenster" + aendText = "Änderung per Eingabefenster von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") + End If + + Dim DatAnkunftNow = AVISOFUNC.getAnkunftDateNow() + + + myAviso.Status = cGlobal.Status_Ankunft + + + myAviso.Status = cGlobal.Status_Erfasst + myAviso.Ankunft = LeerDatum + myAviso.Freigabe = LeerDatum + myAviso.Vorbereitet = LeerDatum + myAviso.Vorgeschrieben = LeerDatum + myAviso.Dauer = 0 + + + + + myAviso.FIRMA = If(cboFirma._value <> "", cboFirma._value, FIRMA_TMP) + myAviso.Cluster = If(VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER, "") + + + + + Dim tmpId = AvisoDAL.SpeichernAviso(myAviso) + + + myAviso.AvisoID = tmpId + AvisoDAL.addAenderung(tmpId, aendart, aendText) + + + 'Infotext als Vermerk: + If txtInfo.Text.Trim <> "" Then + If txtInfo.Text.Length <= 80 Then + AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Trim, 46) + ElseIf txtInfo.Text.Length <= 160 Then + AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(0, 80), 46) + AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(80, 80), 46) + ElseIf txtInfo.Text.Length <= 240 Then + AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(0, 80), 46) + AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(80, 80), 46) + AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(160, 80), 46) + End If + End If + + Me.Cursor = Cursors.Default + 'Jetzt wird Fenster geschlossen + Me.Close() + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId + frmHauptfenster.setAktDetails(tmpId, showSendungsdetails) + If showSendungsdetails Then + + End If + + Catch ex As Exception + Me.Cursor = Cursors.Default + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + + + + ''threadsicherer Aufruf + 'Delegate Sub setCboEntryCallback(i As String) + 'Private Sub setCboEntry(i As String) + ' Try + ' If Me.InvokeRequired Then + ' Dim d As New setCboEntryCallback(AddressOf setCboEntry) + ' Me.Invoke(d, New Object() {i}) + ' Else + ' cboPrinter.Items.Add(i) + ' End If + + ' Catch ex As Exception + + ' End Try + 'End Sub + + ''threadsicherer Aufruf + 'Delegate Sub setCboSelectedCallback(standardDrucker As String) + 'Private Sub setCboSelected(standardDrucker As String) + ' If Me.InvokeRequired Then + ' Dim d As New setCboSelectedCallback(AddressOf setCboSelected) + ' Me.Invoke(d, New Object() {standardDrucker}) + ' Else + ' Dim found As Boolean = False + ' ' For Each i In cboPrinter.Items + ' 'If i.ToString.ToUpper.Contains("TALLY") Then + ' 'found = True + ' ' cboPrinter.SelectedItem = i : Exit For + ' ' End If + ' ' Next + + ' If found = False Then 'Falls kein TALLY, Standarddrucker + ' cboPrinter.SelectedIndex = 0 + ' For Each i In cboPrinter.Items + ' If i.ToString = standardDrucker Then + ' cboPrinter.SelectedItem = i + ' Exit For + ' End If + ' Next + ' End If + ' End If + + 'End Sub + + + + + Private Function Platzhalter_ersetzen(hText As String, hLKW As String, hGrenzstelle As String) As String + If hText = "" Then + Platzhalter_ersetzen = hText + Exit Function + End If + + 'hier werden alle möglichen Platzhalter ersetzt + hText = hText.Replace("%LKW%", hLKW) + If hGrenzstelle <> "" Then + Dim Standorte As New cStandorteDAL + Dim Standort As New cStandort + Standort = Standorte.LesenStandort(0, hGrenzstelle, "") + If Not IsNothing(Standort) Then + hGrenzstelle = Standort.Standort_Text.Trim + End If + End If + hText = hText.Replace("%Standort%", hGrenzstelle) + hText = hText.Replace("%Uhrzeit%", Format(Now, "HH:mm")) + hText = hText.Replace("&", "und") + + Platzhalter_ersetzen = hText + End Function + + + + Private Sub txtLKW_Nr_TextChanged(sender As Object, e As EventArgs) Handles txtLKW_Nr.Leave + txtLKW_Nr.Text = txtLKW_Nr.Text.ToUpper + End Sub + + + + Private Sub frmEintragAviso_Shown(sender As Object, e As EventArgs) Handles Me.Shown + 'dtpAvisoEingangZeit.Focus() + aktiv = True + 'If EingangsDatum > CDate("01.01.1990") Then + ' dtpAvisoEingangDatum.Value = EingangsDatum + ' dtpAvisoEingangZeit.Value = EingangsDatum + 'End If + + VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me) + End Sub + + + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + If StartFromOUTLOOK Then + MsgBox("Diese Funktion ist im Outlook Addin nicht verfügbar!") + Exit Sub + End If + ' Me.showSendungsdetails = True + btnOK.PerformClick() + + + 'If dgvSendungen.SelectedRows.Count > 0 Then + 'sendId = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value + 'End If + If myAviso.AvisoID > 0 Then + + If Process.GetCurrentProcess().ProcessName.ToUpper() = "AVISO" Then + Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() + Dim frmSendungsdetails As New frmSendungsdetailsNEU(myAviso.AvisoID, -1) + frmSendungsdetails.ShowDialog(frmGrayOut) + + + frmGrayOut.Close() + Else + VERAG_PROG_ALLGEMEIN.cProgramFunctions.SendMessageToAviso("OpenAvisoSnd_" & myAviso.AvisoID) + End If + + + End If + 'initDgvSendungen() + End Sub + + + + Private Sub btnAuftraggeber_Click(sender As Object, e As EventArgs) Handles btnAuftraggeber.Click + If kdAuftraggeber.KdNr > 0 Then + Me.Cursor = Cursors.WaitCursor + AVISOFUNC.showKd(kdAuftraggeber.KdNr) + Me.Cursor = Cursors.Default + End If + End Sub + + + Private Sub dgvAnhaenge_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellDoubleClick, dgvAnhaenge.CellContentDoubleClick + Try + If dgvAnhaenge.SelectedRows.Count > 0 Then + If dgvAnhaenge.SelectedRows(0).Cells(1).Value <> "" Then + Process.Start(dgvAnhaenge.SelectedRows(0).Cells(1).Value) + 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 MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged + Select Case MyComboBox1._value + Case "CBAM" + PictureBox1.BackgroundImage = My.Resources.cbam_s + Case "EUDR" + PictureBox1.BackgroundImage = My.Resources.eudr + Case "FGAS" + PictureBox1.BackgroundImage = My.Resources.fgas_s + Case "COMPLIANCE" + PictureBox1.BackgroundImage = My.Resources.compliance_s + Case Else + PictureBox1.BackgroundImage = Nothing + End Select + + End Sub +End Class diff --git a/Aviso/AktenErfassung/usrCntlHauptakt_CBAM.Designer.vb b/Aviso/AktenErfassung/usrCntlHauptakt_CBAM.Designer.vb new file mode 100644 index 0000000..c0d99ef --- /dev/null +++ b/Aviso/AktenErfassung/usrCntlHauptakt_CBAM.Designer.vb @@ -0,0 +1,37 @@ + _ +Partial Class usrCntlHauptakt_CBAM + Inherits System.Windows.Forms.UserControl + + 'UserControl ü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.SuspendLayout() + ' + 'usrCntlHauptakt_CBAM + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Name = "usrCntlHauptakt_CBAM" + Me.Size = New System.Drawing.Size(358, 245) + Me.ResumeLayout(False) + + End Sub + +End Class diff --git a/Aviso/AktenErfassung/usrCntlHauptakt_CBAM.resx b/Aviso/AktenErfassung/usrCntlHauptakt_CBAM.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/Aviso/AktenErfassung/usrCntlHauptakt_CBAM.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + \ No newline at end of file diff --git a/Aviso/AktenErfassung/usrCntlHauptakt_CBAM.vb b/Aviso/AktenErfassung/usrCntlHauptakt_CBAM.vb new file mode 100644 index 0000000..070b4c4 --- /dev/null +++ b/Aviso/AktenErfassung/usrCntlHauptakt_CBAM.vb @@ -0,0 +1,3 @@ +Public Class usrCntlHauptakt_CBAM + +End Class diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj index 70276e7..5cf7953 100644 --- a/Aviso/Aviso.vbproj +++ b/Aviso/Aviso.vbproj @@ -559,6 +559,12 @@ Form + + usrCntlHauptakt_CBAM.vb + + + UserControl + frmAddSendnung.vb @@ -797,6 +803,12 @@ Form + + frmEintragSammelakt.vb + + + Form + frmEintragTvNew.vb @@ -989,16 +1001,16 @@ Form - + frmEintragAviso.vb - + Form - + frmEintragAvisoInfo.vb - + Form @@ -1006,6 +1018,7 @@ Form + v frmEintragOptionen.vb @@ -1258,6 +1271,12 @@ UserControl + + usrCntlHauptfenster_Suche_AVISO.vb + + + UserControl + usrcntlSendungDetailsAbrechnung.vb @@ -1312,6 +1331,9 @@ frmZuordnungKd.vb + + usrCntlHauptakt_CBAM.vb + frmAddSendnung.vb @@ -1415,6 +1437,9 @@ frmATZollEingereichtSetzen.vb + + frmEintragSammelakt.vb + frmEintragTvNew.vb @@ -1514,10 +1539,10 @@ frmDruck.vb - + frmEintragAviso.vb - + frmEintragAvisoInfo.vb @@ -1648,6 +1673,9 @@ usrcntlFrachtkostenberechnung.vb + + usrCntlHauptfenster_Suche_AVISO.vb + usrcntlSendungDetailsAbrechnung.vb @@ -1783,6 +1811,7 @@ + @@ -1837,6 +1866,10 @@ Always + + + + Always diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 4ca5c29..d428f75 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/My Project/Resources.Designer.vb b/Aviso/My Project/Resources.Designer.vb index e3f863a..4f612c3 100644 --- a/Aviso/My Project/Resources.Designer.vb +++ b/Aviso/My Project/Resources.Designer.vb @@ -458,6 +458,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Public ReadOnly Property cbam_s() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("cbam_s", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -468,6 +478,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Public ReadOnly Property compliance_s() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("compliance_s", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -648,6 +668,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Public ReadOnly Property eudr() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("eudr", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -688,6 +718,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Public ReadOnly Property fgas_s() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("fgas_s", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -2024,6 +2064,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Public ReadOnly Property zollberatung_s() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("zollberatung_s", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/Aviso/My Project/Resources.resx b/Aviso/My Project/Resources.resx index cd85805..2f3fe19 100644 --- a/Aviso/My Project/Resources.resx +++ b/Aviso/My Project/Resources.resx @@ -118,9 +118,15 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ..\Resources\memories2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\personInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Transcode.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -193,18 +199,21 @@ ..\resources\vz hinderniss - zollbeschau - protokoll.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ..\Resources\info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\..\Diverses\miniButtons\abfetigungTR_aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\digitalerAkt.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\qr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -241,15 +250,15 @@ ..\Resources\mitarbeiter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\statusBtn_vorbereitet_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\parkplatz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\rhenus.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\statusBtn_vorbereitet_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\arrow-left-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -298,6 +307,9 @@ ..\Resources\vorauszahlung11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\documents.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -328,8 +340,8 @@ ..\Resources\gear2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\qr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\..\Diverses\GVMS-image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -358,9 +370,6 @@ ..\Resources\personCheck_gray_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\ge_transport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -388,6 +397,12 @@ ..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\kasse1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\statusBtn_vorgeschrieben_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\weiterleiten_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -409,6 +424,9 @@ ..\resources\dgs_instructions_export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -421,9 +439,6 @@ ..\Resources\fragezeichen1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\zoll_mm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -433,9 +448,6 @@ ..\Resources\digitalerAkt_small.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\personCheck.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -448,6 +460,9 @@ ..\Resources\vorauszahlung2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\sprinter_white.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\dakosy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -466,6 +481,9 @@ ..\Resources\Unisped_DE_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\passport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\memories0.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -493,15 +511,9 @@ ..\Resources\wheel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\speditionsbuchAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\fakturiertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -556,29 +568,29 @@ ..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\kasse1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\abgeklaertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\ImageIcon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\sprinter_white.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\vermerk.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Declarant.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\3s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\zeus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\documents.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\qr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\igl.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -619,8 +631,8 @@ ..\Resources\NDK.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -649,23 +661,23 @@ ..\Resources\beleg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\statusBtn_vorbereitet_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\memories2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\abgeklaertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\image_443x282.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\statusBtn_vorgeschrieben_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\truck_black.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\passport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\word.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -673,11 +685,14 @@ ..\Resources\evolog.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\abklaerungTR_Inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\speditionsbuchAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\atr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -691,19 +706,19 @@ ..\..\Diverses\miniButtons\abfetigungTR_inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\qr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\cbam_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - + + ..\Resources\compliance_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Declarant.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\eudr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\statusBtn_vorbereitet_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\fgas_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Transcode.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\zollberatung_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a \ No newline at end of file diff --git a/Aviso/Resources/cbam_s.png b/Aviso/Resources/cbam_s.png new file mode 100644 index 0000000..caf9e1c Binary files /dev/null and b/Aviso/Resources/cbam_s.png differ diff --git a/Aviso/Resources/compliance_s.png b/Aviso/Resources/compliance_s.png new file mode 100644 index 0000000..da9bd38 Binary files /dev/null and b/Aviso/Resources/compliance_s.png differ diff --git a/Aviso/Resources/eudr.png b/Aviso/Resources/eudr.png new file mode 100644 index 0000000..a30d5a4 Binary files /dev/null and b/Aviso/Resources/eudr.png differ diff --git a/Aviso/Resources/fgas_s.png b/Aviso/Resources/fgas_s.png new file mode 100644 index 0000000..77b1f2d Binary files /dev/null and b/Aviso/Resources/fgas_s.png differ diff --git a/Aviso/Resources/zollberatung_s.png b/Aviso/Resources/zollberatung_s.png new file mode 100644 index 0000000..350a69d Binary files /dev/null and b/Aviso/Resources/zollberatung_s.png differ diff --git a/Aviso/frmHauptfenster.Designer.vb b/Aviso/frmHauptfenster.Designer.vb index 0aa3a40..eb563f5 100644 --- a/Aviso/frmHauptfenster.Designer.vb +++ b/Aviso/frmHauptfenster.Designer.vb @@ -79,6 +79,7 @@ Partial Class frmHauptfenster Me.RoutenverwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AnhangsartenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SpireLizenzPrüfenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.UNBescheinigungAusTFEinlesenToolStripMenuItem = 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() @@ -115,6 +116,7 @@ Partial Class frmHauptfenster Me.GesendeteSMSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.MRNBarcodedruckToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.NewsletterToolStripMenuItem = 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() @@ -299,7 +301,6 @@ Partial Class frmHauptfenster Me.picAVISOMessenger = New System.Windows.Forms.PictureBox() Me.pic = New System.Windows.Forms.PictureBox() Me.SplitContainer3 = New System.Windows.Forms.SplitContainer() - Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen() Me.pnl = New System.Windows.Forms.Panel() Me.Button10 = New System.Windows.Forms.Button() Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) @@ -412,12 +413,12 @@ Partial Class frmHauptfenster Me.ZertifikateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() 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.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem() - Me.NewsletterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.UNBescheinigungAusTFEinlesenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Button9 = New System.Windows.Forms.Button() + Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen() + Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen() Me.conMenuAviso.SuspendLayout() Me.MenuStrip1.SuspendLayout() Me.pnlDetailsRechts.SuspendLayout() @@ -753,6 +754,12 @@ Partial Class frmHauptfenster Me.SpireLizenzPrüfenToolStripMenuItem.Size = New System.Drawing.Size(257, 22) Me.SpireLizenzPrüfenToolStripMenuItem.Text = "Spire-Lizenz prüfen" ' + 'UNBescheinigungAusTFEinlesenToolStripMenuItem + ' + Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Name = "UNBescheinigungAusTFEinlesenToolStripMenuItem" + Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Size = New System.Drawing.Size(257, 22) + Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Text = "UN-Bescheinigung aus TF einlesen" + ' 'ToolStripSeparator4 ' Me.ToolStripSeparator4.Name = "ToolStripSeparator4" @@ -979,6 +986,12 @@ Partial Class frmHauptfenster Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.MRNBarcodedruckToolStripMenuItem.Text = "MRN Barcodedruck" ' + 'NewsletterToolStripMenuItem + ' + Me.NewsletterToolStripMenuItem.Name = "NewsletterToolStripMenuItem" + Me.NewsletterToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.NewsletterToolStripMenuItem.Text = "Newsletter" + ' 'ToolStripSeparator12 ' Me.ToolStripSeparator12.Name = "ToolStripSeparator12" @@ -1127,13 +1140,6 @@ Partial Class frmHauptfenster ' Me.VerträgeToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.spedbuch_small Me.VerträgeToolStripMenuItem.Name = "VerträgeToolStripMenuItem" - Me.VerträgeToolStripMenuItem.Size = New System.Drawing.Size(391, 30) - Me.VerträgeToolStripMenuItem.Text = "Verträge" - ' - 'VerträgeToolStripMenuItem - ' - Me.VerträgeToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.spedbuch_small - Me.VerträgeToolStripMenuItem.Name = "VerträgeToolStripMenuItem" Me.VerträgeToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.VerträgeToolStripMenuItem.Text = "Verträge" ' @@ -2464,6 +2470,7 @@ Partial Class frmHauptfenster ' 'pnlLinksOben ' + Me.pnlLinksOben.Controls.Add(Me.Button9) Me.pnlLinksOben.Controls.Add(Me.Label22) Me.pnlLinksOben.Controls.Add(Me.btnE_Aviso) Me.pnlLinksOben.Controls.Add(Me.btnNeu) @@ -2591,15 +2598,6 @@ Partial Class frmHauptfenster Me.SplitContainer3.SplitterDistance = 99 Me.SplitContainer3.TabIndex = 3 ' - 'UsrCntlBenachrichtigungen1 - ' - Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill - 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(99, 300) - Me.UsrCntlBenachrichtigungen1.TabIndex = 0 - ' 'pnl ' Me.pnl.Controls.Add(Me.Button10) @@ -3956,15 +3954,6 @@ Partial Class frmHauptfenster Me.pnlLeft.TabIndex = 88 Me.pnlLeft.Visible = False ' - 'UsrCntlBenachrichtigungen2 - ' - Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 51) - Me.UsrCntlBenachrichtigungen2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2" - Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(252, 243) - Me.UsrCntlBenachrichtigungen2.TabIndex = 1 - ' 'Panel5 ' Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom @@ -3993,15 +3982,40 @@ Partial Class frmHauptfenster Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28) Me.UsrCntlTestsystem1.TabIndex = 8 ' - 'NewsletterToolStripMenuItem - 'UNBescheinigungAusTFEinlesenToolStripMenuItem + 'Button9 ' - Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Name = "UNBescheinigungAusTFEinlesenToolStripMenuItem" - Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Size = New System.Drawing.Size(257, 22) - Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Text = "UN-Bescheinigung aus TF einlesen" - Me.NewsletterToolStripMenuItem.Name = "NewsletterToolStripMenuItem" - Me.NewsletterToolStripMenuItem.Size = New System.Drawing.Size(391, 30) - Me.NewsletterToolStripMenuItem.Text = "Newsletter" + Me.Button9.ContextMenuStrip = Me.cntxtAtilla + Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button9.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button9.ForeColor = System.Drawing.Color.Black + Me.Button9.Image = CType(resources.GetObject("Button9.Image"), System.Drawing.Image) + Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button9.Location = New System.Drawing.Point(127, 4) + Me.Button9.MaximumSize = New System.Drawing.Size(121, 34) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(40, 34) + Me.Button9.TabIndex = 12 + Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button9.UseVisualStyleBackColor = True + Me.Button9.Visible = False + ' + 'UsrCntlBenachrichtigungen1 + ' + Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill + 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(99, 300) + Me.UsrCntlBenachrichtigungen1.TabIndex = 0 + ' + 'UsrCntlBenachrichtigungen2 + ' + Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 51) + Me.UsrCntlBenachrichtigungen2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2" + Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(252, 243) + Me.UsrCntlBenachrichtigungen2.TabIndex = 1 ' 'frmHauptfenster ' @@ -4464,4 +4478,5 @@ Partial Class frmHauptfenster Friend WithEvents VerträgeToolStripMenuItem As ToolStripMenuItem Friend WithEvents NewsletterToolStripMenuItem As ToolStripMenuItem Friend WithEvents UNBescheinigungAusTFEinlesenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents Button9 As Button End Class diff --git a/Aviso/frmHauptfenster.resx b/Aviso/frmHauptfenster.resx index 1cc3a6c..1ab7db9 100644 --- a/Aviso/frmHauptfenster.resx +++ b/Aviso/frmHauptfenster.resx @@ -187,6 +187,14 @@ 1158, 17 + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO + BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO + zULyAAAAAElFTkSuQmCC + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 6334f47..015b64f 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -255,6 +255,7 @@ Public Class frmHauptfenster If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then StartPipeListener() End If + Button9.Visible = True 'CBAM.. End If 'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) @@ -5296,4 +5297,26 @@ ELSE_ATILLA: Dim f As New SDL.frmNewsletter f.Show(Me) End Sub + + Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles Button9.Click + Try + + Me.Cursor = Cursors.WaitCursor + gridAviso.ClearSelection() + gridMyAviso.ClearSelection() + Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() + Dim f As New frmEintragSammelakt + + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0 + 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 End Class diff --git a/Aviso/frmHauptfensterNew.Designer.vb b/Aviso/frmHauptfensterNew.Designer.vb index a623d60..2300abc 100644 --- a/Aviso/frmHauptfensterNew.Designer.vb +++ b/Aviso/frmHauptfensterNew.Designer.vb @@ -24,11 +24,11 @@ Partial Class frmHauptfensterNew 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() + Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle15 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) @@ -228,14 +228,8 @@ Partial Class frmHauptfensterNew 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() @@ -261,18 +255,8 @@ Partial Class frmHauptfensterNew 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() @@ -289,80 +273,16 @@ Partial Class frmHauptfensterNew 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.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel() + Me.btnWichtigeStandort = New System.Windows.Forms.Button() Me.btnSmall = New System.Windows.Forms.Button() Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() @@ -385,11 +305,6 @@ Partial Class frmHauptfensterNew 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) @@ -397,9 +312,10 @@ Partial Class frmHauptfensterNew 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.UidAbfrageService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageService() + Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen() Me.conMenuAviso.SuspendLayout() Me.MenuStrip1.SuspendLayout() Me.pnlDetailsRechts.SuspendLayout() @@ -409,7 +325,6 @@ Partial Class frmHauptfensterNew 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() @@ -421,13 +336,9 @@ Partial Class frmHauptfensterNew 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.FlowLayoutPanel1.SuspendLayout() Me.pnlOptionen.SuspendLayout() Me.cntxt.SuspendLayout() - Me.ctxtFarben.SuspendLayout() Me.Panel3.SuspendLayout() Me.Panel4.SuspendLayout() Me.cntVerag.SuspendLayout() @@ -531,7 +442,7 @@ Partial Class frmHauptfensterNew 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.Size = New System.Drawing.Size(1487, 20) Me.MenuStrip1.TabIndex = 3 Me.MenuStrip1.Text = "MenuStrip1" ' @@ -1683,55 +1594,6 @@ Partial Class frmHauptfensterNew 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 @@ -1741,7 +1603,7 @@ Partial Class frmHauptfensterNew 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.Size = New System.Drawing.Size(306, 686) Me.pnlDetailsRechts.TabIndex = 0 ' 'lblMitarbeiter @@ -1751,33 +1613,13 @@ Partial Class frmHauptfensterNew 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.Location = New System.Drawing.Point(366, 27) 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 @@ -1803,7 +1645,7 @@ Partial Class frmHauptfensterNew 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.Size = New System.Drawing.Size(1657, 63) Me.Top.TabIndex = 6 ' 'Button1 @@ -1822,7 +1664,7 @@ Partial Class frmHauptfensterNew 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.Location = New System.Drawing.Point(1537, 34) Me.lblUsrname.Name = "lblUsrname" Me.lblUsrname.Size = New System.Drawing.Size(75, 13) Me.lblUsrname.TabIndex = 86 @@ -1834,7 +1676,7 @@ Partial Class frmHauptfensterNew 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.Location = New System.Drawing.Point(1593, 20) Me.lblFimaAviso.Name = "lblFimaAviso" Me.lblFimaAviso.Size = New System.Drawing.Size(63, 13) Me.lblFimaAviso.TabIndex = 11 @@ -1859,7 +1701,7 @@ Partial Class frmHauptfensterNew 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.Location = New System.Drawing.Point(1043, 6) Me.btnMAVerzeichnis.Name = "btnMAVerzeichnis" Me.btnMAVerzeichnis.Size = New System.Drawing.Size(107, 39) Me.btnMAVerzeichnis.TabIndex = 13 @@ -1879,7 +1721,7 @@ Partial Class frmHauptfensterNew 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.Location = New System.Drawing.Point(1394, -6) Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto" Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61) Me.btnMitarbeiterKonto.TabIndex = 86 @@ -1895,7 +1737,7 @@ Partial Class frmHauptfensterNew 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.Location = New System.Drawing.Point(1154, 6) Me.btnKontakt.Name = "btnKontakt" Me.btnKontakt.Size = New System.Drawing.Size(119, 39) Me.btnKontakt.TabIndex = 12 @@ -1913,7 +1755,7 @@ Partial Class frmHauptfensterNew 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.Location = New System.Drawing.Point(1535, 3) Me.Button2.Name = "Button2" Me.Button2.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.Button2.Size = New System.Drawing.Size(45, 20) @@ -1944,7 +1786,7 @@ Partial Class frmHauptfensterNew 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.Location = New System.Drawing.Point(1596, 34) Me.lblGrenzstelle.Name = "lblGrenzstelle" Me.lblGrenzstelle.Size = New System.Drawing.Size(60, 13) Me.lblGrenzstelle.TabIndex = 0 @@ -1956,7 +1798,7 @@ Partial Class frmHauptfensterNew 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.Location = New System.Drawing.Point(1588, 6) Me.lblVersion.Name = "lblVersion" Me.lblVersion.Size = New System.Drawing.Size(68, 13) Me.lblVersion.TabIndex = 6 @@ -1988,7 +1830,7 @@ Partial Class frmHauptfensterNew 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.Location = New System.Drawing.Point(1276, 6) Me.btnDienstplan.Margin = New System.Windows.Forms.Padding(0) Me.btnDienstplan.Name = "btnDienstplan" Me.btnDienstplan.Size = New System.Drawing.Size(87, 39) @@ -2163,103 +2005,10 @@ Partial Class frmHauptfensterNew 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) @@ -2277,16 +2026,6 @@ Partial Class frmHauptfensterNew 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) @@ -2373,7 +2112,7 @@ Partial Class frmHauptfensterNew 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.Size = New System.Drawing.Size(235, 182) Me.pnlLinksOben.TabIndex = 1 ' 'Label22 @@ -2381,7 +2120,7 @@ Partial Class frmHauptfensterNew 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.Location = New System.Drawing.Point(92, 99) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(28, 19) Me.Label22.TabIndex = 10 @@ -2395,7 +2134,7 @@ Partial Class frmHauptfensterNew 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.Location = New System.Drawing.Point(5, 90) 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) @@ -2442,7 +2181,7 @@ Partial Class frmHauptfensterNew 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.Location = New System.Drawing.Point(5, 39) Me.Button7.MaximumSize = New System.Drawing.Size(121, 35) Me.Button7.Name = "Button7" Me.Button7.Size = New System.Drawing.Size(121, 35) @@ -2493,71 +2232,12 @@ Partial Class frmHauptfensterNew 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.Size = New System.Drawing.Size(977, 5) Me.pnlAktOption.TabIndex = 1 ' 'Button8 @@ -2567,7 +2247,7 @@ Partial Class frmHauptfensterNew 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.Location = New System.Drawing.Point(1093, 214) Me.Button8.Name = "Button8" Me.Button8.Size = New System.Drawing.Size(89, 34) Me.Button8.TabIndex = 3 @@ -2584,7 +2264,7 @@ Partial Class frmHauptfensterNew 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.Location = New System.Drawing.Point(1197, 214) Me.btnFertig.Name = "btnFertig" Me.btnFertig.Size = New System.Drawing.Size(102, 34) Me.btnFertig.TabIndex = 0 @@ -2593,75 +2273,12 @@ Partial Class frmHauptfensterNew 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.Location = New System.Drawing.Point(367, 83) Me.SplitContainer1.Name = "SplitContainer1" ' 'SplitContainer1.Panel1 @@ -2674,8 +2291,8 @@ Partial Class frmHauptfensterNew 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.Size = New System.Drawing.Size(1290, 688) + Me.SplitContainer1.SplitterDistance = 981 Me.SplitContainer1.SplitterWidth = 1 Me.SplitContainer1.TabIndex = 7 ' @@ -2688,7 +2305,7 @@ Partial Class frmHauptfensterNew 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.Size = New System.Drawing.Size(979, 686) Me.pnlDetailsLinks.TabIndex = 0 ' 'splitMain @@ -2712,8 +2329,8 @@ Partial Class frmHauptfensterNew ' 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.Size = New System.Drawing.Size(977, 684) + Me.splitMain.SplitterDistance = 477 Me.splitMain.TabIndex = 0 ' 'gridAviso @@ -2722,777 +2339,87 @@ Partial Class frmHauptfensterNew 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 + DataGridViewCellStyle11.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 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 + DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle12.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 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 + DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle13 Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill - Me.gridAviso.Location = New System.Drawing.Point(0, 248) + Me.gridAviso.Location = New System.Drawing.Point(0, 280) 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 + DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle14 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 + DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle15 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.Size = New System.Drawing.Size(977, 197) 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.Controls.Add(Me.FlowLayoutPanel1) 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.Size = New System.Drawing.Size(977, 280) 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 + 'FlowLayoutPanel1 + ' + Me.FlowLayoutPanel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(44, Byte), Integer), CType(CType(108, Byte), Integer)) + Me.FlowLayoutPanel1.Controls.Add(Me.btnWichtigeStandort) + Me.FlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top + Me.FlowLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1" + Me.FlowLayoutPanel1.Size = New System.Drawing.Size(977, 55) + Me.FlowLayoutPanel1.TabIndex = 6 + ' + 'btnWichtigeStandort + ' + Me.btnWichtigeStandort.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnWichtigeStandort.ForeColor = System.Drawing.Color.White + Me.btnWichtigeStandort.Location = New System.Drawing.Point(3, 3) + Me.btnWichtigeStandort.Name = "btnWichtigeStandort" + Me.btnWichtigeStandort.Size = New System.Drawing.Size(158, 47) + Me.btnWichtigeStandort.TabIndex = 4 + 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 ' 'btnSmall ' @@ -3665,40 +2592,6 @@ Partial Class frmHauptfensterNew 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) @@ -3706,7 +2599,7 @@ Partial Class frmHauptfensterNew 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.Size = New System.Drawing.Size(1657, 20) Me.Panel3.TabIndex = 87 ' 'Panel4 @@ -3715,7 +2608,7 @@ Partial Class frmHauptfensterNew 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.Location = New System.Drawing.Point(1487, 0) Me.Panel4.Name = "Panel4" Me.Panel4.Size = New System.Drawing.Size(170, 20) Me.Panel4.TabIndex = 4 @@ -3752,24 +2645,15 @@ Partial Class frmHauptfensterNew ' 'pnlLeft ' - Me.pnlLeft.Controls.Add(Me.UsrCntlBenachrichtigungen1) + Me.pnlLeft.Controls.Add(Me.UsrCntlBenachrichtigungen2) 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.Size = New System.Drawing.Size(367, 688) 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) @@ -3778,9 +2662,9 @@ Partial Class frmHauptfensterNew 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.Location = New System.Drawing.Point(0, 371) Me.Panel5.Name = "Panel5" - Me.Panel5.Size = New System.Drawing.Size(252, 317) + Me.Panel5.Size = New System.Drawing.Size(367, 317) Me.Panel5.TabIndex = 3 ' 'Panel7 @@ -3789,14 +2673,28 @@ Partial Class frmHauptfensterNew 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.Size = New System.Drawing.Size(367, 51) Me.Panel7.TabIndex = 4 ' + 'UidAbfrageService1 + ' + Me.UidAbfrageService1.Credentials = Nothing + Me.UidAbfrageService1.Url = "https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/" + Me.UidAbfrageService1.UseDefaultCredentials = False + ' + 'UsrCntlBenachrichtigungen2 + ' + Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 51) + Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2" + Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(367, 320) + Me.UsrCntlBenachrichtigungen2.TabIndex = 5 + ' '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.ClientSize = New System.Drawing.Size(1657, 771) Me.Controls.Add(Me.pnlOptionen) Me.Controls.Add(Me.Label9) Me.Controls.Add(Me.UsrCntlTestsystem1) @@ -3823,7 +2721,6 @@ Partial Class frmHauptfensterNew 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) @@ -3837,17 +2734,9 @@ Partial Class frmHauptfensterNew 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.FlowLayoutPanel1.ResumeLayout(False) Me.pnlOptionen.ResumeLayout(False) Me.cntxt.ResumeLayout(False) - Me.ctxtFarben.ResumeLayout(False) Me.Panel3.ResumeLayout(False) Me.Panel3.PerformLayout() Me.Panel4.ResumeLayout(False) @@ -3890,12 +2779,6 @@ Partial Class frmHauptfensterNew 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 @@ -3905,41 +2788,19 @@ Partial Class frmHauptfensterNew 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 @@ -3953,7 +2814,6 @@ Partial Class frmHauptfensterNew 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 @@ -3972,7 +2832,6 @@ Partial Class frmHauptfensterNew 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 @@ -3983,29 +2842,6 @@ Partial Class frmHauptfensterNew 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 @@ -4073,16 +2909,9 @@ Partial Class frmHauptfensterNew 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 @@ -4146,8 +2975,6 @@ Partial Class frmHauptfensterNew 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 @@ -4156,17 +2983,10 @@ Partial Class frmHauptfensterNew 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 @@ -4179,8 +2999,6 @@ Partial Class frmHauptfensterNew 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 @@ -4205,28 +3023,15 @@ Partial Class frmHauptfensterNew 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 + Friend WithEvents FlowLayoutPanel1 As FlowLayoutPanel + Friend WithEvents btnWichtigeStandort As Button + Friend WithEvents UidAbfrageService1 As VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageService + Friend WithEvents UsrCntlBenachrichtigungen2 As usrCntlBenachrichtigungen End Class diff --git a/Aviso/frmHauptfensterNew.resx b/Aviso/frmHauptfensterNew.resx index 1cc3a6c..3cebd0d 100644 --- a/Aviso/frmHauptfensterNew.resx +++ b/Aviso/frmHauptfensterNew.resx @@ -167,9 +167,6 @@ 364, 17 - - 560, 17 - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAgBJREFUSEvt @@ -203,9 +200,6 @@ zULyAAAAAElFTkSuQmCC - - 453, 17 - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO @@ -249,6 +243,12 @@ sDvNfNUAAAAASUVORK5CYII= + + 560, 17 + + + 560, 17 + 659, 17 @@ -283,14 +283,14 @@ 1400, 17 - - 17, 56 - 17, 17 + + 126, 56 + - 25 + 113 diff --git a/Aviso/frmHauptfensterNew.vb b/Aviso/frmHauptfensterNew.vb index 45e232a..03d6c1b 100644 --- a/Aviso/frmHauptfensterNew.vb +++ b/Aviso/frmHauptfensterNew.vb @@ -1,19 +1,20 @@  -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 Imports System.IO.Pipes +Imports System.Net +Imports System.Reflection Imports System.Security.AccessControl +Imports System.Text +Imports com.esendex.sdk.messaging +Imports GrapeCity.Enterprise.Data.Expressions.Tools +Imports Microsoft.Office.Interop +Imports Newtonsoft.Json +Imports SDL +Imports Spire.Pdf.Texts +Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.cGlobal +Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO 'Imports UID Public Class frmHauptfensterNew @@ -61,6 +62,11 @@ Public Class frmHauptfensterNew Dim WithEvents UpdateUpdater As New Timer Dim WithEvents UpdateSession As New Timer + + + Dim SEARCH_AVISO As New usrCntlHauptfenster_Suche_AVISO + Dim SEARCH_AVISO_AKTIV As String = "AVISO" + Public Sub New() InitializeComponent() Me.DoubleBuffered = True @@ -88,13 +94,31 @@ Public Class frmHauptfensterNew If dgv IsNot Nothing Then Dim dgvType As Type = dgv.[GetType]() - Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered", BindingFlags.Instance Or BindingFlags.NonPublic) + Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered", BindingFlags.Instance Or BindingFlags.NonPublic) pi.SetValue(dgv, True, Nothing) End If End Sub + Sub SWITCH_SEARCH(switchTO) + 'Panel1.Controls.Clear() + SEARCH_AVISO_AKTIV = switchTO + Select Case SEARCH_AVISO_AKTIV + Case "AVISO" + Panel1.Controls.Add(SEARCH_AVISO) + SEARCH_AVISO.Dock = DockStyle.Fill + ' SEARCH_AVISO.init(Me) + initsearch("", False) ': Aviso_anzeigen("") + End Select + End Sub + + Sub initsearch(hSort As String, Optional showDetails As Boolean = True) + + Select Case SEARCH_AVISO_AKTIV + Case "AVISO" : SEARCH_AVISO.Aviso_anzeigen(hSort, showDetails) ': Aviso_anzeigen("") + End Select + End Sub Private Sub frmMain_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown @@ -119,18 +143,11 @@ Public Class frmHauptfensterNew 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) + SWITCH_SEARCH("AVISO") - tbcntrAvisoLKW.SelectedIndex = 0 - txtSuche.Text = "" - txtSuche.Focus() + SEARCH_AVISO.reset() Grid_aktiv = True - initDat() - Aviso_anzeigen("") + End If If (e.KeyCode) = Keys.Add AndAlso e.Control Then btnNeu.PerformClick() @@ -152,13 +169,16 @@ Public Class frmHauptfensterNew 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() + If SEARCH_AVISO_AKTIV = "AVISO" Then + If e.KeyCode = Keys.D1 AndAlso e.Control Then SEARCH_AVISO.tbcntrAvisoLKW.SelectedIndex = 1 : SEARCH_AVISO.txtSuche.Focus() + If e.KeyCode = Keys.D2 AndAlso e.Control Then SEARCH_AVISO.tbcntrAvisoLKW.SelectedIndex = 2 : SEARCH_AVISO.txtSuche.Focus() + If (e.KeyCode) = Keys.D3 AndAlso e.Control Then SEARCH_AVISO.tbcntrAvisoLKW.SelectedIndex = 3 : SEARCH_AVISO.txtSuche.Focus() + If (e.KeyCode) = Keys.D4 AndAlso e.Control Then SEARCH_AVISO.tbcntrAvisoLKW.SelectedIndex = 4 : SEARCH_AVISO.txtSuche.Focus() + If (e.KeyCode) = Keys.D5 AndAlso e.Control Then SEARCH_AVISO.tbcntrAvisoLKW.SelectedIndex = 5 : SEARCH_AVISO.txtSuche.Focus() + If (e.KeyCode) = Keys.D0 AndAlso e.Control Then SEARCH_AVISO.tbcntrAvisoLKW.SelectedIndex = 6 : SEARCH_AVISO.txtSuche.Focus() + If (e.KeyCode) = Keys.Oem5 AndAlso e.Control Then SEARCH_AVISO.tbcntrAvisoLKW.SelectedIndex = 0 : SEARCH_AVISO.txtSuche.Focus() + + End If End Sub @@ -262,8 +282,8 @@ Public Class frmHauptfensterNew 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 + 'pnlSearch.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor + UsrCntlBenachrichtigungen2.Panel3.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor UpdateUpdater.Interval = 5000 UpdateUpdater.Enabled = True @@ -280,93 +300,14 @@ Public Class frmHauptfensterNew 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 @@ -375,27 +316,6 @@ Public Class frmHauptfensterNew 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 @@ -421,14 +341,13 @@ Public Class frmHauptfensterNew '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" + Case 0 : SEARCH_AVISO.lblAkte.Visible = False + Case 1 : SEARCH_AVISO.lblAkte.Text = zeilen & " Akt vom Arbeitsplatz übernommen" + Case Else : SEARCH_AVISO.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 + SEARCH_AVISO.cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG End If End Select @@ -481,7 +400,7 @@ Public Class frmHauptfensterNew End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then BREXITToolStripMenuItem.Visible = True - cbx_My_Brexit.Checked = True + SEARCH_AVISO.cbx_My_Brexit.Checked = True End If 'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then @@ -527,7 +446,7 @@ Public Class frmHauptfensterNew MenuStrip1.Items.Remove(FunktionenToolStripMenuItem) MenuStrip1.Items.Remove(StatistikToolStripMenuItem) btnZollwebseiten.Visible = False - lblErweitereSuche.Visible = False + ' lblErweitereSuche.Visible = False End If If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN", "AVISO") Then @@ -535,28 +454,7 @@ Public Class frmHauptfensterNew 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 @@ -594,8 +492,6 @@ Public Class frmHauptfensterNew 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" @@ -622,16 +518,12 @@ Public Class frmHauptfensterNew ' 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") + initsearch(" ORDER BY Ankunft") - UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont) + UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont) ' gridAviso_SpaltenFestlegen() 'Auskommentiert, do bei Aviso anzeigen schon ausgeführt wird 'gridVermerke_SpaltenFestlegen() @@ -672,7 +564,7 @@ Public Class frmHauptfensterNew End If - Panel1.Height -= pnlSearch.Height + ' Panel1.Height -= pnlSearch.Height If Now.ToShortDateString >= DateTime.Parse("01/01/2023") Then @@ -756,524 +648,6 @@ Public Class frmHauptfensterNew 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 @@ -1287,7 +661,6 @@ Public Class frmHauptfensterNew Else pnlDetailsRechts.Visible = False End If - lblEintraege.Text = gridAviso.RowCount & " Einträge" & If(gridAviso.RowCount = 2000, " (begrenzt)", "") Me.Cursor = Cursors.Default End Sub @@ -1336,307 +709,8 @@ ELSE_ATILLA: 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 @@ -2255,24 +1329,6 @@ ELSE_ATILLA: - 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 @@ -2508,7 +1564,7 @@ ELSE_ATILLA: End Sub - Private Sub GridZeichnenAviso() + Public 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 @@ -2558,245 +1614,6 @@ ELSE_ATILLA: 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 @@ -2804,42 +1621,42 @@ ELSE_ATILLA: 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) + UsrCntlBenachrichtigungen2.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 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 + ' 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 + ' UsrCntlBenachrichtigungen2.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 + ' Catch ex As Exception - End Try - End If + ' 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) + UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont) End Sub @@ -2872,43 +1689,6 @@ ELSE_ATILLA: 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 - @@ -3099,7 +1879,7 @@ ELSE_ATILLA: initEAviso() - If Aviso_anzeigenBool Then Aviso_anzeigen("", False) ': Aviso_anzeigen("") + If Aviso_anzeigenBool Then initsearch("", False) If AVISO_TYP = "LKW" Then @@ -3157,20 +1937,20 @@ ELSE_ATILLA: - Private Sub dgvSendungen_CellContentClick() Handles UsrCntlBenachrichtigungen1.SelectionChanged + Private Sub dgvSendungen_CellContentClick() Handles UsrCntlBenachrichtigungen2.SelectionChanged Try - If UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.SelectedRows.Count = 1 Then + If UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows.Count = 1 Then gridAviso.ClearSelection() ' MsgBox(Grid_aktiv) - Dim tmpId = UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_AvisoID").Value + Dim tmpId = UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_AvisoID").Value - If UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_art").Value = "A" Then + If UsrCntlBenachrichtigungen2.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 + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_SendungID").Value End If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId @@ -3190,8 +1970,8 @@ ELSE_ATILLA: 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() + ' If sender Is gridAviso Then gridMyAviso.ClearSelection() : UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.ClearSelection() + ' If sender Is gridMyAviso Then gridAviso.ClearSelection() : UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.ClearSelection() ' MsgBox(Grid_aktiv) DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True @@ -3354,11 +2134,6 @@ ELSE_ATILLA: 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 @@ -3374,13 +2149,7 @@ ELSE_ATILLA: 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) + If Not VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("STATUS_ATILLA") Then conAnVerimex.Visible = False conAnIndonesien.Visible = False End If @@ -3415,25 +2184,6 @@ ELSE_ATILLA: - 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) @@ -3606,12 +2356,6 @@ ELSE_ATILLA: 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 - @@ -4104,8 +2848,8 @@ ELSE_ATILLA: Fullscreen = True End If ' avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cglobal.Aktive_ID) - gridAviso_SpaltenFestlegen() - tbcntrAvisoLKW.Width = Panel1.Width + SEARCH_AVISO.gridAviso_SpaltenFestlegen() + ' tbcntrAvisoLKW.Width = Panel1.Width End Sub Private Sub btnSmall_Click(sender As Object, e As EventArgs) Handles btnSmall.Click @@ -4260,73 +3004,6 @@ ELSE_ATILLA: - 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 @@ -4790,55 +3467,6 @@ ELSE_ATILLA: '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 @@ -4911,11 +3539,6 @@ ELSE_ATILLA: 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") @@ -5331,11 +3954,7 @@ ELSE_ATILLA: 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") @@ -5375,31 +3994,7 @@ ELSE_ATILLA: 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() diff --git a/Aviso/frmLogin.vb b/Aviso/frmLogin.vb index 4c76ae2..9ad855a 100644 --- a/Aviso/frmLogin.vb +++ b/Aviso/frmLogin.vb @@ -41,6 +41,17 @@ Public Class frmLogin End If e.Handled = True End If + If e.Modifiers = Keys.Control And e.KeyCode = Keys.N Then + VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN = Not VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN + If VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN Then + Panel1.BackColor = Color.GreenYellow + Panel1.ForeColor = Color.White + Else + Panel1.BackColor = Color.White + Panel1.ForeColor = Color.FromArgb(0, 54, 128) + End If + e.Handled = True + End If If e.Modifiers = Keys.Control And e.KeyCode = Keys.A Then Panel2.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor lblVersion.ForeColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 4115b93..64d49d2 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -469,6 +469,8 @@ Public Class frmSendungsdetailsNEU FlowLayoutPanel.Visible = False End If + + Try Panel5.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor @@ -509,6 +511,17 @@ Public Class frmSendungsdetailsNEU VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId) 'LÄDT alle SENDUNGSDATEN + + If SENDUNG_LIST Is Nothing OrElse SENDUNG_LIST.Count = 0 Then + If vbYes = MsgBox("Der Sammelakt enthält keine Sendungen, möchten Sie die erste Sendung anlegen?", vbYesNoCancel) Then + ADD_SND(False) + Else + Me.Close() + Exit Sub + End If + End If + + Dim sbWhere = "" Dim QSwhere = "" @@ -1179,44 +1192,7 @@ Public Class frmSendungsdetailsNEU 'b_add.Font.FontFamily, 14, FontStyle.Bold) b_add.BackColor = Color.LightGray() AddHandler b_add.Click, Sub(send As Object, ev As EventArgs) - If AVISO.Abgeschlossen Then Exit Sub - ' Dim currentHisId = 0 - ' Try : currentHisId = AVISO_newDataSet.tblSendungen.Select("tblSnd_PosUnterNr=MAX(tblSnd_PosUnterNr)")(0).Item("tblSnd_PosUnterNr") : Catch : End Try - ' currentHisId += 1 - - Dim filiale_tmp As Integer = 0 - - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" : filiale_tmp = 5501 - Case "UNISPED" : filiale_tmp = 5601 - Case "AMBAR" : filiale_tmp = 5701 - Case "FRONTOFFICE" : filiale_tmp = 0 '5801 - Case "VERIMEX" : filiale_tmp = 0 '6001 - Case Else - Select Case AVISO.Grenzstelle - Case "SUB" : filiale_tmp = 4803 - Case "SBG" : filiale_tmp = 5003 - Case "WAI" : filiale_tmp = 5103 - Case "NKD" : filiale_tmp = 5303 - Case "SFD" : filiale_tmp = 4839 - End Select - - End Select - - - ' loadDataInLIST() - If SAVE_ME() Then 'aktuelle Änderungen sichern - ' Dim abfnr_tmp As Integer = IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0) - - Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SENDUNG_LIST.Count + 1, filiale_tmp, Nothing, 0, 0) 'Neue Sendung erstellen - ' SENDUNG_LIST.Add(NEW_SND) - - NEW_SND.SAVE(False) 'Insert neue Sendung - VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId, False) 'Alle Sendungen neu laden - ' initDataBinding() - LAST_SENDUNG(False) 'letzte Sendung - initButtons() - End If + ADD_SND() End Sub FlowLayoutPanel.Controls.Add(b_add) @@ -1232,6 +1208,52 @@ Public Class frmSendungsdetailsNEU End Sub + Public Sub ADD_SND(Optional initAfter = True) + If AVISO.Abgeschlossen Then Exit Sub + ' Dim currentHisId = 0 + ' Try : currentHisId = AVISO_newDataSet.tblSendungen.Select("tblSnd_PosUnterNr=MAX(tblSnd_PosUnterNr)")(0).Item("tblSnd_PosUnterNr") : Catch : End Try + ' currentHisId += 1 + + Dim filiale_tmp As Integer = 0 + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" : filiale_tmp = 5501 + Case "UNISPED" : filiale_tmp = 5601 + Case "AMBAR" : filiale_tmp = 5701 + Case "FRONTOFFICE" : filiale_tmp = 0 '5801 + Case "VERIMEX" : filiale_tmp = 0 '6001 + Case Else + Select Case AVISO.Grenzstelle + Case "SUB" : filiale_tmp = 4803 + Case "SBG" : filiale_tmp = 5003 + Case "WAI" : filiale_tmp = 5103 + Case "NKD" : filiale_tmp = 5303 + Case "SFD" : filiale_tmp = 4839 + End Select + + End Select + + + If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then 'Wenn noch keine Senungenen, nciht speichern + If Not SAVE_ME() Then Exit Sub 'Speichern, sonst abbruch + End If + + + ' loadDataInLIST() + 'If SAVE_ME() Then 'aktuelle Änderungen sichern + ' Dim abfnr_tmp As Integer = IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0) + + Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SENDUNG_LIST.Count + 1, filiale_tmp, Nothing, 0, 0) 'Neue Sendung erstellen + ' SENDUNG_LIST.Add(NEW_SND) + + NEW_SND.SAVE(False) 'Insert neue Sendung + VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId, False) 'Alle Sendungen neu laden + ' initDataBinding() + If initAfter Then LAST_SENDUNG(False) 'letzte Sendung + initButtons() + 'End If + + End Sub Public Sub Duplicate(index) ' loadDataInLIST() SAVE_ME() diff --git a/Aviso/usrCntlHauptfenster_Suche_AVISO.Designer.vb b/Aviso/usrCntlHauptfenster_Suche_AVISO.Designer.vb new file mode 100644 index 0000000..b8327d5 --- /dev/null +++ b/Aviso/usrCntlHauptfenster_Suche_AVISO.Designer.vb @@ -0,0 +1,1347 @@ + _ +Partial Class usrCntlHauptfenster_Suche_AVISO + Inherits System.Windows.Forms.UserControl + + 'UserControl ü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 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.Panel1 = New System.Windows.Forms.Panel() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + 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.btnHeute = New System.Windows.Forms.Button() + Me.btnGestern = New System.Windows.Forms.Button() + Me.CheckBox1 = New System.Windows.Forms.CheckBox() + Me.btnWoche = New System.Windows.Forms.Button() + 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.dtpBis = New System.Windows.Forms.DateTimePicker() + Me.Label2 = New System.Windows.Forms.Label() + Me.dtpVon = New System.Windows.Forms.DateTimePicker() + Me.Label5 = New System.Windows.Forms.Label() + Me.lblAkte = New System.Windows.Forms.Label() + Me.cboTeams = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.Label8 = 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.Label10 = New System.Windows.Forms.Label() + Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.Label21 = New System.Windows.Forms.Label() + Me.cboImEx = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.lblEintraege = New System.Windows.Forms.Label() + Me.cbxCluster = New System.Windows.Forms.CheckBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.txtSuche = New System.Windows.Forms.TextBox() + Me.lblZeit_aktuell = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.btnWichtige = New System.Windows.Forms.Button() + Me.btnWichtigeStandort = New System.Windows.Forms.Button() + Me.btnAlleAnzeigen = New System.Windows.Forms.Button() + Me.lblSuche = New System.Windows.Forms.Label() + Me.tbcntrAvisoLKW = New System.Windows.Forms.TabControl() + Me.tabAlle = New System.Windows.Forms.TabPage() + Me.tabErfasst = New System.Windows.Forms.TabPage() + Me.tabVorbereitet = New System.Windows.Forms.TabPage() + Me.tabVorgeschrieben = New System.Windows.Forms.TabPage() + Me.tabAnkunft = New System.Windows.Forms.TabPage() + Me.tabVERIMEX = New System.Windows.Forms.TabPage() + Me.tabINDONESIEN = New System.Windows.Forms.TabPage() + Me.tabFreigegeben = New System.Windows.Forms.TabPage() + Me.tabNichtEingetroffen = New System.Windows.Forms.TabPage() + 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.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.TimerAkte = New System.Windows.Forms.Timer(Me.components) + 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.lblDauer = New System.Windows.Forms.Label() + Me.Panel1.SuspendLayout() + Me.pblSNDOptions.SuspendLayout() + Me.tbcntrAvisoSND.SuspendLayout() + Me.pnlTime.SuspendLayout() + Me.tbcntrAvisoLKW.SuspendLayout() + Me.pnlSearch.SuspendLayout() + CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ctxtFarben.SuspendLayout() + Me.SuspendLayout() + ' + '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.MyComboBox1) + Me.Panel1.Controls.Add(Me.pblSNDOptions) + Me.Panel1.Controls.Add(Me.btnHeute) + Me.Panel1.Controls.Add(Me.btnGestern) + Me.Panel1.Controls.Add(Me.CheckBox1) + Me.Panel1.Controls.Add(Me.btnWoche) + Me.Panel1.Controls.Add(Me.tbcntrAvisoSND) + Me.Panel1.Controls.Add(Me.dtpBis) + Me.Panel1.Controls.Add(Me.Label2) + Me.Panel1.Controls.Add(Me.dtpVon) + Me.Panel1.Controls.Add(Me.Label5) + Me.Panel1.Controls.Add(Me.lblAkte) + Me.Panel1.Controls.Add(Me.cboTeams) + Me.Panel1.Controls.Add(Me.Label16) + Me.Panel1.Controls.Add(Me.Label8) + 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(1156, 225) + Me.Panel1.TabIndex = 3 + ' + '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(44, 68) + Me.MyComboBox1.MaxLength = 4 + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(98, 21) + Me.MyComboBox1.TabIndex = 7 + ' + '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(335, 188) + 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:" + ' + 'btnHeute + ' + Me.btnHeute.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnHeute.ForeColor = System.Drawing.Color.White + Me.btnHeute.Location = New System.Drawing.Point(143, 67) + 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 + ' + 'btnGestern + ' + Me.btnGestern.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnGestern.ForeColor = System.Drawing.Color.White + Me.btnGestern.Location = New System.Drawing.Point(192, 67) + 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 + ' + '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(1038, 181) + 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 + ' + 'btnWoche + ' + Me.btnWoche.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnWoche.ForeColor = System.Drawing.Color.White + Me.btnWoche.Location = New System.Drawing.Point(249, 67) + 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 + ' + '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, 166) + 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 + ' + 'dtpBis + ' + Me.dtpBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dtpBis.Location = New System.Drawing.Point(228, 101) + Me.dtpBis.Name = "dtpBis" + Me.dtpBis.Size = New System.Drawing.Size(85, 20) + Me.dtpBis.TabIndex = 4 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.ForeColor = System.Drawing.Color.White + Me.Label2.Location = New System.Drawing.Point(226, 89) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(20, 13) + Me.Label2.TabIndex = 5 + Me.Label2.Text = "bis" + ' + 'dtpVon + ' + Me.dtpVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dtpVon.Location = New System.Drawing.Point(143, 101) + 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(141, 89) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(25, 13) + Me.Label5.TabIndex = 6 + Me.Label5.Text = "von" + ' + '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(580, 163) + 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 + ' + '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(408, 4) + Me.cboTeams.Name = "cboTeams" + Me.cboTeams.Size = New System.Drawing.Size(107, 24) + Me.cboTeams.TabIndex = 19 + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.ForeColor = System.Drawing.Color.White + Me.Label16.Location = New System.Drawing.Point(368, 9) + 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 + ' + '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(408, 31) + 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(343, 37) + 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.lblDauer) + Me.pnlTime.Controls.Add(Me.Label10) + Me.pnlTime.Controls.Add(Me.txtBestimmungszollstelle) + Me.pnlTime.Controls.Add(Me.Label21) + Me.pnlTime.Controls.Add(Me.cboImEx) + Me.pnlTime.Controls.Add(Me.lblEintraege) + Me.pnlTime.Controls.Add(Me.cbxCluster) + Me.pnlTime.Location = New System.Drawing.Point(475, 1) + Me.pnlTime.Name = "pnlTime" + Me.pnlTime.Size = New System.Drawing.Size(683, 57) + Me.pnlTime.TabIndex = 12 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.ForeColor = System.Drawing.Color.White + Me.Label10.Location = New System.Drawing.Point(48, 36) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(44, 13) + Me.Label10.TabIndex = 26 + Me.Label10.Text = "Zollamt:" + ' + '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(102, 32) + 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 + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.ForeColor = System.Drawing.Color.White + Me.Label21.Location = New System.Drawing.Point(51, 8) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(41, 13) + Me.Label21.TabIndex = 23 + Me.Label21.Text = "IM/EX:" + ' + '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(102, 2) + Me.cboImEx.Name = "cboImEx" + Me.cboImEx.Size = New System.Drawing.Size(78, 24) + Me.cboImEx.TabIndex = 24 + ' + 'lblEintraege + ' + Me.lblEintraege.BackColor = System.Drawing.Color.Transparent + Me.lblEintraege.ForeColor = System.Drawing.Color.White + Me.lblEintraege.Location = New System.Drawing.Point(394, 6) + 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 + ' + '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(186, 6) + 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 + ' + '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(6, 53) + 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 + ' + '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" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.ForeColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(827, 40) + 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(825, 2) + 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 + ' + '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.btnWichtigeStandort.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(960, 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 + ' + '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" + ' + '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, 193) + 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 + ' + '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" + ' + '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" + ' + '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" + ' + '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" + ' + '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 + ' + '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" + ' + 'pnlSearch + ' + Me.pnlSearch.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(74, Byte), Integer), CType(CType(138, Byte), Integer)) + 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(335, 61) + Me.pnlSearch.Name = "pnlSearch" + Me.pnlSearch.Size = New System.Drawing.Size(823, 121) + Me.pnlSearch.TabIndex = 16 + ' + 'lblAbsender + ' + Me.lblAbsender.AutoSize = True + Me.lblAbsender.ForeColor = System.Drawing.Color.White + Me.lblAbsender.Location = New System.Drawing.Point(2, 33) + 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(73, 28) + 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(383, 77) + 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(310, 82) + 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(2, 82) + 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(73, 77) + 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(547, 104) + 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(456, 104) + 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(387, 104) + 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(288, 104) + 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(187, 104) + 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(123, 104) + 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(2, 105) + 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(383, 28) + 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(73, 6) + 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(310, 33) + 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(615, 6) + 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(2, 55) + 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(73, 50) + 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(383, 6) + 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(452, 6) + 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(310, 11) + 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(2, 12) + 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(73, 104) + 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 + ' + '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, 225) + 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(1156, 407) + Me.gridAviso.TabIndex = 4 + Me.gridAviso.TabStop = False + ' + 'TimerAkte + ' + Me.TimerAkte.Interval = 5000 + ' + '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" + ' + 'lblDauer + ' + Me.lblDauer.BackColor = System.Drawing.Color.Transparent + Me.lblDauer.ForeColor = System.Drawing.Color.White + Me.lblDauer.Location = New System.Drawing.Point(408, 18) + Me.lblDauer.Name = "lblDauer" + Me.lblDauer.Size = New System.Drawing.Size(155, 17) + Me.lblDauer.TabIndex = 27 + Me.lblDauer.Text = "1111123 ms" + Me.lblDauer.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'usrCntlHauptfenster_Suche_AVISO + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.gridAviso) + Me.Controls.Add(Me.Panel1) + Me.Name = "usrCntlHauptfenster_Suche_AVISO" + Me.Size = New System.Drawing.Size(1156, 632) + 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.tbcntrAvisoLKW.ResumeLayout(False) + Me.pnlSearch.ResumeLayout(False) + Me.pnlSearch.PerformLayout() + CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit() + Me.ctxtFarben.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents Panel1 As Panel + Friend WithEvents pblSNDOptions As Panel + Friend WithEvents cbx_My_Brexit As CheckBox + Friend WithEvents btnColor As Button + 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 cboMy_QS As CheckBox + Friend WithEvents cbx_My_LKW As CheckBox + Friend WithEvents cboMy_VB As CheckBox + Friend WithEvents lblMySnd_Grenzstelle As Label + Friend WithEvents CheckBox1 As CheckBox + Friend WithEvents tbcntrAvisoSND As TabControl + Friend WithEvents tbSndAlle As TabPage + Friend WithEvents tbSndOffen As TabPage + Friend WithEvents tbSndFreigegeben As TabPage + Friend WithEvents txtBestimmungszollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents Label10 As Label + Friend WithEvents cboImEx As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents lblAkte As Label + Friend WithEvents Label21 As Label + Friend WithEvents cbxCluster As CheckBox + Friend WithEvents cboTeams As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label16 As Label + Friend WithEvents Label8 As Label + Friend WithEvents lblEintraege As Label + Friend WithEvents cboGrenzstelle As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents lblGrenze As Label + Friend WithEvents pnlTime As Panel + Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents btnHeute As Button + Friend WithEvents btnGestern As Button + Friend WithEvents btnWoche As Button + Friend WithEvents dtpBis As DateTimePicker + Friend WithEvents Label2 As Label + Friend WithEvents dtpVon As DateTimePicker + Friend WithEvents Label5 As Label + Friend WithEvents Label6 As Label + Friend WithEvents txtSuche As TextBox + Friend WithEvents lblZeit_aktuell As Label + Friend WithEvents Label1 As Label + Friend WithEvents Label3 As Label + Friend WithEvents btnWichtige As Button + Friend WithEvents btnWichtigeStandort As Button + Friend WithEvents btnAlleAnzeigen As Button + Friend WithEvents lblSuche As Label + Friend WithEvents tbcntrAvisoLKW As TabControl + Friend WithEvents tabAlle As TabPage + Friend WithEvents tabErfasst As TabPage + Friend WithEvents tabVorbereitet As TabPage + Friend WithEvents tabVorgeschrieben As TabPage + Friend WithEvents tabAnkunft As TabPage + Friend WithEvents tabVERIMEX As TabPage + Friend WithEvents tabINDONESIEN As TabPage + Friend WithEvents tabFreigegeben As TabPage + Friend WithEvents tabNichtEingetroffen As TabPage + Friend WithEvents pnlSearch As Panel + Friend WithEvents lblAbsender As Label + Friend WithEvents txtAbsender As TextBox + Friend WithEvents txtDyRef As TextBox + Friend WithEvents Label19 As Label + Friend WithEvents lblErwLKWID As Label + Friend WithEvents txtlkwId As TextBox + Friend WithEvents cbxNE As CheckBox + Friend WithEvents cbxFreigabe As CheckBox + Friend WithEvents cbxAnkunft As CheckBox + Friend WithEvents cbxVorg As CheckBox + Friend WithEvents cbxVorb As CheckBox + Friend WithEvents cbxErfasst As CheckBox + Friend WithEvents Label14 As Label + Friend WithEvents txtKdAuftragsnr As TextBox + Friend WithEvents txtAuftraggeber As TextBox + Friend WithEvents lblErwKdAtrNr As Label + Friend WithEvents Button4 As Button + Friend WithEvents lblErwEmpfänger As Label + Friend WithEvents txtEmpfänger As TextBox + Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtAbfertigungsnummer As TextBox + Friend WithEvents lblErwFilialePos As Label + Friend WithEvents lblErwAuftraggeber As Label + Friend WithEvents cbxAlle As CheckBox + Friend WithEvents gridAviso As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents TimerAkte As Timer + Friend WithEvents ctxtFarben As ContextMenuStrip + Friend WithEvents ALLEToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ToolStripMenuItem19 As ToolStripMenuItem + Friend WithEvents ToolStripMenuItem20 As ToolStripMenuItem + Friend WithEvents ToolStripMenuItem21 As ToolStripMenuItem + Friend WithEvents lblDauer As Label +End Class diff --git a/Aviso/usrCntlHauptfenster_Suche_AVISO.resx b/Aviso/usrCntlHauptfenster_Suche_AVISO.resx new file mode 100644 index 0000000..79dc3bd --- /dev/null +++ b/Aviso/usrCntlHauptfenster_Suche_AVISO.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 17, 17 + + + 126, 56 + + \ No newline at end of file diff --git a/Aviso/usrCntlHauptfenster_Suche_AVISO.vb b/Aviso/usrCntlHauptfenster_Suche_AVISO.vb new file mode 100644 index 0000000..c8a8fa7 --- /dev/null +++ b/Aviso/usrCntlHauptfenster_Suche_AVISO.vb @@ -0,0 +1,1457 @@ + +Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO +Imports VERAG_PROG_ALLGEMEIN.cGlobal + + +Public Class usrCntlHauptfenster_Suche_AVISO + + + Dim cProgramFunctions As New cProgramFunctions + Dim PARENT_FRMHAUPTFENSTER As frmHauptfensterNew + + Private AvisoDAL As New cAvisoDAL + Private FUNC As New AvisoStatusFunctions + + Public Sub RESET() + cboGrenzstelle.SelectedIndex = 0 + MyComboBox1.changeItem(UStatus_AVEingang) + + tbcntrAvisoLKW.SelectedIndex = 0 + txtSuche.Text = "" + txtSuche.Focus() + Grid_aktiv = True + initDat() + Aviso_anzeigen("") + End Sub + + Private Sub usrCntlHauptfenster_Suche_AVISO_Load(sender As Object, e As EventArgs) Handles Me.Load + + PARENT_FRMHAUPTFENSTER = PARENT_FRMHAUPTFENSTER + + 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.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 + + + + 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.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) + + End If + 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) + + + cboTeams.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True) + + 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 + + + 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) + 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 + + If cboTeams.Items.Count = 0 Then cboTeams.Visible = False + dtpVon.Value = Now.AddMonths(-1) 'Now.AddDays(-15) + dtpBis.Value = Now.AddDays(1) + 'optAnkunft.Checked = True + tbcntrAvisoLKW.SelectedTab = tabAnkunft + + TimerAkte.Enabled = True + End Sub + + + Public 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 + PARENT_FRMHAUPTFENSTER.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 PARENT_FRMHAUPTFENSTER.pic.Visible = False : Exit Sub + If .Columns("AvisoID") Is Nothing Then PARENT_FRMHAUPTFENSTER.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 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 + PARENT_FRMHAUPTFENSTER.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 + PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + End If + If chkFarben Then PARENT_FRMHAUPTFENSTER.GridZeichnenAviso() + Label8.Visible = False + lblDauer.Text = "" & hDifferenz.ToString & " ms" + + lblEintraege.Text = gridAviso.RowCount & " Einträge" & If(gridAviso.RowCount = 2000, " (begrenzt)", "") + + + 'lblDauer.Text = "Dauer Anzeige aufbauen: " & hDifferenz.ToString & " ms" + End Sub + + + 'Private Sub lklErweitereSuche_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) + ' 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 + + 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 Button4_Click_1(sender As Object, e As EventArgs) + 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 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 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 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("") + + PARENT_FRMHAUPTFENSTER.setAkive_AuswahlID() 'Lädt die aktuelle ID + If gridAviso.SelectedRows.Count > 0 Then + PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, False) + Else + PARENT_FRMHAUPTFENSTER.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) + 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_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() + PARENT_FRMHAUPTFENSTER.UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.ClearSelection() + PARENT_FRMHAUPTFENSTER.Details_anzeigen(avisoidTmp, False) + selectRow(avisoidTmp) + Try + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "ATILLA" + Case Else ' "VERAG", "IMEX" + DirectCast(PARENT_FRMHAUPTFENSTER.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() + PARENT_FRMHAUPTFENSTER.UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.ClearSelection() + PARENT_FRMHAUPTFENSTER.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 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() + + PARENT_FRMHAUPTFENSTER.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() + PARENT_FRMHAUPTFENSTER.btnRefresh.PerformClick() + End Sub + End If + End If + + If gridAviso.SelectedRows.Count = 0 Then Exit Sub + + + 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 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 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 cboImEx_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboImEx.SelectedIndexChanged + If Grid_aktiv Then + Aviso_anzeigen("") + End If + End Sub + + Private Sub txtBestimmungszollstelle_VALUE_CHANGED() Handles txtBestimmungszollstelle.VALUE_CHANGED + If Grid_aktiv Then + Aviso_anzeigen("") + 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 + ' meineAviso_anzeigen() + End Sub + + Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click + btnColor.BackColor = Color.Orange + ' meineAviso_anzeigen() + End Sub + + Private Sub ToolStripMenuItem21_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem21.Click + btnColor.BackColor = Color.Yellow + ' meineAviso_anzeigen() + End Sub + + + Private Sub ALLEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ALLEToolStripMenuItem.Click + btnColor.BackColor = Color.White + ' meineAviso_anzeigen() + 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 + +End Class diff --git a/Diverses/Hauptakt/cbam.png b/Diverses/Hauptakt/cbam.png new file mode 100644 index 0000000..e87ab39 Binary files /dev/null and b/Diverses/Hauptakt/cbam.png differ diff --git a/Diverses/Hauptakt/cbam_s.png b/Diverses/Hauptakt/cbam_s.png new file mode 100644 index 0000000..caf9e1c Binary files /dev/null and b/Diverses/Hauptakt/cbam_s.png differ diff --git a/Diverses/Hauptakt/compliance.png b/Diverses/Hauptakt/compliance.png new file mode 100644 index 0000000..60e01c1 Binary files /dev/null and b/Diverses/Hauptakt/compliance.png differ diff --git a/Diverses/Hauptakt/compliance_s.png b/Diverses/Hauptakt/compliance_s.png new file mode 100644 index 0000000..da9bd38 Binary files /dev/null and b/Diverses/Hauptakt/compliance_s.png differ diff --git a/Diverses/Hauptakt/eudr.png b/Diverses/Hauptakt/eudr.png new file mode 100644 index 0000000..a30d5a4 Binary files /dev/null and b/Diverses/Hauptakt/eudr.png differ diff --git a/Diverses/Hauptakt/eudr_s.png b/Diverses/Hauptakt/eudr_s.png new file mode 100644 index 0000000..82c6c00 Binary files /dev/null and b/Diverses/Hauptakt/eudr_s.png differ diff --git a/Diverses/Hauptakt/f39f343c-a683-4ff7-9099-3fadea854f20.png b/Diverses/Hauptakt/f39f343c-a683-4ff7-9099-3fadea854f20.png new file mode 100644 index 0000000..24a5801 Binary files /dev/null and b/Diverses/Hauptakt/f39f343c-a683-4ff7-9099-3fadea854f20.png differ diff --git a/Diverses/Hauptakt/fgas.png b/Diverses/Hauptakt/fgas.png new file mode 100644 index 0000000..7f06bc4 Binary files /dev/null and b/Diverses/Hauptakt/fgas.png differ diff --git a/Diverses/Hauptakt/fgas_s.png b/Diverses/Hauptakt/fgas_s.png new file mode 100644 index 0000000..77b1f2d Binary files /dev/null and b/Diverses/Hauptakt/fgas_s.png differ diff --git a/Diverses/Hauptakt/zollberatung_s.png b/Diverses/Hauptakt/zollberatung_s.png new file mode 100644 index 0000000..350a69d Binary files /dev/null and b/Diverses/Hauptakt/zollberatung_s.png differ