From ff44d7e5123d60b530d785346abd8ef1a75d5af2 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 2 Oct 2025 09:12:45 +0200 Subject: [PATCH 1/3] Import Assistent --- .../frmSendungAnhangImport.Designer.vb | 345 +++++++++--------- Aviso/Anhänge/frmSendungAnhangImport.vb | 99 ++++- Aviso/Anhänge/usrCntlSendungAnhangElement.vb | 14 +- Aviso/My Project/AssemblyInfo.vb | 4 +- Aviso/usrcntlAktDetails.Designer.vb | 203 ++++++----- Aviso/usrcntlAktDetails.vb | 35 ++ 6 files changed, 429 insertions(+), 271 deletions(-) diff --git a/Aviso/Anhänge/frmSendungAnhangImport.Designer.vb b/Aviso/Anhänge/frmSendungAnhangImport.Designer.vb index 78a3bc0..02d5cf1 100644 --- a/Aviso/Anhänge/frmSendungAnhangImport.Designer.vb +++ b/Aviso/Anhänge/frmSendungAnhangImport.Designer.vb @@ -26,26 +26,19 @@ Partial Class frmSendungAnhangImport Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungAnhangImport)) Me.lbl = New System.Windows.Forms.Label() Me.flpnlAviso = New System.Windows.Forms.FlowLayoutPanel() - Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement() - Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement() Me.flpnlSendungen = New System.Windows.Forms.FlowLayoutPanel() Me.lblSendungen = New System.Windows.Forms.Label() Me.lblImport = New System.Windows.Forms.Label() Me.pnlAnfuegen = New System.Windows.Forms.Panel() Me.cbxAlternativePDFAnsicht = New System.Windows.Forms.CheckBox() Me.Button1 = New System.Windows.Forms.Button() - Me.txtBezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblBezeichnung = New System.Windows.Forms.Label() Me.btnSeitenLoeschen = New System.Windows.Forms.Button() Me.btnAnfuegenAll = New System.Windows.Forms.Button() - Me.txtDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblDatei = New System.Windows.Forms.Label() - Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblSendung = New System.Windows.Forms.Label() Me.lblArt = New System.Windows.Forms.Label() - Me.cboArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.btnAnfuegen = New System.Windows.Forms.Button() - Me.txtSeiten = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblSeiten = New System.Windows.Forms.Label() Me.cbxDelPDF = New System.Windows.Forms.CheckBox() Me.btnAdd = New System.Windows.Forms.Button() @@ -62,7 +55,6 @@ Partial Class frmSendungAnhangImport Me.btnSndDel = New System.Windows.Forms.Button() Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument() Me.btnAddSnd = New System.Windows.Forms.Button() - Me.cboSendungen = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblSendungsdetails = New System.Windows.Forms.Label() Me.lblWarenbeichnung = New System.Windows.Forms.Label() Me.btnSndEdit = New System.Windows.Forms.Button() @@ -72,6 +64,15 @@ Partial Class frmSendungAnhangImport Me.Button17 = New System.Windows.Forms.Button() Me.lblRgPreis = New System.Windows.Forms.Label() Me.pnlSendung = New System.Windows.Forms.Panel() + Me.txtBezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtSeiten = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboSendungen = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement() + Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement() + Me.Button2 = New System.Windows.Forms.Button() Me.flpnlAviso.SuspendLayout() Me.pnlAnfuegen.SuspendLayout() Me.cntxt.SuspendLayout() @@ -103,38 +104,6 @@ Partial Class frmSendungAnhangImport Me.flpnlAviso.Size = New System.Drawing.Size(253, 825) Me.flpnlAviso.TabIndex = 7 ' - 'UsrCntlSendungAnhangElement1 - ' - Me.UsrCntlSendungAnhangElement1.ACTIVE = False - Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White - Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing - Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing - Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False" - Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing - Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing - Me.UsrCntlSendungAnhangElement1.FILE_SIZE = "False" - Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing - Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1" - Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64) - Me.UsrCntlSendungAnhangElement1.TabIndex = 0 - ' - 'UsrCntlSendungAnhangElement2 - ' - Me.UsrCntlSendungAnhangElement2.ACTIVE = False - Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White - Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing - Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing - Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False" - Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing - Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing - Me.UsrCntlSendungAnhangElement2.FILE_SIZE = "False" - Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing - Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73) - Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2" - Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64) - Me.UsrCntlSendungAnhangElement2.TabIndex = 1 - ' 'flpnlSendungen ' Me.flpnlSendungen.AllowDrop = True @@ -216,31 +185,6 @@ Partial Class frmSendungAnhangImport Me.Button1.UseVisualStyleBackColor = False Me.Button1.Visible = False ' - 'txtBezeichnung - ' - Me.txtBezeichnung._DateTimeOnly = False - Me.txtBezeichnung._numbersOnly = False - Me.txtBezeichnung._numbersOnlyKommastellen = "" - Me.txtBezeichnung._numbersOnlyTrennzeichen = True - Me.txtBezeichnung._Prozent = False - Me.txtBezeichnung._ShortDateNew = False - Me.txtBezeichnung._ShortDateOnly = False - Me.txtBezeichnung._TimeOnly = False - Me.txtBezeichnung._TimeOnly_Seconds = False - Me.txtBezeichnung._value = "" - Me.txtBezeichnung._Waehrung = False - Me.txtBezeichnung._WaehrungZeichen = True - Me.txtBezeichnung.BackColor = System.Drawing.Color.White - Me.txtBezeichnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtBezeichnung.ForeColor = System.Drawing.Color.Black - Me.txtBezeichnung.Location = New System.Drawing.Point(68, 105) - Me.txtBezeichnung.MaxLineLength = -1 - Me.txtBezeichnung.MaxLines_Warning = "" - Me.txtBezeichnung.MaxLines_Warning_Label = Nothing - Me.txtBezeichnung.Name = "txtBezeichnung" - Me.txtBezeichnung.Size = New System.Drawing.Size(453, 26) - Me.txtBezeichnung.TabIndex = 7 - ' 'lblBezeichnung ' Me.lblBezeichnung.AutoSize = True @@ -272,30 +216,6 @@ Partial Class frmSendungAnhangImport Me.btnAnfuegenAll.Text = ">> Ganzes Dokument anfügen >>" Me.btnAnfuegenAll.UseVisualStyleBackColor = False ' - 'txtDateiname - ' - Me.txtDateiname._DateTimeOnly = False - Me.txtDateiname._numbersOnly = False - Me.txtDateiname._numbersOnlyKommastellen = "" - Me.txtDateiname._numbersOnlyTrennzeichen = True - Me.txtDateiname._Prozent = False - Me.txtDateiname._ShortDateNew = False - Me.txtDateiname._ShortDateOnly = False - Me.txtDateiname._TimeOnly = False - Me.txtDateiname._TimeOnly_Seconds = False - Me.txtDateiname._value = "" - Me.txtDateiname._Waehrung = False - Me.txtDateiname._WaehrungZeichen = True - Me.txtDateiname.ForeColor = System.Drawing.Color.Black - Me.txtDateiname.Location = New System.Drawing.Point(68, 11) - Me.txtDateiname.MaxLineLength = -1 - Me.txtDateiname.MaxLines_Warning = "" - Me.txtDateiname.MaxLines_Warning_Label = Nothing - Me.txtDateiname.Name = "txtDateiname" - Me.txtDateiname.ReadOnly = True - Me.txtDateiname.Size = New System.Drawing.Size(732, 20) - Me.txtDateiname.TabIndex = 1 - ' 'lblDatei ' Me.lblDatei.AutoSize = True @@ -305,30 +225,6 @@ Partial Class frmSendungAnhangImport Me.lblDatei.TabIndex = 0 Me.lblDatei.Text = "Datei:" ' - 'MyTextBox2 - ' - Me.MyTextBox2._DateTimeOnly = False - Me.MyTextBox2._numbersOnly = False - Me.MyTextBox2._numbersOnlyKommastellen = "" - Me.MyTextBox2._numbersOnlyTrennzeichen = True - Me.MyTextBox2._Prozent = False - Me.MyTextBox2._ShortDateNew = False - Me.MyTextBox2._ShortDateOnly = False - Me.MyTextBox2._TimeOnly = False - Me.MyTextBox2._TimeOnly_Seconds = False - Me.MyTextBox2._value = "" - Me.MyTextBox2._Waehrung = False - Me.MyTextBox2._WaehrungZeichen = True - Me.MyTextBox2.ForeColor = System.Drawing.Color.Black - Me.MyTextBox2.Location = New System.Drawing.Point(68, 137) - Me.MyTextBox2.MaxLineLength = -1 - Me.MyTextBox2.MaxLines_Warning = "" - Me.MyTextBox2.MaxLines_Warning_Label = Nothing - Me.MyTextBox2.Name = "MyTextBox2" - Me.MyTextBox2.ReadOnly = True - Me.MyTextBox2.Size = New System.Drawing.Size(453, 20) - Me.MyTextBox2.TabIndex = 13 - ' 'lblSendung ' Me.lblSendung.AutoSize = True @@ -347,20 +243,6 @@ Partial Class frmSendungAnhangImport Me.lblArt.TabIndex = 5 Me.lblArt.Text = "Art:" ' - 'cboArt - ' - Me.cboArt._allowedValuesFreiText = Nothing - Me.cboArt._allowFreiText = False - Me.cboArt._value = "" - Me.cboArt.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboArt.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboArt.FormattingEnabled = True - Me.cboArt.Location = New System.Drawing.Point(68, 75) - Me.cboArt.Name = "cboArt" - Me.cboArt.Size = New System.Drawing.Size(242, 28) - Me.cboArt.TabIndex = 6 - ' 'btnAnfuegen ' Me.btnAnfuegen.BackColor = System.Drawing.Color.Wheat @@ -372,31 +254,6 @@ Partial Class frmSendungAnhangImport Me.btnAnfuegen.Text = ">> Anfügen >>" Me.btnAnfuegen.UseVisualStyleBackColor = False ' - 'txtSeiten - ' - Me.txtSeiten._DateTimeOnly = False - Me.txtSeiten._numbersOnly = False - Me.txtSeiten._numbersOnlyKommastellen = "" - Me.txtSeiten._numbersOnlyTrennzeichen = True - Me.txtSeiten._Prozent = False - Me.txtSeiten._ShortDateNew = False - Me.txtSeiten._ShortDateOnly = False - Me.txtSeiten._TimeOnly = False - Me.txtSeiten._TimeOnly_Seconds = False - Me.txtSeiten._value = "" - Me.txtSeiten._Waehrung = False - Me.txtSeiten._WaehrungZeichen = True - Me.txtSeiten.BackColor = System.Drawing.Color.White - Me.txtSeiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSeiten.ForeColor = System.Drawing.Color.Black - Me.txtSeiten.Location = New System.Drawing.Point(68, 47) - Me.txtSeiten.MaxLineLength = -1 - Me.txtSeiten.MaxLines_Warning = "" - Me.txtSeiten.MaxLines_Warning_Label = Nothing - Me.txtSeiten.Name = "txtSeiten" - Me.txtSeiten.Size = New System.Drawing.Size(242, 26) - Me.txtSeiten.TabIndex = 4 - ' 'lblSeiten ' Me.lblSeiten.AutoSize = True @@ -472,6 +329,7 @@ Partial Class frmSendungAnhangImport Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.Button2) Me.pnl.Controls.Add(Me.Button5) Me.pnl.Controls.Add(Me.PdfViewer) Me.pnl.Controls.Add(Me.WebBrowser) @@ -551,20 +409,6 @@ Partial Class frmSendungAnhangImport Me.btnAddSnd.Text = "+ NEU" Me.btnAddSnd.UseVisualStyleBackColor = True ' - 'cboSendungen - ' - Me.cboSendungen._allowedValuesFreiText = Nothing - Me.cboSendungen._allowFreiText = False - Me.cboSendungen._value = "" - Me.cboSendungen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.cboSendungen.DropDownWidth = 450 - Me.cboSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboSendungen.FormattingEnabled = True - Me.cboSendungen.Location = New System.Drawing.Point(8, 28) - Me.cboSendungen.Name = "cboSendungen" - Me.cboSendungen.Size = New System.Drawing.Size(306, 28) - Me.cboSendungen.TabIndex = 9 - ' 'lblSendungsdetails ' Me.lblSendungsdetails.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -674,6 +518,174 @@ Partial Class frmSendungAnhangImport Me.pnlSendung.Size = New System.Drawing.Size(321, 860) Me.pnlSendung.TabIndex = 0 ' + 'txtBezeichnung + ' + Me.txtBezeichnung._DateTimeOnly = False + Me.txtBezeichnung._numbersOnly = False + Me.txtBezeichnung._numbersOnlyKommastellen = "" + Me.txtBezeichnung._numbersOnlyTrennzeichen = True + Me.txtBezeichnung._Prozent = False + Me.txtBezeichnung._ShortDateNew = False + Me.txtBezeichnung._ShortDateOnly = False + Me.txtBezeichnung._TimeOnly = False + Me.txtBezeichnung._TimeOnly_Seconds = False + Me.txtBezeichnung._value = "" + Me.txtBezeichnung._Waehrung = False + Me.txtBezeichnung._WaehrungZeichen = True + Me.txtBezeichnung.BackColor = System.Drawing.Color.White + Me.txtBezeichnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtBezeichnung.ForeColor = System.Drawing.Color.Black + Me.txtBezeichnung.Location = New System.Drawing.Point(68, 105) + Me.txtBezeichnung.MaxLineLength = -1 + Me.txtBezeichnung.MaxLines_Warning = "" + Me.txtBezeichnung.MaxLines_Warning_Label = Nothing + Me.txtBezeichnung.Name = "txtBezeichnung" + Me.txtBezeichnung.Size = New System.Drawing.Size(453, 26) + Me.txtBezeichnung.TabIndex = 7 + ' + 'txtDateiname + ' + Me.txtDateiname._DateTimeOnly = False + Me.txtDateiname._numbersOnly = False + Me.txtDateiname._numbersOnlyKommastellen = "" + Me.txtDateiname._numbersOnlyTrennzeichen = True + Me.txtDateiname._Prozent = False + Me.txtDateiname._ShortDateNew = False + Me.txtDateiname._ShortDateOnly = False + Me.txtDateiname._TimeOnly = False + Me.txtDateiname._TimeOnly_Seconds = False + Me.txtDateiname._value = "" + Me.txtDateiname._Waehrung = False + Me.txtDateiname._WaehrungZeichen = True + Me.txtDateiname.ForeColor = System.Drawing.Color.Black + Me.txtDateiname.Location = New System.Drawing.Point(68, 11) + Me.txtDateiname.MaxLineLength = -1 + Me.txtDateiname.MaxLines_Warning = "" + Me.txtDateiname.MaxLines_Warning_Label = Nothing + Me.txtDateiname.Name = "txtDateiname" + Me.txtDateiname.ReadOnly = True + Me.txtDateiname.Size = New System.Drawing.Size(732, 20) + Me.txtDateiname.TabIndex = 1 + ' + 'MyTextBox2 + ' + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = False + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._numbersOnlyTrennzeichen = True + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._TimeOnly_Seconds = False + Me.MyTextBox2._value = "" + Me.MyTextBox2._Waehrung = False + Me.MyTextBox2._WaehrungZeichen = True + Me.MyTextBox2.ForeColor = System.Drawing.Color.Black + Me.MyTextBox2.Location = New System.Drawing.Point(68, 137) + Me.MyTextBox2.MaxLineLength = -1 + Me.MyTextBox2.MaxLines_Warning = "" + Me.MyTextBox2.MaxLines_Warning_Label = Nothing + Me.MyTextBox2.Name = "MyTextBox2" + Me.MyTextBox2.ReadOnly = True + Me.MyTextBox2.Size = New System.Drawing.Size(453, 20) + Me.MyTextBox2.TabIndex = 13 + ' + 'cboArt + ' + Me.cboArt._allowedValuesFreiText = Nothing + Me.cboArt._allowFreiText = False + Me.cboArt._value = "" + Me.cboArt.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboArt.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboArt.FormattingEnabled = True + Me.cboArt.Location = New System.Drawing.Point(68, 75) + Me.cboArt.Name = "cboArt" + Me.cboArt.Size = New System.Drawing.Size(242, 28) + Me.cboArt.TabIndex = 6 + ' + 'txtSeiten + ' + Me.txtSeiten._DateTimeOnly = False + Me.txtSeiten._numbersOnly = False + Me.txtSeiten._numbersOnlyKommastellen = "" + Me.txtSeiten._numbersOnlyTrennzeichen = True + Me.txtSeiten._Prozent = False + Me.txtSeiten._ShortDateNew = False + Me.txtSeiten._ShortDateOnly = False + Me.txtSeiten._TimeOnly = False + Me.txtSeiten._TimeOnly_Seconds = False + Me.txtSeiten._value = "" + Me.txtSeiten._Waehrung = False + Me.txtSeiten._WaehrungZeichen = True + Me.txtSeiten.BackColor = System.Drawing.Color.White + Me.txtSeiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSeiten.ForeColor = System.Drawing.Color.Black + Me.txtSeiten.Location = New System.Drawing.Point(68, 47) + Me.txtSeiten.MaxLineLength = -1 + Me.txtSeiten.MaxLines_Warning = "" + Me.txtSeiten.MaxLines_Warning_Label = Nothing + Me.txtSeiten.Name = "txtSeiten" + Me.txtSeiten.Size = New System.Drawing.Size(242, 26) + Me.txtSeiten.TabIndex = 4 + ' + 'cboSendungen + ' + Me.cboSendungen._allowedValuesFreiText = Nothing + Me.cboSendungen._allowFreiText = False + Me.cboSendungen._value = "" + Me.cboSendungen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cboSendungen.DropDownWidth = 450 + Me.cboSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboSendungen.FormattingEnabled = True + Me.cboSendungen.Location = New System.Drawing.Point(8, 28) + Me.cboSendungen.Name = "cboSendungen" + Me.cboSendungen.Size = New System.Drawing.Size(306, 28) + Me.cboSendungen.TabIndex = 9 + ' + 'UsrCntlSendungAnhangElement1 + ' + Me.UsrCntlSendungAnhangElement1.ACTIVE = False + Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White + Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing + Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing + Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False" + Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing + Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing + Me.UsrCntlSendungAnhangElement1.FILE_SIZE = "False" + Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing + Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1" + Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64) + Me.UsrCntlSendungAnhangElement1.TabIndex = 0 + ' + 'UsrCntlSendungAnhangElement2 + ' + Me.UsrCntlSendungAnhangElement2.ACTIVE = False + Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White + Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing + Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing + Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False" + Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing + Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing + Me.UsrCntlSendungAnhangElement2.FILE_SIZE = "False" + Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing + Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73) + Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2" + Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64) + Me.UsrCntlSendungAnhangElement2.TabIndex = 1 + ' + 'Button2 + ' + Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button2.Location = New System.Drawing.Point(696, 1) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(100, 34) + Me.Button2.TabIndex = 3 + Me.Button2.Text = "Zu ""Seiten"" hinzu" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Strg + Leertaste)" + Me.Button2.UseVisualStyleBackColor = True + ' 'frmSendungAnhangImport ' Me.AllowDrop = True @@ -754,4 +766,5 @@ Partial Class frmSendungAnhangImport Friend WithEvents cbxAlternativePDFAnsicht As CheckBox Friend WithEvents lblRgPreis As Label Friend WithEvents pnlSendung As Panel + Friend WithEvents Button2 As Button End Class diff --git a/Aviso/Anhänge/frmSendungAnhangImport.vb b/Aviso/Anhänge/frmSendungAnhangImport.vb index dd400f2..8d2a120 100644 --- a/Aviso/Anhänge/frmSendungAnhangImport.vb +++ b/Aviso/Anhänge/frmSendungAnhangImport.vb @@ -69,11 +69,75 @@ Public Class frmSendungAnhangImport End Function Sub initElement(USRCNTL As usrCntlSendungAnhangElement) - AddHandler USRCNTL.ME_CLICK, Sub(STRG_PRESSED) + AddHandler USRCNTL.ME_CLICK, Sub(STRG_PRESSED, SHIFT_PRESSED) ' If BrowserLoaded Then - If Not STRG_PRESSED Then + If SHIFT_PRESSED Then + 'prüfen, ob genau 1 Elemnt markeirt ist, dann kein neues Laden nötig + If USRCNTL.ACTIVE Then + If checkIf1isSelected() Then Exit Sub 'Bereits aktiv, aber nur wenn 1 markiert + End If + ' Hier Fehlt Code, der Shift abfängt + ' --- SHIFT-Bereichsauswahl (nur im gleichen Panel) --- + ' Anker = das (genau) eine bereits markierte Element suchen + Dim anchor As usrCntlSendungAnhangElement = Nothing + + For Each c As Control In flpnlAviso.Controls + Dim u = TryCast(c, usrCntlSendungAnhangElement) + If u IsNot Nothing AndAlso u.ACTIVE Then + anchor = u + Exit For + End If + Next + If anchor Is Nothing Then + For Each c As Control In flpnlSendungen.Controls + Dim u = TryCast(c, usrCntlSendungAnhangElement) + If u IsNot Nothing AndAlso u.ACTIVE Then + anchor = u + Exit For + End If + Next + End If + + If anchor IsNot Nothing Then + Dim pAnchor = TryCast(anchor.Parent, FlowLayoutPanel) + Dim pClick = TryCast(USRCNTL.Parent, FlowLayoutPanel) + + ' Nur wenn beide im selben FlowLayoutPanel liegen: + If pAnchor IsNot Nothing AndAlso pAnchor Is pClick Then + Dim i1 As Integer = pAnchor.Controls.IndexOf(anchor) + Dim i2 As Integer = pAnchor.Controls.IndexOf(USRCNTL) + Dim fromIdx As Integer = Math.Min(i1, i2) + Dim toIdx As Integer = Math.Max(i1, i2) + + ' Vorher alles deselektieren (beide Panels) + For Each c As Control In flpnlAviso.Controls + Dim u = TryCast(c, usrCntlSendungAnhangElement) + If u IsNot Nothing Then u.ACTIVE = False + Next + For Each c As Control In flpnlSendungen.Controls + Dim u = TryCast(c, usrCntlSendungAnhangElement) + If u IsNot Nothing Then u.ACTIVE = False + Next + + ' Bereich [fromIdx..toIdx] markieren (inklusive) + For i As Integer = fromIdx To toIdx + Dim u = TryCast(pAnchor.Controls(i), usrCntlSendungAnhangElement) + If u IsNot Nothing Then u.ACTIVE = True + Next + + ' Nichts weiter tun (kein neues Laden/Navigieren) + Exit Sub + End If + End If + ' --- Ende SHIFT-Bereichsauswahl --- + + ElseIf STRG_PRESSED Then + If checkIfSamePanel(USRCNTL) Then + USRCNTL.ACTIVE = Not USRCNTL.ACTIVE + End If + Else 'prüfen, ob genau 1 Elemnt markeirt ist, dann kein neues Laden nötig If USRCNTL.ACTIVE Then @@ -99,10 +163,6 @@ Public Class frmSendungAnhangImport txtDateiname.Text = USRCNTL.FILE_NAME txtSeiten.Focus() - Else - If checkIfSamePanel(USRCNTL) Then - USRCNTL.ACTIVE = Not USRCNTL.ACTIVE - End If End If End Sub @@ -1286,6 +1346,7 @@ Public Class frmSendungAnhangImport If e.KeyCode = Keys.Return Then btnAnfuegen.PerformClick() End If + End Sub Sub initSendungen() cboSendungen.Items.Clear() @@ -1742,6 +1803,12 @@ Public Class frmSendungAnhangImport btnSndEdit.PerformClick() e.IsInputKey = True ' Damit Event abgefangen ist, sonst steht "+" im Feld End If + ' Prüfen, ob STRG + " " gedrückt wurde + If e.Control AndAlso (e.KeyCode = Keys.Space) Then + AddCurrentPage() + e.IsInputKey = True ' Damit Event abgefangen ist, sonst steht " " im Feld + End If + ElseIf e.Modifiers = Keys.Shift Then ' PDFs durchlaufen If e.KeyCode = Keys.PageDown Then nextART() @@ -2182,6 +2249,26 @@ Public Class frmSendungAnhangImport Private Sub flpnlSnd_DragEnter(sender As Object, e As DragEventArgs) Handles flpnlSendungen.DragEnter e.Effect = DragDropEffects.All End Sub + + Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click + AddCurrentPage() + End Sub + + Sub AddCurrentPage() + Dim CurrentPageNumber = PdfViewer.CurrentPageNumber + If CurrentPageNumber > 0 Then + If txtSeiten.Text = "" Then + txtSeiten.Text = CurrentPageNumber.ToString.Trim + Else + txtSeiten.Text &= "," & CurrentPageNumber.ToString.Trim + End If + txtSeiten.Focus() + txtSeiten.SelectionStart = txtSeiten.TextLength + End If + End Sub + + + 'Private Sub flpnlSendungen_Paint(sender As Object, e As PaintEventArgs) Handles flpnlSendungen.Paint ' Dim files() As String = e.Data.GetData(DataFormats.FileDrop) ' For Each path In files diff --git a/Aviso/Anhänge/usrCntlSendungAnhangElement.vb b/Aviso/Anhänge/usrCntlSendungAnhangElement.vb index 7576c9e..c2e2b66 100644 --- a/Aviso/Anhänge/usrCntlSendungAnhangElement.vb +++ b/Aviso/Anhänge/usrCntlSendungAnhangElement.vb @@ -14,7 +14,7 @@ Public Class usrCntlSendungAnhangElement Property FILE_ANHID - Public Event ME_CLICK(STRG_PRESSED) + Public Event ME_CLICK(STRG_PRESSED, SHIFT_PRESSED) Public Event ME_DELETE(FILE_DOCID, FILE_ANHID) Public Event ME_COMPRESS(FILE_DOCID, FILE_ANHID) @@ -111,11 +111,11 @@ Public Class usrCntlSendungAnhangElement 'End Sub Private Sub pic_Click(sender As Object, e As MouseEventArgs) Handles pic.MouseClick, lbl.MouseClick, Me.MouseClick, lblSize.MouseClick If e.Button = MouseButtons.Left Then - RaiseEvent ME_CLICK((My.Computer.Keyboard.CtrlKeyDown Or My.Computer.Keyboard.ShiftKeyDown)) + RaiseEvent ME_CLICK(My.Computer.Keyboard.CtrlKeyDown, My.Computer.Keyboard.ShiftKeyDown) End If End Sub Public Sub CLICK_Me() - RaiseEvent ME_CLICK(False) 'My.Computer.Keyboard.CtrlKeyDown Or My.Computer.Keyboard.ShiftKeyDown)) + RaiseEvent ME_CLICK(False, False) 'My.Computer.Keyboard.CtrlKeyDown Or My.Computer.Keyboard.ShiftKeyDown)) End Sub Private Sub pic_doubleClick(sender As Object, e As EventArgs) Handles pic.DoubleClick, lbl.DoubleClick, Me.DoubleClick, lblSize.DoubleClick @@ -147,8 +147,14 @@ Public Class usrCntlSendungAnhangElement Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(FILE_ANHID) Dim f As New frmSendungAnhangUmbenennenUmkateg(FILE_NAME, ANH.anh_Art) If f.ShowDialog = DialogResult.OK Then + Dim ext As String = IO.Path.GetExtension(originalName) - ANH.anh_Name = f.txtBezeichnung.Text + Dim name As String = f.txtBezeichnung.Text + If String.IsNullOrWhiteSpace(IO.Path.GetExtension(name)) AndAlso ext <> "" Then ' prüfen ob Benutzer schon eine Endung eingegeben hat + name &= ext + End If + + ANH.anh_Name = name ANH.anh_Art = f.cboArt._value ANH.SAVE() FILE_NAME = f.txtBezeichnung.Text diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index baca222..18f3d6d 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/usrcntlAktDetails.Designer.vb b/Aviso/usrcntlAktDetails.Designer.vb index 392d4ae..4711fba 100644 --- a/Aviso/usrcntlAktDetails.Designer.vb +++ b/Aviso/usrcntlAktDetails.Designer.vb @@ -23,16 +23,16 @@ Partial Class usrcntlAktDetails _ 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() - Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetails)) Me.pnlDetailsRechts = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel() @@ -64,6 +64,7 @@ Partial Class usrcntlAktDetails Me.Panel7 = New System.Windows.Forms.Panel() Me.picArrowDown = New System.Windows.Forms.PictureBox() Me.Panel4 = New System.Windows.Forms.Panel() + Me.Button11 = New System.Windows.Forms.Button() Me.Button9 = New System.Windows.Forms.Button() Me.cbxLZDeFisk = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) @@ -186,7 +187,7 @@ Partial Class usrcntlAktDetails Me.btnÄndern = New System.Windows.Forms.Button() Me.btnTV = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button() - Me.Button11 = New System.Windows.Forms.Button() + Me.Button12 = New System.Windows.Forms.Button() Me.pnlDetailsRechts.SuspendLayout() Me.Panel3.SuspendLayout() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() @@ -618,46 +619,46 @@ Partial Class usrcntlAktDetails Me.dgvSendungen.AllowUserToAddRows = False Me.dgvSendungen.AllowUserToDeleteRows = False Me.dgvSendungen.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle21.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21 Me.dgvSendungen.BackgroundColor = System.Drawing.Color.White - 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.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle22.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle22.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle22 Me.dgvSendungen.ColumnHeadersHeight = 34 Me.dgvSendungen.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.dgvSendungen.DefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle23.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle23.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle23.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle23.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle23.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSendungen.DefaultCellStyle = DataGridViewCellStyle23 Me.dgvSendungen.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvSendungen.Location = New System.Drawing.Point(0, 0) Me.dgvSendungen.MultiSelect = False Me.dgvSendungen.Name = "dgvSendungen" Me.dgvSendungen.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.[True] - Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle24 Me.dgvSendungen.RowHeadersVisible = False Me.dgvSendungen.RowHeadersWidth = 62 Me.dgvSendungen.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle25 Me.dgvSendungen.RowTemplate.Height = 20 Me.dgvSendungen.RowTemplate.ReadOnly = True Me.dgvSendungen.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -697,6 +698,7 @@ Partial Class usrcntlAktDetails Me.Panel4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Panel4.BackColor = System.Drawing.Color.PapayaWhip Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel4.Controls.Add(Me.Button12) Me.Panel4.Controls.Add(Me.Button11) Me.Panel4.Controls.Add(Me.Button9) Me.Panel4.Controls.Add(Me.cbxLZDeFisk) @@ -722,6 +724,21 @@ Partial Class usrcntlAktDetails Me.Panel4.TabIndex = 102 Me.Panel4.Visible = False ' + 'Button11 + ' + Me.Button11.BackColor = System.Drawing.Color.White + Me.Button11.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button11.Image = Global.AVISO.My.Resources.Resources.beleg1 + Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button11.Location = New System.Drawing.Point(38, 131) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(92, 36) + Me.Button11.TabIndex = 120 + Me.Button11.Text = "Mark.Anh drucken" + Me.Button11.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button11.UseVisualStyleBackColor = False + ' 'Button9 ' Me.Button9.BackColor = System.Drawing.Color.White @@ -729,9 +746,9 @@ Partial Class usrcntlAktDetails Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button9.Image = Global.AVISO.My.Resources.Resources.beleg1 Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button9.Location = New System.Drawing.Point(5, 164) + Me.Button9.Location = New System.Drawing.Point(3, 164) Me.Button9.Name = "Button9" - Me.Button9.Size = New System.Drawing.Size(123, 36) + Me.Button9.Size = New System.Drawing.Size(127, 36) Me.Button9.TabIndex = 119 Me.Button9.Text = "ATILLA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Aktendeckel" Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -821,10 +838,10 @@ Partial Class usrcntlAktDetails Me.btnSendungslisteUNISPED.ForeColor = System.Drawing.Color.Black Me.btnSendungslisteUNISPED.Image = Global.AVISO.My.Resources.Resources.spedbuch_small Me.btnSendungslisteUNISPED.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnSendungslisteUNISPED.Location = New System.Drawing.Point(5, 94) + Me.btnSendungslisteUNISPED.Location = New System.Drawing.Point(3, 94) Me.btnSendungslisteUNISPED.Margin = New System.Windows.Forms.Padding(0) Me.btnSendungslisteUNISPED.Name = "btnSendungslisteUNISPED" - Me.btnSendungslisteUNISPED.Size = New System.Drawing.Size(123, 36) + Me.btnSendungslisteUNISPED.Size = New System.Drawing.Size(127, 36) Me.btnSendungslisteUNISPED.TabIndex = 110 Me.btnSendungslisteUNISPED.Text = "Alle Sendungen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UNISPED" Me.btnSendungslisteUNISPED.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -883,10 +900,10 @@ Partial Class usrcntlAktDetails Me.btnDipoListe.ForeColor = System.Drawing.Color.Black Me.btnDipoListe.Image = Global.AVISO.My.Resources.Resources.pdf11 Me.btnDipoListe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnDipoListe.Location = New System.Drawing.Point(5, 22) + Me.btnDipoListe.Location = New System.Drawing.Point(3, 22) Me.btnDipoListe.Margin = New System.Windows.Forms.Padding(0) Me.btnDipoListe.Name = "btnDipoListe" - Me.btnDipoListe.Size = New System.Drawing.Size(123, 36) + Me.btnDipoListe.Size = New System.Drawing.Size(127, 36) Me.btnDipoListe.TabIndex = 4 Me.btnDipoListe.Text = "Dispoliste" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "alle Sendg." Me.btnDipoListe.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -953,10 +970,10 @@ Partial Class usrcntlAktDetails Me.btnDipoListeEmail.ForeColor = System.Drawing.Color.Black Me.btnDipoListeEmail.Image = Global.AVISO.My.Resources.Resources.email_big1 Me.btnDipoListeEmail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnDipoListeEmail.Location = New System.Drawing.Point(5, 57) + Me.btnDipoListeEmail.Location = New System.Drawing.Point(3, 57) Me.btnDipoListeEmail.Margin = New System.Windows.Forms.Padding(0) Me.btnDipoListeEmail.Name = "btnDipoListeEmail" - Me.btnDipoListeEmail.Size = New System.Drawing.Size(123, 36) + Me.btnDipoListeEmail.Size = New System.Drawing.Size(127, 36) Me.btnDipoListeEmail.TabIndex = 5 Me.btnDipoListeEmail.Text = "Dispoliste" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "alle Sendg." Me.btnDipoListeEmail.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -969,10 +986,10 @@ Partial Class usrcntlAktDetails Me.btnDispohaft.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.btnDispohaft.ForeColor = System.Drawing.Color.Black Me.btnDispohaft.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnDispohaft.Location = New System.Drawing.Point(5, 201) + Me.btnDispohaft.Location = New System.Drawing.Point(3, 201) Me.btnDispohaft.Margin = New System.Windows.Forms.Padding(0) Me.btnDispohaft.Name = "btnDispohaft" - Me.btnDispohaft.Size = New System.Drawing.Size(123, 36) + Me.btnDispohaft.Size = New System.Drawing.Size(127, 36) Me.btnDispohaft.TabIndex = 3 Me.btnDispohaft.Text = "Dispo.Haft" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(nur T1/T2)" Me.btnDispohaft.UseVisualStyleBackColor = False @@ -998,46 +1015,46 @@ Partial Class usrcntlAktDetails Me.gridVermerke.AllowUserToAddRows = False Me.gridVermerke.AllowUserToDeleteRows = False Me.gridVermerke.AllowUserToResizeRows = False - DataGridViewCellStyle6.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle26.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle26.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26 Me.gridVermerke.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle7.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle27.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle27.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle27.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle27.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle27.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle27.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle27.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle27 Me.gridVermerke.ColumnHeadersHeight = 34 Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing - DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle28.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle28 Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill Me.gridVermerke.Location = New System.Drawing.Point(0, 30) Me.gridVermerke.MultiSelect = False Me.gridVermerke.Name = "gridVermerke" Me.gridVermerke.ReadOnly = True - DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle9 + DataGridViewCellStyle29.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle29.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle29.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle29.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle29.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle29.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle29 Me.gridVermerke.RowHeadersVisible = False Me.gridVermerke.RowHeadersWidth = 62 Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle30 Me.gridVermerke.RowTemplate.Height = 20 Me.gridVermerke.RowTemplate.ReadOnly = True Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -2438,21 +2455,20 @@ Partial Class usrcntlAktDetails Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button10.UseVisualStyleBackColor = False ' - 'Button11 + 'Button12 ' - Me.Button11.BackColor = System.Drawing.Color.White - Me.Button11.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button11.Image = Global.AVISO.My.Resources.Resources.beleg1 - Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button11.Location = New System.Drawing.Point(5, 131) - Me.Button11.Name = "Button11" - Me.Button11.Size = New System.Drawing.Size(123, 36) - Me.Button11.TabIndex = 120 - Me.Button11.Text = "Markierte Anh. drucken" - Me.Button11.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button11.UseVisualStyleBackColor = False - Me.Button11.Visible = False + Me.Button12.BackColor = System.Drawing.Color.White + Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button12.ForeColor = System.Drawing.Color.Black + Me.Button12.Image = Global.AVISO.My.Resources.Resources.pdf11 + Me.Button12.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button12.Location = New System.Drawing.Point(3, 131) + Me.Button12.Margin = New System.Windows.Forms.Padding(0) + Me.Button12.Name = "Button12" + Me.Button12.Size = New System.Drawing.Size(37, 36) + Me.Button12.TabIndex = 121 + Me.Button12.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button12.UseVisualStyleBackColor = False ' 'usrcntlAktDetails ' @@ -2675,4 +2691,5 @@ Partial Class usrcntlAktDetails Friend WithEvents Button9 As Button Friend WithEvents pnlMaDetails As Panel Friend WithEvents Button11 As Button + Friend WithEvents Button12 As Button End Class diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index 880bc62..99a72bd 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/Aviso/usrcntlAktDetails.vb @@ -6,6 +6,7 @@ Imports System.IO Imports System.Drawing Imports Microsoft.Office.Interop Imports System.Security.Cryptography +Imports GrapeCity.DataVisualization.TypeScript Public Class usrcntlAktDetails @@ -3991,5 +3992,39 @@ Public Class usrcntlAktDetails t.IsBackground = True End Sub + Shared Sub openAlleMarkierte(AvisoID) + Try + Dim files As New List(Of String) ' + + Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge) + VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoID) 'LÄDT alle Aviso-Anhänge + For Each ll In ANH_LIST + If ll.anh_MarkierungDruck Then + Select Case ll.anh_Typ + Case "PDF" : files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId)) + ' Case Else : Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId)) + End Select + End If + Next + + If files.Count = 0 Then + MsgBox("Keine Anhänge gefunden!") + Exit Sub + End If + + Dim outputFile As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Merge.pdf", ".pdf", True,, "Merge") ' "result.pdf" + VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(files, outputFile) + Process.Start(outputFile) + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + + End Sub + + Private Sub Button12_Click_1(sender As Object, e As EventArgs) Handles Button12.Click + openAlleMarkierte(AvisoID) + End Sub End Class From 69f40c036c607ae623547836412bde2b8791a12b Mon Sep 17 00:00:00 2001 From: "m.ilhan" Date: Mon, 6 Oct 2025 08:32:17 +0200 Subject: [PATCH 2/3] New BenachrichtigungsCode AVISO_ERSTELLT --- Gemeinsames/Gemeinsames.vbproj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Gemeinsames/Gemeinsames.vbproj b/Gemeinsames/Gemeinsames.vbproj index bc7bda2..8a8b2bd 100644 --- a/Gemeinsames/Gemeinsames.vbproj +++ b/Gemeinsames/Gemeinsames.vbproj @@ -92,7 +92,8 @@ false - Gemeinsames_TemporaryKey.pfx + + @@ -370,7 +371,6 @@ - MyApplicationCodeGenerator Application.Designer.vb From 24c327be5d8b67b83697a3b823e696c00fb30743 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 6 Oct 2025 14:50:03 +0200 Subject: [PATCH 3/3] vers --- Aviso/My Project/AssemblyInfo.vb | 4 ++-- Diverses/ico_greenpulse.png | Bin 0 -> 3349 bytes Diverses/ico_greenpulse.webp | Bin 0 -> 5536 bytes Diverses/logo-greenpulse-transparent.png | Bin 0 -> 5829 bytes Diverses/logo-greenpulse-transparent.webp | Bin 0 -> 5120 bytes 5 files changed, 2 insertions(+), 2 deletions(-) create mode 100644 Diverses/ico_greenpulse.png create mode 100644 Diverses/ico_greenpulse.webp create mode 100644 Diverses/logo-greenpulse-transparent.png create mode 100644 Diverses/logo-greenpulse-transparent.webp diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index d5a157b..eda2550 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/Diverses/ico_greenpulse.png b/Diverses/ico_greenpulse.png new file mode 100644 index 0000000000000000000000000000000000000000..d9afce37fb90c20c5e51659391cbaafd445c103b GIT binary patch literal 3349 zcmbVPc{r478=vfxM8y{)d1pA83bUEPWUNCJl1N#~n0be3j2SZ%V@skeMM^@cqjR#A zR!d4Ednnq-kYqo?B)g<?{h!T^ZVWV{l^>cwEdKx=Q9wd`(@PY~%f~1L@D0Lek`UjW z+UMW|Sh2YvV62bPqoUDRz|dHqLZA?E#snjZE`UX24Nzzt3Qf?%V2F4u5se3aJP5Ht zE{#rfCfoclC*F||etbTMh(ZMi2kQsp^x0fr6vo)t7=^~7uvk4YLXQ^`z^4fG0(e?K zHIP9bmCNAp8SDUHStG@VeV9)|h@Jf&1&ib0@Jn$3??z_F*nnToSt0PqH|D|7>U(DE5Z9i^~w#h2l?UQxCJi0KOfW zgb?58(-<@&nnp0h5kRV*F%C4)1APn#%MxCXLNUZpFmwVIPs9Aw^LKnh8w0eF1=_#@ zjU{6+HfSR&3yh@=8f!(i#Nuu6zqob*JU%6W3jVas5ZnI2#r-3fXvGC7d^XpG&G!G< z2u^-%KAY#q<^Wi{J_Z9I-53Ehb}(=Aa*@8rOa{4(AdqImWwU^9Stc_6#)JPY`tN+& z|C>FO*eTRHM~Ew)l{(T02?Bu{*pV$<1j1%FFZKpE zwIeMV9s5OTebd`By*lkOix__DXX6YuA3w2$5w~SGJnEc_TwoMZ4j%K$L#aG(ZiQ!& zoK(3*+)n-EYfjJ2t>AD6_1^GS)!N5FnQtcAg=M%ho@vNC9{rM~Q)knu2$R0~@WGJF zvmq^Lrk)8>K33K*B&#weMSjR4P~DyW!Mg((lXQ6o;VV-oSM~eYO?7mpDC|4PhEN4c zvhhtHbsD#qo{kue9^R0x9Ou${ymW3`>ssqIF%-Gc8uiYDEbECi)cqP?_7K`QOa)a| zDk1!>Wmt(2MluZEWcoUDFt_RH^J&k7^~YqW+Mb!EQkD(7rUtd9VJ44!6>V#kc1UFw zAGL;i&ewzK6(q$gBb!|W>EnZ&%x}XAvSXEe)VbF`7wb*cXJ?mtTtkv*Y3!s?B{#u z^UwTtCY&46GxAvD!>+IPTlF)2Z3b5_Mm$)$r+z`_G*{}_N@IWqI|&S%7Pa_6qX^^O zwq32x18vM}MzdW>DG~3kwU`_>bkNN-4uiGeG&f0(XlZd4hk3~exkpUsP1gL_p6dgD zx$(13LvUQ_oLznKX}B=iY0&D{o$@VRNj34i*$RM!%p7tV7}2)^tz(xzR6im(&<9uoAX1;lh#k0 z>`?v(7G5#7tc_kM4HjX2%6d591IgNI1=y+;(pSQZ?(;@o(Z1dfET|4Eph?qPqYDS* z-xt3(jMS(Wo=(>VR+_}w!}lC;1+FUe+|>>OtRAM2d+Ch30!6_iZ%hu)WSN=T@zLTFEWD2Xo3S#L`?*u1WZ zEKx6Sd_d8-mrL*YwC?nD^SJ-SfB@QCH$r5NZS<&zI4`Da2j{^%E&)t1b- zgv~0RZi|p`Yh&g-c<|xUUYa?4uf$8~{^EPxH5vZNQIquAk-n(wmUr?e$_E}-nEvT6 zS&-1d2H`cQ`aEzt_VKd3(uKrfQo~N6m{F z<_UvnT*-uYT+oMmD&r|RPkZwws_B6WFMz1js^0d*zec@Zge6{WpObJ`yGJP6D{+=H zfsC3a*v#6j?AAN!ojTXDmM-bko}wSLLF?_IzS6OG7p~OohGl8IDokvwSba-5H%p~X zN2SqX>F%(ZySfg_2&gFt%*dI&;kt>r`c%!9Yr3Mcb#+?nC5Y*EuUwzdvOF(xpbC#h z%TiBRMHMO^^GSw%sp1BP0?_u^jAjp;u$Ste97|X#Ubd&QU%##zg}a?{dA8fLu22{$ zb2DlG#cElY=+bEEXNB8Zl)^uWABAD@it?SvLokAq;hT_Svi%4l16~$w^%H`1FiL-Z_cM6@>3>h4+wn|bw@x|QANh*?YFJQ(XC|4 zo}iR>8hWK(h$7Y~ewvyYW`SJ*{cV*?<>K3I+r|MTqdA;W(*WL3e#o(oJxRTNUR8iCk&|w zi_N+W;VrqYdHSLym3t$)j^+_++hRE)`H!hr^PTf})U9!$pBj`kW_868DY2p+nVanx zTk8g0Wg0(Z$N7B8S872XY^o)(-^$wbg@gQnTf&EP4Li>kk_+XKD)xgKMVCKx6Pn-> z4VZ18tj}pT*o#(;C0=tLBgNSJNnD9j(-iF8Ee}8X-v7;(hk=@^OqKqR4g{3QC{5IV z@a`Neq*;1oc>H}G{YKP$oB0=+f!^T-Ig+I;K6Oi~;-jcxq?=y9n#AA6|! zylTf7D#5azegRqUXqYC)$*YQA7x3vYNRwcTW6nfoiTu zvG*cIN{>rw#T=yTne|85ZImak zOw*JbuS-7*PUkkqt#;ioyUuVmQ}U@W{!XeFyQRBSa`L3S=9iG`m{k8<=zQvmymyPu zA|~#%NU>e^!1h?A+FZwO^FcCXWrWXNHPw*Kl^f63-*Q-VuAS-oViAAiehowBqN?XL z4ULDmnVd1f{hsck`LC$myQJoUAzwiUV(Z$~nQw}JXEVdiDAy0xeV(G8^2wbc)yMw% zwW_r-_qr`+0D85Dm;EfqEtXhqR*qYvV|c4CR(%IDo1d+DL|OIu;|$HXuiY6vz9Xa6 z>vx(g48C1_OUX2kfNwq!A=4BV2~44nsHY_-A$GJ;ggvv@y}ZwQ-85KO+UGxeX^YOq r_D~1Su7HCUb=vr`M763&DOJeQ&a|?l%AKyuKPq3zg>KC9Lct-4DN97 zZ@|qz4gzp@cUe(?+5ZWE|1%;4MjN-kjB%qtpM)di zu-jZtz^bI((6io=UNgeFTHUMUtcf4McKiv(-*o8(+`3MjFdz!R41`46tWf0F+Ipw` zbeI9qqo-CVyAyJj*0a~_4zL3#`He6vESzht`Z=&W`~(2tykG<{$51d-8~$}}2ZX3CoU{hLFGW6H0Fy|?a{p@ z+qPXPcGkWR5_xZn8mg&1-kTPvuA;500cwO)RL!e1-edyt?%6VM2_S27JO2CR3&n>F z$^j*-wv|=2@4eq;gpb@k3JBmQhNeI!Hf2l#?ho$ST}4@vBvq1R;TbRMbxle2GBcd` zw*Pn8aT5$2o+Y8Vq0)TF?o}Lot#hK~m(I zeSo3o>#qPml@cOJawI7-YFAiKqg1q@Gd z0btjd4jwroir(qofq0qxcs?)hI{i|azR_;wXCHr=EJ#S=v0X|D0(t}c|b=A+)=GM~A@1NcR z#vS{_YkRSrM+}P#gS9B8?CGXEquUbovJ|9rkGb?Yj|%zuEADIT`Z_3*4UV zP=zr?D_tfa?#Kr|irS`sK{eS!!x}+JpM2yxkn_v4&FP9jtyGSQDnea3LsIaGl*1~n z`Jm2vX#b>W5ar?UaG;HgBWZw`Z>>9^-GvXl`D{7k-@B<>os?X$%|J4mYVCET&TTyk zOQHgacYZXl*oTK?1zA(Yvc{52=U2ept$qCcnI^??YJAy>eM6R#U@O^DW;+5btq+;O z#kv-RC(VkH9SUGYEC5;s3i+ohvM&30h2JT>@6Krk-nylaK6|OBzWgjlRuPIxVQ~{O z&O=E+<^3{sO zyJ5i94H@9jHni*tc!3s*W7*pH&HDGwENtrsPd-e)`R1$VxU)n8Dl({?0#2jZb9gW^ z4Rr+Q8;+4e!dHm6V8LR&b2S7nlmr7|H|?PTBbVp)1Uzl0eDKTfzkhCvmSGcOhep^T zO^CAOv5N4F$RB#K=YjNnY&FS)N;${f_y?Cpp|%XR1p@I2odpy?h87M8HlB6|R8*^m z3!3NuO}@E%+zK;z0v1jJ)4pOdT%mx0wNhj*hxrYm*C*L7uXfLQRBkKg_!$Ln9` zPgQO-yj@*|Y+{k1S|A1R3G7!DK?$KGo#8pS%tmZ{*Z*w+2s4A3-k?Ci6fN<{BNWc~ z;#ANvRs~Pfk5tFH9T8(;2FE-oNhzCPQ_RTBY4A=YH_I}z?e?=NAnIWwSKt#t?p*we~Dlr zv4Y3uLP8`7h^B=&|SV3b5jv*KbG)N&3pa>)r zz^OJI7;&NWI`Ts2%dGBUVeFxA9O^(qLqkFQ;;TM06YxnM(uaYMYLxZq?_SJ8Ws<|O z6fO>X|NZvmr$2e818t~vy;GDt!4*5)1bBgX!yAwnd=Mz?ZqjuNTn3)=O1tD_X_7Zd zBa$RZ0qD3DQ_qWSiw^O$1Cze zrVK5^$!vK1S_Rs5nY%V2jWi(*X_DMD_;*q%X`pp5#l|Fm@r~_t-FNzWop@Z^2u&bX z$h8@`&?M5-vN>UFfy+QcmsTiABU}e&65=4C08WCus3hFD-5T;p^g;PJL7DC}9ME2j zw$KzJKm-qBa3gv8@j4xK^hhC9p;8GdQt-}J0ez4czQ|x0u`!RyIAc_x4LnY4z;;K; zju{UC#G5sS3?v!~?3YZ13k(r#Gy)S}e(CgPzUtdwy;8U?Ri}~yL|p9Q7CN2)jRPel z%?%9T@|VjS1BmO=e7|*Vx=h|R501sb6A$8|B7S}WQud7?G_D(99k{r2Zu63|lp0&Mk!Ki?lE;K7 zWGXZmfGpy){aO@pjNYY_{doGPZ+)%$pa1^6`Ssg3oq0YKNQ-Vil@s)TfBGQBfP<(g zl@!giAJq&3y>kk)C}VHSSVo=!u4hA+WI~5lwzA05Po?DnBJC%_w>RXOVgjmrvgR4y)4uRU6)pQ-q zoXb}~eWn0CVR{`_SzZ;aprV88Q&5n{H|WMOu7?RY4{VOU`jB3fhN`*P?*ju3mmMDf zR%rxV20!SLc>nwmVisxm1~>rXs^sfqMlmaq{m&MG`Pj za|7<2uG~o|juK+w#9IOS01&-vZy;M8WsFMB5@A0P5V^7huW;I^Nw5;mpX^t((s1$< z&O{4orvj60jgf&dkm~W$FaZ!Jcpz0mV}MxL#9)+{rIIqiVTYzO_Ih2{1lZ=vipVfX zV1bhj43H4W27_%jCO!3AUauo_*5*pK?9NhZP2>(DKWb1aUaex-p*3uR16TGnNw67{ zhO>V!Mu67a^aQ6Q2Y2AO!;?IAq{iPq760Lb$|#BuJYy8ZgO&BQ9X6I1xXg*PAjP*P zJ@P<-6P);HaA4b32m+Xe3Db~A(#>+ncC#q&7b~wREPl9*4W$bgb$)*A{ze*aIB;c# zM+}_oP*|W?BCOSUsGqls1y^dLCRhoKO=1Q#paplpi&kXYJY##kRbGdvFT|kU;zM<y z;x}D*QmOOwW&W;Hgo;3-2nAFCZWwG4Dn*z^q7^JFm!Zsayp)n976h`*C-^#oily>Q zPauoXJoBz8K;CF-%!92M29SUOHx`LII~AeRs-Tu&_c2RLpEU|GA`J@&*e=URK*Ly2 zGpK3zMt->LWlZc`IWeT2Ea6=+DP#dF6JtPB$J|rQq{xcQ5`l!4N0SG%6DZ6pfTtQ) z>nrZYt*?fH=^@%TuCD4zi12CqEJ%nlX`k&W6D6aa)r@JYj?SQ{e(R&Hst$j6d^ z^yJEd*y{}w;ZZTjcq#}BXPrgCNuqUalA~>o5kXB~y#sE_|IeJJ>ALZjYs~T^E{ik~aDrQM6i95bXg30e zn=>AJFd-J!W3Dd*I0DZ(4qd8Dj?OWO1fbb{Y%<=mnGAvML{8%o8&M&bUQ#%S6pA7m zVXUTLaktXxfu|%+PyS2nZQDVk%LnKQ3}}rVuc2pZ56vD z=_Rlg7w4JBEVEO2VPb_yrgO0oxQLb)OUaNp1!5#o!>$X}*0V+6)}b>)!x|8>#^X~& zBR92V#OOjm)6ldydJ1xWmXA%s`){F;pofO2D9Pp!8KH)|M2l3z@7Q;-ipdq9c-TfR z*0XPwI~8ORlSE4RxSa~ZZfVoq?2l&zEf+oBc|s*~r&BO9Nir6Zyyj8OPLqD<|lEg z2ZUJ&^Kgp}eKTZ5-Yq~t3<=6^e$Hgw=-R+FD-KC6s4DyZmS~Nf-?|8CxZ^%R0uiXS zD>c>LvTYzXEU(OQ%wt7S@JpuD46FwG$*~pLL|lJm1X_!Z!Bc?5V{(>y+DI~%vhQS> z477o~z#^|S1=bctE!nV8}oYJy`=m7;(TKs-~?4I}V{G~`s6|M>aW zZ<2en8WY+bf-F{DB|=H?byzFpnQ$2wX-C!|WQmK!g4Gn7bDJ-~#v3z9#-x@`5g`da zQbdrl4exC80eDEN7Z*!#hD@wl&y3H!1CGhM6rUsDN+iS*Nx+hW7cqy^t%UWIv4*vD zN;gSfH6TEW7;xtYeH<&jG{ci5VjJs+28i=ra*Hm@xU3Tug_>xUxRS+Kvm{oTsrPcr zrF_dEAy6Se#Y(6^v!o)Ndkao|Z~HMMsaAm`-GyIa#d^+;m2t0?U62AIQ6xqCJ+}?a zJ?*W|o#Ku=IH4vm1yVwcq{@5-66pf;1#*;oaw=#Y`ZCH}LGmq-ceD34YU`wh@|m^P zB6%Vt2w);1P^6^Zr~hzk0p?lxme(FuQ%#mw@D-odFhwM|vrewerc7qLf0iZbXvO1r z!>=mewM|~KOVo{2k`+WCNMtQj5-`av z(7;ea3c5tBFG-fAICcErO4K(a)mDVU`UXHwk4c0$VxUFLVwXGYvRrcRb60K$LWF`q zAQr$tEQzp4(2z;A$qcp&XP()c5Q8VRZT`OiK#G#dh-Gfm1xx>S`K{b(;Ck-)P&tOv z328+GuMEI2)}A5+K;ernH{CE4Zm@utfx}G62L7nGN^#M5krPYQq8VaPE;IT2EWXYi z2hJBdUu`(eU8`~efPo|yC=eo`P3A;HStg6ERJ2N7MoczCson6n*jum>jK`Raf{%0e zfdJk*=X`aMn|UVKM&UF#c$an#o=Gd1Nqg;8&?dDh)9wF86+FaoZ^Zf=YyHh#@K30p z_qTge0!Fn|(SsQ&>36H00QV9Yz*~RG^H=A3=6s^-zOf}$nvDQi8HfBVZw^X`X;bG< zM3AmidyO^Z>kV_{ZQgi@jk0tvtvgRZ1Kd|&0EcsKms2kFWVmTi$<&29Sqb%v`5WaD z13@JVEP!4t$KTG%=f9!$zZZc5%w6llW9~B$zydtH$P0t!)I2sPJe``ZY#;J9zDN?1 zR?T@p2@3e;^XCU%Y>^D#9Gagoz&75b-d_=M?ik$@zF90-% zK_U<^7Ys_Y(?#c!f1Y2~mY3?Ef4Y~fYpKp;R4f314G0(lFhGyA0729R<5g}K08mpw zNlpL&060QPO#|%!000005CBL3000310su$=000310ysiRO#~;8@7*GVsJkS3ixPH2l#mEf5?!>F)fTH;C8CS6 zcGU=?tlnE*|L2_d!~fg+-gEAqIWxa|@66mg^I_tQ3^ai>95f^(BtUH~brTYj8_;XM zmWu3pz1tWWc1^U5^vpE$++Y6v?@>Kf^xuNNN_jUmYgoh(G}m&a{F~}X=7$;d(#dpU zZ)kKISp~zWcwm4O#Y2YcGa39$3`|K}inkw3-D>+M%=(=ps^(=ilIdDS{X)yymxP3s z??01N+vNVvHAAJXu4)#PP5c}muvA8mh!)2s&0^9w4=(5Z#OVOkYlKamoH)u&>3o#F6+tg4j227JA8Wf)gkjRZnusDI zO_njouj^w%zx^oxZ9QJQKjVd7Jk~0yrpaUd&Q`w`e=c+|m;Za+g2b0HRdkbo5%q=z)-z8B~VVwr& zMi$K;Vq}D%i`(H7%(73vFN8RD-09vKSno8L9HpUOLZNYQ5Vf%U zMuZzI0c2*+Mmvokqug(1It8p`O^i3vBO+rlt0<>wfTF+T0~?^4IN;NZ8n$R!4H4)4 zCeqH9p*V(ebP41H$srYSkjKUs?X}6WVN57`;sBsHMAm`E8_=X#(gQ*}79M7z zV+euOiTfCOVP=P&@g@#j^8!W6&Q`7%&y&3jzPkiV58uqrj9k{BadoDTCzmpdO=~sFfJt-`IymbN^uO5lz5#|B zr!G>2`)MZsZtR#$csN2+eUIDOGlWZht#YNSm+LjKHVe#D%S8;75tj@OizTJhkxl=n z^G={y4&u<#fmRJRrV-T-zVi$k=85gB3-|6k(t7g8Sp3T&%-4H`PF@i@bTM8k(}n6y z>sn!-=)zlAdaP=^w2TZ{{_x0Uet_D~4|hZSZCGlqLp<`UuLs(-mVy&tv>vj$l{0p( zI$)7~a-xPZrY_HXVIqlJ;7&7dt3!KKX-hqM^=_d&SW^qnd zOzp&-akodZTMf+Mme`MJ^|f`_BR}=O9DgDPvrn|Z=xqBd-h(~0c3At9q)5|nKRGD% z%rjb6D#&E+F=pq=%FO9Q39|k2@u}4TieXXHi8F={Hy$oe1jB&URbx$Lp}H88@`t-A z(9O8tn|7DM5fOg_=D-dGtJ#didOJd5xCB-8lm`LyIOD^ir=o0BbjW<% zX9jozH89_z(SO}aers;{Q>AV)kaT$;4!zl{paF&AYoXrT-s13ArjLkGi8h_9o^?*6 z@UC2eUNsYa=i)5sl0>SDidW0)TbayUR*N6fwMSUTQ)v>i%r0EgbL#FHyY==UOOy4( zar6le8uI>*N=2Xq)IoGVnnpe&wx{^wPg6Hh|8H zT&V4a-*;u*E%|CSN%je?hZphqdwKlcE)@3 z;VXLh=^#{i0)fyAiQ#5~Skpn$*y@0DM&~DXv8S8}gFt^&dwE;cjKa|rnB ztqI&srWg)>B5{dV1N0(~S|u}5w2>j14#WZv3R3V8@&`;c#g?4+@SQWie{oNc$vUM6 z(DyE=x!A$9p~a<|RXhB?16kyEkz2cNs!ay<#9i+3f2ycgbdF*LY^#Sq=pDMM*Sff} zOyh2o5_&!GJhg(8bCS?%Ibo>A|Mny=cpsWAMAziU@*6*)4hS$WYfrh<)s0#4YLb7Q7Z_{sc;G5dmQi+Bv(H2XJ1RYrlcT~L^S#f;^Fg6|uA%C5 zS$lc3ULUwn)-x7kb8ESx08lpgcH<$gL)fj!n|m+SH2Y7a^O&&mJ;Ox_iXc<V?oNxEG)f~{MBqX>(s(AcuE{Bi4vAvPh=dD);$p^oSJ z^VooS985pm#`BM%?(H8LoQ`UpzPD-HqRo~ERirZou#UV}(-qV69+^h_&K3=I`oozN zF^9+IW$iUW^q{-todK{8;?LXY;bB8h2tUz})I<1XD%WL)>{9ji8^@ckEb5JpT8x}3 z!@Q0egvM~D5-c;Cz}H8?WJw1a{`a|INe%PxM1PrX4h8m@h~8*3d^OVGVE-ssx>&ze z6lL6ed3+b~hmH_;%X5sk!CChipc2cTaDFr8+_zd!)3&;cJDOP#j|&muOfD9M-2CP~!uqpVE2K`4>5`fl0SmnM zzlaa@ORo`>BQ8PGj9KrcU_zB-V`ODR%@nF2Yygi22$EQgO&P6ISU(*p;`KNPZq(ED zA-9%WG6KGwUat9KxZ6Wd%=9me1XB_8?TZ=U9B8kS&~?gx-SURYby3q19)n<0TlMFK z4(B_GAf6$He@&ai1?}~4>RJ$OE>Tl)Hg_c~+EqRj0 z8;`fwx0lTe0M^)<(|@hv;{cr+H&p&ex!W%If#HPU&jN?$3Zw5t#5Fz zanT^Te^MHIxsn!rZ&?ku`R!8gJAOGsY?b-t-VFE!&N3ln;+OP@kPt|eg4?AH;?+Z=f_)ixP84|q7cQc)c;ZG;qNm|qRB$MS3#AY4v zk*>q^f}Y(Bqilny9c5(t7FsOW0YTin*2MJE+x{gPTe$&V(v*eG{SvPElHsUO^FC3u zfY2wh_e<6RU%}}c4J>bQ!VQ)CIeDsZbPu{Hk$8O(HQk?0Zg%Iob~M!s`W!z3h>Wa- z-~au1`}o^=x&~}b;7^x$46-C_($u}6DxIZQ74KvxgNcECuSBX6Fyhe}=4+9mvy>2N zv;Hein4EpY7TqqHmPlxx%37riC=r=c5FCn;P32eR=zP zgOcl?$}Ul?-23Hk4{XgOM;p-(CDD9PEiBfxeaLC3sq&PA#0IwRa>1 zrMlj>{*#VuW6ax=4mmgJ{YDi}_RzMds+iOOc?33hpm zolezP_C@+xreX*gL##P)g3n@pyjzR|nz!pIw({_{ZLKC7X_mU0z&JJVwya`|kE@-Y zv*sF z;SZ0Qp*z^!I2LeNC$Dmo2VC^wSLB%`F7{`ghdRUn$dG?=>Rb+sCk_Grob8Ex9utPm z$T8FpZjiC#vS}e%@rs#ccx4e_f+72N=g)3_WLb2SK5ue!d2n4T3))YB@A6;w#b=^( z14*V1tRd*a*<@$;Q&?Yc*I8Wje1p5#xsEKAq*))Y7eUpQ5_B0Ut#?S<|ELcpw;ty| zC!1Li&{$lFaP(t4{Ck}(f*b4j;}#_sTC2(gj=N9zq@VLWpK8~6u1S!3mW;K@zsS!i z@g!IT-TR35}C(QoC8)Cn=$(;85ONaU@UK!88aQH~$Fm*q6nOgJy&C-qH_qd3c%UfD-K1+}jz*Mh649LPqS zKD7vKMk47kld@Ms*T!hVJxPish>OTSHMP&HSjFdMUOokYT=Z|wJKEUtf7+^Y-&m>& zU&bQn-b!2qv$3?hY;CQ-a)%j`50orMnPC>xTLEjf&eH<8@8pDc?JJkrkTTEWr?Rvftx!1d5&!TR@ct&JOVJ(h`aQZ9k+SQ3tr+*t&@m@0`WL`4{y;6_2KY`1d(#4o z_)TpN4spqeT+_Kw8t0`~;-7dK@OLA8(l@sf5kGvmV1$Meb0);(?9 zYY~c}7eO$kWQJLpn<9LF_Ry$J<;A=f5a@%_dLBDkwum{%eb>t9< z;v2*VVpo8I0ksOHQH+IPTz9EW z%9wy4o-v>X1?`sBj?J9}p`NL$3bmIgWU+pm{E4)Qlt&B26zfwAhdx#z)X z9^8POdSTl`bO3F*oicP$ruOz(qY~;g8cD>ZPV8u%O+EA(YhP4ix0luyzN_jMQqHPm zM1xi?5L|g01v_~Yb@F1i0+RRH6wAA&ATR1;5@K%h*Em&wMhWcUic)$6O^>H~0WzQ? z45zk9Za59Wkwh)`skCNi#Ym9d_`AE_=HbA1g-f0M?@eo(qq5a0?@bG0k5VR84xWS_ zjLxD2w?`Q`spc!EWfk8i(Prt1sGO~_(tt`{_A&-*ry;ovqU7O#PC8amk56%0)9QE2#^ZRxv^G8_o z_f(YCj*wH9#_LPUdWYz5mhS!%lb32R7~T2+bJo%U64;-Lwo-$KSC83MeO1PJK84|o zt|SW(nqxb-X;Skalod+nk!b(2Hcw_uqRe}HigOHT7RT_YTdT}GCxG9O6lxE%*|Z&W z#f;;_%^0WS^E@SWnOIVdv1FwTy;k9-{$uf$2ft*qRyXAwK)*f=;KwiS?Kc+R0h9MQ zY|XVwoF6-}eODI&z4Ud?;WfwdmWKak$IB*SAQj|k=NQ>0ZsEsRmu69$mbE~Ii@HNG zD#JmCgiZjD9wTab_(8yiIWG#{*mIcj{et7J))McfTU}KrV**_OR!V1ilHuMq2ep69 z@H)nRmckNfKXAjM>>$*khIS0(nT91~D2&RrSZ(oToJnxK5J3i6P{=AKXHxd06P{DX zhkqXVnb1AKI_Pz?M7VC&v!VMWcQ9Ih_- zbQ&=%^^sNsq%$a5S8!`is=Nnc_Yv5IePu6{FHp~i+R}k`to+4+>j&~ZgV_6yNY9() zG~horj70Zc${ajuuh2#19I_*pO&Rt%@|?QfUsu_<525_5X&)jlR*0$NLZn2_=SS%3*>wVx&+5725K6G9%`8x;g3S@k^ilr+X05feba z{Qt}Uzx@Bp-oD2Y16+co zCvQVxfYW}q>f?1Lo*iR84||b`XNR(8H&LoGE~v@{M^%@>E}E8m?qFS8!!B z5>?GHW1!`!q&eRS5s37HBM>+0Q*f&s<63qz1=lts9h!3{sNiO*=6EAmMxmEnz;+vl z`Mk(6u4bo;xH?Nt!!uczW}vligo;Wpx}t8A7xXoz;d-_j%a_3m)D>_OO;;zprqlZ{ zg6*rajJQi*0Jo%KzVQ^Qra*tD_}@)O%{x% z>&i^lv4-A<6^UMWLfwNERe>;9pk+sTb7~L=rzVo#bVU=WDqvN8rl}m1=lj3__LW({ z>=2-IT~VeCwCrfsG))_H1=DO)Ksq#0V=-+shvs-6L^OKo4RME}=#&*al~j)Atp-+t zvQ8O|5uB!I;#|-ajeQ?vq}P^^cVI;(r$CtLnnWv$CSFHLX$9(vrYUn-(-ocGhZW(q z1=I}!l#Zw?%7lZG%@V80b3C`OC}0#k*Ay1Y{6=87*XF<*6h$YZtYD){nnY{8(n(!` zbY0Mdk;6heikk370O-X7*BMr1B612uUDen{3#$glWk!=n$Ef#F92E`ys6;3o5m8s1 zIw%|MdZ-(Kt=s#_E8c{UwJ2BOX~l>H`Di@uOm( zEP~TSjn~9&s7yT8(mpq1@hzGDz(AXc9s0jjf#i=Yob7_5s8SsTqBuIGrpP}k2FfxBnz)Aau`YE3a=ZvY z^;1Cs31cEMBbJ~HKPpiZ2E>ZCLBdi$B3qXM*-RLXe+Z+Kh^P(V9=wL$AI2Z4)L}`7 zH!rLyn8rl`dpn}om!UfyRmJg;N5?}N9S=!yzB$}+b}ZyGxz}W&EQ+8xo&Zs7tH4fo zD9(pAvJY-_K2*i=<~XsQOMF3xCMbv%ZHe8E$mO;MY*kLdL}V~*B=P_cP}(=gaRC4> z{?#-EleQ>eSNIzckqNmiKvPj4!4ZW~mdeNzc}1f)hr0$qi!a4OSyVxD47?`ZH{X(j4IKo@NbWD z9nizeXqxp-B2Cj-uhf_;h$ylKPGc0EEQaTR>HtJMVtRYT9e`?gbKxEiJLW-Cz^c?5 zy4rS4(oh}2#!(y{qu?+;-ydcV@UfFk9k@r{q7SkrEpm!}8F|gAIux;t?8uGsp@{Df zYI^|xW_Ix>9{nx)7I0F~uvv2`>VvD}vVgjxs+{8FK_g`!v{PZvSyeZ4mKB{uO`Wq?73P@K3;bK8ZiIjO?UDq2*v~`R(tObr ziHZiz&A0|-lBxo6>eOVNnJc<;is>zqcEUgXw$7ZGEc+ErqChlf zWN3qq>QvMnQ|EicZH0gOZIx-5?fbFDETB_?AW>2QJv+(g4s{~gs!+YcSE$XzF=cdi zD!xaEx57UzG7a-~w*Y0Mm4~JbsOcVit&G`j22@l)FUfnKN{7DCq?>6p*=FpUM(VOJh3~@!p%5yi?*d^2y2m^9_T_o+X zL89q0;b#0qewWzY{>RN_EalAtl#SLNnld8KS4Gm7%PP$WU8iZ*`F9ER&G7HP%>*oV zdlk*G$ZFV($niCiX3Is*EHJt&pgrV^U_TVf4d95VU3GjY#5-gn z!qw-8g1tj0@|W?40`(ifQM?T9Lm}VcpmbgOPzZN8DPMPfD408d>UI4?f!ZDX2KZD+ zcgQ>V4+VdR_PIfKK-(aGDx7!V4brDVyu*$k3+AJS&X1b-l)}e?;b-JO7AQX>`?+AB z5q&ODc|PqfE}azsddAMeVs9+eKX1%ukeiE@n56anHdLk&ovH^(TtbGbyy0(f=#so^*rp1PmfV>xi)Yu(Mukxu@2G=vWRVL)xfLfFP`cZreY<4@PNK38MM-`8W$W@3{V+%vc$t*FcLtE^G zhe$-WLRqXX;jt2ttxy&_ks!`gJl0E0VrY9@VGBda$$a%FK7+rc%?!j&i>m-T&+d0!PpY9g1v>8>! z((=`#$hYD@rR|!~XsZ)*1;aDNn9c#BDq`5u5mI3ZWiA6iulcMal&O{hfX|e29l_tr zvcx5L??aK0H3h>n#hA_k;#ZGczY#my4`SKtu}4EhswL4R31JFA z_4H`c0Cwh)BZ(#ty17+>cp8#j7hp#LayBH|Q)2toBU5j~j`nj>+U_8I7ub_B3Mh&K z@gSvRp)V*j4ufMsvowwp(ydsiq_ixgQ5V>gG72bPKB9CJc60+T`Q0MvBScT?B)|+T z#6)T@AWWU4P0~5XjNM%4a=)O{JBVf`3g@?gOxcV7j;`G;VY*IqnoL5WSt~&DcMrvkR5(>>)0p9~6TQ>UFKcH7qXQ~jVhy^Poq0F5^obVHVk)O%}ZbVH$^Q)>5 zr-%jnO(3$F_o$vOe{L-Jxhi@lWRLTTb{N|70xP9Exr>s(*VO&$97)HW9BUq1 zwi=zShqtu# z6;0?9>iTUWihTx1-?@8VQ3SYU*r(OSQPu0>{5+1E5&7IEP$pVk9N#HX%B!ptE+NU& zrBz6D?M|5UlD{1h8J{XE5CoDueU-m5Mq;z*kla_pOob;Rx}y*JSIxXOa|N9O(xN6X zT~md0O%m$!2vb?2OZrwsbVzVQ71Ecf!M`?-c7d1JEeR0IMOmoV1Od;ZOm(5p7@fs# zl%*(Sp?;Z8#Mc&aUO-hqGYbq${-PkjUSg#9G}ugdh-DC@s7w1fDG5P<{VFAt*H)0O z@DiGtG7Vy-i-?6Xsj4hrWBie7gVh-wu~23_*Bt#< z#DiZO!(TzCgytq}gX}L$0^&r)V;^_{Wg z{skdMcx3@hmzpjC#VSl<$eAuPEO1m6h-pAoKvqSFm2SaK5g|uKm2eDv!&RpMr!ieJ zl3{_Psz6L%k&N?|oygaa;{i~Ue@rLF&0I%^02Dj06(XCFlTiJ@WXS#=;A8}QLhhuD z1JvlPj}-vwHBsU?@(p64;UNIU4s3Yw>BR7)J7hf8lybw^Yp4&jC0#>J0D21E`_v$_9nmQPH68v)4a0-Jqy_bLRTR41 z@v>%V3)2R(h16v*+srMfJxm^?_H*4__XTj*`nj9n1ma#ABo@Or~N<77ZrbC}gq}_`g z>p0T%p=*w=BiH7-r`g0)9O&y>!R8eiMx|ZjIdKM>zl3aIRZoT%n$%TXEZv99sVRmQ zx^u+I&<;eg>3XDvwy>%vLtj|a(9G+x4b5yrWI{UYsnYzLSRIbZM|pg+KRF7*Za0C{u!8UJp{tMK>mf53m!FU4N%Q2;i|p90jRHXqy5 z>7uSR(m6l3r_)5ZCCOAK*~$*{(QSf$#RJ#2_Je%_x=6>+YA39WH& ztmD>RQ5qFj*{n^-JFz-{L9+9KUZ{e4z$fZXgIR6bGSs9tAKTO9U2nKPOV8;!?F&U< zi@9?%2xhgHij_F7HPBaYKAI}yT_cjB4;bnlqfTT2oAO~wC2@pE;|DIe9q3fDXqjhg zUZzuBBa{1jeKby&-%qBBxXrJCAsA(?9n%Xp#TaTE zm8JTtJM=pSLXevaK|?UesNm6BryihtHFBA(a4W zTae?5xrclO4AF~=x=_;thf&odmc~&=uEalH+4=Nh>Km__46{$|>GEkuR%N6zH}>@U zXsUk7`{WmmbdFE$>GaW88tELL+tcZyt~Js*KewmTMO@|NT@ix`IB&t@_60;g5aI(Ia6)ZWsAM&9~31YstSl;t9Z}5>uP= z7y`VT-XGPe=6U2a2q3YJsd1wDxW7p3Sxhn4YjF5efh1kU z>DUEC6HXxx!Qo{&1JZ@3TtEKn5C3tQ|NE@^b!O2=8%$spFXpkeYD}zk?~ndY-y+k<=BY3zh>d5#OrAPSFRtwd zzQ)F;>kS{TD?HJ3W`%4+Jbb7APrwq$8Dt+b0vtl*h%RWY4>bHQ_Sj1d6Kh}?kmBS! zx-%@|S;d?7c8V(Kxha_z&Zb>`{Mm#yGz0BdZqG9SZE_kUCb0dNYo04X@VAP!xHZiQ zGCYa*;+)?pkU_{?t`B4n7pCSb=t99pD1f}xs>w{X8(RYxBmrDdjm^I=v_&K57*2R1 zx*gLVyl;=&H3dmBfSb^J3a1_e+yS%=Aq;~w!}#B!?{7+A2jw5iqT#TF28FfU|IlM6 z0(0g>2BkCiNNg0c7Am5rGF@TAlQ4LRTtuL^Ho&*13iuO ztc)%XW4^f|EarQNU@h}{=P{&^$c2*EKZH8DM4V4Uuy4{-Qq;=AA*=QCYmNRap1Bo2 zy#N95N9E6*6-)+(Aq?oedLG@fT`v_UW_z4PkIy^#LHGZ#Xc{YO`R$7c4jujw{#E{I iRsZbk