Offert, Fakt, Antrag, Karten, etc.

This commit is contained in:
2025-05-26 11:31:33 +02:00
parent 6e9d0ccfbb
commit ee5f4c578c
8 changed files with 339 additions and 251 deletions

View File

@@ -1181,7 +1181,9 @@ Public Class usrCntlFaktAbrechnung
Sub initDGVOfferteDetailsUebersicht(kdNr, OffertenNr) 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 = "" Dim addFields As String = ""
@@ -1290,13 +1292,6 @@ Public Class usrCntlFaktAbrechnung
' .Columns("Geändert am").Visible = False ' .Columns("Geändert am").Visible = False
'.Columns("Sachbearbeiter").Visible = False '.Columns("Sachbearbeiter").Visible = False
If addFieldsBoolean Then
End If
.Columns("IndexZkteing").Visible = False .Columns("IndexZkteing").Visible = False
.Columns("AufschubkontoNr").Visible = False .Columns("AufschubkontoNr").Visible = False

View File

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

View File

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

View File

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

View File

@@ -1,11 +1,10 @@
Imports System.IO Imports System.IO
Imports System.Reflection Imports System.Reflection
Imports System.Windows.Documents Imports System.Windows.Documents
Imports com.sun.org.apache.xpath.internal.objects
Imports com.sun.xml.internal.bind.v2
Imports itextsharp.text.pdf Imports itextsharp.text.pdf
Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class frmMDM_USTVAntrag 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)} 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 AddHandler plose.Click, AddressOf mnuItemAuftrauege_Clicked
End If End If
If USTV_ANTRAG.UStVAn_ReDatVon.year >= 2025 Then 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)} 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 AddHandler plose.Click, AddressOf mnuItemAuftrauege_Clicked
End If End If
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)} Dim rmc = New ToolStripMenuItem() With {.Text = "RMC", .Name = "rmc", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler rmc.Click, AddressOf mnuItemAuftrauege_Clicked AddHandler rmc.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(rmc) cns_LRE.Items.Add(rmc)
End If 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)} Dim rmc = New ToolStripMenuItem() With {.Text = "MSE", .Name = "mse", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler rmc.Click, AddressOf mnuItemAuftrauege_Clicked AddHandler rmc.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(rmc) cns_LRE.Items.Add(rmc)
End If 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)} Dim uta = New ToolStripMenuItem() With {.Text = "UTA", .Name = "uta", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler uta.Click, AddressOf mnuItemAuftrauege_Clicked AddHandler uta.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(uta) cns_LRE.Items.Add(uta)
End If 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)} Dim ids = New ToolStripMenuItem() With {.Text = "IDS", .Name = "ids", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(ids) cns_LRE.Items.Add(ids)
End If 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)} Dim ids = New ToolStripMenuItem() With {.Text = "VERAG", .Name = "verag", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(ids) cns_LRE.Items.Add(ids)
End If 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) Private Sub mnuItemAuftrauege_Clicked(sender As Object, e As EventArgs)
ContextMenuStrip1.Hide() cns_neAntraege.Hide()
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem) Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
If item IsNot Nothing Then 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 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)} 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 AddHandler excel.Click, AddressOf mnuItem_Clicked
End If 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)} 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 AddHandler mail.Click, AddressOf mnuItem_Clicked
ContextMenuStrip1.Items.Add(mail) cns_neAntraege.Items.Add(mail)
End If 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)} 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 AddHandler oa.Click, AddressOf mnuItem_Clicked
ContextMenuStrip1.Items.Add(oa) cns_neAntraege.Items.Add(oa)
End If End If
ContextMenuStrip1.Show(Cursor.Position) cns_neAntraege.Show(Cursor.Position)
End Sub End Sub
Private Sub mnuItem_Clicked(sender As Object, e As EventArgs) Private Sub mnuItem_Clicked(sender As Object, e As EventArgs)
ContextMenuStrip1.Hide() cns_neAntraege.Hide()
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem) Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
If item IsNot Nothing Then 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.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 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 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")
Dim f As New SDL.frmAbrechnungsMaskeEinzeln(RK_ID)
f.Show(Me)
Else
Dim hasVZ As Boolean = False Dim hasVZ As Boolean = False
For Each pos In USTV_ANTRAG.POSITIONEN 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! 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 End If
Next 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) Dim reNEW = New ToolStripMenuItem() With {.Text = "NEU", .Name = "NEU" + IIf(hasVZ, "_VZ", ""), .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
f.Show(Me) 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 End If
ncs_Belege.Show(Cursor.Position)
End Sub End Sub
@@ -3280,5 +3296,39 @@ Public Class frmMDM_USTVAntrag
End Sub 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 End Class

View File

@@ -149,6 +149,11 @@ Public Class usrCntlOfferte
' .Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill ' .Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
' .Columns("OffertenBez").HeaderText = "Bezeichnung" ' .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 If addedFields AndAlso .Columns.Contains("Land") Then
.Columns("Land").Width = 70 .Columns("Land").Width = 70
.Columns("Land").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter .Columns("Land").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter

View File

@@ -105,7 +105,7 @@ Public Class usrCntlKartenDaten
btnSDL_MautMSE.Visible = dt.Select("SDLNr=208").Count > 0 btnSDL_MautMSE.Visible = dt.Select("SDLNr=208").Count > 0
btnSDL_MotorWay.Visible = dt.Select("SDLNr=205").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_FREJUS.Visible = dt.Select("SDLNr=207").Count > 0
btnSDL_DouBox.Visible = dt.Select("SDLNr=206").Count > 0 btnSDL_DouBox.Visible = dt.Select("SDLNr=206").Count > 0
End If End If
@@ -137,7 +137,7 @@ Public Class usrCntlKartenDaten
btnSDL_MautMSE.Visible = dt.Select("SDLNr=208").Count > 0 btnSDL_MautMSE.Visible = dt.Select("SDLNr=208").Count > 0
btnSDL_MotorWay.Visible = dt.Select("SDLNr=205").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_FREJUS.Visible = dt.Select("SDLNr=207").Count > 0
btnSDL_DouBox.Visible = dt.Select("SDLNr=206").Count > 0 btnSDL_DouBox.Visible = dt.Select("SDLNr=206").Count > 0
End If End If

View File

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