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

Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-05-23 15:56:21 +02:00
parent 7df3fa1c96 e6789edd16
commit 24b5bea6a6
19 changed files with 2106 additions and 519 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SDL/Fakturierung/frmAbrechnungsMaskeEinzeln.vb
View File

@@ -4,8 +4,9 @@
Dim AbfertigungsNr As Integer = -1
Dim RK_ID As Integer = -1
Dim BelegKZ As String = "AR"
Dim isVZ As Boolean = False
Sub New(FilialenNr, AbfertigungsNr, Optional BelegKZ = "AR")
Sub New(FilialenNr, AbfertigungsNr, Optional BelegKZ = "AR", Optional VZ = False)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@@ -13,6 +14,7 @@
If FilialenNr IsNot Nothing AndAlso IsNumeric(FilialenNr) Then Me.FilialenNr = FilialenNr
If AbfertigungsNr IsNot Nothing AndAlso IsNumeric(AbfertigungsNr) Then Me.AbfertigungsNr = AbfertigungsNr
If BelegKZ IsNot Nothing AndAlso BelegKZ <> "" Then Me.BelegKZ = BelegKZ
Me.isVZ = VZ
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
@@ -44,7 +46,7 @@
UsrCntlFaktAbrechnung1.cboFiliale.changeItem(FilialenNr)
UsrCntlFaktAbrechnung1.txtAbfertigungsnummer.Text = AbfertigungsNr
UsrCntlFaktAbrechnung1.cboSpedBuchUnterNr.Focus()
UsrCntlFaktAbrechnung1.isVZ = isVZ
UsrCntlFaktAbrechnung1.btnDatenLaden.PerformClick()
Select Case BelegKZ
@@ -53,6 +55,7 @@
End Select
ElseIf RK_ID > 0 Then
'Dim dt As DataTable = SQL.loadDgvBySql("select top(1) FilialenNr, AbfertigungsNr from Rechnungsausgang where RK_ID = " & RK_ID, "FMZOLL")

48
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -1,4 +1,5 @@
Imports GrapeCity.DataVisualization.TypeScript
Imports System.Web.UI.WebControls.Expressions
Imports GrapeCity.DataVisualization.TypeScript
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN
@@ -536,7 +537,7 @@ Public Class frmFaktEmail
If RECHNUNG.Status <> 0 OrElse vbYes = MsgBox("Möchten Sie das PDF als Mail-Anhang erstellen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnung gilt somit als gedruckt und kann nicht mehr bearbeitet werden.", vbYesNoCancel) Then
abfNr = " Pos-Nr.: " & RECHNUNG.FilialenNr & "-" & RECHNUNG.AbfertigungsNr & "-" & RECHNUNG.SpeditionsbuchUnterNr
abfNr = " Pos-Nr.: " & RECHNUNG.FilialenNr & "-" & RECHNUNG.AbfertigungsNr & "-" & RECHNUNG.SpeditionsbuchUnterNr
@@ -645,14 +646,14 @@ Public Class frmFaktEmail
Mail.Display()
If RECHNUNG.FilialenNr = 4817 And Firma_ID = 19 Then
If RECHNUNG.FilialenNr = 4817 And RECHNUNG.Firma_ID = 19 And RECHNUNG.DruckDatumZeit IsNot Nothing Then
Dim SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr, RECHNUNG.UnterNr)
If SPEDBUCH.hasEntry AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115) Then
Dim USTV_ANTRAG As New cUSTVAntrag(RECHNUNG.ErfassungsNr)
Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, 1)
Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.UnterNr)
If Not ANTR_ERSTATTUNG.hasEntry Then
ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum
ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr
@@ -661,14 +662,47 @@ Public Class frmFaktEmail
ANTR_ERSTATTUNG.UStVEr_USteuerbetragEUR = RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag
ANTR_ERSTATTUNG.SAVE()
End If
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!
hasVZ = True
Exit For
End If
Next
If hasVZ Then
Dim SQL As New SQL
For Each pos As cUStVPositionen In USTV_ANTRAG.POSITIONEN
If Not IsDBNull(pos.UStVPo_VZ) AndAlso pos.UStVPo_VZ AndAlso (IsDBNull(pos.UStVPo_VZ_RKID) Or pos.UStVPo_VZ_RKID Is Nothing) Then
pos.UStVPo_VZ_RKID = RECHNUNG.RK_ID
pos.SAVE()
End If
Next
Dim count_nichtAbgerVZ As Integer = -1
count_nichtAbgerVZ = CInt(SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblUStVPositionen] WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " and [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) = 0", "FMZOLL"))
If count_nichtAbgerVZ = 0 Then
SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] IN (SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) = 0 AND [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " )", "FMZOLL")
End If
End If
End If
End If
'------------------------------------------------------------------------------------------
' STB /FA
send_StbFAMail(RECHNUNG.RechnungsKundenNr, " Rg-Nr.: " & RechnungsNr & abfNr, RECHNUNG.RechnungsNr)
'------------------------------------------------------------------------------------------
' STB /FA
send_StbFAMail(RECHNUNG.RechnungsKundenNr, " Rg-Nr.: " & RechnungsNr & abfNr, RECHNUNG.RechnungsNr)
'------------------------------------------------------------------------------------------
Catch ex As Exception

242
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -24,6 +24,7 @@ Public Class usrCntlFaktAbrechnung
Dim vorherige_RK_ID = 0
Dim nachstehende_RK_ID = 0
Dim veragKunde As Integer = -1
Public isVZ As Boolean = False
' Public VALUE_CHANGED = True ' Eigenschaft, ob das Formular gespeichert ist oder verändert wurde
@@ -1180,6 +1181,14 @@ Public Class usrCntlFaktAbrechnung
Sub initDGVOfferteDetailsUebersicht(kdNr, OffertenNr)
Dim addFieldsBoolean As Boolean = True
Dim addFields As String = ""
If addFieldsBoolean Then
addFields = ", Land, RMC, Fremd, VZ"
End If
With dgvOfferteDetailsUebersicht
If Not IsNumeric(kdNr) OrElse kdNr < 0 Then
.Columns.Clear()
@@ -1210,14 +1219,24 @@ Public Class usrCntlFaktAbrechnung
c = New DataGridViewTextBoxColumn() : c.Name = "BerechnungsartPosInkludiert" : .Columns.Add(c)
c = New DataGridViewTextBoxColumn() : c.Name = "ReverseCharge" : .Columns.Add(c)
If addFieldsBoolean Then
Dim dt As DataTable = SQL.loadDgvBySql(" SELECT [Offertenpositionen].[LeistungsNr],[Offertenpositionen].[LeistungsBez],[Anzahl],[Preis],[Offertenpositionen].[BerechnungsartNr],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],Steuerpflichtig, ReverseCharge/*,[Geändert am],[Sachbearbeiter]*/,BerechnungsartPosInkludiert " &
c = New DataGridViewTextBoxColumn() : c.Name = "Land" : .Columns.Add(c)
c = New DataGridViewTextBoxColumn() : c.Name = "RMC" : .Columns.Add(c)
c = New DataGridViewTextBoxColumn() : c.Name = "Fremd" : .Columns.Add(c)
c = New DataGridViewTextBoxColumn() : c.Name = "VZ" : .Columns.Add(c)
End If
Dim dt As DataTable = SQL.loadDgvBySql(" SELECT [Offertenpositionen].[LeistungsNr],[Offertenpositionen].[LeistungsBez],[Anzahl],[Preis],[Offertenpositionen].[BerechnungsartNr],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],Steuerpflichtig, ReverseCharge/*,[Geändert am],[Sachbearbeiter]*/,BerechnungsartPosInkludiert " & addFields &
" FROM [Offertenpositionen] INNER JOIN [Leistungen] ON leistungen.LeistungsNr=Offertenpositionen.LeistungsNr " &
" WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL")
'If .ColumnCount = 0 Then Exit Sub
.Columns("LeistungsNr").Width = 30
'If .ColumnCount = 0 Then Exit Sub
.Columns("LeistungsNr").Width = 30
.Columns("LeistungsNr").HeaderText = "Nr"
.Columns("LeistungsBez").MinimumWidth = 180
.Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
@@ -1271,6 +1290,12 @@ Public Class usrCntlFaktAbrechnung
' .Columns("Geändert am").Visible = False
'.Columns("Sachbearbeiter").Visible = False
If addFieldsBoolean Then
End If
.Columns("IndexZkteing").Visible = False
@@ -1286,14 +1311,14 @@ Public Class usrCntlFaktAbrechnung
steuerpflichtigTMP = (RECHNUNG.ForceSteuerschlüssel > 0)
End If
If True Then
If addFieldsBoolean Then
dgvOfferteDetailsUebersicht.Rows.Add(r("LeistungsNr"), r("LeistungsBez"), r("Anzahl"), r("Preis"), r("BerechnungsartNr"), r("BGebLeistungsNr"), r("BGebProzent"), r("BGebMinBetrag"), steuerpflichtigTMP,
DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, r("BerechnungsartPosInkludiert"), r("ReverseCharge"))
DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, r("BerechnungsartPosInkludiert"), r("ReverseCharge"), r("Land"), r("RMC"), r("Fremd"), r("VZ"))
Else
dgvOfferteDetailsUebersicht.Rows.Add(r("LeistungsNr"), r("LeistungsBez"), r("Anzahl"), r("Preis"), r("BerechnungsartNr"), DBNull.Value, DBNull.Value, DBNull.Value, steuerpflichtigTMP,
DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, r("BerechnungsartPosInkludiert"))
DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, r("BerechnungsartPosInkludiert"), r("ReverseCharge"))
End If
@@ -1444,9 +1469,9 @@ Public Class usrCntlFaktAbrechnung
POS.Anzahl = If(r.Cells("Anzahl").Value Is DBNull.Value, 0, r.Cells("Anzahl").Value)
'-----------------------MWST-Abrechnung! + Kompat. zu FM-Zoll
If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 Then
If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso RECHNUNG.DruckDatumZeit Is Nothing Then
Dim isRC As Boolean = If(r.Cells("ReverseCharge").Value IsNot DBNull.Value, r.Cells("ReverseCharge").Value, False)
setMWSTABRfromSPEDinPOS(r, POS, landNr, landBez, antrag)
setMWSTABRfromSPEDinPOS(r, POS, landNr, landBez, antrag, isVZ)
End If
'-----------------------MWST-Abrechnung! + Kompat. zu FM-Zoll
@@ -1741,7 +1766,7 @@ Public Class usrCntlFaktAbrechnung
End If
RECHNUNG.LOAD_ANHAENGE()
If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ANHAENGE IsNot Nothing Then
If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ANHAENGE IsNot Nothing And Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
'-----------------------------
'ANHÄNGE OHNE AVISO-BEZUG LADEN:
'-----------------------------
@@ -1796,7 +1821,7 @@ Public Class usrCntlFaktAbrechnung
If DAID <> "" AndAlso IsNumeric(DAID) Then
Dim daidno As Integer = CInt(DAID)
Dim ds As New cDATENSERVER(daidno)
.Rows.Add(1, nameLief, ds.da_name, ds.da_id, -1)
.Rows.Add(-1, nameLief, ds.da_name, ds.da_id, -1)
End If
Next
@@ -2570,10 +2595,13 @@ Public Class usrCntlFaktAbrechnung
' POS.BGebLeistungsNr = BGebLeistungsNr
RE.POSITIONEN.Add(POS)
End If
POS.Preis += Betrag
'End If
If POS.Steuerpflichtig Then
POS.SteuerpflichtigerBetrag += Betrag
Else
@@ -4485,22 +4513,49 @@ Nächste_Textzeile_lesen:
Private Sub setMWSTABRfromSPEDinPOS(r As DataGridViewRow, POS As cRechnungsausgangPositionen, LandNr As String, LandBez As String, Optional antrag As cUSTVAntrag = Nothing, Optional isVZ As Boolean = False)
If SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10 Then
If SPEDBUCH IsNot Nothing AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10) Then
Dim LeistungsBez = r.Cells("LeistungsBez").Value
If LeistungsBez <> "" Then
Dim isMWST As Boolean = False
Dim kdNr = IIf(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, kdFirmaRechnungAn.KdNr)
Dim isRMC = IIf(kdNr = 150000 AndAlso antrag.UStVAn_AntragArt = "MWST", True, False)
Dim sumRMC As Double = 0
Dim sumFremdBeleg As Double = 0
If antrag IsNot Nothing AndAlso LandBez <> "" AndAlso antrag.UStVAn_AntragArt <> "" Then
Dim OFFERT_LAND = ""
Dim OFFERT_VZ = False
Dim OFFERT_RMC = False
Dim OFFERT_FREMD = False
Dim OFFERT_LeistungsBez = r.Cells("LeistungsBez").Value
If antrag.UStVAn_AntragArt <> "MWST" Then isRMC = False
If Not IsDBNull(r.Cells("Land").Value) AndAlso r.Cells("Land").Value IsNot Nothing AndAlso r.Cells("Land").Value <> "" Then
OFFERT_LAND = r.Cells("Land").Value
End If
Dim LandISO2 = ""
If Not IsDBNull(r.Cells("VZ").Value) AndAlso r.Cells("VZ").Value IsNot Nothing Then
OFFERT_VZ = r.Cells("VZ").Value
End If
If Not IsDBNull(r.Cells("RMC").Value) AndAlso r.Cells("RMC").Value IsNot Nothing Then
OFFERT_RMC = r.Cells("RMC").Value
End If
If Not IsDBNull(r.Cells("Fremd").Value) AndAlso r.Cells("Fremd").Value IsNot Nothing Then
OFFERT_FREMD = r.Cells("Fremd").Value
End If
If OFFERT_LeistungsBez <> "" AndAlso OFFERT_LAND <> "" Then
If (isVZ = OFFERT_VZ) Then
Dim isMWST As Boolean = False
Dim kdNr = IIf(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, kdFirmaRechnungAn.KdNr)
Dim isRMCKunde = IIf(kdNr = 150000 AndAlso antrag.UStVAn_AntragArt = "MWST", True, False)
Dim sumRMC As Double = 0
Dim sumFremdBeleg As Double = 0
Dim sumBelegVZ As Double = 0
If antrag IsNot Nothing AndAlso LandBez <> "" AndAlso antrag.UStVAn_AntragArt <> "" Then
If antrag.UStVAn_AntragArt <> "MWST" Then isRMCKunde = False
Dim LandISO2 = ""
If LandBez.Length = 2 Then
LandISO2 = LandBez
@@ -4511,115 +4566,138 @@ Nächste_Textzeile_lesen:
End If
If LeistungsBez.ToString.Contains(LandISO2) AndAlso LeistungsBez.ToString.ToLower.StartsWith(antrag.UStVAn_AntragArt.ToString.ToLower) AndAlso IIf(isVZ, LeistungsBez.ToString.Contains("VZ"), Not LeistungsBez.ToString.Contains("VZ")) Then
If OFFERT_LAND = LandISO2 AndAlso OFFERT_LeistungsBez.ToString.ToLower.StartsWith(antrag.UStVAn_AntragArt.ToString.ToLower) Then
'wenn RMC, dann ebenfalls unterscheiden!
If isRMC Then
If isRMCKunde Then
If (OFFERT_FREMD Or OFFERT_RMC) Then
'aus AntragsPOS die
'aus AntragsPOS die
For Each ANTR_POS As cUStVPositionen In antrag.POSITIONEN
For Each ANTR_POS As cUStVPositionen In antrag.POSITIONEN
If ANTR_POS.UStVPo_Leistender.ToString.ToUpper.StartsWith("RMC") Then
sumRMC += ANTR_POS.UStVPo_USteuerbetragEUR
Else
sumFremdBeleg += ANTR_POS.UStVPo_USteuerbetragEUR
If ANTR_POS.UStVPo_Leistender.ToString.ToUpper.StartsWith("RMC") Then
If isVZ Then
If ANTR_POS.UStVPo_VZ AndAlso (IsDBNull(ANTR_POS.UStVPo_VZ_RKID) Or ANTR_POS.UStVPo_VZ_RKID Is Nothing) Then sumRMC += ANTR_POS.UStVPo_USteuerbetragEUR
Else
If ANTR_POS.UStVPo_VZ_RKID Is Nothing AndAlso (IsDBNull(ANTR_POS.UStVPo_VZ) OrElse Not ANTR_POS.UStVPo_VZ) Then sumRMC += ANTR_POS.UStVPo_USteuerbetragEUR
End If
Else
If isVZ Then
If ANTR_POS.UStVPo_VZ AndAlso (IsDBNull(ANTR_POS.UStVPo_VZ_RKID) Or ANTR_POS.UStVPo_VZ_RKID Is Nothing) Then sumFremdBeleg += ANTR_POS.UStVPo_USteuerbetragEUR
Else
If ANTR_POS.UStVPo_VZ_RKID Is Nothing AndAlso (IsDBNull(ANTR_POS.UStVPo_VZ) OrElse Not ANTR_POS.UStVPo_VZ) Then sumFremdBeleg += ANTR_POS.UStVPo_USteuerbetragEUR
End If
End If
Next
'SPEDBUCH.Abfertigungsart = 114 -> EU
'SPEDBUCH.Abfertigungsart = 115 -> DL Drittland
Dim BEZ_LAND_RMC As String = ""
Select Case SPEDBUCH.Abfertigungsart
Case 114 : BEZ_LAND_RMC = IIf(isVZ, "00", "00-00")
Case 115 : BEZ_LAND_RMC = IIf(isVZ, "DL", "DL-00")
End Select
If (OFFERT_RMC Or OFFERT_FREMD) AndAlso OFFERT_VZ = isVZ AndAlso OFFERT_LeistungsBez.ToString.Contains(BEZ_LAND_RMC) Then
isMWST = True
GoTo mwst
End If
Next
End If
Else
'SPEDBUCH.Abfertigungsart = 114 -> EU
'SPEDBUCH.Abfertigungsart = 115 -> DL Drittland
If isVZ AndAlso OFFERT_VZ Then
Dim BEZ_LAND_RMC As String = ""
Select Case SPEDBUCH.Abfertigungsart
Case 114 : BEZ_LAND_RMC = "00-"
Case 115 : BEZ_LAND_RMC = "DL-00"
End Select
For Each ANTR_POS As cUStVPositionen In antrag.POSITIONEN
If ANTR_POS.UStVPo_VZ AndAlso (IsDBNull(ANTR_POS.UStVPo_VZ_RKID) Or ANTR_POS.UStVPo_VZ_RKID Is Nothing) Then sumBelegVZ += ANTR_POS.UStVPo_USteuerbetragEUR
Next
If LeistungsBez.ToString.Contains("RMC-RG") AndAlso LeistungsBez.ToString.Contains(BEZ_LAND_RMC) Then
isMWST = True
GoTo mwst
ElseIf LeistungsBez.ToString.Contains("FREMD-RG") AndAlso LeistungsBez.ToString.Contains(BEZ_LAND_RMC) Then
ElseIf Not isVZ AndAlso Not OFFERT_VZ Then
For Each ANTR_POS As cUStVPositionen In antrag.POSITIONEN
If ANTR_POS.UStVPo_VZ_RKID Is Nothing AndAlso (IsDBNull(ANTR_POS.UStVPo_VZ) OrElse Not ANTR_POS.UStVPo_VZ) Then sumFremdBeleg += ANTR_POS.UStVPo_USteuerbetragEUR
Next
isMWST = True
GoTo mwst
End If
Else
isMWST = True
GoTo mwst
End If
End If
End If
If LandBez <> "" AndAlso LandNr <> "" Then
If SPEDBUCH.Packstücke.ToString.Replace("Mehrwertsteuerrückerstattung " & LandNr, "MWSt-Rückerstattung " & LandBez).StartsWith(LeistungsBez.ToString) AndAlso LeistungsBez.ToString.StartsWith("MWSt-Rückerstattung") Then
isMWST = True
GoTo mwst
End If
Else
If SPEDBUCH.Packstücke.ToString().Replace("Mehrwertsteuerrückerstattung ", "MWSt-Rückerstattung ").StartsWith(LeistungsBez.ToString) AndAlso LeistungsBez.ToString.StartsWith("MWSt-Rückerstattung") Then
isMWST = True
GoTo mwst
End If
End If
mwst:
If isMWST Then
POS.Anzahl = 1
If isMWST Then
POS.Anzahl = 1
If antrag IsNot Nothing AndAlso antrag.UStVAn_ID > 0 Then
If antrag IsNot Nothing AndAlso antrag.UStVAn_ID > 0 Then
If POS.Preis = 0 Then
If POS.Preis = 0 Then
Dim GesamtUSteuerEUR As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0")
Dim GesamtErstattungEUR As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetragEUR),0)", "tblUStVErstattung", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0")
If isRMCKunde Then
If OFFERT_RMC AndAlso sumRMC <> 0 Then
POS.Preis = sumRMC * -1
ElseIf OFFERT_FREMD AndAlso sumFremdBeleg <> 0 Then
POS.Preis = sumFremdBeleg * -1
End If
Else
If sumBelegVZ <> 0 Then
POS.Preis = sumBelegVZ * -1
Else
Dim GesamtUSteuerEUR As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0")
Dim GesamtErstattungEUR As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetragEUR),0)", "tblUStVErstattung", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0")
Dim DiffernezbetragEUR As Double = GesamtUSteuerEUR - GesamtErstattungEUR
If DiffernezbetragEUR <> 0 Then
POS.Preis = DiffernezbetragEUR * -1
End If
End If
If isRMC Then
If LeistungsBez.ToString.Contains("RMC-RG") AndAlso sumRMC <> 0 Then
POS.Preis = sumRMC * -1
ElseIf LeistungsBez.ToString.Contains("FREMD-RG") AndAlso sumFremdBeleg <> 0 Then
POS.Preis = sumFremdBeleg * -1
End If
Else
Dim DiffernezbetragEUR As Double = GesamtUSteuerEUR - GesamtErstattungEUR
If DiffernezbetragEUR <> 0 Then
POS.Preis = DiffernezbetragEUR * -1
End If
End If
End If
End If
If r.Cells("BGebLeistungsNr").Value IsNot Nothing AndAlso Not IsDBNull(r.Cells("BGebLeistungsNr").Value) AndAlso r.Cells("BGebProzent").Value IsNot Nothing AndAlso Not IsDBNull(r.Cells("BGebProzent").Value) Then
If r.Cells("BGebLeistungsNr").Value IsNot Nothing AndAlso Not IsDBNull(r.Cells("BGebLeistungsNr").Value) AndAlso r.Cells("BGebProzent").Value IsNot Nothing AndAlso Not IsDBNull(r.Cells("BGebProzent").Value) Then
Dim OffertNr As Integer = IIf(IsNumeric(RECHNUNG.OffertenNr), RECHNUNG.OffertenNr, (SPEDBUCH.Abfertigungsart - 100))
If OffertNr < 0 Then OffertNr = 15
Dim OffertNr As Integer = IIf(IsNumeric(RECHNUNG.OffertenNr), RECHNUNG.OffertenNr, (SPEDBUCH.Abfertigungsart - 100))
If OffertNr < 0 Then OffertNr = 15
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(IIf(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, kdFirmaRechnungAn.KdNr), OffertNr, True)
Call prBearbGeb(POS, OFFERTE, RECHNUNG, r.Cells("BGebLeistungsNr").Value, r.Cells("BGebProzent").Value, POS.Preis * If(RECHNUNG.Vorzeichen = "-", -1, 1))
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(IIf(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, kdFirmaRechnungAn.KdNr), OffertNr, True)
Call prBearbGeb(POS, OFFERTE, RECHNUNG, r.Cells("BGebLeistungsNr").Value, r.Cells("BGebProzent").Value, POS.Preis * If(RECHNUNG.Vorzeichen = "-", -1, 1))
End If
End If
End If
End If
End If
End Sub
End Class

1
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.vb
View File

@@ -117,6 +117,7 @@
gebDatum.Visible = True
lblHerrFrau.Text = "Vor - Nachname:"
cbxGebDatu.Visible = True
cbxGebDatu.Checked = False
Else
Label2.Text = "UID-Nr:"

139
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -5174,13 +5174,14 @@ Public Class FormularManagerNEU
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Dim top = 0
If usrCntl.cboPrivatperson.Checked Then top = -2
If usrCntl.cboPrivatperson.Checked Then top = 0
Select Case usrCntl.cboSprache._value
Case "EN"
'Für EN gibts noch kein 'neues' Formular!!!!!
Select Case usrCntl.cbxAntragsart._value
@@ -5227,87 +5228,111 @@ Public Class FormularManagerNEU
Select Case usrCntl.cbxAntragsart._value
Case "Neuzugang"
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 138, 43 + top, 6, 6, "bold", 16, , itextsharp.text.Element.ALIGN_CENTER))
Case "Änderung"
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 138, 50 + top, 6, 6, "bold", 16, , itextsharp.text.Element.ALIGN_CENTER))
Case "Beendigung"
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 138, 57 + top, 6, 6, "bold", 16, , itextsharp.text.Element.ALIGN_CENTER))
End Select
If usrCntl.cboPrivatperson.Checked Then
If usrCntl.DateTimePicker1 IsNot Nothing AndAlso IsDate((usrCntl.DateTimePicker1.Value)) Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Day, 135, 82 + top, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Month, 145, 82 + top, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Year, 157, 82 + top, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
End If
Select Case usrCntl.cbxAntragsart._value
'#Page1
Case "Neuzugang"
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Neuzugang", 20, 112 + top, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Case "Änderung"
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Änderung", 20, 112 + top, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Case "Beendigung"
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Beendigung", 20, 112 + top, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
End Select
'#Page1
If usrCntl.gebDatum IsNot Nothing AndAlso IsDate((usrCntl.gebDatum.Value)) AndAlso usrCntl.cbxGebDatu.Checked Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.gebDatum.Value).Day, 25, 133, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.gebDatum.Value).Month, 35, 133, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.gebDatum.Value).Year, 47, 133, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.gebDatum.Value).ToShortDateString, 20, 185 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.gebDatum.Value).Day, 25, 133, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.gebDatum.Value).Month, 35, 133, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.gebDatum.Value).Year, 47, 133, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
End If
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 25, 84 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 25, 103, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'Splittung von Vor und Nachname
If usrCntl.txtHerrFrau.Text <> "" Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text.Substring(0, usrCntl.txtHerrFrau.Text.IndexOf(" ")).Trim, 25, 96, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text.Substring(usrCntl.txtHerrFrau.Text.IndexOf(" "), usrCntl.txtHerrFrau.TextLength - usrCntl.txtHerrFrau.Text.IndexOf(" ")).Trim(), 25, 113, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text.Substring(0, usrCntl.txtHerrFrau.Text.IndexOf(" ")).Trim, 20, 155 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text.Substring(usrCntl.txtHerrFrau.Text.IndexOf(" "), usrCntl.txtHerrFrau.TextLength - usrCntl.txtHerrFrau.Text.IndexOf(" ")).Trim(), 20, 171 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
End If
'#Page1
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtOrt.Text, 25, 158, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 25, 166, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.MyTextBox2.Text, 25, 177, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLand.Text, 25, 147, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPLZ.Text, 45, 147, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
If usrCntl.DateTimePicker1 IsNot Nothing AndAlso IsDate((usrCntl.DateTimePicker1.Value)) Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).ToShortDateString, 20, 141, 50, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Day, 20, 155, 10, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Month, 25, 155, 10, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Year, 30, 155, 10, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
End If
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 25, 226, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 25, 210, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 20, 127 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 20, 175 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 25, 110 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 25, 184, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtOrt.Text, 20, 238 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 20, 254 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLand.Text, 20, 210 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPLZ.Text, 20, 224 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.MyTextBox2.Text, 20, 267 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'#Page2
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 20, 63 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 20, 76 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, 20, 219, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2))
Else
Select Case usrCntl.cbxAntragsart._value
'#Page1
Case "Neuzugang"
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Neuzugang", 20, 125 + top, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Case "Änderung"
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Änderung", 20, 125 + top, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Case "Beendigung"
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Beendigung", 20, 125 + top, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
End Select
'#Page1
If usrCntl.DateTimePicker1 IsNot Nothing AndAlso IsDate((usrCntl.DateTimePicker1.Value)) Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Day, 135, 82, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Month, 145, 82, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Year, 157, 82, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).ToShortDateString, 20, 155, 50, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Day, 20, 155, 10, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Month, 25, 155, 10, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Year, 30, 155, 10, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
End If
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 25, 84, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 25, 103, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 20, 140, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 20, 175, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 25, 110, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'#Page2
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtOrt.Text, 20, 60, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 20, 75, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLand.Text, 20, 30, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPLZ.Text, 20, 45, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 20, 158, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 20, 143, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.MyTextBox2.Text, 20, 90, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtOrt.Text, 25, 216, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 25, 226, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.MyTextBox2.Text, 25, 238, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLand.Text, 25, 205, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPLZ.Text, 45, 205, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'#Page3
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 25, 191, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 25, 173, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 25, 184, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 20, 212, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 3))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, 20, 196, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 3))
End If

