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

Offert, Fakt, Antrag, Karten, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-05-26 11:31:33 +02:00
parent 6e9d0ccfbb
commit ee5f4c578c
8 changed files with 339 additions and 251 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -1181,7 +1181,9 @@ Public Class usrCntlFaktAbrechnung
Sub initDGVOfferteDetailsUebersicht(kdNr, OffertenNr)
Dim addFieldsBoolean As Boolean = True
Dim addFieldsBoolean As Boolean = False
If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 Then addFieldsBoolean = True
Dim addFields As String = ""
@@ -1290,13 +1292,6 @@ Public Class usrCntlFaktAbrechnung
' .Columns("Geändert am").Visible = False
'.Columns("Sachbearbeiter").Visible = False
If addFieldsBoolean Then
End If
.Columns("IndexZkteing").Visible = False
.Columns("AufschubkontoNr").Visible = False

4
SDL/My Project/AssemblyInfo.vb
View File

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

99
SDL/USTV/frmMDM_USTVAntrag.Designer.vb generated
View File

@@ -24,8 +24,8 @@ Partial Class frmMDM_USTVAntrag
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag))
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 DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.pnlBottom = New System.Windows.Forms.Panel()
Me.pb_Beleg = New System.Windows.Forms.PictureBox()
Me.Button5 = New System.Windows.Forms.Button()
@@ -125,15 +125,19 @@ Partial Class frmMDM_USTVAntrag
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.cns_neAntraege = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.cns_LRE = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.cnS_KIUPLOAD = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.cns_vorauszahlen = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
Me.VorauszahlungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
Me.ncs_Belege = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.pnlBottom.SuspendLayout()
CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -157,6 +161,7 @@ Partial Class frmMDM_USTVAntrag
Me.pnlErstattungsdetails.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.cns_vorauszahlen.SuspendLayout()
Me.ncs_Belege.SuspendLayout()
Me.SuspendLayout()
'
'pnlBottom
@@ -1460,8 +1465,8 @@ Partial Class frmMDM_USTVAntrag
Me.dgvUSTVPositionen.AKTUALISIERUNGS_INTERVALL = 500
Me.dgvUSTVPositionen.AllowUserToAddRows = False
Me.dgvUSTVPositionen.AllowUserToDeleteRows = False
DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUSTVPositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUSTVPositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvUSTVPositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1614,8 +1619,8 @@ Partial Class frmMDM_USTVAntrag
Me.dgvErstattungspositionen.AKTUALISIERUNGS_INTERVALL = 500
Me.dgvErstattungspositionen.AllowUserToAddRows = False
Me.dgvErstattungspositionen.AllowUserToDeleteRows = False
DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvErstattungspositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvErstattungspositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.dgvErstattungspositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1682,15 +1687,15 @@ Partial Class frmMDM_USTVAntrag
Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button3.UseVisualStyleBackColor = True
'
'ContextMenuStrip1
'cns_neAntraege
'
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
Me.cns_neAntraege.Name = "ContextMenuStrip1"
Me.cns_neAntraege.Size = New System.Drawing.Size(61, 4)
'
'ContextMenuStrip2
'cns_LRE
'
Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
Me.cns_LRE.Name = "ContextMenuStrip1"
Me.cns_LRE.Size = New System.Drawing.Size(61, 4)
'
'cnS_KIUPLOAD
'
@@ -1701,7 +1706,26 @@ Partial Class frmMDM_USTVAntrag
'
Me.cns_vorauszahlen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VorauszahlungToolStripMenuItem})
Me.cns_vorauszahlen.Name = "cns_vorauszahlen"
Me.cns_vorauszahlen.Size = New System.Drawing.Size(181, 48)
Me.cns_vorauszahlen.Size = New System.Drawing.Size(152, 26)
'
'VorauszahlungToolStripMenuItem
'
Me.VorauszahlungToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AktivierenToolStripMenuItem, Me.DeaktivierenToolStripMenuItem})
Me.VorauszahlungToolStripMenuItem.Name = "VorauszahlungToolStripMenuItem"
Me.VorauszahlungToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
Me.VorauszahlungToolStripMenuItem.Text = "Vorauszahlung"
'
'AktivierenToolStripMenuItem
'
Me.AktivierenToolStripMenuItem.Name = "AktivierenToolStripMenuItem"
Me.AktivierenToolStripMenuItem.Size = New System.Drawing.Size(138, 22)
Me.AktivierenToolStripMenuItem.Text = "aktivieren"
'
'DeaktivierenToolStripMenuItem
'
Me.DeaktivierenToolStripMenuItem.Name = "DeaktivierenToolStripMenuItem"
Me.DeaktivierenToolStripMenuItem.Size = New System.Drawing.Size(138, 22)
Me.DeaktivierenToolStripMenuItem.Text = "deaktivieren"
'
'UstCntlUSTV_AntragPosition1
'
@@ -1719,24 +1743,30 @@ Partial Class frmMDM_USTVAntrag
Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
'
'VorauszahlungToolStripMenuItem
'ncs_Belege
'
Me.VorauszahlungToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AktivierenToolStripMenuItem, Me.DeaktivierenToolStripMenuItem})
Me.VorauszahlungToolStripMenuItem.Name = "VorauszahlungToolStripMenuItem"
Me.VorauszahlungToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.VorauszahlungToolStripMenuItem.Text = "Vorauszahlung"
Me.ncs_Belege.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1})
Me.ncs_Belege.Name = "cns_vorauszahlen"
Me.ncs_Belege.Size = New System.Drawing.Size(152, 26)
'
'AktivierenToolStripMenuItem
'ToolStripMenuItem1
'
Me.AktivierenToolStripMenuItem.Name = "AktivierenToolStripMenuItem"
Me.AktivierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.AktivierenToolStripMenuItem.Text = "aktivieren"
Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2, Me.ToolStripMenuItem3})
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(151, 22)
Me.ToolStripMenuItem1.Text = "Vorauszahlung"
'
'DeaktivierenToolStripMenuItem
'ToolStripMenuItem2
'
Me.DeaktivierenToolStripMenuItem.Name = "DeaktivierenToolStripMenuItem"
Me.DeaktivierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.DeaktivierenToolStripMenuItem.Text = "deaktivieren"
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(138, 22)
Me.ToolStripMenuItem2.Text = "aktivieren"
'
'ToolStripMenuItem3
'
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(138, 22)
Me.ToolStripMenuItem3.Text = "deaktivieren"
'
'frmMDM_USTVAntrag
'
@@ -1781,6 +1811,7 @@ Partial Class frmMDM_USTVAntrag
Me.pnlErstattungsdetails.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.cns_vorauszahlen.ResumeLayout(False)
Me.ncs_Belege.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
@@ -1831,12 +1862,12 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents Panel8 As Panel
Friend WithEvents lblKdNr As Label
Friend WithEvents Panel9 As Panel
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents cns_neAntraege As ContextMenuStrip
Friend WithEvents btnMail As Button
Friend WithEvents cboAntragArt As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label1 As Label
Friend WithEvents txt3470 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
Friend WithEvents cns_LRE As ContextMenuStrip
Friend WithEvents KdSearchBox1 As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents cbxLand As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxWahrung As VERAG_PROG_ALLGEMEIN.MyComboBox
@@ -1893,4 +1924,8 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents VorauszahlungToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AktivierenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DeaktivierenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ncs_Belege As ContextMenuStrip
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem
End Class

335
SDL/USTV/frmMDM_USTVAntrag.resx
View File

