Projektdateien hinzufügen.

This commit is contained in:
ms
2019-08-07 12:29:10 +02:00
parent 4008832285
commit 1e9039b6ea
251 changed files with 90001 additions and 0 deletions

View File

@@ -0,0 +1,184 @@
Public Class cAbfragen
Public Shared Rechnungen As String = "select
sum(SteuerfreierGesamtbetrag) as Steuerfrei,
sum(SteuerpflichtigerGesamtbetrag) as Steuerpflichtig,
sum(SteuerfreierGesamtbetrag + SteuerpflichtigerGesamtbetrag) as RECHNUNGEN,
count(Rechnungsnr) as Anzahl ,
max(DATENAME(YEAR, (Abfertigungsdatum))) As Jahr, max(Datename(Month, (Abfertigungsdatum))) As Monat
from dbo.Rechnungsausgang where FilialenNr = '{0}' AND Abfertigungsdatum >= '{1}' and Abfertigungsdatum <= '{2}' and Vermerk is not null
GROUP BY DATEADD(MONTH, DateDiff(Year, 0, Abfertigungsdatum), 0),DATEADD(MONTH, DATEDIFF(MONTH, 0, Abfertigungsdatum ), 0)"
Public Shared Vorkosten As String = "select sum(vorkosten) as Vorkosten, count(Nummer) as Anzahl
,max(DATENAME(YEAR, (Datum))) As Jahr, max(Datename(Month, (Datum))) As Monat
from(
select distinct
Rechnungsausgang.AbfertigungsNr as Nummer
,vork.preis as vorkosten
,Rechnungsausgang.Abfertigungsdatum as Datum
from dbo.Vorkosten as vork
right join dbo.Rechnungsausgang on Rechnungsausgang.AbfertigungsNr = vork.AbfertigungsNr where Rechnungsausgang.FilialenNr = '{0}' AND Abfertigungsdatum >= '{1}' and Abfertigungsdatum <= '{2}'
) as meh
GROUP BY DATEADD(MONTH, DateDiff(Year, 0, Datum), 0),DATEADD(MONTH, DATEDIFF(MONTH, 0, Datum ), 0)"
Public Shared Einzelauswertung As String = "select
atr_frachtpos,
atr_auftr_firma,
atr_ladest_firma,
atr_frachtfab_firma,
atr_frachtf_firma,
atr_Auftragsart,
atr_TransportauftragArt,
Vorkosten,
case
when atr_TransportauftragArt = 'NACH' then atr_frachtfab_firma
when atr_TransportauftragArt = 'VOR' then atr_frachtf_firma
when atr_TransportauftragArt = '' and atr_AuftragsArt = 'Transport' then ''
when atr_AuftragsArt = 'Handling' then '-'
end as Frächter,
case
when atr_Auftragsart = 'TRANSPORT' then 'TRANSP.'
when atr_Auftragsart = 'HANDLING' then 'HANDLING'
end as ShortAuftragsart,
case
when sum(SteuerfreierGesamtbetrag + SteuerpflichtigerGesamtbetrag) is null then '-0'
else sum(SteuerfreierGesamtbetrag + SteuerpflichtigerGesamtbetrag)
end as Rechnungen, --atr_frachtpos, Vorkosten
case
when Vorzeichen = '-' then (Vorkosten * -1)
else Vorkosten
end as Vorkosten_Vorzeichen,
case
when sum (SteuerfreierGesamtbetrag + SteuerpflichtigerGesamtbetrag - Vorkosten) is null then '0'
else sum (SteuerfreierGesamtbetrag + SteuerpflichtigerGesamtbetrag - Vorkosten)
end as Marge
from dbo.Rechnungsausgang as RechAus
left join [BUCHHALTUNG\SQLExpress].DISPO.dbo.tblAuftraege on rechaus.AbfertigungsNr = atr_frachtpos
where rechaus.FilialenNr = '{0}'
AND atr_datum between '{1}' and '{2}' AND (atr_auftragsart = 'Transport' OR atr_auftragsart = 'Handling')
-- AND abfertigungsnr = @AbfertigungsNr
group by atr_auftr_firma, AbfertigungsNr, atr_frachtpos, atr_auftr_firma, atr_frachtfAb_firma, atr_frachtf_firma, atr_ladest_firma, atr_Auftragsart, atr_TransportauftragArt, Vorkosten, Vorzeichen
order by atr_frachtpos"
Public Shared VorkostenStandardauswertung As String = " select
min(atr_datum) as Meh,
max(DATENAME(month, (atr_datum))) As Monat,
max(DATENAME(YEAR, (atr_datum))) As Jahr,
sum(Vorkosten) as Vorkosten FROM (
SELECT Vorkosten, atr_datum, ROW_NUMBER() OVER(PARTITION BY AbfertigungsNr ORDER BY AbfertigungsNr DESC) as rn
from dbo.Rechnungsausgang as RechAus
left join [BUCHHALTUNG\SQLExpress].DISPO.dbo.tblAuftraege on rechaus.AbfertigungsNr = atr_frachtpos
where rechaus.FilialenNr = '{0}'
AND atr_datum between '{1}' and '{2}' AND (atr_auftragsart = 'Transport' OR atr_auftragsart = 'Handling')
) a
WHERE rn = 1
GROUP BY DATEADD(MONTH, DateDiff(Year, 0, atr_datum), 0),DATEADD(MONTH, DATEDIFF(MONTH, 0, atr_datum ), 0)
ORDER BY Meh"
Public Shared Jahresauwertung As String = "select
max(DATENAME(YEAR, (atr_datum))) As Jahr,
count(distinct Speditionsbuch.AbfertigungsNr) As Anzahl ,
sum (Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag) as Rechnungen, --atr_frachtpos, Vorkosten
sum (vorkosten) as Vorkosten,
sum (Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag - Vorkosten) as Marge
FROM ((VERAG.dbo.Speditionsbuch --as SpedBuch
inner join [BUCHHALTUNG\SQLEXPRESS].DISPO.dbo.tblAuftraege as dispoauftraege on atr_speditionsbuchNr = Speditionsbuch.FilialenNr AND atr_frachtpos = Speditionsbuch.AbfertigungsNr)
inner join VERAG.dbo.Rechnungsausgang on atr_speditionsbuchNr = Rechnungsausgang.FilialenNr AND atr_frachtpos = Rechnungsausgang.AbfertigungsNr)
where atr_datum between '{1}' and '{2}'
AND atr_speditionsbuchNr = '{0}'
AND (atr_auftragsart = 'Transport' OR atr_auftragsart = 'Handling')
GROUP BY DATEADD(YEAR, DateDiff(Year, 0, atr_datum), 0),DATEADD(YEAR, DATEDIFF(YEAR, 0, atr_datum ), 0)
Order BY Jahr asc"
Public Shared Standardauswertung As String = "select
min(atr_datum) as Meh,
max(DATENAME(month, (atr_datum))) As Monat,
max(DATENAME(YEAR, (atr_datum))) As Jahr,
count(distinct AbfertigungsNr) As Anzahl ,
sum (SteuerfreierGesamtbetrag + SteuerpflichtigerGesamtbetrag) as Rechnungen,
sum (SteuerfreierGesamtbetrag + SteuerpflichtigerGesamtbetrag - Vorkosten) as Marge
from dbo.Rechnungsausgang as RechAus
left join [BUCHHALTUNG\SQLExpress].DISPO.dbo.tblAuftraege on rechaus.AbfertigungsNr = atr_frachtpos
where rechaus.FilialenNr = '{0}' AND atr_datum between '{1}' and '{2}' AND (atr_auftragsart = 'Transport' OR atr_auftragsart = 'Handling')
GROUP BY DATEADD(MONTH, DateDiff(Year, 0, atr_datum), 0),DATEADD(MONTH, DATEDIFF(MONTH, 0, atr_datum ), 0)
ORDER BY Meh"
End Class
Public Class cHelferleins
'',max(DATENAME(YEAR, (Abfertigungsdatum))) As Jahr, '-' As Monat
End Class
' Public Shared Einzelauswertung As String = "select
'atr_frachtpos,
'atr_auftr_firma,
'atr_ladest_firma,
'atr_frachtfab_firma,
'atr_frachtf_firma,
'atr_Auftragsart,
'atr_TransportauftragArt,
'count(*) As Anzahl,
'case
' when atr_TransportauftragArt = 'NACH' then atr_frachtfab_firma
' when atr_TransportauftragArt = 'VOR' then atr_frachtf_firma
' when atr_TransportauftragArt = '' and atr_AuftragsArt = 'Transport' then ''
' when atr_AuftragsArt = 'Handling' then '-'
'end as Frächter,
'case
' when atr_Auftragsart = 'TRANSPORT' then 'TRANSP.'
' when atr_Auftragsart = 'HANDLING' then 'HANDLING'
'end as ShortAuftragsart,
'case
' when sum(Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag) is null then '-0'
' else sum(Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag)
'end as Rechnungen, --atr_frachtpos, Vorkosten
'case
' when sum (vorkosten) is null then '0'
' when sum (vorkosten) is null then '0'
' when sum (vorkosten) is null then '0'
' else sum(vorkosten)
'end as Vorkosten,
'case
' when sum (Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag - Vorkosten) is null then '0'
' else sum (Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag - Vorkosten)
'end as Marge
' from (([BUCHHALTUNG\SQLEXPRESS].DISPO.dbo.tblAuftraege as dispoauftraege
'inner join VERAG.dbo.Speditionsbuch on atr_speditionsbuchNr = Speditionsbuch.FilialenNr AND atr_frachtpos = Speditionsbuch.AbfertigungsNr)
'inner join VERAG.dbo.Rechnungsausgang on atr_speditionsbuchNr = Rechnungsausgang.FilialenNr AND atr_frachtpos = Rechnungsausgang.AbfertigungsNr)
'where atr_datum between '{1}' and '{2}'
'AND atr_speditionsbuchNr = '{0}'
'AND Abfertigungsart = '19'
'group by atr_frachtpos, atr_auftr_firma, atr_frachtfAb_firma, atr_frachtf_firma, atr_ladest_firma, atr_Auftragsart, atr_TransportauftragArt--, Anzahl
'ORDER BY atr_frachtpos"
' Public Shared Standardauswertung As String = "select
'max(DATENAME(month, (atr_datum))) As Monat,
'max(DATENAME(YEAR, (atr_datum))) As Jahr,
'count(distinct Speditionsbuch.AbfertigungsNr) As Anzahl ,
'sum (Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag) as Rechnungen,
'--sum (vorkosten) as Vorkosten,
'sum (Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag - Vorkosten) as Marge
'FROM ((VERAG.dbo.Speditionsbuch --as SpedBuch
'inner join [BUCHHALTUNG\SQLEXPRESS].DISPO.dbo.tblAuftraege as dispoauftraege on atr_speditionsbuchNr = Speditionsbuch.FilialenNr AND atr_frachtpos = Speditionsbuch.AbfertigungsNr)
'inner join VERAG.dbo.Rechnungsausgang on atr_speditionsbuchNr = Rechnungsausgang.FilialenNr AND atr_frachtpos = Rechnungsausgang.AbfertigungsNr)
'where atr_datum between '{1}' and '{2}'
'AND atr_speditionsbuchNr = '{0}'
'--AND (atr_auftragsart = 'Transport' OR atr_auftragsart = 'Handling')
'AND Abfertigungsart = '19'
'GROUP BY DATEADD(MONTH, DateDiff(Year, 0, atr_datum), 0),DATEADD(MONTH, DATEDIFF(MONTH, 0, atr_datum ), 0)"
'End Class

View File

@@ -0,0 +1,399 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAuswertung
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAuswertung))
Me.btnAuswertung = New System.Windows.Forms.Button()
Me.cbStandort = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.chkStandard = New System.Windows.Forms.CheckBox()
Me.btnAktMonat = New System.Windows.Forms.Button()
Me.btnLetztesMonat = New System.Windows.Forms.Button()
Me.chkEinzelauswertung = New System.Windows.Forms.CheckBox()
Me.PanJahr = New System.Windows.Forms.Panel()
Me.cboBis = New System.Windows.Forms.ComboBox()
Me.cboVon = New System.Windows.Forms.ComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.PanMonat = New System.Windows.Forms.Panel()
Me.DateVon = New System.Windows.Forms.DateTimePicker()
Me.DateBis = New System.Windows.Forms.DateTimePicker()
Me.chkJahresauswertung = New System.Windows.Forms.CheckBox()
Me.btnAlles = New System.Windows.Forms.Button()
Me.btnLetztesJahr = New System.Windows.Forms.Button()
Me.btnAktuellesJahr = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.chkStatSuchererg = New System.Windows.Forms.CheckBox()
Me.chkAusSuchererg = New System.Windows.Forms.CheckBox()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.chkRechnungen = New System.Windows.Forms.CheckBox()
Me.Panel1.SuspendLayout()
Me.PanJahr.SuspendLayout()
Me.PanMonat.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.SuspendLayout()
'
'btnAuswertung
'
Me.btnAuswertung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAuswertung.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAuswertung.Location = New System.Drawing.Point(370, 3)
Me.btnAuswertung.Name = "btnAuswertung"
Me.btnAuswertung.Size = New System.Drawing.Size(138, 28)
Me.btnAuswertung.TabIndex = 27
Me.btnAuswertung.Text = "Auswertung starten"
Me.btnAuswertung.UseVisualStyleBackColor = True
'
'cbStandort
'
Me.cbStandort.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbStandort.FormattingEnabled = True
Me.cbStandort.Items.AddRange(New Object() {"4807 - Verag Suben", "4819 - Verag Neuhaus"})
Me.cbStandort.Location = New System.Drawing.Point(6, 23)
Me.cbStandort.Name = "cbStandort"
Me.cbStandort.Size = New System.Drawing.Size(121, 22)
Me.cbStandort.TabIndex = 32
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(3, 4)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(57, 14)
Me.Label1.TabIndex = 33
Me.Label1.Text = "Standort:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(0, 52)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(27, 14)
Me.Label2.TabIndex = 34
Me.Label2.Text = "Bis:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(0, 6)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(31, 14)
Me.Label3.TabIndex = 35
Me.Label3.Text = "Von:"
'
'Panel1
'
Me.Panel1.Controls.Add(Me.chkStandard)
Me.Panel1.Controls.Add(Me.btnAktMonat)
Me.Panel1.Controls.Add(Me.btnLetztesMonat)
Me.Panel1.Controls.Add(Me.chkEinzelauswertung)
Me.Panel1.Controls.Add(Me.PanJahr)
Me.Panel1.Controls.Add(Me.PanMonat)
Me.Panel1.Controls.Add(Me.chkJahresauswertung)
Me.Panel1.Controls.Add(Me.btnAlles)
Me.Panel1.Controls.Add(Me.btnLetztesJahr)
Me.Panel1.Controls.Add(Me.btnAktuellesJahr)
Me.Panel1.Controls.Add(Me.cbStandort)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Location = New System.Drawing.Point(12, 12)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(511, 153)
Me.Panel1.TabIndex = 36
'
'chkStandard
'
Me.chkStandard.AutoSize = True
Me.chkStandard.Checked = True
Me.chkStandard.CheckState = System.Windows.Forms.CheckState.Checked
Me.chkStandard.Location = New System.Drawing.Point(6, 60)
Me.chkStandard.Name = "chkStandard"
Me.chkStandard.Size = New System.Drawing.Size(97, 17)
Me.chkStandard.TabIndex = 45
Me.chkStandard.Text = "Standardausw."
Me.chkStandard.UseVisualStyleBackColor = True
'
'btnAktMonat
'
Me.btnAktMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAktMonat.Font = New System.Drawing.Font("Arial", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAktMonat.Location = New System.Drawing.Point(370, 6)
Me.btnAktMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnAktMonat.Name = "btnAktMonat"
Me.btnAktMonat.Size = New System.Drawing.Size(138, 20)
Me.btnAktMonat.TabIndex = 44
Me.btnAktMonat.Text = "akt. Monat"
Me.btnAktMonat.UseVisualStyleBackColor = True
'
'btnLetztesMonat
'
Me.btnLetztesMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnLetztesMonat.Font = New System.Drawing.Font("Arial", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnLetztesMonat.Location = New System.Drawing.Point(370, 29)
Me.btnLetztesMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnLetztesMonat.Name = "btnLetztesMonat"
Me.btnLetztesMonat.Size = New System.Drawing.Size(138, 20)
Me.btnLetztesMonat.TabIndex = 43
Me.btnLetztesMonat.Text = "vorher. Monat"
Me.btnLetztesMonat.UseVisualStyleBackColor = True
'
'chkEinzelauswertung
'
Me.chkEinzelauswertung.AutoSize = True
Me.chkEinzelauswertung.Location = New System.Drawing.Point(6, 83)
Me.chkEinzelauswertung.Name = "chkEinzelauswertung"
Me.chkEinzelauswertung.Size = New System.Drawing.Size(112, 17)
Me.chkEinzelauswertung.TabIndex = 42
Me.chkEinzelauswertung.Text = "Einzelauswertung:"
Me.chkEinzelauswertung.UseVisualStyleBackColor = True
'
'PanJahr
'
Me.PanJahr.Controls.Add(Me.cboBis)
Me.PanJahr.Controls.Add(Me.cboVon)
Me.PanJahr.Controls.Add(Me.Label4)
Me.PanJahr.Location = New System.Drawing.Point(133, 111)
Me.PanJahr.Name = "PanJahr"
Me.PanJahr.Size = New System.Drawing.Size(207, 27)
Me.PanJahr.TabIndex = 37
'
'cboBis
'
Me.cboBis.FormattingEnabled = True
Me.cboBis.Location = New System.Drawing.Point(98, 3)
Me.cboBis.Name = "cboBis"
Me.cboBis.Size = New System.Drawing.Size(72, 21)
Me.cboBis.TabIndex = 44
'
'cboVon
'
Me.cboVon.FormattingEnabled = True
Me.cboVon.Location = New System.Drawing.Point(3, 2)
Me.cboVon.Name = "cboVon"
Me.cboVon.Size = New System.Drawing.Size(72, 21)
Me.cboVon.TabIndex = 37
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(81, 6)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(11, 14)
Me.Label4.TabIndex = 43
Me.Label4.Text = "-"
'
'PanMonat
'
Me.PanMonat.Controls.Add(Me.DateVon)
Me.PanMonat.Controls.Add(Me.Label2)
Me.PanMonat.Controls.Add(Me.Label3)
Me.PanMonat.Controls.Add(Me.DateBis)
Me.PanMonat.Location = New System.Drawing.Point(133, 0)
Me.PanMonat.Name = "PanMonat"
Me.PanMonat.Size = New System.Drawing.Size(207, 100)
Me.PanMonat.TabIndex = 37
'
'DateVon
'
Me.DateVon.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DateVon.Location = New System.Drawing.Point(3, 23)
Me.DateVon.Name = "DateVon"
Me.DateVon.Size = New System.Drawing.Size(200, 20)
Me.DateVon.TabIndex = 36
'
'DateBis
'
Me.DateBis.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DateBis.Location = New System.Drawing.Point(3, 69)
Me.DateBis.Name = "DateBis"
Me.DateBis.Size = New System.Drawing.Size(200, 20)
Me.DateBis.TabIndex = 37
'
'chkJahresauswertung
'
Me.chkJahresauswertung.AutoSize = True
Me.chkJahresauswertung.Location = New System.Drawing.Point(6, 106)
Me.chkJahresauswertung.Name = "chkJahresauswertung"
Me.chkJahresauswertung.Size = New System.Drawing.Size(115, 17)
Me.chkJahresauswertung.TabIndex = 41
Me.chkJahresauswertung.Text = "Jahresauswertung:"
Me.chkJahresauswertung.UseVisualStyleBackColor = True
'
'btnAlles
'
Me.btnAlles.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAlles.Font = New System.Drawing.Font("Arial", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAlles.Location = New System.Drawing.Point(370, 95)
Me.btnAlles.Margin = New System.Windows.Forms.Padding(0)
Me.btnAlles.Name = "btnAlles"
Me.btnAlles.Size = New System.Drawing.Size(138, 20)
Me.btnAlles.TabIndex = 40
Me.btnAlles.Text = "alle Daten"
Me.btnAlles.UseVisualStyleBackColor = True
'
'btnLetztesJahr
'
Me.btnLetztesJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnLetztesJahr.Font = New System.Drawing.Font("Arial", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnLetztesJahr.Location = New System.Drawing.Point(370, 73)
Me.btnLetztesJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnLetztesJahr.Name = "btnLetztesJahr"
Me.btnLetztesJahr.Size = New System.Drawing.Size(138, 20)
Me.btnLetztesJahr.TabIndex = 39
Me.btnLetztesJahr.Text = "vorher. Kalenderjahr"
Me.btnLetztesJahr.UseVisualStyleBackColor = True
'
'btnAktuellesJahr
'
Me.btnAktuellesJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAktuellesJahr.Font = New System.Drawing.Font("Arial", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAktuellesJahr.Location = New System.Drawing.Point(370, 52)
Me.btnAktuellesJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnAktuellesJahr.Name = "btnAktuellesJahr"
Me.btnAktuellesJahr.Size = New System.Drawing.Size(138, 20)
Me.btnAktuellesJahr.TabIndex = 38
Me.btnAktuellesJahr.Text = "akt. Kalenderjahr"
Me.btnAktuellesJahr.UseVisualStyleBackColor = True
'
'Panel2
'
Me.Panel2.Controls.Add(Me.chkStatSuchererg)
Me.Panel2.Controls.Add(Me.chkAusSuchererg)
Me.Panel2.Location = New System.Drawing.Point(12, 308)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(511, 39)
Me.Panel2.TabIndex = 37
Me.Panel2.Visible = False
'
'chkStatSuchererg
'
Me.chkStatSuchererg.AutoSize = True
Me.chkStatSuchererg.Location = New System.Drawing.Point(182, 4)
Me.chkStatSuchererg.Name = "chkStatSuchererg"
Me.chkStatSuchererg.Size = New System.Drawing.Size(151, 17)
Me.chkStatSuchererg.TabIndex = 1
Me.chkStatSuchererg.Text = "Statistik aus Suchergebnis"
Me.chkStatSuchererg.UseVisualStyleBackColor = True
'
'chkAusSuchererg
'
Me.chkAusSuchererg.AutoSize = True
Me.chkAusSuchererg.Location = New System.Drawing.Point(6, 4)
Me.chkAusSuchererg.Name = "chkAusSuchererg"
Me.chkAusSuchererg.Size = New System.Drawing.Size(170, 17)
Me.chkAusSuchererg.TabIndex = 0
Me.chkAusSuchererg.Text = "Auswertung aus Suchergebnis"
Me.chkAusSuchererg.UseVisualStyleBackColor = True
'
'Panel3
'
Me.Panel3.Controls.Add(Me.btnAuswertung)
Me.Panel3.Location = New System.Drawing.Point(12, 171)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(511, 39)
Me.Panel3.TabIndex = 38
'
'Panel4
'
Me.Panel4.Controls.Add(Me.chkRechnungen)
Me.Panel4.Location = New System.Drawing.Point(12, 216)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(511, 39)
Me.Panel4.TabIndex = 38
'
'chkRechnungen
'
Me.chkRechnungen.AutoSize = True
Me.chkRechnungen.Location = New System.Drawing.Point(6, 4)
Me.chkRechnungen.Name = "chkRechnungen"
Me.chkRechnungen.Size = New System.Drawing.Size(247, 17)
Me.chkRechnungen.TabIndex = 0
Me.chkRechnungen.Text = "Auswertung aus Rechnungen (wie aus FMZoll)"
Me.chkRechnungen.UseVisualStyleBackColor = True
'
'frmAuswertung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSize = True
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(537, 450)
Me.Controls.Add(Me.Panel4)
Me.Controls.Add(Me.Panel3)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.Panel1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmAuswertung"
Me.Text = "Auswertung"
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.PanJahr.ResumeLayout(False)
Me.PanJahr.PerformLayout()
Me.PanMonat.ResumeLayout(False)
Me.PanMonat.PerformLayout()
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.Panel4.ResumeLayout(False)
Me.Panel4.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents btnAuswertung As Button
Friend WithEvents cbStandort As ComboBox
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Panel1 As Panel
Friend WithEvents DateBis As DateTimePicker
Friend WithEvents DateVon As DateTimePicker
Friend WithEvents btnAktuellesJahr As Button
Friend WithEvents btnAlles As Button
Friend WithEvents btnLetztesJahr As Button
Friend WithEvents PanJahr As Panel
Friend WithEvents Label4 As Label
Friend WithEvents PanMonat As Panel
Friend WithEvents chkJahresauswertung As CheckBox
Friend WithEvents cboVon As ComboBox
Friend WithEvents cboBis As ComboBox
Friend WithEvents chkEinzelauswertung As CheckBox
Friend WithEvents btnLetztesMonat As Button
Friend WithEvents Panel2 As Panel
Friend WithEvents Panel3 As Panel
Friend WithEvents chkAusSuchererg As CheckBox
Friend WithEvents chkStatSuchererg As CheckBox
Friend WithEvents btnAktMonat As Button
Friend WithEvents Panel4 As Panel
Friend WithEvents chkRechnungen As CheckBox
Friend WithEvents chkStandard As CheckBox
End Class

View File

@@ -0,0 +1,980 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<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="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
AACIYDh5TSB6TSF2SRt3Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
Sh13Sh13Sh13Sh13Sh12SRt6TSF5TSCIYDh6TSFqOAZqOQdmMwBoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNmMwBqOQdqOAZ6TSF5TB9pNwVqOQdo
NQNoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
NgRoNQNqOQdpNwV5TB9uPQ1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBuPQ1tPAtmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBt
PAtxQhNmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBxQhN3SRxnNAFoNQNmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNQNnNAF3SRx4Sx5oNQNoNgRm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBoNgRoNQN4Sx53Sh1oNQNoNgRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3
Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwBmMwDm4N3/////////
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
//////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRm
MwBmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
MwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwCMblj///////////////////////////+M
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwC3
p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3
Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
MwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwDm4N3/////////////
//+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRm
MwBmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
//////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
MwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
//////////////+3p5xmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwCjjH3/
///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBoNgRoNQN3
Sh13Sh1oNQNoNgRmMwBmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
//////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
9fRmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwDUy8X///////////////+t
mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
//+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRm
MwBmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
MwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
6+n///////////////+jjH1mMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwCYfWv/////
///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
//////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
//+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBmMwBoNgRoNQN3
Sh13Sh1oNQNoNgRmMwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
//////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
mo1mMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwDLv7j////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
//////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRm
MwBmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
MwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwB0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
//////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3
Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3
Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh14Sx5oNQNoNgRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN4Sx53SRxnNAFoNQNm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBoNQNnNAF3SRxxQhNmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBxQhNtPAtmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBt
PAtuPQ1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBuPQ15TB9pNwVqOQdoNQNoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNQNqOQdpNwV5TB96TSFqOAZqOQdm
MwBoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
NQNmMwBqOQdqOAZ6TSGIYDh5TSB6TSF2SRt3Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh12SRt6TSF5TSCIYDj/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////39fTBs6rBs6rBs6rB
s6rBs6rBs6rBs6rBs6rBs6rBs6rBs6rBs6rBs6rBs6r/////////////////////////////////////
///////////////////39fTBs6rBs6rBs6rBs6rBs6rBs6rUy8X/////////////////////////////
///////////////////////////////Bs6rBs6rBs6rBs6rBs6rBs6rBs6r/////////////////////
///////////////////////////////Bs6rBs6rBs6rBs6rBs6rBs6rUy8X/////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////Bs6rBs6rBs6rBs6rBs6rBs6r/////////////////////////////////////////////
///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0
SSbBs6r////////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwCM
blj////////////////////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCMbljLv7j///////////////////////////////////////90SSZmMwBmMwBmMwBm
MwBmMwCMblj/////////////////////////////////////////////////////////////////////
///////////////////////////////Uy8WMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X/
//////////////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULm4N3/////////////////////////////////
//////+MblhmMwBmMwBmMwBmMwBmMwB0SSb////////////////////////////////////////m4N2M
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblju6+n/////////////////
//////////////+MblhmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////
//////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH339fT/////////////////////////////////////////
//+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd
1tH///////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwDu6+n/////////
///////////////////////m4N10SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCAXUL39fT///////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwDu6+n/
////////////////////////////////////////////////////////////////////////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj39fT/////
///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3////////////////////////////////Bs6pmMwBm
MwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////////B
s6pmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////////////////////////////Uy8VmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////
///////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////
///Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDd1tH////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
///////////////////////////////////////////////////////////////u6+lmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
///////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////d1tG3p5xmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
MwC3p5z///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////
///Bs6p0SSZmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////u6+lmMwBmMwBmMwBm
MwBmMwBmMwCtmo3/////////////////////////////////////////////////////////////////
///////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////Bs6p0SSZmMwBmMwBmMwBm
MwBmMwBmMwB0SSbu6+n///////////////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwDB
s6r////////////////////m4N2AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////////////39fRmMwBmMwBmMwBm
MwBmMwBmMwCAXULu6+n////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////
//////////////////90SSZmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////
//////////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwDd1tH/
///////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////
//////+MblhmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////m4N1mMwBmMwBmMwBmMwBm
MwBmMwBmMwDUy8X///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwB0SSb/////////
///////////////39fTBs6rBs6rBs6qMblhmMwBmMwDLv7j////////////////////////39fRmMwBm
MwBmMwBmMwBmMwBmMwCAXUL///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwB0SSb/
///////////////////////////////////////////////////////////////////////////39fRm
MwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwB0
SSb39fT///////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwCMblj/////////////
//////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////+jjH1m
MwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////////////////////////////////
///////////////////m4N2YfWtmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////
//+tmo1mMwBmMwBmMwBmMwBmMwBmMwDBs6rBs6rBs6rBs6rBs6rBs6rBs6rBs6rLv7j/////////////
///////////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
//////+AXUJmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////////Bs6pmMwBm
MwBmMwBmMwBmMwBmMwD////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwB0SSb/
///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////
///////////////////////////////////////d1tHBs6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwCjjH3////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCtmo339fT////////////////////////////d1tFmMwBmMwBmMwBmMwBm
MwBmMwDLv7j////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
///////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwDm4N3////////////////////////3
9fR0SSZmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////Uy8VmMwBmMwBmMwBmMwBm
MwBmMwDBs6r////////////////////////////////////////////////m4N23p5xmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////////////Uy8VmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULm4N3/////////////
///////////d1tFmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////////////m4N1mMwBm
MwBmMwBmMwBmMwBmMwCMblj////////////////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
MwDUy8X///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////
///u6+mYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////
///////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwB0SSbu6+n////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////
//////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////+tmo1mMwBmMwBm
MwBmMwBmMwBmMwDd1tH///////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
///////////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwB0SSbm4N3///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1m
MwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////+YfWtmMwBmMwBmMwBmMwBm
MwBmMwD///////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwCjjH3/////////
//////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////+M
blhmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////+YfWtmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/////////////////////////////////
//////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDu6+n////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////
//////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+jjH1m
MwBmMwBmMwBmMwBmMwCMblj///////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwDd
1tH///////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////
///////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rm4N3/////////
//////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwD39fT/////////
///////Bs6p0SSZmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////+MblhmMwBmMwBmMwBm
MwBmMwBmMwDm4N3////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwDu6+n/////
///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////
//+MblhmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwDd1tH////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
bljBs6rm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
MwBmMwBmMwBmMwBmMwDd1tH////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCjjH3/////
//////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////+tmo1m
MwBmMwBmMwBmMwBmMwBmMwD////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBm
MwBmMwDm4N3////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////
///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////+tmo1m
MwBmMwBmMwBmMwBmMwBmMwCjjH3u6+n////////////////Uy8XBs6rd1tH/////////////////////
///////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////+j
jH1mMwBmMwBmMwBmMwBmMwCMblj////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwB0SSb3
9fT///////////////////////+MblhmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////+3p5xmMwBmMwBmMwBm
MwBmMwBmMwCMblj////////////////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/
//////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwB0SSb///////////////////////+A
XUJmMwBmMwBmMwCMbljBs6rUy8X////////////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
MwC3p5z///////////////////////+MblhmMwBmMwBmMwBmMwBmMwCAXUL/////////////////////
//+AXUJmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
MwCjjH3///////////////////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwDBs6r/////
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////////////
//9mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwDLv7j///////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////////Lv7hmMwBmMwBmMwBmMwBm
MwBmMwCYfWv////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////
///39fSMblhmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////+M
blhmMwBmMwBmMwBmMwBmMwCMbljBs6rBs6rBs6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT/
//////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwB0SSb/////////////////
///////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6pmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDu6+n///////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwB0SSbBs6rBs6rB
s6rBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////+AXUJmMwBm
MwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n/////////
//////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////+jjH1mMwBmMwBm
MwBmMwBmMwBmMwD39fT///////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////+jjH1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////
///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwC3p5z////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////m
4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////
///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCAXUL////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////////////////
///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
blj39fT////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwDB
s6r////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwB0SSbm4N3////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////
///////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULu6+n/
///////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH339fT/////////////////////////////////////////////
///m4N1mMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Uy8V0SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvu6+n/////////////////////////////////
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbd
1tH////////////////////////////////////////////////d1tGAXUJmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCjjH339fT/////////////////////////////////////////////////////
//9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6ru6+n/////////////////////
//////////////////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////
///////////////////////////////Bs6qtmo1mMwBmMwBmMwBmMwBmMwB0SSbBs6rd1tH/////////
//////////////////////////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCtmo3Bs6r/////////////////////////////////////////////////////
///////////Lv7i3p5xmMwBmMwBmMwBmMwBmMwCAXULBs6rm4N3/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

View File

@@ -0,0 +1,273 @@
Imports System.Data.SqlClient
Public Class frmAuswertung
Public Shared dt, dt1, dt2 As DataTable
Property Niederlassung As String
Public Shared filialnr, filname, Info, subrep As String
Property von As String = ""
Property bis As String = ""
Property Jahresauswertung As Boolean = False
Property Einzelauswertung As Boolean = False
Property Suchauswertung As Boolean = False
Private Sub mcVon_DateChanged(sender As Object, e As DateRangeEventArgs)
End Sub
Private Sub btnAktuellesJahr_Click(sender As Object, e As EventArgs) Handles btnAktuellesJahr.Click
DateVon.Value = Now.AddDays(-Now.Day + 1).AddMonths(-Now.Month + 1)
DateBis.Value = Now 'Now.AddDays(-Now.Day)
End Sub
Private Sub btnLetztesJahr_Click(sender As Object, e As EventArgs) Handles btnLetztesJahr.Click
DateVon.Value = Now.AddDays(-Now.Day + 1).AddMonths(-Now.Month + 1).AddYears(-1)
DateBis.Value = DateSerial(Now.Year - 1, 13, 0) 'Now.AddDays(-Now.Day).AddMonths(-Now.Month + 1)
End Sub
Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
End Sub
Private Sub btnLetztesMonat_Click(sender As Object, e As EventArgs) Handles btnLetztesMonat.Click
DateVon.Value = Now.AddDays(-Now.Day + 1).AddMonths(-1)
DateBis.Value = Now.AddDays(-Now.Day)
End Sub
Private Sub chkAusSuchererg_CheckedChanged(sender As Object, e As EventArgs) Handles chkAusSuchererg.CheckedChanged
Panel1.Enabled = Not chkAusSuchererg.Checked
End Sub
Private Sub btnAktMonat_Click(sender As Object, e As EventArgs) Handles btnAktMonat.Click
DateVon.Value = Now.AddDays(-Now.Day + 1)
DateBis.Value = Now()
End Sub
Private Sub chkStatSuchererg_CheckedChanged(sender As Object, e As EventArgs) Handles chkStatSuchererg.CheckedChanged
End Sub
Private Sub chkRechnungen_CheckedChanged(sender As Object, e As EventArgs) Handles chkRechnungen.MouseClick
chkRechnungen.Checked = True
chkEinzelauswertung.Checked = False
chkJahresauswertung.Checked = False
chkStandard.Checked = False
Activinator()
End Sub
Private Sub chkStandard_CheckedChanged(sender As Object, e As EventArgs) Handles chkStandard.MouseClick
chkStandard.Checked = True
chkRechnungen.Checked = False
chkEinzelauswertung.Checked = False
chkJahresauswertung.Checked = False
Activinator()
End Sub
Private Sub chkEinzelauswertung_CheckedChanged(sender As Object, e As EventArgs) Handles chkEinzelauswertung.MouseClick
chkEinzelauswertung.Checked = True
Einzelauswertung = chkEinzelauswertung.Checked
chkStandard.Checked = False
chkRechnungen.Checked = False
If chkEinzelauswertung.Checked Then
chkJahresauswertung.Checked = False
' subrep = "subrptEinzelauswertung"
Else
'subrep = "subrptAuswertung"
End If
Activinator()
End Sub
Private Sub chkJahresauswertung_CheckedChanged(sender As Object, e As EventArgs) Handles chkJahresauswertung.MouseClick
chkJahresauswertung.Checked = True
chkRechnungen.Checked = False
chkStandard.Checked = False
Activinator()
End Sub
Function Activinator()
If chkJahresauswertung.Checked Then
PanJahr.Enabled = True
PanMonat.Enabled = False
Jahresauswertung = True
chkEinzelauswertung.Checked = False
Einzelauswertung = False
Else
PanJahr.Enabled = False
PanMonat.Enabled = True
Jahresauswertung = False
End If
End Function
Private Sub btnAlles_Click(sender As Object, e As EventArgs) Handles btnAlles.Click
DateVon.Value = Now.AddDays(-Now.Day + 1).AddMonths(-Now.Month + 1).AddYears(-Now.Year + 2000)
DateBis.Value = Now.AddDays(-Now.Day)
End Sub
Private Sub frmAuswertung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'subrep = "subrptAuswertung"
If Niederlassung = "4807" Then
cbStandort.SelectedItem = "4807 - Verag Suben"
ElseIf Niederlassung = "4819" Then
cbStandort.SelectedItem = "4819 - Verag Neuhaus"
End If
PanJahr.Enabled = False
PanMonat.Enabled = True
For j As Integer = Now.Year.ToString To 2010 Step -1
cboVon.Items.Add(j)
cboBis.Items.Add(j)
Next
cboVon.SelectedItem = Now.AddYears(-4).Year
cboBis.SelectedItem = Now.AddYears(-1).Year
'DateVon.Value = Now.AddDays(-Now.Day + 1).AddMonths(-Now.Month + 1)
'DateBis.Value = Now.AddDays(-Now.Day)
DateVon.Value = Now.AddDays(-Now.Day + 1).AddMonths(-1)
DateBis.Value = Now.AddDays(-Now.Day)
If chkAusSuchererg.Checked Then DateVon.Value = von : DateBis.Value = bis : btnAuswertung.PerformClick() : Me.Close()
If chkStatSuchererg.Checked Then DateVon.Value = von : DateBis.Value = bis : btnAuswertung.PerformClick() : Me.Close()
End Sub
Private Sub btnAuswertung_Click(sender As Object, e As EventArgs) Handles btnAuswertung.Click
ReturnFilialnr()
von = DateVon.Value.ToString("dd.MM.yyyy")
bis = DateBis.Value.ToString("dd.MM.yyyy")
filname = cbStandort.SelectedItem
If chkRechnungen.Checked Then
Dim printding As New frmPrintActiveReports
Dim vpasql As New VERAG_PROG_ALLGEMEIN.SQL
dt = vpasql.loadDgvBySql(String.Format(cAbfragen.Rechnungen, filialnr, DateVon.Value.ToShortDateString, DateBis.Value.ToShortDateString), "VERAG")
dt2 = vpasql.loadDgvBySql(String.Format(cAbfragen.Vorkosten, filialnr, DateVon.Value.ToShortDateString, DateBis.Value.ToShortDateString), "VERAG")
dt.Columns.Add("Vorkosten", GetType(String)) ''dt.Merge(dt2)
For i = 0 To dt.Rows.Count - 1
dt.Rows(i).Item("Vorkosten") = dt2.Rows(i).Item("Vorkosten")
Next
subrep = "subrptAuswertung"
printding.Reporter = "Auswertung"
printding.von = von
printding.bis = bis
printding.filname = cbStandort.SelectedItem
printding.Show()
ElseIf chkStandard.Checked = True Then
Dim printding As New frmPrintActiveReports
Dim vpasql As New VERAG_PROG_ALLGEMEIN.SQL
dt = vpasql.loadDgvBySql(String.Format(cAbfragen.Standardauswertung, filialnr, DateVon.Value.ToShortDateString, DateBis.Value.ToShortDateString), "VERAG")
dt2 = vpasql.loadDgvBySql(String.Format(cAbfragen.VorkostenStandardauswertung, filialnr, DateVon.Value.ToShortDateString, DateBis.Value.ToShortDateString), "VERAG")
dt.Columns.Add("Vorkosten", GetType(String)) ''dt.Merge(dt2)
For i = 0 To dt.Rows.Count - 1
dt.Rows(i).Item("Vorkosten") = dt2.Rows(i).Item("Vorkosten")
Next
subrep = "subrptAuswertung"
printding.Reporter = "Auswertung"
printding.von = von
printding.bis = bis
printding.filname = cbStandort.SelectedItem
printding.Show()
Else
Auswertung_old()
End If
End Sub
Public Function Auswertung_old()
Dim printauswertung As New frmPrintActiveReports
If cboBis.SelectedItem = Now.Year And chkJahresauswertung.Checked Then
If MsgBox("Achtung! Das Jahr " & cboBis.SelectedItem & " wird nicht vollständig ausgewertet!", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
Exit Function
Else
Info = cboBis.SelectedItem
End If
End If
Dim sql, database As String
If Jahresauswertung = False And chkEinzelauswertung.Checked = True Then
'MsgBox("EInzel")
subrep = "subrptEinzelauswertung"
database = "VERAG"
von = DateVon.Value.ToString("dd.MM.yyyy")
bis = DateBis.Value.ToString("dd.MM.yyyy")
sql = String.Format(cAbfragen.Einzelauswertung, filialnr, von, bis)
ElseIf Jahresauswertung = True Then
database = "VERAG"
' MsgBox("Jahresauswertung")
subrep = "subrptAuswertung"
von = DateVon.Value.ToString("01.01" & "." & cboVon.Text) 'cboVon.SelectedItem)
bis = DateBis.Value.ToString("31.12" & "." & cboBis.Text) 'cboBis.SelectedItem)
printauswertung.whatshallwedo = "Jahresauswertung"
sql = String.Format(cAbfragen.Jahresauwertung, filialnr, von, bis)
ElseIf chkAusSuchererg.Checked Then
database = "VERAG"
'MsgBox("aussuch")
subrep = "subrptEinzelauswertung"
'DateVon.Value = usrcntlAuftraege.von
'DateBis.Value = usrcntlAuftraege.bis
Suchauswertung = True
sql = usrcntlAuftraege.SQLAuswerungAusAnsicht
ElseIf chkStatSuchererg.Checked Then
database = "VERAG"
' MsgBox("stat")
Suchauswertung = True
subrep = "subrptEinzelStat"
sql = usrcntlAuftraege.SQLStatAusAnsicht
Else
''MsgBox("norm")
'database = "VERAG"
'subrep = "subrptAuswertung"
'von = DateVon.Value.ToString("dd.MM.yyyy")
'bis = DateBis.Value.ToString("dd.MM.yyyy")
'sql = String.Format(cAbfragen.Standardauswertung, filialnr, von, bis)
End If
Dim vpasql As New VERAG_PROG_ALLGEMEIN.SQL
dt = vpasql.loadDgvBySql(sql, database)
printauswertung.von = von
printauswertung.bis = bis
printauswertung.filname = cbStandort.SelectedItem
printauswertung.Reporter = "Auswertung"
printauswertung.Show()
End Function
Public Function ReturnFilialnr()
If cbStandort.SelectedItem = "4807 - Verag Suben" Then
filialnr = "4807"
ElseIf cbStandort.SelectedItem = "4819 - Verag Neuhaus" Then
filialnr = "4819"
End If
Return filialnr
End Function
End Class

View File

@@ -0,0 +1,150 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptAuswertung
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptAuswertung))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtTitel = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.subrpt = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.txtInfo = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTitel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture1, Me.txtTitel, Me.txtUeberschrift})
Me.PageHeader.Height = 1.5!
Me.PageHeader.Name = "PageHeader"
'
'Picture1
'
Me.Picture1.Height = 0.5905511!
Me.Picture1.HyperLink = Nothing
Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
Me.Picture1.Left = 0!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture1.Top = 0!
Me.Picture1.Width = 2.551969!
'
'txtTitel
'
Me.txtTitel.Height = 0.2!
Me.txtTitel.Left = 3.041733!
Me.txtTitel.Name = "txtTitel"
Me.txtTitel.Style = "font-size: 9.75pt; font-weight: bold; text-align: right"
Me.txtTitel.Text = "txtTitel"
Me.txtTitel.Top = 0.3905512!
Me.txtTitel.Width = 4.438583!
'
'txtUeberschrift
'
Me.txtUeberschrift.Height = 0.3937007!
Me.txtUeberschrift.Left = 0!
Me.txtUeberschrift.Name = "txtUeberschrift"
Me.txtUeberschrift.Style = "font-size: 18pt; font-weight: bold; text-align: center"
Me.txtUeberschrift.Text = "Auswertung Vorkosten / Rechnungen"
Me.txtUeberschrift.Top = 1.022835!
Me.txtUeberschrift.Width = 7.480319!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.subrpt})
Me.Detail.Height = 0.7084153!
Me.Detail.Name = "Detail"
'
'subrpt
'
Me.subrpt.CloseBorder = False
Me.subrpt.Height = 0.6874016!
Me.subrpt.Left = 0!
Me.subrpt.Name = "subrpt"
Me.subrpt.Report = Nothing
Me.subrpt.ReportName = "subrpt"
Me.subrpt.Top = 0!
Me.subrpt.Width = 7.480316!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.txtInfo})
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "{RunDateTime:dd/MM/yyyy}"
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 5.490551!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "text-align: right"
Me.ReportInfo1.Top = 0.05!
Me.ReportInfo1.Width = 1.989764!
'
'txtInfo
'
Me.txtInfo.Height = 0.2!
Me.txtInfo.Left = 0!
Me.txtInfo.Name = "txtInfo"
Me.txtInfo.Text = "txtInfo"
Me.txtInfo.Top = 0.05!
Me.txtInfo.Width = 4.141733!
'
'rptAuswertung
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.480315!
Me.ScriptLanguage = "VB.NET"
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTitel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents subrpt As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents txtTitel As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents txtUeberschrift As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtInfo As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,812 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Picture1.ImageData" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v
cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw
b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB
AQEBCQIAAAAAAAAAAAAAANueAADbngAAAQEBAQoPAgAAANueAAACANaeAAD/2P/gABBKRklGAAEBAQAA
AAAAAP/uAA5BZG9iZQBkAAAAAAH/2wBDAAICAgICAgICAgIDAgICAwQDAgIDBAUEBAQEBAUGBQUFBQUF
BgYHBwgHBwYJCQoKCQkMDAwMDAwMDAwMDAwMDAz/2wBDAQMDAwUEBQkGBgkNCwkLDQ8ODg4ODw8MDAwM
DA8PDAwMDAwMDwwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCADDBAQDAREAAhEBAxEB/8QA
HgABAAIDAQEBAQEAAAAAAAAAAAkKBgcIBQQDAgH/xABeEAAABQMBAwUJBxEGAggGAwAAAQIDBAUGBxEh
EggxQRMJGVEiFNQV1ZZXGGEylKUWVnZxgUJSYpIjU7R1teWmFzc4aJGxMySVNqFzcoJDk7PTVXfBomM0
RHSkJSf/xAAbAQEAAgMBAQAAAAAAAAAAAAAABgcDBAUCAf/EAEQRAAIBAgEFCwoGAgEEAwEAAAABAgME
ESEx0QUGQVFxgZGhsRJSUxZhwSJykqLSExQV8OEy4mM0QjOy8WKCQ8IjNST/2gAMAwEAAhEDEQA/AJ/A
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAABrHKuY8dYSt+LdWTa87blvzJqKezU0U+fPQUlxC3EIWUCPIUje
ShWhqIiPk11G3Z2Na8n1KKxlhjhil0tGvc3VO3j1qjwXA30YnPnaF8H3re+ILg82jqeGNY9170fiNH75
Z9vmloHaF8H3re+ILg82h4Y1j3XvR+IffLPt80tA7Qvg+9b3xBcHm0PDGse696PxD75Z9vmloHaF8H3r
e+ILg82h4Y1j3XvR+IffLPt80tB1haV2W9fVs0O8bTqbdZtu5IbU+jVRpK0JeYeLeSrccShaD5jStJKS
epKIjIyHFrUZ0ZuE1hJPBo6dOpGpFSi8U8qMhGI9gAAAAAAAAAAAABqnLOb8W4No9Nr2U7rbtWmViX4D
THTjS5jjz5NqcNKWYTL7uiUp1NW7ulsIz1UWu5Zavr3snGjHrNLF5Uulo1rm7pW0etUeCeTd8xoTtC+D
71vfEFwebR0/DGse696PxGl98s+3zS0DtC+D71vfEFwebQ8Max7r3o/EPvln2+aWgdoXwfet74guDzaH
hjWPde9H4h98s+3zS0H9t9YPwhPONss5aU666okNNIt64VKUpR6ElJFTdTMz5CHx7M6xSxdP3o/EfVru
zeRT5paDspl1L7TTyCWSHkJWgloU2oiUWpbyFkSkn3SMiMuccFrA6p+gAAAAAA5BrXHpwn29WKtQKxlb
wOr0OY/T6pE8hV1zopMZxTTqN9unqQrdWky1SZkfMeg7lPZu/qRU408U1ivSjmfGcueubSEnFzyp4PJL
QeZ2hfB963viC4PNo9+GNY9170fiPP3yz7fNLQO0L4PvW98QXB5tDwxrHuvej8Q++Wfb5paB2hfB963v
iC4PNoeGNY9170fiH3yz7fNLQO0L4PvW98QXB5tDwxrHuvej8Q++Wfb5paB2hfB963viC4PNoeGNY917
0fiH3yz7fNLQO0L4PvW98QXB5tDwxrHuvej8Q++Wfb5paB2hfB963viC4PNoeGNY9170fiH3yz7fNLQO
0L4PvW98QXB5tDwxrHuvej8Q++Wfb5paB2hfB963viC4PNoeGNY9170fiH3yz7fNLQO0L4PvW98QXB5t
DwxrHuvej8Q++Wfb5paB2hfB963viC4PNoeGNY9170fiH3yz7fNLQO0L4PvW98QXB5tDwxrHuvej8Q++
Wfb5paB2hfB963viC4PNoeGNY9170fiH3yz7fNLQO0L4PvW98QXB5tDwxrHuvej8Q++Wfb5paDtBJkoi
UR6kotSP3DHAOsf6AAAAAAAA0XlviVwpgqfR6XlS9PktOr8dyVSWPJ1SndK00skLVvQYshKdFGRaKMjH
RsdVXN6m6MOslnypdLRp3V/QtmlVlhjmyN9CNRdoXwfet74guDzaN7wxrHuvej8Rq/fLPt80tA7Qvg+9
b3xBcHm0PDGse696PxD75Z9vmloHaF8H3re+ILg82h4Y1j3XvR+IffLPt80tA7Qvg+9b3xBcHm0PDGse
696PxD75Z9vmloHaF8H3re+ILg82h4Y1j3XvR+IffLPt80tA7Qvg+9b3xBcHm0PDGse696PxD75Z9vml
oHaF8H3re+ILg82h4Y1j3XvR+IffLPt80tA7Qvg+9b3xBcHm0PDGse696PxD75Z9vmloHaF8H3re+ILg
82h4Y1j3XvR+IffLPt80tA7Qvg+9b3xBcHm0PDGse696PxD75Z9vmloP6R1hPB+tSUll4iNR6EaqDX0l
9czpxEQ+PZjWK/8AV70fiC15Zv8Az5paDIqdxxcKNU08GzRR2tdheFsTYf5THbGGez9/HPSlxYPoZmjr
W1lmqLoNo25n3B13vIi2zl6zq1MWWqIEatQlSDI//o9L0n/yjUq6uuaSxnTkl5Ys2Kd3RqPCM4vgaNtI
Wh1CXG1pcbWRKQtJkZGR8hkZco0jYP6AAAAAAAAAAAAAAAAAAAAAAAaFyzxO4MwbVqZQspX41bNYrEQ5
0CnJg1Ce6qOSzb6VZQI0jo0mpJknf03tD010MdKy1RdXsXKjDrJZM6XS0ad1rChbNKpLBvyN9CZqjtC+
D71vfEFwebRu+GNY9170fiNX75Z9vmloHaF8H3re+ILg82h4Y1j3XvR+IffLPt80tA7Qvg+9b3xBcHm0
PDGse696PxD75Z9vmloHaF8H3re+ILg82h4Y1j3XvR+IffLPt80tB79rccvCxelx0S0rcys1Mr9xTGqf
Rob1JrERD0l9RIaa6eVBaaSa1GSS3llqZkXKYxVtnr+jBznT9FLF5YvJwJ4mSlri1qyUIzyvNka6UdZD
inSAAAAAAAAAAAAAAAAAAAAAA1/fOV8Z4zjpk5Av2hWehwtWG6pOZjuu7DPRplaiccPQuRKTGzb2da4e
FKDlwJsw1binRWM5JcLwORbo6yrhZt1T6KfcNbvJ1g1JNFEpL5EpSeZC55w0H7hkrT3R26Oyl/UzxUeF
rzYnMqa+tIY4Sb4E/PgjS9S62nFjRr8j4suuckv8M5j8GIZ/VJtyRp/xG/HYq43aked+ZGo9pqG5GXNp
MLk9bvAQavA8ByHy1703rmS1qXu7tLc0GxHYiW7WXs/uRiltPHcpvl/Jnydr1/T1+1n6mHrwP/P7n7jx
4o/i979o7Xr+nr9rP1MHgf8An9z9w8Ufxe9+0dr1/T1+1n6mDwP/AD+5+4eKP4ve/aO16/p6/az9TB4H
/n9z9w8Ufxe9+0dr1/T1+1n6mDwP/P7n7h4o/i979p9DHW8RFaeE4Bea77b0Vzpc73u7aUjb7g+PYh7l
b3f3HqO08d2nz/kZLC626w1mnyhh6vxSP3xx6jFf0+pvts6jBLYqtuVI8j/MyraajuwlzGwaH1qnD1UX
kMVe271t4lcst6DDkMJ+qceatz+xsa1TY68isYuEuN+deczQ2jtpPBqS4tDZ1Bjzi+4cMoPR4Vq5Wo5V
SUro2KNVVOUmW45y7jbU9DBun/y94ci61JeWyxnTeG+vSXKsTo0NZW1fJCax3sz5GdJEZGRGR6kfIY5R
vH+gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANa5gxjQsyY1u/G1xJIqfdEBcduXukpcWSnRyNKbI/smX
kpWXd005DG1ZXc7StGrDPF8u+uNZDBc28a9OVOWZr8chUtvWz69j+7bjsm54hwa/a1QfptVjbd0nWFmg
1IMyLeQvTeQrTvkmRlsMXXb3ELinGpB4xksUVnWoyozcJZ08DGBmMQAAATWdVlnvpote4fLhmfhInTV7
HpuK5WlK3qhCRye9UfhCS5T3nT5CFf7Y6twkrqKz5JeZ+biRL9nL3GLoS3Mq4N1efjJlxBCUgAAAAAAA
AAAAf4pSUpNSjJKUlqpR7CIi5zAFYjjk4gjz3miou0eZ4RYVi9LRLLJCtWn0oX/mpydNh+EuJ1SfO2lv
nIW5s5qz6K2XWXpzyy8y4unEr7XV99TXyfpjkXnfGcaDvnIAAACRPq48AfvVzAm/69B6aysULZqKidTq
1KrKjM4DG0tFE0aTfXoew0oIy0WIrtXrP6a3+VF+nPJwR3eXNyne1BZfOrfMkvRj/wAtzkz8hYwFXE6A
AAAAAAqD5o/jDlj6ZV39IPi79Xf1qXqR6EVhe/76nrPpZrQbhrAAAAAAAAAAAAAAAAAAAAAAXPmf8Fr/
AKCf7hQjLYP1AAAAAAAAQX9bb/v3D/5gqP5UgWHsT/rq8K6GRDaf9VPgfmIjBOCLAAAAAAAAAAAAAAAA
AAAAG0sf5uy7ix9h7H2Ra9a7cdRrTT4kxw4SjPafSQ3DXHc27dFtmNK61dbXP+2nGXlwy8ufnNqhe16H
6JtdHJmJYOG7rPfKtRptn8QsGJTVTFojxMlU1voY6Vq2JOpRS1JtJnyutaJTztpTqooXrXZBwTqWrbw/
xef/AMXu8D5STWG0Km1CusP+5ZuPe4SYxh9iUwzKivNyY0ltLseQ0olocQst5K0KTqRkZHqRkIM1hkZK
D9R8AAAAAAAAAAAAAAAAAHg3RctFsy267dtxzUU6g23BfqNXnL5G48ZBuOK05z0LYRbTPYQyUqUqs1CK
xbeC4zxOahFylkSylTfO2XK1nLKl25KrZraVXZZlSKcpW8UKnM/g4kZO0y/BtEW8ZbFL3lcqjF06tsY2
VvGlHcWV773X+NwrW+unc1pVHu5vItz8b5qIbxqAAAAAH7MPvxX2ZUV5yNJjOJdjyGlGhxtxB7yVoUnQ
yMjLUjIfGk1g8x9TaeKLTvCDnhjiBwrb11Sn0Ku6jkVGvqMnQjTUoqE6vbvMmQg0vFpsLeNP2JinNd6u
djcypr9Lyx4HozFkatvFdUFPdzPh/GU6gHIN8AAAAAAAAAAAAAAAADHbsuy3LFtysXddtXj0G3KDHVKq
tVlK3W2m0/U1NRmZkSUpIzUZkREZmRDJRozrTUILGTzI8VKkacXKTwSIGuI/rKMjX9NqFt4XdfxxZKFK
ZTcCNCrtQRtLpOl2lESfKlLX4QuU3Nu6Vj6q2To0Up3Hpz3v8V8XR5CG3+0FSo3Gj6Md/dejpI0alU6l
WZ0qqVeoSarU5qzdm1GY6t995Z8qnHXDUpR+6ZiXQhGCUYpJLcRHpTlN4yeLPhHo8gAAAAAAAAAAAAAA
AAAB23wz8ceUsB1Km0erVCVfWMCWhqfaM943XojGwjXTH3DM2VILaTZn0StpGSTPfTHtbbO0L2LlFKFT
fWZ+svPn4cx2dX65q2zSk+tDe3VwaMxY5sK+7XyZaFBvqzKo3WLauOKmVTZqNh6HqSm3EHtQ42ojQtB7
UqIyPaQqu4t529R06iwknlJ3RqxqwU4PFMy8YTIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABCn1peAegk
0TiEt2Fo3LNmhZDJpPI6RbtPmr0L7JJdAtR9xoucT7Y7Wee1m/LH/wCS8/KRTaOyzV48EvM/NyENAnpE
gAAAzPHl9V7GV8Wtf9sSPB65adRZqEBRme4s2z79pzTaaHUGpCy50qMhr3dtC5pSpTzSWH44M5mt68qF
SNSOdMtq4xyFQMrWBamRLZe6WjXZT2psZBqJS2Vq716O5ps32XEqbWXMpJilLu2nbVZUp54vD8cJZtCt
GtBTjmaM7GuZQAAAAAAAAACPnrEeIT90GIHLLt+cce+sqNv0yEtpRk7DpRESZ8ojSeqTUlZMoPYeqzUn
agxJdmNWfV3PXkvQhlfle4vO+DynF15ffT0erF+lLIuDdZXCFrEBAAAD7abTZ9YqNPpFLiOT6nVZLUOn
QWU7zjz76ybabQkuVSlKIiLujzOahFyk8Eliz1CLm1FZ2WtuGLCUDAGHLWsBlDS60hryheFQbIv8zVpS
Uqkr3iIt5LehNIM/sEJFMa21hK+uZVXmzJb0Vm0vyllWForWjGms+75XunQA5puAAAAAAAVB80fxhyx9
Mq7+kHxd+rv61L1I9CKwvf8AfU9Z9LNaDcNYAAAAAAAAAAAAAAAAAAAAAC58z/gtf9BP9woRlsH6gAAA
AAAAIL+tt/37h/8AMFR/KkCw9if9dXhXQyIbT/qp8D8xEYJwRYAAAAAAAAAAAAAAAAAAAAAAAJ3uq/4g
5t22xWsGXRPVLqlixiqNkvvLNTi6OpZNvRdT2mUV1aNzuIcJJaJQQrfa/VipVFcQWSeSXrb/AB9K8pNN
nr51IOjJ5Y5vV/IllEMJIAAAAAAAAAAAAAAAABDt1pHEF5PplH4e7bm6S6wlmtZDW0raiIhW9BhK0L/t
Vp6ZZakZElvmWJzsfqzrSd1NZFkjw7r4s3G94i+0V91YqhHO8r4Nxcf4zkIosIh4AAAAAAAAd0cAWf8A
9yea4NIrU3wexMmGzQ7j31aNRpRrMqfNPZs6N1ZtqMzIiQ4tR+9IRzabVn1ds5RXpwyryr/JefhR2tR3
v09fqv8ATLJx7j83GWWxU5PgAAAAAAAAAAAAAAAAIAest4jZt75DVhK26gpFm48eSdzJZV3k+uGnVZOa
cqYiVdGRfjDc110TpZWyWqlSpfUTXpSzeSP59GBC9oL9zqfJi/Rjn8r/AC6SLoTEjYAAAAAAAAAAAAAA
AAAAAAAAAS59Vfm2ZS7wuPBdYmqXR7njO1y0GXF7GalESRy2WiP8fHLpDIuTotfsjEH2y1epU43MVlWS
XA8z4nk4yU7N3jUnReZ5V59JOgK8JeAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABh2QbGoOS7JuiwbnjeF
UK66e9T6ggtN5KXU9662Z8i21aLQfMoiMZ7a4nb1I1IZ4vFGOtSjVg4SzNYFSvKOO69iXIV245uZvcrF
p1ByE+6RbqH2y0WxIbLU+8faUlxOv2Ki1F1WV3C6oxqwzSWOlcTyFZXVvK3qypyzp/h8ZgI2jAAAAEw3
Va598nViucP1xTtIdbN2uY/U6rYmY2jWdDRvH/2raemSki0I0OHyqEE2x1ZjFXUFmyS4Nx+bkJXs5e4N
0JcMfOvPyk3or8loAAAAAAAAedV6tTaBSqnXKzNap1Io0V6dVKg+rdaYjx0G464tR8iUpSZmPUIOclGK
xbyI+Skopt5kVSuJnN1S4gMw3RkGUbrVIdcKn2hTXOWJSYqlFGbMuZS9VOr+7WrTZoLm1Rq9WNtGlu55
eWTz6OBFbaxvHdVnPczLg/GU0EOmaIAAASldWLgH5bZCqGabhhdJbWNl+D20lxOqJFdeRqSy27fBGVb+
0vfrbUR96Yhu1+s/lUlbxfpTyv1fzfMnvkk2dsuvUdaWaObh/JdJPyK2JoAAAAAAAAFQfNH8YcsfTKu/
pB8Xfq7+tS9SPQisL3/fU9Z9LNaDcNYAAAAAAAAAAAAAAAAAAAAAC58z/gtf9BP9woRlsH6gAAAAAAAI
L+tt/wB+4f8AzBUfypAsPYn/AF1eFdDIhtP+qnwPzERgnBFgAAAAAAAAAAAAAAAAAAAAAAA6n4Kb4dsL
iexHUykKYi1msot6opI+9carKTgpJf3KXHUL9w0kfMOLtDb/AD7Got1LrL/xy9GJ09T1vlXUHuN4cuTp
wLTgp4sUAAAAAAAAAAAAAAA19lXJFv4ix5dmR7nd6OkWrAcluMkokrkPbEMRmzVs333VJbR7qiGzZ2s7
qtGlDPJ4fnxZzDcV40KbqSzJFS/Id9V/Jt73Rf8AdEnwqu3XUHahPWWu4g3D7xpsj10Q0gkoQXMlJELq
tLaFtSjShmisPxw5ys7ivKvUlUlnbMNGwYQAAAAAAAAACzXwH8QBZzwpTo9Zm+E35jwmqHdhLVq6+hCP
8lOVzn07SdFKPlcQ4Kj2i1Z9Fcvqr0JZY+dcT5sCw9T3v1VBY/qjkenjO2BwDqgAAAAAAAAAAAABhuRb
wiY+sG9b6nESoln0OfWHmz+zKFHW8SC051GndL6oz21B16saazyaXKzHWqKlCU3mSb5Cn/WKtUK/V6pX
avJVNqtamPz6nMX752RJcU664rTnUtRmYvGnTjTioxyJLBcCKtnNzk5PO3iecPZ5AAAAAPSpdHq9clFB
otKmViaotUw4TDkh0y7pIbSpX/AeKlSFNYyaS8rwPcKcpvCKbfkNjRcC5znJJcLDF9zEKLVKmLdqbhGX
uGmOY1HrO0WerD2lpM6sbh/+uXsvQfZ7OvEF6ish+jFW8WHz7rZ99D2o6T79Bcd3L2XoHs68QXqKyH6M
VbxYPutn30PajpH0Fx3cvZegezrxBeorIfoxVvFg+62ffQ9qOkfQXHdy9l6D4pWBs5QUmubhm+oaU++U
/btTbIvqmqOQ+rWdo81WHtLSfHY3C/8AXL2XoNdVSjVehyThVqlTKPMItTiTWHI7pFya7jiUn/wG3Tqw
qLGLTXkeJgnTlB4STT8p5o9ngAAAAA3rwxXVIsviFw1cMde54PdtMiyla6f5Wc+mHJL67LyyHN1xRVaz
qxfZb41lXOje1bVdO5pyXaS5cnnLZwpYsoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIg+tIwD5XoFFz
9bsLeqFtE1Rr8S0na5T3XNIctWn4l5ZtKPTUycTzIE32P1n1Ju2k8ksseHdXGujykZ2isuvBVo545Hwf
kQcCxCGgAABkVo3VW7Gui37xtqYqn162KhHqVJlp17x+OsnEbxEZbyTMtFJ5DLUj2GMNehCvTlTmsYyW
DMlGrKlNTjnTxLaOF8pUTNOMbQyVQTSiJc0FD0qESt5USY2Ztyoqz7rLyVI15yLXkMUrfWcrSvKlLPF8
q3Hxos21uI3FKNSOZo2gNQzgAAAAAARN9Z/xCfJe0abge2p3R12920VC9XGVGS2KO25+BjmaTIyOU6jU
y/FoMjLRwTPZDVnzaruZr0Y5I+tv8S52t4je0N98umqMXlln4Pz6MSCAWQQsAAAPfta2a1ely0G0rchL
qNeuSexTaRCRyuSJLhNoIz5i1PaZ7CLaewYq9aNGnKpN4KKxZkpUpVZqEc7eBbLwdiai4QxZaGNaJuuN
W9DSmpT0p3TmT3T6SXJVrt/COqUZEfvU6J5CIUrrC9leV5VZbr5FuLiRZlpbRt6Uacdxf9TbI0zYAAAA
AAAACoPmj+MOWPplXf0g+Lv1d/WpepHoRWF7/vqes+lmtBuGsAAAFkbq1W21cKttGptKj8t1raZEf/5S
hVG1f9+XBHoJ/qH+pHhfSzvjoWfxSPvSEbxOyOhZ/FI+9IMQOhZ/FI+9IMQOhZ/FI+9IMQOhZ/FI+9IM
QOhZ/FI+9IMQOhZ/FI+9IMQOhZ/FI+9IMQOhZ/FI+9IMQOhZ/FI+9IMQfqAAAAAAAAACC/rbf9+4f/MF
R/KkCw9if9dXhXQyIbT/AKqfA/MRGCcEWAAACQDq3LKs6/OICq0W+LUpF40duzqjKbpVbhMT4yX25cFK
HSakIWglpStRErTUiM+6IxtZcVKFopU5OL66yptPM947moKMKtw1OKa6rzrHdROt7NPDp6hseejNL8XF
d/drzvp+1LSTH7fbd3H2VoHs08OnqGx56M0vxcPu1530/alpH2+27uPsrQPZp4dPUNjz0Zpfi4fdrzvp
+1LSPt9t3cfZWgezTw6eobHnozS/Fw+7XnfT9qWkfb7bu4+ytA9mnh09Q2PPRml+Lh92vO+n7UtI+323
dx9laB7NPDp6hseejNL8XD7ted9P2paR9vtu7j7K0Hn1PhW4a6tFdhysFWO0y6k0qXCosOE6RH9q9Fba
cSfukoh6jri9i8VWn7TfSfHq62f/AK48iIX+PDgvouAE0jIuNFSjx1X5vk2o0OU4uQ5SZy0KcZJD6tVr
YdShREbhmpKi0NSt9Ok92b1/K+xpVsOulinm6y4N9eTc4CJ661TG2SqU/wBLyNb35cJGyJYR8AAAMtsG
pKot92VWEHouk16mzEHrptYlNuFt/wCqNe7h16M478WuYz2surVg96S6S4sKMLRAAAAAAAAAAAAAAAIK
etC4gvlFdNKwJbc41Uez1t1S+VtKPdeqrresaKoyPQyjsr31Fyb69D75sWJsfqzqQdzNZZZI8G6+N5OL
ykP2ivutJUI5llfDuLz8hEkJuRcAAAOpOD7Az3EDmu3rXlx1rs+iGVavqQRGSSp0ZadY+8XIqS4aWi26
6KUovemONr3WX0NrKS/W8keF7vFnOnqmy+qrpP8ASsr0cZuzrFeHZnEGVmr5telog2Dk7pJUePGbJEeD
V2iLwyMlKEklCXdSeQX3S0pLRA5+yutPqqHypvGcOeO4+LNyG3r6x+RV+ZFejLme7y5+UjvEpOCAAAHV
/BpntzAGbKDX6hKU1ZVyGmh30zqe4mFIWW5KNOum9FcJLmuhnuEtJe+HE1/q3661cUvTjljw73GufA6m
qL36Wum/0vI9PF0YlpFtxt5tt5lxLrTqSW06gyUlSVFqRkZbDIyFP5ixD+wAAAAAAAAAAAAHGXWBXA/b
/CblJyK50ciroplKQr7iZUYyHy+uzvkO7s1SVTWFNPcxfIm1znL11UcLSbXkXK0isSLeK7AAAAAJueB3
gPsWqWLQcw5ooaboqV0tJqFpWfMM/AI1PXtYkymUmRPrfSe+lC9UEg06pNR97Xu0O0dVVZULd9VRyNrO
3u4PcwzZCY6n1NT+WqtVYt5UnmS8+JLnRLfoNtQWqXblEgUCmMJJLNOpsZqKwgkloRJbZSlJERdwhCZ1
JVHjJtvy5SSxiorBLBHrjwegAAAAAAPHrdvUC5oD1KuSiQLgpkhJofp1SjNSmFpUWhkpt5KkmRl3SHuF
SVN4xbT8mQ8yipLBrFEHfWGcHNpYvpMLM2KKSVCtyTObp952rH18EhuydfB5kVKjPo21rLo1tl3pKUjc
IiNQsLZfXtS4k7es8XhjF7rwzp7+/jwkR17qqFKPzqSwW6tzhXQRMCbEXAAADILSlrgXVbM5szS5CqsJ
9tRcpKbfQojLk7gw3MetSkt9PoM1u8KsX5V0lyMUUWkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHhXP
bdGvG3K7alxQkVGhXHBfptXgr967Hktm24n3D3VbD5j2jJSqypTU4vBp4riPM4KcXGWVPIVNM6YlrOD8
qXfjWtEtxdvzFFS6gpJpKZT3vwkSSnYRfhGlJNWmxKt5PKkxdOrb6N7bxqx3VlW891fjcK0vbV21aVN7
mbyrc/G+akG8agAAASwdV7nz5L3rVsGXBN3KJfalVKzzcV3jNYYb/DMp12EUlhGu0/ftpItqxCtsNW/M
pq5issckvV3HxPp8hJ9nb3qydGWZ5Vw7q4yeMVyTEAAAAAwzIl92/jGx7ov+6ZPgtBtSA7PnrLTeWTZa
IabI+VbqzShBc6lEQz21vO4qxpwWWTwRjrVY0oOcsyWJUwyrki4MvZDuvI9zu79XuqeuW4ySt5EdnYiP
GbMyLvGGkpbT7idu0XVZWkLSjGlDNFcu++N5Ss7q4lcVZVJZ3+MDXw2jXAAACYLqtsAeU61WuIG44OsK
gm7RcfpdTsXNcRuzpiNS/wCybV0KFEehmtwuVAgu2Os+rFWsHnyy4NxefkJVs5Y4t15LyR8783KTgivi
XAAAAAAAAAAFQfNH8YcsfTKu/pB8Xfq7+tS9SPQisL3/AH1PWfSzWg3DWAAACyT1af8AKpbX57rX5UoV
PtX/APoS4I9BYGof6keF9LO+hHDsAAAAAAAAAAAAAAAAAAAAAAAAAEF/W2/79w/+YKj+VIFh7E/66vCu
hkQ2n/VT4H5iIwTgiwAAASTdVj/MnWPoNVPy2niJ7Zf0o+uuiRINm/7L9V9KLDorAnAAAAAAAAAABxX1
hkKNL4RcqOSN0lQVUSRFcV9i6Vagtlp7qkrNP1x39mJNawp4f93/ABZytdpOznxdKKyAtwrwAAAPWoMd
yXXaLEa16WTPjNN7vLvLdSktPd1MY6zwhJ+RmSisZxXlRctFEFqAAAAAAAAAAAAABo/iMzPSsB4iuvI1
Q6N6dAY8FtmmOHp4ZVZJGiIxoW0073fr02khKj5h0NV2Er24jSW7ne8t1/jdNS9ulbUZVHuZvK9wqgVu
tVW5KzVrhrk1ypVquzH6hVqg8erj8mS4brritNC1UtRmYuilTjTioRWCSwXAitak5Tk5SeLeVnlj2eAA
AAst8AWAP3J4VhVetwfBr7yYTNbuPpE6PRopoPyfCVqRKLomlmtST2k44suYhUu0ms/rLlqL9CGRed8b
5kiwdTWP01BY/qllfmXF04m8eJPClMz9iC6seTCaaqcpnw21Kk4X/wBpVoxGqK7ryklRmba9NvRrUXOO
fqq/lY3EaqzLOt+O7+N83L60V1RlTe7m8j3CqJWKRUqBVqpQqzDcp1Yost6BVae8WjjEmM4bTrSy7qFp
MjFz06kakVKLxTWK4GVpODhJxlnWRnnD2eQAAAsX9XFn/wDeriEsf16b016YoQzT1KcVq5KoyyMoD+3l
NokmwrTXTdQpR6rFV7U6s+lufmRXoTy8Et1efj8hPdRXv1FHqy/VHJxbj8xIoIwdsAAAAAAAAAAACPjr
Nnja4W6mguSRclHbV9QnFr/vSJLsmv8A++PA+g42v/6kuFdJXDFrEAAAADIbRoLl1XXbFrsrNt25KtCp
bThFqaVTH0MEZF7hrGG4q/Kpyn2U3yLEy0afzKkYb7S5WXFabT4dIp0ClU9lMaBTIzUSDHQWiW2WUE22
gi7hJIiFFyk5Nt52WklgsEfaPh9AAAAAAAAAAND8TeL6pmbBeQcbUMonlu5IkdNIVOcU1HTJjS2JTalu
JQs0kRtcpJMdHVN4rS6hVljhF5cN7DA1L+3dxQlTWdrnIVey14lv/UbK/wBUleJCf+MbLenyLSRLw3c7
8eV6B2WvEt/6jZX+qSvEg8Y2W9PkWkeG7nfjyvQOy14lv/UbK/1SV4kHjGy3p8i0jw3c78eV6D76T1Xv
EhEqlNlSKjZng8aUy6/uVOSatxCyUrdI4RanoWwY6m2FnKLSU8Wt5aT3T2duIyTbjke+9BYTFZk1AAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIs+s6wD8tcfU/NVvQekuTG6PBrmJpOrkihPL131aEZq8EeVvl
zEhbqj5BMNkdZ/JrOhJ+jPN5Jfnm4cCPbQWXzaXzY/qjn9X8s/KQECyyEAAAB6lDrVUtutUm4aHNcpta
oUxioUmoNaEtiTGcS604nXUtUrSRlqPFSnGpFwksU1g+BnunNwkpRyNPFFsXh6zFS874jtDJFO6NmTVo
pM3BTmzM/A6pH/BzGNuh6E4Rmgz5UGlXOKW1nYysriVJ7jyeVbj5Cy7K6VzRjUW707puoaBtAAABB71o
vEJ5VrNK4fLZnawKCpqr5CcaVscmrTvQoSjI9pMtq6ZZGWm8pv7JAsHY/VfVi7qayvJHg3X5uUiO0d9i
1Qjwy8y8/IQ/CdEVAAADN8b2DX8pX5auPbYY6euXZUGoEPUjNDZLPV15zTkQy2SnFnzJSZjWu7qFrRlV
nmisfy48xntqEq9SNOOdstp4zx9QMVWFauPLYZ6Gi2pT2oMVRkRLdUktXX3NNhrecNTiz51KMUrdXM7m
rKrPPJ4/jgLMoUY0YKEcyWBnI1zKAAAAAAAAAAVB80fxhyx9Mq7+kHxd+rv61L1I9CKwvf8AfU9Z9LNa
DcNYAAAOksacXfEPh+1I1kY6yF8nbYhvvSY1M8k0mXuuyF77qullw3nT3lHroatC5hybvUdndVHUqwxk
93GSzcDR0LfWlzQgoQlgl5F50Z/2hfGD63viC3/No1vDGru696XxGb75edvmjoHaF8YPre+ILf8ANoeG
NXd170viH3y87fNHQO0L4wfW98QW/wCbQ8Mau7r3pfEPvl52+aOgdoXxg+t74gt/zaHhjV3de9L4h98v
O3zR0DtC+MH1vfEFv+bQ8Mau7r3pfEPvl52+aOgdoXxg+t74gt/zaHhjV3de9L4h98vO3zR0DtC+MH1v
fEFv+bQ8Mau7r3pfEPvl52+aOgdoXxg+t74gt/zaHhjV3de9L4h98vO3zR0DtC+MH1vfEFv+bQ8Mau7r
3pfEPvl52+aOgmA6vfM+S844iuy6Mo3J8qK7TLvk0uFO8DhwtyI3Agvpb6OEwwg9FvLPU0mrbproRCDb
T2FCzuIwox6qcU87eXFrdb3iU6ju6tzRcqjxalhmS3FvHeQjh2QAAAAAAAAgv623/fuH/wAwVH8qQLD2
J/11eFdDIhtP+qnwPzERgnBFgAAAkm6rH+ZOsfQaqfltPET2y/pR9ddEiQbN/wBl+q+lFh0VgTgAAAAA
AAAAAjx6za9afbvDPPth99JVLINbptOp8XUt9TcGQiovOafao8GSkz7qk90SfZKhKpfKazQTb411fOcT
aCqoWri88mlz4+YrlC1CBAAABt3AFuP3dnHEVuR2TfOqXfR230Ft0YTMaW+s/cQ0lSj9whoa0qqlaVZP
ci+jJzm3YU3O4ppdpdOUtzCkyzQAAAAAAAAAAAAArtdZFxBfvRywnGtvzumsvFLjsR9TStWpdcV3sx3Y
eiij6dAnUtiid02KFobKas+nofOkvSnzR3OXPyEH1/ffOq/Kj+mP/L8s3KRwiVkfAAADtfgPwD+/PNtO
drMLwmxMedFXbtJadWn1oX/koSu707qTNRHytocIR7aTWX0dq1F+nPIvO+Jc7R2NSWX1FfF/pjlfmX43
izYKlLAAAge60Dh9+S940zO1uQtyh3ytFOvNDSe9YrDTf4GQemwilMo0PZ79szPvlixtkNZ/Mpu2m8sc
sfV3VxPmfkIdtFY9WSrxzPI+HcfGROiakYAAADfvDLmyfgDMdq5BYU45R2nfJ93wG9pyqRKUlMlGnOpG
iXUF9uhPMOZrjV6vraVLdzx9ZZtHGb2rbx2tdT3Mz4H+MS1xS6nT61TafWaTLaqFLq0ZqZTZ7Kt5t+O+
gnGnEKLlSpKiMjFMyi4txawaLJTTWKzH3DyfQAAAAAAAAACPLrO/5X5f0opH97wk2yX99eqzi6//AKku
FdJXJFqkBAAADcHD02l7PuDmVlql3IFsoUR7diqrGIxoa0yWlb1Jf8Wbdh/Yp+tHpRbjFJlmgAABg2Tr
0/dxji/MgeTfLPyJt+o13yR03g/hXk+M5I6Hptx3o9/c3d7cVpy6HyDYtKH1FaFLHDrSSx3sXgYbir8q
nKeGPVTfIiJftev6ev2s/Uwmvgf+f3P3EZ8Ufxe9+0dr1/T1+1n6mDwP/P7n7h4o/i979o7Xr+nr9rP1
MHgf+f3P3DxR/F737R2vX9PX7WfqYPA/8/ufuHij+L3v2jtev6ev2s/UweB/5/c/cPFH8XvftHa9f09f
tZ+pg8D/AM/ufuHij+L3v2jtev6ev2s/UweB/wCf3P3DxR/F737R2vX9PX7WfqYPA/8AP7n7h4o/i979
o7Xr+nr9rP1MHgf+f3P3DxR/F737SXexbm+Wlk2dePgXk35WUOn1nyd0nTeD+Hxm5HRdLuI39zf3d7dL
XTXQuQQi4pfKqShjj1W1yPAlNKfXgpb6TMqGE9gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8NTpsCtU
2oUeqxG59LqsZ2HUoLyd5t5h9BtutrSfKlSVGRkPUZOLTWRo+NJrBlUbiZwpPwDmO68evpcXSGHfD7Rn
ucsmkSjUqKvXnUjQ2ln9uhQubU+sFfW0au7ml6yz6eBlbays3a13Dczrgf4wNBjpmiAAAEnPVl58+QGT
pmIq/N6K1sorSdGNxWjcavMp0Z012F4U2XRHzmsmiEQ2u1b86iq8V6UM/q/k8vKSPZ69+XUdKWaWb1vz
LBQrMmoAGl+IPMlHwNia68kVXo3n6VH6G36YtRl4bU5GqIkctNuil7VmXvUEpXMN/VtjK9uI0o7ud7y3
Wat7dRtqUqj3Od7iKn1x3DWLsr9aui4ZzlTrtwzX6jV6g7796RJWbjiz02FqpR7C2FzC6KNKNKChBYJL
BFaVakqknKWVt4nijIeAAAAm66rXAHk+l1viCuKFpLrJPUPHyXU7URG17s+Ynbp+EcT0KT0IyJDnMsV7
thrPrSVtB5Fllw7i4ll41vEw2dsurF15Z3kXBuvj83lJiRBiUAAAAAAAAAAAAVB80fxhyx9Mq7+kHxd+
rv61L1I9CKwvf99T1n0s1oNw1gAAAAAAAAAAAAAAAAAAACwB1T/8A76+n8v9FUwVntp/bh6i/wCUib7N
f15es+hEoYiBIQAAAAAAAAgv623/AH7h/wDMFR/KkCw9if8AXV4V0MiG0/6qfA/MRGCcEWAAADpPhY4h
fZoyTMyF8kPlr4XQ5VF8keUPJu74S9He6XpvBpWu70Gm7ubdeXZt5OudV/caKpdbq4STxwxzJrfW+dDV
t99HUc+r1smGfDe8j3iQ/tev6ev2s/Uwi/gf+f3P3Hc8Ufxe9+0dr1/T1+1n6mDwP/P7n7h4o/i979o7
Xr+nr9rP1MHgf+f3P3DxR/F737R2vX9PX7WfqYPA/wDP7n7h4o/i979o7Xr+nr9rP1MHgf8An9z9w8Uf
xe9+0dr1/T1+1n6mDwP/AD+5+4eKP4ve/aeZU+t1rLsZ1NGwTCgTDSfQvzbhcltpVpsNTbdPjGovcJZD
3HYiOPpVn7OH/wAmfHtQ9yn735EbGcM+5J4hLqbuvI1WblOw2jj0WiwmzYp9PZUZKW3GZNSzLfMiNSlq
UtWhbyjJKSKV6u1ZQsKfUpLPnbzvh/GBwLy+q3c+tUfAtxGlx0DTAAACUDqvcMzLsy5UMu1CGr5N4ziv
MUyUsj3HqzUGjZShHMroYzji1famps+chD9sL9UrdUE/SnlfqrS+hkj2ctHOq6rzRzcL/LpLAYrQmoAA
AAAAAAAAAHKXGTnxrh+wrXLggSUt3pce9RLFY5VFOkIVvStNvexmyU7tLQ1ElJ++IdjUWrXfXKg/0rLL
gW5x5jna0vVa0HL/ACeRcP5Zyra667IddffdW8+8tTjzzijUta1HqpSlHqZmZnqZmLiSSWCK5bbeLPzH
0+AAf222464hppCnHXFEhttBGalKM9CIiLaZmY+N4ZWfUsciLR3BjgRGAMJUKhVGKTN63Nu1y+XDLv0z
ZCE7kUz1PZGaJLehHpvEtRe+FPa91l9ddSmv0rJHgW7x5yxtV2X0tBRf6nlfD+WY6yHGOiABrjLmMqBm
LHF243uVBHTLpgrjFJJJKXFkJ0XGlNkezfZdSlxPul3BtWV3O1rRqwzxfLvrjWQwXNCNenKnLM1+OQqY
X5ZNfxxedy2JdEXwOv2rUHqdUmdu6a2laE42ZkW8hxOi0K075JkfOLqtbiFxSjVhmksStK9GVGo4Szpm
JDOYQAAAny6sTiA+WVhVHCVxTukuPHTZy7WU6rVcihvOaG2nUzNRxHl7vcJC20l70xWu12rPk1lcRXoz
z+SX5rnxJts/ffNp/Klnjm9X8tBKiIcSIAAAAAAAAAAjy6zv+V+X9KKR/e8JNsl/fXqs4uv/AOpLhXSV
yRapAQAAA3Jw6/zBYK/9w7Y/S0YaGtf6db1Jf8Wbdh/Yp+tHpRbfFJlmgAABo3ic/lyzx9ALi/Rr46Gq
f7lH149KNTWH9ap6suhlS4XWVkAAAAAAAAAAAAAFvDBf8EsO/Qe3v0bHFH3/APZqevLpZaNt/qh6q6Da
Y1DOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARydZFgH96GIk5GoMLprxxOh6c4ltOrkqiOaHOa2GW
ps7pPp110JLhEWqxKNldZ/TXHypP0KmTgluaOPyHD17ZfPo9eP6oZeLd0ldcWmQMAAAPrgTplLnQ6nTp
TsKoU59uTBmsqNDjLzKiW24hRbSUlREZGXOPM4qacWsUz1GTi01nRay4W83ws/4Zta/EuNFXkt+TLzgt
6F4PVoiUpkFukZ7qXSNLyC+0WkUzrfV7sbmVLczx8sXm0PyosnV92rqiprPu8O6dDDmG6V3+sj4hf3n5
URjC3Z3TWXip52NLU0rVuZXVFuS3Nh6GUYvwCdS2KJ3TYoWfspqv6eh86a9KfNHc5c/IQfaC++dV+VH9
Mf8Al+WblI3BLCPgAABtbCOKK3m3KNoY1oRKbfuKalFQnkk1JhwWi6SXKXzaNNJUZEfKrRPKZDS1jexs
6EqstxZPK9xG1ZWsrmtGmt3P5Fuls207Xolk2xQLQtuGmn0G2YDFNpMNP2DEZBNoIz5z0LUzPaZ7TFK1
qsqs3OTxbeL4yy6cFTioxyJLAyAYz2AAAAAAAAAAABUHzR/GHLH0yrv6QfF36u/rUvUj0IrC9/31PWfS
zWg3DWAAAAAAAAAAAAAAAAAAAALAHVP/AMA76+n8v9FUwVntp/bh6i/5SJvs1/Xl6z6EShiIEhAAAAAA
AACC/rbf9+4f/MFR/KkCw9if9dXhXQyIbT/qp8D8xEYJwRYAAAAAAAAAAAAAAAAAAAA+qFCm1KUxAp0R
6fOlLJuLDjNqddcWfIlCEEalGfcIh5lJRWMngj1GLk8EsWd54D6vLNeWJ8CpXpSpGKrFUpDkyp1lo26m
+1rqaIlPXo6SjLkU8SEbdS39N043rLai2tk1TfXn5P0rhejHiO1ZahrVmnUXVj5c/JpLA+McZWdiCyqN
YNiUtNKt+iNmlpBnvPPur2uyJDmhG464rapR/ULQiIirO7u6l1VdSo8ZP8chNqFCFCChBYJGfjWMwAAA
AAAAAAB/hmREZmehFtMzAFY7jq4gf375qqJUab4TYdgdLQ7O3FatP7qy8MnJ02H4Q6kt0+dtDfPqLb2b
1Z9FbJyXpzyvzLi6Wyv9dXv1NfBfpjkXnf43ji4SA44AAAdqcCdpYzrGaoN4ZZve2LQtXHCW6xFi3HVY
dOKo1TeMoTbSJbjfSJZWk3lmnXQ0oSrYsR/aStXjbOnQhKUp5PRTeEd3Nv5uXeOxqWnSdfr1ZJKOXK0s
XuZ97PyFgf2keHf19459KaR40Kz+1Xnc1PZloJr9fbd5D2lpHtI8O/r7xz6U0jxoPtV53NT2ZaB9fbd5
D2lpHtI8O/r7xz6U0jxoPtV53NT2ZaB9fbd5D2lpHtI8O/r7xz6U0jxoPtV53NT2ZaB9fbd5D2lpIhOs
opWGb1m25mXGGT7Lue41blEveg0Su06bMkNJSZw5xMR5C1r6MiNlwySZ7pt8iUmYm+yc7mipUK1OcY54
txaSe6sWt3OuPfIzr+NCrhVpzi3maTTeG48+5+MxE+JqRgAAANq4TytW8J5QtDJVBNS5FuTUrnQCUaUz
IThdHLir5tHWlKSRnyHorlIhpaxso3lCVKW6snke4zasrqVtVjUW5n8q3S2baV00S+LXt+8LbmJqFBua
AxUqTMTs32JCCcRqXMoiPRRHtI9SPaKVrUZUZuE1g08HxFl06kakVKOZrEyEYz2AAAAAAAAEeXWd/wAr
8v6UUj+94SbZL++vVZxdf/1JcK6SuSLVICAAAG4uHhaW8/4McUeiUZBtlSj9wqrGMxoa0/p1vUl/xZt2
H9in60elFuEUmWaAAAGjeJz+XLPH0AuL9Gvjoap/uUfXj0o1NYf1qnqy6GVLhdZWQAAAAAAAAAAAAAW8
MF/wSw79B7e/RscUff8A9mp68ullo23+qHqroNpjUM4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB+b
zLMhl2PIaQ+w+hTb7LiSUhaFFopKknsMjI9DIx9TwBVk4wcDvcP+bLiteJHW3aFbM61YsgyM0nTpS1aM
bx8qozhKaPbrolKj98QuHUOsvrrWMn+pZJcK3ePOV1ray+lrtL9LyrRxHLY7JzAAAAkT6uHPn7q8xJsC
uzehszLCmacrpFaNxaygzKA9tPRJOmo2FaFtNaDM9ECK7V6t+pt/mxXpU8vDHd5M/Kd/UF78mt8uT9Gf
/Lc5c3ITAcZef2uH3C9ZrsCSlu9rm3qJYjHKpM19B78rTQ+9it6uamWhq3En74hB9Ratd9cqD/SssuDe
48xKNaXqtKLl/k8i4fyzlXB552Q66++6t999anHnnFGpa1qPVSlKPUzMzPUzMXCkksEVy228WfmPp8AA
ACfLqw8AfI2wqjm24oPR3HkVvwS1kup0XHobLmpuJ1IjSct5G93DQhtRe+MVptdrP51ZW8X6MM/ll+S5
8SbbPWPyqfzZZ5ZvV/PQSoiHkiAAAAAAAAAAAAACoPmj+MOWPplXf0g+Lv1d/WpepHoRWF7/AL6nrPpZ
rQbhrAAABZG6tVttXCrbRqbSo/Lda2mRH/8AlKFUbV/35cEegn+of6keF9LO+OhZ/FI+9IRvE7I6Fn8U
j70gxA6Fn8Uj70gxA6Fn8Uj70gxA6Fn8Uj70gxA6Fn8Uj70gxA6Fn8Uj70gxA6Fn8Uj70gxA6Fn8Uj70
gxB/aUpQWiEkku4RaAD+gAAAAAAAAAQX9bb/AL9w/wDmCo/lSBYexP8Arq8K6GRDaf8AVT4H5iIwTgiw
AAAAAAAAAAAAAAAAAAAB9cGdOpktifTZj9PnRVb8WbGcU082ovskLQZKSfukY8ygprCSxR6jJxeKeDO6
cFdYXnTE86DBuusvZVspCkol0euvG5UGmi11OLUlEp4lFs0J03EaFoSU8ojmsdl7W5TdNdSe+s3HHNyY
HZste16LSm+tHy5+J6cSwBiDL9kZwsal3/YVS8Oo9Q1akxnSJEqFKQRG7FlNEZ7jiNS1LUyMjJSTUlST
OtL2yq2dV0qqwa5Gt9eQm1tcwuIKcHimbPGoZwAAAAAAAAADgjrCOIL9zOGpFs0Gd4PfeUUvUijKbVo7
Fp+6RVCYRkZGkybWTSDI9SWslF7wxI9mdWfWXKlJehDK/K9xefgRx9d3301DCL9KWRed/jdK2Ytgr8AA
AAAAAAAAAAAAAAAAAAACbbqtc/8AhtOrXD5cc3WTSiermPVOq99GWrenwk7C/wANaunSW0zJTvMkV7th
qzqyV1BZHklw7j483Et8mGzl71ouhLOsq4N1cXn8hMaIMSgAAAAAAAAI8+s6Iz4Xpmha6XRSDP8AteEm
2S/vr1X0HF1//UlwrpK5AtUgIAAAZFaFwPWndlr3VHR0r9s1aFVWGtdN5cJ9D6S1900DDcUvm05Q7Sa5
VgZaNT5dSM95p8jLh9Gq9PuCj0qvUmSmZSq3DYn0yWgyNLseS2l1paTLYZKSojIUZODhJxedPAtKMlJJ
rMz0h5PoAHhXRbVFvO26/aNyQ/KFv3PT5NKrcAnHGemiS21MvN9IypDiN5CjLVKiMuYyMZKNWVKcZweE
otNcKPFSnGpFxlmawfGcj9nhwg+qdf8Ar9e84Dt+KNY957sdBzPsdn2OeWkdnhwg+qdf+v17zgHijWPe
e7HQPsdn2OeWkdnhwg+qdf8Ar9e84B4o1j3nux0D7HZ9jnlpHZ4cIPqnX/r9e84B4o1j3nux0D7HZ9jn
lpND8TvBDwy4+wHlC9bQx+qg3NbdHOZRqqqs1eQTTyHWyIuikzXGlb5GadFJPl7o6Oqdob6vd06c54xb
wawj5kal/qe1pUJzjHBpNrK9JASLLIQAAAAAW8MF/wAEsO/Qe3v0bHFH3/8AZqevLpZaNt/qh6q6DaY1
DOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwp1gOAP31YUmVqiQfCL6xiT1bt7o06uyYhILyhCTo
RqPpGkE4lJbTcbQXOYkWzWs/o7lKT9CeR+Z8XQ2cjXVj9TQbX6o5V51x9OBWnFslfAAAB+jTrrDrb7Di
2X2Vk4y82ZpUhST1SpKi2kZHtIyHxpNYM+ptPFG+8/8AEXfPETVbQqd5rQ38j6DGo8OK0ozbckJQnw2c
otCInJTqd5REWhESU7d3U+ZqvVVLV8ZKn/lLHi3FxG9f6wneOLluLDj3XxmgB1DQAAADfnDPhSfn7Mdq
Y9jk43SX3fD7unt8sWkRTSqU5rzKXqTSD+3WnmHM1vrBWNtKru5o+s82ngRvaus3dV1Dczvg/GQtcUum
U+iUynUakw2qfSqTGah02AyndbYjsIJtptCS5EpSkiIhTM5Obcm8WyyUklgsx948n0AAAAAAAAAAAAAK
g+aP4w5Y+mVd/SD4u/V39al6kehFYXv++p6z6Wa0G4awAAAWSerT/lUtr891r8qUKn2r/wD0JcEegsDU
P9SPC+lnfQjh2AAAAAAAAAAAAAAAAAAAAAAAAACC/rbf9+4f/MFR/KkCw9if9dXhXQyIbT/qp8D8xEYJ
wRYAAAMjtezruvepLo9l2tV7vq7bCpLlKokGRUJKWEGlKnTZjIcWSEmtJGrTQjMu6MVavTox61SSit9t
Jc5kp0p1XhCLb8ixNg+zrxBeorIfoxVvFhq/dbPvoe1HSZ/oLju5ey9A9nXiC9RWQ/RireLB91s++h7U
dI+guO7l7L0D2deIL1FZD9GKt4sH3Wz76HtR0j6C47uXsvQPZ14gvUVkP0Yq3iwfdbPvoe1HSPoLju5e
y9A9nXiC9RWQ/RireLB91s++h7UdI+guO7l7L0D2deIL1FZD9GKt4sH3Wz76HtR0j6C47uXsvQeDWcPZ
ctyM7NuHFl30GGwk1PS6jQ58VpCS5TUt5lJERe6YyQ1hbTeEakG/JJPznmVnXisXCS4ma5G2awAAAABI
z1aOYKjYud4+PJEpw7XyrHdgvwzP8E1U4jTkiHIIjPYpRIWzs5d8tfelpFNrbGNa1+av1Q6Hka8539nr
p06/y3ml0r8YFioVeTkAAAAAAAAPlnTodMhTKlUJLcKBT2HJM6Y8okNtMtJNbji1HsJKUkZmZj7GLk8F
nZ8bwWLKqnFVnSZxB5luS+CccTbcZfkqyILmpdDSYqlEyo0mRGlTyjU8sj5FLNPIRC5NS6tVhbRp/wCT
yy9Z6MxXGs713dZy/wAVkXB+ec5xHWOeAAAAAAAAAAAAAAAAAAAAABmmO77r+ML5tbIFryPB67adQaqE
FR67i+jPv2XNNpodQam1lzpUZDXu7aFzSlSnmksPxwZzNb15UKkakc6ZbSxfkSgZZx/amRbYe6WjXXT2
5jDZqJS2HD716O5u7N9l1Km1l9skxSl3aztqsqU88Xh+fHnLNoVo1qanHM0Z6NcygAAAAAAcNdY1SHap
wm36+02p1dEnUaoGlJGZkkqiwwtWhcyUvGZ+5tEh2Wmo6whju4rmZyNexxs58XSitCLaK+AAAAAJf+B/
j4tywrXpmHM2THqfRaMZR7Kvkm1vtxoy1d7CnIQSnEobM9G3EkZJT3qiSlBKEF2h2anWqOvbrFv9UfLv
rh3Vv5s5KtT66jTgqVZ4YZn5npJnLVvezb5p7dVsu66RddNdSSkTaTMZmN6H3VMrVofMZHtEDrUKlGXV
qRcX5VgSunVhUWMWmvIZQMR7AAAAAAA8O4Lntu06e7VbpuCm23S2Emt6o1SUzDYQlO0zU48pCS0+qMlO
lOo+rBNveSxPM5xgsZNJeUhV4/ONqzsiWs/hLEVR8v0afKZeve8WiUiI8iI4TrUKGaiI3SN1CVrcIt3v
UpQayUoyn2zWz9WhU+orrBr9Md3LuveyZln4CJ671vCpD5NJ4453ucCIghOSKgAAAAFvDBf8EsO/Qe3v
0bHFH3/9mp68ullo23+qHqroNpjUM4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAyIyMjLUj5SAFY
vjqwF+4rN1UKkQ/BrFv7pa9Z+4nRpknF/wCbhJ02F4O6rvS5m1Ni29m9ZfW2qUn6cMj8z41zplf66svp
q7a/TLKvOvxvnGAkBxwAAAAAAAAACxX1b+AP3W4i/eJXoXQ3nlhDM9KXE6ORaKgjVBZ266G8SjfVppqS
kEotUCrNqtZ/VXHy4v0KeThluvzcXlJ5qKx+RR68v1Sy8W5pJGBFzuAAAAAAAAAAAAAAAFQfNH8YcsfT
Ku/pB8Xfq7+tS9SPQisL3/fU9Z9LNaDcNYAAANk21mXMFl0pqg2dla8bTobK1us0ajV2oQIiFuHvLUli
O+hBGo9pmRbRqVbC2rS61SnCT33FN8rRsU7utTXVjOSW8m0ZB7SPER6+8jelNX8aGP7VZ9zT9mOg9/X3
PeT9p6R7SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6R7SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6R7
SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6R7SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6R7SPER6+8j
elNX8aD7VZ9zT9mOgfX3PeT9p6R7SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6R7SPER6+8jelNX8aD7
VZ9zT9mOgfX3PeT9p6R7SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6R7SPER6+8jelNX8aD7VZ9zT9mO
gfX3PeT9p6SzLwxVerV/h6w3Wq7VJdarNUtOmyanVp77kmVIecZSa3HnnVKWtSj2majMzFR62hGF3VjF
JJSeCWZZSwrCTlb023i3FdBvUc82wAAAAAAIL+tt/wB+4f8AzBUfypAsPYn/AF1eFdDIhtP+qnwPzERg
nBFgAAAkm6rH+ZOsfQaqfltPET2y/pR9ddEiQbN/2X6r6UWHRWBOAAAAAAAAAACHfrOuHSz4dm0/Oto0
OJQrgg1VinXuUJtLDU+NNJSWZTqEJJJvNvJSje2GpK++M91Ok42R1pU+a7abbi1jHHca3OBojG0NjD5f
zorBp5fKn5yEQWGQ4AAAN28NMt+DxE4JkRnDbc+X9uNKMudD1SYbcT/1kKMjHO1vFSs6yfYl0M3NXScb
mm12l0ltYUqWYAAAAAAAAEXXWa8QRWLjyHhi3ZxN3Rkto3bjNpRdJGoLazStKtD1LwtxJtlzGhLpc5CX
7Jas+fW+fJejDN5Zfln4cCPbQX3yqXyov0pZ/V/PNykAIswhAAAAAAAAAAAAAAAAAAAAAAAAABL11XGf
/I1wVnANxztKdcynaxYSnVbGqg0jWZESaj2E+0jpUkWhbyF/ZLEG2w1Z1oq5gsqyS4Nx8Wbk3iU7OXuD
dCTz5Y+deflJyRXpLwAAAAAANaZmsUsm4nyLYBGlL12W/Pp0FxWmiJTrKvBnD1+0dJKvrDasbj6evCr2
ZJ85guaPzqUob6aKh8qLJgypMKYw5FmQ3VsS4zqTS4242o0rQtJ7SNJkZGRi8IyUkmszKvlFxeDzo+cf
T4AAAAAfXCnTqbKam06Y/T5jB7zEuM4pp1B91K0GRl9Yx5lCM1hJYo9Rm4vFPBmyYWdc3U5CW6fmO+IC
E7Eoj3DUmiL6hIkENR6ttXnpQ9laDYV9cLNUl7T0nplxH8Q6SIk55yKki5CK6asRflI8/arPuafsx0H3
6+57yftPSf17SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6T+VcR3EMstF55yIou4d0VYy/KQ+1Wfc0/Z
joH19z3k/aek82VnXN01BtzMx3xLbV75D1w1Jwj+sqQY9LVtqs1KHsrQfHfXD/8AZL2npNc1Kq1OsSlz
qvUZVVmuFouZMeW+6oi5CNbhqUf9o2oU4wWEUkvJkNec5TeMm2/KfAPZ5AAAAAP9IjMyIi1M+QgBcTx9
R3besKyKA+ncfodAptPeQezRUaK20ovrGkUVcT69SUt9t85atOPVilvIy8YT2AAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAHIfGxgMs+YRrVLpcQn73tDer1kKSX4RySwg+mhkepalJa3kERnpv7ij96O3qD
WX0N0pP9EskuB7vE8vKc3Wtl9VQcV+pZVw/nmKvSkqQpSVJNKkmZKSZaGRlykZC4CuT+QAAAAAAAHVPB
zgZ3iAzZQLcnRluWbb5lW76f0MkeARlp0jb2mm9JcNLRFrrumpRe9McXX2svobVyT9OWSPDv8WfhwOnq
my+qrpP9KyvRx9GJaWaaaYabYYbSyyygkMsoIkpQlJaJSki2ERFsIiFPN4lin6AAAAAAAAAAAAAAAACo
Pmj+MOWPplXf0g+Lv1d/WpepHoRWF7/vqes+lmtBuGsAAAAAAAAAAAAAAAAAAAAABa94S/5Z8GfQ2l/+
AkUvrn+7W9eXSWXq7+tT9VdB0MOYboAAAAAAEF/W2/79w/8AmCo/lSBYexP+urwroZENp/1U+B+YiME4
IsAAAEk3VY/zJ1j6DVT8tp4ie2X9KPrrokSDZv8Asv1X0osOisCcAAAAAAAAAAHD/WMJSrhHyQZlqaJV
CNJ9w/LEMv7jEg2W/wD0Kf8A5f8AFnI17/TnxdKKzgtsr4AAANycOv8AMFgr/wBw7Y/S0YaGtf6db1Jf
8Wbdh/Yp+tHpRbfFJlmgAAAAAAY9dt00Sx7Yr94XJNTT6BbMB+pVaYr7BiOg3F6FzqMi0SRbTPQi2jJR
oyrTUILFt4LjPFSpGnFylkSWJU1zhlit5uyjd2Sq6a23rhmKVTqepRqTDgtF0cSKjm0baSkjMvfK3lcq
jF06usY2VCNKO4sr33usrS9upXNaVR7ubyLcNTjeNUAAAJBur44aY2bsmP3feNIbqWNMdGh+pQpbZORq
nU3CM4sJaFkaXG0kRuupPUtCShRaOCL7T62dnR+XTeFSe9nUd1+Zce8d3UWr1cVOvNYwjzve874idD2a
eHT1DY89GaX4uK8+7XnfT9qWkmH2+27uPsrQPZp4dPUNjz0Zpfi4fdrzvp+1LSPt9t3cfZWgezTw6eob
HnozS/Fw+7XnfT9qWkfb7bu4+ytA9mnh09Q2PPRml+Lh92vO+n7UtI+323dx9laB7NPDp6hseejNL8XD
7ted9P2paR9vtu7j7K0D2aeHT1DY89GaX4uH3a876ftS0j7fbd3H2VoHs08OnqGx56M0vxcPu1530/al
pH2+27uPsrQPZp4dPUNjz0Zpfi4fdrzvp+1LSPt9t3cfZWgh+6yHhZo2NanRMwY1tuJQLIrpt0m6aFSo
yI0OnVFtGkd9thlKW2m5Lad1WhEXSJ1PvnRONlNcyuE6FaTc1lTbxbW6sd3Do4CMa/1bGlhVprCOZpZk
9x8fTwkVQmZGQAAA9u2rirFo3DRLpt6aunV23ZzFRpE9v3zUiM4Tjay7uiklqR8vIMdajGtBwmsU1g+M
yUqkqU1OOdPEtkYFy9R854otHJVH3GTrkQk1mnJMzOHUWD6OXGPXQ9EOpPdMy75G6rkUQpXWNlKzrypS
3Hk8q3HyFl2dzG5pRqR3endNwDSNkAAAAAACvV1jvDVNxtkeVmC2qcpVg5JlqfqymU95Tq45qqQhZEXe
plGRvIM+VZuJ2aJ1s3ZXWyuKPyJv04ZvLH8s3BgQnX+r3SqfOivRln8j/PpI0RLiOgAAAAAAAAAAAAAA
AAAAAAAAB1zwT4Pn5uzva0RcNblo2ZKYuG9Jhp1aTGiOE4zGUZkZGqU6lLe7y7u+ovemOHtDrFWdpLL6
Ul1Y8ed8S58Dq6ns3cXC7Mcr8y43zYlooVAWGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABW
86xDAP7oczyLuocLoLIyqp+r07o06NRqmSiOoxdmwiNayeSWwt1e6XvDFqbLaz+qtvlyfpwycMdx+bi8
pBNfWXyK3Xj+mWXj3dJH+JOcIAAAAAACzFwEcP8A+5DCkCoVqD4NfmSCZrlz9InR2OwpB+AQVbCMuhaW
alJPkcWsu4Kk2j1n9bctRfoQyLzvjfMkWFqax+moLFelLK/MuLpxO4RHzrAAAAAAAAAAAAAAAAAVB80f
xhyx9Mq7+kHxd+rv61L1I9CKwvf99T1n0s1oNw1gAAAAAAAAAAAAAAAAAAAAALXvCX/LPgz6G0v/AMBI
pfXP92t68uksvV39an6q6DoYcw3QAAAAAAIL+tt/37h/8wVH8qQLD2J/11eFdDIhtP8Aqp8D8xEYJwRY
AAAJJuqx/mTrH0Gqn5bTxE9sv6UfXXRIkGzf9l+q+lFh0VgTgAAAAAAAAAA4g6xf+UbJX/7NC/TMMSDZ
b/8ARp/+X/FnI17/AE58XSis2LbK+AAADcnDr/MFgr/3Dtj9LRhoa1/p1vUl/wAWbdh/Yp+tHpRbfFJl
mgAAAAAAQ29aTxBeCw6Pw9W3N/DTyZreRVtK96wlW/Agr5ffqLp1lsMiS0fIoxOtj9WdaTuprIskeHdf
m5d4i20d91YqhHdyvg3F5/8AqQnCwSIAAAB79q2xXL1uShWjbUByp1+5JzFOpEBsu+cfkLJCC15i1PUz
PYRamewhir1oUacqk3hFLFmSlSlVmoRzt4Frzh+wzRMC4ptfHFG3H3aYx09wVVCd051TfIlS5J67dFL2
IIz71BJT9iKX1lfTva8qst3Mt5biLKs7WNtSjTjuc73WboGibQAAAAAAAAAAAGE5HsC3cpWNc+Prri+F
0G6oLkKakiLfbNW1t5sz10caWSXEHzKSRjPa3M7arGrB4Si8TFWoxrQcJZmipvlrGVxYdyJdWOLpa3Kt
bE1UfwgkmluUwrRceU0RmfePNKStO3YR6HtIxdNjeQu6MasMzXI91cRWl3bStqrpyzrn8probZrgAABJ
71ZefysHJMzD1wTeitbJ7iV0JTitG41eaRutEWvJ4W2noj7q0tEXOIftdqz51FXEV6UM/q/k8vA2SPZ6
9+XUdGWaWb1vzXQWBhWhNQAAAAAAMbu+0Lav22qxZ930ePXrbr8dUWq0uSneQ42raRkZaGlSTIlJUkyU
lREpJkZEYy0a06M1ODwkszPFSnGpFxksUyv3xOdXjkjE86o3Ni6FMyPjdSlPIZioN6s0xBnr0cmM2W8+
hJcjrRHs1NaEaanZeqNqKNylCs1Cfuvj3OB8TIVrHUVSi3KkutHnWkjmWhba1NuJNC0GaVoUWhkZbDIy
Pk0ErTxI+1gfyAAAAAAAAAAAAAAAAAAADsHBPBDnPOMyFKYt1+x7LeUlUm9bgZXGZNo9DNUSMvdelGZH
3u4RIM9inEjg6x2itbNNdbrz7MfO8y6fIdaz1NXuHlXVjvvzLO+jylhbA2BLD4ebHj2XZERSjcUUiv1+
SSTmVKXu7pvPqSREREWxCC71BbC26mdY6x1jVvqvzKj4FuJbyJxZ2dO1p9SC0vhN2DQNoAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAADS2ecD2PxEWKqwr78NjwG5zFRp9Wpi2Wp0SSwZlvsOPtPoLfbU
ptWqD1So+Q9DLf1drGrYVfm08McMMHma8uGHCat5ZwuqfUnm8mdHFXZQcPvz2yH8OpPmoSDxpediHJL4
jkeGrftS5VoHZQcPvz2yH8OpPmoPGl52IckviHhq37UuVaB2UHD789sh/DqT5qDxpediHJL4h4at+1Ll
WgdlBw+/PbIfw6k+ag8aXnYhyS+IeGrftS5VoMgtTqv+Hy1bmoFy+X7zr50CexUEUWqzKc5BkrjrJxLc
hDNOaWpszSW8kllqWzkGGvtfeVacoYQWKwxSeOXe9JmSls9b05qWMng8cG1h0Ejwix3QAAAAAAAAAAAA
AAAAAAjeufqwMEXXctw3TULyv1ifctTl1WczHm0tLKHpjy33EtkumLUSSUsyIjUZ6cpmJVR2vu6VOMFG
GEUlme5k7Rwauz1vUm5uUsW2863eI8LsoOH357ZD+HUnzUMvjS87EOSXxHjw1b9qXKtA7KDh9+e2Q/h1
J81B40vOxDkl8Q8NW/alyrQOyg4ffntkP4dSfNQeNLzsQ5JfEPDVv2pcq0DsoOH357ZD+HUnzUHjS87E
OSXxDw1b9qXKtA7KDh9+e2Q/h1J81B40vOxDkl8Q8NW/alyrQOyg4ffntkP4dSfNQeNLzsQ5JfEPDVv2
pcq0DsoOH357ZD+HUnzUHjS87EOSXxDw1b9qXKtA7KDh9+e2Q/h1J81B40vOxDkl8Q8NW/alyrQOyg4f
fntkP4dSfNQeNLzsQ5JfEPDVv2pcq0DsoOH357ZD+HUnzUHjS87EOSXxDw1b9qXKtA7KDh9+e2Q/h1J8
1B40vOxDkl8Q8NW/alyrQOyg4ffntkP4dSfNQeNLzsQ5JfEPDVv2pcq0DsoOH357ZD+HUnzUHjS87EOS
XxDw1b9qXKtA7KDh9+e2Q/h1J81B40vOxDkl8Q8NW/alyrQSF47selYzsW08f0OTLmUez6ZHpVNlTlIX
JcZjIJCFOqaQ0g1GRbTSgi9wRe6uJXFWVWWGMm28M2U7lCkqUIwWZLDkMzGAygAAAAAAcncRfB5jfiZq
9t1q+a9ctHk2vDehQG6FIhstrbfcJxRulJhyTMyMtmhkOzqrXlbV0ZKmovrYZ8dzgaObf6rp3jTm2sN7
DzpnOXZQcPvz2yH8OpPmodbxpediHJL4jQ8NW/alyrQOyg4ffntkP4dSfNQeNLzsQ5JfEPDVv2pcq0Ds
oOH357ZD+HUnzUHjS87EOSXxDw1b9qXKtBvDAHA5ivhzviTf1l3HddWq8qkv0dyLW5MF6MTEh1l1SiTG
gx175GwnQ97TTXYOdrPaG41hSVOpGKSeORPHd32983LHU9K0n14OTeGGXDQt47OHBOqAAAAAAAAAAaqz
ViG3M645rmMbrn1Km0KvuRHJkykuMtS0nDktSm+jW+y+gtVtER6oPZrpoe0blhfTsqyrQSbWOfNlWG41
vmtd2sbmm6cscHveR4nC3ZQcPvz2yH8OpPmoSPxpediHJL4jj+GrftS5VoHZQcPvz2yH8OpPmoPGl52I
ckviHhq37UuVaB2UHD789sh/DqT5qDxpediHJL4h4at+1LlWgyayurKwZYt5Wle9JvC+5NUs6swK5TY8
ubTFR3JFPkIktIeS3TG1Gg1NkSiSoj05DLlGG42tuq9OVOUYYSTTwT3Vh2jJR2foUpxmpSxTTzrc4iRg
RY7oAAAAAAEd1+dWvh3JF5XLfd1ZByFNuC6p71QqbxTqWSCW6epNtpVS1GlttOiEJ171JEXMJPbbV3Nv
SjShCHVisFkl8Rw6+oaNao5ylLF+VaDEuyg4ffntkP4dSfNQ2PGl52IckviMXhq37UuVaB2UHD789sh/
DqT5qDxpediHJL4h4at+1LlWgdlBw+/PbIfw6k+ag8aXnYhyS+IeGrftS5VoNzYK4C8L4BvprIdtVG47
kuGHEfi0s7hkQn2YapBEhx9hMaHGMnTb3m941H3qlbNuo5+sdo7m+pfKmoqOOL6uOXhxbyG3ZamoWs+v
HFvy4ZOZHbA4B1gAAAAAAAAAAAAAADkjiH4MMS8SleoVz3nMrtBrtDhLp/lK33ojDkuMa+kbRJ8Jiyd7
olGvcNO6Zb6tddmna1Xr641fGUKaTTeOEscj8mDWfd4DmX2qqN5JSnimt7DQznjsoOH357ZD+HUnzUOr
40vOxDkl8Ro+GrftS5VoHZQcPvz2yH8OpPmoPGl52IckviHhq37UuVaB2UHD789sh/DqT5qDxpediHJL
4h4at+1LlWg+qD1V2CKZNh1Kn5AyPCn099uTBmM1GlIcZeaUS23EKKlakpKiIyMuceZbY3ck4uFNp+SX
xH2OzlCLTUp4ryrQSWxmlsRo7DshyW4y2hDkt0kk46pJERrWSEpTqo9p7qSLuEQibeLJAfuPgAAAAAAA
ADReS+GfBGXnH5N/4yo1YqcgtHa6y0qFUVabS3psNTL6tDPYSlmQ6FprW6tclKo0t7OuR5DUuLGhX/XB
N7+7y5zkm4eqx4dKs8p+jVq8rW113YkSoRpDBa+5LiPO7P8AmDt0tsb2Cwkoy4U/M10HMqbO20s3WXA9
KZrSd1SNiOb3k3MVeia+88JpsWRp9XccZ1G1HbWtu048r/MwPZmluTlzGMvdUPHVp4PxAONFt16S1iX9
TkqyBnW273aPvftMT2YW5U938z8eyF/qF/ZP9cj744/g9/8AaefC/wDL7v7h2Qv9Qv7J/rkPHH8Hv/tH
hf8Al939w7IX+oX9k/1yHjj+D3/2jwv/AC+7+4dkL/UL+yf65Dxx/B7/AO0eF/5fd/cOyF/qF/ZP9ch4
4/g9/wDaPC/8vu/uPti9UTTUGnw3PUmQktd8mLbQyZ7dmhqqbug8y23luUV7X5I9x2Yju1HyfmzMKf1S
2L2jLytlW6ZpfZFEjwov1f8AERIGvLbW43KcefSjKtmaG7KXNoNrW51YnDDRCb8qxbnvBST1WdVqxskr
3NKc1D0L6+vujTq7XX0/0uMeBfFibNPZ+1isqb4XowOo7D4ccE4zcZkWRiq3aJOjkRM1bwNEmcki05Jk
npX+b7cce51pdXGSpUk1vY5OTMdGjZUKP6IJPgy8pusaBtAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYdeeQ7D
xzTk1a/byo1nU5ZmlmVWJrMRLqyIz3GidUk3FaEeiUkZ+4M9C2q15dWnFyfkWJjq1oUljOSS8rwObajx
+cItLnSKfJzFGdfiq3HXIdJrMxgz0I+8kRoLrSy28qVGQ6sNmtYTWKpPjcVzN4nPlrqzi8HPmb50j2La
43+FO63nWKXmijRVsrabWqsNTKMgzeNRJNK6nHipURbp7xkZknZvaakPFbZ+/pfqpPiwl/xbPdPW9pUz
VFx+j04HTdLq1LrlPi1ai1KLWKXOQTkKpQnkSI7yD5FNutmpKiPukY5E4Sg8JLBrfOgpJrFHoDyfQANc
3RmHElkVTyJemUrQtCtdCiR5IrdbgU+V0Tmu450Ml5te6rQ9D00PQbVGxuK0etTpykt9RbXMjBUuqNJ4
TnFPytIx32keHf19459KaR40Mv2q87mp7MtBj+vtu8h7S0j2keHf19459KaR40H2q87mp7MtA+vtu8h7
S0mW21lLGV5kZ2fkW2LrInijmdGq8Kd+GMiMm/8ALur74yMj05RgrWlaj/shKPCmukzU69OplhJPgaZn
Y1zKAB5tYrNIt6lzq3X6rDodFpjKpFSq9QfbjRY7SPfOPPOqShCS5zUZEPUISnJRim28yWVnmUlFNt4J
GqfaR4d/X3jn0ppHjQ3ftV53NT2ZaDW+vtu8h7S0j2keHf19459KaR40H2q87mp7MtA+vtu8h7S0j2ke
Hf19459KaR40H2q87mp7MtA+vtu8h7S0j2keHf19459KaR40H2q87mp7MtA+vtu8h7S0mzreuS3buo8O
4bTr9OuegVDpPAK5SZTM2G/0TimXOikMKW2vccQpCtD2KIyPaQ1KtKdKTjOLjJbjWD5GbFOpGpHrRaa3
1lR7Qxns0/M4hcBU+XKgT844/gzoLy482FIualNOsutKNC23ELkkpKkqIyMjLUjG9HVl3JJqlNp/9stB
qyvreLwdSOPrLSfP7SPDv6+8c+lNI8aH37VedzU9mWg+fX23eQ9paT0qRnfB1fntUug5lsat1N8lGxTo
FxUyS+skJNSjS01IUo91JGZ6FsIeKmrrqmutOlNLfcWvMe4XlCbwjOLfkaNosPsSmGpMV5uTHfQTjEhp
RLQtCi1JSVJ1IyMuQyGo1hkZsH6j4AAPyffZjMvSZLyI8eOhTj77iiQhCEFqpSlHoRERFqZmPqWINOe0
jw7+vvHPpTSPGhvfarzuansy0Gp9fbd5D2lpMutHKOM7/kTIliZFti9pdPbS9Pi0Grwqk4w2s91K3URX
XDQkz2EZkMFezr0EnUhKOO+muky0rilV/RJSw3mn0GcLWltKlrUSEII1LWo9CIi2mZmY1zMaZ9pHh39f
eOfSmkeNDf8AtV53NT2ZaDU+vtu8h7S0j2keHf19459KaR40H2q87mp7MtA+vtu8h7S0j2keHf19459K
aR40H2q87mp7MtA+vtu8h7S0j2keHf19459KaR40H2q87mp7MtA+vtu8h7S0mWWllTGF/S5UCxMj2ves
6C0T82HQaxCqTrLRqJJOOIivOKSk1GRamWmow17OvQSdSEop76a6TLSuKVXJCSlwNPoM8GsZjT8ziFwF
T5cqBPzjj+DOgvLjzYUi5qU06y60o0LbcQuSSkqSojIyMtSMb0dWXckmqU2n/wBstBqyvreLwdSOPrLS
exbGY8RXtVE0OzMqWfd1bW2t5FHotcgT5Rtt7VrJmO+4s0p12npoQx1rG4ox61SnKK33Fpc6PdO6o1Hh
CcW/I0zZA1TOABiN43/Y2PKb5Xvu8KNZ9MPeJuZWJrENDiklqaG+mWk1q05Ep1M+YhmoW1WvLq04uT8i
xMdWtCksZtJeV4HNVS4++EakzpFOlZijOyIqiS45DpNZmsGZkR95IiwXWllt5UqPuco60Nm9YTWKpPjc
VzNpnPnrqzi8HPkTfOlgZDbHGrwr3cpSaVmugRDS50R+WjkUQt7d3tSOqsxSNOn2RbNdmuoxVtQX9L9V
KXF6X/HEyU9bWtTNUXH6PTgdOR5EeWw1JivtyYz6SWxIaUS0LSe0lJUkzIyPukOS01kZ0D9h8AAGJ3bf
tjWDEiz77vShWVBnPHHhTa9UY1NaedJJrNttcpxtKlbpGehHroM1C2q13hTi5Nbyb6DHVrQpLGclFeV4
dJgftI8O/r7xz6U0jxobP2q87mp7MtBg+vtu8h7S0mwLTviyr9gP1Wxbvol6UuLIOJKqVCqEaox25CUJ
cNlbsVxxKVklaVGkz10Mj5yGtWt6tB9WpFxe8010melWhVWMJJryPHoMoGEyGoJ3EHgOmTZlNqWb7Ap9
Rp77kafAk3LS2nmHmlGhxp1tcklIUhRGSkmWpHsMb0dWXckmqU2n/wBr0GrK+t4vB1Ipr/uWkzK0r/sS
/wCNLmWJetBvWHT3Esz5VBqUWpNsOKLeSh1cVxwkKMtpEZ66DXr21Wg0qkHFvfTXSZaVanVWMJKS8jx6
DLRhMoAAAAAAHj1S4rfoamUVqu0+jrkEao6JspqOayToRmknFJ10126ADyvl/Ynz2oP+pRf/ADAB7lMr
FIrbC5VGqkOrRm3DackQn25DaXCIlGg1NqURHooj090AeiAAAADx6xcFDt9kpFcq8Oksq2NqlPIa3z0M
9EEoyNR6EewtoAwF/N2Lo7q2XLqbUts9FG1Fluo+sttlST+sYA+yn5hxpU1m3Gu6I2ojSkzlpdiFqrXT
vpCGy02bT12c4A2JHkR5TLciK+3Jjulq0+0oloUXdJSTMjAH7AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOXuLviCT
w44fqN5Qo7M666vKRRbLgyCUplVQfbccJ15KdDNtlttbhlqW8ZEjUt4jHX1Jqz7hcqm8kVllwfnm5zn6
zvfpKLnu5lwlYm9r7vHJFxzrtvu45t0XFUlayqpOcNxe7qZk22nYlttOp7qEESUlsSRELdt7albwUKUV
GK3F+OcrytXnWl1pvFnVWF+AbPubrVh3tRY9EtO2aqhTtEqFzS34qprSVbvSMsxY0p3cUeppUtCSURap
MyMjPjX+0tpZ1HTljKSz9VJ4crR0rTUlxcQU1gk82O7yJmrc68L+X+HaTTyyLQWkUirrUzSbopj3hdOk
PITvKaJ0kpU25pqZIdQhSiIzSRkRmW5q3XFvfp/KeVZ08j/HAa97q2taYddZHurMf5w9cROUMAXhAqlh
1CROpk6W2VcsNxa1waslZkg21Mp3t14y0JDqE76T05U6pNrTVVC+ptVFg0skt2P5b6zdIsL+razXUypv
LHcf5+UtOWfc0W87Vt67IUKZTY1xU+PPap1RYXGlx+nQSzZkMrIjQ42Z7qi7pbNSFO1qTpTlBtPB4ZMq
4ixqc+vFSW6t0yQYj2VZ+Nq/CyFxPZXqrMk5FPo9UK3qZs0SlujtphOEjupU804sj597UtguHZ62+RY0
01la6z/8svRgV3rmv826m9xZOT88TRmOsb3rlm7qbYuPqGu4rqq6X1wKYh5iOSkxmVvuqU9JcaaQSUIM
9VrLU9CLvjIj6V1d0rWm6lV4RW7w8GU0be3qV59SmsWdGz+ALi6psVyZIw9Icaa03kRavRZbp67O9Zjz
3HFfWSOVHabV0nh83mloN96kvF/hzrSckVOmVKi1CZSazT5NJqtOeVHqFMmsrYkMOoPRbbrThJUhST2G
RlqQ7cJxnFSi0091ZjmSg4PCSwZKp1fXF/fkLIVv4QyBW5d1Wndy1w7Wn1B035dLnEhTjTSX3FGtTDu7
ubhme6o07m6W8RwvafUdL5LuKSUZRzpZmuDfRJtR61qOoqNR4p5m86/InhFdEwOA+sovdNp8MFcpDctU
adf1Xp1BjJb98ttLpzpBalyJNqKpKj+63ecSTZS3+bfReGSKcvMudnG19W+XatY5ZNLzvmRW4FrkAOnM
e8G3EllW0aVfdh42VW7UrnTeSqqqrUiH0xR3lx3TJqXNZdIicbUnU0FrpqWpDkXWvrK2qOnUqYSWdYSf
l3E0dGhqm5rQU4QxT8qXSzNez04wfVD8f2/5yGv4n1d3vuy+Ey/Y7zsc8dI7PTjB9UPx/b/nIPE+ru99
2Xwj7HedjnjpLCXD/jx3FGFcZ49lMtsVG2qDFYrTTRpUgqg6np526pBmSiOQ44epHt5RWGsrn6m5qVVm
lJ4cG5zE5s6HyaMIbyXLumVZKu5iwMd31fEhSUtWjQKjWD3tpKOHGceSnTnNRpIiLnMYbWi69WFNf5NL
lZkrVFShKbzJN8hT6lSpM6VJmzHlyZcx1b8qQ4e8txxxRqWtRnymZmZmLzjFRSSzIq2UnJtvOzeWJeGP
OOc6RVK7iyx1XRSaNMKBUZnlGmwSbkG2l3oyKdKjqUe4ojM0kZbRzr3W9rZSUa0+q2sczeTiTNy21dXu
YuVOOKTwzpdLPPyfw6Ztwy03KyVjmq21T3V9EisGTUuB0h6ESDmQ3H2CUeuwjXqfMPVnrW1u3hSqJvez
PkeDPlxq+vbrGpBpb+dcqPlxJnrLGD6uxVccXjOojKZBSJ1ANxTtLmn3hLKVCWZtL30oJJq0JZF71ST0
Mfb7VlvexwqxT8v+S4H+F5D5a31a2eNOWHk3HxfhlkThU4mbe4mcfHcUOMii3dQVtw73thKzWUWStJm2
8ypW1TD5JNSDPaRkpB6mnU6p1xqmerq3UeWLyxe+tK3Sfauv43lPrLI1nW8dPjkm+c2cYF7px/w05guA
paocp6gPUimvt/4hSauaae0aNNuqVP72pcmmvMOrqS3+fe0oYYrrYvgjlfQaOsq3yracscMmHG8iKp4u
YrUnP6peyThWNlTIb7BpXcFZh0KA8tJl+CpjByHTQZ8qVLmJIzLnR7grrbW461anS3k37T/ImWzNHClO
e+8OT/qSVZkjXhOxPkan4+gFUr3qNu1GHa0M3mmN6bJjraZMnH1ttJNKlbxb6iLZtMROxdNV4Oq8IdZY
8GOXMd+56/ypdT9WDw4Suv2enGD6ofj+3/OQtLxPq7vfdl8JBPsd52OeOk5iyFj278V3dVrEvylJol10
PoSqtKTKjTOhOQyiQ2RvRHXmjM23EnoSz010PQ9g69rdU7mmqlN4xeZ4NeTdwZz69CdCbhNYSXA+g8W3
LerN3XBQ7Vt2Cqp1+5J8emUSnIUhCn5ctxLLLZKcUlCd5aiLVRkRcpmRDJVqxpQc5vCKWLfkR4p05VJK
MVi28Edb9npxg+qH4/t/zkOJ4n1d3vuy+E6f2O87HPHSSidXZwyZCwPByXXMqW38m7nud+BBpME5kKbp
AhpcdW4TkF99JdK68RGlStfwZHp3YftRrejeypxoyxjFNvI1lfCluLnJHqLV9S1jN1FhJtbqeRcHCd+Z
Fu2LYVgXte01wmotpUOoVd5ZlvbIcdbxESeczNOhFznsEatqLrVY01nk0uVnbrVFThKbzJN8hT2lSpM6
VJmzHlyZcx1b8qQ4e8txxxRqWtRnymZmZmLzjFRSSzIqyUnJtvOyV/qm7JOoZIybkB5g1M2xQY9GhvKS
e6T9WkdKo0K5N5LcIyPuEv3RCttbjq0adLfbfIsPOSbZmjjOdTeSXL/0J3BXRMTgbjY4yonDrRmLSs3w
Wq5auKOb0Jh7R1ikRFGaSmSW9e+WoyMmmz2GZGpXeluqkeoNRPWEuvPFU1n8r3l5zj621qrSPVjlm83k
8rK7153vd+RLgm3VfFxz7puGoKM5NUqLynnN01Gom0bx6NtpNR7qEESElsSRFsFpW9tTt4KFOKjFbi/G
fy5yCVq060utNtvynXGJer34ist29EuqJTaPZNEqbRSKRJuqU/EclsqIjQ43HjR5TyUrI9Um4hO8W0th
kZ8O92os7Wbg25NZ+qk8ONtLkOpbaiua0etkivL+SZorNvD3lLh9rkOh5JoKaeVVbU7RazEdTJgTUoJP
SdA8nTvmzURKSokqLYem6aTPo6u1pQv4uVJ5s6eRo0rywq2ksKiz5nuM2Jww8W2Q+HC5YJRKhKr2OJUh
BXNYb7prjqZUozcehJWe7HkESjUSk6Es9Cc3i001dcako6wg8iVTcl5nvro3DY1drSpaSWXGG6tG8+nd
LOtrXLRrztug3bbsxNQoVywI9TpE1OwnI8ptLrajLmPdUWpHtI9hio6tKVKbhJYNPB8KLChNTipRyp5T
3hjPRBf1s98Km31i3HTEgzZoFFlV6fHSfem9U3/B2t/7pKIatO4S/uhYexVvhTqVXutRXFlfSiIbTVsZ
Qp7yb5ci6GRGCcEWO++r24hTw1mKPalenGzYWUnGKTVekM+iiVLeNNPmaER6FvrNlZ7C3V76j0bIRnaj
Vf1dv8yK9OGXhjurzrg8p3NRX3yK3Ul+mWTj3NH/AELDGQruh2BYd53xUFEmHaNEn1h/Utd4ocdb26RF
tM1GnQiLlPYKwtqLr1Y01nk0uVk4rVFThKbzJN8hT4qE+ZVZ82qVGQqXUKlIdlTpS/fOvPKNbi1ac6lG
ZmLzhBQiorMshVspOTcnnZYn6sixPkrw2R7jeaWiZkSvT6uZuJ3VFGjKTT2EkXLumcZayM+Xf15NBVu1
tz829cdyCS876cCd7P0fl2qfabfm8xIgIwdsAAAAA82s1eBQaXOrNUfKPApzKnpLp9wuQiLnNR6ERc57
ABGpfV4T74uObXZpmhDh9FT4hnqTEZBn0bZf26mfOZmYAxAAdX8MNa3ZNz264svwrbNRit8/4M+ieP6+
+gAdegAAOccw5oVazrtsWsttyvbv/wDY1IyJaIe8WxCEnqSndNu3YnuGfIBxdUKjPqst6fU5j0+bIPee
lPrNxaj91SjMwBte28FX/ckNuemLGosV9O/HXU3FtKcSehkZNtocWRHrs3kkAMJu6xrlseWzEuGB4OUk
jVElNqJxl4k6b24sudOu0j0P3OQAehYeRbgsKpNSadJW/TFrI6jRnFH0LyOfQtu6vTkUW3u6lsAEjtIq
sOuUun1inudLCqcduTGWew9xxJKIjLmMtdDLmMAeiAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAI9+slxPdOTcDRKhaMF
6rVDHtaRXqhSI6DceegeDvMSFtILapTXSJcMi+wJXcEm2Vvadtd4VHgprq4+XFNdGBxdfWs69v6GVxeO
BXEFqkBO6cKdYPnbDFu0Oy2UUS9bPoPRx6fTa3GcKTHgoNH+Wjy4rrKkklKTJBupd3d7kNJJSUc1hsva
3c3Uyxk955Md9p48eGB2rTXte3ioZJRW/nw3sV58TrSH1oGML9pirdzpw8orFCU4287GjuQq/GdcQtRp
WdPqbMZCVNlpun0qtT1PvRxJbIV6Eutb1sHxxfLFs6a2io1V1a1LJxS5ngSLcPmZOHbKNKdawdLokE6S
whmZasSA3SJsRhvvWyOH0bR9EWwkqQSmy5Nddgi2srC7tpf/ANCeXdb6yfHv853rK6t68f8A6Wsm5mw4
jpAcs3TFb6uiJZFk3feU9xLUK1KLPq8lxe1JIhR1vnqRbT95yFyjLb0nWqRgs8mlys8VaipwcnmSxKeV
QnzKrPm1SoyFS6hUpDsqdKX75155RrcWrTnUozMxekIKEVFZlkKslJybk87O6ur7yhhrDeULpv3Lt3Ha
5MW+ql2wnwCdOJ56ZIbW+vSDHkKQbbbO732hHvny6bI5tPZ3N3QjToR63pYvKlmWTO1v8x2dR3NC3qSn
VlhkwWRvhzJ7xLTWOsb4SaZT5EyFkObcMllKlN0mn0KrIkOmSTMkoVNixmSMzLQt5wi1PaZFqZQqGy2s
JPBwS8rlHzNvmJNLXtmlip48T0EB3EXl1rOuY7yyfHoTduRLhfZTBpad03EsRGG4zS5C0kRLdWlolLPb
tPQjMiIWTqqxdlbRot4tbvDlyeQhesLtXVaVRLBPzb/lNrcB+PKzf/E1jl2nQ3HqbZM4rmuGcWpNxmIH
ftGtRc7j/RoSXOZ9wjGltLdRoWM03ll6K8uOfmxNrUlCVS6i0skcr/HCWfxURYJB11tN9qlXbirGkeQo
m6NS5dx1OMRd4pyoPeCxlKPuoTEd0LmJfukLC2KtsIVKzWdqK4sr6URHaav6UKa8rfQvORAickVJXcR9
ZxFxPjKxsbw8EnVWrNo8amLqp3P0HhTrSPwr/Q+SXOj6Rw1L3d9W7rpvHyiF3uyDua86rrYdZt4dXN5P
1Elttovk0o0/l49VJfq/I2L2vX9PX7WfqYavgf8An9z9xn8Ufxe9+0kH4VeIabxL49qeQJFhKsGLErb9
IgQ1VHykUpMdlh1b6XPBYmhEt40abp7Unt5ijGudWLV9ZUlPr5MXkwwxxyZ3wnd1deu8pfMcerlwz4+Z
HTQ5JvnBPWRX78jOGK4KUxKONUMg1OBbsTc2qNpSzmSi9xKmIq0KP7rTlMhI9lbb519FtZIJy8y52jj6
9r/LtZLHLLBaeZMrZC2Cvyy91dVkKszhbs6S/GRGnXtMn3JLJJFvKTIe8HjLUfOao0doy9wyIVJtRcfO
v54PJHCPJn52ywtR0fl2sd95eXNzYHY11WvQr1tut2lc1Oaq1AuKG7Aq1PeSSkOMvJNKi28hlrqky2ke
hltIcOlVlSmpweDTxR05wjOLjJYplPm6qL8m7nuO3SkFLKgVSZTilp0InfBX1s75aGZd9u68ovKhV+bT
jPfSfKirq1P5c5R3m1yEg3Vb3DUqZxGVChx5C00y5rVnt1KHqfRrXEcZfZcNOum8jdURHzEpRc5iMbY0
oys1J51JYcaeJ3dm5tXDjuOPQ0WHxWBNyKLrYL8Ok4vx5jyPJU1IvKvPVScykv8AEh0hnd3FnzEb0ttR
d00e4YmWxlt17idVr9McOOX5Jkc2kr9WjGC/yfMvzaIGRZJCi0zwS2OiwuF/EdM3VFJrNHTcU1aiIlKc
rS1T0kZF9o28hH1E7dopzX9x8++qy3n1fZ9HzFkaqo/KtYLyY8uXznVQ450D/DMiIzM9CLaZmAKh+br6
VkzL+Sb8N7p2LnuKfMp69NNIZvKTESWuh96wlCdvcF3attvpranT3orHh3ecrG+rfOrznvt8m5zHTHVy
2Qi8uKS1Jb5b8WxqdULlkN6e+NhsojH1N1+U2r6w5G1dx8qxku01Hz9COhqCl17pPspvzecssiqCfAAc
FdZFfh2Zww3DTGJKo0/IFUgW7FNBaqNtSzmSS9xKmIq0Gf3WnKZCR7K23zr6LayQTl5lztHH17X+XayW
7LBaeZMrYi2Cvyxj1Y1jotnhqYuVaVeF5Dr9RqprUREZMRFlTWkF7m9FWotftu5oKr2uuPmXzjuQily+
l5ye7P0epaqXabfm8xITMlx4ESVOluE1FhMrfkunyJbbSalK+sRCMpNvBHbbwKhuXskVfLuTL0yNW3nX
Jd1VR+Wwy6ZGceLvbsWMnTZusMpQ2n3E8/KLvsLSNpQhSj/iuV7r43lKwu7h3FWVR7r5txch0PwGYYp2
aOIOhQbghpn2pZUV257hhOpM2pBRFttxY6z5DJcl1s1JP3yErLTTUcraW/dpZtxeEpPqrjzvk6Te1JaK
4uF1s0cr83P0FnMiIiIiLQi2ERCpCwSObrQ4NFf4aWplSQ35TgXXTDt51XvykOofS6lJ6lysdIZlt5OT
ZqUo2RlJX2CzOLx4P+uBw9oVF2rbzprD8cGJXWFpkDLNXV4VOdU+EvGpznFPKgPViFFdWep9AzVJJNp1
7iCPdL3CIVHtPBR1hUw3cH7qLC1JJytIY+XpZ2yOAdYq0cbd+/vD4ncrVVmUcmn0Wp/J2l/aoao6Ew3C
R3UqfbcXrz72pbBcOz1t8ixprDK11n/5ZejArvXNf5t1N45Fk5PzxNX2Vhm7L9xxlPJNAa8IpeJU0t64
IhIM1rjVFb6VutqI9D6Amd9ZabEGatS027dxrCnQr06Ms9THDhWHTjk8prULOdWlOpHNDDn0GoxvmoS5
XlxhpyH1flTt+qVj/wD1FNSpVi3GnUjfkxjNUxucaS5EyYkNbS1GW1wl8mqRBrfUXyNbqSX/ANeDmvJu
YcUmuLAlVbWvzdXNN+nki9PGkyJFpp2Q60ww0t595aW2WW0mpa1qPRKUpLUzMzPQiIThtJYsiyTbwRb8
xJZTWOMX4+sJrb8krfp9LeWemq3o8dCHnD02arcJSj07oo68uHcV51H/AJSb5WWjb0lSpxgtxJchsMax
mAAAAAOJeIDI3lup/I2kP71JozutVeQex+WnZubOVLO0vdVr9qRgDU2O7LlX3c8Kis7zcMj6erSkl/hR
kGW+f1VaklPumQA/jI1BZtm97kosZs2YkWWa4bR/YsvJJ5tJd0iSsiIAZFhKsFR8kUBS1brNSU5T3dum
pyEGlsv+8JIAkUAGP3XWyty2q7Xd0nFUuE9IabPkU4lJ9Gk/cNWhACLuXKkTpUmbMeVIly3VvSX17VLc
WZqUo/dMzAG5sDWdHum8TmVFgpFMtxopjrKy1Q4+pW6whRc5aka9Ofd0PYAOxblyVZNnz26ZcVbKnznm
EyEMFHkPH0alKSSjNlpZFqaT2GeoA1be1/YSv2kIo1aut9php9EliRFhy0PIWgjT3qlxHC0MlGR7ABr+
FTuGKKlon69OqRt676pKKik3NdffdBHaLZr9joAOrrYgUSmUClRLcZNihEwl6mNmp1R9E/q6R6vmbm3f
10VtLkAHugAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAA/hxxDSFuurS222k1OOKMiSlJFqZmZ7CIiAHPFU4uOGSkKlpl5xt
B04TZuPeBVJqcRkSN/Rs4puk4en2KNT173TXYOnHUt7LNRnyNdJpPWVsv/ZHlRy2xibgE40ardMnH5N/
K2mtolXFV7YjT7dkpOatekk402I1FfWpaVGtfQLPeMt8++LXsO81tqiMVU/S8yk1NZNzI21wYryHOVvq
/WLk4Z1naxi8u7mwfIzUt39Ujbz34WwcxVGm7pq0g3BTWZ2+RrLdLwiK7E3N1Guv4JW8envSG9Q22qL/
AG0k+BtdOPSatXZiD/RNrhWPRgRW53wLffDtezdi3+VPdqUmntVSnVGlPrkQ5UR5bjRONLcbZcLRxpaT
JaEmRlyaGRnMtW6ypX9L5lLHDHBp50+cjd7Y1LSfUnhjhjkzGJ4vyHX8U3/auQLamPQ6pbNQZll0K9zp
2UqLpo6+UjQ83vIURloZGM17awuqMqU1ka5HuPiMdrcSt6sZx3HzbqLgwo4tA4X6xe+zsrhduyGw+TE+
+50G2oR8pml9w5MlJF91GjOpP6vd0Eh2XtvnX0G80cZcmbnaORryt8q1lvyycufmxK0gtor47mwv1fua
s5Y7ouTLXrtoUegXAuUmmxq3LqDEtSYkhyMtw0R6fIRum40rdPf26CO3+01tZ1nRmpNrDHBLDKsd1o7N
rqOvc01Ui4pPfxx6DafZRcRHzzxz/qNX80DT8Z2fZqckfiNjw1c9qHK9Bsix+qVut9+M7krLFJpkdK1H
LgWzEfnLWgjLdJEmYUQkGZamZmyrTuK11LTudtYLFUabflk8OZY9Js0dmZf+yfEl53oJW8JYBxlw/W0u
2scUQ4SJakuVmty19PUKg6gjJLkl/ROuhGe6lKUoTqe6ktTEMv8AWVe+n16rx3luLgRJLSzpWsOrTWHS
+E3ONE2irpx0X5+8DihyhNZkFIp9uTkW1Td33qE0htMZ9JHz6yUuq193ZsFv7OW3yLGmt2XpP/yzc2BX
muq/zbqW8snJn58TU2AsZs5izLjvGsqRIiU+66u3Hq0qHu+ENwmkqflqZNaVpJZMtr3TUlREe0yMi0G7
rO8dpbTrJYuKycOZc5q2NsrivGm8ib5s5NX2UXDv888jf6jSPNAgPjO87NPkl8RLPDVt2p8q0DsouHf5
55G/1GkeaA8Z3nZp8kviHhq27U+VaDubC+ILVwVjui40s12dKodEXKdam1Rxp2Y+5LkOSHFvLZaYQZkb
m6W6gu9Ii5tRHb++qXtZ1qmGLwzZsiw8p2bW2hbU1Thjgt82mNM2CELra75TIuLEuN48gtaVT51xVWOk
z2nNcTFiGouTVJRntOfvhYGxVthGpVe61FcWV9KIltNWywp8LfQvORD0umzKxUqdSKe0b8+qyWYcFguV
bz6ybbT9dSiITipNQi5PMliRaEHOSis7eBcNsi1oVj2ZadmU1KUQLTo8GjwySWhdHCYQwk9u3aSNdooy
vWdapKpLPJt8padKmqcFFZksOQ1BxP54ofD7ia4bwnTI6bkkxnYVjUZxRdJNqjiNGSS3yqQ0Zk46ZciS
5dTLXe1Tq6d9cRppZP8AJ70d38vKat/eRtaTm8+4t9lUd112Q66++6t595anHnnFGpa1qPVSlKPUzMzP
UzMXOkksEVq228WSx9VLjCpVPIV7ZbkNLaoVr0pVv0949N1+oT1NuuJSfKfQsN6q/wCYkQrbO8jGlCgs
7fWfAsnO+gk2zVu3OVXcSw43l/HCTuCuiYld3rQb8+U3EPFtKPIJyFjq34cF1hO0kTZ+s54zPum06yR9
zd7uos/Y+2+XaOo885PkWTpxIPtHX69wodlc7y9GBwRY1rS75vW0LLgGopt21qBR4qkp3jSudIQwlWnP
oa9RJbmsqFKdR/4pvkWJxKFL5tSMN9pcpcLplOiUem0+kwGuhg0uM1EhMl9g0wgm0J+slJEKNlJybbzs
tJLBYH3DyfTRnEzfn7s8BZYvNEhEWZTLdls0l5w+9KfNT4HD+r+HeRs5x0NVW31N3Tp7jkseBZXzGpfV
vk0Jz3k8OHc5ypeLrKyJseqTsXo6XlzJb6CV4XKg2zTF7u1Pg6DmTC3vuumj7C7m3mFfbbXGM6VLeTly
5F0Ml+zNHCM6m+0uTL5yZIQUlIAEIvW1X509exPjKNILdpsGZctWjFtM1S3CiQ1K7m6TD+hfdfUFgbFW
2EalZ+SK6X5iJbTV8sKa8rfQvOQ8JSpakoQk1rWZElJFqZmfIREJ23gRRLEt54VsdONcR43sMk7r1rW7
T4E0zLQ1Sm2E+ErMubedNSvrijr64+orzqdqTfOWjbUvk0ow3kkZPe8OTULMu6BCQbkydRZ8eI2nXVTr
sZxCCLTbtMyGGi0qkW99GWaxi+Apxi9yqSXvqkJlNbvLM0B11tNXlUakvwGTUROKjsSJCZCkp11Mkqda
10LZqQg220X8uk9zGXmw85KdmGutUW7gvOTkCvSXkG3WrZlp9buGy8J0WW3KVaKl168OjPe6GdKa6OFH
MyVsWhha3FEaeRxGh8osLYywcIzuJL9Xox4N18uC4mRDaS7UnGitzK/N+OAiIbbcdcQ00hTrrqiQ22gj
UpSlHoRERbTMzE4bwysi6WORFsPhdxpJxDgHGFhVCP4LV6VSCk16MZ7ym6hUHFzpbZq59x19SPrbNgpb
W92rq7qVVmbycCyLmRZer7f6ehCnupZeF5Xzm1L4uiFZFl3beVRWluBalGnVeYpWwujhMLfUXPykjQad
Ck61SMFnk0uVmzVqKnByeZLHkKeNQnzKrPm1SoyFS6hUpDsqdKX75155RrcWrTnUozMxekIKEVFZlkKs
lJybk87LBnVm44p8LhkqtWq0RuexlWtVNybGeSSm3afGT5L6BaT13kmtl7XX7bQVjtbdOV91Vk6iXL+r
HnRONn6Kja4v/JvR5iHriuwNN4esx3BZhNuLtico6tY09ZK0dpclauibNajUalsGRsrPXUzTvaFvEJzq
XWSv7ZT/AMlklw/nn5iLa0snaVnH/F5Vwb3Ec3byiSaCUZIUZGpOuwzLXQ9Pc1MdfA52J0hwg2J+8biT
xFbjjS3YbVeaq9SJKdU+DUhKqg4lZ8hJWUfcM/utC26Dka9ufp7KrLdwwX/lk8+J0dU0fm3UFvPHkylr
EU2WOAAAAAaYzRkYrIt/wKnPEm462lTdP3TLejtci5BlzacifuvqGAI+zM1GalGZmZ6mZ8pmANl2JlOt
49izY9EpNJfcqDiXJU2Y08t5RILRCN5t9st1OpmRacpmAMevK76hfFbcr1UixIs11ltlxENC0NqJotEq
MnFuHrps5eYAY9BmPU6dDqEY92RBfbkMK7i2lEtJ/wBpACVanTmanT4NSjHrHqEdqSwfLqh1BLT/AMDA
GBZgbcdxrdyWiNSihksyL7VDqFKP6xEYAjcAHYPC+9C8Au2OlSSqJyIrjqec2SSskGXdIlb39oA/TJeF
L1ve8KlX4lTo7UB9LLUBiQ9IS4htptKTJRIjrLarePYo+UAcv3bbEqz63IoM2fCqE2IlJylwFrcabWot
ejNTjbZ7xFpqRFs+rqAPNotOXWKxSqS3qTlTmMREGktTI3nEoIyL64AlVZZbjstMNJ3GmEJbaR3EpLQi
/sIAfoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAD/FJSpJpURKSotFJPaRkfKRkAK3HGRwX3rhS7bgvK0KDIrmH6vKenU+
o09o3PIqXTU6qJMabIzabZ2kh0y3DTukaiXqQtXUOv6V3TjTqSwqrJl/y8q3291ZyB621TO3m5wWMHly
f48Pk8px3j3I98YpueHeWPLkl2tckFKm2ajFNKt5tem+0604lbbratCM0OJUkzIj01Ih3rq0pXUHTqxU
o/jjXEcmhcVKE+vTeDO72etP4k2qccFyjWNJkmk0+WHKXNKTqfIrdRUEM6l/ytBG3sbZY49afBivhxO1
4kucM0eR6ThbJeTr4y9d1RvjIVeeuC4qkSULkuElDbTLepNsMMoJKGm0anolJEWpmZ6qMzORWdnStKap
0lhFfjF77ONc3NS4m5zeL/GY7J4KODi9Mw3rbd/3XR5NAxNbk2PU3qjNaNo60uOpLzUSGhwiNxpwyInH
SLcJO8SVb+wuDtBr6la0pUoNOpJNZP8AHcxfl3l5jr6n1VOtUVSawgnj63B5PKWPRVhOiFPra78352Jc
YxpCNI7M256xF11Xq6oocFZ9wvwckvd+sJ9sTbf7Kz8kV0v/AOJE9pq36KfC30LzkNAnpEy3ZgqyF43w
1jCxnv8A7u2rbp8Sonpu6yyYSqSZEe0tXlKPQUhrC4+ouKlTtSb4schaFrS+VRhDeSRtcaZsAAABj123
JT7OtW5btqrqWaZbFLmVWoOrVupSzDZW8szPm71BjJRpOrOMI520lxnipNQi5PMliU7qxVZtdq1UrdRc
6aoViW/Onvcm89IcU44r66lGYvSnTVOKisyWHIVbUm5ycnnbxMrxtky9cRXZCvnHtYRQbqpzT7MGrKiR
JptIktqad3W5jL7ZGpCjTru66Geh7Rhu7Old0/l1VjF7mLXQ0ZLe5qW8+vTeD4E+k6V7QvjB9b3xBb/m
0cnwxq7uvel8Rv8A3y87fNHQO0L4wfW98QW/5tDwxq7uvel8Q++Xnb5o6CWPq8Mu5rzbZWQr0y3eCrqh
Rq1Fo9rpOnU+ATC40c35qiODGj9J0hSWS7/Xd3e901UIVtRZW1nVhToR6uTF5W87wWdvefKSbUdzXuKc
p1ZY5cFkS4cyW+SHiMHcKu3HXfSr94o8oy25CX4FuTW7bpxJMjShNJaTHfSR8+shLqvri3tm7b5FjTW7
L0nx5ubArzXVb5t1LeWTk/PE5boFcqlsV2i3LRJCYlZt6fGqdIlqabfS1KiOpeZWbTyVtrJK0Ee6tJpP
kMjLYO1VpxqwcJZU00+BnNpzcJKUc6eK4jrOV1gXF5MjuxnswOobdLRamKLQ2HC269641T0LT9YyHEWz
Ork8fle9LSdN68vH/nzR0HMN5X1eeQ60/cd9XRVLtrkjUl1KqyXJLiUGZqJts3FGSEJM+9QnRKS2EREO
vb21K3j1KcVFeRYHOrV6laXWnJt+U6u4fOBLNObqjBnVSiSsd2B0qTqF11uOth11nXvigQ3CQ4+oy2Er
RLevKvXYOLrPaS2s4tRanPcSzcb3Ok6ljqStcPGS6sd95+JFinFuMLQw7YtCx7Y9P8AoFBZNDRrMlvyH
lnvPSZDhEW+66szUo9CLmIiSREVXXd3Uuqrq1HjJ/jBeRE5t6EKEFCCwSNgKUlKTUoySlJaqUewiIuUz
MaxmKiud71/eNmfKN7olFMi3Fc1Rk0yQn3pwunUiIRHzklhKCI/cF26st/p7WnTwwaiseHd5ysr+t86v
OefFvk3OY6M6uqylXhxT2ZKUklw7JhVG45yDSZ6kwwcVgyMuQ0yJTStT7g5W1Vx8qwku01Hz9CZvagpd
e7T7Kb83nLL4qcn4AEY/WoX0VAwTbtlMuJKXf9xsk+0Z98qFSkHJdNJc+j6o/ubfqCW7HW/zLt1NyEXy
vJ0YnA2jrdS3Ue0+jLoK+gs4gxZ34ArIcsjhZxwiQkkzbqRKuSVoWmqak8pcY+QjP/LJa2//AAFQ7SXH
zr+o1mXo+zkfPiWJqal8u0gt9Y8uXoOzBwjqAAVe+PC903zxS5PlMS0y6fbkpi3acaDI0tlS2EMSEEZc
ukonjP3TFvbN2/ybCnisHLGT43k5sCvdd1vmXct5ZOTPz4mvOFuylZC4iMP2ruk4xKuaHMntqSaiXEpq
jnyk6Fp75mOsteYbWubj5FlVn/2tccvRXOzX1ZS+bc04+XHky+YtjilyygAK/HHLwTXXYN23FljGdDkV
/G1wyXanWqdAQp6TQ5T6jckb7KCNRxTUZqStJaNke4rdIkqVZezu0FOtTjQrPCayJvNJbnH0kL1zqicJ
urSWMXla3U9HQR848yNeuKbqp164/uCTbdyUwzKPPj7qiUhWm+080slNutr075C0mk+chJ7q0pXVN06s
cYv8cRwbe4qUJqdN4M7ar3WecTVaoLlFiqtW25brZtruSl0x3w/vuVSfCpUhhKtOQyZLTm27RH6eyFlC
XWfWa3m1hzJPnOxPaK6lHBdVeVLLztrmOBHnq5dFaW9IdnXFcVfmauOuKdlzZsySvlMz33HXHFq91SjP
uiSpQpQyYRilwJJdCOI3KpLdbfG2yZXgb4CKzRK1R8y5zox0yXSnEzLJx7MQXTtyE6KanVBs9ejU2ffN
sq74lkSlkk0kk4HtFtJGpF0Ld4p/ql5l53yEs1PqVwaq1ll3F535kTMiCEpOFusXvz5E8L12QmZBR6hf
k6DbULnUpL7hyZSSL7qNGcSZ+73dBIdl7b519F7kcZcmbnaORryv8q1lvyycufmxK0otor4t1YHsX92m
GcY2ItBIk23bkCNUt1O4Sphspclq3ebeeUs9vdFIawuPqLipU7Um+Lc5i0LSj8mjCG8kjnbj04dyzrhy
XUqFB8IyFjknqxa3RkXSymCSRzoGu6Zn0raSWhJaauoQWuhnr1NnNafRXKUn6E8j8m8+LobNHXFj9VRy
fqjlXnXH04FZ4W2V6Sx9U7YnlPJeR8iPtLNi0qCxSISzT+D8Jq7/AEilErnUhqGotC5CXt5SEK20uerR
p0l/k8fZX58xJ9maONSdTeWHL/0J4BXJMQAAA8a4K9TrZo8+uVV4mYVPaNxw/slH9ihBc6lHoRF3QBGn
eF1VG87gn1+pK0dlq0YjkeqGGU7G2ke4kv7T1PlMAbYwhi2JekmbWrjirftyARsMxt9xopMlRbS321JV
utkep6GW0y5tSAHSX7isV/Nb/wDnTvGABpbOOLbVtO2afWrXpJ09aJ6Y9Q0fkPEpt1tZpUfTOLItFIIt
ndAHK4AkSwhWCq+NqBvL336YTtPfLXXd6BZ9GX/dGgAbQmw41Rhy4Exonok5lbEpk+RTbiTSpJ/VIwBH
ZkbF1dsGoPqWw5Nt5xesCtISZo3VH3qHtPeLLk28vMAMLt6461atTaq9BnLp89ojR0qdFEtCtN5C0qI0
qSehbDL/AIgDadU4gci1OD4E3Kh0o1J3HZsFg0PqI+U95xbhJP3UEQA0/wCB1KXHmVXweRIisOF4dUTS
pSEuOnsJbh7N5RnznqYA2ngmkHVsk0dZp32aQ2/UHy0/FoNCD+s4tIAkLAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
f4ZEZGRlqR7DIwBoG8eFbh0v1yc/c+HLZlTKkk0zqlEhpp8twzPU1nJgmw7v/d729ps10HSoa4vKGChV
kktzHFcjxRp1dX29XHrQTb3cMvKspq3s9OD71Q/H9wechu+J9Y977sfhNX7HZ9jnlpNm2bwocOFguQH7
Yw5bceZTCPwCozovlOU0o19JvlJnqkO75HyLNW8RbCMi2DSuNc3lfHr1ZYPOscFyLBGzR1db0sOrBYry
YvleU6DSlKUklJElKS0SkthERchEQ5pun+gDXt14jxRfdSarN8YxtO8quzHTEZqtcosGoyUR0KUtLKXp
LLiyQlS1GSSPQjMz5zG1RvrihHq06koreUmlzMwVbWlVeM4Rb8qTMda4dOHyO60+xgnHjL7K0uMvN2xS
UrQtJ6pUlRRiMjIy1IyGV60u2sHWn7UtJ4Vjbp4qnH2VoNyDQNoAAAAA8+q0ml12mz6LXKbFrNHqjC4t
TpM5lEiNJYdI0raeZdJSFoUR6GlRGRkPUJyhJSi2mszWdHmUVJNNYpmp/Zu4d/UJjn0WpHio3fut531T
2paTW+gtu7h7K0D2buHf1CY59FqR4qH3W876p7UtI+gtu7h7K0D2buHf1CY59FqR4qH3W876p7UtI+gt
u7h7K0D2buHf1CY59FqR4qH3W876p7UtI+gtu7h7K0Gx7YtG1LJpaaHZlsUm0aKl1b6aPRYTECKTrmm+
smY6G0bytC1PTUxq1q1StLrVJOT3223zmxTpwprqwSS3ksDIRiPZqGfw+4Eqk6ZU6nhGwKjUqi+5KqFQ
lW1S3n333lGtx11xcY1LWtRmalGepntMb0dZ3cUkqs0lmXWek1ZWNvJ4unFt/wDatB8vs3cO/qExz6LU
jxUffut531T2paT59Bbd3D2VoHs3cO/qExz6LUjxUPut531T2paR9Bbd3D2VoMvtrGGNbLRuWdjy2bTR
05ydyjUmHALpzSSTd0jtI7/dSRb3LoRDBWu61Z41JylwtvpM1OhTprCEUuBJGcjXMoAH8ONodQtp1CXG
3EmlxtREaVJMtDIyPYZGQA017N3Dv6hMc+i1I8VG/wDdbzvqntS0mp9Bbd3D2VoMrtLFWL7BmSahYuN7
WsqoTWfB5k6g0eFTXnmd4l9G45FZbUpO8RHoZ6alqMNe8r10lUnKSW+2+ky0ralSeMIqPAkugz0axmAA
wu78b47yF5O+X1hW5fHkjpvJPygpcSp+C+EbnTdB4U050fSdGje3dNd1OvIQ2KF3WoY/KnKOOfBtY8hh
q29Orh14qWG+k+kwv2buHf1CY59FqR4qM/3W876p7UtJi+gtu7h7K0G3afT4FJgQqVSoUemUumR2olNp
sRpLLEdhlJIaaaaQRJQhCSJKUpIiIi0IaUpOTbbxbNpJJYLMfWPJ9AA1DP4fcCVSdMqdTwjYFRqVRfcl
VCoSrapbz777yjW4664uMalrWozNSjPUz2mN6Os7uKSVWaSzLrPSasrG3k8XTi2/+1aD1Lawxh6zKszX
rPxRZtqV2MhbcetUehU+DLbQ6k0OJQ/HYQsiUkzIyI9pbB4rX9xWj1alSUlvOTa52eqdrRpvGEIp76SR
soahsAAABoC+uFbh2yS7Ok3fiG3p0+pbhz6tEjnTZzqkKSslKlwFR3zV3pEat/U096fe7B0rbXF5b4Kn
VkktzHFcjxRp19X29bHrwTb3cz5VlNW9npwfeqH4/uDzkN3xPrHvfdj8Jq/Y7Psc8tJ0HY2FcR40fdlW
Dja3bTnP69NUadT2GZSiMjTunIJPSbuhn3u9ptPZtMcu4vri4yVZykvK2zfo2tKj+iKXAjZw1DOABit2
WLZN/QY9MvqzqHelNhvlKiU+vU+NUWGnySpBOoblNuJSvdUZbxFroZlzjNQuKtB405OL302ugx1aMKqw
nFNeVY9JgrXDpw+R3Wn2ME48ZfZWlxl5u2KSlaFpPVKkqKMRkZGWpGQ2XrS7awdaftS0mFWNuniqcfZW
g3INA2gANOyOHbh+lyH5cvBePZUqU4p2TJdtilLcccWZqUtalRjNRqM9TM+Uby1pdxWCrTw9aWk1XY27
eLpxx9VaDNbSsGxbAiy4NiWXQbKhT3SfnQ6DTYtNaedSndJxxEVttKlEnZqZa6DXr3NWu8ak3JrfbfSZ
qVGFJYQioryLDoMtGEyAAAB8NQplNq8ZUKrU+NU4alEpUSW0h5o1J2kZocJRalzbAB4HyAsT5k0H/TYv
/lgDIYFOp9KitwaXBj02EzvG1DitIZaTvGalbqEESS1MzM9CAH2AD4qhTKbV4yoVVp8apw1mSlxJbSHm
jNJ6kZocIy1I+TYAMf8AkBYnzJoP+mxf/LAHuUyj0misLi0alxKTFccN1yNCYbYbU4ZEk1mltKSMzJJF
r7hAD0QB/DjbbqFtOoS424RpcbURGlRHsMjI9hkANdVLEGNaq4Tkq0obaiM1f5Q3YZanoW0oy2yPkAHy
xcKYwhuk81ajK1kRkSX5El9G37h15af+AAzCo2lbdVoTtsy6QwVBd3N6mRyOM2XRrStG70BtmnRSS5DL
+wAeXbGObMs2ZIn23RSp0ySz4O8/08h4zbNRKNJdM4si2pI9gAzYAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH/9kL
</value>
</data>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

View File

@@ -0,0 +1,43 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptAuswertung
Property von As String = ""
Property bis As String = ""
Property filname As String = ""
Property whatshallwedo As String = ""
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
If frmAuswertung.Jahresauswertung = True Then txtUeberschrift.Text = "Jahresauswertung"
If frmAuswertung.subrep = "subrptAuswertung" Then
Dim subrpt_Auswertung As New subrptAuswertung
subrpt_Auswertung.whatshallwedo = whatshallwedo
Me.subrpt.Report = subrpt_Auswertung
ElseIf frmAuswertung.subrep = "subrptEinzelauswertung" Then
txtUeberschrift.Text = "Einzelauswertung"
Dim subrpt_Einzelauswertung As New subrptEinzelauswertung
Me.subrpt.Report = subrpt_Einzelauswertung
End If
End Sub
Private Sub PageHeader_Format(sender As Object, e As EventArgs) Handles PageHeader.Format
'If frmAuswertung.chkJahresauswertung.Checked Then
' txtTitel.Text = frmAuswertung.filname & ", von: " & frmAuswertung.von.Substring(6) & " bis: " & frmAuswertung.bis.Substring(6)
'Else
' txtTitel.Text = frmAuswertung.filname & ", von: " & frmAuswertung.von & " bis: " & frmAuswertung.bis
'End If
txtTitel.Text = filname & ", von: " & von & " bis: " & bis
End Sub
Private Sub PageFooter_Format(sender As Object, e As EventArgs) Handles PageFooter.Format
If frmAuswertung.Info > "" Then
txtInfo.Text = "Das aktuelle Jahr " & frmAuswertung.Info & " ist NICHT vollständig!"
Else
txtInfo.Text = ""
End If
End Sub
End Class

View File

@@ -0,0 +1,165 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptAuswertungLandscape
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptAuswertungLandscape))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtTitel = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.subrpt = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.txtInfo = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTitel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture1, Me.txtTitel, Me.txtUeberschrift, Me.ReportInfo2})
Me.PageHeader.Height = 1.020702!
Me.PageHeader.Name = "PageHeader"
'
'Picture1
'
Me.Picture1.Height = 0.5905511!
Me.Picture1.HyperLink = Nothing
Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
Me.Picture1.Left = 0!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture1.Top = 0!
Me.Picture1.Width = 2.551969!
'
'txtTitel
'
Me.txtTitel.Height = 0.2!
Me.txtTitel.Left = 6.62441!
Me.txtTitel.Name = "txtTitel"
Me.txtTitel.Style = "font-size: 9.75pt; font-weight: bold; text-align: right"
Me.txtTitel.Text = "txtTitel"
Me.txtTitel.Top = 0.3905512!
Me.txtTitel.Width = 4.438583!
'
'txtUeberschrift
'
Me.txtUeberschrift.Height = 0.3937007!
Me.txtUeberschrift.Left = 0!
Me.txtUeberschrift.Name = "txtUeberschrift"
Me.txtUeberschrift.Style = "font-size: 18pt; font-weight: bold; text-align: center"
Me.txtUeberschrift.Text = "Auswertung Vorkosten / Rechnungen"
Me.txtUeberschrift.Top = 0.5905512!
Me.txtUeberschrift.Width = 11.06299!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.subrpt})
Me.Detail.Height = 0.7708333!
Me.Detail.Name = "Detail"
'
'subrpt
'
Me.subrpt.CloseBorder = False
Me.subrpt.Height = 0.6874016!
Me.subrpt.Left = 0!
Me.subrpt.Name = "subrpt"
Me.subrpt.Report = Nothing
Me.subrpt.ReportName = "subrpt"
Me.subrpt.Top = 0!
Me.subrpt.Width = 11.06299!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.txtInfo})
Me.PageFooter.Height = 0.1979167!
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount}"
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 7.104725!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "text-align: right"
Me.ReportInfo1.Top = 0!
Me.ReportInfo1.Width = 3.958268!
'
'txtInfo
'
Me.txtInfo.Height = 0.2!
Me.txtInfo.Left = 0!
Me.txtInfo.Name = "txtInfo"
Me.txtInfo.Text = "txtInfo"
Me.txtInfo.Top = 0!
Me.txtInfo.Width = 4.141734!
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "{RunDateTime:dd/MM/yyyy}"
Me.ReportInfo2.Height = 0.2!
Me.ReportInfo2.Left = 10.06299!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = ""
Me.ReportInfo2.Top = 0!
Me.ReportInfo2.Width = 1.0!
'
'rptAuswertungLandscape
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3149606!
Me.PageSettings.Margins.Left = 0.3149606!
Me.PageSettings.Margins.Right = 0.3149606!
Me.PageSettings.Margins.Top = 0.3149606!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 11.06299!
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTitel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents txtTitel As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtUeberschrift As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents subrpt As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents txtInfo As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
End Class

View File

@@ -0,0 +1,812 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Picture1.ImageData" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v
cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw
b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB
AQEBCQIAAAAAAAAAAAAAANueAADbngAAAQEBAQoPAgAAANueAAACANaeAAD/2P/gABBKRklGAAEBAQAA
AAAAAP/uAA5BZG9iZQBkAAAAAAH/2wBDAAICAgICAgICAgIDAgICAwQDAgIDBAUEBAQEBAUGBQUFBQUF
BgYHBwgHBwYJCQoKCQkMDAwMDAwMDAwMDAwMDAz/2wBDAQMDAwUEBQkGBgkNCwkLDQ8ODg4ODw8MDAwM
DA8PDAwMDAwMDwwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCADDBAQDAREAAhEBAxEB/8QA
HgABAAIDAQEBAQEAAAAAAAAAAAkKBgcIBQQDAgH/xABeEAAABQMBAwUJBxEGAggGAwAAAQIDBAUGBxEh
EggxQRMJGVEiFNQV1ZZXGGEylKUWVnZxgUJSYpIjU7R1teWmFzc4aJGxMySVNqFzcoJDk7PTVXfBomM0
RHSkJSf/xAAbAQEAAgMBAQAAAAAAAAAAAAAABgcDBAUCAf/EAEQRAAIBAgEFCwoGAgEEAwEAAAABAgME
ESEx0QUGQVFxgZGhsRJSUxZhwSJykqLSExQV8OEy4mM0QjOy8WKCQ8IjNST/2gAMAwEAAhEDEQA/AJ/A
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAABrHKuY8dYSt+LdWTa87blvzJqKezU0U+fPQUlxC3EIWUCPIUje
ShWhqIiPk11G3Z2Na8n1KKxlhjhil0tGvc3VO3j1qjwXA30YnPnaF8H3re+ILg82jqeGNY9170fiNH75
Z9vmloHaF8H3re+ILg82h4Y1j3XvR+IffLPt80tA7Qvg+9b3xBcHm0PDGse696PxD75Z9vmloHaF8H3r
e+ILg82h4Y1j3XvR+IffLPt80tB1haV2W9fVs0O8bTqbdZtu5IbU+jVRpK0JeYeLeSrccShaD5jStJKS
epKIjIyHFrUZ0ZuE1hJPBo6dOpGpFSi8U8qMhGI9gAAAAAAAAAAAABqnLOb8W4No9Nr2U7rbtWmViX4D
THTjS5jjz5NqcNKWYTL7uiUp1NW7ulsIz1UWu5Zavr3snGjHrNLF5Uulo1rm7pW0etUeCeTd8xoTtC+D
71vfEFwebR0/DGse696PxGl98s+3zS0DtC+D71vfEFwebQ8Max7r3o/EPvln2+aWgdoXwfet74guDzaH
hjWPde9H4h98s+3zS0H9t9YPwhPONss5aU666okNNIt64VKUpR6ElJFTdTMz5CHx7M6xSxdP3o/EfVru
zeRT5paDspl1L7TTyCWSHkJWgloU2oiUWpbyFkSkn3SMiMuccFrA6p+gAAAAAA5BrXHpwn29WKtQKxlb
wOr0OY/T6pE8hV1zopMZxTTqN9unqQrdWky1SZkfMeg7lPZu/qRU408U1ivSjmfGcueubSEnFzyp4PJL
QeZ2hfB963viC4PNo9+GNY9170fiPP3yz7fNLQO0L4PvW98QXB5tDwxrHuvej8Q++Wfb5paB2hfB963v
iC4PNoeGNY9170fiH3yz7fNLQO0L4PvW98QXB5tDwxrHuvej8Q++Wfb5paB2hfB963viC4PNoeGNY917
0fiH3yz7fNLQO0L4PvW98QXB5tDwxrHuvej8Q++Wfb5paB2hfB963viC4PNoeGNY9170fiH3yz7fNLQO
0L4PvW98QXB5tDwxrHuvej8Q++Wfb5paB2hfB963viC4PNoeGNY9170fiH3yz7fNLQO0L4PvW98QXB5t
DwxrHuvej8Q++Wfb5paB2hfB963viC4PNoeGNY9170fiH3yz7fNLQO0L4PvW98QXB5tDwxrHuvej8Q++
Wfb5paB2hfB963viC4PNoeGNY9170fiH3yz7fNLQO0L4PvW98QXB5tDwxrHuvej8Q++Wfb5paDtBJkoi
UR6kotSP3DHAOsf6AAAAAAAA0XlviVwpgqfR6XlS9PktOr8dyVSWPJ1SndK00skLVvQYshKdFGRaKMjH
RsdVXN6m6MOslnypdLRp3V/QtmlVlhjmyN9CNRdoXwfet74guDzaN7wxrHuvej8Rq/fLPt80tA7Qvg+9
b3xBcHm0PDGse696PxD75Z9vmloHaF8H3re+ILg82h4Y1j3XvR+IffLPt80tA7Qvg+9b3xBcHm0PDGse
696PxD75Z9vmloHaF8H3re+ILg82h4Y1j3XvR+IffLPt80tA7Qvg+9b3xBcHm0PDGse696PxD75Z9vml
oHaF8H3re+ILg82h4Y1j3XvR+IffLPt80tA7Qvg+9b3xBcHm0PDGse696PxD75Z9vmloHaF8H3re+ILg
82h4Y1j3XvR+IffLPt80tA7Qvg+9b3xBcHm0PDGse696PxD75Z9vmloP6R1hPB+tSUll4iNR6EaqDX0l
9czpxEQ+PZjWK/8AV70fiC15Zv8Az5paDIqdxxcKNU08GzRR2tdheFsTYf5THbGGez9/HPSlxYPoZmjr
W1lmqLoNo25n3B13vIi2zl6zq1MWWqIEatQlSDI//o9L0n/yjUq6uuaSxnTkl5Ys2Kd3RqPCM4vgaNtI
Wh1CXG1pcbWRKQtJkZGR8hkZco0jYP6AAAAAAAAAAAAAAAAAAAAAAAaFyzxO4MwbVqZQspX41bNYrEQ5
0CnJg1Ce6qOSzb6VZQI0jo0mpJknf03tD010MdKy1RdXsXKjDrJZM6XS0ad1rChbNKpLBvyN9CZqjtC+
D71vfEFwebRu+GNY9170fiNX75Z9vmloHaF8H3re+ILg82h4Y1j3XvR+IffLPt80tA7Qvg+9b3xBcHm0
PDGse696PxD75Z9vmloHaF8H3re+ILg82h4Y1j3XvR+IffLPt80tB79rccvCxelx0S0rcys1Mr9xTGqf
Rob1JrERD0l9RIaa6eVBaaSa1GSS3llqZkXKYxVtnr+jBznT9FLF5YvJwJ4mSlri1qyUIzyvNka6UdZD
inSAAAAAAAAAAAAAAAAAAAAAA1/fOV8Z4zjpk5Av2hWehwtWG6pOZjuu7DPRplaiccPQuRKTGzb2da4e
FKDlwJsw1binRWM5JcLwORbo6yrhZt1T6KfcNbvJ1g1JNFEpL5EpSeZC55w0H7hkrT3R26Oyl/UzxUeF
rzYnMqa+tIY4Sb4E/PgjS9S62nFjRr8j4suuckv8M5j8GIZ/VJtyRp/xG/HYq43aked+ZGo9pqG5GXNp
MLk9bvAQavA8ByHy1703rmS1qXu7tLc0GxHYiW7WXs/uRiltPHcpvl/Jnydr1/T1+1n6mHrwP/P7n7jx
4o/i979o7Xr+nr9rP1MHgf8An9z9w8Ufxe9+0dr1/T1+1n6mDwP/AD+5+4eKP4ve/aO16/p6/az9TB4H
/n9z9w8Ufxe9+0dr1/T1+1n6mDwP/P7n7h4o/i979p9DHW8RFaeE4Bea77b0Vzpc73u7aUjb7g+PYh7l
b3f3HqO08d2nz/kZLC626w1mnyhh6vxSP3xx6jFf0+pvts6jBLYqtuVI8j/MyraajuwlzGwaH1qnD1UX
kMVe271t4lcst6DDkMJ+qceatz+xsa1TY68isYuEuN+deczQ2jtpPBqS4tDZ1Bjzi+4cMoPR4Vq5Wo5V
SUro2KNVVOUmW45y7jbU9DBun/y94ci61JeWyxnTeG+vSXKsTo0NZW1fJCax3sz5GdJEZGRGR6kfIY5R
vH+gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANa5gxjQsyY1u/G1xJIqfdEBcduXukpcWSnRyNKbI/smX
kpWXd005DG1ZXc7StGrDPF8u+uNZDBc28a9OVOWZr8chUtvWz69j+7bjsm54hwa/a1QfptVjbd0nWFmg
1IMyLeQvTeQrTvkmRlsMXXb3ELinGpB4xksUVnWoyozcJZ08DGBmMQAAATWdVlnvpote4fLhmfhInTV7
HpuK5WlK3qhCRye9UfhCS5T3nT5CFf7Y6twkrqKz5JeZ+biRL9nL3GLoS3Mq4N1efjJlxBCUgAAAAAAA
AAAAf4pSUpNSjJKUlqpR7CIi5zAFYjjk4gjz3miou0eZ4RYVi9LRLLJCtWn0oX/mpydNh+EuJ1SfO2lv
nIW5s5qz6K2XWXpzyy8y4unEr7XV99TXyfpjkXnfGcaDvnIAAACRPq48AfvVzAm/69B6aysULZqKidTq
1KrKjM4DG0tFE0aTfXoew0oIy0WIrtXrP6a3+VF+nPJwR3eXNyne1BZfOrfMkvRj/wAtzkz8hYwFXE6A
AAAAAAqD5o/jDlj6ZV39IPi79Xf1qXqR6EVhe/76nrPpZrQbhrAAAAAAAAAAAAAAAAAAAAAAXPmf8Fr/
AKCf7hQjLYP1AAAAAAAAQX9bb/v3D/5gqP5UgWHsT/rq8K6GRDaf9VPgfmIjBOCLAAAAAAAAAAAAAAAA
AAAAG0sf5uy7ix9h7H2Ra9a7cdRrTT4kxw4SjPafSQ3DXHc27dFtmNK61dbXP+2nGXlwy8ufnNqhe16H
6JtdHJmJYOG7rPfKtRptn8QsGJTVTFojxMlU1voY6Vq2JOpRS1JtJnyutaJTztpTqooXrXZBwTqWrbw/
xef/AMXu8D5STWG0Km1CusP+5ZuPe4SYxh9iUwzKivNyY0ltLseQ0olocQst5K0KTqRkZHqRkIM1hkZK
D9R8AAAAAAAAAAAAAAAAAHg3RctFsy267dtxzUU6g23BfqNXnL5G48ZBuOK05z0LYRbTPYQyUqUqs1CK
xbeC4zxOahFylkSylTfO2XK1nLKl25KrZraVXZZlSKcpW8UKnM/g4kZO0y/BtEW8ZbFL3lcqjF06tsY2
VvGlHcWV773X+NwrW+unc1pVHu5vItz8b5qIbxqAAAAAH7MPvxX2ZUV5yNJjOJdjyGlGhxtxB7yVoUnQ
yMjLUjIfGk1g8x9TaeKLTvCDnhjiBwrb11Sn0Ku6jkVGvqMnQjTUoqE6vbvMmQg0vFpsLeNP2JinNd6u
djcypr9Lyx4HozFkatvFdUFPdzPh/GU6gHIN8AAAAAAAAAAAAAAAADHbsuy3LFtysXddtXj0G3KDHVKq
tVlK3W2m0/U1NRmZkSUpIzUZkREZmRDJRozrTUILGTzI8VKkacXKTwSIGuI/rKMjX9NqFt4XdfxxZKFK
ZTcCNCrtQRtLpOl2lESfKlLX4QuU3Nu6Vj6q2To0Up3Hpz3v8V8XR5CG3+0FSo3Gj6Md/dejpI0alU6l
WZ0qqVeoSarU5qzdm1GY6t995Z8qnHXDUpR+6ZiXQhGCUYpJLcRHpTlN4yeLPhHo8gAAAAAAAAAAAAAA
AAAB23wz8ceUsB1Km0erVCVfWMCWhqfaM943XojGwjXTH3DM2VILaTZn0StpGSTPfTHtbbO0L2LlFKFT
fWZ+svPn4cx2dX65q2zSk+tDe3VwaMxY5sK+7XyZaFBvqzKo3WLauOKmVTZqNh6HqSm3EHtQ42ojQtB7
UqIyPaQqu4t529R06iwknlJ3RqxqwU4PFMy8YTIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABCn1peAegk
0TiEt2Fo3LNmhZDJpPI6RbtPmr0L7JJdAtR9xoucT7Y7Wee1m/LH/wCS8/KRTaOyzV48EvM/NyENAnpE
gAAAzPHl9V7GV8Wtf9sSPB65adRZqEBRme4s2z79pzTaaHUGpCy50qMhr3dtC5pSpTzSWH44M5mt68qF
SNSOdMtq4xyFQMrWBamRLZe6WjXZT2psZBqJS2Vq716O5ps32XEqbWXMpJilLu2nbVZUp54vD8cJZtCt
GtBTjmaM7GuZQAAAAAAAAACPnrEeIT90GIHLLt+cce+sqNv0yEtpRk7DpRESZ8ojSeqTUlZMoPYeqzUn
agxJdmNWfV3PXkvQhlfle4vO+DynF15ffT0erF+lLIuDdZXCFrEBAAAD7abTZ9YqNPpFLiOT6nVZLUOn
QWU7zjz76ybabQkuVSlKIiLujzOahFyk8Eliz1CLm1FZ2WtuGLCUDAGHLWsBlDS60hryheFQbIv8zVpS
Uqkr3iIt5LehNIM/sEJFMa21hK+uZVXmzJb0Vm0vyllWForWjGms+75XunQA5puAAAAAAAVB80fxhyx9
Mq7+kHxd+rv61L1I9CKwvf8AfU9Z9LNaDcNYAAAAAAAAAAAAAAAAAAAAAC58z/gtf9BP9woRlsH6gAAA
AAAAIL+tt/37h/8AMFR/KkCw9if9dXhXQyIbT/qp8D8xEYJwRYAAAAAAAAAAAAAAAAAAAAAAAJ3uq/4g
5t22xWsGXRPVLqlixiqNkvvLNTi6OpZNvRdT2mUV1aNzuIcJJaJQQrfa/VipVFcQWSeSXrb/AB9K8pNN
nr51IOjJ5Y5vV/IllEMJIAAAAAAAAAAAAAAAABDt1pHEF5PplH4e7bm6S6wlmtZDW0raiIhW9BhK0L/t
Vp6ZZakZElvmWJzsfqzrSd1NZFkjw7r4s3G94i+0V91YqhHO8r4Nxcf4zkIosIh4AAAAAAAAd0cAWf8A
9yea4NIrU3wexMmGzQ7j31aNRpRrMqfNPZs6N1ZtqMzIiQ4tR+9IRzabVn1ds5RXpwyryr/JefhR2tR3
v09fqv8ATLJx7j83GWWxU5PgAAAAAAAAAAAAAAAAIAest4jZt75DVhK26gpFm48eSdzJZV3k+uGnVZOa
cqYiVdGRfjDc110TpZWyWqlSpfUTXpSzeSP59GBC9oL9zqfJi/Rjn8r/AC6SLoTEjYAAAAAAAAAAAAAA
AAAAAAAAAS59Vfm2ZS7wuPBdYmqXR7njO1y0GXF7GalESRy2WiP8fHLpDIuTotfsjEH2y1epU43MVlWS
XA8z4nk4yU7N3jUnReZ5V59JOgK8JeAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABh2QbGoOS7JuiwbnjeF
UK66e9T6ggtN5KXU9662Z8i21aLQfMoiMZ7a4nb1I1IZ4vFGOtSjVg4SzNYFSvKOO69iXIV245uZvcrF
p1ByE+6RbqH2y0WxIbLU+8faUlxOv2Ki1F1WV3C6oxqwzSWOlcTyFZXVvK3qypyzp/h8ZgI2jAAAAEw3
Va598nViucP1xTtIdbN2uY/U6rYmY2jWdDRvH/2raemSki0I0OHyqEE2x1ZjFXUFmyS4Nx+bkJXs5e4N
0JcMfOvPyk3or8loAAAAAAAAedV6tTaBSqnXKzNap1Io0V6dVKg+rdaYjx0G464tR8iUpSZmPUIOclGK
xbyI+Skopt5kVSuJnN1S4gMw3RkGUbrVIdcKn2hTXOWJSYqlFGbMuZS9VOr+7WrTZoLm1Rq9WNtGlu55
eWTz6OBFbaxvHdVnPczLg/GU0EOmaIAAASldWLgH5bZCqGabhhdJbWNl+D20lxOqJFdeRqSy27fBGVb+
0vfrbUR96Yhu1+s/lUlbxfpTyv1fzfMnvkk2dsuvUdaWaObh/JdJPyK2JoAAAAAAAAFQfNH8YcsfTKu/
pB8Xfq7+tS9SPQisL3/fU9Z9LNaDcNYAAAAAAAAAAAAAAAAAAAAAC58z/gtf9BP9woRlsH6gAAAAAAAI
L+tt/wB+4f8AzBUfypAsPYn/AF1eFdDIhtP+qnwPzERgnBFgAAAAAAAAAAAAAAAAAAAAAAA6n4Kb4dsL
iexHUykKYi1msot6opI+9carKTgpJf3KXHUL9w0kfMOLtDb/AD7Got1LrL/xy9GJ09T1vlXUHuN4cuTp
wLTgp4sUAAAAAAAAAAAAAAA19lXJFv4ix5dmR7nd6OkWrAcluMkokrkPbEMRmzVs333VJbR7qiGzZ2s7
qtGlDPJ4fnxZzDcV40KbqSzJFS/Id9V/Jt73Rf8AdEnwqu3XUHahPWWu4g3D7xpsj10Q0gkoQXMlJELq
tLaFtSjShmisPxw5ys7ivKvUlUlnbMNGwYQAAAAAAAAACzXwH8QBZzwpTo9Zm+E35jwmqHdhLVq6+hCP
8lOVzn07SdFKPlcQ4Kj2i1Z9Fcvqr0JZY+dcT5sCw9T3v1VBY/qjkenjO2BwDqgAAAAAAAAAAAABhuRb
wiY+sG9b6nESoln0OfWHmz+zKFHW8SC051GndL6oz21B16saazyaXKzHWqKlCU3mSb5Cn/WKtUK/V6pX
avJVNqtamPz6nMX752RJcU664rTnUtRmYvGnTjTioxyJLBcCKtnNzk5PO3iecPZ5AAAAAPSpdHq9clFB
otKmViaotUw4TDkh0y7pIbSpX/AeKlSFNYyaS8rwPcKcpvCKbfkNjRcC5znJJcLDF9zEKLVKmLdqbhGX
uGmOY1HrO0WerD2lpM6sbh/+uXsvQfZ7OvEF6ish+jFW8WHz7rZ99D2o6T79Bcd3L2XoHs68QXqKyH6M
VbxYPutn30PajpH0Fx3cvZegezrxBeorIfoxVvFg+62ffQ9qOkfQXHdy9l6D4pWBs5QUmubhm+oaU++U
/btTbIvqmqOQ+rWdo81WHtLSfHY3C/8AXL2XoNdVSjVehyThVqlTKPMItTiTWHI7pFya7jiUn/wG3Tqw
qLGLTXkeJgnTlB4STT8p5o9ngAAAAA3rwxXVIsviFw1cMde54PdtMiyla6f5Wc+mHJL67LyyHN1xRVaz
qxfZb41lXOje1bVdO5pyXaS5cnnLZwpYsoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIg+tIwD5XoFFz
9bsLeqFtE1Rr8S0na5T3XNIctWn4l5ZtKPTUycTzIE32P1n1Ju2k8ksseHdXGujykZ2isuvBVo545Hwf
kQcCxCGgAABkVo3VW7Gui37xtqYqn162KhHqVJlp17x+OsnEbxEZbyTMtFJ5DLUj2GMNehCvTlTmsYyW
DMlGrKlNTjnTxLaOF8pUTNOMbQyVQTSiJc0FD0qESt5USY2Ztyoqz7rLyVI15yLXkMUrfWcrSvKlLPF8
q3Hxos21uI3FKNSOZo2gNQzgAAAAAARN9Z/xCfJe0abge2p3R12920VC9XGVGS2KO25+BjmaTIyOU6jU
y/FoMjLRwTPZDVnzaruZr0Y5I+tv8S52t4je0N98umqMXlln4Pz6MSCAWQQsAAAPfta2a1ely0G0rchL
qNeuSexTaRCRyuSJLhNoIz5i1PaZ7CLaewYq9aNGnKpN4KKxZkpUpVZqEc7eBbLwdiai4QxZaGNaJuuN
W9DSmpT0p3TmT3T6SXJVrt/COqUZEfvU6J5CIUrrC9leV5VZbr5FuLiRZlpbRt6Uacdxf9TbI0zYAAAA
AAAACoPmj+MOWPplXf0g+Lv1d/WpepHoRWF7/vqes+lmtBuGsAAAFkbq1W21cKttGptKj8t1raZEf/5S
hVG1f9+XBHoJ/qH+pHhfSzvjoWfxSPvSEbxOyOhZ/FI+9IMQOhZ/FI+9IMQOhZ/FI+9IMQOhZ/FI+9IM
QOhZ/FI+9IMQOhZ/FI+9IMQOhZ/FI+9IMQOhZ/FI+9IMQOhZ/FI+9IMQfqAAAAAAAAACC/rbf9+4f/MF
R/KkCw9if9dXhXQyIbT/AKqfA/MRGCcEWAAACQDq3LKs6/OICq0W+LUpF40duzqjKbpVbhMT4yX25cFK
HSakIWglpStRErTUiM+6IxtZcVKFopU5OL66yptPM947moKMKtw1OKa6rzrHdROt7NPDp6hseejNL8XF
d/drzvp+1LSTH7fbd3H2VoHs08OnqGx56M0vxcPu1530/alpH2+27uPsrQPZp4dPUNjz0Zpfi4fdrzvp
+1LSPt9t3cfZWgezTw6eobHnozS/Fw+7XnfT9qWkfb7bu4+ytA9mnh09Q2PPRml+Lh92vO+n7UtI+323
dx9laB7NPDp6hseejNL8XD7ted9P2paR9vtu7j7K0Hn1PhW4a6tFdhysFWO0y6k0qXCosOE6RH9q9Fba
cSfukoh6jri9i8VWn7TfSfHq62f/AK48iIX+PDgvouAE0jIuNFSjx1X5vk2o0OU4uQ5SZy0KcZJD6tVr
YdShREbhmpKi0NSt9Ok92b1/K+xpVsOulinm6y4N9eTc4CJ661TG2SqU/wBLyNb35cJGyJYR8AAAMtsG
pKot92VWEHouk16mzEHrptYlNuFt/wCqNe7h16M478WuYz2surVg96S6S4sKMLRAAAAAAAAAAAAAAAIK
etC4gvlFdNKwJbc41Uez1t1S+VtKPdeqrresaKoyPQyjsr31Fyb69D75sWJsfqzqQdzNZZZI8G6+N5OL
ykP2ivutJUI5llfDuLz8hEkJuRcAAAOpOD7Az3EDmu3rXlx1rs+iGVavqQRGSSp0ZadY+8XIqS4aWi26
6KUovemONr3WX0NrKS/W8keF7vFnOnqmy+qrpP8ASsr0cZuzrFeHZnEGVmr5telog2Dk7pJUePGbJEeD
V2iLwyMlKEklCXdSeQX3S0pLRA5+yutPqqHypvGcOeO4+LNyG3r6x+RV+ZFejLme7y5+UjvEpOCAAAHV
/BpntzAGbKDX6hKU1ZVyGmh30zqe4mFIWW5KNOum9FcJLmuhnuEtJe+HE1/q3661cUvTjljw73GufA6m
qL36Wum/0vI9PF0YlpFtxt5tt5lxLrTqSW06gyUlSVFqRkZbDIyFP5ixD+wAAAAAAAAAAAAHGXWBXA/b
/CblJyK50ciroplKQr7iZUYyHy+uzvkO7s1SVTWFNPcxfIm1znL11UcLSbXkXK0isSLeK7AAAAAJueB3
gPsWqWLQcw5ooaboqV0tJqFpWfMM/AI1PXtYkymUmRPrfSe+lC9UEg06pNR97Xu0O0dVVZULd9VRyNrO
3u4PcwzZCY6n1NT+WqtVYt5UnmS8+JLnRLfoNtQWqXblEgUCmMJJLNOpsZqKwgkloRJbZSlJERdwhCZ1
JVHjJtvy5SSxiorBLBHrjwegAAAAAAPHrdvUC5oD1KuSiQLgpkhJofp1SjNSmFpUWhkpt5KkmRl3SHuF
SVN4xbT8mQ8yipLBrFEHfWGcHNpYvpMLM2KKSVCtyTObp952rH18EhuydfB5kVKjPo21rLo1tl3pKUjc
IiNQsLZfXtS4k7es8XhjF7rwzp7+/jwkR17qqFKPzqSwW6tzhXQRMCbEXAAADILSlrgXVbM5szS5CqsJ
9tRcpKbfQojLk7gw3MetSkt9PoM1u8KsX5V0lyMUUWkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHhXP
bdGvG3K7alxQkVGhXHBfptXgr967Hktm24n3D3VbD5j2jJSqypTU4vBp4riPM4KcXGWVPIVNM6YlrOD8
qXfjWtEtxdvzFFS6gpJpKZT3vwkSSnYRfhGlJNWmxKt5PKkxdOrb6N7bxqx3VlW891fjcK0vbV21aVN7
mbyrc/G+akG8agAAASwdV7nz5L3rVsGXBN3KJfalVKzzcV3jNYYb/DMp12EUlhGu0/ftpItqxCtsNW/M
pq5issckvV3HxPp8hJ9nb3qydGWZ5Vw7q4yeMVyTEAAAAAwzIl92/jGx7ov+6ZPgtBtSA7PnrLTeWTZa
IabI+VbqzShBc6lEQz21vO4qxpwWWTwRjrVY0oOcsyWJUwyrki4MvZDuvI9zu79XuqeuW4ySt5EdnYiP
GbMyLvGGkpbT7idu0XVZWkLSjGlDNFcu++N5Ss7q4lcVZVJZ3+MDXw2jXAAACYLqtsAeU61WuIG44OsK
gm7RcfpdTsXNcRuzpiNS/wCybV0KFEehmtwuVAgu2Os+rFWsHnyy4NxefkJVs5Y4t15LyR8783KTgivi
XAAAAAAAAAAFQfNH8YcsfTKu/pB8Xfq7+tS9SPQisL3/AH1PWfSzWg3DWAAACyT1af8AKpbX57rX5UoV
PtX/APoS4I9BYGof6keF9LO+hHDsAAAAAAAAAAAAAAAAAAAAAAAAAEF/W2/79w/+YKj+VIFh7E/66vCu
hkQ2n/VT4H5iIwTgiwAAASTdVj/MnWPoNVPy2niJ7Zf0o+uuiRINm/7L9V9KLDorAnAAAAAAAAAABxX1
hkKNL4RcqOSN0lQVUSRFcV9i6Vagtlp7qkrNP1x39mJNawp4f93/ABZytdpOznxdKKyAtwrwAAAPWoMd
yXXaLEa16WTPjNN7vLvLdSktPd1MY6zwhJ+RmSisZxXlRctFEFqAAAAAAAAAAAAABo/iMzPSsB4iuvI1
Q6N6dAY8FtmmOHp4ZVZJGiIxoW0073fr02khKj5h0NV2Er24jSW7ne8t1/jdNS9ulbUZVHuZvK9wqgVu
tVW5KzVrhrk1ypVquzH6hVqg8erj8mS4brritNC1UtRmYuilTjTioRWCSwXAitak5Tk5SeLeVnlj2eAA
AAst8AWAP3J4VhVetwfBr7yYTNbuPpE6PRopoPyfCVqRKLomlmtST2k44suYhUu0ms/rLlqL9CGRed8b
5kiwdTWP01BY/qllfmXF04m8eJPClMz9iC6seTCaaqcpnw21Kk4X/wBpVoxGqK7ryklRmba9NvRrUXOO
fqq/lY3EaqzLOt+O7+N83L60V1RlTe7m8j3CqJWKRUqBVqpQqzDcp1Yost6BVae8WjjEmM4bTrSy7qFp
MjFz06kakVKLxTWK4GVpODhJxlnWRnnD2eQAAAsX9XFn/wDeriEsf16b016YoQzT1KcVq5KoyyMoD+3l
NokmwrTXTdQpR6rFV7U6s+lufmRXoTy8Et1efj8hPdRXv1FHqy/VHJxbj8xIoIwdsAAAAAAAAAAACPjr
Nnja4W6mguSRclHbV9QnFr/vSJLsmv8A++PA+g42v/6kuFdJXDFrEAAAADIbRoLl1XXbFrsrNt25KtCp
bThFqaVTH0MEZF7hrGG4q/Kpyn2U3yLEy0afzKkYb7S5WXFabT4dIp0ClU9lMaBTIzUSDHQWiW2WUE22
gi7hJIiFFyk5Nt52WklgsEfaPh9AAAAAAAAAAND8TeL6pmbBeQcbUMonlu5IkdNIVOcU1HTJjS2JTalu
JQs0kRtcpJMdHVN4rS6hVljhF5cN7DA1L+3dxQlTWdrnIVey14lv/UbK/wBUleJCf+MbLenyLSRLw3c7
8eV6B2WvEt/6jZX+qSvEg8Y2W9PkWkeG7nfjyvQOy14lv/UbK/1SV4kHjGy3p8i0jw3c78eV6D76T1Xv
EhEqlNlSKjZng8aUy6/uVOSatxCyUrdI4RanoWwY6m2FnKLSU8Wt5aT3T2duIyTbjke+9BYTFZk1AAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIs+s6wD8tcfU/NVvQekuTG6PBrmJpOrkihPL131aEZq8EeVvl
zEhbqj5BMNkdZ/JrOhJ+jPN5Jfnm4cCPbQWXzaXzY/qjn9X8s/KQECyyEAAAB6lDrVUtutUm4aHNcpta
oUxioUmoNaEtiTGcS604nXUtUrSRlqPFSnGpFwksU1g+BnunNwkpRyNPFFsXh6zFS874jtDJFO6NmTVo
pM3BTmzM/A6pH/BzGNuh6E4Rmgz5UGlXOKW1nYysriVJ7jyeVbj5Cy7K6VzRjUW707puoaBtAAABB71o
vEJ5VrNK4fLZnawKCpqr5CcaVscmrTvQoSjI9pMtq6ZZGWm8pv7JAsHY/VfVi7qayvJHg3X5uUiO0d9i
1Qjwy8y8/IQ/CdEVAAADN8b2DX8pX5auPbYY6euXZUGoEPUjNDZLPV15zTkQy2SnFnzJSZjWu7qFrRlV
nmisfy48xntqEq9SNOOdstp4zx9QMVWFauPLYZ6Gi2pT2oMVRkRLdUktXX3NNhrecNTiz51KMUrdXM7m
rKrPPJ4/jgLMoUY0YKEcyWBnI1zKAAAAAAAAAAVB80fxhyx9Mq7+kHxd+rv61L1I9CKwvf8AfU9Z9LNa
DcNYAAAOksacXfEPh+1I1kY6yF8nbYhvvSY1M8k0mXuuyF77qullw3nT3lHroatC5hybvUdndVHUqwxk
93GSzcDR0LfWlzQgoQlgl5F50Z/2hfGD63viC3/No1vDGru696XxGb75edvmjoHaF8YPre+ILf8ANoeG
NXd170viH3y87fNHQO0L4wfW98QW/wCbQ8Mau7r3pfEPvl52+aOgdoXxg+t74gt/zaHhjV3de9L4h98v
O3zR0DtC+MH1vfEFv+bQ8Mau7r3pfEPvl52+aOgdoXxg+t74gt/zaHhjV3de9L4h98vO3zR0DtC+MH1v
fEFv+bQ8Mau7r3pfEPvl52+aOgdoXxg+t74gt/zaHhjV3de9L4h98vO3zR0DtC+MH1vfEFv+bQ8Mau7r
3pfEPvl52+aOgmA6vfM+S844iuy6Mo3J8qK7TLvk0uFO8DhwtyI3Agvpb6OEwwg9FvLPU0mrbproRCDb
T2FCzuIwox6qcU87eXFrdb3iU6ju6tzRcqjxalhmS3FvHeQjh2QAAAAAAAAgv623/fuH/wAwVH8qQLD2
J/11eFdDIhtP+qnwPzERgnBFgAAAkm6rH+ZOsfQaqfltPET2y/pR9ddEiQbN/wBl+q+lFh0VgTgAAAAA
AAAAAjx6za9afbvDPPth99JVLINbptOp8XUt9TcGQiovOafao8GSkz7qk90SfZKhKpfKazQTb411fOcT
aCqoWri88mlz4+YrlC1CBAAABt3AFuP3dnHEVuR2TfOqXfR230Ft0YTMaW+s/cQ0lSj9whoa0qqlaVZP
ci+jJzm3YU3O4ppdpdOUtzCkyzQAAAAAAAAAAAAArtdZFxBfvRywnGtvzumsvFLjsR9TStWpdcV3sx3Y
eiij6dAnUtiid02KFobKas+nofOkvSnzR3OXPyEH1/ffOq/Kj+mP/L8s3KRwiVkfAAADtfgPwD+/PNtO
drMLwmxMedFXbtJadWn1oX/koSu707qTNRHytocIR7aTWX0dq1F+nPIvO+Jc7R2NSWX1FfF/pjlfmX43
izYKlLAAAge60Dh9+S940zO1uQtyh3ytFOvNDSe9YrDTf4GQemwilMo0PZ79szPvlixtkNZ/Mpu2m8sc
sfV3VxPmfkIdtFY9WSrxzPI+HcfGROiakYAAADfvDLmyfgDMdq5BYU45R2nfJ93wG9pyqRKUlMlGnOpG
iXUF9uhPMOZrjV6vraVLdzx9ZZtHGb2rbx2tdT3Mz4H+MS1xS6nT61TafWaTLaqFLq0ZqZTZ7Kt5t+O+
gnGnEKLlSpKiMjFMyi4txawaLJTTWKzH3DyfQAAAAAAAAACPLrO/5X5f0opH97wk2yX99eqzi6//AKku
FdJXJFqkBAAADcHD02l7PuDmVlql3IFsoUR7diqrGIxoa0yWlb1Jf8Wbdh/Yp+tHpRbjFJlmgAABg2Tr
0/dxji/MgeTfLPyJt+o13yR03g/hXk+M5I6Hptx3o9/c3d7cVpy6HyDYtKH1FaFLHDrSSx3sXgYbir8q
nKeGPVTfIiJftev6ev2s/Uwmvgf+f3P3EZ8Ufxe9+0dr1/T1+1n6mDwP/P7n7h4o/i979o7Xr+nr9rP1
MHgf+f3P3DxR/F737R2vX9PX7WfqYPA/8/ufuHij+L3v2jtev6ev2s/UweB/5/c/cPFH8XvftHa9f09f
tZ+pg8D/AM/ufuHij+L3v2jtev6ev2s/UweB/wCf3P3DxR/F737R2vX9PX7WfqYPA/8AP7n7h4o/i979
o7Xr+nr9rP1MHgf+f3P3DxR/F737SXexbm+Wlk2dePgXk35WUOn1nyd0nTeD+Hxm5HRdLuI39zf3d7dL
XTXQuQQi4pfKqShjj1W1yPAlNKfXgpb6TMqGE9gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8NTpsCtU
2oUeqxG59LqsZ2HUoLyd5t5h9BtutrSfKlSVGRkPUZOLTWRo+NJrBlUbiZwpPwDmO68evpcXSGHfD7Rn
ucsmkSjUqKvXnUjQ2ln9uhQubU+sFfW0au7ml6yz6eBlbays3a13Dczrgf4wNBjpmiAAAEnPVl58+QGT
pmIq/N6K1sorSdGNxWjcavMp0Z012F4U2XRHzmsmiEQ2u1b86iq8V6UM/q/k8vKSPZ69+XUdKWaWb1vz
LBQrMmoAGl+IPMlHwNia68kVXo3n6VH6G36YtRl4bU5GqIkctNuil7VmXvUEpXMN/VtjK9uI0o7ud7y3
Wat7dRtqUqj3Od7iKn1x3DWLsr9aui4ZzlTrtwzX6jV6g7796RJWbjiz02FqpR7C2FzC6KNKNKChBYJL
BFaVakqknKWVt4nijIeAAAAm66rXAHk+l1viCuKFpLrJPUPHyXU7URG17s+Ynbp+EcT0KT0IyJDnMsV7
thrPrSVtB5Fllw7i4ll41vEw2dsurF15Z3kXBuvj83lJiRBiUAAAAAAAAAAAAVB80fxhyx9Mq7+kHxd+
rv61L1I9CKwvf99T1n0s1oNw1gAAAAAAAAAAAAAAAAAAACwB1T/8A76+n8v9FUwVntp/bh6i/wCUib7N
f15es+hEoYiBIQAAAAAAAAgv623/AH7h/wDMFR/KkCw9if8AXV4V0MiG0/6qfA/MRGCcEWAAADpPhY4h
fZoyTMyF8kPlr4XQ5VF8keUPJu74S9He6XpvBpWu70Gm7ubdeXZt5OudV/caKpdbq4STxwxzJrfW+dDV
t99HUc+r1smGfDe8j3iQ/tev6ev2s/Uwi/gf+f3P3Hc8Ufxe9+0dr1/T1+1n6mDwP/P7n7h4o/i979o7
Xr+nr9rP1MHgf+f3P3DxR/F737R2vX9PX7WfqYPA/wDP7n7h4o/i979o7Xr+nr9rP1MHgf8An9z9w8Uf
xe9+0dr1/T1+1n6mDwP/AD+5+4eKP4ve/aeZU+t1rLsZ1NGwTCgTDSfQvzbhcltpVpsNTbdPjGovcJZD
3HYiOPpVn7OH/wAmfHtQ9yn735EbGcM+5J4hLqbuvI1WblOw2jj0WiwmzYp9PZUZKW3GZNSzLfMiNSlq
UtWhbyjJKSKV6u1ZQsKfUpLPnbzvh/GBwLy+q3c+tUfAtxGlx0DTAAACUDqvcMzLsy5UMu1CGr5N4ziv
MUyUsj3HqzUGjZShHMroYzji1famps+chD9sL9UrdUE/SnlfqrS+hkj2ctHOq6rzRzcL/LpLAYrQmoAA
AAAAAAAAAHKXGTnxrh+wrXLggSUt3pce9RLFY5VFOkIVvStNvexmyU7tLQ1ElJ++IdjUWrXfXKg/0rLL
gW5x5jna0vVa0HL/ACeRcP5Zyra667IddffdW8+8tTjzzijUta1HqpSlHqZmZnqZmLiSSWCK5bbeLPzH
0+AAf222464hppCnHXFEhttBGalKM9CIiLaZmY+N4ZWfUsciLR3BjgRGAMJUKhVGKTN63Nu1y+XDLv0z
ZCE7kUz1PZGaJLehHpvEtRe+FPa91l9ddSmv0rJHgW7x5yxtV2X0tBRf6nlfD+WY6yHGOiABrjLmMqBm
LHF243uVBHTLpgrjFJJJKXFkJ0XGlNkezfZdSlxPul3BtWV3O1rRqwzxfLvrjWQwXNCNenKnLM1+OQqY
X5ZNfxxedy2JdEXwOv2rUHqdUmdu6a2laE42ZkW8hxOi0K075JkfOLqtbiFxSjVhmksStK9GVGo4Szpm
JDOYQAAAny6sTiA+WVhVHCVxTukuPHTZy7WU6rVcihvOaG2nUzNRxHl7vcJC20l70xWu12rPk1lcRXoz
z+SX5rnxJts/ffNp/Klnjm9X8tBKiIcSIAAAAAAAAAAjy6zv+V+X9KKR/e8JNsl/fXqs4uv/AOpLhXSV
yRapAQAAA3Jw6/zBYK/9w7Y/S0YaGtf6db1Jf8Wbdh/Yp+tHpRbfFJlmgAABo3ic/lyzx9ALi/Rr46Gq
f7lH149KNTWH9ap6suhlS4XWVkAAAAAAAAAAAAAFvDBf8EsO/Qe3v0bHFH3/APZqevLpZaNt/qh6q6Da
Y1DOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARydZFgH96GIk5GoMLprxxOh6c4ltOrkqiOaHOa2GW
ps7pPp110JLhEWqxKNldZ/TXHypP0KmTgluaOPyHD17ZfPo9eP6oZeLd0ldcWmQMAAAPrgTplLnQ6nTp
TsKoU59uTBmsqNDjLzKiW24hRbSUlREZGXOPM4qacWsUz1GTi01nRay4W83ws/4Zta/EuNFXkt+TLzgt
6F4PVoiUpkFukZ7qXSNLyC+0WkUzrfV7sbmVLczx8sXm0PyosnV92rqiprPu8O6dDDmG6V3+sj4hf3n5
URjC3Z3TWXip52NLU0rVuZXVFuS3Nh6GUYvwCdS2KJ3TYoWfspqv6eh86a9KfNHc5c/IQfaC++dV+VH9
Mf8Al+WblI3BLCPgAABtbCOKK3m3KNoY1oRKbfuKalFQnkk1JhwWi6SXKXzaNNJUZEfKrRPKZDS1jexs
6EqstxZPK9xG1ZWsrmtGmt3P5Fuls207Xolk2xQLQtuGmn0G2YDFNpMNP2DEZBNoIz5z0LUzPaZ7TFK1
qsqs3OTxbeL4yy6cFTioxyJLAyAYz2AAAAAAAAAAABUHzR/GHLH0yrv6QfF36u/rUvUj0IrC9/31PWfS
zWg3DWAAAAAAAAAAAAAAAAAAAALAHVP/AMA76+n8v9FUwVntp/bh6i/5SJvs1/Xl6z6EShiIEhAAAAAA
AACC/rbf9+4f/MFR/KkCw9if9dXhXQyIbT/qp8D8xEYJwRYAAAAAAAAAAAAAAAAAAAA+qFCm1KUxAp0R
6fOlLJuLDjNqddcWfIlCEEalGfcIh5lJRWMngj1GLk8EsWd54D6vLNeWJ8CpXpSpGKrFUpDkyp1lo26m
+1rqaIlPXo6SjLkU8SEbdS39N043rLai2tk1TfXn5P0rhejHiO1ZahrVmnUXVj5c/JpLA+McZWdiCyqN
YNiUtNKt+iNmlpBnvPPur2uyJDmhG464rapR/ULQiIirO7u6l1VdSo8ZP8chNqFCFCChBYJGfjWMwAAA
AAAAAAB/hmREZmehFtMzAFY7jq4gf375qqJUab4TYdgdLQ7O3FatP7qy8MnJ02H4Q6kt0+dtDfPqLb2b
1Z9FbJyXpzyvzLi6Wyv9dXv1NfBfpjkXnf43ji4SA44AAAdqcCdpYzrGaoN4ZZve2LQtXHCW6xFi3HVY
dOKo1TeMoTbSJbjfSJZWk3lmnXQ0oSrYsR/aStXjbOnQhKUp5PRTeEd3Nv5uXeOxqWnSdfr1ZJKOXK0s
XuZ97PyFgf2keHf19459KaR40Kz+1Xnc1PZloJr9fbd5D2lpHtI8O/r7xz6U0jxoPtV53NT2ZaB9fbd5
D2lpHtI8O/r7xz6U0jxoPtV53NT2ZaB9fbd5D2lpHtI8O/r7xz6U0jxoPtV53NT2ZaB9fbd5D2lpIhOs
opWGb1m25mXGGT7Lue41blEveg0Su06bMkNJSZw5xMR5C1r6MiNlwySZ7pt8iUmYm+yc7mipUK1OcY54
txaSe6sWt3OuPfIzr+NCrhVpzi3maTTeG48+5+MxE+JqRgAAANq4TytW8J5QtDJVBNS5FuTUrnQCUaUz
IThdHLir5tHWlKSRnyHorlIhpaxso3lCVKW6snke4zasrqVtVjUW5n8q3S2baV00S+LXt+8LbmJqFBua
AxUqTMTs32JCCcRqXMoiPRRHtI9SPaKVrUZUZuE1g08HxFl06kakVKOZrEyEYz2AAAAAAAAEeXWd/wAr
8v6UUj+94SbZL++vVZxdf/1JcK6SuSLVICAAAG4uHhaW8/4McUeiUZBtlSj9wqrGMxoa0/p1vUl/xZt2
H9in60elFuEUmWaAAAGjeJz+XLPH0AuL9Gvjoap/uUfXj0o1NYf1qnqy6GVLhdZWQAAAAAAAAAAAAAW8
MF/wSw79B7e/RscUff8A9mp68ullo23+qHqroNpjUM4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB+b
zLMhl2PIaQ+w+hTb7LiSUhaFFopKknsMjI9DIx9TwBVk4wcDvcP+bLiteJHW3aFbM61YsgyM0nTpS1aM
bx8qozhKaPbrolKj98QuHUOsvrrWMn+pZJcK3ePOV1ray+lrtL9LyrRxHLY7JzAAAAkT6uHPn7q8xJsC
uzehszLCmacrpFaNxaygzKA9tPRJOmo2FaFtNaDM9ECK7V6t+pt/mxXpU8vDHd5M/Kd/UF78mt8uT9Gf
/Lc5c3ITAcZef2uH3C9ZrsCSlu9rm3qJYjHKpM19B78rTQ+9it6uamWhq3En74hB9Ratd9cqD/SssuDe
48xKNaXqtKLl/k8i4fyzlXB552Q66++6t999anHnnFGpa1qPVSlKPUzMzPUzMXCkksEVy228WfmPp8AA
ACfLqw8AfI2wqjm24oPR3HkVvwS1kup0XHobLmpuJ1IjSct5G93DQhtRe+MVptdrP51ZW8X6MM/ll+S5
8SbbPWPyqfzZZ5ZvV/PQSoiHkiAAAAAAAAAAAAACoPmj+MOWPplXf0g+Lv1d/WpepHoRWF7/AL6nrPpZ
rQbhrAAABZG6tVttXCrbRqbSo/Lda2mRH/8AlKFUbV/35cEegn+of6keF9LO+OhZ/FI+9IRvE7I6Fn8U
j70gxA6Fn8Uj70gxA6Fn8Uj70gxA6Fn8Uj70gxA6Fn8Uj70gxA6Fn8Uj70gxA6Fn8Uj70gxA6Fn8Uj70
gxB/aUpQWiEkku4RaAD+gAAAAAAAAAQX9bb/AL9w/wDmCo/lSBYexP8Arq8K6GRDaf8AVT4H5iIwTgiw
AAAAAAAAAAAAAAAAAAAB9cGdOpktifTZj9PnRVb8WbGcU082ovskLQZKSfukY8ygprCSxR6jJxeKeDO6
cFdYXnTE86DBuusvZVspCkol0euvG5UGmi11OLUlEp4lFs0J03EaFoSU8ojmsdl7W5TdNdSe+s3HHNyY
HZste16LSm+tHy5+J6cSwBiDL9kZwsal3/YVS8Oo9Q1akxnSJEqFKQRG7FlNEZ7jiNS1LUyMjJSTUlST
OtL2yq2dV0qqwa5Gt9eQm1tcwuIKcHimbPGoZwAAAAAAAAADgjrCOIL9zOGpFs0Gd4PfeUUvUijKbVo7
Fp+6RVCYRkZGkybWTSDI9SWslF7wxI9mdWfWXKlJehDK/K9xefgRx9d3301DCL9KWRed/jdK2Ytgr8AA
AAAAAAAAAAAAAAAAAAACbbqtc/8AhtOrXD5cc3WTSiermPVOq99GWrenwk7C/wANaunSW0zJTvMkV7th
qzqyV1BZHklw7j483Et8mGzl71ouhLOsq4N1cXn8hMaIMSgAAAAAAAAI8+s6Iz4Xpmha6XRSDP8AteEm
2S/vr1X0HF1//UlwrpK5AtUgIAAAZFaFwPWndlr3VHR0r9s1aFVWGtdN5cJ9D6S1900DDcUvm05Q7Sa5
VgZaNT5dSM95p8jLh9Gq9PuCj0qvUmSmZSq3DYn0yWgyNLseS2l1paTLYZKSojIUZODhJxedPAtKMlJJ
rMz0h5PoAHhXRbVFvO26/aNyQ/KFv3PT5NKrcAnHGemiS21MvN9IypDiN5CjLVKiMuYyMZKNWVKcZweE
otNcKPFSnGpFxlmawfGcj9nhwg+qdf8Ar9e84Dt+KNY957sdBzPsdn2OeWkdnhwg+qdf+v17zgHijWPe
e7HQPsdn2OeWkdnhwg+qdf8Ar9e84B4o1j3nux0D7HZ9jnlpHZ4cIPqnX/r9e84B4o1j3nux0D7HZ9jn
lpND8TvBDwy4+wHlC9bQx+qg3NbdHOZRqqqs1eQTTyHWyIuikzXGlb5GadFJPl7o6Oqdob6vd06c54xb
wawj5kal/qe1pUJzjHBpNrK9JASLLIQAAAAAW8MF/wAEsO/Qe3v0bHFH3/8AZqevLpZaNt/qh6q6DaY1
DOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwp1gOAP31YUmVqiQfCL6xiT1bt7o06uyYhILyhCTo
RqPpGkE4lJbTcbQXOYkWzWs/o7lKT9CeR+Z8XQ2cjXVj9TQbX6o5V51x9OBWnFslfAAAB+jTrrDrb7Di
2X2Vk4y82ZpUhST1SpKi2kZHtIyHxpNYM+ptPFG+8/8AEXfPETVbQqd5rQ38j6DGo8OK0ozbckJQnw2c
otCInJTqd5REWhESU7d3U+ZqvVVLV8ZKn/lLHi3FxG9f6wneOLluLDj3XxmgB1DQAAADfnDPhSfn7Mdq
Y9jk43SX3fD7unt8sWkRTSqU5rzKXqTSD+3WnmHM1vrBWNtKru5o+s82ngRvaus3dV1Dczvg/GQtcUum
U+iUynUakw2qfSqTGah02AyndbYjsIJtptCS5EpSkiIhTM5Obcm8WyyUklgsx948n0AAAAAAAAAAAAAK
g+aP4w5Y+mVd/SD4u/V39al6kehFYXv++p6z6Wa0G4awAAAWSerT/lUtr891r8qUKn2r/wD0JcEegsDU
P9SPC+lnfQjh2AAAAAAAAAAAAAAAAAAAAAAAAACC/rbf9+4f/MFR/KkCw9if9dXhXQyIbT/qp8D8xEYJ
wRYAAAMjtezruvepLo9l2tV7vq7bCpLlKokGRUJKWEGlKnTZjIcWSEmtJGrTQjMu6MVavTox61SSit9t
Jc5kp0p1XhCLb8ixNg+zrxBeorIfoxVvFhq/dbPvoe1HSZ/oLju5ey9A9nXiC9RWQ/RireLB91s++h7U
dI+guO7l7L0D2deIL1FZD9GKt4sH3Wz76HtR0j6C47uXsvQPZ14gvUVkP0Yq3iwfdbPvoe1HSPoLju5e
y9A9nXiC9RWQ/RireLB91s++h7UdI+guO7l7L0D2deIL1FZD9GKt4sH3Wz76HtR0j6C47uXsvQeDWcPZ
ctyM7NuHFl30GGwk1PS6jQ58VpCS5TUt5lJERe6YyQ1hbTeEakG/JJPznmVnXisXCS4ma5G2awAAAABI
z1aOYKjYud4+PJEpw7XyrHdgvwzP8E1U4jTkiHIIjPYpRIWzs5d8tfelpFNrbGNa1+av1Q6Hka8539nr
p06/y3ml0r8YFioVeTkAAAAAAAAPlnTodMhTKlUJLcKBT2HJM6Y8okNtMtJNbji1HsJKUkZmZj7GLk8F
nZ8bwWLKqnFVnSZxB5luS+CccTbcZfkqyILmpdDSYqlEyo0mRGlTyjU8sj5FLNPIRC5NS6tVhbRp/wCT
yy9Z6MxXGs713dZy/wAVkXB+ec5xHWOeAAAAAAAAAAAAAAAAAAAAABmmO77r+ML5tbIFryPB67adQaqE
FR67i+jPv2XNNpodQam1lzpUZDXu7aFzSlSnmksPxwZzNb15UKkakc6ZbSxfkSgZZx/amRbYe6WjXXT2
5jDZqJS2HD716O5u7N9l1Km1l9skxSl3aztqsqU88Xh+fHnLNoVo1qanHM0Z6NcygAAAAAAcNdY1SHap
wm36+02p1dEnUaoGlJGZkkqiwwtWhcyUvGZ+5tEh2Wmo6whju4rmZyNexxs58XSitCLaK+AAAAAJf+B/
j4tywrXpmHM2THqfRaMZR7Kvkm1vtxoy1d7CnIQSnEobM9G3EkZJT3qiSlBKEF2h2anWqOvbrFv9UfLv
rh3Vv5s5KtT66jTgqVZ4YZn5npJnLVvezb5p7dVsu66RddNdSSkTaTMZmN6H3VMrVofMZHtEDrUKlGXV
qRcX5VgSunVhUWMWmvIZQMR7AAAAAAA8O4Lntu06e7VbpuCm23S2Emt6o1SUzDYQlO0zU48pCS0+qMlO
lOo+rBNveSxPM5xgsZNJeUhV4/ONqzsiWs/hLEVR8v0afKZeve8WiUiI8iI4TrUKGaiI3SN1CVrcIt3v
UpQayUoyn2zWz9WhU+orrBr9Md3LuveyZln4CJ671vCpD5NJ4453ucCIghOSKgAAAAFvDBf8EsO/Qe3v
0bHFH3/9mp68ullo23+qHqroNpjUM4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAyIyMjLUj5SAFY
vjqwF+4rN1UKkQ/BrFv7pa9Z+4nRpknF/wCbhJ02F4O6rvS5m1Ni29m9ZfW2qUn6cMj8z41zplf66svp
q7a/TLKvOvxvnGAkBxwAAAAAAAAACxX1b+AP3W4i/eJXoXQ3nlhDM9KXE6ORaKgjVBZ266G8SjfVppqS
kEotUCrNqtZ/VXHy4v0KeThluvzcXlJ5qKx+RR68v1Sy8W5pJGBFzuAAAAAAAAAAAAAAAFQfNH8YcsfT
Ku/pB8Xfq7+tS9SPQisL3/fU9Z9LNaDcNYAAANk21mXMFl0pqg2dla8bTobK1us0ajV2oQIiFuHvLUli
O+hBGo9pmRbRqVbC2rS61SnCT33FN8rRsU7utTXVjOSW8m0ZB7SPER6+8jelNX8aGP7VZ9zT9mOg9/X3
PeT9p6R7SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6R7SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6R7
SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6R7SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6R7SPER6+8j
elNX8aD7VZ9zT9mOgfX3PeT9p6R7SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6R7SPER6+8jelNX8aD7
VZ9zT9mOgfX3PeT9p6R7SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6R7SPER6+8jelNX8aD7VZ9zT9mO
gfX3PeT9p6SzLwxVerV/h6w3Wq7VJdarNUtOmyanVp77kmVIecZSa3HnnVKWtSj2majMzFR62hGF3VjF
JJSeCWZZSwrCTlb023i3FdBvUc82wAAAAAAIL+tt/wB+4f8AzBUfypAsPYn/AF1eFdDIhtP+qnwPzERg
nBFgAAAkm6rH+ZOsfQaqfltPET2y/pR9ddEiQbN/2X6r6UWHRWBOAAAAAAAAAACHfrOuHSz4dm0/Oto0
OJQrgg1VinXuUJtLDU+NNJSWZTqEJJJvNvJSje2GpK++M91Ok42R1pU+a7abbi1jHHca3OBojG0NjD5f
zorBp5fKn5yEQWGQ4AAAN28NMt+DxE4JkRnDbc+X9uNKMudD1SYbcT/1kKMjHO1vFSs6yfYl0M3NXScb
mm12l0ltYUqWYAAAAAAAAEXXWa8QRWLjyHhi3ZxN3Rkto3bjNpRdJGoLazStKtD1LwtxJtlzGhLpc5CX
7Jas+fW+fJejDN5Zfln4cCPbQX3yqXyov0pZ/V/PNykAIswhAAAAAAAAAAAAAAAAAAAAAAAAABL11XGf
/I1wVnANxztKdcynaxYSnVbGqg0jWZESaj2E+0jpUkWhbyF/ZLEG2w1Z1oq5gsqyS4Nx8Wbk3iU7OXuD
dCTz5Y+deflJyRXpLwAAAAAANaZmsUsm4nyLYBGlL12W/Pp0FxWmiJTrKvBnD1+0dJKvrDasbj6evCr2
ZJ85guaPzqUob6aKh8qLJgypMKYw5FmQ3VsS4zqTS4242o0rQtJ7SNJkZGRi8IyUkmszKvlFxeDzo+cf
T4AAAAAfXCnTqbKam06Y/T5jB7zEuM4pp1B91K0GRl9Yx5lCM1hJYo9Rm4vFPBmyYWdc3U5CW6fmO+IC
E7Eoj3DUmiL6hIkENR6ttXnpQ9laDYV9cLNUl7T0nplxH8Q6SIk55yKki5CK6asRflI8/arPuafsx0H3
6+57yftPSf17SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6T+VcR3EMstF55yIou4d0VYy/KQ+1Wfc0/Z
joH19z3k/aek82VnXN01BtzMx3xLbV75D1w1Jwj+sqQY9LVtqs1KHsrQfHfXD/8AZL2npNc1Kq1OsSlz
qvUZVVmuFouZMeW+6oi5CNbhqUf9o2oU4wWEUkvJkNec5TeMm2/KfAPZ5AAAAAP9IjMyIi1M+QgBcTx9
R3besKyKA+ncfodAptPeQezRUaK20ovrGkUVcT69SUt9t85atOPVilvIy8YT2AAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAHIfGxgMs+YRrVLpcQn73tDer1kKSX4RySwg+mhkepalJa3kERnpv7ij96O3qD
WX0N0pP9EskuB7vE8vKc3Wtl9VQcV+pZVw/nmKvSkqQpSVJNKkmZKSZaGRlykZC4CuT+QAAAAAAAHVPB
zgZ3iAzZQLcnRluWbb5lW76f0MkeARlp0jb2mm9JcNLRFrrumpRe9McXX2svobVyT9OWSPDv8WfhwOnq
my+qrpP9KyvRx9GJaWaaaYabYYbSyyygkMsoIkpQlJaJSki2ERFsIiFPN4lin6AAAAAAAAAAAAAAAACo
Pmj+MOWPplXf0g+Lv1d/WpepHoRWF7/vqes+lmtBuGsAAAAAAAAAAAAAAAAAAAAABa94S/5Z8GfQ2l/+
AkUvrn+7W9eXSWXq7+tT9VdB0MOYboAAAAAAEF/W2/79w/8AmCo/lSBYexP+urwroZENp/1U+B+YiME4
IsAAAEk3VY/zJ1j6DVT8tp4ie2X9KPrrokSDZv8Asv1X0osOisCcAAAAAAAAAAHD/WMJSrhHyQZlqaJV
CNJ9w/LEMv7jEg2W/wD0Kf8A5f8AFnI17/TnxdKKzgtsr4AAANycOv8AMFgr/wBw7Y/S0YaGtf6db1Jf
8Wbdh/Yp+tHpRbfFJlmgAAAAAAY9dt00Sx7Yr94XJNTT6BbMB+pVaYr7BiOg3F6FzqMi0SRbTPQi2jJR
oyrTUILFt4LjPFSpGnFylkSWJU1zhlit5uyjd2Sq6a23rhmKVTqepRqTDgtF0cSKjm0baSkjMvfK3lcq
jF06usY2VCNKO4sr33usrS9upXNaVR7ubyLcNTjeNUAAAJBur44aY2bsmP3feNIbqWNMdGh+pQpbZORq
nU3CM4sJaFkaXG0kRuupPUtCShRaOCL7T62dnR+XTeFSe9nUd1+Zce8d3UWr1cVOvNYwjzve874idD2a
eHT1DY89GaX4uK8+7XnfT9qWkmH2+27uPsrQPZp4dPUNjz0Zpfi4fdrzvp+1LSPt9t3cfZWgezTw6eob
HnozS/Fw+7XnfT9qWkfb7bu4+ytA9mnh09Q2PPRml+Lh92vO+n7UtI+323dx9laB7NPDp6hseejNL8XD
7ted9P2paR9vtu7j7K0D2aeHT1DY89GaX4uH3a876ftS0j7fbd3H2VoHs08OnqGx56M0vxcPu1530/al
pH2+27uPsrQPZp4dPUNjz0Zpfi4fdrzvp+1LSPt9t3cfZWgh+6yHhZo2NanRMwY1tuJQLIrpt0m6aFSo
yI0OnVFtGkd9thlKW2m5Lad1WhEXSJ1PvnRONlNcyuE6FaTc1lTbxbW6sd3Do4CMa/1bGlhVprCOZpZk
9x8fTwkVQmZGQAAA9u2rirFo3DRLpt6aunV23ZzFRpE9v3zUiM4Tjay7uiklqR8vIMdajGtBwmsU1g+M
yUqkqU1OOdPEtkYFy9R854otHJVH3GTrkQk1mnJMzOHUWD6OXGPXQ9EOpPdMy75G6rkUQpXWNlKzrypS
3Hk8q3HyFl2dzG5pRqR3endNwDSNkAAAAAACvV1jvDVNxtkeVmC2qcpVg5JlqfqymU95Tq45qqQhZEXe
plGRvIM+VZuJ2aJ1s3ZXWyuKPyJv04ZvLH8s3BgQnX+r3SqfOivRln8j/PpI0RLiOgAAAAAAAAAAAAAA
AAAAAAAAB1zwT4Pn5uzva0RcNblo2ZKYuG9Jhp1aTGiOE4zGUZkZGqU6lLe7y7u+ovemOHtDrFWdpLL6
Ul1Y8ed8S58Dq6ns3cXC7Mcr8y43zYlooVAWGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABW
86xDAP7oczyLuocLoLIyqp+r07o06NRqmSiOoxdmwiNayeSWwt1e6XvDFqbLaz+qtvlyfpwycMdx+bi8
pBNfWXyK3Xj+mWXj3dJH+JOcIAAAAAACzFwEcP8A+5DCkCoVqD4NfmSCZrlz9InR2OwpB+AQVbCMuhaW
alJPkcWsu4Kk2j1n9bctRfoQyLzvjfMkWFqax+moLFelLK/MuLpxO4RHzrAAAAAAAAAAAAAAAAAVB80f
xhyx9Mq7+kHxd+rv61L1I9CKwvf99T1n0s1oNw1gAAAAAAAAAAAAAAAAAAAAALXvCX/LPgz6G0v/AMBI
pfXP92t68uksvV39an6q6DoYcw3QAAAAAAIL+tt/37h/8wVH8qQLD2J/11eFdDIhtP8Aqp8D8xEYJwRY
AAAJJuqx/mTrH0Gqn5bTxE9sv6UfXXRIkGzf9l+q+lFh0VgTgAAAAAAAAAA4g6xf+UbJX/7NC/TMMSDZ
b/8ARp/+X/FnI17/AE58XSis2LbK+AAADcnDr/MFgr/3Dtj9LRhoa1/p1vUl/wAWbdh/Yp+tHpRbfFJl
mgAAAAAAQ29aTxBeCw6Pw9W3N/DTyZreRVtK96wlW/Agr5ffqLp1lsMiS0fIoxOtj9WdaTuprIskeHdf
m5d4i20d91YqhHdyvg3F5/8AqQnCwSIAAAB79q2xXL1uShWjbUByp1+5JzFOpEBsu+cfkLJCC15i1PUz
PYRamewhir1oUacqk3hFLFmSlSlVmoRzt4Frzh+wzRMC4ptfHFG3H3aYx09wVVCd051TfIlS5J67dFL2
IIz71BJT9iKX1lfTva8qst3Mt5biLKs7WNtSjTjuc73WboGibQAAAAAAAAAAAGE5HsC3cpWNc+Prri+F
0G6oLkKakiLfbNW1t5sz10caWSXEHzKSRjPa3M7arGrB4Si8TFWoxrQcJZmipvlrGVxYdyJdWOLpa3Kt
bE1UfwgkmluUwrRceU0RmfePNKStO3YR6HtIxdNjeQu6MasMzXI91cRWl3bStqrpyzrn8probZrgAABJ
71ZefysHJMzD1wTeitbJ7iV0JTitG41eaRutEWvJ4W2noj7q0tEXOIftdqz51FXEV6UM/q/k8vA2SPZ6
9+XUdGWaWb1vzXQWBhWhNQAAAAAAMbu+0Lav22qxZ930ePXrbr8dUWq0uSneQ42raRkZaGlSTIlJUkyU
lREpJkZEYy0a06M1ODwkszPFSnGpFxksUyv3xOdXjkjE86o3Ni6FMyPjdSlPIZioN6s0xBnr0cmM2W8+
hJcjrRHs1NaEaanZeqNqKNylCs1Cfuvj3OB8TIVrHUVSi3KkutHnWkjmWhba1NuJNC0GaVoUWhkZbDIy
Pk0ErTxI+1gfyAAAAAAAAAAAAAAAAAAADsHBPBDnPOMyFKYt1+x7LeUlUm9bgZXGZNo9DNUSMvdelGZH
3u4RIM9inEjg6x2itbNNdbrz7MfO8y6fIdaz1NXuHlXVjvvzLO+jylhbA2BLD4ebHj2XZERSjcUUiv1+
SSTmVKXu7pvPqSREREWxCC71BbC26mdY6x1jVvqvzKj4FuJbyJxZ2dO1p9SC0vhN2DQNoAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAADS2ecD2PxEWKqwr78NjwG5zFRp9Wpi2Wp0SSwZlvsOPtPoLfbU
ptWqD1So+Q9DLf1drGrYVfm08McMMHma8uGHCat5ZwuqfUnm8mdHFXZQcPvz2yH8OpPmoSDxpediHJL4
jkeGrftS5VoHZQcPvz2yH8OpPmoPGl52IckviHhq37UuVaB2UHD789sh/DqT5qDxpediHJL4h4at+1Ll
WgdlBw+/PbIfw6k+ag8aXnYhyS+IeGrftS5VoMgtTqv+Hy1bmoFy+X7zr50CexUEUWqzKc5BkrjrJxLc
hDNOaWpszSW8kllqWzkGGvtfeVacoYQWKwxSeOXe9JmSls9b05qWMng8cG1h0Ejwix3QAAAAAAAAAAAA
AAAAAAjeufqwMEXXctw3TULyv1ifctTl1WczHm0tLKHpjy33EtkumLUSSUsyIjUZ6cpmJVR2vu6VOMFG
GEUlme5k7Rwauz1vUm5uUsW2863eI8LsoOH357ZD+HUnzUMvjS87EOSXxHjw1b9qXKtA7KDh9+e2Q/h1
J81B40vOxDkl8Q8NW/alyrQOyg4ffntkP4dSfNQeNLzsQ5JfEPDVv2pcq0DsoOH357ZD+HUnzUHjS87E
OSXxDw1b9qXKtA7KDh9+e2Q/h1J81B40vOxDkl8Q8NW/alyrQOyg4ffntkP4dSfNQeNLzsQ5JfEPDVv2
pcq0DsoOH357ZD+HUnzUHjS87EOSXxDw1b9qXKtA7KDh9+e2Q/h1J81B40vOxDkl8Q8NW/alyrQOyg4f
fntkP4dSfNQeNLzsQ5JfEPDVv2pcq0DsoOH357ZD+HUnzUHjS87EOSXxDw1b9qXKtA7KDh9+e2Q/h1J8
1B40vOxDkl8Q8NW/alyrQOyg4ffntkP4dSfNQeNLzsQ5JfEPDVv2pcq0DsoOH357ZD+HUnzUHjS87EOS
XxDw1b9qXKtA7KDh9+e2Q/h1J81B40vOxDkl8Q8NW/alyrQSF47selYzsW08f0OTLmUez6ZHpVNlTlIX
JcZjIJCFOqaQ0g1GRbTSgi9wRe6uJXFWVWWGMm28M2U7lCkqUIwWZLDkMzGAygAAAAAAcncRfB5jfiZq
9t1q+a9ctHk2vDehQG6FIhstrbfcJxRulJhyTMyMtmhkOzqrXlbV0ZKmovrYZ8dzgaObf6rp3jTm2sN7
DzpnOXZQcPvz2yH8OpPmodbxpediHJL4jQ8NW/alyrQOyg4ffntkP4dSfNQeNLzsQ5JfEPDVv2pcq0Ds
oOH357ZD+HUnzUHjS87EOSXxDw1b9qXKtBvDAHA5ivhzviTf1l3HddWq8qkv0dyLW5MF6MTEh1l1SiTG
gx175GwnQ97TTXYOdrPaG41hSVOpGKSeORPHd32983LHU9K0n14OTeGGXDQt47OHBOqAAAAAAAAAAaqz
ViG3M645rmMbrn1Km0KvuRHJkykuMtS0nDktSm+jW+y+gtVtER6oPZrpoe0blhfTsqyrQSbWOfNlWG41
vmtd2sbmm6cscHveR4nC3ZQcPvz2yH8OpPmoSPxpediHJL4jj+GrftS5VoHZQcPvz2yH8OpPmoPGl52I
ckviHhq37UuVaB2UHD789sh/DqT5qDxpediHJL4h4at+1LlWgyayurKwZYt5Wle9JvC+5NUs6swK5TY8
ubTFR3JFPkIktIeS3TG1Gg1NkSiSoj05DLlGG42tuq9OVOUYYSTTwT3Vh2jJR2foUpxmpSxTTzrc4iRg
RY7oAAAAAAEd1+dWvh3JF5XLfd1ZByFNuC6p71QqbxTqWSCW6epNtpVS1GlttOiEJ171JEXMJPbbV3Nv
SjShCHVisFkl8Rw6+oaNao5ylLF+VaDEuyg4ffntkP4dSfNQ2PGl52IckviMXhq37UuVaB2UHD789sh/
DqT5qDxpediHJL4h4at+1LlWgdlBw+/PbIfw6k+ag8aXnYhyS+IeGrftS5VoNzYK4C8L4BvprIdtVG47
kuGHEfi0s7hkQn2YapBEhx9hMaHGMnTb3m941H3qlbNuo5+sdo7m+pfKmoqOOL6uOXhxbyG3ZamoWs+v
HFvy4ZOZHbA4B1gAAAAAAAAAAAAAADkjiH4MMS8SleoVz3nMrtBrtDhLp/lK33ojDkuMa+kbRJ8Jiyd7
olGvcNO6Zb6tddmna1Xr641fGUKaTTeOEscj8mDWfd4DmX2qqN5JSnimt7DQznjsoOH357ZD+HUnzUOr
40vOxDkl8Ro+GrftS5VoHZQcPvz2yH8OpPmoPGl52IckviHhq37UuVaB2UHD789sh/DqT5qDxpediHJL
4h4at+1LlWg+qD1V2CKZNh1Kn5AyPCn099uTBmM1GlIcZeaUS23EKKlakpKiIyMuceZbY3ck4uFNp+SX
xH2OzlCLTUp4ryrQSWxmlsRo7DshyW4y2hDkt0kk46pJERrWSEpTqo9p7qSLuEQibeLJAfuPgAAAAAAA
ADReS+GfBGXnH5N/4yo1YqcgtHa6y0qFUVabS3psNTL6tDPYSlmQ6FprW6tclKo0t7OuR5DUuLGhX/XB
N7+7y5zkm4eqx4dKs8p+jVq8rW113YkSoRpDBa+5LiPO7P8AmDt0tsb2Cwkoy4U/M10HMqbO20s3WXA9
KZrSd1SNiOb3k3MVeia+88JpsWRp9XccZ1G1HbWtu048r/MwPZmluTlzGMvdUPHVp4PxAONFt16S1iX9
TkqyBnW273aPvftMT2YW5U938z8eyF/qF/ZP9cj744/g9/8AaefC/wDL7v7h2Qv9Qv7J/rkPHH8Hv/tH
hf8Al939w7IX+oX9k/1yHjj+D3/2jwv/AC+7+4dkL/UL+yf65Dxx/B7/AO0eF/5fd/cOyF/qF/ZP9ch4
4/g9/wDaPC/8vu/uPti9UTTUGnw3PUmQktd8mLbQyZ7dmhqqbug8y23luUV7X5I9x2Yju1HyfmzMKf1S
2L2jLytlW6ZpfZFEjwov1f8AERIGvLbW43KcefSjKtmaG7KXNoNrW51YnDDRCb8qxbnvBST1WdVqxskr
3NKc1D0L6+vujTq7XX0/0uMeBfFibNPZ+1isqb4XowOo7D4ccE4zcZkWRiq3aJOjkRM1bwNEmcki05Jk
npX+b7cce51pdXGSpUk1vY5OTMdGjZUKP6IJPgy8pusaBtAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYdeeQ7D
xzTk1a/byo1nU5ZmlmVWJrMRLqyIz3GidUk3FaEeiUkZ+4M9C2q15dWnFyfkWJjq1oUljOSS8rwObajx
+cItLnSKfJzFGdfiq3HXIdJrMxgz0I+8kRoLrSy28qVGQ6sNmtYTWKpPjcVzN4nPlrqzi8HPmb50j2La
43+FO63nWKXmijRVsrabWqsNTKMgzeNRJNK6nHipURbp7xkZknZvaakPFbZ+/pfqpPiwl/xbPdPW9pUz
VFx+j04HTdLq1LrlPi1ai1KLWKXOQTkKpQnkSI7yD5FNutmpKiPukY5E4Sg8JLBrfOgpJrFHoDyfQANc
3RmHElkVTyJemUrQtCtdCiR5IrdbgU+V0Tmu450Ml5te6rQ9D00PQbVGxuK0etTpykt9RbXMjBUuqNJ4
TnFPytIx32keHf19459KaR40Mv2q87mp7MtBj+vtu8h7S0j2keHf19459KaR40H2q87mp7MtA+vtu8h7
S0mW21lLGV5kZ2fkW2LrInijmdGq8Kd+GMiMm/8ALur74yMj05RgrWlaj/shKPCmukzU69OplhJPgaZn
Y1zKAB5tYrNIt6lzq3X6rDodFpjKpFSq9QfbjRY7SPfOPPOqShCS5zUZEPUISnJRim28yWVnmUlFNt4J
GqfaR4d/X3jn0ppHjQ3ftV53NT2ZaDW+vtu8h7S0j2keHf19459KaR40H2q87mp7MtA+vtu8h7S0j2ke
Hf19459KaR40H2q87mp7MtA+vtu8h7S0j2keHf19459KaR40H2q87mp7MtA+vtu8h7S0mzreuS3buo8O
4bTr9OuegVDpPAK5SZTM2G/0TimXOikMKW2vccQpCtD2KIyPaQ1KtKdKTjOLjJbjWD5GbFOpGpHrRaa3
1lR7Qxns0/M4hcBU+XKgT844/gzoLy482FIualNOsutKNC23ELkkpKkqIyMjLUjG9HVl3JJqlNp/9stB
qyvreLwdSOPrLSfP7SPDv6+8c+lNI8aH37VedzU9mWg+fX23eQ9paT0qRnfB1fntUug5lsat1N8lGxTo
FxUyS+skJNSjS01IUo91JGZ6FsIeKmrrqmutOlNLfcWvMe4XlCbwjOLfkaNosPsSmGpMV5uTHfQTjEhp
RLQtCi1JSVJ1IyMuQyGo1hkZsH6j4AAPyffZjMvSZLyI8eOhTj77iiQhCEFqpSlHoRERFqZmPqWINOe0
jw7+vvHPpTSPGhvfarzuansy0Gp9fbd5D2lpMutHKOM7/kTIliZFti9pdPbS9Pi0Grwqk4w2s91K3URX
XDQkz2EZkMFezr0EnUhKOO+muky0rilV/RJSw3mn0GcLWltKlrUSEII1LWo9CIi2mZmY1zMaZ9pHh39f
eOfSmkeNDf8AtV53NT2ZaDU+vtu8h7S0j2keHf19459KaR40H2q87mp7MtA+vtu8h7S0j2keHf19459K
aR40H2q87mp7MtA+vtu8h7S0j2keHf19459KaR40H2q87mp7MtA+vtu8h7S0mWWllTGF/S5UCxMj2ves
6C0T82HQaxCqTrLRqJJOOIivOKSk1GRamWmow17OvQSdSEop76a6TLSuKVXJCSlwNPoM8GsZjT8ziFwF
T5cqBPzjj+DOgvLjzYUi5qU06y60o0LbcQuSSkqSojIyMtSMb0dWXckmqU2n/wBstBqyvreLwdSOPrLS
exbGY8RXtVE0OzMqWfd1bW2t5FHotcgT5Rtt7VrJmO+4s0p12npoQx1rG4ox61SnKK33Fpc6PdO6o1Hh
CcW/I0zZA1TOABiN43/Y2PKb5Xvu8KNZ9MPeJuZWJrENDiklqaG+mWk1q05Ep1M+YhmoW1WvLq04uT8i
xMdWtCksZtJeV4HNVS4++EakzpFOlZijOyIqiS45DpNZmsGZkR95IiwXWllt5UqPuco60Nm9YTWKpPjc
VzNpnPnrqzi8HPkTfOlgZDbHGrwr3cpSaVmugRDS50R+WjkUQt7d3tSOqsxSNOn2RbNdmuoxVtQX9L9V
KXF6X/HEyU9bWtTNUXH6PTgdOR5EeWw1JivtyYz6SWxIaUS0LSe0lJUkzIyPukOS01kZ0D9h8AAGJ3bf
tjWDEiz77vShWVBnPHHhTa9UY1NaedJJrNttcpxtKlbpGehHroM1C2q13hTi5Nbyb6DHVrQpLGclFeV4
dJgftI8O/r7xz6U0jxobP2q87mp7MtBg+vtu8h7S0mwLTviyr9gP1Wxbvol6UuLIOJKqVCqEaox25CUJ
cNlbsVxxKVklaVGkz10Mj5yGtWt6tB9WpFxe8010melWhVWMJJryPHoMoGEyGoJ3EHgOmTZlNqWb7Ap9
Rp77kafAk3LS2nmHmlGhxp1tcklIUhRGSkmWpHsMb0dWXckmqU2n/wBr0GrK+t4vB1Ipr/uWkzK0r/sS
/wCNLmWJetBvWHT3Esz5VBqUWpNsOKLeSh1cVxwkKMtpEZ66DXr21Wg0qkHFvfTXSZaVanVWMJKS8jx6
DLRhMoAAAAAAHj1S4rfoamUVqu0+jrkEao6JspqOayToRmknFJ10126ADyvl/Ynz2oP+pRf/ADAB7lMr
FIrbC5VGqkOrRm3DackQn25DaXCIlGg1NqURHooj090AeiAAAADx6xcFDt9kpFcq8Oksq2NqlPIa3z0M
9EEoyNR6EewtoAwF/N2Lo7q2XLqbUts9FG1Fluo+sttlST+sYA+yn5hxpU1m3Gu6I2ojSkzlpdiFqrXT
vpCGy02bT12c4A2JHkR5TLciK+3Jjulq0+0oloUXdJSTMjAH7AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOXuLviCT
w44fqN5Qo7M666vKRRbLgyCUplVQfbccJ15KdDNtlttbhlqW8ZEjUt4jHX1Jqz7hcqm8kVllwfnm5zn6
zvfpKLnu5lwlYm9r7vHJFxzrtvu45t0XFUlayqpOcNxe7qZk22nYlttOp7qEESUlsSRELdt7albwUKUV
GK3F+OcrytXnWl1pvFnVWF+AbPubrVh3tRY9EtO2aqhTtEqFzS34qprSVbvSMsxY0p3cUeppUtCSURap
MyMjPjX+0tpZ1HTljKSz9VJ4crR0rTUlxcQU1gk82O7yJmrc68L+X+HaTTyyLQWkUirrUzSbopj3hdOk
PITvKaJ0kpU25pqZIdQhSiIzSRkRmW5q3XFvfp/KeVZ08j/HAa97q2taYddZHurMf5w9cROUMAXhAqlh
1CROpk6W2VcsNxa1waslZkg21Mp3t14y0JDqE76T05U6pNrTVVC+ptVFg0skt2P5b6zdIsL+razXUypv
LHcf5+UtOWfc0W87Vt67IUKZTY1xU+PPap1RYXGlx+nQSzZkMrIjQ42Z7qi7pbNSFO1qTpTlBtPB4ZMq
4ixqc+vFSW6t0yQYj2VZ+Nq/CyFxPZXqrMk5FPo9UK3qZs0SlujtphOEjupU804sj597UtguHZ62+RY0
01la6z/8svRgV3rmv826m9xZOT88TRmOsb3rlm7qbYuPqGu4rqq6X1wKYh5iOSkxmVvuqU9JcaaQSUIM
9VrLU9CLvjIj6V1d0rWm6lV4RW7w8GU0be3qV59SmsWdGz+ALi6psVyZIw9Icaa03kRavRZbp67O9Zjz
3HFfWSOVHabV0nh83mloN96kvF/hzrSckVOmVKi1CZSazT5NJqtOeVHqFMmsrYkMOoPRbbrThJUhST2G
RlqQ7cJxnFSi0091ZjmSg4PCSwZKp1fXF/fkLIVv4QyBW5d1Wndy1w7Wn1B035dLnEhTjTSX3FGtTDu7
ubhme6o07m6W8RwvafUdL5LuKSUZRzpZmuDfRJtR61qOoqNR4p5m86/InhFdEwOA+sovdNp8MFcpDctU
adf1Xp1BjJb98ttLpzpBalyJNqKpKj+63ecSTZS3+bfReGSKcvMudnG19W+XatY5ZNLzvmRW4FrkAOnM
e8G3EllW0aVfdh42VW7UrnTeSqqqrUiH0xR3lx3TJqXNZdIicbUnU0FrpqWpDkXWvrK2qOnUqYSWdYSf
l3E0dGhqm5rQU4QxT8qXSzNez04wfVD8f2/5yGv4n1d3vuy+Ey/Y7zsc8dI7PTjB9UPx/b/nIPE+ru99
2Xwj7HedjnjpLCXD/jx3FGFcZ49lMtsVG2qDFYrTTRpUgqg6np526pBmSiOQ44epHt5RWGsrn6m5qVVm
lJ4cG5zE5s6HyaMIbyXLumVZKu5iwMd31fEhSUtWjQKjWD3tpKOHGceSnTnNRpIiLnMYbWi69WFNf5NL
lZkrVFShKbzJN8hT6lSpM6VJmzHlyZcx1b8qQ4e8txxxRqWtRnymZmZmLzjFRSSzIq2UnJtvOzeWJeGP
OOc6RVK7iyx1XRSaNMKBUZnlGmwSbkG2l3oyKdKjqUe4ojM0kZbRzr3W9rZSUa0+q2sczeTiTNy21dXu
YuVOOKTwzpdLPPyfw6Ztwy03KyVjmq21T3V9EisGTUuB0h6ESDmQ3H2CUeuwjXqfMPVnrW1u3hSqJvez
PkeDPlxq+vbrGpBpb+dcqPlxJnrLGD6uxVccXjOojKZBSJ1ANxTtLmn3hLKVCWZtL30oJJq0JZF71ST0
Mfb7VlvexwqxT8v+S4H+F5D5a31a2eNOWHk3HxfhlkThU4mbe4mcfHcUOMii3dQVtw73thKzWUWStJm2
8ypW1TD5JNSDPaRkpB6mnU6p1xqmerq3UeWLyxe+tK3Sfauv43lPrLI1nW8dPjkm+c2cYF7px/w05guA
paocp6gPUimvt/4hSauaae0aNNuqVP72pcmmvMOrqS3+fe0oYYrrYvgjlfQaOsq3yracscMmHG8iKp4u
YrUnP6peyThWNlTIb7BpXcFZh0KA8tJl+CpjByHTQZ8qVLmJIzLnR7grrbW461anS3k37T/ImWzNHClO
e+8OT/qSVZkjXhOxPkan4+gFUr3qNu1GHa0M3mmN6bJjraZMnH1ttJNKlbxb6iLZtMROxdNV4Oq8IdZY
8GOXMd+56/ypdT9WDw4Suv2enGD6ofj+3/OQtLxPq7vfdl8JBPsd52OeOk5iyFj278V3dVrEvylJol10
PoSqtKTKjTOhOQyiQ2RvRHXmjM23EnoSz010PQ9g69rdU7mmqlN4xeZ4NeTdwZz69CdCbhNYSXA+g8W3
LerN3XBQ7Vt2Cqp1+5J8emUSnIUhCn5ctxLLLZKcUlCd5aiLVRkRcpmRDJVqxpQc5vCKWLfkR4p05VJK
MVi28Edb9npxg+qH4/t/zkOJ4n1d3vuy+E6f2O87HPHSSidXZwyZCwPByXXMqW38m7nud+BBpME5kKbp
AhpcdW4TkF99JdK68RGlStfwZHp3YftRrejeypxoyxjFNvI1lfCluLnJHqLV9S1jN1FhJtbqeRcHCd+Z
Fu2LYVgXte01wmotpUOoVd5ZlvbIcdbxESeczNOhFznsEatqLrVY01nk0uVnbrVFThKbzJN8hT2lSpM6
VJmzHlyZcx1b8qQ4e8txxxRqWtRnymZmZmLzjFRSSzIqyUnJtvOyV/qm7JOoZIybkB5g1M2xQY9GhvKS
e6T9WkdKo0K5N5LcIyPuEv3RCttbjq0adLfbfIsPOSbZmjjOdTeSXL/0J3BXRMTgbjY4yonDrRmLSs3w
Wq5auKOb0Jh7R1ikRFGaSmSW9e+WoyMmmz2GZGpXeluqkeoNRPWEuvPFU1n8r3l5zj621qrSPVjlm83k
8rK7153vd+RLgm3VfFxz7puGoKM5NUqLynnN01Gom0bx6NtpNR7qEESElsSRFsFpW9tTt4KFOKjFbi/G
fy5yCVq060utNtvynXGJer34ist29EuqJTaPZNEqbRSKRJuqU/EclsqIjQ43HjR5TyUrI9Um4hO8W0th
kZ8O92os7Wbg25NZ+qk8ONtLkOpbaiua0etkivL+SZorNvD3lLh9rkOh5JoKaeVVbU7RazEdTJgTUoJP
SdA8nTvmzURKSokqLYem6aTPo6u1pQv4uVJ5s6eRo0rywq2ksKiz5nuM2Jww8W2Q+HC5YJRKhKr2OJUh
BXNYb7prjqZUozcehJWe7HkESjUSk6Es9Cc3i001dcako6wg8iVTcl5nvro3DY1drSpaSWXGG6tG8+nd
LOtrXLRrztug3bbsxNQoVywI9TpE1OwnI8ptLrajLmPdUWpHtI9hio6tKVKbhJYNPB8KLChNTipRyp5T
3hjPRBf1s98Km31i3HTEgzZoFFlV6fHSfem9U3/B2t/7pKIatO4S/uhYexVvhTqVXutRXFlfSiIbTVsZ
Qp7yb5ci6GRGCcEWO++r24hTw1mKPalenGzYWUnGKTVekM+iiVLeNNPmaER6FvrNlZ7C3V76j0bIRnaj
Vf1dv8yK9OGXhjurzrg8p3NRX3yK3Ul+mWTj3NH/AELDGQruh2BYd53xUFEmHaNEn1h/Utd4ocdb26RF
tM1GnQiLlPYKwtqLr1Y01nk0uVk4rVFThKbzJN8hT4qE+ZVZ82qVGQqXUKlIdlTpS/fOvPKNbi1ac6lG
ZmLzhBQiorMshVspOTcnnZYn6sixPkrw2R7jeaWiZkSvT6uZuJ3VFGjKTT2EkXLumcZayM+Xf15NBVu1
tz829cdyCS876cCd7P0fl2qfabfm8xIgIwdsAAAAA82s1eBQaXOrNUfKPApzKnpLp9wuQiLnNR6ERc57
ABGpfV4T74uObXZpmhDh9FT4hnqTEZBn0bZf26mfOZmYAxAAdX8MNa3ZNz264svwrbNRit8/4M+ieP6+
+gAdegAAOccw5oVazrtsWsttyvbv/wDY1IyJaIe8WxCEnqSndNu3YnuGfIBxdUKjPqst6fU5j0+bIPee
lPrNxaj91SjMwBte28FX/ckNuemLGosV9O/HXU3FtKcSehkZNtocWRHrs3kkAMJu6xrlseWzEuGB4OUk
jVElNqJxl4k6b24sudOu0j0P3OQAehYeRbgsKpNSadJW/TFrI6jRnFH0LyOfQtu6vTkUW3u6lsAEjtIq
sOuUun1inudLCqcduTGWew9xxJKIjLmMtdDLmMAeiAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAI9+slxPdOTcDRKhaMF
6rVDHtaRXqhSI6DceegeDvMSFtILapTXSJcMi+wJXcEm2Vvadtd4VHgprq4+XFNdGBxdfWs69v6GVxeO
BXEFqkBO6cKdYPnbDFu0Oy2UUS9bPoPRx6fTa3GcKTHgoNH+Wjy4rrKkklKTJBupd3d7kNJJSUc1hsva
3c3Uyxk955Md9p48eGB2rTXte3ioZJRW/nw3sV58TrSH1oGML9pirdzpw8orFCU4287GjuQq/GdcQtRp
WdPqbMZCVNlpun0qtT1PvRxJbIV6Eutb1sHxxfLFs6a2io1V1a1LJxS5ngSLcPmZOHbKNKdawdLokE6S
whmZasSA3SJsRhvvWyOH0bR9EWwkqQSmy5Nddgi2srC7tpf/ANCeXdb6yfHv853rK6t68f8A6Wsm5mw4
jpAcs3TFb6uiJZFk3feU9xLUK1KLPq8lxe1JIhR1vnqRbT95yFyjLb0nWqRgs8mlys8VaipwcnmSxKeV
QnzKrPm1SoyFS6hUpDsqdKX75155RrcWrTnUozMxekIKEVFZlkKslJybk87O6ur7yhhrDeULpv3Lt3Ha
5MW+ql2wnwCdOJ56ZIbW+vSDHkKQbbbO732hHvny6bI5tPZ3N3QjToR63pYvKlmWTO1v8x2dR3NC3qSn
VlhkwWRvhzJ7xLTWOsb4SaZT5EyFkObcMllKlN0mn0KrIkOmSTMkoVNixmSMzLQt5wi1PaZFqZQqGy2s
JPBwS8rlHzNvmJNLXtmlip48T0EB3EXl1rOuY7yyfHoTduRLhfZTBpad03EsRGG4zS5C0kRLdWlolLPb
tPQjMiIWTqqxdlbRot4tbvDlyeQhesLtXVaVRLBPzb/lNrcB+PKzf/E1jl2nQ3HqbZM4rmuGcWpNxmIH
ftGtRc7j/RoSXOZ9wjGltLdRoWM03ll6K8uOfmxNrUlCVS6i0skcr/HCWfxURYJB11tN9qlXbirGkeQo
m6NS5dx1OMRd4pyoPeCxlKPuoTEd0LmJfukLC2KtsIVKzWdqK4sr6URHaav6UKa8rfQvORAickVJXcR9
ZxFxPjKxsbw8EnVWrNo8amLqp3P0HhTrSPwr/Q+SXOj6Rw1L3d9W7rpvHyiF3uyDua86rrYdZt4dXN5P
1Elttovk0o0/l49VJfq/I2L2vX9PX7WfqYavgf8An9z9xn8Ufxe9+0kH4VeIabxL49qeQJFhKsGLErb9
IgQ1VHykUpMdlh1b6XPBYmhEt40abp7Unt5ijGudWLV9ZUlPr5MXkwwxxyZ3wnd1deu8pfMcerlwz4+Z
HTQ5JvnBPWRX78jOGK4KUxKONUMg1OBbsTc2qNpSzmSi9xKmIq0KP7rTlMhI9lbb519FtZIJy8y52jj6
9r/LtZLHLLBaeZMrZC2Cvyy91dVkKszhbs6S/GRGnXtMn3JLJJFvKTIe8HjLUfOao0doy9wyIVJtRcfO
v54PJHCPJn52ywtR0fl2sd95eXNzYHY11WvQr1tut2lc1Oaq1AuKG7Aq1PeSSkOMvJNKi28hlrqky2ke
hltIcOlVlSmpweDTxR05wjOLjJYplPm6qL8m7nuO3SkFLKgVSZTilp0InfBX1s75aGZd9u68ovKhV+bT
jPfSfKirq1P5c5R3m1yEg3Vb3DUqZxGVChx5C00y5rVnt1KHqfRrXEcZfZcNOum8jdURHzEpRc5iMbY0
oys1J51JYcaeJ3dm5tXDjuOPQ0WHxWBNyKLrYL8Ok4vx5jyPJU1IvKvPVScykv8AEh0hnd3FnzEb0ttR
d00e4YmWxlt17idVr9McOOX5Jkc2kr9WjGC/yfMvzaIGRZJCi0zwS2OiwuF/EdM3VFJrNHTcU1aiIlKc
rS1T0kZF9o28hH1E7dopzX9x8++qy3n1fZ9HzFkaqo/KtYLyY8uXznVQ450D/DMiIzM9CLaZmAKh+br6
VkzL+Sb8N7p2LnuKfMp69NNIZvKTESWuh96wlCdvcF3attvpranT3orHh3ecrG+rfOrznvt8m5zHTHVy
2Qi8uKS1Jb5b8WxqdULlkN6e+NhsojH1N1+U2r6w5G1dx8qxku01Hz9COhqCl17pPspvzecssiqCfAAc
FdZFfh2Zww3DTGJKo0/IFUgW7FNBaqNtSzmSS9xKmIq0Gf3WnKZCR7K23zr6LayQTl5lztHH17X+XayW
7LBaeZMrYi2Cvyxj1Y1jotnhqYuVaVeF5Dr9RqprUREZMRFlTWkF7m9FWotftu5oKr2uuPmXzjuQily+
l5ye7P0epaqXabfm8xITMlx4ESVOluE1FhMrfkunyJbbSalK+sRCMpNvBHbbwKhuXskVfLuTL0yNW3nX
Jd1VR+Wwy6ZGceLvbsWMnTZusMpQ2n3E8/KLvsLSNpQhSj/iuV7r43lKwu7h3FWVR7r5txch0PwGYYp2
aOIOhQbghpn2pZUV257hhOpM2pBRFttxY6z5DJcl1s1JP3yErLTTUcraW/dpZtxeEpPqrjzvk6Te1JaK
4uF1s0cr83P0FnMiIiIiLQi2ERCpCwSObrQ4NFf4aWplSQ35TgXXTDt51XvykOofS6lJ6lysdIZlt5OT
ZqUo2RlJX2CzOLx4P+uBw9oVF2rbzprD8cGJXWFpkDLNXV4VOdU+EvGpznFPKgPViFFdWep9AzVJJNp1
7iCPdL3CIVHtPBR1hUw3cH7qLC1JJytIY+XpZ2yOAdYq0cbd+/vD4ncrVVmUcmn0Wp/J2l/aoao6Ew3C
R3UqfbcXrz72pbBcOz1t8ixprDK11n/5ZejArvXNf5t1N45Fk5PzxNX2Vhm7L9xxlPJNAa8IpeJU0t64
IhIM1rjVFb6VutqI9D6Amd9ZabEGatS027dxrCnQr06Ms9THDhWHTjk8prULOdWlOpHNDDn0GoxvmoS5
XlxhpyH1flTt+qVj/wD1FNSpVi3GnUjfkxjNUxucaS5EyYkNbS1GW1wl8mqRBrfUXyNbqSX/ANeDmvJu
YcUmuLAlVbWvzdXNN+nki9PGkyJFpp2Q60ww0t595aW2WW0mpa1qPRKUpLUzMzPQiIThtJYsiyTbwRb8
xJZTWOMX4+sJrb8krfp9LeWemq3o8dCHnD02arcJSj07oo68uHcV51H/AJSb5WWjb0lSpxgtxJchsMax
mAAAAAOJeIDI3lup/I2kP71JozutVeQex+WnZubOVLO0vdVr9qRgDU2O7LlX3c8Kis7zcMj6erSkl/hR
kGW+f1VaklPumQA/jI1BZtm97kosZs2YkWWa4bR/YsvJJ5tJd0iSsiIAZFhKsFR8kUBS1brNSU5T3dum
pyEGlsv+8JIAkUAGP3XWyty2q7Xd0nFUuE9IabPkU4lJ9Gk/cNWhACLuXKkTpUmbMeVIly3VvSX17VLc
WZqUo/dMzAG5sDWdHum8TmVFgpFMtxopjrKy1Q4+pW6whRc5aka9Ofd0PYAOxblyVZNnz26ZcVbKnznm
EyEMFHkPH0alKSSjNlpZFqaT2GeoA1be1/YSv2kIo1aut9php9EliRFhy0PIWgjT3qlxHC0MlGR7ABr+
FTuGKKlon69OqRt676pKKik3NdffdBHaLZr9joAOrrYgUSmUClRLcZNihEwl6mNmp1R9E/q6R6vmbm3f
10VtLkAHugAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAA/hxxDSFuurS222k1OOKMiSlJFqZmZ7CIiAHPFU4uOGSkKlpl5xt
B04TZuPeBVJqcRkSN/Rs4puk4en2KNT173TXYOnHUt7LNRnyNdJpPWVsv/ZHlRy2xibgE40ardMnH5N/
K2mtolXFV7YjT7dkpOatekk402I1FfWpaVGtfQLPeMt8++LXsO81tqiMVU/S8yk1NZNzI21wYryHOVvq
/WLk4Z1naxi8u7mwfIzUt39Ujbz34WwcxVGm7pq0g3BTWZ2+RrLdLwiK7E3N1Guv4JW8envSG9Q22qL/
AG0k+BtdOPSatXZiD/RNrhWPRgRW53wLffDtezdi3+VPdqUmntVSnVGlPrkQ5UR5bjRONLcbZcLRxpaT
JaEmRlyaGRnMtW6ypX9L5lLHDHBp50+cjd7Y1LSfUnhjhjkzGJ4vyHX8U3/auQLamPQ6pbNQZll0K9zp
2UqLpo6+UjQ83vIURloZGM17awuqMqU1ka5HuPiMdrcSt6sZx3HzbqLgwo4tA4X6xe+zsrhduyGw+TE+
+50G2oR8pml9w5MlJF91GjOpP6vd0Eh2XtvnX0G80cZcmbnaORryt8q1lvyycufmxK0gtor47mwv1fua
s5Y7ouTLXrtoUegXAuUmmxq3LqDEtSYkhyMtw0R6fIRum40rdPf26CO3+01tZ1nRmpNrDHBLDKsd1o7N
rqOvc01Ui4pPfxx6DafZRcRHzzxz/qNX80DT8Z2fZqckfiNjw1c9qHK9Bsix+qVut9+M7krLFJpkdK1H
LgWzEfnLWgjLdJEmYUQkGZamZmyrTuK11LTudtYLFUabflk8OZY9Js0dmZf+yfEl53oJW8JYBxlw/W0u
2scUQ4SJakuVmty19PUKg6gjJLkl/ROuhGe6lKUoTqe6ktTEMv8AWVe+n16rx3luLgRJLSzpWsOrTWHS
+E3ONE2irpx0X5+8DihyhNZkFIp9uTkW1Td33qE0htMZ9JHz6yUuq193ZsFv7OW3yLGmt2XpP/yzc2BX
muq/zbqW8snJn58TU2AsZs5izLjvGsqRIiU+66u3Hq0qHu+ENwmkqflqZNaVpJZMtr3TUlREe0yMi0G7
rO8dpbTrJYuKycOZc5q2NsrivGm8ib5s5NX2UXDv888jf6jSPNAgPjO87NPkl8RLPDVt2p8q0DsouHf5
55G/1GkeaA8Z3nZp8kviHhq27U+VaDubC+ILVwVjui40s12dKodEXKdam1Rxp2Y+5LkOSHFvLZaYQZkb
m6W6gu9Ii5tRHb++qXtZ1qmGLwzZsiw8p2bW2hbU1Thjgt82mNM2CELra75TIuLEuN48gtaVT51xVWOk
z2nNcTFiGouTVJRntOfvhYGxVthGpVe61FcWV9KIltNWywp8LfQvORD0umzKxUqdSKe0b8+qyWYcFguV
bz6ybbT9dSiITipNQi5PMliRaEHOSis7eBcNsi1oVj2ZadmU1KUQLTo8GjwySWhdHCYQwk9u3aSNdooy
vWdapKpLPJt8padKmqcFFZksOQ1BxP54ofD7ia4bwnTI6bkkxnYVjUZxRdJNqjiNGSS3yqQ0Zk46ZciS
5dTLXe1Tq6d9cRppZP8AJ70d38vKat/eRtaTm8+4t9lUd112Q66++6t595anHnnFGpa1qPVSlKPUzMzP
UzMXOkksEVq228WSx9VLjCpVPIV7ZbkNLaoVr0pVv0949N1+oT1NuuJSfKfQsN6q/wCYkQrbO8jGlCgs
7fWfAsnO+gk2zVu3OVXcSw43l/HCTuCuiYld3rQb8+U3EPFtKPIJyFjq34cF1hO0kTZ+s54zPum06yR9
zd7uos/Y+2+XaOo885PkWTpxIPtHX69wodlc7y9GBwRY1rS75vW0LLgGopt21qBR4qkp3jSudIQwlWnP
oa9RJbmsqFKdR/4pvkWJxKFL5tSMN9pcpcLplOiUem0+kwGuhg0uM1EhMl9g0wgm0J+slJEKNlJybbzs
tJLBYH3DyfTRnEzfn7s8BZYvNEhEWZTLdls0l5w+9KfNT4HD+r+HeRs5x0NVW31N3Tp7jkseBZXzGpfV
vk0Jz3k8OHc5ypeLrKyJseqTsXo6XlzJb6CV4XKg2zTF7u1Pg6DmTC3vuumj7C7m3mFfbbXGM6VLeTly
5F0Ml+zNHCM6m+0uTL5yZIQUlIAEIvW1X509exPjKNILdpsGZctWjFtM1S3CiQ1K7m6TD+hfdfUFgbFW
2EalZ+SK6X5iJbTV8sKa8rfQvOQ8JSpakoQk1rWZElJFqZmfIREJ23gRRLEt54VsdONcR43sMk7r1rW7
T4E0zLQ1Sm2E+ErMubedNSvrijr64+orzqdqTfOWjbUvk0ow3kkZPe8OTULMu6BCQbkydRZ8eI2nXVTr
sZxCCLTbtMyGGi0qkW99GWaxi+Apxi9yqSXvqkJlNbvLM0B11tNXlUakvwGTUROKjsSJCZCkp11Mkqda
10LZqQg220X8uk9zGXmw85KdmGutUW7gvOTkCvSXkG3WrZlp9buGy8J0WW3KVaKl168OjPe6GdKa6OFH
MyVsWhha3FEaeRxGh8osLYywcIzuJL9Xox4N18uC4mRDaS7UnGitzK/N+OAiIbbcdcQ00hTrrqiQ22gj
UpSlHoRERbTMzE4bwysi6WORFsPhdxpJxDgHGFhVCP4LV6VSCk16MZ7ym6hUHFzpbZq59x19SPrbNgpb
W92rq7qVVmbycCyLmRZer7f6ehCnupZeF5Xzm1L4uiFZFl3beVRWluBalGnVeYpWwujhMLfUXPykjQad
Ck61SMFnk0uVmzVqKnByeZLHkKeNQnzKrPm1SoyFS6hUpDsqdKX75155RrcWrTnUozMxekIKEVFZlkKs
lJybk87LBnVm44p8LhkqtWq0RuexlWtVNybGeSSm3afGT5L6BaT13kmtl7XX7bQVjtbdOV91Vk6iXL+r
HnRONn6Kja4v/JvR5iHriuwNN4esx3BZhNuLtico6tY09ZK0dpclauibNajUalsGRsrPXUzTvaFvEJzq
XWSv7ZT/AMlklw/nn5iLa0snaVnH/F5Vwb3Ec3byiSaCUZIUZGpOuwzLXQ9Pc1MdfA52J0hwg2J+8biT
xFbjjS3YbVeaq9SJKdU+DUhKqg4lZ8hJWUfcM/utC26Dka9ufp7KrLdwwX/lk8+J0dU0fm3UFvPHkylr
EU2WOAAAAAaYzRkYrIt/wKnPEm462lTdP3TLejtci5BlzacifuvqGAI+zM1GalGZmZ6mZ8pmANl2JlOt
49izY9EpNJfcqDiXJU2Y08t5RILRCN5t9st1OpmRacpmAMevK76hfFbcr1UixIs11ltlxENC0NqJotEq
MnFuHrps5eYAY9BmPU6dDqEY92RBfbkMK7i2lEtJ/wBpACVanTmanT4NSjHrHqEdqSwfLqh1BLT/AMDA
GBZgbcdxrdyWiNSihksyL7VDqFKP6xEYAjcAHYPC+9C8Au2OlSSqJyIrjqec2SSskGXdIlb39oA/TJeF
L1ve8KlX4lTo7UB9LLUBiQ9IS4htptKTJRIjrLarePYo+UAcv3bbEqz63IoM2fCqE2IlJylwFrcabWot
ejNTjbZ7xFpqRFs+rqAPNotOXWKxSqS3qTlTmMREGktTI3nEoIyL64AlVZZbjstMNJ3GmEJbaR3EpLQi
/sIAfoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAD/FJSpJpURKSotFJPaRkfKRkAK3HGRwX3rhS7bgvK0KDIrmH6vKenU+
o09o3PIqXTU6qJMabIzabZ2kh0y3DTukaiXqQtXUOv6V3TjTqSwqrJl/y8q3291ZyB621TO3m5wWMHly
f48Pk8px3j3I98YpueHeWPLkl2tckFKm2ajFNKt5tem+0604lbbratCM0OJUkzIj01Ih3rq0pXUHTqxU
o/jjXEcmhcVKE+vTeDO72etP4k2qccFyjWNJkmk0+WHKXNKTqfIrdRUEM6l/ytBG3sbZY49afBivhxO1
4kucM0eR6ThbJeTr4y9d1RvjIVeeuC4qkSULkuElDbTLepNsMMoJKGm0anolJEWpmZ6qMzORWdnStKap
0lhFfjF77ONc3NS4m5zeL/GY7J4KODi9Mw3rbd/3XR5NAxNbk2PU3qjNaNo60uOpLzUSGhwiNxpwyInH
SLcJO8SVb+wuDtBr6la0pUoNOpJNZP8AHcxfl3l5jr6n1VOtUVSawgnj63B5PKWPRVhOiFPra78352Jc
YxpCNI7M256xF11Xq6oocFZ9wvwckvd+sJ9sTbf7Kz8kV0v/AOJE9pq36KfC30LzkNAnpEy3ZgqyF43w
1jCxnv8A7u2rbp8Sonpu6yyYSqSZEe0tXlKPQUhrC4+ouKlTtSb4schaFrS+VRhDeSRtcaZsAAABj123
JT7OtW5btqrqWaZbFLmVWoOrVupSzDZW8szPm71BjJRpOrOMI520lxnipNQi5PMliU7qxVZtdq1UrdRc
6aoViW/Onvcm89IcU44r66lGYvSnTVOKisyWHIVbUm5ycnnbxMrxtky9cRXZCvnHtYRQbqpzT7MGrKiR
JptIktqad3W5jL7ZGpCjTru66Geh7Rhu7Old0/l1VjF7mLXQ0ZLe5qW8+vTeD4E+k6V7QvjB9b3xBb/m
0cnwxq7uvel8Rv8A3y87fNHQO0L4wfW98QW/5tDwxq7uvel8Q++Xnb5o6CWPq8Mu5rzbZWQr0y3eCrqh
Rq1Fo9rpOnU+ATC40c35qiODGj9J0hSWS7/Xd3e901UIVtRZW1nVhToR6uTF5W87wWdvefKSbUdzXuKc
p1ZY5cFkS4cyW+SHiMHcKu3HXfSr94o8oy25CX4FuTW7bpxJMjShNJaTHfSR8+shLqvri3tm7b5FjTW7
L0nx5ubArzXVb5t1LeWTk/PE5boFcqlsV2i3LRJCYlZt6fGqdIlqabfS1KiOpeZWbTyVtrJK0Ee6tJpP
kMjLYO1VpxqwcJZU00+BnNpzcJKUc6eK4jrOV1gXF5MjuxnswOobdLRamKLQ2HC269641T0LT9YyHEWz
Ork8fle9LSdN68vH/nzR0HMN5X1eeQ60/cd9XRVLtrkjUl1KqyXJLiUGZqJts3FGSEJM+9QnRKS2EREO
vb21K3j1KcVFeRYHOrV6laXWnJt+U6u4fOBLNObqjBnVSiSsd2B0qTqF11uOth11nXvigQ3CQ4+oy2Er
RLevKvXYOLrPaS2s4tRanPcSzcb3Ok6ljqStcPGS6sd95+JFinFuMLQw7YtCx7Y9P8AoFBZNDRrMlvyH
lnvPSZDhEW+66szUo9CLmIiSREVXXd3Uuqrq1HjJ/jBeRE5t6EKEFCCwSNgKUlKTUoySlJaqUewiIuUz
MaxmKiud71/eNmfKN7olFMi3Fc1Rk0yQn3pwunUiIRHzklhKCI/cF26st/p7WnTwwaiseHd5ysr+t86v
OefFvk3OY6M6uqylXhxT2ZKUklw7JhVG45yDSZ6kwwcVgyMuQ0yJTStT7g5W1Vx8qwku01Hz9CZvagpd
e7T7Kb83nLL4qcn4AEY/WoX0VAwTbtlMuJKXf9xsk+0Z98qFSkHJdNJc+j6o/ubfqCW7HW/zLt1NyEXy
vJ0YnA2jrdS3Ue0+jLoK+gs4gxZ34ArIcsjhZxwiQkkzbqRKuSVoWmqak8pcY+QjP/LJa2//AAFQ7SXH
zr+o1mXo+zkfPiWJqal8u0gt9Y8uXoOzBwjqAAVe+PC903zxS5PlMS0y6fbkpi3acaDI0tlS2EMSEEZc
ukonjP3TFvbN2/ybCnisHLGT43k5sCvdd1vmXct5ZOTPz4mvOFuylZC4iMP2ruk4xKuaHMntqSaiXEpq
jnyk6Fp75mOsteYbWubj5FlVn/2tccvRXOzX1ZS+bc04+XHky+YtjilyygAK/HHLwTXXYN23FljGdDkV
/G1wyXanWqdAQp6TQ5T6jckb7KCNRxTUZqStJaNke4rdIkqVZezu0FOtTjQrPCayJvNJbnH0kL1zqicJ
urSWMXla3U9HQR848yNeuKbqp164/uCTbdyUwzKPPj7qiUhWm+080slNutr075C0mk+chJ7q0pXVN06s
cYv8cRwbe4qUJqdN4M7ar3WecTVaoLlFiqtW25brZtruSl0x3w/vuVSfCpUhhKtOQyZLTm27RH6eyFlC
XWfWa3m1hzJPnOxPaK6lHBdVeVLLztrmOBHnq5dFaW9IdnXFcVfmauOuKdlzZsySvlMz33HXHFq91SjP
uiSpQpQyYRilwJJdCOI3KpLdbfG2yZXgb4CKzRK1R8y5zox0yXSnEzLJx7MQXTtyE6KanVBs9ejU2ffN
sq74lkSlkk0kk4HtFtJGpF0Ld4p/ql5l53yEs1PqVwaq1ll3F535kTMiCEpOFusXvz5E8L12QmZBR6hf
k6DbULnUpL7hyZSSL7qNGcSZ+73dBIdl7b519F7kcZcmbnaORryv8q1lvyycufmxK0otor4t1YHsX92m
GcY2ItBIk23bkCNUt1O4Sphspclq3ebeeUs9vdFIawuPqLipU7Um+Lc5i0LSj8mjCG8kjnbj04dyzrhy
XUqFB8IyFjknqxa3RkXSymCSRzoGu6Zn0raSWhJaauoQWuhnr1NnNafRXKUn6E8j8m8+LobNHXFj9VRy
fqjlXnXH04FZ4W2V6Sx9U7YnlPJeR8iPtLNi0qCxSISzT+D8Jq7/AEilErnUhqGotC5CXt5SEK20uerR
p0l/k8fZX58xJ9maONSdTeWHL/0J4BXJMQAAA8a4K9TrZo8+uVV4mYVPaNxw/slH9ihBc6lHoRF3QBGn
eF1VG87gn1+pK0dlq0YjkeqGGU7G2ke4kv7T1PlMAbYwhi2JekmbWrjirftyARsMxt9xopMlRbS321JV
utkep6GW0y5tSAHSX7isV/Nb/wDnTvGABpbOOLbVtO2afWrXpJ09aJ6Y9Q0fkPEpt1tZpUfTOLItFIIt
ndAHK4AkSwhWCq+NqBvL336YTtPfLXXd6BZ9GX/dGgAbQmw41Rhy4Exonok5lbEpk+RTbiTSpJ/VIwBH
ZkbF1dsGoPqWw5Nt5xesCtISZo3VH3qHtPeLLk28vMAMLt6461atTaq9BnLp89ojR0qdFEtCtN5C0qI0
qSehbDL/AIgDadU4gci1OD4E3Kh0o1J3HZsFg0PqI+U95xbhJP3UEQA0/wCB1KXHmVXweRIisOF4dUTS
pSEuOnsJbh7N5RnznqYA2ngmkHVsk0dZp32aQ2/UHy0/FoNCD+s4tIAkLAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
f4ZEZGRlqR7DIwBoG8eFbh0v1yc/c+HLZlTKkk0zqlEhpp8twzPU1nJgmw7v/d729ps10HSoa4vKGChV
kktzHFcjxRp1dX29XHrQTb3cMvKspq3s9OD71Q/H9wechu+J9Y977sfhNX7HZ9jnlpNm2bwocOFguQH7
Yw5bceZTCPwCozovlOU0o19JvlJnqkO75HyLNW8RbCMi2DSuNc3lfHr1ZYPOscFyLBGzR1db0sOrBYry
YvleU6DSlKUklJElKS0SkthERchEQ5pun+gDXt14jxRfdSarN8YxtO8quzHTEZqtcosGoyUR0KUtLKXp
LLiyQlS1GSSPQjMz5zG1RvrihHq06koreUmlzMwVbWlVeM4Rb8qTMda4dOHyO60+xgnHjL7K0uMvN2xS
UrQtJ6pUlRRiMjIy1IyGV60u2sHWn7UtJ4Vjbp4qnH2VoNyDQNoAAAAA8+q0ml12mz6LXKbFrNHqjC4t
TpM5lEiNJYdI0raeZdJSFoUR6GlRGRkPUJyhJSi2mszWdHmUVJNNYpmp/Zu4d/UJjn0WpHio3fut531T
2paTW+gtu7h7K0D2buHf1CY59FqR4qH3W876p7UtI+gtu7h7K0D2buHf1CY59FqR4qH3W876p7UtI+gt
u7h7K0D2buHf1CY59FqR4qH3W876p7UtI+gtu7h7K0Gx7YtG1LJpaaHZlsUm0aKl1b6aPRYTECKTrmm+
smY6G0bytC1PTUxq1q1StLrVJOT3223zmxTpwprqwSS3ksDIRiPZqGfw+4Eqk6ZU6nhGwKjUqi+5KqFQ
lW1S3n333lGtx11xcY1LWtRmalGepntMb0dZ3cUkqs0lmXWek1ZWNvJ4unFt/wDatB8vs3cO/qExz6LU
jxUffut531T2paT59Bbd3D2VoHs3cO/qExz6LUjxUPut531T2paR9Bbd3D2VoMvtrGGNbLRuWdjy2bTR
05ydyjUmHALpzSSTd0jtI7/dSRb3LoRDBWu61Z41JylwtvpM1OhTprCEUuBJGcjXMoAH8ONodQtp1CXG
3EmlxtREaVJMtDIyPYZGQA017N3Dv6hMc+i1I8VG/wDdbzvqntS0mp9Bbd3D2VoMrtLFWL7BmSahYuN7
WsqoTWfB5k6g0eFTXnmd4l9G45FZbUpO8RHoZ6alqMNe8r10lUnKSW+2+ky0ralSeMIqPAkugz0axmAA
wu78b47yF5O+X1hW5fHkjpvJPygpcSp+C+EbnTdB4U050fSdGje3dNd1OvIQ2KF3WoY/KnKOOfBtY8hh
q29Orh14qWG+k+kwv2buHf1CY59FqR4qM/3W876p7UtJi+gtu7h7K0G3afT4FJgQqVSoUemUumR2olNp
sRpLLEdhlJIaaaaQRJQhCSJKUpIiIi0IaUpOTbbxbNpJJYLMfWPJ9AA1DP4fcCVSdMqdTwjYFRqVRfcl
VCoSrapbz777yjW4664uMalrWozNSjPUz2mN6Os7uKSVWaSzLrPSasrG3k8XTi2/+1aD1Lawxh6zKszX
rPxRZtqV2MhbcetUehU+DLbQ6k0OJQ/HYQsiUkzIyI9pbB4rX9xWj1alSUlvOTa52eqdrRpvGEIp76SR
soahsAAABoC+uFbh2yS7Ok3fiG3p0+pbhz6tEjnTZzqkKSslKlwFR3zV3pEat/U096fe7B0rbXF5b4Kn
VkktzHFcjxRp19X29bHrwTb3cz5VlNW9npwfeqH4/uDzkN3xPrHvfdj8Jq/Y7Psc8tJ0HY2FcR40fdlW
Dja3bTnP69NUadT2GZSiMjTunIJPSbuhn3u9ptPZtMcu4vri4yVZykvK2zfo2tKj+iKXAjZw1DOABit2
WLZN/QY9MvqzqHelNhvlKiU+vU+NUWGnySpBOoblNuJSvdUZbxFroZlzjNQuKtB405OL302ugx1aMKqw
nFNeVY9JgrXDpw+R3Wn2ME48ZfZWlxl5u2KSlaFpPVKkqKMRkZGWpGQ2XrS7awdaftS0mFWNuniqcfZW
g3INA2gANOyOHbh+lyH5cvBePZUqU4p2TJdtilLcccWZqUtalRjNRqM9TM+Uby1pdxWCrTw9aWk1XY27
eLpxx9VaDNbSsGxbAiy4NiWXQbKhT3SfnQ6DTYtNaedSndJxxEVttKlEnZqZa6DXr3NWu8ak3JrfbfSZ
qVGFJYQioryLDoMtGEyAAAB8NQplNq8ZUKrU+NU4alEpUSW0h5o1J2kZocJRalzbAB4HyAsT5k0H/TYv
/lgDIYFOp9KitwaXBj02EzvG1DitIZaTvGalbqEESS1MzM9CAH2AD4qhTKbV4yoVVp8apw1mSlxJbSHm
jNJ6kZocIy1I+TYAMf8AkBYnzJoP+mxf/LAHuUyj0misLi0alxKTFccN1yNCYbYbU4ZEk1mltKSMzJJF
r7hAD0QB/DjbbqFtOoS424RpcbURGlRHsMjI9hkANdVLEGNaq4Tkq0obaiM1f5Q3YZanoW0oy2yPkAHy
xcKYwhuk81ajK1kRkSX5El9G37h15af+AAzCo2lbdVoTtsy6QwVBd3N6mRyOM2XRrStG70BtmnRSS5DL
+wAeXbGObMs2ZIn23RSp0ySz4O8/08h4zbNRKNJdM4si2pI9gAzYAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH/9kL
</value>
</data>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

View File

@@ -0,0 +1,70 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptAuswertungLandscape
Property von As String = ""
Property bis As String = ""
Property filname As String = ""
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
If frmAuswertung.subrep = "subrptAuswertung" Then
Dim subrpt_Auswertung As New subrptAuswertung
Me.subrpt.Report = subrpt_Auswertung
ElseIf frmAuswertung.subrep = "subrptEinzelauswertung" Then
txtUeberschrift.Text = "Einzelauswertung"
Dim subrpt_Einzelauswertung As New subrptEinzelauswertung
Me.subrpt.Report = subrpt_Einzelauswertung
ElseIf frmAuswertung.subrep = "subrptEinzelStat" Then
txtUeberschrift.Text = "Einzelauswertung"
Dim subrpt_Einzelauswertung As New subrptEinzelStat
Me.subrpt.Report = subrpt_Einzelauswertung
ElseIf frmAuswertung.Suchauswertung Then
txtUeberschrift.Text = "Suchauswertung"
End If
End Sub
Private Sub PageHeader_Format(sender As Object, e As EventArgs) Handles PageHeader.Format
'If frmAuswertung.Jahresauswertung Then
' txtTitel.Text = frmAuswertung.filname & ", von: " & frmAuswertung.von.Substring(6) & " bis: " & frmAuswertung.bis.Substring(6)
'ElseIf frmAuswertung.Suchauswertung Then
' txtTitel.Text = "von: " & usrcntlAuftraege.von.ToString("dd.MM.yyyy") & " bis: " & usrcntlAuftraege.bis.ToString("dd.MM.yyyy")
'Else
' txtTitel.Text = frmAuswertung.filname & ", von: " & frmAuswertung.von & " bis: " & frmAuswertung.bis
'End If
txtTitel.Text = filname & ", von: " & von & " bis: " & bis
End Sub
Private Sub PageFooter_Format(sender As Object, e As EventArgs) Handles PageFooter.Format
If frmAuswertung.Info > "" Then
txtInfo.Text = "Das aktuelle Jahr " & frmAuswertung.Info & " ist NICHT vollständig!"
Else
txtInfo.Text = ""
End If
End Sub
Private Sub rptAuswertungLandscape_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
If frmAuswertung.Jahresauswertung = True Then txtUeberschrift.Text = "Jahresauswertung"
If frmAuswertung.Einzelauswertung = True Then txtUeberschrift.Text = "Einzelauswertung"
If frmAuswertung.subrep = "subrptAuswertung" Then
Dim subrpt_Auswertung As New subrptAuswertung
Me.subrpt.Report = subrpt_Auswertung
ElseIf frmAuswertung.subrep = "subrptEinzelauswertung" Then
txtUeberschrift.Text = "Einzelauswertung"
Dim subrpt_Einzelauswertung As New subrptEinzelauswertung
Me.subrpt.Report = subrpt_Einzelauswertung
ElseIf frmAuswertung.subrep = "subrptEinzelStat" Then
txtUeberschrift.Text = "Einzelauswertung"
Dim subrpt_Einzelauswertung As New subrptEinzelStat
Me.subrpt.Report = subrpt_Einzelauswertung
ElseIf frmAuswertung.Suchauswertung Then
txtUeberschrift.Text = "Suchauswertung"
End If
End Sub
End Class

View File

@@ -0,0 +1,609 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subrptAuswertung
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptAuswertung))
Dim ChartArea1 As GrapeCity.ActiveReports.Chart.ChartArea = New GrapeCity.ActiveReports.Chart.ChartArea()
Dim Axis1 As GrapeCity.ActiveReports.Chart.Axis = New GrapeCity.ActiveReports.Chart.Axis()
Dim Axis2 As GrapeCity.ActiveReports.Chart.Axis = New GrapeCity.ActiveReports.Chart.Axis()
Dim Axis3 As GrapeCity.ActiveReports.Chart.Axis = New GrapeCity.ActiveReports.Chart.Axis()
Dim Axis4 As GrapeCity.ActiveReports.Chart.Axis = New GrapeCity.ActiveReports.Chart.Axis()
Dim Axis5 As GrapeCity.ActiveReports.Chart.Axis = New GrapeCity.ActiveReports.Chart.Axis()
Dim WallRange1 As GrapeCity.ActiveReports.Chart.WallRange = New GrapeCity.ActiveReports.Chart.WallRange()
Dim Legend1 As GrapeCity.ActiveReports.Chart.Legend = New GrapeCity.ActiveReports.Chart.Legend()
Dim Title1 As GrapeCity.ActiveReports.Chart.Title = New GrapeCity.ActiveReports.Chart.Title()
Dim Title2 As GrapeCity.ActiveReports.Chart.Title = New GrapeCity.ActiveReports.Chart.Title()
Dim Series1 As GrapeCity.ActiveReports.Chart.Series = New GrapeCity.ActiveReports.Chart.Series()
Dim Series2 As GrapeCity.ActiveReports.Chart.Series = New GrapeCity.ActiveReports.Chart.Series()
Dim Series3 As GrapeCity.ActiveReports.Chart.Series = New GrapeCity.ActiveReports.Chart.Series()
Dim Title3 As GrapeCity.ActiveReports.Chart.Title = New GrapeCity.ActiveReports.Chart.Title()
Dim Title4 As GrapeCity.ActiveReports.Chart.Title = New GrapeCity.ActiveReports.Chart.Title()
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtMonat = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtRechnungen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVorkosten = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbfertigungsdatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMarge = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMargeProz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Chart = New GrapeCity.ActiveReports.SectionReportModel.ChartControl()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.txtRechnungenSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMargeSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtRechnungenSchnitt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMargeSchnitt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TxtSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVorkostenSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVorkostenSchnitt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahlSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahlSchnitt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMargeProzSchnitt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
CType(Me.txtMonat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtRechnungen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVorkosten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbfertigungsdatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMarge, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMargeProz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Chart, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtRechnungenSumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMargeSumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtRechnungenSchnitt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMargeSchnitt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TxtSumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVorkostenSumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVorkostenSchnitt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahlSumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahlSchnitt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMargeProzSchnitt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtMonat, Me.txtAnzahl, Me.txtRechnungen, Me.txtVorkosten, Me.txtAbfertigungsdatum, Me.txtMarge, Me.txtMargeProz})
Me.Detail.Height = 0.2708005!
Me.Detail.Name = "Detail"
'
'txtMonat
'
Me.txtMonat.Height = 0.2!
Me.txtMonat.Left = 0!
Me.txtMonat.Name = "txtMonat"
Me.txtMonat.Text = "txtMonat"
Me.txtMonat.Top = 0!
Me.txtMonat.Width = 1.0!
'
'txtAnzahl
'
Me.txtAnzahl.Height = 0.2!
Me.txtAnzahl.Left = 1.787402!
Me.txtAnzahl.Name = "txtAnzahl"
Me.txtAnzahl.Text = "txtAnzahl"
Me.txtAnzahl.Top = 0!
Me.txtAnzahl.Width = 1.0!
'
'txtRechnungen
'
Me.txtRechnungen.Height = 0.2!
Me.txtRechnungen.Left = 4.141733!
Me.txtRechnungen.Name = "txtRechnungen"
Me.txtRechnungen.Style = "background-color: LightCyan; text-align: left"
Me.txtRechnungen.Text = "txtRechnungen"
Me.txtRechnungen.Top = 0!
Me.txtRechnungen.Width = 1.364567!
'
'txtVorkosten
'
Me.txtVorkosten.Height = 0.2!
Me.txtVorkosten.Left = 2.787402!
Me.txtVorkosten.Name = "txtVorkosten"
Me.txtVorkosten.Text = "txtVorkosten"
Me.txtVorkosten.Top = 0!
Me.txtVorkosten.Width = 1.354331!
'
'txtAbfertigungsdatum
'
Me.txtAbfertigungsdatum.Height = 0.2!
Me.txtAbfertigungsdatum.Left = 1.0!
Me.txtAbfertigungsdatum.Name = "txtAbfertigungsdatum"
Me.txtAbfertigungsdatum.Text = "txtAbfertigungsdatum"
Me.txtAbfertigungsdatum.Top = 0!
Me.txtAbfertigungsdatum.Width = 0.7874016!
'
'txtMarge
'
Me.txtMarge.Height = 0.2!
Me.txtMarge.Left = 5.506299!
Me.txtMarge.Name = "txtMarge"
Me.txtMarge.Style = "text-align: left"
Me.txtMarge.Text = "txtMarge"
Me.txtMarge.Top = 0!
Me.txtMarge.Width = 1.364567!
'
'txtMargeProz
'
Me.txtMargeProz.Height = 0.2!
Me.txtMargeProz.Left = 6.870867!
Me.txtMargeProz.Name = "txtMargeProz"
Me.txtMargeProz.Style = "text-align: center"
Me.txtMargeProz.Text = "txtMargeProz"
Me.txtMargeProz.Top = 0!
Me.txtMargeProz.Width = 0.6094489!
'
'PageFooter
'
Me.PageFooter.Height = 0.01041651!
Me.PageFooter.Name = "PageFooter"
'
'ReportHeader1
'
Me.ReportHeader1.Height = 0!
Me.ReportHeader1.Name = "ReportHeader1"
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Chart, Me.Line1, Me.txtRechnungenSumme, Me.txtMargeSumme, Me.txtRechnungenSchnitt, Me.txtMargeSchnitt, Me.TxtSumme, Me.TextBox6, Me.txtVorkostenSumme, Me.txtVorkostenSchnitt, Me.txtAnzahlSumme, Me.txtAnzahlSchnitt, Me.txtMargeProzSchnitt})
Me.ReportFooter1.Height = 4.8438!
Me.ReportFooter1.Name = "ReportFooter1"
'
'Chart
'
Me.Chart.AutoRefresh = True
Me.Chart.Backdrop = New GrapeCity.ActiveReports.Chart.BackdropItem(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.White, System.Drawing.Color.SteelBlue, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, System.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched)
ChartArea1.AntiAliasMode = GrapeCity.ActiveReports.Chart.Graphics.AntiAliasMode.Graphics
Axis1.Arrow = GrapeCity.ActiveReports.Chart.ArrowType.Lines
Axis1.AxisType = GrapeCity.ActiveReports.Chart.AxisType.Categorical
Axis1.LabelFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New System.Drawing.Font("Microsoft Sans Serif", 8.0!), 75.0!)
Axis1.MajorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Black, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.Dash), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Black, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.Dot), 1.0R, 0!, False)
Axis1.MinorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0R, 0!, False)
Axis1.StaggerLabels = True
Axis1.TitleFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New System.Drawing.Font("Microsoft Sans Serif", 8.0!))
Axis2.LabelFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New System.Drawing.Font("Microsoft Sans Serif", 8.0!))
Axis2.LabelsGap = 0
Axis2.LabelsVisible = False
Axis2.Line = New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Black, 0)
Axis2.MajorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0R, 0!, False)
Axis2.MinorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0R, 0!, False)
Axis2.Position = 0R
Axis2.TickOffset = 0R
Axis2.TitleFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New System.Drawing.Font("Microsoft Sans Serif", 8.0!))
Axis2.Visible = False
Axis3.Arrow = GrapeCity.ActiveReports.Chart.ArrowType.Lines
Axis3.AxisType = GrapeCity.ActiveReports.Chart.AxisType.Categorical
Axis3.DisplayScale = True
Axis3.LabelFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New System.Drawing.Font("Microsoft Sans Serif", 8.0!))
Axis3.MajorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Gray, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Silver, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.Dot), 1.0R, 10.0!, True)
Axis3.MinorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Gray, 0), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0.1R, 0!, False)
Axis3.Position = 0R
Axis3.Title = "Euro"
Axis3.TitleFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New System.Drawing.Font("Microsoft Sans Serif", 8.0!), -90.0!)
Axis4.LabelFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New System.Drawing.Font("Microsoft Sans Serif", 8.0!))
Axis4.LabelsVisible = False
Axis4.Line = New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None)
Axis4.MajorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0R, 0!, False)
Axis4.MinorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0R, 0!, False)
Axis4.TitleFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New System.Drawing.Font("Microsoft Sans Serif", 8.0!))
Axis4.Visible = False
Axis5.LabelFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New System.Drawing.Font("Microsoft Sans Serif", 8.0!))
Axis5.LabelsGap = 0
Axis5.LabelsVisible = False
Axis5.Line = New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None)
Axis5.MajorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0R, 0!, False)
Axis5.MinorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0R, 0!, False)
Axis5.Position = 0R
Axis5.TickOffset = 0R
Axis5.TitleFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New System.Drawing.Font("Microsoft Sans Serif", 8.0!))
Axis5.Visible = False
ChartArea1.Axes.AddRange(New GrapeCity.ActiveReports.Chart.AxisBase() {Axis1, Axis2, Axis3, Axis4, Axis5})
ChartArea1.Backdrop = New GrapeCity.ActiveReports.Chart.BackdropItem(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.White, System.Drawing.Color.White, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, System.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched)
ChartArea1.Border = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0, System.Drawing.Color.Black)
ChartArea1.Light = New GrapeCity.ActiveReports.Chart.Light(New GrapeCity.ActiveReports.Chart.Graphics.Point3d(10.0!, 40.0!, 20.0!), GrapeCity.ActiveReports.Chart.LightType.InfiniteDirectional, 0.14!)
ChartArea1.Name = "defaultArea"
ChartArea1.Projection = New GrapeCity.ActiveReports.Chart.Projection(GrapeCity.ActiveReports.Chart.Graphics.ProjectionType.Identical, 0.1!, 0.1!, -8.0!, 20.0!)
WallRange1.AdjacentAxes.AddRange(New GrapeCity.ActiveReports.Chart.AxisBase() {Axis1})
WallRange1.Backdrop = New GrapeCity.ActiveReports.Chart.Graphics.Backdrop(System.Drawing.Color.LightGray)
WallRange1.Border = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Black, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None))
WallRange1.Name = "range1"
WallRange1.PrimaryAxis = Axis1
WallRange1.Visible = False
ChartArea1.WallRanges.AddRange(New GrapeCity.ActiveReports.Chart.WallRange() {WallRange1})
ChartArea1.WallXY = New GrapeCity.ActiveReports.Chart.PlaneItem(New GrapeCity.ActiveReports.Chart.Graphics.Backdrop(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.Red, System.Drawing.Color.White, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, System.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched))
Me.Chart.ChartAreas.AddRange(New GrapeCity.ActiveReports.Chart.ChartArea() {ChartArea1})
Me.Chart.ChartBorder = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)), 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 1, System.Drawing.Color.White)
Me.Chart.Height = 3.895669!
Me.Chart.Left = 0!
Legend1.Alignment = GrapeCity.ActiveReports.Chart.Alignment.Right
Legend1.Backdrop = New GrapeCity.ActiveReports.Chart.BackdropItem(System.Drawing.Color.White, CType(128, Byte))
Legend1.Border = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(), 0, System.Drawing.Color.Black)
Legend1.DockArea = ChartArea1
Title1.Backdrop = New GrapeCity.ActiveReports.Chart.Graphics.Backdrop(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.White, System.Drawing.Color.White, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, System.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched)
Title1.Border = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0, System.Drawing.Color.Black)
Title1.DockArea = Nothing
Title1.Font = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New System.Drawing.Font("Microsoft Sans Serif", 8.0!))
Title1.Name = ""
Title1.Text = ""
Legend1.Footer = Title1
Title2.Border = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.White, 2), 0, System.Drawing.Color.Black)
Title2.DockArea = Nothing
Title2.Font = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Bold))
Title2.Name = ""
Title2.Text = "Legende"
Legend1.Header = Title2
Legend1.LabelsFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New System.Drawing.Font("Arial", 8.0!))
Legend1.Name = "defaultLegend"
Me.Chart.Legends.AddRange(New GrapeCity.ActiveReports.Chart.Legend() {Legend1})
Me.Chart.Name = "Chart"
Series1.AxisX = Axis1
Series1.AxisY = Axis3
Series1.ChartArea = ChartArea1
Series1.Legend = Legend1
Series1.Name = "Vorkosten"
Series1.Properties = New GrapeCity.ActiveReports.Chart.CustomProperties(New GrapeCity.ActiveReports.Chart.KeyValuePair() {New GrapeCity.ActiveReports.Chart.KeyValuePair("Line", New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Red, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.Dot)), New GrapeCity.ActiveReports.Chart.KeyValuePair("BarType", GrapeCity.ActiveReports.Chart.BarType.Bar)})
Series1.Type = GrapeCity.ActiveReports.Chart.ChartType.Line
Series1.ValueMembersY = Nothing
Series1.ValueMemberX = Nothing
Series2.AxisX = Axis1
Series2.AxisY = Axis3
Series2.ChartArea = ChartArea1
Series2.Legend = Legend1
Series2.Name = "Rechnungen"
Series2.Properties = New GrapeCity.ActiveReports.Chart.CustomProperties(New GrapeCity.ActiveReports.Chart.KeyValuePair() {New GrapeCity.ActiveReports.Chart.KeyValuePair("Line", New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Lime, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.Dash)), New GrapeCity.ActiveReports.Chart.KeyValuePair("BarType", GrapeCity.ActiveReports.Chart.BarType.Bar)})
Series2.Type = GrapeCity.ActiveReports.Chart.ChartType.Line
Series2.ValueMembersY = Nothing
Series2.ValueMemberX = Nothing
Series3.AxisX = Axis1
Series3.AxisY = Axis3
Series3.ChartArea = ChartArea1
Series3.Legend = Legend1
Series3.Name = "Marge"
Series3.Properties = New GrapeCity.ActiveReports.Chart.CustomProperties(New GrapeCity.ActiveReports.Chart.KeyValuePair() {New GrapeCity.ActiveReports.Chart.KeyValuePair("Line", New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Black, 2))})
Series3.Type = GrapeCity.ActiveReports.Chart.ChartType.Line
Series3.ValueMembersY = Nothing
Series3.ValueMemberX = Nothing
Me.Chart.Series.AddRange(New GrapeCity.ActiveReports.Chart.Series() {Series1, Series2, Series3})
Title3.Alignment = GrapeCity.ActiveReports.Chart.Alignment.Center
Title3.Backdrop = New GrapeCity.ActiveReports.Chart.Graphics.Backdrop(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.White, System.Drawing.Color.White, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, System.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched)
Title3.Border = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0, System.Drawing.Color.Black)
Title3.DockArea = Nothing
Title3.Font = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New System.Drawing.Font("Arial", 10.0!, System.Drawing.FontStyle.Bold))
Title3.Name = "header"
Title3.Text = "Verlauf"
Title4.Border = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0, System.Drawing.Color.Black)
Title4.DockArea = Nothing
Title4.Docking = GrapeCity.ActiveReports.Chart.DockType.Bottom
Title4.Font = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New System.Drawing.Font("Microsoft Sans Serif", 8.0!))
Title4.Name = "footer"
Title4.Text = "Chart Footer"
Title4.Visible = False
Me.Chart.Titles.AddRange(New GrapeCity.ActiveReports.Chart.Title() {Title3, Title4})
Me.Chart.Top = 0.9480315!
Me.Chart.UIOptions = GrapeCity.ActiveReports.Chart.UIOptions.ForceHitTesting
Me.Chart.Width = 7.480316!
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0.3937008!
Me.Line1.LineColor = System.Drawing.Color.Gray
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.07283465!
Me.Line1.Width = 6.692914!
Me.Line1.X1 = 0.3937008!
Me.Line1.X2 = 7.086614!
Me.Line1.Y1 = 0.07283465!
Me.Line1.Y2 = 0.07283465!
'
'txtRechnungenSumme
'
Me.txtRechnungenSumme.Height = 0.2!
Me.txtRechnungenSumme.Left = 4.141733!
Me.txtRechnungenSumme.Name = "txtRechnungenSumme"
Me.txtRechnungenSumme.Style = "text-align: left"
Me.txtRechnungenSumme.Text = "txtRechnungenSumme"
Me.txtRechnungenSumme.Top = 0.1811024!
Me.txtRechnungenSumme.Width = 1.364567!
'
'txtMargeSumme
'
Me.txtMargeSumme.Height = 0.2!
Me.txtMargeSumme.Left = 5.506298!
Me.txtMargeSumme.Name = "txtMargeSumme"
Me.txtMargeSumme.Style = "text-align: left"
Me.txtMargeSumme.Text = "txtMargeSumme"
Me.txtMargeSumme.Top = 0.1811024!
Me.txtMargeSumme.Width = 1.364567!
'
'txtRechnungenSchnitt
'
Me.txtRechnungenSchnitt.Height = 0.2!
Me.txtRechnungenSchnitt.Left = 4.141733!
Me.txtRechnungenSchnitt.Name = "txtRechnungenSchnitt"
Me.txtRechnungenSchnitt.Style = "text-align: left"
Me.txtRechnungenSchnitt.Text = "txtRechnungenSchnitt"
Me.txtRechnungenSchnitt.Top = 0.4330709!
Me.txtRechnungenSchnitt.Width = 1.364567!
'
'txtMargeSchnitt
'
Me.txtMargeSchnitt.Height = 0.2!
Me.txtMargeSchnitt.Left = 5.506298!
Me.txtMargeSchnitt.Name = "txtMargeSchnitt"
Me.txtMargeSchnitt.Style = "text-align: left"
Me.txtMargeSchnitt.Text = "txtMargeSchnitt"
Me.txtMargeSchnitt.Top = 0.4330709!
Me.txtMargeSchnitt.Width = 1.364567!
'
'TxtSumme
'
Me.TxtSumme.Height = 0.2!
Me.TxtSumme.Left = 0.2165354!
Me.TxtSumme.Name = "TxtSumme"
Me.TxtSumme.Style = "text-align: left"
Me.TxtSumme.Text = "Summe:"
Me.TxtSumme.Top = 0.1811024!
Me.TxtSumme.Width = 1.364567!
'
'TextBox6
'
Me.TextBox6.Height = 0.2!
Me.TextBox6.Left = 0.2165352!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Style = "text-align: left"
Me.TextBox6.Text = "Durchschnitt:"
Me.TextBox6.Top = 0.433071!
Me.TextBox6.Width = 1.364567!
'
'txtVorkostenSumme
'
Me.txtVorkostenSumme.Height = 0.2!
Me.txtVorkostenSumme.Left = 2.787402!
Me.txtVorkostenSumme.Name = "txtVorkostenSumme"
Me.txtVorkostenSumme.Text = "txtVorkostenSumme"
Me.txtVorkostenSumme.Top = 0.1811024!
Me.txtVorkostenSumme.Width = 1.354331!
'
'txtVorkostenSchnitt
'
Me.txtVorkostenSchnitt.Height = 0.2!
Me.txtVorkostenSchnitt.Left = 2.787402!
Me.txtVorkostenSchnitt.Name = "txtVorkostenSchnitt"
Me.txtVorkostenSchnitt.Text = "txtVorkostenSchnitt"
Me.txtVorkostenSchnitt.Top = 0.4330709!
Me.txtVorkostenSchnitt.Width = 1.354331!
'
'txtAnzahlSumme
'
Me.txtAnzahlSumme.Height = 0.2!
Me.txtAnzahlSumme.Left = 1.787402!
Me.txtAnzahlSumme.Name = "txtAnzahlSumme"
Me.txtAnzahlSumme.Text = "txtAnzahlSumme"
Me.txtAnzahlSumme.Top = 0.1811024!
Me.txtAnzahlSumme.Width = 1.0!
'
'txtAnzahlSchnitt
'
Me.txtAnzahlSchnitt.Height = 0.2!
Me.txtAnzahlSchnitt.Left = 1.787402!
Me.txtAnzahlSchnitt.Name = "txtAnzahlSchnitt"
Me.txtAnzahlSchnitt.Text = "txtAnzahlSchnitt"
Me.txtAnzahlSchnitt.Top = 0.4330709!
Me.txtAnzahlSchnitt.Width = 1.0!
'
'txtMargeProzSchnitt
'
Me.txtMargeProzSchnitt.Height = 0.2!
Me.txtMargeProzSchnitt.Left = 6.870867!
Me.txtMargeProzSchnitt.Name = "txtMargeProzSchnitt"
Me.txtMargeProzSchnitt.Style = "text-align: center"
Me.txtMargeProzSchnitt.Text = "txtMargeProzSchnitt"
Me.txtMargeProzSchnitt.Top = 0.4330709!
Me.txtMargeProzSchnitt.Width = 0.6094489!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4, Me.TextBox5, Me.TextBox7, Me.TextBox8})
Me.GroupHeader1.DataField = ""
Me.GroupHeader1.Height = 0.375!
Me.GroupHeader1.Name = "GroupHeader1"
Me.GroupHeader1.RepeatStyle = GrapeCity.ActiveReports.SectionReportModel.RepeatStyle.OnPage
'
'TextBox1
'
Me.TextBox1.Height = 0.2!
Me.TextBox1.Left = 0.000001072884!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox1.Text = "Monat"
Me.TextBox1.Top = 0.07047245!
Me.TextBox1.Width = 1.0!
'
'TextBox2
'
Me.TextBox2.Height = 0.2!
Me.TextBox2.Left = 1.787402!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox2.Text = "Anzahl"
Me.TextBox2.Top = 0.07047245!
Me.TextBox2.Width = 1.0!
'
'TextBox3
'
Me.TextBox3.Height = 0.2!
Me.TextBox3.Left = 4.141735!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox3.Text = "Rechnungen"
Me.TextBox3.Top = 0.07047245!
Me.TextBox3.Width = 1.364567!
'
'TextBox4
'
Me.TextBox4.Height = 0.2!
Me.TextBox4.Left = 2.787402!
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox4.Text = "Vorkosten"
Me.TextBox4.Top = 0.07047245!
Me.TextBox4.Width = 1.354331!
'
'TextBox5
'
Me.TextBox5.Height = 0.2!
Me.TextBox5.Left = 1.000001!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox5.Text = "Jahr"
Me.TextBox5.Top = 0.07047245!
Me.TextBox5.Width = 0.7874014!
'
'TextBox7
'
Me.TextBox7.Height = 0.2!
Me.TextBox7.Left = 5.5063!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox7.Text = "Marge"
Me.TextBox7.Top = 0.07047245!
Me.TextBox7.Width = 1.364567!
'
'TextBox8
'
Me.TextBox8.Height = 0.2!
Me.TextBox8.Left = 6.870868!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold; text-align: " &
"center"
Me.TextBox8.Text = "%"
Me.TextBox8.Top = 0.07047245!
Me.TextBox8.Width = 0.6094489!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'subrptAuswertung
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.480317!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.txtMonat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtRechnungen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVorkosten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbfertigungsdatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMarge, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMargeProz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Chart, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtRechnungenSumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMargeSumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtRechnungenSchnitt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMargeSchnitt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TxtSumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVorkostenSumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVorkostenSchnitt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahlSumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahlSchnitt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMargeProzSchnitt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtMonat As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnzahl As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtRechnungen As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtVorkosten As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAbfertigungsdatum As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtMarge As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtMargeProz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents Chart As GrapeCity.ActiveReports.SectionReportModel.ChartControl
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents txtRechnungenSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtRechnungenSchnitt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TxtSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtMargeSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtMargeSchnitt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtVorkostenSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtVorkostenSchnitt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnzahlSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnzahlSchnitt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtMargeProzSchnitt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
End Class

View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

View File

@@ -0,0 +1,137 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptAuswertung
Property whatshallwedo As String = ""
Public Rechnungssumme As Double = 0
Public Vorkostensumme As Double = 0
Public MargeSumme As Double = 0
Public AnzahlSumme As Double = 0
Public AnzahlProz As Double = 0
Public c As Integer = 0 ' Wiederholungscounter
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
'If frmAuswertung.Jahresauswertung = False Then
' Try
' txtMonat.Text = Fields.Item("Monat").Value
' txtAbfertigungsdatum.Text = Fields.Item("Jahr").Value 'VERAG_PROG_ALLGEMEIN.SQL.checkNullStr(Fields.Item("Abfertigungsdatum").Value).Substring(6)
' Catch
' txtMonat.Text = "-"
' txtAbfertigungsdatum.Text = "-"
' End Try
'ElseIf frmAuswertung.Jahresauswertung = True Then
' txtMonat.Text = "-"
' txtAbfertigungsdatum.Text = VERAG_PROG_ALLGEMEIN.SQL.checkNullStr(Fields.Item("Jahr").Value)
'End If
Select Case whatshallwedo
Case "Jahresauswertung"
txtMonat.Text = "-"
txtAbfertigungsdatum.Text = VERAG_PROG_ALLGEMEIN.SQL.checkNullStr(Fields.Item("Jahr").Value)
Case Else
Try
txtMonat.Text = Fields.Item("Monat").Value
txtAbfertigungsdatum.Text = Fields.Item("Jahr").Value 'VERAG_PROG_ALLGEMEIN.SQL.checkNullStr(Fields.Item("Abfertigungsdatum").Value).Substring(6)
Catch
txtMonat.Text = "-"
txtAbfertigungsdatum.Text = "-"
End Try
End Select
txtAnzahl.Text = VERAG_PROG_ALLGEMEIN.SQL.checkNulDbl(Fields.Item("Anzahl").Value)
txtRechnungen.Text = CDbl(VERAG_PROG_ALLGEMEIN.SQL.checkNulDbl(Fields.Item("Rechnungen").Value)).ToString("c2")
txtVorkosten.Text = CDbl(VERAG_PROG_ALLGEMEIN.SQL.checkNulDbl(Fields.Item("Vorkosten").Value)).ToString("c2")
txtMarge.Text = (txtRechnungen.Text - txtVorkosten.Text).ToString("c2")
Dim i As Double = CDbl((100 * txtMarge.Text) / txtRechnungen.Text).ToString("N2")
txtMargeProz.Text = i & "%"
If c Mod 2 = 0 Then
txtMonat.BackColor = Color.White
txtAnzahl.BackColor = Color.White
txtRechnungen.BackColor = Color.White
txtVorkosten.BackColor = Color.White
txtAbfertigungsdatum.BackColor = Color.White
txtMarge.BackColor = Color.White
txtMargeProz.BackColor = Color.White
Else
txtMonat.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtAnzahl.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtRechnungen.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtVorkosten.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtAbfertigungsdatum.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtMarge.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtMargeProz.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
End If
Rechnungssumme = Rechnungssumme + txtRechnungen.Text
Vorkostensumme = Vorkostensumme + txtVorkosten.Text
MargeSumme = MargeSumme + txtMarge.Text
AnzahlSumme = AnzahlSumme + txtAnzahl.Text
AnzahlProz = AnzahlProz + i
Try
Dim dprechnungen, dpvorkosten, dpmarge As New GrapeCity.ActiveReports.Chart.DataPoint
If frmAuswertung.Jahresauswertung = False Then
dprechnungen.XValue = VERAG_PROG_ALLGEMEIN.SQL.checkNullStr(Fields.Item(4).Value).Substring(3)
Else
dprechnungen.XValue = VERAG_PROG_ALLGEMEIN.SQL.checkNullStr(Fields.Item("Jahr").Value)
End If
dprechnungen.YValues = New Chart.DoubleArray(New Double() {VERAG_PROG_ALLGEMEIN.SQL.checkNulDbl(Fields.Item("Rechnungen").Value)})
Chart.Series("Rechnungen").Points.Add(dprechnungen)
dpvorkosten.XValue = dprechnungen.XValue
'dpvorkosten.XValue = VERAG_PROG_ALLGEMEIN.SQL.checkNullStr(Fields.Item(4).Value).Substring(3)
dpvorkosten.YValues = New Chart.DoubleArray(New Double() {VERAG_PROG_ALLGEMEIN.SQL.checkNulDbl(Fields.Item("Vorkosten").Value)})
Chart.Series("Vorkosten").Points.Add(dpvorkosten)
dpmarge.XValue = dprechnungen.XValue
'dpvorkosten.XValue = VERAG_PROG_ALLGEMEIN.SQL.checkNullStr(Fields.Item(4).Value).Substring(3)
dpmarge.YValues = New Chart.DoubleArray(New Double() {txtMarge.Text})
Chart.Series("Marge").Points.Add(dpmarge)
Catch ex As Exception
End Try
c = c + 1
End Sub
Private Sub rptAuswertung_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
DataSource = frmAuswertung.dt 'frmAuswertung.ds.Tables(0)
End Sub
Private Sub PageFooter_Format(sender As Object, e As EventArgs) Handles PageFooter.Format
End Sub
Private Sub Detail_AfterPrint(sender As Object, e As EventArgs) Handles Detail.AfterPrint
End Sub
Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
txtMargeSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtRechnungenSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtVorkostenSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtAnzahlSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
TxtSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtMargeSumme.Text = MargeSumme.ToString("c2")
txtRechnungenSumme.Text = Rechnungssumme.ToString("c2")
txtVorkostenSumme.Text = Vorkostensumme.ToString("c2")
txtAnzahlSumme.Text = AnzahlSumme.ToString
txtMargeSchnitt.Text = (MargeSumme / c).ToString("c2")
txtRechnungenSchnitt.Text = (Rechnungssumme / c).ToString("c2")
txtVorkostenSchnitt.Text = (Vorkostensumme / c).ToString("c2")
txtAnzahlSchnitt.Text = (AnzahlSumme / c).ToString("n2")
txtMargeProzSchnitt.Text = (AnzahlProz / c).ToString("n2") & "%"
End Sub
End Class

View File

@@ -0,0 +1,324 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptEinzelStat
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptEinzelStat))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtPosNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAuftraggeber = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLeistung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtSummeAuftraege = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtSummeTransporte = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtSummeHandlings = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtPosNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSummeAuftraege, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSummeTransporte, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSummeHandlings, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtPosNr, Me.txtAuftraggeber, Me.txtFraechter, Me.txtLeistung, Me.txtDatum})
Me.Detail.Height = 0.2397638!
Me.Detail.Name = "Detail"
'
'txtPosNr
'
Me.txtPosNr.Height = 0.2!
Me.txtPosNr.Left = 0!
Me.txtPosNr.Name = "txtPosNr"
Me.txtPosNr.Style = "font-size: 9.75pt; font-weight: normal"
Me.txtPosNr.Text = "PosNr."
Me.txtPosNr.Top = 0!
Me.txtPosNr.Width = 0.8267716!
'
'txtAuftraggeber
'
Me.txtAuftraggeber.Height = 0.2!
Me.txtAuftraggeber.Left = 1.970866!
Me.txtAuftraggeber.Name = "txtAuftraggeber"
Me.txtAuftraggeber.Style = "font-size: 9.75pt; font-weight: normal"
Me.txtAuftraggeber.Text = "Auftraggeber"
Me.txtAuftraggeber.Top = 0!
Me.txtAuftraggeber.Width = 3.937796!
'
'txtFraechter
'
Me.txtFraechter.Height = 0.2!
Me.txtFraechter.Left = 5.908662!
Me.txtFraechter.Name = "txtFraechter"
Me.txtFraechter.Style = "font-size: 9.75pt; font-weight: normal"
Me.txtFraechter.Text = "Frächter"
Me.txtFraechter.Top = 0!
Me.txtFraechter.Width = 3.933859!
'
'txtLeistung
'
Me.txtLeistung.Height = 0.2!
Me.txtLeistung.Left = 9.842521!
Me.txtLeistung.Name = "txtLeistung"
Me.txtLeistung.Style = "font-size: 9.75pt; font-weight: normal"
Me.txtLeistung.Text = "Leistung"
Me.txtLeistung.Top = 0!
Me.txtLeistung.Width = 1.141733!
'
'txtDatum
'
Me.txtDatum.Height = 0.2!
Me.txtDatum.Left = 0.8267717!
Me.txtDatum.Name = "txtDatum"
Me.txtDatum.Style = "font-size: 9.75pt; font-weight: normal"
Me.txtDatum.Text = "Datum"
Me.txtDatum.Top = 0!
Me.txtDatum.Width = 0.8267716!
'
'PageFooter
'
Me.PageFooter.Height = 0!
Me.PageFooter.Name = "PageFooter"
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox1, Me.TextBox2, Me.TextBox6, Me.TextBox7, Me.TextBox3})
Me.GroupHeader1.Height = 0.2501394!
Me.GroupHeader1.Name = "GroupHeader1"
Me.GroupHeader1.RepeatStyle = GrapeCity.ActiveReports.SectionReportModel.RepeatStyle.OnPage
'
'TextBox1
'
Me.TextBox1.Height = 0.2!
Me.TextBox1.Left = 0!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox1.Text = "PosNr."
Me.TextBox1.Top = 0!
Me.TextBox1.Width = 0.8267716!
'
'TextBox2
'
Me.TextBox2.Height = 0.2!
Me.TextBox2.Left = 1.970866!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox2.Text = "Auftraggeber"
Me.TextBox2.Top = 0!
Me.TextBox2.Width = 3.937796!
'
'TextBox6
'
Me.TextBox6.Height = 0.2!
Me.TextBox6.Left = 5.908662!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox6.Text = "Frächter"
Me.TextBox6.Top = 0!
Me.TextBox6.Width = 3.933859!
'
'TextBox7
'
Me.TextBox7.Height = 0.2!
Me.TextBox7.Left = 9.842521!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox7.Text = "Leistung"
Me.TextBox7.Top = 0.0001393631!
Me.TextBox7.Width = 1.14173!
'
'TextBox3
'
Me.TextBox3.Height = 0.2!
Me.TextBox3.Left = 0.8267717!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox3.Text = "Datum"
Me.TextBox3.Top = 0!
Me.TextBox3.Width = 0.8267716!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'ReportHeader1
'
Me.ReportHeader1.Height = 0!
Me.ReportHeader1.Name = "ReportHeader1"
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox4, Me.TextBox5, Me.TextBox8, Me.txtSummeAuftraege, Me.txtSummeTransporte, Me.txtSummeHandlings})
Me.ReportFooter1.Height = 1.177083!
Me.ReportFooter1.Name = "ReportFooter1"
'
'TextBox4
'
Me.TextBox4.Height = 0.2!
Me.TextBox4.Left = 0.8267717!
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox4.Text = "Summe"
Me.TextBox4.Top = 0.1397638!
Me.TextBox4.Width = 1.09252!
'
'TextBox5
'
Me.TextBox5.Height = 0.2!
Me.TextBox5.Left = 0.8267717!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 9.75pt; font-weight: normal"
Me.TextBox5.Text = "Transporte:"
Me.TextBox5.Top = 0.3397638!
Me.TextBox5.Width = 0.8267716!
'
'TextBox8
'
Me.TextBox8.Height = 0.2!
Me.TextBox8.Left = 0.8267717!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "font-size: 9.75pt; font-weight: normal"
Me.TextBox8.Text = "Handlings:"
Me.TextBox8.Top = 0.5397638!
Me.TextBox8.Width = 0.8267716!
'
'txtSummeAuftraege
'
Me.txtSummeAuftraege.Height = 0.2!
Me.txtSummeAuftraege.Left = 2.435433!
Me.txtSummeAuftraege.Name = "txtSummeAuftraege"
Me.txtSummeAuftraege.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.txtSummeAuftraege.Text = "Summe"
Me.txtSummeAuftraege.Top = 0.1397638!
Me.txtSummeAuftraege.Width = 1.09252!
'
'txtSummeTransporte
'
Me.txtSummeTransporte.Height = 0.2!
Me.txtSummeTransporte.Left = 2.435433!
Me.txtSummeTransporte.Name = "txtSummeTransporte"
Me.txtSummeTransporte.Style = "font-size: 9.75pt; font-weight: normal"
Me.txtSummeTransporte.Text = "Transporte:"
Me.txtSummeTransporte.Top = 0.3397638!
Me.txtSummeTransporte.Width = 0.8267716!
'
'txtSummeHandlings
'
Me.txtSummeHandlings.Height = 0.2!
Me.txtSummeHandlings.Left = 2.435433!
Me.txtSummeHandlings.Name = "txtSummeHandlings"
Me.txtSummeHandlings.Style = "font-size: 9.75pt; font-weight: normal"
Me.txtSummeHandlings.Text = "Handlings:"
Me.txtSummeHandlings.Top = 0.5397638!
Me.txtSummeHandlings.Width = 0.8267716!
'
'subrptEinzelStat
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 10.98425!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.txtPosNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSummeAuftraege, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSummeTransporte, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSummeHandlings, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtPosNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAuftraggeber As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLeistung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtDatum As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtSummeAuftraege As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtSummeTransporte As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtSummeHandlings As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

View File

@@ -0,0 +1,48 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptEinzelStat
Dim t As Integer = 0
Dim h As Integer = 0
Dim c As Integer = 0
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
txtPosNr.Text = Fields.Item("atr_frachtpos").Value
txtDatum.Text = Fields.Item("atr_datum").Value
txtAuftraggeber.Text = Fields.Item("atr_auftr_firma").Value
txtFraechter.Text = Fields.Item("Transportunternehmen").Value
txtLeistung.Text = Fields.Item("atr_AuftragsArt").Value
If txtLeistung.Text = "HANDLING" Then
h = h + 1
ElseIf txtLeistung.Text = "TRANSPORT" Then
t = t + 1
End If
c = c + 1
If c Mod 2 = 0 Then
txtPosNr.BackColor = Color.White
txtDatum.BackColor = Color.White
txtAuftraggeber.BackColor = Color.White
txtFraechter.BackColor = Color.White
txtLeistung.BackColor = Color.White
Else
txtPosNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtDatum.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtAuftraggeber.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtFraechter.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtLeistung.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
End If
End Sub
Private Sub subrptEinzelStat_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
DataSource = frmAuswertung.dt
End Sub
Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
txtSummeAuftraege.Text = h + t
txtSummeTransporte.Text = t
txtSummeHandlings.Text = h
End Sub
End Class

View File

@@ -0,0 +1,706 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptEinzelauswertung
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptEinzelauswertung))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtPosNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAuftraggeber = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgaben = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGewinn = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLeistung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMarge = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEinnahmen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.txtRechnungenSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMargeSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtRechnungenSchnitt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMargeSchnitt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TxtSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVorkostenSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVorkostenSchnitt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahlSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMargeProzSchnitt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox13 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtRechnungenSummeTransporte = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMargeSummeTransporte = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtTransporte = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVorkostenSummeTransporte = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahlSummeTransporte = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtRechnungenSummeHandlings = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMargeSummeHandlings = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox21 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVorkostenSummeHandlings = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahlSummeHandlings = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMargeProzSchnittTransporte = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMargeProzSchnittHandlings = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox14 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
CType(Me.txtPosNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgaben, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGewinn, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMarge, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEinnahmen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtRechnungenSumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMargeSumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtRechnungenSchnitt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMargeSchnitt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TxtSumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVorkostenSumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVorkostenSchnitt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahlSumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMargeProzSchnitt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtRechnungenSummeTransporte, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMargeSummeTransporte, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTransporte, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVorkostenSummeTransporte, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahlSummeTransporte, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtRechnungenSummeHandlings, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMargeSummeHandlings, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox21, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVorkostenSummeHandlings, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahlSummeHandlings, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMargeProzSchnittTransporte, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMargeProzSchnittHandlings, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtPosNr, Me.txtAuftraggeber, Me.txtAusgaben, Me.txtGewinn, Me.txtFraechter, Me.txtLeistung, Me.txtMarge, Me.txtEinnahmen})
Me.Detail.Height = 0.20835!
Me.Detail.Name = "Detail"
'
'txtPosNr
'
Me.txtPosNr.Height = 0.2!
Me.txtPosNr.Left = 0!
Me.txtPosNr.Name = "txtPosNr"
Me.txtPosNr.Style = "font-size: 9.75pt; font-weight: normal"
Me.txtPosNr.Text = "PosNr."
Me.txtPosNr.Top = 0!
Me.txtPosNr.Width = 0.8267716!
'
'txtAuftraggeber
'
Me.txtAuftraggeber.Height = 0.2!
Me.txtAuftraggeber.Left = 0.8267717!
Me.txtAuftraggeber.Name = "txtAuftraggeber"
Me.txtAuftraggeber.Style = "font-size: 9.75pt; font-weight: normal"
Me.txtAuftraggeber.Text = "Auftraggeber"
Me.txtAuftraggeber.Top = 0!
Me.txtAuftraggeber.Width = 3.385827!
'
'txtAusgaben
'
Me.txtAusgaben.Height = 0.2!
Me.txtAusgaben.Left = 4.212599!
Me.txtAusgaben.Name = "txtAusgaben"
Me.txtAusgaben.Style = "font-size: 9.75pt; font-weight: normal"
Me.txtAusgaben.Text = "Ausg."
Me.txtAusgaben.Top = 0!
Me.txtAusgaben.Width = 0.6311023!
'
'txtGewinn
'
Me.txtGewinn.Height = 0.2!
Me.txtGewinn.Left = 5.474803!
Me.txtGewinn.Name = "txtGewinn"
Me.txtGewinn.Style = "font-size: 9.75pt; font-weight: normal"
Me.txtGewinn.Text = "Gewinn"
Me.txtGewinn.Top = 0!
Me.txtGewinn.Width = 0.7086617!
'
'txtFraechter
'
Me.txtFraechter.Height = 0.2!
Me.txtFraechter.Left = 6.815355!
Me.txtFraechter.Name = "txtFraechter"
Me.txtFraechter.Style = "font-size: 9.75pt; font-weight: normal"
Me.txtFraechter.Text = "Frächter"
Me.txtFraechter.Top = 0!
Me.txtFraechter.Width = 3.381496!
'
'txtLeistung
'
Me.txtLeistung.Height = 0.2!
Me.txtLeistung.Left = 10.19685!
Me.txtLeistung.Name = "txtLeistung"
Me.txtLeistung.Style = "font-size: 9.75pt; font-weight: normal"
Me.txtLeistung.Text = "Leistung"
Me.txtLeistung.Top = 0!
Me.txtLeistung.Width = 0.7874026!
'
'txtMarge
'
Me.txtMarge.Height = 0.2!
Me.txtMarge.Left = 6.183465!
Me.txtMarge.Name = "txtMarge"
Me.txtMarge.Style = "font-size: 9.75pt; font-weight: normal"
Me.txtMarge.Text = "Marge"
Me.txtMarge.Top = 0!
Me.txtMarge.Width = 0.6299216!
'
'txtEinnahmen
'
Me.txtEinnahmen.Height = 0.2!
Me.txtEinnahmen.Left = 4.843701!
Me.txtEinnahmen.Name = "txtEinnahmen"
Me.txtEinnahmen.Style = "font-size: 9.75pt; font-weight: normal"
Me.txtEinnahmen.Text = "Einn."
Me.txtEinnahmen.Top = 0!
Me.txtEinnahmen.Width = 0.6311027!
'
'PageFooter
'
Me.PageFooter.Height = 0!
Me.PageFooter.Name = "PageFooter"
'
'ReportHeader1
'
Me.ReportHeader1.Height = 0!
Me.ReportHeader1.Name = "ReportHeader1"
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.txtRechnungenSumme, Me.txtMargeSumme, Me.txtRechnungenSchnitt, Me.txtMargeSchnitt, Me.TxtSumme, Me.TextBox9, Me.txtVorkostenSumme, Me.txtVorkostenSchnitt, Me.txtAnzahlSumme, Me.txtMargeProzSchnitt, Me.TextBox10, Me.TextBox11, Me.TextBox12, Me.TextBox13, Me.txtRechnungenSummeTransporte, Me.txtMargeSummeTransporte, Me.txtTransporte, Me.txtVorkostenSummeTransporte, Me.txtAnzahlSummeTransporte, Me.txtRechnungenSummeHandlings, Me.txtMargeSummeHandlings, Me.TextBox21, Me.txtVorkostenSummeHandlings, Me.txtAnzahlSummeHandlings, Me.txtMargeProzSchnittTransporte, Me.txtMargeProzSchnittHandlings, Me.TextBox14})
Me.ReportFooter1.Height = 1.729167!
Me.ReportFooter1.Name = "ReportFooter1"
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0.984252!
Me.Line1.LineColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.0937008!
Me.Line1.Width = 9.015746!
Me.Line1.X1 = 0.984252!
Me.Line1.X2 = 9.999998!
Me.Line1.Y1 = 0.0937008!
Me.Line1.Y2 = 0.0937008!
'
'txtRechnungenSumme
'
Me.txtRechnungenSumme.Height = 0.2!
Me.txtRechnungenSumme.Left = 4.845673!
Me.txtRechnungenSumme.Name = "txtRechnungenSumme"
Me.txtRechnungenSumme.Style = "text-align: left"
Me.txtRechnungenSumme.Text = "txtRechnungenSumme"
Me.txtRechnungenSumme.Top = 0.368504!
Me.txtRechnungenSumme.Width = 1.364567!
'
'txtMargeSumme
'
Me.txtMargeSumme.Height = 0.2!
Me.txtMargeSumme.Left = 6.210237!
Me.txtMargeSumme.Name = "txtMargeSumme"
Me.txtMargeSumme.Style = "text-align: left"
Me.txtMargeSumme.Text = "txtMargeSumme"
Me.txtMargeSumme.Top = 0.368504!
Me.txtMargeSumme.Width = 1.364567!
'
'txtRechnungenSchnitt
'
Me.txtRechnungenSchnitt.Height = 0.2!
Me.txtRechnungenSchnitt.Left = 4.845673!
Me.txtRechnungenSchnitt.Name = "txtRechnungenSchnitt"
Me.txtRechnungenSchnitt.Style = "text-align: left"
Me.txtRechnungenSchnitt.Text = "txtRechnungenSchnitt"
Me.txtRechnungenSchnitt.Top = 0.6204725!
Me.txtRechnungenSchnitt.Width = 1.364567!
'
'txtMargeSchnitt
'
Me.txtMargeSchnitt.Height = 0.2!
Me.txtMargeSchnitt.Left = 6.210237!
Me.txtMargeSchnitt.Name = "txtMargeSchnitt"
Me.txtMargeSchnitt.Style = "text-align: left"
Me.txtMargeSchnitt.Text = "txtMargeSchnitt"
Me.txtMargeSchnitt.Top = 0.6204725!
Me.txtMargeSchnitt.Width = 1.364567!
'
'TxtSumme
'
Me.TxtSumme.Height = 0.2!
Me.TxtSumme.Left = 0.9204738!
Me.TxtSumme.Name = "TxtSumme"
Me.TxtSumme.Style = "font-size: 9.75pt; font-weight: bold; text-align: left"
Me.TxtSumme.Text = "Summe:"
Me.TxtSumme.Top = 0.368504!
Me.TxtSumme.Width = 1.364567!
'
'TextBox9
'
Me.TextBox9.Height = 0.2!
Me.TextBox9.Left = 0.9204735!
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.Style = "font-size: 9.75pt; font-weight: bold; text-align: left"
Me.TextBox9.Text = "Durchschnitt:"
Me.TextBox9.Top = 0.6204725!
Me.TextBox9.Width = 1.364567!
'
'txtVorkostenSumme
'
Me.txtVorkostenSumme.Height = 0.2!
Me.txtVorkostenSumme.Left = 3.491341!
Me.txtVorkostenSumme.Name = "txtVorkostenSumme"
Me.txtVorkostenSumme.Text = "txtVorkostenSumme"
Me.txtVorkostenSumme.Top = 0.368504!
Me.txtVorkostenSumme.Width = 1.354331!
'
'txtVorkostenSchnitt
'
Me.txtVorkostenSchnitt.Height = 0.2!
Me.txtVorkostenSchnitt.Left = 3.491341!
Me.txtVorkostenSchnitt.Name = "txtVorkostenSchnitt"
Me.txtVorkostenSchnitt.Text = "txtVorkostenSchnitt"
Me.txtVorkostenSchnitt.Top = 0.6204725!
Me.txtVorkostenSchnitt.Width = 1.354331!
'
'txtAnzahlSumme
'
Me.txtAnzahlSumme.Height = 0.2!
Me.txtAnzahlSumme.Left = 2.491341!
Me.txtAnzahlSumme.Name = "txtAnzahlSumme"
Me.txtAnzahlSumme.Text = "txtAnzahlSumme"
Me.txtAnzahlSumme.Top = 0.368504!
Me.txtAnzahlSumme.Width = 1.0!
'
'txtMargeProzSchnitt
'
Me.txtMargeProzSchnitt.Height = 0.2!
Me.txtMargeProzSchnitt.Left = 7.574806!
Me.txtMargeProzSchnitt.Name = "txtMargeProzSchnitt"
Me.txtMargeProzSchnitt.Style = "text-align: center"
Me.txtMargeProzSchnitt.Text = "txtMargeProzSchnitt"
Me.txtMargeProzSchnitt.Top = 0.6204725!
Me.txtMargeProzSchnitt.Width = 0.6094489!
'
'TextBox10
'
Me.TextBox10.Height = 0.2!
Me.TextBox10.Left = 3.491339!
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox10.Text = "Ausgaben:"
Me.TextBox10.Top = 0.0937008!
Me.TextBox10.Width = 1.354331!
'
'TextBox11
'
Me.TextBox11.Height = 0.2!
Me.TextBox11.Left = 4.84567!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox11.Text = "Einnahmen:"
Me.TextBox11.Top = 0.0937008!
Me.TextBox11.Width = 1.364567!
'
'TextBox12
'
Me.TextBox12.Height = 0.2!
Me.TextBox12.Left = 6.210237!
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox12.Text = "Gewinn:"
Me.TextBox12.Top = 0.0937008!
Me.TextBox12.Width = 1.364567!
'
'TextBox13
'
Me.TextBox13.Height = 0.2!
Me.TextBox13.Left = 7.574804!
Me.TextBox13.Name = "TextBox13"
Me.TextBox13.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox13.Text = "Marge"
Me.TextBox13.Top = 0.0937008!
Me.TextBox13.Width = 0.6094488!
'
'txtRechnungenSummeTransporte
'
Me.txtRechnungenSummeTransporte.Height = 0.2!
Me.txtRechnungenSummeTransporte.Left = 4.845672!
Me.txtRechnungenSummeTransporte.Name = "txtRechnungenSummeTransporte"
Me.txtRechnungenSummeTransporte.Style = "text-align: left"
Me.txtRechnungenSummeTransporte.Text = "txtRechnungenSumme"
Me.txtRechnungenSummeTransporte.Top = 1.066535!
Me.txtRechnungenSummeTransporte.Width = 1.364567!
'
'txtMargeSummeTransporte
'
Me.txtMargeSummeTransporte.Height = 0.2!
Me.txtMargeSummeTransporte.Left = 6.210235!
Me.txtMargeSummeTransporte.Name = "txtMargeSummeTransporte"
Me.txtMargeSummeTransporte.Style = "text-align: left"
Me.txtMargeSummeTransporte.Text = "txtMargeSumme"
Me.txtMargeSummeTransporte.Top = 1.066535!
Me.txtMargeSummeTransporte.Width = 1.364567!
'
'txtTransporte
'
Me.txtTransporte.Height = 0.2!
Me.txtTransporte.Left = 0.9204725!
Me.txtTransporte.Name = "txtTransporte"
Me.txtTransporte.Style = "font-size: 9.75pt; font-weight: bold; text-align: left"
Me.txtTransporte.Text = "Transporte:"
Me.txtTransporte.Top = 1.066535!
Me.txtTransporte.Width = 1.364567!
'
'txtVorkostenSummeTransporte
'
Me.txtVorkostenSummeTransporte.Height = 0.2!
Me.txtVorkostenSummeTransporte.Left = 3.491339!
Me.txtVorkostenSummeTransporte.Name = "txtVorkostenSummeTransporte"
Me.txtVorkostenSummeTransporte.Text = "txtVorkostenSumme"
Me.txtVorkostenSummeTransporte.Top = 1.066535!
Me.txtVorkostenSummeTransporte.Width = 1.354331!
'
'txtAnzahlSummeTransporte
'
Me.txtAnzahlSummeTransporte.Height = 0.2!
Me.txtAnzahlSummeTransporte.Left = 2.49134!
Me.txtAnzahlSummeTransporte.Name = "txtAnzahlSummeTransporte"
Me.txtAnzahlSummeTransporte.Text = "txtAnzahlSumme"
Me.txtAnzahlSummeTransporte.Top = 1.066535!
Me.txtAnzahlSummeTransporte.Width = 1.0!
'
'txtRechnungenSummeHandlings
'
Me.txtRechnungenSummeHandlings.Height = 0.2!
Me.txtRechnungenSummeHandlings.Left = 4.845672!
Me.txtRechnungenSummeHandlings.Name = "txtRechnungenSummeHandlings"
Me.txtRechnungenSummeHandlings.Style = "text-align: left"
Me.txtRechnungenSummeHandlings.Text = "txtRechnungenSumme"
Me.txtRechnungenSummeHandlings.Top = 1.316535!
Me.txtRechnungenSummeHandlings.Width = 1.364567!
'
'txtMargeSummeHandlings
'
Me.txtMargeSummeHandlings.Height = 0.2!
Me.txtMargeSummeHandlings.Left = 6.210235!
Me.txtMargeSummeHandlings.Name = "txtMargeSummeHandlings"
Me.txtMargeSummeHandlings.Style = "text-align: left"
Me.txtMargeSummeHandlings.Text = "txtMargeSumme"
Me.txtMargeSummeHandlings.Top = 1.316535!
Me.txtMargeSummeHandlings.Width = 1.364567!
'
'TextBox21
'
Me.TextBox21.Height = 0.2!
Me.TextBox21.Left = 0.9204725!
Me.TextBox21.Name = "TextBox21"
Me.TextBox21.Style = "font-size: 9.75pt; font-weight: bold; text-align: left"
Me.TextBox21.Text = "Handlings:"
Me.TextBox21.Top = 1.316535!
Me.TextBox21.Width = 1.364567!
'
'txtVorkostenSummeHandlings
'
Me.txtVorkostenSummeHandlings.Height = 0.2!
Me.txtVorkostenSummeHandlings.Left = 3.491339!
Me.txtVorkostenSummeHandlings.Name = "txtVorkostenSummeHandlings"
Me.txtVorkostenSummeHandlings.Text = "txtVorkostenSumme"
Me.txtVorkostenSummeHandlings.Top = 1.316535!
Me.txtVorkostenSummeHandlings.Width = 1.354331!
'
'txtAnzahlSummeHandlings
'
Me.txtAnzahlSummeHandlings.Height = 0.2!
Me.txtAnzahlSummeHandlings.Left = 2.49134!
Me.txtAnzahlSummeHandlings.Name = "txtAnzahlSummeHandlings"
Me.txtAnzahlSummeHandlings.Text = "txtAnzahlSumme"
Me.txtAnzahlSummeHandlings.Top = 1.316535!
Me.txtAnzahlSummeHandlings.Width = 1.0!
'
'txtMargeProzSchnittTransporte
'
Me.txtMargeProzSchnittTransporte.Height = 0.2!
Me.txtMargeProzSchnittTransporte.Left = 7.574804!
Me.txtMargeProzSchnittTransporte.Name = "txtMargeProzSchnittTransporte"
Me.txtMargeProzSchnittTransporte.Style = "text-align: center"
Me.txtMargeProzSchnittTransporte.Text = "txtMargeProzSchnitt"
Me.txtMargeProzSchnittTransporte.Top = 1.066535!
Me.txtMargeProzSchnittTransporte.Width = 0.6094489!
'
'txtMargeProzSchnittHandlings
'
Me.txtMargeProzSchnittHandlings.Height = 0.2!
Me.txtMargeProzSchnittHandlings.Left = 7.574804!
Me.txtMargeProzSchnittHandlings.Name = "txtMargeProzSchnittHandlings"
Me.txtMargeProzSchnittHandlings.Style = "text-align: center"
Me.txtMargeProzSchnittHandlings.Text = "txtMargeProzSchnitt"
Me.txtMargeProzSchnittHandlings.Top = 1.316535!
Me.txtMargeProzSchnittHandlings.Width = 0.6094489!
'
'TextBox14
'
Me.TextBox14.Height = 0.2!
Me.TextBox14.Left = 2.491339!
Me.TextBox14.Name = "TextBox14"
Me.TextBox14.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox14.Text = "Anzahl:"
Me.TextBox14.Top = 0.09370077!
Me.TextBox14.Width = 1.0!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox1, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox8, Me.TextBox3})
Me.GroupHeader1.DataField = ""
Me.GroupHeader1.Name = "GroupHeader1"
Me.GroupHeader1.RepeatStyle = GrapeCity.ActiveReports.SectionReportModel.RepeatStyle.OnPage
'
'TextBox1
'
Me.TextBox1.Height = 0.2!
Me.TextBox1.Left = 0.0000009536743!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox1.Text = "PosNr."
Me.TextBox1.Top = 0.02493032!
Me.TextBox1.Width = 0.8267716!
'
'TextBox2
'
Me.TextBox2.Height = 0.2!
Me.TextBox2.Left = 0.8267725!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox2.Text = "Auftraggeber"
Me.TextBox2.Top = 0.02493032!
Me.TextBox2.Width = 3.385827!
'
'TextBox4
'
Me.TextBox4.Height = 0.2!
Me.TextBox4.Left = 4.214568!
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox4.Text = "Ausg."
Me.TextBox4.Top = 0.02493032!
Me.TextBox4.Width = 0.6311028!
'
'TextBox5
'
Me.TextBox5.Height = 0.2!
Me.TextBox5.Left = 5.476772!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox5.Text = "Gewinn"
Me.TextBox5.Top = 0.02493032!
Me.TextBox5.Width = 0.7086611!
'
'TextBox6
'
Me.TextBox6.Height = 0.2!
Me.TextBox6.Left = 6.815356!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox6.Text = "Frächter"
Me.TextBox6.Top = 0.02493032!
Me.TextBox6.Width = 3.381496!
'
'TextBox7
'
Me.TextBox7.Height = 0.2!
Me.TextBox7.Left = 10.19685!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox7.Text = "Leistung"
Me.TextBox7.Top = 0.02506968!
Me.TextBox7.Width = 0.7874014!
'
'TextBox8
'
Me.TextBox8.Height = 0.2!
Me.TextBox8.Left = 6.185434!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox8.Text = "Marge"
Me.TextBox8.Top = 0.02493032!
Me.TextBox8.Width = 0.6299213!
'
'TextBox3
'
Me.TextBox3.Height = 0.2!
Me.TextBox3.Left = 4.845671!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
Me.TextBox3.Text = "Einn."
Me.TextBox3.Top = 0.02493032!
Me.TextBox3.Width = 0.6311028!
'
'GroupFooter1
'
Me.GroupFooter1.Name = "GroupFooter1"
'
'subrptEinzelauswertung
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 10.98425!
Me.ScriptLanguage = "VB.NET"
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.txtPosNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgaben, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGewinn, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMarge, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEinnahmen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtRechnungenSumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMargeSumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtRechnungenSchnitt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMargeSchnitt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TxtSumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVorkostenSumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVorkostenSchnitt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahlSumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMargeProzSchnitt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtRechnungenSummeTransporte, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMargeSummeTransporte, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTransporte, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVorkostenSummeTransporte, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahlSummeTransporte, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtRechnungenSummeHandlings, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMargeSummeHandlings, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox21, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVorkostenSummeHandlings, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahlSummeHandlings, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMargeProzSchnittTransporte, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMargeProzSchnittHandlings, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtPosNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAuftraggeber As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtEinnahmen As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgaben As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtGewinn As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLeistung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtMarge As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents txtRechnungenSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtMargeSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtRechnungenSchnitt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtMargeSchnitt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TxtSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtVorkostenSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtVorkostenSchnitt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnzahlSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtMargeProzSchnitt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox10 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox12 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox13 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtRechnungenSummeTransporte As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtMargeSummeTransporte As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtTransporte As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtVorkostenSummeTransporte As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnzahlSummeTransporte As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtRechnungenSummeHandlings As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtMargeSummeHandlings As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox21 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtVorkostenSummeHandlings As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnzahlSummeHandlings As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtMargeProzSchnittTransporte As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtMargeProzSchnittHandlings As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents TextBox14 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

View File

@@ -0,0 +1,120 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptEinzelauswertung
Public Rechnungssumme As Double = 0
Public Vorkostensumme As Double = 0
Public MargeSumme As Double = 0
Public AnzahlSumme As Double = 0
Public AnzahlProz As Double = 0
Public Transporte As Double = 0
Public Handlings As Double = 0
Public TransporteAusgaben As Double = 0
Public HandlingsAusgaben As Double = 0
Public TransporteEinnahmen As Double = 0
Public HandlingsEinnahmen As Double = 0
Public c As Integer = 0 'Counter
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
txtPosNr.Text = Fields.Item("atr_frachtpos").Value
txtAuftraggeber.Text = Fields.Item("atr_auftr_firma").Value
txtEinnahmen.Text = CDbl(Fields.Item("Rechnungen").Value).ToString("c2")
txtAusgaben.Text = CDbl(Fields.Item("Vorkosten_Vorzeichen").Value).ToString("c2")
txtGewinn.Text = (CDbl(Fields.Item("Rechnungen").Value) - CDbl(Fields.Item("Vorkosten_Vorzeichen").Value)).ToString("c2") 'CDbl(Fields.Item("Marge").Value).ToString("c2")
Dim i As Double = CDbl((100 * txtGewinn.Text) / txtEinnahmen.Text).ToString("N2")
txtMarge.Text = CDbl((100 * txtGewinn.Text) / txtEinnahmen.Text).ToString("N2") & "%"
txtFraechter.Text = VERAG_PROG_ALLGEMEIN.SQL.checkNullStr(Fields.Item("Frächter").Value)
txtLeistung.Text = Fields.Item("ShortAuftragsart").Value
If c Mod 2 = 0 Then
txtPosNr.BackColor = Color.Transparent
txtAuftraggeber.BackColor = Color.Transparent
txtEinnahmen.BackColor = Color.Transparent
txtAusgaben.BackColor = Color.Transparent
txtGewinn.BackColor = Color.Transparent
txtMarge.BackColor = Color.Transparent
txtFraechter.BackColor = Color.Transparent
txtLeistung.BackColor = Color.Transparent
Else
txtPosNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtAuftraggeber.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtEinnahmen.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtAusgaben.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtGewinn.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtMarge.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtFraechter.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtLeistung.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
End If
c = c + 1
Rechnungssumme = Rechnungssumme + txtEinnahmen.Text
Vorkostensumme = Vorkostensumme + txtAusgaben.Text
MargeSumme = MargeSumme + txtGewinn.Text
AnzahlSumme = c
AnzahlProz = AnzahlProz + i
'If Fields.Item("ShortAuftragsart").Value = "TRANSP." Then
' Transporte = Transporte + 1
' TransporteEinnahmen = TransporteEinnahmen + CDbl(Fields.Item("Rechnungen").Value).ToString("c2")
' TransporteAusgaben = TransporteAusgaben + CDbl(Fields.Item("Vorkosten").Value).ToString("c2")
'ElseIf Fields.Item("ShortAuftragsart").Value = "HANDLING" Then
' Handlings = Handlings + 1
' HandlingsEinnahmen = HandlingsEinnahmen + CDbl(Fields.Item("Rechnungen").Value).ToString("c2")
' HandlingsAusgaben = HandlingsAusgaben + CDbl(Fields.Item("Vorkosten").Value).ToString("c2")
'End If
If Fields.Item("ShortAuftragsart").Value = "TRANSP." Then
Transporte = Transporte + 1
TransporteEinnahmen = TransporteEinnahmen + CDbl(Fields.Item("Rechnungen").Value).ToString("c2")
TransporteAusgaben = TransporteAusgaben + CDbl(Fields.Item("Vorkosten_Vorzeichen").Value).ToString("c2")
ElseIf Fields.Item("ShortAuftragsart").Value = "HANDLING" Then
Handlings = Handlings + 1
HandlingsEinnahmen = HandlingsEinnahmen + CDbl(Fields.Item("Rechnungen").Value).ToString("c2")
HandlingsAusgaben = HandlingsAusgaben + CDbl(Fields.Item("Vorkosten_Vorzeichen").Value).ToString("c2")
End If
End Sub
Private Sub subrptEinzelauswertung_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
DataSource = frmAuswertung.dt
End Sub
Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
txtMargeSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtRechnungenSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtVorkostenSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtAnzahlSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
TxtSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtMargeSummeTransporte.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtRechnungenSummeTransporte.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtVorkostenSummeTransporte.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtAnzahlSummeTransporte.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtTransporte.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtMargeProzSchnittTransporte.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
txtMargeSumme.Text = MargeSumme.ToString("c2")
txtRechnungenSumme.Text = Rechnungssumme.ToString("c2")
txtVorkostenSumme.Text = Vorkostensumme.ToString("c2")
txtAnzahlSumme.Text = AnzahlSumme.ToString
txtMargeSchnitt.Text = (MargeSumme / c).ToString("c2")
txtRechnungenSchnitt.Text = (Rechnungssumme / c).ToString("c2")
txtVorkostenSchnitt.Text = (Vorkostensumme / c).ToString("c2")
txtMargeProzSchnitt.Text = (txtMargeSchnitt.Text * 100 / txtRechnungenSchnitt.Text).ToString("n2") & "%"
txtAnzahlSummeTransporte.Text = Transporte
txtRechnungenSummeTransporte.Text = TransporteEinnahmen.ToString("c2")
txtVorkostenSummeTransporte.Text = TransporteAusgaben.ToString("c2")
txtMargeSummeTransporte.Text = (TransporteEinnahmen - TransporteAusgaben).ToString("c2")
txtMargeProzSchnittTransporte.Text = (txtMargeSummeTransporte.Text * 100 / TransporteEinnahmen).ToString("n2") & "%"
txtAnzahlSummeHandlings.Text = Handlings
txtRechnungenSummeHandlings.Text = HandlingsEinnahmen.ToString("c2")
txtVorkostenSummeHandlings.Text = HandlingsAusgaben.ToString("c2")
txtMargeSummeHandlings.Text = (HandlingsEinnahmen - HandlingsAusgaben).ToString("c2")
txtMargeProzSchnittHandlings.Text = "" '(txtMargeSummeHandlings.Text * 100 / HandlingsEinnahmen).ToString("n2") & "%"
End Sub
End Class

View File

@@ -0,0 +1,404 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptTransportauftrag
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptTransportauftrag))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtVeragAnschrift = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtpositionLABEL = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnLABEL = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtKennzeichenLABEL = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLKWArtLABEL = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtposition = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnFirma = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnAnsprechperson = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLKWArt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.txtVerag = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnFirmaStrasse = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnFirmaOrt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.SubDetail = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVeragAnschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtpositionLABEL, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnLABEL, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKennzeichenLABEL, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLKWArtLABEL, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtposition, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnAnsprechperson, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLKWArt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVerag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnFirmaStrasse, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnFirmaOrt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture1, Me.txtVeragAnschrift, Me.txtUeberschrift, Me.txtFrachtpositionLABEL, Me.txtAnLABEL, Me.txtKennzeichenLABEL, Me.txtLKWArtLABEL, Me.txtFrachtposition, Me.txtAnFirma, Me.txtAnAnsprechperson, Me.txtKennzeichen, Me.txtLKWArt, Me.txtDatum, Me.txtSachbearbeiter, Me.Line2, Me.txtVerag, Me.txtAnFirmaStrasse, Me.txtAnFirmaOrt})
Me.PageHeader.Height = 2.906233!
Me.PageHeader.Name = "PageHeader"
'
'Picture1
'
Me.Picture1.Height = 0.5905512!
Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
Me.Picture1.Left = 0!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture1.Top = 0!
Me.Picture1.Width = 2.551969!
'
'txtVeragAnschrift
'
Me.txtVeragAnschrift.Height = 0.9515744!
Me.txtVeragAnschrift.Left = 4.330709!
Me.txtVeragAnschrift.Name = "txtVeragAnschrift"
Me.txtVeragAnschrift.Style = "text-align: right"
Me.txtVeragAnschrift.Text = "VERAG Spedition AG / GmbH"
Me.txtVeragAnschrift.Top = 0.2295276!
Me.txtVeragAnschrift.Width = 3.149606!
'
'txtUeberschrift
'
Me.txtUeberschrift.Height = 0.3937008!
Me.txtUeberschrift.Left = 0!
Me.txtUeberschrift.Name = "txtUeberschrift"
Me.txtUeberschrift.Style = "font-size: 18pt; font-weight: bold; text-align: center"
Me.txtUeberschrift.Text = "TRANSPORTAUFTRAG"
Me.txtUeberschrift.Top = 0.8791339!
Me.txtUeberschrift.Width = 7.480316!
'
'txtFrachtpositionLABEL
'
Me.txtFrachtpositionLABEL.Height = 0.2!
Me.txtFrachtpositionLABEL.Left = 0.0000001192093!
Me.txtFrachtpositionLABEL.Name = "txtFrachtpositionLABEL"
Me.txtFrachtpositionLABEL.Style = "font-size: 12pt; font-weight: bold"
Me.txtFrachtpositionLABEL.Text = "Frachtpos.:"
Me.txtFrachtpositionLABEL.Top = 1.375197!
Me.txtFrachtpositionLABEL.Width = 1.312205!
'
'txtAnLABEL
'
Me.txtAnLABEL.Height = 0.2!
Me.txtAnLABEL.Left = 0.0000001192093!
Me.txtAnLABEL.Name = "txtAnLABEL"
Me.txtAnLABEL.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
Me.txtAnLABEL.Text = "An:"
Me.txtAnLABEL.Top = 1.728347!
Me.txtAnLABEL.Width = 1.312205!
'
'txtKennzeichenLABEL
'
Me.txtKennzeichenLABEL.Height = 0.2!
Me.txtKennzeichenLABEL.Left = 0.0000001192093!
Me.txtKennzeichenLABEL.Name = "txtKennzeichenLABEL"
Me.txtKennzeichenLABEL.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
Me.txtKennzeichenLABEL.Text = "LKW-Kennzeichen:"
Me.txtKennzeichenLABEL.Top = 2.636615!
Me.txtKennzeichenLABEL.Width = 1.312205!
'
'txtLKWArtLABEL
'
Me.txtLKWArtLABEL.Height = 0.2!
Me.txtLKWArtLABEL.Left = 3.720079!
Me.txtLKWArtLABEL.Name = "txtLKWArtLABEL"
Me.txtLKWArtLABEL.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
Me.txtLKWArtLABEL.Text = "LKW Art:"
Me.txtLKWArtLABEL.Top = 2.636615!
Me.txtLKWArtLABEL.Width = 1.312205!
'
'txtFrachtposition
'
Me.txtFrachtposition.Height = 0.2!
Me.txtFrachtposition.Left = 1.457874!
Me.txtFrachtposition.Name = "txtFrachtposition"
Me.txtFrachtposition.Style = "font-size: 12pt; font-weight: bold"
Me.txtFrachtposition.Text = "txtFrachtposition"
Me.txtFrachtposition.Top = 1.375197!
Me.txtFrachtposition.Width = 3.062598!
'
'txtAnFirma
'
Me.txtAnFirma.Height = 0.2!
Me.txtAnFirma.Left = 1.457874!
Me.txtAnFirma.Name = "txtAnFirma"
Me.txtAnFirma.Text = "txtAnFirma"
Me.txtAnFirma.Top = 1.728347!
Me.txtAnFirma.Width = 3.062599!
'
'txtAnAnsprechperson
'
Me.txtAnAnsprechperson.Height = 0.2!
Me.txtAnAnsprechperson.Left = 1.457874!
Me.txtAnAnsprechperson.Name = "txtAnAnsprechperson"
Me.txtAnAnsprechperson.Text = "txtAnAnsprechperson"
Me.txtAnAnsprechperson.Top = 2.386615!
Me.txtAnAnsprechperson.Width = 3.062599!
'
'txtKennzeichen
'
Me.txtKennzeichen.Height = 0.2!
Me.txtKennzeichen.Left = 1.457874!
Me.txtKennzeichen.Name = "txtKennzeichen"
Me.txtKennzeichen.Text = "txtKennzeichen"
Me.txtKennzeichen.Top = 2.636615!
Me.txtKennzeichen.Width = 1.843701!
'
'txtLKWArt
'
Me.txtLKWArt.Height = 0.2!
Me.txtLKWArt.Left = 5.032284!
Me.txtLKWArt.Name = "txtLKWArt"
Me.txtLKWArt.Text = "txtLKWArt"
Me.txtLKWArt.Top = 2.636615!
Me.txtLKWArt.Width = 1.843701!
'
'txtDatum
'
Me.txtDatum.Height = 0.2!
Me.txtDatum.Left = 4.896851!
Me.txtDatum.Name = "txtDatum"
Me.txtDatum.Style = "text-align: right"
Me.txtDatum.Text = "txtDatum"
Me.txtDatum.Top = 1.728347!
Me.txtDatum.Width = 2.583466!
'
'txtSachbearbeiter
'
Me.txtSachbearbeiter.Height = 0.2!
Me.txtSachbearbeiter.Left = 4.896851!
Me.txtSachbearbeiter.Name = "txtSachbearbeiter"
Me.txtSachbearbeiter.Style = "text-align: right"
Me.txtSachbearbeiter.Text = "txtSachbearbeiter"
Me.txtSachbearbeiter.Top = 1.928347!
Me.txtSachbearbeiter.Width = 2.583465!
'
'Line2
'
Me.Line2.Height = 0!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 3.328347!
Me.Line2.Width = 7.480316!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.480316!
Me.Line2.Y1 = 3.328347!
Me.Line2.Y2 = 3.328347!
'
'txtVerag
'
Me.txtVerag.Height = 0.2295276!
Me.txtVerag.Left = 4.330709!
Me.txtVerag.Name = "txtVerag"
Me.txtVerag.Style = "font-size: 9.75pt; font-weight: bold; text-align: right"
Me.txtVerag.Text = "VERAG Spedition AG / GmbH"
Me.txtVerag.Top = 0!
Me.txtVerag.Width = 3.149606!
'
'txtAnFirmaStrasse
'
Me.txtAnFirmaStrasse.Height = 0.2!
Me.txtAnFirmaStrasse.Left = 1.457874!
Me.txtAnFirmaStrasse.Name = "txtAnFirmaStrasse"
Me.txtAnFirmaStrasse.Text = "txtAnFirmaStrasse"
Me.txtAnFirmaStrasse.Top = 1.928347!
Me.txtAnFirmaStrasse.Width = 3.062599!
'
'txtAnFirmaOrt
'
Me.txtAnFirmaOrt.Height = 0.2!
Me.txtAnFirmaOrt.Left = 1.457874!
Me.txtAnFirmaOrt.Name = "txtAnFirmaOrt"
Me.txtAnFirmaOrt.Text = "txtAnFirmaOrt"
Me.txtAnFirmaOrt.Top = 2.128347!
Me.txtAnFirmaOrt.Width = 3.062599!
'
'Detail
'
Me.Detail.CanShrink = True
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.SubDetail})
Me.Detail.Height = 0.5!
Me.Detail.Name = "Detail"
'
'SubDetail
'
Me.SubDetail.CloseBorder = False
Me.SubDetail.Height = 0.9582678!
Me.SubDetail.Left = 0!
Me.SubDetail.Name = "SubDetail"
Me.SubDetail.Report = Nothing
Me.SubDetail.ReportName = "SubReport1"
Me.SubDetail.Top = 0!
Me.SubDetail.Width = 7.480316!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.TextBox2, Me.Line1})
Me.PageFooter.Height = 0.7893702!
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount}"
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 4.657087!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "text-align: right"
Me.ReportInfo1.Top = 0.08149607!
Me.ReportInfo1.Width = 2.823228!
'
'TextBox2
'
Me.TextBox2.Height = 0.4559056!
Me.TextBox2.Left = 0!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "font-size: 7pt; text-align: center; ddo-char-set: 1"
Me.TextBox2.Text = resources.GetString("TextBox2.Text")
Me.TextBox2.Top = 0.3334646!
Me.TextBox2.Width = 7.480316!
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0.09842519!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.3334646!
Me.Line1.Width = 7.283464!
Me.Line1.X1 = 0.09842519!
Me.Line1.X2 = 7.38189!
Me.Line1.Y1 = 0.3334646!
Me.Line1.Y2 = 0.3334646!
'
'ReportHeader1
'
Me.ReportHeader1.Height = 0!
Me.ReportHeader1.Name = "ReportHeader1"
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox1})
Me.ReportFooter1.Height = 0.3348918!
Me.ReportFooter1.Name = "ReportFooter1"
'
'TextBox1
'
Me.TextBox1.Height = 0.2!
Me.TextBox1.Left = 0!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-family: Arial; font-size: 12pt; font-weight: bold; text-align: center; ddo-c" &
"har-set: 0"
Me.TextBox1.Text = "Wir bedanken uns für die Zusammenarbeit!"
Me.TextBox1.Top = 0.1106299!
Me.TextBox1.Width = 7.480316!
'
'rptTransportauftrag
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.480317!
Me.ScriptLanguage = "VB.NET"
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVeragAnschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtpositionLABEL, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnLABEL, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKennzeichenLABEL, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLKWArtLABEL, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtposition, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnAnsprechperson, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLKWArt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVerag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnFirmaStrasse, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnFirmaOrt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents txtVeragAnschrift As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtUeberschrift As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents txtFrachtpositionLABEL As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnLABEL As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtKennzeichenLABEL As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLKWArtLABEL As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtposition As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnFirma As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnAnsprechperson As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtKennzeichen As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLKWArt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtDatum As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents txtVerag As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents txtAnFirmaStrasse As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnFirmaOrt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents SubDetail As GrapeCity.ActiveReports.SectionReportModel.SubReport
End Class

View File

@@ -0,0 +1,816 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Picture1.ImageData" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v
cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw
b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB
AQEBCQIAAAAAAAAAAAAAANueAADbngAAAQEBAQoPAgAAANueAAACANaeAAD/2P/gABBKRklGAAEBAQAA
AAAAAP/uAA5BZG9iZQBkAAAAAAH/2wBDAAICAgICAgICAgIDAgICAwQDAgIDBAUEBAQEBAUGBQUFBQUF
BgYHBwgHBwYJCQoKCQkMDAwMDAwMDAwMDAwMDAz/2wBDAQMDAwUEBQkGBgkNCwkLDQ8ODg4ODw8MDAwM
DA8PDAwMDAwMDwwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCADDBAQDAREAAhEBAxEB/8QA
HgABAAIDAQEBAQEAAAAAAAAAAAkKBgcIBQQDAgH/xABeEAAABQMBAwUJBxEGAggGAwAAAQIDBAUGBxEh
EggxQRMJGVEiFNQV1ZZXGGEylKUWVnZxgUJSYpIjU7R1teWmFzc4aJGxMySVNqFzcoJDk7PTVXfBomM0
RHSkJSf/xAAbAQEAAgMBAQAAAAAAAAAAAAAABgcDBAUCAf/EAEQRAAIBAgEFCwoGAgEEAwEAAAABAgME
ESEx0QUGQVFxgZGhsRJSUxZhwSJykqLSExQV8OEy4mM0QjOy8WKCQ8IjNST/2gAMAwEAAhEDEQA/AJ/A
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAABrHKuY8dYSt+LdWTa87blvzJqKezU0U+fPQUlxC3EIWUCPIUje
ShWhqIiPk11G3Z2Na8n1KKxlhjhil0tGvc3VO3j1qjwXA30YnPnaF8H3re+ILg82jqeGNY9170fiNH75
Z9vmloHaF8H3re+ILg82h4Y1j3XvR+IffLPt80tA7Qvg+9b3xBcHm0PDGse696PxD75Z9vmloHaF8H3r
e+ILg82h4Y1j3XvR+IffLPt80tB1haV2W9fVs0O8bTqbdZtu5IbU+jVRpK0JeYeLeSrccShaD5jStJKS
epKIjIyHFrUZ0ZuE1hJPBo6dOpGpFSi8U8qMhGI9gAAAAAAAAAAAABqnLOb8W4No9Nr2U7rbtWmViX4D
THTjS5jjz5NqcNKWYTL7uiUp1NW7ulsIz1UWu5Zavr3snGjHrNLF5Uulo1rm7pW0etUeCeTd8xoTtC+D
71vfEFwebR0/DGse696PxGl98s+3zS0DtC+D71vfEFwebQ8Max7r3o/EPvln2+aWgdoXwfet74guDzaH
hjWPde9H4h98s+3zS0H9t9YPwhPONss5aU666okNNIt64VKUpR6ElJFTdTMz5CHx7M6xSxdP3o/EfVru
zeRT5paDspl1L7TTyCWSHkJWgloU2oiUWpbyFkSkn3SMiMuccFrA6p+gAAAAAA5BrXHpwn29WKtQKxlb
wOr0OY/T6pE8hV1zopMZxTTqN9unqQrdWky1SZkfMeg7lPZu/qRU408U1ivSjmfGcueubSEnFzyp4PJL
QeZ2hfB963viC4PNo9+GNY9170fiPP3yz7fNLQO0L4PvW98QXB5tDwxrHuvej8Q++Wfb5paB2hfB963v
iC4PNoeGNY9170fiH3yz7fNLQO0L4PvW98QXB5tDwxrHuvej8Q++Wfb5paB2hfB963viC4PNoeGNY917
0fiH3yz7fNLQO0L4PvW98QXB5tDwxrHuvej8Q++Wfb5paB2hfB963viC4PNoeGNY9170fiH3yz7fNLQO
0L4PvW98QXB5tDwxrHuvej8Q++Wfb5paB2hfB963viC4PNoeGNY9170fiH3yz7fNLQO0L4PvW98QXB5t
DwxrHuvej8Q++Wfb5paB2hfB963viC4PNoeGNY9170fiH3yz7fNLQO0L4PvW98QXB5tDwxrHuvej8Q++
Wfb5paB2hfB963viC4PNoeGNY9170fiH3yz7fNLQO0L4PvW98QXB5tDwxrHuvej8Q++Wfb5paDtBJkoi
UR6kotSP3DHAOsf6AAAAAAAA0XlviVwpgqfR6XlS9PktOr8dyVSWPJ1SndK00skLVvQYshKdFGRaKMjH
RsdVXN6m6MOslnypdLRp3V/QtmlVlhjmyN9CNRdoXwfet74guDzaN7wxrHuvej8Rq/fLPt80tA7Qvg+9
b3xBcHm0PDGse696PxD75Z9vmloHaF8H3re+ILg82h4Y1j3XvR+IffLPt80tA7Qvg+9b3xBcHm0PDGse
696PxD75Z9vmloHaF8H3re+ILg82h4Y1j3XvR+IffLPt80tA7Qvg+9b3xBcHm0PDGse696PxD75Z9vml
oHaF8H3re+ILg82h4Y1j3XvR+IffLPt80tA7Qvg+9b3xBcHm0PDGse696PxD75Z9vmloHaF8H3re+ILg
82h4Y1j3XvR+IffLPt80tA7Qvg+9b3xBcHm0PDGse696PxD75Z9vmloP6R1hPB+tSUll4iNR6EaqDX0l
9czpxEQ+PZjWK/8AV70fiC15Zv8Az5paDIqdxxcKNU08GzRR2tdheFsTYf5THbGGez9/HPSlxYPoZmjr
W1lmqLoNo25n3B13vIi2zl6zq1MWWqIEatQlSDI//o9L0n/yjUq6uuaSxnTkl5Ys2Kd3RqPCM4vgaNtI
Wh1CXG1pcbWRKQtJkZGR8hkZco0jYP6AAAAAAAAAAAAAAAAAAAAAAAaFyzxO4MwbVqZQspX41bNYrEQ5
0CnJg1Ce6qOSzb6VZQI0jo0mpJknf03tD010MdKy1RdXsXKjDrJZM6XS0ad1rChbNKpLBvyN9CZqjtC+
D71vfEFwebRu+GNY9170fiNX75Z9vmloHaF8H3re+ILg82h4Y1j3XvR+IffLPt80tA7Qvg+9b3xBcHm0
PDGse696PxD75Z9vmloHaF8H3re+ILg82h4Y1j3XvR+IffLPt80tB79rccvCxelx0S0rcys1Mr9xTGqf
Rob1JrERD0l9RIaa6eVBaaSa1GSS3llqZkXKYxVtnr+jBznT9FLF5YvJwJ4mSlri1qyUIzyvNka6UdZD
inSAAAAAAAAAAAAAAAAAAAAAA1/fOV8Z4zjpk5Av2hWehwtWG6pOZjuu7DPRplaiccPQuRKTGzb2da4e
FKDlwJsw1binRWM5JcLwORbo6yrhZt1T6KfcNbvJ1g1JNFEpL5EpSeZC55w0H7hkrT3R26Oyl/UzxUeF
rzYnMqa+tIY4Sb4E/PgjS9S62nFjRr8j4suuckv8M5j8GIZ/VJtyRp/xG/HYq43aked+ZGo9pqG5GXNp
MLk9bvAQavA8ByHy1703rmS1qXu7tLc0GxHYiW7WXs/uRiltPHcpvl/Jnydr1/T1+1n6mHrwP/P7n7jx
4o/i979o7Xr+nr9rP1MHgf8An9z9w8Ufxe9+0dr1/T1+1n6mDwP/AD+5+4eKP4ve/aO16/p6/az9TB4H
/n9z9w8Ufxe9+0dr1/T1+1n6mDwP/P7n7h4o/i979p9DHW8RFaeE4Bea77b0Vzpc73u7aUjb7g+PYh7l
b3f3HqO08d2nz/kZLC626w1mnyhh6vxSP3xx6jFf0+pvts6jBLYqtuVI8j/MyraajuwlzGwaH1qnD1UX
kMVe271t4lcst6DDkMJ+qceatz+xsa1TY68isYuEuN+deczQ2jtpPBqS4tDZ1Bjzi+4cMoPR4Vq5Wo5V
SUro2KNVVOUmW45y7jbU9DBun/y94ci61JeWyxnTeG+vSXKsTo0NZW1fJCax3sz5GdJEZGRGR6kfIY5R
vH+gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANa5gxjQsyY1u/G1xJIqfdEBcduXukpcWSnRyNKbI/smX
kpWXd005DG1ZXc7StGrDPF8u+uNZDBc28a9OVOWZr8chUtvWz69j+7bjsm54hwa/a1QfptVjbd0nWFmg
1IMyLeQvTeQrTvkmRlsMXXb3ELinGpB4xksUVnWoyozcJZ08DGBmMQAAATWdVlnvpote4fLhmfhInTV7
HpuK5WlK3qhCRye9UfhCS5T3nT5CFf7Y6twkrqKz5JeZ+biRL9nL3GLoS3Mq4N1efjJlxBCUgAAAAAAA
AAAAf4pSUpNSjJKUlqpR7CIi5zAFYjjk4gjz3miou0eZ4RYVi9LRLLJCtWn0oX/mpydNh+EuJ1SfO2lv
nIW5s5qz6K2XWXpzyy8y4unEr7XV99TXyfpjkXnfGcaDvnIAAACRPq48AfvVzAm/69B6aysULZqKidTq
1KrKjM4DG0tFE0aTfXoew0oIy0WIrtXrP6a3+VF+nPJwR3eXNyne1BZfOrfMkvRj/wAtzkz8hYwFXE6A
AAAAAAqD5o/jDlj6ZV39IPi79Xf1qXqR6EVhe/76nrPpZrQbhrAAAAAAAAAAAAAAAAAAAAAAXPmf8Fr/
AKCf7hQjLYP1AAAAAAAAQX9bb/v3D/5gqP5UgWHsT/rq8K6GRDaf9VPgfmIjBOCLAAAAAAAAAAAAAAAA
AAAAG0sf5uy7ix9h7H2Ra9a7cdRrTT4kxw4SjPafSQ3DXHc27dFtmNK61dbXP+2nGXlwy8ufnNqhe16H
6JtdHJmJYOG7rPfKtRptn8QsGJTVTFojxMlU1voY6Vq2JOpRS1JtJnyutaJTztpTqooXrXZBwTqWrbw/
xef/AMXu8D5STWG0Km1CusP+5ZuPe4SYxh9iUwzKivNyY0ltLseQ0olocQst5K0KTqRkZHqRkIM1hkZK
D9R8AAAAAAAAAAAAAAAAAHg3RctFsy267dtxzUU6g23BfqNXnL5G48ZBuOK05z0LYRbTPYQyUqUqs1CK
xbeC4zxOahFylkSylTfO2XK1nLKl25KrZraVXZZlSKcpW8UKnM/g4kZO0y/BtEW8ZbFL3lcqjF06tsY2
VvGlHcWV773X+NwrW+unc1pVHu5vItz8b5qIbxqAAAAAH7MPvxX2ZUV5yNJjOJdjyGlGhxtxB7yVoUnQ
yMjLUjIfGk1g8x9TaeKLTvCDnhjiBwrb11Sn0Ku6jkVGvqMnQjTUoqE6vbvMmQg0vFpsLeNP2JinNd6u
djcypr9Lyx4HozFkatvFdUFPdzPh/GU6gHIN8AAAAAAAAAAAAAAAADHbsuy3LFtysXddtXj0G3KDHVKq
tVlK3W2m0/U1NRmZkSUpIzUZkREZmRDJRozrTUILGTzI8VKkacXKTwSIGuI/rKMjX9NqFt4XdfxxZKFK
ZTcCNCrtQRtLpOl2lESfKlLX4QuU3Nu6Vj6q2To0Up3Hpz3v8V8XR5CG3+0FSo3Gj6Md/dejpI0alU6l
WZ0qqVeoSarU5qzdm1GY6t995Z8qnHXDUpR+6ZiXQhGCUYpJLcRHpTlN4yeLPhHo8gAAAAAAAAAAAAAA
AAAB23wz8ceUsB1Km0erVCVfWMCWhqfaM943XojGwjXTH3DM2VILaTZn0StpGSTPfTHtbbO0L2LlFKFT
fWZ+svPn4cx2dX65q2zSk+tDe3VwaMxY5sK+7XyZaFBvqzKo3WLauOKmVTZqNh6HqSm3EHtQ42ojQtB7
UqIyPaQqu4t529R06iwknlJ3RqxqwU4PFMy8YTIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABCn1peAegk
0TiEt2Fo3LNmhZDJpPI6RbtPmr0L7JJdAtR9xoucT7Y7Wee1m/LH/wCS8/KRTaOyzV48EvM/NyENAnpE
gAAAzPHl9V7GV8Wtf9sSPB65adRZqEBRme4s2z79pzTaaHUGpCy50qMhr3dtC5pSpTzSWH44M5mt68qF
SNSOdMtq4xyFQMrWBamRLZe6WjXZT2psZBqJS2Vq716O5ps32XEqbWXMpJilLu2nbVZUp54vD8cJZtCt
GtBTjmaM7GuZQAAAAAAAAACPnrEeIT90GIHLLt+cce+sqNv0yEtpRk7DpRESZ8ojSeqTUlZMoPYeqzUn
agxJdmNWfV3PXkvQhlfle4vO+DynF15ffT0erF+lLIuDdZXCFrEBAAAD7abTZ9YqNPpFLiOT6nVZLUOn
QWU7zjz76ybabQkuVSlKIiLujzOahFyk8Eliz1CLm1FZ2WtuGLCUDAGHLWsBlDS60hryheFQbIv8zVpS
Uqkr3iIt5LehNIM/sEJFMa21hK+uZVXmzJb0Vm0vyllWForWjGms+75XunQA5puAAAAAAAVB80fxhyx9
Mq7+kHxd+rv61L1I9CKwvf8AfU9Z9LNaDcNYAAAAAAAAAAAAAAAAAAAAAC58z/gtf9BP9woRlsH6gAAA
AAAAIL+tt/37h/8AMFR/KkCw9if9dXhXQyIbT/qp8D8xEYJwRYAAAAAAAAAAAAAAAAAAAAAAAJ3uq/4g
5t22xWsGXRPVLqlixiqNkvvLNTi6OpZNvRdT2mUV1aNzuIcJJaJQQrfa/VipVFcQWSeSXrb/AB9K8pNN
nr51IOjJ5Y5vV/IllEMJIAAAAAAAAAAAAAAAABDt1pHEF5PplH4e7bm6S6wlmtZDW0raiIhW9BhK0L/t
Vp6ZZakZElvmWJzsfqzrSd1NZFkjw7r4s3G94i+0V91YqhHO8r4Nxcf4zkIosIh4AAAAAAAAd0cAWf8A
9yea4NIrU3wexMmGzQ7j31aNRpRrMqfNPZs6N1ZtqMzIiQ4tR+9IRzabVn1ds5RXpwyryr/JefhR2tR3
v09fqv8ATLJx7j83GWWxU5PgAAAAAAAAAAAAAAAAIAest4jZt75DVhK26gpFm48eSdzJZV3k+uGnVZOa
cqYiVdGRfjDc110TpZWyWqlSpfUTXpSzeSP59GBC9oL9zqfJi/Rjn8r/AC6SLoTEjYAAAAAAAAAAAAAA
AAAAAAAAAS59Vfm2ZS7wuPBdYmqXR7njO1y0GXF7GalESRy2WiP8fHLpDIuTotfsjEH2y1epU43MVlWS
XA8z4nk4yU7N3jUnReZ5V59JOgK8JeAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABh2QbGoOS7JuiwbnjeF
UK66e9T6ggtN5KXU9662Z8i21aLQfMoiMZ7a4nb1I1IZ4vFGOtSjVg4SzNYFSvKOO69iXIV245uZvcrF
p1ByE+6RbqH2y0WxIbLU+8faUlxOv2Ki1F1WV3C6oxqwzSWOlcTyFZXVvK3qypyzp/h8ZgI2jAAAAEw3
Va598nViucP1xTtIdbN2uY/U6rYmY2jWdDRvH/2raemSki0I0OHyqEE2x1ZjFXUFmyS4Nx+bkJXs5e4N
0JcMfOvPyk3or8loAAAAAAAAedV6tTaBSqnXKzNap1Io0V6dVKg+rdaYjx0G464tR8iUpSZmPUIOclGK
xbyI+Skopt5kVSuJnN1S4gMw3RkGUbrVIdcKn2hTXOWJSYqlFGbMuZS9VOr+7WrTZoLm1Rq9WNtGlu55
eWTz6OBFbaxvHdVnPczLg/GU0EOmaIAAASldWLgH5bZCqGabhhdJbWNl+D20lxOqJFdeRqSy27fBGVb+
0vfrbUR96Yhu1+s/lUlbxfpTyv1fzfMnvkk2dsuvUdaWaObh/JdJPyK2JoAAAAAAAAFQfNH8YcsfTKu/
pB8Xfq7+tS9SPQisL3/fU9Z9LNaDcNYAAAAAAAAAAAAAAAAAAAAAC58z/gtf9BP9woRlsH6gAAAAAAAI
L+tt/wB+4f8AzBUfypAsPYn/AF1eFdDIhtP+qnwPzERgnBFgAAAAAAAAAAAAAAAAAAAAAAA6n4Kb4dsL
iexHUykKYi1msot6opI+9carKTgpJf3KXHUL9w0kfMOLtDb/AD7Got1LrL/xy9GJ09T1vlXUHuN4cuTp
wLTgp4sUAAAAAAAAAAAAAAA19lXJFv4ix5dmR7nd6OkWrAcluMkokrkPbEMRmzVs333VJbR7qiGzZ2s7
qtGlDPJ4fnxZzDcV40KbqSzJFS/Id9V/Jt73Rf8AdEnwqu3XUHahPWWu4g3D7xpsj10Q0gkoQXMlJELq
tLaFtSjShmisPxw5ys7ivKvUlUlnbMNGwYQAAAAAAAAACzXwH8QBZzwpTo9Zm+E35jwmqHdhLVq6+hCP
8lOVzn07SdFKPlcQ4Kj2i1Z9Fcvqr0JZY+dcT5sCw9T3v1VBY/qjkenjO2BwDqgAAAAAAAAAAAABhuRb
wiY+sG9b6nESoln0OfWHmz+zKFHW8SC051GndL6oz21B16saazyaXKzHWqKlCU3mSb5Cn/WKtUK/V6pX
avJVNqtamPz6nMX752RJcU664rTnUtRmYvGnTjTioxyJLBcCKtnNzk5PO3iecPZ5AAAAAPSpdHq9clFB
otKmViaotUw4TDkh0y7pIbSpX/AeKlSFNYyaS8rwPcKcpvCKbfkNjRcC5znJJcLDF9zEKLVKmLdqbhGX
uGmOY1HrO0WerD2lpM6sbh/+uXsvQfZ7OvEF6ish+jFW8WHz7rZ99D2o6T79Bcd3L2XoHs68QXqKyH6M
VbxYPutn30PajpH0Fx3cvZegezrxBeorIfoxVvFg+62ffQ9qOkfQXHdy9l6D4pWBs5QUmubhm+oaU++U
/btTbIvqmqOQ+rWdo81WHtLSfHY3C/8AXL2XoNdVSjVehyThVqlTKPMItTiTWHI7pFya7jiUn/wG3Tqw
qLGLTXkeJgnTlB4STT8p5o9ngAAAAA3rwxXVIsviFw1cMde54PdtMiyla6f5Wc+mHJL67LyyHN1xRVaz
qxfZb41lXOje1bVdO5pyXaS5cnnLZwpYsoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIg+tIwD5XoFFz
9bsLeqFtE1Rr8S0na5T3XNIctWn4l5ZtKPTUycTzIE32P1n1Ju2k8ksseHdXGujykZ2isuvBVo545Hwf
kQcCxCGgAABkVo3VW7Gui37xtqYqn162KhHqVJlp17x+OsnEbxEZbyTMtFJ5DLUj2GMNehCvTlTmsYyW
DMlGrKlNTjnTxLaOF8pUTNOMbQyVQTSiJc0FD0qESt5USY2Ztyoqz7rLyVI15yLXkMUrfWcrSvKlLPF8
q3Hxos21uI3FKNSOZo2gNQzgAAAAAARN9Z/xCfJe0abge2p3R12920VC9XGVGS2KO25+BjmaTIyOU6jU
y/FoMjLRwTPZDVnzaruZr0Y5I+tv8S52t4je0N98umqMXlln4Pz6MSCAWQQsAAAPfta2a1ely0G0rchL
qNeuSexTaRCRyuSJLhNoIz5i1PaZ7CLaewYq9aNGnKpN4KKxZkpUpVZqEc7eBbLwdiai4QxZaGNaJuuN
W9DSmpT0p3TmT3T6SXJVrt/COqUZEfvU6J5CIUrrC9leV5VZbr5FuLiRZlpbRt6Uacdxf9TbI0zYAAAA
AAAACoPmj+MOWPplXf0g+Lv1d/WpepHoRWF7/vqes+lmtBuGsAAAFkbq1W21cKttGptKj8t1raZEf/5S
hVG1f9+XBHoJ/qH+pHhfSzvjoWfxSPvSEbxOyOhZ/FI+9IMQOhZ/FI+9IMQOhZ/FI+9IMQOhZ/FI+9IM
QOhZ/FI+9IMQOhZ/FI+9IMQOhZ/FI+9IMQOhZ/FI+9IMQOhZ/FI+9IMQfqAAAAAAAAACC/rbf9+4f/MF
R/KkCw9if9dXhXQyIbT/AKqfA/MRGCcEWAAACQDq3LKs6/OICq0W+LUpF40duzqjKbpVbhMT4yX25cFK
HSakIWglpStRErTUiM+6IxtZcVKFopU5OL66yptPM947moKMKtw1OKa6rzrHdROt7NPDp6hseejNL8XF
d/drzvp+1LSTH7fbd3H2VoHs08OnqGx56M0vxcPu1530/alpH2+27uPsrQPZp4dPUNjz0Zpfi4fdrzvp
+1LSPt9t3cfZWgezTw6eobHnozS/Fw+7XnfT9qWkfb7bu4+ytA9mnh09Q2PPRml+Lh92vO+n7UtI+323
dx9laB7NPDp6hseejNL8XD7ted9P2paR9vtu7j7K0Hn1PhW4a6tFdhysFWO0y6k0qXCosOE6RH9q9Fba
cSfukoh6jri9i8VWn7TfSfHq62f/AK48iIX+PDgvouAE0jIuNFSjx1X5vk2o0OU4uQ5SZy0KcZJD6tVr
YdShREbhmpKi0NSt9Ok92b1/K+xpVsOulinm6y4N9eTc4CJ661TG2SqU/wBLyNb35cJGyJYR8AAAMtsG
pKot92VWEHouk16mzEHrptYlNuFt/wCqNe7h16M478WuYz2surVg96S6S4sKMLRAAAAAAAAAAAAAAAIK
etC4gvlFdNKwJbc41Uez1t1S+VtKPdeqrresaKoyPQyjsr31Fyb69D75sWJsfqzqQdzNZZZI8G6+N5OL
ykP2ivutJUI5llfDuLz8hEkJuRcAAAOpOD7Az3EDmu3rXlx1rs+iGVavqQRGSSp0ZadY+8XIqS4aWi26
6KUovemONr3WX0NrKS/W8keF7vFnOnqmy+qrpP8ASsr0cZuzrFeHZnEGVmr5telog2Dk7pJUePGbJEeD
V2iLwyMlKEklCXdSeQX3S0pLRA5+yutPqqHypvGcOeO4+LNyG3r6x+RV+ZFejLme7y5+UjvEpOCAAAHV
/BpntzAGbKDX6hKU1ZVyGmh30zqe4mFIWW5KNOum9FcJLmuhnuEtJe+HE1/q3661cUvTjljw73GufA6m
qL36Wum/0vI9PF0YlpFtxt5tt5lxLrTqSW06gyUlSVFqRkZbDIyFP5ixD+wAAAAAAAAAAAAHGXWBXA/b
/CblJyK50ciroplKQr7iZUYyHy+uzvkO7s1SVTWFNPcxfIm1znL11UcLSbXkXK0isSLeK7AAAAAJueB3
gPsWqWLQcw5ooaboqV0tJqFpWfMM/AI1PXtYkymUmRPrfSe+lC9UEg06pNR97Xu0O0dVVZULd9VRyNrO
3u4PcwzZCY6n1NT+WqtVYt5UnmS8+JLnRLfoNtQWqXblEgUCmMJJLNOpsZqKwgkloRJbZSlJERdwhCZ1
JVHjJtvy5SSxiorBLBHrjwegAAAAAAPHrdvUC5oD1KuSiQLgpkhJofp1SjNSmFpUWhkpt5KkmRl3SHuF
SVN4xbT8mQ8yipLBrFEHfWGcHNpYvpMLM2KKSVCtyTObp952rH18EhuydfB5kVKjPo21rLo1tl3pKUjc
IiNQsLZfXtS4k7es8XhjF7rwzp7+/jwkR17qqFKPzqSwW6tzhXQRMCbEXAAADILSlrgXVbM5szS5CqsJ
9tRcpKbfQojLk7gw3MetSkt9PoM1u8KsX5V0lyMUUWkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHhXP
bdGvG3K7alxQkVGhXHBfptXgr967Hktm24n3D3VbD5j2jJSqypTU4vBp4riPM4KcXGWVPIVNM6YlrOD8
qXfjWtEtxdvzFFS6gpJpKZT3vwkSSnYRfhGlJNWmxKt5PKkxdOrb6N7bxqx3VlW891fjcK0vbV21aVN7
mbyrc/G+akG8agAAASwdV7nz5L3rVsGXBN3KJfalVKzzcV3jNYYb/DMp12EUlhGu0/ftpItqxCtsNW/M
pq5issckvV3HxPp8hJ9nb3qydGWZ5Vw7q4yeMVyTEAAAAAwzIl92/jGx7ov+6ZPgtBtSA7PnrLTeWTZa
IabI+VbqzShBc6lEQz21vO4qxpwWWTwRjrVY0oOcsyWJUwyrki4MvZDuvI9zu79XuqeuW4ySt5EdnYiP
GbMyLvGGkpbT7idu0XVZWkLSjGlDNFcu++N5Ss7q4lcVZVJZ3+MDXw2jXAAACYLqtsAeU61WuIG44OsK
gm7RcfpdTsXNcRuzpiNS/wCybV0KFEehmtwuVAgu2Os+rFWsHnyy4NxefkJVs5Y4t15LyR8783KTgivi
XAAAAAAAAAAFQfNH8YcsfTKu/pB8Xfq7+tS9SPQisL3/AH1PWfSzWg3DWAAACyT1af8AKpbX57rX5UoV
PtX/APoS4I9BYGof6keF9LO+hHDsAAAAAAAAAAAAAAAAAAAAAAAAAEF/W2/79w/+YKj+VIFh7E/66vCu
hkQ2n/VT4H5iIwTgiwAAASTdVj/MnWPoNVPy2niJ7Zf0o+uuiRINm/7L9V9KLDorAnAAAAAAAAAABxX1
hkKNL4RcqOSN0lQVUSRFcV9i6Vagtlp7qkrNP1x39mJNawp4f93/ABZytdpOznxdKKyAtwrwAAAPWoMd
yXXaLEa16WTPjNN7vLvLdSktPd1MY6zwhJ+RmSisZxXlRctFEFqAAAAAAAAAAAAABo/iMzPSsB4iuvI1
Q6N6dAY8FtmmOHp4ZVZJGiIxoW0073fr02khKj5h0NV2Er24jSW7ne8t1/jdNS9ulbUZVHuZvK9wqgVu
tVW5KzVrhrk1ypVquzH6hVqg8erj8mS4brritNC1UtRmYuilTjTioRWCSwXAitak5Tk5SeLeVnlj2eAA
AAst8AWAP3J4VhVetwfBr7yYTNbuPpE6PRopoPyfCVqRKLomlmtST2k44suYhUu0ms/rLlqL9CGRed8b
5kiwdTWP01BY/qllfmXF04m8eJPClMz9iC6seTCaaqcpnw21Kk4X/wBpVoxGqK7ryklRmba9NvRrUXOO
fqq/lY3EaqzLOt+O7+N83L60V1RlTe7m8j3CqJWKRUqBVqpQqzDcp1Yost6BVae8WjjEmM4bTrSy7qFp
MjFz06kakVKLxTWK4GVpODhJxlnWRnnD2eQAAAsX9XFn/wDeriEsf16b016YoQzT1KcVq5KoyyMoD+3l
NokmwrTXTdQpR6rFV7U6s+lufmRXoTy8Et1efj8hPdRXv1FHqy/VHJxbj8xIoIwdsAAAAAAAAAAACPjr
Nnja4W6mguSRclHbV9QnFr/vSJLsmv8A++PA+g42v/6kuFdJXDFrEAAAADIbRoLl1XXbFrsrNt25KtCp
bThFqaVTH0MEZF7hrGG4q/Kpyn2U3yLEy0afzKkYb7S5WXFabT4dIp0ClU9lMaBTIzUSDHQWiW2WUE22
gi7hJIiFFyk5Nt52WklgsEfaPh9AAAAAAAAAAND8TeL6pmbBeQcbUMonlu5IkdNIVOcU1HTJjS2JTalu
JQs0kRtcpJMdHVN4rS6hVljhF5cN7DA1L+3dxQlTWdrnIVey14lv/UbK/wBUleJCf+MbLenyLSRLw3c7
8eV6B2WvEt/6jZX+qSvEg8Y2W9PkWkeG7nfjyvQOy14lv/UbK/1SV4kHjGy3p8i0jw3c78eV6D76T1Xv
EhEqlNlSKjZng8aUy6/uVOSatxCyUrdI4RanoWwY6m2FnKLSU8Wt5aT3T2duIyTbjke+9BYTFZk1AAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIs+s6wD8tcfU/NVvQekuTG6PBrmJpOrkihPL131aEZq8EeVvl
zEhbqj5BMNkdZ/JrOhJ+jPN5Jfnm4cCPbQWXzaXzY/qjn9X8s/KQECyyEAAAB6lDrVUtutUm4aHNcpta
oUxioUmoNaEtiTGcS604nXUtUrSRlqPFSnGpFwksU1g+BnunNwkpRyNPFFsXh6zFS874jtDJFO6NmTVo
pM3BTmzM/A6pH/BzGNuh6E4Rmgz5UGlXOKW1nYysriVJ7jyeVbj5Cy7K6VzRjUW707puoaBtAAABB71o
vEJ5VrNK4fLZnawKCpqr5CcaVscmrTvQoSjI9pMtq6ZZGWm8pv7JAsHY/VfVi7qayvJHg3X5uUiO0d9i
1Qjwy8y8/IQ/CdEVAAADN8b2DX8pX5auPbYY6euXZUGoEPUjNDZLPV15zTkQy2SnFnzJSZjWu7qFrRlV
nmisfy48xntqEq9SNOOdstp4zx9QMVWFauPLYZ6Gi2pT2oMVRkRLdUktXX3NNhrecNTiz51KMUrdXM7m
rKrPPJ4/jgLMoUY0YKEcyWBnI1zKAAAAAAAAAAVB80fxhyx9Mq7+kHxd+rv61L1I9CKwvf8AfU9Z9LNa
DcNYAAAOksacXfEPh+1I1kY6yF8nbYhvvSY1M8k0mXuuyF77qullw3nT3lHroatC5hybvUdndVHUqwxk
93GSzcDR0LfWlzQgoQlgl5F50Z/2hfGD63viC3/No1vDGru696XxGb75edvmjoHaF8YPre+ILf8ANoeG
NXd170viH3y87fNHQO0L4wfW98QW/wCbQ8Mau7r3pfEPvl52+aOgdoXxg+t74gt/zaHhjV3de9L4h98v
O3zR0DtC+MH1vfEFv+bQ8Mau7r3pfEPvl52+aOgdoXxg+t74gt/zaHhjV3de9L4h98vO3zR0DtC+MH1v
fEFv+bQ8Mau7r3pfEPvl52+aOgdoXxg+t74gt/zaHhjV3de9L4h98vO3zR0DtC+MH1vfEFv+bQ8Mau7r
3pfEPvl52+aOgmA6vfM+S844iuy6Mo3J8qK7TLvk0uFO8DhwtyI3Agvpb6OEwwg9FvLPU0mrbproRCDb
T2FCzuIwox6qcU87eXFrdb3iU6ju6tzRcqjxalhmS3FvHeQjh2QAAAAAAAAgv623/fuH/wAwVH8qQLD2
J/11eFdDIhtP+qnwPzERgnBFgAAAkm6rH+ZOsfQaqfltPET2y/pR9ddEiQbN/wBl+q+lFh0VgTgAAAAA
AAAAAjx6za9afbvDPPth99JVLINbptOp8XUt9TcGQiovOafao8GSkz7qk90SfZKhKpfKazQTb411fOcT
aCqoWri88mlz4+YrlC1CBAAABt3AFuP3dnHEVuR2TfOqXfR230Ft0YTMaW+s/cQ0lSj9whoa0qqlaVZP
ci+jJzm3YU3O4ppdpdOUtzCkyzQAAAAAAAAAAAAArtdZFxBfvRywnGtvzumsvFLjsR9TStWpdcV3sx3Y
eiij6dAnUtiid02KFobKas+nofOkvSnzR3OXPyEH1/ffOq/Kj+mP/L8s3KRwiVkfAAADtfgPwD+/PNtO
drMLwmxMedFXbtJadWn1oX/koSu707qTNRHytocIR7aTWX0dq1F+nPIvO+Jc7R2NSWX1FfF/pjlfmX43
izYKlLAAAge60Dh9+S940zO1uQtyh3ytFOvNDSe9YrDTf4GQemwilMo0PZ79szPvlixtkNZ/Mpu2m8sc
sfV3VxPmfkIdtFY9WSrxzPI+HcfGROiakYAAADfvDLmyfgDMdq5BYU45R2nfJ93wG9pyqRKUlMlGnOpG
iXUF9uhPMOZrjV6vraVLdzx9ZZtHGb2rbx2tdT3Mz4H+MS1xS6nT61TafWaTLaqFLq0ZqZTZ7Kt5t+O+
gnGnEKLlSpKiMjFMyi4txawaLJTTWKzH3DyfQAAAAAAAAACPLrO/5X5f0opH97wk2yX99eqzi6//AKku
FdJXJFqkBAAADcHD02l7PuDmVlql3IFsoUR7diqrGIxoa0yWlb1Jf8Wbdh/Yp+tHpRbjFJlmgAABg2Tr
0/dxji/MgeTfLPyJt+o13yR03g/hXk+M5I6Hptx3o9/c3d7cVpy6HyDYtKH1FaFLHDrSSx3sXgYbir8q
nKeGPVTfIiJftev6ev2s/Uwmvgf+f3P3EZ8Ufxe9+0dr1/T1+1n6mDwP/P7n7h4o/i979o7Xr+nr9rP1
MHgf+f3P3DxR/F737R2vX9PX7WfqYPA/8/ufuHij+L3v2jtev6ev2s/UweB/5/c/cPFH8XvftHa9f09f
tZ+pg8D/AM/ufuHij+L3v2jtev6ev2s/UweB/wCf3P3DxR/F737R2vX9PX7WfqYPA/8AP7n7h4o/i979
o7Xr+nr9rP1MHgf+f3P3DxR/F737SXexbm+Wlk2dePgXk35WUOn1nyd0nTeD+Hxm5HRdLuI39zf3d7dL
XTXQuQQi4pfKqShjj1W1yPAlNKfXgpb6TMqGE9gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8NTpsCtU
2oUeqxG59LqsZ2HUoLyd5t5h9BtutrSfKlSVGRkPUZOLTWRo+NJrBlUbiZwpPwDmO68evpcXSGHfD7Rn
ucsmkSjUqKvXnUjQ2ln9uhQubU+sFfW0au7ml6yz6eBlbays3a13Dczrgf4wNBjpmiAAAEnPVl58+QGT
pmIq/N6K1sorSdGNxWjcavMp0Z012F4U2XRHzmsmiEQ2u1b86iq8V6UM/q/k8vKSPZ69+XUdKWaWb1vz
LBQrMmoAGl+IPMlHwNia68kVXo3n6VH6G36YtRl4bU5GqIkctNuil7VmXvUEpXMN/VtjK9uI0o7ud7y3
Wat7dRtqUqj3Od7iKn1x3DWLsr9aui4ZzlTrtwzX6jV6g7796RJWbjiz02FqpR7C2FzC6KNKNKChBYJL
BFaVakqknKWVt4nijIeAAAAm66rXAHk+l1viCuKFpLrJPUPHyXU7URG17s+Ynbp+EcT0KT0IyJDnMsV7
thrPrSVtB5Fllw7i4ll41vEw2dsurF15Z3kXBuvj83lJiRBiUAAAAAAAAAAAAVB80fxhyx9Mq7+kHxd+
rv61L1I9CKwvf99T1n0s1oNw1gAAAAAAAAAAAAAAAAAAACwB1T/8A76+n8v9FUwVntp/bh6i/wCUib7N
f15es+hEoYiBIQAAAAAAAAgv623/AH7h/wDMFR/KkCw9if8AXV4V0MiG0/6qfA/MRGCcEWAAADpPhY4h
fZoyTMyF8kPlr4XQ5VF8keUPJu74S9He6XpvBpWu70Gm7ubdeXZt5OudV/caKpdbq4STxwxzJrfW+dDV
t99HUc+r1smGfDe8j3iQ/tev6ev2s/Uwi/gf+f3P3Hc8Ufxe9+0dr1/T1+1n6mDwP/P7n7h4o/i979o7
Xr+nr9rP1MHgf+f3P3DxR/F737R2vX9PX7WfqYPA/wDP7n7h4o/i979o7Xr+nr9rP1MHgf8An9z9w8Uf
xe9+0dr1/T1+1n6mDwP/AD+5+4eKP4ve/aeZU+t1rLsZ1NGwTCgTDSfQvzbhcltpVpsNTbdPjGovcJZD
3HYiOPpVn7OH/wAmfHtQ9yn735EbGcM+5J4hLqbuvI1WblOw2jj0WiwmzYp9PZUZKW3GZNSzLfMiNSlq
UtWhbyjJKSKV6u1ZQsKfUpLPnbzvh/GBwLy+q3c+tUfAtxGlx0DTAAACUDqvcMzLsy5UMu1CGr5N4ziv
MUyUsj3HqzUGjZShHMroYzji1famps+chD9sL9UrdUE/SnlfqrS+hkj2ctHOq6rzRzcL/LpLAYrQmoAA
AAAAAAAAAHKXGTnxrh+wrXLggSUt3pce9RLFY5VFOkIVvStNvexmyU7tLQ1ElJ++IdjUWrXfXKg/0rLL
gW5x5jna0vVa0HL/ACeRcP5Zyra667IddffdW8+8tTjzzijUta1HqpSlHqZmZnqZmLiSSWCK5bbeLPzH
0+AAf222464hppCnHXFEhttBGalKM9CIiLaZmY+N4ZWfUsciLR3BjgRGAMJUKhVGKTN63Nu1y+XDLv0z
ZCE7kUz1PZGaJLehHpvEtRe+FPa91l9ddSmv0rJHgW7x5yxtV2X0tBRf6nlfD+WY6yHGOiABrjLmMqBm
LHF243uVBHTLpgrjFJJJKXFkJ0XGlNkezfZdSlxPul3BtWV3O1rRqwzxfLvrjWQwXNCNenKnLM1+OQqY
X5ZNfxxedy2JdEXwOv2rUHqdUmdu6a2laE42ZkW8hxOi0K075JkfOLqtbiFxSjVhmksStK9GVGo4Szpm
JDOYQAAAny6sTiA+WVhVHCVxTukuPHTZy7WU6rVcihvOaG2nUzNRxHl7vcJC20l70xWu12rPk1lcRXoz
z+SX5rnxJts/ffNp/Klnjm9X8tBKiIcSIAAAAAAAAAAjy6zv+V+X9KKR/e8JNsl/fXqs4uv/AOpLhXSV
yRapAQAAA3Jw6/zBYK/9w7Y/S0YaGtf6db1Jf8Wbdh/Yp+tHpRbfFJlmgAABo3ic/lyzx9ALi/Rr46Gq
f7lH149KNTWH9ap6suhlS4XWVkAAAAAAAAAAAAAFvDBf8EsO/Qe3v0bHFH3/APZqevLpZaNt/qh6q6Da
Y1DOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARydZFgH96GIk5GoMLprxxOh6c4ltOrkqiOaHOa2GW
ps7pPp110JLhEWqxKNldZ/TXHypP0KmTgluaOPyHD17ZfPo9eP6oZeLd0ldcWmQMAAAPrgTplLnQ6nTp
TsKoU59uTBmsqNDjLzKiW24hRbSUlREZGXOPM4qacWsUz1GTi01nRay4W83ws/4Zta/EuNFXkt+TLzgt
6F4PVoiUpkFukZ7qXSNLyC+0WkUzrfV7sbmVLczx8sXm0PyosnV92rqiprPu8O6dDDmG6V3+sj4hf3n5
URjC3Z3TWXip52NLU0rVuZXVFuS3Nh6GUYvwCdS2KJ3TYoWfspqv6eh86a9KfNHc5c/IQfaC++dV+VH9
Mf8Al+WblI3BLCPgAABtbCOKK3m3KNoY1oRKbfuKalFQnkk1JhwWi6SXKXzaNNJUZEfKrRPKZDS1jexs
6EqstxZPK9xG1ZWsrmtGmt3P5Fuls207Xolk2xQLQtuGmn0G2YDFNpMNP2DEZBNoIz5z0LUzPaZ7TFK1
qsqs3OTxbeL4yy6cFTioxyJLAyAYz2AAAAAAAAAAABUHzR/GHLH0yrv6QfF36u/rUvUj0IrC9/31PWfS
zWg3DWAAAAAAAAAAAAAAAAAAAALAHVP/AMA76+n8v9FUwVntp/bh6i/5SJvs1/Xl6z6EShiIEhAAAAAA
AACC/rbf9+4f/MFR/KkCw9if9dXhXQyIbT/qp8D8xEYJwRYAAAAAAAAAAAAAAAAAAAA+qFCm1KUxAp0R
6fOlLJuLDjNqddcWfIlCEEalGfcIh5lJRWMngj1GLk8EsWd54D6vLNeWJ8CpXpSpGKrFUpDkyp1lo26m
+1rqaIlPXo6SjLkU8SEbdS39N043rLai2tk1TfXn5P0rhejHiO1ZahrVmnUXVj5c/JpLA+McZWdiCyqN
YNiUtNKt+iNmlpBnvPPur2uyJDmhG464rapR/ULQiIirO7u6l1VdSo8ZP8chNqFCFCChBYJGfjWMwAAA
AAAAAAB/hmREZmehFtMzAFY7jq4gf375qqJUab4TYdgdLQ7O3FatP7qy8MnJ02H4Q6kt0+dtDfPqLb2b
1Z9FbJyXpzyvzLi6Wyv9dXv1NfBfpjkXnf43ji4SA44AAAdqcCdpYzrGaoN4ZZve2LQtXHCW6xFi3HVY
dOKo1TeMoTbSJbjfSJZWk3lmnXQ0oSrYsR/aStXjbOnQhKUp5PRTeEd3Nv5uXeOxqWnSdfr1ZJKOXK0s
XuZ97PyFgf2keHf19459KaR40Kz+1Xnc1PZloJr9fbd5D2lpHtI8O/r7xz6U0jxoPtV53NT2ZaB9fbd5
D2lpHtI8O/r7xz6U0jxoPtV53NT2ZaB9fbd5D2lpHtI8O/r7xz6U0jxoPtV53NT2ZaB9fbd5D2lpIhOs
opWGb1m25mXGGT7Lue41blEveg0Su06bMkNJSZw5xMR5C1r6MiNlwySZ7pt8iUmYm+yc7mipUK1OcY54
txaSe6sWt3OuPfIzr+NCrhVpzi3maTTeG48+5+MxE+JqRgAAANq4TytW8J5QtDJVBNS5FuTUrnQCUaUz
IThdHLir5tHWlKSRnyHorlIhpaxso3lCVKW6snke4zasrqVtVjUW5n8q3S2baV00S+LXt+8LbmJqFBua
AxUqTMTs32JCCcRqXMoiPRRHtI9SPaKVrUZUZuE1g08HxFl06kakVKOZrEyEYz2AAAAAAAAEeXWd/wAr
8v6UUj+94SbZL++vVZxdf/1JcK6SuSLVICAAAG4uHhaW8/4McUeiUZBtlSj9wqrGMxoa0/p1vUl/xZt2
H9in60elFuEUmWaAAAGjeJz+XLPH0AuL9Gvjoap/uUfXj0o1NYf1qnqy6GVLhdZWQAAAAAAAAAAAAAW8
MF/wSw79B7e/RscUff8A9mp68ullo23+qHqroNpjUM4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB+b
zLMhl2PIaQ+w+hTb7LiSUhaFFopKknsMjI9DIx9TwBVk4wcDvcP+bLiteJHW3aFbM61YsgyM0nTpS1aM
bx8qozhKaPbrolKj98QuHUOsvrrWMn+pZJcK3ePOV1ray+lrtL9LyrRxHLY7JzAAAAkT6uHPn7q8xJsC
uzehszLCmacrpFaNxaygzKA9tPRJOmo2FaFtNaDM9ECK7V6t+pt/mxXpU8vDHd5M/Kd/UF78mt8uT9Gf
/Lc5c3ITAcZef2uH3C9ZrsCSlu9rm3qJYjHKpM19B78rTQ+9it6uamWhq3En74hB9Ratd9cqD/SssuDe
48xKNaXqtKLl/k8i4fyzlXB552Q66++6t999anHnnFGpa1qPVSlKPUzMzPUzMXCkksEVy228WfmPp8AA
ACfLqw8AfI2wqjm24oPR3HkVvwS1kup0XHobLmpuJ1IjSct5G93DQhtRe+MVptdrP51ZW8X6MM/ll+S5
8SbbPWPyqfzZZ5ZvV/PQSoiHkiAAAAAAAAAAAAACoPmj+MOWPplXf0g+Lv1d/WpepHoRWF7/AL6nrPpZ
rQbhrAAABZG6tVttXCrbRqbSo/Lda2mRH/8AlKFUbV/35cEegn+of6keF9LO+OhZ/FI+9IRvE7I6Fn8U
j70gxA6Fn8Uj70gxA6Fn8Uj70gxA6Fn8Uj70gxA6Fn8Uj70gxA6Fn8Uj70gxA6Fn8Uj70gxA6Fn8Uj70
gxB/aUpQWiEkku4RaAD+gAAAAAAAAAQX9bb/AL9w/wDmCo/lSBYexP8Arq8K6GRDaf8AVT4H5iIwTgiw
AAAAAAAAAAAAAAAAAAAB9cGdOpktifTZj9PnRVb8WbGcU082ovskLQZKSfukY8ygprCSxR6jJxeKeDO6
cFdYXnTE86DBuusvZVspCkol0euvG5UGmi11OLUlEp4lFs0J03EaFoSU8ojmsdl7W5TdNdSe+s3HHNyY
HZste16LSm+tHy5+J6cSwBiDL9kZwsal3/YVS8Oo9Q1akxnSJEqFKQRG7FlNEZ7jiNS1LUyMjJSTUlST
OtL2yq2dV0qqwa5Gt9eQm1tcwuIKcHimbPGoZwAAAAAAAAADgjrCOIL9zOGpFs0Gd4PfeUUvUijKbVo7
Fp+6RVCYRkZGkybWTSDI9SWslF7wxI9mdWfWXKlJehDK/K9xefgRx9d3301DCL9KWRed/jdK2Ytgr8AA
AAAAAAAAAAAAAAAAAAACbbqtc/8AhtOrXD5cc3WTSiermPVOq99GWrenwk7C/wANaunSW0zJTvMkV7th
qzqyV1BZHklw7j483Et8mGzl71ouhLOsq4N1cXn8hMaIMSgAAAAAAAAI8+s6Iz4Xpmha6XRSDP8AteEm
2S/vr1X0HF1//UlwrpK5AtUgIAAAZFaFwPWndlr3VHR0r9s1aFVWGtdN5cJ9D6S1900DDcUvm05Q7Sa5
VgZaNT5dSM95p8jLh9Gq9PuCj0qvUmSmZSq3DYn0yWgyNLseS2l1paTLYZKSojIUZODhJxedPAtKMlJJ
rMz0h5PoAHhXRbVFvO26/aNyQ/KFv3PT5NKrcAnHGemiS21MvN9IypDiN5CjLVKiMuYyMZKNWVKcZweE
otNcKPFSnGpFxlmawfGcj9nhwg+qdf8Ar9e84Dt+KNY957sdBzPsdn2OeWkdnhwg+qdf+v17zgHijWPe
e7HQPsdn2OeWkdnhwg+qdf8Ar9e84B4o1j3nux0D7HZ9jnlpHZ4cIPqnX/r9e84B4o1j3nux0D7HZ9jn
lpND8TvBDwy4+wHlC9bQx+qg3NbdHOZRqqqs1eQTTyHWyIuikzXGlb5GadFJPl7o6Oqdob6vd06c54xb
wawj5kal/qe1pUJzjHBpNrK9JASLLIQAAAAAW8MF/wAEsO/Qe3v0bHFH3/8AZqevLpZaNt/qh6q6DaY1
DOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwp1gOAP31YUmVqiQfCL6xiT1bt7o06uyYhILyhCTo
RqPpGkE4lJbTcbQXOYkWzWs/o7lKT9CeR+Z8XQ2cjXVj9TQbX6o5V51x9OBWnFslfAAAB+jTrrDrb7Di
2X2Vk4y82ZpUhST1SpKi2kZHtIyHxpNYM+ptPFG+8/8AEXfPETVbQqd5rQ38j6DGo8OK0ozbckJQnw2c
otCInJTqd5REWhESU7d3U+ZqvVVLV8ZKn/lLHi3FxG9f6wneOLluLDj3XxmgB1DQAAADfnDPhSfn7Mdq
Y9jk43SX3fD7unt8sWkRTSqU5rzKXqTSD+3WnmHM1vrBWNtKru5o+s82ngRvaus3dV1Dczvg/GQtcUum
U+iUynUakw2qfSqTGah02AyndbYjsIJtptCS5EpSkiIhTM5Obcm8WyyUklgsx948n0AAAAAAAAAAAAAK
g+aP4w5Y+mVd/SD4u/V39al6kehFYXv++p6z6Wa0G4awAAAWSerT/lUtr891r8qUKn2r/wD0JcEegsDU
P9SPC+lnfQjh2AAAAAAAAAAAAAAAAAAAAAAAAACC/rbf9+4f/MFR/KkCw9if9dXhXQyIbT/qp8D8xEYJ
wRYAAAMjtezruvepLo9l2tV7vq7bCpLlKokGRUJKWEGlKnTZjIcWSEmtJGrTQjMu6MVavTox61SSit9t
Jc5kp0p1XhCLb8ixNg+zrxBeorIfoxVvFhq/dbPvoe1HSZ/oLju5ey9A9nXiC9RWQ/RireLB91s++h7U
dI+guO7l7L0D2deIL1FZD9GKt4sH3Wz76HtR0j6C47uXsvQPZ14gvUVkP0Yq3iwfdbPvoe1HSPoLju5e
y9A9nXiC9RWQ/RireLB91s++h7UdI+guO7l7L0D2deIL1FZD9GKt4sH3Wz76HtR0j6C47uXsvQeDWcPZ
ctyM7NuHFl30GGwk1PS6jQ58VpCS5TUt5lJERe6YyQ1hbTeEakG/JJPznmVnXisXCS4ma5G2awAAAABI
z1aOYKjYud4+PJEpw7XyrHdgvwzP8E1U4jTkiHIIjPYpRIWzs5d8tfelpFNrbGNa1+av1Q6Hka8539nr
p06/y3ml0r8YFioVeTkAAAAAAAAPlnTodMhTKlUJLcKBT2HJM6Y8okNtMtJNbji1HsJKUkZmZj7GLk8F
nZ8bwWLKqnFVnSZxB5luS+CccTbcZfkqyILmpdDSYqlEyo0mRGlTyjU8sj5FLNPIRC5NS6tVhbRp/wCT
yy9Z6MxXGs713dZy/wAVkXB+ec5xHWOeAAAAAAAAAAAAAAAAAAAAABmmO77r+ML5tbIFryPB67adQaqE
FR67i+jPv2XNNpodQam1lzpUZDXu7aFzSlSnmksPxwZzNb15UKkakc6ZbSxfkSgZZx/amRbYe6WjXXT2
5jDZqJS2HD716O5u7N9l1Km1l9skxSl3aztqsqU88Xh+fHnLNoVo1qanHM0Z6NcygAAAAAAcNdY1SHap
wm36+02p1dEnUaoGlJGZkkqiwwtWhcyUvGZ+5tEh2Wmo6whju4rmZyNexxs58XSitCLaK+AAAAAJf+B/
j4tywrXpmHM2THqfRaMZR7Kvkm1vtxoy1d7CnIQSnEobM9G3EkZJT3qiSlBKEF2h2anWqOvbrFv9UfLv
rh3Vv5s5KtT66jTgqVZ4YZn5npJnLVvezb5p7dVsu66RddNdSSkTaTMZmN6H3VMrVofMZHtEDrUKlGXV
qRcX5VgSunVhUWMWmvIZQMR7AAAAAAA8O4Lntu06e7VbpuCm23S2Emt6o1SUzDYQlO0zU48pCS0+qMlO
lOo+rBNveSxPM5xgsZNJeUhV4/ONqzsiWs/hLEVR8v0afKZeve8WiUiI8iI4TrUKGaiI3SN1CVrcIt3v
UpQayUoyn2zWz9WhU+orrBr9Md3LuveyZln4CJ671vCpD5NJ4453ucCIghOSKgAAAAFvDBf8EsO/Qe3v
0bHFH3/9mp68ullo23+qHqroNpjUM4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAyIyMjLUj5SAFY
vjqwF+4rN1UKkQ/BrFv7pa9Z+4nRpknF/wCbhJ02F4O6rvS5m1Ni29m9ZfW2qUn6cMj8z41zplf66svp
q7a/TLKvOvxvnGAkBxwAAAAAAAAACxX1b+AP3W4i/eJXoXQ3nlhDM9KXE6ORaKgjVBZ266G8SjfVppqS
kEotUCrNqtZ/VXHy4v0KeThluvzcXlJ5qKx+RR68v1Sy8W5pJGBFzuAAAAAAAAAAAAAAAFQfNH8YcsfT
Ku/pB8Xfq7+tS9SPQisL3/fU9Z9LNaDcNYAAANk21mXMFl0pqg2dla8bTobK1us0ajV2oQIiFuHvLUli
O+hBGo9pmRbRqVbC2rS61SnCT33FN8rRsU7utTXVjOSW8m0ZB7SPER6+8jelNX8aGP7VZ9zT9mOg9/X3
PeT9p6R7SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6R7SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6R7
SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6R7SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6R7SPER6+8j
elNX8aD7VZ9zT9mOgfX3PeT9p6R7SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6R7SPER6+8jelNX8aD7
VZ9zT9mOgfX3PeT9p6R7SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6R7SPER6+8jelNX8aD7VZ9zT9mO
gfX3PeT9p6SzLwxVerV/h6w3Wq7VJdarNUtOmyanVp77kmVIecZSa3HnnVKWtSj2majMzFR62hGF3VjF
JJSeCWZZSwrCTlb023i3FdBvUc82wAAAAAAIL+tt/wB+4f8AzBUfypAsPYn/AF1eFdDIhtP+qnwPzERg
nBFgAAAkm6rH+ZOsfQaqfltPET2y/pR9ddEiQbN/2X6r6UWHRWBOAAAAAAAAAACHfrOuHSz4dm0/Oto0
OJQrgg1VinXuUJtLDU+NNJSWZTqEJJJvNvJSje2GpK++M91Ok42R1pU+a7abbi1jHHca3OBojG0NjD5f
zorBp5fKn5yEQWGQ4AAAN28NMt+DxE4JkRnDbc+X9uNKMudD1SYbcT/1kKMjHO1vFSs6yfYl0M3NXScb
mm12l0ltYUqWYAAAAAAAAEXXWa8QRWLjyHhi3ZxN3Rkto3bjNpRdJGoLazStKtD1LwtxJtlzGhLpc5CX
7Jas+fW+fJejDN5Zfln4cCPbQX3yqXyov0pZ/V/PNykAIswhAAAAAAAAAAAAAAAAAAAAAAAAABL11XGf
/I1wVnANxztKdcynaxYSnVbGqg0jWZESaj2E+0jpUkWhbyF/ZLEG2w1Z1oq5gsqyS4Nx8Wbk3iU7OXuD
dCTz5Y+deflJyRXpLwAAAAAANaZmsUsm4nyLYBGlL12W/Pp0FxWmiJTrKvBnD1+0dJKvrDasbj6evCr2
ZJ85guaPzqUob6aKh8qLJgypMKYw5FmQ3VsS4zqTS4242o0rQtJ7SNJkZGRi8IyUkmszKvlFxeDzo+cf
T4AAAAAfXCnTqbKam06Y/T5jB7zEuM4pp1B91K0GRl9Yx5lCM1hJYo9Rm4vFPBmyYWdc3U5CW6fmO+IC
E7Eoj3DUmiL6hIkENR6ttXnpQ9laDYV9cLNUl7T0nplxH8Q6SIk55yKki5CK6asRflI8/arPuafsx0H3
6+57yftPSf17SPER6+8jelNX8aD7VZ9zT9mOgfX3PeT9p6T+VcR3EMstF55yIou4d0VYy/KQ+1Wfc0/Z
joH19z3k/aek82VnXN01BtzMx3xLbV75D1w1Jwj+sqQY9LVtqs1KHsrQfHfXD/8AZL2npNc1Kq1OsSlz
qvUZVVmuFouZMeW+6oi5CNbhqUf9o2oU4wWEUkvJkNec5TeMm2/KfAPZ5AAAAAP9IjMyIi1M+QgBcTx9
R3besKyKA+ncfodAptPeQezRUaK20ovrGkUVcT69SUt9t85atOPVilvIy8YT2AAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAHIfGxgMs+YRrVLpcQn73tDer1kKSX4RySwg+mhkepalJa3kERnpv7ij96O3qD
WX0N0pP9EskuB7vE8vKc3Wtl9VQcV+pZVw/nmKvSkqQpSVJNKkmZKSZaGRlykZC4CuT+QAAAAAAAHVPB
zgZ3iAzZQLcnRluWbb5lW76f0MkeARlp0jb2mm9JcNLRFrrumpRe9McXX2svobVyT9OWSPDv8WfhwOnq
my+qrpP9KyvRx9GJaWaaaYabYYbSyyygkMsoIkpQlJaJSki2ERFsIiFPN4lin6AAAAAAAAAAAAAAAACo
Pmj+MOWPplXf0g+Lv1d/WpepHoRWF7/vqes+lmtBuGsAAAAAAAAAAAAAAAAAAAAABa94S/5Z8GfQ2l/+
AkUvrn+7W9eXSWXq7+tT9VdB0MOYboAAAAAAEF/W2/79w/8AmCo/lSBYexP+urwroZENp/1U+B+YiME4
IsAAAEk3VY/zJ1j6DVT8tp4ie2X9KPrrokSDZv8Asv1X0osOisCcAAAAAAAAAAHD/WMJSrhHyQZlqaJV
CNJ9w/LEMv7jEg2W/wD0Kf8A5f8AFnI17/TnxdKKzgtsr4AAANycOv8AMFgr/wBw7Y/S0YaGtf6db1Jf
8Wbdh/Yp+tHpRbfFJlmgAAAAAAY9dt00Sx7Yr94XJNTT6BbMB+pVaYr7BiOg3F6FzqMi0SRbTPQi2jJR
oyrTUILFt4LjPFSpGnFylkSWJU1zhlit5uyjd2Sq6a23rhmKVTqepRqTDgtF0cSKjm0baSkjMvfK3lcq
jF06usY2VCNKO4sr33usrS9upXNaVR7ubyLcNTjeNUAAAJBur44aY2bsmP3feNIbqWNMdGh+pQpbZORq
nU3CM4sJaFkaXG0kRuupPUtCShRaOCL7T62dnR+XTeFSe9nUd1+Zce8d3UWr1cVOvNYwjzve874idD2a
eHT1DY89GaX4uK8+7XnfT9qWkmH2+27uPsrQPZp4dPUNjz0Zpfi4fdrzvp+1LSPt9t3cfZWgezTw6eob
HnozS/Fw+7XnfT9qWkfb7bu4+ytA9mnh09Q2PPRml+Lh92vO+n7UtI+323dx9laB7NPDp6hseejNL8XD
7ted9P2paR9vtu7j7K0D2aeHT1DY89GaX4uH3a876ftS0j7fbd3H2VoHs08OnqGx56M0vxcPu1530/al
pH2+27uPsrQPZp4dPUNjz0Zpfi4fdrzvp+1LSPt9t3cfZWgh+6yHhZo2NanRMwY1tuJQLIrpt0m6aFSo
yI0OnVFtGkd9thlKW2m5Lad1WhEXSJ1PvnRONlNcyuE6FaTc1lTbxbW6sd3Do4CMa/1bGlhVprCOZpZk
9x8fTwkVQmZGQAAA9u2rirFo3DRLpt6aunV23ZzFRpE9v3zUiM4Tjay7uiklqR8vIMdajGtBwmsU1g+M
yUqkqU1OOdPEtkYFy9R854otHJVH3GTrkQk1mnJMzOHUWD6OXGPXQ9EOpPdMy75G6rkUQpXWNlKzrypS
3Hk8q3HyFl2dzG5pRqR3endNwDSNkAAAAAACvV1jvDVNxtkeVmC2qcpVg5JlqfqymU95Tq45qqQhZEXe
plGRvIM+VZuJ2aJ1s3ZXWyuKPyJv04ZvLH8s3BgQnX+r3SqfOivRln8j/PpI0RLiOgAAAAAAAAAAAAAA
AAAAAAAAB1zwT4Pn5uzva0RcNblo2ZKYuG9Jhp1aTGiOE4zGUZkZGqU6lLe7y7u+ovemOHtDrFWdpLL6
Ul1Y8ed8S58Dq6ns3cXC7Mcr8y43zYlooVAWGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABW
86xDAP7oczyLuocLoLIyqp+r07o06NRqmSiOoxdmwiNayeSWwt1e6XvDFqbLaz+qtvlyfpwycMdx+bi8
pBNfWXyK3Xj+mWXj3dJH+JOcIAAAAAACzFwEcP8A+5DCkCoVqD4NfmSCZrlz9InR2OwpB+AQVbCMuhaW
alJPkcWsu4Kk2j1n9bctRfoQyLzvjfMkWFqax+moLFelLK/MuLpxO4RHzrAAAAAAAAAAAAAAAAAVB80f
xhyx9Mq7+kHxd+rv61L1I9CKwvf99T1n0s1oNw1gAAAAAAAAAAAAAAAAAAAAALXvCX/LPgz6G0v/AMBI
pfXP92t68uksvV39an6q6DoYcw3QAAAAAAIL+tt/37h/8wVH8qQLD2J/11eFdDIhtP8Aqp8D8xEYJwRY
AAAJJuqx/mTrH0Gqn5bTxE9sv6UfXXRIkGzf9l+q+lFh0VgTgAAAAAAAAAA4g6xf+UbJX/7NC/TMMSDZ
b/8ARp/+X/FnI17/AE58XSis2LbK+AAADcnDr/MFgr/3Dtj9LRhoa1/p1vUl/wAWbdh/Yp+tHpRbfFJl
mgAAAAAAQ29aTxBeCw6Pw9W3N/DTyZreRVtK96wlW/Agr5ffqLp1lsMiS0fIoxOtj9WdaTuprIskeHdf
m5d4i20d91YqhHdyvg3F5/8AqQnCwSIAAAB79q2xXL1uShWjbUByp1+5JzFOpEBsu+cfkLJCC15i1PUz
PYRamewhir1oUacqk3hFLFmSlSlVmoRzt4Frzh+wzRMC4ptfHFG3H3aYx09wVVCd051TfIlS5J67dFL2
IIz71BJT9iKX1lfTva8qst3Mt5biLKs7WNtSjTjuc73WboGibQAAAAAAAAAAAGE5HsC3cpWNc+Prri+F
0G6oLkKakiLfbNW1t5sz10caWSXEHzKSRjPa3M7arGrB4Si8TFWoxrQcJZmipvlrGVxYdyJdWOLpa3Kt
bE1UfwgkmluUwrRceU0RmfePNKStO3YR6HtIxdNjeQu6MasMzXI91cRWl3bStqrpyzrn8probZrgAABJ
71ZefysHJMzD1wTeitbJ7iV0JTitG41eaRutEWvJ4W2noj7q0tEXOIftdqz51FXEV6UM/q/k8vA2SPZ6
9+XUdGWaWb1vzXQWBhWhNQAAAAAAMbu+0Lav22qxZ930ePXrbr8dUWq0uSneQ42raRkZaGlSTIlJUkyU
lREpJkZEYy0a06M1ODwkszPFSnGpFxksUyv3xOdXjkjE86o3Ni6FMyPjdSlPIZioN6s0xBnr0cmM2W8+
hJcjrRHs1NaEaanZeqNqKNylCs1Cfuvj3OB8TIVrHUVSi3KkutHnWkjmWhba1NuJNC0GaVoUWhkZbDIy
Pk0ErTxI+1gfyAAAAAAAAAAAAAAAAAAADsHBPBDnPOMyFKYt1+x7LeUlUm9bgZXGZNo9DNUSMvdelGZH
3u4RIM9inEjg6x2itbNNdbrz7MfO8y6fIdaz1NXuHlXVjvvzLO+jylhbA2BLD4ebHj2XZERSjcUUiv1+
SSTmVKXu7pvPqSREREWxCC71BbC26mdY6x1jVvqvzKj4FuJbyJxZ2dO1p9SC0vhN2DQNoAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAADS2ecD2PxEWKqwr78NjwG5zFRp9Wpi2Wp0SSwZlvsOPtPoLfbU
ptWqD1So+Q9DLf1drGrYVfm08McMMHma8uGHCat5ZwuqfUnm8mdHFXZQcPvz2yH8OpPmoSDxpediHJL4
jkeGrftS5VoHZQcPvz2yH8OpPmoPGl52IckviHhq37UuVaB2UHD789sh/DqT5qDxpediHJL4h4at+1Ll
WgdlBw+/PbIfw6k+ag8aXnYhyS+IeGrftS5VoMgtTqv+Hy1bmoFy+X7zr50CexUEUWqzKc5BkrjrJxLc
hDNOaWpszSW8kllqWzkGGvtfeVacoYQWKwxSeOXe9JmSls9b05qWMng8cG1h0Ejwix3QAAAAAAAAAAAA
AAAAAAjeufqwMEXXctw3TULyv1ifctTl1WczHm0tLKHpjy33EtkumLUSSUsyIjUZ6cpmJVR2vu6VOMFG
GEUlme5k7Rwauz1vUm5uUsW2863eI8LsoOH357ZD+HUnzUMvjS87EOSXxHjw1b9qXKtA7KDh9+e2Q/h1
J81B40vOxDkl8Q8NW/alyrQOyg4ffntkP4dSfNQeNLzsQ5JfEPDVv2pcq0DsoOH357ZD+HUnzUHjS87E
OSXxDw1b9qXKtA7KDh9+e2Q/h1J81B40vOxDkl8Q8NW/alyrQOyg4ffntkP4dSfNQeNLzsQ5JfEPDVv2
pcq0DsoOH357ZD+HUnzUHjS87EOSXxDw1b9qXKtA7KDh9+e2Q/h1J81B40vOxDkl8Q8NW/alyrQOyg4f
fntkP4dSfNQeNLzsQ5JfEPDVv2pcq0DsoOH357ZD+HUnzUHjS87EOSXxDw1b9qXKtA7KDh9+e2Q/h1J8
1B40vOxDkl8Q8NW/alyrQOyg4ffntkP4dSfNQeNLzsQ5JfEPDVv2pcq0DsoOH357ZD+HUnzUHjS87EOS
XxDw1b9qXKtA7KDh9+e2Q/h1J81B40vOxDkl8Q8NW/alyrQSF47selYzsW08f0OTLmUez6ZHpVNlTlIX
JcZjIJCFOqaQ0g1GRbTSgi9wRe6uJXFWVWWGMm28M2U7lCkqUIwWZLDkMzGAygAAAAAAcncRfB5jfiZq
9t1q+a9ctHk2vDehQG6FIhstrbfcJxRulJhyTMyMtmhkOzqrXlbV0ZKmovrYZ8dzgaObf6rp3jTm2sN7
DzpnOXZQcPvz2yH8OpPmodbxpediHJL4jQ8NW/alyrQOyg4ffntkP4dSfNQeNLzsQ5JfEPDVv2pcq0Ds
oOH357ZD+HUnzUHjS87EOSXxDw1b9qXKtBvDAHA5ivhzviTf1l3HddWq8qkv0dyLW5MF6MTEh1l1SiTG
gx175GwnQ97TTXYOdrPaG41hSVOpGKSeORPHd32983LHU9K0n14OTeGGXDQt47OHBOqAAAAAAAAAAaqz
ViG3M645rmMbrn1Km0KvuRHJkykuMtS0nDktSm+jW+y+gtVtER6oPZrpoe0blhfTsqyrQSbWOfNlWG41
vmtd2sbmm6cscHveR4nC3ZQcPvz2yH8OpPmoSPxpediHJL4jj+GrftS5VoHZQcPvz2yH8OpPmoPGl52I
ckviHhq37UuVaB2UHD789sh/DqT5qDxpediHJL4h4at+1LlWgyayurKwZYt5Wle9JvC+5NUs6swK5TY8
ubTFR3JFPkIktIeS3TG1Gg1NkSiSoj05DLlGG42tuq9OVOUYYSTTwT3Vh2jJR2foUpxmpSxTTzrc4iRg
RY7oAAAAAAEd1+dWvh3JF5XLfd1ZByFNuC6p71QqbxTqWSCW6epNtpVS1GlttOiEJ171JEXMJPbbV3Nv
SjShCHVisFkl8Rw6+oaNao5ylLF+VaDEuyg4ffntkP4dSfNQ2PGl52IckviMXhq37UuVaB2UHD789sh/
DqT5qDxpediHJL4h4at+1LlWgdlBw+/PbIfw6k+ag8aXnYhyS+IeGrftS5VoNzYK4C8L4BvprIdtVG47
kuGHEfi0s7hkQn2YapBEhx9hMaHGMnTb3m941H3qlbNuo5+sdo7m+pfKmoqOOL6uOXhxbyG3ZamoWs+v
HFvy4ZOZHbA4B1gAAAAAAAAAAAAAADkjiH4MMS8SleoVz3nMrtBrtDhLp/lK33ojDkuMa+kbRJ8Jiyd7
olGvcNO6Zb6tddmna1Xr641fGUKaTTeOEscj8mDWfd4DmX2qqN5JSnimt7DQznjsoOH357ZD+HUnzUOr
40vOxDkl8Ro+GrftS5VoHZQcPvz2yH8OpPmoPGl52IckviHhq37UuVaB2UHD789sh/DqT5qDxpediHJL
4h4at+1LlWg+qD1V2CKZNh1Kn5AyPCn099uTBmM1GlIcZeaUS23EKKlakpKiIyMuceZbY3ck4uFNp+SX
xH2OzlCLTUp4ryrQSWxmlsRo7DshyW4y2hDkt0kk46pJERrWSEpTqo9p7qSLuEQibeLJAfuPgAAAAAAA
ADReS+GfBGXnH5N/4yo1YqcgtHa6y0qFUVabS3psNTL6tDPYSlmQ6FprW6tclKo0t7OuR5DUuLGhX/XB
N7+7y5zkm4eqx4dKs8p+jVq8rW113YkSoRpDBa+5LiPO7P8AmDt0tsb2Cwkoy4U/M10HMqbO20s3WXA9
KZrSd1SNiOb3k3MVeia+88JpsWRp9XccZ1G1HbWtu048r/MwPZmluTlzGMvdUPHVp4PxAONFt16S1iX9
TkqyBnW273aPvftMT2YW5U938z8eyF/qF/ZP9cj744/g9/8AaefC/wDL7v7h2Qv9Qv7J/rkPHH8Hv/tH
hf8Al939w7IX+oX9k/1yHjj+D3/2jwv/AC+7+4dkL/UL+yf65Dxx/B7/AO0eF/5fd/cOyF/qF/ZP9ch4
4/g9/wDaPC/8vu/uPti9UTTUGnw3PUmQktd8mLbQyZ7dmhqqbug8y23luUV7X5I9x2Yju1HyfmzMKf1S
2L2jLytlW6ZpfZFEjwov1f8AERIGvLbW43KcefSjKtmaG7KXNoNrW51YnDDRCb8qxbnvBST1WdVqxskr
3NKc1D0L6+vujTq7XX0/0uMeBfFibNPZ+1isqb4XowOo7D4ccE4zcZkWRiq3aJOjkRM1bwNEmcki05Jk
npX+b7cce51pdXGSpUk1vY5OTMdGjZUKP6IJPgy8pusaBtAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYdeeQ7D
xzTk1a/byo1nU5ZmlmVWJrMRLqyIz3GidUk3FaEeiUkZ+4M9C2q15dWnFyfkWJjq1oUljOSS8rwObajx
+cItLnSKfJzFGdfiq3HXIdJrMxgz0I+8kRoLrSy28qVGQ6sNmtYTWKpPjcVzN4nPlrqzi8HPmb50j2La
43+FO63nWKXmijRVsrabWqsNTKMgzeNRJNK6nHipURbp7xkZknZvaakPFbZ+/pfqpPiwl/xbPdPW9pUz
VFx+j04HTdLq1LrlPi1ai1KLWKXOQTkKpQnkSI7yD5FNutmpKiPukY5E4Sg8JLBrfOgpJrFHoDyfQANc
3RmHElkVTyJemUrQtCtdCiR5IrdbgU+V0Tmu450Ml5te6rQ9D00PQbVGxuK0etTpykt9RbXMjBUuqNJ4
TnFPytIx32keHf19459KaR40Mv2q87mp7MtBj+vtu8h7S0j2keHf19459KaR40H2q87mp7MtA+vtu8h7
S0mW21lLGV5kZ2fkW2LrInijmdGq8Kd+GMiMm/8ALur74yMj05RgrWlaj/shKPCmukzU69OplhJPgaZn
Y1zKAB5tYrNIt6lzq3X6rDodFpjKpFSq9QfbjRY7SPfOPPOqShCS5zUZEPUISnJRim28yWVnmUlFNt4J
GqfaR4d/X3jn0ppHjQ3ftV53NT2ZaDW+vtu8h7S0j2keHf19459KaR40H2q87mp7MtA+vtu8h7S0j2ke
Hf19459KaR40H2q87mp7MtA+vtu8h7S0j2keHf19459KaR40H2q87mp7MtA+vtu8h7S0mzreuS3buo8O
4bTr9OuegVDpPAK5SZTM2G/0TimXOikMKW2vccQpCtD2KIyPaQ1KtKdKTjOLjJbjWD5GbFOpGpHrRaa3
1lR7Qxns0/M4hcBU+XKgT844/gzoLy482FIualNOsutKNC23ELkkpKkqIyMjLUjG9HVl3JJqlNp/9stB
qyvreLwdSOPrLSfP7SPDv6+8c+lNI8aH37VedzU9mWg+fX23eQ9paT0qRnfB1fntUug5lsat1N8lGxTo
FxUyS+skJNSjS01IUo91JGZ6FsIeKmrrqmutOlNLfcWvMe4XlCbwjOLfkaNosPsSmGpMV5uTHfQTjEhp
RLQtCi1JSVJ1IyMuQyGo1hkZsH6j4AAPyffZjMvSZLyI8eOhTj77iiQhCEFqpSlHoRERFqZmPqWINOe0
jw7+vvHPpTSPGhvfarzuansy0Gp9fbd5D2lpMutHKOM7/kTIliZFti9pdPbS9Pi0Grwqk4w2s91K3URX
XDQkz2EZkMFezr0EnUhKOO+muky0rilV/RJSw3mn0GcLWltKlrUSEII1LWo9CIi2mZmY1zMaZ9pHh39f
eOfSmkeNDf8AtV53NT2ZaDU+vtu8h7S0j2keHf19459KaR40H2q87mp7MtA+vtu8h7S0j2keHf19459K
aR40H2q87mp7MtA+vtu8h7S0j2keHf19459KaR40H2q87mp7MtA+vtu8h7S0mWWllTGF/S5UCxMj2ves
6C0T82HQaxCqTrLRqJJOOIivOKSk1GRamWmow17OvQSdSEop76a6TLSuKVXJCSlwNPoM8GsZjT8ziFwF
T5cqBPzjj+DOgvLjzYUi5qU06y60o0LbcQuSSkqSojIyMtSMb0dWXckmqU2n/wBstBqyvreLwdSOPrLS
exbGY8RXtVE0OzMqWfd1bW2t5FHotcgT5Rtt7VrJmO+4s0p12npoQx1rG4ox61SnKK33Fpc6PdO6o1Hh
CcW/I0zZA1TOABiN43/Y2PKb5Xvu8KNZ9MPeJuZWJrENDiklqaG+mWk1q05Ep1M+YhmoW1WvLq04uT8i
xMdWtCksZtJeV4HNVS4++EakzpFOlZijOyIqiS45DpNZmsGZkR95IiwXWllt5UqPuco60Nm9YTWKpPjc
VzNpnPnrqzi8HPkTfOlgZDbHGrwr3cpSaVmugRDS50R+WjkUQt7d3tSOqsxSNOn2RbNdmuoxVtQX9L9V
KXF6X/HEyU9bWtTNUXH6PTgdOR5EeWw1JivtyYz6SWxIaUS0LSe0lJUkzIyPukOS01kZ0D9h8AAGJ3bf
tjWDEiz77vShWVBnPHHhTa9UY1NaedJJrNttcpxtKlbpGehHroM1C2q13hTi5Nbyb6DHVrQpLGclFeV4
dJgftI8O/r7xz6U0jxobP2q87mp7MtBg+vtu8h7S0mwLTviyr9gP1Wxbvol6UuLIOJKqVCqEaox25CUJ
cNlbsVxxKVklaVGkz10Mj5yGtWt6tB9WpFxe8010melWhVWMJJryPHoMoGEyGoJ3EHgOmTZlNqWb7Ap9
Rp77kafAk3LS2nmHmlGhxp1tcklIUhRGSkmWpHsMb0dWXckmqU2n/wBr0GrK+t4vB1Ipr/uWkzK0r/sS
/wCNLmWJetBvWHT3Esz5VBqUWpNsOKLeSh1cVxwkKMtpEZ66DXr21Wg0qkHFvfTXSZaVanVWMJKS8jx6
DLRhMoAAAAAAHj1S4rfoamUVqu0+jrkEao6JspqOayToRmknFJ10126ADyvl/Ynz2oP+pRf/ADAB7lMr
FIrbC5VGqkOrRm3DackQn25DaXCIlGg1NqURHooj090AeiAAAADx6xcFDt9kpFcq8Oksq2NqlPIa3z0M
9EEoyNR6EewtoAwF/N2Lo7q2XLqbUts9FG1Fluo+sttlST+sYA+yn5hxpU1m3Gu6I2ojSkzlpdiFqrXT
vpCGy02bT12c4A2JHkR5TLciK+3Jjulq0+0oloUXdJSTMjAH7AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOXuLviCT
w44fqN5Qo7M666vKRRbLgyCUplVQfbccJ15KdDNtlttbhlqW8ZEjUt4jHX1Jqz7hcqm8kVllwfnm5zn6
zvfpKLnu5lwlYm9r7vHJFxzrtvu45t0XFUlayqpOcNxe7qZk22nYlttOp7qEESUlsSRELdt7albwUKUV
GK3F+OcrytXnWl1pvFnVWF+AbPubrVh3tRY9EtO2aqhTtEqFzS34qprSVbvSMsxY0p3cUeppUtCSURap
MyMjPjX+0tpZ1HTljKSz9VJ4crR0rTUlxcQU1gk82O7yJmrc68L+X+HaTTyyLQWkUirrUzSbopj3hdOk
PITvKaJ0kpU25pqZIdQhSiIzSRkRmW5q3XFvfp/KeVZ08j/HAa97q2taYddZHurMf5w9cROUMAXhAqlh
1CROpk6W2VcsNxa1waslZkg21Mp3t14y0JDqE76T05U6pNrTVVC+ptVFg0skt2P5b6zdIsL+razXUypv
LHcf5+UtOWfc0W87Vt67IUKZTY1xU+PPap1RYXGlx+nQSzZkMrIjQ42Z7qi7pbNSFO1qTpTlBtPB4ZMq
4ixqc+vFSW6t0yQYj2VZ+Nq/CyFxPZXqrMk5FPo9UK3qZs0SlujtphOEjupU804sj597UtguHZ62+RY0
01la6z/8svRgV3rmv826m9xZOT88TRmOsb3rlm7qbYuPqGu4rqq6X1wKYh5iOSkxmVvuqU9JcaaQSUIM
9VrLU9CLvjIj6V1d0rWm6lV4RW7w8GU0be3qV59SmsWdGz+ALi6psVyZIw9Icaa03kRavRZbp67O9Zjz
3HFfWSOVHabV0nh83mloN96kvF/hzrSckVOmVKi1CZSazT5NJqtOeVHqFMmsrYkMOoPRbbrThJUhST2G
RlqQ7cJxnFSi0091ZjmSg4PCSwZKp1fXF/fkLIVv4QyBW5d1Wndy1w7Wn1B035dLnEhTjTSX3FGtTDu7
ubhme6o07m6W8RwvafUdL5LuKSUZRzpZmuDfRJtR61qOoqNR4p5m86/InhFdEwOA+sovdNp8MFcpDctU
adf1Xp1BjJb98ttLpzpBalyJNqKpKj+63ecSTZS3+bfReGSKcvMudnG19W+XatY5ZNLzvmRW4FrkAOnM
e8G3EllW0aVfdh42VW7UrnTeSqqqrUiH0xR3lx3TJqXNZdIicbUnU0FrpqWpDkXWvrK2qOnUqYSWdYSf
l3E0dGhqm5rQU4QxT8qXSzNez04wfVD8f2/5yGv4n1d3vuy+Ey/Y7zsc8dI7PTjB9UPx/b/nIPE+ru99
2Xwj7HedjnjpLCXD/jx3FGFcZ49lMtsVG2qDFYrTTRpUgqg6np526pBmSiOQ44epHt5RWGsrn6m5qVVm
lJ4cG5zE5s6HyaMIbyXLumVZKu5iwMd31fEhSUtWjQKjWD3tpKOHGceSnTnNRpIiLnMYbWi69WFNf5NL
lZkrVFShKbzJN8hT6lSpM6VJmzHlyZcx1b8qQ4e8txxxRqWtRnymZmZmLzjFRSSzIq2UnJtvOzeWJeGP
OOc6RVK7iyx1XRSaNMKBUZnlGmwSbkG2l3oyKdKjqUe4ojM0kZbRzr3W9rZSUa0+q2sczeTiTNy21dXu
YuVOOKTwzpdLPPyfw6Ztwy03KyVjmq21T3V9EisGTUuB0h6ESDmQ3H2CUeuwjXqfMPVnrW1u3hSqJvez
PkeDPlxq+vbrGpBpb+dcqPlxJnrLGD6uxVccXjOojKZBSJ1ANxTtLmn3hLKVCWZtL30oJJq0JZF71ST0
Mfb7VlvexwqxT8v+S4H+F5D5a31a2eNOWHk3HxfhlkThU4mbe4mcfHcUOMii3dQVtw73thKzWUWStJm2
8ypW1TD5JNSDPaRkpB6mnU6p1xqmerq3UeWLyxe+tK3Sfauv43lPrLI1nW8dPjkm+c2cYF7px/w05guA
paocp6gPUimvt/4hSauaae0aNNuqVP72pcmmvMOrqS3+fe0oYYrrYvgjlfQaOsq3yracscMmHG8iKp4u
YrUnP6peyThWNlTIb7BpXcFZh0KA8tJl+CpjByHTQZ8qVLmJIzLnR7grrbW461anS3k37T/ImWzNHClO
e+8OT/qSVZkjXhOxPkan4+gFUr3qNu1GHa0M3mmN6bJjraZMnH1ttJNKlbxb6iLZtMROxdNV4Oq8IdZY
8GOXMd+56/ypdT9WDw4Suv2enGD6ofj+3/OQtLxPq7vfdl8JBPsd52OeOk5iyFj278V3dVrEvylJol10
PoSqtKTKjTOhOQyiQ2RvRHXmjM23EnoSz010PQ9g69rdU7mmqlN4xeZ4NeTdwZz69CdCbhNYSXA+g8W3
LerN3XBQ7Vt2Cqp1+5J8emUSnIUhCn5ctxLLLZKcUlCd5aiLVRkRcpmRDJVqxpQc5vCKWLfkR4p05VJK
MVi28Edb9npxg+qH4/t/zkOJ4n1d3vuy+E6f2O87HPHSSidXZwyZCwPByXXMqW38m7nud+BBpME5kKbp
AhpcdW4TkF99JdK68RGlStfwZHp3YftRrejeypxoyxjFNvI1lfCluLnJHqLV9S1jN1FhJtbqeRcHCd+Z
Fu2LYVgXte01wmotpUOoVd5ZlvbIcdbxESeczNOhFznsEatqLrVY01nk0uVnbrVFThKbzJN8hT2lSpM6
VJmzHlyZcx1b8qQ4e8txxxRqWtRnymZmZmLzjFRSSzIqyUnJtvOyV/qm7JOoZIybkB5g1M2xQY9GhvKS
e6T9WkdKo0K5N5LcIyPuEv3RCttbjq0adLfbfIsPOSbZmjjOdTeSXL/0J3BXRMTgbjY4yonDrRmLSs3w
Wq5auKOb0Jh7R1ikRFGaSmSW9e+WoyMmmz2GZGpXeluqkeoNRPWEuvPFU1n8r3l5zj621qrSPVjlm83k
8rK7153vd+RLgm3VfFxz7puGoKM5NUqLynnN01Gom0bx6NtpNR7qEESElsSRFsFpW9tTt4KFOKjFbi/G
fy5yCVq060utNtvynXGJer34ist29EuqJTaPZNEqbRSKRJuqU/EclsqIjQ43HjR5TyUrI9Um4hO8W0th
kZ8O92os7Wbg25NZ+qk8ONtLkOpbaiua0etkivL+SZorNvD3lLh9rkOh5JoKaeVVbU7RazEdTJgTUoJP
SdA8nTvmzURKSokqLYem6aTPo6u1pQv4uVJ5s6eRo0rywq2ksKiz5nuM2Jww8W2Q+HC5YJRKhKr2OJUh
BXNYb7prjqZUozcehJWe7HkESjUSk6Es9Cc3i001dcako6wg8iVTcl5nvro3DY1drSpaSWXGG6tG8+nd
LOtrXLRrztug3bbsxNQoVywI9TpE1OwnI8ptLrajLmPdUWpHtI9hio6tKVKbhJYNPB8KLChNTipRyp5T
3hjPRBf1s98Km31i3HTEgzZoFFlV6fHSfem9U3/B2t/7pKIatO4S/uhYexVvhTqVXutRXFlfSiIbTVsZ
Qp7yb5ci6GRGCcEWO++r24hTw1mKPalenGzYWUnGKTVekM+iiVLeNNPmaER6FvrNlZ7C3V76j0bIRnaj
Vf1dv8yK9OGXhjurzrg8p3NRX3yK3Ul+mWTj3NH/AELDGQruh2BYd53xUFEmHaNEn1h/Utd4ocdb26RF
tM1GnQiLlPYKwtqLr1Y01nk0uVk4rVFThKbzJN8hT4qE+ZVZ82qVGQqXUKlIdlTpS/fOvPKNbi1ac6lG
ZmLzhBQiorMshVspOTcnnZYn6sixPkrw2R7jeaWiZkSvT6uZuJ3VFGjKTT2EkXLumcZayM+Xf15NBVu1
tz829cdyCS876cCd7P0fl2qfabfm8xIgIwdsAAAAA82s1eBQaXOrNUfKPApzKnpLp9wuQiLnNR6ERc57
ABGpfV4T74uObXZpmhDh9FT4hnqTEZBn0bZf26mfOZmYAxAAdX8MNa3ZNz264svwrbNRit8/4M+ieP6+
+gAdegAAOccw5oVazrtsWsttyvbv/wDY1IyJaIe8WxCEnqSndNu3YnuGfIBxdUKjPqst6fU5j0+bIPee
lPrNxaj91SjMwBte28FX/ckNuemLGosV9O/HXU3FtKcSehkZNtocWRHrs3kkAMJu6xrlseWzEuGB4OUk
jVElNqJxl4k6b24sudOu0j0P3OQAehYeRbgsKpNSadJW/TFrI6jRnFH0LyOfQtu6vTkUW3u6lsAEjtIq
sOuUun1inudLCqcduTGWew9xxJKIjLmMtdDLmMAeiAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAI9+slxPdOTcDRKhaMF
6rVDHtaRXqhSI6DceegeDvMSFtILapTXSJcMi+wJXcEm2Vvadtd4VHgprq4+XFNdGBxdfWs69v6GVxeO
BXEFqkBO6cKdYPnbDFu0Oy2UUS9bPoPRx6fTa3GcKTHgoNH+Wjy4rrKkklKTJBupd3d7kNJJSUc1hsva
3c3Uyxk955Md9p48eGB2rTXte3ioZJRW/nw3sV58TrSH1oGML9pirdzpw8orFCU4287GjuQq/GdcQtRp
WdPqbMZCVNlpun0qtT1PvRxJbIV6Eutb1sHxxfLFs6a2io1V1a1LJxS5ngSLcPmZOHbKNKdawdLokE6S
whmZasSA3SJsRhvvWyOH0bR9EWwkqQSmy5Nddgi2srC7tpf/ANCeXdb6yfHv853rK6t68f8A6Wsm5mw4
jpAcs3TFb6uiJZFk3feU9xLUK1KLPq8lxe1JIhR1vnqRbT95yFyjLb0nWqRgs8mlys8VaipwcnmSxKeV
QnzKrPm1SoyFS6hUpDsqdKX75155RrcWrTnUozMxekIKEVFZlkKslJybk87O6ur7yhhrDeULpv3Lt3Ha
5MW+ql2wnwCdOJ56ZIbW+vSDHkKQbbbO732hHvny6bI5tPZ3N3QjToR63pYvKlmWTO1v8x2dR3NC3qSn
VlhkwWRvhzJ7xLTWOsb4SaZT5EyFkObcMllKlN0mn0KrIkOmSTMkoVNixmSMzLQt5wi1PaZFqZQqGy2s
JPBwS8rlHzNvmJNLXtmlip48T0EB3EXl1rOuY7yyfHoTduRLhfZTBpad03EsRGG4zS5C0kRLdWlolLPb
tPQjMiIWTqqxdlbRot4tbvDlyeQhesLtXVaVRLBPzb/lNrcB+PKzf/E1jl2nQ3HqbZM4rmuGcWpNxmIH
ftGtRc7j/RoSXOZ9wjGltLdRoWM03ll6K8uOfmxNrUlCVS6i0skcr/HCWfxURYJB11tN9qlXbirGkeQo
m6NS5dx1OMRd4pyoPeCxlKPuoTEd0LmJfukLC2KtsIVKzWdqK4sr6URHaav6UKa8rfQvORAickVJXcR9
ZxFxPjKxsbw8EnVWrNo8amLqp3P0HhTrSPwr/Q+SXOj6Rw1L3d9W7rpvHyiF3uyDua86rrYdZt4dXN5P
1Elttovk0o0/l49VJfq/I2L2vX9PX7WfqYavgf8An9z9xn8Ufxe9+0kH4VeIabxL49qeQJFhKsGLErb9
IgQ1VHykUpMdlh1b6XPBYmhEt40abp7Unt5ijGudWLV9ZUlPr5MXkwwxxyZ3wnd1deu8pfMcerlwz4+Z
HTQ5JvnBPWRX78jOGK4KUxKONUMg1OBbsTc2qNpSzmSi9xKmIq0KP7rTlMhI9lbb519FtZIJy8y52jj6
9r/LtZLHLLBaeZMrZC2Cvyy91dVkKszhbs6S/GRGnXtMn3JLJJFvKTIe8HjLUfOao0doy9wyIVJtRcfO
v54PJHCPJn52ywtR0fl2sd95eXNzYHY11WvQr1tut2lc1Oaq1AuKG7Aq1PeSSkOMvJNKi28hlrqky2ke
hltIcOlVlSmpweDTxR05wjOLjJYplPm6qL8m7nuO3SkFLKgVSZTilp0InfBX1s75aGZd9u68ovKhV+bT
jPfSfKirq1P5c5R3m1yEg3Vb3DUqZxGVChx5C00y5rVnt1KHqfRrXEcZfZcNOum8jdURHzEpRc5iMbY0
oys1J51JYcaeJ3dm5tXDjuOPQ0WHxWBNyKLrYL8Ok4vx5jyPJU1IvKvPVScykv8AEh0hnd3FnzEb0ttR
d00e4YmWxlt17idVr9McOOX5Jkc2kr9WjGC/yfMvzaIGRZJCi0zwS2OiwuF/EdM3VFJrNHTcU1aiIlKc
rS1T0kZF9o28hH1E7dopzX9x8++qy3n1fZ9HzFkaqo/KtYLyY8uXznVQ450D/DMiIzM9CLaZmAKh+br6
VkzL+Sb8N7p2LnuKfMp69NNIZvKTESWuh96wlCdvcF3attvpranT3orHh3ecrG+rfOrznvt8m5zHTHVy
2Qi8uKS1Jb5b8WxqdULlkN6e+NhsojH1N1+U2r6w5G1dx8qxku01Hz9COhqCl17pPspvzecssiqCfAAc
FdZFfh2Zww3DTGJKo0/IFUgW7FNBaqNtSzmSS9xKmIq0Gf3WnKZCR7K23zr6LayQTl5lztHH17X+XayW
7LBaeZMrYi2Cvyxj1Y1jotnhqYuVaVeF5Dr9RqprUREZMRFlTWkF7m9FWotftu5oKr2uuPmXzjuQily+
l5ye7P0epaqXabfm8xITMlx4ESVOluE1FhMrfkunyJbbSalK+sRCMpNvBHbbwKhuXskVfLuTL0yNW3nX
Jd1VR+Wwy6ZGceLvbsWMnTZusMpQ2n3E8/KLvsLSNpQhSj/iuV7r43lKwu7h3FWVR7r5txch0PwGYYp2
aOIOhQbghpn2pZUV257hhOpM2pBRFttxY6z5DJcl1s1JP3yErLTTUcraW/dpZtxeEpPqrjzvk6Te1JaK
4uF1s0cr83P0FnMiIiIiLQi2ERCpCwSObrQ4NFf4aWplSQ35TgXXTDt51XvykOofS6lJ6lysdIZlt5OT
ZqUo2RlJX2CzOLx4P+uBw9oVF2rbzprD8cGJXWFpkDLNXV4VOdU+EvGpznFPKgPViFFdWep9AzVJJNp1
7iCPdL3CIVHtPBR1hUw3cH7qLC1JJytIY+XpZ2yOAdYq0cbd+/vD4ncrVVmUcmn0Wp/J2l/aoao6Ew3C
R3UqfbcXrz72pbBcOz1t8ixprDK11n/5ZejArvXNf5t1N45Fk5PzxNX2Vhm7L9xxlPJNAa8IpeJU0t64
IhIM1rjVFb6VutqI9D6Amd9ZabEGatS027dxrCnQr06Ms9THDhWHTjk8prULOdWlOpHNDDn0GoxvmoS5
XlxhpyH1flTt+qVj/wD1FNSpVi3GnUjfkxjNUxucaS5EyYkNbS1GW1wl8mqRBrfUXyNbqSX/ANeDmvJu
YcUmuLAlVbWvzdXNN+nki9PGkyJFpp2Q60ww0t595aW2WW0mpa1qPRKUpLUzMzPQiIThtJYsiyTbwRb8
xJZTWOMX4+sJrb8krfp9LeWemq3o8dCHnD02arcJSj07oo68uHcV51H/AJSb5WWjb0lSpxgtxJchsMax
mAAAAAOJeIDI3lup/I2kP71JozutVeQex+WnZubOVLO0vdVr9qRgDU2O7LlX3c8Kis7zcMj6erSkl/hR
kGW+f1VaklPumQA/jI1BZtm97kosZs2YkWWa4bR/YsvJJ5tJd0iSsiIAZFhKsFR8kUBS1brNSU5T3dum
pyEGlsv+8JIAkUAGP3XWyty2q7Xd0nFUuE9IabPkU4lJ9Gk/cNWhACLuXKkTpUmbMeVIly3VvSX17VLc
WZqUo/dMzAG5sDWdHum8TmVFgpFMtxopjrKy1Q4+pW6whRc5aka9Ofd0PYAOxblyVZNnz26ZcVbKnznm
EyEMFHkPH0alKSSjNlpZFqaT2GeoA1be1/YSv2kIo1aut9php9EliRFhy0PIWgjT3qlxHC0MlGR7ABr+
FTuGKKlon69OqRt676pKKik3NdffdBHaLZr9joAOrrYgUSmUClRLcZNihEwl6mNmp1R9E/q6R6vmbm3f
10VtLkAHugAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAA/hxxDSFuurS222k1OOKMiSlJFqZmZ7CIiAHPFU4uOGSkKlpl5xt
B04TZuPeBVJqcRkSN/Rs4puk4en2KNT173TXYOnHUt7LNRnyNdJpPWVsv/ZHlRy2xibgE40ardMnH5N/
K2mtolXFV7YjT7dkpOatekk402I1FfWpaVGtfQLPeMt8++LXsO81tqiMVU/S8yk1NZNzI21wYryHOVvq
/WLk4Z1naxi8u7mwfIzUt39Ujbz34WwcxVGm7pq0g3BTWZ2+RrLdLwiK7E3N1Guv4JW8envSG9Q22qL/
AG0k+BtdOPSatXZiD/RNrhWPRgRW53wLffDtezdi3+VPdqUmntVSnVGlPrkQ5UR5bjRONLcbZcLRxpaT
JaEmRlyaGRnMtW6ypX9L5lLHDHBp50+cjd7Y1LSfUnhjhjkzGJ4vyHX8U3/auQLamPQ6pbNQZll0K9zp
2UqLpo6+UjQ83vIURloZGM17awuqMqU1ka5HuPiMdrcSt6sZx3HzbqLgwo4tA4X6xe+zsrhduyGw+TE+
+50G2oR8pml9w5MlJF91GjOpP6vd0Eh2XtvnX0G80cZcmbnaORryt8q1lvyycufmxK0gtor47mwv1fua
s5Y7ouTLXrtoUegXAuUmmxq3LqDEtSYkhyMtw0R6fIRum40rdPf26CO3+01tZ1nRmpNrDHBLDKsd1o7N
rqOvc01Ui4pPfxx6DafZRcRHzzxz/qNX80DT8Z2fZqckfiNjw1c9qHK9Bsix+qVut9+M7krLFJpkdK1H
LgWzEfnLWgjLdJEmYUQkGZamZmyrTuK11LTudtYLFUabflk8OZY9Js0dmZf+yfEl53oJW8JYBxlw/W0u
2scUQ4SJakuVmty19PUKg6gjJLkl/ROuhGe6lKUoTqe6ktTEMv8AWVe+n16rx3luLgRJLSzpWsOrTWHS
+E3ONE2irpx0X5+8DihyhNZkFIp9uTkW1Td33qE0htMZ9JHz6yUuq193ZsFv7OW3yLGmt2XpP/yzc2BX
muq/zbqW8snJn58TU2AsZs5izLjvGsqRIiU+66u3Hq0qHu+ENwmkqflqZNaVpJZMtr3TUlREe0yMi0G7
rO8dpbTrJYuKycOZc5q2NsrivGm8ib5s5NX2UXDv888jf6jSPNAgPjO87NPkl8RLPDVt2p8q0DsouHf5
55G/1GkeaA8Z3nZp8kviHhq27U+VaDubC+ILVwVjui40s12dKodEXKdam1Rxp2Y+5LkOSHFvLZaYQZkb
m6W6gu9Ii5tRHb++qXtZ1qmGLwzZsiw8p2bW2hbU1Thjgt82mNM2CELra75TIuLEuN48gtaVT51xVWOk
z2nNcTFiGouTVJRntOfvhYGxVthGpVe61FcWV9KIltNWywp8LfQvORD0umzKxUqdSKe0b8+qyWYcFguV
bz6ybbT9dSiITipNQi5PMliRaEHOSis7eBcNsi1oVj2ZadmU1KUQLTo8GjwySWhdHCYQwk9u3aSNdooy
vWdapKpLPJt8padKmqcFFZksOQ1BxP54ofD7ia4bwnTI6bkkxnYVjUZxRdJNqjiNGSS3yqQ0Zk46ZciS
5dTLXe1Tq6d9cRppZP8AJ70d38vKat/eRtaTm8+4t9lUd112Q66++6t595anHnnFGpa1qPVSlKPUzMzP
UzMXOkksEVq228WSx9VLjCpVPIV7ZbkNLaoVr0pVv0949N1+oT1NuuJSfKfQsN6q/wCYkQrbO8jGlCgs
7fWfAsnO+gk2zVu3OVXcSw43l/HCTuCuiYld3rQb8+U3EPFtKPIJyFjq34cF1hO0kTZ+s54zPum06yR9
zd7uos/Y+2+XaOo885PkWTpxIPtHX69wodlc7y9GBwRY1rS75vW0LLgGopt21qBR4qkp3jSudIQwlWnP
oa9RJbmsqFKdR/4pvkWJxKFL5tSMN9pcpcLplOiUem0+kwGuhg0uM1EhMl9g0wgm0J+slJEKNlJybbzs
tJLBYH3DyfTRnEzfn7s8BZYvNEhEWZTLdls0l5w+9KfNT4HD+r+HeRs5x0NVW31N3Tp7jkseBZXzGpfV
vk0Jz3k8OHc5ypeLrKyJseqTsXo6XlzJb6CV4XKg2zTF7u1Pg6DmTC3vuumj7C7m3mFfbbXGM6VLeTly
5F0Ml+zNHCM6m+0uTL5yZIQUlIAEIvW1X509exPjKNILdpsGZctWjFtM1S3CiQ1K7m6TD+hfdfUFgbFW
2EalZ+SK6X5iJbTV8sKa8rfQvOQ8JSpakoQk1rWZElJFqZmfIREJ23gRRLEt54VsdONcR43sMk7r1rW7
T4E0zLQ1Sm2E+ErMubedNSvrijr64+orzqdqTfOWjbUvk0ow3kkZPe8OTULMu6BCQbkydRZ8eI2nXVTr
sZxCCLTbtMyGGi0qkW99GWaxi+Apxi9yqSXvqkJlNbvLM0B11tNXlUakvwGTUROKjsSJCZCkp11Mkqda
10LZqQg220X8uk9zGXmw85KdmGutUW7gvOTkCvSXkG3WrZlp9buGy8J0WW3KVaKl168OjPe6GdKa6OFH
MyVsWhha3FEaeRxGh8osLYywcIzuJL9Xox4N18uC4mRDaS7UnGitzK/N+OAiIbbcdcQ00hTrrqiQ22gj
UpSlHoRERbTMzE4bwysi6WORFsPhdxpJxDgHGFhVCP4LV6VSCk16MZ7ym6hUHFzpbZq59x19SPrbNgpb
W92rq7qVVmbycCyLmRZer7f6ehCnupZeF5Xzm1L4uiFZFl3beVRWluBalGnVeYpWwujhMLfUXPykjQad
Ck61SMFnk0uVmzVqKnByeZLHkKeNQnzKrPm1SoyFS6hUpDsqdKX75155RrcWrTnUozMxekIKEVFZlkKs
lJybk87LBnVm44p8LhkqtWq0RuexlWtVNybGeSSm3afGT5L6BaT13kmtl7XX7bQVjtbdOV91Vk6iXL+r
HnRONn6Kja4v/JvR5iHriuwNN4esx3BZhNuLtico6tY09ZK0dpclauibNajUalsGRsrPXUzTvaFvEJzq
XWSv7ZT/AMlklw/nn5iLa0snaVnH/F5Vwb3Ec3byiSaCUZIUZGpOuwzLXQ9Pc1MdfA52J0hwg2J+8biT
xFbjjS3YbVeaq9SJKdU+DUhKqg4lZ8hJWUfcM/utC26Dka9ufp7KrLdwwX/lk8+J0dU0fm3UFvPHkylr
EU2WOAAAAAaYzRkYrIt/wKnPEm462lTdP3TLejtci5BlzacifuvqGAI+zM1GalGZmZ6mZ8pmANl2JlOt
49izY9EpNJfcqDiXJU2Y08t5RILRCN5t9st1OpmRacpmAMevK76hfFbcr1UixIs11ltlxENC0NqJotEq
MnFuHrps5eYAY9BmPU6dDqEY92RBfbkMK7i2lEtJ/wBpACVanTmanT4NSjHrHqEdqSwfLqh1BLT/AMDA
GBZgbcdxrdyWiNSihksyL7VDqFKP6xEYAjcAHYPC+9C8Au2OlSSqJyIrjqec2SSskGXdIlb39oA/TJeF
L1ve8KlX4lTo7UB9LLUBiQ9IS4htptKTJRIjrLarePYo+UAcv3bbEqz63IoM2fCqE2IlJylwFrcabWot
ejNTjbZ7xFpqRFs+rqAPNotOXWKxSqS3qTlTmMREGktTI3nEoIyL64AlVZZbjstMNJ3GmEJbaR3EpLQi
/sIAfoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAD/FJSpJpURKSotFJPaRkfKRkAK3HGRwX3rhS7bgvK0KDIrmH6vKenU+
o09o3PIqXTU6qJMabIzabZ2kh0y3DTukaiXqQtXUOv6V3TjTqSwqrJl/y8q3291ZyB621TO3m5wWMHly
f48Pk8px3j3I98YpueHeWPLkl2tckFKm2ajFNKt5tem+0604lbbratCM0OJUkzIj01Ih3rq0pXUHTqxU
o/jjXEcmhcVKE+vTeDO72etP4k2qccFyjWNJkmk0+WHKXNKTqfIrdRUEM6l/ytBG3sbZY49afBivhxO1
4kucM0eR6ThbJeTr4y9d1RvjIVeeuC4qkSULkuElDbTLepNsMMoJKGm0anolJEWpmZ6qMzORWdnStKap
0lhFfjF77ONc3NS4m5zeL/GY7J4KODi9Mw3rbd/3XR5NAxNbk2PU3qjNaNo60uOpLzUSGhwiNxpwyInH
SLcJO8SVb+wuDtBr6la0pUoNOpJNZP8AHcxfl3l5jr6n1VOtUVSawgnj63B5PKWPRVhOiFPra78352Jc
YxpCNI7M256xF11Xq6oocFZ9wvwckvd+sJ9sTbf7Kz8kV0v/AOJE9pq36KfC30LzkNAnpEy3ZgqyF43w
1jCxnv8A7u2rbp8Sonpu6yyYSqSZEe0tXlKPQUhrC4+ouKlTtSb4schaFrS+VRhDeSRtcaZsAAABj123
JT7OtW5btqrqWaZbFLmVWoOrVupSzDZW8szPm71BjJRpOrOMI520lxnipNQi5PMliU7qxVZtdq1UrdRc
6aoViW/Onvcm89IcU44r66lGYvSnTVOKisyWHIVbUm5ycnnbxMrxtky9cRXZCvnHtYRQbqpzT7MGrKiR
JptIktqad3W5jL7ZGpCjTru66Geh7Rhu7Old0/l1VjF7mLXQ0ZLe5qW8+vTeD4E+k6V7QvjB9b3xBb/m
0cnwxq7uvel8Rv8A3y87fNHQO0L4wfW98QW/5tDwxq7uvel8Q++Xnb5o6CWPq8Mu5rzbZWQr0y3eCrqh
Rq1Fo9rpOnU+ATC40c35qiODGj9J0hSWS7/Xd3e901UIVtRZW1nVhToR6uTF5W87wWdvefKSbUdzXuKc
p1ZY5cFkS4cyW+SHiMHcKu3HXfSr94o8oy25CX4FuTW7bpxJMjShNJaTHfSR8+shLqvri3tm7b5FjTW7
L0nx5ubArzXVb5t1LeWTk/PE5boFcqlsV2i3LRJCYlZt6fGqdIlqabfS1KiOpeZWbTyVtrJK0Ee6tJpP
kMjLYO1VpxqwcJZU00+BnNpzcJKUc6eK4jrOV1gXF5MjuxnswOobdLRamKLQ2HC269641T0LT9YyHEWz
Ork8fle9LSdN68vH/nzR0HMN5X1eeQ60/cd9XRVLtrkjUl1KqyXJLiUGZqJts3FGSEJM+9QnRKS2EREO
vb21K3j1KcVFeRYHOrV6laXWnJt+U6u4fOBLNObqjBnVSiSsd2B0qTqF11uOth11nXvigQ3CQ4+oy2Er
RLevKvXYOLrPaS2s4tRanPcSzcb3Ok6ljqStcPGS6sd95+JFinFuMLQw7YtCx7Y9P8AoFBZNDRrMlvyH
lnvPSZDhEW+66szUo9CLmIiSREVXXd3Uuqrq1HjJ/jBeRE5t6EKEFCCwSNgKUlKTUoySlJaqUewiIuUz
MaxmKiud71/eNmfKN7olFMi3Fc1Rk0yQn3pwunUiIRHzklhKCI/cF26st/p7WnTwwaiseHd5ysr+t86v
OefFvk3OY6M6uqylXhxT2ZKUklw7JhVG45yDSZ6kwwcVgyMuQ0yJTStT7g5W1Vx8qwku01Hz9CZvagpd
e7T7Kb83nLL4qcn4AEY/WoX0VAwTbtlMuJKXf9xsk+0Z98qFSkHJdNJc+j6o/ubfqCW7HW/zLt1NyEXy
vJ0YnA2jrdS3Ue0+jLoK+gs4gxZ34ArIcsjhZxwiQkkzbqRKuSVoWmqak8pcY+QjP/LJa2//AAFQ7SXH
zr+o1mXo+zkfPiWJqal8u0gt9Y8uXoOzBwjqAAVe+PC903zxS5PlMS0y6fbkpi3acaDI0tlS2EMSEEZc
ukonjP3TFvbN2/ybCnisHLGT43k5sCvdd1vmXct5ZOTPz4mvOFuylZC4iMP2ruk4xKuaHMntqSaiXEpq
jnyk6Fp75mOsteYbWubj5FlVn/2tccvRXOzX1ZS+bc04+XHky+YtjilyygAK/HHLwTXXYN23FljGdDkV
/G1wyXanWqdAQp6TQ5T6jckb7KCNRxTUZqStJaNke4rdIkqVZezu0FOtTjQrPCayJvNJbnH0kL1zqicJ
urSWMXla3U9HQR848yNeuKbqp164/uCTbdyUwzKPPj7qiUhWm+080slNutr075C0mk+chJ7q0pXVN06s
cYv8cRwbe4qUJqdN4M7ar3WecTVaoLlFiqtW25brZtruSl0x3w/vuVSfCpUhhKtOQyZLTm27RH6eyFlC
XWfWa3m1hzJPnOxPaK6lHBdVeVLLztrmOBHnq5dFaW9IdnXFcVfmauOuKdlzZsySvlMz33HXHFq91SjP
uiSpQpQyYRilwJJdCOI3KpLdbfG2yZXgb4CKzRK1R8y5zox0yXSnEzLJx7MQXTtyE6KanVBs9ejU2ffN
sq74lkSlkk0kk4HtFtJGpF0Ld4p/ql5l53yEs1PqVwaq1ll3F535kTMiCEpOFusXvz5E8L12QmZBR6hf
k6DbULnUpL7hyZSSL7qNGcSZ+73dBIdl7b519F7kcZcmbnaORryv8q1lvyycufmxK0otor4t1YHsX92m
GcY2ItBIk23bkCNUt1O4Sphspclq3ebeeUs9vdFIawuPqLipU7Um+Lc5i0LSj8mjCG8kjnbj04dyzrhy
XUqFB8IyFjknqxa3RkXSymCSRzoGu6Zn0raSWhJaauoQWuhnr1NnNafRXKUn6E8j8m8+LobNHXFj9VRy
fqjlXnXH04FZ4W2V6Sx9U7YnlPJeR8iPtLNi0qCxSISzT+D8Jq7/AEilErnUhqGotC5CXt5SEK20uerR
p0l/k8fZX58xJ9maONSdTeWHL/0J4BXJMQAAA8a4K9TrZo8+uVV4mYVPaNxw/slH9ihBc6lHoRF3QBGn
eF1VG87gn1+pK0dlq0YjkeqGGU7G2ke4kv7T1PlMAbYwhi2JekmbWrjirftyARsMxt9xopMlRbS321JV
utkep6GW0y5tSAHSX7isV/Nb/wDnTvGABpbOOLbVtO2afWrXpJ09aJ6Y9Q0fkPEpt1tZpUfTOLItFIIt
ndAHK4AkSwhWCq+NqBvL336YTtPfLXXd6BZ9GX/dGgAbQmw41Rhy4Exonok5lbEpk+RTbiTSpJ/VIwBH
ZkbF1dsGoPqWw5Nt5xesCtISZo3VH3qHtPeLLk28vMAMLt6461atTaq9BnLp89ojR0qdFEtCtN5C0qI0
qSehbDL/AIgDadU4gci1OD4E3Kh0o1J3HZsFg0PqI+U95xbhJP3UEQA0/wCB1KXHmVXweRIisOF4dUTS
pSEuOnsJbh7N5RnznqYA2ngmkHVsk0dZp32aQ2/UHy0/FoNCD+s4tIAkLAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
f4ZEZGRlqR7DIwBoG8eFbh0v1yc/c+HLZlTKkk0zqlEhpp8twzPU1nJgmw7v/d729ps10HSoa4vKGChV
kktzHFcjxRp1dX29XHrQTb3cMvKspq3s9OD71Q/H9wechu+J9Y977sfhNX7HZ9jnlpNm2bwocOFguQH7
Yw5bceZTCPwCozovlOU0o19JvlJnqkO75HyLNW8RbCMi2DSuNc3lfHr1ZYPOscFyLBGzR1db0sOrBYry
YvleU6DSlKUklJElKS0SkthERchEQ5pun+gDXt14jxRfdSarN8YxtO8quzHTEZqtcosGoyUR0KUtLKXp
LLiyQlS1GSSPQjMz5zG1RvrihHq06koreUmlzMwVbWlVeM4Rb8qTMda4dOHyO60+xgnHjL7K0uMvN2xS
UrQtJ6pUlRRiMjIy1IyGV60u2sHWn7UtJ4Vjbp4qnH2VoNyDQNoAAAAA8+q0ml12mz6LXKbFrNHqjC4t
TpM5lEiNJYdI0raeZdJSFoUR6GlRGRkPUJyhJSi2mszWdHmUVJNNYpmp/Zu4d/UJjn0WpHio3fut531T
2paTW+gtu7h7K0D2buHf1CY59FqR4qH3W876p7UtI+gtu7h7K0D2buHf1CY59FqR4qH3W876p7UtI+gt
u7h7K0D2buHf1CY59FqR4qH3W876p7UtI+gtu7h7K0Gx7YtG1LJpaaHZlsUm0aKl1b6aPRYTECKTrmm+
smY6G0bytC1PTUxq1q1StLrVJOT3223zmxTpwprqwSS3ksDIRiPZqGfw+4Eqk6ZU6nhGwKjUqi+5KqFQ
lW1S3n333lGtx11xcY1LWtRmalGepntMb0dZ3cUkqs0lmXWek1ZWNvJ4unFt/wDatB8vs3cO/qExz6LU
jxUffut531T2paT59Bbd3D2VoHs3cO/qExz6LUjxUPut531T2paR9Bbd3D2VoMvtrGGNbLRuWdjy2bTR
05ydyjUmHALpzSSTd0jtI7/dSRb3LoRDBWu61Z41JylwtvpM1OhTprCEUuBJGcjXMoAH8ONodQtp1CXG
3EmlxtREaVJMtDIyPYZGQA017N3Dv6hMc+i1I8VG/wDdbzvqntS0mp9Bbd3D2VoMrtLFWL7BmSahYuN7
WsqoTWfB5k6g0eFTXnmd4l9G45FZbUpO8RHoZ6alqMNe8r10lUnKSW+2+ky0ralSeMIqPAkugz0axmAA
wu78b47yF5O+X1hW5fHkjpvJPygpcSp+C+EbnTdB4U050fSdGje3dNd1OvIQ2KF3WoY/KnKOOfBtY8hh
q29Orh14qWG+k+kwv2buHf1CY59FqR4qM/3W876p7UtJi+gtu7h7K0G3afT4FJgQqVSoUemUumR2olNp
sRpLLEdhlJIaaaaQRJQhCSJKUpIiIi0IaUpOTbbxbNpJJYLMfWPJ9AA1DP4fcCVSdMqdTwjYFRqVRfcl
VCoSrapbz777yjW4664uMalrWozNSjPUz2mN6Os7uKSVWaSzLrPSasrG3k8XTi2/+1aD1Lawxh6zKszX
rPxRZtqV2MhbcetUehU+DLbQ6k0OJQ/HYQsiUkzIyI9pbB4rX9xWj1alSUlvOTa52eqdrRpvGEIp76SR
soahsAAABoC+uFbh2yS7Ok3fiG3p0+pbhz6tEjnTZzqkKSslKlwFR3zV3pEat/U096fe7B0rbXF5b4Kn
VkktzHFcjxRp19X29bHrwTb3cz5VlNW9npwfeqH4/uDzkN3xPrHvfdj8Jq/Y7Psc8tJ0HY2FcR40fdlW
Dja3bTnP69NUadT2GZSiMjTunIJPSbuhn3u9ptPZtMcu4vri4yVZykvK2zfo2tKj+iKXAjZw1DOABit2
WLZN/QY9MvqzqHelNhvlKiU+vU+NUWGnySpBOoblNuJSvdUZbxFroZlzjNQuKtB405OL302ugx1aMKqw
nFNeVY9JgrXDpw+R3Wn2ME48ZfZWlxl5u2KSlaFpPVKkqKMRkZGWpGQ2XrS7awdaftS0mFWNuniqcfZW
g3INA2gANOyOHbh+lyH5cvBePZUqU4p2TJdtilLcccWZqUtalRjNRqM9TM+Uby1pdxWCrTw9aWk1XY27
eLpxx9VaDNbSsGxbAiy4NiWXQbKhT3SfnQ6DTYtNaedSndJxxEVttKlEnZqZa6DXr3NWu8ak3JrfbfSZ
qVGFJYQioryLDoMtGEyAAAB8NQplNq8ZUKrU+NU4alEpUSW0h5o1J2kZocJRalzbAB4HyAsT5k0H/TYv
/lgDIYFOp9KitwaXBj02EzvG1DitIZaTvGalbqEESS1MzM9CAH2AD4qhTKbV4yoVVp8apw1mSlxJbSHm
jNJ6kZocIy1I+TYAMf8AkBYnzJoP+mxf/LAHuUyj0misLi0alxKTFccN1yNCYbYbU4ZEk1mltKSMzJJF
r7hAD0QB/DjbbqFtOoS424RpcbURGlRHsMjI9hkANdVLEGNaq4Tkq0obaiM1f5Q3YZanoW0oy2yPkAHy
xcKYwhuk81ajK1kRkSX5El9G37h15af+AAzCo2lbdVoTtsy6QwVBd3N6mRyOM2XRrStG70BtmnRSS5DL
+wAeXbGObMs2ZIn23RSp0ySz4O8/08h4zbNRKNJdM4si2pI9gAzYAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH/9kL
</value>
</data>
<data name="TextBox2.Text" xml:space="preserve">
<value>Wir  arbeiten  ausschließlich  auf  Grund  der  Allgemeinen Österreichischen Spediteurbedingungen  in  der  jeweils  geltenden Fassung. Zahlungen  werden  zunächst  auf  Frachten,  Spesen  und  Zinsen  zuletzt  auf Zölle angerechnet. Zahlbar und klagbar in Schärding.
Steuer-, Zoll- und Tarifauskünfte sind unverbindlich.</value>
</data>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

View File

@@ -0,0 +1,103 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptTransportauftrag
Property Printauftrag As cDispoAuftraege = Nothing
Property printTrip As cTrips = Nothing
Property Standort As String = "4819"
' Property CMR As New List(Of cCMRLadeliste)
Dim auftraglist As New List(Of cDispoAuftraege)
Dim FrachtPostHeader As String = ""
Private Sub rptTransportauftrag_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
If Not printTrip Is Nothing Then
For Each ding As DataRow In printTrip.trip_Aufträge.Rows
Dim toadd As New cDispoAuftraege
toadd.atr_id = ding.Item("atr_id")
toadd.LOAD()
FrachtPostHeader &= ", " & toadd.atr_frachtpos
auftraglist.Add(toadd)
Next
Else
FrachtPostHeader &= ", " & Printauftrag.atr_frachtpos
auftraglist.Add(Printauftrag)
End If
' Me.DataSource = auftraglist
End Sub
' Public Shared Standort As String = "4819"
Private Sub PageHeader_Format(sender As Object, e As EventArgs) Handles PageHeader.Format
txtDatum.Text = Date.Now.Day & "." & Date.Now.Month & "." & Date.Now.Year
txtSachbearbeiter.Text = "Sachbearbeiter: " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
If Standort = "4807" Or Standort = "VERAG AG" Then
txtVerag.Text = "VERAG Spedition AG"
txtVeragAnschrift.Text = "AT 4975 - Suben 100" & vbCrLf &
"Tel. +43 77 11 / 27 77 - 31" & vbCrLf &
"Fax +43 77 11 / 27 88" & vbCrLf &
"dispo@verag.ag" & vbCrLf &
vbCrLf &
"FN:  216714y" & vbCrLf &
"UID : ATU 53187000"
ElseIf Standort = "4819" Or Standort = "VERAG GmbH" Then
txtVerag.Text = "VERAG Spedition GmbH"
txtVeragAnschrift.Text = "Hartham 6" & vbCrLf &
"D 94152 Neuhaus am Inn" & vbCrLf &
"Tel. +49 8503 / 923675" & vbCrLf &
"dispo-de@verag.ag" & vbCrLf &
"UID: DE813570890" & vbCrLf &
vbCrLf &
"Abrechnungspartner: " & vbCrLf &
"VERAG Spedition AG in" & vbCrLf &
"A-4975 Suben, Nr. 100"
End If
txtFrachtposition.Text = FrachtPostHeader.Substring(1)
If auftraglist(0).atr_TransportauftragArt = "NACH" Then
txtAnFirma.Text = auftraglist(0).atr_frachtfAb_firma
txtAnFirmaStrasse.Text = auftraglist(0).atr_frachtfAb_str & " " & auftraglist(0).atr_frachtfAb_strnr
txtAnFirmaOrt.Text = auftraglist(0).atr_frachtfAb_land & " " & auftraglist(0).atr_frachtfAb_plz & " " & auftraglist(0).atr_frachtfAb_ort
txtAnAnsprechperson.Text = auftraglist(0).atr_frachtfAb_anspr
txtKennzeichen.Text = auftraglist(0).atr_frachtfAb_lkwKz
txtLKWArt.Text = auftraglist(0).atr_frachtfAb_lkwArt
ElseIf auftraglist(0).atr_TransportauftragArt = "VOR" Then
txtAnFirma.Text = auftraglist(0).atr_frachtf_firma
txtAnFirmaStrasse.Text = auftraglist(0).atr_frachtf_str & " " & auftraglist(0).atr_frachtf_strnr
txtAnFirmaOrt.Text = auftraglist(0).atr_frachtf_land & " " & auftraglist(0).atr_frachtf_plz & " " & auftraglist(0).atr_frachtf_ort
txtAnAnsprechperson.Text = auftraglist(0).atr_frachtf_anspr
txtKennzeichen.Text = auftraglist(0).atr_lkwKz
txtLKWArt.Text = auftraglist(0).atr_lkwArt
End If
End Sub
Private Sub PageFooter_Format(sender As Object, e As EventArgs) Handles PageFooter.Format
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
Dim subdet As New subrptTrip
subdet.auftraglist = auftraglist
'subdet.CMR = CMR
Me.SubDetail.Report = subdet
'For i = 1 To 2
' Dim subrpt_Ladestelle As New subrptTransportauftragLadestelle
' subrpt_Ladestelle.Printauftrag = Printauftrag
' Dim subrpt_Ladung As New subrptTransportauftragLadung
' subrpt_Ladung.CMR = CMR
' Me.subrptTransportauftragLadestelle.Report = subrpt_Ladestelle
' Me.subrptTransportauftragLadung.Report = subrpt_Ladung
' txtBemerkung.Text = Printauftrag.atr_bemerkung
' txtVerzollungsadresse.Text = Printauftrag.atr_verzollungsadresse
' txtFrachtkosten.Text = Printauftrag.atr_frachtkosten
'Next
End Sub
End Class

View File

@@ -0,0 +1,193 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptTransportauftragLadestelle
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptTransportauftragLadestelle))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtLadestelle = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEntLadestelle = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtRefNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLadeSttermin = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEntLadeStTermin = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLadeoeffzeiten = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEntLadeoeffzeiten = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLadestAnspr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEntLadestAnspr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.txtLadestelle, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEntLadestelle, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtRefNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLadeSttermin, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEntLadeStTermin, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLadeoeffzeiten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEntLadeoeffzeiten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLadestAnspr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEntLadestAnspr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.CanShrink = True
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtLadestelle, Me.txtEntLadestelle, Me.txtRefNr, Me.txtLadeSttermin, Me.txtEntLadeStTermin, Me.txtLadeoeffzeiten, Me.txtEntLadeoeffzeiten, Me.txtLadestAnspr, Me.txtEntLadestAnspr, Me.Line1})
Me.Detail.Height = 1.041667!
Me.Detail.Name = "Detail"
'
'txtLadestelle
'
Me.txtLadestelle.Height = 0.472441!
Me.txtLadestelle.Left = 0.09842519!
Me.txtLadestelle.Name = "txtLadestelle"
Me.txtLadestelle.Text = "txtLadestelle"
Me.txtLadestelle.Top = 0!
Me.txtLadestelle.Width = 2.086614!
'
'txtEntLadestelle
'
Me.txtEntLadestelle.Height = 0.472441!
Me.txtEntLadestelle.Left = 3.740158!
Me.txtEntLadestelle.Name = "txtEntLadestelle"
Me.txtEntLadestelle.Text = "txtEntLadestelle"
Me.txtEntLadestelle.Top = 0!
Me.txtEntLadestelle.Width = 2.085433!
'
'txtRefNr
'
Me.txtRefNr.CanShrink = True
Me.txtRefNr.Height = 0.2224412!
Me.txtRefNr.Left = 0.0984252!
Me.txtRefNr.Name = "txtRefNr"
Me.txtRefNr.Style = "font-family: Arial Narrow; font-size: 9.75pt; font-weight: bold"
Me.txtRefNr.Text = "txtRefNr"
Me.txtRefNr.Top = 0.7539371!
Me.txtRefNr.Width = 3.244882!
'
'txtLadeSttermin
'
Me.txtLadeSttermin.CanShrink = True
Me.txtLadeSttermin.DataField = ""
Me.txtLadeSttermin.DistinctField = ""
Me.txtLadeSttermin.Height = 0.1110236!
Me.txtLadeSttermin.Left = 0.6102363!
Me.txtLadeSttermin.Name = "txtLadeSttermin"
Me.txtLadeSttermin.Style = "background-color: WhiteSmoke; color: Black; font-family: Arial; font-size: 9.75pt" &
"; font-weight: bold; text-align: center; vertical-align: middle"
Me.txtLadeSttermin.SummaryGroup = ""
Me.txtLadeSttermin.Text = "txtLadeSttermin"
Me.txtLadeSttermin.Top = 0.472441!
Me.txtLadeSttermin.Width = 1.574803!
'
'txtEntLadeStTermin
'
Me.txtEntLadeStTermin.Height = 0.1110236!
Me.txtEntLadeStTermin.Left = 4.250788!
Me.txtEntLadeStTermin.Name = "txtEntLadeStTermin"
Me.txtEntLadeStTermin.Style = "background-color: WhiteSmoke; color: Black; font-family: Arial; font-size: 9.75pt" &
"; font-weight: bold; text-align: center; vertical-align: middle"
Me.txtEntLadeStTermin.Text = "txtEntLadeStTermin"
Me.txtEntLadeStTermin.Top = 0.472441!
Me.txtEntLadeStTermin.Width = 1.574803!
'
'txtLadeoeffzeiten
'
Me.txtLadeoeffzeiten.Height = 0.472441!
Me.txtLadeoeffzeiten.Left = 1.673228!
Me.txtLadeoeffzeiten.Name = "txtLadeoeffzeiten"
Me.txtLadeoeffzeiten.Style = "font-size: 8.25pt; text-align: right"
Me.txtLadeoeffzeiten.Text = "txtLadeoeffzeiten"
Me.txtLadeoeffzeiten.Top = 0!
Me.txtLadeoeffzeiten.Width = 1.811024!
'
'txtEntLadeoeffzeiten
'
Me.txtEntLadeoeffzeiten.Height = 0.472441!
Me.txtEntLadeoeffzeiten.Left = 5.472441!
Me.txtEntLadeoeffzeiten.Name = "txtEntLadeoeffzeiten"
Me.txtEntLadeoeffzeiten.Style = "font-size: 8.25pt; text-align: right"
Me.txtEntLadeoeffzeiten.Text = "txtEntLadeoeffzeiten"
Me.txtEntLadeoeffzeiten.Top = 0!
Me.txtEntLadeoeffzeiten.Width = 1.811024!
'
'txtLadestAnspr
'
Me.txtLadestAnspr.CanShrink = True
Me.txtLadestAnspr.Height = 0.1704724!
Me.txtLadestAnspr.Left = 0.0984252!
Me.txtLadestAnspr.Name = "txtLadestAnspr"
Me.txtLadestAnspr.Text = "txtLadestAnspr"
Me.txtLadestAnspr.Top = 0.5834646!
Me.txtLadestAnspr.Width = 3.244881!
'
'txtEntLadestAnspr
'
Me.txtEntLadestAnspr.CanShrink = True
Me.txtEntLadestAnspr.Height = 0.1704724!
Me.txtEntLadestAnspr.Left = 3.740158!
Me.txtEntLadestAnspr.Name = "txtEntLadestAnspr"
Me.txtEntLadestAnspr.Text = "txtEntLadestAnspr"
Me.txtEntLadestAnspr.Top = 0.5834646!
Me.txtEntLadestAnspr.Width = 3.228346!
'
'Line1
'
Me.Line1.Height = 0.472441!
Me.Line1.Left = 3.641732!
Me.Line1.LineColor = System.Drawing.Color.Gray
Me.Line1.LineStyle = GrapeCity.ActiveReports.SectionReportModel.LineStyle.Dash
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 7.450581E-9!
Me.Line1.Width = 0!
Me.Line1.X1 = 3.641732!
Me.Line1.X2 = 3.641732!
Me.Line1.Y1 = 7.450581E-9!
Me.Line1.Y2 = 0.472441!
'
'subrptTransportauftragLadestelle
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.283465!
Me.ScriptLanguage = "VB.NET"
Me.Sections.Add(Me.Detail)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.txtLadestelle, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEntLadestelle, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtRefNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLadeSttermin, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEntLadeStTermin, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLadeoeffzeiten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEntLadeoeffzeiten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLadestAnspr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEntLadestAnspr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtLadestelle As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtEntLadestelle As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtRefNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLadeSt_termin As TextBox
Private WithEvents txtEntLadeSt_termin As TextBox
Private WithEvents txtLadeSttermin As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtEntLadeStTermin As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLadeoeffzeiten As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtEntLadeoeffzeiten As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLadestAnspr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtEntLadestAnspr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

View File

@@ -0,0 +1,85 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptTransportauftragLadestelle
'Property auftraglist As New List(Of cDispoAuftraege)
Property Printauftrag As cDispoAuftraege = Nothing
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
''//LADESTELLE
txtLadestelle.Text = Printauftrag.atr_ladest_firma & vbCrLf &
Printauftrag.atr_ladest_str & " " & Printauftrag.atr_ladest_strnr & vbCrLf &
Printauftrag.atr_ladest_land & " " & Printauftrag.atr_ladest_plz & " " & Printauftrag.atr_ladest_ort
If Printauftrag.atr_ladest_termin = "1" Then
txtLadeSttermin.Text = "Termin " & Printauftrag.atr_ladest_terminDat & vbCrLf & "von " & Printauftrag.atr_ladest_terminVon & " bis " & Printauftrag.atr_ladest_terminBis
Else
txtLadeSttermin.Text = "" : txtLadeSttermin.BackColor = Color.Transparent
End If
txtLadestAnspr.Text = ""
txtLadestAnspr.Text = Printauftrag.atr_ladest_anspr
Try
If Printauftrag.avisolade(1).ToString <> "" Then txtLadestAnspr.Text &= vbCrLf & Printauftrag.avisolade(1).ToString
If Printauftrag.avisolade(2).ToString <> "" Then txtLadestAnspr.Text &= vbCrLf & Printauftrag.avisolade(2).ToString
Catch
End Try
txtLadeoeffzeiten.Text = Printauftrag.oezlade
''//ENTLADESTELLE
txtEntLadestelle.Text = Printauftrag.atr_entladest_firma & vbCrLf &
Printauftrag.atr_entladest_str & " " & Printauftrag.atr_entladest_strnr & vbCrLf &
Printauftrag.atr_entladest_land & " " & Printauftrag.atr_entladest_plz & " " & Printauftrag.atr_entladest_ort
If Printauftrag.atr_entladest_termin = "1" Then
txtEntLadeStTermin.Text = "Termin " & Printauftrag.atr_entladest_terminDat & vbCrLf & "von " & Printauftrag.atr_entladest_terminVon & " bis " & Printauftrag.atr_entladest_terminBis
Else
txtEntLadeStTermin.Text = "" : txtEntLadeStTermin.BackColor = Color.Transparent
End If
txtEntLadestAnspr.Text = ""
Try
If Printauftrag.avisoentlade(0).ToString <> "" And Printauftrag.avisoentlade(0) = "0" Then txtEntLadestAnspr.Text = "Avisieren:" & vbCrLf
If Printauftrag.avisoentlade(0).ToString <> "" And Printauftrag.avisoentlade(0) = "1" Then txtEntLadestAnspr.Text = "Ankunftsaviso:" & vbCrLf
Catch ex As Exception
End Try
txtEntLadestAnspr.Text &= frmAuftragNEU.printAuftrag.atr_entladest_anspr
Try
If Printauftrag.avisoentlade(1).ToString <> "" Then txtEntLadestAnspr.Text &= vbCrLf & Printauftrag.avisoentlade(1).ToString 'TELNummer
If Printauftrag.avisoentlade(2).ToString <> "" Then txtEntLadestAnspr.Text &= vbCrLf & Printauftrag.avisoentlade(2).ToString 'EMailAdresse
Catch
End Try
txtEntLadeoeffzeiten.Text = Printauftrag.oezentlade
''//REFNr.
If Printauftrag.atr_ladest_refNr = "" Then
txtRefNr.Text = ""
Else
txtRefNr.Text = "RefNr.: " & Printauftrag.atr_ladest_refNr
End If
End Sub
Private Sub Detail_BeforePrint(sender As Object, e As EventArgs) Handles Detail.BeforePrint
If txtLadestelle.Size.Height + txtLadeSttermin.Size.Height + txtLadestAnspr.Size.Height > txtEntLadestelle.Size.Height + txtEntLadeStTermin.Size.Height + txtEntLadestAnspr.Size.Height Then
Line1.Y2 = txtLadestelle.Size.Height + txtLadeSttermin.Size.Height + txtLadestAnspr.Size.Height
Else
Line1.Y2 = txtEntLadestelle.Size.Height + txtEntLadeStTermin.Size.Height + txtEntLadestAnspr.Size.Height
End If
'Line1.Y2 = "20"
End Sub
End Class

View File

@@ -0,0 +1,138 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptTransportauftragLadung
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptTransportauftragLadung))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtZeichen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtArt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBezeichnung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtStatNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBruttoKG = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUmfang = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtZeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtArt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBezeichnung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtStatNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoKG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUmfang, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtZeichen, Me.txtAnzahl, Me.txtArt, Me.txtBezeichnung, Me.txtStatNr, Me.txtBruttoKG, Me.txtUmfang})
Me.Detail.Height = 0.2499999!
Me.Detail.Name = "Detail"
'
'txtZeichen
'
Me.txtZeichen.Height = 0.2!
Me.txtZeichen.Left = 0.001181103!
Me.txtZeichen.Name = "txtZeichen"
Me.txtZeichen.Style = "font-size: 8.25pt; font-weight: normal; text-align: center"
Me.txtZeichen.Text = "Zeichen/Nr."
Me.txtZeichen.Top = 0!
Me.txtZeichen.Width = 0.6889764!
'
'txtAnzahl
'
Me.txtAnzahl.Height = 0.2!
Me.txtAnzahl.Left = 0.6901575!
Me.txtAnzahl.Name = "txtAnzahl"
Me.txtAnzahl.Style = "font-size: 8.25pt; font-weight: normal; text-align: center"
Me.txtAnzahl.Text = "Anzahl"
Me.txtAnzahl.Top = 0!
Me.txtAnzahl.Width = 0.6692914!
'
'txtArt
'
Me.txtArt.Height = 0.2!
Me.txtArt.Left = 1.359449!
Me.txtArt.Name = "txtArt"
Me.txtArt.Style = "font-size: 8.25pt; font-weight: normal"
Me.txtArt.Text = "Art"
Me.txtArt.Top = 0!
Me.txtArt.Width = 1.0!
'
'txtBezeichnung
'
Me.txtBezeichnung.Height = 0.2!
Me.txtBezeichnung.Left = 2.359449!
Me.txtBezeichnung.Name = "txtBezeichnung"
Me.txtBezeichnung.Style = "font-size: 8.25pt; font-weight: normal"
Me.txtBezeichnung.Text = "Bezeichnung"
Me.txtBezeichnung.Top = 0!
Me.txtBezeichnung.Width = 2.438976!
'
'txtStatNr
'
Me.txtStatNr.Height = 0.2!
Me.txtStatNr.Left = 4.798426!
Me.txtStatNr.Name = "txtStatNr"
Me.txtStatNr.Style = "font-size: 8.25pt; font-weight: normal"
Me.txtStatNr.Text = "Stat.Nr."
Me.txtStatNr.Top = 0!
Me.txtStatNr.Width = 0.8645674!
'
'txtBruttoKG
'
Me.txtBruttoKG.Height = 0.2!
Me.txtBruttoKG.Left = 5.652757!
Me.txtBruttoKG.Name = "txtBruttoKG"
Me.txtBruttoKG.Style = "font-size: 8.25pt; font-weight: normal"
Me.txtBruttoKG.Text = "Brutto Kg"
Me.txtBruttoKG.Top = 0!
Me.txtBruttoKG.Width = 0.8645674!
'
'txtUmfang
'
Me.txtUmfang.Height = 0.2!
Me.txtUmfang.Left = 6.517323!
Me.txtUmfang.Name = "txtUmfang"
Me.txtUmfang.Style = "font-size: 8.25pt; font-weight: normal"
Me.txtUmfang.Text = "Umfang"
Me.txtUmfang.Top = 0!
Me.txtUmfang.Width = 0.7661417!
'
'subrptTransportauftragLadung
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.283465!
Me.Sections.Add(Me.Detail)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.txtZeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtArt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBezeichnung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtStatNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoKG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUmfang, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtZeichen As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnzahl As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtArt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtBezeichnung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtStatNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtBruttoKG As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtUmfang As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

View File

@@ -0,0 +1,36 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptTransportauftragLadung
Property PrintAuftrag As cDispoAuftraege = Nothing
Private Sub subrptTransportauftragLadung_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
Me.DataSource = PrintAuftrag.LADUNGEN
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
Try
txtZeichen.Text = Fields.Item("lad_ZeNr").Value
txtAnzahl.Text = Fields.Item("lad_Anzahl").Value
txtArt.Text = Fields.Item("lad_Art").Value
txtBezeichnung.Text = Fields.Item("lad_Bezeichnung").Value
txtStatNr.Text = Fields.Item("lad_StatNr").Value
txtBruttoKG.Text = Fields.Item("lad_BruttoKg").Value
txtUmfang.Text = Fields.Item("lad_Umfang").Value
'txtZeichen.Text = Fields.Item("ZeNr").Value
'txtAnzahl.Text = Fields.Item("AnzPack").Value
'txtArt.Text = Fields.Item("Art").Value
'txtBezeichnung.Text = Fields.Item("Bez").Value
'txtStatNr.Text = Fields.Item("Stat").Value
'txtBruttoKG.Text = Fields.Item("BruttoKg").Value
'txtUmfang.Text = Fields.Item("Umfang").Value
'txtAnzahl.Text = Fields.Item("Anzahl").Value
Catch ex As Exception
'MsgBox(ex.Message)
MsgBox("Keine Ladung vorhanden:" & PrintAuftrag.atr_frachtpos)
End Try
End Sub
End Class

View File

@@ -0,0 +1,363 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subrptTrip
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptTrip))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtFrachtPosNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.subrptTransportauftragLadung = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.subrptTransportauftragLadestelle = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.txtBemTitel = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBemerkung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVerzollTitel = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVerzollungsadresse = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtkoTitel = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtkosten = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox14 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.txtEnd = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtFrachtPosNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBemTitel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBemerkung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVerzollTitel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVerzollungsadresse, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtkoTitel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtkosten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEnd, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.BackColor = System.Drawing.Color.White
Me.Detail.CanShrink = True
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFrachtPosNr, Me.Shape1, Me.subrptTransportauftragLadung, Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox8, Me.TextBox9, Me.TextBox10, Me.TextBox11, Me.subrptTransportauftragLadestelle, Me.txtBemTitel, Me.txtBemerkung, Me.txtVerzollTitel, Me.txtVerzollungsadresse, Me.txtFrachtkoTitel, Me.txtFrachtkosten, Me.TextBox14, Me.Line3, Me.TextBox1, Me.Line1, Me.txtEnd})
Me.Detail.Height = 2.644619!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'txtFrachtPosNr
'
Me.txtFrachtPosNr.DistinctField = ""
Me.txtFrachtPosNr.Height = 0.2519685!
Me.txtFrachtPosNr.Left = 0!
Me.txtFrachtPosNr.Name = "txtFrachtPosNr"
Me.txtFrachtPosNr.Style = "background-color: WhiteSmoke; color: Black; font-size: 12pt; font-weight: bold; t" &
"ext-align: center; vertical-align: middle"
Me.txtFrachtPosNr.SummaryGroup = ""
Me.txtFrachtPosNr.Text = "Frachtposition:"
Me.txtFrachtPosNr.Top = 0!
Me.txtFrachtPosNr.Width = 7.480316!
'
'Shape1
'
Me.Shape1.Height = 2.407874!
Me.Shape1.Left = 0!
Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape1.Top = 0!
Me.Shape1.Width = 7.480316!
'
'subrptTransportauftragLadung
'
Me.subrptTransportauftragLadung.CanShrink = False
Me.subrptTransportauftragLadung.CloseBorder = False
Me.subrptTransportauftragLadung.Height = 0.4212599!
Me.subrptTransportauftragLadung.Left = 0.09842544!
Me.subrptTransportauftragLadung.Name = "subrptTransportauftragLadung"
Me.subrptTransportauftragLadung.Report = Nothing
Me.subrptTransportauftragLadung.ReportName = "subrptTransportauftragLadung"
Me.subrptTransportauftragLadung.Top = 1.399213!
Me.subrptTransportauftragLadung.Width = 7.283465!
'
'TextBox5
'
Me.TextBox5.Height = 0.2!
Me.TextBox5.Left = 0.09842544!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
Me.TextBox5.Text = "Zeichen/Nr."
Me.TextBox5.Top = 1.199213!
Me.TextBox5.Width = 0.6889764!
'
'TextBox6
'
Me.TextBox6.Height = 0.2!
Me.TextBox6.Left = 0.7885829!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
Me.TextBox6.Text = "Anzahl"
Me.TextBox6.Top = 1.199213!
Me.TextBox6.Width = 0.6692914!
'
'TextBox7
'
Me.TextBox7.Height = 0.2!
Me.TextBox7.Left = 1.457874!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
Me.TextBox7.Text = "Art"
Me.TextBox7.Top = 1.199213!
Me.TextBox7.Width = 1.0!
'
'TextBox8
'
Me.TextBox8.Height = 0.2!
Me.TextBox8.Left = 2.457874!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
Me.TextBox8.Text = "Bezeichnung"
Me.TextBox8.Top = 1.199213!
Me.TextBox8.Width = 2.438976!
'
'TextBox9
'
Me.TextBox9.Height = 0.2!
Me.TextBox9.Left = 4.896852!
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
Me.TextBox9.Text = "Stat.Nr."
Me.TextBox9.Top = 1.199213!
Me.TextBox9.Width = 0.8645674!
'
'TextBox10
'
Me.TextBox10.Height = 0.2!
Me.TextBox10.Left = 5.751184!
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
Me.TextBox10.Text = "Brutto Kg"
Me.TextBox10.Top = 1.199213!
Me.TextBox10.Width = 0.8645674!
'
'TextBox11
'
Me.TextBox11.Height = 0.2!
Me.TextBox11.Left = 6.615747!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
Me.TextBox11.Text = "Umfang"
Me.TextBox11.Top = 1.199213!
Me.TextBox11.Width = 0.7661417!
'
'subrptTransportauftragLadestelle
'
Me.subrptTransportauftragLadestelle.CloseBorder = False
Me.subrptTransportauftragLadestelle.Height = 0.4606299!
Me.subrptTransportauftragLadestelle.Left = 0.09842544!
Me.subrptTransportauftragLadestelle.Name = "subrptTransportauftragLadestelle"
Me.subrptTransportauftragLadestelle.Report = Nothing
Me.subrptTransportauftragLadestelle.ReportName = "subrptTransportauftragLadestelle"
Me.subrptTransportauftragLadestelle.Top = 0.4677163!
Me.subrptTransportauftragLadestelle.Width = 7.283465!
'
'txtBemTitel
'
Me.txtBemTitel.CanShrink = True
Me.txtBemTitel.Height = 0.1181102!
Me.txtBemTitel.Left = 0.0984252!
Me.txtBemTitel.Name = "txtBemTitel"
Me.txtBemTitel.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
Me.txtBemTitel.Text = "Bemerkung:"
Me.txtBemTitel.Top = 1.946851!
Me.txtBemTitel.Width = 1.312205!
'
'txtBemerkung
'
Me.txtBemerkung.CanShrink = True
Me.txtBemerkung.Height = 0.1181101!
Me.txtBemerkung.Left = 1.41063!
Me.txtBemerkung.Name = "txtBemerkung"
Me.txtBemerkung.Text = "txtBemerkung"
Me.txtBemerkung.Top = 1.946851!
Me.txtBemerkung.Width = 5.97126!
'
'txtVerzollTitel
'
Me.txtVerzollTitel.CanShrink = True
Me.txtVerzollTitel.Height = 0.1181101!
Me.txtVerzollTitel.Left = 0.0984252!
Me.txtVerzollTitel.Name = "txtVerzollTitel"
Me.txtVerzollTitel.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
Me.txtVerzollTitel.Text = "Verzollungsadresse:"
Me.txtVerzollTitel.Top = 2.064961!
Me.txtVerzollTitel.Width = 1.312205!
'
'txtVerzollungsadresse
'
Me.txtVerzollungsadresse.CanShrink = True
Me.txtVerzollungsadresse.Height = 0.1181102!
Me.txtVerzollungsadresse.Left = 1.41063!
Me.txtVerzollungsadresse.Name = "txtVerzollungsadresse"
Me.txtVerzollungsadresse.Text = "txtVerzollungsadresse"
Me.txtVerzollungsadresse.Top = 2.064961!
Me.txtVerzollungsadresse.Width = 5.97126!
'
'txtFrachtkoTitel
'
Me.txtFrachtkoTitel.CanShrink = True
Me.txtFrachtkoTitel.Height = 0.1181102!
Me.txtFrachtkoTitel.Left = 0.0984252!
Me.txtFrachtkoTitel.Name = "txtFrachtkoTitel"
Me.txtFrachtkoTitel.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
Me.txtFrachtkoTitel.Text = "Frachtkosten:"
Me.txtFrachtkoTitel.Top = 2.183071!
Me.txtFrachtkoTitel.Width = 1.312205!
'
'txtFrachtkosten
'
Me.txtFrachtkosten.CanShrink = True
Me.txtFrachtkosten.Height = 0.1181099!
Me.txtFrachtkosten.Left = 1.41063!
Me.txtFrachtkosten.Name = "txtFrachtkosten"
Me.txtFrachtkosten.Text = "txtFrachtkosten"
Me.txtFrachtkosten.Top = 2.183071!
Me.txtFrachtkosten.Width = 5.97126!
'
'TextBox14
'
Me.TextBox14.DistinctField = ""
Me.TextBox14.Height = 0.2!
Me.TextBox14.Left = 0.09842543!
Me.TextBox14.Name = "TextBox14"
Me.TextBox14.Style = "color: Black; font-family: Arial Narrow; font-size: 12pt; font-weight: bold; text" &
"-align: left; text-decoration: none; vertical-align: middle"
Me.TextBox14.SummaryGroup = ""
Me.TextBox14.Text = "Ladestelle:"
Me.TextBox14.Top = 0.2677163!
Me.TextBox14.Width = 3.641732!
'
'Line3
'
Me.Line3.Height = 0!
Me.Line3.Left = 0.8645672!
Me.Line3.LineColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 1.882284!
Me.Line3.Width = 5.751181!
Me.Line3.X1 = 0.8645672!
Me.Line3.X2 = 6.615748!
Me.Line3.Y1 = 1.882284!
Me.Line3.Y2 = 1.882284!
'
'TextBox1
'
Me.TextBox1.DistinctField = ""
Me.TextBox1.Height = 0.2!
Me.TextBox1.Left = 3.740158!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "color: Black; font-family: Arial Narrow; font-size: 12pt; font-weight: bold; text" &
"-align: left; text-decoration: none; vertical-align: middle"
Me.TextBox1.SummaryGroup = ""
Me.TextBox1.Text = "Entladestelle:"
Me.TextBox1.Top = 0.2677163!
Me.TextBox1.Width = 3.641732!
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0.8645672!
Me.Line1.LineColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 1.06378!
Me.Line1.Width = 5.751181!
Me.Line1.X1 = 0.8645672!
Me.Line1.X2 = 6.615748!
Me.Line1.Y1 = 1.06378!
Me.Line1.Y2 = 1.06378!
'
'txtEnd
'
Me.txtEnd.Height = 0.1066929!
Me.txtEnd.Left = 0.0984252!
Me.txtEnd.Name = "txtEnd"
Me.txtEnd.Style = "text-align: center; vertical-align: middle"
Me.txtEnd.Text = Nothing
Me.txtEnd.Top = 2.301181!
Me.txtEnd.Width = 7.283465!
'
'subrptTrip
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.480319!
Me.Sections.Add(Me.Detail)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.txtFrachtPosNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBemTitel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBemerkung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVerzollTitel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVerzollungsadresse, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtkoTitel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtkosten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEnd, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents subrptTransportauftragLadung As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox10 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents subrptTransportauftragLadestelle As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents txtBemTitel As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtBemerkung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtVerzollTitel As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtVerzollungsadresse As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtkoTitel As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtkosten As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox14 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents txtFrachtPosNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents txtEnd As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

View File

@@ -0,0 +1,95 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptTrip
Dim i As Integer = 0
Property auftraglist As New List(Of cDispoAuftraege)
Private Sub subrptTrip_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
DataSource = auftraglist
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
Line3.Visible = True
Shape1.Height = 0
Dim subrpt_Ladestelle As New subrptTransportauftragLadestelle
subrpt_Ladestelle.Printauftrag = auftraglist(i)
Dim subrpt_Ladung As New subrptTransportauftragLadung
'subrpt_Ladung.DataSource = auftraglist(i).LADUNGEN
subrpt_Ladung.PrintAuftrag = auftraglist(i)
Me.subrptTransportauftragLadestelle.Report = subrpt_Ladestelle
Me.subrptTransportauftragLadung.Report = subrpt_Ladung
txtFrachtPosNr.Text = "Frachtposition: " & auftraglist(i).atr_frachtpos
txtBemerkung.Text = auftraglist(i).atr_bemerkung
'If auftraglist(i).atr_bemerkung = "" Then txtBemTitel.Visible = False
txtVerzollungsadresse.Text = auftraglist(i).atr_verzollungsadresse
'If auftraglist(i).atr_verzollungsadresse = "" Then txtVerzollTitel.Visible = False
txtFrachtkosten.Text = auftraglist(i).atr_frachtkosten
'If auftraglist(i).atr_frachtkosten = "" Then txtFrachtkoTitel.Visible = False
If Not txtBemerkung.Text = "" Then
txtBemTitel.Visible = True
Else
txtBemTitel.Visible = False
End If
If Not txtVerzollungsadresse.Text = "" Then
txtVerzollTitel.Visible = True
Else
txtVerzollTitel.Visible = False
End If
If Not txtFrachtkosten.Text = "" Then
txtFrachtkoTitel.Visible = True
Else
txtFrachtkoTitel.Visible = False
End If
'If txtVerzollTitel.Visible = False And txtBemTitel.Visible = False Then
' Line3.Visible = False
'Else
' Line3.Visible = True
'End If
i = i + 1
End Sub
Private Sub Detail_BeforePrint(sender As Object, e As EventArgs) Handles Detail.BeforePrint
Dim dh As Integer = Detail.Height
'Shape1.Height = Detail.Height - 0.2
If Not txtBemerkung.Text = "" Or Not txtVerzollungsadresse.Text = "" Or Not txtFrachtkosten.Text = "" Then
Shape1.Height = Detail.Height - 0.1
Line3.Visible = True
Else
Shape1.Height = subrptTransportauftragLadung.Location.Y + subrptTransportauftragLadung.Height - 0.15
Line3.Visible = False
End If
'If Line3.Visible = False Then
' Shape1.Height = subrptTransportauftragLadung.Location.Y + subrptTransportauftragLadung.Height - 0.15
'Else
' 'Shape1.Height = txtEnd.Location.Y 'dh' - 0.1
' Shape1.Height = Detail.Height - 0.2
End Sub
Private Sub Detail_AfterPrint(sender As Object, e As EventArgs) Handles Detail.AfterPrint
End Sub
Private Sub Detail_Disposed(sender As Object, e As EventArgs) Handles Detail.Disposed
' Detail.Height = dh + 0.3
End Sub
End Class

View File

@@ -0,0 +1,86 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmPrintActiveReports
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPrintActiveReports))
Me.Viewer1 = New GrapeCity.ActiveReports.Viewer.Win.Viewer()
Me.SuspendLayout()
'
'Viewer1
'
Me.Viewer1.CurrentPage = 0
Me.Viewer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Viewer1.Location = New System.Drawing.Point(0, 0)
Me.Viewer1.Name = "Viewer1"
Me.Viewer1.PreviewPages = 0
'
'
'
'
'
'
Me.Viewer1.Sidebar.ParametersPanel.ContextMenu = Nothing
Me.Viewer1.Sidebar.ParametersPanel.Text = "Parameters"
Me.Viewer1.Sidebar.ParametersPanel.Width = 200
'
'
'
Me.Viewer1.Sidebar.SearchPanel.ContextMenu = Nothing
Me.Viewer1.Sidebar.SearchPanel.Text = "Search results"
Me.Viewer1.Sidebar.SearchPanel.Width = 200
'
'
'
Me.Viewer1.Sidebar.ThumbnailsPanel.ContextMenu = Nothing
Me.Viewer1.Sidebar.ThumbnailsPanel.Text = "Page thumbnails"
Me.Viewer1.Sidebar.ThumbnailsPanel.Width = 200
Me.Viewer1.Sidebar.ThumbnailsPanel.Zoom = 0.1R
'
'
'
Me.Viewer1.Sidebar.TocPanel.ContextMenu = Nothing
Me.Viewer1.Sidebar.TocPanel.Expanded = True
Me.Viewer1.Sidebar.TocPanel.Text = "Document map"
Me.Viewer1.Sidebar.TocPanel.Width = 200
Me.Viewer1.Sidebar.Width = 200
Me.Viewer1.Size = New System.Drawing.Size(992, 906)
Me.Viewer1.TabIndex = 0
Me.Viewer1.Zoom = -2.0!
'
'frmPrintActiveReports
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(992, 906)
Me.Controls.Add(Me.Viewer1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmPrintActiveReports"
Me.Text = "Druckvorschau"
Me.TopMost = True
Me.ResumeLayout(False)
End Sub
Friend WithEvents Viewer1 As GrapeCity.ActiveReports.Viewer.Win.Viewer
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,82 @@
Imports System.IO
Public Class frmPrintActiveReports
Property von As String = ""
Property bis As String = ""
Property filname As String = ""
Property whatshallwedo As String = ""
Property printauftrag As cDispoAuftraege = Nothing
Property istrip As Boolean = False
Property printTrip As cTrips = Nothing
Property Standort As String = ""
Property Reporter As String = ""
Property CMR As New List(Of cCMRLadeliste)
'Public Shared Reporter As String
'Public Shared Standort As String
Private Sub Viewer1_Load(sender As Object, e As EventArgs) Handles Viewer1.Load
Print(Reporter, Standort)
End Sub
Private Sub Print(Reporter As String, Optional Standort As String = "")
Dim tsbPDF As New ToolStripButton("PDF")
tsbPDF.Image = My.Resources.pdf512
Viewer1.Toolbar.MainBar.Items.Insert(5, tsbPDF)
AddHandler tsbPDF.Click, AddressOf tsbPDF_Click
If Reporter = "Transportauftrag" Then
Dim report As New rptTransportauftrag
report.Standort = Standort
report.printTrip = printTrip
report.Printauftrag = printauftrag
' report.CMR = CMR
Viewer1.LoadDocument(report)
ElseIf Reporter = "Auswertung" And frmAuswertung.subrep = "subrptAuswertung" Then
Dim report As rptAuswertung
report = New rptAuswertung
report.whatshallwedo = whatshallwedo
report.von = von
report.bis = bis
report.filname = filname
Viewer1.LoadDocument(report)
ElseIf Reporter = "Auswertung" And frmAuswertung.subrep = "subrptEinzelauswertung" Then
Dim report As New rptAuswertungLandscape
report.von = von
report.bis = bis
report.filname = filname
'report = New rptAuswertungLandscape
Viewer1.LoadDocument(report)
ElseIf Reporter = "Auswertung" And frmAuswertung.subrep = "subrptEinzelStat" Then
Dim report As rptAuswertungLandscape
report = New rptAuswertungLandscape
report.von = von
report.bis = bis
report.filname = filname
Viewer1.LoadDocument(report)
Else
MsgBox("Druckformular nicht erkannt / nicht vorhanden.")
Exit Sub
End If
End Sub
Private Sub tsbPDF_Click(sender As Object, e As EventArgs)
'Dim Dateiname As String
Dim savefiledialog As New SaveFileDialog
savefiledialog.Filter = "PDF files (*.pdf)|*.PDF"
savefiledialog.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
savefiledialog.ShowDialog()
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
If savefiledialog.FileName <> "" Then p.Export(Viewer1.Document, savefiledialog.FileName)
If System.IO.File.Exists(savefiledialog.FileName) = True Then Process.Start(savefiledialog.FileName)
End Sub
End Class