362
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -1650,192 +1650,210 @@ Public Class usrCntlSpeditionsBuchSuche
' MsgBox(sqlstr)
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", , getSpedbuchList())
Dim print As New frmPrintLayout
print.Text = "Handling / Front-Office"
Dim rpt As New rptSpeditionsbericht_HandlingAussenstellen
Dim header = "Handling / Front-Office "
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Label28.Text = "IMEX Customs Service GmbH"
Case "ATILLA" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "ATILLA Spedition"
Case "AMBAR" : rpt.picVERAG.Image = My.Resources.ambar_simple : rpt.Label28.Text = "AMBAR Logistc Services GmbH" : print.Text = "Handling / AMBAR Bad Reichenhall"
Case "IMEX" : header &= "IMEX Customs Service GmbH"
Case "ATILLA" : header &= "ATILLA Spedition"
Case "AMBAR" : header = "AMBAR Logistc Services GmbH - Handling / AMBAR Bad Reichenhall"
Case Else
End Select
rpt.DataSource = dt
If vbYes = MsgBox("Möchten Sie den Bericht ZUSÄTZLICH als Excel exportieren?", vbYesNoCancel) Then
If CheckBox1.Checked Then
rpt.GroupHeader1.DataField = "Abfertigungsart" 'Gruppierung
End If
If rpt.DataSource.rows.count = 0 Then
rpt.Dispose() : print.Dispose()
MsgBox("Keine Daten vorhanden!")
Return ""
End If
Dim sum = 0
rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
Dim defaultHandlingPreis As Double = 15
Dim HandlingList As VERAG_PROG_ALLGEMEIN.cHandlingssaetzeInternLIST = Nothing
If Handlingssatz <> "" Then
HandlingList = New VERAG_PROG_ALLGEMEIN.cHandlingssaetzeInternLIST(Handlingssatz)
End If
'Dim cnt As Integer = 0
rpt.lblDat.Text = Now.ToLongDateString
'Dim sumRg As Double = 0
'Dim gesSumAnz As Double = 0
'Dim gesSumBar As Double = 0
'Dim gesSumRg As Double = 0
'Dim gesgesSumAnz As Double = 0
'Dim gesgesSumBar As Double = 0
'Dim gesgesSumRg As Double = 0
'Dim SumAnzLKW As Double = 0
'Dim gesSumAnzLKW As Double = 0
'Dim gesgesSumAnzLKW As Double = 0
Dim gesAnz As Double = 0
Dim gesBar As Double = 0
Dim geshandling As Double = 0
Dim geszukassBAR As Double = 0
Dim sumAnz As Double = 0
Dim sumBar As Double = 0
Dim sumhandling As Double = 0
Dim sumzukassBAR As Double = 0
Dim sumAbfBez = ""
Dim gesFilBez = ""
' Dim gesgesAbfBez = ""
Dim SumText = ""
AddHandler rpt.Detail.Format, Sub()
' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
rpt.lblPosNr.Text = rpt.Fields.Item("FilialenNr").Value & " " & rpt.Fields.Item("AbfertigungsNr").Value & " " & rpt.Fields.Item("UnterNr").Value
rpt.lblAbfDatum.Text = rpt.Fields.Item("Abfertigungsdatum").Value
rpt.lblEndEmpfKdNr.Text = checkNull(rpt.Fields.Item("EmpfängerKundenNr").Value)
rpt.lblEndEmpf.Text = checkNull(rpt.Fields.Item("Empfänger").Value)
Dim bar As Double = 0
Dim handling As Double = 0
Dim zukassBAR As Double = 0
' Dim rg As Double = 0
Dim anz As Double = 0
If IsNumeric(checkNull(rpt.Fields.Item("Barzahlungsbetrag").Value)) Then bar = CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value())
If IsNumeric(checkNull(rpt.Fields.Item("HandlingZuKassieren").Value)) Then zukassBAR = CDbl(rpt.Fields.Item("HandlingZuKassieren").Value())
' If IsNumeric(checkNull(rpt.Fields.Item("Rechnungsbetrag").Value)) Then rg = CDbl(rpt.Fields.Item("Rechnungsbetrag").Value())
If IsNumeric(checkNull(rpt.Fields.Item("Abfertigungsanzahl").Value)) Then anz = CDbl(rpt.Fields.Item("Abfertigungsanzahl").Value)
Dim Abfertigungsart = checkNull(rpt.Fields.Item("Abfertigungsart").Value)
handling = getHandlingKostByListe(Abfertigungsart, defaultHandlingPreis, HandlingList) * anz
' rpt.lblLKWNr.Text = checkNull(rpt.Fields.Item("LKW Kennzeichen").Value)
rpt.lblAnzahl.Text = checkNull(rpt.Fields.Item("Abfertigungsanzahl").Value)
rpt.lblAbfertigungsart.Text = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
' rpt.lblAbs.Text = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
rpt.lblBarzahlungsbetrag.Text = CDbl(bar).ToString("C2")
rpt.lblzuKassierenHandling.Text = CDbl(zukassBAR).ToString("C2")
rpt.lblHandlingsgebuehr.Text = CDbl(handling).ToString("C2")
'sumBar += CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value)
sumAbfBez = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "AMBAR"
rpt.lblBarzahlungsbetrag.Visible = False
rpt.lblzuKassierenHandling.Visible = False
End Select
sumAnz += anz
sumBar += bar
sumhandling += handling
sumzukassBAR += zukassBAR
gesAnz += anz
gesBar += bar
geshandling += handling
geszukassBAR += zukassBAR
End Sub
Dim bezeichnung = ""
AddHandler rpt.ReportFooter1.Format, Sub()
rpt.lblGesGesSumAnzahl.Text = sumAnz.ToString("N0")
rpt.lblSumBarzahlungsbetrag.Text = sumBar.ToString("N2")
rpt.lblSumzuKassierenHandling.Text = sumzukassBAR.ToString("N2")
rpt.lblSumHandlingsgebuehr.Text = sumhandling.ToString("N2")
rpt.txtUebersicht.Text = SumText
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "AMBAR"
rpt.lblSumBarzahlungsbetrag.Visible = False
rpt.lblSumzuKassierenHandling.Visible = False
End Select
End Sub
AddHandler rpt.GroupHeader1.Format, Sub()
rpt.lblAbfArtUeberschrift.Text = checkNull(rpt.Fields.Item("Abfertigungsart").Value) & " - " & checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
bezeichnung = rpt.lblAbfArtUeberschrift.Text
gesAnz = 0
gesBar = 0
geshandling = 0
geszukassBAR = 0
End Sub
AddHandler rpt.GroupFooter1.Format, Sub()
rpt.lblGesSumAnzahl.Text = gesAnz.ToString("N0")
rpt.lblGesBarzahlungsbetrag.Text = gesBar.ToString("N2")
rpt.lblGeszuKassierenHandling.Text = geszukassBAR.ToString("N2")
rpt.lblGesHandlingsgebuehr.Text = geshandling.ToString("N2")
SumText &= gesAnz.ToString("N0") & vbTab & bezeichnung & vbNewLine
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "AMBAR"
rpt.lblGesBarzahlungsbetrag.Visible = False
rpt.lblGeszuKassierenHandling.Visible = False
End Select
End Sub
If showDok Then
print.Viewer.LoadDocument(rpt)
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
print.Show()
Else
Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("HandlingFO.pdf", ".pdf", True, False)
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
rpt.Run(False)
p.NeverEmbedFonts = ""
p.Export(rpt.Document, tmpPath)
rpt.Dispose()
Return tmpPath
cProgramFunctions.genExcelFromDT_NEW(dt,,, header)
End If
Dim print As New frmPrintLayout
print.Text = "Handling / Front-Office"
Dim rpt As New rptSpeditionsbericht_HandlingAussenstellen
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Label28.Text = "IMEX Customs Service GmbH"
Case "ATILLA" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "ATILLA Spedition"
Case "AMBAR" : rpt.picVERAG.Image = My.Resources.ambar_simple : rpt.Label28.Text = "AMBAR Logistc Services GmbH" : print.Text = "Handling / AMBAR Bad Reichenhall"
Case Else
End Select
rpt.DataSource = dt
End If
Return ""
If CheckBox1.Checked Then
rpt.GroupHeader1.DataField = "Abfertigungsart" 'Gruppierung
End If
If rpt.DataSource.rows.count = 0 Then
rpt.Dispose() : print.Dispose()
MsgBox("Keine Daten vorhanden!")
Return ""
End If
Dim sum = 0
rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
Dim defaultHandlingPreis As Double = 15
Dim HandlingList As VERAG_PROG_ALLGEMEIN.cHandlingssaetzeInternLIST = Nothing
If Handlingssatz <> "" Then
HandlingList = New VERAG_PROG_ALLGEMEIN.cHandlingssaetzeInternLIST(Handlingssatz)
End If
'Dim cnt As Integer = 0
rpt.lblDat.Text = Now.ToLongDateString
'Dim sumRg As Double = 0
'Dim gesSumAnz As Double = 0
'Dim gesSumBar As Double = 0
'Dim gesSumRg As Double = 0
'Dim gesgesSumAnz As Double = 0
'Dim gesgesSumBar As Double = 0
'Dim gesgesSumRg As Double = 0
'Dim SumAnzLKW As Double = 0
'Dim gesSumAnzLKW As Double = 0
'Dim gesgesSumAnzLKW As Double = 0
Dim gesAnz As Double = 0
Dim gesBar As Double = 0
Dim geshandling As Double = 0
Dim geszukassBAR As Double = 0
Dim sumAnz As Double = 0
Dim sumBar As Double = 0
Dim sumhandling As Double = 0
Dim sumzukassBAR As Double = 0
Dim sumAbfBez = ""
Dim gesFilBez = ""
' Dim gesgesAbfBez = ""
Dim SumText = ""
AddHandler rpt.Detail.Format, Sub()
' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
rpt.lblPosNr.Text = rpt.Fields.Item("FilialenNr").Value & " " & rpt.Fields.Item("AbfertigungsNr").Value & " " & rpt.Fields.Item("UnterNr").Value
rpt.lblAbfDatum.Text = rpt.Fields.Item("Abfertigungsdatum").Value
rpt.lblEndEmpfKdNr.Text = checkNull(rpt.Fields.Item("EmpfängerKundenNr").Value)
rpt.lblEndEmpf.Text = checkNull(rpt.Fields.Item("Empfänger").Value)
Dim bar As Double = 0
Dim handling As Double = 0
Dim zukassBAR As Double = 0
' Dim rg As Double = 0
Dim anz As Double = 0
If IsNumeric(checkNull(rpt.Fields.Item("Barzahlungsbetrag").Value)) Then bar = CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value())
If IsNumeric(checkNull(rpt.Fields.Item("HandlingZuKassieren").Value)) Then zukassBAR = CDbl(rpt.Fields.Item("HandlingZuKassieren").Value())
' If IsNumeric(checkNull(rpt.Fields.Item("Rechnungsbetrag").Value)) Then rg = CDbl(rpt.Fields.Item("Rechnungsbetrag").Value())
If IsNumeric(checkNull(rpt.Fields.Item("Abfertigungsanzahl").Value)) Then anz = CDbl(rpt.Fields.Item("Abfertigungsanzahl").Value)
Dim Abfertigungsart = checkNull(rpt.Fields.Item("Abfertigungsart").Value)
handling = getHandlingKostByListe(Abfertigungsart, defaultHandlingPreis, HandlingList) * anz
' rpt.lblLKWNr.Text = checkNull(rpt.Fields.Item("LKW Kennzeichen").Value)
rpt.lblAnzahl.Text = checkNull(rpt.Fields.Item("Abfertigungsanzahl").Value)
rpt.lblAbfertigungsart.Text = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
' rpt.lblAbs.Text = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
rpt.lblBarzahlungsbetrag.Text = CDbl(bar).ToString("C2")
rpt.lblzuKassierenHandling.Text = CDbl(zukassBAR).ToString("C2")
rpt.lblHandlingsgebuehr.Text = CDbl(handling).ToString("C2")
'sumBar += CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value)
sumAbfBez = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "AMBAR"
rpt.lblBarzahlungsbetrag.Visible = False
rpt.lblzuKassierenHandling.Visible = False
End Select
sumAnz += anz
sumBar += bar
sumhandling += handling
sumzukassBAR += zukassBAR
gesAnz += anz
gesBar += bar
geshandling += handling
geszukassBAR += zukassBAR
End Sub
Dim bezeichnung = ""
AddHandler rpt.ReportFooter1.Format, Sub()
rpt.lblGesGesSumAnzahl.Text = sumAnz.ToString("N0")
rpt.lblSumBarzahlungsbetrag.Text = sumBar.ToString("N2")
rpt.lblSumzuKassierenHandling.Text = sumzukassBAR.ToString("N2")
rpt.lblSumHandlingsgebuehr.Text = sumhandling.ToString("N2")
rpt.txtUebersicht.Text = SumText
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "AMBAR"
rpt.lblSumBarzahlungsbetrag.Visible = False
rpt.lblSumzuKassierenHandling.Visible = False
End Select
End Sub
AddHandler rpt.GroupHeader1.Format, Sub()
rpt.lblAbfArtUeberschrift.Text = checkNull(rpt.Fields.Item("Abfertigungsart").Value) & " - " & checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
bezeichnung = rpt.lblAbfArtUeberschrift.Text
gesAnz = 0
gesBar = 0
geshandling = 0
geszukassBAR = 0
End Sub
AddHandler rpt.GroupFooter1.Format, Sub()
rpt.lblGesSumAnzahl.Text = gesAnz.ToString("N0")
rpt.lblGesBarzahlungsbetrag.Text = gesBar.ToString("N2")
rpt.lblGeszuKassierenHandling.Text = geszukassBAR.ToString("N2")
rpt.lblGesHandlingsgebuehr.Text = geshandling.ToString("N2")
SumText &= gesAnz.ToString("N0") & vbTab & bezeichnung & vbNewLine
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "AMBAR"
rpt.lblGesBarzahlungsbetrag.Visible = False
rpt.lblGeszuKassierenHandling.Visible = False
End Select
End Sub
If showDok Then
print.Viewer.LoadDocument(rpt)
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
print.Show()
Else
Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("HandlingFO.pdf", ".pdf", True, False)
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
rpt.Run(False)
p.NeverEmbedFonts = ""
p.Export(rpt.Document, tmpPath)
rpt.Dispose()
Return tmpPath
End If
End If
Return ""
End Function
Function getHandlingKostByListe(AbfertigungsArt As Integer, defaultHandlingPreis As Double, HandlingList As VERAG_PROG_ALLGEMEIN.cHandlingssaetzeInternLIST) As Double

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

@@ -23,9 +23,9 @@ Partial Class frmMDM_USTVAntrag
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim 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()
Me.pnlBottom = New System.Windows.Forms.Panel()
Me.pb_Beleg = New System.Windows.Forms.PictureBox()
Me.Button5 = New System.Windows.Forms.Button()
@@ -112,7 +112,6 @@ Partial Class frmMDM_USTVAntrag
Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.pnlAntragsPosDetails = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.cbxKIUploaddelete = New System.Windows.Forms.CheckBox()
Me.scanUSTVA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
@@ -123,13 +122,18 @@ Partial Class frmMDM_USTVAntrag
Me.Panel3 = New System.Windows.Forms.Panel()
Me.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.pnlErstattungsdetails = New System.Windows.Forms.Panel()
Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
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_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.pnlBottom.SuspendLayout()
CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -152,6 +156,7 @@ Partial Class frmMDM_USTVAntrag
CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlErstattungsdetails.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.cns_vorauszahlen.SuspendLayout()
Me.SuspendLayout()
'
'pnlBottom
@@ -178,7 +183,7 @@ Partial Class frmMDM_USTVAntrag
'
'pb_Beleg
'
Me.pb_Beleg.Image = Global.SDL.My.Resources.Resources.pdf
Me.pb_Beleg.Image = CType(resources.GetObject("pb_Beleg.Image"), System.Drawing.Image)
Me.pb_Beleg.Location = New System.Drawing.Point(899, 60)
Me.pb_Beleg.Name = "pb_Beleg"
Me.pb_Beleg.Size = New System.Drawing.Size(35, 35)
@@ -237,7 +242,7 @@ Partial Class frmMDM_USTVAntrag
'
'picExcel
'
Me.picExcel.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.picExcel.Image = CType(resources.GetObject("picExcel.Image"), System.Drawing.Image)
Me.picExcel.Location = New System.Drawing.Point(1158, 17)
Me.picExcel.Name = "picExcel"
Me.picExcel.Size = New System.Drawing.Size(35, 35)
@@ -259,7 +264,7 @@ Partial Class frmMDM_USTVAntrag
'
'picPDF
'
Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf
Me.picPDF.Image = CType(resources.GetObject("picPDF.Image"), System.Drawing.Image)
Me.picPDF.Location = New System.Drawing.Point(1211, 17)
Me.picPDF.Name = "picPDF"
Me.picPDF.Size = New System.Drawing.Size(35, 35)
@@ -284,7 +289,7 @@ Partial Class frmMDM_USTVAntrag
Me.btnAntrageeinarbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAntrageeinarbeiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnAntrageeinarbeiten.ForeColor = System.Drawing.Color.Black
Me.btnAntrageeinarbeiten.Image = Global.SDL.My.Resources.Resources.plus
Me.btnAntrageeinarbeiten.Image = CType(resources.GetObject("btnAntrageeinarbeiten.Image"), System.Drawing.Image)
Me.btnAntrageeinarbeiten.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAntrageeinarbeiten.Location = New System.Drawing.Point(12, 29)
Me.btnAntrageeinarbeiten.Name = "btnAntrageeinarbeiten"
@@ -1455,8 +1460,8 @@ Partial Class frmMDM_USTVAntrag
Me.dgvUSTVPositionen.AKTUALISIERUNGS_INTERVALL = 500
Me.dgvUSTVPositionen.AllowUserToAddRows = False
Me.dgvUSTVPositionen.AllowUserToDeleteRows = False
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
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
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)
@@ -1492,14 +1497,6 @@ Partial Class frmMDM_USTVAntrag
Me.Panel2.Size = New System.Drawing.Size(1438, 263)
Me.Panel2.TabIndex = 1
'
'UstCntlUSTV_AntragPosition1
'
Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
'
'Panel4
'
Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
@@ -1551,7 +1548,7 @@ Partial Class frmMDM_USTVAntrag
'
Me.btnPDFauslesen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPDFauslesen.ForeColor = System.Drawing.Color.Black
Me.btnPDFauslesen.Image = Global.SDL.My.Resources.Resources.pdf_s
Me.btnPDFauslesen.Image = CType(resources.GetObject("btnPDFauslesen.Image"), System.Drawing.Image)
Me.btnPDFauslesen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnPDFauslesen.Location = New System.Drawing.Point(4, 186)
Me.btnPDFauslesen.Name = "btnPDFauslesen"
@@ -1565,7 +1562,7 @@ Partial Class frmMDM_USTVAntrag
'
Me.btnEintragloeschen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnEintragloeschen.ForeColor = System.Drawing.Color.Black
Me.btnEintragloeschen.Image = Global.SDL.My.Resources.Resources.del
Me.btnEintragloeschen.Image = CType(resources.GetObject("btnEintragloeschen.Image"), System.Drawing.Image)
Me.btnEintragloeschen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnEintragloeschen.Location = New System.Drawing.Point(6, 50)
Me.btnEintragloeschen.Name = "btnEintragloeschen"
@@ -1579,7 +1576,7 @@ Partial Class frmMDM_USTVAntrag
'
Me.btnNeuerEintrag.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNeuerEintrag.ForeColor = System.Drawing.Color.Black
Me.btnNeuerEintrag.Image = Global.SDL.My.Resources.Resources.plus
Me.btnNeuerEintrag.Image = CType(resources.GetObject("btnNeuerEintrag.Image"), System.Drawing.Image)
Me.btnNeuerEintrag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnNeuerEintrag.Location = New System.Drawing.Point(6, 5)
Me.btnNeuerEintrag.Name = "btnNeuerEintrag"
@@ -1617,8 +1614,8 @@ Partial Class frmMDM_USTVAntrag
Me.dgvErstattungspositionen.AKTUALISIERUNGS_INTERVALL = 500
Me.dgvErstattungspositionen.AllowUserToAddRows = False
Me.dgvErstattungspositionen.AllowUserToDeleteRows = False
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
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
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)
@@ -1645,14 +1642,6 @@ Partial Class frmMDM_USTVAntrag
Me.pnlErstattungsdetails.Size = New System.Drawing.Size(1436, 261)
Me.pnlErstattungsdetails.TabIndex = 0
'
'UstCntlUSTV_AntragErstattungen1
'
Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
@@ -1669,7 +1658,7 @@ Partial Class frmMDM_USTVAntrag
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.Black
Me.Button2.Image = Global.SDL.My.Resources.Resources.del
Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image)
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(6, 50)
Me.Button2.Name = "Button2"
@@ -1683,7 +1672,7 @@ Partial Class frmMDM_USTVAntrag
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.Black
Me.Button3.Image = Global.SDL.My.Resources.Resources.plus
Me.Button3.Image = CType(resources.GetObject("Button3.Image"), System.Drawing.Image)
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(6, 5)
Me.Button3.Name = "Button3"
@@ -1708,6 +1697,47 @@ Partial Class frmMDM_USTVAntrag
Me.cnS_KIUPLOAD.Name = "ContextMenuStrip1"
Me.cnS_KIUPLOAD.Size = New System.Drawing.Size(61, 4)
'
'cns_vorauszahlen
'
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)
'
'UstCntlUSTV_AntragPosition1
'
Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
'
'UstCntlUSTV_AntragErstattungen1
'
Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
'
'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(180, 22)
Me.VorauszahlungToolStripMenuItem.Text = "Vorauszahlung"
'
'AktivierenToolStripMenuItem
'
Me.AktivierenToolStripMenuItem.Name = "AktivierenToolStripMenuItem"
Me.AktivierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.AktivierenToolStripMenuItem.Text = "aktivieren"
'
'DeaktivierenToolStripMenuItem
'
Me.DeaktivierenToolStripMenuItem.Name = "DeaktivierenToolStripMenuItem"
Me.DeaktivierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.DeaktivierenToolStripMenuItem.Text = "deaktivieren"
'
'frmMDM_USTVAntrag
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1750,6 +1780,7 @@ Partial Class frmMDM_USTVAntrag
CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlErstattungsdetails.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.cns_vorauszahlen.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
@@ -1858,4 +1889,8 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents Label17 As Label
Friend WithEvents txtRZ As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxRGretour As CheckBox
Friend WithEvents cns_vorauszahlen As ContextMenuStrip
Friend WithEvents VorauszahlungToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AktivierenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DeaktivierenToolStripMenuItem As ToolStripMenuItem
End Class

349
SDL/USTV/frmMDM_USTVAntrag.resx
View File

@@ -117,6 +117,351 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<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
</value>
</data>
<data name="picExcel.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
/HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEgAACxIB0t1+/AAAB4JJREFUSEu9lntM1FcW
x0+yNWpdBURGEJ0ZXtVqZX0hFJAB5gVILVbQTRCQ1wwDw7wYGMSCgiI+IoivtbpBwOLqqnUXq30YlVrX
bXAFu6Ua2ShG0jVoq1ZFwQffzb3zhG22/+0vOZnf3Nz8Pjn3nPs9X1qx10yqpnWU27iOEuo0pG6qpMKP
qyljXxkpt6hozdF6qvxkN2XuW0OymiwqO1I33tBUPTNhsypTUpVuydhTOi5jTynNL08mQUEkiQwyEhql
JDLKSGiQ8vDKj6AZlkTa+WULEQOqmytJ3VRFS+q1ZDq8hdYc304FTRsosTZ/jKll89zcP1YslW/K3hi8
Oul4WMXvu98pThwQF0oxMScU49Ln0ERVKPnqY8jPpPh1YNaBctIdqqG85vWTFdtUipQ9ppKEWs3e8PWp
l2aUJj4IMsdhilYCL00ED7echZikCoN3XiQC9cp7PgVRNC53PnnkhVlDHUbueaH83V0dyuONjNnkV6Sg
Q5dOEUXUpJUvqFrRPfPD94dEZjkm66PgWRABz/xweOsk8NZGYaouBkK9FNN0sZhWGAuhNhpTNFEIMsRh
9pqkrgCzsj3IHN8eVBw//NcWgUVx7f5FivaCpg16EhiiWgWGKHgbYyA0yyEqkkNcJIfIJIfQKIOIhV7K
gUJdLISFMRBqY+CWtQBBxji8ev0a9mfw5Qs8Gxxw/Lc/T5734+DFVlDqjNPkZ1E2+JUoIWZRrITIrHAA
OYyFwRVozdA9OwTTjfG42deLu4/uo+deL4aGhjjgVl8vfnh4D7fv/4CH/T/ztbbr7RiVGdxAfpa4BnGJ
gsPExQqIRwINUgeQHakVGAORNha++RK8mT0fb+bMB8W7YdeZQzjW/gVIOR5js+eBkrwhqc7gwM+//Rpj
s+cyoLKBZ8cztAKn6KN5iE1yiI0yuOWGYPSqOfDVRkOkk3Igi6kF0ZiUH8GDlk7BR+eO4MSVs6D3J1vX
VgRAuUXFgZ+5Au1HKipWIKAkHp4F4fitKgRCoxReBRGYZXkPi7fmYXrxYvjkR/Ej9cheiLeMcbhy63tc
//ct/vvjk4d49OwJrtzqQlfvv9DRcw037/Vy4MnO8yxr65HagQJ9FAJLE/gH2q5fBq2cAV9dNB4/f8o/
5pETAoEmgmfHulRUKEVSnRYf7NAjvCIFn3a24WJ3B8LLk7G0XofI9SthOVLLgaevXrBnyGpoBU4zy0Er
p+PbOzf4Js/8CKTtLeXvuoM1oGUix5H66WQcyo6PlghAcwgbW/eh8eu/gGaTdS2UEGSOt9bwnxdtwBJn
DVmmo7KCEVGdxjcduHAC3/V24+lAP0alvwNBfiRvmmnaGK4ygQYlr8356+042dmGOz/dRd/PP6K14xzO
fv8NTl29gH/0dPFvseyH19ClSyk1CGe+u8Q3sievYS0oWQyxQeboUoEqAv56ObZ+2oDtXzRj7bEd6Lx9
HTfu9qDiaD3qPm9G1Yk9OPzNZ/wbp65+Za/h8HsYWBIPSp6K5buMfOPAy0G45S7EBNXCYdfCXyeHj2YR
SDYWJB0NCiBUHN+J/W3HQH5kXZtFXKmcRzqiaRiQqQ2lvsWPxP5omzaAkkUQG+QOoJc6HP56BbaecmbY
cfsabty9jbWuGf79lDXDTpYhr6ET6FcSB0p/G3Hb8vimui8/xs2+O3g68AxjMn7HxdsubZ65YQg02mp4
rR0nO847anjSUcOvcPmWs4ZjsmxNYwf6mmIxOisY9x8/4JtouRilf7a2tbFlM+iDac4uLfzlLm1iXRps
69IwQlDxyC61S1uJEhM0oYjcmIafnjxC899aQUu8MGv1Ei7QTJgn54VjkjqcA335PYy13sP6/3UPt3Eg
u4c8Q7FLDZnSsKbx0Uvgpl4IoUmGSZpwhJSnIGWHEbMsS+CtWcSBHjkjlKbHpjT9T3Clx0Vp+uxKw67F
iC5lv2w8TdZFWbW0SMkFfFz2PPwmfTYfxGKdzKalsVxL3dShcFeHgt7zwh/OHsYnl8+AFk/k65QshLQm
iwNZrW01dCrNyGkxfB7GOsYTu/jCAibeMfAplMBHJwGliLD//DH8teMcaNlUvk6p05G4TeMA/pe0jQSK
TFagkI8nV2A0JmQtwAxTAh4/e4oXr17i2Qvn4GXvL1+9xPMXg441Pg9XBTeQwCAZPvHNbOIr+GiyA39p
ALtlhfCJ3z/43AkaHOBXyPV5PTRknfisCVOnn6bwjczTLHfxNBI+nphws6PyLnR6GleLwT2NMQ7BZUld
AUVxVh8zwssM8zQmRbuWeZrMAx9SYUsNqZuruGtL3m0sSajN2/suc22WxAeB5niba4uEQBMJd+7a3uXd
GmiwubacBeThcGrW8FA7/7+REUz+dte2fG8RqZoqeTBfavzTZio7tp3yG9fT4lrNGGPLprk5+8uXyhy+
dEX3rGG+dC5NVIXZfKmchMyXGmQkMti9qYy88iPpbbsvZUDmunMa13LnrWpcR9qD1ZT+0WpSbMmlsqN1
tO74Tlq1r4w779WHa8frGqtnxm/KzZRUplnSd1vGpe8qoXnly0igXfTrQKZg/8/4D84DciO4yFz1AAAA
AElFTkSuQmCC
</value>
</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
</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==
</value>
</data>
<data name="btnPDFauslesen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
/HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEgAACxIB0t1+/AAABM1JREFUOE9dU3tM01cU
PjDIeGjymyTMQDFz6MwGIWJJKNBNrXGG+MfiNDPGqIMCnfjPGNMUjQlla9PiLEJnE17hJSDWKoKKrQUH
OFcYNjhfCKaIggg+ECwtLbTf8vsB9fElX+65557z5Zx77qUgHx8KpnkEEFHqhg2xlwcHW5q6uuoazeba
Zoultun69drLFkut4fbt2qu9vef1zc0qWW4uc/LkSdJoNFRWVkZbt24lgUBAlBMente5du2dc19+9Zcu
NPRKT0JC//iuXXgskeBOSgo6RCJcE4th3LMHTTt2oGLLFuhVKrT39HSqVKqAgoICKi8vfyvYGB19BSmp
wPr1wL69mGtowPCBAxhWKnE3IwP/bNqE3rw8lDEMjhPhMBEkAgGeuVwwd3VdUigUH5eWlr4VrFm58iy+
34bRL1bjmVgM2927mO1/gP58FSxiMVg8M5lQ/9lKlBFxojkiEe49f86dDQwMtGu12oDk5OQFwcjPL2D7
driiooHsbNiqa9DHi4CttRXDajVeVFbCsns3qohQSwQ1EeTbtsH88CG0Wi30ej27Nm/cuNGXz+cTqcPC
9GN8PixRUbgZE+NpCwnBGSJcEIlQER2NfD8//L5kCY6ylZEPdhMhd+dOPHr5EpWVlSgqKkJLSwukUumJ
5OTkSPrEx2fNp0TfMkTfENEqkTDp6IP792CsqUFLQwMMFy/BaDSiuVCDixUVaG5rw3+9vZi22TA1NYVX
r15xrZtMJoNMJttA/kTkt/BsyNeX0rKzv+Mi3oHH6YT9sgHusXFu7/Z4ODGbzQa73c75jEajTi6XCyiI
iAKJiLd8Oa1es4Yy0tNT2IAZhwNTk5NcIpsypDqGpzo9Z0++fo03b954ycJgMMwLstWtCguj+MRECufx
KDU19Uc2wOVyYXp6mmttDsDT4lI8/VPL2Zx/ge9WqFAoBBQRFkaChATix8VReHg4icViTnBubg4OhwMO
p5NLGP5NAWv6fs6eAeCw27nzmRl2944g+3bYcbPk8XiUlpbGCXo8Hi6YrcjW/S9G/1Bj4uw5jBVqOAEW
7gUuCiqVyrdiHwqycLpc3DqqUGKi8QJnj+TK8eTnbEy1XsP0/T7MWAc5v6mtTZefny+gdevWecm2vHiH
i7B1/o2Rw0cxOzYOm6UX9r4HeFF9Co/TMzHyqxTjx08AT4Zx7WaP7phaLaC4uDgvV6xYQWkLd8jCPTmF
kaxDmL5hnnd43IB7sUl2crOYvd8HOBwwdXaeUR3Lj39fMCKC0vf/ND/lG2aMZksxUX2Ky7XcuoV7fX14
NDSE9vZ2ON1udJjNsDsc3Hl3d/f5+vr6pPcEI3g8yvglax/YHyBTYKKm3lvMkSNHIJFIoNFosHffXu/K
/ufT9adRUlLSKJFIviahUOhlZGQkHTx4aP5tfIDi4mJkZmZyAiqlCtIcKWR5MkgyJNDpdOjo6DBkZWWJ
uEEsMiAggDZv3vzDTYvF0d7dNWhsbbWarl61NjU1Wauqqqx1dXVWuVxuLSwstJaXl1sLThRYtVrtoNFo
dBYVFZWIxWL+4i/2IjAw8KOgoKBlwcHByxiGYZYuXcqEhIQwUVFRTExMDCMUCpn4+HgmNjaWSUxMZJKS
kpjQ0NAQPz+/QH9/f9//AVN1wJJj0CczAAAAAElFTkSuQmCC
</value>
</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==
</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==
</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==
</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==
</value>
</data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
@@ -126,7 +471,9 @@
<metadata name="cnS_KIUPLOAD.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>330, 17</value>
</metadata>
<assembly alias="System.Drawing" name="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>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA

