edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Markierungen von Anhängen (Sendungsdetails NEU).

Browse Source
This commit is contained in:
d.breimaier
2023-03-27 10:05:50 +02:00
parent ed993d08d7
commit b9c662d3a9
8 changed files with 249 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Aviso/App.config
View File

@@ -47,7 +47,7 @@
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-10.0.0.0" newVersion="10.0.0.0" />
<bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Aspose.PDF" publicKeyToken="716fcc553a201e56" culture="neutral" />

8
Aviso/Aviso.vbproj
View File

@@ -95,7 +95,7 @@
<SignManifests>true</SignManifests>
</PropertyGroup>
<PropertyGroup>
<SignAssembly>false</SignAssembly>
<SignAssembly>true</SignAssembly>
</PropertyGroup>
<PropertyGroup>
<DelaySign>false</DelaySign>
@@ -108,7 +108,7 @@
<PlatformTarget>x64</PlatformTarget>
</PropertyGroup>
<PropertyGroup>
<AssemblyOriginatorKeyFile>Aviso_TemporaryKey.pfx</AssemblyOriginatorKeyFile>
<AssemblyOriginatorKeyFile>LME.pfx</AssemblyOriginatorKeyFile>
</PropertyGroup>
<ItemGroup>
<Reference Include="Accessibility" />
@@ -257,8 +257,8 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\dll\Microsoft.ReportViewer.WinForms.dll</HintPath>
</Reference>
<Reference Include="Newtonsoft.Json, Version=10.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<HintPath>..\packages\Newtonsoft.Json.10.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
<Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<HintPath>..\packages\Newtonsoft.Json.13.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
</Reference>
<Reference Include="NumericBox">
<HintPath>..\..\..\dll\NumericBox.dll</HintPath>

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.8.7.4")>
<Assembly: AssemblyFileVersion("3.8.7.4")>
<Assembly: AssemblyVersion("3.8.7.5")>
<Assembly: AssemblyFileVersion("3.8.7.5")>

61
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

@@ -24,10 +24,10 @@ Partial Class frmSendungsdetailsNEU
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungsdetailsNEU))
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 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()
Me.pnl = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.TabControl1 = New System.Windows.Forms.TabControl()
@@ -406,6 +406,7 @@ Partial Class frmSendungsdetailsNEU
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem()
Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.HervorhebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.pnl.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.TabControl1.SuspendLayout()
@@ -1446,18 +1447,18 @@ Partial Class frmSendungsdetailsNEU
Me.gridVermerke.AllowUserToAddRows = False
Me.gridVermerke.AllowUserToDeleteRows = False
Me.gridVermerke.AllowUserToResizeRows = False
DataGridViewCellStyle5.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
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.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridVermerke.Location = New System.Drawing.Point(0, 0)
@@ -1466,8 +1467,8 @@ Partial Class frmSendungsdetailsNEU
Me.gridVermerke.ReadOnly = True
Me.gridVermerke.RowHeadersVisible = False
Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle7
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle3
Me.gridVermerke.RowTemplate.Height = 20
Me.gridVermerke.RowTemplate.ReadOnly = True
Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -2212,8 +2213,8 @@ Partial Class frmSendungsdetailsNEU
'clmnPreis
'
Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
DataGridViewCellStyle8.Format = "C2"
Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle8
DataGridViewCellStyle4.Format = "C2"
Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle4
Me.clmnPreis.HeaderText = "Preis"
Me.clmnPreis.MaxInputLength = 15
Me.clmnPreis.Name = "clmnPreis"
@@ -2419,6 +2420,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtFrachtfuehrer._displayWoelflKd = False
Me.txtFrachtfuehrer._hideIfListEmpty = True
Me.txtFrachtfuehrer._loadKdData = True
Me.txtFrachtfuehrer._searchName1 = True
Me.txtFrachtfuehrer._UseFIRMA = ""
Me.txtFrachtfuehrer._ValueKdAndName = False
Me.txtFrachtfuehrer.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
@@ -3270,6 +3272,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAvisierer._displayWoelflKd = False
Me.txtAvisierer._hideIfListEmpty = True
Me.txtAvisierer._loadKdData = True
Me.txtAvisierer._searchName1 = True
Me.txtAvisierer._UseFIRMA = ""
Me.txtAvisierer._ValueKdAndName = False
Me.txtAvisierer.BackColor = System.Drawing.SystemColors.Window
@@ -3300,6 +3303,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAuftraggeber._displayWoelflKd = False
Me.txtAuftraggeber._hideIfListEmpty = True
Me.txtAuftraggeber._loadKdData = True
Me.txtAuftraggeber._searchName1 = True
Me.txtAuftraggeber._UseFIRMA = ""
Me.txtAuftraggeber._ValueKdAndName = False
Me.txtAuftraggeber.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
@@ -3594,6 +3598,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAbsender._displayWoelflKd = False
Me.txtAbsender._hideIfListEmpty = True
Me.txtAbsender._loadKdData = True
Me.txtAbsender._searchName1 = True
Me.txtAbsender._UseFIRMA = ""
Me.txtAbsender._ValueKdAndName = False
Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
@@ -3623,6 +3628,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtEmpfaenger._displayWoelflKd = False
Me.txtEmpfaenger._hideIfListEmpty = True
Me.txtEmpfaenger._loadKdData = True
Me.txtEmpfaenger._searchName1 = True
Me.txtEmpfaenger._UseFIRMA = ""
Me.txtEmpfaenger._ValueKdAndName = False
Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
@@ -4177,6 +4183,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtFremdEmpf._displayWoelflKd = False
Me.txtFremdEmpf._hideIfListEmpty = True
Me.txtFremdEmpf._loadKdData = True
Me.txtFremdEmpf._searchName1 = True
Me.txtFremdEmpf._UseFIRMA = ""
Me.txtFremdEmpf._ValueKdAndName = False
Me.txtFremdEmpf.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
@@ -4737,9 +4744,9 @@ Partial Class frmSendungsdetailsNEU
'cntxtAnh
'
Me.cntxtAnh.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtAnh.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MarkiertePDFsDruckenToolStripMenuItem, Me.EMailAnfügenToolStripMenuItem, Me.KopierenZwischenablageToolStripMenuItem, Me.LaufzetteldruckJANEINToolStripMenuItem, Me.GestellungslisteAnfügenJANEINToolStripMenuItem, Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem})
Me.cntxtAnh.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MarkiertePDFsDruckenToolStripMenuItem, Me.EMailAnfügenToolStripMenuItem, Me.KopierenZwischenablageToolStripMenuItem, Me.LaufzetteldruckJANEINToolStripMenuItem, Me.GestellungslisteAnfügenJANEINToolStripMenuItem, Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem, Me.HervorhebenToolStripMenuItem})
Me.cntxtAnh.Name = "cntxtAnh"
Me.cntxtAnh.Size = New System.Drawing.Size(294, 184)
Me.cntxtAnh.Size = New System.Drawing.Size(294, 236)
'
'MarkiertePDFsDruckenToolStripMenuItem
'
@@ -5141,14 +5148,14 @@ Partial Class frmSendungsdetailsNEU
'
Me.ATANAKTRFraechter.Image = CType(resources.GetObject("ATANAKTRFraechter.Image"), System.Drawing.Image)
Me.ATANAKTRFraechter.Name = "ATANAKTRFraechter"
Me.ATANAKTRFraechter.Size = New System.Drawing.Size(238, 30)
Me.ATANAKTRFraechter.Size = New System.Drawing.Size(230, 22)
Me.ATANAKTRFraechter.Text = "ATANAK (TR Frächter)"
'
'ATANAKEUFraechter
'
Me.ATANAKEUFraechter.Image = CType(resources.GetObject("ATANAKEUFraechter.Image"), System.Drawing.Image)
Me.ATANAKEUFraechter.Name = "ATANAKEUFraechter"
Me.ATANAKEUFraechter.Size = New System.Drawing.Size(238, 30)
Me.ATANAKEUFraechter.Size = New System.Drawing.Size(230, 22)
Me.ATANAKEUFraechter.Text = "ATANAK (EU/andere Frächter)"
'
'ToolStripMenuItem26
@@ -5246,6 +5253,13 @@ Partial Class frmSendungsdetailsNEU
Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(255, 30)
Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen"
'
'HervorhebenToolStripMenuItem
'
Me.HervorhebenToolStripMenuItem.Image = CType(resources.GetObject("HervorhebenToolStripMenuItem.Image"), System.Drawing.Image)
Me.HervorhebenToolStripMenuItem.Name = "HervorhebenToolStripMenuItem"
Me.HervorhebenToolStripMenuItem.Size = New System.Drawing.Size(293, 30)
Me.HervorhebenToolStripMenuItem.Text = "Hervorheben"
'
'frmSendungsdetailsNEU
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -5722,4 +5736,5 @@ Partial Class frmSendungsdetailsNEU
Friend WithEvents AuftragATANAKToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ATANAKTRFraechter As ToolStripMenuItem
Friend WithEvents ATANAKEUFraechter As ToolStripMenuItem
Friend WithEvents HervorhebenToolStripMenuItem As ToolStripMenuItem
End Class

