From 792521238e4a9ac322cc6801dabbb27260bc9ce8 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 22 Nov 2023 13:52:17 +0100 Subject: [PATCH] =?UTF-8?q?Spedi-Suche,=20timas-Aktengang,=20Bugfix=20Pr?= =?UTF-8?q?=C3=BCfung=20ZE-Eintrag?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../usrCntlSpeditionsBuchSuche.Designer.vb | 73 ++++++++++--- .../usrCntlSpeditionsBuchSuche.vb | 4 + VERAG_PROG_ALLGEMEIN/Classes/SQL.vb | 10 +- .../frmMitarbeitersuche.Designer.vb | 60 +++++++--- .../frmMitarbeitersuche.vb | 52 +++++++-- .../My Project/Resources.Designer.vb | 20 ++++ .../My Project/Resources.resx | 103 ++++++++---------- .../My Project/Settings.Designer.vb | 18 ++- .../My Project/Settings.settings | 9 +- .../Resources/blue-question-mark-hi.png | Bin 0 -> 25417 bytes VERAG_PROG_ALLGEMEIN/Resources/file_small.png | Bin 0 -> 10446 bytes .../Schnittstellen/TIMAS/cTimasAPI.vb | 6 +- .../VERAG_PROG_ALLGEMEIN.vbproj | 15 +++ 13 files changed, 266 insertions(+), 104 deletions(-) create mode 100644 VERAG_PROG_ALLGEMEIN/Resources/blue-question-mark-hi.png create mode 100644 VERAG_PROG_ALLGEMEIN/Resources/file_small.png diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb index bdf21be9..883ab076 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb @@ -195,6 +195,8 @@ Partial Class usrCntlSpeditionsBuchSuche Me.Label45 = New System.Windows.Forms.Label() Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.SplitContainer = New System.Windows.Forms.SplitContainer() + Me.Label48 = New System.Windows.Forms.Label() + Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cntxtCntxtSpeditionsbuch.SuspendLayout() Me.pnlRechts.SuspendLayout() CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() @@ -298,6 +300,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.kdtxtAuftraggeber._displayWoelflKd = False Me.kdtxtAuftraggeber._hideIfListEmpty = True Me.kdtxtAuftraggeber._loadKdData = False + Me.kdtxtAuftraggeber._searchName1 = True Me.kdtxtAuftraggeber._UseFIRMA = "" Me.kdtxtAuftraggeber._ValueKdAndName = True Me.kdtxtAuftraggeber.dgvpos = "LEFT" @@ -380,12 +383,12 @@ Partial Class usrCntlSpeditionsBuchSuche Me.txtBelegNr._WaehrungZeichen = True Me.txtBelegNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtBelegNr.ForeColor = System.Drawing.Color.Black - Me.txtBelegNr.Location = New System.Drawing.Point(511, 70) + Me.txtBelegNr.Location = New System.Drawing.Point(493, 70) Me.txtBelegNr.MaxLineLength = -1 Me.txtBelegNr.MaxLines_Warning = "" Me.txtBelegNr.MaxLines_Warning_Label = Nothing Me.txtBelegNr.Name = "txtBelegNr" - Me.txtBelegNr.Size = New System.Drawing.Size(217, 20) + Me.txtBelegNr.Size = New System.Drawing.Size(239, 20) Me.txtBelegNr.TabIndex = 8 ' 'cboVersLand @@ -437,18 +440,18 @@ Partial Class usrCntlSpeditionsBuchSuche Me.txtPackstücke._WaehrungZeichen = True Me.txtPackstücke.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtPackstücke.ForeColor = System.Drawing.Color.Black - Me.txtPackstücke.Location = New System.Drawing.Point(511, 108) + Me.txtPackstücke.Location = New System.Drawing.Point(493, 108) Me.txtPackstücke.MaxLineLength = -1 Me.txtPackstücke.MaxLines_Warning = "" Me.txtPackstücke.MaxLines_Warning_Label = Nothing Me.txtPackstücke.Name = "txtPackstücke" - Me.txtPackstücke.Size = New System.Drawing.Size(110, 20) + Me.txtPackstücke.Size = New System.Drawing.Size(64, 20) Me.txtPackstücke.TabIndex = 41 ' 'Label36 ' Me.Label36.AutoSize = True - Me.Label36.Location = New System.Drawing.Point(508, 93) + Me.Label36.Location = New System.Drawing.Point(490, 93) Me.Label36.Name = "Label36" Me.Label36.Size = New System.Drawing.Size(67, 13) Me.Label36.TabIndex = 40 @@ -497,6 +500,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.kdtxtAvisierer._displayWoelflKd = False Me.kdtxtAvisierer._hideIfListEmpty = True Me.kdtxtAvisierer._loadKdData = False + Me.kdtxtAvisierer._searchName1 = True Me.kdtxtAvisierer._UseFIRMA = "" Me.kdtxtAvisierer._ValueKdAndName = True Me.kdtxtAvisierer.dgvpos = "LEFT" @@ -1463,7 +1467,7 @@ Partial Class usrCntlSpeditionsBuchSuche 'Label20 ' Me.Label20.AutoSize = True - Me.Label20.Location = New System.Drawing.Point(508, 54) + Me.Label20.Location = New System.Drawing.Point(490, 54) Me.Label20.Name = "Label20" Me.Label20.Size = New System.Drawing.Size(144, 13) Me.Label20.TabIndex = 3 @@ -1585,6 +1589,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.kdtxtFrachtfuehrer._displayWoelflKd = False Me.kdtxtFrachtfuehrer._hideIfListEmpty = True Me.kdtxtFrachtfuehrer._loadKdData = False + Me.kdtxtFrachtfuehrer._searchName1 = True Me.kdtxtFrachtfuehrer._UseFIRMA = "" Me.kdtxtFrachtfuehrer._ValueKdAndName = True Me.kdtxtFrachtfuehrer.dgvpos = "LEFT" @@ -1884,6 +1889,8 @@ Partial Class usrCntlSpeditionsBuchSuche ' 'SplitContainer1.Panel2 ' + Me.SplitContainer1.Panel2.Controls.Add(Me.txtVermerk) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label48) Me.SplitContainer1.Panel2.Controls.Add(Me.txtZollstelle) Me.SplitContainer1.Panel2.Controls.Add(Me.cbxEIDR) Me.SplitContainer1.Panel2.Controls.Add(Me.cbxCMR) @@ -2240,7 +2247,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.cbxCMR.BackColor = System.Drawing.Color.White Me.cbxCMR.Checked = True Me.cbxCMR.CheckState = System.Windows.Forms.CheckState.Indeterminate - Me.cbxCMR.Location = New System.Drawing.Point(511, 198) + Me.cbxCMR.Location = New System.Drawing.Point(493, 198) Me.cbxCMR.Name = "cbxCMR" Me.cbxCMR.Size = New System.Drawing.Size(50, 17) Me.cbxCMR.TabIndex = 49 @@ -2273,12 +2280,12 @@ Partial Class usrCntlSpeditionsBuchSuche Me.txtKdAuftragsNr._WaehrungZeichen = True Me.txtKdAuftragsNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtKdAuftragsNr.ForeColor = System.Drawing.Color.Black - Me.txtKdAuftragsNr.Location = New System.Drawing.Point(511, 26) + Me.txtKdAuftragsNr.Location = New System.Drawing.Point(493, 26) Me.txtKdAuftragsNr.MaxLineLength = -1 Me.txtKdAuftragsNr.MaxLines_Warning = "" Me.txtKdAuftragsNr.MaxLines_Warning_Label = Nothing Me.txtKdAuftragsNr.Name = "txtKdAuftragsNr" - Me.txtKdAuftragsNr.Size = New System.Drawing.Size(217, 20) + Me.txtKdAuftragsNr.Size = New System.Drawing.Size(239, 20) Me.txtKdAuftragsNr.TabIndex = 46 ' 'lstGrenze @@ -2294,7 +2301,7 @@ Partial Class usrCntlSpeditionsBuchSuche 'Label40 ' Me.Label40.AutoSize = True - Me.Label40.Location = New System.Drawing.Point(508, 10) + Me.Label40.Location = New System.Drawing.Point(490, 10) Me.Label40.Name = "Label40" Me.Label40.Size = New System.Drawing.Size(102, 13) Me.Label40.TabIndex = 45 @@ -2362,6 +2369,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.kdtxtEmpfaenger._displayWoelflKd = False Me.kdtxtEmpfaenger._hideIfListEmpty = True Me.kdtxtEmpfaenger._loadKdData = False + Me.kdtxtEmpfaenger._searchName1 = True Me.kdtxtEmpfaenger._UseFIRMA = "" Me.kdtxtEmpfaenger._ValueKdAndName = True Me.kdtxtEmpfaenger.dgvpos = "LEFT" @@ -2384,7 +2392,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.cbxFakturiert.BackColor = System.Drawing.Color.White Me.cbxFakturiert.Checked = True Me.cbxFakturiert.CheckState = System.Windows.Forms.CheckState.Indeterminate - Me.cbxFakturiert.Location = New System.Drawing.Point(557, 180) + Me.cbxFakturiert.Location = New System.Drawing.Point(539, 180) Me.cbxFakturiert.Name = "cbxFakturiert" Me.cbxFakturiert.Size = New System.Drawing.Size(70, 17) Me.cbxFakturiert.TabIndex = 32 @@ -2438,6 +2446,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.kdtxtEndempfaenger._displayWoelflKd = False Me.kdtxtEndempfaenger._hideIfListEmpty = True Me.kdtxtEndempfaenger._loadKdData = False + Me.kdtxtEndempfaenger._searchName1 = True Me.kdtxtEndempfaenger._UseFIRMA = "" Me.kdtxtEndempfaenger._ValueKdAndName = True Me.kdtxtEndempfaenger.dgvpos = "LEFT" @@ -2460,7 +2469,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.cbxBar.BackColor = System.Drawing.Color.White Me.cbxBar.Checked = True Me.cbxBar.CheckState = System.Windows.Forms.CheckState.Indeterminate - Me.cbxBar.Location = New System.Drawing.Point(511, 180) + Me.cbxBar.Location = New System.Drawing.Point(493, 180) Me.cbxBar.Name = "cbxBar" Me.cbxBar.Size = New System.Drawing.Size(42, 17) Me.cbxBar.TabIndex = 31 @@ -2505,6 +2514,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.kdtxtAbsender._displayWoelflKd = False Me.kdtxtAbsender._hideIfListEmpty = True Me.kdtxtAbsender._loadKdData = False + Me.kdtxtAbsender._searchName1 = True Me.kdtxtAbsender._UseFIRMA = "" Me.kdtxtAbsender._ValueKdAndName = True Me.kdtxtAbsender.dgvpos = "LEFT" @@ -2598,7 +2608,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.txtErfassungsnNr._WaehrungZeichen = True Me.txtErfassungsnNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtErfassungsnNr.ForeColor = System.Drawing.Color.Black - Me.txtErfassungsnNr.Location = New System.Drawing.Point(511, 154) + Me.txtErfassungsnNr.Location = New System.Drawing.Point(493, 154) Me.txtErfassungsnNr.MaxLineLength = -1 Me.txtErfassungsnNr.MaxLines_Warning = "" Me.txtErfassungsnNr.MaxLines_Warning_Label = Nothing @@ -2618,7 +2628,7 @@ Partial Class usrCntlSpeditionsBuchSuche 'Label16 ' Me.Label16.AutoSize = True - Me.Label16.Location = New System.Drawing.Point(508, 138) + Me.Label16.Location = New System.Drawing.Point(490, 138) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(99, 13) Me.Label16.TabIndex = 12 @@ -2716,6 +2726,39 @@ Partial Class usrCntlSpeditionsBuchSuche Me.SplitContainer.SplitterWidth = 2 Me.SplitContainer.TabIndex = 3 ' + 'Label48 + ' + Me.Label48.AutoSize = True + Me.Label48.Location = New System.Drawing.Point(563, 93) + Me.Label48.Name = "Label48" + Me.Label48.Size = New System.Drawing.Size(49, 13) + Me.Label48.TabIndex = 56 + Me.Label48.Text = "Vermerk:" + ' + 'txtVermerk + ' + Me.txtVermerk._DateTimeOnly = False + Me.txtVermerk._numbersOnly = False + Me.txtVermerk._numbersOnlyKommastellen = "" + Me.txtVermerk._numbersOnlyTrennzeichen = True + Me.txtVermerk._Prozent = False + Me.txtVermerk._ShortDateNew = False + Me.txtVermerk._ShortDateOnly = False + Me.txtVermerk._TimeOnly = False + Me.txtVermerk._TimeOnly_Seconds = False + Me.txtVermerk._value = Nothing + Me.txtVermerk._Waehrung = False + Me.txtVermerk._WaehrungZeichen = True + Me.txtVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtVermerk.ForeColor = System.Drawing.Color.Black + Me.txtVermerk.Location = New System.Drawing.Point(563, 109) + Me.txtVermerk.MaxLineLength = -1 + Me.txtVermerk.MaxLines_Warning = "" + Me.txtVermerk.MaxLines_Warning_Label = Nothing + Me.txtVermerk.Name = "txtVermerk" + Me.txtVermerk.Size = New System.Drawing.Size(64, 20) + Me.txtVermerk.TabIndex = 57 + ' 'usrCntlSpeditionsBuchSuche ' Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None @@ -2925,4 +2968,6 @@ Partial Class usrCntlSpeditionsBuchSuche Friend WithEvents Button23 As Button Friend WithEvents txtZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox Friend WithEvents FlenderBocholtZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label48 As Label End Class diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb index 9d946753..cf00e948 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb @@ -286,6 +286,9 @@ Public Class usrCntlSpeditionsBuchSuche If cboSachbearbeiter._value <> "" Then sqlstr &= " AND Speditionsbuch.[Personalnummer] = @Personalnummer " If cboSB_Qs._value <> "" Then sqlstr &= " AND Speditionsbuch.[PersonalnummerQS] = @PersonalnummerQS " If cboSB_TR._value <> "" Then sqlstr &= " AND Speditionsbuch.[PersonalnummerAbklTR] = @PersonalnummerAbklTR " + + If txtVermerk.Text <> "" Then sqlstr &= " AND Speditionsbuch.[Vermerk] LIKE @Vermerk " + Return sqlstr End Function @@ -332,6 +335,7 @@ Public Class usrCntlSpeditionsBuchSuche list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Personalnummer", cboSachbearbeiter._value)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerQS", cboSB_Qs._value)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerAbklTR", cboSB_TR._value)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", txtVermerk.Text.Replace("*", "%").ToUpper)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb index 48409fde..da323d74 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb @@ -71,19 +71,17 @@ Public Class SQL If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Try - Return My.MySettings.Default.AsfinagConnectionString + Return My.MySettings.Default.AsfinagConnectionStringDEV Catch ex As Exception - 'Return "Data Source=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;" Return "Data Source=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=ASFINAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" End Try Else Try - Return My.MySettings.Default.AsfinagConnectionString 'nach Prod-Start austauschen! + Return My.MySettings.Default.AsfinagConnectionStringPROD Catch ex As Exception - ' Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;" - Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=ASFINAG;Integrated Security=false;User ID=test;Password=BmWr501956;" + Return "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ASFINAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" End Try End If @@ -118,7 +116,7 @@ Public Class SQL Public Shared Function GetAsfinagConnectionString(TESTSYSTEM) As String If TESTSYSTEM Then - Return My.MySettings.Default.AsfinagConnectionString() + Return My.MySettings.Default.AsfinagConnectionStringDEV() Else Try Return My.MySettings.Default.FMZOLL_PRODConnectionString diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb index 5806b1ae..c7ffafee 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb @@ -34,6 +34,8 @@ Partial Class frmMitarbeitersuche Me.lblStatusZE = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label() Me.pnlZeiten = New System.Windows.Forms.Panel() + Me.btnAkten = New System.Windows.Forms.Button() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() Me.Button2 = New System.Windows.Forms.Button() Me.Label12 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() @@ -86,6 +88,7 @@ Partial Class frmMitarbeitersuche Me.pnl.SuspendLayout() Me.Panel2.SuspendLayout() Me.pnlZeiten.SuspendLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlWohnadresse.SuspendLayout() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlMotto.SuspendLayout() @@ -203,9 +206,9 @@ Partial Class frmMitarbeitersuche Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel2.Controls.Add(Me.lblStatusZE) Me.Panel2.Controls.Add(Me.Label13) - Me.Panel2.Location = New System.Drawing.Point(590, 402) + Me.Panel2.Location = New System.Drawing.Point(624, 402) Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(185, 66) + Me.Panel2.Size = New System.Drawing.Size(151, 66) Me.Panel2.TabIndex = 128 ' 'lblStatusZE @@ -215,7 +218,7 @@ Partial Class frmMitarbeitersuche Me.lblStatusZE.ForeColor = System.Drawing.Color.White Me.lblStatusZE.Location = New System.Drawing.Point(7, 17) Me.lblStatusZE.Name = "lblStatusZE" - Me.lblStatusZE.Size = New System.Drawing.Size(174, 25) + Me.lblStatusZE.Size = New System.Drawing.Size(140, 25) Me.lblStatusZE.TabIndex = 12 Me.lblStatusZE.Text = "OFFLINE" Me.lblStatusZE.TextAlign = System.Drawing.ContentAlignment.MiddleCenter @@ -237,6 +240,8 @@ Partial Class frmMitarbeitersuche Me.pnlZeiten.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.pnlZeiten.BackColor = System.Drawing.Color.Cornsilk Me.pnlZeiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlZeiten.Controls.Add(Me.btnAkten) + Me.pnlZeiten.Controls.Add(Me.PictureBox5) Me.pnlZeiten.Controls.Add(Me.Button2) Me.pnlZeiten.Controls.Add(Me.Label12) Me.pnlZeiten.Controls.Add(Me.Label9) @@ -247,9 +252,35 @@ Partial Class frmMitarbeitersuche Me.pnlZeiten.Controls.Add(Me.cbxHomeoffice) Me.pnlZeiten.Location = New System.Drawing.Point(0, 402) Me.pnlZeiten.Name = "pnlZeiten" - Me.pnlZeiten.Size = New System.Drawing.Size(591, 66) + Me.pnlZeiten.Size = New System.Drawing.Size(624, 66) Me.pnlZeiten.TabIndex = 22 ' + 'btnAkten + ' + Me.btnAkten.BackColor = System.Drawing.Color.White + Me.btnAkten.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnAkten.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAkten.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.file_small + Me.btnAkten.ImageAlign = System.Drawing.ContentAlignment.TopLeft + Me.btnAkten.Location = New System.Drawing.Point(535, 15) + Me.btnAkten.Name = "btnAkten" + Me.btnAkten.Size = New System.Drawing.Size(85, 46) + Me.btnAkten.TabIndex = 130 + Me.btnAkten.Text = " AKTEN" + Me.btnAkten.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAkten.UseVisualStyleBackColor = False + Me.btnAkten.Visible = False + ' + 'PictureBox5 + ' + Me.PictureBox5.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.blue_question_mark_hi + Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox5.Location = New System.Drawing.Point(86, 1) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(18, 19) + Me.PictureBox5.TabIndex = 129 + Me.PictureBox5.TabStop = False + ' 'Button2 ' Me.Button2.BackColor = System.Drawing.Color.White @@ -257,9 +288,9 @@ Partial Class frmMitarbeitersuche Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button2.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.parcel_small1 Me.Button2.ImageAlign = System.Drawing.ContentAlignment.TopLeft - Me.Button2.Location = New System.Drawing.Point(495, 15) + Me.Button2.Location = New System.Drawing.Point(457, 15) Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(90, 46) + Me.Button2.Size = New System.Drawing.Size(77, 46) Me.Button2.TabIndex = 128 Me.Button2.Text = "POST" Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -283,7 +314,7 @@ Partial Class frmMitarbeitersuche Me.Label9.AutoSize = True Me.Label9.BackColor = System.Drawing.Color.Transparent Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Underline) - Me.Label9.Location = New System.Drawing.Point(10, 2) + Me.Label9.Location = New System.Drawing.Point(9, 2) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(71, 13) Me.Label9.TabIndex = 30 @@ -297,9 +328,9 @@ Partial Class frmMitarbeitersuche Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.zeiterfassung_s Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopLeft - Me.Button1.Location = New System.Drawing.Point(9, 17) + Me.Button1.Location = New System.Drawing.Point(12, 21) Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(123, 45) + Me.Button1.Size = New System.Drawing.Size(120, 41) Me.Button1.TabIndex = 126 Me.Button1.Text = "Zeiterfassung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Online" Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -312,9 +343,9 @@ Partial Class frmMitarbeitersuche Me.btnZEGehen.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnZEGehen.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.ze_gehen Me.btnZEGehen.ImageAlign = System.Drawing.ContentAlignment.TopRight - Me.btnZEGehen.Location = New System.Drawing.Point(382, 16) + Me.btnZEGehen.Location = New System.Drawing.Point(364, 16) Me.btnZEGehen.Name = "btnZEGehen" - Me.btnZEGehen.Size = New System.Drawing.Size(107, 45) + Me.btnZEGehen.Size = New System.Drawing.Size(90, 45) Me.btnZEGehen.TabIndex = 124 Me.btnZEGehen.Text = "GEHEN" Me.btnZEGehen.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -327,7 +358,7 @@ Partial Class frmMitarbeitersuche Me.btnZEKommen.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnZEKommen.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.ze_kommen Me.btnZEKommen.ImageAlign = System.Drawing.ContentAlignment.TopLeft - Me.btnZEKommen.Location = New System.Drawing.Point(270, 16) + Me.btnZEKommen.Location = New System.Drawing.Point(252, 16) Me.btnZEKommen.Name = "btnZEKommen" Me.btnZEKommen.Size = New System.Drawing.Size(106, 45) Me.btnZEKommen.TabIndex = 123 @@ -347,7 +378,7 @@ Partial Class frmMitarbeitersuche ' Me.cbxHomeoffice.AutoSize = True Me.cbxHomeoffice.ForeColor = System.Drawing.Color.Black - Me.cbxHomeoffice.Location = New System.Drawing.Point(270, 1) + Me.cbxHomeoffice.Location = New System.Drawing.Point(255, 1) Me.cbxHomeoffice.Name = "cbxHomeoffice" Me.cbxHomeoffice.Size = New System.Drawing.Size(80, 17) Me.cbxHomeoffice.TabIndex = 125 @@ -791,6 +822,7 @@ Partial Class frmMitarbeitersuche Me.Panel2.PerformLayout() Me.pnlZeiten.ResumeLayout(False) Me.pnlZeiten.PerformLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlWohnadresse.ResumeLayout(False) CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlMotto.ResumeLayout(False) @@ -860,4 +892,6 @@ Partial Class frmMitarbeitersuche Friend WithEvents lblStatusZE As Windows.Forms.Label Friend WithEvents Label13 As Windows.Forms.Label Friend WithEvents Button2 As Windows.Forms.Button + Friend WithEvents PictureBox5 As Windows.Forms.PictureBox + Friend WithEvents btnAkten As Windows.Forms.Button End Class diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb index ae55e3a2..dd0a9386 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb @@ -1,4 +1,5 @@ Imports System.ComponentModel +Imports System.Diagnostics.Eventing.Reader Imports System.Drawing Imports System.Net Imports System.Threading @@ -183,11 +184,9 @@ Public Class frmMitarbeitersuche End If End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_POSTGANG", "SDL") Then Button2.Visible = True - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_POSTGANG", "SDL") Then - Button2.Visible = True - End If - + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_AKTENGANG", "SDL") Then btnAkten.Visible = True End If End Sub @@ -298,12 +297,14 @@ Public Class frmMitarbeitersuche End If End Sub - Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnZEKommen.Click, btnZEGehen.Click, Button2.Click + Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnZEKommen.Click, btnZEGehen.Click, Button2.Click, btnAkten.Click Dim art As String If sender Is btnZEKommen Then art = "in" ElseIf sender Is btnZEGehen Then art = "out" + ElseIf sender Is btnAkten Then + art = "akten" Else art = "post" End If @@ -333,8 +334,31 @@ Public Class frmMitarbeitersuche initTimasData() End If + ElseIf art = "akten" Then + Dim aktengang As DateTime = Now().AddMinutes(-10) + Dim askPost As MsgBoxResult = MsgBox("Aktengang für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " eintragen?" & vbNewLine & aktengang.ToString(), vbYesNo) + If askPost = vbYes Then + Dim info + Dim timestp = aktengang - Else + Dim timeEntryExisting As Boolean = False + Dim isOnline = timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, Nothing, timeEntryExisting) + If Not timeEntryExisting AndAlso Not isOnline Then + timas.setTimeEntry(cAllgemein.MITARBEITER, timestp, info, "in", 10) 'Start 10 Aktengang + timestp = timestp.AddMinutes(10) + timas.setTimeEntry(cAllgemein.MITARBEITER, timestp, info, "out", 10) 'Ende 10 Aktengang + timestp = timestp.AddMinutes(1) + timas.setTimeEntry(cAllgemein.MITARBEITER, timestp, info, "in", 0) ' Start + End If + + MsgBox(info) + Thread.Sleep(2000) 'warten bis Eintrag in Timas-DB + requestDone = False + initTimasData() + End If + + + Else 'normales kommen/gehen Dim a As MsgBoxResult = MsgBox(IIf(cbxHomeoffice.Checked, "Homeoffice", "Büro") & vbNewLine & sender.text & " für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & vbNewLine & Now.ToString(), vbYesNo) @@ -369,8 +393,9 @@ Public Class frmMitarbeitersuche Dim isServiceRunning As Boolean = True timas.getTimeSaldo(MA.mit_timasId, lblTimasSaldo.Text, isServiceRunning) If Not isServiceRunning Then - MsgBox("Abfragefehler!") - Exit Sub + 'Abfrage konnte nicht durchgeführt werden. + MsgBox("Abfragefehler am Timas-Server!") + 'Exit Sub End If lblStatusZE.Visible = True Dim checkEntry As Boolean = timas.getTimeEntries(MA.mit_timasId, dtZeiten,, requestDone) @@ -383,6 +408,7 @@ Public Class frmMitarbeitersuche btnZEGehen.Enabled = True btnZEKommen.Enabled = False + btnAkten.Enabled = False Else ' PictureBox9.Image = VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_red lblStatusZE.Text = "OFFLINE" @@ -390,13 +416,16 @@ Public Class frmMitarbeitersuche btnZEGehen.Enabled = False btnZEKommen.Enabled = True + btnAkten.Enabled = True End If Else 'Request wurde nicht verarbeitet -> Verbindungsfehler - lblStatusZE.Text = "Verbindungsfehler" + lblStatusZE.Text = "Serverfehler" lblStatusZE.BackColor = Color.Gray btnZEGehen.Enabled = False btnZEKommen.Enabled = False + Button2.Enabled = False + btnAkten.Enabled = False End If @@ -418,4 +447,9 @@ Public Class frmMitarbeitersuche Process.Start(webAddress) End Sub + Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click + Dim webAddress As String = "https://wiki.verag.ag/de/software/zeiterfassung/zeiterfassung" + Process.Start(webAddress) + End Sub + End Class \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb b/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb index dd881a88..ede5ecef 100644 --- a/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb @@ -100,6 +100,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property blue_question_mark_hi() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("blue-question-mark-hi", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -150,6 +160,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property file_small() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("file_small", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/VERAG_PROG_ALLGEMEIN/My Project/Resources.resx b/VERAG_PROG_ALLGEMEIN/My Project/Resources.resx index fe7f842f..87545d7c 100644 --- a/VERAG_PROG_ALLGEMEIN/My Project/Resources.resx +++ b/VERAG_PROG_ALLGEMEIN/My Project/Resources.resx @@ -127,25 +127,12 @@ ..\Resources\personGray_m.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\pdf_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\ze_gehen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\house.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\zeiterfassung_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\seal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -158,8 +145,8 @@ ..\Resources\pfeil_links.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Atilla.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Verag-Spedition-GMBH-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\seal2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -179,8 +166,8 @@ ..\Resources\seal3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\pfeil_unten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\aviso.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\people.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -188,9 +175,6 @@ ..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\pfeil_unten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - @@ -799,6 +783,9 @@ ..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\zwiterfassung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\ok.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -808,11 +795,8 @@ ..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\fremdSped.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -861,7 +845,7 @@ XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ - 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEAAACxABrSO9dQAA9UFJREFUeF7s/QmYZNld + 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDwAACw8BkvkDpQAA9UFJREFUeF7s/QmYZNld nomHultbSy01EpbagISaEmJraGQQi5DYbBpJ7HiMwTPGbmMe/DfGM5jHeDyMZzDW2EaAV+FhbIyFWYVY 1GAQFkJIIEtdudSelVWZWZVZuVXua+VSXV0d/++7HbcUGX0yKzMj4t5zbrzv87xPRp6M5d577jn392VE 3Fur1+uIiIiIiIiIxzbYiIiIiIiIiHhYg42IiIiIiIiIhzXYiIiIiIiIiHhYg42IiIiIiIiIhzXYiIiI @@ -1974,8 +1958,14 @@ FgIAAAAAAAC0SrAQAAAAAAAAoFWChQAAAAAAAACt0ej5/x9oWtk/vf5fAAAAAElFTkSuQmCC - - ..\Resources\aviso.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\pdf_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Verag-Customs-Service-GMBH-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -1989,23 +1979,29 @@ ..\Resources\picboxZoomIn_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\house.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\personGray_w.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\sicherheit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\err.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\weiblich.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\männlich.png;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\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\zeiterfassung_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\parcel_small1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\person.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -2013,8 +2009,8 @@ ..\Resources\uhr_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\personGray_w.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\zeiterfassung_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\android-note1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -2022,17 +2018,17 @@ ..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Atilla.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\ze_kommen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\zwiterfassung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\TiMaS-Paket-Time.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\fremdSped.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\easteregg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -2052,25 +2048,22 @@ ..\Resources\cake.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\männlich.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\blue-question-mark-hi.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Verag-Spedition-GMBH-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ambar_simple.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 - - ..\Resources\sicherheit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\people.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\pfeil_unten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\parcel_small1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\err.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\file_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb b/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb index 719c44c7..4d9a315e 100644 --- a/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Public NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase @@ -373,9 +373,9 @@ Namespace My Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=ASFINAG;Integrated Security=false"& _ ";User ID=AppUser;Password=yp/THDd?xM+pZ$;")> _ - Public ReadOnly Property AsfinagConnectionString() As String + Public ReadOnly Property AsfinagConnectionStringDEV() As String Get - Return CType(Me("AsfinagConnectionString"),String) + Return CType(Me("AsfinagConnectionStringDEV"),String) End Get End Property @@ -391,6 +391,18 @@ Namespace My Me("EZOLL_UNISPEDConnectionString") = value End Set End Property + + _ + Public ReadOnly Property AsfinagConnectionStringPROD() As String + Get + Return CType(Me("AsfinagConnectionStringPROD"),String) + End Get + End Property End Class End Namespace diff --git a/VERAG_PROG_ALLGEMEIN/My Project/Settings.settings b/VERAG_PROG_ALLGEMEIN/My Project/Settings.settings index 4edf70cb..d93b9a8b 100644 --- a/VERAG_PROG_ALLGEMEIN/My Project/Settings.settings +++ b/VERAG_PROG_ALLGEMEIN/My Project/Settings.settings @@ -166,7 +166,7 @@ </SerializableConnectionString> Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956; - + <?xml version="1.0" encoding="utf-16"?> <SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> <ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=ASFINAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</ConnectionString> @@ -176,5 +176,12 @@ Data Source=srv04.unisu.at;Initial Catalog=ezoll;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ASFINAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</ConnectionString> +</SerializableConnectionString> + Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ASFINAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200 + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Resources/blue-question-mark-hi.png b/VERAG_PROG_ALLGEMEIN/Resources/blue-question-mark-hi.png new file mode 100644 index 0000000000000000000000000000000000000000..5db32a7abe9c95b3d3e78647f4399b17f401b40c GIT binary patch literal 25417 zcmeEu_dnHd`2Qg?vSoxrRyI*aX4z3>@4Zq+WMzwF9+Xh_%HDggjFOd2R+7Di2%qcp z{(Sz2?+@P|4-Ywyb6&6eb>G*0-Oua!d|oH?k%|H#J`FwsfgrrED65V@VCo_e80WZ` z;g!3+&&uH!)^q9mnz-=K8`m-f{>FQzsP`O!pe95AV0;K)3WgW2xyb3dXgFHCxSKg! zA>7^Fd2Jn@KDRJ?X2t91Y?HVpP6KZuN54ta*2T^W;pA%d+{M<>;kvz<^V2=!2U7^d zb;Nzydzv0e8#C@6nsOc3JGWMmZ|;(LKE`Vjj^Si)ny|&soxpgZb{CsABZNsS=7wC` z%Wv6X2eV=h{HS^!>lr4}Th1l)W&arqje>WMX0x zprPc3Urbjl+R(qsZ~p&3|KFUAat?JRmXBGCJQ5nNSD7-zpQ|JNLn0QR91t2tM97#s zbCPL%i%y6Q3rb35%VFZb!*l94cetOGDAmQ5&BV`2!I5_@S{)OSM2B2h-NJNKbwBo~ zZyTPWm`!omadv+d|9ToJb+q^F)lnZqllb@f&4n=OS$cL80mN2uf7pdpNY8AkDQS$} z8;xO7Uq-S8Dkf4l$>r_>kr!L&JAXYt4MI2^=6P9KTP?_&<3r@#{rR*E#s-Xrhx3yY<_f%p5bw@*%)nJh?2uZ6odpyqbH9C-V4bwziqSMg;PSFdYw zlZS+5UsCJoo!N+zlZ_3;4)5u=va~ik8mgEmU1mWgh4s+CtEaXdqseWI;~G^TzV+;< z3l>poSncvr*oi0eZ4q2XtCxdmPxLBtslw)e$X(51VM3Ofl1{$oev5aiYSE6@!G`E#O};BwYGrn$+&Q7um(8WI#^>Z9enltLgES z`*?JBe6GD#HEPeA8*giC!*Jz_m*0o6>$M1c7$s(gWdm?M0s(1G2v z$}y-|btE9Zp`blT*780KTZmJX7sIb`GSWoHuKS#v3Neo|>b~W#qZy&ws; z!HdKfD^uk}p4E;)alg6Rh62{BLR`9D%2~=lpp<$K-}`D(M_y3Fa8EmK6(y)u@33+| zD(+2Oz?}BxC&vOerok2x&r17{6eLZ${vWdZOj0#^*fEp-P2B?)T^SFLPv;~;TAoI6 zx^bS8Q_w~^?T?v$ZxqZ`D`W9=^&s#O6%L5XNnCp@8>P|JQ)3%BAoW^V^?Z{22-zT8z)i}hpVW$!_uy*S}gPp z;Zas3d5t4G!)5%W$M3y;cCJK#KK zPW;~fOMrAtMWv=OM!h{>+h3DkbX9C$_|t}Rz>OwjlV~H+&uKisS9&&Y+Zh^i(DqW! zZT-inZl&j<0eZ?23PmCGzmyJKD}C3+yv1xNT6993;mJ3?NhK1e`hD9npo( zC^)L%arVn(iE&h1oVt85cky*3%c#2~K7`aQ?HLphsMu+%mD>G_BgG`iq2)@)B=h-N zoqoe2``WI!OokX-%FL*iCNS=-%kDW_(j@j#(&0VI$hd8IVek zx;6Jy5XRis*I2?tRa$Ux@9en*M&-~pN_?MRTDa^;tmENT-!?rgak?z*Cn0f*JoLV; zqN0kNGyt2o8lOSp9H`<(YzY(LbaO^t;jg`b|JHEH?!^CAUD3 z+O2qtpOsc5($4~lm{3GSxV*+#j8>SA=Tt$_-vZEoNg8jVF;8Zu>*YR;ZvxQ?NntDN zp|~w1p{4sVxMF@3W>n>VKks#}C5gLJ^cf=~{cbe9{$drLhmz4W)h$(g3Wr!)S&PM* z39W81euxRoz4p4#9?VzVcm4OlWiJc|^2S~V$NFMea`;{|`!-pzBtK?3wMdrMP*F$z#4F2-p}~S*GSwpY-2ZyU zeGam)DK_m$AqTX9RlPyHOsb^q%*=nye(n$bev9v=P5P2zQKFd9GSiqivNswKQ5vOY z19+oq1UV1*FAQGgTb(K4?(w;-AJJ=?ZR-@<^_`K4ii)J^|M`(?oQ`$k{uKM|=b)x; zzJK?qJz}Xwig&UtaLX!P7nC3$@Y!Mh==)ayj<*M{EKCKEpEnJ|mG9;RkUP!)#D=>t z<|;B)HtOZ-j}!z6bpCZbo1MvgS#6T})!plk%d=;9n>gEYO$4bK4jjTGzH)DfI$vHt zO8NvKtaQCcPle-GU@X}U@d4TZC$K(THhglK9sau_$n81;-EJzRRg=68G5QMR*das7N?YH2+pA_^AB>E;F#Wau73+5KGInD&*~Y7F#A zuJwfir&anLZOuh^ZG&j0R^XS%qiF(Ngj>N&iNxk`-so1G;kxq*%eZ~U>>4l#@0sv; zz%YcPqV3rpt4Kk~{jD7~COR>)?6g`}c+@v!JP+4j89nE(EHuF*a+k3EEd9>Cm{-N4 zTFXd$I-l3PnC-{WXaj&Eq74aOW7pd}KN|`B4C=@^@>UZrMroftn_rKK05EJfTh}|Z zB4Uc!tHpaq1h+C*2Tx*JuzeVy((A-tWXpiM)eGNO;=BFfs`JTIsjZ)%>+G(FZ64c? zs>sTA<)J>l>RdmvXifN&AYPcW#x6_Q@lsBR2Y?mw@`L$GQ(i!A3rncTp-g+3t6ciJ zu5=B~UbciBpL3ep(Gz%g>ysoJ!B;uXOZsu~nm$ekOHu)cH$XAc=5ILvB#XsZ`+Z{+Kyz z!kFlTZ_AEwT06A*vPm4Cr~ZJc3x z**Bt?=joj1Nu-8%`}YW>C3Eg$O%_huW*!L)>Np8Zo4p}}1fFFhW03fY4b%dQKJ$v#JgGX{Cgzjr^(dbs#RWarf8*i}1t^8K87CG0;7QI4~p-Z-79mAM@93mMipFwoIq8E;KcD_qco3a316ixkF4 z3at(9-+m}-uJi%o&DyMuX~~UFG%|(ZVPNcGQ>TB$Tjp86IzpoJ-8=P_xrF|mUyNUP z)tj~B%#^u~Ddg&~LJ%$;rq=pX1wUB0H=PB$OMPwPeea6EW3q1o0-N=Qf(7I+CH5uT z;wx$D@BIw_VV3F=pIz3cjz`r7QVA(1!_ zS|dMQZD@LY`Q+4eY`Mg=FSZSru>U>L&r*srDICVZ?f2Fqd*h0YBV}bqEt2Pk4YYvW zA0Y$Tbs$59e&r_j^btqKml)|F)Z1>J>XEB%saw<LN~EjtNL+kobNe@QP^&@auOBX0QG-m=P}pEQY@#xc-L{k(64ywi=g;D&O*;bD zMMb5)bG|ziyZ7_pzn{-vm>-tRoc~N{D7e)K1jNz;KA*d=hi7ej?+k@8eesTqyIfi- zv2h z{}mu{nqD#qBYuVDPN-r=ob_OAQ$yiE8_>EfWRos`E3%7kxiJ#vh&VE(hb)?ofU z3apcLuNCM1rv(Oym(eGsgk(~1pcxfK4kxuVZsYEf;Rq2=pG9!bFWm9VCA}YArT-Cu zdOfXUo1!R{OE>PeOA3+mz%?gL8pE^+Ic1b=dtS0;e@d}fMpwMtGcF|E1BTj2j&TP* zFKNUmSL~;^k@*>}9h{F1D=-a>4w{Z0K;3t`c>bxfMK~X&Zu&%rGcxj4aC@iTTnX*9 z?zfJSoxgm{=-Qap8)$qkK?*EQbRNwxX8nr%!-@H~TtO~Evlv}p`ySz;YqVZrq^zc$ zIO0sQd)g#e9rLxS-25XCtgiEN8sMSOe8h>1FCFs3n15!V@c`x>u{-8JqUj$S3tx4N z{1AT3vZ#7(OUemDhVAbwr)_t@wJVeW(DQ-5;fqQLcr2#tzBGS*XQ%+V3qNT(Gai-C z<1_hvXZ61tH4}c$TSaVfYt>UNPcP^3Xk%Uq4M2x361nbn_zBkw>=u*wQ zyuN2wP@ij1N8sr#LU^i@q?7ce9?PHO%2=k}42k$mISN1=qW0k>y~*5by=As032W5a zIz7F}iwEAs9VY9z7-#Y>^grRjJYiIv1E^M2Kl{5%`X@zm!%dn?UGG+CkIkplW4FZ# zU`2uKQO!qL#sMK!>h$Z;!PY_T8oM@Y%$dZ|NzWY-_dEKKWDzjMT>34iSn?N*OggGw ztK5TgIK6BHvcJPvF{m>Q?Wd@Mw|^D4f7nz2Zs3yNwQa6t*Ti>L?d=zbW($6&=uPD) zIfq%|W}n~rfq_i{=K=Cu0Q1cIrggv4s8gZ5QfN??=E3n}8leXa8J*+75s}QgmJ~7k zyB;q-5hyCk#24(bUMh9!8Z=l^vH^Vj>3AQtP!Tv?+PQg(O6^v7OPPfblv$$~jsv znJ{pT^$t~5>`H`u`MIXKBeX(CvwKKMWoW8giZ1Ht9KR$gDG=zikzmh|q<{hkdm7V) z33mc7lv%%Lp>T6j_(a2@IWwmsx2~lcOwsX1PIhogut&WWk~{GxB4w*sUyA4Wbj>LD z{5xAhlS@Im0?n0|_m$8=sFg~K8miE~&dMX>n)TYVTurO+#4Oq@3d$ZPUP-(TKiw=* z{7HU@>fCg4%Io}hMoZU=jlJrx{qi{zO-iP#;)z-2RmdD}4PDv){NU5~o9BnuusNXo zPd%%|`t23@X+eWDe^FfXEZ?fk?1Ti(uOU01So2Iq%qR@N+`B>5$89~_eDiO!XFP=M zK5UemFLYJyYs`AS3Ycy16{xLu4wSkn9AdgkZ%sLilpsE9dHN7c5Jano{3gtZ@dZjaqtk{1Bx)lPz>SoHEFDJA!pcwmyuhfaK8J`I?r_-#zw?ivC?@s+N+}Ko`khq4PvXn*QShen0M15fYFxrhJTTn2OV9#1=`s z0u=&RuIE_#@Y{39_Zb$$B_(FciEelg%D57Q$EY)LuoC`5WUn?5u-Kn3y3PYe4hT95 zw>f^SM^e0rCGiTYM(i9rJF7&9D)-UeFm*uDd|J9d1NHM>i5 zv7a89o;g^g#w)Esm`}zzN`_Dv5aprF_>H%Ub%lHpU*ZWKAv^6rCKxNV4?>}7Zq^1!a>90trPkU(+CA&fn08Q4#0mBRHEcA6{ z)IzX#@zz6OG9<*&gwH|Y8nvZa;^8YZU}f?x(EFrWGUa%wcYJ;&?ZV)7ESWIb8~)!V zg!!4#_f{{Aq_Kb1Xo(Tt@>~K8+~PY)OhiO9MbRZSw$W8`VW)!(EWC?5pE$`?YJI9U zsz#sd)Q5k3(AN(;AP6$ba*^B<&)_w7%exTFTyPN8JlD3>k>66l4Y-zia4!^LvU0eJ z4j%XB^HCBLoO+$ZrtrJls@78*zSioP42|E3fGAc&vd(42)>6isR@lhCnbj?2*Eu(? zp#s^9kl$0VRN-l*qdJ69g_ZUDoxPB2iVsu-KaB@$sVarm9;e2y1^m||KEge`*xCX5kZ**=K zxSJ1@J^ydE07>6;&pKZ(%Zd#NiRk$IPE1pQF>vTqED-+_aFh!>dCG&OZ@;&VPhZ+^ z@kF9fC&<7G038c%{R6wX1D`wkuze*{o_X}7-kNPuI@J6=i07Aw+I`fw7BrtZE}Dyq zag;__{3?9;IqQ!c$}Y@FWsjxckM*I_C@Hu3TF5Lr#m^kk;7MSJ(78A|dMe)VdIQ0d zHw}<$xfJ^NkR@bC_gLrG7xAPRq7tP%+sC{2#{xQTyp`REl$D)Rlyxy=DmGGWefLzj z^lXr$aLxyFXq^0=kIGp2@4F&#b`w#&JWmQx&L-+g-p5KfcC%C{La&3FYeq`*2c7JH zs~m`pJ<6NcL@Y_Tbq^k`yQj7mGuvo(_tdzX*uCoSdzy!eVI%)lR5gh`Q1?zF9|}qI zq*}X54`yl00lkAUOYcy3A_lLA9eZYmln9gjy=XZAw0ua_! z^iaT+HKL$*h4X9448pbA@@C{(l|Ga`V@QH{^BevR>X%NU*lrdA09bdwBHAh zkpzg2RH^lFDBN>VZ*9n0V>IG-2I6E^CMrRPutXRJ$`M!Y?_5iiVBo03rEg&H+Y`$+$ z6EI*2YRz5kwfF7bMVB9)IR~l6r`B=&ak9~#uqJoqshie@|2W;w)mCwh5XS>1^?kVT z(;9yYA!>>FJ6E~Xb?;M}I1&TlgO?MBlAq&!SiWzoU6~yl0%!{uH!X!1 z>>R96vSNDQ=B+@Kp04Qqty!;y1cKn!buoF}&RpueZZ^ul*I5$H*6ew7&0fJz@{bdL zdHI7ujwTXJvQ{sN)K7DBO_!t?R7YbF2+0(OguNl0*LX)MLK6nnO?hsF>3Ga7-AdooHEL^8%xBInts@J3 z76<;z^Yf-&7h6rD;=z3tlCrPVG4eAL>`&W7> z)2?tUqEgr=C~E>?g4@~t`1>dkPB|Cn#_b8?4)G7n`+$%ysc(5TdT@A^N4FG8$U zTS(v}ZZkNCW3OY%mW9Gv+g>6=^b7NSj$PLa zn}zkwbWx?0_gQGw6aXg;3|tRTJitlVRnq5?m z?pjD@RoK85Xz;@KGrKQj8AvKk1&^$x3j7w2Q`=Fsy$84fFStA;8JCb(C}$SNDW}{50#9hlZLV*lH7u1@SE@8hH`tAFNoIelQ z@_9hj99)VO;_IQRbQB5Owz-O$t|z8RYw-2Yd^My4P#Y(L)8(V zaUSFd$GPE#!P!38LBTC!YT>Ij$qN1XsOYEam@=o8!_HTgl|r97;T^l@ND50@is_c( zBA&6Hh>mSbri;p_5Ux)fy9Rk1)Gd`#UMb3sr9M=`iN)UoDEVX7vzZl8PU&h%AW3U+ z$4P`K9!5|sUi&c5I?SU@(v7S}V0aO&u%keIR6uwtJ3kRUOl?FMT#(^1 zK5EuPT>kB??s~NVlJ6%2zDo2JV_VB^#oM3nEKlEG@gc8tS;Y9nmJQ+a0a!sqD*%IW z^Ucp^E8YwJWso#1ZA<%QltN+U1H&s)mj5it12~3IVR;)n;RO{Vb=?hwW{ED@X5z>r zB&+JTZ@28vOYO@gxOIb|toQ*Op?;x6odHxDgXO-gFn#vZ_ok(e9^j@q*O{+OXbuQ} z{?3W~8Ks||ZGRrTXqwPLaKKvq*GY>?@gckL=z5|zL(>Vt;WM&qB6We;q zS5@`rhZ&xc{z&y7TGT%cG2!7dZ3Yx7PUlJyYt&f)>c!$gMRhDV5U0rr?$RKtx%HmK zjlO!5l$#Mt3G4XBtDLn0l=^j-gc}i&s_IBaRhQ&%@ni`tZxogvZIzi$)`4fB0~FlE z7K4`5^bf|l+inM6Srbj}a%F!?GgfV%{H*30i>a1v$S-nd>TsEcDz#8lI%VbLQ5ZnW z+w_|`FS}n_E&qDzIi~&i8A*z-^jvqdqx*tVAv*g6`IkhoowzwQ};PC`YnC z(GCc`&S@xEW5>=<@MBDzAy&ps-^8ViuHb*h0WABKBNA@`q>P5@Jw?yxaEDs#|DF zA`hOiab$sCM3iPZ`{}xBpkTfl{gU$KT$I{8aP$xxxw^Crf4pM>irBh8s*NS1VzzKP zRIglP&%#)2RF0VhyH4KHaG=Dr@Hc0*^T3G{TNKJ)D?VVjz2kYlN^FLQYs8UAu z^F{!@NN7jk6J3c*uBVJoTl$qjSP(B$_eQRYJDAwKmsyv$U&W)?RbrGsw)WX*HG|~N zArxbbCRtdX)#K0C-eZS52V(cC*iU3GAD9lfbQP?+iANd%1Tb^fgETlLNTui2*(kUnh_V-v3E==TJo1|lHJIJGep)p+#!76ucs^1J z-PbX#nAR;NTwq321fv>P>`PFpa^v0)^&RVjL6i(iYiB_T$?29+%y?WfCVcQ zZI=ilVF$X9jaEwwDHobMft8hQlaJcHtG*^BhigeSnX*Y^>&}BI5+)bb_0sA!uUzMX z%O}CjF_TrdoJ51pOLiru_c?|dG%Q4}t=K+%4g~*4(RSuP)M=)8jNmaL1}LcsWeu%f z=?dw_{+jKwOXL0?*UwP5C>MoEKZ zdJjkWw|2Uo^FRbxe-6GB5~*7LXDF0&DMGC@2m!kGV4fb&sM^<$>(+gmH(@h;g$fw( zd(|J|sA(;3WC$D%(j`id=?z}!tKtTL{<#~Q%_1c)n8m z{pG({8glXq-m<67N13`pjdBmJMjC)+BDm>xSt_^~I#g^2s|U3i zSZh8Ychb(Du3cyePOMNML_|a$*YGHU7JrCrNdx8qbat@{-+}u@hcSD<5AOorohrK4 z8~%YYdq-*f?mn>x+Q}f0F3IRIy?SRHEtE$0QCT0cAfHE*h7lo11iGITsl>i;N=}sL2xXmf0TZh^({Ji%mL6;~z-?bY;*JJU3 zO1gU}I9R8I`F{mB-1#s*y8e+92)*#+i+>3%rgUFNOW~$6Kpiwo)>j$HI*QNp>fx=| zjI|!51wI5$&+nZT4w$rQM6FiUPN);TQkY*N9j@|>bbb89!0V&l2h@5m*d+5&cZEW* zdr?8jQ6o?I@+d#deAd@je1F&O`~@{sKvxiyeCX2W*#3al~G;rC7-tpoB)SIX3N{y%HTrwqZ$uV(v zevdgs>P@^rnGQ8YoF*%|5AI?PmN%ajwbU~RQ`x|&NzX@cmcDLyfg4CP`CLH2}mEol?Pv6pI<0ppJd22DXok& zQi=){rH^_tD=Xjcy<1}@W%j$88Bo2PQfPB>Vr%zsH4%1A9OZ9meycXmQGRDROkA;? zIYMqd21xL@<94JURoqLld4O>*aj_56sTYz1JkxI+CJ)6Qlf@!%D8%41IHo$3j*&J- z2bmVtm-U~X(gG>xbCz~eF8Z!lD}IWv{&A?$&d@XJ+ZVg9?Qr3CgZ5#Mx{=9RJI|iq11V0es&N;kQkIoF;o(Ak6XSIUv!()nVl3Hq%lFGx zVUq)~4sc?O6zbxis;)gJczFCr@pfUc^;^^OhlYVxY`_~m5fmKBatqNG>wmi`>c@JS z=Ol8d+z<~VmP_wyhp}x5obylB8#2~#t%vO6{0pO)b=~eNp?xw_+|);)$>rTODe8Z~ zGVStrgQC*QhOW5lI~q}CVcj6!#Dn!6Rl}!CWnr0tb38yf&BL|JLHHIVrri;OQQ8&FAFK+FY^psR6{x#mc4m}+*H=}{=J?>aJPk8B11_gR;Q zOiqKw5TRiV&C-5ZLz(dLu6cm;kUI?eE5|DrnySP`YSZ5FsA;+e8HSH;mB)iY5F0P^B9 zM(FdU9Q@cWv?t^sc~s2>GkRHSn}cM%i$)dQL%}uj%(|djL*zo)RtPu*LCGDc{NUR% z>Pzp;yWv2WUbM=#zPQ>Wu?-;hl zQqIXklo$I6F-Vt0<#bp^J1_nC8G>ywYhL%|(oFG{dI??Gu?|x1z~Ma87hZcIbeLmy zQej&RDuO*d6!QzeUUts4goB6-Lwn<}F5p`K>y2xf>9r&kRnj##M%G>fkRMYR_L$-9 ztmM-{03R4?MSeNMVM!oA^YMM9v*IhFM$bRjqbDtA;mOQL%${;ErFGv5WMh`-pkB(? zjgi*<({WuBpBIFqE|$jIw3B1@&uz+~m}$F&|QF zL!7mWE!7H>#Br^{{y-iOWW@3opV8`u*b%Nm@3PDB5{AiV9<@dLfPIv~?kLk8Kpykv zgBg6XNE)v&;eh^M0l<%yTy2XGkyE^g`WJudRWF9W*%x6i%`Iq5idC{@XFcKna>5Qs zz60%BnV6Pwz1lIjS>GzR6&pBxn>tBlZlm5vk;4y~ALd^%YLKKRn1?uz)|*kFZ_)ei z6{yvqi>H<$l8fv94J>C^Sd6M}Ivy0mz>4?`!GuQN${d5Sw)V2^)?uR(?8*9_y}{)< zt(?B(f78}KbT5_9DeiNYC?-YpXTQP@Sbiw|PqvqX2tl@_|dQ?~9+Frb< zUn}cnKhTd>{Y48>Lg9B$U0@H%rCZzXnRbOVugs!e3sGU=U1!uQ$-b1tlm$-m%gdV! zANw@)xpli-!Hq1LS}&V8G}3^_IR9fKH0MWyza3iU#5l1ZLOg8%e4L6G$wU^4B zd<6FyKz~Hj#hCs%iB~9nFL*zU;;A9KA@@`^@UFP@v96o935X;gMujfZaLb6g^5eJs zt#}Bd;@VgYT_VT%FPbN^J^E63e_drcCk&a>6kO`mTsK<& zvy7V8xOml1Olzbj>X-9EBoD8KQbO#n45586QsW!iz-obD820WhPC5u#qiP!;9LBLx zrfNk0-kd1G%5zCi?}mt|vzJgN+7^&-+i=9V%;oy|*{ToL$!RXi{Ky4%itU(xVfeP? z<(z3@FY_?tVT=P)kilEu5S}1kYXGG(rgH78vlX)oO`Efm+slf#nLw&C|J#dlTmHUR z^jF&?FKk134N7O!(fcV`fcl;sejZ9%c=cc>++p0{zrouQQX)QevOTR+C7W3_oscV> za+8I+9E*zYWtGO|Opl>^#)F30|4k|3-vQM%(o<=8-sE6C*R4=a%rJ!d@InO{p?=R7 zEkLfQm-;6vyd|Cal!HsCQX|Hh%=^*BZ<;8jed*~qnsFn;Xx0_8x~YWY#C6%=DphI( znr^Z985VnDc2yJG9X&O zb4Ke`atpph*Yt|RG;y*zav=cDO84h&Niikuq22tp_i8w#XNn;!Hh!4^v{K}nNSSs~ z1IGA7o^H@yPG|RXA93CVUGfz;W^$N|VW&KW;|_OcaaZZ!;vW#}7^{DHW$;4G_b{wa zWxLu@{Zfg<%mY_~FW4Nc{U)LJJmo*4d0#9Nn!<6{xI##!M4BUZ6Z$o_7+>OI-vk4A z8Re&6sSs|+Mcu87J;O?u6xLVAq)@If9ZE*uAvKEa@0AzmJA;pb`PMCER{{Zz%18%X z4g}EE5uh}K)M-7qDIdOGvf=?ip|A< z0o@5!{@?}xLjpA+-BLuFO@llv?6n{g{TWj{L^h@m_`=aAIyDR^-JnfLQKhqaak=Wl zSf%@rQ*}+xOy?vXVg9Zn-HhG$=js4c-VQnj`=h~WGP_O&J00@i#JObd`OEdv+hi0} zC8F)f@>F{6OFC3OL}EF1w1;aNrHC^J(>&9a-zeo5zkX~4&Hp%`qB|k5CzTFM(N8aG~u|x!>E`-(h2SxI$5{VJKbxkivt}UtaJ_0qUOhH`@R& zqW`^SjOe>SsCuWtziofGV_N^V=5=BpaKwy{vJIV%J-xt^V}0{}Xy0i&RL_Ep{se#zBMoZE?STA2c{+qaVcvT(l~14K&ANK{;H6U&(au zCe3YAE-w{e#p+)0pyNdvm;2bA_}jPNe?oWXGwMZ26{pvr#TeJZOI3I@0`$N*@jYVpk#P7#>5+`8at!NOTzEbtyy>ZdtI)mLkZ zIl}{WTMI7Crwx%5C6h~=&MGxIqyZlY;iz=^1U98m1Z;M}JY>d9+W>f!k1hImH^-tT z6K9j@Uz;$hW}D;`^Q^OuhKu+ql)0Dsu;hxI9IgX01Lm0cv}c<9w}X%nYN| zyKl>RGv;;TmDv}&c&yBk(zqU8wN6G6@+|(zuLtH`WMhG+Sv({-V29!6TQw<76?IJc z9MC~Q>-=G`tLeA5GHW;5t-T8h=GqU;gYO|H5 zU52&^wAJJ;<;1uWB3Hi|Yj$%i|E?sx9tif7=lTr_aKwQy0bCK*@gIm&AxQ5k655&K zV7LOLISrD0743@(1>mJxLwu93SXQdxVkjsmJfNQ7O_6G>W^L=8!W}w@X*%9*%*X z^LLQtKWufi;tp=WKLCH75Tb+M=ylzNVMU^sxveyAfSJ#<#lq2cd-w3>Sjp1*cH
    #=KTM#+&vF@|&nuDBE2KeXf2K$KJOeJmM= z?X`sCX;BD5@CjEGt-hrGP!m~K7D9eI-g$Q@Qsr{{W8@0D|5W>d@)%Q4>(|ai5+u}dVUu)0wN=H@D{8f7 z5y|UA&7>gAM}oTB5R>qd;ruUg$4NExIDNee!urCQsF_ELN=RKw$c0;KD>P1^J?%i} z{CKMl4aR6z9PQ8^<%*MCq@f^L8R-7u%7$TSZM|@6a?tP#akrvAU7Y^4b0q9tEojCS zUmnkT)kbC;>oqa(9&FBkSJoQ;G+1JKc1*ov*aGg__$-$GKh^DWf^&Ltnu zJQ~O;E0#6s23@ss`sTZySw*~v_Z8}J_4OfC`1EISZe1+I%H%nSE_)jdbp|uJY2@XisTe8bBw#PmUPWY%@3wuDq6Cr zD}7@7Xgcw!MN{GPEgT#i;8yO!yj=x}IbFf4i9s&q;8ZkeaOXZNQzogj>8IGv+K&tG z1Mlby=0>D3y@ERb;chNny-fDJIodOPm@Gn!#3_d=dC>2xHvny2G~fb#7~N1!3k^941g1W!*Eu$JV zG5*=h-z3oePS8xJ-{M4=d`txv)hZ)ZYgurs9iNX2<{lh$quU~dHpN~j)L}jw$Xz{a z_8uo!-vQ^Vhgr|n+pDL7pv>8Jj#%0O%>3A`XT2H@-_Ps6d;JxkYCMxbH)%eP z|1G}QuL!;=*vP8BhFQQd;vqnMqaInmKdPqq9BnGuZl1u0=hCN&&GU0?#fTIZzWoxg z6*R5VC{g;gy;3|Km3H3Qb;g6Zk$Ed23ewQ2bdmp78YoG z3yhc!MjQ`&`M~Sr`>{-2a6!QgKCRQ8!!=)gJ7_zP^>?S+4^gO5=s-o48dSX<(E;17 z@Wg4Q4NV}KTucH%+AJa}itfmOg5ffhAH)a718fUFHn1Xb%Kmv`8Z9fEKv3sZcUNX>43z<)n}yd8Xc?1FAs?fzWD=rav&n9I^<{;R!)=${%Q@367PZ8`6Vq=#M72DETG)|L+d-mGG)#_Qec0F)O90^gmv@Yp>yBl+S-%@bS)JKm+W0)X zxLmf=(gfx{8KvtI%;YesV4ryAMlYH9J2<1}sXiMPm~cu&FJD8ukd=xC)gMpSepsWX zEQ6||IiY&wxJHnR)d<2)$`v*6;XVZLlo3>cW-JkmX-q)-35Y%?13(qxRr7oh; zM9)A7$k0V#(0HuP26a^U&G#(m{Q!P;A&I?=KrkLNDhI|yyfcU>(^h1~F#X$Dh3@hK zHLXig7-eaIHm=IoQyYaVgD164O53++>Z5`ah--e%69CRJ_l(pV?%+;bPXBTDnD{q|w}Xu{ua(NX?N7kGMT{z>mWp38&g zLgvQ`N}*Y?nl5xVXVKG^24=sN)*-HPCTJoy0O!Ny-=5zd0iP3L;4d}4rHzykgGYzL za7jPO_=VP6btdLpR|W{qF~F1tBs4DCzLm6lHctf&M}gpJ62CT9BLTpe#u{y?8JA4$ z<6yZZ*R`gloAHB8Q(-VTmW=G~HtDT@?I9wRV2BuO-u%Zruv_53Zj8a{F7_B}k=?Aaj>XS&D!WRIbzcvIGP6;#NW|o+tQ4$zT z#USte5pZ}WTq`1W%{rf?XSO-r=VBLd(75$(H7A%-fuC09($vs)haH;uy ziD2;rrnKGDfGnOh$}qhRM#zOC!5dF znSEIeI|F)YLb=~=Zhv(o0%GN8JqQRO^i;q;@P7W>sS9XGT4z!F#o4#$&WO88a0T{! zJ+lSeu|OnIR4e*h14djdiZsX(obPyo&u8?3m2rdb9pTOZ|MbfD#yIGPfPL%Z;k2UK z)6?_gf7-k9cc{OxJxEF+Ut1AMlx2`CX&B0yeH&|bWf}X@lkObfhN)KxZ2HaE?LYlb6bWpr z5#fxIEVid+8~{dQ=FM&DXl!FkTTus?sOq1|Nc0e)(sWZ#`r zr{A<%e9FQg7vjUcFpe%Af5qQfme^ltc(yF@O~!iAmmycM;v@wbykA+e{aQnj;v4-V zusOiQBiDA&TV(QZo7S!=;x(E_AtF|vLn6p8NEYn6&1!;s-?YgKPN%@%QIE7f^zQmD z@y+?w^ySPQSKMRMC{J{b*tK%=ox-9>+|>pShT*KNArCuC2jcX+;{IlB2p-p&iMY7g zXN!H(qJF~;q4XaYiD6waY`A7v<6j9Aq=mN%<$F2m`0AE%n@q#qs>{g&9~@?9zo=

    g9^C#-`#EsuGx4l#UlfLhQ2J=O1o_ zPle7u%iAd`<+vA_EAshDkDh*oh0|~c)zctE^&&jR$e&Ph-WD73z=xXoZ)f$zKB`X& z_ElMWwNuUq)fX>%1?$@8c~inCtjI>A!tY#K?uW8DKV@jD{+sI+9VG7993#u3 z-J2M|86=ArA+3)61H+RYJhLN4p*eXX(Ce(ZacxjhJ7#44(`WUa3z}Ah71`Gk`+rW- zeba;Et|4chFNd@$wLdhH=;2d@rdsrw7TO%V5}@u+%cAt9!dU3#xsc|&3ec0cUEghH zrXeRjoc?DRvi~O*jGoWm(|$ci06tdEv7K|(_lX}Y9ke%aMC$o2%T~X3J*weNXp+Uf zxY-)d<7+<0*-i|L;gwm$daf|Q;-wV4)@7qWN24nU)FCw%+)UceM(@Y3P-|H9O_1*2 zO4%S7Cjt)D_e%UT|MQV+R>?Bb>OE9R-Jy<*gNaY_;h{z4J4=O$N!O$uvmZ!-mG0)6 zal!7I7n6cP1}FGa@jQuY6>jU&s6NU6)|&so;KL~nEr{3R^tSt}VX8`M9`S z)U>nPq+`2)KGOn=9E&(Yg~0K4hMRX#F@O7}0N{t-FMV8`XGhxNgiAApqy_i)Q2tZ3 zW-m9Q4MPPEcRhDyb~?8C!%fVTp(i(GfV%2TWqelN-s;TZxCUzIg_Km& zLFord(f4f$9w7Q-yjHpop)@TiGH}5*XRxkm!xBDxHm2e4Jp)?!*Xv;MyEW=#_X17+ z)NH;g);d((h+4}7Ml)vx%k!)a1*ZG{!n{J{D=15W-kXHL!_N|TNMoItSC1_%Ua&<7;yRs+SIlCBN7Z*-q6nEi8W?O^f`xxiPaQ<2w`;9!NCjOpcMU z-@sN{RzLCdqE6tsq4`g!&%6vQ!l4$n?l0`g53~OG> z%<}esy`Fk%C*SC4fZ}giTL-$qbRz{TPInlrw1b!i8n0sFI_af|W`A(`Hk~%Pt>4LB zeUyiWT{Tq{rC?09udY^S@A$u+*lz6#adyEvG*gc;b&-d=P6@UIjK9Z@_sPB6=ml-AprHQRy;K<89|%Hulp!YFP>ZYy2NVV0?hicGN_>@TyHyWC4{(JS~0 zt$8uYPcCaU3RjSyqpIo-x!JRGvXA5hrV%)@jst6i+Y{BWN88Ja>Yo(5A-*$1alTVH zQDdZgkJ-aGiy1d7B5C42RC6&PD-D@FAW@{TLxaENOb)2DxO0{+IFs?6L)pz_Tvp0DFQ8#prx7scg{%~KD-V2G_*CUc{ILmv+qK+QX z?`7eMt?~twACY$JNnND@T=buTOZ|1=pH+xx4edZ{uqf$H%|5p9Kw(M0|jH(k3OrLJPLnD4$q$#;PRnCHzXI&O9~<5lx*B04JN-2uMcQH42CLi z^AxDXjs7uDY8B^L9fu(~y}b~;^IVs)^W4(eX@pPcZoUg5i_Q5RHJPp6Rq*gwV}M@? zt!G&0Tu;l+<#ZgzGlBu4u4C4~AKO5ETpFYv*5IH=kw3qOe_FPpUsg6S9lvL`+q@I+P+W1& zZd1}EgGc$Hdz`&AZe=nW=aN=9euc0iQ+sUppq-Xt`s;0$j`w~-;~d32nXMdsr{=7z zU2Xa>i4SfogW)O^dOv?DAR;+Z3_Bmps9a8O*uS;h3Zos~@(C&)T%cNFF}+O4V3{QxN4H%LuM8_`5T z@h0+{h!gzk6D7wpn&AtyKh$mjEN^ZOx`x;bR>vyC!{+6>Zj}z4hh`KTCX`c(>sty@0>Ln=`rWX3?MWE8U?D2#+RGuzKFW@>nIuOe4HIf+H>>ZTe=L1=QiD z<@1xuzk*bc{wk>Ju8(Y8>}dNX^gzx5V>0y+@FpL7!gyIO&jGn_x#77i&xGbU@nMogy3 zvu}cGa1F)^P)=7h8P)J&j6ukIjkxGil6^eA=6Uo!Lz@lSw`aGVp`S?Zw%pDnA{Mgf8zX-;f{oZYPLHt-bB6E~)8dyXjt+a&kXI&-jy4Q0D}&kYKY25t zIccjhK;NBPa(6DA@SjBkwi|BvwoUlcrYNEfj_3QY^^ipgNtkIqZmvBs<}=Q|_iMrc z-X4!J8_d?ZKjlMzx0KhmCp74E^imvcnXAe$+&!I@Wv6k6C?io31>1`|f|xn3;tCF>kv_8(sWWp?;p0JkVkuTr= zSM+Ha*APbaQv7z@N(+QWimiNLl)CH0mf3Mw+~k5dT!~2zqcLNwbkV^-EA!}|jsbzB z2$U-hl-r?VLiQe|vW>g-gcYx3}A#0#l2Ca1`3|QV* z{$xZ4M%9EYI z7}u=Y$eCWme!6oABsR{PXHyrjt2ZcJ)`<9hzL7S-d))9(fUq<#xV*fwrZZ$;;JP#F z)e@*4T@i`9u|c^Hgx)DzytX%-+R(kl5<6iQ} z_9I6{vo;LJrgb*E+rdm0R${lts(qZQ95D5#0;(1`YFS$u!R7|9YP@$dQTw87Vn8wGut zA=cFi9E+AxG>mF zmmo6Y!7>y4^<0Y{fD>QhHwD2TWvwI&5K`auW8kfe*&?J#8zY*EmV~>Q2~ec?zvsZd zP^*TB-IB^2*zBfGeB>qU{J*@b*Q8}a+Z~iz?)-FRs`;2bAcX zh-VgO1S8O`Q+wt)-`C7je#qab%$9j4@A;A#Z)(C}b|OlY`Akbs9rz`QVCd3$%M{SP zxFZex+zC}-!5A|chGU6nn+d9Fysa2Eey$=1=8W-58+}m=Z8c(#?LKxF1DXu9eC_LH zVP5|K?ng=EA9CB_tpTQq70&Y>VB-llYs+u-J5{ty8 z6TX156(Ln+)x7lNQ8T}L3Ovtc_)G>hb>X-%>L9Vwrn6LBPUw@GU3M6ytmA3S^xU^e zS@UPW&mhV*E>1$fUrYiSn561;JXIBM-Fl@m!2MPgBIX5q&3pBAaRIED!m+dTtxXg2E3sJ}a=}YyAkKZQx5QcvXK=Ir9;ld>fMxOp*@+U}Own zJY}B=u^6n9(Y{;`sdhdYJdiQ4Z29%OeD#Nm$FgCs_w*Z)>CSl{j6YO_F;t%J@9NP=GP@top)A97kD4^o-m`*TK*A!}_l9m^D3 zSL9uKnP?xT0f`4Rj~upU5~3;@g||9qcbi)hz_nLW_{8c%2cPLSBju$IK1gn8_QXCAGv{zLLws(OAd$@GhgM( zd!PT9gQ`yhuK++Sb^GbC+BxKN(3eM1_8N7NrG?bX{a(%$;YhN}_~Dydw)mddVa>wO zT)^bzja&Tjn$Pge>bK2Z;~^?$HhsUpLJ*4$vxkp5ZV1Fw?c9qn_%G+&@m)J_EJIcn zRtce}Obq-S+1hy@vqrsnlTF!c%i)2XGp2(r&G2C7!Ih|+|5nD_ z?BUK`I7CxG>8{UBX?3OVRBsSXocYYAYYLws{8LOMdF#%4Ktk$S14M*G^Kw{>J za7>c=iC=*13*(iqM~=|1H2kb9RCqSN;1n2t28c1nXiCQ03aJvD&qAdML)2-|Ju!d( z{5()}!jP0I8sPIL|6K-=_R1T-Z?0>-!Wz58U;NP23lIXx0uc#NRD+x{;nvb+8PiW zV!rt{p8kYFqlZo6yZ(GnWlB`=BpAHP5MF5MG-#PIUTpI~#EE6^0H6AF==oH~!bc-49!;i&w4H(!T03$Lo&&=GMA?uj z&X6qizjQwHA(a#_f@%Q5iv3at21wC{G4?Z3-7Lk(U;}1K1~u2Mb~jl1XJgDYH=q^5 zbV%uQftYRB{@j@_ixzH%A6^y1myM)rwG1S(&CCJ+NDB`uu!E`rzupGeO6n#I*3ZEg zw?hLI=5!-{b9uFYHWWL*?!-nNsI{VR9Y!ryP7-(XSyc-vEmb-%6-$dda-w_KCHRDd z-Q0~q8cBHO%{HK`vzE2hvL47XU%MB3>~Sq*h};Kd+gaL31k6d{BSgpL`%KB>xsC;c z9j@S}x2DNrT8Vso+?A>Mf7_9*J3%VX2>_n)+Z9P<4$tgCL)Q%NzfPWr;- zoLRXjmybw+cKI7%J3s{iqYmI{`gzc%&9+$s#kbiLT$^t>` QKJW-K&^6Vm)^bhwA0|bG?EnA( literal 0 HcmV?d00001 diff --git a/VERAG_PROG_ALLGEMEIN/Resources/file_small.png b/VERAG_PROG_ALLGEMEIN/Resources/file_small.png new file mode 100644 index 0000000000000000000000000000000000000000..cee9d644522a2797eb2d6963f9807e5b348e7983 GIT binary patch literal 10446 zcmeHsXHZnj*7l$vIp?4b11iA*X2?-;&KUt^m_TL-Lk7t~KynZy2uKbJisYOHM3Mx_ zNR%W92nxJ|o^$Rw_1&tkZq@t#yHmCI>|VXr(`!9zb=U6RkF_e z_Mh$YBDjjZbK=X{0RZ$u-ulKEU6=>Z$pwwFu}1#n&RHNq-zHtWFG)ijT5KCF5*O8L*U`rq<5n})ZL?w?d^ zd7^R2#Owfe$81^u{{US1LJRfKlc60<0qP}c5+W6 zN|)XAYD}kwL|!@*)?o~v(zz}9TSUC^CvHhA+mUxzuV8MOrGXPpK<7yGNZq%39K~*X zizjPHRK7K>AxEX!SI(;ZZ2XyyOyqW~RhRfd*5Gk8NcWo86l3(mHjSISqxd7=(-*BT z{m0SwUZo@jLBv{4h#Jaht>9tun&&P|l#nkjwv%MdXOGU~YsEkeo&CBXyq>rG^2Dpx z31`UOEO)jpbJ8bv3j%nSMsVOoB_z3w*`?*r((sMc!RC)5p-U)KE8A+Lo=6pmwvunm1w^Rey zjM(1stKZG($@1RGpMZrkFZ4vPJ&|} zru`T`|4@F=Oy{+@u8XC26qAx(Jt+)VGpI8a^3U+vsTM^|mGwuAbv?C`QPXikV;-HFw2^w% zd8ZX~1LEG>H~Z9*p5c-%h9&sUN2 zyyQFEvjGQATUxpAk3AEbk>YSryOB>!`q1I^eq`HHtB@wInO@BLhtc$>mGxCw&s6Nz zKmVk7Wz*^wYeKzm=95THQM+0#QR?085<_`>Ch|E)gqB~caiiy{!@DNd?7>>$rC?H3 zMM>12C%Shq`WattI95VT{%nvfmP}{&hI7Kedwi~sV~V-Mk%k&w zQ4`bYWBp9*=GhD9du`u=AuHbc+2p=otznLn6Z>YUfseNAEy@k!y6dGO#YjwO{Shqrn0R%lUcCYHPnv8pjyZ3eL)P= zcPrChh0(sU-r%&!)oa=B{i3-AYzw-tv#96PjwjG-{|76g|$Nmtp_oH%N@x0IRFn#gfr}78Yx##R$fQ^i9QgFa%d5vK&%q za8``|xGt(uvwRRI&E=*m>i3ZJ{?pTIv|N67tP1bw?AB?^4j!)Ce#;!wyn1uEqgLZ# zacJw5W58@RX_TIIH=Mp(oh5N8Hb^RKCyuE@!)oJm9=$IvMX0{v!j7ahKmD61P5OP7 zhb8|qCdczdb@veM^*#a+Bd3%?AK6fM@p zmn_UoM&Jv~+!$ZGTBFpGr|^=t3m*Yqt1bdam#Nr#&#-?KX_FAhzLM#h%&z5@^t!&s@hVk_ ziOXyG5tpQ{IMKihvT2(z#bd=&w9`Wi^y@J$`CCqp>{Q4trxy;rqM7$E z6a#m0CKJ*u3GZ(uDnu=+%|IVk8HQf93a%PZfbhFkO?b%85w&x1eDD|MrGw}56|41=vDV! zrI#?0vV>73S`MBAvci?(YDG*7#5l@T>~c>Eic4^i_m#t5c`qQJW;xk01TK*UsP2Ai zGz7%i=;0PycTo7`=5VvL9M|&ZC<`@`+B1B&5a$TdpC01aWHnC`@&kxC02JR6t*EkX zr<*=ss;G8*BG~RwX7|F5rOGds-NNTyf_~c#wZ^w&kgX15>WlhY-=vm@xo(7DEP^xn zzUJpiPlHM`7tDwyr8Q^{m8$X|T%8nGHVzk`k-uVXKu9gUMqXLRI zDo!MarD8K@Nna?gIY+o)#z1(Yf~V?@-o3;ww^Bg3=H$e$QuLhOAd%>A?4KXh(1YhIGQ`#m`s;8qiDG{EjogcG!di-?P zISQw5tp{uod8U0dke0J!Y9|jw@k`cnUakF>o}Twi)u-a|CxYZGb^8MT4$vM)3{MEC zhIPr6l~|!h@F&t7f29EbwOh6x1!|;RyS6o%JLqEDNF;X-az%tL={ud$+|Wrh+cWFy z?D5TexN1_s#~&X1usi2UhH0~mM}*%pI>~pk4>tKA%}EcOq>MNA(NxQOut6WQs>&Z` zp_13Y!T6qIu7Av!V5C3a4j8qfp;WD6vdB4l)`lLHCp%0It?OFiS$!+s{oIu!GFRNj zpF~j-R=KBOcQK1)AN_>*_numoFX#!*kNu- z?`J)sCu(~;JjIS46q40ELaMyS-efsu6L|MkG5XpLkS&@`o7Ov@>RZWb*n^ZsQ}3(= zLxL9wb-q!aLpV!ED%l53AoFUd@g78E7!cLcct!1g&W_p^yKSZBw9sr7u{fA+Ec(<% zc+i!Ic)r-hi^X57?Xk>o%Fuhs9B;a!AAIII2?l`2iB$4l1q3{&qX5KsAn$>B?M!3+vv&I*M3$AvWipU5HThY zB@^o6gLAhsxO+F{G!CzQifMY4HE2|n4aB9}?2ryFkoELekj#1>cuI_rkRv%1L)h;x zzNjR!ySslrJ-P)5c8IhOOew2>mYSOKj3nPm%Gj7%=T-4$nJG51n>*Vo`XIuG5p*S-?^TuzzJRHOb zUdsiyPw#+oLW<%m~37_iMgy>If#WXIAr)aN-X4mobe_Fj)yx)0DmKV>R9 zz2d2#+w>=s2Vx%+>+Y4#ku%u(Mb8S85{l=?9kOPFA}JqH#C;nV-E^l4tJw>Js$!vQg72#?(Eyw{!g+FEw|Tgb60i{sYf8l1#)HBH zBTwZyy}<0`yA&2}lN6>AeL0`h4pq2gM+T*yW%v}}ZJFgZAVe5>%RiWmjieQ+Rc4?N z$|Sz89O$wlO^3>xX5*c{aP+<1jkqB|w*Sc4j`86awsl%WMJCM~s5#-DfBpJ)!s39z zqs6Z0j`XBL@3ud8Qs*f8GAL!4Mnba<*>(at8QI!!@uJIIs_kRAhtI?rHyG|HST?9Q z>#8Ime1ZU;ees^0&U#vEpyio9k!0j1s0O5iOOC5GKdeu*a$RG>vu7sUb?k@AML_M> z^x@Oe$%YB<%~VVB5?Tan!WSr=>=J-;n?Q=>UTPm#NGLO|k9_VYKgQ1b=il(VqH*sg zPz#zNO#p+0A@klgIOM!`aT^Z437%PA=%T$~*fEybP`hBfuCX!hNorm?JCa_DE`Y zT-3CjZS#%qW=6A3{^;>pB$7zUP?X%Xv7+=idC2Y9AQ{l^wiugwwlY}K({T3bpLZkK zAMXZB{=EA%nBYIy9{JjZd)<8lk+%E-GnVgEG9dC?xmb%vSFx69GLEupyDF15mt=;J z;p6Quk-8EVo0DD3E@PX`-tDibcf2g*hE$igXOz^a>#Mf7IFC73X0`Q3@F{bIEey5= z=4W$x5q@E%!ut79_hd`7^$#=h=JGZt)Q@f$j<@hl`4}5qv?F$N4E%-=4hMkM=q7g_ z+Dzsr6jxs}uZVPqPB%wbeumi}7l0y=1%~=2fJVtYQ5lHuQV zDIkrcXg^+)L697_FvxdnUj)m{1nh9lM)l^)WY1HIazEc2IO7`doh!1Mwz-+&rDkfb zo}`oI&dZ^ESaZFcvp+k5m}-uFE41UF?D0+qOA`Ckk$74+O_RL@6YWM}A}Hj9PF8dx z5U1Fw>#ZuMWY-Pf>N(mM#K@;n)OCKmIJmD>^&sZOt1tC^Xs)D^OdbS*aI^XXidNIS ze@O4%dmQk6D`SXCTGBeOkji5B>^bIr`X_$M=UG`t99LrqJh^blTJ(19z&BIwGuU}M^)roQ=%cC#v}FKghy>}&eF_`7}iEH)a6G% z`ziIB`(+=J`&5UAY^~m3RfkH~8J@@D9lgfcd`agkBz-m>G<2<~<^J9j;4l=gT*ta9 z2%;w27yBXO?$_30h3D$bc(DcXp)p*fdZ;sm&-*x&Qz^9^PD217LQ6UmM+VT8RCbq{ zXI&tvvk-J&OAN;g37_mIBD%^q{An>kNuz*nkw{;mn|02F`r27~3XX9rLnO1$dmbew zZ-x4|2@*f0jaEK%_&%^z8l7e|>*oqY_kRe#MqjuxKw;fT@m2F4=EVhP6qzHd$@Mjj zYEX&K(BTSFJRD!ORJvz^m0GlHq0Uv2io^9f#0a-^W3jt^8`*C-p(FDRSyLkV8aTfi zul~JHlatWT-D*DU`l$deGGPD6??xX0=je0mmao&5kDtj>J8@gIquz=1KB>e}Ni@@(f-6hRzuMX61rd*jgoSciNjrao8gK+hE1B!1E&n(_V zDUbEMIsHNM_|$jgp_TGj3vYNfBh_KyiqnGRAwZD4Dv=l@T1X^%Bm$TA?usaSLn$lb z_f!vm^4V5SX@K5gmF=+gemht#NGs%)R57dr)cSU9Bx3Nx2%fNNI)Ap+kXgo-#5<^H z&D746D(=Xj7ixJwtxpf1OuG8@*6iW!J$DXwMoEzM9^MHK!*d+s@`Q}(s!Yc-lXil2wU1D z_B|JjEZxJ)xS;DAKS+EOyR<3J8RMsw%5&ppxj`{?Ov)kJA80( z<_&nKuKSEdS6MuWTHH*zKm&QrrUl4)q-Me&1U;e3E40IHk>@tieqhm(W3;5&W}x5| zFjjS>#x*+-t}SYf*fn{&0aT;RrkJL%=B}dtIl501K0fh9uf;S=cY7_gFg2xc?2qQd zms)3zUaEdgQisl7n}r(8o7(~5@d+zk=^}Ikl1CI86#6b8-DmkwMKwsfHiAy_wm`|& zTp-8yrDXOA0IeHyLSe=f4u<9yf?zw#yY zXl(L^-`XDIe5swQ%el4ZiTh70_tFWHi>ZHmo{_z6_|od#F;;_rrEd0p%!aE13VF>z zwk3csF|SOXCsV0fqj`_Gm_O+>$)PN#re-teVD!n0TiMf;hIVFg74xWmXf>abfWg}@ zGCx0DRY}oj_~@1j{-EcJk9#^*JAduWafmbfrI!RcO0qEe%tw}^pGw?KOZbWr&c(Lc z1Pl1NAiqR4of(5k^INf(XZ-WK;V;R)XY%>*Cwdgno19#q`vAP7U74(60*q3B@+}4S zuvth?mQI%Zh=d@Fxq=}r{p!;odpjnok+UYYmKG0$>11ky-!4bNr{kCb!JaI)I#l9O zkoi3GCL-U7Z>*$);4)49palH5&=f0G7 zpK^HQ98ojTBDX((YBz5=`qsplQ^RQ5#v-27(ERvtm?ob8A(N~6$!ChcpPKm}^ybNp z%}WGvZr{x_a5y#^9cxlrcXG8txI(*bGp4D%&-BH<((^K=X%vNP-J-tl(JNIYE=HBG z!@OeGG{SOr&~7Xn88P6G<3?B<-}T`J_8c82%tlU5TSZRp&l7a)xp{_Pyrgo6G)vb* zy?kA6GCE4p(BRY<87Zuc&$g`Uet;ZRp8;@qbnujd0#J9OBA$# zA5j{Wm>ZS!z2(IR(8u8AM~w}~wLbU+)l_MZZ3kp=W>e zxqfS(d9AVI$`A=tai@fHobf=-tC{vPi=s}wPF96+j)%$(WlnQTWhq=`&RXZ~(uSrg zE}5$oxyG_2&Jl4sGL*NB2}VoeEkQCr;)Tv-dT!oHRj&Xsh|+0?5%qlyzG&NZ9Gv+a z@{A?|kjeY@3_|kVJFfd_^_TOxTp9h|Va0stiLc{;)1c1R4+5@}`Q zC<)qaXaNCj5RxDxK@C0)Cpo0Gjk323QqNmcAMR}j7e#>XNfAkSieUj9kQf-y)4|@+ zRm@Wo^b1!E`+OW0(Ji(5xY?lzfG31f1 za2FdVj1Afmc!>$KM7v=mK_F~D@K667oHR84f_HTNg9R)fyq+*8UI-5#uY&{c-z{7* z3hr2tKOFkE7Owi(PeZ)ANLRF*3mmE7j&#JZ{T%`U|I6OV&Bgv#I0!f|(jMu6RdvOV z3i-#7N-7%Ke_32oU}fXr^veoM_CGW+HmHA*^$*`JdwzxUcSo@1f8qW^`_I^aDPy%X zG{of5aJNhMROBT=m*a~e&~O`s*sn(c5ts-RisA>O1Ykm70YNwlY-x$&1M>@t@WbK! z!VoBg?{82lj;A{_kF0LLsnFLMUM&1X5HO422*?FTJtELcyV6C{n;ulwUv?Ap(d0 zf6wxjYFl;()9AH*RUMEMZUmcf(i^*uKNP?g|za9T2(YA+SP*?-(9I$ajpgmmw zrL1q`fYiglF8PEA^YIA@LimIQuz?Hm3;j#U5b5HIt;I`J2pVK1bpGA?-L$v)HJO0G zU(-Si2LBy`E6g2<_~j=S>vtC%`+>y@iCsVbDA+&cHvgs=VA!9qpr8;~6bTmr3&8l` zU`qjnAXpTI548%5)k1N5fKvpUF-k5 z;bAL6;Lq?RcrO>kKa(lJ`~Rf-x5D36P%JIKW!RM&yU_FgwbK8=7uMJR%ikYm_J279 z5cuCg{v&?>OV@wt`i~g+kCgvgUH_%)KVslNQvPps{jbqQ^sl`l(h>WD=Yib`p5qj! zVt0`)+UoiW7Z(@UM_F0fA3uH^A0KOJX%!R{ba!`eZEexh)4zTDwy&=byQ>)+8{_5W z&CAOZ7Z;C>ja^<|R#8z24Gl%3(FO(vrlzJ=R#p=e6BZU03kwTa=OrX0EG;b)6B9W& zI37KE)Y#ZaOiY}Sk&%#)@W6zt2RkI8ld_2`06wKm(dsLuTF9x4hB*Lgo>xUh`w!F-YMvKb}=t9if2Ro)dIML3q zNn~W}1?RqAc77eh! 200) Then Debug.WriteLine(rest.ResponseHeader) - 'rest.ResponseStatusCode & " " & rest.ResponseStatusText + Debug.WriteLine(rest.ResponseStatusCode & " " & rest.ResponseStatusText) Return isPresent End If diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index 1aa91e11..bb6470ca 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -1354,6 +1354,21 @@ + + + + + + + + + + + + + + +