121
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -78,7 +78,7 @@ Public Class frmMDM_USTVAntrag
' left join [tblUStVLeistender] as leist on leist.UStV_Leistender = [tblUStVPositionen].[UStVPo_Leistender]
' where UStVAn_ID='" & UStVAn_ID & "' ORDER BY UStVPo_ID", "FMZOLL")
.SET_SQL("SELECT [UStVAn_ID] ,[UStVPo_ID] ,[UStVPo_ReDat],[UStVPo_ReNr],[UStVPo_Leistungsbezeichnung],[UStVPo_Leistender],leist.[UstV_Leistender_Strasse] + ' ' + leist.[UstV_Leistender_StrasseNr] as [UstV_Leistender_Strasse],leist.[UstV_Leistender_PLZ],leist.[UstV_Leistender_Stadt],leist.[UstV_Leistender_Land],leist.[UstV_Leistender_UstNr],[UStVPo_USteuerbetrag],[UStVPo_Schnittstelle],[UStVPo_SchnittstellenNr],[UStVPo_Umrechnungskurs],[UStVPo_USteuerbetragEUR],[UStVPo_Sachbearbeiter], [UStVPo_daId], [UStVPo_daId_loeschbar]
.SET_SQL("SELECT [UStVAn_ID] ,[UStVPo_ID] ,[UStVPo_ReDat],[UStVPo_ReNr],[UStVPo_Leistungsbezeichnung],[UStVPo_Leistender],leist.[UstV_Leistender_Strasse] + ' ' + leist.[UstV_Leistender_StrasseNr] as [UstV_Leistender_Strasse],leist.[UstV_Leistender_PLZ],leist.[UstV_Leistender_Stadt],leist.[UstV_Leistender_Land],leist.[UstV_Leistender_UstNr],[UStVPo_USteuerbetrag],[UStVPo_Schnittstelle],[UStVPo_SchnittstellenNr],[UStVPo_Umrechnungskurs],[UStVPo_USteuerbetragEUR],[UStVPo_Sachbearbeiter], [UStVPo_daId], [UStVPo_daId_loeschbar] ,[UStVPo_VZ],[UStVPo_VZ_RKID] ,cast(case when isnull([UStVPo_VZ_RKID],0) = 0 then 0 else 1 end as bit) as VZabrechnet
FROM [tblUStVPositionen]
LEFT JOIN [tblUStVLeistender] as leist
ON ([tblUStVPositionen].[UStVPo_LeistenderId] > 0
@@ -105,7 +105,7 @@ Public Class frmMDM_USTVAntrag
.Columns("UStVPo_ReDat").Width = 80
.Columns("UStVPo_ReNr").HeaderText = "Rechnungs-Nr"
.Columns("UStVPo_ReNr").Width = 180
.Columns("UStVPo_ReNr").Width = 120
.Columns("UStVPo_USteuerbetrag").HeaderText = "USt-Betrag"
.Columns("UStVPo_USteuerbetrag").Width = 110
@@ -114,10 +114,10 @@ Public Class frmMDM_USTVAntrag
.Columns("UStVPo_Leistungsbezeichnung").HeaderText = "Leistungsbezeichnung"
.Columns("UStVPo_Leistungsbezeichnung").Width = 150
.Columns("UStVPo_Leistungsbezeichnung").Width = 120
.Columns("UStVPo_Leistender").HeaderText = "Leistender"
.Columns("UStVPo_Leistender").Width = 100
.Columns("UStVPo_Leistender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("UstV_Leistender_Strasse").HeaderText = "Strasse"
.Columns("UstV_Leistender_Strasse").Width = 50
@@ -129,18 +129,24 @@ Public Class frmMDM_USTVAntrag
.Columns("UstV_Leistender_Land").Width = 50
.Columns("UstV_Leistender_Stadt").HeaderText = "Stadt"
.Columns("UstV_Leistender_Stadt").Width = 100
.Columns("UstV_Leistender_Stadt").Width = 80
.Columns("UstV_Leistender_UstNr").HeaderText = "UID-Nr"
.Columns("UstV_Leistender_UstNr").Width = 150
.Columns("UstV_Leistender_UstNr").Width = 100
.Columns("UStVPo_Schnittstelle").HeaderText = "API"
.Columns("UStVPo_Schnittstelle").Width = 30
.Columns("UStVPo_VZ").HeaderText = "VZ"
.Columns("UStVPo_VZ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("UStVPo_VZ").Width = 40
.Columns("UStVPo_SchnittstellenNr").HeaderText = "API-Nr"
.Columns("UStVPo_SchnittstellenNr").Width = 40
.Columns("VZabrechnet").HeaderText = "abger."
.Columns("VZabrechnet").Width = 40
.Columns("UStVPo_Umrechnungskurs").HeaderText = "Umrechnungskurs"
.Columns("UStVPo_Umrechnungskurs").Width = 60
@@ -157,7 +163,7 @@ Public Class frmMDM_USTVAntrag
.Columns("UStVPo_Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("UStVPo_daId").Visible = False
.Columns("UStVPo_VZ_RKID").Visible = False
.Columns("UStVPo_daId_loeschbar").Visible = False
@@ -3018,8 +3024,16 @@ Public Class frmMDM_USTVAntrag
f.Show(Me)
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!
hasVZ = True
Exit For
End If
Next
Dim f As New SDL.frmAbrechnungsMaskeEinzeln(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, IIf(USTV_ANTRAG.UStVAn_ErstattungsbetragEUR >= 0, "AG", "AR"))
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
@@ -3134,8 +3148,9 @@ Public Class frmMDM_USTVAntrag
If posTabisSelected Then
For i As Integer = 0 To dgvUSTVPositionen.SelectedRows.Count - 1
countSumme += CDbl(dgvUSTVPositionen.SelectedRows(i).Cells("UStVPo_USteuerbetragEUR").Value)
If Not IsDBNull(dgvUSTVPositionen.SelectedRows(i).Cells("UStVPo_USteuerbetragEUR").Value) AndAlso IsNumeric(dgvUSTVPositionen.SelectedRows(i).Cells("UStVPo_USteuerbetragEUR").Value) Then
countSumme += CDbl(dgvUSTVPositionen.SelectedRows(i).Cells("UStVPo_USteuerbetragEUR").Value)
End If
Next
End If
@@ -3166,6 +3181,92 @@ Public Class frmMDM_USTVAntrag
End Sub
Private Sub dgvUSTVPositionen_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvUSTVPositionen.CellMouseClick
If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
If e.ColumnIndex < 0 Then Exit Sub
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
If e.Button = MouseButtons.Right Then
If sender Is dgvUSTVPositionen Then
If dgvUSTVPositionen.SelectedRows.Count > 0 Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) OrElse VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
cns_vorauszahlen.Show(Cursor.Position)
End If
End If
End If
End If
End Sub
Private Sub AktivierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AktivierenToolStripMenuItem.Click
If vbYes = MsgBox("Möchten Sie die Vorauszahlung der markierten Positionen setzen?", vbYesNoCancel) Then
For Each r As DataGridViewRow In dgvUSTVPositionen.SelectedRows
If IsDBNull(r.Cells("UStVPo_VZ_RKID").Value) OrElse r.Cells("UStVPo_VZ_RKID").Value Is Nothing Then
Dim USTV_POS = New VERAG_PROG_ALLGEMEIN.cUStVPositionen(UStVAn_ID, r.Cells("UStVPo_ID").Value)
If IsDBNull(USTV_POS.UStVPo_VZ) OrElse USTV_POS.UStVPo_VZ = False Then
USTV_POS.UStVPo_VZ = True
USTV_POS.SAVE()
End If
End If
Next
SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 1 WHERE [UStVAn_ID] IN (SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) = 0)", "FMZOLL")
init()
End If
End Sub
Private Sub DeaktivierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeaktivierenToolStripMenuItem.Click
If vbYes = MsgBox("Möchten Sie die Vorauszahlung der markierten Positionen deaktiveren?", vbYesNoCancel) Then
For Each r As DataGridViewRow In dgvUSTVPositionen.SelectedRows
If IsDBNull(r.Cells("UStVPo_VZ_RKID").Value) OrElse r.Cells("UStVPo_VZ_RKID").Value Is Nothing Then 'nur noch nicht abgerech. dürfen gesetzt werden!
Dim USTV_POS = New VERAG_PROG_ALLGEMEIN.cUStVPositionen(UStVAn_ID, r.Cells("UStVPo_ID").Value)
If IsDBNull(USTV_POS.UStVPo_VZ) OrElse USTV_POS.UStVPo_VZ = True Then
USTV_POS.UStVPo_VZ = False
USTV_POS.SAVE()
End If
End If
Next
'würde prüfung nochmals für alle machen, performance allerdings nicht gut....
'SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] IN (SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZDatetime],0) = 0 )")
Dim count_nichtAbgerVZ As Integer = -1
count_nichtAbgerVZ = CInt(SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblUStVPositionen] WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " and [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) = 0", "FMZOLL"))
If count_nichtAbgerVZ = 0 Then
SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] =" & USTV_ANTRAG.UStVAn_ID, "FMZOLL")
End If
init()
End If
End Sub
Private Sub initScanUSTVA()
If USTV_ANTRAG IsNot Nothing Then
scanUSTVA.INIT(USTV_ANTRAG.UStVAn_KuNr, "MDM", "USTVA_KI_" & USTV_ANTRAG.UStVAn_ID)

73
SDL/USTV/usrCntlUSTV.Designer.vb generated
View File

@@ -24,10 +24,14 @@ Partial Class usrCntlUSTV
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlUSTV))
Me.pnlFilter = New System.Windows.Forms.Panel()
Me.dgvUSTV = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.cbxVZnichtabgerechnet = New System.Windows.Forms.CheckBox()
Me.lblFRhint = New System.Windows.Forms.Label()
Me.lblFR = New System.Windows.Forms.Label()
Me.btnWikiStatusmails = New System.Windows.Forms.Button()
Me.lblVZhint = New System.Windows.Forms.Label()
Me.lblVZKunde = New System.Windows.Forms.Label()
@@ -72,8 +76,6 @@ Partial Class usrCntlUSTV
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.lblFR = New System.Windows.Forms.Label()
Me.lblFRhint = New System.Windows.Forms.Label()
CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
@@ -121,6 +123,7 @@ Partial Class usrCntlUSTV
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Panel1.Controls.Add(Me.cbxVZnichtabgerechnet)
Me.Panel1.Controls.Add(Me.lblFRhint)
Me.Panel1.Controls.Add(Me.lblFR)
Me.Panel1.Controls.Add(Me.btnWikiStatusmails)
@@ -161,9 +164,42 @@ Partial Class usrCntlUSTV
Me.Panel1.Size = New System.Drawing.Size(1627, 108)
Me.Panel1.TabIndex = 0
'
'cbxVZnichtabgerechnet
'
Me.cbxVZnichtabgerechnet.AutoSize = True
Me.cbxVZnichtabgerechnet.Checked = True
Me.cbxVZnichtabgerechnet.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cbxVZnichtabgerechnet.Location = New System.Drawing.Point(668, 35)
Me.cbxVZnichtabgerechnet.Name = "cbxVZnichtabgerechnet"
Me.cbxVZnichtabgerechnet.Size = New System.Drawing.Size(129, 17)
Me.cbxVZnichtabgerechnet.TabIndex = 74
Me.cbxVZnichtabgerechnet.Text = "VZ nicht abgerechnet"
Me.cbxVZnichtabgerechnet.ThreeState = True
Me.cbxVZnichtabgerechnet.UseVisualStyleBackColor = True
'
'lblFRhint
'
Me.lblFRhint.AutoSize = True
Me.lblFRhint.Location = New System.Drawing.Point(31, 63)
Me.lblFRhint.Name = "lblFRhint"
Me.lblFRhint.Size = New System.Drawing.Size(0, 13)
Me.lblFRhint.TabIndex = 73
'
'lblFR
'
Me.lblFR.AutoSize = True
Me.lblFR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFR.ForeColor = System.Drawing.Color.Red
Me.lblFR.Location = New System.Drawing.Point(4, 60)
Me.lblFR.Name = "lblFR"
Me.lblFR.Size = New System.Drawing.Size(27, 16)
Me.lblFR.TabIndex = 72
Me.lblFR.Text = "FR"
Me.lblFR.Visible = False
'
'btnWikiStatusmails
'
Me.btnWikiStatusmails.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.btnWikiStatusmails.BackgroundImage = CType(resources.GetObject("btnWikiStatusmails.BackgroundImage"), System.Drawing.Image)
Me.btnWikiStatusmails.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnWikiStatusmails.FlatAppearance.BorderSize = 0
Me.btnWikiStatusmails.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -634,7 +670,7 @@ Partial Class usrCntlUSTV
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.Black
Me.Button1.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(1510, 6)
Me.Button1.Name = "Button1"
@@ -649,7 +685,7 @@ Partial Class usrCntlUSTV
Me.btnNeuerUSTVA.Enabled = False
Me.btnNeuerUSTVA.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNeuerUSTVA.ForeColor = System.Drawing.Color.Black
Me.btnNeuerUSTVA.Image = Global.SDL.My.Resources.Resources.plus
Me.btnNeuerUSTVA.Image = CType(resources.GetObject("btnNeuerUSTVA.Image"), System.Drawing.Image)
Me.btnNeuerUSTVA.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnNeuerUSTVA.Location = New System.Drawing.Point(7, 6)
Me.btnNeuerUSTVA.Name = "btnNeuerUSTVA"
@@ -664,7 +700,7 @@ Partial Class usrCntlUSTV
Me.btnUSTVAloeschen.Enabled = False
Me.btnUSTVAloeschen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUSTVAloeschen.ForeColor = System.Drawing.Color.Black
Me.btnUSTVAloeschen.Image = Global.SDL.My.Resources.Resources.del
Me.btnUSTVAloeschen.Image = CType(resources.GetObject("btnUSTVAloeschen.Image"), System.Drawing.Image)
Me.btnUSTVAloeschen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnUSTVAloeschen.Location = New System.Drawing.Point(88, 7)
Me.btnUSTVAloeschen.Name = "btnUSTVAloeschen"
@@ -747,7 +783,7 @@ Partial Class usrCntlUSTV
Me.btnPLOSEAlle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPLOSEAlle.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnPLOSEAlle.ForeColor = System.Drawing.Color.Black
Me.btnPLOSEAlle.Image = Global.SDL.My.Resources.Resources.plus
Me.btnPLOSEAlle.Image = CType(resources.GetObject("btnPLOSEAlle.Image"), System.Drawing.Image)
Me.btnPLOSEAlle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnPLOSEAlle.Location = New System.Drawing.Point(367, 8)
Me.btnPLOSEAlle.Name = "btnPLOSEAlle"
@@ -761,7 +797,7 @@ Partial Class usrCntlUSTV
'
Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.Image = Global.SDL.My.Resources.Resources.kunden
Me.Button5.Image = CType(resources.GetObject("Button5.Image"), System.Drawing.Image)
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button5.Location = New System.Drawing.Point(1386, 5)
Me.Button5.Name = "Button5"
@@ -800,26 +836,6 @@ Partial Class usrCntlUSTV
Me.ContextMenuStrip3.Name = "ContextMenuStrip1"
Me.ContextMenuStrip3.Size = New System.Drawing.Size(61, 4)
'
'lblFR
'
Me.lblFR.AutoSize = True
Me.lblFR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFR.ForeColor = System.Drawing.Color.Red
Me.lblFR.Location = New System.Drawing.Point(4, 60)
Me.lblFR.Name = "lblFR"
Me.lblFR.Size = New System.Drawing.Size(27, 16)
Me.lblFR.TabIndex = 72
Me.lblFR.Text = "FR"
Me.lblFR.Visible = False
'
'lblFRhint
'
Me.lblFRhint.AutoSize = True
Me.lblFRhint.Location = New System.Drawing.Point(31, 63)
Me.lblFRhint.Name = "lblFRhint"
Me.lblFRhint.Size = New System.Drawing.Size(0, 13)
Me.lblFRhint.TabIndex = 73
'
'usrCntlUSTV
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -888,4 +904,5 @@ Partial Class usrCntlUSTV
Friend WithEvents btnWikiStatusmails As Button
Friend WithEvents lblFR As Label
Friend WithEvents lblFRhint As Label
Friend WithEvents cbxVZnichtabgerechnet As CheckBox
End Class

809
SDL/USTV/usrCntlUSTV.resx
View File