194
Aviso/frmSendungsdetailsNEU.resx
View File

@@ -1531,9 +1531,6 @@
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1654,18 +1651,6 @@
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="Button9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAHtJREFUSEvt
@@ -1839,6 +1824,182 @@
<metadata name="cntxtAnh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>496, 17</value>
</metadata>
<data name="HervorhebenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAnuElEQVR4Xu1dB1hVx9Yd6qUj
iqBiLNgQKyoqdrGLBTFRUcReYsOuiSWWqLHEEmvsPZpojN3YC/bee8FubNEkL3n/e8n+9x4YOGUuXOSg
+Lx+3/qAfe8997jXnpk1e/bMYQBgxQcMqdGKDwdSoxUfDqRGwsZNm9MFm7dsZSu/W8XatG3LvL292egv
v2TTpn3DChUKYBMmTWJdunZFe1Y2YeIkNhGRP38BNu2bb1jbdu2Yj48P/j4dPzOG+fv7s1mz57DIli1Z
9uzZ2ew537Jhw4ezPHnysDlz57KIpk1Zzo8+YvMXLmQDBw3m9rnz5rOwBg1Y3rx52dJly1lMTG/83Z99
O3ceq1mrFitQsCC/t65dP2UF8fc5385llStXZkWKFmWrv/+BtWvXnhUtUpTNmjOHlS1XjpUqXZp9/8Ma
fg+lSpViM2bNYiVLlmQhFSpwO91DBfz9mxkzWGCRIqx6aChb9f33/B5Ca9Rg4ydOZOVDQthX48ezvv36
OaCtRq3atcd5eWVemTWrz4pq1at/WaFixap9+va1bxwezrr36IH+24L/j3ls/oIFFmE23ivd++49+9j2
HTt1POsMAjLyjIA1AOIDAMllU6dNYzVr1mRNmzZt4uvre4chHTLkypXrWmBgYP1xX41nu/fuxfv6Vkq2
DNYAyIABUK9efX4f3+J95vwo5zQZ6TJUq1Z98pat29h3q1ZZ3AtYAyCjBcDq79knnzRj2NW7BQQU3qcn
2gGyZnFFuODv9txmY5P0enDZsks2bNyI11ltURBYAyCjBEBgIO/2d+zcxaKiWudDMi8JUuNhD2HVPeDQ
cld4ecQFXiAOLnOB+tXc8TU7xft4ECxdv2GDRUFgDYCMEADT4wOgZatWJPZqubi4/KkklDFHmNjPA+CZ
CYHuv5aAF4jnJvi8kwe+J743EChbtuzijZs24X19z4cSGfkEawC84wAglT8L760SXqdYseLtnZycVETa
2zvD+tmZAH6zBbiArj+OP08m4BjiMtpe28GwTz3x/ZogKFdu4abNm3kQmOsJrAHwDgMgvEkEH/cXLV7C
8uXLN1pJHsEnsytc2IItn8g/hW4/oSBfgALiIr6GQfB5V0kQlC27aFNCTyALAmsAvMMAaNmyFatRs6Zt
UKlSPypJY8wGShfxgKenXOK7+WM2cvIFRBC8sochvCdwUFwrfjgwJwytAfAOAqBc+fJs567drHOXrr5I
0FElWSToIut6AsQh+Q/R1Uc1ZJuDCIKX9jCsu14TcGEoCQJrALzNAJg5i5UoUYJFRDRlQ4YOC/by8nqu
JIla7pAuSP5TR4Bb6GYa42VkmwMFwSX8HAbBcEkQYE/Ap4hKYWgNgLcUACWDgvj7q+NUr3iJEk3c3Nz+
oySHMSdYNA7FHo7lnMTUki8gguBXs8JwkRCGFATWAHgLAdCiRSQrj93+0uXLWbHixWOUhBBcnV0g9jts
+X8geWfQvUSijFxLIYaD16gJzAnDhCCYicOSNQDSOQCi27TlSZ4KFSsuUBJBYq9Abne4uc8NWyy69QRB
Q+abQgTBK7sEYajrCXieYPmKFTx1bA2AdAiAEij4yKm9e/dxR6dvVxLAmC3UqeABf151BfgFXUpKX0Zk
WiCC4FcUht0kwjA4eMnaH39kW7Zu5aLUGgAGBgA6l9WrX5/upUC2bNnilI4nIj5tjvP7hyaAu+jONx3v
LYHQBInCUD1FxFnJ0v0HDrCLly6zXbv3qDgm6AwCMvKMwPseAIGBRdi3OM2qXbs2Kv6S1TJl8nqtdDhj
Jpg0wIu3Sp7OTU/yBUQQ4HcO76YfDqpVq/bNps1buO+1POsMAjLyjMD7HABt2rbDeX4QW4HvKV++fBQ6
9x+lo+1snWDDbBJ7qPTPoxuJGBlh6QGFJhgq0QQNGzZqte6n9SqOCTqDgIw8I/C+BgCt43fs2IlVqVKV
ijgmKp1L8M3qBqc3oNh7he47iTBK7KUGIghwdjC4s1oT+Ppmuzpy1Ggck9Q8q/5QQkaeEXgfAyCgcGG2
7eft7PPPh9iiM1cLp8bDBoKLesDz0+4Az9F1x1NI66Y3EocDR/i4Li0lJ91r/fphjbU8q/5QQkaeEXjf
AqBipUqsWrXqbPyEiT558+Y5r3QopXWb10Wxd8cpIa1rRulTQJzC14iY6wha4TudjoFCuuMpg6PrqKjE
MfF+sfeao+VZ9YcSMvKMwPsSAAXwe/n7w8IosxeUNavPIzX5jjC4E4q9ZwlpXVlOn1ojrfI9Qjy2h/+c
coansZ7w5wkXgPsoEn/BIDAiMSQDBtuf550hoIBb4j07Ozvv1vKs+kMJGXlG4H0IgC5durKAgMLsu9Wr
qXq3ATrvjyTiCSZYNAbF3m9IIrVqmdInG7X0F/ZwbJUHRIa5Qh4/Z/DO7A45s7lA/aqusHkmXuOXZAIo
LbjA4L8XXaBEkaRhwNbOdp+WZ9UfSsjIMwIZPQBI4X/6aTdWsWIlhsr5czXxDNzcXGHvchzvXyfTeol8
6uqfOMKADpnwcybVNZLgABG1MsF/b+EQYmS+gIaW+wwu73AGB4ek7w4KClqp5Vn1hxIy8oxARg4Af/98
/B5Hjf6S2dnZzVGTxaBgbneIi8Uxn5T+CTNjuCAfW3arhqTE1fV8ethApSB3+L9rGAT38HOGBAFe53d7
GMhLyWwSv6t+WFg7Lc+qP5TQEmcUMmoA0EYNWsefPGWKa2BgkQNqkmyhdnl3+OuKMxdXZtO6RN4NfB3J
b91IT75X5sxQOjgYsmXPrrITSZVL4fWvJvQEaRkO6N4wQDfOpa4/SQC6uLi8HDFqVHYtz6o/lJCRZwQy
XADkycvmzp/PwsPDaSUvv5+f33U1OQ7Q6ZNMKORwCh2HrjFHDpF/E19/6ghtGuvJr1ItFLbvjYWLN+7A
weOnoXlkK9XrFARVSrvDv6/h99zG67xJT0CzEJyKntvuAc6ONANIun7tOnW+2Bd7IJFfAZ1BQEaeEchI
AdArJoZfh5I8DRs1qoSO+kXpNGpBkwYg+TinTjatK8jHGUGbcCLfVnENBrXq1IUrt+/Bheu3YXfsETh1
4SrEPX4O7Tt1Ub2PgiC8NgrDBxgElEmUfZc50D08YPDivCvky5mk/Ak5c+bcRauWO3btSuRXQGcQkJFn
BDJKACyhHqB3H1a+fAj7pFmzLjY2SWMlwdbOBX6aieP9a3Rscmldcjx1+9jyW0vJrweXb92DY2cv8h5g
14HDsGPfQYg9dgruPH4mCQIHWDQOReYzMxpDBhGA90xQGXsR5fUcTaa471atzn7r9h22d9/+RH4FdAYB
GXlGICMEQK5cudjaH9fx73BychqDgk/ltGxZXOHcVprmIQnmqnWF41WCT01+7br14QqSf/zspUTyBUQQ
xD15DtHtOqg+F1zcFeAq6g1LegG6N0r/vjBBVDitAWAgJ+0kehXR9OOSu/fsZUeOHGP79luHAL6ES+v4
eB3bMmWCNygdT84rg/Pm56JaN7m0rmj5JPgk5NetH8a7/RPnLuvIVwbB0dPn4dLNOChcpGjiZx3sneHa
VjeAO3h92XcL0L2dxve8soNRvfULQJUqVaozYNAgtnbdOnYg9iCvCdDyrDMIyMgzAu8sAHLnYfPmL2Af
f/IJK1qsWLa8/v4nlM4i0da0dib4m9K6OJaaTesSRJdLgk+i9uvUqw+Xb9+FE+fNky9Ar9+8/wQio6IV
17CD/cvs8T4036sFTUVf28Cyr+kekhQ/oUVkZJ8jR49xf/+47ie2Zu2PvNfT8qwzCMjIMwLvJAAGDuIB
QEu6zVu0KI4O0mzFdoAhnbHLp61ZKSlwQX6i4FOTX7sujflI/jl9t6/Fzv2HYN/h4xgAj6FS5aqK65jg
7E/YC9GUUHYPBJru/cogdi21fOeEz8XrGC8vr6/JTzt27ubk/7BmbSK0POsMAjLyjMC76QEG8aLN6Ojo
jx0dHVVr+FStu3AMiT0LqnVFt4/kR5sVfHdVgs8ciHz6+eDZr/Dl+Imq6+TL7Qp/n8YAoPuR3QdNRZ8w
uHvEDXy8XFWfDQgovH7s2HFs+YqV7OftOxhtJyefC2h51hkEZOQZgbcZANlz5ODfRZszPT09+zg4qMul
3FxcYP8qnOb9jg5NaVGGyCfBh91+lKTbp5ZPgu+YRPBpIci/++QFTJo2Q3UdCqoRvWhpGQOSunjZfcQx
+Nc1ZyhRUK34PTw8zq3fsNH10eMn7NDhI1z1k/BTQsuzziAgI88IvK0ACG/ShC/oTJ8xk5ZzFykdRSiI
rSxuPwotyumbS+sKCPJR8EUlI/iOW9jtUy7g7uPnMHHadNV1CEXyucP/XcQZAOUdtPdEAXoV7Y+doEEo
df2qz95vHhnpT4pfkC+DlmedQUBGnhF4GwFAqV2yBxYp4lkoIGCX2lG2UKO8J/x+CZ2M3WiK+/JEt48t
P5q3fA35KPjiyU9Z8Any4x4h+VP15FN3foOCkpaPtRlHusdzaH9pD33aEvlJPZC9nd1/69SpEzJ02HD2
40/rOdFUASyDlmedQUBGnhFI1wBAB+TOlZt9t2o1vT8POkdTwGEP3Zqj2HuE5Fuy+kavC8HH07tq8uvg
PD9e8KWCfGz5kyTk+2Zxgcu7EhJA2hkID1C04VA1bTjdh3oo69CxY7uTp86wrdt+ZlT3R2qfxJ8MWp51
BgEZeUYgPQOAWkC5cuVYp86da7i5uf1L6SRS1hP7I/lUrUvduSXkJwg+mdqvRWr/5l04ngrBd/cxjvnf
aMd8Sjy5wJXdNO4jybKFJrL9ZgNbFuqXln19fYfOnDWbkeAjgmm6lxy0POsMAjLyjEB6BICPry9buHgx
7/p9fHxbOzmJaVE8qFp3/Wyv+Gpd6kZTqsBRdPutJS2fcvva9K45KAXf1xLyfTO7wI29SP4LJFmWe6B7
ecbg4g53cDGpF3jKlCmziHxD5w7R0TPUA6QELc86g4CMPCNgdADQvry8+DttzW7QoMEkpYMI2bxd4Pwm
dHByhzAoQQ5PJr2bNOZbKviIfOz2JYIvayZnuLUP7+1lMuQ/YPDsjAvkzaFe4MGWv58ye49/ecoOHznK
9uG4v/9AbIrQ8qwzCMjIMwKGBsCcOSy6TRtWODDQoVjx4muUDqKkCFXrPjnhGl+tm5LYI4iWb2Y9n9T+
VZ7etVztmxvzs3g6w/U9CeTLun3qpUh/xLlAlWC6F9XnL0W1js66e+++xBy/pdDyrDMIyMgzAkYFAKl9
SnZ0797DGx1ySO0gO2jBq3VR7JGiJmK1DtaC3iPSu5L1fBJ8V1DwHbcgvasiX9Lyfbyc4wUfdfvmyKcF
nueO0LZJwgJPwmdNJtNvTSIiio4cNZrhnJ+TSt2/pdDyrDMIyMgzAkYEAJVskdjr3qNHqSxZsjxTOpdy
4oPaU1o3FYcwCPITBZ+62+fpXS74UpHkIfJlgi+zM1zeieSLXkl7L9RLUcn4b3Ywohfdi3qBJyamd8T5
Cxe56Ptp/YZkFb8MWp51BgEZeUYgLQFA76duf9GixSx37twNUOn/W+kcUsgLx6LYS65aVwt6jxB8Fq7n
m0OS4HtuRvA5wzVS++ZaPoFWIHG6t2wKKX71As9HuXJ1J6FLm1RoukeEUgCkBlqedQYBGXlG4E0DgN7v
lzMnP4aleYsWQ5SOIbi5OsMBqtb9HZW+pbX2RP4brudrkUS+LL1Lgs8FbpHaNzfmi/t5yeDIWkrxqo+T
q169+hRazaQFHRJ/FARvAi3POoOAjDwjkPoAyM+7/Y4dO7LChQuzMsHB85WOIRTKozyEAZ2bktgjiJaf
hvV8gZTGfG/PhKlecuQnLPDciXUF70zqBZ48efOujz14iD18+Dhe8eO4L1P4lkDLs84gICPPCKQmAAj+
ef3ZgkWLWL/+A1zQGVuUjiGhVjvEA/66gko/uWpdLYh8IfjSuJ6fRP4zmDhV0vK9EpI84jg4c/dzl8G/
rrpCiQD1Ag/iaLv2HVz2kOI/mjrFL4OWZ51BQEaeEUhNAIyfMIGLvV4xvfP5+fndVjvGHjo2pbSuKb6e
3tJSakG+mQxfatfz6SeRLxN8lN69lJzgIyQu8JigSU26nyTFjxrncVTr1nnGjvuK+46CQJbfTw20POsM
AlrijIIlAYDKnurz2fKVK8lexdPT84XSsSSOJg5EsffKId55RKrMuVqIbh/JN2o9Pz7DN1N1HQIJvmTT
uwQaqigz+coeekbrg3HI0KHVr1y9xsd8Uvwk+kj8pQVannUGARl5RiClAOjcpQvz9c3Gl3Fx3O+qdAjB
zs4JNlC1Lk6TLErrChD56bCeryI/oRiTuv3EMT+50jK+wGMHU4eT4lcv8BQqVKjlgoWLuHCTEfmm0PKs
MwjIyDMC5gOgEA+Abt268/34FStVmqB0CCE7HcJAad3XeIuWpHUFiHxaXzdwPT+OFnYkat/b0zmefBKk
yWkSmu69YrBlPt2PeoGnUaNGw1es/I4TRuf6yLryN4WWZ51BQEaeETAXADTdo9z+0OHD0QdspdIh8Wld
d3hxCpU+tSpLlT6B3kc5gccO0LaJhPw3Wc/nal9O/tWU5vkE0iuoC85vc9Pt4AkMLLLk2ImT7P6Dh2lW
/DJoedYZBGTkGQFZAEyZOpWLvT59+/rky5//jNIh1FVHoDj653bCIQzJOVYKfP9zOxjam7pZfXo3tev5
lOH7WkI+pXcvcsGXAvnUG+H/49kZN/DPqVP82zvhELhn33529NhxKYFphZZnnUFARp4RUAYAib0vx4xl
dKJliRIlS3h5Zb6rdogDfMYPYUClT8rdUrEnQK3/PoMz62klTZ1YeZP1/LhkBF+82k+BfNIrJELvOkFo
OeqNkq6BvriBAjgLDYN0opcRil8GLc86g4CMPCOgDICsPj5sKnb/Mb1jmqET/lY6hMbFxWNxmpeatK4O
SMZTexjYkVpa0vSqavXQBMFnOfn3kPzJEvKp5V+jVb2Uuv3EBR4HWY3B7zjVK3X9xk1DFb8MWp51BgEZ
eUYgPgC+42fuUWavRs2agxSO4HB3dYW9K5H839GhZ/F2LFX6WpzDz191hIqlkjJrVBm8cdtOnt+3iHzq
9nnLl4z5mZzhZkoZPgL1RLSDB4N5eE/9UFSyZMn6i5cs5QUbMtKMhJZnnUFARp4h2LiJRzjV6tva2s5Q
b8q0gYK53eDufnQqbcqkFmyp2JPhIn7+vD0U9k+aYuXLXwAOnzwLscdPS0kXUAs++Xo+b/kpkU8QO3gm
09KueoGnZatWvdauXcc2bNjEqKJXtoRrJLQ86wwCsYcOG46Dh4+wM+fO04KOa65cufcoHUFdYg0cF3m1
rlFn61IPcN0EVcuqxdaa9Zvh+t1HsH3PgRTJlwk+quThY35K3T6BXsfpXuwPdA/qUrXg4OBpZ86dY3fi
7vFSbqMVvwxannUGgc8++9xwDBo0mE2eMpUFB5fdpHQEdYl9oz0A7qHSp0MY3mi8lwGd/4yOVCfnJ425
pcsEw7krN+DMpWvwsyYIEgUfkj/ZzJLupR1IfnLpXQGa7mEwxx12A2/NDh7s/X6gR8Hu2bcv3RS/DFqe
dQaB9h06GI4ePXvShg1/dIDqsWllCrvDP3/gHJ/q9A9rnJhW3GVwaQs630bd+sqFVIBzV29iEFxPDAJB
Po355gSfRfN8AgXxHQZ/XXOG0oHqHsjPz+9kv/79TfToWNJE1PXLFHt6QMuzziBARZZGY8WqVWzI0KH1
lM6Ihy20DUfHPsbpHk2TDOsBEDT+vrCDSUNo/FVX15QtH8KD4BJOB4l42q//8Plr+FpSw0fdfopLugIk
Wq/g/+ORCRqGkuJP0jm2tjaPp02bnu/Grdts9+49vKyLxBnporcBLc86g0CDBg0NR7NmzVmRIkWGKR2b
BDtoGYbDwBNHy+r2LQWJSDpo4YUD9G1PQaDOBJYpW5a3/Kt37sOF63dg2MjRqtcJiQWcv1pAPn0frVH8
6gg9o3WK/88K+G/Z8hVc8csISm9oedYZBKjO3mhs3rqVnqqxVOEQDWyhVUOc/v2CQfAmiR9zoBZJhza+
dIQ+bahFqqdh3t7eULlKNShSNOmQhsTXsOVf3onDkyXdPpFPaxS/2cI3w/U9TpeuXaPFse20fYvy/G8b
Wp51BoG6desZjoiIprZ+fjkvC4eUDCoFTSI+VjmJyGndCIPg6Rtm/8yBrsNP7nSEfnxvnZocGWjTBm3I
sEjwEXg9nw1sWkBBpl7gqVa92siLly+zm7fuoOI/ygUZndrxtqHlWWcQoAceG4nFS5fS5s3s6IzfhVOa
NmsOr//9D9QLa6ByFvUEUTwI0qkneO4A4/oQSer0cBLsICCvOy/P4nv1LCGfFP8L2sHjAU6OasXvaHKc
F9OnD5/mHT9xklF517uClmedQSAqqrWh6NChI23jCre3T2p5Xbv3hCev/uBpWVqYUTqNgqClGA6MFIZ0
HdIEz23h5Bo3aBHmBr7eTuDo4AouTs5QMtAFpg12h/9ct+CoGAG65n0GL864Qv6P1Dt48hfIv/uLESN4
MSsd1kCpXirpflfQ8qwzCOA0xVCMGTuWlSkTPFDpnGmzvkUVfovn5K/evg/16ut7gsj0EoaUI6DVxV8c
4K/jTnBnhyc83Ytj/Q0cel7i69RTWPJ99B4M0H/uOEGVMvHTPfG8f5PJ6drcufOy3rh5m4+/JMLSK8dv
KbQ86wwCtPnCKIwYOYrNX7iI1ahRc5Ug12QywdoNWxILL6kGTx4EdrxkmweB4VNEBJ3jT1M22kRC1z+P
f/MAsQBigeeZCaLDSfGrZhjPQmvUKEKFHVTVQ9O9jAAtzzqDQPMWLQxDq9atWbPmzZmHh8cF4aDChQN5
Tv7A0ZN8Dk5BQBU5VJxRt16Y0pEI0gQYBEZrgrSAgoT2H/xmDyN6kahUzyz6DxjQmHLvRD4pfkr2ZARo
edYZBKgU2yjQufuz5szxc3Z2Tjx3nzZdUDEGkS/Ag+AsBgFpgnp6TZAuwvBNQQmmP2xhiWSBJ6xBw95X
r11n167f4FU9pL5lguxdQMuzziBQq1Ztw0BJoAoVKjQWYyOhR0wfuHrnQWL6VRkEQhPohSEOByIIjB4O
UgOaFfzK4KDqiLZ4uLq5TRg4eDDbmwEUvwxannUGgXkLFhiGLdu2sSYREX2VjpoyfRY/OVsbACIIqCeg
IKCCTeXnKAgiwzAIjBaGloK+7zGDe4dw9pBZPd0rXrzEuokTv+bPFaRM37tW/DJoedYZBMLDmxiCxo3D
Wdu27VhQUNBa4ShnFxe+JEsCUEu+gEoYhjVUOZqGg1YN0kkYJgf6njgGf1zB6WLCDh7Rq7m7exxfumy5
y/Wbt7jiJ8FFqlubin3X0PKsMwhQsaYRmDBxIhs5ahRz9/A4LQgMSBCA+4/EC0Bz4EGAQXKFegKdMLSD
qPRIG5sDKX7ahPLICRrXIMWvLGRhd8LCwnKR1qFWtmHjpgwLLc86gwCdpW8EevfpwwYN/szf29s7cSs3
CUBaeJGRrgUfDmh2wIWhPgji08bpHASk+BN28PRuo1f8o0aNrkpZPlL9lOIVZ/JlRGh51hkEOnbqZAgo
CRQaGlpX6bBeffrzVi0b/2UQwpCmiLLZQSuaIhqdMRTgOQG87r/sYPIw/RpCi8jI6BvY7dMWLlL8JLQO
UvVTBoWWZ51BYOasWWnGjJkzcdxZz9q3bz9A6TQqtqAj0i0NAEJSEODsQNITRDZIGA6MDgJa4PmNFniI
fPXagZeX1+AhQ4exfdjqT5w8JXV4RoOWZ51BoEHDhmlGw0aN+PHsuXLlTnzcqpubO/y4cSvfjCEjOjmI
4SBeGOozhobXE9A16Ii2bfoj2kJCQhbPmj2bLVy0mCd7SPHLKnAyGrQ86wwCsvX81GLp8uVs5apV9ISO
k8JxBQMC4NDJM4kZwNQiURPgcCBbOzCsnoA+S0e0nXIBf7/46Z5Q/Fm8vXfR0fOU6BGKnxS2MuWaUaHl
WWcQqFuvXppRPyyMHtFSwNPTM1EAUss9f+0W7D5wREqwJVAKQ9nsIM31BPQZ+mycM1QrS10/XjcxiWVz
Hnu1zBQAJPqowON9gpZnnUFAtqafWtDTuDp06hSqJKhnn35wLe5hqsZ/GXgQJCMM3zhtLBZ46Ii2CCJf
tcDz19Rp00pSCTe1fFL8pP7fJ2h51hkEolq3TjO69+jJ6tcPU9UATv5mFt+VIyM1tVAJQyPqCUjx0w6e
3+1hmGSBB4O5IRVzXrh4idfxZ6Qcv6XQ8qwzCGjX81OL/gMG8K3eefLkWSYc6OrqCj9t/vmNBKA5qIRh
WusJaIHnd1tY8jUletQLPDly5Og8cvRo3uopxy9T2O8DtDzrDAKj8D+bFlD2j6aBgYGBZ4UTCxQsBIdO
vLkANAcKgjTXE9ACz0sGB7+nUjH1Ak+NGjWnclG7bDlX/DT2a3Ps7wu0POsMAo3Dw/ljVz5p1oxP5VIL
GgJwKuhvb2efeGx7WMPGfAGItl3JiEwLEoXhm9QTJBzRFhfrxs/zU342h5/fOsrpX7p8hRNPSvp9Ufwy
aHnWGQSodHnd+vVcyH2/Zk2qQDnx4ydPsS/HjFFtAuke0xtu3nucZgFoDvHCMJX1BPTzDoM/r7pAqUBq
/fheUdLl5HQwOrqN6Qf8P72Pil8GLc86g8Dq1T+wuXPns7Fjv2ITJ31tMb4aP4EtXLSE9gBm9vLyUj2x
g5aAtUUgRkMIQxoOUqwnOGIXXw720AThNYj8pAUek8n0dMGiRXkpkCmHToKPxv/3HVqedQYBmufOX7CQ
0Xl9U6ZOswiTvp6M4+QKqoD1yurjc07pfPwbtu+JhaOnL0iJMxKiJ6AgMFtP8BiDgJ7M+cIBekTrFP/f
vWJiKt5ExX/2/AV2kKp6SEWjiHrfoeVZZxBIbQAQ+bTlafqMWZ5Zs2bVPKuHwdSZc+ILQPYdlJJmNFTC
UFJP0LqRO8B/nWD2aCJffUSbv7//J2PHjWP7Y2MZHdgkc+T7Ci3POoNAagIgifyZ7r6+2RJVv8DUGbPh
9sOnnJj0Gv9lSBSGlDGUTBFDQ9zBJ4ua/MaNw0fSI1joGBtSzZQ/1yrp9xlannUGAUsDgHf7RP7MmZmy
Z89+SulMwtQZs+DOo2eckLdBPn3HTvy559AxXnRy8sJVePzyd/jzH4Dmka1U96ZF3rz+S7ag+D1/4RIX
fVRAQcpZW1TxPkPLs84gYEkAKFp+5mzZsiVW/BBoB9DSVT9AHJLPSUkH8sV19xw8ysk+c/k6zwrewJnG
uSs3+XuWr1oDw0aOgW49Y6Bm7TqJ96dFpkyZttAxtXSmPqV5aRfP/yK0POsMAikFgCB/xsyZXj4+Prpu
n57Jv2j5d3DboNavJJuSSUQ2zShoXYH2+O86cAiWYcCNGjsBotq0hYqVq6Lw9FXdkzl4ema6+cOatVlO
nz2H4/5BLvj+V6HlWWcQSC4AFC0/k0zwKTFxynQ+/u9OIFFGrgxKss9Sy8ZxnNYQiHh6fcnK1TBqzHho
Fd0WQipWgmzZc0i/PyVgy785dPjwgtdu3GSnzpxlh6iqB8USnWf0vwgtzzqDgLkAUJDv4evrqyGfBJV6
AYVAT8268/gZzwCaC4Id+w7xFPHZKzewVT/gXTmd4bPrwBFYsmI1jPxyHES36wAhFSqCX46cuu+wBBis
v+bMmXO7b7Zs05s1b97xo49ylRowcJArHcq8E7v9o8dP6FTz/xq0POsMArIAUJDvmT1bdtWYbzI5wtZ5
maBrCyqXVlXMclAZGJ29IwsCUuvUskmxL1n5PYxAstu274RkV6JFGLCzVZ/qYQH+djSZnhcpWnR/5syZ
J4c3adK9cpUqQZUqV/H8fMgQlr9AATZ56lRWtGgx1vXTT0nAst1791oDQAltAGgEn0btO8H6OR7xH33o
BE005+IITJmuDwIi/9rdh3yVEInRfSYlkNi0sbF5FBAQcKRgwYKT8RpdO3fpEpw7dx4neuBESIUKnOTW
raNZiRIl6DxiljtPHjZ02DB+RD0Jv+kzZmAA7LMGgBLKACDyaSWMCz5fX81hzkj+fCSfTvU8ih+lXbaP
nM0GAfUENBwQ+XQ6F53Xt27zNhRiCZU3ycDJyYnwyMvLK7ZK1arTsUtv061bt4qVKld2bNaiBZLbhxUo
WJBREgcDgNEWrdKlS7MoJJ8WtoKCSvEydXrmoDUA4qEzCIgAGPfVeNHyvfSCzwk2EPl/IPni/H5aWbuN
v1MQaPLrAnTy5s17Tzj5P27aRrtqdO+hlo3f99TZ2Xknkv1t8eIlosqHhJTv0aOHW/yDpL5hhQsH8rqD
unXrspq1arF27dqxfPnyM+rmc+XKzQZZA0AHLc86gwA9gp2eUUdVryT4cKqXuLU7Hk6wkbd8JFz78AYK
AsqzP3SGcDM9wbxFS/kw4OWVWWXPlMnrad169TqgWCuGJHmVKRPMevbqxdq2bctKlgxiAwYOpCJTOm6O
P1GMXgutUYPVrl3HGgAWQMuzziAg9rVNnjLVA8d8Xbe/YR6S/xu2fNo0oSRfgJZZqScwEwRZvL0hew4/
lQ2799f9BwwsTmM3KnQ2+LPP6FQR1rJVFIuIiGAlg4JYTEyMNQDSAC3POoMAPaIMW3+mLFmyqARfFk8T
HF7nGt/tp/TkDjEcUBBUl/cEAiZHx5eDBn8WNHf+Atate3eWw8+PHyhdCglsFWUNAKOg5VlnEMCpU+eA
woX3a4mKbOQFcN0dx3hHgBdIMIk+etYtVdOaCwJ6zwMn6BCuPrNXAFv+84GDBpech5qDjpShI2X9rAGQ
LtDyrDMI2Ds4LLe1tdU8m5dggwLNCWpVcoM5I9zg0S7sDR4qgwGhDYZDGCD/MDiym4ot1durTEg+tvzi
c+ctYPRUcHqCiDUA0g9annUGAXR44eCyZVV7+vSwA0eTE9SujMHwhTvc34HBcM/Ej2DjIpB6BtICLxlc
wde8PNTFliaTibr9YtTt0+PQx4wdZw2AdIaWZ51BgIo6GzVuzFq1isqDU6w+2XPkiLWzS+50TQwGx4Rg
GOEOD3ZiMDzAYABbuLydnoerLrZ0NDm+wm6/2Nx58zn51PqtAZD+0PKsMwhQZW/ValVZTO8+7IuRo1iH
jh1ZZGTL/HXq1u2Hzj2IJGqe8aMEBYMzRNR2hTkj3aGQv7rlO6LgGzBwUBBNMwX51gB4O9DyrDMIUDl4
aGgo69S5M3da06Yfs65dP2XjvvqK9e8/gM788a8eGtovX758sUhqMsEglH/8T+z2SfAFfato+dYAeHvQ
8qwzCKgCAHuBjz9pxp/0RaR06dKVRbZsxUkg4lq0aOEfElKhX968/gdNjiazwUBqH8f8Espu3xoAbxda
nnUGAfMBMJh1xgBo+vHH3HmffT6EdezYiT/yddjwLyg48pQrH9IXCTzo4pI07iP5LwYrBJ+WfGsAvB1o
edYZBCwJAFplo+cAtY5uw9/ft19/9jkGBDm1e/ce7NNu3fOXL1/+C19f38Vjx31ViB4Na458gjUA0h9a
nnUGKz4sSI1WfDiQGq34cCA1WvHhQGq04sOB1GjFhwOp0YoPB1KjFR8OpEYrPhxIjVZ8OJAarfhwIDVa
8eFAarTiQwGw/wecmOgI8ExA+AAAAABJRU5ErkJggg==
</value>
</data>
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -1898,9 +2059,6 @@
<metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value>
</metadata>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value>
</metadata>
<metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>596, 17</value>
</metadata>