@@ -120,71 +120,71 @@
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="pb_Beleg.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAOpklEQVRoQ9VaCVhUR7otsJul
G5PnJDoGoQEVjcZlcFwwsrqhgeiLmozGJb5581yeExzNi6MmGgNRURZBgrKqGBWjPtwiGTVjRDFklFUI
KM2+ddPdQNPdLN3c5sxXRdMDDUZUJvPe+b7z3arqqrr/uf/96977VxPyDBAKhS9PmTLFc9KkSbMmTpz4
5guQjafzuLi4eA4dOtTO9Fz9BQDGZ4K7p6cfAOgAtHAcY6te34ttfVDb0QFtt2NreztadDq0cRxqZTJs
37493vR8/UF3IWaEEB4hxPoJtCKEWNKO02fO/G+VXo8yqRTi6mrG4poaI0tMWNrF2lqUmbCkuhpF5eXI
LypCaXU1dDodYmNi7hns6TeMQmz5/MnZY8aU5Y8eXfU3JydxupOjOM3BUZzq4CD+q0gkvm5vJ06xsxP/
77Bhj685Ockz3NyQ5uqK76dPx41pU3Ft6m9xacoUnHdxQdLkyTg5aTLiJ05E9IQ3EPnGGwgbNw4HX38d
+8aORcCYMdjt7Iydo0Zh28iR2OrkBP/XXsNWBxG+PnECKp0OcXFxt0yN/TkYhThZWPhi2jTAx6eTc+YC
s2cDXl6ApwfgPRv4zW+AX/0KjUIh8ghBvqUl8oYOwz0zc/yVEHxLCC4TgitmZviGz8cZMzMcJQSRhOAg
IThECL4kBCGEIIgQfEEIPjfwI0LwHiGIi4xEyq1baG1tRURExA1Tg58EoxBHHm8ZJk0C/PzQvvjfofX1
RevChdD4+KBp3jzUz5iB+qVLoU5IgDY9HZpLl1Di6op8W1vU7NqFxsuXofnhHioDA5D66+H4hhA8WPgW
igICULR3LyoSEpC2aBG+IgRJgwfjlFCIRCsrHLOwQCKPx0R+QAjiIyNx5eZNZGRk0DBEYGDgt6ZG94V/
COHzl+qpkPnzoV24EK3z5qF57lyoZ8+B0tsLdY6OUO7YwSbnGho6j0olxG+9hbbSUlbXyeXs2N7QgGsW
Fni4eTOrd6EgLBRRhCBRaIMEgQBxVlaItrBADI+HAwYhJ44exc20NKSnp6O9vZ2N++KLL57qme4eWaKd
OBGYNw+tPj5MhGbOHDR5e6PByxMSBwcod+9mE5c4OuKx3QhWloSGokOlgjQxkXnh4fLlrF0cHIyfPvqI
lc+98goTcFIgwJkhQ5BoI2RCYi2tcLSbkDWE4KvYWKTev4979+6xsSqVih337NmTYmp8dxiFOPB4S5on
vAHMmQ3N/HlQz5nNRDR6eUHh4YEakQgNn3zCJq1dtw5Sg3eqduyEXqWCPDmZxUkKIdAUFECZl4dCg/CK
pCRUnjuHG3PmII5edaEQCdbWiLW0xFE+HzGDeCxmqJBTcXFIy8zE3bt32ViKpqYmdgwMDLxuKqALPYQ0
jR8PztsbTXPnQmkQUe/hAZmbO6rs7FC/7WPj5BT1p88gx8mJleUXLzIh1wiB6mEeE5K/fXuP/ukbN7Jg
7xISYxQyiAlZbRCSnpuLH3/8scfYLuzbt6/PmDEKEfF4S+rHjUObhwcavb1R7+nJPCFzc4Nk1iyU29pC
YfCCIjISYk9PZPB4yB41irXVxMfha0KQ7urK6uJDYXi4ZQsrX7K1RQI1UiDAVy+/jOMCAeKtqBALHOHz
ET1oEPYbhJyJj0dmQQGLkerqapSUlKCsrAxSqRSNjY1svvj4+F5ijELsebwl0tdfR7ObG+SenkyAdNYs
SN58EzUzZ6Jk+HDIPtnJJipdsAAZhCDL3h45Li7oaG9Hm0QC2cWLhusGXLaxQb5B+CV7eybkK6EQJ18a
jGPdAj2Kx+spJCEBj6uqcPv2bRw4cADr16/Hxo0bsWXLFnz66acIDw9HQUFBL88YhdjxeEuqnJ2hcnND
nacXJO7uqHVzQ82sWaia+SZKRo9G7dq1aMvMROnixXjoIEKOszOyx4+H4tw5cAoFoNOh7tx53B47FkmE
IGf9Oihu3cJVkQhJfD7OvvQSTtvYsKA/bmWJeEOgJ5ibI5gQrKJL87Fj7O3g/v37OH36NA4ePIigoCAE
BARg586dTBBlUlIS3n///cReQkQ83rKGsWPBzZgBletMKKdPR+O0aWiYOhXyqb+FbMYM1IwZg1KhEOJR
o5A7ehSyHB1x384Ot83N8Z0h0C8QguRBg/DNkCE4Y2GBWOoJS0sk8vmIG2SOo2aErWARhCCMECaAPiB3
EYLlBiEVMhny8vKYV65evYrk5GRcuHAB58+fx7lz55iI2NhYnD17FhMmTFjeQ4gtj/d2ppMTHjo5It1B
hB9EItwTiXDX3h6p9vb43s4O39na4i+vDcfVXw/HhVdfxdlXXsGpIUNwbPBgxAgEiBIIECEUIkQgRJBA
gEBLS+zm8bCTz8c2Hg9/IgSbbYTwHzYU6/l8/J4QrDV44neE4H36VpCUBGlTE0pLS5Gbm4sHDx6weKGk
CwAlXZqpSBo//v7+p3sIMSPETmBm9p7AzGyTgRu7aP0PbiCEfDBh9OikU/HxOHLoEL4MDTUysjtDQnE4
JASHQ0NxODQEEcHBiIyKQvi+fdi/9D2EffYZIqK+RHhICMIOHsSh4GCcSUxEfl4e5HI5C+6KigpmrFgs
ZiwuLmak5UePHoHjOOzatetSDyGEkEGEEHPDGy590zUlbbegHafNnPlHJX0wymQoqq1lFHdjcRclEpQY
WCqVolKvx/1tO5Gx+3MUpHyLCpUKZRIJY7lUCkljIxNRr1BAoVBAJpMxQRKJpAdra2tRU1PDFpLAwMDL
pkL6DQ8Pjz/QSbRaLZqbm/tF+s2ilsshXvtfaJYr0KJSQaNS9eij0WjYk1ypVLKllrKhoaEX6+vrGSmC
goKeX4i7u/t6OklLSws7cX+o0etR/7gIj9b8J5okUqiUSqibm3v1o0/x/pIiODj4+YW4ubltoJPQq2g6
+ZOo0mrRWF2NR/+xDoqsbMizc6DmuF79jP37uBimpAgJCXl+Ie7u7kwI/WZQq9X9oqalBc0dHSja8CEq
I4+g7sZNtAK9+j0L/yVC1BoNtACK//Q/yHOfi7q/3EDb/xUhbW1tLED7S/p1UROXgHRCIL99hwkz7fMs
pAgNDX1+IR4eHkwITRTQgO8vqeFNeT8hx34UVOJiVjft8yykCAsL+9cIUZeVI/PfhqPxh3TmoRa6NPfR
tz8cMCH0U5TGSb9oOLE0JgF3CUH5ts4349a2tt59+8kBE0JfEWic9Ischw4AhbO8UbljNwrfWgRVZhb0
NNZaW3v37wcpDh069MsKoQYrU+8g+zURM6Dq80AUuHmzsvYZ5unOAROip6lPrfapbNPS6ACKl/4O4sXL
WJl656HDaNTuDeoUo9P1Gvc0UoSHhz+/EE9PTyako6ODBfzTSI1uKSlFzlBbqLOyWZ2i+WEeMs0FaLh0
hdXb9XrotNpe459EioiIiF9IiCE3Vbz0PRQtZLlv6Lh25gEKZcp1ZBJL1MWfYHUqkkrn6K1rwnaO6yF0
wIRQ0JXr50jR8lMBcl61RUtBYecYnY4ZRY2jaCuvQJGXD8r/sBHahs4EAxOkVqNNJoNWqQSnp1HWCVoe
cCE04J/Ijs6bqGiBL0pXfcDKXbcVG6vTobngEVqKSyCPPYYHhCDPfiSKPOejyHsBaj/fy1ixbhPKVnzA
jrLoOHCGxYPi8OHD/3whFE03biJ3hAP0hleKlsLHUH57HfLjJyENjUAdfYEM/5LVNQ/zoM7IQuUftyDf
fjQez/SC9EAoNFnZ0NbJmOi6iCio7qR1nX7ghNCVqy92XfmCiVNQs+szVlal3kXT9ZtoSrmO5qwc6Aw5
5L6g1+pQf/I0qv0/QvXWP0MWEYXG5EvQZGShXaU2zv9CQry8vIxCaMB3Z3fU7T+IwvGTWVknk0Pf3Nzj
dwo6wnQO03k4+hnwtwdQf58KyZ690KSlG3+LjIwceCFdJ+1o59BeV4e8YSOg6XYbPMnon6VxdCd00jro
JFJjfcCFULRkZEF5sfOZUOw9D9WbOrcVTAV0H9e97UntpvWuNoqIiIhkatMLC+lCU/Jl1Hy4lZXlwWF4
PN7FtAsDjR+ao+pKHnQhNTWVsTto8oEm5bqe4n3h2LFjbO9kQISorlxDqc/brKy5cw8Fw52gq+5M15iC
5qnoeePj43u0L1u2DO+++26PNpptHDFihDF53RdOnDjxHbXphYW0yxUonecHPX14FRSiYKiIiXkSaOqT
nnfPnj2sTq92SkoKvL298Ylh/2Xfvn0sEUfzWu7u7jhy5IjRWzRVRPPANEFHcfz48YHxSOPZ86j5cAvU
39+BeOosaG71vD1MsXXrVvj5+WHdunWsvnnzZjg7O0MkEtHbBFFRUXBwdMCiRYuQk5ODGTNmYP78+bC3
t0dVVRVLaC9cuJB5kCIxMfEbatMLC6FozcmFLCQculpJ9+Y+sXjxYpZlX7NmDcvrTpkyhX3tUQ8tWLAA
vn6+rN+GDRuYsUuWLGH1TZs2Yfr06fDz9WOZ+pEjR7LUaXp6+m2aIR0QIf0FTXeOGTMGa9euxbhx49he
h69vp+EhISFwcXExxsmOHTuYJ1atXsXqVCj1ChUWHR2N/fv3s/ZTp05doTb9okLoVsAkunMM4J133mFX
md5CNEboccXyFaw9LS0NK1asYDEzduxYZGVlMU/6+/uz26qystI454s+RzZ2s6/fiImJoV90rEyDngqj
WwTUSLorRcvZ2dkswOlVpymfbX/ehtWrV+Pjjzv3L+leiY+PD1sAKKKjo5/fI66urr+nr9E0I15RUcH1
h+Xl5VxlZSVXX1/PlZaWcgqFgqupqeHUajVXXFzM2uvq6rjW1lYuPz+f/a5QKPQajYYTi8WcTCbjGhsb
Oa1WyxUWFnK5ubnsrTQgIOBratPzCKFbD45mZmZvm5mZrTJw5dNICFlpaWnJSMt8Pp+Vzc3NVwqFwpVW
Vlasjf42ePDglRYWFmwc7UN/t7a2Zr/R/jY2Nqusra1XE0LeJYS40G2P5xFC91Hov4joUUD/vvVP5s+d
g2+whW8U0lX4/86/A3PgFZRgzK1HAAAAAElFTkSuQmCC
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAA6mSURBVGhD1VoJWFRHui2wm6Ubk+ckOgahARWNxmVw
XDCyuqGB6IuajMYlvnnzXJ4THM2LoyYaA1FRFkGCsqoYFaM+3CIZNWNEMWSUVQgozb51091A090s3dzm
zFdF0wMNRlQm8975vvPdquqquv+5//3r3vtXE/IMEAqFL0+ZMsVz0qRJsyZOnPjmC5CNp/O4uLh4Dh06
1M70XP0FAMZngrunpx8A6AC0cBxjq17fi219UNvRAW23Y2t7O1p0OrRxHGplMmzfvj3e9Hz9QXchZoQQ
HiHE+gm0IoRY0o7TZ878b5VejzKpFOLqasbimhojS0xY2sXaWpSZsKS6GkXl5cgvKkJpdTV0Oh1iY2Lu
GezpN4xCbPn8ydljxpTljx5d9TcnJ3G6k6M4zcFRnOrgIP6rSCS+bm8nTrGzE//vsGGPrzk5yTPc3JDm
6orvp0/HjWlTcW3qb3FpyhScd3FB0uTJODlpMuInTkT0hDcQ+cYbCBs3Dgdffx37xo5FwJgx2O3sjJ2j
RmHbyJHY6uQE/9dew1YHEb4+cQIqnQ5xcXG3TI39ORiFOFlY+GLaNMDHp5Nz5gKzZwNeXoCnB+A9G/jN
b4Bf/QqNQiHyCEG+pSXyhg7DPTNz/JUQfEsILhOCK2Zm+IbPxxkzMxwlBJGE4CAhOEQIviQEIYQgiBB8
QQg+N/AjQvAeIYiLjETKrVtobW1FRETEDVODnwSjEEcebxkmTQL8/NC++N+h9fVF68KF0Pj4oGnePNTP
mIH6pUuhTkiANj0dmkuXUOLqinxbW9Ts2oXGy5eh+eEeKgMDkPrr4fiGEDxY+BaKAgJQtHcvKhISkLZo
Eb4iBEmDB+OUUIhEKyscs7BAIo/HRH5ACOIjI3Hl5k1kZGTQMERgYOC3pkb3hX8I4fOX6qmQ+fOhXbgQ
rfPmoXnuXKhnz4HS2wt1jo5Q7tjBJucaGjqPSiXEb72FttJSVtfJ5ezY3tCAaxYWeLh5M6t3oSAsFFGE
IFFogwSBAHFWVoi2sEAMj4cDBiEnjh7FzbQ0pKeno729nY374osvnuqZ7h5Zop04EZg3D60+PkyEZs4c
NHl7o8HLExIHByh372YTlzg64rHdCFaWhIaiQ6WCNDGReeHh8uWsXRwcjJ8++oiVz73yChNwUiDAmSFD
kGgjZEJiLa1wtJuQNYTgq9hYpN6/j3v37rGxKpWKHffs2ZNianx3GIU48HhLmie8AcyZDc38eVDPmc1E
NHp5QeHhgRqRCA2ffMImrV23DlKDd6p27IRepYI8OZnFSQoh0BQUQJmXh0KD8IqkJFSeO4cbc+Ygjl51
oRAJ1taItbTEUT4fMYN4LGaokFNxcUjLzMTdu3fZWIqmpiZ2DAwMvG4qoAs9hDSNHw/O2xtNc+dCaRBR
7+EBmZs7quzsUL/tY+PkFPWnzyDHyYmV5RcvMiHXCIHqYR4Tkr99e4/+6Rs3smDvEhJjFDKICVltEJKe
m4sff/yxx9gu7Nu3r8+YMQoR8XhL6seNQ5uHBxq9vVHv6ck8IXNzg2TWLJTb2kJh8IIiMhJiT09k8HjI
HjWKtdXEx+FrQpDu6srq4kNheLhlCytfsrVFAjVSIMBXL7+M4wIB4q2oEAsc4fMRPWgQ9huEnImPR2ZB
AYuR6upqlJSUoKysDFKpFI2NjWy++Pj4XmKMQux5vCXS119Hs5sb5J6eTIB01ixI3nwTNTNnomT4cMg+
2ckmKl2wABmEIMveHjkuLuhob0ebRALZxYuG6wZctrFBvkH4JXt7JuQroRAnXxqMY90CPYrH6ykkIQGP
q6pw+/ZtHDhwAOvXr8fGjRuxZcsWfPrppwgPD0dBQUEvzxiF2PF4S6qcnaFyc0Odpxck7u6odXNDzaxZ
qJr5JkpGj0bt2rVoy8xE6eLFeOggQo6zM7LHj4fi3DlwCgWg06Hu3HncHjsWSYQgZ/06KG7dwlWRCEl8
Ps6+9BJO29iwoD9uZYl4Q6AnmJsjmBCsokvzsWPs7eD+/fs4ffo0Dh48iKCgIAQEBGDnzp1MEGVSUhLe
f//9xF5CRDzesoaxY8HNmAGV60wop09H47RpaJg6FfKpv4VsxgzUjBmDUqEQ4lGjkDt6FLIcHXHfzg63
zc3xnSHQLxCC5EGD8M2QIThjYYFY6glLSyTy+YgbZI6jZoStYBGEIIwQJoA+IHcRguUGIRUyGfLy8phX
rl69iuTkZFy4cAHnz5/HuXPnmIjY2FicPXsWEyZMWN5DiC2P93amkxMeOjki3UGEH0Qi3BOJcNfeHqn2
9vjezg7f2driL68Nx9VfD8eFV1/F2VdewakhQ3Bs8GDECASIEggQIRQiRCBEkECAQEtL7ObxsJPPxzYe
D38iBJtthPAfNhTr+Xz8nhCsNXjid4TgffpWkJQEaVMTSktLkZubiwcPHrB4oaQLACVdmqlIGj/+/v6n
ewgxI8ROYGb2nsDMbJOBG7to/Q9uIIR8MGH06KRT8fE4cugQvgwNNTKyO0NCcTgkBIdDQ3E4NAQRwcGI
jIpC+L592L/0PYR99hkior5EeEgIwg4exKHgYJxJTER+Xh7kcjkL7oqKCmasWCxmLC4uZqTlR48egeM4
7Nq161IPIYSQQYQQc8MbLn3TNSVtt6Adp82c+UclfTDKZCiqrWUUd2NxFyUSlBhYKpWiUq/H/W07kbH7
cxSkfIsKlQplEgljuVQKSWMjE1GvUEChUEAmkzFBEomkB2tra1FTU8MWksDAwMumQvoNDw+PP9BJtFot
mpub+0X6zaKWyyFe+19olivQolJBo1L16KPRaNiTXKlUsqWWsqGhoRfr6+sZKYKCgp5fiLu7+3o6SUtL
Cztxf6jR61H/uAiP1vwnmiRSqJRKqJube/WjT/H+kiI4OPj5hbi5uW2gk9CraDr5k6jSatFYXY1H/7EO
iqxsyLNzoOa4Xv2M/fu4GKakCAkJeX4h7u7uTAj9ZlCr1f2ipqUFzR0dKNrwISojj6Duxk20Ar36PQv/
JULUGg20AIr/9D/Ic5+Lur/cQNv/FSFtbW0sQPtL+nVRE5eAdEIgv32HCTPt8yykCA0NfX4hHh4eTAhN
FNCA7y+p4U15PyHHfhRU4mJWN+3zLKQICwv71whRl5Uj89+Go/GHdOahFro099G3PxwwIfRTlMZJv2g4
sTQmAXcJQfm2zjfj1ra23n37yQETQl8RaJz0ixyHDgCFs7xRuWM3Ct9aBFVmFvQ01lpbe/fvBykOHTr0
ywqhBitT7yD7NREzoOrzQBS4ebOy9hnm6c4BE6KnqU+t9qls09LoAIqX/g7ixctYmXrnocNo1O4N6hSj
0/Ua9zRShIeHP78QT09PJqSjo4MF/NNIjW4pKUXOUFuos7JZnaL5YR4yzQVouHSF1dv1eui02l7jn0SK
iIiIX0iIITdVvPQ9FC1kuW/ouHbmAQplynVkEkvUxZ9gdSqSSuforWvCdo7rIXTAhFDQlevnSNHyUwFy
XrVFS0Fh5xidjhlFjaNoK69AkZcPyv+wEdqGzgQDE6RWo00mg1apBKenUdYJWh5wITTgn8iOzpuoaIEv
Sld9wMpdtxUbq9OhueARWopLII89hgeEIM9+JIo856PIewFqP9/LWLFuE8pWfMCOsug4cIbFg+Lw4cP/
fCEUTTduIneEA/SGV4qWwsdQfnsd8uMnIQ2NQB19gQz/ktU1D/OgzshC5R+3IN9+NB7P9IL0QCg0WdnQ
1smY6LqIKKjupHWdfuCE0JWrL3Zd+YKJU1Cz6zNWVqXeRdP1m2hKuY7mrBzoDDnkvqDX6lB/8jSq/T9C
9dY/QxYRhcbkS9BkZKFdpTbO/0JCvLy8jEJowHdnd9TtP4jC8ZNZWSeTQ9/c3ON3CjrCdA7TeTj6GfC3
B1B/nwrJnr3QpKUbf4uMjBx4IV0n7Wjn0F5Xh7xhI6Dpdhs8yeifpXF0J3TSOugkUmN9wIVQtGRkQXmx
85lQ7D0P1Zs6txVMBXQf173tSe2m9a42ioiIiGRq0wsL6UJT8mXUfLiVleXBYXg83sW0CwONH5qj6koe
dCE1NZWxO2jygSblup7ifeHYsWNs72RAhKiuXEOpz9usrLlzDwXDnaCr7kzXmILmqeh54+Pje7QvW7YM
7777bo82mm0cMWKEMXndF06cOPEdtemFhbTLFSid5wc9fXgVFKJgqIiJeRJo6pOed8+ePaxOr3ZKSgq8
vb3xiWH/Zd++fSwRR/Na7u7uOHLkiNFbNFVE88A0QUdx/PjxgfFI49nzqPlwC9Tf34F46ixobvW8PUyx
detW+Pn5Yd26day+efNmODs7QyQS0dsEUVFRcHB0wKJFi5CTk4MZM2Zg/vz5sLe3R1VVFUtoL1y4kHmQ
IjEx8Rtq0wsLoWjNyYUsJBy6Wkn35j6xePFilmVfs2YNy+tOmTKFfe1RDy1YsAC+fr6s34YNG5ixS5Ys
YfVNmzZh+vTp8PP1Y5n6kSNHstRpenr6bZohHRAh/QVNd44ZMwZr167FuHHj2F6Hr2+n4SEhIXBxcTHG
yY4dO5gnVq1exepUKPUKFRYdHY39+/ez9lOnTl2hNv2iQuhWwCS6cwzgnXfeYVeZ3kI0RuhxxfIVrD0t
LQ0rVqxgMTN27FhkZWUxT/r7+7PbqrKy0jjniz5HNnazr9+IiYmhX3SsTIOeCqNbBNRIuitFy9nZ2SzA
6VWnKZ9tf96G1atX4+OPO/cv6V6Jj48PWwAooqOjn98jrq6uv6ev0TQjXlFRwfWH5eXlXGVlJVdfX8+V
lpZyCoWCq6mp4dRqNVdcXMza6+rquNbWVi4/P5/9rlAo9BqNhhOLxZxMJuMaGxs5rVbLFRYWcrm5ueyt
NCAg4Gtq0/MIoVsPjmZmZm+bmZmtMnDl00gIWWlpaclIy3w+n5XNzc1XCoXClVZWVqyN/jZ48OCVFhYW
bBztQ3+3trZmv9H+NjY2q6ytrVcTQt4lhLjQbY/nEUL3Uei/iOhRQP++9U/mz52Db7CFbxTSVfj/zr8D
c+AVlGDMrUcAAAAASUVORK5CYII=
</value>
</data>
<data name="picExcel.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -234,7 +234,7 @@
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEgAACxIB0t1+/AAAB4JJREFUSEu9lntM1FcW
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEAAACxABrSO9dQAAB4JJREFUSEu9lntM1FcW
x0+yNWpdBURGEJ0ZXtVqZX0hFJAB5gVILVbQTRCQ1wwDw7wYGMSCgiI+IoivtbpBwOLqqnUXq30YlVrX
bXAFu6Ua2ShG0jVoq1ZFwQffzb3zhG22/+0vOZnf3Nz8Pjn3nPs9X1qx10yqpnWU27iOEuo0pG6qpMKP
qyljXxkpt6hozdF6qvxkN2XuW0OymiwqO1I33tBUPTNhsypTUpVuydhTOi5jTynNL08mQUEkiQwyEhql
@@ -272,79 +272,79 @@
</data>
<data name="picPDF.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAOpklEQVRoQ9VaCVhUR7otsJul
G5PnJDoGoQEVjcZlcFwwsrqhgeiLmozGJb5581yeExzNi6MmGgNRURZBgrKqGBWjPtwiGTVjRDFklFUI
KM2+ddPdQNPdLN3c5sxXRdMDDUZUJvPe+b7z3arqqrr/uf/96977VxPyDBAKhS9PmTLFc9KkSbMmTpz4
5guQjafzuLi4eA4dOtTO9Fz9BQDGZ4K7p6cfAOgAtHAcY6te34ttfVDb0QFtt2NreztadDq0cRxqZTJs
37493vR8/UF3IWaEEB4hxPoJtCKEWNKO02fO/G+VXo8yqRTi6mrG4poaI0tMWNrF2lqUmbCkuhpF5eXI
LypCaXU1dDodYmNi7hns6TeMQmz5/MnZY8aU5Y8eXfU3JydxupOjOM3BUZzq4CD+q0gkvm5vJ06xsxP/
77Bhj685Ockz3NyQ5uqK76dPx41pU3Ft6m9xacoUnHdxQdLkyTg5aTLiJ05E9IQ3EPnGGwgbNw4HX38d
+8aORcCYMdjt7Iydo0Zh28iR2OrkBP/XXsNWBxG+PnECKp0OcXFxt0yN/TkYhThZWPhi2jTAx6eTc+YC
s2cDXl6ApwfgPRv4zW+AX/0KjUIh8ghBvqUl8oYOwz0zc/yVEHxLCC4TgitmZviGz8cZMzMcJQSRhOAg
IThECL4kBCGEIIgQfEEIPjfwI0LwHiGIi4xEyq1baG1tRURExA1Tg58EoxBHHm8ZJk0C/PzQvvjfofX1
RevChdD4+KBp3jzUz5iB+qVLoU5IgDY9HZpLl1Di6op8W1vU7NqFxsuXofnhHioDA5D66+H4hhA8WPgW
igICULR3LyoSEpC2aBG+IgRJgwfjlFCIRCsrHLOwQCKPx0R+QAjiIyNx5eZNZGRk0DBEYGDgt6ZG94V/
COHzl+qpkPnzoV24EK3z5qF57lyoZ8+B0tsLdY6OUO7YwSbnGho6j0olxG+9hbbSUlbXyeXs2N7QgGsW
Fni4eTOrd6EgLBRRhCBRaIMEgQBxVlaItrBADI+HAwYhJ44exc20NKSnp6O9vZ2N++KLL57qme4eWaKd
OBGYNw+tPj5MhGbOHDR5e6PByxMSBwcod+9mE5c4OuKx3QhWloSGokOlgjQxkXnh4fLlrF0cHIyfPvqI
lc+98goTcFIgwJkhQ5BoI2RCYi2tcLSbkDWE4KvYWKTev4979+6xsSqVih337NmTYmp8dxiFOPB4S5on
vAHMmQ3N/HlQz5nNRDR6eUHh4YEakQgNn3zCJq1dtw5Sg3eqduyEXqWCPDmZxUkKIdAUFECZl4dCg/CK
pCRUnjuHG3PmII5edaEQCdbWiLW0xFE+HzGDeCxmqJBTcXFIy8zE3bt32ViKpqYmdgwMDLxuKqALPYQ0
jR8PztsbTXPnQmkQUe/hAZmbO6rs7FC/7WPj5BT1p88gx8mJleUXLzIh1wiB6mEeE5K/fXuP/ukbN7Jg
7xISYxQyiAlZbRCSnpuLH3/8scfYLuzbt6/PmDEKEfF4S+rHjUObhwcavb1R7+nJPCFzc4Nk1iyU29pC
YfCCIjISYk9PZPB4yB41irXVxMfha0KQ7urK6uJDYXi4ZQsrX7K1RQI1UiDAVy+/jOMCAeKtqBALHOHz
ET1oEPYbhJyJj0dmQQGLkerqapSUlKCsrAxSqRSNjY1svvj4+F5ijELsebwl0tdfR7ObG+SenkyAdNYs
SN58EzUzZ6Jk+HDIPtnJJipdsAAZhCDL3h45Li7oaG9Hm0QC2cWLhusGXLaxQb5B+CV7eybkK6EQJ18a
jGPdAj2Kx+spJCEBj6uqcPv2bRw4cADr16/Hxo0bsWXLFnz66acIDw9HQUFBL88YhdjxeEuqnJ2hcnND
nacXJO7uqHVzQ82sWaia+SZKRo9G7dq1aMvMROnixXjoIEKOszOyx4+H4tw5cAoFoNOh7tx53B47FkmE
IGf9Oihu3cJVkQhJfD7OvvQSTtvYsKA/bmWJeEOgJ5ibI5gQrKJL87Fj7O3g/v37OH36NA4ePIigoCAE
BARg586dTBBlUlIS3n///cReQkQ83rKGsWPBzZgBletMKKdPR+O0aWiYOhXyqb+FbMYM1IwZg1KhEOJR
o5A7ehSyHB1x384Ot83N8Z0h0C8QguRBg/DNkCE4Y2GBWOoJS0sk8vmIG2SOo2aErWARhCCMECaAPiB3
EYLlBiEVMhny8vKYV65evYrk5GRcuHAB58+fx7lz55iI2NhYnD17FhMmTFjeQ4gtj/d2ppMTHjo5It1B
hB9EItwTiXDX3h6p9vb43s4O39na4i+vDcfVXw/HhVdfxdlXXsGpIUNwbPBgxAgEiBIIECEUIkQgRJBA
gEBLS+zm8bCTz8c2Hg9/IgSbbYTwHzYU6/l8/J4QrDV44neE4H36VpCUBGlTE0pLS5Gbm4sHDx6weKGk
CwAlXZqpSBo//v7+p3sIMSPETmBm9p7AzGyTgRu7aP0PbiCEfDBh9OikU/HxOHLoEL4MDTUysjtDQnE4
JASHQ0NxODQEEcHBiIyKQvi+fdi/9D2EffYZIqK+RHhICMIOHsSh4GCcSUxEfl4e5HI5C+6KigpmrFgs
ZiwuLmak5UePHoHjOOzatetSDyGEkEGEEHPDGy590zUlbbegHafNnPlHJX0wymQoqq1lFHdjcRclEpQY
WCqVolKvx/1tO5Gx+3MUpHyLCpUKZRIJY7lUCkljIxNRr1BAoVBAJpMxQRKJpAdra2tRU1PDFpLAwMDL
pkL6DQ8Pjz/QSbRaLZqbm/tF+s2ilsshXvtfaJYr0KJSQaNS9eij0WjYk1ypVLKllrKhoaEX6+vrGSmC
goKeX4i7u/t6OklLSws7cX+o0etR/7gIj9b8J5okUqiUSqibm3v1o0/x/pIiODj4+YW4ubltoJPQq2g6
+ZOo0mrRWF2NR/+xDoqsbMizc6DmuF79jP37uBimpAgJCXl+Ie7u7kwI/WZQq9X9oqalBc0dHSja8CEq
I4+g7sZNtAK9+j0L/yVC1BoNtACK//Q/yHOfi7q/3EDb/xUhbW1tLED7S/p1UROXgHRCIL99hwkz7fMs
pAgNDX1+IR4eHkwITRTQgO8vqeFNeT8hx34UVOJiVjft8yykCAsL+9cIUZeVI/PfhqPxh3TmoRa6NPfR
tz8cMCH0U5TGSb9oOLE0JgF3CUH5ts4349a2tt59+8kBE0JfEWic9Ischw4AhbO8UbljNwrfWgRVZhb0
NNZaW3v37wcpDh069MsKoQYrU+8g+zURM6Dq80AUuHmzsvYZ5unOAROip6lPrfapbNPS6ACKl/4O4sXL
WJl656HDaNTuDeoUo9P1Gvc0UoSHhz+/EE9PTyako6ODBfzTSI1uKSlFzlBbqLOyWZ2i+WEeMs0FaLh0
hdXb9XrotNpe459EioiIiF9IiCE3Vbz0PRQtZLlv6Lh25gEKZcp1ZBJL1MWfYHUqkkrn6K1rwnaO6yF0
wIRQ0JXr50jR8lMBcl61RUtBYecYnY4ZRY2jaCuvQJGXD8r/sBHahs4EAxOkVqNNJoNWqQSnp1HWCVoe
cCE04J/Ijs6bqGiBL0pXfcDKXbcVG6vTobngEVqKSyCPPYYHhCDPfiSKPOejyHsBaj/fy1ixbhPKVnzA
jrLoOHCGxYPi8OHD/3whFE03biJ3hAP0hleKlsLHUH57HfLjJyENjUAdfYEM/5LVNQ/zoM7IQuUftyDf
fjQez/SC9EAoNFnZ0NbJmOi6iCio7qR1nX7ghNCVqy92XfmCiVNQs+szVlal3kXT9ZtoSrmO5qwc6Aw5
5L6g1+pQf/I0qv0/QvXWP0MWEYXG5EvQZGShXaU2zv9CQry8vIxCaMB3Z3fU7T+IwvGTWVknk0Pf3Nzj
dwo6wnQO03k4+hnwtwdQf58KyZ690KSlG3+LjIwceCFdJ+1o59BeV4e8YSOg6XYbPMnon6VxdCd00jro
JFJjfcCFULRkZEF5sfOZUOw9D9WbOrcVTAV0H9e97UntpvWuNoqIiIhkatMLC+lCU/Jl1Hy4lZXlwWF4
PN7FtAsDjR+ao+pKHnQhNTWVsTto8oEm5bqe4n3h2LFjbO9kQISorlxDqc/brKy5cw8Fw52gq+5M15iC
5qnoeePj43u0L1u2DO+++26PNpptHDFihDF53RdOnDjxHbXphYW0yxUonecHPX14FRSiYKiIiXkSaOqT
nnfPnj2sTq92SkoKvL298Ylh/2Xfvn0sEUfzWu7u7jhy5IjRWzRVRPPANEFHcfz48YHxSOPZ86j5cAvU
39+BeOosaG71vD1MsXXrVvj5+WHdunWsvnnzZjg7O0MkEtHbBFFRUXBwdMCiRYuQk5ODGTNmYP78+bC3
t0dVVRVLaC9cuJB5kCIxMfEbatMLC6FozcmFLCQculpJ9+Y+sXjxYpZlX7NmDcvrTpkyhX3tUQ8tWLAA
vn6+rN+GDRuYsUuWLGH1TZs2Yfr06fDz9WOZ+pEjR7LUaXp6+m2aIR0QIf0FTXeOGTMGa9euxbhx49he
h69vp+EhISFwcXExxsmOHTuYJ1atXsXqVCj1ChUWHR2N/fv3s/ZTp05doTb9okLoVsAkunMM4J133mFX
md5CNEboccXyFaw9LS0NK1asYDEzduxYZGVlMU/6+/uz26qystI454s+RzZ2s6/fiImJoV90rEyDngqj
WwTUSLorRcvZ2dkswOlVpymfbX/ehtWrV+Pjjzv3L+leiY+PD1sAKKKjo5/fI66urr+nr9E0I15RUcH1
h+Xl5VxlZSVXX1/PlZaWcgqFgqupqeHUajVXXFzM2uvq6rjW1lYuPz+f/a5QKPQajYYTi8WcTCbjGhsb
Oa1WyxUWFnK5ubnsrTQgIOBratPzCKFbD45mZmZvm5mZrTJw5dNICFlpaWnJSMt8Pp+Vzc3NVwqFwpVW
Vlasjf42ePDglRYWFmwc7UN/t7a2Zr/R/jY2Nqusra1XE0LeJYS40G2P5xFC91Hov4joUUD/vvVP5s+d
g2+whW8U0lX4/86/A3PgFZRgzK1HAAAAAElFTkSuQmCC
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAA6mSURBVGhD1VoJWFRHui2wm6Ubk+ckOgahARWNxmVw
XDCyuqGB6IuajMYlvnnzXJ4THM2LoyYaA1FRFkGCsqoYFaM+3CIZNWNEMWSUVQgozb51091A090s3dzm
zFdF0wMNRlQm8975vvPdquqquv+5//3r3vtXE/IMEAqFL0+ZMsVz0qRJsyZOnPjmC5CNp/O4uLh4Dh06
1M70XP0FAMZngrunpx8A6AC0cBxjq17fi219UNvRAW23Y2t7O1p0OrRxHGplMmzfvj3e9Hz9QXchZoQQ
HiHE+gm0IoRY0o7TZ878b5VejzKpFOLqasbimhojS0xY2sXaWpSZsKS6GkXl5cgvKkJpdTV0Oh1iY2Lu
GezpN4xCbPn8ydljxpTljx5d9TcnJ3G6k6M4zcFRnOrgIP6rSCS+bm8nTrGzE//vsGGPrzk5yTPc3JDm
6orvp0/HjWlTcW3qb3FpyhScd3FB0uTJODlpMuInTkT0hDcQ+cYbCBs3Dgdffx37xo5FwJgx2O3sjJ2j
RmHbyJHY6uQE/9dew1YHEb4+cQIqnQ5xcXG3TI39ORiFOFlY+GLaNMDHp5Nz5gKzZwNeXoCnB+A9G/jN
b4Bf/QqNQiHyCEG+pSXyhg7DPTNz/JUQfEsILhOCK2Zm+IbPxxkzMxwlBJGE4CAhOEQIviQEIYQgiBB8
QQg+N/AjQvAeIYiLjETKrVtobW1FRETEDVODnwSjEEcebxkmTQL8/NC++N+h9fVF68KF0Pj4oGnePNTP
mIH6pUuhTkiANj0dmkuXUOLqinxbW9Ts2oXGy5eh+eEeKgMDkPrr4fiGEDxY+BaKAgJQtHcvKhISkLZo
Eb4iBEmDB+OUUIhEKyscs7BAIo/HRH5ACOIjI3Hl5k1kZGTQMERgYOC3pkb3hX8I4fOX6qmQ+fOhXbgQ
rfPmoXnuXKhnz4HS2wt1jo5Q7tjBJucaGjqPSiXEb72FttJSVtfJ5ezY3tCAaxYWeLh5M6t3oSAsFFGE
IFFogwSBAHFWVoi2sEAMj4cDBiEnjh7FzbQ0pKeno729nY374osvnuqZ7h5Zop04EZg3D60+PkyEZs4c
NHl7o8HLExIHByh372YTlzg64rHdCFaWhIaiQ6WCNDGReeHh8uWsXRwcjJ8++oiVz73yChNwUiDAmSFD
kGgjZEJiLa1wtJuQNYTgq9hYpN6/j3v37rGxKpWKHffs2ZNianx3GIU48HhLmie8AcyZDc38eVDPmc1E
NHp5QeHhgRqRCA2ffMImrV23DlKDd6p27IRepYI8OZnFSQoh0BQUQJmXh0KD8IqkJFSeO4cbc+Ygjl51
oRAJ1taItbTEUT4fMYN4LGaokFNxcUjLzMTdu3fZWIqmpiZ2DAwMvG4qoAs9hDSNHw/O2xtNc+dCaRBR
7+EBmZs7quzsUL/tY+PkFPWnzyDHyYmV5RcvMiHXCIHqYR4Tkr99e4/+6Rs3smDvEhJjFDKICVltEJKe
m4sff/yxx9gu7Nu3r8+YMQoR8XhL6seNQ5uHBxq9vVHv6ck8IXNzg2TWLJTb2kJh8IIiMhJiT09k8HjI
HjWKtdXEx+FrQpDu6srq4kNheLhlCytfsrVFAjVSIMBXL7+M4wIB4q2oEAsc4fMRPWgQ9huEnImPR2ZB
AYuR6upqlJSUoKysDFKpFI2NjWy++Pj4XmKMQux5vCXS119Hs5sb5J6eTIB01ixI3nwTNTNnomT4cMg+
2ckmKl2wABmEIMveHjkuLuhob0ebRALZxYuG6wZctrFBvkH4JXt7JuQroRAnXxqMY90CPYrH6ykkIQGP
q6pw+/ZtHDhwAOvXr8fGjRuxZcsWfPrppwgPD0dBQUEvzxiF2PF4S6qcnaFyc0Odpxck7u6odXNDzaxZ
qJr5JkpGj0bt2rVoy8xE6eLFeOggQo6zM7LHj4fi3DlwCgWg06Hu3HncHjsWSYQgZ/06KG7dwlWRCEl8
Ps6+9BJO29iwoD9uZYl4Q6AnmJsjmBCsokvzsWPs7eD+/fs4ffo0Dh48iKCgIAQEBGDnzp1MEGVSUhLe
f//9xF5CRDzesoaxY8HNmAGV60wop09H47RpaJg6FfKpv4VsxgzUjBmDUqEQ4lGjkDt6FLIcHXHfzg63
zc3xnSHQLxCC5EGD8M2QIThjYYFY6glLSyTy+YgbZI6jZoStYBGEIIwQJoA+IHcRguUGIRUyGfLy8phX
rl69iuTkZFy4cAHnz5/HuXPnmIjY2FicPXsWEyZMWN5DiC2P93amkxMeOjki3UGEH0Qi3BOJcNfeHqn2
9vjezg7f2driL68Nx9VfD8eFV1/F2VdewakhQ3Bs8GDECASIEggQIRQiRCBEkECAQEtL7ObxsJPPxzYe
D38iBJtthPAfNhTr+Xz8nhCsNXjid4TgffpWkJQEaVMTSktLkZubiwcPHrB4oaQLACVdmqlIGj/+/v6n
ewgxI8ROYGb2nsDMbJOBG7to/Q9uIIR8MGH06KRT8fE4cugQvgwNNTKyO0NCcTgkBIdDQ3E4NAQRwcGI
jIpC+L592L/0PYR99hkior5EeEgIwg4exKHgYJxJTER+Xh7kcjkL7oqKCmasWCxmLC4uZqTlR48egeM4
7Nq161IPIYSQQYQQc8MbLn3TNSVtt6Adp82c+UclfTDKZCiqrWUUd2NxFyUSlBhYKpWiUq/H/W07kbH7
cxSkfIsKlQplEgljuVQKSWMjE1GvUEChUEAmkzFBEomkB2tra1FTU8MWksDAwMumQvoNDw+PP9BJtFot
mpub+0X6zaKWyyFe+19olivQolJBo1L16KPRaNiTXKlUsqWWsqGhoRfr6+sZKYKCgp5fiLu7+3o6SUtL
Cztxf6jR61H/uAiP1vwnmiRSqJRKqJube/WjT/H+kiI4OPj5hbi5uW2gk9CraDr5k6jSatFYXY1H/7EO
iqxsyLNzoOa4Xv2M/fu4GKakCAkJeX4h7u7uTAj9ZlCr1f2ipqUFzR0dKNrwISojj6Duxk20Ar36PQv/
JULUGg20AIr/9D/Ic5+Lur/cQNv/FSFtbW0sQPtL+nVRE5eAdEIgv32HCTPt8yykCA0NfX4hHh4eTAhN
FNCA7y+p4U15PyHHfhRU4mJWN+3zLKQICwv71whRl5Uj89+Go/GHdOahFro099G3PxwwIfRTlMZJv2g4
sTQmAXcJQfm2zjfj1ra23n37yQETQl8RaJz0ixyHDgCFs7xRuWM3Ct9aBFVmFvQ01lpbe/fvBykOHTr0
ywqhBitT7yD7NREzoOrzQBS4ebOy9hnm6c4BE6KnqU+t9qls09LoAIqX/g7ixctYmXrnocNo1O4N6hSj
0/Ua9zRShIeHP78QT09PJqSjo4MF/NNIjW4pKUXOUFuos7JZnaL5YR4yzQVouHSF1dv1eui02l7jn0SK
iIiIX0iIITdVvPQ9FC1kuW/ouHbmAQplynVkEkvUxZ9gdSqSSuforWvCdo7rIXTAhFDQlevnSNHyUwFy
XrVFS0Fh5xidjhlFjaNoK69AkZcPyv+wEdqGzgQDE6RWo00mg1apBKenUdYJWh5wITTgn8iOzpuoaIEv
Sld9wMpdtxUbq9OhueARWopLII89hgeEIM9+JIo856PIewFqP9/LWLFuE8pWfMCOsug4cIbFg+Lw4cP/
fCEUTTduIneEA/SGV4qWwsdQfnsd8uMnIQ2NQB19gQz/ktU1D/OgzshC5R+3IN9+NB7P9IL0QCg0WdnQ
1smY6LqIKKjupHWdfuCE0JWrL3Zd+YKJU1Cz6zNWVqXeRdP1m2hKuY7mrBzoDDnkvqDX6lB/8jSq/T9C
9dY/QxYRhcbkS9BkZKFdpTbO/0JCvLy8jEJowHdnd9TtP4jC8ZNZWSeTQ9/c3ON3CjrCdA7TeTj6GfC3
B1B/nwrJnr3QpKUbf4uMjBx4IV0n7Wjn0F5Xh7xhI6Dpdhs8yeifpXF0J3TSOugkUmN9wIVQtGRkQXmx
85lQ7D0P1Zs6txVMBXQf173tSe2m9a42ioiIiGRq0wsL6UJT8mXUfLiVleXBYXg83sW0CwONH5qj6koe
dCE1NZWxO2jygSblup7ifeHYsWNs72RAhKiuXEOpz9usrLlzDwXDnaCr7kzXmILmqeh54+Pje7QvW7YM
7777bo82mm0cMWKEMXndF06cOPEdtemFhbTLFSid5wc9fXgVFKJgqIiJeRJo6pOed8+ePaxOr3ZKSgq8
vb3xiWH/Zd++fSwRR/Na7u7uOHLkiNFbNFVE88A0QUdx/PjxgfFI49nzqPlwC9Tf34F46ixobvW8PUyx
detW+Pn5Yd26day+efNmODs7QyQS0dsEUVFRcHB0wKJFi5CTk4MZM2Zg/vz5sLe3R1VVFUtoL1y4kHmQ
IjEx8Rtq0wsLoWjNyYUsJBy6Wkn35j6xePFilmVfs2YNy+tOmTKFfe1RDy1YsAC+fr6s34YNG5ixS5Ys
YfVNmzZh+vTp8PP1Y5n6kSNHstRpenr6bZohHRAh/QVNd44ZMwZr167FuHHj2F6Hr2+n4SEhIXBxcTHG
yY4dO5gnVq1exepUKPUKFRYdHY39+/ez9lOnTl2hNv2iQuhWwCS6cwzgnXfeYVeZ3kI0RuhxxfIVrD0t
LQ0rVqxgMTN27FhkZWUxT/r7+7PbqrKy0jjniz5HNnazr9+IiYmhX3SsTIOeCqNbBNRIuitFy9nZ2SzA
6VWnKZ9tf96G1atX4+OPO/cv6V6Jj48PWwAooqOjn98jrq6uv6ev0TQjXlFRwfWH5eXlXGVlJVdfX8+V
lpZyCoWCq6mp4dRqNVdcXMza6+rquNbWVi4/P5/9rlAo9BqNhhOLxZxMJuMaGxs5rVbLFRYWcrm5ueyt
NCAg4Gtq0/MIoVsPjmZmZm+bmZmtMnDl00gIWWlpaclIy3w+n5XNzc1XCoXClVZWVqyN/jZ48OCVFhYW
bBztQ3+3trZmv9H+NjY2q6ytrVcTQt4lhLjQbY/nEUL3Uei/iOhRQP++9U/mz52Db7CFbxTSVfj/zr8D
c+AVlGDMrUcAAAAASUVORK5CYII=
</value>
</data>
<data name="btnAntrageeinarbeiten.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAVUlEQVRIS+3NMQ4AIAhDUe9/
AK+Lg4u2xBAjLHZ4DgT8zcxaJRpkm08PswPcJQp6MKLgRkEPRq6DeJxCwef+CkbRJwvcJQp6MKLgRkEP
Ru6ClWiQbQBdFNKRDs1C8gAAAABJRU5ErkJggg==
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO
BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO
zULyAAAAAElFTkSuQmCC
</value>
</data>
<data name="btnPDFauslesen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -394,7 +394,7 @@
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEgAACxIB0t1+/AAABM1JREFUOE9dU3tM01cU
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEAAACxABrSO9dQAABM1JREFUOE9dU3tM01cU
PjDIeGjymyTMQDFz6MwGIWJJKNBNrXGG+MfiNDPGqIMCnfjPGNMUjQlla9PiLEJnE17hJSDWKoKKrQUH
OFcYNjhfCKaIggg+ECwtLbTf8vsB9fElX+65557z5Zx77qUgHx8KpnkEEFHqhg2xlwcHW5q6uuoazeba
Zoultun69drLFkut4fbt2qu9vef1zc0qWW4uc/LkSdJoNFRWVkZbt24lgUBAlBMente5du2dc19+9Zcu
@@ -420,52 +420,52 @@
</data>
<data name="btnEintragloeschen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAByUlEQVRIS72VMWsVQRSFn0Zt
EkwTUJEUJ2COfyB/IEUsYqFpxcZOglr4FxJJYycIERSrWNhZprARa0FM7M0B0QQrISjmycAsLGfuvtnw
jMXXnJlzP9h9e99gOBwO/idF0CDitGf/giJoEDEt4oLn41IECRFXRTwX8amvVMSp3HvhZ22KQMQVEW9F
DDO9pOkViNjMnZd+3uClSRFPRfxqCatSEZdEPBLxvdUJpV78bKKqVMRlEVvB/VDq5eaRdFFIRayJ+Bnc
bXjTKcwDNoJSIc0/kFci/gR3Go5E7I8UHkP6JMidAxErVWFPaRrmWZsvIu6JON9L2FPaxa6Iaz6vKhxD
upoWgc/qJczS18HQiG0Ry6P2cBFEiHgYDI944F2nCEw0L+KZiB/B8Ig9/06dImjJzmWZD61RLIeqUMSM
iHXbjcehU1oEImbzBvEhzocgq0oj4WMRh8EA506PTyZJL9aEXnI+irgtYirfr0lVE94KSg3fRNwIOl3S
9L/6fqQwD7gZlL+KuO+7sSLdEbFQFQbS9C6W/I7Tkv7OW2dRxJn2naJkAxrpXT/rIkvfiZjzs0QROOmd
iTjr+ShEXBcx4XmiCE6aIjhp/gK29ssXlF9vLwAAAABJRU5ErkJggg==
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHJSURBVEhLvZUxaxVBFIWfRm0STBNQkRQnYI5/IH8g
RSxioWnFxk6CWvgXEkljJwgRFKtY2FmmsBFrQUzszQHRBCshKObJwCwsZ+6+2fCMxdecmXM/2H1732A4
HA7+J0XQIOK0Z/+CImgQMS3igufjUgQJEVdFPBfxqa9UxKnce+FnbYpAxBURb0UMM72k6RWI2Mydl37e
4KVJEU9F/GoJq1IRl0Q8EvG91QmlXvxsoqpUxGURW8H9UOrl5pF0UUhFrIn4GdxteNMpzAM2glIhzT+Q
VyL+BHcajkTsjxQeQ/okyJ0DEStVYU9pGuZZmy8i7ok430vYU9rFrohrPq8qHEO6mhaBz+olzNLXwdCI
bRHLo/ZwEUSIeBgMj3jgXacITDQv4pmIH8HwiD3/Tp0iaMnOZZkPrVEsh6pQxIyIdduNx6FTWgQiZvMG
8SHOhyCrSiPhYxGHwQDnTo9PJkkv1oRecj6KuC1iKt+vSVUT3gpKDd9E3Ag6XdL0v/p+pDAPuBmUv4q4
77uxIt0RsVAVBtL0Lpb8jtOS/s5bZ1HEmfadomQDGuldP+siS9+JmPOzRBE46Z2JOOv5KERcFzHheaII
TpoiOGn+Arb2yxeUX28vAAAAAElFTkSuQmCC
</value>
</data>
<data name="btnNeuerEintrag.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAVUlEQVRIS+3NMQ4AIAhDUe9/
AK+Lg4u2xBAjLHZ4DgT8zcxaJRpkm08PswPcJQp6MKLgRkEPRq6DeJxCwef+CkbRJwvcJQp6MKLgRkEP
Ru6ClWiQbQBdFNKRDs1C8gAAAABJRU5ErkJggg==
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO
BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO
zULyAAAAAElFTkSuQmCC
</value>
</data>
<data name="Button2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAByUlEQVRIS72VMWsVQRSFn0Zt
EkwTUJEUJ2COfyB/IEUsYqFpxcZOglr4FxJJYycIERSrWNhZprARa0FM7M0B0QQrISjmycAsLGfuvtnw
jMXXnJlzP9h9e99gOBwO/idF0CDitGf/giJoEDEt4oLn41IECRFXRTwX8amvVMSp3HvhZ22KQMQVEW9F
DDO9pOkViNjMnZd+3uClSRFPRfxqCatSEZdEPBLxvdUJpV78bKKqVMRlEVvB/VDq5eaRdFFIRayJ+Bnc
bXjTKcwDNoJSIc0/kFci/gR3Go5E7I8UHkP6JMidAxErVWFPaRrmWZsvIu6JON9L2FPaxa6Iaz6vKhxD
upoWgc/qJczS18HQiG0Ry6P2cBFEiHgYDI944F2nCEw0L+KZiB/B8Ig9/06dImjJzmWZD61RLIeqUMSM
iHXbjcehU1oEImbzBvEhzocgq0oj4WMRh8EA506PTyZJL9aEXnI+irgtYirfr0lVE94KSg3fRNwIOl3S
9L/6fqQwD7gZlL+KuO+7sSLdEbFQFQbS9C6W/I7Tkv7OW2dRxJn2naJkAxrpXT/rIkvfiZjzs0QROOmd
iTjr+ShEXBcx4XmiCE6aIjhp/gK29ssXlF9vLwAAAABJRU5ErkJggg==
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHJSURBVEhLvZUxaxVBFIWfRm0STBNQkRQnYI5/IH8g
RSxioWnFxk6CWvgXEkljJwgRFKtY2FmmsBFrQUzszQHRBCshKObJwCwsZ+6+2fCMxdecmXM/2H1732A4
HA7+J0XQIOK0Z/+CImgQMS3igufjUgQJEVdFPBfxqa9UxKnce+FnbYpAxBURb0UMM72k6RWI2Mydl37e
4KVJEU9F/GoJq1IRl0Q8EvG91QmlXvxsoqpUxGURW8H9UOrl5pF0UUhFrIn4GdxteNMpzAM2glIhzT+Q
VyL+BHcajkTsjxQeQ/okyJ0DEStVYU9pGuZZmy8i7ok430vYU9rFrohrPq8qHEO6mhaBz+olzNLXwdCI
bRHLo/ZwEUSIeBgMj3jgXacITDQv4pmIH8HwiD3/Tp0iaMnOZZkPrVEsh6pQxIyIdduNx6FTWgQiZvMG
8SHOhyCrSiPhYxGHwQDnTo9PJkkv1oRecj6KuC1iKt+vSVUT3gpKDd9E3Ag6XdL0v/p+pDAPuBmUv4q4
77uxIt0RsVAVBtL0Lpb8jtOS/s5bZ1HEmfadomQDGuldP+siS9+JmPOzRBE46Z2JOOv5KERcFzHheaII
TpoiOGn+Arb2yxeUX28vAAAAAElFTkSuQmCC
</value>
</data>
<data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAVUlEQVRIS+3NMQ4AIAhDUe9/
AK+Lg4u2xBAjLHZ4DgT8zcxaJRpkm08PswPcJQp6MKLgRkEPRq6DeJxCwef+CkbRJwvcJQp6MKLgRkEP
Ru6ClWiQbQBdFNKRDs1C8gAAAABJRU5ErkJggg==
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO
BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO
zULyAAAAAElFTkSuQmCC
</value>
</data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<metadata name="cns_neAntraege.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<metadata name="cns_LRE.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value>
</metadata>
<metadata name="cnS_KIUPLOAD.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -474,6 +474,9 @@
<metadata name="cns_vorauszahlen.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>464, 17</value>
</metadata>
<metadata name="ncs_Belege.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>620, 17</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA

116
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -1,11 +1,10 @@
Imports System.IO
Imports System.Reflection
Imports System.Windows.Documents
Imports com.sun.org.apache.xpath.internal.objects
Imports com.sun.xml.internal.bind.v2
Imports itextsharp.text.pdf
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class frmMDM_USTVAntrag
@@ -624,52 +623,52 @@ Public Class frmMDM_USTVAntrag
If Not ContextMenuStrip2.Items.ContainsKey("plose") Then
If Not cns_LRE.Items.ContainsKey("plose") Then
Dim plose = New ToolStripMenuItem() With {.Text = "Plose", .Name = "plose", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
ContextMenuStrip2.Items.Add(plose)
cns_LRE.Items.Add(plose)
AddHandler plose.Click, AddressOf mnuItemAuftrauege_Clicked
End If
If USTV_ANTRAG.UStVAn_ReDatVon.year >= 2025 Then
If Not ContextMenuStrip2.Items.ContainsKey("ploseneu") Then
If Not cns_LRE.Items.ContainsKey("ploseneu") Then
Dim plose = New ToolStripMenuItem() With {.Text = "Plose NEUE LOGIK", .Name = "ploseneu", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
ContextMenuStrip2.Items.Add(plose)
cns_LRE.Items.Add(plose)
AddHandler plose.Click, AddressOf mnuItemAuftrauege_Clicked
End If
End If
If Not ContextMenuStrip2.Items.ContainsKey("rmc") Then
If Not cns_LRE.Items.ContainsKey("rmc") Then
Dim rmc = New ToolStripMenuItem() With {.Text = "RMC", .Name = "rmc", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler rmc.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(rmc)
cns_LRE.Items.Add(rmc)
End If
If Not ContextMenuStrip2.Items.ContainsKey("mse") Then
If Not cns_LRE.Items.ContainsKey("mse") Then
Dim rmc = New ToolStripMenuItem() With {.Text = "MSE", .Name = "mse", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler rmc.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(rmc)
cns_LRE.Items.Add(rmc)
End If
If Not ContextMenuStrip2.Items.ContainsKey("uta") Then
If Not cns_LRE.Items.ContainsKey("uta") Then
Dim uta = New ToolStripMenuItem() With {.Text = "UTA", .Name = "uta", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler uta.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(uta)
cns_LRE.Items.Add(uta)
End If
If Not ContextMenuStrip2.Items.ContainsKey("ids") Then
If Not cns_LRE.Items.ContainsKey("ids") Then
Dim ids = New ToolStripMenuItem() With {.Text = "IDS", .Name = "ids", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(ids)
cns_LRE.Items.Add(ids)
End If
If Not ContextMenuStrip2.Items.ContainsKey("verag") Then
If Not cns_LRE.Items.ContainsKey("verag") Then
Dim ids = New ToolStripMenuItem() With {.Text = "VERAG", .Name = "verag", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(ids)
cns_LRE.Items.Add(ids)
End If
ContextMenuStrip2.Show(Cursor.Position)
cns_LRE.Show(Cursor.Position)
@@ -678,7 +677,7 @@ Public Class frmMDM_USTVAntrag
Private Sub mnuItemAuftrauege_Clicked(sender As Object, e As EventArgs)
ContextMenuStrip1.Hide()
cns_neAntraege.Hide()
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
If item IsNot Nothing Then
@@ -2004,32 +2003,32 @@ Public Class frmMDM_USTVAntrag
Private Sub btnMail_Click(sender As Object, e As EventArgs) Handles btnMail.Click
If Not ContextMenuStrip1.Items.ContainsKey("excel") Then
If Not cns_neAntraege.Items.ContainsKey("excel") Then
Dim excel = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
ContextMenuStrip1.Items.Add(excel)
cns_neAntraege.Items.Add(excel)
AddHandler excel.Click, AddressOf mnuItem_Clicked
End If
If Not ContextMenuStrip1.Items.ContainsKey("mail") Then
If Not cns_neAntraege.Items.ContainsKey("mail") Then
Dim mail = New ToolStripMenuItem() With {.Text = "Email generieren", .Name = "mail", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler mail.Click, AddressOf mnuItem_Clicked
ContextMenuStrip1.Items.Add(mail)
cns_neAntraege.Items.Add(mail)
End If
If Not ContextMenuStrip1.Items.ContainsKey("offeneAntraege") Then
If Not cns_neAntraege.Items.ContainsKey("offeneAntraege") Then
Dim oa = New ToolStripMenuItem() With {.Text = "nicht eingearbeitet USTV-Anträge", .Name = "offeneAntraege", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler oa.Click, AddressOf mnuItem_Clicked
ContextMenuStrip1.Items.Add(oa)
cns_neAntraege.Items.Add(oa)
End If
ContextMenuStrip1.Show(Cursor.Position)
cns_neAntraege.Show(Cursor.Position)
End Sub
Private Sub mnuItem_Clicked(sender As Object, e As EventArgs)
ContextMenuStrip1.Hide()
cns_neAntraege.Hide()
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
If item IsNot Nothing Then
@@ -3017,13 +3016,10 @@ Public Class frmMDM_USTVAntrag
If IsDBNull(USTV_ANTRAG.FilialenNr) OrElse USTV_ANTRAG.FilialenNr Is Nothing OrElse USTV_ANTRAG.FilialenNr = 0 Then MsgBox("Für das Speditionsbuch muss die Filiale eingegeben werden.") : Exit Sub
If IsDBNull(USTV_ANTRAG.AbfertigungsNr) OrElse USTV_ANTRAG.AbfertigungsNr Is Nothing OrElse USTV_ANTRAG.AbfertigungsNr <= 0 Then MsgBox("Für das Speditionsbuch muss die Abfertigungs-Nr eingegeben werden.") : Exit Sub
Dim RK_ID As Integer = CInt(SQL.getValueTxtBySql("select top(1) RK_ID from Rechnungsausgang where FilialenNr = " & USTV_ANTRAG.FilialenNr & " and AbfertigungsNr = " & USTV_ANTRAG.AbfertigungsNr & " and Firma_ID = 19", "FMZOLL", ,, "0"))
'Dim RK_ID As Integer = CInt(SQL.getValueTxtBySql("select top(1) RK_ID from Rechnungsausgang where FilialenNr = " & USTV_ANTRAG.FilialenNr & " and AbfertigungsNr = " & USTV_ANTRAG.AbfertigungsNr & " and Firma_ID = 19", "FMZOLL", ,, "0"))
If RK_ID > 0 Then
Dim f As New SDL.frmAbrechnungsMaskeEinzeln(RK_ID)
f.Show(Me)
Dim dtRE As DataTable = (New SQL).loadDgvBySql("select RK_ID, RechnungsNr, FilialenNr from Rechnungsausgang where FilialenNr = " & USTV_ANTRAG.FilialenNr & " and AbfertigungsNr = " & USTV_ANTRAG.AbfertigungsNr & " and Firma_ID = 19", "FMZOLL")
Else
Dim hasVZ As Boolean = False
For Each pos In USTV_ANTRAG.POSITIONEN
If pos.UStVPo_VZ AndAlso (IsDBNull(pos.UStVPo_VZ_RKID) Or pos.UStVPo_VZ_RKID Is Nothing) Then 'VZ die noch nicht abgerechnet wurde!
@@ -3032,12 +3028,32 @@ Public Class frmMDM_USTVAntrag
End If
Next
ncs_Belege.Items.Clear()
Dim f As New SDL.frmAbrechnungsMaskeEinzeln(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, IIf(USTV_ANTRAG.UStVAn_ErstattungsbetragEUR >= 0, "AG", "AR"), hasVZ)
f.Show(Me)
Dim reNEW = New ToolStripMenuItem() With {.Text = "NEU", .Name = "NEU" + IIf(hasVZ, "_VZ", ""), .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
ncs_Belege.Items.Add(reNEW)
If dtRE.Rows.Count > 0 Then
Dim RK_ID As String = ""
For Each r As DataRow In dtRE.Rows
Dim re = New ToolStripMenuItem() With {.Text = r.Item("FilialenNr") & " - " & r.Item("RechnungsNr"), .Name = r.Item("RK_ID"), .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
ncs_Belege.Items.Add(re)
AddHandler re.Click, AddressOf mnuItemBelege_Clicked
Next
AddHandler reNEW.Click, AddressOf mnuItemBelege_Clicked
Else
AddHandler reNEW.Click, AddressOf mnuItemBelege_Clicked
End If
ncs_Belege.Show(Cursor.Position)
End Sub
@@ -3280,5 +3296,39 @@ Public Class frmMDM_USTVAntrag
End Sub
Private Sub mnuItemBelege_Clicked(sender As Object, e As EventArgs)
ncs_Belege.Hide()
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
If item IsNot Nothing Then
If item.Name <> "" Then
If IsNumeric(item.Name) Then
Dim f As New SDL.frmAbrechnungsMaskeEinzeln(item.Name)
f.Show(Me)
Else
Dim hasVZ = IIf(item.Text.Contains("_VZ"), True, False)
Dim f As New SDL.frmAbrechnungsMaskeEinzeln(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, IIf(USTV_ANTRAG.UStVAn_ErstattungsbetragEUR >= 0, "AG", "AR"), hasVZ)
f.Show(Me)
End If
'Dim f As New SDL.frmAbrechnungsMaskeEinzeln(item.Name)
'f.Show(Me)
End If
End If
End Sub
End Class

5
SDL/kunden/usrCntlOfferte.vb
View File

@@ -149,6 +149,11 @@ Public Class usrCntlOfferte
' .Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
' .Columns("OffertenBez").HeaderText = "Bezeichnung"
.Columns("PreisänderungProzent").Visible = False
.Columns("PreisAlt").Visible = False
.Columns("Preisänderung").Visible = False
If addedFields AndAlso .Columns.Contains("Land") Then
.Columns("Land").Width = 70
.Columns("Land").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter

4
SDL/mdm/usrCntlKartenDaten.vb
View File

@@ -105,7 +105,7 @@ Public Class usrCntlKartenDaten
btnSDL_MautMSE.Visible = dt.Select("SDLNr=208").Count > 0
btnSDL_MotorWay.Visible = dt.Select("SDLNr=205").Count > 0
btnSDL_ECOTAX.Visible = dt.Select("SDLNr=211").Count > 0
btnSDL_ECOTAX.Visible = False 'Laut Batiniv Mail vom 21.05.2025 inaktiv setzen!!!! ' dt.Select("SDLNr=211").Count > 0
btnSDL_FREJUS.Visible = dt.Select("SDLNr=207").Count > 0
btnSDL_DouBox.Visible = dt.Select("SDLNr=206").Count > 0
End If
@@ -137,7 +137,7 @@ Public Class usrCntlKartenDaten
btnSDL_MautMSE.Visible = dt.Select("SDLNr=208").Count > 0
btnSDL_MotorWay.Visible = dt.Select("SDLNr=205").Count > 0
btnSDL_ECOTAX.Visible = dt.Select("SDLNr=211").Count > 0
btnSDL_ECOTAX.Visible = False 'Laut Batiniv Mail vom 21.05.2025 inaktiv setzen!!!! dt.Select("SDLNr=211").Count > 0
btnSDL_FREJUS.Visible = dt.Select("SDLNr=207").Count > 0
btnSDL_DouBox.Visible = dt.Select("SDLNr=206").Count > 0
End If

2
VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb
View File

@@ -321,7 +321,7 @@ Public Class cUStVPositionen
Property UStVPo_daId As Object = Nothing
Property UStVPo_daId_loeschbar As Boolean = True
Property UStVPo_LeistenderId As Integer '
Property UStVPo_VZ As Boolean = True
Property UStVPo_VZ As Boolean = False
Property UStVPo_VZ_RKID As Object = Nothing '
Dim SQL As New SQL