@@ -117,6 +117,815 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnWikiStatusmails.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAASwAAAEsCAYAAAB5fY51AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAHdElNRQfWAxQCBR2NnaN4AACMI0lEQVR4Xu2dB5QcxbX353s8+zlnG4MROyuySbbBNuCEidpZ
JUAi5yQEAiNyEhJI2plVTijnLJTjKmehnHPOOecApr5za7pmqm/dqq7umV2tpL7n/M/zQ7sTurt+e++/
blVFImGEEUYYYYQRRhhhhBFGGGGEEUYYYYQRRhhhhBFGGGGEEUYYYYQRRhhhhBFGGGGEEUYYYYQRRhhh
hBFGGGGEEUYYYYQRRhhhhBFGGGGEEUYYYYQRRhhhhBFGGGGEEUYYYYQRRhhhhBFGGGFc4FH2nsRPL8+P
ly1bvsFVl+fHbwGVLZf4e9n8+D2ycvML/pH691jB1fx37kn8FL9eGGGEEYbvuLpCo1+VLRf/c25+vGpu
LP5ubiz+RTQvPigai0+NxuLLo7H4rpxY/OtoLM4ykfMau5zXnBqNJQbDe/H3zI9Xhc9wZV7Br/HnCyOM
MC7AuOK+emVy8hJ50fz4+9FYQa9oLL4oGosfwWApBTrmfLbe0Vjig5xyBTH47Pj7hBFGGOdJQKaSm19Q
MScv0TAai0+OxuIHCDCca4LvMCU3P94omldQOczGwgjjHI0r7o9fmZMXfz6aH+8UjcVXE4P9fNXqaF68
K3x38NbwdQkjjDBKQVx/Z50fRWOJStFYvE00lthADOQLVRuda1IJrhG+bmGEEUYJxeX3J64Hgzoai0+I
xuKnicFaLMrNByXYFRUK2RUVGrArKxSyKys24LqqEqghu6ZyI66rKzVkV1dsyK6Cf3N+5soKDfjvls1P
8NfCr1+Mgms0Aa4ZXDt8PcMII4wsR7RCwbXRWLy2M7OGB2TG4iAqn+BgubZyI/avF9uyxz/qy95rNoo1
6D6VdRw8h/Uft5SNmbmGzVq6ha3etJdt3nmQ7TlwjOvYidPs5KmvXYL/Jv4dfhZ+B3537My1rP/4pazj
4LmsYfep7L1mReyJj/uyO19sx657oDEHH4ANPhP+nFnSymgsXufyvILf4+scRhhhBAzuR+XHP47G4ouJ
QRdIyQypAbu6UgN22zNfsGdqfck+bz+e9Ri5kE2et4Gt2rSXHTl2SoFPSenI8VMcbJPnb2A9Ry1kdTtM
ZM/V6c/uePYLdnXlRhyoWQbZktxY4hPoE8PXP4wwwvCIy6o2+X5OXvwJmAWLxuLfEgPMXvlxnqlcU7kh
i9XozLOlDoPmsMnz1rOtuw8psCjtgs8MIOs4ZC77oEURy/9PV3btg434d4Tvqnx//5qSGyt4Cu4Bvi9h
hBGGFGVjiRujsXjzaKxgPzGQrAWD9+aHm/ESC0q5cbPXst37jyqDP6s6fZZ06mu2e/8xNmHOOta4xzT2
dK1+7I+PNmdXVixUros/JQ7m5Mdb5parfxO+T2GEceFGnTr/k5Nf8GBOfnyaOmjsBOURlEnl/9OVFXad
wqYt3Fg8JR2GRSkVlJTTF21iDbtNZZVqdudlZG75jErIWdB9H6n65UX49oURxgURl1ao84NoXqJ6Tn58
LTFAPAWQur5KY/ZKwWDWd8xitnnHQRUwmYgAwbkqMPv7jV3CXk0MYTdVbZoJvNbn5idev/i+hj/E9zOM
MM7LcLrO6+fE4nuJAWEUtAFc92Bj9tLnA9nACUv5zJsCmqAiBvr5qL0Hj7FBE5ezavUHs+urNGFlA8Gr
YD/cwyvua/gbfH/DCOO8iMvub/KLaCxekJMfP6oOAL1yuSfVgD36fm+eSWXNiyIG84Wm3QeOsS/HLWWP
f9yXt1Hga2+hY9G8eOJ3DxT8Et/vMMI4JwO2UoF+n2gsfoh44LUqm1/I/vxkS1bQaSJbsWG3CpwgIgZt
qKRWbtzDEl2nsL8+3Zr3ouH74aEj0byCz6KV6/wM3/8wwjgnAqbFYXcBvzN+MMP36Ae92ZBJy9nhTI1z
YmCGMguu+bApK9gTH/Xl3fn4/njoQE5e4qOwJSKMcypy8wqqRGPxzcQDrRUsY6mRGMq7wBXw+BUxEEP5
15zlW9l/Go3gnff4fnkI7v1jkQj7f/jZCCOMUhM5efE/RvPik4gHmBSY6Dc/0ox93n4CW7tlnwoePyIG
XKjsaN3W/ax+50nsj4+18NVhD60q8Ezg5ySMMM5qwMyfs5XLf/FDSyo/wW56uAmr33Ei277nsAofPyIG
WKji0fY9R7jP9YdHm/tZuP1feDbCGcUwSkU4S2j2EA+qIpjx+/1DTdhn7cazLbsyWBZDDKZQJaetuw6x
+p0msRsfbmYPrrz4vty8xNP4+QkjjBKJaLl4NBqLj1IeTI3AB/nki7Fs4/YDKoBsRQyeUGdPm3YcZLXb
jWc3VG2i3G+DxuRUqJuLn6cwwiieqFPnf6Kxgjds+6lgTds7TUdm5lERgyVU6dH6bfvZhy1Gs6srW/dy
wT71NcOlPmEUa+TG6uU4p8fgB1BR2fKF7OH3e7E5y7aqALIVMThKWoeOnuTbzcxYvJmNnL6a9RmzhLUb
BHtYTWOftBnH3mlWxGo0GM71Qt1B7Nk6A9nTtQdwwf+G/wb/9nqD4ezdZkWsVptxrFGP6az9oLms75gl
bNSM1fy1YTsZeC/8/ueS5q3YxvcP4ztHEM8EVm4sPh0ydfychRFGxhHNTzxq0/yZG0vwje+gj+rEqTMq
hGxEDIbi1IlTySxh3Ky1rP2gOeyT1uPY858PYrH/dGd3PNeO3fG8Xn/jap/UC5mr/Js92It1B7Nabcez
DoPnsXGz17H125wymvjspU1wz4dNXcnurtbBdkbxcG5+4kn8vIURRqC4Mq/OT3Ji8R7Eg6bougcasYbd
p7ADR06oELIRMQCKQ7AGcdK8DaxVv5msWsEQdtcrndjtz7XjMgHKBkp/x3pRpw4a4Z9L6t5Xu7Dq8aGs
df/ZbPL8jcl1lMR3Ky06eOQka9prOru+SlPlOaFV0Cs8YDaMjCKaV3ibzaEO8Je0yrs92dJ1u1QI2Yh4
4LOpfYeOszEz17L6nSezxz7qx+54vi27/TmQHlAmONEwwuBJ6h9ZkvK6L3VgT9Tqz9sMxs5ay/YfOq58
79Kg5et3s8c+7MMtAvzcENqUU77gdvwchhGGZ8DWL9FY/BTxULl008PNWKchc9nxkwHKP+IBz4agxFu6
dhfrNGQeq1Z/CIdLElB6SPHSzgpOHkB6qQQlve+/Xu7EXk0MZ12GLWBL1zlrL4lrczYEz0a34fPZnx5v
rjw/hM7kxBKv4ecxjDDIiN5Z53vRWKIz8SC5BP03sBc6eD8KiGxEPNiZCCC1YNUO1rjndFahZg8JUCZI
aQBFwMkbSh3ZP016OaDw60iC91Q/R/IzPvhOb9as91ds4eodxXK9g2jD9gPshc8GWm1pkxOLd4c90/Dz
GUYYqeC9VXmJ+fjhwYI9qdoPml0qsqola3eypr1msEpv92S3P2sBKQpQKUgRgEIwwNBQACPpX1kWfn0T
2OTPXOX9Pqx5n5nJkp24hiUpeGY6D53Hbqhq420lFoY9W2GQkZNf/9/Qjaw+NGlBVlXutU5s4Srnr7Yf
EQ9vUMEmdL1HL2aPf9yP3YYgxUFlAykrQJnhhIECZRlXNW/dqRH+OVLifbgMQCMgBu0WfccuYXsPnl3P
a/GanXxLa1imhZ8ztwr2X16u/t34eQ3jAg5YMuF1GCmk8Z+2GRdsBpB4YIMIdnKo1WY8H5wYVDibwuWe
FlI6QGnhREMJg0erVyyFf08j/DkwyPD3EN8PZh3rtJ/I5izfplznkhLMJMIRZhYHZpyJxuLP4uc2jAsu
2P9zDiY1HqV1Y9WmbNCEZSqIvEQ8pH4FByoMmbwilU0poDJkU+lyTw8pClBK1uQFphRoOqf072JU+n30
cLOG2Esd2TO1B/LeqaPHTyvXvyQ0dPIKdvOj3oZ8Tn7883DLmgs0rq9a57vRvHhX/FBg3VWtA0/fFRh5
iXgw/QhKls7D5rHyb3b3BBWe4cPZlD9I2cBJhYii6qru8in8+1z4fUiY0SCjACZfgwfe6c26jVjI20Dw
/Shugb9WrkZnz7MVoScQnl38PIdxHsc1FQt/HI3FJ+CHQVbZ/AQ/7AH2/VZg5CXigbTVrv1HWbM+M9i/
q3WyAJUHpCRQYUhZAcoLTgqIuvjTq0j43z2FwIY/H4aYEWDp7Ov+17uxVl/OKvHmVHi/V+NDvHu28uKT
oKEZP9dhnIdxeX7859FYfKbyEMiwqpDg5/v5ngUkHkJbwV/11v1nsX9XS/pTGYFKA6k0qDSQMgHKC0wO
dO4uIZkhZwYZBTAKXgCu9oPnsgOHTyj3q7gEz1zTntNtDsWYAweb4Oc7jPMoYBO1aCy+gLj5KcGR7r2K
Fqkw8hLx8NnoxMkzbODE5Sz/P90Cg8oum/IBKVfm5BdMXdN6Lal7MpR4HddrK+/rBTIPgBngVfmdXmzI
lJXJtaHEPSwOwTmKv6/iuW3N4tyK9S/Gz3kY50GUqVh4aTQWX0Hc9JRgu2I48lyBkUnEw2armUu2sCdr
fZklUFGQ6qiBlDpoTYDCUJDBgeFytuQGGgEx/L0CwAsWhM+G3TeIe1kcmjx/A7v1yZbKc4q06or76pXB
z3sY53A4m+2tJ252Sv98oa1/c514yGwEO1Z+2GoMu+3ZNghW7vYEI6j8ZlOaTEqBlAInB1AEJBTV6Mru
rdGthES8vxZiXgDTwYsoG1/uxD5tO4Ft231Yua/FITDj736lk5cZv/Hy/HhZ/NyHcQ6GA6uNxE3mgmbQ
e6t39L/Ehni4vATLZyDVv7u62VCXZ/2CgCpzSJkBBbBQAaLqPqHXsyDi9Wmpn9cfwFR4Yc8LrjFsvTNA
tLoQ9zqbgl1q89/o5tVkujmE1jkeV+YVXpaTH19L3NwUrPJqdOYZjwIkk4iHyktrtuxjL9UbTGdVuj4q
ovQjQUVkU16QUgBlKO9UKEhQwmDh6m6l+5Hwv5vlfk/8uWRB5oe/kw5gVvCSwPVagxH8VB18v7OtrbsP
s8pv9eSz1/g5TiuxAZ55PA7COAeCn2QTiy9Xb6oDq1iCVX67O9u574gKJJOIh8kkmPXpMHgu+8dL7T2y
Klz+4Vk/G1BR2ZQuk9JnUXjA03DCAHHA80YJiXh/DDL8+VMAI74zCS/p2pnABVld1xELk7PKxDOQLUHL
yyMfwFY1JmjFV8Ozj8dDGKU4ksfDJxYSNzMJq/w4e+T93sk+GwwknYgHyEuQyr9Yd5B1VmUs/2xBhbMp
DCkik9KVeDo4eYOpByuH9Z+AQq8Dr62+nxfInO9BfEeqhMTwMmVdMrheLRzONu08qDwH2RQ0FD/9aX+P
TCu+JGx5OEfi+jvr/MjUZwWweuyDPsluZgwlnYgHx0sjpq3y7KlyZVXFDCo8KClIUYDSw8k/jPJ8Cv++
Vl4w0wAMf38SXtqsiwYXeFtFX61Rnodsav+hE+zZ2v29Mq1Z4Q6mpTz4chtDBzvsDPrw+72LFVb7D59g
H30x1mdW5S7/ZJ+KNtP1oJIHF1Xy4UFKQgoP+De6e8LJBZs3exavbKCWgpj6XWzghX0vJevyABcsrC7O
hlOA1lOffslyzdCaEC7jKcVhWhsImVXlt3rwrVkUKOlEPCgmrdy4hz30Xu8UrPxnVdkAlepN4cGIIUVl
UTpA2YApZlJNS+Hfk4TfzwpkOoDZwMuQdaXLRRVcT3zSn63evFd5TrIl+MP7yAe9jdDKzY/3jIQLpktf
RGOJD/DNSt20WILFXu/Cduz1YbATD4hJcATWnUQJ6OqrorIqQ/mXBpU062cAFR5YLkilQKWDlAegMBww
SDBwavZKKT9Dya+lvI8XyAwAU0pIDK8sgAveG/bTP0U8M9nQzn1H2QNv9zSe0JPc5SGMUhPOcfHaLWLu
rd6JbQYzFENJJ+LB0OnYidN8W+K/GkpAV1+Vn6wqCKiQN6VkU7aQsoKTB5DeKgbh96BgZoIYBTACXuas
yz+4WvSbWWyziNCWU/7NbtDWoDz7jr6FMYLHTRhnIfhOoYbN9/7xfFt/TaHEA6ETlJdwyIPJrzLNALqz
Kq/yzwwqbKKbsikMKSqLsoYTAkr5lHp7620k/O+kkq+P3xd/Lh3E7OClz7rc4HJnXVqPy7mPbzQaycu4
4si2YEb6nlc6Ks+/pNM5efG78PgJowQD1lBFY/E9xM3h+uNjzfjpMQqUdCIeBJ3gQIGq73v4VagEpGYA
ldk/JatyHvyMQRUMUjo4kWDCAHq7N6uQJeHXpQGnh5gLYAHhZVsuUuAS2dZTtQewTTsOcmhlG1zLN+xm
f3mylTIOUoItwMOTps9OODOCc5Sb4uiayg34ScYKlHQiHgCd4HSa+2t0VWAl/CpTCWj2qojyLwUqNOtn
ApVXNqWFlBegaDhhuKTVh1V4x6yKjvB/VwSvpby+BmjWANPDKxi4JGhJ4MJlImwUCOtWiwNacEDu9aZd
HvIS8y+r2uT7eDyFUcyRG0t0VG6GI9gArfvIBSqUdCJuvE5waOc/X+qgLwGdWUBTCejtVXmVf/5AhbMp
G0i5AGWEkwqfkpIbaD4BZgMvnHUZwOU32yr3ejc2Ye6GYoFW3zGLPfbTSnTG4ymMYoyc/IIX1JuQFLQv
NOg2VYWSTsQN16n/+KUcUFpYaUtAZKxbZ1VZABXOpqhyzwAp33B6N61K7/bNquTXVt4XQwxlZEHgpc26
kEnvB1xytnX3a13YkMkrU9DKJria9Z7hsXNpohoeV2EUQ5SNFd5qOpH5+c8G8Jk7BUyUiButU49RC32Y
62pWpRjrXllVlkClzaYwpAyAwlCQwYShQuq9tCpbSv4d5fUImUDmDTAVXqasKyi4kmUiMuVf7cyPHcs2
tGBGsnp8iGnm8HRu+cK/4PEVRhYDlt2Ydl+4u1oHtnv/URVMlIibrBMsXv7rMxawsi4B0zNHtlmV3Ecl
m+m+QIUh5YDKBSldBsXhpAGUEUb9siT8ut5AowBGlZBemZc806gHFy4V3e0QXtkWLJ6WoZUNcMFa2bzX
uyjjRNJ6ON8Aj7MwshQm3wqO4lq8xvKAU+Lm6sRhZZNZmWClLQH9ZVXWoHIGmHU2RUFKl0ER4FDg8n4/
9kAxCV5beT8KZPhzExmYF7xUcBHlog5cAbKtriMWZB1asAHgHx/THyGWE4t3x+MsjCxEbl5BFXyxhWDl
OvhLCpgoETdVJygDfcFK07KgLQG9siqi/AsGKiqboiGlDnQDnAigqPqS60HQBz7l/G5S+HVV6SBGAYyE
l1Q2kllXAHBRZaIp28LlYTagNWTKCnZVRYMJnxd/BI+3MDKIy8rX+x0c2a1caL7sJs4+bjVGBRMl4mbq
NHDCMnbbczSsRNuCayZQMddpv8pUAnpmVdKgoEo/GVSmbMoTUhpAYUDIUFJgU0IywYwCmD28DF6XJbhS
/hYBLV22BRo6xW3EZwNan3WYYFq+cyA3Vi8Hj7swAgU/nVm7A8N9r3ayPz6euJGUxs9Zp8wG4h4re3Nd
XwJmK6vKCqgISGEA2MLpIdCHsvpnQc5rEe+HpYOYF7yCgwuZ84GzrfRzMXn+xqxC6+DRk6xCTVi+o44h
R5Mjder8Dx59YfiMaCz+CnFxua59oDFbsGq7CiZKxE2ktGDldvYv1GdlCyutua7ASgaVCqt0VmUGlWqm
e4AqEKRUIKhgwnBJqwrWR5ZCv4dfV4EZ8flMAPMDL325mAZXZtmWWiLmvdmDLZKaS7MBLmhWvaFKU2Uc
CeXmxWvg8ReGj0iWgvFD+MLyi5ufYG0GzFLBRIm4eZRgb+77a3SxKAM1sJLMdRu/KgUqGVaGrCr7oPIH
KR2gvGE0IEPh13NDDX8ekY3hz28NLwtwyRmXbM5T4DJmW1SJ6EDrgff68CVgGFiZQKvT0Hmm/qwj4ZFh
GUQ0Fh9CXFSuJz/uZ3cyM3HTKPG9hT7sm1VYKX6VoQSkvCoqq9KVfzagMmdT6uA2AgrDw4FLVVkfZ1nS
a2thpsBLn4FhePkDF862HHChMtFvtpWCllMiPvf5IL4pJAZWUGjBYbAvfj5QGU9CubH4CDwOw7AI06zg
jQ83TZ5UguGERdwwSgC+V+JDSViJ2UArWBHmuo1f5TerygRUOLvAg5iClAooBCcMFkcPuzSQ1ieO8H93
Kfka+PUxyEiIWcNLn3X5A5ch2zJ6Wyq0ktlWF1azaRF/RjGwgkILsrZbHm+hjCtJj+HxGIYhLs+P/zwa
i+8gLiRfetNh8BwVTljEjdIJ9rMqCViRfhWClXdW5RdU3tmUN6QkQDmQeLLOYFajcRH7pP0klug+nbX4
cg7rNGwh6zt+ORs0eRUbNm0NK5q1jmvCvI2p/z1kyio2ePIqNmDiCtZt1GLWeuA81rDXV+yzjlPYu63G
sxcLhrNHBMRMkmCmAMyBmAIwC3iZsi7Z5/ICl7tM1GRbBmjhErHVl7MUWGUCLej5MuwJvzs8xMJH5OQV
tCAuItcDb/ewW3pD3CRKRTNWs9ud9gUKVsk+q6CwIrIqDis0Cxgoq5JA9Y4dqHAvlBekAAjVEiNZ7Y5T
2BcD57KBk1aySfM3skVrdrG1W/f71AFrLVu/h01ZuJkNnLyKtR08n0Px2bpDOchkWUPMlYHp4WXKuqwy
Ltnf8pFt2ZSIoHGz1ymwCgotyNge+6iPMr4ktcHjMgwiLr8/cX1OLP41cQHZtZUb2h0nT9wgSqs27U2d
bKOHVXs7WBlnAnV+lb4EDJJV6Uo/PBBlUAlIVf24P6tWOJLV6zKNdR25mI2fu4Et37CHrVHAY5IKn2xp
zZb97KulW1m/CStYosdX7MX4CPZIrUFmiFHwcmVfFLxswIU9LotsS+NtKSWiAVrla/bkB/JiWAWF1rL1
u01b0XxTNpa4EY/PMFBEY/ExxMXjx3Q37DZFhRMWcWMogZFZhW/AZ4aVaArNNqxcfpWrBDRkVRpQybN+
OlDhsg8G8pvNxrBmfWexoVNXs8Vrd3M4CakwSmvdtgNs085DbPveI2z3gWNs36ET7OCRk+zIsVPOREhy
K+DTZ5I68/U3qf/N/+3UGW7+Hj1xmh06epLfCzhvDw4KhROON2w/qAALCwA2acEm1mbQPPZms7FJeHGZ
AYbB5YIXzrp8gosqE7XZls8SUTxPT9cZxPsOMayCQqt5nxmGhtLERDw+w5CibKygvHrRkvr7823Yfq/j
uYgbolOtNuMkWLUtGVhp/Cq6BNRnVWT5pyn9kqBKDsDXGhZxQI2csYYtg+xpSxpQFKQATACQXfuP8UEC
pfiZM9+w//73v4H07bffKsI/I/T1N99wqB0+epJDcfOuw/zzYHAJzVy6jbXsP5c9X384ezQFLzfAvOAl
Z1024Eqva0T+lkW2pS0RLaBVv/MUBVRBoQVHkd1VrYMy3lLKK6iMx2kYkUjkllvafScai69RLhjfkC/B
BtisFSRuCCU45JRuDFVhxZfbZBNWvktAOquiyz/3wHq89mD2WacprNeYpWzuyh1JQAkpkDrAtuw6zOEA
Wc/J02cUiAQRBpRJ+Hexvvnmv+z4ydM8G9u865ACLdCqzfvYgEkrWc3mYzm4POGFy0ZLcMnmPOVvmbwt
rSHv8rXM0BrtnMSjE37mTRo6eQW7ooKuN6tg3ZV5Lf4Pj9cLPqKxxH/Ui5VUlXd68L+2CqACwAr2076n
eielFHTvFEqY7GSfVRZh5VEC2pZ/YE436DmDjZixhq3cuNcNKQlU67YmsycY/JA5QUaDAaHTN998w/X1
11+zM2fOpHT69GmuU6dOcYn/Xyfxe/A6QuK18XtSgoEJmR9kXxhcAOEhU1azGk1Gs0c/TYKLgpc767IB
F51tyWWiKduiS0T/0Kr0Tm+2ZdchBVSBoHXqa/bkJ/2UcSeUkxd/G4/XCzourVDnB9FYfBe+UKArKxSy
Ocu2qoAKACvwV6rVH6zAyrt9gYKVx2ygDlYmv4oqAZWsyj37B4MGBljbwfNUOEmCAbx55yF+0s/RE6dS
YDABQoYSAOjkyZOKBJxkYTAFkfxaAmT488k6cfIML13Xo7Jx9Zb9vNXiOSgVAVwUvIisKyi4TNmWZ4lI
mPFiBpGC1ptNRmn7s/xCa/7K7ezaBxsp48/RnnDfLCmieQXvEReJ78TwVuMRKqCwiBtACZYlBIGVyK6K
D1a2JaCaVcHgwXASAs8HDo+FEu/0mTMKpGRYwf8VWRKA6MSJE+z48eP8/8oqCVgJ4dcWgs+pAxgY/JA1
rt/mNu4XrN7Janecyh77dDCXDK4UvGzBZV0mqtDSlogBodVj1CIFUlh4HOj0QasxLJqvjkNQTl7iIzxu
L8gAcvPjh4iLdM0DjdjqTXtVQAWA1dot+1KHR+hMdhVW6VIwGKxsZgL9l4DyX3Zo2pQhBRkGnAZ85NhJ
V4lFCQa+gNOxY8e4AFJCJlhRwMLAkSWXjpTwz+ughd8ffoaC15kzX3M/Dhv14G89U2+YG1xK1uUXXKZs
y65ExGa8LbRib/bg9xxDKgiwIAu/8ZFmyjh0dKDsPYmf4vF7wUVuLPEJcXG4PmhRpAIqAKxOnPqavVIA
B556m+wUrMSuCxnDyjQTSMCKnAF0BoWY/Vu9eV8KVrAlLoYSBSiA0dGjR1MSsPIDLAwSDBpbUGHh3/eC
lgAu/HcANAYXeJ8wmcDB5cBr2uIt7NWGReyx2kloUVkXDS7scaEykYCWKdvygpbItrygVbNJEX/OMaiC
QKtOO+O+WXXw+L2gIlq5zs+iscRB4sKw3z/U2Hu9IHHBKcFupLgUVBY0a2cE3bsuqMttsggrYwmYHgyi
nwr+wncduSgFLJiilgEFAxgGsgDUkSNHuGxghYGFIYEhgiGDQeRH+LW8oCV/TgpccC1gcTtAS2jR2l3s
/dYT+UwqB5cELwVccqkozyp6ZVsWJSKGls6M94IWtekfFh4XlOAE6T88ql1nePiCXrIDdTFxUbh3Vav1
WBVQAWC1bfdhdk/1zta+lbF9wQpWhGdFzARqzXWPElD8NRd/3TsOXZia+ZOBBQP58OHDKQlY2QIrk+wK
AyiI8Gvi98QAlT8rfH74GVwqwmzohh0HU9BasWkve49DawgHVwpeBnDpy0TvbAuXiG5fyzHjA0Kr8rt9
eCMvhhQWHh+U6neepM2yoCLC4/iCCOfkZnKB8/VVGrPNOw6qkPIJK9DHrdMNoqpvRZvsrhnBYoRVugT0
hpVrOY2z1g8GSsdhC1O9VDKwAEDZAhaGgwlWJmDJ7QtC+GeCQgsDS3wH+D0ZWqdOn0k1oYKggfatFuPY
43UAWmZwybOKSpnokW3poOXytTKEVj2PhlJbaEG7xJ/0uznsuiBPjs7NSzxNXAy+G8Pn7SeokAoArLnL
t6U62ZV+Kw/fiuy1KhZY6fwqugRMwcoZKDbAsoGVLbAwNDBUMHR0oMLCv0NBC7+3DlgytEDw7yLb4l7e
19/wHjQBrcXrdrPXm4xhTwC0JHDJpaJszlNlopJtkdAiwKVASy4RvaCVfO4EtEALVu1QAIWFxwklOIw4
V7ObQ25ewUt4PJ/nwfdpX44vBOjGKk3Y1l2HVEj5hBX05TxTe4C5FPTwrUwmuw2suGflA1a0X+UuAfn6
N7HH1CcDJWAdyAhYOliZgJUtWJnAhd9DBywMLfn7wPeD/yb7ezCLKMx40JwVO9gL8ZEcWiS4rMpENdsS
9y9V1mcILfF86aBVvXA4n2TCkMLC4wULrJQ/Pd5SGZ+OlsMYxqP6vI1ofuJ+4iJwfeJ1Ag5xcSkNnrSC
LAW9fSvKZEewcraISS1k1sGqpn9YpUClwMpZrCvBCgYL7EElpuyh6zvbwMJQ8AMsDCNb4dfRAQtDywQs
8R3h9cU1Og0rH3YeSkFryNTV7MnPhrInQJbgMmVbGFpGXytb0KrRjY2cvloBFCU8ZrDqdpyk7cvKzUtU
wOP6vI1oXsFofAFAV1dqwNZsNvRdEReVEmQasTe6aUtBrW+FTHbTjCDedSHPtdwmO7CiSkA+SyV2I6g1
iHUavqjEgIVhERRW8Pnwf7MFFoaWH2AJydA6cfI0W789bcQ37jObQ4sGl+NveWVbBLToEtESWsLTws2l
DrDw1jQPf9iP756BAUUJjx1ZMEt//UO67WcukJ0cLs+Pl43G4t+qFyDOqhcMUSHlE1agtgPneJaCnr6V
AVaiFDTBSrQu+IYV8qtEVsVh5QwIASsYKJ1GnB1gYYh4wUp8Lkr4Z72gpQOWH2jJ7w/b26RmDjfuZa80
GJWCFgeXAy0OLotsiy4Rg0IrbcS7+rQ00BKlYZfh6inSlPDYwarZeKQyTh19m1uu8Bo8vs+7iMbiBcSX
Z1eUL2QzFm9WQeUTWLBW7m6njYGElQCWjW9lgJXotTLBSvRZZQorUQJiWMFA6ewDWDawCgIsDBcMHwwo
Svh3MLR0wMLQsgEWfH/4d/n9t+05koJWn3HL2VOfD2NPfZ6GlgwuV5mogVY620LQSpWIxQutyu/25r1n
GFCU8BiSNXvZVnZNZfrU6JxYvAEe3+dV3Hlnnf/VtTI8/H4vFVI+YQVq2W9mlkpBb5PdDSt5RjADWCnm
ugyqgakSBAYIDBQvYBVHdmUCFoYOBpNJ+HcxCHXQCgIsELyOeO90aXiQN+HWbDHOgdYw9qQEric+02db
7hKR8LUUM94ftNSOeHWXB9nP6jBkngInnfA4kvX0p/2V8epoN7Qn4XF+3gRsBkZ8ad7KAEfDK6DyCSz4
i3KvKbsylYKe/Va0yW6ClWgK9Qcr2VynsyrxVx0GShcAlpMZlBSwdLDCwMJAspEJWtkGFkj+nLDbAwAL
BGsOn66bBJZ3tmVRIpYAtLAJD+cagp+L4UQJjyVZw6eu4hUQHregnFj8ITzOz5uAM8/wFwbd+ngLbhIq
oPIBK1C3EQvcawWpBlGLUlCFFWGyk71WFKySwLKGlcZcx7BKGsBDWJeRi1OlzMGzDCwMGwwjEF7rh/8d
Q6u4gQU/J94XmkpFlrVy0z72UmIUh5YOXH5KRJ0Z7wdaeBmPduZQMuH7jF2iwEknPJ6EYLePO55vo4xb
R2PwOD8vokzFwkthY3viC7PPTI2ixAWkBMsuKr/dU10rSDaIepeC4kguK5Nd9FohWInlNlmFlTNTBQME
BktpBRaGEAaVCVolCSy4LvLnhZ0uBLRaDJjLnqk3nD1dFySDSy4RJXBpSsRsQItee0i0OyA/64lPB3ru
mWUDrcJuU5Vx6+i/ZSskLsfj/ZwP3Y6iV1ZowJau1ZyEQ1w4nYZPW6UvBTmwzKUg1cLg7VsR7QsIVsnl
NsUDKxCccFPSwJIBJcMIb3mMhUGlgxbO1LIBLROw5Czr6PFTHFigKQu3cGBxKdBC3pYfaH2SZWhpTHix
fGfMTP3xYFh4XAmt2LCHb/eExy8oJ1bwFh7v53zkxuLT8RcFVXm3pwqqAMB66tP+nka7/1LQ3rdKzuQ4
sBK+lbM2MKuwkqbYYaCUBLAADjKcMIi8hIMCmAwsDK1sAEuGFgYWSH5vaCYFYIE3WL3RaPasgJaUbXmX
iNmFFl4wLfdoeflZ1RPDFTCZhMeW0JOffKmM36QKZuPxfk7HFffVK0P1XuXGEqxX0SIVVD5hJdYMktmV
71JQbWGw9a1MM4LFASsOrFHZB5YMKZwJYRhhcfjAzxqAJQKDq6SAJUNLXBt4DfHesPGfyLIKe85kz9Yf
wYWhRZeI2YdW8nQeexOe8rNgx1UMJpPwGAPBQTBl6V0cvs2pUDcXj/tzNiBlJL4ku/aBRnwLXwVWPoH1
WYeJ6ezKwmj3ahC16rfS+FYUrMTaQNzBbjUb6JSAKVhJM1UwWLqOWpI1YMGgpSCFxY/fOnaKn0e4c/8x
tnX3Eb4DwsYdh1zatPMw27z7MNux7yjbd/gEP4cQTr7BkQLdWQCWgBb8u3hvOF9RAKvfxJXsOQdYMrSS
4EIlIvK1hBlvhJbO00oBy4GWHxOeKA0b9JiuQMkkPMZAcG6kdkfS/Pj7eNyfswEpo/IFY3H2bO3+Kqh8
wgpaGeD0ZvvsSi0F1QZRUyko+Va+TfYswerzJKxA3YoAWEmTOAiwYFADCOB3MJhEtgSmLQBn+96jbOPO
Q2zDjrQwpFLaqRMcJXacHT91BnPLBa2SBpZcFsLCaAEsWBT9XMFI9lxBGlqmElH4WoGghTvijdDy52dV
fKe3dYuDCVrV40OUcQzKjcXn4XF/TgbMIOjKwX5jFquw8gmsfmOXGLIrG6PdYlbQxrc6C7CCgdKtaGkg
YMHA1mVTcOTXkeOneGkEWZIMKApS63ccYis372eL1u1hc1buZDOX72DzV+9iSzfsZWu2HiCgldSuA8fZ
11LGJWdaZwNY8Jri+sH2MwJaNZqOTUGLyrYwtEhfS2p78AMtys9STHgbP+uNHmzwZO9dSb2ABZsKlNX0
ZMGyOzz+z7nIzY+/jL8Y6LoHGrPd+49mBCvQ07UHeLcxUEY7VQqK7EpTCnr6VlqTPfnw+YUV9qtgIAhQ
JTWcdXeABQPLBlg6UEEmBa0hkP3gLEqG1PKN+9jYuRtZ16KlrHG/ueyTjtPY683Gs1ebjON6rSnWePZe
mymscb95bNDUNRxskGUJQSkJ91EAC3S2gCX7WKK9AVSn8zT2fHwke55Dy51tYWiRvpYELT+ZlnhuKGil
THgbP8vJsl4tHKFAyUt4vO05eIzd/GhzZTxz5SWq4/F/zkU0lhisfLFYnL34+UAVVj6BtWzdLleTqP82
BlwKSg2iPkpByrdKw0o12eXtYXSwEpmVDlYwzQ4DBYAlBpYJWDB4YfCLfxeggvIHFv8CODCkQADDifM3
s3bDFrGPO0xNgYkG1PiUaoCaqXqz5UTWedRSJ/NKQwv2cJLN+7MBLPh5cX3AatjgXNeWA+axF+KjtNBK
lYhZgRbhZ2ET3tPPUktD8TzD4boYSibhMQeq0WCYMp5B0BiOx/85Fc7x84eVL5YfZz1HLswIViBYN4iz
K+82Bm+j3WtW0Nu3QiZ7McEKBkr30TKwkjtrysDCoBKCru49B+lsau22g6xo1gbWrP889p8WEwyQkgBF
wAn0erMJaTVP6+MO09isFTt4yZk054/w8pDKskoKWPDfxfWB7m7Y/x3Ua+xy9kJiVBpa8TS0UiWi1ox3
Q8vO09JDi/KzlP4sQ2nYYch8BUpewuMODnWhysKc/PjRc/pY+5z8+v/GXwp0ZcUG/JzATIFV5b0+ZHYl
rxfUtjFQRrumQdSuFPTwrUT7ghFW6dYFLaycQQEDBAZKDw2wYOAKM10WzPBBuYMhBZq5fDvrMHwxq9ly
IqveeKwbUilQ6TMoCkxYb0h6t/VkF7T2HDxBZlklBSz43+I6wenYAljDZqxlLwKwELRS2VYgaJlbHlwz
h5mWhpIB/+zngxUg2Ugedxu2HWC/1+yTlRsrvBdz4JyJaKwgjr8Q6P7XOmUMq0VrdlpnV3Ibg9dODKrR
blkKErDS+lZi1wUNrITBrodVcoDAQOkxehkJLKyTp5NHuWNIQTY1bPo6VrvzdA4pBVQomyIhZYDSGy0m
GvVZ16+4aS+gBfutlySwsMcnrtfxk3DCDlyjg2zsnI3sxcIi9mKiKAktGVwKtGRfS4WWe/aQghbtZ+mh
5b80XLZ+twIkL+HxV/mtnsq45sDKjzfCHDhnIhqLL8ZfCFSv48SMgdW09wyP7MrdJOrZ0U4Z7VQpaJgV
hP26sW+lwErKrjKFFQwUL2Cddk5AxqAC87vP+JXs3daTPEGFsykMqTScVED9B6ulqsHT1rJNuw5zHTp2
SikLSwpYoBTgT51JXSvw8F4CYAl5QctlxvuDlrcJr/ezvEpDkWW1HTRXAZKN5PHXqMd0ZVxz5ceXYQ6c
E5Fbsf7FVDvDFRUK2cS56zMG1oPv9koDK0B2JbcxGI121CDqVQr69a1cawM/c0pBS1jBQOkxhgYWDHQw
07FHtXrLftZ73ApufqdBlYaVDlR6SGng5ILSJK43NUr0mpMCFjSiCmDxFotiABZVDmJggccnrtn0JVvZ
yw1Gc2ilwBUQWuk+LdQRL3Z5sPGzlCzLuzSUs6ynPxukwMhG8vibtnATu1qzsd9l5ev9DvOg1EduXkEV
/EVA11dpqm4lQwDJJFiISfVd+c2u5DYGZScGKruyLAWVfisbWLl8q+TDzWGVMthVWMFAgTYDgBXMaAlg
QQ/Vlt3uWT8o/QZMWsXebpXOqOSsyheoKEhJcMJAerOVWe+1nZoC1ra9R13AkmHlF1gUrEzAgkkKClhf
Ld3GgcWh1cAHtDTloexniZlDU49W2s8KUBpSWdabPdnqzfsUINlIjEFY6XDLE5pTdfITj2IelPqIxuLN
lC8Si7NH3u+dcXYF+14p5aCv7IpuY0jBypVdIaM9aClI+la2sEoa7BhWMFD6jF/BYQVeC0CKwwuVf6Nn
b2DvtZnMXiFAlYaVHlQ4m3JDSg+nmilNVvWFWwBUABbMFsrGe1BYBQGWriSctGALq9YwCSz/0HK3PIj7
S0HL1s+yLg0NBnzfsUsVGNlIHofP1h6gjG9QbqygFeZBqY9oLD4HfxFQosvkjGAFejUxTMmu5L6rwNkV
6mjXGu1BS0GNyZ6GlVwKesMKBsp7rSelZrOSSoNq7sqdrKDHTPZKozHeWZUOVJIvJWdSFKRccEJAestD
4KlBPxbobAELm+7QKAvXccycjaxawzFJaDngCgItd0e898wh5Wf5KQ1pAz75jL/bcqwCI1uJcdisz1fK
+E4qsRDzoFTHpRXq/CAnFv8afxHo3SiasTojYMF6qH++1IHMruiudv/ZlVIKmox2qhT0aGHwNtnT0+Mm
WMFAgQEDjY2rNu9PgWrFpn28PeHVxmPZK41kUGFYoaxKLv1IUBkg5QWn1lNcehuJZ1e7jrCte/QlYUkC
C9oaRHf/8BnrOPST0BoTCFrp0lCFlmLCa/wsr9KQzLKo0vDNnvy/HTxqdxQYlhiL4+esZ1dVakAAK/7N
NRULf4y5UGojJy9+F/El2NWVGqq7MxBQMmn87HX0flceXe2ZZFd6o91/KUj5VpnAihvBDYpYjabjWKLX
LNa471ze7AkDzA0rtZ9Kn1VpQKWBlA5OGEo61e0+i8MKhE13ClbFBSz4NwGsw8dOJtc87jjEvpy0il9L
Di0HXGloJc34zKFl9rO8SkOyoVQx4N1tDlMWbFJgZCMxFnftO8puqNpUGeegc6ofKzeW+AR/AdB9r6L+
KwJIXmrQbaqv7CrZ1W6eGfRrtMulYCq7si4Fad9KmRF0HnLopvaCFfdWGo5OZgAcVBpYGbIqv6CyAlSb
pN7hmqpV34mruXcFOnDkpKutgQKWDlaZAgt+RwALdqcQi7TbDFnIr2NwaHnMHNr4WYZZw6AGfMsvZysw
spUYj7p+rGgsXgdzodRGNC8+lPgCrGbjERkDC3YW9ZtdyV3t5uxKbRKVsyvaaCcaRKl+K1QKGk12CVY8
u/ILK61fZc6qgoCKBpQKJa62Sb0r6YP209iyjftSwDp1xt046gdYOljZAgteTwALmmwFsOp2+yp1PeHa
0tDSl4c8y9JAizLhFT+LKg0NC6Rts6wgi6ExsD7+Ypwyzh0VYS6U2ojGEhuIL8Da9J+VEbBgQSoAytzK
gLMrdc0gmV1R3pVHdkUb7RaloMG3SpnsEqyeLyZYUVmV7FGRoCIgpWRQCEpJTSPVc9zKFKx27EuXg7Lh
XhLlILQ0wHsJYMGmhLAwGzxBsZ4ya9AyloYOtMjS0I8B751llX+7Fz8aDsPIVjAmOw+bz3LpXUi3YS6U
yih7T+KnZMNo+ULuPwWFFWj6ok1kOWibXcld7Wp2pfGuMjTataUgASutb5VNWFlkVfag0kFKglK7aew9
jWp3nclWbz2YAhZsFIjLQROssgkskIAVrA4QO0nAvl5wDcX1rN7EP7Rs/axUU6mmNKQbSn0Y8ESWNWvZ
NgVEtoIxOWXBRu5N4/EOuuz+Jr/AfCh1UbZc4u/4g4OuqtSQbdx+ICNgtR0wB7UypMtBpZVBk12lgJXF
7Eo22r1mBclSUPGtKJM9i7ByZgBdWVWq/DODypVNEZDCUJL1frvp7P32aU1cuJVt2X2ECzbzy1Z2FQRY
8HNpw/0UX9cIwBo6fZ2zjjIAtMTaQ08T3qM0NDWUGrOsfp5ZVtcRCxUQ+dGWXYfYDVU12ybnFfwL86HU
BWzipXxwOCz1iRYZlYOgGg2GK9mVzmynWxnUNYOZZ1eq0a5tEDWVgpYmu2hehJ4gGCQmg12Y6y6/iioB
NVmVN6j0kJLBRKnr6BUpWEErw2nJu8pmdmULLJd/5ey0Cmref34S+A60YJZVXx5KzaWa0pA04T1KQysD
PmCW9f4X4xQI+RGMy7+/0E4Z76DcvHgNzIdSF9H8gtb4g4Oe+LhvRrAC3Vejq/e6QV0rA8qu5HLQd3ZF
tTFoS0E6uyJ9K5FdaWAFs1FBYeXyq5QSUJ9VyaAyZ1MqlEAfgDoIzeBqOmAhz14EsA4fO61kVxhWGFgy
rEzA0sFKBhb8bwGrr7/+hjevAqxg88K3vpjEr6EMrVSmJaAlZg9Fc6kHtLyaSuUsKwktPwa8vyyr6odf
KhDyIxiXL9YdrIx3UE5+oj3mQ6mLaCw+FX9wUO224zMC1uadh3ya7QFaGbxmBn1mV7LRnoZVGlj+fKvM
YUUb6xKsdB6VDCqPTCoNqCScZH3YYQZr2G8+W7v9ENuy5wjX3kPqHlgYVBhWGFiZloPwGgJYsA6Tr2vc
eZhNXLCFXzuenQaAFtXuEKg0pAz4IFmWZsYQ9q/HIPKjRFfNqdB58a8wH0pd5MTiW5UPHouzzkPnZQSs
yfM3GstBnF35amVwrRnMbnYlG+3+S0Hat0rCKr3chvKsjLCiSkAqq7IEFQUpgNOHHd0q7DuPm+xb9hzl
2rn/ON9LXi4FMai8YIWBFaQclHdkhZlKsRC7/fAlyawUQUvxtFLQSt4X0s8qpPwsd2lIzhpSBrzvLMs8
Yzhj8RYFQn7Ua/Ri3XmFOzEfSlVcX7XOd6Ox+H/xBy9bPpGeISRgZKMuw+fre6+81g3aZFdEOegru6La
GLSloCa70pSClMmeMayoElBT/mlB5Qmpr9hHjpoMWOiC1Y79x1xbIkNXOwaVDbBssysdsOTsCnZjFbCC
tY1vt57Mr51faCkmvEVpKGdZVGlIG/BEm4NFliWvMYRnv8+YYAuhhZIzheQSHXZZ1Sbfx5woNXHF/fEr
8QcGXVmxkK3YsDsjYNVuN8GqHLQy25VGUf2ODK7sipoZ1GZX7jYGVymoZFc+S0EDrMRsoC2slBLQJ6jc
kEoD6qNOaX0xdAnfVRTMddD2fcdcO4sGhZUfYFH+lexdgXYfPJ4C1peTVvNrxv0+BC1xnSloUSa8V2no
acAHybKUGUOd+d6bFXb3d8gq1urNe9nvH2ysjHtQTn7hdZgTpSZg/RD+wCDY6AsWLWcCrFcKhlr3XuHs
KpDZrulqzzy7UhtElVIQ9VuRvpWzkJmClZgNNMLKowT0AyoKUh9zzWRdx6zkGZWAFWRWGFY2JrtfWJmA
JbIreA8BK9idIbmeMdks+knH6clWDwQtcX1paJn8LIvS0MOAN2dZGi9LWmNI7uTwVm/2TosxCoT8CPZh
u/FhurUhJy+RhzlRaiI3r+Al/IFBdzzbOiNYgR54p5d3OajpvTKVg7atDIGyK2cHUU+j3aIUpHyr5ELm
TGEll4Bur8rtUWlAhSHVeSbXJ51nsmFfbUiBCiQOTvWCFQZVEGB5lYPwMwJWMDMIp1qLBdgDp6xJLuwW
e3vZQIsoDRU/y2dp6G5zyCzLMrU4PPNZsIMpZP27Wgdl3HOV5rMKdYdOpDbtI0Bko6PHT/OsKpNy0GS2
K9kVB1YSVvKODHJXu3Fm0DO7oo12bSlIwEpkV6kZQdwUGgBWKVBJLQoiq9KBSmRSMqg+6zabTVm8zQUr
mA38poRghYGFy0GQbLTDNiu8237XEbZswz72fvtp/FpR0Eq2hqT72ji0iNLQ7WdpSkMyy1INeM8sS5kx
dHe/yzs5UOY7TDTBIboYQn70jGYzv5xYvAHmRKmJaCzRGX9g0FtNnEXPBIxstH7rfuvZQZxdkZ3tQc12
tGYw+9mVaVZQwEotBRWTXfRZ6WClmOseWZUOVA6kBKg+6TKTFfSZxxas3euCFezAAIAywQoDygQrL2B5
ZVfymkHYWRR6wcTyoFZDFvFrxHegQNBK7k1vY8KrpaEya4i64LOSZRFrDE3meyrLeqs327jjoAIhP/q4
9Vhl3DvqhjlRaiIaiw8hPjCLd56UEbBmL9ta4uWgy2w3tDL4zq6oNga/pSDhW7lN9mRGIFoXrDMrbVbl
9qhERsUh5YDqky6zWLOBi9iqLQfY1r1HuWB/9qMnTqdOmQYBJLwAlQmsMLBwZgWvKWB15uuvk6WgA6uJ
C7by6yKukwIt5zANGxPeT2moZFlEm4NtlqWUhZoWB1wWzl+1Q4GQH8EpVnjcOyq9uzZAoxjxgZO7NBAg
stXYWevQNsjFWA7qsiuX2S52ZMDZlb7vym92JRvtZClo5Vups4F+YUWBKp1RzeKq1WUWaz1sKVu/43AK
VjATCMfPY1hhIJmEQeUXVhhY8PsCViCYFRSwWrphH/uk04zU9UlBy7l+cC1t/SyyNKQM+CBZlqH73bbF
gTLfg27mJ9R52AJl3CdVMBtzotRENBZfrX7gOOszerECIT8aOHG5VTnoaha1KQc12ZUvs93Y1Z6N7Mqi
FNTASpSCvmGFSkBspouMCkBVq+ss1nHUcrYJtjd2YAUNobA2UIYVeEYYSDphSOlg5QUsE6zAtxJLg6Dl
okHfec6So/QOFDK0klmWAVp+S8NMsyzU/Z6p+T5i+hoFQn40aNIKlkuM/WisYB3mRKmJnFh8L/7AsFfO
qOmrFQj5Eey5o2tnCNosisvBSjbloEcrQ+DsytJod5eCqm9lMtm9YSX7VapXlS7/0qACdR+7im3enQQV
KDkT6IYVeEYYSpQwoDKBlQws+FkZVslj0JKwAsFCbHE9KGgppSE24VNZlgotGwM+oyzL2OIgzHe6LIRn
XgCrd4bNo7C/OzSI4/EfjcUPYU6UjqhT53+oLvcryifYjEWbFQj5UfM+Xxm2ksFrB4uhHPRltmuyK2pm
0Dq7Ms0KEr6VAqsksPzDyp1VcVA5sPq062zWd9LapLHOYXWM7T6YnAmUYYVB5AdSfmCFgaWD1bGTp/ln
5msZdx9ho2ZvSl0HGlp2fpbXrGGgLEszY0ju5EC0OJjMd1wWth88j506DecxqjCy0exl29hVFelu91tu
afcdjIuzHs7GfcqHhZOel6/frUDIj+p2nOTdzmAoB1PAymI5iLMrl9mu6WrPVnblVQpSM4K+YYW8qjSo
krDqM2mNA6tjXKJtAftVGD5+hUFlAysBLAyrEyfPcLiK5UFTl2zn3xu+vwlafOtnGVo+S8OMsyzNJn++
zHePsrBx76/49tQYRLZatWkvu6ZyI2X8cwbc1/A3mBdnPeB4avxB+YetWMg27jigQMiPPvxirKd/ld1y
0K/Zbm5lILvavbIrxWjXzAra+FZOB7sKK9mzsoHVbK5eE1anYLVt7zG27/BJvog5m7DCkMoYVqfO8FnL
ZHZ1lM1csZN/PwEsuBYqtJx96C38LN2soSvLkgx4+yxLUxYaWhxM5nu6J8tdFtbrPDUjYMFGftc8QAOr
bIXE5ZgXZz3gQ+EPCoJ1hJt2HFQg5EfvNCvS+1dSO0N6KxnD2sFMykHCbJeBZTLbyewqNTOYeXZFl4KS
b+UXVshY57DqNpt1G5tcagOgErDCM4ECLhhCtsKQ8gMrELwGzqwErEAL1u5hdbrP5t8XvrsOWnDNPP2s
bGVZHjOGuCyUzfcUsAjz3bYsrN1hsgOsYNACYF33YBNl/HOVi0cxL856lC3f4Crlg8LWyBUbsH0HjysQ
8qOaTUch/ypYO4OfZtGg5SDOrlLAMnS1Zyu78i4FvWGl86sAVh1GLecGu4DVXsispDIQZgIxZGzBhX8H
C4NKByzI7GRYwT7x8FkFrBav38vq9ZzLv6v43hS04Fr5LQ2zkmUR3e8m8z0rZeE7fVit9pMyAtb+wyfY
7x+iF0CXjSVuxLw46wEfCn/QbAHr1cRw1b8K2M6Ay0FTs6i/clCfXSWBJXZkSK8ZVPquvLIrymhHs4Jy
KUj5VqKDPdW6QGRW2K+q3W02azpgEVu/83AaVsiz0sEqG8KQ0sFKXswMguUmHFbODObCdXtZ/V5z+XcU
3zcNreT14NBSSsNphtJQ6oInDHi7LEv0ZYmycBS5kwPOskzmO10W0rOFMAbeazUuCayAZSEA6/oq9KGq
pRJYueUTN+MPCoKdGmAtIIaQH6WAFdC/cu/bTmzUF7AcxNmVDCxbs13JrpSZQf/ZlVwKqr6V2hTqBav6
veax5Zv2p2CVnA1Mty4ArAREMGwyFYYUBSv4/+W1gaAjxwWsksCat2YPz6x4OwZveHWg1cmBlpNlwbWh
TXhNaRgkyzLMGJrKQpf57qMny6YsdAPLP7Tgj4PuFOhoXuFtmBdnPXSn5QCwMID86tk6A2n/SgJWJv4V
LgdlYGW9HJTNdo+udrvsChntRClI+VbpplDVYJdhVaf7HDZzxa4UrKApFHY3oGCVTWjh1/QDq4NHT6U+
L2j2qt0cVslJAwGsWfw7U9Ai/SyqNEQGvO8sC3W/m8z3bJWFGFgiy3q9cVFGwALpgAVswLw461GswPos
CaxM+q+wf4XLwco+mkUDlYNGs12XXbmX4JDZFWW0e5aCRFMo8qwAVrW7zWEjZm1KDXxYbgMPJi4DMVCC
wgv/LiUZVvA7MqhAMAkgw2ra0h2sbs+5/LvAd4Lvls6yZGgRfpaSZblLQ9mA986yDH1ZHuZ7sLJQbSLl
PpZUFsIzn01g3ag57qtUAiu3XP2b8AcVwIJ0EUPIj14tHK7vv5KAlbl/pW9nMDWL+ikHTWa7NrtSZgaD
ZFdSKaiY7DSsWg1dyo1qMfiPnTzjmg0UAMFQKQ5hvwrDCjYFhFJ12740rEbN2cw+6zGXZ4kgL2i5/Cyi
NAyUZWlmDG3Ndz9lIfaxeJal+Fh0e4OrJAzgY8Hkhi7DKp0locZ0vxpM90MZmu4ArID+lRtY/vwrXA6a
/Cs/5aDRbJfWDMpd7RllV1QpSPpWydlAGNif95jLFq/flxr8+48kWwXk1gVcmhWXMKxw2wKc1AxLgjis
9iV9qy+nrGOf95zLgYWhBd/RDS1kwhOlYcZZlgys1BpDL/M9eFmIfSxTWQhj4P1W4xGw/EGLm+4P0cAq
laa7bj/3bADrraZF9sDi/pUDrAD+lZ92hmQ5KIBlWQ4qne26ctAru0Izg3J2RRntmlJQhdVsVrv7HDZ4
+oYUrHY4vpUABLQOYIgUB7jwawtYCWiC4PmAzwflKsBq0+4jrMuYVaxur3ns854gN7Tgu/EsC0PLUBq6
sizJgFezLM2MoZRlWZWFhPlOl4W4idTOx6LaG2q3d/qwMgDW7x+i+7BKJbD0jaMN2OadmTWOvtt8tGq4
uxpGA/hXMrCs/Cu7ctDULBqoHNRlV9TMoEfPlZxdKSa7BKu6veayddvTLQxQCqZKrzNneCc5BgkWho8f
4dfSwQq61wWsQGu3H2athy9j9XrP58Cyg5amNCSzrHRpSGZZHjOGuCyUzXc/ZSH2sUxloa2P9VnHKRkB
C842vE7Th5Ubq5eDeXHWo0zFwkvxBxXAyrTT/aMvxqEN+3wY7hbrB/36V7gcdK0d9CgHldlBqRyUt5DB
Zruuq91/dkWXgsK3ggH95dR1KViJFgYhAIq8bQuGik4YSlj457EwrMAzScIqqRWbD7Bmg5ey+n0WcGDp
oFWnh8nPcs8aBs6y5O53rfmuLwv9zBZq1xZa+VjpfqyCrtPcwPLpY0Gn+7UPnktLc3SLnysWsuVwxBcB
IlvV6zQp64Y796+kvduz6V/htYP+Zwe9ysEA2RVltKNSUPg8MPgFsAAMcikow8ovtIIKG+wYVos37GeN
By5hBX0XcGDpoPWZgFbKz3KXhkqW5RjwvrwsC/PdqiyUZwtt1hZiYNn4WNJe7016z8wIWKs372PXatYS
XplX8GvMi1IQ7P9pt5dZnNn2Mi36zsxCh7tjuFuuH8TA8utf4XLQ1CzquxzUZVfUzCCZXRGzgs4ghplB
ASswsmVQYFBhYdBkS/JnEGUgB9b+42z+2r2s4YDFLN53ISvgoqGVzLLm0aUhmjW0yrIMM4bZKguxj2Uq
C/36WNh47zB0AQEse2jNWb6NXVWpoQIrUKncXgZCt4Ff0YzMNvDrMnyBneEuAytTw92i/yoT/wqXg67Z
QbkcbCGVg4TZLu91pZ0ZRNmVarQnYQXl0rCZG1PAOnwsvS4Psitxnh8GFRYGThCJ15KbQk+d+ZrtPHAi
BayF6/axRgMXs0S/RSzebyGXC1opYMnQUkvD4FmW6H73KAudU3ZwWaidLcyqj6Xpx0LA6jtuWUbAmjBX
t4Ff4iDmRKmJaCy+Sv3AcdZv7BIFQn4E2696Aytgh7vRcDevH/TrX7nbGfyVgyazPUh2hY12GLwwkFOt
DLxJNF0OAkQEsGygFRRe8u/KC5lFn5WAFS8DBy1lhV8uYgmQgJbItJwsi4KWXBrKBnxGWVaGZSH2sfy0
N5iBhdcV0sb7qK/WZASsIVNWKuM+qVK8RbLuEIq2A2YrEPKjcbPXZT5DaDTcBbAMhns2/SvNzgwZlYO6
7IqaGSSMdhjAib4LnNNujrGdUjkIM4MyrIKAy68AXnIpCH1gAlartx1izYYsZQ36L2aFIA9oqaWhyLIc
aHllWZrud5P57qcsxE2kxeJjeRjvUxZuUoHFoaXCiVLXEefmIRTkMV+F3aYoEPIjqI/VI72yMUOYvFmu
GULCv7IDll3/lZd/ZWoW9S4HpexKKgdTfVfyzCAy2mEAdxq9IpVd7edbxyRhATN0hw8fVmBVnOByHyN/
hu3gpeAJ3hTavmgVazhgCWsAMkLL7WeRpSEy4NUZQ9z97r8sxMByNZH69LHE8+UbWJqF0KLjfcHqnSqs
fACreZ+Zyrh3NApzotSE7iDVd5qNUiDkR+u3HXC1NCgzhDKwSMOdmCHM2HDPnn+ltjPYzw6aykFTdiV7
V8KIHgTNok4DpuxfQdsBAMsLWtkCF86udh88mQTWgRNs5NytrNHApazhwCWe0JL9LHLWMGCWlUlZiH0s
V3uDvBg6gI+VifG+aechFVY+gFWr7Xhl3DsqvQep5uYX1Cc+MHvso74KhPwItqf5d/UuemAV5wxhynAf
pPpXNusHjf1XPv0rv+Wgoasde1eQcUxctD0FLLmdASAigGUDrUzBJbcxwOcAox20evth1mTwMtZo0FIE
rcUKtOTS0DVr6OVlEd3vGFhylqUtC+Um0oA+Fu7H8gaW28dKAcsx3nXAAh07cUaFlQ9gvfD5QGXcJ5Uo
xJwoNZGbV/CS+oHj7J8vtFMg5EdwQap80NcNLNMMYWoPLA/D3WqG0GC4y8CyMtz1/Vde/hUuB2Vg4dnB
ZDmoM9vxzGBy0AKwYM8oASzZcAcAycDyAy4bgOGflcvB/UdOpYA16KtNHFhgtoN00NKWhrKXxaFlmDEk
zXdzWYh9LFNZqPhY2n6sbBrv9EzhC/WHqaBKAcsOWve91lkZ91x5ieqYE6UmcmOF9yofOBbnDWUHj5xU
QGQruCA1GowwzBBmoaXBdoaQ9K/sDHcv/8oKWJpmUT/lIM6uINOAjGPJhn0pYMGCYgENDKqg0LKV3Mqw
62ASVlv2HGMthi3nwBLQUjItpTSUWh00XpYoh6ksC5eFptlCVxNpEGB5GO/pXUg1wJJ9LC2w6JnCD1tP
UEHlA1iHjp5kf3i0uTLuQTl5iTzMiVITugXQV1VqwFZs3KOAyFZwUeCoLyOwArQ0uGcI1S2R7Q13DKws
GO6p/it7/0re8woDC5eDstkOmQYM3pVbDqaAdcaBBsDj0KFDXBhWxQEuyLgErETfFWjxxgOs6ZDlrOkQ
B1guaGn8LCLL0s4Yyua7RVmIgWXnY2XReLedKTQu0UkCqzHV5e4DWGu27GPXaxY+5+QXXoc5UWri+qp1
vkt2u1coZBPnrldAZCu4KF1HLDQAi5gh1C16tm1pyNIMIWm4S8DChrvWv3KAxctBGVg2/pUzO6gvB5NG
9LodhzmsYCGxgIYMLC9oZQNesuF+8nTav5qzZi9rNhSAJUFrkAOtgTK0nNJQzrIILwtnWar5rp8tNPpY
RmAJ411kWUQDqS2wgswUKsBK+lhk06gPYE1btJnve4fHPeiyqk2+jzlRqiInFt+KP3Q0P866j1iggMhW
cFGmLtjkuS2yFlhkSwOx6JnYw52cIUwBy8cMoWK4C2BlZri7/SvRzpD2r2zLQRi8G3cdUYAFPVgysGyh
FQRe8PMysGAZjgDW9BW7WbOhK1LQkktDxc8isixcFmrNd8LH4lmW3ETqw8fyZ7xn0vGeBhaeKSRbGyRg
zVy6TQWVC1oqpGT1G7dM0+Ue34n5UOoiGotPJT44+7zDRAVEtoKLAqvBfTWNWvZgwQJQ7QyhDli2LQ2W
M4SvycAy+VdK/1Xm/pUoBwWwxFYtAhogDBYhbJ5nQ/IMIQeW42EBsJpLwMLQwlkWPWNImO+oLPTrY6W3
nLHrx+LAknws65lCT2AFb23YtueICikfwGrYY7oy3h3NwHwodRHNL2hNfHD29KdfKiCylbgw5Wv28N00
SvZg+dilIQUsyz3c9TOEAliZzxD6NdxJ/6pHGljJ3qT5WmCdLQGwuOl+EIC1hzUfBsCSoUVkWcjLwn1Z
dFmIZwuD+VgZG+/KTKG6RMcbWMJ4T04SeQHridqDVUBhEZCS9UrBUGW8c+XF22E+lLqAaUzlg8fi7Lan
vlBAZCtxYWo2GWUGFtmDRQDLtgdLAyylpcEKWKilwXaGMIjhTvpXorvd3SwqsisYvKIcLF3AOsmhtWrb
YQ4sDC2cZfkpCwP5WLplOhhYraf4B5bsY9m2NmiBhXqxNMCq1c45QNUkAlKy4IAYPN5BuXnxGpgPpS5y
yhfcjj846JoHGgXeyE9cmI5D5ivAsu9yt28a9btLg5hipoFFryE0zhCmNuzzMUOoNdzp/ivsX8EAloF1
9MRpfnjIsZNYZ3gzp6dOqQIA2Yj//Mkz7NCx0w6wTrJ1O4+wFsNXJqGlybLcM4Zu8x2XhXi20NXeoPhY
Fsa750whsaGfNbBEawMBLOteLBpYPUcvUQGFRUBKCHYavekRuqUhmlfwL8yHUhfXVCz8cTQW/xZ/eNh5
NOhMobg4MxZvUbvcswAsvI97doDlrwcrUEuDcYYQb4Ns9q9g8M5auTsFrGR5mNxzSiw6Tiu5TAYkTHFF
B0/wzEgABwuW21CSf2btjiOp/z1i7lYOrBbDktDiWZbkZaXaHHBZ+GWyLMTAsvaxNA2kCrCsZwr1wMIz
hcUBLN48KgFrzortKqCwCFAJTV+0Wbtx32X3N/kF5kOpjGgssQF/eJgp7DhkngIjG4mLAxvdA6gyXZaj
NI0G6XL32FbGdw+Waw8seg2heYZQ7XD3Y7jD4G02eIkDrPRuniZgKZDyA6tDGkk/t0YCVssRq1hLAJaT
ZfkpC0kfyxZYsvFuO1NoBJa0ptADWGRrgwlYxuZRdV8smC2Ehm4FUFgEqIR6Fi3me97h8Q7dApgLpTai
efGh+AuA3ms+WoGRl/AFerHekFIJLG2Xuy9gaVoarICFWhosZwiFfwWDFwZyw/6L2NCZm9jkJTvY2Pnb
2LgFaY1fuD2pRdvZBNDiHWwi1042aUlak5fu4poCWgbazaYuB+1h00ArPLR8D1uw/gAbu3AHGzp7K2s1
chVrBcAakQZWEloOsOSyUJ4ttPKxfABLnik0AYtYU0gCS+7FCgAs3DxqBpa6PKdm87EqnCgZerHqtJ+o
jHNQbiw+AnOh1EZOXuIj/AVA+W90VYDkJXyBGvea4RtYVJe7GViZLMvx0eVu2zRq24Mlb9jnc4ZQAAsG
MwxqGNwwyGGww6AHTwggADAArwjgAJAQLQaQ8QBEoGQDqEBGBJD5YuRq9sWo1az1qDWsTdEa1mb0WtYW
NGYtazdmnUvw3+Df4GfgZ+F34HfhNZLAWqWUhV4+ljew0Ewh0fGuB5ZobfAGFu7FUppHzwKw2gyap8KJ
kgFYVd7ro4xzR7UxF0ptRMvH7yS+ALvugcZs576jCpRMwhdo0rwN2QdWVtcR2gPLusvdCKxMWhrSM4Qk
sABWBLCSbQRJSCRhJQELYCWANTIJrNYALIBV0Ro3rMauY+0dwf92QQuAVSQBa2QSWEpZKPtYg8RODgSw
HB9LDywxU6gCC7c2qL1YBmB5No/67HbnwLJYnmMBrOmLt6hwoqQB1u4Dx9jNmjWEsK4Yc6HUxqUV6vwg
Jxb/Gn8JWKIzdtZaBUom4Yt04MgJvtDZCliGdYR+gaVflpMNYAXvcn8/28Dqu4Cb0zKwoLRKAyuZXYHJ
7RtYo5PAaucAKwmr9Y5EpuUGFvyuEViSj5VeqqOfKcwGsHAvFm4eLVZg+VhPSAMrOVMIntbBoxb+lQFY
k+dvZNfQS3K+uf7OOj/CXCjVAVujEl+ENe45XYGSSfgigWo2LTICy2bh8wUHLHmHUaIHq9iAxcvB1a5y
UIZVh3FJydByl4XJktIfsMRM4bkDLLyRX3ED69P2Fv1XHsD6YsBs8KqUMR7NS8zHPCj1Ec1LNFW+SCzO
nqrlr+MdXyQQzEyEwCrdwALPqcSBpbQ2hMDSAWvAxBUqmHTSAOvl+nSHe05+vCXmQamP3LyCKviLgKDm
hf1zMJh0whcJtGrTXiOwkiVhCKwgJWGbEcvZTN6PdZwt3bg/qU0HuJZxHWTLN0vacpCt4DqU1NZDbKWk
VVsP8y51ru2H2ertR9za4Qj9d2hxgHaGGSv3sHaj19gBKywJrYG1dusBFUw6EcCCLbRve6aNMr658hOP
Yh6U+oDTXnUNpNMWblLApBO+UEKPfdLfA1gXhoeVTdO9Q9FKdx+W0n/lyNQ0aujBMvZfYaHfbVO0mgYW
Mt0xsELTHQNrAKvecJQKJZMIYM1atlXbMJpzf/1LMA/OiYjG4ovwlwEVdpuqgEknfKGEvug/2xtYtrOE
F2xbgxtYSzbuVxpHFVh5ASsFrewCa/yinWFbQ5baGjqPWKRCySQCWC37zSL9q5xYfCnmwDkT0VhBHH8h
UIU3uylg0glfKKEl63ZZA6s4GkeNwCrFjaNiQFJ9WGJZDoAK9nQ/feYMO3Pm67MmOBhBhpaucVQLLNvG
UQSs871xdMXGvSqUTCKA9ciHfZVxDcrNjzfCHDhnAhY/4i8EgoXQG7YfUOBECV8oWU/VHnjWgFU8ne5Z
XJqjARbudJeX5mzZczQFLNhp9GwrvVvDSTZz1V5XOSgvgAZYyZ3u58zSnAyBBc+dPbCSVUONRkUqkLyE
xt3mnYe0C54vL1f/bsyBcyZuuaXdd6Kx+CH8pcrmJ1jfMfbH1+MLJtR20FwLYDmLnyVgGRc/BwQWh1Ym
wHItfqaB5bX42X14qn9gyfthyeCAXUdLSi5gnUwDC8x3XA5qZwgHqouf01slX9iLn7sXLVaB5CU07gZP
XsmuKF+owConP370yrwW/4c5cE5FNC8+CH8x0KvxoQqYdMIXTGj5hj1Z2a2h1G0vY7tbQ5a3l6GABUdu
7du3T9H+/fuLRbAFMwmsFUlg4exKWw4SM4TG7WWM2ySfP9vLrN68TwWSl9C4e7vpKGU8OxqGx/85F7mx
+IvEF2M3P9KM7T14TIETJXzBZFWLD7MEVoAN/IIcoqoAK9gGfklgldwGfrDHuR9gFRe4aGAldxzVZVem
ctDsX7lnCFVgnV8b+L3TarwKIxtJ423foRPs1idbKeOZqzSfQWgbV9xXrwzV3gBl4aCJyxU4UcKQkjVw
4oo0sM7SFsl2wEqWhSlgBdkiWQJWoC2SXc2j6kxhEGBlG14ysGATP7xFMp1d6YFF+lcKsC6MLZJHzlir
wshG0ngbOX01X2KHxzNXuXgUj/9zMqKx+Czly8XirFr9wQqcKGFIyYI9sgBGOmDhQygq4UMobIGVxUMo
FGDJvVgmYAU8hAK3Nuh8LB2w9u7dy4UBZRIGka0wsPghFBxYu9HMoJpd2ZaD1v6VboZQBtY5cgjF058N
YQds9r6iJI23mo3pcjAnVjAXj/tzNqKxeE38BUE3VG3Gdu333r0BQwor0W2aCqyAx3xZASvV2uABrEyP
+XKA5asXy+dMoe6YLwpYfqEVRAqwnN6urB/zpfOvCMPd1wyhr6ZRDKziO+arZf85Kohs5YyzPQePs1ue
+EIZx6DcWPxdPO7P2bgyr/Ay6oDV3PIJ1n/8UgVQWBhQWAtW7TADy3iQqgQsDq3MDlLVAks+SNUFLMtu
d8vWBtrHMhjvUlm4Yac3sIobXjpgTVsOwEKloEV25V0O6g6g8GG4W88QYmBlsI7Q50GqS9btVkFkI6kH
a+iUVbpy8NvzphwUkZMfn0Z8UfbEJ/0UQGFhQFGqXjjc86h6GlhieQ4CVqCj6pMPkq9ud5+9WNbGe0fV
eFd8LFQWysASbQYmYBUHuPTA2uWCFTUzqMuuTLODpg53k3+FDXc7YOlnCH0Dy7QsRwZWrUHsvS8mqCCy
lQSsl+oNVsavo1l4vJ/zEY0VvEF8UXZN5UZsxYY9CqT8Aqvoq7XpmUINsJTmURewRFlIAMv3esIs9GIR
M4WZGO82ZaEAFkgA69SpUwqgTMIA8is3sE4jYLlhpZSChuzK6tRnD//K2nDPdIaQ7MEK3jQ6Yd5GFUS2
coAF7RDXV2mqjF9HNfF4P+cDFkRSm/qBGnisLcRwogTHUj356cAsbjGTefMo2Yvlo7XBzngnFkHLPhZx
eo5cFspbzeiAtWfPHi4MJz/CYJIl/9zBgwdJYE1dvssOVmhmUGe2u2cHdeUgbhj151/5ApYyQ2jR0mDR
g/VaoyKeqSogspUDrBaatYNg9YDlg8f7eRE5sfhw4guzO55pbdxyBsNJp75jl2p6sXwuzwnSPJpha4PW
x/JtvOt8LHW2EJeFXsDKBri8pAXWsl0pz0r1rVAp6JoZ1GdXptlBuRy09q+INYT2hrthhtB3S0O6B2vI
lNUqhPzo9NfsyLFT7K5q9GGp0Vi8CI/z8yZy8wsqEl+YlS1fyEZMW6WAyi+woMXhgff6EMDy3+1OzhRy
YPlsbbCaKTQb7358LF9lITLfbYFVnPDSAmvpLsmzMvhWuBTUZle6ZlH/5aCdf0Xv0uAy3APPENItDc/W
G2Z3jJdJp79m42avY1dVbKCMW1BOfsGDeJyfN3HnnXX+N5oX346/NMhrJ1IMJ506DJlnAFYWe7EkH8sL
WNnzsTwaSA1loXu2kDbfN+w8zLbt9QesbMMLA0tsZTN16c4UrEQZaIKVqxT0yK5SZns3KbsiZgfdW8r4
678yLcnxbbhbzhD2GL1UBZBfwc6iBUOU8epoF6wXxuP8vIrcvHg94ouzqys3ZPNXbldA5RdY+w4dZw+8
11dtbbDtxQrc2oCNd7ttZjLxsazKQh9NpDpg7d69W4GTjTCMbHTgwIHUex+TgDUFgAWgMpSBblhp+q4k
70rOrmzNdqtyUO6/IoCl+FcehjvepcFmhvC5+sN5xaEAyI9Of8MWrd3Frn+oiTJeufLiCTy+z7vIqVA3
l+rJAtVsPFIBlV9ggboMX6gCy6q14Ut9a4NmptDeeNesKbTxsYh+LNuykGwidZnv6SwrBay9KrCEMJSy
LQVYcMr0/uMcWKmsSjLYU7ASvhWaFUyXgvTMoJxdpdcOEmZ7gHIwE/8qU8O977jlKoD86vQ37KPW45Vx
6ujbsrGCq/H4Pi8jmlcwmrgAnOTrtu5XYOUXWLAE4bFaA0pmplBnvFss0aF9LO9+LKUslJbpyFmWe7sZ
Q5bleFk2wCpucKnASu5yOmVJElgkrERmhX2rPklYkaWgJruyNdtty0Gl/0q3LXKG/pUMrFcajmKHjp5S
AeRTG3ccZH94tIUyTh1NwOP6vI1ofuJ+4gJwJbpMUWDlF1igEdNX+waWlY+VqfFOlIVePpZtWejaH8vL
fEdeFpSGfoBVXPDSAWvykh0cVPawokpBZLST3pV7KY6V2Z5BOejHvzIBSzbcx83ZoMAniJr2mQkHSihj
1FE5PK7P42D/T7ff+5+eaMl27D2SMbBOnPqa1Wg4kjDeM5wpJMpC1ceSOt4JHwvvjaX1sXyUhdomUoss
S/RlBQUWFoaQH7mAdcINLAEqBVbCs9LASl8K6mcGVbNdwErfLGqaHTSVg3T/VTD/6qO2E5PjhQCQH8Ea
39ufa6uMT0fLYQzjUX1eR25e4mniQvDmtEY91MNWMZBsBGsM898qeePd28fyWxZKs4UeWZarLKSyLNRI
KpeG6zXA2rVrFxcGUxDJcML/BoIdG0hgLd7h8qv4DqI+YKWUglTfVWpm0MO7MpjtSjkozw7atDMQ/VdG
/woteg68ZhCpVf85vN0Ij09njL6Ix/N5H9dXrfPdaCy+A18M0C2Pt2Rbdx/OCrTqdZ7i23jHS3Sy4mP5
LAtNs4VyE6mV+S5lWXRpmMyy1u84zLYagJVNcOmkA9akxTuUEhDPBrphpfpWVCkod7W7ZgZJ78ouu8pG
ORjEv2rad7YCniCCCucOfXa1A8YuHs8XRMCWFMQFYbn5CZboqi7XwTCy0fa9R1iVD7+09rG8Ot69NvOT
faxUWWjRj+UqCw2zhXrz3TvLUvuy3KWhLbCKE1wYWHA2IhyKAcBSQNV3gQQrx2D3gJV7VtBktAfMrrJR
DhL+lXieKGCBf/VifATbtf+YAp8gatZ3Jt9gE49LPjZjiU/wOL5gouw9iZ9GY/ED+KKA/vBYC7Zpx8GM
gQUaOnVVClh4iU7x+VhZLgsNWRYvC6ksK9VISpSGKMuCgZsE1lEOLRtgYWH4BJECLOd8xEmLt2tAlW5d
0JWBJt9KlILefVce2ZWH2e5qFjWUg37aGWT/avSs9ew0AR+/2rLrMPur7kTnWPzQ5fnxn+NxfEFFTl7i
I+LCsGgswep1nJQVYMHvvttiLNHx7t4uWetjWWw1o+3HylJZaGe+01lWqjR0ZVkqtNLAOhoIWJQwkLwE
i6EpYE1ctD0JKsmrkktA0brgBSvVt6JLQbmr3S678jbbs1EO4j3cQZ91mppcpEwAyK8a95rBKxx1PPIj
6D/F4/eCi+vvrPOjaCy+R7k4sTg/+2z9tnRfFgaRH8E5iNABbzbesY/lcRK0RVmIgaXMFlo0kVqb78SM
Yao0pLIsURo60NIBa+fOnVwYRsUhGljHOLBIUEkloC2s5AZRUymo9l0FzK5cZrtHOSjPDlqUg8/WH842
7zqUlewKKppbn26tjMOkCvZfmVfnJ3j8XpCRm1/wjnqBkjOGtdqMy0qWBeo1ZkkgH8tUForZmWyWhbos
K1UWGrIsV18WYcBrodVlpiewZGHQZEsqsJIbCk5wgCWDSs2qbGBF+Vb6UjCVXRn6rrTZlYXZHnR2UJSD
Ayev4rDKBrAKukwx9F0lPsDj9oKNSyvU+UE0Ft+pXqQ4u/aBRmzh6p1ZARacJPxOi7EKsPz4WMVdFsrm
u5xlpc13fZal9mVpSkPNrOH6HYfY1j12wCoueGmBtXAbCSoqq7KClWhhQL4VVQomgSW62oNkVwaz3Uez
KC4HP+s8jY+JbABr6frd7MaHmynjz9Hui+9r+EM8bi/oyM1PvE5cKK5navdnJ09lDiwQmIpVP+qv3bnB
5GOZykLhJ1BlITlbqGzqh7Is2XzXZFnKjCHRl2UqDYWfJaCVAtYef8DCwhDyIzewTqW2uwFgyaWfNqsS
R3V5wEr1raTsSoGVKbvSzAx6ZVdGs100i+rLwRfjI/kMeDZgBePqlfgwZdxJOv92FM00nGPtVxIXi11Z
oQE/Dy0bwAKNm7Oe9LHoLZPRukKfZWEqyyLKQpssi25xIGYMDQa8Whqq0AIPZx0BrLMpGVjjObD0oHJl
Vah1gXtWtrAylIKpNYOWfVdkdmVptnuVg1MWbk7BKlNgwXiA3VLwuHO05pw/fr64IqdcQYy4YFz3vtop
tSspBpB/fcMKu083+liBy0LLJlKd+a7LsnQzhuksy2TA06Uh9rM27TpSaoE1adF2PaicrMpVAqLZQAwr
k8megpVHKZjuas8ku9Kb7bpm0Zb952YNVoePnWIVa/ZQxltaiUp4nIYhBWy5ql605JFgrfvPyhqwYEeH
l+PDfbc3mMpC7WyhV5blmO+6LEv2spTSkMqyLEpDClpbHFiBTp46zU6d9hacqpMWnLKTPR0+djK1VAgk
1gKSoHKyKgpWfDbQE1aUbyXNCiqlYDFkV4TZjtcOwnHzsBNDtoDVedgC7RKcaKxgLB6fYaCIVii4NhqL
n1EvXpzdWLUpW7lxLwGgADrzDVu7ZT+r+uGXPtob9GWhqYk061mW0v2uNpOaZg0xtIQJP3/NnhS0Vm89
mIJXSs4MolvHUt3x2daqrQdT/3vIVxuV0k/xqki/SpoN1JaBNKwU30pTCvrqu6KyK0uz/YX4SLZhx0EX
rDIB1pot+9kfH2+pjDMQHBhzRX79G/D4DIOIaCzeHF9Aoac/7Z88BQQDyLeSN23C3A0Zl4W+zfdsZ1ma
0tA1a2gBreYDF3JgCSnAKmFwLdu4P/W/6/We5wtU2YKV4ltpjHZdV3tm2ZW7HJy2aEvWYAW7mVQrGKqM
L6HcWPwLPC7D0ARfsqPZ+71s+QTrNXoxASC/St+8doPnZVAWoj2yvLKsggBZFtWXJbIsTWlI+lkKtNKe
jRi8Db+czyYv3sZWbTnAM64FoLWy9rKFoHXeWoS1HrTPQns5pKYs3s5Gz93M6vVKwopDCpd+cvmnLQGD
wirpW9mXgsWQXTnlYPeipQqsMgHWgIkr2JUVdaVgfNcFvwTHb+SUjz9AXEiuPz/Vim3aeZCAkE85Nw8y
to/aTKBnCw1ZlqkszFqWpXS/u9sctKWhxs8SJrwJWkrLg9P2IPq1UusPUwunnR0fpG2Xk3KyICkz8qM0
oNKQIjMqQ1Yl/Kpkn1V2YeVVCqa3kAmQXUlme0H3GTwjwrAKCizYCeVvz7dTxpVQbizxMB6PYVhENJYY
iC+mUPWCIbw3S4GQL6VvIhxeUS0xwlgWkmsLjeZ7JlmWpvvdpjTUNJTqoUUb8fIMYhJcErQIcCXhlQaX
G14IYg7I3FCShQAlQcoEKiqrSjWFamYDSVhJJrvJt/Iy2lPZlaur3T67eqfVBLb/8EkFVEFhBZNWNZsW
KeMppbz4UDwOw7CMMhULL43GEgeVixqLsysqFLLuIxcSEPIj983ctPMQe6rOYKkszMx8lzvfrbMsqi/L
ybKMBrxUGpr8LDtouc14Y7aFwUXBC0FMBzP87/j3SUhhUMlZlVQCig52X7Cy9q3U7EqGVdDs6rXGY3g2
hEGVCbD6jV/GrtScMRiNxQ+ft6c4l1Tk5hW8RFxYrpsebsaWb9hDgMiH0A1dtn4Pe+Tj/tosC5eFxZNl
SWsMtQa8VBoaG0ozg5Y+26LApYeXUjp6yv278mvKHpUOVGpWle5gDworyreiS0HVaFe72s3Z1UuFo9jK
TfsUSGUCq9Wb97FbnmiljKOU8hLV8fgLw3fA/u8FY5WL6+jBd3vyhlIFRNZSb+y0RZu56c6B5Wm+F2OW
ZTDgk9Byl4YmP0sLLcWIT0PLVSLK2ZYGXBS8FIARINOBScmkKEiRoNJnVVmBFWoQpWYFvYx2XVe70Kzl
2xVIZQIsaBB9/OMvlfGTVmLiBbdPe3FFzv31L4nmxfepFzm5O2lhN9gPCIPIh4gbPHLGGvbgB3bmu67F
wTPLovqy0E4OZGlIzBrSflZwaLnNeDXbIsHleFwKvBDA7OV+DTekDKCSsyqiBCRhJQx2A6yobnacXfkp
BansChpFx83dqAAqE1iBmvWdZWoQ3X/FffXK4HEXRgZhmjW8qlJDVvTVGhVE1lJvMGjgpJVqWZj1LEvq
fkc7ObgMeKU0pKCF/CwbaBEtD+K4MDXb8gaXDl4kxAzCv0dCyhJUVFYVFFaUyW6aFVRKQWS04672ETPW
KoDCws+pl6DX8LoHGyvjRig3r6AKHm9hZCGiefF2+GIL3fpkS7ZiY1A/S73JQr3HLKXN92LIsmCVfrDS
0GDC+4QW5WvJ2ZYeXDS80gDTQ0wRB1MSTgqgCEilSz89qFxZFWoK5bASs4EWsDL5VlQpSGVXaVilsyt5
byud8PPppdVb9rE7ntNueQzqgsdZGFkK2JMnGouvJi46V8W3urN9h04QQLIQcbOFAFrYfFezrKT5rs2y
qL4skwGf2n6GKg1paCkmvBZakhEvNZdSJaIu21LApYMXATDfcl7HBSlPUOGsivarig9W/kpBG1j5BRas
l334w77KOBHKyY+vhR1/8TgLI4uRU6H+n6Kx+Al88bny46xmk5EBF0irN1wWlIfJDCtIlkV0v/sqDYlZ
Q+xnCRM+ILQoX4vOtszgouGVBJhQCmQapX8WvwaGlAoqOHjDnFWpJSCHFWSelrAymeyKb+VRCgKwRny1
TgETJfxMGnX6a/ZR6/H6/dlj8VNlY4W34vEVRjFENFbwHHEDuKA/q/WA2QSQLIRvOtKIGWs4rPRZloeX
5cqy/JWGpJ+l68/yAy1NiahmWyq4cKlIwcsMMQ8Rr5N8ffV95YxKBpU2q3L5VU5TaEawonwrNbuSS0H4
v2PnmA32oMDqPHwhu7qSdo8rlpNf8AIeV2EUY0RjBW3xTRC65oFGbMDE5SqQPKXeeCzYOO3RWgPNWRbV
l0WsMbQrDSk/K90FbzbhvaGl+FqaEtEMLjXr4vBKAYyGmJ2c3ydePwkq9+egQOXyqpQSUO5gt4HVeJ7N
esHKqxR8ucEo9tXSbQqUdMLPoUnDp69hv6/SRBkXQrmxREc8nsIo5uAnR+fFv8I3Q+imh5uz2cu2EVDy
EPEAYMH+18/WHWqfZVka8FRpaPKzPKHlkWmJZTzGEtEDXLLHlYIXkXlhcZgRwj+HhTOpNKQoUJmzKncJ
6O6z8oSVmBH09K3UUvD1pmPZCkNTKBZ+/kyav2on+4v25BvYNqZgbriD6FkKWEYAG+TjmyL09+fbslWb
/O6fpT4ElOBopdcaFVlmWQFKQ01DqQ5aaT/LDlpUtqWUiNbg0sMrBTECPp4i4KSFlAWolKyKKgGlPitc
BgpYpdoXdLAy+Fbvt5nEtu1J78VuI/zs6bR263529yudlHEgaU/ZConL8TgKowQjp3zB7dFY/DRxc7hi
b3Tj67FUMOmkPgg67T98gn3SbpKUZdFrDH2XhpqG0kyhJfq0OLjEMh4ZWgHBlTbnJXh5AMyvktsVuyGF
syle+nmAisqqlBKQ6LMKAivsWxV0/4rP3GEgmYSfOZ3gQIoH3+2tPP+STufkxe/C4yeMsxA5efEnorH4
t8RN4mcbVnm/N9ux9wgBJ53UB0In2Jqmw9AF6SwL7eRgNuDNs4ZmaDleibbdQZ49RL6WgJahRJS9LS24
KHiZAIYlQKQACUsClAIpdzZFgsoiqzLBKmWwB4CVyK56jF6m3SLGJPy8Udq1/xh7pvZA/qzj59/RtzBG
8LgJ4ywGHPRI3CiusvkJ9mStL9nuA8cIOFFSHwovTZq/kT1ZZ3DWSkO9n2UPLTF7aGPG68AlZ1tGcOng
5QBMhZi3KDgl5c6k/IEKwyoNqlQJSMFKGOxaWNEm+yuNRrPpi7cqILIRfsYo7T14nL1cMMyw7AYUHoJa
KiOaX9BavVkOtMon2PN1B/EyTgUUJfXh8BJ4CDUaF2kNeKo0pJbtaP0sC2hhIz6ZbZmhpQOXrkx0gcsA
ryTANBDzJRpQGFLu0s8LVDirQuZ6FmD1QZtJbMN2dQ92G+Fni9LBIydZjYYjeSsPft6FcmLx7nichFFa
ouqXF+XE4uPwTRO6onwhezUxnN9oFVCEiIfES+BRNO49U8myqNKQmjXU+lnZhpa2RMRlohtcNvAiAUbA
TCv88xhQFKSwR+WASi7/7LIqDaxE64IlrFoPnq+cbuNH+LnCOnTsFHur+RjT3lagCTCbjodJGKUo4Nj7
3Fh8OnHzktCqUMheK7SFlvqg2Gr83A3smbpDfZSGxQQt1BGv9bU8si0juHTwQhDzBBkFJgQnGlIqqOSM
yjOrIkpAYa77hdVrjceyKQvVwyL8CD9LWACrd1uMZVeZYTUzXHZzjgQcYgH9JsRNdKDVgEPrgE15SDww
toLZyY/aTrQrDR0/y9OEzxhaHtmWCVzY41LgpQJMCzEfkl9LBhSGlC2obLOqJKyS15BfTw+DvV7XGWz7
3qMKgPwIP0NY8If2neZjPGCVWAhjAI+LMEpxXJlX8OtoLL5EvZkCWgn2Qt0h3LRUIJWlLAt04tQZ1m/8
cg4mpTTUQMtkwvuDlsaM98i2TODCWRcFLxJgBMiMwr+HAUVBCntUUN5qQEV5Va4SUIFV8ppSsIJ/Gzx1
TaBZQD+wgoX9rzcaya6sYIJVfDk8+3g8hHEORDTW4LewIp24qVwws/LUpwPYzn1HCVBlJ8sSAvP1k/aT
9dAiS8Og0ELLeCRoeWVb3uDSZV0IXgTEaKC5hX8Ow0kHKZxNaUEl91ZZloCu5TYIVvW7f8U27dTvu+5H
+JmRBTPcL8eHmg32/PjacE/2czxgJ8VoLL4e39wUtPIT7JEP+no0l6oPUBDBLhIjZ6xlz9YdRvpZxQ2t
dIlIZ1u24KLgRQMsCTESZJYSv+96TQwoKpvSgkqfVblKQORXcVg51xau8WtNxvCFy/BsYPAEEX5WZEFT
6LOfD2ZXlNfuvADaGC0Xj+LnP4xzMGA5QjQWX0PcZC5ouKtYswffpF+FVXahBYKMrmGvmSS0TCa8b2gp
JWJyEFLZVlBw6eDlAhgJMguh38evr2RSKUgFAZWpBHTDquWAeWzXgWMKdIIKPx+y1m07wB75oB+L6reJ
Aa3Pua9uLn7uwziHg+8Lnx9fRtzslP7xQjs2y7RgmnigMtHitbvYB60nGkz4zKCl+FqabMvd/mAAlwW8
UgBDvlfmSr8ufj/+ORCkZI9KAZVc/hFZla4E/KzzdLZsw14FOJkIPxOy5q3awe6p3ll5Tt0qWHnpPe/D
+sD/jUQiF0Uikf+JRCLhYRLnQ1xaoc6vonmJ+epNT+sPj7VkI6avVmGV5SxLCMrEUV+tYy8VjgwGLU3L
g5JtSSUiZcir2RYFLjrr8gKYC2I+hF8DQwq/fxpS3qCiyj85q5Jh9WaL8fxgiGyVf0L4WZA1ZtZ6464L
DqwWXXrLywCr70UiEdiBAXquvhOC69wPuHFwA//30lte/lU0Fp+h3vy0YMP+DkPm0TuXEg9XNgTT1b3G
LGXP1x+RMbSobEspEeVsywAueXkPBxcFLxPAhDBwbJXKnghAWUCKg0r+PmT5h7wqB1Q1mo5l/SetyqgB
VCd8/1M6/TXrPnIxu+Hhpspz6VJe/Tm/uKESnHQDvVY/jEQi3yfAJbKuEFznSMCNghsGNw5uINzI//vx
tQ/8Miev/njlIZAEU8fvtxhDLOUhHrIsCqauu41awp6vP9wALcmIdzWXOuCioJWQS0Q623KViRhcyOPS
wcsEsKzIBSg9pORZPw4pDagor6pGk7Gsz/gV2iPiMxW+50KwSqJ2u4nGnUKTsKo35Re/+yvMBv4sEon8
JBKJ/FgC1w8ceIXgOocilVHJoHL+AsEN/eFPf3rjz3PK1e2uPAyy8uPsoff6EGa8+rBlU/BQHzh8kh9M
8GrDImtomXwtOtuyAZfb49LBiwMsBS8VYi6Y6aAm/Rv+PRlOekgR2ZRU+ulAJbKqt1tNYMOmr2UHjxYP
qITw/QaBuf7EJwNMe7Bz5dxXp88PflXm0kgk8stIJPKLSCTycwdc0CgaguscCwEquCkYVHDz4EbCDYUb
C3+Zflbmvk/r6bamEbrtmTZs3Oz1JQ4t0LGTZ9i4uRvYe19MoKEVpESUsy1UJrrA5SoV6awrCS8aYBxi
JMh8injdtNTPo2RTHqCq1XEqm7xgM98qCMMl28L3GTRp/ib2jxfaK88d0rdl7vm4YSTyg0vgAKlIJPKb
SCTyKwJcVMaFS8XQ4yoFIUAlsioZVHDTZFDBXyO4wXCjf3nZv997ORor0G4CCIJ94pv2/oodOX662P0s
IfygL1q7m7XsP5c9V3+4axmP3tfyzrZswaVkXRp4eQEsU2HjXAcpL1DB77QbupAtXb9HudbFJXx/j544
zb4YMJddb9h/nSsvfuayf9b8TyQSgTIQsiuA1m8N4ILnG4MLe1zyrGIYJRi68k+ASmRVAlTwVwhuKtxg
uNGwjOE3l95RrVJOXsE+5WGRBE2mj33UTyoR1Ycw28IPPQi8juEz1rL3Wk+koWUoEYOAywZeJoBhJYFG
SwckShhQXpACQTZVNGt9sZd9svA9Ba3deoA9W2eQxz5W3Fw/ePGfn3sEOnMikQjMCILR/jsCXPAcy+AS
ZaIAl6lMDLOtEgpsqpuyKgEqnlUJUDk3G276pb+8vvxfcsrVXaQ8NEh/eqIl+3LcMmcWUX0Ysy08AGSt
3LSPdS9ayv7TbKxHiRgEXJLH5cq6TPByQ4zyv/wqnT1pAEVBSgLVe60ncxN99Zb9yvUrbuF7Cc/L4Mkr
2V+f8WpZiLOc++su/dmV//4XLNiIRCLQGAqd7AJckG3J4BLZlgCXqUyUsy3Z2wqzrWIMuQRUTHWLrEqA
Cm423HR4AMr8308uu7LMvbX64IcHC/YhqtmkiB8oUBLQAuHBIAvguWzDHtataAk/lcWUbSllogW4XFmX
LvNyAKaHWOZyw0kPqXe+mMR6jVvBT6fJdv+UrfD927HvKPug1Th2ldcsYCzOytzzycDv/vA3N0Uikasj
kchVDrTKSuAS2RZVJpqyrdDbKuHQGetyCSh7VXCzRFYFN9GVVTl/pTisnL9e8DDkXvrP/3zg5WuB/vZc
WzZo0gp28lTxe1ogPCgoAbxWbd7PZxk/7zItdRy6Z7aFweWY857wUgCGIIZgZi38+w6cKEC90nAMi/eY
yYZMW8vWbD1w1iAlJN8zuB/Dp69m/3qpg/L8qCo4fenfanweiUR+H4lErotEItdGIpFrHGhdaZFt2Xpb
uhIxhFYWwy+sdCWgyKoErOCmC1jBXzF4KK78zc2PPBjNq7tZfajcgp6tVwqG8qlpDJjiEB4cXgLPa/qS
razDsIV8214TuPip0wq4iKwrBS8NwCSIuUGmgxr+NwQmCU5CtTpMY51HLWFfLdtWop6Ul+R7tWHHQfZG
o1HsqkrGLWG4csrV3frLGyo/GYlEboxEIjfA8ZsOuAS0INsS0BLZls7bkkvEEFpnIYoDVnCTBazg5gtY
wV8zeDiu+cGvyt5a5u6PB+GHi9KfHm/Fuo5YyI4cP6VAJtvCg8SP9h0+weas2MF6j1vO6nWdzqo1LEqD
yzPrSsNLAZiUgWkhFlA1mo5j8Z6zWL+JK9m8VTuLrakzU4n7c/T4ab5y4S9Pt1GeE0qX3f3BiO/9vMw/
IpHIHyKRyM2RSATKQQCXgBZkWwJauEQMoVUKw49nlRVYOQ8JPCzXX/KX59+K5tU/jB80LJj1qfRWTzZ+
zvqkKU/AJlvCgyWo4HNu2X2YzVy2jS9FaTVwPl/oC14YBS4XvKSykQSYko25oYYF6/bqdpvB2gxZwAZO
Wc1mLd/Otu4+wj8j/tylSan7cvobNnnBJlbl/b7GvatSyis4cvFfnvs4Eon8ORKJ3BKJRP4UiUT+WAqg
FRrxGYRpNhDDytazsoaV89Dc9JMyf7n/8nvrzFEeOkJXV27IahSOYCvh5GkCNtkUHjzZ1OHjp9mGHYfY
gjW72LTFW1nRrA1swKRVrFvRUtZ68ALWsM9s1rD3bFbYcyb7vMt0ro/aTWEftZ/CPu86g6uw1yzWqM9s
1rjvHNZ2yEJ+Rh/AaPTsDWz6km1s4ZrdbOOOQ7zHDb//uSBxH9Zs2c/eajaar0XFzwOly+/9dMGPy9xS
ORKJ/DUSifylBKDlx4gPO+MDBlUKerUu6GYDKYM95VlJsALPQMAKvAR4aODh+WPkO9+59bd3vFqYk1dw
DD+AlG5+uDkr7D4tuUEgAZtsCQ+iUCUjuPYwU9ykz0z2p8daKvefUk6s4MQlt1drFvnf/4US8I5IJHK7
T2jpPC0vI16ePaSW9IgsC8ZX2KcVMOTsKtNSUMAKbiifDXRuNNx0+GslYAV/xQSs4EGBhwa8BXiI4GG6
9ce/+1P5Mvd8PA0/jKTyE3x5T7O+M/nukRg22RQeUKGKR3CtYSPG1oPmsb+/2M5rg72Uytzz0awf/e7m
hyORyD8jkQgA628OtG6ToHWrBC3Z0xJGvNfsoa7lwbY0DDviA0a2siuqFJSzK2Mp6Dw08NcOHiB4mOCv
IDxYt/3mz8/WyilXbz9+MCnllk+wO55vy9oMnMuPF8ewyZbw4AqVXe05cJx1HLqQ/evlDnz1A77PlHLy
6h789Z+erB+JRO6KRCJ3RiIRaAgFYP3dgRZkWQJa8HzBcyayLHj+RJYF0LItDcMsq4RDACsT74oy2jPK
rhxYwYMFD9kd//fzK/Iu+9c7g3Ji8W/wg0oJTqH+54sdWPvB89keOLWHgE42hAdaqMy099AJ1nnEInb3
K51YWRtDHZQX//Z3/3xr5Hd/kfNQJBK5xwHWvx1o4SxLLg2DZFlejaWUAR96WVmMTMtBpZNdbg715V2l
gZXKrgSwnL+S//hZ2X8+f/k9nyxUHlqNYEYRmgkh4+Id8wR0MhUedKH8C8r4jkMXsLte6cLPtMT3Uacy
d3+85Ce5/3wtEoncH4lE7nOAdbcELDnLEsCC50p4WXKWZetlyU2lAljwxxqXhfLyHduyMASWR1CtDF59
V6kFzQHMdl/loPOAwV9HDiznAbzzV3985NPLy32+DT/AWuUn2K1PtmKfdZzMlm9I7h6QbeFBGMpbsE4z
3m0a++szbVhuPnHfNMq57/Ndv7zpoXqRSCQWiUTyJGDd6wBLLgshy/JbFlIzhl7mO7V0RwBLXm8Ytjhk
ELbAkhc2lwSw4IHCwIIHjwMLHsj//b8f3n/xX19um1Ou3iH8QJt0Q9Vm7I1GI3kvz7ETZxTwZCo8KEO5
BXtiTVu8hbcn3PxoC+X+GFWu3pHf/vXFbhd9/6dQ/pUvRmB5+VjZBpbcSBqGIShgySVhtjMsuSQUwJJL
QqsMy3kg4cG857s/+GWlS2+v3jWnXL2jygNuECyQLfd6V9Zu8Dy+vAODJ1PhgXqha9POQ6zz8EWswls9
2dWVGyn3w6SccvWP/fa2l/t894e/ejwSiVSMRCIVIpFIPgEsURJmarzbZlhUSRgEWGGGZRm6htFMPCzZ
dBfAkk13Ww8rZbpLwIK/lvAggkfBgeX8Vb3/uz+95KFLbq/eKyev/gn8wJsEZyb+4bHm7I3Go9iY2ev5
ukAMn0yEB+6FJDj4Y8Lcjezt5mPYnx5vwa81vv4m5eTVP/nb26v1/85Pfvt0JBJ5IBKJVHKABdmVAFY5
B1jwHPj1sKh+LK81hpSHla3WhtDD8gg8Syi3NQhgwUX2O0sod7gLYMFNN80SwkODZwnh4YIHDZeF8ECK
LAseVPjrCg9t3nd/UeaRS+54pWdOubq+SkUQbGlzx3Nt2cdtxrMJ8zby01wwgDIRHtDnow4fO8W3Q67d
YRL7x4vt2VUVvbd6wcopV/fIb//6Uv/v/azMc5FIBMo/gBV0rIvsSi4HAVi4HITnQ5SDfnqxRDkozxKK
clA3Sxik4120NcizhGFbg2XgPizZx6L6sOSyMNMud6osNM4UmrIs5+GFhzj/ou/+6MHf3PpUq8vvq2Nv
zku6qmID9vcX27Pa7Sexopnr+F5LGEBBhQf5ua6d+46xsXM2sLqdpvDeKc9TaTS6/P46O3/9xyc7XvS9
nzwViUSqOLB60IEVzq4ErIJmV14zhF7loJd/JfdhiexK7sOi/KsQWBahKwsz7cXyyrLgoRBZlmy+iyxL
Z77LXpYMLZFlwUMMf33hoS4fueiiSr+8oVL9Mnd/bDyV2iSA1y1PtmIv1hvCuo5YxBat2cVOnMqOYY8H
/7mgE6e+ZkvW7WY9ipayavFh/EBSm+1ddLrsro9W/eL6Ck0iF130aCQSgS51L1jJpaDOu/Iy2+E5E95V
NrOrsAerBMKUZfmZLfTqxwraQKorDV0GvBZayTKi0o/K/Om1S//22jAoOfCgsRX4MDdUacruqt6Jvd2s
iPUoWsLmrNjO94vCMPIrDIbSooNHT7F5K3eyXmOXsfdajmX31ujCbqzazLcnJSunXN2jl9xefdQPL/3D
O5FIBEAF+6pXLQZY2ZSCOu+KWpajM9up/is/2VUYPsKvl6VbohO0NJQNeFto6TItpTyUoAUPfuWLvvuj
h39140ONL7vrw8VeR5B5CQbt9Q81Ybc905Y9V3cwa9pnJhsyZRVbsHon23sosy57DI6SEBw0u3DNLjZs
2hrW/MvZ7KX6Q9kdz7XjkLZdz2fQt2Xu+mD5L298oNVF3/nhM5FI5DEHVJBVCVgBqCjPylQGFgesbEpB
P0tyQu8qy2FTGnoZ8HDzvNYV2kLLtjyUPS14cAW0UkY8yrZgEMBfbRgQD/zgN9dVv/jPz/W4/J5aG4gB
FkiwT9MNVZuyPz/9BXvgnT7swy/Gsw5DF7BRX61jC1fv4jtLQD8SBpSNMGCCCN4b9sCC0nb0rPWs0/CF
7OPWE9hD7/dltz3bht30cDNfHedeKnNPrc0X//m5ft+/+Jo3I5EItCYAqET5Z8qqcPuCbLDjZTimFobi
hpWN0R7ODBZDePVl2fhZJmj5LQ9N/Vki2xLQokpEnG3Bgy9nWwJcMFAe+tGlN79+8V9f6HP5PbU24UGX
DcFWz3BG3h8fa8n+9kI79siH/XhZ2bj3V6zbqMU8M5s4byMvMVds3Mu27DrM9h8+wVstYPYNw0sI/g1+
BnYJhd+B34UdTyfO38SGTl3NuhctZo37zGTvNB/DHv3oSz6ZcMsTrXjWBJ8Jf85sqMy9tbb+5i/P9f/h
b2+Aku8JCVQ4o9KBCs8EUiWgbjaQMthtPKuShlVYCmYhMoGWTXnox4jHs4e4RPTKtihvywQuKEUceN30
xm9ufabbZXd9sDiaV3AGD8jiEhylDrNs1z3UhN30cHN20yPN2R8fb8n+9EQrLjC4YX0k6C/PtOH/DeDz
x8db8c7xmx9pwX5fpSm7ulIjz2PZs6q8gjOX/fu9pb+55aleP/ztTe8iSAmPSlf62YAKty3AfRag0pWA
ul4r3M2ODXaTZxXCqhSGDC2b8hB7WjojHs8ewoMhbz2DS0SvbEvnbenARWVcisclgwsG10Xf+8mTP782
Fr/k7zVGX35f7Z3KYL1Adfl9dXZd8rdXx/3s6vsbXfS9Hz9vASmRTcmgkj0qClQ4o6LKP5FVyaDCXew4
q8IlIN5CRp4NxM2htp5VCKsSDJOnZerRghsooIVbHrxKRJxt2XhbXuDCjabY47LOupxBV/UHv77utV//
4eEvLv37G+PL3PvplkyN+3NE315+76fbL/n765N+dfND7b7/K+5HUYCygRQ20/HMHzbUTRkVBSpc/lE9
Vl5ZFS4BceuCaTZQZ7CHnlUxBzV7iFse/JSIXtkW5W1RTaZe4KJKRXlG0QZeOPPSAuw7P770+Z9fl5+4
5LZqg8rc9eHSnHJ1PQ/TKO2C1o8yd32w7Le3VRv+s2vzGn3nR5dUc+CEAQVwsgEUBSnTrJ+cTVGgwqWf
CVS4/KO8KngOBahssipcAurWCYazgWchbEtEr2yL8rb8govKuEwely7rygReOoClIPa9X+S+/PNr7q93
8Z+f6XHpP9+cArOQOeXqWe1TX5KCz3T53bU2XvqP/0y7+NZnev/86vvi//fznFcdKAkwmeBEAUqXReFy
zy+k8Mwf9qgwqHBGpQMVLv8orwqvD/TKqsIS8CyHbbaFvS3cZErNJHqBS1cqmsx5KusKCi8dwHAGhiGm
gOw7P/z1Mz++/C/v/eKGio3A1L/kb68V/e5fb88sc9eHy8rc++nmnPs/358Vkz+v4EzO/Z8fgNcsc9eH
y3/3z7dnXXLHa6N/c+vTPaCr/MeX//XD7/z44hcQkDCUKDDJcMIlng5Q2YaU3KIgQCVnUxSo5NLPL6hw
+UcZ62FWVUoDe1tyk6muTDSBS5dx4d4tbM7rZhWprMsPvEwAozIwGWJyJkaBTMBMBzShqhd97+dP/uA3
11T//m+vr/HD393y1o+jt38A+tlV937+i2vuqwuC/+389w9/XOaWd75/8e9f/8Gvr37tO9/7GexuIMCD
ASSDSIgCEoYSVdphOOEMygSobEAKl31UiwIFKlz6mUCFTXWq/IPnXwZV6FWVwjCViV7g0pWKIuvC4NJl
XfBQmrIuL3h5AYzKwEwQ8wIZhplcXspQw3CTJaBiI/y7MoR0MMLZkoASBSacOclwwoASfwxMgAoKKdts
CoMKe1ReGRUFqtBUP4dClIk2GRdVKppaIXRZF4YXlXXJ8MoGwExZmJyJUSDDMMNAExJQkOGGIZeJ8GvK
7yd/DgpIOGOiwOQFp0wAZQMpOZsyQUqe9dOZ6RhUuPQLQXUeBAUunceFsy4MLirrsoGXrmzUZV86gFEl
pAwxOROjQEZlZAJmQhhqMtgw4LAEVLyEf08GEAYRhpEQBSUdmOTMSYYTLvF0gPKTRenKPVtI4bJPgErO
pihQhaXfeRY6c57KujC4qKwrW/AyAYzKwEwQ8wIZhhkFNJyhyRKQoEAXVPg18XvKIJI9JgEkDCUvMMmZ
E4aTnwyqJCBlU/ZhUIVxnoWuXLTNujKBlxfAdBkYzsJkiMmZGAUyE8yEMNRksMlww5CjJIMFC/+sLPwe
8vvLn0uGkZAMJSpjksGky5wwnDCgxB8XE6CKA1JhNhVGKjC8TFmXX3hlAjCvLEznhVElJYYZBTQMNSEB
AgpyGHZBhF9Lhg+GkJwh6YCEoeQFJjlz8sqeggIqW5DC2VTYQ3WBB9UW4QUvPwATDy8FMKqENEFMzsQo
kGGY6YAmQ40CGwYcBbpsCb8H/gzis+lgJKSDkheYTHDCJZ4OUH6yqKCQCrOpMJTAmZctwGR4mQBGlZBe
EJMzMQpkVEYmYGYCmgw1GWwy3DDksGTo2Qq/BgUfGUACQkLy56eAhKEkZ0wUmHSZE4YTzqBENq0DVCZZ
lOhGDyEVhnXYwssEMF0GhrMwE8TkcpIqKTHMdECjoCaDTYYbhpwsGRiZCr+2DB8MIRlEGEY6IGEoeYFJ
zpy84IQBJf5YmQDlBakQUGFkLWwApsvAcBYm/gILiJkyMQpkVEaGYUYBTYYaBTYMOAw6SjJEvIR/VxZ+
T/yZxGelYKQDEoYSlTHpfCcTnKjsKSigQkiFUSJhAhjOwuAB9oKYnIlR2RiVkQmY6YBGQU0Gmww3GXAU
6HTQy0T4dWXwYADJEJJBhGGkAxKGkpwxUWAyZU4YTrjECwEVRqkPDDAMMfEg60pJuZykSkobmMlAM0FN
BpsMNww5WTIgdJKBQoFFJ/xeMnwwhGQQUTDCQLKBEgUmuazzA6fQKA/jnA3xF1UHMV05KUBGZWQYZjqg
yVCTwSbDTQc4DDosGRhBhV+TAo8MHwwhCkQCRl5AwlCSMyYKTHJZhzMnGU4hoMI4L0NATC4nBciojIzK
ynBm5gU1GWwy3GTAUaCjgJdt4feSwYMBJENIBhEFIwwkGyjJGRPOmsLZuzDCkELOyEww8wIalaWZ4IYh
J0sGApYMDlvh18DC748/o/z55e+FQSRgpAOSDZRCMIURRsAQAwj7ZCaoyWCT4SYDDkNOBh2WDIhsCb8H
BR4ZPhhCFIh0MJKBFEIpjDBKQchgM8FNBhwFOgp4OsnwMAn/HhZ+bxk8GEAyhISPFIIojDAugBADXJYM
AAE+WTIs/Ai/Dn4fDJ0QPhdw/H+3AJAOM2RpvQAAAABJRU5ErkJggg==
</value>
</data>
<data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
/HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEgAACxIB0t1+/AAAB4JJREFUSEu9lntM1FcW
x0+yNWpdBURGEJ0ZXtVqZX0hFJAB5gVILVbQTRCQ1wwDw7wYGMSCgiI+IoivtbpBwOLqqnUXq30YlVrX
bXAFu6Ua2ShG0jVoq1ZFwQffzb3zhG22/+0vOZnf3Nz8Pjn3nPs9X1qx10yqpnWU27iOEuo0pG6qpMKP
qyljXxkpt6hozdF6qvxkN2XuW0OymiwqO1I33tBUPTNhsypTUpVuydhTOi5jTynNL08mQUEkiQwyEhql
JDLKSGiQ8vDKj6AZlkTa+WULEQOqmytJ3VRFS+q1ZDq8hdYc304FTRsosTZ/jKll89zcP1YslW/K3hi8
Oul4WMXvu98pThwQF0oxMScU49Ln0ERVKPnqY8jPpPh1YNaBctIdqqG85vWTFdtUipQ9ppKEWs3e8PWp
l2aUJj4IMsdhilYCL00ED7echZikCoN3XiQC9cp7PgVRNC53PnnkhVlDHUbueaH83V0dyuONjNnkV6Sg
Q5dOEUXUpJUvqFrRPfPD94dEZjkm66PgWRABz/xweOsk8NZGYaouBkK9FNN0sZhWGAuhNhpTNFEIMsRh
9pqkrgCzsj3IHN8eVBw//NcWgUVx7f5FivaCpg16EhiiWgWGKHgbYyA0yyEqkkNcJIfIJIfQKIOIhV7K
gUJdLISFMRBqY+CWtQBBxji8ev0a9mfw5Qs8Gxxw/Lc/T5734+DFVlDqjNPkZ1E2+JUoIWZRrITIrHAA
OYyFwRVozdA9OwTTjfG42deLu4/uo+deL4aGhjjgVl8vfnh4D7fv/4CH/T/ztbbr7RiVGdxAfpa4BnGJ
gsPExQqIRwINUgeQHakVGAORNha++RK8mT0fb+bMB8W7YdeZQzjW/gVIOR5js+eBkrwhqc7gwM+//Rpj
s+cyoLKBZ8cztAKn6KN5iE1yiI0yuOWGYPSqOfDVRkOkk3Igi6kF0ZiUH8GDlk7BR+eO4MSVs6D3J1vX
VgRAuUXFgZ+5Au1HKipWIKAkHp4F4fitKgRCoxReBRGYZXkPi7fmYXrxYvjkR/Ej9cheiLeMcbhy63tc
//ct/vvjk4d49OwJrtzqQlfvv9DRcw037/Vy4MnO8yxr65HagQJ9FAJLE/gH2q5fBq2cAV9dNB4/f8o/
5pETAoEmgmfHulRUKEVSnRYf7NAjvCIFn3a24WJ3B8LLk7G0XofI9SthOVLLgaevXrBnyGpoBU4zy0Er
p+PbOzf4Js/8CKTtLeXvuoM1oGUix5H66WQcyo6PlghAcwgbW/eh8eu/gGaTdS2UEGSOt9bwnxdtwBJn
DVmmo7KCEVGdxjcduHAC3/V24+lAP0alvwNBfiRvmmnaGK4ygQYlr8356+042dmGOz/dRd/PP6K14xzO
fv8NTl29gH/0dPFvseyH19ClSyk1CGe+u8Q3sievYS0oWQyxQeboUoEqAv56ObZ+2oDtXzRj7bEd6Lx9
HTfu9qDiaD3qPm9G1Yk9OPzNZ/wbp65+Za/h8HsYWBIPSp6K5buMfOPAy0G45S7EBNXCYdfCXyeHj2YR
SDYWJB0NCiBUHN+J/W3HQH5kXZtFXKmcRzqiaRiQqQ2lvsWPxP5omzaAkkUQG+QOoJc6HP56BbaecmbY
cfsabty9jbWuGf79lDXDTpYhr6ET6FcSB0p/G3Hb8vimui8/xs2+O3g68AxjMn7HxdsubZ65YQg02mp4
rR0nO847anjSUcOvcPmWs4ZjsmxNYwf6mmIxOisY9x8/4JtouRilf7a2tbFlM+iDac4uLfzlLm1iXRps
69IwQlDxyC61S1uJEhM0oYjcmIafnjxC899aQUu8MGv1Ei7QTJgn54VjkjqcA335PYy13sP6/3UPt3Eg
u4c8Q7FLDZnSsKbx0Uvgpl4IoUmGSZpwhJSnIGWHEbMsS+CtWcSBHjkjlKbHpjT9T3Clx0Vp+uxKw67F
iC5lv2w8TdZFWbW0SMkFfFz2PPwmfTYfxGKdzKalsVxL3dShcFeHgt7zwh/OHsYnl8+AFk/k65QshLQm
iwNZrW01dCrNyGkxfB7GOsYTu/jCAibeMfAplMBHJwGliLD//DH8teMcaNlUvk6p05G4TeMA/pe0jQSK
TFagkI8nV2A0JmQtwAxTAh4/e4oXr17i2Qvn4GXvL1+9xPMXg441Pg9XBTeQwCAZPvHNbOIr+GiyA39p
ALtlhfCJ3z/43AkaHOBXyPV5PTRknfisCVOnn6bwjczTLHfxNBI+nphws6PyLnR6GleLwT2NMQ7BZUld
AUVxVh8zwssM8zQmRbuWeZrMAx9SYUsNqZuruGtL3m0sSajN2/suc22WxAeB5niba4uEQBMJd+7a3uXd
GmiwubacBeThcGrW8FA7/7+REUz+dte2fG8RqZoqeTBfavzTZio7tp3yG9fT4lrNGGPLprk5+8uXyhy+
dEX3rGG+dC5NVIXZfKmchMyXGmQkMti9qYy88iPpbbsvZUDmunMa13LnrWpcR9qD1ZT+0WpSbMmlsqN1
tO74Tlq1r4w779WHa8frGqtnxm/KzZRUplnSd1vGpe8qoXnly0igXfTrQKZg/8/4D84DciO4yFz1AAAA
AElFTkSuQmCC
</value>
</data>
<data name="btnNeuerUSTVA.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAVUlEQVRIS+3NMQ4AIAhDUe9/
AK+Lg4u2xBAjLHZ4DgT8zcxaJRpkm08PswPcJQp6MKLgRkEPRq6DeJxCwef+CkbRJwvcJQp6MKLgRkEP
Ru6ClWiQbQBdFNKRDs1C8gAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnUSTVAloeschen.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==
</value>
</data>
<data name="btnPLOSEAlle.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAVUlEQVRIS+3NMQ4AIAhDUe9/
AK+Lg4u2xBAjLHZ4DgT8zcxaJRpkm08PswPcJQp6MKLgRkEPRq6DeJxCwef+CkbRJwvcJQp6MKLgRkEP
Ru6ClWiQbQBdFNKRDs1C8gAAAABJRU5ErkJggg==
</value>
</data>
<data name="Button5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAC0AAAAtCAYAAAA6GuKaAAAABGdBTUEAALGPC/xhBQAAFAxJREFUaEPV
mXdQVNm2h5czIkiTGrpJ3U3O2XAVDGNCRXSMCOoYMM2IoJjDoCIoCMYxOxhGVEwopjFnQWUQFFGQIFGa
pummA0FEBn6vzmm8c9+bV7fq1X3/uKu+2uusXX32t9de3fwBAaCvjb8lvgb+lvga+Fvia4AObI2ng1/Y
Fk+HOmFilq1/Pf+SsJkS4jbT1i1xtD0hnnYkxLMxQ2J8HG2J20y7EzdT6oFEOrc/gc7uT6CUvVsoefeW
rod3xdsm7Yr3P7YnYdrZpF0hD84lDc64mGR19dgurVP7EujU/q10Yl8iHd+TwPJbJ0ycvFfD8U7Ik69H
Xnw98mYwZeCQJ4/DxszM4MXnkAefQzbc7sTl6BDPkEOmhhwyN+QQ35BDPAMNxnrdyd64OwV7GlOQB5cm
uXMp0NmAO8rZcMX3nrzLQb0sXk/3E1QtGGpXkRDinb19imfqvP6C4OFORnojXI1pmIsxfedgRIMdjWiQ
gxENctTEw5y5NNiJS4MdNZAnXyP1RZCRZp4ZaWZmY2adzyFbbncy5ugQ31CPlTb7F2kTfV32QIx0kIcx
hXgaM/LaIx0MVo51M6qe7mv559yBVlgw2AbLAuyx4wfPjqS5Pm1rRtsXj3Y3mT3Imdd9oAuffB1MqJ9j
Jw4m5Nf53N+Jx8YDHHnESvkwleysaE8z/U5hPeplrkc+phqYNabSjLQpI22g29XckKPDM+B04xnodmGk
jTg6ZG3ESHNpmrcxTXQ3mjy1t1nhtF6m7TP9BJjuJ0JofxHCh9lhwwQXHJ7fA/tCvTum97XM8ba3sPFy
FJGbrSWLaydudpbkbi8gbycrcre1ZGEFGWGGf7ZKp3QPM33yMdPX3ASfQ3aMtF53a3NjwxUic/5Va0vz
pyIL08eWJkZH+QacEUZ63clUX5uGOxjSdB9jwyBP46SlAfafIofbYlan9I9DbLBwqC3Wj3NG0k+9cHJp
P6wY7dQ22NEk0tfOuKuvHVNhHvW1ZarMo34OfPKz55GvvSbHrJMXj0Pu/6yyRvZLuzBr7IH4euRpyulm
a8IZa2rCfeXk6NDu4+2FHj494OHuDgd7ewgsLFq4eroH9XW6mXtbcmimj7HT/H4WN+KD3dpjxzpjpb8t
IobagGmRiGF2WBnogIQpbvhlhgci/W0wxoP3vIdAn+Nurkce5hxyN+eQB3PTAn3yEeqTh0VnzoJD5Gai
S24mnXImuqwsc4gvaG6A08XdVL+XjaVZiVAohLu7O/z8/NC3b1/4+PjA3t4eIpEIfL5JkwGn+24nU11O
iBd3YPhAwYsjob06SndOREZiEJaMcsWMvgLM9BUifIg1Nox1xm9ze2PtKHuM9zSpc+brCJx4OuRkokOO
zMzTIUdjbXJgMNEm5848ORvrkhuPw4q7sAfQJXeeHrmxaMRdTDgGtmbGF+1sbSAQCODm5sZK9+nTBx4e
HrCzs4O5uTmMjY07DPX1y4VG3aeNdjYMXD1U+DZz8xhIz0Sg8c5GyG5EI//kUrw+FoF3yRGoSomAOHku
TocPQHBPc9VIZ0OHAGdDGu5oQCOcDGmkkxGNZGZHQxrBYsBCrkwrmOqRO/8LjKhGmJXm65ErX8/T0ty0
wdbWlmkDuLq6ol+/fmylPT09weQ7pcE1MmrlG+geGWyrH/LLBMe3JQemQ3UrGi3P9+BzThLaXh1Fa9Z+
NGfshOpuLGSXluNBdCBCfS1UI50MHQOcDCnA2YCG2TPok7+DPis+3MGAhcmTK0+XRSOpiVmYqvOYqnPI
kac30Upg2erfwwXT/Fzh6+2Kfn6+GNDPDz16+MD+r0rDyMjoTxMDzuX+tgYzk0N9squOzu5oeLAFn3KO
oO1tCtryz+Bz7jG0/HEADQ8TILu8ErlbxyNsoEDWW6hr1VvIoV4CXephqUs9LXXZuGfnMxtb6hK5cXXI
natN7lwd8uDqkJuRNnkYM7E2uRvpsNib6K10tRW2J80ehqzN03FqZQgWThyKYb4+GOHXAy52NvBwsIah
oRG4XG4H10D/obeVyfTEiW73ig7+0K66E4OPWYfQ+joZra+P49Oro2h+vhequ5tQd2k5Xm0Zg9m+FoXf
2esbD3Y0oP62+iz9mNlOMw+w0zDIwUAj7cYKarPCrgxcHXLhdsZG2mRvwomd0Nuho+iXeag/vwGKK1tQ
mLIRlxLDsXdJCHZHBmNNyFCEDvPBQFerDp6hXpa9GTdonJf56XsbAtsU19ehMeMXtGQfwcecI2h+cRAN
6TuguBUNyblwnA3zxXfWnBM+Zto6PuY65GWmTd6deJnpkKepDnmb6ZCPhTZ5m+sQ2RvqkJ2hNtka/IUD
I8pU2FAT23K7b/x5TI8OafIyqH5PRPOTX/EpMxmNz46j/tFhyG7vQdXZjSj6dTEuLAro8BEaZQqM9b7r
Y8Nbc3S+b704bTmU9+PR+Gw3Gp/vgfrpL1Dcj4fs2lpITszFxjHOTT3NtP2duV27uHC1yJmrRU5cLXIx
ZuKuLC7GXcmDp1kjS30tstDTIjOOBnO9bixmTK4zb2XUfcHJ0H7t0uTlUN/+BR8zfsOnrBS0Zp9FS1YK
mp8chuJKAqSnViHz53EdIV7m93gGuh6+Dua8NQGOF4uOzPssvxkN1YOtUKbvhOJhIuS3YlCbugSvEsYh
2Jt33onb1YwV7RR2MupKTobfkJN+F83M7UpuxpqDkFBgoUFoSaLO2EpoSUJLc3ZmcrYiywnJM/u0Vh0K
g/L6djQ9OYKPz0+gJfMUmjNPoOHubsgvbUbNb8vxdPWY9ll9rK/zTUwcBjmZUVh/4ciXcaOra39fi/p7
cZDfjUPdjQ0Qpy5B+ZHQ9t1TPPN9hTqDXIy1uriaaBGDiymHfJytqc+AvtQ7cBQ5DR5M5u7uZOroSKZO
TkRCkZBFIBSQyEpEVtZWZG1jzcYia9GX9eH93W0+5W6dBfmlOKgfHEBT+hE0ph9F45PDUN/aCVlqDMr2
/YT9PwxotxYKrtrbWNlEDXem30N97O6H9SqpTAnvqL0WhbqbGyFOW4GqUwvwZuvYlqTpXotW+Nt0W9jf
giIG29CPgd40ds5smrZxE4VEx9LAsAhyChhNZu6eZOrmzkKWlpYsFhYW/y4e4Gwr+pi6eDTqzq1H/Y3t
UN3fB/XDQ1De3g0ZU+UTK/F260wsHu79p7mlINXJ2cly0YyJdOtgbI/Hy4eUvtk5sePDuUWoTl2CD6fD
UXJgKjLXDGq+s2PxpnXzJvMm+blSRNhMmrpiBY0Jj6Ap0TE0KWoDDVgQrpH28CK+q5tGmpESCATszGKp
EWZyX8QFAkEPOythQ9QEX1QfW4a6S/GQ39iB+lu7IL++DZJz61CVFIFnUeMx0se+zVIgTOnh68efuXip
UfqrvP0vT25qer0zpKPkyGyUJv+I4qRZyNs6Fs9iJ7QXvLhbvSZh2+zewwN0QtZE0eQVqyhwwUJWmqn0
gLAIcg4cQ+aeXmTKSLu6MT0tJJFQRCKhkIQMAs1sJbIikUjExiKRyEEkFChG93ZGRuxU1Jxdjzrmi3c1
AZLz6yE+sRIle+bh15kD4GAt+Ozg6npi9Pwf3X/cvnPh08LishpxRUfh5USUn1+O6rTVKD8TidcH5+P1
1UMQS8U4+fDxs2UHDk2ZE59gEbxqTZfvwyNoanQMTdm4ib5buJicRo0hcy9vMnP3IFMXVyLP3v8g9569
yKtPH+o7bBh5+/mRrb09WYlEZG1lxWJlZcW3sLAsd7ERIi7IF6VJi1BzPhrVZ9bhQ/IKVB2NxOO14zDQ
WQSBSNTmP3ly3u7bdy+mvMory6iqblO0tEBSXYyiR8dRfWktSi+uw9uHpyGVivFeqUZGlbjten5B0fH0
p+fWJZ9YMj5yqRUjHfylp79IMz3NVHrQuIn03dgJ5B88haatXkNTfo6igLlzqdeQIWTn6MDegEgk1BUK
hXf79/fDtnnjkB09Ce9/jUDl8RUoPRCG13EhuLZwOH6KjISHl1fH8thNbS9rpW3vlaqON3VylKvV+NjW
BrFMjPzMa3iXfRdypRzKlhbky+pRqlChQqXueC2Ttd0pfl934N6DB1HnUteHbt/ZZ+CCCG2nkYGa9nBx
Jb6zC9HwKdNoaFAIBUyfRaEbY2hW/BaaFBVF3y9ZQsPnzKHeI0aQnb2DVv/vBsWm3bqJJ2f2IjdmMrJj
JiE7ZjKyNozDi5+/R0bsHDwvLMG2fftx4vx5KFtboW5tZWTwh6QWkuYmfGxpwY1fk5Bx/jw+/vknKhoa
UCCvh7ihCepPn6Bo+YQKtRrpH6rb094VqXemP303ZdfeDW7jJpox0vwv0v4hU1lGzQil0GiN9OQN62n8
qlU0ZnEkBa9fR5OWRPJvZWVnvautQ9GTayjdH4bivfORl/gD3m6bjpLdc/HmaAyq1I14VSVGsVgC9SeN
dJW6AXcqq/BWocKt5JNYzzfHpgGDcPvhI+TU1aGgvh41jU1obG1F0+c2qFpaUKZUIU8mw8Wiko5VN+40
fLdiTaxT4Biu/VB/chwximhoUDCNmPoDBfwwk5WenZBIIRujafzKlV2/X7rUbOG+fWPi7t69XSSr/7NQ
Kscfz++jOGUDZOejIDm1CuLjyyE7vhSnk7ahXKFGoawej8orcft9KUrq69nKXS4uxeE3hfhp3EQk6hhi
mZ0TNicdxb2KD2ylaxoboWptRcPnz2zL1DY3Q9r8Efnyehx5+RozklPK/MIi/HpOm049p80gtpcZ6VFM
e0TH0JzERN1pmzYJFx48tGDnk4yCE++KPl0oLEG5QoWXYikuPbiJgvObobq0EarLMVBdWAdF8lJsT9qF
J2VVKK9XIbO6FqfeleBUYRHSiotx830Zfq+oxL554fi5uyHiPHri+pXrqFA3sodibkPapBFlhMVNTZA2
N6O6sREvaqWIe/j445Aly8b1CAr+xmfiJKKhk0PYagfOmt1l/pZEQdSZc+F7Mp5mpBQUfUwrLcfN8krc
K61ETnUtnlZUIz3zIUovxEF9JRbqK5ugurAeiuNLcCVlDx6WViGrUowX1TW4W/kBV8sqkVJcguTCQpwu
LsaxkFBEc4yxw9oF52O3oEylRqlKhWKlElUNDShXN+C9Wo33KjUrLmluRqFCiZMFhe0jIiLnmtjadeum
p0c0Ytp0CvhhBk34KYwfe/pc7Lm3hfIbZZW4X/kB6VU1yKyWsjIZFWK8EEuRk/0IVakxUKVFQ5W2QSN9
ejXSf9uMLLEUT8qrkVFRjSxxLZ6Ja3HvgxgXyypwsqQUBy6kIc7zH9jKs8ah+QuRJ6lFoVKJPLkcRUol
ChRK5CvqkSuToVStZr+oZWo1LpWWYfyqNVE6+vp6xIwJP4VRyKLILpFbt/un5b798LhS3JFZLUGOpA65
tTJkV0vxxwcJXknq8KpWhhd/3MOHs+uhOB8FZWoUVJdjoUhdj+zDa5EprsWrmjpkfahFtliKl5I6vJDU
IV0swa3Kapwtfo/tMfGIN7HG7ikz8PR9Kd4plXgjl6OgXoGXcjly5XKki8V4JZOhQKFgpe9UV2Pi0qW7
tDkcCyL6hjz6+lHwwnCtuN+S5zytqunIqalDnlSOPGk9y2uJDG+kcuTX1bMSfzy7CXHKWigurIfqUgzb
Jqorm/DmyGo8qazGW+YztXK8rpWx5ErrkcMcvlaGB9U1SLl1D5tFjogfF4T7b/ORq1DgjUKBcpUaGbVS
VvZ2ZSWeSyR4I5OjsqERTyoqPw6bPHnlt1pajPS31FWrG1k5OnZfvXXbCmYDRvhNp3CuRIa8Wo1wfp0C
ubV1yHp+GzVn1kFxcSOUF6PZvlZf2ojC4z+z7VMkV+JtHXNoRrwTtghy5EhluP4yF5t9+iAhYCzu5LzE
+4YGVDY0QNzYiAxpLSv9SCzGM6mU+dn7fCMz8/2sRYu3cU1NvYhIl20PZugZGPBWbIrfnS9jNqxnK8u0
xl/SChTXK1EoU+Jl9kNUn4+BMi0G8jNrobq6hZUuTt2K9woVqlSNKJYr2YMywq9qpOz73tTVI6+uHo8K
irA7cDw2DwvA9cw/OmpaWjrknz61y1pa2p7V17dmSSTNqTkv5Sv3H3g6PCgo2srefmB3TVtoE1GXL85d
9Q2N7H7euuNEgeyvzdIrxWx/Mhsyf2arlA2oVKjwqugN3l3dDWXqOtQejoDiYgxUF9cj89ltVrhG3YQy
hYo96IvqWqRXVCNXonkPQ0ZhyccZAYHpA0Q2p8YEhxwMDg3dNiYoKGqQv3+YW+/ekwT2DgMMTEyctbS1
ed98++1/E/3X0aWrlhZ/9OTgn54Wldbm1crbc8RS3CoqR+YHCd7JFChTNOCDuhHV6ibkSqS48fQesk7H
4+3ecBQcW42nj9PwtKoGNQ1NkDQ2o0qlZj/3/IMEt4srkFMjZQ7R8Vos/XTs4qW7XB7PmYi6/U+R/+vo
qqWlxR84dNjU39IuP777Or/mQvZr5Z384o95NdLPZXJFe5WqoUPc0IhKZQP7y5D6phAnsnORll+IrGoJ
SuuVkDQ0ddSoGzsq6lXtBZK6tvSS8pa0nLyGR/lF0ptZOaURq9bs0NPTE3Ze9f/L+IZ5mb6hocir9z9G
B4ZMW7lw7bq98Xv2pR46cer+2SvXsq7eu5d34/GTgssPnxSdvvugJPn2vfdn7z8qufzgUfHVBw8Lrt29
n3f+2u8vjp4+83DnoV8vL4vZlBQ0Z150vyFDp5maW7gRkU7nPv/Z8Pf3/3d86+/vbzBq1CjhxKAgt1mh
oX0XhIUNWbho0ciIyCVjwiOXfL946bLvF0ZEjJozb/6QmbNm+QUFB3sGBgZajRgxguvv79/1f3nnfwwV
FhZ+dfztP0dfA39LfA38LfE18LfE18B/ARuUH8mUSd9EAAAAAElFTkSuQmCC
</value>
</data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>