22
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -3131,7 +3131,7 @@ Public Class frmSendungsdetailsNEU
End Sub
Sub initAnhang()
Dim hSQL As String = " SELECT [anh_id],[anh_Name],anh_Datum,[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck,anh_GestellungslisteAnfuegen FROM [tblAvisoAnhaenge]
Dim hSQL As String = " SELECT [anh_id],[anh_Name],anh_Datum,[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck,anh_GestellungslisteAnfuegen, anh_markiert FROM [tblAvisoAnhaenge]
WHERE anh_AvisoId=" & AvisoId & " AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & ")
ORDER BY anh_SendungsId desc,
case
@@ -3176,6 +3176,7 @@ Public Class frmSendungsdetailsNEU
.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
.Columns("anh_id").Visible = False 'VermerkID nicht anzeigen
.Columns("anh_docId").Visible = False 'AvisoID nicht anzeigen
.Columns("anh_markiert").Visible = False
.Columns("anh_Name").MinimumWidth = 150
.Columns("anh_Name").HeaderText = "Name"
@@ -3200,7 +3201,15 @@ Public Class frmSendungsdetailsNEU
.Columns("anh_GestellungslisteAnfuegen").Width = 150
.Columns("anh_GestellungslisteAnfuegen").HeaderText = "GestListe anfügen"
For Each row As DataGridViewRow In dgvAnhang.Rows
If Not IsDBNull(row.Cells("anh_markiert").Value) Then
If row.Cells("anh_markiert").Value Then row.DefaultCellStyle.BackColor = Color.LightYellow
End If
Next
.ClearSelection()
End With
End Sub
@@ -5863,4 +5872,15 @@ Public Class frmSendungsdetailsNEU
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
End Try
End Sub
Private Sub HervorhebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HervorhebenToolStripMenuItem.Click
If dgvAnhang.SelectedRows.Count >= 1 Then
For Each r As DataGridViewRow In dgvAnhang.SelectedRows
Dim ANH = New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(r.Cells("anh_Id").Value)
ANH.anh_markiert = Not ANH.anh_markiert
ANH.SAVE()
Next
initAnhang()
End If
End Sub
End Class

2
Aviso/packages.config
View File

@@ -14,7 +14,7 @@
<package id="GroupDocs.Viewer" version="19.8.0" targetFramework="net461" />
<package id="itext7" version="7.1.11" targetFramework="net47" />
<package id="Microsoft.CSharp" version="4.0.1" targetFramework="net47" />
<package id="Newtonsoft.Json" version="10.0.3" targetFramework="net47" />
<package id="Newtonsoft.Json" version="13.0.3" targetFramework="net47" />
<package id="Portable.BouncyCastle" version="1.8.5" targetFramework="net47" />
<package id="Spire.PDFViewer" version="4.9.5" targetFramework="net47" />
<package id="System.Buffers" version="4.4.0" targetFramework="net461" />