25
SDL/USTV/usrCntlUSTV.vb
View File

@@ -43,10 +43,10 @@ Public Class usrCntlUSTV
End If
End If
.SET_SQL("SELECT " & topMax & " [UStVAn_ID],UStVAn_AntragArt,[UStVAn_KuNr],[UStVAn_Name],[UStVAn_LandKz],LandKz as Land_Antrag , UStVAn_BezugsNr, [UStVAn_ReDatVon], [UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],([UStVAn_USteuerbetrag] - [UStVAn_Erstattungsbetrag]) as UStVAn_Differenzbetrag,[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],([UStVAn_USteuerbetragEUR] - [UStVAn_ErstattungsbetragEUR]) as UStVAn_DifferenzbetragEUR,[UStVAn_VZBetrag],[UStVAn_VZDatum],[UStVAn_Sachbearbeiter]
FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr
where 1=1 " & getWhere() & "
order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon] ) desc,LandKz,[UStVAn_ReDatVon] desc", "FMZOLL")
.SET_SQL("SELECT " & topMax & " [tblUStVAntrag].[UStVAn_ID],UStVAn_AntragArt,[UStVAn_KuNr],[UStVAn_Name],[UStVAn_LandKz],LandKz as Land_Antrag , UStVAn_BezugsNr, [UStVAn_ReDatVon], [UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],([UStVAn_USteuerbetrag] - [UStVAn_Erstattungsbetrag]) as UStVAn_Differenzbetrag,[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],([UStVAn_USteuerbetragEUR] - [UStVAn_ErstattungsbetragEUR]) as UStVAn_DifferenzbetragEUR,[UStVAn_VZBetrag],[UStVAn_VZDatum],UStVAn_VZoffen ,[UStVAn_Sachbearbeiter]
FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr
where 1=1 " & getWhere() & "
order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon] ) desc,LandKz,[UStVAn_ReDatVon] desc", "FMZOLL")
.LOAD()
loaded = True
@@ -145,6 +145,10 @@ Public Class usrCntlUSTV
.Columns("UStVAn_VZBetrag").DefaultCellStyle.Format = "N2"
.Columns("UStVAn_VZBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("UStVAn_VZoffen").HeaderText = "VZ nicht abgerechnet"
.Columns("UStVAn_VZoffen").Width = 100
.Columns("UStVAn_VZoffen").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("UStVAn_Sachbearbeiter").HeaderText = "Sachbearbeiter"
.Columns("UStVAn_Sachbearbeiter").MinimumWidth = 150
.Columns("UStVAn_Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
@@ -255,6 +259,14 @@ Public Class usrCntlUSTV
Case CheckState.Indeterminate
End Select
Select Case cbxVZnichtabgerechnet.CheckState
Case CheckState.Checked
whereStr &= " AND isnull(UStVAn_VZoffen,0) <> 0"
Case CheckState.Unchecked
whereStr &= " AND isnull(UStVAn_VZoffen,0) = 0 "
Case CheckState.Indeterminate
End Select
If KdSearchBox1.KdNr > 0 Then whereStr &= " AND UStVAn_KuNr=" & KdSearchBox1.KdNr & " "
Return whereStr
End Function
@@ -1303,4 +1315,9 @@ Public Class usrCntlUSTV
Process.Start(webAddress)
End Sub
Private Sub cbxVZnichtabgerechnet_CheckStateChanged(sender As Object, e As EventArgs) Handles cbxVZnichtabgerechnet.CheckStateChanged
If loaded = False Then Exit Sub
init()
End Sub
End Class

204
SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb generated
View File

@@ -25,6 +25,8 @@ Partial Class frmBU_Mahnlauf
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBU_Mahnlauf))
Me.Panel1 = New System.Windows.Forms.Panel()
Me.cbxKontotyp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtZahlEingaenge = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxZahlungseingaenge = New System.Windows.Forms.CheckBox()
Me.cbxNurFaellig = New System.Windows.Forms.CheckBox()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -41,6 +43,10 @@ Partial Class frmBU_Mahnlauf
Me.Panel2 = New System.Windows.Forms.Panel()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Label9 = New System.Windows.Forms.Label()
Me.cbxMahnsperre = New System.Windows.Forms.CheckBox()
Me.btnMail_Intern = New System.Windows.Forms.Button()
Me.Button7 = New System.Windows.Forms.Button()
Me.btnKunde = New System.Windows.Forms.Button()
Me.cbxMahnstufeErh = New System.Windows.Forms.CheckBox()
Me.Label8 = New System.Windows.Forms.Label()
@@ -56,10 +62,6 @@ Partial Class frmBU_Mahnlauf
Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtZahlEingaenge = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button7 = New System.Windows.Forms.Button()
Me.btnMail_Intern = New System.Windows.Forms.Button()
Me.cbxKontotyp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Panel1.SuspendLayout()
Me.pnlTop.SuspendLayout()
Me.Panel2.SuspendLayout()
@@ -86,14 +88,54 @@ Partial Class frmBU_Mahnlauf
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1287, 127)
Me.Panel1.Size = New System.Drawing.Size(1427, 127)
Me.Panel1.TabIndex = 0
'
'cbxKontotyp
'
Me.cbxKontotyp._allowedValuesFreiText = Nothing
Me.cbxKontotyp._allowFreiText = False
Me.cbxKontotyp._value = ""
Me.cbxKontotyp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbxKontotyp.FormattingEnabled = True
Me.cbxKontotyp.Location = New System.Drawing.Point(529, 96)
Me.cbxKontotyp.Name = "cbxKontotyp"
Me.cbxKontotyp.Size = New System.Drawing.Size(97, 21)
Me.cbxKontotyp.TabIndex = 48
Me.cbxKontotyp.Visible = False
'
'txtZahlEingaenge
'
Me.txtZahlEingaenge._DateTimeOnly = False
Me.txtZahlEingaenge._numbersOnly = False
Me.txtZahlEingaenge._numbersOnlyKommastellen = ""
Me.txtZahlEingaenge._numbersOnlyTrennzeichen = True
Me.txtZahlEingaenge._Prozent = False
Me.txtZahlEingaenge._ShortDateNew = True
Me.txtZahlEingaenge._ShortDateOnly = False
Me.txtZahlEingaenge._TimeOnly = False
Me.txtZahlEingaenge._TimeOnly_Seconds = False
Me.txtZahlEingaenge._value = ""
Me.txtZahlEingaenge._Waehrung = False
Me.txtZahlEingaenge._WaehrungZeichen = False
Me.txtZahlEingaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtZahlEingaenge.ForeColor = System.Drawing.Color.Black
Me.txtZahlEingaenge.Location = New System.Drawing.Point(675, 78)
Me.txtZahlEingaenge.MaxLength = 10
Me.txtZahlEingaenge.MaxLineLength = -1
Me.txtZahlEingaenge.MaxLines_Warning = ""
Me.txtZahlEingaenge.MaxLines_Warning_Label = Nothing
Me.txtZahlEingaenge.Name = "txtZahlEingaenge"
Me.txtZahlEingaenge.Size = New System.Drawing.Size(88, 20)
Me.txtZahlEingaenge.TabIndex = 47
Me.txtZahlEingaenge.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtZahlEingaenge.Visible = False
'
'cbxZahlungseingaenge
'
Me.cbxZahlungseingaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbxZahlungseingaenge.AutoSize = True
Me.cbxZahlungseingaenge.Location = New System.Drawing.Point(568, 87)
Me.cbxZahlungseingaenge.Location = New System.Drawing.Point(529, 80)
Me.cbxZahlungseingaenge.Name = "cbxZahlungseingaenge"
Me.cbxZahlungseingaenge.Size = New System.Drawing.Size(140, 17)
Me.cbxZahlungseingaenge.TabIndex = 39
@@ -106,7 +148,7 @@ Partial Class frmBU_Mahnlauf
Me.cbxNurFaellig.AutoSize = True
Me.cbxNurFaellig.Checked = True
Me.cbxNurFaellig.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxNurFaellig.Location = New System.Drawing.Point(568, 63)
Me.cbxNurFaellig.Location = New System.Drawing.Point(529, 56)
Me.cbxNurFaellig.Name = "cbxNurFaellig"
Me.cbxNurFaellig.Size = New System.Drawing.Size(94, 17)
Me.cbxNurFaellig.TabIndex = 38
@@ -177,7 +219,7 @@ Partial Class frmBU_Mahnlauf
Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSuche.Image = Global.SDL.My.Resources.Resources.search
Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSuche.Location = New System.Drawing.Point(1092, 56)
Me.btnSuche.Location = New System.Drawing.Point(1232, 56)
Me.btnSuche.Name = "btnSuche"
Me.btnSuche.Size = New System.Drawing.Size(162, 52)
Me.btnSuche.TabIndex = 29
@@ -245,7 +287,7 @@ Partial Class frmBU_Mahnlauf
Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlTop.Location = New System.Drawing.Point(0, 0)
Me.pnlTop.Name = "pnlTop"
Me.pnlTop.Size = New System.Drawing.Size(1287, 48)
Me.pnlTop.Size = New System.Drawing.Size(1427, 48)
Me.pnlTop.TabIndex = 4
'
'Label4
@@ -265,7 +307,7 @@ Partial Class frmBU_Mahnlauf
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 127)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1287, 572)
Me.Panel2.Size = New System.Drawing.Size(1427, 562)
Me.Panel2.TabIndex = 1
'
'MyDatagridview1
@@ -281,11 +323,13 @@ Partial Class frmBU_Mahnlauf
Me.MyDatagridview1.ReadOnly = True
Me.MyDatagridview1.RowHeadersVisible = False
Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.MyDatagridview1.Size = New System.Drawing.Size(1287, 572)
Me.MyDatagridview1.Size = New System.Drawing.Size(1427, 562)
Me.MyDatagridview1.TabIndex = 0
'
'Panel3
'
Me.Panel3.Controls.Add(Me.Label9)
Me.Panel3.Controls.Add(Me.cbxMahnsperre)
Me.Panel3.Controls.Add(Me.btnMail_Intern)
Me.Panel3.Controls.Add(Me.Button7)
Me.Panel3.Controls.Add(Me.btnKunde)
@@ -304,11 +348,58 @@ Partial Class frmBU_Mahnlauf
Me.Panel3.Controls.Add(Me.Button1)
Me.Panel3.Controls.Add(Me.MyTextBox2)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel3.Location = New System.Drawing.Point(0, 699)
Me.Panel3.Location = New System.Drawing.Point(0, 689)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(1287, 147)
Me.Panel3.Size = New System.Drawing.Size(1427, 166)
Me.Panel3.TabIndex = 1
'
'Label9
'
Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(1109, 144)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(234, 13)
Me.Label9.TabIndex = 50
Me.Label9.Text = "* Kunden mit Mahnsperre werden nicht gemahnt"
'
'cbxMahnsperre
'
Me.cbxMahnsperre.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbxMahnsperre.AutoSize = True
Me.cbxMahnsperre.Checked = True
Me.cbxMahnsperre.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxMahnsperre.Location = New System.Drawing.Point(1337, 11)
Me.cbxMahnsperre.Name = "cbxMahnsperre"
Me.cbxMahnsperre.Size = New System.Drawing.Size(86, 17)
Me.cbxMahnsperre.TabIndex = 49
Me.cbxMahnsperre.Text = "Mahnsperre*"
Me.cbxMahnsperre.UseVisualStyleBackColor = True
'
'btnMail_Intern
'
Me.btnMail_Intern.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnMail_Intern.BackgroundImage = Global.SDL.My.Resources.Resources.email_big1
Me.btnMail_Intern.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnMail_Intern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMail_Intern.Location = New System.Drawing.Point(1353, 83)
Me.btnMail_Intern.Name = "btnMail_Intern"
Me.btnMail_Intern.Size = New System.Drawing.Size(41, 34)
Me.btnMail_Intern.TabIndex = 48
Me.btnMail_Intern.UseVisualStyleBackColor = True
'
'Button7
'
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button7.Location = New System.Drawing.Point(38, 113)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(123, 23)
Me.Button7.TabIndex = 47
Me.Button7.Text = "OP-Liste aktualisieren"
Me.Button7.UseVisualStyleBackColor = True
'
'btnKunde
'
Me.btnKunde.Enabled = False
@@ -330,7 +421,7 @@ Partial Class frmBU_Mahnlauf
Me.cbxMahnstufeErh.AutoSize = True
Me.cbxMahnstufeErh.Checked = True
Me.cbxMahnstufeErh.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxMahnstufeErh.Location = New System.Drawing.Point(1080, 11)
Me.cbxMahnstufeErh.Location = New System.Drawing.Point(1216, 11)
Me.cbxMahnstufeErh.Name = "cbxMahnstufeErh"
Me.cbxMahnstufeErh.Size = New System.Drawing.Size(118, 17)
Me.cbxMahnstufeErh.TabIndex = 44
@@ -341,7 +432,7 @@ Partial Class frmBU_Mahnlauf
'
Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(969, 121)
Me.Label8.Location = New System.Drawing.Point(1109, 121)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(81, 13)
Me.Label8.TabIndex = 42
@@ -353,7 +444,7 @@ Partial Class frmBU_Mahnlauf
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button6.Location = New System.Drawing.Point(972, 81)
Me.Button6.Location = New System.Drawing.Point(1112, 81)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(222, 38)
Me.Button6.TabIndex = 40
@@ -366,7 +457,7 @@ Partial Class frmBU_Mahnlauf
Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnExcel.Location = New System.Drawing.Point(1213, 30)
Me.btnExcel.Location = New System.Drawing.Point(1353, 30)
Me.btnExcel.Name = "btnExcel"
Me.btnExcel.Size = New System.Drawing.Size(41, 34)
Me.btnExcel.TabIndex = 39
@@ -403,9 +494,9 @@ Partial Class frmBU_Mahnlauf
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(183, 12)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(168, 13)
Me.Label6.Size = New System.Drawing.Size(267, 13)
Me.Label6.TabIndex = 34
Me.Label6.Text = "Ohne Erhöhung des Mahnzählers:"
Me.Label6.Text = "Ohne Erhöhung des Mahnzählers (markierte Elemente):"
'
'Button4
'
@@ -425,7 +516,7 @@ Partial Class frmBU_Mahnlauf
'
Me.CheckBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Location = New System.Drawing.Point(745, 119)
Me.CheckBox1.Location = New System.Drawing.Point(628, 113)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(147, 17)
Me.CheckBox1.TabIndex = 33
@@ -438,7 +529,7 @@ Partial Class frmBU_Mahnlauf
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(969, 14)
Me.Label3.Location = New System.Drawing.Point(1109, 14)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(101, 13)
Me.Label3.TabIndex = 30
@@ -463,7 +554,7 @@ Partial Class frmBU_Mahnlauf
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button2.Image = Global.SDL.My.Resources.Resources.mahn
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(972, 30)
Me.Button2.Location = New System.Drawing.Point(1112, 30)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(222, 45)
Me.Button2.TabIndex = 31
@@ -499,7 +590,7 @@ Partial Class frmBU_Mahnlauf
Me.MyTextBox2._WaehrungZeichen = False
Me.MyTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
Me.MyTextBox2.Location = New System.Drawing.Point(1056, 118)
Me.MyTextBox2.Location = New System.Drawing.Point(1196, 118)
Me.MyTextBox2.MaxLength = 10
Me.MyTextBox2.MaxLineLength = -1
Me.MyTextBox2.MaxLines_Warning = ""
@@ -509,75 +600,12 @@ Partial Class frmBU_Mahnlauf
Me.MyTextBox2.TabIndex = 39
Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'txtZahlEingaenge
'
Me.txtZahlEingaenge._DateTimeOnly = False
Me.txtZahlEingaenge._numbersOnly = False
Me.txtZahlEingaenge._numbersOnlyKommastellen = ""
Me.txtZahlEingaenge._numbersOnlyTrennzeichen = True
Me.txtZahlEingaenge._Prozent = False
Me.txtZahlEingaenge._ShortDateNew = True
Me.txtZahlEingaenge._ShortDateOnly = False
Me.txtZahlEingaenge._TimeOnly = False
Me.txtZahlEingaenge._TimeOnly_Seconds = False
Me.txtZahlEingaenge._value = ""
Me.txtZahlEingaenge._Waehrung = False
Me.txtZahlEingaenge._WaehrungZeichen = False
Me.txtZahlEingaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtZahlEingaenge.ForeColor = System.Drawing.Color.Black
Me.txtZahlEingaenge.Location = New System.Drawing.Point(714, 85)
Me.txtZahlEingaenge.MaxLength = 10
Me.txtZahlEingaenge.MaxLineLength = -1
Me.txtZahlEingaenge.MaxLines_Warning = ""
Me.txtZahlEingaenge.MaxLines_Warning_Label = Nothing
Me.txtZahlEingaenge.Name = "txtZahlEingaenge"
Me.txtZahlEingaenge.Size = New System.Drawing.Size(88, 20)
Me.txtZahlEingaenge.TabIndex = 47
Me.txtZahlEingaenge.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtZahlEingaenge.Visible = False
'
'Button7
'
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button7.Location = New System.Drawing.Point(38, 113)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(123, 23)
Me.Button7.TabIndex = 47
Me.Button7.Text = "OP-Liste aktualisieren"
Me.Button7.UseVisualStyleBackColor = True
'
'btnMail_Intern
'
Me.btnMail_Intern.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnMail_Intern.BackgroundImage = Global.SDL.My.Resources.Resources.email_big1
Me.btnMail_Intern.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnMail_Intern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMail_Intern.Location = New System.Drawing.Point(1213, 83)
Me.btnMail_Intern.Name = "btnMail_Intern"
Me.btnMail_Intern.Size = New System.Drawing.Size(41, 34)
Me.btnMail_Intern.TabIndex = 48
Me.btnMail_Intern.UseVisualStyleBackColor = True
'
'cbxKontotyp
'
Me.cbxKontotyp._allowedValuesFreiText = Nothing
Me.cbxKontotyp._allowFreiText = False
Me.cbxKontotyp._value = ""
Me.cbxKontotyp.FormattingEnabled = True
Me.cbxKontotyp.Location = New System.Drawing.Point(568, 103)
Me.cbxKontotyp.Name = "cbxKontotyp"
Me.cbxKontotyp.Size = New System.Drawing.Size(97, 21)
Me.cbxKontotyp.TabIndex = 48
Me.cbxKontotyp.Visible = False
'
'frmBU_Mahnlauf
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1287, 846)
Me.ClientSize = New System.Drawing.Size(1427, 855)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.Panel3)
Me.Controls.Add(Me.Panel1)
@@ -633,4 +661,6 @@ Partial Class frmBU_Mahnlauf
Friend WithEvents Button7 As Button
Friend WithEvents btnMail_Intern As Button
Friend WithEvents cbxKontotyp As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxMahnsperre As CheckBox
Friend WithEvents Label9 As Label
End Class

79
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -35,20 +35,20 @@ Public Class frmBU_Mahnlauf
"isnull(( SELECT TOP 1 [kkd_Email] FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] where kkd_kkaId=10 and kkd_KundenNr=i_personenkonto ) ,'') Email," &
" isnull(( SELECT TOP 1 Vorkasse FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].Kunden where KundenNr=i_personenkonto ) ,'') VK,KTO.c_zahlziel as Zahlungsziel, " &
"count(*) Anzahl, sum(eur_bruttobetrag+eur_zahlung) Ausstand ,min(op.d_netto) Faelligkeit,max(si_mahnstufe) Mahnstufe, cast(MAX(d_mahnung)as date) Mahndatum" &
If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto<getDATE() THEN (eur_bruttobetrag+eur_zahlung) ELSE 0 END) Summe_Faellig") & "
If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto<getDATE() THEN (eur_bruttobetrag+eur_zahlung) ELSE 0 END) Summe_Faellig") & " , cast(isnull(si_mahnung,0) as bit) as mahnbar
FROM op_debitor OP
RIGHT join fibu_konto KTO on i_personenkonto=i_konto AND KTO.i_firm_refid=OP.i_firm_refid
WHERE (OP.i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL)
" & If(cbxNurFaellig.Checked, " and op.d_netto<=getdate() and isnull(si_mahnflags,0) <>(1) ", "") & "
" & If(KdNr > 0, " AND i_personenkonto ='" & KdNr & "'", "") & "
" & If(KdTxt <> "", " AND KTO.c_name LIKE '" & KdTxt.Replace("*", "%") & "'", "") & "
group by i_personenkonto ,KTO.c_name,KTO.c_landid,KTO.c_ort,KTO.c_plz,KTO.c_email, KTO.c_zahlziel
group by i_personenkonto ,KTO.c_name,KTO.c_landid,KTO.c_ort,KTO.c_plz,KTO.c_email, KTO.c_zahlziel, isnull(si_mahnung,0)
HAVING sum(eur_bruttobetrag+eur_zahlung)>'" & MyTextBox1._value & "'
" & If(MyComboBox1._value > 0, " and max(si_mahnstufe)>='" & MyComboBox1._value & "'", "") & "
ORDER BY KTO.c_name"
Dim sqlStringVerag360 = "SELECT i_personenkonto Konto,KTO.c_name, KTO.c_landid Land,Kunden.Abfertigungsverbot as AV,max(KTO.dec_aktuellersaldo) as Saldo,/*KTO.c_plz + ' ' + KTO.c_ort Ort,isnull(KTO.c_email,'') Email, */ " &
"sum(eur_bruttobetrag+eur_zahlung) as Ausstand,cast(min (OWNFIELD_Belegdatum)as date) as 'ältesteRg',/*min(op.d_netto) Faelligkeit,*/max(si_mahnstufe) as MS,max(Kunden.UStV_Summe3470BetragEUR) as '3470',max(Kunden.UStV_SummeVZBetragEUR) as V, max(KTO.dec_wert3) as Risiko,sum(case when OP.c_typ = 'g' then isnull(OP.eur_bruttobetrag, 0) + isnull(OP.eur_zahlung, 0) else 0 end) as Gutschrift, cast(MAX(d_mahnung)as date) Mahndatum,
"sum(eur_bruttobetrag+eur_zahlung) as Ausstand,cast(min (OWNFIELD_Belegdatum)as date) as 'ältesteRg',/*min(op.d_netto) Faelligkeit,*/max(si_mahnstufe) as MS,max(Kunden.UStV_Summe3470BetragEUR) as '3470',max(Kunden.Versicherungssumme) as V, max(KTO.dec_wert3) as Risiko,sum(case when OP.c_typ = 'g' then isnull(OP.eur_bruttobetrag, 0) + isnull(OP.eur_zahlung, 0) else 0 end) as Gutschrift, cast(MAX(d_mahnung)as date) Mahndatum,
case
when max(si_mahnstufe) = 1 Then 'telefonisch'
when max(si_mahnstufe) = 2 Then 'Freitag'
@@ -57,7 +57,7 @@ Public Class frmBU_Mahnlauf
when max(si_mahnstufe) >= 5 Then 'gesperrt'
else '-'
End as Sperre " & If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto<getDATE() THEN (eur_bruttobetrag+eur_zahlung) ELSE 0 END) Summe_Faellig") &
", tblKundenKontakt.[kkd_Email] as Email " &
", tblKundenKontakt.[kkd_Email] as Email , cast(isnull(si_mahnung,0) as bit) as mahnbar " &
"FROM op_debitor OP
RIGHT join fibu_konto KTO on i_personenkonto=i_konto AND KTO.i_firm_refid=OP.i_firm_refid
inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Kunden] on Kunden.KundenNr = i_personenkonto
@@ -66,7 +66,7 @@ Public Class frmBU_Mahnlauf
" & If(cbxNurFaellig.Checked, " and op.d_netto<=getdate() and isnull(si_mahnflags,0) <>(1) ", "") & "
" & If(KdNr > 0, " AND i_personenkonto ='" & KdNr & "'", "") & "
" & If(KdTxt <> "", " AND KTO.c_name LIKE '" & KdTxt.Replace("*", "%") & "'", "") & "
group by i_personenkonto ,KTO.c_name,KTO.c_landid,KTO.c_ort,KTO.c_plz,[tblKundenKontakt].kkd_Email, Kunden.Abfertigungsverbot
group by i_personenkonto ,KTO.c_name,KTO.c_landid,KTO.c_ort,KTO.c_plz,[tblKundenKontakt].kkd_Email, Kunden.Abfertigungsverbot, isnull(si_mahnung,0)
HAVING sum(eur_bruttobetrag+eur_zahlung)>'" & MyTextBox1._value & "'
" & If(MyComboBox1._value > 0, " and max(si_mahnstufe)>='" & MyComboBox1._value & "'", "") & "
ORDER BY KTO.c_name"
@@ -124,6 +124,8 @@ Public Class frmBU_Mahnlauf
.Columns("c_name").AutoSizeMode = DataGridViewAutoSizeColumnsMode.Fill
.Columns("Land").Width = 40
.Columns("mahnbar").Width = 50
If Firma_ID = 19 Then
@@ -1331,33 +1333,41 @@ Public Class frmBU_Mahnlauf
fProgBar.Show(Me)
fProgBar.Refresh()
For Each r As DataGridViewRow In MyDatagridview1.SelectedRows
Dim Konto = r.Cells("Konto").Value
Dim FirmaId = cboFirma._value
If isFaelligAndMahnlauf(Konto, FirmaId) And isMahnlauf_Betrag(Konto, FirmaId) Then
Dim Path = ""
Select Case AUSGABE
Case "PDF"
If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
If doMahnung(4, Konto, FirmaId, "ZE", Path, srchPrinter) Then
PDF_LIST.Add(Path)
End If
Case "MAIL"
If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
doMahnung(2, Konto, FirmaId, "ZE",, srchPrinter)
Case "MAIL_SEND"
If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
doMahnung(5, Konto, FirmaId, "ZE",, srchPrinter)
Case "PRINT"
If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
doMahnung(0, Konto, FirmaId, "ZE",, srchPrinter)
End Select
Dim mahnsperre = r.Cells("mahnbar").Value
If Not cbxMahnsperre.Checked Or (cbxMahnsperre.Checked And Not mahnsperre) Then
Dim Konto = r.Cells("Konto").Value
Dim FirmaId = cboFirma._value
If isFaelligAndMahnlauf(Konto, FirmaId) And isMahnlauf_Betrag(Konto, FirmaId) Then
Dim Path = ""
Select Case AUSGABE
Case "PDF"
If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
If doMahnung(4, Konto, FirmaId, "ZE", Path, srchPrinter) Then
PDF_LIST.Add(Path)
End If
Case "MAIL"
If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
doMahnung(2, Konto, FirmaId, "ZE",, srchPrinter)
Case "MAIL_SEND"
If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
doMahnung(5, Konto, FirmaId, "ZE",, srchPrinter)
Case "PRINT"
If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
doMahnung(0, Konto, FirmaId, "ZE",, srchPrinter)
End Select
End If
cnt += 1
fProgBar.progBar.Value = cnt / gesAnz * 100
fProgBar.lblAnzahl.Text = cnt & "/" & gesAnz
'Pasuse??
fProgBar.Refresh()
End If
cnt += 1
fProgBar.progBar.Value = cnt / gesAnz * 100
fProgBar.lblAnzahl.Text = cnt & "/" & gesAnz
'Pasuse??
fProgBar.Refresh()
Next
If PDF_LIST.Count > 0 Then 'Nur bei PDF
@@ -1461,6 +1471,13 @@ Public Class frmBU_Mahnlauf
btnMail_Intern.Visible = False
End If
Button2.Enabled = Not cbxZahlungseingaenge.Checked
Button4.Enabled = Not cbxZahlungseingaenge.Checked
Button5.Enabled = Not cbxZahlungseingaenge.Checked
Button6.Enabled = Not cbxZahlungseingaenge.Checked
btnSuche.PerformClick()
End Sub
Private Sub cboFirma_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedValueChanged
@@ -1553,4 +1570,6 @@ Public Class frmBU_Mahnlauf
Me.Cursor = Cursors.Default
End Sub
End Class

6
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -365,7 +365,11 @@ Public Class frmKundenUebersichtZOLL
End If
mnueFiskaluebersicht.Enabled = False
UsrCntlOfferte1.init(-1)
Dim isVerag360 As Boolean = False
If Not IsDBNull(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) AndAlso CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) = 19 Then isVerag360 = True
UsrCntlOfferte1.init(-1, isVerag360)
End If
Else
End If

2
SDL/kunden/usrCntlCBAM.vb
View File

@@ -428,7 +428,7 @@
,max(Eigenmasse) Eigenmasse
,max([VersendungsLand]) VersendungsLand
,'DE' Bestimmungsland
,max([Rechnungsbetrag])Rechnungspreis
,max([DV1Rechnungsbetrag])Rechnungspreis
,max([Rechnungswährung]) Rechnungswaehrung
,isnull(max(Empfänger_CN_EORI),'') as EmpfängerEORI
,isnull(max(CN_Name), '') as Empfänger

47
SDL/kunden/usrCntlOfferte.vb
View File

@@ -74,10 +74,12 @@ Public Class usrCntlOfferte
With dgvOfferteDetails
'.Columns.Clear()
Dim SQLAddFields As String = ""
Dim addedFields As Boolean = addFieldsOffert(OffertenNr, SQLAddFields)
Try
OFFERTEBind = New cEasyBinding(BIND_DB)
OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " &
OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr" & SQLAddFields &
" FROM [Offertenpositionen] " &
" WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr, Preis DESC", "Offertenpositionen")
For Each c As DataColumn In OFFERTEBind.bindingdataTable.Columns
@@ -147,6 +149,17 @@ Public Class usrCntlOfferte
' .Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
' .Columns("OffertenBez").HeaderText = "Bezeichnung"
If addedFields AndAlso .Columns.Contains("Land") Then
.Columns("Land").Width = 70
.Columns("Land").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("VZ").Width = 40
.Columns("VZ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("RMC").Width = 40
.Columns("RMC").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("Fremd").Width = 40
.Columns("Fremd").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
End If
loaded = True
End With
@@ -555,7 +568,7 @@ Public Class usrCntlOfferte
For Each c As DataGridViewColumn In .Columns
If isVerag360 Then
If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr" Or c.Name = "BerechnungsartPosInkludiert" Or c.Name = "BGebLeistungsNr" Or c.Name = "BGebProzent" Or c.Name = "BGebMinBetrag") Then
If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr" Or c.Name = "BerechnungsartPosInkludiert" Or c.Name = "BGebLeistungsNr" Or c.Name = "BGebProzent" Or c.Name = "BGebMinBetrag" Or c.Name = "Land" Or c.Name = "VZ" Or c.Name = "RMC" Or c.Name = "Fremd") Then
If edit Then
c.ReadOnly = False
handleEditMode(edit)
@@ -602,11 +615,19 @@ Public Class usrCntlOfferte
loaded = False
DGVHasChaged = False
Dim addFields As String = ""
Dim OffNR As Integer = -1
OffNR = CInt(SQL.getValueTxtBySql("SELECT TOP(1) OffertenNr from tblOffertenArchiv where OfID = " & OffertenId, "FMZOLL"))
Dim addedFields As Boolean = addFieldsOffert(OffNR, addFields)
With dgvOfferteDetails
.Columns.Clear()
OFFERTEBind = New cEasyBinding(BIND_DB)
OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " &
OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " & addFields &
" FROM [tblOffertenpositionenArchiv] " &
" WHERE OfId='" & OffertenId & "' ORDER BY LeistungsNr, Preis DESC", "tblOffertenpositionenArchiv")
@@ -656,6 +677,17 @@ Public Class usrCntlOfferte
.Columns("Preisänderung").HeaderText = "PreisNeu"
.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
If addedFields Then
.Columns("Land").Width = 70
.Columns("VZ").Width = 40
.Columns("VZ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("RMC").Width = 40
.Columns("RMC").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("Fremd").Width = 40
.Columns("Fremd").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
End If
loaded = True
End With
Catch ex As Exception
@@ -951,5 +983,14 @@ Public Class usrCntlOfferte
Me.Cursor = Cursors.Default
End Sub
Private Function addFieldsOffert(ByRef OffertenNr As Integer, ByRef fields As String)
If OffertenNr = 14 Or OffertenNr = 15 Or OffertenNr = 31 Then
fields = ", Land, VZ, RMC, Fremd "
Return True
End If
Return False
End Function
End Class

4
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -4107,7 +4107,9 @@ Public Class frmMDMDatenverarbetiung
and ( Offertenpositionen.OffertenNr=17 or Offertenpositionen.OffertenNr=21) where cast(tblIDSTransactionsNew.YearMonthDay As Date) = '" & DateTimePicker2.Text & "' and tblIDSTransactionsNew.KdNrVERAG = " & kundenNr & " and
Offertenpositionen.LeistungsNr is null Group by Leistungen.LeistungsNr, Leistungen.LeistungsBez,tblIDSTransactionsNew.KdNrVERAG, Offertenpositionen.LeistungsNr, Offertenpositionen.LeistungsBez ) as t1"
Dim fehlendeLeistungsNr As Integer = CInt((New SQL).getValueTxtBySql(sqlStringfehlendeLeistungsNr, "FMZOLL"))
If fehlendeLeistungsNr > 0 Then counter += fehlendeLeistungsNr
If fehlendeLeistungsNr > 0 Then
counter += fehlendeLeistungsNr
End If
End If
Next