From bd65f12f46f77448cb45725794491f8186773a86 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 27 Nov 2024 09:04:47 +0100 Subject: [PATCH] IDS_Anhang, VM Formulare, MDM, Asfinag, UTA, MSE, RMC --- .../usrcntlVollmacht_MDM_EU.Designer.vb | 47 +- .../usrcntlVollmacht_MDM_EU.vb | 11 +- .../usrcntlVollmacht_MDM_NICHT_EU.Designer.vb | 43 +- .../usrcntlVollmacht_MDM_NICHT_EU.vb | 13 +- SDL/Formulare/KDFormulare/frmFormulare.vb | 50 +- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/SDL.vbproj | 9 + SDL/USTV/frmMDM_USTVAntrag.vb | 8 +- SDL/mdm/IDS/rptIDS_Anhang.Designer.vb | 1050 +++++++++++++++++ SDL/mdm/IDS/rptIDS_Anhang.resx | 132 +++ SDL/mdm/IDS/rptIDS_Anhang.vb | 7 + SDL/mdm/frmMDMDatenverarbetiung.Designer.vb | 25 +- SDL/mdm/frmMDMDatenverarbetiung.resx | 3 + SDL/mdm/frmMDMDatenverarbetiung.vb | 541 +++++++-- VERAG_PROG_ALLGEMEIN/Classes/cAsfinagMaut.vb | 25 + VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb | 8 + VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb | 7 +- VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb | 13 +- .../Schnittstellen/MSE/cMSEAPI.vb | 12 +- 19 files changed, 1876 insertions(+), 132 deletions(-) create mode 100644 SDL/mdm/IDS/rptIDS_Anhang.Designer.vb create mode 100644 SDL/mdm/IDS/rptIDS_Anhang.resx create mode 100644 SDL/mdm/IDS/rptIDS_Anhang.vb diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.Designer.vb index 8936cbb0..46d9e6ef 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.Designer.vb @@ -86,6 +86,8 @@ Partial Class usrcntlVollmacht_MDM_EU Me.txt_GF_vorname = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxRMC = New System.Windows.Forms.CheckBox() Me.cbxPrintDateAndCity = New System.Windows.Forms.CheckBox() + Me.Label22 = New System.Windows.Forms.Label() + Me.txtAnzahlAusdrucke = New VERAG_PROG_ALLGEMEIN.MyTextBox() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' @@ -196,7 +198,7 @@ Partial Class usrcntlVollmacht_MDM_EU 'lblLand ' Me.lblLand.AutoSize = True - Me.lblLand.Location = New System.Drawing.Point(3, 64) + Me.lblLand.Location = New System.Drawing.Point(3, 85) Me.lblLand.Name = "lblLand" Me.lblLand.Size = New System.Drawing.Size(49, 13) Me.lblLand.TabIndex = 5 @@ -590,7 +592,7 @@ Partial Class usrcntlVollmacht_MDM_EU Me.cboLand._allowFreiText = False Me.cboLand._value = "" Me.cboLand.FormattingEnabled = True - Me.cboLand.Location = New System.Drawing.Point(6, 80) + Me.cboLand.Location = New System.Drawing.Point(6, 101) Me.cboLand.Name = "cboLand" Me.cboLand.Size = New System.Drawing.Size(89, 21) Me.cboLand.TabIndex = 10 @@ -982,7 +984,7 @@ Partial Class usrcntlVollmacht_MDM_EU 'CheckedListBox1 ' Me.CheckedListBox1.FormattingEnabled = True - Me.CheckedListBox1.Location = New System.Drawing.Point(981, 3) + Me.CheckedListBox1.Location = New System.Drawing.Point(978, 44) Me.CheckedListBox1.Name = "CheckedListBox1" Me.CheckedListBox1.Size = New System.Drawing.Size(126, 124) Me.CheckedListBox1.TabIndex = 113 @@ -1037,7 +1039,7 @@ Partial Class usrcntlVollmacht_MDM_EU 'cbxRMC ' Me.cbxRMC.AutoSize = True - Me.cbxRMC.Location = New System.Drawing.Point(5, 46) + Me.cbxRMC.Location = New System.Drawing.Point(5, 67) Me.cbxRMC.Name = "cbxRMC" Me.cbxRMC.Size = New System.Drawing.Size(50, 17) Me.cbxRMC.TabIndex = 147 @@ -1055,12 +1057,47 @@ Partial Class usrcntlVollmacht_MDM_EU Me.cbxPrintDateAndCity.TabIndex = 148 Me.cbxPrintDateAndCity.UseVisualStyleBackColor = True ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(3, 44) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(85, 13) + Me.Label22.TabIndex = 149 + Me.Label22.Text = "Anz. Ausdrucke:" + ' + 'txtAnzahlAusdrucke + ' + Me.txtAnzahlAusdrucke._DateTimeOnly = False + Me.txtAnzahlAusdrucke._numbersOnly = True + Me.txtAnzahlAusdrucke._numbersOnlyKommastellen = "" + Me.txtAnzahlAusdrucke._numbersOnlyTrennzeichen = False + Me.txtAnzahlAusdrucke._Prozent = False + Me.txtAnzahlAusdrucke._ShortDateNew = False + Me.txtAnzahlAusdrucke._ShortDateOnly = False + Me.txtAnzahlAusdrucke._TimeOnly = False + Me.txtAnzahlAusdrucke._TimeOnly_Seconds = False + Me.txtAnzahlAusdrucke._value = Nothing + Me.txtAnzahlAusdrucke._Waehrung = False + Me.txtAnzahlAusdrucke._WaehrungZeichen = True + Me.txtAnzahlAusdrucke.ForeColor = System.Drawing.Color.Black + Me.txtAnzahlAusdrucke.Location = New System.Drawing.Point(94, 41) + Me.txtAnzahlAusdrucke.MaxLineLength = -1 + Me.txtAnzahlAusdrucke.MaxLines_Warning = "" + Me.txtAnzahlAusdrucke.MaxLines_Warning_Label = Nothing + Me.txtAnzahlAusdrucke.Name = "txtAnzahlAusdrucke" + Me.txtAnzahlAusdrucke.Size = New System.Drawing.Size(32, 20) + Me.txtAnzahlAusdrucke.TabIndex = 150 + Me.txtAnzahlAusdrucke.Text = "1" + ' 'usrcntlVollmacht_MDM_EU ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Controls.Add(Me.txtAnzahlAusdrucke) + Me.Controls.Add(Me.Label22) Me.Controls.Add(Me.cbxPrintDateAndCity) Me.Controls.Add(Me.cbxRMC) Me.Controls.Add(Me.CheckedListBox1) @@ -1196,4 +1233,6 @@ Partial Class usrcntlVollmacht_MDM_EU Friend WithEvents txt_GF_vorname As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents cbxRMC As CheckBox Friend WithEvents cbxPrintDateAndCity As CheckBox + Friend WithEvents Label22 As Label + Friend WithEvents txtAnzahlAusdrucke As VERAG_PROG_ALLGEMEIN.MyTextBox End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.vb index 14541e00..dbdda070 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.vb @@ -184,12 +184,21 @@ Public Class usrcntlVollmacht_MDM_EU End Sub Private Sub cboLand_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLand.SelectedIndexChanged + Select Case cboLand._value Case "PL" - cbxPrintDateAndCity.Checked = False + cbxPrintDateAndCity.Checked = False + txtAnzahlAusdrucke.Text = 5 + Case "GB" + txtAnzahlAusdrucke.Text = 3 + + Case "AT" + txtAnzahlAusdrucke.Text = 2 + Case Else + txtAnzahlAusdrucke.Text = 1 End Select diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.Designer.vb index 9a451a0e..93c78ca7 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.Designer.vb @@ -83,6 +83,8 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU Me.cbxPrivatfirma = New System.Windows.Forms.CheckBox() Me.txt_GF_vorname = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxPrintDateAndCity = New System.Windows.Forms.CheckBox() + Me.txtAnzahlAusdrucke = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label22 = New System.Windows.Forms.Label() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' @@ -184,7 +186,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU 'lblLand ' Me.lblLand.AutoSize = True - Me.lblLand.Location = New System.Drawing.Point(3, 64) + Me.lblLand.Location = New System.Drawing.Point(3, 71) Me.lblLand.Name = "lblLand" Me.lblLand.Size = New System.Drawing.Size(49, 13) Me.lblLand.TabIndex = 5 @@ -601,7 +603,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU Me.cboLand._allowFreiText = False Me.cboLand._value = "" Me.cboLand.FormattingEnabled = True - Me.cboLand.Location = New System.Drawing.Point(6, 80) + Me.cboLand.Location = New System.Drawing.Point(6, 87) Me.cboLand.Name = "cboLand" Me.cboLand.Size = New System.Drawing.Size(89, 21) Me.cboLand.TabIndex = 10 @@ -1012,12 +1014,47 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU Me.cbxPrintDateAndCity.TabIndex = 145 Me.cbxPrintDateAndCity.UseVisualStyleBackColor = True ' + 'txtAnzahlAusdrucke + ' + Me.txtAnzahlAusdrucke._DateTimeOnly = False + Me.txtAnzahlAusdrucke._numbersOnly = True + Me.txtAnzahlAusdrucke._numbersOnlyKommastellen = "" + Me.txtAnzahlAusdrucke._numbersOnlyTrennzeichen = False + Me.txtAnzahlAusdrucke._Prozent = False + Me.txtAnzahlAusdrucke._ShortDateNew = False + Me.txtAnzahlAusdrucke._ShortDateOnly = False + Me.txtAnzahlAusdrucke._TimeOnly = False + Me.txtAnzahlAusdrucke._TimeOnly_Seconds = False + Me.txtAnzahlAusdrucke._value = "" + Me.txtAnzahlAusdrucke._Waehrung = False + Me.txtAnzahlAusdrucke._WaehrungZeichen = True + Me.txtAnzahlAusdrucke.ForeColor = System.Drawing.Color.Black + Me.txtAnzahlAusdrucke.Location = New System.Drawing.Point(94, 47) + Me.txtAnzahlAusdrucke.MaxLineLength = -1 + Me.txtAnzahlAusdrucke.MaxLines_Warning = "" + Me.txtAnzahlAusdrucke.MaxLines_Warning_Label = Nothing + Me.txtAnzahlAusdrucke.Name = "txtAnzahlAusdrucke" + Me.txtAnzahlAusdrucke.Size = New System.Drawing.Size(27, 20) + Me.txtAnzahlAusdrucke.TabIndex = 152 + Me.txtAnzahlAusdrucke.Text = "1" + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(3, 50) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(85, 13) + Me.Label22.TabIndex = 151 + Me.Label22.Text = "Anz. Ausdrucke:" + ' 'usrcntlVollmacht_MDM_NICHT_EU ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Controls.Add(Me.txtAnzahlAusdrucke) + Me.Controls.Add(Me.Label22) Me.Controls.Add(Me.cbxPrintDateAndCity) Me.Controls.Add(Me.cbxPrivatfirma) Me.Controls.Add(Me.cbx_GF_Geburtsland) @@ -1147,4 +1184,6 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU Friend WithEvents cbxPrivatfirma As CheckBox Friend WithEvents txt_GF_vorname As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents cbxPrintDateAndCity As CheckBox + Friend WithEvents txtAnzahlAusdrucke As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label22 As Label End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.vb index 7d0d876e..8704be86 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.vb @@ -180,16 +180,23 @@ Public Class usrcntlVollmacht_MDM_NICHT_EU Select Case cboLand._value Case "PL" - cbxPrintDateAndCity.Checked = False - - Case "NL" privatfirma = True Case "HR" privatfirma = True + txtAnzahlAusdrucke.Text = 10 + Case "AT" + txtAnzahlAusdrucke.Text = 10 + Case "LU" + txtAnzahlAusdrucke.Text = 5 + Case "IT" + txtAnzahlAusdrucke.Text = 1 Case Else privatfirma = False + txtAnzahlAusdrucke.Text = 1 + + End Select diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index b5eb974c..67a7d215 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -8,8 +8,6 @@ Imports System.Reflection Imports System.Text.RegularExpressions Imports System.Windows.Documents Imports VERAG_PROG_ALLGEMEIN - - Public Class frmFormulare Dim isSingleForm = False Event ShownFIN() @@ -1812,6 +1810,7 @@ Public Class FormularManagerNEU Case "date_month" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDateAndCity.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(3, 2), ""))) Case "date_year" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDateAndCity.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(6, 4), ""))) + Case "Unterschrift1" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, "X")) End Select @@ -1827,10 +1826,13 @@ Public Class FormularManagerNEU Next + If usrCntl.cboLand._value = "IT" Then + printMultipleTimes(1, striList, fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_NICHTEU_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False)) + Else + printMultipleTimes(usrCntl.txtAnzahlAusdrucke.Text, striList, fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_NICHTEU_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False)) + End If - striList.Add(fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_NICHTEU_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False)) - 'aktuell WORD und PDF Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing @@ -1864,8 +1866,6 @@ Public Class FormularManagerNEU Case "name4" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text Case "name5" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text - - Case "address" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txtAdresse1.Text <> "", usrCntl.txtAdresse1.Text & ", ", "") & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text ' Case "address1" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txtAdresse1.Text <> "", usrCntl.txtAdresse1.Text & ", ", "") & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text ' Case "address2" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txtAdresse1.Text <> "", usrCntl.txtAdresse1.Text & ", ", "") & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text ' @@ -1996,7 +1996,10 @@ Public Class FormularManagerNEU Catch ex As Exception MsgBox(ex.Message) End Try - If path <> "" Then striList.Add(path) + If path <> "" Then + printMultipleTimes(usrCntl.txtAnzahlAusdrucke.Text, striList, path) + End If + End If End If @@ -2025,7 +2028,7 @@ Public Class FormularManagerNEU Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID) Dim FIRMA_DE As New VERAG_PROG_ALLGEMEIN.cFirmen(2) Dim isKundeDE = IIf(usrCntl.cbxLandKz._value = "DE" Or usrCntl.cbxLandKz._value = "D", True, False) - + Dim dtKundenBank As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select bnk_iban, bnk_bic, bnk_anschrift from tblBankverbindungen where bnk_archiv = 0 and bnk_hauptkonto = 0 and bnk_KundenNr = '" & usrCntl.KdNR & "'", "FMZOLL") Dim docBez As String = "" docBez = "VOLLMACHT_" & usrCntl.cboLand._value @@ -2046,6 +2049,7 @@ Public Class FormularManagerNEU Select Case fieldName Case "name" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text + Case "name_1" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text Case "name_2" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text Case "address" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txtAdresse1.Text <> "", usrCntl.txtAdresse1.Text & ", ", "") & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text @@ -2089,7 +2093,15 @@ Public Class FormularManagerNEU Case "c_bank" : odoc.FormFields(fieldName).Range.Text = IIf(Not isKundeDE, FIRMA.Firma_Bankverbindung1, FIRMA_DE.Firma_Bankverbindung1) Case "c_iban" : odoc.FormFields(fieldName).Range.Text = IIf(Not isKundeDE, FIRMA.Firma_IBAN1.Replace("IBAN:", ""), FIRMA_DE.Firma_IBAN1.Replace("IBAN:", "")) Case "c_bic" : odoc.FormFields(fieldName).Range.Text = IIf(Not isKundeDE, FIRMA.Firma_BIC1.Replace("BIC:", ""), FIRMA_DE.Firma_BIC1.Replace("BIC:", "")) - Case "place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & IIf(IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text, "") + Case "place_date" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.cbxPrintDateAndCity.Checked, usrCntl.txtOrt.Text & ", " & IIf(IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text, ""), "") + + + Case "bank" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1 AndAlso Not IsDBNull(dtKundenBank.Rows(0).Item("bnk_anschrift")), dtKundenBank.Rows(0).Item("bnk_anschrift"), "") + Case "iban" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1 AndAlso Not IsDBNull(dtKundenBank.Rows(0).Item("bnk_iban")), dtKundenBank.Rows(0).Item("bnk_iban"), "") + Case "bic" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1 AndAlso Not IsDBNull(dtKundenBank.Rows(0).Item("bnk_bic")), dtKundenBank.Rows(0).Item("bnk_bic"), "") + Case "name1" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1, usrCntl.txtFirma.Text, "") + + End Select @@ -2117,16 +2129,15 @@ Public Class FormularManagerNEU Next Next - odoc.Save() : odoc.Activate() - If openWord Then oWord.Visible = True Return New List(Of String) ElseIf printReportElsePDF Then oWord.DisplayAlerts = False + oWord. oWord.PrintOut() Try oWord.Documents.Close() @@ -2151,7 +2162,9 @@ Public Class FormularManagerNEU Catch ex As Exception MsgBox(ex.Message) End Try - striList.Add(path) + + printMultipleTimes(usrCntl.txtAnzahlAusdrucke.Text, striList, path) + End If Catch ex As Exception @@ -2162,6 +2175,18 @@ Public Class FormularManagerNEU + End Function + + Shared Function printMultipleTimes(AnzahlAusdrucke As Integer, stringList As List(Of String), path As String) As Boolean + + + For i As Integer = 1 To AnzahlAusdrucke + stringList.Add(path) + Next + + Return True + + End Function Shared Function VM_AT(usrCntl As usrcntlVollmacht_AT) As String @@ -2257,6 +2282,7 @@ Public Class FormularManagerNEU Return DispSendungslisteoListe(AVISO, SENDUNG_LIST,,, RechnugnAn) End Function + Shared Function DispSendungslisteoListe(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional RechnugnAn As String = "AVISIERER") As String ' Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) Dim tmpPath = "" diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 5965ccaa..15100e11 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 41211b55..3f0c84c5 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -868,6 +868,12 @@ Form + + rptIDS_Anhang.vb + + + Component + frmUSTVoffeneAntraege.vb @@ -3352,6 +3358,9 @@ frmPLOSE_ProductCodes.vb + + rptIDS_Anhang.vb + rptPLOSE_CustomerConsortio.vb diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 7a3e5d99..52d98160 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -404,7 +404,7 @@ Public Class frmMDM_USTVAntrag Next 'Einträge als archivert setzen ' vormals wichtig - MDM_Worker.cPLOSE.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr) + MDM_Worker.cPLOSE.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_ID) End If Return True @@ -460,7 +460,7 @@ Public Class frmMDM_USTVAntrag End If If USTV_POS.INSERT() Then - cRMC.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr, kdNr) + cRMC.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr, kdNr, USTV_POS.UStVAn_ID) End If End If @@ -528,7 +528,7 @@ Public Class frmMDM_USTVAntrag End If If USTV_POS.INSERT() Then - cMSEAPI.UPDATE_ARCHIV(r.Item("invoice_date"), r.Item("invoice_number"), r.Item("customer_id"), Antrag_LandKz) + cMSEAPI.UPDATE_ARCHIV(r.Item("invoice_date"), r.Item("invoice_number"), r.Item("customer_id"), Antrag_LandKz, USTV_POS.UStVAn_ID) End If End If @@ -595,7 +595,7 @@ Public Class frmMDM_USTVAntrag End If If USTV_POS.INSERT() Then - cUTA.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr, kdnr) + cUTA.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr, kdnr, USTV_POS.UStVAn_ID) End If 'tblUStVPositionen End If diff --git a/SDL/mdm/IDS/rptIDS_Anhang.Designer.vb b/SDL/mdm/IDS/rptIDS_Anhang.Designer.vb new file mode 100644 index 00000000..b33c8aca --- /dev/null +++ b/SDL/mdm/IDS/rptIDS_Anhang.Designer.vb @@ -0,0 +1,1050 @@ + +Partial Public Class rptIDS_Anhang + 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 PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter + + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptIDS_Anhang)) + Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() + Me.lblKategorie = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.txtBetrag = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtLiter = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtPreis = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtProduktBeschreibung = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblRabatt = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtRabattPreis = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtRabattBetrag = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblMWST = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblPreisjeLiter = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblGesamtbetrag = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtMWST = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtPreisProLiter = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtGesamtbetrag = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() + Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() + Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader() + Me.lblRgDatum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtKunde = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.Label16 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture() + Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture() + Me.lblUeberschriftRG_GS = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblFirmaOrt = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFirmaStrasse = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFirmaTel = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFirmaFax = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFirmaEmail = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFirmaWeb = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label18 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() + Me.txtBruttoGesSum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtNettoGesSum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblGessumme = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.GroupHeaderKat = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.GroupFooterKat = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + Me.txtBruttoKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtNettoKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtMWSTKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSumKategorie = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line5 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.lblLand = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblBetragEUR = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblPreis = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblMengeLiter = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + Me.GroupHeaderKz = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.lblKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtOutletCountry = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.GroupFooterKz = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + Me.txtBruttoKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtNettoKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtMWSTKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblSummeKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblIDSKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label() + CType(Me.lblKategorie, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtBetrag, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtLiter, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtProduktBeschreibung, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRabatt, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtRabattPreis, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtRabattBetrag, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblPreisjeLiter, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblGesamtbetrag, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtMWST, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtPreisProLiter, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtGesamtbetrag, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtKunde, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label16, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmaOrt, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmaStrasse, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmaTel, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmaFax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label18, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtBruttoGesSum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtNettoGesSum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblGessumme, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtBruttoKatSum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtNettoKatSum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtMWSTKatSum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSumKategorie, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblLand, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblBetragEUR, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblPreis, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblMengeLiter, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtOutletCountry, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtBruttoKzSum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblIDSKdNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'PageHeader + ' + Me.PageHeader.Height = 0! + Me.PageHeader.Name = "PageHeader" + ' + 'lblKategorie + ' + Me.lblKategorie.Height = 0.2094488! + Me.lblKategorie.HyperLink = Nothing + Me.lblKategorie.Left = 0! + Me.lblKategorie.Name = "lblKategorie" + Me.lblKategorie.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.lblKategorie.Style = "background-color: #003680; color: White; font-size: 10pt; font-weight: bold; text" & + "-align: left; text-justify: auto; vertical-align: middle; ddo-char-set: 1" + Me.lblKategorie.Text = "Zusammenfassung Tankungen lt. IDS-Abrechnung" + Me.lblKategorie.Top = 0! + Me.lblKategorie.Width = 7.466142! + ' + 'Detail + ' + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBetrag, Me.txtLiter, Me.txtPreis, Me.txtProduktBeschreibung, Me.lblRabatt, Me.txtRabattPreis, Me.txtRabattBetrag, Me.lblMWST, Me.lblPreisjeLiter, Me.lblGesamtbetrag, Me.txtMWST, Me.txtPreisProLiter, Me.txtGesamtbetrag}) + Me.Detail.Height = 1.006677! + Me.Detail.KeepTogether = True + Me.Detail.Name = "Detail" + ' + 'txtBetrag + ' + Me.txtBetrag.DataField = "" + Me.txtBetrag.Height = 0.1212599! + Me.txtBetrag.HyperLink = Nothing + Me.txtBetrag.Left = 6.563389! + Me.txtBetrag.Name = "txtBetrag" + Me.txtBetrag.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: right; ddo-char-se" & + "t: 1" + Me.txtBetrag.Text = "Betrag" + Me.txtBetrag.Top = 0! + Me.txtBetrag.Width = 0.9169284! + ' + 'txtLiter + ' + Me.txtLiter.DataField = "" + Me.txtLiter.Height = 0.1212599! + Me.txtLiter.HyperLink = Nothing + Me.txtLiter.Left = 4.897638! + Me.txtLiter.Name = "txtLiter" + Me.txtLiter.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: right; ddo-char-se" & + "t: 1" + Me.txtLiter.Text = "Liter" + Me.txtLiter.Top = 0! + Me.txtLiter.Width = 0.748817! + ' + 'txtPreis + ' + Me.txtPreis.DataField = "" + Me.txtPreis.Height = 0.1212599! + Me.txtPreis.HyperLink = Nothing + Me.txtPreis.Left = 5.646456! + Me.txtPreis.Name = "txtPreis" + Me.txtPreis.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: right; ddo-char-se" & + "t: 1" + Me.txtPreis.Text = "Preis" + Me.txtPreis.Top = 0! + Me.txtPreis.Width = 0.9169284! + ' + 'txtProduktBeschreibung + ' + Me.txtProduktBeschreibung.DataField = "" + Me.txtProduktBeschreibung.Height = 0.1212599! + Me.txtProduktBeschreibung.HyperLink = Nothing + Me.txtProduktBeschreibung.Left = 0.01023622! + Me.txtProduktBeschreibung.Name = "txtProduktBeschreibung" + Me.txtProduktBeschreibung.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set" & + ": 1" + Me.txtProduktBeschreibung.Text = "Produktbeschreibung" + Me.txtProduktBeschreibung.Top = 0! + Me.txtProduktBeschreibung.Width = 4.885827! + ' + 'lblRabatt + ' + Me.lblRabatt.DataField = "" + Me.lblRabatt.Height = 0.1212599! + Me.lblRabatt.HyperLink = Nothing + Me.lblRabatt.Left = 0.01417323! + Me.lblRabatt.Name = "lblRabatt" + Me.lblRabatt.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set" & + ": 1" + Me.lblRabatt.Text = "abzüglich Rabatt" + Me.lblRabatt.Top = 0.1838583! + Me.lblRabatt.Width = 2.47874! + ' + 'txtRabattPreis + ' + Me.txtRabattPreis.DataField = "" + Me.txtRabattPreis.Height = 0.1212599! + Me.txtRabattPreis.HyperLink = Nothing + Me.txtRabattPreis.Left = 5.646457! + Me.txtRabattPreis.Name = "txtRabattPreis" + Me.txtRabattPreis.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: right; ddo-char-se" & + "t: 1" + Me.txtRabattPreis.Text = "Preis" + Me.txtRabattPreis.Top = 0.1838583! + Me.txtRabattPreis.Width = 0.9169284! + ' + 'txtRabattBetrag + ' + Me.txtRabattBetrag.DataField = "" + Me.txtRabattBetrag.Height = 0.1212599! + Me.txtRabattBetrag.HyperLink = Nothing + Me.txtRabattBetrag.Left = 6.563386! + Me.txtRabattBetrag.Name = "txtRabattBetrag" + Me.txtRabattBetrag.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: right; ddo-char-se" & + "t: 1" + Me.txtRabattBetrag.Text = "Betrag" + Me.txtRabattBetrag.Top = 0.1838583! + Me.txtRabattBetrag.Width = 0.9169284! + ' + 'lblMWST + ' + Me.lblMWST.DataField = "" + Me.lblMWST.Height = 0.1212599! + Me.lblMWST.HyperLink = Nothing + Me.lblMWST.Left = 0.01417323! + Me.lblMWST.Name = "lblMWST" + Me.lblMWST.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set" & + ": 1" + Me.lblMWST.Text = "zuzüglich MWST" + Me.lblMWST.Top = 0.3677166! + Me.lblMWST.Width = 2.47874! + ' + 'lblPreisjeLiter + ' + Me.lblPreisjeLiter.DataField = "" + Me.lblPreisjeLiter.Height = 0.1212599! + Me.lblPreisjeLiter.HyperLink = Nothing + Me.lblPreisjeLiter.Left = 0! + Me.lblPreisjeLiter.Name = "lblPreisjeLiter" + Me.lblPreisjeLiter.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set" & + ": 1" + Me.lblPreisjeLiter.Text = "Nettopreis je Liter" + Me.lblPreisjeLiter.Top = 0.5259843! + Me.lblPreisjeLiter.Width = 2.47874! + ' + 'lblGesamtbetrag + ' + Me.lblGesamtbetrag.DataField = "" + Me.lblGesamtbetrag.Height = 0.1212599! + Me.lblGesamtbetrag.HyperLink = Nothing + Me.lblGesamtbetrag.Left = 0! + Me.lblGesamtbetrag.Name = "lblGesamtbetrag" + Me.lblGesamtbetrag.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set" & + ": 1" + Me.lblGesamtbetrag.Text = "Gesamtbetrag" + Me.lblGesamtbetrag.Top = 0.6822835! + Me.lblGesamtbetrag.Width = 2.47874! + ' + 'txtMWST + ' + Me.txtMWST.DataField = "" + Me.txtMWST.Height = 0.1212599! + Me.txtMWST.HyperLink = Nothing + Me.txtMWST.Left = 6.563386! + Me.txtMWST.Name = "txtMWST" + Me.txtMWST.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: right; ddo-char-se" & + "t: 1" + Me.txtMWST.Text = "Betrag" + Me.txtMWST.Top = 0.3677166! + Me.txtMWST.Width = 0.9169284! + ' + 'txtPreisProLiter + ' + Me.txtPreisProLiter.DataField = "" + Me.txtPreisProLiter.Height = 0.1212599! + Me.txtPreisProLiter.HyperLink = Nothing + Me.txtPreisProLiter.Left = 5.646457! + Me.txtPreisProLiter.Name = "txtPreisProLiter" + Me.txtPreisProLiter.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: right; ddo-char-se" & + "t: 1" + Me.txtPreisProLiter.Text = "Preis" + Me.txtPreisProLiter.Top = 0.5259843! + Me.txtPreisProLiter.Width = 0.9169284! + ' + 'txtGesamtbetrag + ' + Me.txtGesamtbetrag.DataField = "" + Me.txtGesamtbetrag.Height = 0.1212599! + Me.txtGesamtbetrag.HyperLink = Nothing + Me.txtGesamtbetrag.Left = 6.563386! + Me.txtGesamtbetrag.Name = "txtGesamtbetrag" + Me.txtGesamtbetrag.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: right; ddo-char-se" & + "t: 1" + Me.txtGesamtbetrag.Text = "Betrag" + Me.txtGesamtbetrag.Top = 0.6472442! + Me.txtGesamtbetrag.Width = 0.9169284! + ' + 'PageFooter + ' + Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2}) + Me.PageFooter.Height = 0.2503937! + Me.PageFooter.Name = "PageFooter" + ' + 'Line2 + ' + Me.Line2.Height = 0! + Me.Line2.Left = 0! + Me.Line2.LineWeight = 1.0! + Me.Line2.Name = "Line2" + Me.Line2.Top = 0.07401575! + Me.Line2.Width = 7.480313! + Me.Line2.X1 = 0! + Me.Line2.X2 = 7.480313! + Me.Line2.Y1 = 0.07401575! + Me.Line2.Y2 = 0.07401575! + ' + 'ReportInfo2 + ' + Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount} Seiten " + Me.ReportInfo2.Height = 0.1330709! + Me.ReportInfo2.Left = 5.480315! + Me.ReportInfo2.Name = "ReportInfo2" + Me.ReportInfo2.Style = "font-size: 8pt; text-align: right" + Me.ReportInfo2.Top = 0.1173228! + Me.ReportInfo2.Width = 1.994928! + ' + 'ReportHeader1 + ' + Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblRgDatum, Me.txtKunde, Me.Label16, Me.Picture1, Me.picVERAG, Me.lblUeberschriftRG_GS, Me.Line3, Me.lblFirmaOrt, Me.lblFirmaStrasse, Me.lblFirmaTel, Me.lblFirmaFax, Me.lblFirmaEmail, Me.lblFirmaWeb, Me.Label18, Me.Label1, Me.Label2, Me.Label3, Me.Label4, Me.lblIDSKdNr}) + Me.ReportHeader1.Height = 1.185761! + Me.ReportHeader1.Name = "ReportHeader1" + ' + 'lblRgDatum + ' + Me.lblRgDatum.Height = 0.1574803! + Me.lblRgDatum.HyperLink = Nothing + Me.lblRgDatum.Left = 6.674016! + Me.lblRgDatum.Name = "lblRgDatum" + Me.lblRgDatum.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblRgDatum.Text = "01.01.2019" + Me.lblRgDatum.Top = 0.6716536! + Me.lblRgDatum.Width = 0.7921257! + ' + 'txtKunde + ' + Me.txtKunde.Height = 0.1574802! + Me.txtKunde.HyperLink = Nothing + Me.txtKunde.Left = 5.115748! + Me.txtKunde.Name = "txtKunde" + Me.txtKunde.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.txtKunde.Text = "1000000 TEST" + Me.txtKunde.Top = 0.9866142! + Me.txtKunde.Width = 2.354331! + ' + 'Label16 + ' + Me.Label16.Height = 0.1574803! + Me.Label16.HyperLink = Nothing + Me.Label16.Left = 4.304331! + Me.Label16.Name = "Label16" + Me.Label16.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.Label16.Text = "VERAG-Kunde:" + Me.Label16.Top = 0.9866142! + Me.Label16.Width = 0.8114175! + ' + 'Picture1 + ' + Me.Picture1.Height = 0.6102362! + Me.Picture1.HyperLink = Nothing + Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String") + Me.Picture1.Left = 3.244882! + Me.Picture1.Name = "Picture1" + Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom + Me.Picture1.Top = 0! + Me.Picture1.Visible = False + Me.Picture1.Width = 1.059449! + ' + 'picVERAG + ' + Me.picVERAG.Height = 0.4169292! + Me.picVERAG.HyperLink = Nothing + Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String") + Me.picVERAG.Left = 0.01023622! + Me.picVERAG.Name = "picVERAG" + Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom + Me.picVERAG.Top = 0.1220473! + Me.picVERAG.Width = 2.198425! + ' + 'lblUeberschriftRG_GS + ' + Me.lblUeberschriftRG_GS.Height = 0.2311024! + Me.lblUeberschriftRG_GS.HyperLink = Nothing + Me.lblUeberschriftRG_GS.Left = 4.500394! + Me.lblUeberschriftRG_GS.Name = "lblUeberschriftRG_GS" + Me.lblUeberschriftRG_GS.Style = "font-size: 12pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.lblUeberschriftRG_GS.Text = "Anlage zur Sammelrechnung" + Me.lblUeberschriftRG_GS.Top = 0.3870079! + Me.lblUeberschriftRG_GS.Width = 2.969686! + ' + 'Line3 + ' + Me.Line3.Height = 0! + Me.Line3.Left = 0.002755864! + Me.Line3.LineColor = System.Drawing.Color.DimGray + Me.Line3.LineWeight = 1.0! + Me.Line3.Name = "Line3" + Me.Line3.Top = 0.6102362! + Me.Line3.Width = 7.475196! + Me.Line3.X1 = 0.002755864! + Me.Line3.X2 = 7.477952! + Me.Line3.Y1 = 0.6102362! + Me.Line3.Y2 = 0.6102362! + ' + 'lblFirmaOrt + ' + Me.lblFirmaOrt.Height = 0.1492127! + Me.lblFirmaOrt.HyperLink = Nothing + Me.lblFirmaOrt.Left = 0.01417317! + Me.lblFirmaOrt.Name = "lblFirmaOrt" + Me.lblFirmaOrt.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblFirmaOrt.Text = "A-4975 Suben" + Me.lblFirmaOrt.Top = 0.7503937! + Me.lblFirmaOrt.Width = 1.19685! + ' + 'lblFirmaStrasse + ' + Me.lblFirmaStrasse.Height = 0.1389767! + Me.lblFirmaStrasse.HyperLink = Nothing + Me.lblFirmaStrasse.Left = 0.002756516! + Me.lblFirmaStrasse.Name = "lblFirmaStrasse" + Me.lblFirmaStrasse.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblFirmaStrasse.Text = "Suben Nr. 100" + Me.lblFirmaStrasse.Top = 0.899606! + Me.lblFirmaStrasse.Width = 1.19685! + ' + 'lblFirmaTel + ' + Me.lblFirmaTel.Height = 0.1492127! + Me.lblFirmaTel.HyperLink = Nothing + Me.lblFirmaTel.Left = 1.211024! + Me.lblFirmaTel.Name = "lblFirmaTel" + Me.lblFirmaTel.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblFirmaTel.Text = "Tel. +43 7711 2777 - 0" + Me.lblFirmaTel.Top = 0.7503937! + Me.lblFirmaTel.Width = 1.28189! + ' + 'lblFirmaFax + ' + Me.lblFirmaFax.Height = 0.1389767! + Me.lblFirmaFax.HyperLink = Nothing + Me.lblFirmaFax.Left = 1.199607! + Me.lblFirmaFax.Name = "lblFirmaFax" + Me.lblFirmaFax.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblFirmaFax.Text = "Fax +43 7711 31600" + Me.lblFirmaFax.Top = 0.8996061! + Me.lblFirmaFax.Width = 1.28189! + ' + 'lblFirmaEmail + ' + Me.lblFirmaEmail.Height = 0.1492127! + Me.lblFirmaEmail.HyperLink = Nothing + Me.lblFirmaEmail.Left = 2.492913! + Me.lblFirmaEmail.Name = "lblFirmaEmail" + Me.lblFirmaEmail.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" & + "do-char-set: 1" + Me.lblFirmaEmail.Text = "s.kriegner@verag.ag" + Me.lblFirmaEmail.Top = 0.7503937! + Me.lblFirmaEmail.Width = 1.436614! + ' + 'lblFirmaWeb + ' + Me.lblFirmaWeb.Height = 0.1389765! + Me.lblFirmaWeb.HyperLink = Nothing + Me.lblFirmaWeb.Left = 2.481496! + Me.lblFirmaWeb.Name = "lblFirmaWeb" + Me.lblFirmaWeb.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" & + "do-char-set: 1" + Me.lblFirmaWeb.Text = "www.verag.ag" + Me.lblFirmaWeb.Top = 0.8996063! + Me.lblFirmaWeb.Width = 1.436614! + ' + 'Label18 + ' + Me.Label18.Height = 0.1574803! + Me.Label18.HyperLink = Nothing + Me.Label18.Left = 6.237402! + Me.Label18.Name = "Label18" + Me.Label18.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.Label18.Text = "Datum:" + Me.Label18.Top = 0.6716536! + Me.Label18.Width = 0.436614! + ' + 'Label1 + ' + Me.Label1.Height = 0.2311024! + Me.Label1.HyperLink = Nothing + Me.Label1.Left = 4.496457! + Me.Label1.Name = "Label1" + Me.Label1.Style = "font-size: 12pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.Label1.Text = "-" + Me.Label1.Top = 0.0523622! + Me.Label1.Width = 2.969686! + ' + 'Label2 + ' + Me.Label2.Height = 0.1574803! + Me.Label2.HyperLink = Nothing + Me.Label2.Left = 4.304331! + Me.Label2.Name = "Label2" + Me.Label2.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.Label2.Text = "Partner-Kunden-Nr:" + Me.Label2.Top = 0.8291339! + Me.Label2.Width = 1.020079! + ' + 'Label3 + ' + Me.Label3.Height = 0.1574803! + Me.Label3.HyperLink = Nothing + Me.Label3.Left = 5.983465! + Me.Label3.Name = "Label3" + Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.Label3.Text = "Zeitraum bis:" + Me.Label3.Top = 0.8291339! + Me.Label3.Width = 0.6905512! + ' + 'Label4 + ' + Me.Label4.Height = 0.1574803! + Me.Label4.HyperLink = Nothing + Me.Label4.Left = 6.674016! + Me.Label4.Name = "Label4" + Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.Label4.Text = "01.01.2019" + Me.Label4.Top = 0.8291339! + Me.Label4.Width = 0.7960634! + ' + 'ReportFooter1 + ' + Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBruttoGesSum, Me.txtNettoGesSum, Me.lblGessumme, Me.Line7, Me.Line8}) + Me.ReportFooter1.Height = 1.126575! + Me.ReportFooter1.KeepTogether = True + Me.ReportFooter1.Name = "ReportFooter1" + ' + 'txtBruttoGesSum + ' + Me.txtBruttoGesSum.Height = 0.1417323! + Me.txtBruttoGesSum.HyperLink = Nothing + Me.txtBruttoGesSum.Left = 6.563386! + Me.txtBruttoGesSum.Name = "txtBruttoGesSum" + Me.txtBruttoGesSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.txtBruttoGesSum.Text = "Betrag" + Me.txtBruttoGesSum.Top = 0.1098426! + Me.txtBruttoGesSum.Width = 0.9169284! + ' + 'txtNettoGesSum + ' + Me.txtNettoGesSum.Height = 0.1417323! + Me.txtNettoGesSum.HyperLink = Nothing + Me.txtNettoGesSum.Left = 4.729524! + Me.txtNettoGesSum.Name = "txtNettoGesSum" + Me.txtNettoGesSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.txtNettoGesSum.Text = "Betrag" + Me.txtNettoGesSum.Top = 0.1098426! + Me.txtNettoGesSum.Width = 0.9169284! + ' + 'lblGessumme + ' + Me.lblGessumme.Height = 0.1417323! + Me.lblGessumme.HyperLink = Nothing + Me.lblGessumme.Left = 3.244878! + Me.lblGessumme.Name = "lblGessumme" + Me.lblGessumme.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1; ddo-font-v" & + "ertical: none" + Me.lblGessumme.Text = "Gesamtsumme:" + Me.lblGessumme.Top = 0.1098426! + Me.lblGessumme.Width = 1.484645! + ' + 'Line7 + ' + Me.Line7.Height = 0! + Me.Line7.Left = 0.002752304! + Me.Line7.LineWeight = 2.0! + Me.Line7.Name = "Line7" + Me.Line7.Top = 0! + Me.Line7.Width = 7.475196! + Me.Line7.X1 = 0.002752304! + Me.Line7.X2 = 7.477948! + Me.Line7.Y1 = 0! + Me.Line7.Y2 = 0! + ' + 'Line8 + ' + Me.Line8.Height = 0! + Me.Line8.Left = 0.002752304! + Me.Line8.LineWeight = 2.0! + Me.Line8.Name = "Line8" + Me.Line8.Top = 0.03543304! + Me.Line8.Width = 7.475196! + Me.Line8.X1 = 0.002752304! + Me.Line8.X2 = 7.477948! + Me.Line8.Y1 = 0.03543304! + Me.Line8.Y2 = 0.03543304! + ' + 'GroupHeaderKat + ' + Me.GroupHeaderKat.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKategorie}) + Me.GroupHeaderKat.Name = "GroupHeaderKat" + ' + 'GroupFooterKat + ' + Me.GroupFooterKat.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBruttoKatSum, Me.txtNettoKatSum, Me.txtMWSTKatSum, Me.lblSumKategorie, Me.Line5}) + Me.GroupFooterKat.Height = 0.375! + Me.GroupFooterKat.Name = "GroupFooterKat" + ' + 'txtBruttoKatSum + ' + Me.txtBruttoKatSum.Height = 0.1417323! + Me.txtBruttoKatSum.HyperLink = Nothing + Me.txtBruttoKatSum.Left = 6.563391! + Me.txtBruttoKatSum.Name = "txtBruttoKatSum" + Me.txtBruttoKatSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.txtBruttoKatSum.Text = "Betrag" + Me.txtBruttoKatSum.Top = 0.1708661! + Me.txtBruttoKatSum.Width = 0.9169284! + ' + 'txtNettoKatSum + ' + Me.txtNettoKatSum.Height = 0.1417323! + Me.txtNettoKatSum.HyperLink = Nothing + Me.txtNettoKatSum.Left = 4.729528! + Me.txtNettoKatSum.Name = "txtNettoKatSum" + Me.txtNettoKatSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.txtNettoKatSum.Text = "Betrag" + Me.txtNettoKatSum.Top = 0.1708661! + Me.txtNettoKatSum.Width = 0.9169284! + ' + 'txtMWSTKatSum + ' + Me.txtMWSTKatSum.Height = 0.1417323! + Me.txtMWSTKatSum.HyperLink = Nothing + Me.txtMWSTKatSum.Left = 5.646457! + Me.txtMWSTKatSum.Name = "txtMWSTKatSum" + Me.txtMWSTKatSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.txtMWSTKatSum.Text = "Betrag" + Me.txtMWSTKatSum.Top = 0.1708661! + Me.txtMWSTKatSum.Width = 0.9169284! + ' + 'lblSumKategorie + ' + Me.lblSumKategorie.Height = 0.1417323! + Me.lblSumKategorie.HyperLink = Nothing + Me.lblSumKategorie.Left = 3.244882! + Me.lblSumKategorie.Name = "lblSumKategorie" + Me.lblSumKategorie.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1; ddo-font-v" & + "ertical: none" + Me.lblSumKategorie.Text = "Summe Kategorie:" + Me.lblSumKategorie.Top = 0.1708661! + Me.lblSumKategorie.Width = 1.484645! + ' + 'Line5 + ' + Me.Line5.Height = 0! + Me.Line5.Left = 0.002755906! + Me.Line5.LineWeight = 2.0! + Me.Line5.Name = "Line5" + Me.Line5.Top = 0.06102363! + Me.Line5.Width = 7.475195! + Me.Line5.X1 = 0.002755906! + Me.Line5.X2 = 7.477951! + Me.Line5.Y1 = 0.06102363! + Me.Line5.Y2 = 0.06102363! + ' + 'GroupHeader4 + ' + Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLand, Me.lblBetragEUR, Me.lblPreis, Me.Line16, Me.lblMengeLiter}) + Me.GroupHeader4.Height = 0.1511811! + Me.GroupHeader4.KeepTogether = True + Me.GroupHeader4.Name = "GroupHeader4" + ' + 'lblLand + ' + Me.lblLand.Height = 0.1425197! + Me.lblLand.HyperLink = Nothing + Me.lblLand.Left = 0! + Me.lblLand.Name = "lblLand" + Me.lblLand.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" & + "char-set: 1" + Me.lblLand.Text = "Beschreibung" + Me.lblLand.Top = 0.008661417! + Me.lblLand.Width = 4.304331! + ' + 'lblBetragEUR + ' + Me.lblBetragEUR.DataField = "" + Me.lblBetragEUR.Height = 0.1425197! + Me.lblBetragEUR.HyperLink = Nothing + Me.lblBetragEUR.Left = 6.563386! + Me.lblBetragEUR.Name = "lblBetragEUR" + Me.lblBetragEUR.Style = "color: Black; font-size: 6pt; font-weight: bold; text-align: right; vertical-alig" & + "n: middle; ddo-char-set: 1" + Me.lblBetragEUR.Text = "Betrag EUR" + Me.lblBetragEUR.Top = 0.008661418! + Me.lblBetragEUR.Width = 0.9169292! + ' + 'lblPreis + ' + Me.lblPreis.DataField = "" + Me.lblPreis.Height = 0.1425197! + Me.lblPreis.HyperLink = Nothing + Me.lblPreis.Left = 5.646457! + Me.lblPreis.Name = "lblPreis" + Me.lblPreis.Style = "color: Black; font-size: 6pt; font-weight: bold; text-align: right; vertical-alig" & + "n: middle; ddo-char-set: 1" + Me.lblPreis.Text = "Preis EUR" + Me.lblPreis.Top = 0.008661418! + Me.lblPreis.Width = 0.9169284! + ' + 'Line16 + ' + Me.Line16.Height = 0! + Me.Line16.Left = 0.002755906! + Me.Line16.LineWeight = 1.0! + Me.Line16.Name = "Line16" + Me.Line16.Top = 0! + Me.Line16.Visible = False + Me.Line16.Width = 7.475195! + Me.Line16.X1 = 0.002755906! + Me.Line16.X2 = 7.477951! + Me.Line16.Y1 = 0! + Me.Line16.Y2 = 0! + ' + 'lblMengeLiter + ' + Me.lblMengeLiter.DataField = "" + Me.lblMengeLiter.Height = 0.1425197! + Me.lblMengeLiter.HyperLink = Nothing + Me.lblMengeLiter.Left = 4.896063! + Me.lblMengeLiter.Name = "lblMengeLiter" + Me.lblMengeLiter.Style = "color: Black; font-size: 6pt; font-weight: bold; text-align: right; vertical-alig" & + "n: middle; ddo-char-set: 1" + Me.lblMengeLiter.Text = "Menge Liter" + Me.lblMengeLiter.Top = 0.008661418! + Me.lblMengeLiter.Width = 0.7503939! + ' + 'GroupFooter4 + ' + Me.GroupFooter4.Height = 0.1041667! + Me.GroupFooter4.Name = "GroupFooter4" + ' + 'GroupHeaderKz + ' + Me.GroupHeaderKz.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKennzeichen, Me.txtOutletCountry}) + Me.GroupHeaderKz.Height = 0.2604166! + Me.GroupHeaderKz.Name = "GroupHeaderKz" + ' + 'lblKennzeichen + ' + Me.lblKennzeichen.Height = 0.2051181! + Me.lblKennzeichen.HyperLink = Nothing + Me.lblKennzeichen.Left = 0.01023622! + Me.lblKennzeichen.Name = "lblKennzeichen" + Me.lblKennzeichen.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblKennzeichen.Text = "Land" + Me.lblKennzeichen.Top = 0! + Me.lblKennzeichen.Width = 1.050787! + ' + 'txtOutletCountry + ' + Me.txtOutletCountry.DataField = "" + Me.txtOutletCountry.Height = 0.2051181! + Me.txtOutletCountry.HyperLink = Nothing + Me.txtOutletCountry.Left = 1.061024! + Me.txtOutletCountry.Name = "txtOutletCountry" + Me.txtOutletCountry.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0) + Me.txtOutletCountry.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: left; vertical-alig" & + "n: middle; ddo-char-set: 1" + Me.txtOutletCountry.Text = "Austria" + Me.txtOutletCountry.Top = 0! + Me.txtOutletCountry.Width = 1.34252! + ' + 'GroupFooterKz + ' + Me.GroupFooterKz.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBruttoKzSum, Me.txtNettoKzSum, Me.txtMWSTKzSum, Me.Line4, Me.lblSummeKennzeichen}) + Me.GroupFooterKz.Name = "GroupFooterKz" + ' + 'txtBruttoKzSum + ' + Me.txtBruttoKzSum.Height = 0.1417323! + Me.txtBruttoKzSum.HyperLink = Nothing + Me.txtBruttoKzSum.Left = 6.56339! + Me.txtBruttoKzSum.Name = "txtBruttoKzSum" + Me.txtBruttoKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.txtBruttoKzSum.Text = "Betrag" + Me.txtBruttoKzSum.Top = 0.01968504! + Me.txtBruttoKzSum.Width = 0.9169284! + ' + 'txtNettoKzSum + ' + Me.txtNettoKzSum.Height = 0.1417323! + Me.txtNettoKzSum.HyperLink = Nothing + Me.txtNettoKzSum.Left = 4.729528! + Me.txtNettoKzSum.Name = "txtNettoKzSum" + Me.txtNettoKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.txtNettoKzSum.Text = "Betrag" + Me.txtNettoKzSum.Top = 0.01968504! + Me.txtNettoKzSum.Width = 0.9169284! + ' + 'txtMWSTKzSum + ' + Me.txtMWSTKzSum.Height = 0.1417323! + Me.txtMWSTKzSum.HyperLink = Nothing + Me.txtMWSTKzSum.Left = 5.646457! + Me.txtMWSTKzSum.Name = "txtMWSTKzSum" + Me.txtMWSTKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.txtMWSTKzSum.Text = "Betrag" + Me.txtMWSTKzSum.Top = 0.01968504! + Me.txtMWSTKzSum.Width = 0.9169284! + ' + 'Line4 + ' + Me.Line4.Height = 0! + Me.Line4.Left = 0.002755906! + Me.Line4.LineWeight = 1.0! + Me.Line4.Name = "Line4" + Me.Line4.Top = 0! + Me.Line4.Width = 7.475195! + Me.Line4.X1 = 0.002755906! + Me.Line4.X2 = 7.477951! + Me.Line4.Y1 = 0! + Me.Line4.Y2 = 0! + ' + 'lblSummeKennzeichen + ' + Me.lblSummeKennzeichen.Height = 0.1417323! + Me.lblSummeKennzeichen.HyperLink = Nothing + Me.lblSummeKennzeichen.Left = 3.244882! + Me.lblSummeKennzeichen.Name = "lblSummeKennzeichen" + Me.lblSummeKennzeichen.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1; ddo-font-v" & + "ertical: none" + Me.lblSummeKennzeichen.Text = "Summe Land" + Me.lblSummeKennzeichen.Top = 0.01968504! + Me.lblSummeKennzeichen.Width = 1.484645! + ' + 'lblIDSKdNr + ' + Me.lblIDSKdNr.DataField = "" + Me.lblIDSKdNr.Height = 0.1574803! + Me.lblIDSKdNr.HyperLink = Nothing + Me.lblIDSKdNr.Left = 5.32441! + Me.lblIDSKdNr.Name = "lblIDSKdNr" + Me.lblIDSKdNr.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; vertical-alig" & + "n: middle; ddo-char-set: 1" + Me.lblIDSKdNr.Text = "0" + Me.lblIDSKdNr.Top = 0.8291339! + Me.lblIDSKdNr.Width = 0.6590552! + ' + 'rptIDS_Anhang + ' + 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.480319! + Me.Sections.Add(Me.ReportHeader1) + Me.Sections.Add(Me.PageHeader) + Me.Sections.Add(Me.GroupHeaderKat) + Me.Sections.Add(Me.GroupHeaderKz) + Me.Sections.Add(Me.GroupHeader4) + Me.Sections.Add(Me.Detail) + Me.Sections.Add(Me.GroupFooter4) + Me.Sections.Add(Me.GroupFooterKz) + Me.Sections.Add(Me.GroupFooterKat) + 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.lblKategorie, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtBetrag, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtLiter, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtProduktBeschreibung, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRabatt, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtRabattPreis, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtRabattBetrag, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblPreisjeLiter, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblGesamtbetrag, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtMWST, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtPreisProLiter, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtGesamtbetrag, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtKunde, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label16, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmaOrt, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmaStrasse, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmaTel, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmaFax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label18, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtBruttoGesSum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtNettoGesSum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblGessumme, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtBruttoKatSum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtNettoKatSum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtMWSTKatSum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSumKategorie, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblLand, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblBetragEUR, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblPreis, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblMengeLiter, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtOutletCountry, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtBruttoKzSum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblIDSKdNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader + Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail + Public WithEvents lblUeberschriftRG_GS As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo + Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter + Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Label18 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtKunde As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblRgDatum As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture + Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture + Public WithEvents lblFirmaOrt As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFirmaStrasse As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFirmaTel As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFirmaFax As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFirmaEmail As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFirmaWeb As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Label16 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtBetrag As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtLiter As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtPreis As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line7 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line8 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents txtProduktBeschreibung As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtBruttoKatSum As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtNettoKatSum As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSumKategorie As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtBruttoGesSum As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtNettoGesSum As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblGessumme As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblKategorie As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents GroupFooterKat As GrapeCity.ActiveReports.SectionReportModel.GroupFooter + Public WithEvents GroupHeaderKat As GrapeCity.ActiveReports.SectionReportModel.GroupHeader + Public WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblRabatt As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtRabattPreis As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtRabattBetrag As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblMWST As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblPreisjeLiter As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblGesamtbetrag As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtMWST As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtPreisProLiter As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtGesamtbetrag As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader + Public WithEvents lblLand As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblBetragEUR As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblPreis As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line16 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents lblMengeLiter As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter + Public WithEvents txtMWSTKatSum As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents GroupHeaderKz As GrapeCity.ActiveReports.SectionReportModel.GroupHeader + Public WithEvents lblKennzeichen As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtOutletCountry As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents GroupFooterKz As GrapeCity.ActiveReports.SectionReportModel.GroupFooter + Public WithEvents txtBruttoKzSum As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtNettoKzSum As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtMWSTKzSum As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents lblSummeKennzeichen As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblIDSKdNr As GrapeCity.ActiveReports.SectionReportModel.Label +End Class diff --git a/SDL/mdm/IDS/rptIDS_Anhang.resx b/SDL/mdm/IDS/rptIDS_Anhang.resx new file mode 100644 index 00000000..ace71b79 --- /dev/null +++ b/SDL/mdm/IDS/rptIDS_Anhang.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwAGBAQEBQQGBQUGCQYFBgkLCAYGCAsMCgoLCgoMEAwMDAwMDBAMDg8QDw4MExMUFBMTHBsbGxwfHx8fHx8fHx8f/9sAQwEHBwcNDA0YEBAYGhURFRofHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8f/8IAEQgBBQEsAwERAAIRAQMRAf/EABwAAQACAwEBAQAAAAAAAAAAAAAEBQMGBwIBCP/EAC8QAAEEAgEBBwMEAwEBAAAAAAEAAgMEEQUSECAwQCExEwZBFBZQIjIVYEIjNCX/xAAaAQEAAwEBAQAAAAAAAAAAAAAAAQIDBAUG/8QARBEAAgECAwUEBgYIBQQDAAAAAQIDABEhEgQxQVEiExBhcTIggZFCIzMwsdGSFAVA8KHBUnJDNOFiglNzUGCyJPHCY//EACUSAAEDAwMEAwEAAAAAAAAAABEAASEQUDEgQBIwQVFhYHACoP/EACsTAQACAgEDAwMEAwEBAAAAAAEAESExQRBRYTBxgSCRoUDwscFQ0eHxYP/aAAwDAQACEAMQAAAB6oAAAAAAAAAAAAAAAAAAAAAAAAAADyVFq1F3k9IlxN9nOdIAAAAAAAAAAAAAFVMa7eusbZ7PjpqXXz02+XqX2trfHXpXD0WETJAAAAAAAAAAAAMJz7Wms6U2Ws7VhprXZhq3bzzaWiXrLpbydM8vsy1t5JplAAAAAAAAAABHNHmNA68drqjdGUyJq98/cTc43usdKPfPZebW6w0y1tiIpMJQBQXjHLY85AAAAAAAwHL9Ka9vn93xl6RItGes/JX/AD67Jza2Gdot4tcrjyYjGRjWNYrrxkI8xp2sdv472VZAAAAAAHGN86DSk7XKZpWTdlLnDSo2puPHvGtW4y0uMb5IkDyYjARi0KG8ch66RZiyrPX+S9xWQAAAABqVo47042N6T71la1zyl0tsnJtW7U2Pm1+SvsNPoAPhiMBhPhaA8EKY5L106VzX2CkgAAAAcK3zr9cbG8TLxI1rkiRtnFvsXLtkMkvYRFvE2lta6cdj5tsZjMEIcrgygFRaOU9VO28egAAAAqJjgvTjZ3pPtEvSubSMtZ2rh6Z2doO2eeJtcrzqW0bv5YWldr5N8Z9Lzn1xmEikgswAcE7su98OoAAAA59evNOjGytWbeJWtctonY6bd5/Tp/pcviY9lhne5wvOpa2x0+IGudOWw822MwEcizGyxIEKXJOrPtHJoAAAPlVZ810VvvY+OzKJaND6K+7Ru2VrzORKpbmfTTDKLasis5YnpvNexpaMaRvWivGCYk1m/wA5zw3fOwHOOil3SdsysAABD8rTx01reS8z0c7XaOTdVNP1oL+lu1cegHA+7KDMdK59J1Q23K3s4f2509q71jfacrc86Ka/eu/YX6Zz3FNaOe9Fet8twAAPkKH53d62d920+lNaOH9udzSZcNa0r2Dk02rO3w4J3ZQpjPE+iZE904tKm0cK7sskT+heDX0a1pHGuvKfWe98WtdMcv6adb5dMwAAInl6RyZ6meY+g45156zpXIn6YkW1bdy4tPpwPuygzHbePW2rIzQwnA+/LAdg5L7RnbmXTTRdqbNnbpHPfnu9eq8t5AAABU+VpANk9XP6ClvHH+vOwrPZuPT6ch686W8dR5dNqzniHZnDtHxI8o7jxazYUV45v0Uo7x5JBsedrKk4JjpXPf2AAAeMp+H3WPYBAOA65ztcpekWWV7fl3zmWWUzwyy9w9HoSGK0U3Vhhlr+udLTTxFuh8+nRcbAAAAVvj6wPL02D6zm+gA4zMax0Y2V6yb1uOTol5XzmaWQyns9no+n0+H2Gn9/NQ2mPVipPf8Ak3lgAAAGGFVVO4NM3ZTPtAGuo4TvSdellemfSuazJaJmGlhybyKWyHs9H09QgXjW+ilXrn7isKrd8N+o5XAAAAAx0UXy/Tn+gwtrx71j7cORXrpWucm9Z96yL1yWj3eLDj6LDk2yH2Vt4utD6Wevejn8vT5bKPEw4Zs9e8c+ucAAAAAEMyZTU/H9U76zmlww4zm9CnEIrV9GUsuee1d6ON352vulpWWu4/JdWm/Z8lv4u1V6mTojXuzniIhGOt+3c+t3EgAAAAAD4U+U2G1Yfla1vn6bB9Dz1XyPVzP6blj3r0j5rr5T9z5u2+D05onW/bxvPN2jdVfSfqMcqbfH1S9beO0YaX0SAAAAAAAAPhDJhVZTJ3rocxoc1ja0zzHu0T+beXS3s+nxFB04fKX2Otur53mgAAAAAAAAAAAEI5/eum3rU2j1C1x0yQw2YdKbRWd/pa/iQAAAAAAAAAAAAABDRUSjGQtCzifoAAAAAAAAAAAAAAAAAAAAAAAAAB4RzPu5985N8UxqvRlMrN9jpimIV4y1n5MSqzDtGaJ1nfK8y0yQnUt4mIdosaWwzES0TazBtEusyonXts/cTY0t7gPEvCI9kys+TYMb6/tSh2z9QkRMG0ZYTq2gXrb53oNc8sTKrOGYvstKDbO2zvXXrJrMK1ROravvX0Wmd9f2z2jn1n1nXds6nSs+lo9q+om8yvTaUj2iwpadW218+oAAAAAAAAAAAAAFdes+k+kgAACDavPuzn3Dm2FHtS0ztrO+djS2x4aQb1jWjbebXmfdz3GdrTO3tNdetHrS3zv4RaUtil4Nq59NI6scFokVnxLyQ7VkRPuEO8W2V49o+IwS6Lx9GtbZUutI9o9xNxnfwiuvWNaLOl6DXPZcNJtbUO2c6ltnw01bfOFeviYtsrxbRZ0tiliRuHPtqu+VXpTxKRWc8T7hV6V8mG0T6Wi2jBMY5jqPB1AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAf//aAAgBAQABBQL9WLmtE+410IPynWL8q1q/Kdao/kWqeop4Zm+Ns7OjWVvduLIHW9jLFqYmrY6v7Z3toQ5QiZnXUnWJa7rLImztPipZooY9lu55GVXML62jy/8A5xNtbrLeJJilayLiqcTH2KsJFqOTki1AvYmSNf4eeeOFl64MTSy25mXa9OE378gtVNiyMNWFR1UloS6CLjLq5on0tS1qNeJYRCe1yhnEg672V8Wr0u2Zfr9/PPHBFf2U9ma1akuPaxNagEXPd0p6iSZXbTKsUEboYK9SsJuuEQnNWxt72GYbv5AxN+WTsW131a7r6tmapPr70N2t33yDaOu2mOkcmMTWoDpTphzj5qtemW5mDpatR7gxjGN6lFELJaWODm7e5LXikgu8zyC1uzmoT6/a1LzO8+SbH7Si0KNmE0IBBV5GxS1JYnyw6188zddEIo9PTb2ynkBOUD+L+hYwqehTnbstfY1NvTbRt+t3e8um5so2poTQh118NKaLKHUuaE+5C2ZTbCZ2xKKKKeon82ddrTbbo6Gya+z7rb2vtddGEwJoQQTGlz36yq5QRMqVv7mLhZtTmrWtwWWBbqxztOt3Oes2TrS2mu95am978SKKcqbuzAP/AKfdfMZ+NSPCYmoLKpTRxT+9C0WbXvy1nwtlq2p67jPXh2Oxv2ITHVrznyKHEI+Yg0/sWSiinKvOwXut2cV6nx6uZ9p3JmcHy66tsnj41qQr2s1FKqNlEv7Ri1MGu2FYaegC7Ta8uGupAWNuIrMW9fCv7VifvXPbH8lnhZEwWKvEKaSGCOz8qhaX/JtkV+R7RM+TXQqm9p2HT6i6dr1+V7AY+Oa/7Wl23zcZBMJjMJIG1YrTXL5Nf9+300d/7O91vf8AvVHQ6ual+N6dfjWnKijbHG4ho2uylv2VqPjgsRP+OapzdvqJNfJhfGdpIJem12UdCro9dLsLnbPofcYqkxdKQD0298UqXmTp6JuX/kFH7W8V8e2H3VJZV7/3oV7bh9reVKtdF5bYka0ejAHSNADV8iY12pWvJGwV+/XpQV4Lm+vQwxwxdqd5avunc5oWStAAHT5DsPu7qZLNGnyzydNVeNG6CCFe/wDeVqZYhrPfgXvwL1U0TZYZ4JK060+6r2oXOa0fItxFYavjtJ1jYbPbVqEVanf3lqCCGvF25opRJHJPI4enTb2LENIa3Yqhprk9z241wYtxp7MV467YL49NaNNXaN43f6++v6/YL+v2COu2CpAtprZ6itfbZ+PbOAvq2WEsskR6+9Iqnxe3Ibe7p6+HW/H57UjGNY3tucGguYUxjWN634Pfpl88cjZZE171WlflsjwhK9c3IOKEjkJHL3HL3HL3HLkVyUjWyNczYTPuRxwQyk8PclRfJj4rr4jD3NmYcn+gxjsfI6PsXInppTSopQ4AoFAoFBy5LKysrKysq9Za6Z87nLjhBj5paldlat3MkTHqOgHPbKxijla/sb2gblBpUcmE0oJriFzeobHFRyteuSyuS5LksqfYVYVY21iYCAo4Ae5fFNfzk7uTlw9zyozRueJGFAg9fk+n+3lamuc1MeCgVlZVb0BX7gcqKuJIdpbFN+dnbTqMUK8gHOT3KhRl2FuCCOCHvJ6zJjI5sTMginjhI/g02YwpI45Y9tppqFlzJYnVY/fsf1l8ODlrqrLRtU3UYKQFh2F/0jfXvni+790uanP/AFHJ7nOUMM1mfU6uLX1u+IBE1IvfDWihVp7w+WWIH3R7QkD18hpWBZ0k2uZNckriA/tdqNkA7abClK2sDwluzSRByzlcvJjuMcj/AH7E7460dSpZuzanUV9dD4IjIgqxxLAVmoXKKnBGNt8Ta5XZrvuh6Ei5eUE4c3mua5oyYbJO56jtiJa743euuqUq1SHxNqlVtMufDlZ1O0rL3E2TBZZY5e+xPuxtTIb9x1T4lelVDR6+l4+WnUmT/j2nevxfTJnxrTNMOr10KAA/Vnuaxte3bZZt34600uyZHcg2duxraW7iip29pDXlZuKz6v8AcQWqsew9qpX39SWvV20U08+7gK+Pve/VbCSM7rUCkJPyCqrW1ggezcVn1vyGrxt7SGvK3c1nVfyGoFV20M9nX36cWvr7mKWfaXDTow6m9NXp7wt1rN3XdNY3MEU1jdVIa/8AdRCAbpskGs2xOth3cD5bO8ggtcv2b5832Nv4/ZFG061LWhdNPv6zZma67BMfjkomp7Z1ezMz2n/jdqa43V2IW2NXTjZPeqGzRg+PsezVW3ezvKtiG0Kdu5UpSixT2xr2ZmXYJj8clE1PbPr2Zo7cEp1c0cn5HFQtS6OHZWbFjaUzcow7a/BXtUZaugtOsXxJBLVu2aRZT3M11kmvgm+9ZWs2NFbkn2hrRP8AyLxt+ky7Wa3i3uLtX7mGOpLPs7G5gimsbqpDXubyxn7qL+zpWHzKefzr7SGcs39cubtLR3j3NY2vbtss7yk+OHU0DE3eWnQUNK+aC3akidt6s9SrUq629cr6S7YmZt7Vk2Wa7Y1LD3FrK0+xdvdhb97Y2554fj+kbXda0+3qwxRyTWNdsbVi1WmuS2aZ9qXY6ezKxUq13aRRbO5Tbry90631m1FU12wipVnwS1blmkWU96yXkwSP+QVYZhq7FOWarT++px2Pup4D7kPyHfPm+xt/H7Io3Hz2fjlMEU9jXsX9rNRt0L8jxX3DDDsK1XZXqdfSUrELNvVsiyNjsrdhSRyfkduuau2r1L0GorNlu7bRU2fb6auQvj1Ow23qqM7Nwfai2OqrSS2op9prateGa7M2vNMz/Df/2gAIAQIAAQUC/V8LiuC4FcT4/CAXouSYcrHTCd5I+MA6F/RsXTHRyPoR4wBcMrgE0t6ufhCVB6c9Z7hqcPAgJo7TpE1uUUXHtjC4hcEG9CO/A7TndC1RhF3dAdSMojvR2iE4Ivwua9w99lA5Th3g7byR2uPQN8u5BTvBCQonJ9pBvmW46RjywE9mEx6kb4UdgdHjIwU1uEURlY8mMRdjsGTy7gJ3dGwQYD+3kgT1LivcK9wrkehC8+has9eC4LgFwRYs+XVgTj3Elji6J3uB9XLmRNb0YOrh2B0LlyK5HqB0LlyQOejh1ATjjuZq+DDC5nUDoSmno4dR2D0HZb6o9AF6dxYl4qCYvPYaOyR1HQ9st6Nb0cUAs47meAEQ1cdgLKLurSsp3QFZWVlZR6Arks9MovXHKLu5c8NXMdodXjvAcLLQmOz2HHurXLEBw7sjsObjvWjA6HvI2hgNkAxu5DucBPjRbjthqDew494VJC4Oha5oErSgc9R25T0z0ksFr6xLx5BA57BPfvJw4HMTstlfxDbAcU2UFB2U53Efcs6WZzGorPumd3AZQIImqqOD2+g8IGDllWInOVeN6cpM5qu/bYDyIWuyCrVfKq13tTymQgHseg9Vnw5YC4lApgA7BHaKz4zKz1x0x0z+g5WVn9ZIQC4ot8yxBq4LhhcUWItXBSerfR69tBq4L20GrgvbRanDzLE0ZPIIs8+CDEGLguCc3z4IM6M9RJ5hf6n1H8vUZX+w9R6n0PmpPUfxIwiMn1GUD+71GUD5j+PL93FNODxCBy4eSzkApid6Z/cPJH+PjWnHdArPkGIMQYseRCARauC4+SITCnOTB5vQ9CMouATwmhcgehxxaPID9z05i+rRhYwvo8InC45TujAnNysoFMX+p9QUcFBf6s9RJ5j+RTTgZyPp6ItBTymlcQOn+oOQSMnyDynlSFOPl9HFYBR8ln/Dv//aAAgBAwABBQL9XysrKys/oGV6rCcOuU3x/HoX9gIeNJXJciiD1DVwWEG+MJ7QaiemO5z4Io9kDoCnID9BCCwuK4/obe1npnz7od4e1xXouSJQPRyymlOCafFjoSggV9XFY7HHuh3WEVhY6YXFcVxWOuO1lZWVlZ7J7nCK5LPQ91hY7OOwO9BRPaPjWhEdk+FHdgou8LjsY8Eere9wUR2B3TUe6B70rCyh3vHu8oOQPcZWeo70FFY7tnYATvLoewPAlBY6EdAFwPRjcot4pvn1Dlyz0PUDwYKJ6BOCbhHoxye4Jqz28eKPYHaCx43Cx2sf47lZWUHIlZXJZXJZXJN9D6hcllZXJErkuSygVyRKwg5clyXJclyQK5Ll0ci3p9UfT6r6FfQdG+h9UCvqj6fXp9ceWUQsrHl69MJyC+h819fGkd0VhclyRcsodMrks+fRwQCcmr6rCaUVjp9SUfRqB6FZ6BDzWUOjkD0wnL6rCHT6uRaj6BH1wvr6rKaEVnp9T6/T6tCamhAeaC8x/iH/2gAIAQICBj8C+g5sc0i1iyxYg1uNgD2kbhxhGxjspaFEMoscSVmLHC9WUtlEzZJs2IRswZOzo9ON0Mu6H62HlkX2sS690KDUFCs0Z0BFPSjCbj3Wdty709Ll+aTlDwh+UWYinMrlR3877k/asfRYs70agTNQqV2R0FBM1AmT319IQqdJ1Yo1H046DJ0eqOp7+I//2gAIAQMCBj8C/jm//9oACAEBAQY/Av8Aq1ybDjXPMPAY1/UP+mvLL9z/ABrZL92rdXJ/MCKzROHHcf060soDD3d9EoejF/uEcx/lFZBmaLfJJc/VRFkb1VmJU5vdXd2YCrSXHhTLp9QYZlF03X9lKJTdx5r1jh+lGSVgqDaTXw2/DQHYf6r+H8Iro6WD8RMcTLJjjxrqax+q/wDDQGCLuGysmlFjvc/uq7G5O0minTBYnz77dgVxfMDlH+a2FAF+hKvlJwF+BrK5HU3jsw2cK7+H6Pnf1CjqdR5V+XF30ZHwvsHCujokzP78x41kMm3hhWbUMTHux7c98kfHjXwpCpG0tjS3YMrGystCacl5SMUbEClwtkN1t25k8wrg3D0J3Q5XFspHG9c2GoT5i/vH6A0shyou01eLZHzsdiqvClJFkXyr6HOxPj2LJKcsXDeaSFBZ35Yu7voLJJnKjmc0dTEb59ltnp30y9WE/wCW5Fc+kzf6G/dX/saS3gcv/lRhRWSQkYHZ7aWeE2df2jhSzR/6l4Hh9OYY2/8AWhNsPebjRF/N5/V6LddSAFzKN5rurTDJkgfk4kmkhW2YWs2+53UG1JfqIf4sDWVBlXgPTzCrirQaYzzNswuo8aLyQvmO3kIrEWrqR8yN8yPjV4ms480Z2j6XIh+NPyr3DeasPREhXPl8o76bU6hwsreVb4BabakG5yLX8BSx525cARhtoE3Zgb5idv0GO/Dsy7m+vt2CiskKkHuxpZIXOQ4wy/uNZjhMmEq/v9f0kjDGOP4cfq2/t9PqdIZxgwOOI3+jibX2UsF7ytsUdiaWCwAPxCfSDehLEfNbMn8w2VHuWT4bjx/x+jnm94LZfE4ekqjea5boeIo43C4seNfDjZpTsSo9XpvKvzo/14VmiPiu8dgjBwi+uln8pUWDZaKOlmUeYbK68Ryyp+2ulI3xk/aPRZPWPRQL/vD/AM/o4Yf9x7n/AE+lmfZbCiWcWG2mYk5PcFZpfKAdnHdWaPFD503GllRci+8B3ilMNukff20NTIOoXAtcbKtbDhWAtRB2GlmWXlXdbH0RDfnIvbuPoSzH3FJ+ykY7I7yN+vifojlOFX1SFulghzEbfCvlt99qedozy+UZmxO4V/aJ9+X7a/tE+/JXV6eWQG0iBmwNXyH7xrNk/aat0hUkS6SIiNioJzbqPT0yDNtGaSv7VPvyUqtp0KoLLzSVkjgQLwzSVC73FwGsGP6nsMkrhEG0mraaIyf52wHs21gET1X+uvMv3RXOiOPWKCSfAc7M3l9tRa2BlyrbNc7t/oLokOPnl/cK6jj40/M3cNw+gtupothtVvmM3kq8hFjuHYNMh+HB5u9/8O0Zvky8r/uPoaj/AJG+vshlkJzugZubea2t9+trffpY18qCw9VFjgBiaLE2gX5Sfv7F1GrJCPikYwNu81l6WX/MCb0DfPA/lbffgez8DMbqfkk7u7tMrYucI04mjrdVjEGub+832D6FjMMtt9XEZAb3qx7Hl/qHljH+Y1c4k4k0if0l5pPAfbWZRaGbmXx3jsCOfjQ8rd43Ht1H/I319l1ikKnYQrWr5Mv3XqAmKQDOtyVbj2agjbkPYinYSAaAGwdkxPu2ZfG/ZpyNvUX6+wyzH+Vd5PdRml5dOu3gB/CO+lijGVEFgPTFqUW82FZX2VYdvTU/Bg5R3tvPZ8Msl9tsK+IzPbZfHsSX+m3LKO7/AAq42Hs1H/I319mlBcA9Nd/dXzF9tfMX21hTxNscFT66eCUWdDbsWORgmpUWZThfvFXY2HE0NJpjmS95H3Ybh2LLb4UHMT37hV3OaU+SMbTX4jUnJph9XBaWKJcqLsH0GfAx7+NXhS6A+b0G/DozzPyplF7X31/bSfcao0mhdIr3dmUjAV5RXlFOdPEzwycy5QTa+0V/bSfdNdHUxsjw4KWBF13ezsnI08hUu1jlNf28n3TX9vJ9018iT7pr+3k+6ahBFiEFx6uzn5ZR5ZBtrlTrJ/En2Vzwup71IqxzkcOavh6dz/pNZtUwhj3ja32V+D/LFDOMM+0X/wDsa/F/mZPNj0ztPjwoKoyqNgH0FzVidtZVFh6EsQ2suFZS7e1vtrzn2n7a8x9prLmPtNeY+015j7TW01trb9dbfrrb9dba21trbWV9lZHbLEmApUUkuxuSSaNec+0/bXnPtNNrJEBYtaIncBv+i6debLWGz0WYDlk50/eKt29/0pYnlGC1ZKxpIY8XkOVfXUcC7I1t9FiMdxpnnxPujurJawXZRttHoME+cnNH9nrrvrHtwNbTVnx4Vh6fM92/hGJoxwrkU7Tvq7msOxtfIOVeWHx3n6Q5dtFn5bbb0wUHmxvW2sO38dAPgyH4y8G4+v0yezKRzcOwE8rcaWNFzMRe5reqfdFWds8h28KsMO1dPH5dsr8FpIYxZEFlH0q5t1ZrbKzbuNEZsxvV+wo4zI4sQa+EDJp3PwyMSO41llUo22xpIlOVnNr0wMdgmJfd2SqxsVAytXVaS8hNgo2UrZgo241f3txoh/ODjT/iLcguCN9AtCFZd+/sasq4k9iwQLmkf9bmumuMhxlk4n6exxpVXlh2sK5BagLEpxrK2J22FdTdaswxptYPiQttI93xoSalj1B8v+EU0c8ojEgsDRXNcDYRvpNIY1UNskHHvp9MVLFdkg3NRDbNxqOIHKE8zca237DQznZtNWXfvopH8x/M3dXR0y5m95tw8asnNM3zJd5/w/RGO0sdtWq0XKG89WVdosb0ZtByNvhOz1cKCawMskYCgNwHZ39mXYw3egTV2NGy5pDsrq6q8EJxx859W6hFp0yL9fj+lZNRGJF76LaKa3/5yfbXxNOxH8S8w/ZWOFZhtFcK81YYmvhQu/gMKB1MghX+EczfZV4480n+6+Lfp/xYUfxAr+2Ufy3FfJP3mr5F/Ek18PTRqfCsP+rF2wVRc1p/zGWRvw+qlZOmScoXYK08TKSdQ2VSN3j7a/CdNmk6ZkFt9t3jhWuMgcMocrLsA2cuG+tMJklKkBW1BHLm8TtpYQjzTsLiKMXNuNTTgMDp/mwkWcVORHMsSxljKOX1KeNacxaeeeN0uGwYj+Y1LOytHHDYEtvJ3C1CBo5IJWGaNZBbMO6p0jSR1jBV51XlU1EzsWbmxOJ81TR6jVyaaEIpXITtsKkeDWyamy8wc4Dvx8Kz9KU6e+X8Rl5L0kSq08zjMscYubcammAYHT/NhIs4qNzFKIZMOsV5QeFLCEeadhcRRi5txqacBr6f5sJFnFRs8cqQybJivLfhX4YxyQy2zKJBa4qXUZpOkjkHqnM1+6kheKWBpMYuotg1STjFhgvicKXUSa6VdS4zAA8ovutTzaoFpIH6UmXf31GjRyRpL8qV1srU8SRyTtFjMYxcL41DqMXimNgV3eNLIYJQ0jZIocvO1q1GSKRdRALtCw5vGjqNZmGTbKRg1yfLakjkikg6vymkWwan03SkklS2CC9741msdl8u+jDCpaSchMBewO2mUat5REMyQWww4V+W6zouxgb46WObC271Ump6EkcRiIUuLf8AxX5jo2hkEvO4OXA34GtNGI2LjJdLG/sptaYXlgmjCExi5Ui271V+Za0xNGJ0yxREcxtvtXTynP0PJbG9uFaTRJFIA8Y67qpJA4UNNooJV/Dsr5XXKW4276hfp6smLHqTnBTwx21qdC2mkkkdmMTqLowYbzUSupVubA4HzVNNLpH1ETIoFkzY4cam08WjfSl4zzsmUcN3jSaIaORtUhsMPhkXvfNR1rwtLFNGFbpcxVhb7K/MtaYmjE8eWKIjmNt9q00YjYuMl0sb+ym1pheWCaMITGLlSLbvVX5lrTE0YnQLFERzG2+1flaiNiVZM62OGG+tPJlOQREF7Yb99SosZ6q6gyBCLEgeNRJFpHVP67yjLl8ONSQDBjiviMaXTyaGVtSgyggcptvvUvX+dNKHccMa0mlXTPG0bK8rsOUADcd9asyLqckzZ4m02xr7mrQJHDIo6+Zo25it+Nqg6Yk/Cm/XaEXetd8KVRND8Pq4k+J40NKsTrPpmzFXFs2JwFaeCPTSRZHDzPIMoW3DjWqkKHIYlyvbDdv/AE4wOxVSQbr3UF4YfQ9PqPFjfNGbGvw+l1czwxfPlZz7BTxJHJO0WMxjFwvjUOoxeKY2BXd41pujBLGrycwZcXA91a8s3X6HU6V+Xwy/xVrNRqTqbJn8rWUD+H+avycwvII3b3mxIw83Gpiit0IL5p/dNuG81HmhlSKU5Y5mXlNNp+m/RAyhABx857qLtgqi5rT/AJjLI34fVSsnTJOULsFT61NTMGwtGG5dwpNQdRLKZIxdHa4xxphH86YiOO227Vqfy+eQyMlnRmN8N9atNTrJNNGtsmVjwHjWq1Wn1b6vpqLiQk2O6l1U2ulSWQZkCGyi+zCpoNTjPpmyM3H9bVp9Bpn6Tz4vJvC91RPp9S08ZPx0mO7iKZgMxAuF41GNV8PNEWECnADv76mgl1Z0mmgA8uBZzV21ImkYhUnQ7r8azR/mD6hlBvE1x68alXV6i0nVa2a5w/bX5m8crnLJniYE+UY4eqtDFp3KySxmVypt5F+2vyuNHKvqGHUINjyYNWtXU659MEf4YD2+utZeVtRo4MY5m7hci9HVz6uSJWJ6UcRsBatdpp26smmXNFId98Bf21p3X8yzal+aeBzcWPujdfsy6ZGZ5eUsoJyj1UsKaHU32u2Taa1RkXU5J2zxNp9hvuatAkcMijr5mjbmK342rRzLG0iwy5nCC5tST5GEbafaR+w99fmimNgzPJlFjc4bq/KIirjdIQDdb29lavQIhZogX0bkYEHdfZeoGaPUvLG6mcuOQfyqKMpidopowiuouL4baMMKlpJyEwF7A7aZRq3lEQzJBbDDhVyjdYqoZLHNcNwqAHAiNbj1VHAhaGLTrn61vfPCtNq+rJq7tklNsQvqvWskm0b6hHy5LJm3d9ajSx6V9JmXzMmUE7tlLpZtDK8sYyoyYqbbMamn1OE+pbOy8P1vWn1+mTqvBg8e8r3VEmm076eMG87yjdw7InynJ0SM1sN++pdVJpDqoJ1wyjNlbw9VH/1lkYy9T8NIM1k7hxqHVrpm00UKkOXFix4VN14Bm6zWzrjb11+YRuhRHlYAEWGXuqQzqQNOvSjzC21t1Mrqehpep0SRhzHcfXWtbU6F9SHf4ZCX+utU6wNpdDMmQRNhid9qbR/h2Zlb4MyrnUi97GteJ1MWsmjGSMggWFt/qFaTSx6FoNRA4MuoIsMN99//AGd//9oACAEBAwE/If8ALMDFtNETK33f4g3B5j/voAdu/fzH7NfvNzzQ0n9c67lFv5dp7sfHhar94gpbawPfAz2gqEdDz5t7RHsjVR90p2Iiqxlp8Cv8SuHIRoO6pXQ1DLJ2ZiDf8ff9VmELpRgPh8V3H5XM4wDmHvcHmOGcWFU9nx7RVoLWUxmZkPjjRaM3hbMnvBmHZD7phmQ2u5+ZdJV3aPNxctgFL0v+khx3n34RjA2t/p0aY+RexN+fbbax38w+i6g0IPKh5P8AeDU58RPzC43Rbm+N9RZ1fVM+yVvhIH/UAdjjb2YMl95w/AHgeaMR2Php8ezHoQ5K0HD4lQfJ9BW4tMlM0Ji/vsP6AKYbSMrEi/8A2K+YPLVP5YVUQTotj7qWVR4gwDU9t/UpxOowcbe1xjV5z+X4m2NKV5br36VEiuelkswmkiwWSAG8jWa7Q3X9mUaX3n8EXXeiYDnCcownHIvDFT3jm5166khw4BteDRDHdUteU0IQdSD79prX3cHglE1yx7RSpVRumNnYuGm7W25VHjzElKxeFw0Y+8rRDQUZ+gQdJG2kFamUzbke893tHD62qWfiodv7sfzO0cI4H9JwzEkrx/i5PJ6qtWu7/wDopSG5hHzy9eEtTMrKOy4RY6elCqqVDkrdBCkvVStlf4ZRW+dh58Q+l6Ke9Wp7vEMzfxdW0b4JtrY0PcJkYNgiDZW/N/Mworh78Dx6hiLPgp5fMEe/WBDptENE7C+8MDtwdBBlLXZVmrZ83vQbt7dGgq3N5Q+OpXpLs2ZIHdjPvz9BEYWe2Wn8TLdn+A+3pqUaV9mfzH25e/Wh0ZEkj7wuqDk/pgVsm4VFRqBMH3NxbjZs8J8pmNTd/B0JUB/nll9CJjhDu1m4nUMu7/plLG1vGGd8M3E7m+9cerrPjvyb+n4MvT0i5ovA/wBswErK9AJZvYULy/xKxfdS5NprA4xKELUFrw7PMTWMyl+JifbBfZWazhHiXa6Vry4YEBgSCnt/cwWD9iAKIdgqU0op+YSntNy+F7SzmpbrKwFF3f6E+hZaAHzX9oXV3nzx6IoFuCJNjcS6axHcnFJoP2HmO207s+TlgpivX7XzM1MdFwVbdJBGg3n/AGxGna2gR9rlSV1UzaaUoqzmo8yxV0N+Fqd/975lKuBxec5+Zu+uSVfa3EfTEy5S6XY94w7YY2R5WNL9qDqldjpLm/thPxiWY421Pt18ypbyEz2MPH0EzhVPbm/mKVKgHf7ZfQVmXj7zvQGM0S1WxSqt9/aYkt0MsnE0m/sx03M3VT2y38D9MDCXa1qUZx0hobOI0Oi/LQqLTSUeAiLEpwh3eWYCAFTZnB2F9iUUlx/bMwVX9PgfyIh3BCTrtIy+1NdaIP2k8HMs2ur7P+T7eha1b4jwAyzsSHA1VziLCLrXQG18i0fbctD27HK7iJLy/wCL5YlvSGHR+0wWVM8lPf8A7Mx0LcJ1oOZ2MUeEKn7i/qGLrAQKbs6LrW174el+EnhaZoQAPY6bjfiAP7hqY9B+Sn8dKGpoPhCJStpHs/K/7C10j4Pry/nk8TzOoEoZdrgAKDR1sbVvZ/ZHS6ecG2+0GALQ2n36OR/MPPyzASWFidnrRpBhy4QR/wCB/wBz/wAD/uCAVY6SfxKcKn34hDhPczEeN8MM2JHTjLu+0XlPaUfdlMGp9nTueeiY+Gn95mJY/wAoex5luiaEweG/lhljUH8vd9BpZGnCaDaG1ddpZF4eTrqMaZcmPYlLa8v/AAmAI2DYlob1AACg1gn/AJhNDELF2F6Ygr9v7S6SM2Ly+HRfwQOIuzE/bf8AU/c/9T92/wBSr+3+0ecJTCPd0P6+td4e5FtHFlfl0yufszWQEPeBH2ZiPJ1n3QIS2GLg/hCGshh5Nwtt2qn/ADvECuOjUB49DTE1cAoJx7wJSdB9CJERcUbMmqYgjRpTHfs5/MBfQ5P/AEn7APzP3A/mX7+8/wC53b7s7v8Af/ad3+/+0O7+/wDtDvPu/wC4d593/c8z7sv3R/YrSKJ7M87OdnfG2XyUENHutEUNuu7GqgfE2wp/ZzGTMzmijyvpBDQXJfPtCUHYZ1gY0XKmH6cLWa4z/dNC+HpqUjSaZnTR2fVyhB9P85To+xH+4rRR35jRe3aHBSh5jWfPfW35fSHxvyBmdGa4ASz4hTMXHmH0CvjfK1n4JxOBhHvEwyJhuKL2xLt/eilRPLmCXx2O4QSdAgbMCX7MqaUa2M99E5De3P3irCjovvBJ5/p69RBBZME09+fgSjkRUAUGN3ALVnW44INN/D+Uq8yjeILj5OiQRQ5y1GUDK4ItkH3Jc3vtChbGvCPnvD4y9iONl/v7sqNyAwP7ZdZB2Ou3UHsHM+/BKofeIerejDtO9d43ADCFMRWeyV7RK+HU1G81UGFsHa8QH/GMjGhjoFD2ue3eAmEBjadYigFAWtXMFyVJiF2PMBjpGAcN8nMLmLOyObvxDAXSsXfYOY3UBjSEfcHM5jHQ4Mp2rvLCkoPI8S0Qsu75lCcW87SzNqDgOU4DmB/no/1nB69KKdmbkml/Est7cshHAwPmD7gqhftNEclRRYC3jiaNfutSq8PMNtbj8inMYAu/nJshRy2tOnMeGFJbfd3cUfmpQdu/ZhSjO+9EKCwOWa/EQ2l3W4kZjobSaeIyTItGIuxHCssuyC/cHr7qecVtnY7Dt+jBB0xTk5UwYY7QMqdrjHMXWCpyE8kTebcJ+/8AhqKHtVXBjvffpsIjQ0xuuXzB2h+XtCDoEyhRi4nldjghHCb/AKqAXRsfg/2Qkg7ra7ra/qkfFlMns7JkoHGQ9g5+8Xaj/wC5GLWTs4fzAPBkhO7GxlOx94N/pEuN7q+vy0RJb7/8RKvvn8F2+P15le4ab73L+Fn7y/uW74/55i194VX7twCgB2P8splgvYC2XcFrBNta/wDJhBfiljNkhaB8FoBxzdoFQRgr0C5B3HZUVe8WX7p8yR0s0BDk0t0Tilr8ymk7Mu9nSY94Si8iZizeADxbTbifLrUOZMyS2uqu0zh5qLqTZ3Y5Y1MgEcSizu6mOyT6K3oIdTS3xO918T5iNjVoCF9pbonFOPzC5/Gwvdea5qfNkdrNAQtMtke1LX5n9wRoHLXgin7kX8yyiW28dxW8N4IEU7KB4RYYoMF1dS/a7hYZ1qtYh78TRHKBTrge8eNtXmdU3eeITWMDPlZNN7Nnuo04rUXKujIpkL1mJNYw0vVLpDb4lZzdOMaDtWqmgV/HKm3cZRhB8bTN4HMvz34C695szy3IGtFYlueq2nWTntGdY4VWhb5zLGTUU1eXeS4GPjDdKqAci+IhIqDHd3S538DQONqY0W74gZHNtQGjX5M2nK7i6nLWNNTnuRs+yvdEnedxU32oOZQXbxMJ9EYA6SqzB2JsbscOYJwl1cMsK4gsjUuYoXtD8XE5jV40xJ9+N0FYUvaaBfsYMjm2ohIqDHd3S538DQONqYwybsVMjm8SrIeMgypWPmOI92FXi6Q81QxQ1h3lZRtp7UnFBiurqX71UICO9VqEL7ZqP3lOywPfvKe1ZPbXa8RaVSHIdTSXUpPnics3NBAciUI+wYa94m7JW+FWWy3a8Qm53pzbXeGeYJ8pi5QIiAis7hpx+ueNAovK+bhDZCD49Hs2uEeL7TAda4BHNNX2hNYwM+Vk03s2e6jTitRuI4AMGxcsantqwq93tilQmtHnHQLxH2B4zc3jUYHALV2x2ntMOHyCLXe4g30gFBf+MUywXsBbLuC1gm2tf+Q2qWqG3CFMV4LRaSwRoE0G5CfFy2lTiUGF33IlOqyitxRSYFWEEvmG1zMR41DlgqIhizxyD75TIcYdL/hlIKtqdyZzGJrA2g0e8xKmpc6uxwyyjO4XhDxlq43QIAtX8rARmAWJk3il81MvwC31qnhHWj2GJ7gPCK1pguUsRyGE3qWo2kzlzMON6Wjd0dlGox3rItglvH7zMSRZIqz3ncB/wZ5GrMPHIFC6eA6B3EoijLtl1FxPIn2v9RLewPKdTSXUpPnics3NBKnjqCw4PaCQ4zylz2Dwj0BnIHClZ+IUV40KFcflLIsSbzwF6ga0UhNUY+9S66dYW2cBWZszy3IGtFYlueq2nWTntEXBwJhcLzVwkECmEQ4Y9mdLqwq7QpjnvNtwVrMexSsoIWVawWlK+0deX0iH5KZRWNFHDBf4hIe0nlB85TMcIdj/AKZi1HOPID/XRAa7Ls7w4XKknKroBtXuG8czYf6hLKfxIEAYurj0c7R8FVW6jyJSUVnZiu0b/W0FIuW+fvCj7Cg9XA4tMuNaWBd0918Sk1EGxUha5l+GlpSwCqv7kp9+eGRl5CYkgIbbyt/x/wDHf//aAAgBAgMBPyH/AC42XlugyT9cLooQ9aVGMWTH64J3wTswL6hs9FiP3H6wC5XBK4Djnu6n7onMBnCalvQGZT+h7kphDpVdANblm4rcShb6ytzyT3RhiXKP0EEIdaNdDz3lBc+JFv0boJ1ynqnoQh0uKiBwSh5l7uPrApUlL6ghCH0PVf01BVfHQc3pVMFnpkIQh0WjoklblxCt8EbbpRbvDV0FGHUpb49J1606loIdqUIWsQ9pZrAd7iYMfRZSvprH0C2Oj0VrcurlFSm1loplPeZ7w70CPmhdbYjuX3fxATmWbmD0C4d8p0ExCAw+jklz6GTZi1dioI+5/fmYG+elBfWw+jTol/TVfSvUv13P1vZQo9BIxWz/AJgtIezrc9KiXHSp66dLJZEV03+u06WRQxfrats9pR8AIP0VHWjpcddOhzKldBg30q6VZelRHYg0bi36Cy6Uq6dn9fQcysAOuGUhLx0CpSUlJSbdHIGUmJSBxBZMrweiRek15My/rkxX6i6QJZlYjt1GPqaVD3ZX0sPqUGHT4H6AFH0nJXD0DcJM7IPqGEGUO4dqWQ231oyvrfqhUoaZacGGmNQi71AFmuqhCXBgy5mCLUAlmoRkEEeIvjpfEl/oQq75h8EMA/CGGKoqp3dAlivRJtk3CyMkveBCseXHPQAM25IFegLuWhSsOEWLYShy5V7TgJHosRa6LFv9APxqjaCWOHEu1Y8xIYLe0z60obip/a5j5XPeUMRaXqMGxTjx4ihcL48TJibOv4dL6OWEDu1GFv8ASGCjAdBmyFeiLWFty+l/VAEzj+sEkX0aSoQNRm/19/QL/wAwFPIJaPiGFwQS9aqO50RV13lkajZchFGooXuCgkcS2W5KlvFxXwRV13lvFx3OiKuu8t4uKFxWkQL3MZEmqKmscxVREvURa5JtxNjszWIr3ipfSuTxA4SgjvGil8ylkZaFd1KHgl/lAWhVZGY6/olEWinIF1Eyu4eRiFeFKHghWhXdShTtCgsveIPhEBuZyLN2VBwalLtwoax3mV9oDPeIprDEFuGEu3Fh7/rrV+lUxrZC4iXqItckPNpPYq5VQVORFPdl/Ernz0CnkEvShLsUS7wgEBA1ouIgSohQEEyaYVK4iDJUINHeU2q1hOktXCMuDiIEATcLvCZBRc0cLCxCIonM0eHQlzLF2QsGsd5lfaPZ3J2eYiFKpifdKC6m/ZK5PEDhKnhN2Bb3gUNQLNNRtjdxCxILg0QqVzKGW+g/lMTdJEb8bmjd3M+HiaPaDWOYfvZlFNSoM3Cm7iAVoiC27H/47//aAAgBAwMBPyH/AC9OisrKfr7jGejRLlwjLUP1i9Dump2ugyoMwZ7Qf1b0Gmow5HWyMNZ3JXoMH9Cv11sogUQG/rZb0X+hUVfT3OmntHO5K9QZfqvRfoVRm2F/bor67iD6jF+oD9Tw6Oo9J/RBEwKdKVZAejzLblstzLfS59Nj9LplksYohLCFNQDn6Cr+kaw5lZWUSkBKSkpKIUSkQhiV9YEJ9CgegXIKhh5inouo/Q9A+kXoRUTouqw9G+C9XoHUPV+g+t6HXfoWSo+lfSPV6H1j0XqWb9Ls+hlQOqSodElSpUrqnRXSui4Hohcr0T49RLintCDodB6VIbPqYnW/1VbCGB6i29CV9SddRUr3AfruP0A9Qg1EOor6GP1D6LToZZj9A9cIQZguNeqlSxrqZcpX1NTuR6G0D9GXiuhELTCaTNKHMZWYk4YrEGIpx9BHLHEP068V0SWZXSovpW/1xX0A9LlX/g1Sv8yLd940jnUGjMEplamRNIGF49UV7ysaytSsplKlYXYFQiog3mYMykYQF9THmENGumkWtxvDDNoaSCXFpS2ypTQRLoQZ5hZjpeCDeKqIFVNWlLbBLi0pbYmCJIoG8S4gziNIboRKXccCJgyylp0A/XbPSFzJwxhAX0Not7i6hfpvh0Fu+85JzRUTBqPcwQL3BOblkeaJY6C7Sx7RVG24fMGxjUI2Cctse+0DlLlk93RtYlBplU8xwJwn9IGGNgljEbe/RpFrcynSG4UN7mliaVqCMVKNw5slnXWKtVwEgzbXQG41xvhOWyHLwQQqBd95Wiv/AI7/2gAMAwEAAhEDEQAAEJJJJJJJJJJJJJJJJJJJJJJJJJJJIxmfJJJJJJJJJJJJJJMCnrphJJJJJJJJJJJJIfXjTU4JJJJJJJJJJJJNtVVyj5JJJZJJJJJJJBRQWQXIBANhdZJJJJJJKX0LZxZIAIPmnJJJJJJhNQWaBJIJgJNzpJJJJJeEF3sJ1LIEJJHJJJJJDJnHFQAzcgBBJJZJJJJLJAcjzEJ7QILJM5JJJMx3iG0xvXNBdZJDZJJJarA2ZIeO9JzB3JpJJJAYo1u/AX3J7pJ/H1JJJ7pJWS5IWAJpuCyMpJJI3JDalap7AxI2zM5JJJJFJB2OtBgthI5rpJJJJAxJJuuNwBJII0FFJJJJM5ZJ7uRXoAIncG5JJJJJci5G1L3EJdl4VpJJJJJACk47FXkTJhgPJJJJJJIs7PbQfI2jDJ5JJJJJJJJJoH1sRBO21JJJJJJJJJJJJMaMuCTJJJJJJJJJJJJJJJ/uZJJJJJJJJJJJJJJJJJJJJJJJJJJPlrUxiauPul0cycHx4E9GUyR9upLmyTBjZD32xJJJJJJJJJJJJJJA5JJJG3wZMT8WRByI/XJ6wg9Oz5/4npfpe7PP759gIDJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJP//aAAgBAQMBPxD/ACxEzsIDyuIfXc6tdi8rR/ln5M/89CXPkMyqG0H5gB+Z3QtWb704/XHbIQCvQD+UBgAg5td4PbRAmxi4bLF4EV01VaUci3sIiUtKpdGS1AcObwQGdNAEO4Biyd9mxKjMuDMglfZiQRKQOBRyj3ig5+XKgRBGx0n6kgr29A/t8EVAmFnO/u/qTNuEBe7L1xqtY/OoaNNtmPZARIaakKoKNEd8ezMNUO/mLUcqjPdViNoRyoRN2bihhbYUxAr8jNr3SaNDgoXQqutuIeA5eJMLWewRihE95nDuaPjtMp+wz9PWbGAzxw5Yq6cBI8ALC+WY4laSga0Qvahyw9jU+zaGyccQcuoyEtBTNRo20p7BIAKKIELfmNCopUoOatfePS0ktL2Kh89F1iUPEKprceupMQdO7vsMR+PGap/nEu3Lrj5t9MeU+YFGnDdzdeT6LobeyGI/EzgAExeaA/8ANx+gaeVyjwHl0SgBIMBsXL+84ggfoKDe7sq8QgDHaGVUrRMJkez3lAL00vtbE2PsYmJxDa/bn5hwMEQsF+BiIy4ratvs48QLlNAvj4CmujaPWJ2j46NBvdewPeDKopdKJTJs294MfKLv5R2480fEVGAQZ6jUvxLqSz3e1eQ/3KA29bMfa8PJn1zuGKpeu+T+WLNu1TtN7QEBRzCog1K6AVaAq+AJe0DAUGnBZBckuz3ljEZPh6oMI4W2Ux+SrSBYHMNUdnxBp0N1A5+KMCraDz1S5vgVCz4jE0+uE5HwxPsOTkeR9pZAgZK4vBt2O+YyBT7HKiiA7E4W91f4iKsGK4fSJf7RUx/BQW+fVBlh9nB/CqPLFHXu/wCw6GVAJTVQSsR/+0feKbDtHm4BqYFm7rmOzLcRlSz91KQQZUwVD8EpwcosM0DGWY8BxX1wTEgri9Q8s2iS1XL8f+ulHORn5LG/kg2BQTl4IB3GYOFWNlRwg3wJVlbSLGHvF8NnqWG2Eb0j8zKVC1t6erExXABcvGGmawG7WGA7DkjIGAUGgNBEpr3jnelfbxVgXRe2ZuibSTL0Kz0ImoO71ZOq7OYiKBbBrV5ph+0IGNxOyZILd4vYYH3+g+imjaRb3V90fVdkSdvwn59NNzCKeF8jaMy2uVyuV+WVpNHdhUUQQuUZDO1P4gECgbY0Vb3JgwNa2XtfAS5d8GDsvmeJYR6xvTSK/ZmAyiNZub7POo1cfMWgJVWY7Pgoj8LYYlWlKIschTla5+xFYaomJ3UyPDBwiILsLi7aaY9+I4/+wirmdXCC8YfkfQy/XFM7Fv4uHpGendlvH4YAFkWNM0VGVNS4IYXKyVh/1EZ+vGp8GbiDnW7Uu2j5gtwGYXmVGAAyqC1kKQa5hzirQwmGyycQ+ROcOE4LMk7I5yMgyafKN0VNgaHhKngc6H2KlcrVxtCmKQsqGwNysPESIoMHIY3tHxzMjIrzzq+gWBbT2h8sJl4kslLC+W49vRRIBlXBLBRJSz3Bl8QJLrNsDrc0yjGYVPxbBb+iEWB80ULtHEYFMToDK2iEuHZkgIFG8jlBE3OYudKQLStgrXusUjNGJDTIkUQqsoVuhpwmo5hCtqq37ziz67R1hq7whS6FBbWZ+EXRqgEWQgI8e0K+9qPAHKvYzDuiSw65C0ebIuAaUD5axZzRPNGbwXtf8o6yYiEOAgXs+ZVZnGk1SBl4z9F49LDQz75zO1RQlQFAMt80+4+hh9yKwFJRRfJkTAvF3DyBc4XAKwmezSpHjpnGLdYDs/7LigeCDSyWvCWtJk/fp8LBEsyOn6CmhZ3JznLgjThnjo1cF3AGUtyC5YILecEEjojAtX2CW0gtitAGGu1+CLa0eIJKi1jnTA1kqV9YQGHuqj5EbUoMBF1mMMiYYWgseY3VzLDyXLYRxXXJqrGmrF88yhjKCsC2EfB9ndAAo19ZZumNvMcAtHFW33lgU0QIbIAFO2l09zokiCz4Hw2e0vNUyii0+6xg6eysN/Y+6FfZEK1hrBTQDQw3UxIuw4Jk9i3kYtC78Q8bHkroF7wbpCIOlpHt08G8vDRlVAe8Iv4hBuh/AwgQ1VfYqc9huqf4GCOAWaAo6VUVsa1SvhT8Sh8NRH0AJ4F+T0oHFrGNZ/MdEF1Kyyrs7Db8uCCXZrQ/ldr9arMur5unJEGBDsNpdq9oOqIoeG6hpBgGgOuZbUdjBfJXwRcXLKQgnAyXhe4t9lLk4Uyq4IlkSoYtkX4d6B894Z4zPCFie51C1e5DYTqwgwi46HqJ46hrRYjyJPfQIoS3xdxWjCvRbzsqDGFpBkMIwWeGAsTUOR2GZw2DH7oEBqXb8huF5Wu0AAOCM0UtmggebftleSF4u/Bu18TEvAkQ3z3/AK24lYPz/dNptX0Bv3ke7bhItLthCyiNs2g9h56sucY6UQK1d81AWVMpYry98I4+CPES8R7wmsAGoMHE/YX9RGf3KplrTaHZihZJmZ9ZeJokt/BXS1Mp4CIUR6flXT46L8zFYivNygAQOROlFFoYo3W4v4fioeANwo8kXwXAAjkWu1iP3IAV6yh7hEgk4DY/uNwx4w5Rsxfuq+0biagt8chX4/iFqCLu8L/DzXaAukQEwAMHoEkyi7LlVkUWGjCAeAM/Qfx+iFhXsO8pWxxZJTSexKluM8p/KiAyTvHcq4E4zyhlAHsfx0MZRtV3f+Yxv3nzCAYSTQYy10YfdzTXqtj+zcp/2P8AuVpxka4QSmPU03sVlDVdURANUBrBlDqO3mFWWezMYLsA+xSCY/mY34xggSNKKlcFkvselVKe5SuCFjFYpE2ELrcdWwJZs+nARkBQVXwZShThhYVzxFllWEwu51vyQUsbPGYv/ZRKegVGeiecDNdx8oJmaDa6DzAihodvKB3RwtNrK/1BZfY/uUgQnOShfBtgo429w/kH0mNW2B2CMFfEtTSRW9bfYHEfLLn2Dq/f6DkKlyH9M96iUmp0iDCJ4joyunkgIDY8y3Iy6B8P9Rfakz+xEFXIZHci9G/BDh+el54neHnB73FPMuRLy3uYHyypBaH8YF8Zjm8mUN/KK9/Fv5l1q4NzXZuYXAX24ve/UtXIkWr4lL/JSa93m5XEJmFCuYaFeiqSmuYbI2k6rWeAcrqGm3290o3o6YyDa42S5un7ECswu8DUYlEC7gZmdtgd1aIrEmllW9pmFgYVhuIIKAUtsWO8ah9grgtAcmO0Gy2JweZXNAMT3vye+JiidBRPJLbB3KAEhDCdmraeWAyNXgKz3Xa+qgoHPo5B8oPHgIAB5jjRMTBzuVIKKI1kGIoYNFphii0FCi2MxB9BrHpEiDWmcWrC05cPMCWtWHtKyX5lB9UrawsM8VLECiV5kbFHBCLHHfvMiTrxUUmAn/I41OQi1NK0OI0gqKoRvJayFXcgCjxeLq5p0xpo2u6dkML0BYGniyqqjJw0U+cyqdyhpdQ/zGjko5GHj4jgDKviVKOUj8MT5SLS9gWVH2K7CqXHJq/u9doNdhZ+ZWciwdpwrhczit1mt1H/AFreZzF27K6tN2rUFDOTwh5jXTJVi/5FZoboVRLrt+6AxXvuSr69tVRHAOmiNBt3mI8jniwAoKMZ8gkWYRe1KsY6Rw8g1aboPuTRmfc8GVr9pDFXTNG3mWS72pfdlUzDiHQQQD5qi6jHKvaGffmDkoOMHLURPSI/G1faJ1Sm0PaeOduXiLiqCOhZ8018nP6MA7BE94Dy0Ptp0FxS4LKaYr2hjhza7xXcxC0oZyikTDcXlbet7e+e77Izh6FRo8ORG5aFt+Yydgm0iNiJKJhLbyt3mYoADwBzHknklO8ugsp0WTX5149ghded9QcUGVXtKgiAxucmr3+yVYfd1Sr+V3f1TdAaV/c6T2YQ1a22Xwb4Ms6hKb65yp8kFVI7/jKMT2xTs9yKMd5V9mVrHWykpz7YbPKwfpGpA/e3KUGOhuzFJ8sLKMqgjzZK+I/X1RLZlc+UuH5F5/gKKR9Ildm/aI8iyH7YKCyvQAfY/wAsJtJdLJ8BEC1UqUm1ptMfnGwoxspyCsNXKrjVaDShYBioX/AzlOFjb+ZbpX4NiYkjYHTuNqENA91wDzARmC5g3FNOGIiv0vABj1ygmMMAYSUIaC9PdxVkMK1S8Beb1FzjBUy1QFoWmIL0CrbKx2DDeswgv76oS3VojCJg56MVikMTzp3UQY5F9oVRu+9k0ctufsm3tG7yWqBrMIscIgtm2ppwgAysJsVzYiKYauVChFA91wDWYzdiUQ1bcN09krGFVayWgW9hUzqzMR9UQRcYhjNMWttmNDmZAPejcxjgS7oNneZG4j0SjsrPaNtSAq7IsDLCuCF7WhYAqU91TtcGqrGiZSBYskEKAC0XkyBlCaLno0CtVlgjNw13IwBa4xFruUXzmaNBdzbgAb5QSdiJi3C8zBj3QaGxV94gQnADVSg3BPsE5nwbrs3uUAyc0reXAye8RgWgpiAVUUoQsfr8gEBlzdckBwAcNCUsBFpnmW8IV13XnAGyM5vqxzBRV5siMk0mxQ8Dnz4grUpqQzgo0byypUlVsRwbGquXItWvlIR0qJijlg4lJPvl/wCRwQclg95VZDAzz7SlTbEK4A5Le25Wiv8AVqWYLJQ4qm36OjYw3EG727ZKFDcPeO3WRYbEoWfOYyxJIQbI4MN+JfdDags4KNG8sZzfVjmCmrziIyTSbFDwOfPiMzQNjecCrR5Y9WOhMs7E5gtZwVJUBVzq4QxTwghFrEneqhxdRcwM7dsJ5xrMxNyHohXZWe8S70x1WGFci+8S4DYgRCph5U5ahC9l1woqAtTweyeRiZmA5BOswt9pQUV3AZ1zLMkylguqW9D51EFmGdYNywzewxxM4nMjSlGWvnHMvl6qAIvstqux8DmAhqXIs9g/rsepSlqBUfiIgoh2gDP29H8vnl4HK8y6SdmEVCarfNujIhQAWi8mQMoTRc9GgVqssEZuO522vCAfDvcKrbqO7Xd5tq+Y/wDUZyDZT3rgqJMm1BwsjLd3Crqgge6q0LbP5EQjZSnikYL8Ql77Cbrltdr06gm0l0snwEQLVSpSbWm0x+cvNMSZCgFZ3uJjqAtai7HA3qWZ0gglJMiGic1Kfz1T1jVZa94keWqKIgOdErgZVOFLZxHBLQHmYcLBxTRX9wnrJwZUKoyC+SnceOkXdnfgt9mcVZc33PNNWRTsAu+auNATGkCN3RUULRmLEjnp/g1DdnzgQ7PgNBxdx4g/oLSjbm++blNJh0gQrV8hEPobviwKWGi4ItLpBVWWXhFZeFoliih9yMsnPTyMyFQW7r7HFCV94gSE2q/QEgPHJAkPWEy/uFd2rWUX8D+1JOdnZbODqLTk9gQbHJVV0u4vUaTAjQePeYA6XiwZ2uBwRShGXZjyCdZhb7SgoruAzrmGzaTJFmZ4+8RzUA3tpKF5tcNtYwQJLF4jOt5Usx2VeYaTKCwd0ElrOWzUL30UTYQe9MTbmXxq9eCli5U6JQDJzSt5cDJ7xGBaCmIBVRShENkfetd+F6hzyZQGg5EZeAAoEMFjjhDKIwHfazd00kw1WQ7cewyg2x5Xr7RF8S9QxOXCVKKLtD8pjRy0CyylcFcxaq1dOvySujObpqUOLFBqmZa1a1rQPR7g5qHkUrlq4SlIUhQAO52ccksDNNAAuSi2rdOrxAlCRIsCjl7fBH1QXYxpbW6rENWIhXHQN2NItTuWr7AHGRC1twnDYMiYMVu7szxAFVfCLEymQOJhfGC6hLvZ0UAhnm8msQlwytJU0DnPMNxIgHuqDb3uTb/C0XdZ1f8Aif/aAAgBAgMBPxD/AC+iIddgcRDf65GiKtbf3uE278RHvANVCEkSsR0NkUvGv1YLDut/xMFqABRqI8Zme9O0ACiMDbXaXFLnH8cw1Ys/dynIY/VsqIAqWoo7TMVKQPsi9Ea3FrD7QFxSd47eHuhm89SolfRcRivx+gqAZ5QZEHQGhUuWJlDItGWHeK8TxB9ZXBluoS6i1uoZpjun168sNghhLlYuOahMzdnPtHRQhqlvEVWtvokstEoUMKYApm99W1gcQVBDGJUauGQsb94YXntiioZi9YPQBdfTcFpg1M9i9SogroMOvACV9AnUYuLoJfD6VQy98embYeoYwkXiB3TDXnHtAHAd0LsnaN0OnnEUnc7XCqjhneymCGXpbfb0xmBCCCM5gRGBQDDfMRTaHVtwwfbbC3PwnYhLTMVdwabl8sn6b5cfRQEwvf0TCqgjFcmLye5M/nL4zr46FQGAf8EE/wDBK1f4Iqb/ABAFXFG7Qu26UNteCfsEKKZPglm1n2JZqr7dEVEZ2h0zgLNFmGS+jnTCGj0FYMBrYygTUHN95R+0+NdoBcDub6ZRz19+Po0e3Q6DrS23AuEfPS9UF+4Y89CqnVKoPoBcJdXzLdMDO/d7xgoZpeH3l9MV0zXM9wOmk09dHt0S5J5iXuTXQ4+8YuI9Fh0Oft0d0SpG4i2/XZQzz3HkiOlqe72lDcXrlOXog7gGumO566Pbo1/eWlu3ShuCLOjKzUCJ0GJ5YrjXSARW+hjOc7sf9fEBe3oDTy+Nx6k5anlIwpzLZcFyck85Mgt9KTJqecnnJ5yecmzppdRviCaSX4RLaQHcxiICK36FwqtV+8oRm0zuKXP0oSASkHDx0rrUqVKldWLivH7X2iHACIglBFWjXpXyUy7/APnvDdeJgur5x2+qh6ShSU6jrGVGX6TKgd7ixegrb9IWLRT7ME6TbysDBL4TN/8AZTkUWr8c/Qbg9BdBDQuEMCWxoPMfr6lzRkFW5YsWMcHqPxJpS6+IW5CJz++ZXanE3js+0ZA914r3hhLXPXg6FDqEiyAArol2h75lqOCUFnZrh/mV44AeHv5nyv3i5VUMLLlRFt9UAVwEHte4qX4CWAonNM37Sh1WsE17x8WllkM/4OvealVBrOPn2hdpos1DRLG0jwWXRllqql1DQAh4K4eP47xqqwJydqDzHtCsKPyvBEAS5Wg/eH04Fdv6gUiyBb917re4dg01ir79CrDFsuVkveuNRAi3/wCnvWI20Slpvjrm+Y4go1lVnJ++YnexjmBN2NAN25Yl3mnvEY2HLLwRrZMUiAhTw7PEMwHfR7Gq3AkU5d5Xft3O0GrtzHqCMCY7vz+I1wUeII1CZFTkRqvRCI/6RQj4AdMqhNf19psIhEw0Re7+8dFjvpQb4foC2A4g7sQTBFXf6oU6AsIaSo0W7RXeIBo6C39eIlpaWi/8uFtEWUKTcdhwiucq6lH1xj+41p7OYDkdxgDh2PE2K16/3MiQP7qDMFZWCDxxMZUF45gCDx/ESqFnMVQH2ThvwXmEqoHLAHDseJlS6OLzAcjuMCcOx4m8FDi8zOwniDKFpxiIAlN1KCKwqfeAnSLIJIimw2QAktq+Ys0hexdAy3iLLE7kp73jt7wwolN1xCdgHvKzUOQxlG2qXzDcTDHaFVC9kSKlYJarxmMVgDzzBFg2y8Sud4h7kw4zFvjTDdf8iMXlxyhEACr7wFJ4/iGgCvvUqEave4kpH9/tHQIK55giwbZeJcrxmMVgDzzBVo2y8QDXwwKrz/xCiuMI6ULxWZQRWlz7wzwFQ2IbEO8ChmKf9Je6kLLV2XqbStlS1Uo441LEDZRXMCq8/wDX65akW2/Ry1D7wK0WioASW1fMWaQoWCHfXmX56F/97QuU17+/tOCLD/epQ37HMSGlJs5jTsftr3gW0RZQpNwUPcrMuNCniDm0ywmKHEIhqFUv2jhoO8YNBcrBZwigBcVBbDrfulCP6SYDQ7MYqjyhRxUgMhqmKYwNfdhKTAx86hg2xnEB15RH6jW1ixKFkgANGn++l1eCJc+/ArZ4P+kvdSApkO5FB2Lm9XoIFsePMsI7xFMEiYrfywqmy1cOQxlG2qXzBtmT/EV+8xkqVVXiV5OZKKKPMCUVe9xwUPeMGgqXoo5RUSXFdAuXmKA2ntNqGlO8QzCX2iU7DTLrjaCMNtrftFBHTfxDBtDOYIkA3cL1Hc0y1VtuILUYP/jv/9oACAEDAwE/EP8ALpbYg6gdyCOv1yDfRNHECRM7ipaUOYhpgy9Z3+rWYYeC2I5hSMNT7ysqugmjO8tLcO/1aDMO/MEULYrFwpaxK6Nnog1hiqGZ2lceOr9Kolh+hs1LcRjKiruVGydQjRtjULcuU+tPE8E9kSkGoN+vw9Axet9+EYnCLWondcAa9FYjKlEA+q6JebYjmMYQFdRDZmOopVXAfQX6kgVZLD1HmWRj0DoNdZ+lagj3dGfuPSFkWfTWLiMYwgVrvE6xDgmsGYofNBbOl9O0b4XFJpNypTv0j0zxNujGEOxiWVmc4gDbNDEhJ4RMgzKlSpmL+m819CwW+iECizMKxUYIzxzx/mJzU8cXbqHaiDog0E8f5YjCaiBREodLiJeWl4DFuz6OCVHoZzmWaHMUV5jcdODrU/Rt0FJSU63PTuSsr6cHWghtt9AghvFTMhnqqOlzBT0uOu3SmUwN9HXQ3116b9FqArx6AWuD5vpsa6CkVelT126afSlPS7px9Bm4BAcmB6CiDqZwFn0KiXi31z4l42s9EuXl5aW6gxUtKZaHdEmCW5fRVUS/b6g9G5l9QYpidOBDQbYLAzBOT0ja7zLgv6jiVRJkyQD56V6bY4JudiXNsPSN3GuYJBJer6HUToJEguQxO1mplBcfWgmKo0wRtgXKPUQOYi2gjFwDiJTT1EUSJEiSpiXoiNdBy4ZVUdBaG+tev+IS5aIisalS5l6ooV6JV1HwZRd0bqrXMqBQ8RsnPaAo6In3lKzuY3sibFdDlLGuoFfoF+CBHKrLz0oBcymmSb27jtbS+FVyhqEJWvMIWXXPmNtqGGldK6YGZw4A0bemFfpHd9BiHMCWwpbxHqAlfQ4LibTH3h3frGWGCxgssj2xSzCAr9fUropK/wAutZhg3ChoO8A7lSwoILv3gKtsGT2gEaaqFRQsYLwQ1VI+YGQvHMShYy4qENrEzwNd4SrbBk9pqaa7wFW2CJ7TUo0w6KR8wzc15hLVJcsmDWq5S3YgyFJcIapahDgylXTKI0NktvALSJcNKNy43E5ncVS4q1uJwkKhSo3EoVA4liSpRVkth4gCDrMxg4lgeHeVWiwILmDWx/5CsNHaZEXEbhYnEqUVZEoVA4liRJRVx66iUfH+4pnNxABfMsiDUq4z3tY8AlRbG3aVADuASrrmo2hycwxLJE0ATMaz4/1+uI0wK9GlV1BUpRuENUtQhwYuKHcp33Wo7Zjj6f8AkC1aOYCzDTDRNfvMWswwbhRgQsrCy2TW7YlG3GKEIyCwbZWxLDsj0xXBxTZzcXEb7Wpci0Im23vCaWhhtzEWPMEDaXECO404iObWILZT2hZMpLqOzx0Fg3DqILS9u0qAHcLkGmAt+IbXGDKKONQAKWHMbL1hI3E5ncVRPkmr2ikGAgu0LYbQpAQbZWRguzHpmqDylHN9EaPiWioZrF51ClShDps5mknMIr4xCZatUaMxHcFhMAe0Z2wiDaKJz/8AHf/Z + + + iVBORw0KGgoAAAANSUhEUgAADKAAAAIwCAYAAAALLPKAAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AADkeElEQVR4Xuzdd6BvV10m/JMQgtEIEYKCFEFRFCuWiA1RwV5QLKjoi2WUsSAqdsWoYAMsYEV0QFBRUXHUsQ04OmLBgkjRUQRFFKUZNEwghMz77IEzhORJcs8567fP3vv3+ePzz1Ju7lnru9a997vXs/fB//k//wcAAAAAAAAAAAAAAACuVR0EAAAAAAAAAAAAAACAQ3UQAAAAAAAAAAAAAAAADtVBAAAAAAAAAAAAAAAAOFQHAQAAAAAAAAAAAAAA4FAdBAAAAAAAAAAAAAAAgEN1EAAAAAAAAAAAAAAAAA7VQQAAAAAAAAAAAAAAADhUBwEAAAAAAAAAAAAAAOBQHQQAAAAAAAAAAAAAAIBDdRAAAAAAAAAAAAAAAAAO1UEAAAAAAAAAAAAAAAA4VAcBAAAAAAAAAAAAAADgUB0EAAAAAAAAAAAAAACAQ3UQAAAAAAAAAAAAAAAADtVBAAAAAAAAAAAAAAAAOFQHAQAAAAAAAAAAAAAA4FAdBAAAAAAAAAAAAAAAgEN1EAAAAAAAAAAAAAAAAA7VQQAAAAAAAAAAAAAAADhUBwEAAAAAAAAAAAAAAOBQHQQAAAAAAAAAAAAAAIBDdRAAAAAAAAAAAAAAAAAO1UEAAAAAAAAAAAAAAAA4VAcBAAAAAAAAAAAAAADgUB0EAAAAAAAAAAAAAACAQ3UQAAAAAAAAAAAAAAAADtVBAAAAAAAAAAAAAAAAOFQHAQAAAAAAAAAAAAAA4FAdBAAAAAAAAAAAAAAAgEN1EAAAAAAAAAAAAAAAAA7VQQAAAAAAAAAAAAAAADhUBwEAAAAAAAAAAAAAAOBQHQQAAAAAAAAAAAAAAIBDdRAAAAAAAAAAAAAAAAAO1UEAAAAAAAAAAAAAAAA4VAcBAAAAAAAAAAAAAADgUB0EAAAAAAAAAAAAAACAQ3UQAAAAAAAAAAAAAAAADtVBAAAAAAAAAAAAAAAAOFQHAQAAAAAAAAAAAAAA4FAdBAAAAAAAAAAAAAAAgEN1EAAAAAAAAAAAAAAAAA7VQQAAAAAAAAAAAAAAADhUBwEAAAAAAAAAAAAAAOBQHQQAAAAAAAAAAAAAAIBDdRAAAAAAAAAAAAAAAAAO1UEAAAAAAAAAAAAAAAA4VAcBAAAAAAAAAAAAAADgUB0EAAAAAAAAAAAAAACAQ3UQAAAAAAAAAAAAAAAADtVBAAAAAAAAAAAAAAAAOFQHAQAAgG05uOhiAAAAWKPz423jorh7fGLcN74svikeGj8aPxNPit+K/xFPi7+Iv4m/j5fEJVfx2vg/rM6lcbiGL45pbQ9N633oD2Kqg1+NqS5+Mh4T3xffExfHN8YDYqqnT46PjA+Id4/bxc3iRtHqkqL1pAAAAIBtqYMAAADAtrRLAQAAAHBKzo3bxwfGveOr4nvjp2MKkPx5vDBeFS2EAHN6ZfxjTMGWJ8fPxxR6+o6Yavcz4x5xp5hCK63m90LrSQEAAADbUgcBAACAbWmXAgAAAGBHzo63iQ+L/xTTV0p+If4s/jXaJX/YilfHC+KP4ufiu+N+MX1h5R3jTaLtm9VrPSkAAABgW+rgHA4uuvgOcUW0hgxj/V5co/kDHMlZ8YfR9hhjTJ9Bb3PP6Zo+Rd/WC2Ap3iPa+cV+mP7+0OoCmMeVccnrvTz+/vWmN8JOpn7EtE9/OR4fPxLTpbMHxQPic+OT427xLnHLmN6C3PY7AN101rYzmmW5LN462hoCrN0NY/r7/PQVkwfHk+Kv4/JoZyLwOlNA5bdjeg4zhbQ+IC6Its9Wo90NAQAAALalDs7l4KKLHxWt2cJ409tUrtEAAs7Yp0bbW4xzl2hzz+kSQAGWTgBlvwmgwDZdGs+PP45fih+Kr4/PiY+I6XLbm0c7FwD2ycdFO0dZpul5SFtHgDWZ/h4+Bci/Kp4Qz4zXRDv3gOOZ/j38szHts7vGm0Xbj4vU7oUAAAAA21IH53Jw0cW3iunNX62xwlhPj+kLDtdoAgHXa3oD799F21uMMb0Rrc09p08ABVg6AZT9JoAC++2l8bSYLuZ8e0xvjJ0uw71ltDMDYEvOiWdHOx9ZpumL8HeMtp4AS3R2TH2X+8VPxPTnzmujnXHA7kz77s/jYfExcX60PbsI7V4IAAAAsC11cE4Hr2uUtEYK431yXKMJBFyvL4+2pxhjapzfKdrcc/oEUIClE0DZbwIowLV5efxeTG+bf0B8aNwk2lkCsEafH+38Y9meGG09AZbgMHAy/f15emnU9HfqdpYBp2sKtf5hfHO8e7T9fGranRAAAABgW+rgnA4uuvjCuCRa84SxnhM3iGs0goBr9RbhIctu/Zdoc88yCKAASyeAst8EUICj+tt4QnxV3CMW/eZYgGvxpvHP0c45lu99oq0rwGm4RXxu/GJ4FgLr9Pfx/TF9EXQKkrW9Ppt2JwQAAADYljo4p9c3Ih4UrVnCePeNN2oCAdfp4dH2EmO8Km4bbe5ZBgEUYOkEUPabAApwUtObY/80vic+MW4e7bwBWJJvjHamsQ5PibauAHM4K6ZeyjfF0+LKaGcVsE4vjG+Pd4x2BuxcuxMCAAAAbEsdnNPrGxHT2yZfHK1JwljPj3PjjRpBQPW2cXm0vcQY0yWvNvcshwAKsHQCKPtNAAXYhb+M74rp7bE3jHb+AJyWKSj379HOL9bjw6OtL8CuvGt8R0xfSmjnErA9U8hs+sLRm0Q7F3ai3QkBAAAAtqUOzukqzYgHRGuMMN4XxVXnHuh+LtoeYozpssSF0eae5RBAAZZOAGW/CaAAuzb9u+VJ8Xlx02hnEcCcHhntvGJdnh7TVwjaGgOMcrv42nhmtLMI2A/Ti0C/NW4R7awYqt0JAQAAALalDs7pKs2I6ascL4jWFGGsF8V5cdX5B97Y+0XbP4zzoGhzz7IIoABLJ4Cy3wRQgDm9Jn49PituEu1cAtilO4Sv9W7Hp0dbZ4CTuEF8QvxGXBnt/AH20/T3yB+J20Y7P4Zod0IAAACAbamDc7paQ+K+0ZohjPc1cfX5B15nevvgU6PtHcb41zg/2vyzLAIowNIJoOw3ARTgtLw6pq9m3j3OjnZGAYz289HOJNbpuTG9mKutNcBRTV82+Mbwsj/g+rwqpmc/t4x2npxIuxMCAAAAbEsdnNPVGhLnxHOiNUIY66VxQVx9DYCLLv7kaPuGcb402tyzPAIowNIJoOw3ARRgCZ4XXx/Tpb92VgGMcFG0M4h1++Jo6w1wpqavYz0qfCELOKpXxjfE0EBsuxMCAAAAbEsdnFNpSnxStAYI410cbQ1gn01N1r+LtmcYY7qc5e2O6yGAAiydAMp+E0ABlmR6i+x0+e8dop1ZACfxe9HOHtbtX8JXgoHjuFP8VFwR7XwBOFN/HR8W7aw5snYnBAAAANiWOjin0pQ4K/4kWvODsS6NC6OtA+yrB0TbL4zzWdHmnmUSQAGWTgBlvwmgAEt0ZTwx7hzt7AI4qo+Ldt6wDd8Ubd0BmjvG9HfN6e+c7UwBOK7HxwXRzp4z1u6EAAAAANtSB+fUmhJx92hND8Z7eLQ1gH00NVVfFm2vMMZfxtnR5p9lEkABlk4AZb8JoABLN72V+m2jnWEAZ+KceHa0M4ZteEV4URRwfW4ePxy+eALs0j/F3aKdQ2ek3QkBAAAAtqUOzqk1JV7vKdGaHox1Wdwq2hrAvnlYtH3COB8bbe5ZLgEUYOkEUPabAAqwBpfH9Pfqt4h2lgFcl8+PdrawLd8bbf0BbhD3j3+Ldn4AjPba+OY4K9q5dJ3anRAAAABgW+rgnFpT4vXeN1rDg/F+JNoawD65fbw62h5hjP8Zbe5ZNgEUYOkEUPabAAqwJv8SnxrtPANo3jT+OdqZwrZMfcnbRqsDYH+9Z/xZtHMDYNf+a9w42vl0rdqdEAAAAGBb6uCcWlPiKp4UrdnBWK+JO0RbA9gXT4i2PxjnA6LNPcsmgAIsnQDKfhNAAdZousRz62jnGsBVfWO0c4Rtemy0OgD2zw3jwXFFtPMCYC7PiNtEO6uqdicEAAAA2JY6OKfWlLiKO8WV0ZodjPW4aGsA+8AXl3bvV6LNPcsngAIsnQDKfhNAAdbq3+KTo51tAJObx79HO0PYpulZyLtEqwdgf9wxnh7tnAA4DS+Md452Zl1DuxMCAAAAbEsdnFNrSlzNY6I1Ohhrerg1BX7aGsDW/X60fcEY0/nyrtHmnuUTQAGWTgBlvwmgAGv3iJjecN3OOGC/PTLaucG2eYkL7Lf7xKXRzgeA0/SSuCja2fVG2p0QAAAAYFvq4JxaU+JqbheXR2t0MNaToq0BbNm9ou0HxvnJaHPPOgigAEsngLLfBFCALfi9uFm0cw7YT3cIPfH99YHR6gLYrimQLHgILN0r4npDKO1OCAAAALAtdXBOrSlRTG+DbE0OxnufaGsAW3Ru/G20vcAY02WJKUjY5p91EEABlk4AZb8JoABb8TcxXThvZx2wf34+2lnBfpi+1tzqAtimm8STo50HAEszfQnlTtHOs/+r3QkBAAAAtqUOzqk1JYpbhE9Oz+O3oq0BbNGXRdsHjPP90eae9RBAAZZOAGW/CaAAW/LP8a7Rzjtgf0xvlW5nBPvl46PVB7Att45nRzsHAJbqhXGraOdavRMCAAAAbEsdnFNrSlyLB0drcDDe3aKtAWzJBfHSaHuAMabg4FtGm3/WQwAFWDoBlP0mgAJszfQ2WSEU2G+/F+18YL88K86OViPANkxfv/vHaGcAwNI9Pd48rnG+tTshAAAAwLbUwTm1psS1mC6Lvzxag4Ox/iDaGsCWfHe0+mecb4k296yLAAqwdAIo+00ABdiiKYQyXUhs5x6wbR8X7VxgP903Wp0A6/dO8eJoex9gLZ4Y1zjj2p0QAAAAYFvq4JxaU+I6fHW05gbjfUy0NYAtuF28KlrtM8b0dZn65iNWRwAFWDoBlP0mgAJs1fPjFtHOPmCbbhDTVy/amcB+ekHcKFq9AOs1BY1fGG3fA6zNA+KNzrl2JwQAAADYljo4p6s3JK7HefGiaM0Nxpo+m3tWtHWAtfvpaHXPONdoOLNaAijA0gmg7DcBFGDLnhZvGu38A7bn86KdBey3r4hWL8A63TqmcFnb7wBr9Jp4v/h/Z127EwIAAABsSx2c01WbEWfoftGaG4z3adHWANbsfaLVO+NMD9DOjTb/rI8ACrB0Aij7TQAF2LrHRzv/gG2ZXrz0T9HOAfbb9JXhm0SrG2BdLghfugK2aHoueOP4v+dduxMCAAAAbEsdnNNhI+IIzonnRmtuMNb/imm+2zrAWv3PaPXOOPeNNveskwAKsHQCKPtNAAXYB18c7QwEtuMbou1/mHxbtLoB1mN61vbb0fY4wBb8aPzfM6/dCQEAAAC2pQ7O6bARcUSfEa2xwXifE20NYI0+MVqdM86z4+xo8886CaAASyeAst8EUIB98Kq4U7RzEFi/C+MV0fY/TC6NW0arH2AdHhltfwNsyYdEvRMCAAAAbEsdnNPUhDiG6XLzX0RrbDDW9Mncc6OtA6zJDeNvotU543xCtPlnvQRQgKUTQNlvAijAvnh66M/ANj0i2r6Hq/rBaPUDLN9nRdvXAFvz/Div3QkBAAAAtqUOzumgN2PPxMdGa2ww3v2jrQGsyZdGq2/G+cNoc8+6CaAASyeAst8EUIB98p3RzkJgvd4uLo+25+GqXhN3iFZHwHJNX7F7ZbR9DbBF39juhAAAAADbUgfndNAbsmfq96M1NhjrRfFm0dYA1uCCeGm0+macD442/6ybAAqwdAIo+00ABdgnV8S7RTsPgXX62Wj7HZqfiVZHwDK9SfxltP0MsFWXxi3avRAAAABgO+rgnA56U/ZM3TVaY4PxvjbaGsAaTG+JbXXNOP8t2tyzfgIowNIJoOw3ARRg3/xunBXtTATW5X2i7XO4Lu8ZrZ6A5XlYtH0MsHWPbvdCAAAAgO2og3M66E3Zo5guPbfGBmP9W0xfkWhrAEv2NnFZtLpmjCvD5d/tEkABls6fQftNAAXYR58Z7UwE1sXfYziO34pWT8CyfFBMffO2jwG2bjr/7tTuhgAAAADbUAfndNAbs0dx52iNDcZ7cLQ1gCV7fLR6Zpyfijb3bIMACrB0Aij7zcVNYB/9c5wX7VwE1uFjo+1vOBMfFq2ugGW4UfyvaPsXYF88tt0NAQAAALahDs7poDdnj+oJ0RobjHVp3DzaGsASvXe0Wmacy+MO0eafbRBAAZZOAGW/CaAA++qB0c5FYPluEM+KtrfhTPxJnBWtvoDT983R9i7APrkibtfuhwAAAADrVwfndNCbs0c1XX6emhitucFY00XktgawRL8brY4Z5wejzT3bIYACLJ0Ayn4TQAH21Uvj/GhnI7BsnxdtX8NRfHK0+gJO1+3jVdH2LcC++eF2PwQAAABYvzo4p4PeoD2OR0VrbDDWZXHbaGsAS/IJ0WqYcaavIt0y2vyzHQIowNIJoOw3ARRgn31ttLMRWK7z4p+i7Wk4ir+Jc6LVGXB6fiHangXYR9O9gpu2OyIAAADAutXBOR30Bu1x3CqmJkZrbjDWFPZpawBLMT18/V/R6pdxHhxt/tkWARRg6QRQ9psACrDPpq+gTJfZ2/kILNM3RNvPcBxfEK3OgNPx/tH2KsA+e0C7IwIAAACsWx2c00Fv0h7Xw6I1NhjrirhDtDWAJfiSaLXLONNFpwuizT/bIoACLJ0Ayn4TQAH23edFOx+B5bkwXhFtL8Nx/HMIIsJy+PcpwDU9p90RAQAAANatDs7poDdpj2t6iHdJtOYGY/1MtDWA03aTeEm0umWcB0abf7ZHAAVYOgGU/eaCD7Dv/jLa+QgszyOi7WM4ia+LVm/AvO4WbY8CcNHFH9TuiQAAAADrVQfndNAbtSfxoGiNDca6Mt4t2hrAafqOaDXLOP8Y3q64PwRQgKUTQNlvAigAF138IdHOSGA53i4uj7aH4SSmF3LdNFrdAfP5o2h7FICLLv7xdk8EAAAAWK86OKeD3qg9ifPjxdGaG4z1pGhrAKflNnFZtHplnM+LNv9skwAKsHQCKPtNAAXgoot/LtoZCSzHz0bbvzDCQ6PVHTCPj4i2NwF4nZfHDdtdEQAAAGCd6uCcDnqz9qQeEK25wXh3ibYGcBoeF61OGeev4pxo8882CaAASyeAst8EUAAuuvhVcZNo5yRw+t4n2t6FUaYX8tw6Wv0Bu/db0fYmAG/wke2uCAAAALBOdXBOB71Ze1LnxguiNTcY68nR1gDm9l5xZbQ6ZZxPijb/bJcACrB0Aij7TQAF4HX+U7RzEjh9/r7CHH48Wv0Bu/XO0fYkAG/sx9tdEQAAAGCd6uCcDnrDdoT7RmtuMN6HRFsDmNPvRKtPxnlanBVt/tkuARRg6QRQ9psLnQCv87vRzkngdH1stD0Lo10R7xStDoHd+bFoexKAN/byOKfdFwEAAADWpw7O6aA3bEc4J54TrcHBWH8UbQ1gLh8XrTYZ60OjzT/bJoACLJ0Ayn4TQAF4g9tGOyuB03GDeFa0/Qq78EvRahHYjQvjsmj7EYBr+oB2XwQAAABYnzo4p4PetB3lk6I1NxjvE6KtAezaFDb762h1yTi/FW3+2T4BFGDpBFD2mwAKwBt8SbSzEjgdnxttr8Iu3SVaPQLjfVW0fQhA983tvggAAACwPnVwTge9aTvKWfEn0RocjPWMODvaOsAufVG0mmSs94w2/2yfAAqwdAIo+00ABeANvDgAluO8eGG0vQq79LvRahIY79nR9iEA3VPbfREAAABgfergnA5603aku0drcDDevaOtAezKjePF0eqRcX422vyzHwRQgKUTQNlvAigAb3B5TP9ObuclMK+vi7ZPYQ4fHa0ugXHeO9r+A+DaXRE3aXdGAAAAgHWpg3M66I3b0Z4SrcnBWM+Nc6KtAezCt0erRcaZmsFvH23+2Q8CKMDSCaDsNwEUgDf2KdHOS2A+F8Yl0fYozOEvwtfKYbceEW3/AXDdPqbdGQEAAADWpQ7O6aA3bkd732gNDsb7/GhrAKPdOi6LVoeM86PR5p/9IYACLJ0Ayn4TQAF4Y4+Odl4C8/HvaJbgPtHqEzi5G8ZLo+09AK7bg9udEQAAAGBd6uCcDnrzdheeFK3JwVgviBtFWwMY6bHRapBxpoDPLaPNP/vDxRlg6QRQ9psACsAbm75O285LYB5vG5dH258wp+fFudHqFDiZj4m27wC4fr/V7owAAAAA61IH53TQm7e7cKe4Mlqjg7EeEG0NYJQ7h/28e98Rbf7ZLwIowNIJoOw3ARSAa5q+GNrOTGD3fibavoTTcP9odQqczI9F23MAXL9L4ux2bwQAAABYjzo4p4PevN2Vx0RrdDDWi+P8aGsAIzw5Wu0xztQAviDa/LNfBFCApRNA2W8CKADXdJ9oZyawW+8dbU/CadGnh/HOjn+JtucAODPv1O6NAAAAAOtRB+d00Bu4u3K7uDxao4OxviHaGsBJfWy0mmOsr4k2/+wfARRg6QRQ9psACsA1TW/lbmcmsFtPibYn4TR9c7R6BY7n/aLtNQDO3Ge2eyMAAADAetTBOR30Bu4uPSJao4OxfD2BXTgnnhOt5hjnn+O8aGvA/hFAAZZOAGW/CaAAXNNfRjszgd35mGj7EU7bpXHzaHULHN13RttrAJy5h7R7IwAAAMB61ME5HfQG7i7dIqaHLq3ZwVjfEW0N4LjuF63WGOsLos0/+0kABVg6AZT9JoACcE1XhJcKwHzOjmdG24+wBNNLuVrtAkf37Gj7DIAz98vt3ggAAACwHnVwTge9gbtrD47W7GCsKegzBX7aGsBRvXn8a7RaY5y/ielLM20N2E8CKMDSCaDsNwEUgO4u0c5NYLzPjbYPYSkuj9tHq1/gzE3Pu9oeA+BontfujQAAAADrUQfndNCbuLt2Qbw8WsODsb4/2hrAUQmOzeNTo80/+0sABVg6AZT9JoAC0H1xtHMTGGv62tALo+1DWJLHRath4MzdO9r+AuBorow3bXdHAAAAgHWog3M66E3cOXx1tIYHY01vV7tttDWAM3XruCxajTHOn8VZ0daA/SWAAiydAMp+E0AB6H4i2rkJjPV10fYgLM100fPdo9UxcGYeHW1/AXB079bujgAAAADrUAfndNCbuHOY3k73omgND8Zy6YGTeky02mKse0Sbf/abAAqwdAIo+00ABaB7WrRzExjnwrgk2h6EJfq1aLUMnJnnRttbABzdx7e7IwAAAMA61ME5HfQm7lzuF63hwVhXxDtEWwO4PtOb+aY39LXaYpwnR5t/EEABlk4AZb8JoAB0/x7t3ATG8e9l1uiDo9UzcN2mr7S3PQXA8dy/3R0BAAAA1qEOzumgN3Lnck54Y9E8nhBtDeD6/PdoNcVY7xNt/sGFGmDpBFD2mwAKwLV762hnJ3BybxuXR9t7sGR/GK2mget272h7CoDj+Z52dwQAAABYhzo4p4PeyJ3TZ0RrejDW9AWLO0dbA7g2Hx2tnhjrF6LNP0wEUIClE0DZbwIoANfuQ6OdncDJ/Uy0fQdr8InR6hq4dg+Ntp8AOJ5fbHdHAAAAgHWog3M66I3cOZ0dfxGt8cFYvxJtDaCZvlD0rGi1xDhXxDtGWwOYCKAASyeAst8EUACu3RdFOzuBk3nvaHuOMf68jDHWc2Lqvbb6Brrfi7af2K7Xxr/Gs+PJ8XPx4zH1y78lHhhfGNOLDj8u7hZTj2ryrnG7q7h1XLAH3iqu+nNP3j2mL/BP8zO9dO6ecd/4gnhAfGM8PB4T03Pkp8Zfxb+Er81t25+2uyMAAADAOtTBOR30Ru7cPjZa44Px3i/aGsDVTc3nVkOM9eho8w+HBFDG+eFoD+aAk7lBtPOL/SCAAnDtpotc7ewETuYp0fYcJ/fHcfN4xVXG2I3PjVbfwDVNL7L7j2h7ifW6LJ4ZvxzT35u/NKYvRE1hiVvEtO6tHpjXW8QU6PmYuF88JB4bUyjoBdHWlnX4p3Z3BAAAAFiHOjing95MOg2/H635wVjTBbE2/3BV58f0dqNWQ4wzPWCZ3rzV1gAOCaCMM81lm2MAjk8ABeDaTW9pbmcncHzT5ce23xhjejv6NM/fcJUxduMf47y4eo0D13SnaPuI9fjb+Jn42vj4uH2cFW29WZcbx11i+qrKQ+PXYvpyTasDluXV7e4IAAAAsA51cE4HvVl0Gu4arfnBePeItgZw6Nui1Q5jTc34Nv9wVQIo4wigAIwngDLO9ObX9pUhuE3cLi6K6QuyXxjfGr8Y00WuK6PVFKfvj6KdncDxTG9Cn/68bPuNk/tvcTjXUzDihdH+/xjngXHVGge6z462h1imy2N66eCD48PjptHWlW2b/g376fFj8XfRaoXTd5N2fwQAAABYvjo4p4PeFDot00Ou1vxgrD8Obxbi2twq/ne02mGcS+Jm0dYArkoAZRwBFIDxBFDG+YtocwzX583iI+Ph4WL2srwo2poBx/O50fYaJzeFGd8jzPe8Xh5T2PSq8w5c0/Qip7aHWI7pixc/HveM6d8nbR3Zb3eMr4k/jVZDnI53aPdHAAAAgOWrg3M66E2g03LnaM0PxpuawG0N4L9EqxnG+oZo8w9XJ4AyjgAKwHgCKOMIoDDKu8X3xEui1RrzmS50nxttnYCj8UWO3Xp8XH3OfXFmHt8eV5974I39SrT9w+l6ZTw2pq+c3CDa2kHzLvEDMdVQqy3m8/7t/ggAAACwfHVwTge98XOanhCtAcJYz4rpIWJbA/bXdFFpuiDTaoZxprfgegsYZ0oAZRwBFIDxBFDGEUBhtDeNr42XRqs55nG7aOsDHM10nrU9xsldHm8bbd4/Otr/hnGmL1HfMtr8A6/zvGj7h9PxgvjKeIto6wVn6sKYvuQ5/V2k1Rq79/Ht/ggAAACwfHVwTge94XOa7hBXRGuCMNZ9oq0B++u3otUKY31RtPmHRgBlHAEUgPEEUMYRQGFX3jweEV42cDouirYuwJm7WVwSbY9xctOfEW3eDz052v+OcX402twDF138JvHaaHuHeU0v1rpf+MIfo71j/FG0umO3PrPdHwEAAACWrw7O6aA3ek7bo6I1QRjruXFOtDVg/3xktDphrGnf3TDaGkAjgDKOAArAeAIo4wigsGsfFv8arf7YnenrAW09gDP3PdH2Fyd3abxltHk/9F7R/reMM72Q6x2izT/su3ePtm+YzxQA+t44P9oawQg3iOlrKK0G2Z0vaPdHAAAAgOWrg3M66E2e03aruCxaI4SxprcVtTVgv0yN3WdGqxHG+oxoawDXRgBlHAEUgPEEUMYRQGEObxPPiVaD7MZnR1sL4MzcPi6Ptr84uYujzfvV/VS0/z3j/Hy0uYd9d+9oe4Z5/FN8QLS1gV34wvDVo/l8ebs/AgAAACxfHZzTQW/uLMHDojVCGOuFcV60NWB/fH60+mCsp8fZ0dYAro0AyjgCKADjCaCMI4DCXG4efxWtDhnvgdHWATgzgg+78+I407fZ3y5eHe3XYZz3jjb/sM++Ptp+Yff+OK7vK1mwC58brSYZ7+J2fwQAAABYvjo4p4Pe2FmCC+OSaM0QxvryaGvAfpgeNL8oWm0w1kdFWwO4LgIo4wigAIwngDKOAApzum1MF49bLTLWd0ZbA+D6vVe0fcUY948279fm4dF+HcZ5crS5h332o9H2C7v1+3GTaGsCc/imaLXJWA9v90cAAACA5auDczroTZ2leFC0ZghjvTTO9G13bM+3RKsLxpouZ7b5h+sjgDKOAArAeAIo4wigMLe7R6tFxnpUtPkHrt90Gb/tK07ueXFutHm/NjcNL4zavXtEm3/YV78Rba+wO9PXEi+Ith4wl7Pi16LVKON8X7s/AgAAACxfHZzTQW/qLMUUivBGznlMYZ+2BmzbW8cro9UEY90l2hrA9RFAGUcABWA8AZRxBFA4DY+MVo+M8/hocw9ct+krsm1PMcZ9os379XlgtF+Pcf4spku3bf5hHz0n2l5hN6ag4e2jrQXM7Rbxsmi1yhiPbvdHAAAAgOWrg3M66A2dJXlAtIYIY01N5ZtFWwO268ej1QNjPSna/MOZEEAZRwAFYDwBlHEEUDgNN4npq6itJhnDvwfh6M6Ov4y2pzi56e8c0xy3ub8+bxL/EO3XZZxPizb/sI+8QGtenxptHeC0fGG0WmWMx7T7IwAAAMDy1cE5HfRmzpKcGy+I1hRhrO+MtgZs07vFldFqgXFeG3eKtgZwJgRQxhFAARhPAGUcARROy9dGq0nGeEq0eQeu3X2j7SfGmL4u0+b9TH1WtF+XcZ4bN4w2/7BPppemtT3CbvxctHWA03RO+BLS7gigAAAAwErVwTkd9GbO0njoOI/L4pbR1oDt+Y1odcBY/yXa/MOZEkAZRwAFYDwBlHEEUDgt58e/RatLTu6Pos070J0X/xhtP3FyvxNt3o9i+nrK06P9+ozzRdHmH/bJ9BKttj8Y7z/iVtHWAU6b8OvuCKAAAADAStXBOR30Rs7SeLvJfH4g2hqwLR8ebf0Z69Vx22hrAGdKAGUcARSA8QRQxhFA4TQ9NFpdcnJ/GW3Oge5rou0lxnjfaPN+VHeP9uszzovizaLNP+yLe0TbH4x3cbQ1gCWYvgr2L9Fql5P5+XZ/BAAAAFi+Ojing97IWaJPitYYYazL422irQHbML2lcLoA09afsb432hrAUQigjCOAAjCeAMo4AiicpnePVpec3N9Hm3Pgmm4Wl0TbS5zcL0Sb9+P6zWj/Hcb5xmhzD/vi06PtDcZ6WVwQbQ1gKb4jWv1yMk9q90cAAACA5auDczroTZwlOiv+JFpzhLEeE20N2IbPi7bujPXvcWG0NYCjEEAZRwAFYDwBlHEEUDhtz4pWm5yMAAqcue+Jto84uSviHaPN+3FN4cUro/33GGMKZOkvss++NNreYKxvizb/sCTvGq1+OZlfavdHAAAAgOWrg3M66E2cpfJp/3lMDyTvFG0NWLc3i3+Otu6M9aBoawBHJYAyjgAKwHgCKOMIoHDavFF2NwRQ4MzcPqYvM7d9xMn9WLR5P6npRUbtv8c4UzCrzT3sgwdH2xeMM/3Ze8to8w9L83fR6pjje0y7PwIAAAAsXx2c00Fv4CzZU6I1SBjr56PNP+v2zdHWm7H+Nc6PtgZwVAIo4wigAIwngDKOAAqnzUs/duMl0eYbeGM/FW0PcXKXxa2izftJ3SamX7/9dxnjVXHbaPMPW/cj0fYF4/xctLmHJXImjCeAAgAAACtVB+d00Bs4S/a+0RokjHfnaGvAOk1vsbo02loz1v2jrQEchwDKOAIoAOMJoIwjgMJpe9Pw9YHxLok238AbvFe0/cMY3xVt3keZfv3232Wc/xJt7mHrnhhtTzDOx0Sbe1iie0erY45PAAUAAABWqg7O6aA3cJbuSdGaJIz169Hmn3V6dLR1Zqznx7nR1gCOQwBlHAEUgPEEUMYRQGEJ/jxafXJ8Aihw/Z4cbf9wcv8WF0Sb91GmX/+l0f77jHFlvHO0+Ycte0q0PcEY05f6bhht7mGJ3i5aLXN8AigAAACwUnVwTge9gbN0d4rpoUtrlDDWB0ZbA9blXeO10daYsT4r2hrAcQmgjCOAAjCeAMo4AigswU9Gq0+OTwAFrttHRds7jPHV0eZ9tAdE++8zzi9Hm3vYsj+Kth8Yw9eVWKNXRKtnjkcABQAAAFaqDs7poDdv1uAx0RoljDVdKGvzz7pMX7Np68tYfxlnR1sDOC4BlHEEUADGE0AZRwCFJfjaaPXJ8QmgwLWbeihTL6XtHU7uhXFetLkfbfoa8POi/T4Y5wOizT9s1TOj7QXGuGe0eYcl+5No9czxCKAAAADAStXBOR305s0a3C4uj9YsYayPjLYGrMPdo60r431stDWAkxBAGUcABWA8AZRxBFBYgk+MVp8cnwAKXLv7Rts3jPH50eZ9V+4d7ffBOP8z2tzDVv19tL3AyU3PV98s2rzDkv1MtJrmeB7Z7o8AAAAAy1cH53TQmzdr8chozRLG+rM4K9oasGzTmySfEW1dGev3o60BnJQAyjgCKADjCaCMI4DCEtwlWn1yfNPFyTbXsO+mL3P8Y7R9w8n9VZwTbe53Zeofeyv57n1ctPmHLXp5tH3AyXmewVp9d7Sa5ni+r90fAQAAAJavDs7poDdv1uIWcWm0hgljfVK0NWDZPifaejLeB0ZbAzgpAZRxBFAAxhNAGUcAhSW4fbT65PgEUKD7mmh7hjGmL1q1ed+1u0X7/TDOM2N66VCbf9iaV0fbB5zcg6PNOSzdA6PVNMfzsHZ/BAAAAFi+Ojing968WZOHRGuYMNZzwoOtdXnT+Kdo68lYvxJtDWAEAZRxBFAAxhNAGUcAhSWYvkjQ6pPjE0CBa7pZXBJtz3Byfxin+TXrX432+2Kcz44297AlN4hW/4zxkdHmHZbuC6PVNMdzcbs/AgAAACxfHZzTQW/erMkF4TPc8/j/oq0By/RN0daRsa6Md422BjCCAMo4AigA4wmgjCOAwlK8JlqNcjzPjjbPsM8eHm2/MMYHR5v3ubxzXBHt98YY/xDnRpt/2Irp2V+rf8a4ebR5h6W7b7Sa5ni+vN0fAQAAAJavDs7poDdv1uZrojVNGOvvwoOtdbhFXBptHRnrJ6OtAYwigDKOAArAeAIo4wigsBS+SjCWvQ1v7Hbx6mj7hZP7tWjzPrdHR/v9Mc6XR5t72AoBlN15QbQ5hzW4Z7S65ni+sN0fAQAAAJavDs7poDdv1ua8eFG0xglj3S/aGrAsj4q2fox1edw+2hrAKAIo4wigAIwngDKOS+osha/MjmVvwxt7fLS9wslNX+l992jzPre3jv8d7ffJGC+NG0ebf9gCAZTdeVK0OYc1+Ohodc3x3KfdHwEAAACWrw7O6aA3b9ZoCka0xgljTUGfKfDT1oBleJe4Itr6MdYjoq0BjCSAMo4ACsB4AijjuKTOUvx9tBrleH4/2jzDPnrPmEISba9wco+LNu+n5dui/T4Z51ujzT1swU2j1T0n95Bocw5r8B4x9aIY4wPb/REAAABg+ergnA5682aNbhjPjdZMZayvirYGLMN/i7ZujHVpvGW0NYCRBFDGEUABGG96WN3OXI5OAIWlEEAZ61ejzTPso/8ebZ9wckv8Su+bx4uj/X4ZY+pP3iLa/MPa3S5a3XNynx1tzoGNaHdCAAAAgG2pg3NqTYkV+4xozVTG8nn/5fqwaGvGeN8SbQ1gNAGUcQRQAMYTQBlHAIWlcFl4rJ+KNs+wbz4i2h5hjO+PNu+n7Uui/X4Z5weizT2snQDK7rx3tDkHNqLdCQEAAAC2pQ7OqTUlVuzseEa0hipjXRxtDTg9U/0/Pdp6MdYUwpre4tjWAUYTQBlHAAVgPAGUcQRQWIpLotUox/OD0eYZ9ome7W79R9w82tyftumr5X8T7ffNGNPXb94u2vzDmgmg7M6F0eYc2Ih2JwQAAADYljo4p9aUWLmPjdZQZax/D03qZfn/oq0V4315tDWAXRBAGUcABWA8AZRxBFBYCgGUsR4SbZ5hn3x2tP3BGN8cbd6X4l7Rft+M89PR5h7WTABlNy6NNt/AhrQ7IQAAAMC21ME5tabEBjw1WmOVsR4abf6Z33nxwmjrxFgviBtFWwfYBQGUcQRQAMYTQBlHAIWleE20GuV4vjraPMO+mHpWUy+l7Q9O7l/j/GhzvxRnxR9E+/0zxpVx52jzD2slgLIbz4o238CGtDshAAAAwLbUwTm1psQG3DVaY5WxLotbRlsD5vWN0daI8e4bbQ1gVwRQxhFAARhPAGUcARSWYArbt/rk+L4g2lzDvviqaHuDMb402rwvzQdG+/0zzm9Gm3tYKwGU3XBWwB5od0IAAACAbamDc2pNiY349WjNVcb6kWjzz3zeKv4j2vow1rPj7GjrALsigDKOAArAeAIo4wigsATTSyZafXJ8nxptrmEf3DQuibY3OLm/i3Ojzf0S/WK0n4NxPiTa3MMaCaDsxuOizTewIe1OCAAAALAtdXBOrSmxEdMn51tzlbEuj7eLtgbMYwoBtbVhvHtGWwPYJQGUcQRQAMYTQBlHAIUluFO0+uT47h5trmEfPDzavmCMz4w270t1x7gi2s/CGE+Ls6LNP6yNAMpufFe0+QY2pN0JAQAAALalDs6pNSU25AnRGqyM9dho88/uTZeDPLidxx9GWwPYNQGUcQRQAMYTQBlHAIUl+MBo9cnxTf9ub3MNWzddHH51tH3ByT091viV3h+O9vMwzr2izT2sjQDKbjww2nwDG9LuhAAAAADbUgfn1JoSG/L24XL+7l0ZLlScjl+NtiaM98HR1gB2TQAFmNMUJmhnEVwbAZRxBFBYgk+MVp8c302jzTVs3eOj7QnG+Iho8750bxWXRvuZGON/xTnR5h/WRABlNz4/2nwDG9LuhAAAAADbUgfn1JoSG/OoaE1WxvrFaPPP7nxYtLVgvP8WbQ1gDgIowJwEUDgqAZRxBFBYgi+PVp8cz/T1hzbPsHXvGdMLa9q+4OSeEm3e1+JB0X4uxvlP0eYe1kQAZTc+Odp8AxvS7oQAAAAA21IH59SaEhtz67gsWqOVsd4r2how3tnx59HWgbGmCxPvEW0dYA4CKMCcBFA4KgGUcQRQWIJHRKtPjue50eYZtu6/R9sTjHFRtHlfi/PjRdF+Nsb4pzgv2vzDWgig7Mbdo803sCHtTggAAACwLXVwTq0psUEPi9ZoZazfiDb/jPdZ0daA8X462hrAXARQgDkJoHBUAijjCKCwBP81Wn1yPNMl/DbPsGUfEW0/MMYTo8372nxBtJ+Pcb4m2tzDWgig7Mb7RptvYEPanRAAAABgW+rgnFpTYoMujFdEa7Yy1t2irQHjTG+v+8do889Yl8cdoq0DzEUABZiTAApHJYAyjgAKS/CsaPXJ8Tw62jzDVk1f7H1GtP3AyV0Rd4w292tzTvxVtJ+TMS6Jt4g2/7AGAii74WvvsAfanRAAAABgW+rgnFpTYqMeFK3Zyli/H23+Gefro8094/1gtDWAOQmgAHMSQOGoBFDGEUDhtE0vO5guN7f65Hi+Kdpcw1Z9drS9wBiPijbva/Xx0X5OxvnuaHMPayCAshtvG22+gQ1pd0IAAACAbamDc2pNiY06P14SreHKWB8VbQ04ubeMf48274x1adwy2jrAnARQgDkJoHBUAijjCKBw2u4SrTY5vk+LNtewRVOI7QXR9gInd1m8dbS5X7P/Ge3nZYypbm4Vbe5h6QRQduO20eYb2JB2JwQAAADYljo4p9aU2LAHRGu4MtbT46xoa8DJ/FC0OWe8B0dbA5ibAAowJwEUjkoAZRwBFE7bF0WrTY7vPaLNNWzRV0XbB4zxHdHmfe0uivbzMs6jo809LJ0Aym5cEG2+gQ1pd0IAAACAbamDc2pNiQ07N7yJbx6fEm0NOL53jCuizTdjvSw8iGEpBFCAOQmgcFQCKOMIoHDafjJabXJ8bxZtrmFrbhqXRNsHnNzLY8t9qp+P9nMzxtRPnvrKbe5hyQRQdsNzj+PTp2frLmh3SQAAAIBlqoNzOuhNtC37nGhNFcb6qzgn2hpwPL8Sba4Z74HR1gBOgwdbwJwEUDgqAZRxBFA4TWfHi6PVJsfz/GhzDVv08Gj7gDGmr8u0ed+KO8Tl0X52xviFaHMPSyaAshsCKMenT8/WCaAAAADAitTBOR30JtqWTaGI50RrrDDWfaOtAUf3IdHmmPH+Mc6Ltg5wGjzYAuYkgMJRCaCMI4DCaXrPaHXJ8T0p2lzD1rxNvDraPuDk9qVP9YhoPz/jvG+0uYelEkDZDQGU49OnZ+sEUAAAAGBF6uCcDnoTbevuFa2xwlj/EOdGWwPO3PQm2j+LNseM93nR1gFOiwdbwJwEUDgqAZRxBFA4Td8crS45vm+JNtewNY+LtgcYY1/6VBfGK6LNAWP8TrS5h6USQNkNAZTj06dn6wRQAAAAYEXq4JwOehNt686KP4nWXGGsL4m2Bpy5+0SbW8b7q5i+ktTWAU6LB1vAnARQOCoBlHEEUDgtU4/kedHqkuP7pGjzDVvyHnFltD3AyU1f8d6nPtU3RJsHxvmoaHMPSySAshsCKMenT8/WCaAAAADAitTBOR30Jto+uEe05gpjvSjOi7YGXL9p7qYvybS5Zbzp60htHeA0ebAFzEkAhaMSQBlHAIXT8mHRapKTuVW0+YYt+e1o9c8Y94w271s19UFfGG0uGOPpMX1tu80/LI0Aym4IoByfPj1bJ4ACAAAAK1IH53TQm2j74inRGiyM9bXR5p/rN81dm1PGe1pMb/5t6wCnyYMtYE4CKByVAMo4Aiiclp+LVpMc3z9Fm2vYEi/32a0/iDbvW/e50eaDcT4z2tzD0gig7IYAyvHp07N1AigAAACwInVwTge9ibYv7hKtwcJYLwtN7aO7ebwi2pwy3odGWwc4bR5sAXMSQOGoBFDGEUDhNNwproxWkxzfE6PNN2zF9AWF6c+tVv+Mcddoc791U209M9qcMMbfxbnR5h+WRABlNzyrOz59erZOAAUAAABWpA7O6aA30fbJk6I1WRjrW6PNP9fuB6LNJeP9VrQ1gCXwYAuYkwAKRyWAMo4ACqfh16LVIyfzJdHmG7bis6LVPmP8arR53xcfHW1eGOdLo809LIkAym4IoByfPj1bJ4ACAAAAK1IH53TQm2j7xNs+53FpXBhtDbimO8YV0eaS8d4z2jrAEniwBcxJAIWjEkAZRwCFuX1KtFrk5N4l2pzDFrxJ/EO02ufkpj71u0Wb+33y5Gjzwxj/GudHm3tYCgGU3RBAOT59erZOAAUAAABWpA7O6aA30fbNY6M1Whjre6PNP9f0y9HmkPF+LtoawFJ4sAXMSQCFoxJAGUcAhTm9TbwsWi1yMi+Js6LNO2zBA6PVPmP8ZLR53zfvFW1+GOdB0eYelkIAZTcEUI5Pn56tE0ABAACAFamDczroTbR9MzWyL4/WbGGcy+LW0daAN/jgaPPHeNNXZt4+2jrAUniwBcxJAIWjEkAZRwCFudwk/jJaHXJyj48277AFbxH/Fq32ObmpPz31qdvc76OfijZPjPEf4YvlLJkAym4IoByfPj1bJ4ACAAAAK1IH53TQm2j76JHRmi2M9SPR5p/Xmd6S+qfR5o7xfjTaOsCSeLAFzEkAhaMSQBlHAIU5TBdN/zhaDTLGp0ebe9iCh0Wre8aY/v3f5n1fTZfPXx1trhhDzbFkAii7IYByfPr0bJ0ACgAAAKxIHZzTQW+i7aNbxKXRGi6MM31x4g7R1oCLLr5PtHljvOmLPLeMtg6wJB5sAXMSQOGoBFDGEUBh194lnhut/hhj6nncNNr8w9q9TbwqWu1zcv8evkZxTQ+PNl+M4as7LJkAym4IoByfPj1bJ4ACAAAAK1IH53TQm2j76iHRGi6M9VPR5n/fvUn8fbQ5Y7zvjLYOsDQebAFzEkDhqARQxhFAYVfOiQeGi+O79xvR1gC24HHR6p4xHhRt3vfdFOr7t2hzxhg/GW3u4bQJoOyGAMrx6dOzdQIoAAAAsCJ1cE4HvYm2r6bG68ujNV0Y58qY3rza1mCffXW0+WK8S8KDFtbCgy1gTgIoHJUAyjgCKIx2dtwznhWt5hjv86KtBazde8TUz2t1z8n9S5wfbe55XYiyzRtjTHv73aLNPZwmAZTd8Fzk+PTp2ToBFAAAAFiROjing95E22dfE63pwlhPijb/++rCmEIRba4Yb9rnbR1giTzYAuYkgMJRCaCMI4DCKLeIr4/nRas1duPVMb2pv60JrN1vR6t7xviSaPPO60xfjf6HaHPHGL8abe7hNAmg7IYAyvHp07N1AigAAACwInVwTge9ibbPzosXRWu8MNb7RluDffTIaHPEeP8c0z5v6wBL5MEWMCcBFI5KAGUcARSO69y4SzwonhqvjVZj7NYTo60PrN09otU8Yzw3pnO8zT1v8FnR5o9xPija3MNpEUDZDQGU49OnZ+sEUAAAAGBF6uCcDnoTbd/dL1rjhbGmtye2+d837xCviTZHjPeF0dYBlsqDLWBOAigclQDKOAIoXN2NY7ogdpuYLuC9Z3xUfH58Uzw+nhn+PbkM09q0dYQ1OzumP59azTPGZ0Sbe97YVIt/Hm0OGeMPos09nBYBlN0QQDk+fXq2TgAFAAAAVqQOzumgN9H23Q1jevtca74w1t2ircE++aVoc8N4fxvnRFsHWCoPtoA5CaBwVAIoABdd/LyYLke3cxLWzFcndmsKVJwVbe65prtHm0fG+YRocw+nQQBlNwRQjk+fnq0TQAEAAIAVqYNzOuhNNF739rnWfGGsP4w2//vig6LNC7vxqdHWAZbMgy1gTgIoHJUACsBFFz8g2hkJa/Ym8Q/Rap4xPjza3HPtfjPaXDLGc+IG0eYe5iaAshsCKMenT8/WCaAAAADAitTBOR30Jhqve3PlM6I1YBjr46KtwdZNbzj8k2hzwnh/Ft4qyRp5sAXMSQCFoxJAAfbdJXHjaGckrNkDo9U8Yzw52rxz3d4trow2p4zxOdHmHuYmgLIbAijHp0/P1gmgAAAAwIrUwTkd9CYar/Ox0RowjPX0mAI/bQ22zFd25nWPaOsAS+fBFjAnARSOSgAF2HcXRzsfYc3eIv4tWs0zxvtEm3uu32OizSljvCDOizb3MCcBlN0QQDk+fXq2TgAFAAAAVqQOzumgN9F4g6dGa8Iw1r2jzf9W3Sj+PtpcMN5Toq0DrIEHW8CcBFA4KgEUYJ9NXz9xiY8teli0mmeMn48275yZ28Rl0eaWMb4y2tzDnARQdsPfXY9Pn56tE0ABAACAFamDczroTTTe4K7RmjCM9TdxTrQ12KIHRpsHduOiaOsAa+DBFjAnARSOSgAF2GdfG+1shDV7m3hVtJrn5K6Id4g295y574w2v4zx0nBJndMmgLIb9vbx6dOzdQIoAAAAsCJ1cE4HvYnGG/v1aI0YxvrcaPO/NTeL6S2pbQ4Y7xeirQOshQdbwJwEUDgqARRgXz0/3iTa2Qhr9rhoNc8YPxpt3jma6QL1FJJoc8wYD4k29zAXAZTdEEA5Pn16tk4ABQAAAFakDs7poDfReGN3jtaIYawXxLnR1mBLvj/az89401sl3zHaOsBaeLAFzEkAhaMSQAH21SdEOxdhzd4jroxW85zc/45bRpt7ju4B0eaZMV4Z6pXTJICyGwIox6dPz9YJoAAAAMCK1ME5HfQmGtf0hGjNGMaaHhy2+d+Kt4/Lo/3sjPfoaOsAa+LBFjAnARSOSgAF2Ec/F+1MhLX7zWg1zxjfHm3eOZ7pRUbPizbXjPHD0eYe5iCAshsCKMenT8/WCaAAAADAitTBOR30JhrXNAUHpq8ptIYM4/xLnB9tDbbgF6L93Ix3Wdwm2jrAmniwBcxJAIWjEkAB9s2L462inYmwZnePVvOM8bJw6Xe8T4s234wxPQ+5Q7S5h10TQNkNfxYdnz49WyeAAgAAACtSB+d00JtodI+K1pBhrK+LNv9r94HRfl5242HR1gHWxoMtYE4CKByVAAqwbz4y2nkIa3Z2/Hm0mmeMB0abe07mrPiTaHPOGL76xWkRQNkNAZTj06dn6wRQAAAAYEXq4JwOehON7tYxfVWhNWUY55LYWhN8ehj6x9F+Xsabauhm0dYC1saDLWBOAigclQAKsE++M9pZCGt3n2g1zxgviPOizT0nd7do88447xVt7mGXBFB2QwDl+PTp2ToBFAAAAFiROjing95E49pNX1VoTRnGeki0+V+re0f7OdmNb4i2DrBGHmwBcxJA4agEUIB98Wtxg2hnIazZjeLvo9U9Y3xutLlnnF+JNveM8d+jzTvskgDKbgigHJ8+PVsngAIAAAArUgfndNCbaFy7C+MV0RozjHNpvGW0NVib6UH+86P9nIz3onizaGsBa+TBFjAnARSOSgAF2AfPiJtEOwdh7b4yWt0zxrNDeG333jmuiLYGjHH3aHMPuyKAshsCKMenT8/WCaAAAADAitTBOR30JhrX7UHRGjOMNTVz2/yvjQf58/riaOsAa+XBFjAnARSOSgAF2Lrnxi2inYGwdtMl1JdHq33G+IRoc894j462Bozxp3FWtLmHXRBA2Q0BlOPTp2frBFAAAABgRergnA56E43rdn68JFpzhnFeHbeNtgZrcdP4t2g/H+NNF4POjbYWsFYebAFzEkDhqARQgC2b/o35dtHOP9iCh0arfcZ4arR5ZzfeOl4ZbS0Y41OjzT3sggDKbgigHJ8+PVsngAIAAAArUgfndNCbaFy/B0RrzjDW9Oa6Nv9r8b3Rfi524zOirQOsmQdbwJwEUDgqARRgq6bwya2jnX2wBdNLXy6LVv+M8UHR5p7d+bZoa8EYfxvnRJt7GE0AZTcEUI5Pn56tE0ABAACAFamDczroTTSu3/SVhRdEa9AwzhVxh2hrsHTTW1Ivj/ZzMd7T4+xoawFr5sEWMCcBFI5KAAXYoj+Kt4x27sFW/GS0+meMX4k27+zWm8eLo60JY9wv2tzDaAIouyGAcnz69GydAAoAAACsSB2c00FvonFmPidag4axnhBt/pfuidF+Hnbjo6KtA6ydB1vAnARQOCoBFGBrfj7eNNqZB1vx7nFltD3AyU1z+67R5p7d+5Jo68IYLwp/TjIHAZTdEEA5Pn16tk4ABQAAAFakDs7poDfRODPT5+afE61JwzjTQ9vpwXhbg6X6gGg/C7vxu9HWAbbAgy1gTgIoHJUACrAVr40HxlnRzjvYkt+Mtg8Y47HR5p15TD37v4m2NozxDdHmHkYSQNkNAZTj06dn6wRQAAAAYEXq4JwOehONM3evaE0axvrlaPO/RNNllT+M9nOwG+8XbS1gCzzYAuYkgMJRCaAAW/D8+MBo5xxszd2j7QPGeHW8TbS5Zz569rt1Sdws2tzDKAIouyGAcnz69GydAAoAAACsSB2c00FvonHmprDBn0Rr1DDWXaKtwdJ8arTfP7vxpGjrAFvhwRYwJwEUjkoABVi7R8ebRzvjYGvOjj+PthcY43ujzT3zmnr2fxBtjRjjYdHmHkYRQNkNAZTj06dn6wRQAAAAYEXq4JwOehONo7lHtEYNY/1OtPlfknPjedF+/4z32rhTtLWArfBgC5iTAApHJYACrNVfxQdHO9tgq+4TbT8wxiviwmhzz/w+INo6McZlcdtocw8jCKDshgDK8enTs3UCKAAAALAidXBOB72JxtE9JVqzhrE+LNr8L8VXRvt9sxuPibYOsCUebAFzEkDhqARQgLV5eTwgphdItHMNtupG8ffR9gVjfFO0uef0/GK0tWKMn4g27zCCAMpuCKAcnz49WyeAAgAAACtSB+d00JtoHN1dojVrGOuPos3/ErxF/Fu03zfjvTq8ZY994MEWMCcBFI5KAAVYi0vjO2P6t3s7z2DrvDRlt14U50ebe07PHeOKaGvGyfk6NbskgLIb/i58fPr0bJ0ACgAAAKxIHZzTQW+icTxPitawYax7Rpv/0/bwaL9fduN7o60DbI0HW8CcBFA4KgEUYOleGg+JC6OdY7APpredT1//aXuEMb442txz+n4o2poxxvRMpM07nJQAym5M89rmm+unT8/WCaAAAADAitTBOR30JhrHM73t68poTRvG+cs4O9oanJa3jcuj/X4Z79/D5SH2hQdbwJwEUDgqARRgqabewRfGedHOL9gnD422TxjjuXHDaHPP6XurmL6C1daOMd4/2tzDSQig7Mb0Zag231w/fXq2TgAFAAAAVqQOzumgN9E4vsdGa9ow1mdEm//T8nPRfp/sxoOirQNskQdbwJwEUDgqARRgSaYvPPxovE+0Mwv20W3jsmh7BmCE34t2/sBJCKDsxp2jzTfXT5+erRNAAQAAgBWpg3M66E00jm9qivsSxu5NbxY8J9oazO39ov0e2Y0Xx/nR1gK2yIMtYE4CKByVAApw2l4WPxkfG75AANc07Y+2dwBGmv4cbmcQHJcAym7cLdp8c/306dk6ARQAAABYkTo4p4PeRONkHhmtccNYXxBt/ud0Vjw12u+P3bh/tLWArfJgC5iTAApHJYACzO218afxHfFBcYNo5xNw0cXvHldG20sAI/1lnB3tLILjEEDZjU+KNt9cP316tk4ABQAAAFakDs7poDfROJlbxKXRmjeM84I4L9oazOWTo/3e2I3nx7nR1gK2yoOtcX44LgCuk6+McVQCKMCcXh3fH3cN/zaE6/eb0fYSwC58VrSzCI5DAGU3lvBit7XSp2frBFAAAABgRergnA56E42Te0i05g1jPSDa/M9huuzyd9F+X+yGh5jsIw+2xpnmss0xAMcngAKclunFH78WU1/gttHOKNhnHxZt7wDsyt+HgCijCKDsxtdHm2+unz49WyeAAgAAACtSB+d00JtonNz0BumXR2vgMM5L4rTe1P3l0X5P7MZfxtnR1gK2zIOtcQRQAMYTQAGW4o/iK0MYBS66+Kz4s2h7BWCXvizauQRHJYCyG4+MNt9cP316tk4ABQAAAFakDs7poDfRGONrojVwGOsbo83/Lr1FCBjN6+OirQVsnQdb4wigAIwngAIs0R/G58WbRzu7YOs+M9reANi16YVR/vxlBAGU3XhStPnm+unTs3UCKAAAALAidXBOB72JxhjnxYuiNXEY55KYAiFtDXblYdF+L+zG70dbB9gHHmyNI4ACMJ4ACrBk/xE/EHeMdobBFp0bz4+2JwDm8C3Rzic4CgGU3fjzaPPN9dOnZ+sEUAAAAGBF6uCcDnoTjXHuF62Jw1jfGW3+d+H28epovw924wOjrQXsAw+2xhFAARhPAAVYgytjetvzXaKdZbAlXxFtHwDM5dJ4q2hnFJwpAZTd+Ldo883106dn6wRQAAAAYEXq4JwOehONcW4Yz43WyGGcV8Yto63BaE+I9ntgN34l2jrAvvBgaxwBFIDxBFCAtfmNeM9oZxqs3QXxsmi1DzCnR0Y7p+BMCaDsjoDY8ZwX09+1OF0/Ha2uOTkBFAAAAFiROjing95EY6zPiNbIYaxHRJv/kd432n+b3ZjeUvuu0dYC9oUAyjgCKADjCaAAazVdXLpNtLMN1uq7otU7wNwuj7eNdlbBmRBA2Z27RZtzWIPviVbXnJwACgAAAKxIHZzTQW/eMNbZ8YxozRzGmR5q3TbaGozy+9H+2+zG46KtA+wTAZRxBFAAxhNAAdZs+prq18X09dp2xsGaTIGqy6LVOsBp+Klo5xWcCQGU3fniaHMOa3D/aHXNyQmgAAAAwIrUwTkd9OYN431stGYOY/2XaPM/wr2i/TfZjSlQdPtoawH7RABlHAEUgPEEUIAtmF4a8l7RzjlYi8dEq2+A0zJ93fo9op1ZcH0EUHbnJ6LNOazBPaPVNScngAIAAAArUgfndNCbN+zGU6M1dBjninjHaPN/EufG30b7b7Ibj4i2FrBvBFDGEUABGE8ABdiK18TXxg2inXewZO8W00XvVtsAp+nXo51bcH0EUHbnL6PNOazBFGxsdc3JCaAAAADAitTBOR305g27cddoDR3G+tlo838SXxbtv8VuXBpvGW0tYN8IoIwjgAIwngAKsDW/HRdGO/NgqaYL3q2eAZbgbtHOLrguAii789q4SbR5h6Wb/q3W6pqTE0ABAACAFamDczrozRt2xwPhedw52vwfxwXxsmj/HXbjW6KtBewjAZRxBFAAxhNAAbboH2J6s24792BpPixaHQMsxR/HWdHOMLg2Aii79bHR5h2WbvpiZatpTk4ABQAAAFakDs7poDdv2J0pGNGaOoz1a9Hm/zgeFu2/wW68NG4cbS1gHwmgjCOAAjCeAAqwVf8RHxXt7IOlmC50/1m0GgZYkk+Kdo7BtRFA2a3puVebd1iDS6PVNScjgAIAAAArUgfndNAbN+zWE6I1dhjr/aPN/1FMDzleFe3XZze+PNpawL4SQBlHAAVgPAEUYMsuj8+Mdv7BEkz12WoXYGn+Ks6JdpZBc9NotcQYz4o277AGl0Sra05GAAUAAABWpA7O6aA3btitt48rojV3GGe6DNfm/yh+OtqvzW68IG4UbS1gXwmgjCOAAjCeAAqwda+N+0Q7A+E0nRvPj1a3AEv0+dHOM2guiFZHjPO20eYelk4AZTcEUAAAAGBF6uCcDnrjht17VLTmDmN9eLT5PxPvE+3XZHfuG20tYJ8JoIwjgAIwngAKsA+mEMq9o52DcFq+Ilq9AizVC+O8aGcaXJ0Ayu59ZbS5h6XzksfdEEABAACAFamDczrojRt279ZxWbQGD+P8SZwVbQ2uz/+M9muyG8+Js6OtBewzAZRxBFAAxhNAAfbF5XG3aGchzG26lPuyaLUKsGRfHe1cg6u7cbQaYpy/iDb3sGQ3j1bPnJwACgAAAKxIHZzTQW/eMI+HR2vwMNY9o83/dfnEaL8Wu3OcdYJ9IIAyjgAKwHgCKMA+uSTeIdp5CHP6rmg1CrB0/xZTiK6dbXB1rYYY612jzT0s1Z2j1TInJ4ACAAAAK1IH53TQmzfM48J4RbQmD+Mc9csaN4y/ifZrsRt/GG0tAAGUkQRQAMYTQAH2zbPj/GhnIszhNuGrysCafWe08w2uzp93u/dD0eYelure0WqZkxNAAQAAgBWpg3M66M0b5vPN0Zo8jPVZ0ea/+dJovwa788HR1gIQQBlJAAVgPAEUYB89NtqZCHN4TLS6BFiLKVTw1tHOOLiqF0erIcZ5ZbxFtPmHJfIlwN0RQAEAAIAVqYNzOujNG+YzvTXzJdEaPYzz3Ji+bNLW4Kqmz/+/NNqvwW78erS1AF5HAGUcARSA8QRQgH01vXm3nYuwS+8WV0arSYA1+bFo5xxc1d9Fqx/G+vpo8w9L9HvR6piTE0ABAACAFamDczrozRvm9YBojR7Gul+0+b+q7472v2U3pksTd462FsDrCKCMI4ACMJ4ACrCvppeJ3Dza2Qi7Mr3Eo9UjwNpcEXeMdtbBob+IVj+MdUlML2drawBLcuN4TbQ65uQEUAAAAGBF6uCcDnoDh3ndKF4QrdnDOP8c50Vbg8nbxKui/W/ZjZ+OthbAGwigjCOAAjCeAAqwz34y2tkIu/Bh0eoQYK2eGO28g0P+vTmfb4+2BrAknxGtfhlDAAUAAABWpA7O6aA3cJjf50Rr9jDWV0ab/8njo/1v2I3L4w7R1gJ4AwGUcQRQAMZzIQjYd3eJdj7CSGfFn0WrQYA1uyjauQeTX4lWN4z36nj7aOsAS/Gb0eqXMQRQAAAAYEXq4JwOegOH+Z0TfxWt4cM4L43z4+rz/97R/v/ZnR+Mq68DcE0CKOMIoACMJ4AC7Ls/jHY+wkifHq3+ANbuKdHOPZj8VLS6YTem/TiFXttawGl7p2h1yzgCKAAAALAidXBOB72Jw+m4V7SGD2NdHFef+9+N9v/LbrwybhlXXwfgmgRQxhFAARhPAAXgoos/OtoZCSOcG8+LVnsAW/Dh0c4/eGi0mmF3viLaWsBpe1y0mmUcARQAAABYkTo4p4PexOF0TG8W+tNoTR/GuSQujMN5/4Ro/3/szkPiqrUPXDsBlHEEUADGE0ABuOjip0U7I2GEB0SrO4CteHr46gLNV0erGXbn1XFRtPWA0/LecWW0mmUcARQAAABYkTo4p4PeyOH03CNa04exvium+T4n/tfrx5jHy+KCuHrtA50AyjgCKADjCaAAvM4HRTsn4SSm/slLo9UcwJZ8RrRzkP32WdHqhd16Udwq2prA3G4YfxGtVhlLAAUAAABWpA7O6aA3czhdvxOt8cM4l8Ut40uuMsY8Hhit7oFOAGUcARSA8QRQAF7nF6Kdk3AS3xGt3gC25rlxbrSzkP314dHqhd17Ztw82rrAnB4erUYZTwAFAAAAVqQOzumgN3M4XXeJ1vhhrMfHS642xm79Y5wXre6BTgBlHAEUgPEEUABe5zVxi2hnJRzHrWN6gUqrN4At+uJo5yH7612j1QrzmL46IYTCafrsaLXJbgigAAAAwIrUwTkd9IYOp+9J0Zo/sGafH63egWsngDKOAArAeAIoAG/gi5+M9BPR6gxgq/4lzo92JrKf3jJarTCfv423j7Y+sEsfH5dHq0t2QwAFAAAAVqQOzumgN3U4fe8cV0ZrAMEa/XWcE63egWsngDKOAArAeAIoAG/wZ9HOSjiq6Y3v+oLAPvqmaOci++uV0WqF+bw87hltfWAXpi+fCJ/MTwAFAAAAVqQOzumgN3ZYhsdGawDBGt0rWp0D100AZRwBFIDxBFAA3tjto52XcBS/Fq2+ALbu3+PCaGcj++mZ0WqF+f1I3CTaOsEI00vsvjta/bF7AigAAACwInVwTge9wcMyTJcWvOGFLXhanBWtzoHrJoAyjgAKwHgCKABv7MuinZdwpj40Wm0B7IvvjXY+sp9+OVqdcDpeFPeJs6OtFxzXO8X0LLHVHfMQQAEAAIAVqYNzOuhNHpbjkdGaQLAm0+WJVt/A9RNAGUcABWA8ARSAN/br0c5LOBPTyzv+NFptAeyLV8fbRDsn2T9TIKnVCadr+jLNPUMQhZO6IL4zvJDx9AmgAAAAwIrUwTkd9GYPy3HLuDRaIwjW4Lej1TZwZgRQxhFAARhPAAXgjU09nHOinZlwfT49Wl0B7JvHRjsn2T9fGq1GWIa/iS+ON4+2fnBtbhbfEJdEqy3mJ4ACAAAAK1IH53TQmz4sy0OiNYJgDd4rWl0DZ0YAZRwBFIDxBFAArul9o52ZcF3OjedFqymAfXNlvEu085L98lHRaoRleWX8ZNw9bhBtLWH62t9d4yfismi1xOkRQAEAAIAVqYNzOugNIJZl+vzwv0VrBsGS/Vy0mgbOnADKOAIoAOMJoIzzzJj+7cd+euu4XdwhphD/h8Ynxn3jq+N7Y/r31R/GP0arIZbj/tHOTLguD4hWTwD76leinZfsl9tEqw+W68Xx4/HxcX60dWV/TCHrD4nvjxdEqxmWQQAFAAAAVqQOzumgN4NYnq+J1gyCpboi3j5aPQNnTgBlHAEUgPEEUMb5i2hzDM10ket9YgqoTOGUp8X0b7BWW8xvevtzWze4NlMQ7aXR6glgn31gtHOT/eIFbev1mvi9uDg+PN482hqzHTeO6Us4Xx+/FtPXcVptsDwCKAAAALAidXBOB705xPKcFy+K1hCCJfrRaLUMHI0AyjgCKADjCaCMI4DCSU2hlI+IR8Q/R6sz5mE/c1TfEa2WAPbdU6Odm+wX/+7cjtfG9PXPx8T09be7xc2irTvLdnbcPj4qvjymr948O66MtvYs303aXRIAAABgmergnA5604hl+s/RGkKwNJfFW0erY+BoBFDGEUABGM9FoHFcWGek6TLQB8f0JY7Lo9Ucu/OquEG0tYGru3VMfZRWSwBcdPHHRzs/2R+PjFYbbMfLYgqc/Zf4pvjsuGvcLs6NVhfs1jlxm3i/+NSYQiYPi5+PZ4S/v27M1e+QAAAAAMtWB+d00JtKLNMN47lRG0OwIN8VrYaBoxNAAdbk4mhnGdslgDKOAAq7cqt4VExvG261x27cNtp6wNX9RLQaAuB1nhVTuLadoeyHz49WG+yPKaDynPjv8bPxI/Ht8cD4vLh3fFxMX1R5z3iP15u+0DGFWCa3jAuu4qxo9bYWN46r/jyT6Wc8/Hknd4ppHqZ5+fC4Z9wnPjemL9A8KKbnD4+LX4s/iL+OF4cvmeyZq98hAQAAAJatDs7poDetWK7PjNoYgoW4JKZGd6tf4OgEUIA1EUDZPwIo4wigsGvvFX8Vrf4Yb3pTcFsHuKp3DZf7AK7ffaOdo+yH94lWFwCMcXm7RwIAAAAsVx2c00Fv5rJc05u+pk8bt+YQLMHXRKtd4HgEUIA1EUDZPwIo4wigMIc3i1+JVoOM9SnR1gCuanrTdKsfAN7YC+JNop2lbN858cpotQHAyV3S7pEAAAAAy1UH53TQm7ks2/QZ6dYcgtP2ojgvWt0CxyOAAqyJAMr+EUAZRwCFudwg/mu0OmScL4s2/3DoQ6PVDgDdV0Q7T9kPT45WFwCc3IvaPRIAAABguergnA56I5fle2q0BhGcpi+MVq/A8QmgAGsigLJ/BFDGEUBhTtOLA/44Wi0yxndFm3uYnBV/Gq12AOheGjeJdq6yfd8SrS4AOLlntXskAAAAwHLVwTkd9EYuy/fB0RpEcFr+NqZP4bd6BY5PAAVYEwGU/SOAMo4ACnN72/j3aPXIyT062rzD5NOj1Q0A1+3B0c5Vtu8e0WoCgJP73XaPBAAAAFiuOjing97IZR1+PVqTCE7Dp0arU+BkBFCANRFA2T8CKOMIoHAavixaPXJyj4k253BuPC9a3QBw3S6NW0Y7X9m28+O10eoCgJP5hXaPBAAAAFiuOjing97IZR3uHK1JBHP7szgrWp0CJyOAAqyJAMr+EUAZRwCF0zB9xfK50WqSk/nFaHMO949WMwCcmR+Kdr6yfU+NVhMAnMyj2j0SAAAAYLnq4JwOehOX9fjZaI0imNOHR6tP4OQEUIA1EUDZPwIo4wigcFq+MFpNcjJPijbf7LebxEuj1QwAZ+Y1cYdo5yzb9vXRagKAk/mGdo8EAAAAWK46OKeD3sRlPd4+rojWLII5PCVabQJjCKAAayKAsn8EUMYRQOG0vHn8e7S65Pim87HNN/vtIdHqBYCjeUK0c5Zte/do9QDAyXxGu0cCAAAALFcdnNNBb+KyLj8WrVkEc7goWl0CYwigAGsigLJ/BFDGEUDhNP1wtLrk+ARQuLpbxWXR6gWAo3vPaOct2/bCaPUAwPG9f7tHAgAAACxXHZzTQW/gsi63Dg+wOQ2/EK0mgXEEUIA1EUDZPwIo4wigcJo+IlpdcnwCKFzdj0erFQCO57einbds249GqwcAju+t2z0SAAAAYLnq4JwOegOX9Xl4tIYR7MoV8Y7R6hEYRwAFWBMBlP0jgDKOAAqn6bzwYouxBFC4qneJ10arFQCO78Oinbts10dGqwUAjueSdocEAAAAWLY6OKeD3sBlfS6MV0RrHMEuTG/ubLUIjCWAAqyJAMr+EUAZRwCF0/ab0WqT4xFA4ap+NVqdAHAyfxJnRTt72aYbxL9EqwcAju5/tDskAAAAwLLVwTkd9AYu6/TN0RpHMNr0ZtzbRKtDYCwBFGBNBFD2jwDKOAIonLYHR6tNjkcAhUN3i1YjAIzxKdHOX7ZLvxRgnO9vd0gAAACAZauDczrozVvW6fx4SbTmEYz0sGg1CIzngSqwJgIo+0cAZRwBFE7bp0arTY5HAIXJ9Fb+6e38rUYAGONv4pxo5zDb9F7RagGAo/ucdocEAAAAWLY6OKeD3rxlvR4QrXkEo1wSN4tWf8B4AijAmgig7B8BlHEEUDhtd4xWmxyPAAqTT4tWHwCM9QXRzmG266+i1QIAR/PO7Q4JAAAAsGx1cE4HvXHLet0oXhCtgQQjfEO02gN2QwAFWBMBlP0jgDKOAAqnbeontNrkeARQODf+Llp9ADDWi+K8aOcx2/QV0WoBgDP3kjir3SEBAAAAlq0OzumgN25Zt8+J1kSCk5oe5J0fre6A3RBAAdZEAGX/CKCMI4DCErw0Wn1ydAIo3D9abQCwG18f7Txmm24Sl0arBQDOzBPb/REAAABg+ergnA5645Z1Oyd8fpxd+OJoNQfsjgAKsCYCKPtHAGUcARSW4FnR6pOjE0DZb9OlWIEugHldEjeNdi6zTY+MVgsAnJkvafdHAAAAgOWrg3M66E1b1u9e0RpJcFzPjXOj1RuwOwIowJoIoOwfAZRxBFBYgv8erT45OgGU/faQaHUBwG49NNq5zDa9Q1wZrRYAuH5v3+6PAAAAAMtXB+d00Ju2rN9Z8afRmklwHJ8RrdaA3RJAAdZEAGX/CKCMI4DCEjwpWn1ydAIo++tWcVm0umA3nhHTVw8ugIV5XLSaZXem8/c20c5ntulXo9UCANftme3uCAAAALAOdXBOB71hyzbcI1pDCY7q6XF2tDoDdksABVgTAZT9I4AyjgAKS/AL0eqToxNA2V8/Hq0m2J0PjrYWcNpuGf8RrW7ZnekcbuvBNt0lWh0AcN2+rd0dAQAAANahDs7poDds2Y7fidZUgqP46Gj1BeyeAAqwJgIo+0cAZRwBFJbgMdHqk6MTQNlP7xKvjVYT7MYToq0FLMVXR6tddueKeKdo68E2/Ua0WgDg2t253R0BAAAA1qEOzumgN2vZDm9/4qR+N1ptAfMQQAHWRABl/wigjCOAwhIIoIwjgLKffjVaPbAbr4xbRVsLWIpz42+i1TC780vR1oNtuihaHQDQPbvdGwEAAADWow7O6aA3a9mWJ0VrLsGZeL9odQXMQwAFWBMBlP0jgDKOAApLIIAyjgDK/rlbtFpgd74u2lrA0nxUtBpmt/S198sTo9UBANf0gHZvBAAAAFiPOjing96oZVveOa6M1mCC6zKFl1pNAfMRQAHWRABl/wigjCOAwhIIoIwjgLJfzoo/iVYL7Mbfxo2irQcskS8kzc+XvffLHeLV0WoBgDeYzsqbtXsjAAAAwHrUwTkd9EYt2/PYaE0muDZTaOlO0eoJmI8ACrAmAij7RwBlHAEUlkAAZRwBlP3yadHqgN35mGhrAUv19uFy/Pw+Otp6sE3fFa0OAHiDx7c7IwAAAMC61ME5HfQmLdtz+7g8WqMJmuniUaslYF4CKMCaCKDsHwGUcQRQWAIBlHEEUPbHufF30eqA3Zi+JNHWApbuO6PVNLvzjDg72nqwPW8eL4xWCwC8zp3bnREAAABgXergnA56k5ZtemS0RhNc3fQ2vttGqyNgXgIowJoIoOwfAZRxBFBYAgGUcQRQ9sf9o9UAuzH1rO4QbS1g6abL8f8UrbbZnftEWw+26ROj1QEAF13839p9EQAAAGB96uCcDnqDlm26ZVwareEEV/W90WoImJ8ACrAmAij7RwBlHAEUlkAAZRwBlP1w43hptBpgN7492lrAWkxhiFbb7M7zY/paVVsPtumXotUCwL57/3ZfBAAAAFifOjing96cZbseEq3hBIf+Iy6MVj/A/ARQgDURQNk/AijjCKCwBAIo4wig7IcHR1t/duOF8WbR1gLW4qz4g2g1zu5MX6tq68E2vWW8JFotAOyr32h3RQAAAIB1qoNzOujNWbbrgvi3aI0nmHxztNoBTocACrAmAij7RwBlHAEUlkAAZRwBlO176/jf0daf3bh3tLWAtXnPuDJanbMbL47zo60H23SvaLUAsI+uiHdud0UAAACAdaqDczrojVm27WuiNZ/AgzhYHgEUYE0EUPaPAMo4AigsgQDKOAIo2/foaGvPbvxutHWAtXpUtFpnd/x7df/YZwCv84PtnggAAACwXnVwTge9Kcu2nRcvitaAYr/dP1rNAKdHAAVYExd69o8AyjgCKCyBAMo4Aijb9s4xvUW4rT3jTXP9btHWAtbq5uFL5fO6NKZ5b+vBNr1pPDtaPQDsi5fEzdo9EQAAAGC96uCcDnpTlu37z9GaUOyv58e50eoFOD0CKMCaCKDsHwGUcQRQWAIBlHEEULbtV6KtO7vxyGjrAGv3ZdFqnt15RLS1YLvuGP8RrR4A9sGntDsiAAAAwLrVwTkd9IYs23fDeG60RhT76bOj1QpwugRQgDURQNk/AijjCKCwBAIo4wigbNddo605u/HieItoawFrd048K1rtsxuXx+2jrQfbdc9o9QCwdT/f7ocAAAAA61cH53TQm7Hsh8+M1oxi/zwzzo5WJ8DpEkAB1kQAZf8IoIwjgMISCKCMI4CyTWfF06KtObvxn6KtBWzFh0WrfXbn8dHWgm37+mj1ALBV/xI3b/dDAAAAgPWrg3M66I1Y9sMUOHhGtKYU++XjotUIcPoEUIA1EUDZPwIo4wigsAQCKOMIoGzTp0Rbb3bjT8MLU9gHT4y2B9iNK+Pdo60F2zWFSH8yWk0AbM1r4q7tbggAAACwDXVwTge9Ecv+mIIHrTHF/vj9aLUBLIMACrAmAij7RwBlHAEUlkAAZRwBlO05N54bbb3ZjbtEWwvYmtvFZdH2Abvxa9HWgm2b/iz/rWg1AbAlD2j3QgAAAIDtqINzOuhNWPbLU6M1p9gPHxitLoBlEEAB1kQAZf8IoIwjgMISCKCMI4CyPV8aba3Zjek8ausAWzX9W6rtBXbng6OtBdt24/jjaDUBsAU/1e6EAAAAANtSB+d00Buw7JfpQUtrULF9vxqtJoDlEEAB1kQAZf8IoIwjgMISCKCMI4CyLdNl1ZdEW2vGe0W8VbS1gK06L/4h2p5gN/4wzoq2HmzbTeOZ0eoCYM1+L85td0IAAACAbamDczrozVf2z69Ha1SxXVfGu0WrB2A5BFCANRFA2T8CKOMIoLAEAijjCKBsy4OjrTO78RXR1gG27lOi7Ql25xOjrQXbd/MQQgG25Olxk6h3QgAAAIBtqYNzmpoQEHeO1qxiux4XrRaAZRFAAdZEAGX/CKCMI4DCEgigjCOAsh1vHf872joz3nPihtHWAvbB70TbG+zGdOacE20t2D4hFGArprNsOtP+7/nW7oQAAAAA21IH53TYiID42WhNK7bn8rh9tDoAlkUABVgTAZT9I4AyjgAKSyCAMo4AynY8Otoasxt3j7YOsC/eJa6Itj/Yjc+Lthbsh+lrAU+NVhsAa/CM+H/hk0m7EwIAAABsSx2c01WbEey9tw8Pt/bDI6LVALA8AijAmgig7B8BlHEEUFgCAZRxBFC24Z1Dr2w+T4y2DrBvHhltj7Ab/xjnRVsL9sObxq9Gqw+AJfvdmIJ0b3SutTshAAAAwLbUwTldvSHB3vuxaA0stuPSeKto6w8sjwAKsCYCKPtHAGUcARSWQABlHAGUbfiVaOvLeJfF20RbB9g3bxEvjbZX2I0HRlsL9scN4oei1QfAEj02bhTXONPanRAAAABgW+rgnFpTgr1265ge+LZGFtvwrdHWHlgmARRgTQRQ9o8AyjgCKCyBAMo4Aijrd9doa8tuPCjaOsC++sJoe4XdeHlcEG0t2C8PiNdGqxOAJZjOqC+Pdob9X+1OCAAAALAtdXBOrSnB3nt4tIYW6ze9Oe/G0dYdWCYBFGBNBFD2jwDKOAIoLIEAyjgCKOt2Vjwt2toy3vPjvGhrAfvq7Hh6tD3Dbnx7tLVg/9w9plBSqxOA0/SvcY9oZ9f/0+6EAAAAANtSB+fUmhLsvQvjFdEaW6zbdb4RB1gkARRgTQRQ9o8AyjgCKCyBAMo4Aijr9inR1pXd+MRo6wD77gOi7Rl2Y/oy/C2jrQX757bx+9FqBeA0/Eq8ZbQz6420OyEAAADAttTBObWmBMQ3R2tusV4viBtFW29guQRQgDURQNk/AijjCKCwBAIo4wigrNe58dxo68p4vxltHYDX+eloe4fd+NFo68B+Oie+LV4brV4A5vDK+M8xfaWxnVXX0O6EAAAAANtSB+fUmhIQ58dLojW6WKfPibbWwLIJoABrIoCyfwRQxhFAYQkEUMYRQFmvL422poz3mnjHaOsAvM6t4tJoe4jxroh3iLYW7K+7xT9EqxmAXfrFuE20s+latTshAAAAwLbUwTm1pgS83gOiNbtYn+fEDaKtM7BsAijAmgig7B8BlHEEUFgCAZRxBFDW6cbhhSzzeWi0dQDe2NdF20Psxs9HWwf22/TStqlP62sowByeFx8T7Ty6Xu1OCAAAALAtdXBOrSkBr3ejeEG0xhfrcs9oawwsnwAKsCYCKPtHAGUcARSWQABlHAGUdXpwtPVkvBfFFPhp6wC8salP/9xoe4ndeJ9oawEXxTOj1Q3ASU1/R/6SODfaGXRG2p0QAAAAYFvq4JxaUwKu4nOiNcBYjz+MtrbAOgigAGsigLJ/BFDGEUBhCQRQxhFAWZ9bxiujrSfjfVa0dQC6j4u2l9iNJ0dbB5icE18aL41WPwBH9fKYvnj2ZtHOnSNpd0IAAACAbamDc2pNCbiKqZH+V9GaYazD3aKtLbAOAijAmgig7B8BlHEEUFgCAZRxBFDW58eirSXj/UGcFW0dgGv3G9H2FLtxj2jrAIcuiIfGq6PVEMD1eV5MXzw5P9o5cyztTggAAACwLXVwTq0pAVdzr2hNMZbv16OtKbAeAijAmgig7B8BlHEEUFgCAZRxBFDW5Z3iimhryVhXxp2jrQNw3e4Yl0fbW4z35yEsx5m4fTw67E/gTP3P+JS4QbRz5UTanRAAAABgW+rgnFpTAq5mesjyp9EaZCyXB/qwDQIowJoIoOwfAZRxBFBYAgGUcQRQ1uW/RltHxvuRaGsAnJnpawttb7Eb9462DtDcNn4wLotWT8B++9eY/hyfAqXtDBmm3QkBAAAAtqUOzqk1JaCYPjffmmUs109HW0tgXQRQgDURQNk/AijjCKCwBAIo4wigrMcHRVtDxnt5XBhtHYAzc+P4l2h7jPGeGzeMthZwbW4ZD44XR6srYH9cGk+IT4zZ/jxpd0IAAACAbamDc2pNCbgWvxOtecbyTJ96v0O0dQTWRQAFWBMBlP0jgDKOAApLIIAyjgDKOkxf/f2jaGvIeF8UbR2Ao/n/ou0xdsPZxXGdG58ZfxCttoBtOgyd3CvOi3Y+7FS7EwIAAABsSx2cU2tKwLW4S7RGGsvzQ9HWEFgfARRgTQRQ9o8AyjgCKCyBAMo4Aijr8MnR1o/xnhE3iLYOwNEIz83rRXF+tLWAM/Xu8dD4p2h1Bqzb9MWs74+PiDeJdg7Mpt0JAQAAALalDs6pNSXgOjwpWmON5XhlTJ94b+sHrI8ACrAmAij7RwBlHAEUlkAAZRwBlOW7YfxttPVjvA+Ktg7A8VwUV0bbb4z3jdHWAY7q7PjQ+Il4ebR6A5bvJfHE+JK4Q7T9fmranRAAAABgW+rgnFpTAq7DO4cHW8v2kGhrB6yTAAqwJgIo+0cAZRwBFJZAAGUcAZTlmy6LtbVjvJ+KtgbAyfx4tD3HeJfEhdHWAY5r+jLYB8f0ZZS/jlZ7wDL8Qzwh7hfvEtPXyNq+XoR2JwQAAADYljo4p9aUgOvx2GjNN07fy+KCaOsGrJMACrAmAij7RwBlHAEUlkAAZRwBlGV783hxtLVjrP+IW0VbB+Bk3ipeEW3vMd73RFsHGGX6isJ0uX265P4v0eoQ2L3pWetvxLfFx8b0523bs4vV7oQAAAAA21IH59SaEnA9bh+XR2vKcboeGG3NgPUSQAHWRABl/wigjCOAwhIIoIwjgLJs02Wytm6M97XR1gAY48uj7T3Ge1XcNto6wC68Y0yBlJ+Ip8drotUmcDzTs+5nxOPjq+OjYhPB6XYnBAAAANiWOjin1pSAM/AD0Zp1nJ4XxnnR1gtYLwEUYE0EUPaPAMo4AigsgQDKOAIoy3XLeGW0dWOsv4lzo60DMMYN46+i7UHGm/6u1NYB5nCjeJ+YQik/GE+Of4xWq8AbTPvkKfHDMQU3p6+aTF8cOifaXlu9dicEAAAA2JY6CAAAAGzLwUUXX3Ad3jyucWkAZvam0eqTozs/2hxz+qbL2m3NGM+LUmAe015re5DxbhxtDeA0vVncOT4tvjF+NH49nh3/Hu1CPmzF/44p9Py78ZPxrfH5cfeYQiZ7GYZuPSkAAABgW+ogAAAAsC3tUgAAAADs0E3iXeMj4z7xwPiu+In4tXhaPD9eEe2CP8zptfHieE78z/iFeFR8R3xlfHrcLe4YXuRxLVpPCgAAANiWOggAAABsS7sUAAAAAAsyfe3ndvHu8cHx8fHZ8cXxFXFxTAGW74vHxM/Ek+Ip8T9iCrT8xev9Xfz9611yFa+MFj5g+Q7X8GVxuLb/Kw7X/KnxOzHVxM/GVCOPiIfGVDtfFV8Y946Pig+Id4nbxhSWajXJEbWeFAAAALAtdRAAAAAAAAAAAAAAAAAO1UEAAAAAAAAAAAAAAAA4VAcBAAAAAAAAAAAAAADgUB0EAAAAAAAAAAAAAACAQ3UQAAAAAAAAAAAAAAAADtVBAAAAAAAAAAAAAAAAOFQHAQAAAAAAAAAAAAAA4FAdBAAAAAAAAAAAAAAAgEN1EAAAAAAAAAAAAAAAAA7VQQAAAAAAAAAAAAAAADhUBwEAAAAAAAAAAAAAAOBQHQQAAAAAAAAAAAAAAIBDdRAAAAAAAAAAAAAAAAAO1UEAAAAAAAAAAAAAAAA4VAcBAAAAAAAAAAAAAADgUB0EAAAAAAAAAAAAAACAQ3UQAAAAAAAAAAAAAAAADtVBAAAAAAAAAAAAAAAAOFQHAQAAAAAAAAAAAAAA4FAdBAAAAAAAAAAAAAAAgEN1EAAAAAAAAAAAAAAAAA7VQQAAAAAAAAAAAAAAADhUBwEAAAAAAAAAAAAAAOBQHQQAAAAAAAAAAAAAAIBDdRAAAAAAAAAAAAAAAAAO1UEAAAAAAAAAAAAAAAA4VAcBAAAAAAAAAAAAAADgUB0EAAAAAAAAAAAAAACAQ3UQAAAAAAAAAAAAAAAADtVBAAAAAAAAAAAAAAAAOFQHAQAAAAAAAAAAAAAA4FAdBAAAAAAAAAAAAAAAgEN1EAAAAAAAAAAAAAAAAA7VQQAAAAAAAAAAAAAAADhUBwEAAAAAAAAAAAAAAOBQHQQAAAAAAAAAAAAAAIBDdRAAAAAAAAAAAAAAAAAO1UEAAAAAAAAAAAAAAAA4VAcBAAAAAAAAAAAAAADgUB0EAAAAAAAAAAAAAACAQ3UQAAAAAAAAAAAAAAAADtVBAAAAAAAAAAAAAAAAOFQHAQAAAAAAOL6Diy7mdc6KW8R7xIfEJ8bnxJfHt8T3xQ/EY17vsfGkq3l8HP7fp//f6X8z+ea4f3xWfGx8YLxzvHXcKNrvB/bJ2THtv/eMj47PjC+Kr43viB+Kw731U3HVfffEOPy/PTKmPffd8XXxn+Ke8QFxx7hZtP/+KrUzfZ+0OdkzUz2/exzumS+Ob4iHxqPjcF9Me+Sqe2byuJj+bz8Y3xXfFF8anx53j3eJm0f7725CqynO3OMf/3iO5k3j7eL9455x3/iy+Kb47viReMzr/XQ8qfj5mP7vj4rvi4fE18b94t7xkXHnuGWcE+33AQAAs2v/poC51EEAAAAAAACOr13K3LDpgvvdYrrY/vD42fiD+Id4TfyfU/Iv8bSYLgl/b0yhl3vFdBn//Gg/C6zNTeJ9YrooP4WypgvwfxT/HFdE2xu7cHk8N34rfjS+IqYL/LeL9vterHam75M2Jxt0m5gCIVOIcQqLPDn+Nl4Vrb5H+9/xnPhv8Yi4X9w1Loz2+12NVlOcuXapbM+9SUzhj3vFV8UPx2/F38R/xP85Bf8aT4snxsPjP8eHxm2i/QwAALAT7d8UMJc6CAAAAAAAwPG1S5kbcMN475iCJj8eU8jkkmiXa9fgBfGb8bC4T0xvpr9BtJ8dlmC6nP4xMX2NYQpW/V202l6aV8T/iCmg9qkxfaWo/XyL0M70fdLmZOXeKqavZH1r/Ea8LFqdLsX0Z9O0v6cvFU3hzjeJ9nMtUqspzly7VLZH3io+Ph4U01dJ/jpeGy0EslT/Hr8fPxRfEO8RN4j28wIAwIm0f1PAXOogAAAAAAAAx9cuZa7QTeNTYvp6yBQ2uSzaZdktuTSmi/LfGdOF5enrEm1uYA63is+IH4lnR6vZtfr7mIJs089382g//6loZ/o+aXOyMjeOj4vvi2dFq781mb7KMv25NH3h6L3irGg/9yK0muLMtUtlG3V2vGfcP34m/j5aoGMLXhm/Gw+Ou8ebRpsT9sf58SSu0wdHmzteZzpP2rzxBl8Xbe64ph+LNoeM9VPxmNeb5vz74tvj4viK+OL4zPjoeP94p7hl3DDaurF958YvRaunpZp+v3eI9vNs3UOizcmSvV/7N+lR1EEAAAAAAACOr13KXIHpCyd3jW+Lp8Vro12G3SfTHPxpPDQ+NM6NNncwwvQFng+M74hnRKvJLboyppDb18Udo83NbNqZvk/anKzA9FWdL44nxxXR6mwr/jl+LD4iFvfVrlZTnLnH98tMW/E28fnxc/HSaGGNffDqeHJMl03fMdpcsW0fEa02eIPvjDZ3PP7x94w2Z1zTfaLNIW8wfX2szR3L8uL4y/iNmAIs3xKfHR8Q0xq2tWX9piBSq4ele1a8WbSfaaumLx5eGm0+luxFcYv279IzVQcBAAAAAAA4vnYpc6FuFNOb4h8Xr4h22ZU3+I/4hfis8HUURpgukN89pq+BvCxa3e2bP4uviVtEm7Odamf6PmlzslAXxv3jj2IKMbVa2roXxw/E9GWUNkezazXFmXt8v9C0ZneOb4tnRrv0xOMf/9cxzdE0V20O2Z5pvVst8Aa/HW3u9t3N4yXR5oxruiTaPPIG94o2d6zLv8cfxA/H/eIu8SbR1pz1+Npo670GXx3tZ9qq9442D2vwQ+3fpWeqDgIAAAAAAHB87VLmgpwd05vTpwvvL492qZXrd3n8Wnx6nBdtruHaTBfGHxH/Eq2+eN2XLP5rfExM51abx+Hamb5P2pwsyBTY+sj4+Xh1tLrZV1Nw6wvi/GhzN4tWU5y5x/cLTWvzbvGweH78/+3dB5hkVZ3//x4GhiBJBEFBQMWEiTWMLmZUZI0YUBQDYsKwRlTENIoREz8xYELUwhzAsCIqskZ0UTGCwgIiCoqwgEhm/v/3oenpma7PzFRVV3ffc++b53k9u3t3uut8vufUrb7P8z11UpOTVu8UlGbDbZFqq3Y4AWn+Ne3/sAipfl32BaR6KfsJUh017VCk2ql+V+D7eDN2x/pIa0DN9XWkua3BfyBlaqsXI9WhBs9Nz6WDihclSZIkSZIkSZI0utSU2QA3xqtwFlLzqkZ3CT6CxnwLvRppI+yH/0FaR1q901BOu5jz5vp0T++SVJMGKPP+IpyJtD40rZykdDDKZ36q5ZxKa0qD6+WGphrcGKXx6pdIjU0azrX4Kh4Cm/DbZQkuQ5p3repWSDXsqr2Q6qTVOwSplpp2ElLt1D7/RNnE9mRsirQe1Bzr4EKkuWy68nfsZki52upLSLWowR3Tc+mg4kVJkiRJkiRJkiSNLjVlLqB74dMoJ3akZlWNV/kW+qdiCdJ8qHu2xbtwEdKa0eD+gbKRbnOkWs9auqd3SarJAroJDoHvneFdjkOxNVJt50RaUxpcLzc0Ndl98DlcjdTQpNn7I/bHBkhzoLrcE2me1W9vpBp20VY4H6lOWr1HItVTkzbGNUi1U7uVjZCfwm5wo2sz3RFp7mpwMlKmNqv1M7psclonPZcOKl6UJEmSJEmSJEnS6FJT5jxbhIfjR0iNqZp7f8WBmPMTG9RYO6GcjOPmr/ErG1Fehg2Qaj+ydE/vklSTBbAl3omyiSLNvwZ3Kd6MTZFqPVZpTWlwvdzQ1DRlI8TT4Wkn8+tcHIjSMJzmRXV4BdL8qt+7kGrYRUcj1UhrtiVSPTVpd6S6qVv+gLLRdUOkdaKF8Vyk+arBYUiZ2uq2SHWowdfTM+kw4kVJkiRJkiRJkiSNLjVlzqM9UE7hSI2omn/lm/uXYTOk+VL73BxHYTnSmtD4/Al7Ic3DSNI9vUtSTeZR2STxBpRNE2m+NbrzUE7nKhtUU+3HIq0pDa6Xm5qaomx8eCnKRojUwKT5Uer/IixBmic121eR5lX9vo9Uw67ZB6k+WrNTkOqpaW9Eqp266R94Ddzo2gyfQZqnGjweKVNbPQupDjV4ZXomHUa8KEmSJEmSJEmSpNGlpsx5cDd8H6nxVAuvnNjwQixBmj/Vr5zacCg88WT+fRe3QZqXoaR7epekmsyDsiliH5yLNL8anx/jtkjzMGtpTWlwvdzUtNA2Qzl5ozQmpsYlLYwz8GikOVMzLcKFSPOpfv/EOki17IptcAFSfbRmH0aqqaZ9D6l26rbz8WK40XVh/RlpfmpQPrtSprb6JFIdarBreiYdRrwoSZIkSZIkSZKk0aWmzDm0NT6B1Giq5jkd5ZSaNJeq07o4AOW0mzTnmh9X4ECU+UjzNJB0T++SVJM5dme4eXJ+lffKQZjVeyVJa0qD6+WmpoVSGg9fCDeeNNt3cWukOVSz3B5pDrV6pWapll1xNFJdtHZPRaqpJq2Hy5BqJxWnYjek9aO5tSPSnNTgdKRMbXYmUi2a7nIsSc+kw4gXJUmSJEmSJEmSNLrUlDkHyjfGPxf/h9Rgqmb7ErZBmlvV49/xa6Q51sI4EbdEmq+1Svf0Lkk1mSPr4Q24BmkeNfd+gh2R5mckaU1pcL3c1DTfyikNe+F/kZqV1DxX4NUoDcVpTtUM+yPNn1avy5sInoZUEw3mlkh11aR7ItVNmulTKKfhpXWkufFkpLmowceRMrXVdkh1qMF/Iz6TDiNelCRJkiRJkiRJ0uhSU+aY3QonIDWUqh4X4AlIc6xm2wwfxnKkudXCugR7I83dGqV7epekmsyBO+BkpLnT/CqbWB+NNE9DS2tKgytNQAvsTvgxUpOSmu+XuB3S3GrhHYU0b1q9w5Bq2Xbb4iKkmmjtzkWqq6a9HKl2UvIn3AdpLWn8Dkeahxrsh5SprfZGqkMN3oT4TDqMeFGSJEmSJEmSJEmjS02ZY/RMXIrUSKo6HYkNkeZbzXM//AlpLtUs78G6SPMYpXt6l6SajFE5uesAXIk0X1o4b8M6SPM2sLSmNLjSBLRANsY7cQ1Sg5LqcTmejzTPWlilgTfNmVbvRKRatt03kOqhwXweqa6adgxS7aTVuRYvQVpPGq/fI81BDW6FlKmtPoBUhxrsgfhMOox4UZIkSZIkSZIkSaNLTZljUE5c+BJS46jq9xvcAmnu1Qzr4+3w1JO6HIdy/0xz2ifd07sk1WRMyhx8BWmO1AzHYGOk+RtIWlMaXGkCWgAPx5+RGpNUr8+hbCxKc675tz3SPGnNyoaqdZFq2lb7ItVCg3shUm01aREuQKqdtDYfwxKktaXZ2xKp7jU4DylTm/0GqRZNVzaUbYL4TDqMeFGSJEmSJEmSJEmjS02Zs3QnnIbUMKr2OB+7Iq0BLawdcRLSvKn5foXtkOZ2Feme3iWpJmOwC05Hmhs1yy+xFdI8rlVaUxpcaQKaR5uiNBGmpiS1Q/kG7Vsizb/m15OQ5khrtwtSTduobFS6GKkOGtxdkeqrSTsj1U0a1FfhJpS58SikmtfgC0iZ2moLLEeqRdP9AtflSM+kw4gXJUmSJEmSJEmSNLrUlDkLj8a/kBpF1T6X45FIa0ELY3dcgDRfqkfZALHWTSjpnt4lqSazVD7DLkOaEzVTea+UTXdpPtcorSkNbqoRaB7cH2chNSSpXf6BeyOtA82fDyLNj9buWUg1bZtyKsVxSDXQ4C7FYqQaa9L+SLWThvFtbIi0xjS6dyLVuwZdO33qEUh1qMH/w3U50jPpMOJFSZIkSZIkSZIkjS41ZY7oVUjNoWq3q+AmlIW3CAfhWqR5Un3OwfZI832ddE/vklSTWXgZfP/UqbxXdkKa19VKa0qDm2oEmkOlKffNqPXbejWaK/FopDWh+fFbpLnR2h2OVNO2KRttUn4Np2ziSfXVtPJfqp00rC9iHaR1ptGciFTrGvwbUqa2OgSpDjV4HK7LkZ5JhxEvSpIkSZIkSZIkaXSpKXNIi/E+pKZQdcOVuB/S+tDcW4IjkeZGdTsNWyHNe7ynd0mqyQjKZ9j7keqvegy9CSWtKQ1uqhFojmyDE5CakNR+1+KpSGtDc2sLuOlrdD9HqmubbI9LkPJrOK9DqrGmeQKaxuldSOtMw9sIVyPVuekuRtdOn6p5s1B5LrwuR3omHUa8KEmSJEmSJEmSpNGlpswhlMbdo5CaQdUtF+N2SOtEc2dTHIc0J2qHk7AR+uY/3dO7JNVkSH6Gtcvp2BZprvukNaXBTTUCzYH74zykBiR1y75Ia0Rz5+FIc6HBlGbc9ZFq2waLcDxSdg3vgUh11qSbIdVNmo29kdabhrMbUn1rcCxSprYqm4WuQqpF052GFVnSM+kw4kVJkiRJkiRJkiSNLjVlDqicunA0UhOouukP2ARpvWj8boqTkeZC7fI5LMIqayDd07tkZj2G5GdYO/0SA30OpTWlwa3cDDRGz8U1SA1I6p5yEso+SGtFc+PtSHOhwd0dqbZt8HykzBpe+ay7AVKdNemJSLWTZuOfuCXSmtPgyglOqb41OAgpU1s9AKkONTgCK7KkZ9JhxIuSJEmSJEmSJEkaXWrKHED51vjPIzV/qttKo3xaMxqv7VC+7T/NgdrpFVhlHaR7epfMrMcQyuaTryLVWfU7Fusizf0KaU1pcCs3A43BYrwXqfFI3Va+sXl3pHWj8fsx0jxocGWTRqpt7W6OS5Eya3g/Q6qzpn0QqXbSbP0I5USntO40mG8j1bYG90HK1FY1bxbaDyuypGfSYcSLkiRJkiRJkiRJGl1qylyL8i38n0Bq+pSKvZDWjsbDzSfddDX+HSvWQrqnd8nKtRhC2UD5ZaQaqz3eiTT/K6Q1pcGt3Aw0S5viv5CajqTiYtwJaf1ofDZE2fCT5kCDW+XbuluiNGp/DymvRvNupFpr2m+QaieNw7OR1p3Wbl3UuiHxCmyAlKutat4sdCusyJKeSYcRL0qSJEmSJEmSJGl0qSlzLd6C1OwpTfkbNkFaP5odN59022nYCNeth3RP75KpOgyhbKD8GFJt1T6PRVoH10lrSoNbuRloFrbCL5AajqSVnYUbIa0jjcf9kGqv4ZSm+VTfmr0IKatG91ikWmvSFliOVDtpHP4PmyOtP63Z3ZBqWoMfImVqq5o3C52HVfKkZ9JhxIuSJEmSJEmSJEkaXWrKXIPnIDV5SjOVjUppDWl0W+GPSPVWdxyK69ZEuqd3yVQdhvB2pJqqnf6JWyCthbimNLiZDUEjuBn+iNRwJCXfwmKk9aTZew1S3TWca3EDpBrXqHz7+GVIWTW6rZHqrUkPR6qbNE5vQFp/WrOXINWzBm9FytRWd0eqQw2+gFXypGfSYcSLkiRJkiRJkiRJGl1qylyN++EqpCbPtluO83EqfowTcCyOuf5/L36OP+MypN/RNZejbJhIa0nD2wwnIdW6C8q952ycjJ/ge/gqynvvB/gtzsM1SD/fJtfiToj39C4pNRjCC5Dq2UZX4H/xP5j6vCrK//4zlPdSVz7Py/1hMfrWRFpTGtzMhqAh3Q7nIDUbSWtSNkmkNaXZOxap5hrevZBqXJt18AOkjBpd2XyZ6q1pb0OqnTRO5WSIGyKtQa3el5DqWYP/QMrUVi9DqkMNyulrq+RJz6TDiBclSZIkSZIkSZI0utSUGWyHsgEjNXe2Tdlk8gm8BA/GTliCVJfV2RJL8RS8G99HaQhOr9dmByPVR8Mp6+94pBq3TdlAUjaZfBBPx71R7j/rINVmpkW4GR6A5+Pj+D3Sa9WsbCSI9/QuKTUY0B4oG3dSLWv3D3waL8X9MejGv/Je2R4Px0H4DsrGwfQatXsF+mqQ1pQGN7MhaAh3xPlIjUbS2lyNpUhrS6MrJ8tcglRzDe/FSHWuTcmR8ml2jkCqt6b9GKl20ri15X49n/6OVMumKyeUbYaUqa2ORqpFDe6CVfKkZ9JhxIuSJEmSJEmSJEkaXWrKnGE9lFM/UlNnG1yMz+KJ2BqpBuOwAR6Ew/BXpLG0zd9R1k+qhwZTmsQ/g1TftrgQZdPXI3ADpDrMVmm03x9lM1gaQ432SPf0LqEGg9gZ5T6falirsunkUNwDg27OGkT5nHoMvow2nZBSNtbcAqvkTWtKg5vZEDSgnXAeUpNR112FM3EyfooT8A0cd/3/fhJOxQVIP98lf8AGSGtMoylNfqnWGs1RSHWuyW1xGVI+zc4zkGquSeX+Xj4TU+2kcSt/UyxCWovqVz4bUh1rUP7GTpnaqqzrWjf9l03RZXP0KpnSM+kw4kVJkiRJkiRJkiSNbmZDZvB2pIbO2pUTJfZBabhNuedSaRgu38j/dSxHGl9blE0FqQYazOuR6lq7su6PwcMw35uUboMPo/YG+xPTPb1LqMHabIEzkepXo9NRTgZaHynvOJWTh96BS5HGUptvYJWMaU1pcDMbggZQNp+cg9Rk1CVlA8438Rbshbtia6Sarc4S7IDd8Z/4EH6N8s3O6TXb6GCk2mg0L0Sqs0ZTNoulOteiNH2eiJRNs3cbpLpr0v2Q6laTM1BOHlgIZfNq2bhalPfx7/BnXIo0VvV6d0Nai+r3TKQa1uAwpExtdTukOtTgWPRlSs+kw4gXJUmSJEmSJEmSNLqZDZkz3A9t2yDxBdwFKe9CKN/O/xWksbbBp5Bya+2egFTTml2Dj2InpMzzqZyI8F9I46zFA9N9vSvIvyZlo9+xSHWrzSV4EZYgZZ1LN8WRSOOqzSobItOa0uBSU9AabIfS/JgajNqunCBQmkFLg/+tkOozLpvgUTgCf0caT1uUb8cvjXWpDhreF5DqrNEsx2ZIta7By5FyafbKvTnVXNNeg1S7muyPlG2hbYSyIfi+eDrKZtiv4GykHF3xJqR6qd+RSDWsweORMrXVc5DqUIPyOdCXKT2TDiNelCRJkiRJkiRJ0uhWbsacYRP8CamJs0Y/wt2RsjbBA3Aa0thr9ncsQsqs1bsrLkeqaa3KCQTl9JGUdyE9A7XW+mvpvt4V5F+TNyDVrDbfxvZIGefTg3AO0hhr8XssxnWZ0prS4FJT0GqUJuxfITUXtdl/42m4AVJd5tq62BP/hdIMn8ZYu68jZdfwysk8qcYa3W5ItW662+IKpEyavS8j1V3Tyjffp9rV5A5I2ZpsK5ST2T6Mrm0a/gVSTdTvf5FqWINtkDK1Vfkv1aEG5SSsvkzpmXQY8aIkSZIkSZIkSZJGN9WIGbwPqYGzNuWb45+PGjZBbIhyYkjKUbPbI+VVdkOcgVTLGp2HRyNlbYpyKtL5SONvsnJC1Q7p3t4FZF+d/0AbTu86BCs2TDRAuTd9B2mstdgX1+VJa0qDS01BwRJ8F6mxqI3KqRyH45ZI9Vgou+BopDHX7kFImTW48m34qbZNcnm41nTlFJFU7yYrG9d+hpRH4/EypNpr0mJcglS7WlyIdZDy1aKMvzSAl9Muyt82KWebXIOF2jBck5sg1a8GpyNlarOzkGrRdOWesyH6MqVn0mHEi5IkSZIkSZIkSRrdVCPmDDdBG5p3f4lbImVssoOQ8tTqqUg51a9slPoqUh1r9HVsiZS1ae6IC5FyNNmr0729C8ielM+vGjcTrexalJN5Ur6FtgTHIo27BmdiXcQ1pcGlpqCg/Jcai9qmnBZwKEpjXqpDU5Rm0j8iZajViUhZNbh9kWrbJB8I15ruC0j1brJXI2VpgracynIPpNpr0l2Q6laTryFlq9VNUe7B1yLlbYv7IuXXtCcg1a4GH0fK1FY3Q6pDDX6MlCk+kw4jXpQkSZIkSZIkSdLoShPmapyE1LxZi6OwAVK2GrwRKVeN3omUUf1eiVTDGr0GNZw8tLLdcDVSnqY6Jd3bu4DsM5X19m2kOtXk6Uj5mmIznI409ho8EXFNaXCpKWiG8i3vqamobY7BLZBq0EQb4L1IWWq1B1JWDeZjSHVtkn/HuTOuNd0ZSPVuqjvgSqQsC+1sfGfGtRpdhnLKTKq/Jr0QqXY1eQVSttr9G05FytwGz0bKrWmHIdWuBvshZWqrfZDqUIO3IWWKz6TDiBclSZIkSZIkSZI0utKEuRpPQWrcrEHZ8FBb4/tM6+A4pHy1+RxSRq3qrqht80NyFR6PlLEGy5ByNdmt0/297cg90wFI9alJ2XyYsjXNrkjjr8EvENeUBpeaglbyQLT9m7LPx+OQ8tfgKbgcKVttfoCUUYP5A1Jdm6I07S/Bl1e6VosbIdW8acqmiJOQMjTBg/H3GddqdDxS/TWtnByUaleTsmEuZWuDjVFOeEm5a/cWpMyadjJS7WpwK6RMbXU4Uh1q8HCkTPGZdBjxoiRJkiRJkiRJkkZXmjBXo2yAuBP2xXvxI/wLqZmzSd6GlKdGt0YbNiT8BCmfppXTek5Bql9NLsODkTLWYj38BilfUx2Q7u9tR+6V3QFXItWnFsegps2Tn0TKUYNd05rS4FJT0PV2xAVIDUVtcRxugpS/JruhNPenjLUp38yeMmrNtkaqZ5OcgDLWA1a6VotaTud5HdL4m+D9uM2Ma7U6GKn+mnYeUu1qMbVhLmVri5KvDScSzXQkUl5N2gy1bi4v95WUqc1+h1SLpluOLZAyxWfSYcSLkiRJkiRJkiRJGt1EbipdnbIp5bbYB+/C8bgYqblzIbwHadw1+zxS1pqcjJRN08omr1S7mpSTT3ZDylebRyJlbKr/Svf3tiP3lHVxElJtanE2NsfKuZruVliOlKfpjkxrSoNLTUEo36J/IlJDUVu8GYuR8teonFZzFVLWmnwCKZ/W7LFI9WySN6GMddeVrtXi1ZhZ86bZBVcjjX+hnYFy4sIzVrpWs4cgzYEm7YRUt5pMbZhruy1R+2ahmb6ClFWTyobKVLcalJOVUqa2KqevpTrU4DdIma6TnkmHES9KkiRJkiRJkiRpdBO5qXQY5dvad8JeKKePHIfzkRo+59JXsRhpjDXbEylvTc5AyqZJ90OqW01KE/rjkPLV6hdIWZuobARcnO7xbUbmKS9HqktNHoSVM9XiO0h5mq6c1rRZWlcaTGoKQmkUT81EbXAN9kPKXbtnImWuyeUo386d8mn1DkWqZ5NMNe1vgNo2Sx2NmTVvkvVwMtLYF1r5FvT7oIzziOuv1aycHLAJZs6Bpj0dqXY16dIpN89DqkGtvomUU5PeglS3GvwnUqa2ehRSHWrwAaRM10nPpMOIFyVJkiRJkiRJkjS6idxQOg7bo2yeeCO+gXORmkDH4VRsjDSO2m2DlLkmZX5SNi1dtj5OQapbTcoGgJSvZs9GytpUd0j3+DYjc3EbXHF9DWp1OFZeezV5IlKmGjwlrSsNJjQFlUbh0mCbmolqdxkeipS7LQ5Hyl6TspEmZdPqnYRUy6aY2bT/U6R/11R/wcr1bpplSONugrI5amqcf7z+Ws1+gZVrr34fQ6pdTbp0ys2GuBSpDjX6KlJOTfo+Ut1qUE76Spna6p1IdajBE5EyXSc9kw4jXpQkSZIkSZIkSdLoJnJD6VwpmykehtfiyzgbqSl0GKXx+M5Ir9cW5ZvaU/Za/Awpl5Yuex1SzWryOaRstdsUVyJlbqLONdOTufj2SjWo0YW4EVZeezXZCLVuAPpaWlcazIyGoE1xNlIjUe3K5pN7YmbmttkYZyLVoBalOTJlU1bmvJzsk2rZFD/HymN+N9K/a7JtsHKGprgLrkYa80I7FeXEmzLOra+/VrvDMHMOtKraNxqVDXPlvpqytdUXkWpRo88gZVSvtz6uQKpb012MxUi52upEpFrUYDukTNdJz6TDiBclSZIkSZIkSZI0uoncUDqfSuPtg3EgPo/TkBpFV6eNJy/MdB5S9lp8FylX190KtZ/ccDraevpQcSxS7ibq4gaUx86oQY1egJnrrjbHI2VrurLBbLO0trR2MxqCSmNtaiKqXdl8shtm5m2rByPVoRbLcWOkbOq3O1Idm+T/YeUxPx7p3zXZI7ByhiYozcS/RRrvQitN/Ctv+nss0r+rzROw8hxoVW3YaFROlErZ2uw1SLWo0UeRMqrXuzdSzWrwTaRMbbURmr65eHXOQsq0QnomHUa8KEmSJEmSJEmSpNFN5GbShbYZ7o+X4iicgmsxs3n0JKyL9DvapPYTUD6JlKvrjkGqVy2uwVKkbG3xEqTsTXNUur+3GZnLyRt/WqkGNSobuNrwGXYQUr4aPCatL63dSs1A/47S+J8aiWp2FR6KlbN2wbFI9ajFs5Fyqd8bkWrYJI/DymMu34yd/l2TlTqvnKEJ3ow01iZ4K1Yea42n3iQ3xcq5tKryXk91q8mhSNna7GlItahRE+/VTXEgUs1q8CqkTG31QKQ61KD8lzKtkJ5JhxEvSpIkSZIkSZIkaXQTuZm0iW6Ae+E/cQR+hbsg/ds22RSpabYmr0TK1mUPQKpVTQ5BytYm90DKPh/K6Tjl9KM/4Gc4Dl/AR/BOvBblfvhUbJTu721G5mVIdavJvpi55mpUNoymfDU4PK0vrd31jUDroanfoj9b+2OVpqeO+DeketTiGKRc6vc9pBo2yTaYOe5zkP5tU30DMzMspLuhqd+OXj5PyuksK4/3Z0j/tiZnYOVM6lc2b6Ta1WTmhrku2BOpFjV6ClJGTX6OpZrVoJzekjK11TKkOtTgOUiZVkjPpMOIFyVJkiRJkiRJkjS6idxMqubYDalptiYPQ8rWVevgF0i1qsWZ2BApX5sswdVINViT5bgQpU4n4wQcjU/gvXgjXoZn4HF4MO6OW+PGWB9pPKtI9/QuIPvWuBSp9rX4PRajb14rtBVSxhqckdaY1u76RqADkBqIavc+rNLw1DHfQapLDS7Guki5NK1sHrsMqYZNcRrS2D+H9O+b6u9IORbCBvgd0jgX2tW4C1Ye7w3Q1M0yw/gUVs6lfich1a4mWyNla7M2nYBSNueljF23Di5CqlnTXYHyuZdytdV3kWpRg9shZVohPZMOI16UJEmSJEmSJEnS6CZyM6ma421ITbO1KI34paE+ZeuqJyLVqiaPQsrWRkfhv/AZHI7ynnwVnocnoWywKqcz3QE3wyZIv2fs0j29C8j+PqR1WZOnoG9OK/Y3pJw1uElaZ1qzXq+3JWptSFuTE9D1DQyPQKpNLe6OlEvT7olUuyY5AmnsL0b69022PVKW+fYOpPE1QfnW9pnjfSDSv63NWr/VveM2xrVItavFH5Cytd2rkepRm7JRYSOkjF13J6Sa1eAHSJnaqjy/NH1z8er8A4uQcq2QnkmHES9KkiRJkiRJkiRpdBO5kVTNsC7OQWqYrcXPkLJ1VTn9pJx8kGpVi/9GyqZ5lu7pbUfunXAV0tqsxXkop+v0zWnFyn0hZa3BY9Ja05r1er3DkBqIanYhtkNfw1PHlG+7/itSjZruf1BO90i5NO3lSPVrkv2Qxn4PpH/fZI9ByjKfyqajpjb5/wLpffs6pH9fm50xM5um7Y5Ut5p8DClb230WqR61OR4pn3q95yPVrAZvQcrUVjVsLl6do5EyrSI9kw4jXpQkSZIkSZIkSdLoJnIjqZrhhUjNsjVZhpStq/ZGqlNN7oeUTfMs3dPbjtxHIq3LmrwOffNZuc8iZa3B29Na0+r1er3b4BqkBqKa7YW+ZqeOqnGD0Z9R1mbKo1Udg1TDJrkV0tiXoHxbffqZpnobUpb5sgFORRrbQrsSd0Aa93FIP1OTC7DWb3XvuIORaleTfZGytVk5beF8pHrUppzkkjKq7k1GeyBlaqsDkOpQgzL2lGkV6bl0GPGiJEmSJEmSJEmSRjeRG0m18G6B/0Nqlq3Jzkj5uqgNp58ci5RNCyDd09uMzNuj9tNPrsSN0TeflXsPUt4aHJvWm1av1+t9Bql5qGafRF+jU4fdF6lOC6U0cf8SX8MHcCD2QRnnzVE2JaQc6lea4f+BVOemOA9p7FN+iPRzTfVtpBzz5V1I42qCVyGNeTEuRfqZmpR7Vsqnad9Dql1NdkLK1maPQKpFjW6NlFG93jlINWu6cuLXZkiZ2qqGzcWrU063S5lWkZ5LhxEvSpIkSZIkSZIkaXQTuZFUC2sL/BapUbYmP0LK11V7ItWpJvdAyqYFkO7pbUbmDyKty5qUk0L65rIFDkTKW4Oz03pT1ptssmzb6Sf/hxujr9Gpw8o3m/8TqV7jVl7nFByLj+D1eDoejHKiyYZIY9Rodkaahyb5ItLYpxyC9HNNdSEW6hSM+2A50rgW2okoG03SuO+K9DO1eSVSPk0qmwcvQ6pdLc5FytZm6+B/kOpRm+8jZdTkBt9UsxqUTcspU1uVvzHKZu1Ui6YrnwHluSPlWkV6Nh1GvChJkiRJkiRJkqTRTeRGUi2cm+E3SE2ytdkLKWNXnYBUp1r8GCmXFki6p7cVecupIZcjrc2a7I6+uWyBZyDlrcWmad2pX6/XOxKpeahmz0Vfk5N6X0eq1zCuwGko33D/CbwZ++M/cEdsjvTamjvPQZqrJnkR0tinPAbp55rsVkhZ5tJGKO+/NJ6FVu4Nt0Uad/FCpJ+rza5I+TTpnkh1q8nnkbK12cuQalGjcppayqhe7ylINavBe5EytdXtkepQg+8iZeqTnk2HES9KkiRJkiRJkiRpdBO5kVQL45E4H6k5tja/xzpIObtoF6Q61eTxSNm0QNI9va3I+1qkdVmTs9HW++K+SJlr8W9p3WlVvV5vR7Tt9JOfo3yTd1+Tk3ovR6rZlLIWzsaP8FmUUyn+E49GOb1ga6Tfq4VV/kvz2SRl/aSxT7kJ0s812d5IWebSoUhjaYIXI415SmnqTz9Xk7LJppzwkfJp0to+Z2pQPvdStrZ6OK5FqkVtyga9gU5e6KgPI9WtBnshZWqrsrk71aEGb0DK1Cc9nw4jXpQkSZIkSZIkSdLoJnIjqebXLfElpKbYWj0CKWtXfRypTrU4B+siZRun8hrl/XBf7I2X4mD8PxyJz+LoGb6I8v97Pw7Bq/EcPA67YgfMx9jnXbqntxFZ18NfkNZmTd6MvnlsiScgZa7FI9Pa06p6vd7bkRqHarYH+hqcdJ174Gf4Ev4fyjeePwH/jm2xGOnn1GxnIb0XmuKfGGRtnYH08031TqQcc+V+WI40loX2A6xt49+5SD9bk5IzZdO0ryLVria7IGVro8fjKqQ61GghNgbW5BSkutVgG6RMbXUUUh1q8CCkTH3S8+kw4kVJkiRJkiRJkiSNbiI3kmp+3BWfwFVIDbG1+iZS3q7aFP9CqlUtXoOUbTa2Rjn15/UoG0lOxVy9F67Fn/AdHIbn4V7YGGlsVUj39DYia9mMlOa1NndA3zy2xJ5ImWvx/LT2NK3X622IC5Aah2p1Avqam6QW2w7pvdAk30Ia+0yfRvr5pvo+Uo65sDHORBrHQrsUt0Aa95RbIv1sbd6KlE+TFqH2vysuRhc2Y66PdyPVoFYnwhPwVm8rpLrVoJxskzK12Z+RatF05TTF8jdLytQnPaMOI16UJEmSJEmSJEnS6CZyI6nmzk44ED9HaoKt3SXYHil7Vz0TqVY1KaeIpGzD2AzlVJKP4g9IrzPfluMUfARPx82Rxt5I6Z7eRmQ9Hmn+avIb9M1hi9S+AeWtae1pWq/XezpS41DN7o++5iapxZ6I9F5oktcgjX2mFyD9fFOVk13mq9n5/UhjaILnI415ZU9F+tnaPBQpnybdHqluNTkWKVublNOUfoeUv1ZX4g5IeTVpT6Ta1eAIpExttSNSHWpQTlpMmaL0jDqMeFGSJEmSJEmSJEmjm8iNpBqPxbg9noLSdH8mUuNrmzwNqRZd9kOkWtXiB0i5BrEFnoXv4mqk3980p+F92ANLkHI1Qrqntw05d0TZKJTmqiavRd8ctkjtG1AOT+tP03q93v8gNQ7V6gfoa2ySWu4DSO+HJhl0Y9jdkH6+yXZGyjJOD0B67Sb4NsqpF2ncK/sw0s/XZDk2R8qnSfsj1a4mByFla4NyLykbbFLu2r0IKbOmvQupdjUom+ZTprZ6MlIdalBOVkqZovSMOox4UZIkSZIkSZIkSaObyI2kGtyNcDvshrL54g3o4We4HKnRta2OQKpRl90SqVY12R8p2+oswgPxBdSy6WR1LkZ5Pz8U6yLlXTDpnt425Hwd0tzU5rbom8MWeSpS7lp8Lq0/Ter1erdFahqq2WPR19gktdxvkN4PTXEVNkIa+0zr4l9Iv6epyskeKcu4bIIzkV57oV2C7ZHGPdMpSL+jJuW9lrJpWvkv1a4m90HKVqMNUDYAvhF/QMrbBp9Gyq9V/RSpfjX4Po7ukD8i1aEGj0Zaf1F6Th1GvChJkiRJkiRJkqTRTeRG0po8CkfPoW/jhOv9CL/GWbgQVyE1snZRqc36SHPUZQci1asWZY2XU0xStpnKaSHPxB+Qflft/oZ3YSek/PMu3dPbhpzlRJo0HzX5I/rmr2X2Rcpei+PS+tOkXq/3JqSmoVqdhdK83tfYJLXYDVFOZUjviaY4EWnsq3MC0u9pqvci5RiXjyC9bhPshzTmmbZE+vnafBApn6b9Cal2tbgSZdNGytY05eShLbATlmIPlFMiymaT8l/ZbFDypJxt8kNsiFQjTbsBrkGqoTROWyGtwSg9pw4jXpQkSZIkSZIkSdLoJnIjaU0+gtRMqvlzKrZEmp+u+ylSzWrxHaRcK1sPz8NfkX5HGx2Hh6Cc9pJqMi/SPb1NyHgXpPrX5j3om7+WeS5S9lqckNagrtt8UpoWz0BqGqrVK9DX1CS13MOR3g9NcgjS2FfnrUi/p6mG3WAzjN2RXrMJvoE05uSRSL+jNk9CyqdJN0OqW00uRTqNYD58HWUD3kxlI8nJOA1ls+2FuAhp/F1TarMZ0nrUqh6IVENpnE5FWn+rlZ5VhxEvSpIkSZIkSZIkaXQTuZG0Jr9AaibV/Dgd2yHNTddtj1SzmrwYKduUvVDWQPrZLignIu2NdZDqM6fSPb1NyHgwUt1r80D0zV/LvBIpey1+kNagrtuAcg+kpqFaXYtt0NfUJLXc25DeE01SNh+ksa9ObZsVLsdcnL60Kc5Ges2FVhrgt0Uad1I2IaXfU5vtkfJpUtmgk+omzYUfwc0ng1uGVEdpnMqpbWn9rVZ6Vh1GvChJkiRJkiRJkqTRTeRG0lqUkxeuRGom1dz7A9x8snrPR6pbTW6FlK1cPxbpZ7rot9gTqVZzJt3T24SMv0Oqd00uwRL0zV/LvAMpfy1OTmtQ121AORipaahW30RfQ5PUAaUBN70nmmQLpLGvzlZIv6fJ7oyUZTY+ivRaTbAP0phX5ydIv6cmf0bKpmkfRKqdNG6fxkZI61DZd5BqKY3TU5HW32qlZ9VhxIuSJEmSJEmSJEka3URuJK3FLkiNpJp7J2IrpHnRpGOQaleL0zAzUznpo5yKchnSz3Td93EXzKzbnEj39LYgX9nklGpcm6PRN3ct9HGk/LVwA8pq9Hq9k5GahmpVvnW9r6FJarkNcBXSe6Ipfoc09rX5I9Lva6pnIeUY1cOQXqcJvoI05tXZEE1fp4P4DFI+TfstUu2kcSkn3r0Maf1p9copXZci1VQap1sgrcHVSs+qw4gXJUmSJEmSJEmSNLqJ3Ehai/2QGkk1t3rYAGlONGldXIxUv1r8P6yc6SY4HunfatpyHI7NsHL9xi7d09uCfG04QagoG7b65q6Fvo6UvxYnpnXYdb1ebzukhqFa/Qt+C7a66L5I74kmORxp7GvzSaTf11Sj5kw2x1+QXmehnY9yQk0a9+rUsE4H8TykfJpUTjpajlQ7aRzORLmfpPWnNVuKVFNpnMrfLmn9rVF6Xh1GvChJkiRJkiRJkqTRTeRG0lq8F6mRVHPjSnSlmXq2dkWqYU0ei6k8D8B5SP9O2bl4NFZeF2OV7ultQb6vINW1NndC39y10E+Q8tfihLQOu67X6z0TqWmoVl9CXzOT1AEHIb0nmmQfpLGvzXORfl9TnYSUYxRHIr1GE+yFNOY1qWGdDuJOSPk06eFIdZPG4f3YGGntae1eilRXaZw+i7T+1ig9rw4jXpQkSZIkSZIkSdLoJnIjaS1+iNRIqvH7Le6MNA/qdxBSHWtyY5Qsz8W111/T8D6JTTFzjcxauqe3AdkWo/YThIrzsQh9c9dC5yDVoBZuQAl69Z0ssDZPQV8zk9QBxyK9J5pkB6Sxr82dkX5fU12N9ZGyDKPJTfxHIY15bb6J9PtqcjHWQcqnSW9Hqp00Gz/EPZDWnAb3FaT6SuP0fKT1t0bpeXUY8aIkSZIkSZIkSZJGN5EbSWuwDv6J1Eiq8bkcr8P6SPOg7GtI9azFqSiN8+9e6ZpGdyaWIq2VkaV7ehuQ7e5IdazNF9E3by20BMuRalCLb6a12HW9Xu9MpKahGpWm7xuir5lJarnFKE3x6X3RFGcjjX0QJd8/kX5vU90dKcugboTzkH73QivjKuNL416Tsmmj6et0EGUTTcqnaT9Gqp00itNRTlxahLTeNJzzkeosjVPZPJzW3xql59VhxIuSJEmSJEmSJEka3URuJq3BbZCaSDU+X8EtkOqvNfsbUk1r8XF8asY1zc5VeBHSehlJuqe3AdlegFTD2rwcffPWQjsh5a/Jp9Na7LJer7ctUsNQrb6DvkamBfBpHK2xuh9SrTVpF6T3RJOU90Ua+6DK+zv93qZ6HlKOQZUTRtLvbYJyMksa89rcCen31eYgpHyatCGuQqqdNIyTsTfWRVprGt5tkWotjdNFGOmksPTMOox4UZIkSZIkSZIkSaObyM2kNdgbqYlUs3csygkEqe5aux2R6lqTC8I1jcfHUE6MSGtnKOme3gZk6yHVrjb3Rd+8tdCDkPLX5ANpLXZZr9d7AlLTUK1eir5Gpnl2S6SxaXb+hrJhKtVcvd5/ItWtSfZHGvug3oT0e5vqCKQcg9gT6Xc2wZFIYx5E2ZSTfmdt7ouUT5PKhsFUN2kQ1+Jr2AOeeDJ+z0KquzRO30Baf2uVnlmHES9KkiRJkiRJkiRpdBO5mbQGb0dqItVoyukM5cSLuyLVW4N7DFKNpSnfx+ZI62dg6Z7eBmQ7DaluNbkWN0DfvLXQM5FqUJM3p7XYZb1e761ITUO1uh36Gpnm2VORxqbZ+whSzdXrfQ6pZk1yB6SxD+qhSL+3qX6NlGNtboTzkH7nQjsbmyONexCfQfq9NSkne5QTPlI+TXoNUu2kNflfvBY3RVpXGo9PItVfGqcDkdbfWqVn1mHEi5IkSZIkSZIkSRrdRG4mrcG3kZpINZzf41XYBqnOGt7rkGotrew3uCnSGhpIuqfXjlybINWrNr9G35y11LuRalCTA9J67LJer/d1pKahGp2FviamBXA40vg0ey9Gqrl6vXORatYUF2IdpLEP6oZIv7upyrf43wApy5p8Aen3NcHuSGMe1J+Rfm9NfoKUTdOORaqdNFPZdPI23BVpLWn8zkCaC2mc7o20/tYqPbMOI16UJEmSJEmSJEnS6CZyM2kNzkdqItXalU0nh8DTTubGZ5HqLs10OrZDWkdrle7ptSPXPZFqVZsj0TdnLXUsUg1q8sS0Hrus145m4CkfRV8T0wL4DdL4NHu7INW8626JVK8m+RrS2Id1CtLvb6p7IeVYnb2Qfk8TlM11acyD2h7p99bmEKR8mrQYlyDVTroSx+MV8DN9/m2LNC/SOF2B9ZHW4FqlZ9ZhxIuSJEmSJEmSJEka3URuJm26myE1kCorm3W+iBdiJ6SaanzKyQdpHqRk5E0o6Z5eO3Lth1Sn2rwUfXPWUmcj1aAm90nrsat69Z0msDZPRl8T0zzbHMuRxqfZGccJGm21L1LNmuSVSGMf1hFIv7+pXoSUI9kK5yP9noV2JjZGGvegnoT0u2vzSKR8mnQXpLqpm/6F7+HN+A+MciqUxmdvpHmSxun7SOtvIOm5dRjxoiRJkiRJkiRJkkY3kZtJm+6RSA2k6ve/eDI2QKqlxu9KpLmQVuc32AxpPa1WuqfXjlzvRqpRbR6CvjlroU2R8tfm5mk9dlWv11uK1DRUq5ugr4lpnpXmyjQ2zd7RSDXX5Ok/qWZN8u9IYx/Ws5F+f1MdhZQj+QLS71hoZVPd/ZHGPIwPIv3+2myJlE+TXohUN3XPH/E0bIG0VjT/3oc0V9I4vQVp/Q0kPbcOI16UJEmSJEmSJEnS6CZyQ2nTLUNqINXqXYh3oJwek2qq8dgGqf7S2nwXS5DWVZTu6bUj15eR6lObbdE3Zy20K1L+mizHkrQeu6rX6z0eqWmoRn9AXwPTAjgYaXyavZcg1Vy93qlINWuKy7EEaezD2hnpNZqqzE3KMdM+SD/fBIcijXlYv0H6/TU5BSmbpjV1I5UWzjX4Lp6FclJcWjeaH79CmiNpnPZAWn8DSc+tw4gXJUmSJEmSJEmSNLqJ3FDadF9FaiLV2l2DT2NnpNpqdu6OVHdpEIchraso3dNrR66TkGpTk4vQN18t9TykGtTkzLQWu6zX670CqWmoRp9AXwPTAjgeaXyavbsh1bzrboxUryY5AWnso1gHFyG9ThOV00M2RcoyZRtcgPTzC+00bIQ07mGUpvNSi/QaNfkwUj5NOw+pdlJxJb6E0qC+CGkNaW5shjbch9Vs16KstbQGB5KeW4cRL0qSJEmSJEmSJGl0E7mhtOnORmoi1eDKRpQjsSNSjTWaxyLVWxrUPkhrq0+6p9eOXOcj1aUmZRNN33y1VPkcSTWoyTfTWuyyXq/3AaTGoRo9F30NTPNsXfwLaXyanYuxGKnuXfcYpJo1yZuQxj6qbyG9TlPthpRjytFIP7fQShPpPZHGPKyHIr1GbZ6KlE+TdkKqm5SUDW7ldLONkdaTxqst92E128lI629g6bl1GPGiJEmSJEmSJEmSRjeRG0qbbEukBlKN5nK8ARsh1VvDeQFSnaVBXYKBNoale3rNyLQhUk1q83n0zVdL/Q6pBjV5T1qPXdbr9Y5Bahyq0V3R18A0z8oJHWlsmr2vI9Vcvd57kGrWJOWb7tPYR7UM6XWa6uVIOYp9kH6mCd6BNOZRvBXpNWpzS6R8mvR0pLpJa/IPlPt6OSkprSuNR1vuw2q2w5DW38DSc+sw4kVJkiRJkiRJkiSNbiI3lDbZg5EaSDU7Z+IBSDXX4MpmnlRfaRgnYBHSGlsh3dNrRqbtkOpRm7ejb75aaBMsR6pBTZ6T1mOX9Xq9HyI1DtXmaqyHvgamefZCpPFp9g5Aqrl6vf9BqllTlFM0NkUa+6h2R3qtpvo8Uo5tcRHSzyy032J9pHGP4gdIr1OTc5GyadrHkGonDaLcD1+KJUjrS7PTlr/71WyPR1p/A0vPrcOIFyVJkiRJkiRJkjS6idxU2mSvRGog1Xi8F+sj1V5rdxhSXaVh7Ye0xlZI9/SakelOSLWozbPRN18tVDYtpvy1uXtaj13W6/VOQWocqs2v0de8tAA+hzQ+zV45XSbVvOs2xjVINWuKXyCNfTbKhpblSK/XRGcg5fgG0r9faGVNjfM9V5rJr0B6rZqsbiORpv0RqXbSME7HQ5HWmEazAdpwH1bz3QRpDQ4sPbcOI16UJEmSJEmSJEnS6CZyU2mTfRapgVTj8zPcHKn+WrMeUk017Rr8FSejnPTxPRx9/f8s/3e5fi6uRfr5rvg7NkdaZ9dJ9/SakWk3pFrUZg/0zVcLHYiUvyZXY/20Hrus1+v9DalxqDZHoa95aQH8BWl8mp1LsS5SzbvuQUg1a5L3Io19tsoJHen1mmoLrDz+fZH+XRO8ASuPdbZ2RXqd2pRTrlI+TdoaqW7SqI7E5kjrTcO5N1KNpXEqm8fS+htKem4dRrwoSZIkSZIkSZKk0U3kptIm+wNSE6nG63zcC2kOtHpfR6pnV52FT+DFKJsLbop1kGo3U/l32+OheAW+iLIu0+u01ZuQanOddE+vGZn2RKpDbXZB33y10DeR8tfk52ktdl2v+ScnDOq16GtemmfbI41Ns3csUs01uVEg1axJ9kIa+2x9GOn1mmoPTI19W1yE9O8W2slYDyvXerZeifRatbkrUj5NehxS3aTZKJt7yya2tOY0uFch1Vcap7JpLK2/oaTn1mHEi5IkSZIkSZIkSRrdRG4qbapNsBypiVTjdzkehzQXysoJHqmWXVHen8djf+yIVKPZWIQ742B0YTPapdgSqRbxnl4zMj0ZqQ612QZ989Uyi3ExUv6aHJ7WYtf1cuNQjZ6EvualefZEpLFp9g5Eqrl6ve8i1axJtkEa+2w1+QSR5NUo416E466/1jRX4k6YWevZ+hrS69WknMS0GCmfJh2KVDtptq7CfyKtOw3mm0i1lcbpGUjrbyjpuXUY8aIkSZIkSZIkSZJGN5EbS5uqfKt8aiDV3LkW+yDNh/p1dQPK3/AGbItUl7nyAHwFbd6Y9jqk7PGeXjMy7YtUg5qUe2bZnNE3Xy1zN6T8tXlyWotd1uv1NkRqHKrRPdDXvDTP3o80Ns3ePZFq3nXr4jKkmjXF6UhjH4fbIL1mU30FZdzPWula00xtkhmnsuHmAqTXq0nZNJTyadpJSLWTxuU9KPeUtP60euvgYqSaSuNU/jZLa3Ao6dl1GPGiJEmSJEmSJEmSRjeRG0ub7GNITaSaO6Whek+k+dCqfoxUw7Y6F8/FEqR6zJedcTTSGGtXNvesj77c6Z5eMzK1YQPKeeibqxY6ACl/bbZNa7HLer3e5kiNQzW6Kfqal+bZL5HGptkppw6UjRap5l1XNl6lmjXJx5HGPg61bWz4C7bHJStda5KfYS7eazsjvV5tXoeUT5M2xrVItZPG6Uh4GtFwdkGqpTROf0Naf0NLz67DiBclSZIkSZIkSZI0uoncWNpkpdH9oyjN5qP6L5STKlZWNg6cjDPwF1yEsvEiNax20WW4O9KcaFpZQ6l+bXMFXo+NkOqwUHbD6Uhjrtlj0Zc33dNrRqYXI+WvySnom6sW+jpS/pqcmtZh1/XatQFlCfqal+aRjbdz51tINVevdwBSzZrkGUhjH5f/QnrdpvppuNYEV+C2SDWerecgvWZtHoiUT5N2R6qbNBfKqXNpHSp7AVIdpXH6EtL6G1p6dh1GvChJkiRJkiRJkqTRTeTGUk3bENvhrngInoSDUE5i+R7+jNTY2kblJIYdkOqkSV3YgPIj3BYpfxOUTTHvRxp7rcrGub6s6Z5eMzLth5S/Jj9F31y1zHq4BCl/TT6Y1mHX9dqzAeX/0Ne4NM8ejDQ2zd5rkGquXu9opJo1ya2Rxj4uByG9roZTNjOl+o7Dp5BesybX4AZI+TTpYKTa1aScAlTuq/PtmzhhJb/AKfgTLsJypPF23auR1qL6fRaphjU4Hul901ZnItWhBi9GWn9DS8+uw4gXJUmSJEmSJEmSNLqJ3Fyq4WyFR+NwlE0aqdG1LX6C0nyc6qCly36AVLe2eBsWI2VvmqficqQctSknzvSdNpPu6TUj075I+WvybawyTy10P6TstXlEWodd12vPBpSz0Ne4NM9ejzQ2zd69kWredYtwPlLNmuJvSGMfp92QXluD+wHWQarvOJyB9Lo1KRsTUjZN+x5S7WoyV6cAzVa532+FMr774El4FQ7Hd3AuUp62KxtzPJloMH9FqmHTXY2NkDK11XeRalGDuyFlGlp6dh1GvChJkiRJkiRJkqTRTeTmUo2uNOc/AqUJOTW8tkHZhJCya+myE5BqVruyAWIvpMxNthsuQ8pUm0dhlXzpnl4zMj0NKXtNvoRV5qmF3oqUvSblvrBhWodd15ts6ErNQ7Upzc19jUvz7DiksWl2LsMSpJp33e2QatYkX0Qa+zhtjGuRXl9r9y/cCqm243BTpNetzbuR8mlSuU+X+3WqXS3Khr6y0SPlq8GNUDZjvBbfQnlvp5xtcx5ujFQTTboFUu1qcCJSprZaF7XeSy/FYqRcQ0vPrsOIFyVJkiRJkiRJkjS6idxcqvG4J36I1Pxas+X4d6TMXdfGjUelUbts5Eh5a3B/XIWUrSbvxSrZ0j29ZmQqm/dS9pociVXmqYVORspek6PTGtSkXm4gqs2v0de4NI9Ks9UlSGPT7JRvdk81V6/3bKSaNcmLkcY+bicjvb7W7vlINR2XJyC9bm0ei5RPk+6JVLeafAUpW63Wx8NxBEpjeMrcFp9EqoEmPQ2pbjV4B1Kmtqr5Xlo246dMI0nPrcOIFyVJkiRJkiRJkjS6idxcqvFZhKfjEqQm2FqVBuR1kTJ32eeQ6lWrq/EgpKw1Ke/BlK8mP8MqudI9vWZkujdS9pq0fQPKTZBy12a/tAY1qdeOjRNnoa9xaR7dGWlcmr3XINVcvd6nkGrWJHdDGvu4fQDp9bVm38Ncn/hwGNJr12ZrpHya9HKkutXkZUjZ2mAzlA2Bf0PK3gb3QsquXu8jSDWrwSORMrXVAUh1qEE5fSllGkl6bh1GvChJkiRJkiRJkqTRTeQGU43fzfFzpEbYWr0AKWuXfRCpVrV6NlLOGn0GKWMtymag9bAiU7qn14xMt0fKXpP3YcUctdC+SLlrciU2S2tQk3q93v8iNRHV5B/oa1yaR89DGpdm7/5INVevdyZSzZqifON+OR0ojX3cnow0Bq1e2Xy4A1I9x+kXSK9fkz8iZdO0ryLVriZLkbK1yaZ4J5Yj1aBm30XKrF7vVKSa1WALpExtdQxSHWow1r/Z03PrMOJFSZIkSZIkSZIkjW4iN5hqbmyILyM1xNboXJRMKWtXvRmpVjUqazVlrNXWuAgpay1uixWZ0j29ZmTaCil3TQ7FijlqoTZ8hn0RcQ1qUq/X+xlSE1FNrsRcf4v/mnwaaVyanSuwAVLNu247pJo1yXFIY58LOyGNQav3LKRajtMmuBbp9WtyBFI+TSqfvxcg1a4WZcPcukj52ujBOB+pFjXrwiaiYW2FVKsa/BYpU1vVfC+9Chsh5RpJem4dRrwoSZIkSZIkSZKk0ZUmTM2rxfgcUlNsjZ6LlLOrXohUp9qUjRrbIGWs2VuQ8tbiEViRJ93Ta0euy5Gy16LNG1DKhsPLkHLX5NGI60+Teu341vLiZuhrXponTT+JolYnINVbvd7eSDVrktcijX2u/B1pHOr3X5iPTXsPQXr92jwDKZ8m3R6pbjX5DlK2Nrsj2rYJ5UikrF32aKRa1eBwpExtVfO99ESkTCNLz63DiBclSZIkSZIkSZI0utKEqXm3BD9GaoytzR+QMnbVI5HqVJs3IeWrXdlUcy1S5hrsjxV50j29duQq95SUvRZt3oCyJ1LmmvwD6yOuP03q9XqHIjUS1eZ+6Gtemgdt+Yb/JlqGVHP1eu9HqlmTPABp7HPlGKRxaFUXYVukGo7bwUhjqM1tkPJp0v5IdavJ65GytV3526lNf8NcDE9OW9W7kWpVgychZWqrmu+lhyBlGll6bh1GvChJkiRJkiRJkqTRlSZMLYgd8U+kBtna7IqUsYvuhFSjmlyJLZHytcH3kHLX4LVYkSXd02tHrm8iZa/F+7BijlrmE0iZa3IIrsuT1p8m9Xq9FyM1EtXmeehrXponL0Mak2bn/kj1Vq/3K6SaNcVV2Ahp7HPllUhj0aqeglS/uXA80hhqUk7WSdk0rfyXaleTByJl64J3IdWkVo9CytlV/4NUpxos5OmGC+EopDrU4JFImUaWnluHES9KkiRJkiRJkiRpdFONmFoQr0FqkK3NB5HyddEmSDWqydeQsrXFK5By1+DdWJEl3dNrd33GlL0WR2LFHLXIurgQKXMtluMWuC5TWn+a1Ov1Ho7USFSbz6KveWmeLEL55t+jG+gMpHo1XdnA4LeYZ5tjOVLdmuJEpLHPpfsijUXTyj0h1W4urIvLkMZRky8j5dO0PyHVrhbXYL43zDXJlrgUqTY1eg9Szi7aGGV9pzo13VlImdrsbKRa1GALpEwjS8+tw4gXJUmSJEmSJEmSNLqpRkwtiM3xL6RG2ZqcgZSvq/6EVKdaPAMpV1vsjpS7BodiRZZ0T68dufZDyl6LT2HFHLXIA5Hy1qScrrMiU1p/mtSb/Hbh1EhUm3PQ17zUcUtQazPbD5Eyqdd7KFLNmuQdSGOfS6WBvNZG2/lwPrZBqt1cuAfSOGpTTrhK+TSpDX9DLMSGuab5FFJtalRO/EgZu+hBSDWqQfkvZWqrHZDqUIPfImWalfTcOox4UZIkSZIkSZIkSaNbuRlzDmyKXfAYHIAP4Dh8COnfd9HnkRpla3NzpHxdVE4QSTWqxZ2RcrXFjki5a9CFDShLkbLX4lismKMW+QhS3prsgRWZ0vrTtF6vdyFSQ1Ft7oa+BqYO2x+pTjV4E1Im9XpvQ6pZkzwKaexzrTQep/Go19sLqWZzpWzcSOOoTdlIk/Jp0pOQ6laTdyJl65LHIdWmRlegnEyXcnbNG5BqVIPnIGVqqycj1aEGhyNlmpX0zDqMeFGSJEmSJEmSJEmjW7kZcwSLsQMegHJqwpvxGfwM/0BqAC2uxU5Iv7NrnoNUo9o8ESlfF70FqUY1uAbrIeVqi7IxLmWvQRc2oCzBlUj5a/BLrJijltgQFyPlrcXJWIQVudL607Rer/ddpIai2rwLfQ1MHbUJ/opUpxqUb+1OuTR5OkyqWZPcCGnsc+29SOPpus8j1WsufRlpLDW5DOsi5dOkDyLVriYLtWGuSW6BVJtalZN5Us6uqfnv+9shZWqrsokj1aEG+yBlmpX0zDqMeFGSJEmSJEmSJEmjW7kZczU2QTkRYeVTTL6F03AVUqPnIA5Her2uuQ9SfWrzBqR8XfQopBrVoGwcS5naJmWvwRuxIke6p7cB2X6ClL8G52LFHLXE3khZa1IyrJIrrT1N6/V6y5AaimpzLpagr4mpg96BVKMaXIWNkHJ13QYo3+6e6tYUv0ca+3x4ItKYuuw8LMSGoL8jjacmxyNl07TfItWuJlsiZeuScmLI1Uj1qdG9kHJ2Sdk8VzbRpfo03fno2ik25W+nVIsabI+UaVbSM+sw4kVJkiRJkiRJkiSNbmLpsnWwPe6P/fAmfBo/xflIjZzjUL7h/iZYpSG0g26LVJ/alJNvUr4uuhFSjWpwJlKmNtkcKXsNXoQVWdI9vQ3I9i6k/DUopwiVU1xWzFML/DdS1lqcjnWxSq609jSt1+s9EKmhqEbPQl8TU8fcHmUTR6pPDX6ElEu93n2QatYk5Vu809jnw45IY+qyPZFqNZdugzSW2hyMlE+TtsBypNrVYiE3zDVNafpPNarRQ5Eydsk9kGpTg6ORMrVV2QSX6lCDPyFlmrX0zDqMeFGSJEmSJEmSJElrNjF9ismj8TK8H9/EHzGbU0xm6wis0hDaQbdBqk1tvoOUr6t+j1SnpjsHKU+b3AIpew2egBVZ0v2+Dci2B1L+WtwJK+apcuVvh5SxJk9DX7a09jStN3naxJVIjUW1OQ3lW5/7Gpk6Yj38HKk2tXgbUjb1eq9CqlmTPBlp7POlnISUxtVFRyLVaK49A2k8tXkIUj5NejhS3WqykBvmmuavSDWq0WORMnbJAUi1qcHLkDK1VdkomupQg6OQMs1aemYdRrwoSZIkSZIkSZKkVU1MbjQ5CnN9islsLcdd0NcY2iH3RKpNbU5EytdVhyHVqekuRcrTJg9Byl6Dcr9YkSXd/9uAbBvhCqQa1GBvrJinyh2JlLEWZTNgOemtL1tae1pVr9c7FqmxqEYvQl8jU0e8CakmNdkDKZt6vW8i1axJyikkaezz5YtI4+qav2BzpBrNtSOQxlSTa7EJUj5NejtS7Wqy0BvmmmIRrkCqUY2eiJSzS8opIqk2NViKlKmt3olUhxrsj5Rp1tLz6jDiRUmSJEmSJEmSJE2bWLpsB5Qm8tSI2UQnYV30NYd2xH5IdanNyUj5ump3pDrVYEukTG1xAFLuGmyKFVnSZ0BbkO/bSDWowVuwYp4qtiOuQcpYiz2RssV1p1X1er3nIjUW1egS3AR9zUwtV76NfjlSTWpxDTZGytd16+BipLo1xZ+Rxj6fav7W93FayNM7/og0ppr8Aimbpv0YqXY12QEpW9fcFqk+tSonSqScXVE2FJ2PVJumuxRdO8nwp0i1qMHtkTLNWnpeHUa8KEmSJEmSJEmSpGkTkyefpCbMJns9+ppDO+IjSDWpTTltJ+XrqvVR00awlT0IKVNbHIeUu+nOwSpZ0mdAW5Bvf6Q61OCHWGWuKvUhpHy1+DEWIWWL606r6vV6N0XtmxdWVk6KKA14fQ1NLVWaR8vGm1SLmpyIlE+93i5INWuSzyCNfT7tijS2LvkIUm3mw9ZIY6rNYUj5NGlDXIVUu1o0YcNcU7wAqUa1WsgNeE1wO6S61OA7SJna6gYom69TLZruQszZs1Z6Xh1GvChJkiRJkiRJkqRpE0uXvQmpEbPJrsb90Ncg2nJLcAFSTWpzPFLGLvs8Uq2a7mCkPG2wGa5Eyt10ZT2tkid9BrQF+W6Ma5Fq0XTlM21jrDJflbk9aj79ZDnuhpTtOmndqV+v1zseqcGoVgeir6GphbbHOUg1qM3bkDKqjgbhcpJSGvt82gC1N8bPxpnYBKk28+GxSOOqzROQ8mnS/ZDqVpNPI2XronLiT6pRre6IlLMrno1Ulxq8HilTWz0IqQ41+CpSprFIz6rDiBclSZIkSZIkSZI0bWLpsqVIzZhNdz52QF+TaIvth1SLGn0GKWOXPQKpVk13KlKeNngZUuYavBCr5EmfAW1Cxm8j1aIGj8Yq81WZ7yDlqsVHkXKtkNac+vV6vacgNRjV6lo8DH1NTS2yHU5Hyl+jts/XbHwWqWZN0pSm358gja8LHoBUk/nybqRx1aacCpbyadJrkOpWk/2RsnXNXkj1qdmNkLJ2xaeQ6lKD3ZAytdUypDrU4OVImcYiPasOI16UJEmSJEmSJEnStImlyxbhTKSGzKb7DbZCX6NoC5Vvx/8zUh1q9HaknF22HsrGqlSvprs/UqaarY+zkfLWYGeskil9BrQJGfdGqkUNvoRV5qsiT0TKVIuLUE7QSdlWSGtO/Xq93ka4BKnJqFaX4d7oa2xqgdvhbKTcNSobhjZDyqpe769IdWuKC7EO0tjnW1s2QQzrMKR6zKefIY2tJmcgZdO0Y5FqV5M7IGXrkq3QlhPUppyPlLVLzkKqTdNdjfIskjK11XeRalGDeyJlGov0rDqMeFGSJEmSJEmSJEmrmli6bBlSU2YNfoXN0dcs2jKfQMpfq6cj5ey69yDVq+l+hJSnZq9HylqD09CXKd3/24SMZdPQBUg1aborcUP0zVvDbYNaaz7lOUjZVpHWnLJer/cupCajml2MOW2SWgC74wKkvLU6CSmrer1bINWsSb6ONPaF8HikMbbZaVjoxt0b4Bqk8dWknB6Q8mnSYtS+WbVJG+YWyhJ8B6k+NfseUt6uKCfjpbrU4ESkTG21LspG+VSLpivjLveQlGss0nPqMOJFSZIkSZIkSZIkrWpi6bKbYzlSY2YNfo8d0Ncw2hIvQ8pdszsjZe26W6DW9+KzkTLV6A64AilnDQ5BX650/28bcr4DqSY1KJtB++atwRbjW0hZavE9lJPgUr5VpPWmrNfrbY82NBDPVBqlHoe+BqfKlMbf16OcFpJy1uydSJnV6z0VqWZNciDS2BdCzQ24oyj3gyac9PRApPHV5jlI+TTpLkh1q8nXkLJ1xfr4KlJtavcWpMxdsTdSXWrwDqRMbVU2x6c61GDON3ql59RhxIuSJEmSJEmSJEnqN7F02VeQmjNrcS7uhb6m0cr9J1Leml2CdZHyaumyY5Dq1nT/wu2QMtWknEJxOlLGWuyMvmzp3t825LwZrkaqS9NdhJpO9HoLUo5aXIZbIWXrk9abVq/X6x2F1GzUBodiA/Q1OlXgTiinhKRcbfBwpNzq9T6CVLMm2RVp7AvlbKRxtlFTmnZfhzS+2uyMlE+TXohUt5q8AilbF2yDnyDVpQ32QMrdFR9AqksNHomUqa0OQKpDDd6IlGls0jPqMOJFSZIkSZIkSZIk9ZtYuuw+SA2aNbkGr8Y66GserUzZoHEYUs7aHY2UWZPuh1S3GvwJ2yHlqsFGKCcipGy1OBEpW7z3txFZe0i1qcEH0Td3DfQUpPHX5KVI2aK01rR6vV7vVmjjKShTTsfD0Nfs1FBb4b24GilPGyzHZkj51eudilS3prgCS5DGvlA+hzTWtjkFTdlUdxzSGGtyARYh5dOkLyDVribl5IGUre3K3z5/RapJG/wLGyJl74pfI9WmBlsgZWqrY5DqUIPdkTKNTXpGHUa8KEmSJEmSJEmSpGxi6bITkJo0a/M/uBv6GkgrcWv8FClbGzwLKbemfQupdjU4C7sg5WqyTXE8UqaaPBEpX7zvtxFZywkwy5HqU4OHom/+GmRPXIs09lp8G4uQ8kVprWnNer3eh5AajtrkBJQGqqY2G2+Lt+CfSONvk5ORaqDJDUipZk3y30hjX0gvRhprm5SNgndDyj/fFuNSpHHW5GtI+TTtPKTa1eIyNG3D3Fwrf08ciVSPNvkyUv6uuCHKht5Um6b7LVKmtirPHmXDY6pF05W/PTZGyjU26fl0GPGiJEmSJEmSJEmSsom6T16YqTTHfhjbo6+RtKHK6Quvw2VImdrgSmyOlF/T7olUv1r8C09CytZEO+H3SFlqUk6gKacnpYzxvt9W5P0UUo1qcDHuiL45bICn4iqkcdfiH7gpUr7VSutMa9br9W6CLmx8KMoJAgdhB/Q1QM2z0sS9Bz6Dq5DG20aHItVDvd6jkWrWJG9GGvtCugfSWNukSXW/K9IYa/NKpHyatBNS3WpSNp+mbG10M7wdlyPVom3K52WqQ1eUE25SXWpwOFKmtro9Uh1qcBJSprFKz6fDiBclSZIkSZIkSZK0ehNLl30ZqWGzVqVR9iNo8okMG+MF+AtShjb5HFIN1K8N78Wv4CZI+ZpiL1yINP7aPBsp43XSPb+tyFs2FdW8UeJ87Iq+eVwg6+C1SGOtzaOQMq5RWmdau16v9xKkxqM2+yGW4f7YAH0NUXOgfGP1Xvgo/o40rrbbE6k26vXehVSzJimbptLYF9J6aHPTdTk1qEmnOLwQaZy12RUpnyY9HaluNTkYKVtbbITH4isoJxWkGrRR+fup3PdTTbribUi1qcGTkDK11f5IdajBvGwaT8+mw4gXJUmSJEmSJEmStHoTS5fdHFcgNW3W7ifYHzdGX3PpArgb3oP/QxpvG/07Ui3Ur7wXL0eqY00uwetRNlqlnAulbIz5AtKYa3Q6Vnv6SZHu+W1G5nci1aoWZQPNM9E3l/NsGxyHNMbalDWRMq5VWmNau16vty5+idR81AVX4EQcgZeiNNnfDjdCX6PUAEqz+G1QvqH6xfgkTsVypNfvipJ/C6Saqdf7GVLdmuJabIo09oVWNpSlMdfuauyClHmhfB5prDUp9/wmbeppoo8h1a4muyNlq1X5W+3uKJuGj0FXTjuZ6bVI9emSHyHVpgbltJ6Uqa2OQqpDDcoGt5RprNKz6TDiRUmSJEmSJEmSJK3ZxNJlr0Zq3GyL5fgBXoN7Ywn6mk3nQGnAfzgOxWlIY2uz7yPVRau3DKmWNSonOpR7y42Qss6X8j58Ay5FGmet1nqqQ7rftxmZN8XfkOpVk29ie/TN6RxbjOejLZskv4c1btJak7TGNJher3cXXIXUgNRlpSZ/QTmF4Oc44XpHX+/b1//fP8VpuAjp92iyhn2NZ7rODdD0b7Avm9TS2JvgEKQx1+41SHkX0rlIY63JD5CyadofkWpXi3I/3RgpW5Mtxra4J8qJaS/HkTgJlyFl7ZJLMerm4LYop/ZdiVSfpjsLKVObnY1UixrcGCnTWKXn0mHEi5IkSZIkSZIkSVqzickGzZOQGjjbqJz4UvJ+DC/CI3AHjHpiQ2l63gV74mXo4Xe4Bun1u6Js9kn10uqtj98i1bNW/8KHMN+n4eyAd+AipHHV7BtImVeR7vdtR+4nI9WsNuU0pPdhPjailL8BSt1+jzSWGv0FWyPlHUhaXxpcr9d7BVIDkjQO70Nf45mu8yCkmjXJe5HG3gSPQRpzzUrDeTnxIOVdKLdEGmtt3oqUT5O2RqpbTcrpIFMbRZvma5jazPrf+BX+hIuRsmjaMqQ12yX3RapNDcp/KVNb7YBUhxr8ASnT2KVn0mHEi5IkSZIkSZIkSVq7iaXLbofSKJ4aObukbE4pjau/wQ9xAo7D0Tj++v+7nOxRNgn8FeXfp9/TdV9BX0OvBnI3tHXz0h/xNpTNSeW0hZR/NrbD/ignHpWTj9IYaldOcrk5Uv5VpHt9F5C9bNBJtatRuRd8HXthE/TN8yyUz/234Byk167VZViKlHlgaW1pcL1ebx0cj9SIJM3W49DXeKbrlKbaVLMmeTzS2JugDQ3zK7sCOyNlXUhPRRpvbR6KlE+Tyr061U1aSOX0pRpPtRm3g5DqU4PnIGVqqycj1aEGH0XKNHbpmXQY8aIkSZIkSZIkSZIGM7F02X5IzZzSMP6J+fjW/jZ7HVJt2+QSlM1db8BjsDPWQ6pHshXuh+fjozgd6XXa5llI9eiT7vNdQPZt0caTb65G2Vz1ZjweZQNJOTWpb+6DDXAXlM/5ciLRmUiv0QZls06qwVDS2tLgrm8E2grlm7hTM5I0G2VtrdJ0phW+g1SzJrkJ0tib4gykcdfo5UgZF9qHkcZbk+XYHCmfJh2KVDtpIT0Bab12zbFI9anB7ZAytdXhSHWowb5ImcYuPZMOI16UJEmSJEmSJEnS4CaWLvswUkOnNKgXoK+ZV0Mpp4OUzRmpvm13Pn6HctpQcQy+e/3//nOcjauQfrbtSi3SeonSPb4ryL83Ug3b6B8o75kfobxPyokp30Y5rauc5lXeU+nn2uhV6HsvjCKtKw1upWagXXAZUkOSNIrfYuU1pmnr4l9IdWuK05HG3iSfRhp7bX6ExUgZF9opSGOuyW+QsmnaSUi1kxbK15HWateUz4aLkWrUdOdjEVKutvo9Ui1qcEukTGOXnkmHES9KkiRJkiRJkiRpcBNLly1BaVpNjZ3S2pTG50Xoa+bV0MoJH+cg1VndcwZuiLRWonSP7xJqUE7GSbVUO30Mfe+DUaU1pcHNaAh6NK5FakqShvU+zFxjmrQUqWZNciTS2JvkBUhjr0nZ+HcrpHwLbUukMdfmg0j5NGlj+NmvJvk7boy0Xrvm35BqVIOjkTK1Vc2fmeciZZoT6Zl0GPGiJEmSJEmSJEmShjOxdNmN8HukBk9pdf6ELdHXyKuR3QX/Qqq3uuMy7IK0RlYr3d+7hBrcAOUEkFRTtcsXUU6O6nsfjCqtKQ0uNAU9A6kxSRrW45HWmHq9lyHVrEmeiTT2JrkL0thr8iKkbE3wSKQx1+ZJSPk0aXekukkLoWyGKmsyrdUu+k+kOtWg/K2TMrXVnkh1qMHnkDLNifRMOox4UZIkSZIkSZIkScObWLpsO/wZqdFTmulS3Bl9TbyatYfhWqS6q/3K3O+JtDbWKN3bu+T6OtwcFyDVVu3wLZTT21ZZ/7OV1pQGl5qC8Aqk5iRpGNsgrS/1el9BqlmT3AZp7E2yLv6FNP4afA+LkLI1wSFI467N9kj5NOlgpLpJC6H8DZrWaVd9HqlONSinvaVMbfVOpDrUoGx0SpnmRHomHUa8KEmSJEmSJEmSpNFMLF22E85BaviUplyDskmir4FXY/NspNqr/V6CtCbWKt3Xu2SlWuyGq5Hqq7r9EBth5fkei7SmNLjUFHS9mr9xWQvvVKR1pUnnI9WtKf6ONO4mOgEpQ9NdipsjZWqKnyCNvSZ/RsqmaWUjVKqdNN+OQJM35S2Ec5Fq1XTlM65sEk2Z2uqnSLWowS5ImeZEeiYdRrwoSZIkSZIkSZKk0U1MbkI5G6nxU1qOfdDXvKuxey7SHKi93oC0FgaS7uldMqMe+yLVWPU6HnOy+aRIa0qDS01BK9kf1yI1KklrcjjSmlKvd1ukmjXJl5DG3kRvRcrQdM9CytMUG+IqpLHX5DNI+TRpCS5Dqp00n76Jrm1YWJudkGpVg+8gZWqrG+AapFo03cVYjJRrTqRn0mHEi5IkSZIkSZIkSRrd9Y2Y2+E3SA2g6q5r8Uys0rSrOXUg0lyofd6GtAYGlu7pXRJq4vunPb6KOdt8UqQ1pcGlpqAZHo7yLcapYUlanb2R1pMmNx6kmjXJS5DG3kSPQMrQZMeh6d/yf1+ksdfmeUj5NOmeSHWT5tPx2AhpjXbZvkj1qsHrkTK11YOQ6lCDsvkrZZoz6Zl0GPGiJEmSJEmSJEmSRrdSM+ZmOAGpEVTdcxWehJXXiOZH2fRTNv+keVE7zHrzSZHu6V2SaoJS21Rz1eOLWII0v2OT1pQGl5qCgn/DOUhNS1KyDdJaUq/3CaSaNcndkMbeRFsiZWiqi7AtUpYmOQhp/LW5E1I+TXo5Ut2k+XIs3HySfRSpZjXYDSlTWy1DqkMNyud9yjRn0jPpMOJFSZIkSZIkSZIkjW5GQ2Zp+DwcqSFU3XExHoKZ60Pz59G4HGl+VLdXIs350NI9vUtSTa7nJpR6vR2LkOZ1rNKa0uBSU9BqbI3vIjUuqXlKk3v55uzlK12bL6cjrSFNOgOpbk1RTjxaF2nsTfVHpCxNVN6XKUPTlG9ET+OvycVYBymfJn0VqXbSfPgMliCtTfV6f0CqW9Ndja5tKqr5Gek+SJnmTHomHUa8KEmSJEmSJEmSpNGlpkw8G1cgNYeq3f6EOyCtC82ve+BcpHlSfcqpQk9DmuuRpHt6l6SarMRNKHUp749y+lOayzmR1pQGl5qC1mAx3oiF2NSgwZ2K26DM2S+vvzafyjd2z1w7mnRTpJo1ybeRxt5kn0TK0jTHII2/acqmjbJ5I2WoSdlEk/Jp0iJcgFQ7aa69BWUNprWpXu/GSHWrwYlImdqqbNq9DKkWTXcFNkDKNWfSM+kw4kVJkiRJkiRJkiSNLjVlXm8XnIbUKKp2+hZuhLQetDBughOR5kv1+D88CGmOR5bu6V2SajLDgUjzoWb5O3ZDmsM5k9aUBpeaggZwP5yJ1MikhVW+TXwTTM3VO5H+3Vx6MlZeL5q2N1LNmuR1SGNvsv2RsjRJafTfBmn8TXMnpAy1OQgpnybdHqlu0ly6HPsgrUlNeyxS/WrwDqRMbXVPpDrU4IdImeZUeiYdRrwoSZIkSZIkSZKk0aWmzJVsjA8jNYyqPa7F67EYaR1oYa2Pw5DmTs33W+yENLezku7pXZJqEuyHq5HmRgvvh7gp0tzNqbSmNLjUFDSgTfExpGYmzb9/YT/MnKc9kP79XNoOM8ehSe9DqlmT7IY09iarYcNE2XyUxt5Ez0PKUJv7IuXTpBo2bqldTsMdkdajVvUepBrW4JFImdrqAKQ61OBtSJnmVHomHUa8KEmSJEmSJEmSpNGlpszgYfgLUvOo6va/2BVp3tUsj8Q/kOZRzfQ5lI18aT5nLd3TuyTVZDXuh3LKRpojLZxDsC7SnM25tKY0uNQUNKQH4XSkpibNjx/g1kjzsxGuQvq5uVDWQhqHJp2MVLemuBplzaSxN9li/BMpUxN8AWncTVVOUko5alLuexsi5dOk8l+qnTQXPo6VT2jTmp2EVMcabIGUqa2OQapDDR6KlGlOpWfSYcSLkiRJkiRJkiRJGl1qylyNTfE+LEdqJFVdyjx+AJsgzbeaaVt8A2lO1RyX4VlIczg26Z7eJakma7ADTkKaL82vs7Eb0jzNm7SmNLjUFDSCDfAmXIHU3KS5UU49eTHWQZqXKScg/fxcOAJpDOr1NsNypLo1xYlIY6/Bd5AyLbS/YSukMTfVn5Gy1OQnSNk07U9ItZPG6Rw8DGkNKtsY1yDVs+l+i5SprRbhAqRaNF35m3RzpFxzKj2TDiNelCRJkiRJkiRJ0uhSU+Za3AM/RWoqVR1Owb2R5ld12AcXIM2vFtb/YGekeRurdE/vklSTtVgf70aaN82Pj6BsaE3zM6/SmtLgUlPQLNwcn0dqctJ4fRE7IM3DTK9F+h1zYV+kMajX+w+kmjXJO5HGXoODkTIttD2RxttU2yPlqM0hSPk06WZIdZPGpWxKLpuTb4C0BrV6uyPVtAaHI2Vqq9sj1aEGv0LKNOfSM+kw4kVJkiRJkiRJkiSNLjVlDmARnoq/IjWYqpkuwcuwHtK8qi43xkfhqUTNUE49eTkWI83X2KV7epekmgzoIfgL0jxqbvwRD0aajwWR1pQGl5qCxuDemM9TN7qkfLP0A5Hqvjq7Iv2uubAj0hjU670VqWZN8iiksdegiRt8yn9prE32JKQstXkkUj5Nass8q3muwodQNiWntae1eyNSbWtQ7i0pU1vtj1SHGrwPKdOcS8+kw4gXJUmSJEmSJEmSNLrUlDmEDfEKXIjUcKpmuAaHY2ukeVTdluJEpLnX/Dgat0CanzmT7uldkmoyhM3wQbiBa279EwdiCdI8LJi0pjS41BQ0Rg/CiUhNTxrOmXga1kGq9Zqsi0uQfu84nYX0+pr0A6S6NcmWSGOvwQ2RMi2Uv2BzpLE22QeR8tSm5rU8H9oyz2qOf+EDKKcopTWnwX0PqcY1KKcrpUxtdRRSHWqwN1KmOZeeSYcRL0qSJEmSJEmSJGl0qSlzBJvj9fgHUgOqFkZprD4KOyHNm9qjnEr0aPweaS1obvwWuyPNyZxL9/QuSTUZwa74OdL8anRl4+OR2Bap7gsurSkNLjUFzYH74htIzU9as/9F+XblJUi1HdTXkH7/OB2J9Nrq9TbAFUh1a4rfI429JqcgZVsID0MaY9P9BilPTco6SNk0rZymlWonDet0vAxlE2BaaxrOergMqdZN18WNyGcj1aIG2yJlmnPpmXQY8aIkSZIkSZIkSZJGl5oyZ2FjHICzkRpSNT+uwkdwK6R5Unstxr44BWltaDxOw95YB2ke5kW6p3dJqsmIyjw+DecgzbcGVzY+fha3Q6p1Y6Q1pcGlpqA5dHuUb8f+J1IjlKb9HOWbicvpJamWw3oR0uuM09ORXlu93r2RatYkH0Iae02OQMo23z6CNL6mKye2LEfKVJMPI+XTpC3QhnnWwrkI5X1WPtsWIa0zjeaeSDWvQfkvZWqrHZDqUIMzkDLNi/RMOox4UZIkSZIkSZIkSaNLTZljsC72wg+QGlQ1N87FG3ATpHlRd5SG+sfgp0hrRaP5FZ6Mco9LdZ9X6Z7eJakms7QhXoxyL03zr9UrJ558Dv+GVNvGSWtKg0tNQfNgE5RTPX6K1BTVVeWEjHKKSGk+THWbjTsgveY47YT02ur1DkSqWZM8BWnsNXkmUrb5VL4NfVOk8TXdQ5Ey1eapSPk06eFIdZPW5C/4IHZHOaUjrS3N3suR6l+D5yBlaqsnI9WhBp9AyjQv0jPpMOJFSZIkSZIkSZIkjS41ZY7ZzngXzkdqWtXslG+bPw5PwBKkOVC33QOfwBVIa0hrdi2+hgcj1XfBpHt6l6SajMn62B/lpJu0JjTtEpTP+B2QatlYaU1pcKkpaJ7dGgfjNKQGqS74PkrT3g2RajQu5yG9/jicg/SamvQNpLo1yY5IY6/JzkjZ5tNuSGOrwVuRMtXmlkj5NOntSHWTVnYJymfXS1A2saa1pPE7Bmk+anA7pExtdThSHWrwLKRM8yI9kw4jXpQkSZIkSZIkSdLoUlPmHFkPD8dRuBSpkVWDKycxHIhtkeotzbQlyukOP0daU1rV2ViGmyHVc8Gle3qXpJqMWTlJ6D/wXyib/dI66apyulLZpLMpUu0aL60pDS41BS2gO+K1+DmWIzVMtcG1+G+8FDsg1WIulP/SeMah/JdeU73eOrgIqW5N0ZYNRAtd6/cjjasWP0DKVZNzkbJp2o+Raqfuuhq/RjkVoWyIvRPK/TStH82dRbgAaY6a7nyU8adcbfV7pFrU4LZImeZFeiYdRrwoSZIkSZIkSZKk0aWmzHmwIfbEx+HJKIMppzD8BGXTyS2R6ioNqpxM9Cb8Hmm9dVW5Hx2O+6BsPki1a4x0T++SVJM5VE74OAinIK2dLvgzymknd0CqUVXSmtLgUlNQQ2yFJ+Hj+F+k5qmanIUjsA+2QMo8156ONLZxeCbSa6rX2x6pZk3yWaSx1+hbSBnnWjnFaWOkMdWi1sbnlX0eKZumNX1DnObONfgjyikbh2A/3BXrI60Vza+bIs1bDY5GytRW5T1zJVItmq5sFkqZ5k16Jh1GvChJkiRJkiRJkqTRpabMebYY98Tr8ANcg9T42kVn4ZN4Im6EVD9ptm6DsrHpv3EV0lpss7IJ5xCUTSflfpRq1Ejpnt4lqSbz5K54I8pJVGlNtcnpeBvK5/QipHpUKa0pDS41BTXUNtgL78DxuBCpqaoJrsLP8D48GbdEyjTf5nIjxE5Ir6lJb0GqW1M8D2ncNXodUsa5VE5sug/SeGryBKR8NXkhUjZNKxshU+1Ut/K3x19R/v74Gj6E12Nf3B87Yl2kNaHmOBhpfpvuZUh52uz5SLVouq8g5Zk36Zl0GPGiJEmSJEmSJEmSRpeaMhfYRnggXo/j8H9ITbFtUzbenIwPY1/siFQfaS5tjIfjPfgZrkZarzU7A0fiKdgOqQ5VSPf0Lkk1WQDlXr0/Po82nOh1Ib6E5+HWSJlbIa0pDS41BVWkNFM+FC9BabQsG1NOx3x9I3H5BuHS6Pk5vBGPx+2xHtJ4m6B883nKMhvnIb2Wpi3G+1G+IbyJbo007hotRco4lw5AGkuNXomUsRY7I+XSql6FVD8tvCOv9xEcindhGcp7szS8Pw174oEop5eUzaW1n76kaevgMKS10WTl79+Up+3ehFSPJisb+lOWeZOeSYcRL0qSJEmSJEmSJGl0qSmzYco3rt8Ke6N8C/vXUU4GSY2ztSibasppLx/Ac3EvbIiUX1pIZUPYffFyHIXfoaZTisq94mt4E8rGmhsj5axSuqd3SarJAiufV7fHM/Eh/BJN3sR1LX6Nj+A5+Desg5StddKa0uBSU1BLlBNT7oKH4Eko34pfGjjLCSofRGnu/DRSY9YnUP7/pQGwnFxRGnXLCRGlYeteKM36N0B63aZ7EVLm2TgI6bUkSZLUMumZQpov8aIkSZIkSZIkSZJGl5oyK1FOargzHosDUZp9v4nf4mKkZtv58k+cim/jY1iGp+HfcSOkPFItymap8t7bC6/BJ/DfKCeLXIX0npgrpbn/zzgRZYPMG1Hea7tiU6Txt0a6p3dJqkkDrYeyKaW8X8pnwafxY/wVaU3PhQvwK5STTcp7ZB/cBWWDWRpzJ6Q1JUmSJEmS2iVelCRJkiRJkiRJ0uhSU2ZLbICb4e54KJ6IctpI2axSTkM4FIfjSHwOR69B+TfFYXgPShPxK/BsPAF7YCm2R3ndNB6pC8oJENvgjngQyvvjeTgIU++7I1DeT59Her99FuX//1GUf38wXo3y/i2/78EoJzWU1+nMaQ1Juqd3SapJZdbHjrgHHoZycspLUT5j3o1yMkl5L5TNVTPfJ+Vza+qz6YN4K6Y+lx6PB6CcHuZn0mqkNSVJkiRJktolXpQkSZIkSZIkSZIkSZIkSZIkSZKmxIuSJEmSJEmSJEmSJEmSJEmSJEnSlHhRkiRJkiRJkiRJkiRJkiRJkiRJmhIvSpIkSZIkSZIkSZIkSZIkSZIkSVPiRUmSJEmSJEmSJEmSJEmSJEmSJGlKvChJkiRJkiRJkiRJkiRJkiRJkiRNiRclSZIkSZIkSZIkSZIkSZIkSZKkKfGiJEmSJEmSJEmSJEmSJEmSJEmSNCVelCRJkiRJkiRJkiRJkiRJkiRJkqbEi5IkSZIkSZIkSZIkSZIkSZIkSdKUeFGSJEmSJEmSJEmSJEmSJEmSJEmaEi9KkiRJkiRJkiRJkiRJkiRJkiRJU+JFSZIkSZIkSZIkSZIkSZIkSZIkaUq8KEmSJEmSJEmSJEmSJEmSJEmSJE2JFyVJkiRJkiRJkiRJkiRJkiRJkqQp8aIkSZIkSZIkSZIkSZIkSZIkSZI0JV6UJEmSJEmSJEmSJEmSJEmSJEmSpsSLkiRJkiRJkiRJkiRJkiRJkiRJ0pR4UZIkSZIkSZIkSZIkSZIkSZIkSZoSL0qSJEmSJEmSJEmSJEmSJEmSJElT4kVJkiRJkiRJkiRJkiRJkiRJkiRpSrwoSZIkSZIkSZIkSZIkSZIkSZIkTYkXJUmSJEmSJEmSJEmSJEmSJEmSpCnxoiRJkiRJkiRJkiRJkiRJkiRJkjQlXpQkSZIkSZIkSZIkSZIkSZIkSZKmxIuSJEmSJEmSJEmSJEmSJEmSJEnSlHhRkiRJkiRJkiRJkiRJkiRJkiRJmhIvSpIkSZIkSZIkSZIkSZIkSZIkSVPiRUmSJEmSJEmSJEmSJEmSJEmSJGlKvChJkiRJkiRJkiRJkiRJkiRJkiRNiRclSZIkSZIkSZIkSZIkSZIkSZKkKfGiJEmSJEmSJEmSJEmSJEmSJEmSNCVelCRJkiRJkiRJkiRJkiRJkiRJkqbEi5IkSZIkSZIkSZIkSZIkSZIkSdKUeFGSJEmSJEmSJEmSJEmSJEmSJEmaEi9KkiRJkiRJkiRJkiRJkiRJkiRJU+JFSZIkSZIkSZIkSZIkSZIkSZIkaUq8KEmSJEmSJEmSJEmSJEmSJEmSJE36/yb+f+CP5Ido1pGSAAAAAElFTkSuQmCC + + + 0, 0 + + + 0, 0 + + \ No newline at end of file diff --git a/SDL/mdm/IDS/rptIDS_Anhang.vb b/SDL/mdm/IDS/rptIDS_Anhang.vb new file mode 100644 index 00000000..2020fcf6 --- /dev/null +++ b/SDL/mdm/IDS/rptIDS_Anhang.vb @@ -0,0 +1,7 @@ +Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports.Document + +Public Class rptIDS_Anhang + + +End Class diff --git a/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb b/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb index b578cba6..237cccf1 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb @@ -48,6 +48,7 @@ Partial Class frmMDMDatenverarbetiung Me.lbl = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() Me.pnlIDS = New System.Windows.Forms.Panel() + Me.Button10 = New System.Windows.Forms.Button() Me.btnRechenwertesetzen = New System.Windows.Forms.Button() Me.lblTTRSum = New System.Windows.Forms.Label() Me.txtTTRSum = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -80,7 +81,7 @@ Partial Class frmMDMDatenverarbetiung Me.Button3 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.Button10 = New System.Windows.Forms.Button() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.pnl.SuspendLayout() Me.Panel5.SuspendLayout() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() @@ -374,6 +375,16 @@ Partial Class frmMDMDatenverarbetiung Me.pnlIDS.TabIndex = 50 Me.pnlIDS.Visible = False ' + 'Button10 + ' + Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button10.Location = New System.Drawing.Point(168, 5) + Me.Button10.Name = "Button10" + Me.Button10.Size = New System.Drawing.Size(140, 23) + Me.Button10.TabIndex = 49 + Me.Button10.Text = "Rechenw. zurücksetzen" + Me.Button10.UseVisualStyleBackColor = True + ' 'btnRechenwertesetzen ' Me.btnRechenwertesetzen.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -764,15 +775,10 @@ Partial Class frmMDMDatenverarbetiung Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 577) Me.MyDatagridview1.TabIndex = 0 ' - 'Button10 + 'ContextMenuStrip1 ' - Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button10.Location = New System.Drawing.Point(168, 5) - Me.Button10.Name = "Button10" - Me.Button10.Size = New System.Drawing.Size(140, 23) - Me.Button10.TabIndex = 49 - Me.Button10.Text = "Rechenw. zurücksetzen" - Me.Button10.UseVisualStyleBackColor = True + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) ' 'frmMDMDatenverarbetiung ' @@ -866,4 +872,5 @@ Partial Class frmMDMDatenverarbetiung Friend WithEvents pnlIDS As Panel Friend WithEvents btnRechenwertesetzen As Button Friend WithEvents Button10 As Button + Friend WithEvents ContextMenuStrip1 As ContextMenuStrip End Class diff --git a/SDL/mdm/frmMDMDatenverarbetiung.resx b/SDL/mdm/frmMDMDatenverarbetiung.resx index d584bd9e..c477c7b6 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.resx +++ b/SDL/mdm/frmMDMDatenverarbetiung.resx @@ -117,6 +117,9 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 17, 17 + diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index f85d673e..43cb806a 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -1,6 +1,7 @@ Imports System.Data.OleDb Imports System.IO Imports Challenge +Imports MDM_Worker Imports TAlex.WPF.Helpers Imports VERAG_PROG_ALLGEMEIN @@ -28,9 +29,7 @@ Public Class frmMDMDatenverarbetiung Case "PLOSE" : genSummenbericht_PLOSE() Case "ASFINAG" : genSummenbericht_ASFINAG() Case "UTA" : genSummenbericht_UTA() - Case "IDS" - genSummenbericht_IDS(17) - genSummenbericht_IDS(21) + Case "IDS" : genSummenbericht_IDS(17) : genSummenbericht_IDS(21) Case "MSE" : genSummenbericht_MSE() Case Else : MsgBox("Nicht verfügbar!") End Select @@ -98,26 +97,33 @@ Public Class frmMDMDatenverarbetiung End If Select Case LIEFERANT Case "PLOSE" - If genRGAtt_PLOSE() Then + Dim ploseParam As New cPLOSE + ploseParam.initImportPfade() + If genRGAtt_PLOSE(ploseParam) Then If MautD_Befuellen() Then setFakturiert(LIEFERANT) End If End If Case "UTA" - If genRGAtt_UTA() Then + Dim UTA As New cUTA + UTA.initImportPfade(LIEFERANT) + If genRGAtt_UTA(UTA) Then If Not test AndAlso MautD_Befuellen() Then setFakturiert(LIEFERANT) End If End If Case "IDS" - MsgBox("Nicht verfügbar!") + showIDSContextMenu() Case "MSE" - If genRGAtt_MSE() Then + Dim mseParam As New cMSEAPI(LIEFERANT) + If genRGAtt_MSE(mseParam) Then If Not test AndAlso MautD_Befuellen() Then setFakturiert(LIEFERANT) End If End If Case "ASFINAG" + Dim asfinagParam As New cAsfinagMaut + asfinagParam.initImportPfade() Dim abrechnungsDatum As DateTime = Now() If datum = Nothing Then datum = SQL.getValueTxtBySql("select top (1) Abrechnungsdatum from Abrechnungsdatum", "ASFINAG") @@ -125,7 +131,7 @@ Public Class frmMDMDatenverarbetiung Dim inputKdNr = "" 'InputBox("Wenn einzelner Kunde abgerechnet werde soll, bitte KdNr eingeben" & vbNewLine & "Wenn keine KdNr angegeben wird, dann werden alle Kunden abgerechnet:", "Asfinag abrechen") - If genRGAtt_ASFINAG(abrechnungsDatum, datum, inputKdNr) Then + If genRGAtt_ASFINAG(abrechnungsDatum, datum, inputKdNr, asfinagParam) Then MautD_Befuellen(inputKdNr) End If initDgv_ASFINAG(cbxASFINAGAbgerechnet.Checked, cbxBelegeerstellt.Checked) @@ -934,7 +940,7 @@ Public Class frmMDMDatenverarbetiung left join tbl_IDS_Kunden as Kunde on Kunde.CustomerCode = trans.CustomerCode And Kunde.KdNrAlt = 0 left join tbl_IDS_Kunden_ohne_Rabatt as KundeOhneR on KundeOhneR.CustomerCode = trans.CustomerCode left join tbl_IDS_Produkte as prod on prod.ProductTypeCode = trans.ProductTypeCode - where cast(trans.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' and trans.UStVAn_ID is null", "FMZOLL") + where cast(trans.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' and trans.UStVAn_ID is null and trans.charged <> 1 ", "FMZOLL") .LOAD() @@ -1144,7 +1150,7 @@ Public Class frmMDMDatenverarbetiung - Function genRGAtt_PLOSE() As Boolean + Function genRGAtt_PLOSE(ploseParam As cPLOSE) As Boolean Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_Fakturiert = 0 AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " ) AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ", "FMZOLL") 'MsgBox("Keine Daten!""SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where AND plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ") If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then @@ -1153,7 +1159,7 @@ Public Class frmMDMDatenverarbetiung End If Dim cnt = 0 If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then - Dim dir = "F:\FMZoll\Maut\PLOSE\" & Now.ToShortDateString + Dim dir = ploseParam.ANLAGEN & Now.ToShortDateString If Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "") Directory.CreateDirectory(dir) @@ -1208,7 +1214,7 @@ Public Class frmMDMDatenverarbetiung Return False End Function - Function genRGAtt_UTA() As Boolean + Function genRGAtt_UTA(utaParam As cUTA) As Boolean Dim top = "" 'top = " TOP 20 " Dim SQLStr = " SELECT Kundennummer AS [Customer ID], KundenNr AS [Customer Nr], UTAExportCSV,Rechnungsdruck @@ -1228,7 +1234,8 @@ Public Class frmMDMDatenverarbetiung End If Dim cnt = 0 If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then - Dim dir = "F:\FMZoll\Maut\UTA\Archiv\" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "") & Now.ToShortDateString + + Dim dir = IIf(test, utaParam.ARCHIV & "TEST\", utaParam.ARCHIV) & Now.ToShortDateString & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "") If Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "") Directory.CreateDirectory(dir) @@ -1270,19 +1277,19 @@ Public Class frmMDMDatenverarbetiung Next - For Each UTA In dt_Main.Rows + For Each uta In dt_Main.Rows Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing - Dim verarbOK = True + Dim verarbOK = IIf(test, False, True) - If Not gen_SPEDBUCH_ByKdNr(UTA("Customer Nr"), SPEDBUCH, "UTA") Then verarbOK = False - If Not gen_RECHNUNG_BySPEDBUCH(UTA("Customer Nr"), SPEDBUCH, "UTA") Then verarbOK = False + If Not gen_SPEDBUCH_ByKdNr(uta("Customer Nr"), SPEDBUCH, "UTA") Then verarbOK = False + If Not gen_RECHNUNG_BySPEDBUCH(uta("Customer Nr"), SPEDBUCH, "UTA") Then verarbOK = False - genUTAAttachmentByKdNr(UTA("Customer Nr"), UTA("Customer ID"), dir, datPloseAnhang.Value) + genUTAAttachmentByKdNr(uta("Customer Nr"), uta("Customer ID"), dir, datPloseAnhang.Value) If verarbOK Then 'UPDATE Fakturiert - SQL.doSQL("UPDATE [tblUTAImportNew] set abgerechnetDatum=GETDATE() where abgerechnetDatum is null and [Rechnungsdatum] = '" & DateTimePicker2.Text & "' and Kundennummer = " & UTA("Customer ID"), "FMZOLL") + SQL.doSQL("UPDATE [tblUTAImportNew] set abgerechnetDatum=GETDATE() where abgerechnetDatum is null and [Rechnungsdatum] = '" & DateTimePicker2.Text & "' and Kundennummer = " & uta("Customer ID"), "FMZOLL") End If @@ -1299,7 +1306,7 @@ Public Class frmMDMDatenverarbetiung ' ANHÄNGE WERDEN NCIHT BENÖTIGT:: 'Alle Alangen im foglenden VZ löschen und die aktuellen kopieren - Dim dirAnhang = "F:\FMZoll\Maut\UTA\Anlagen\" + Dim dirAnhang = IIf(test, utaParam.ANLAGEN & "TEST\", utaParam.ANLAGEN) If Directory.Exists(dirAnhang) Then 'Directory.Delete(dirAnhang, True) For Each f In Directory.GetFiles(dirAnhang) File.Delete(f) @@ -1324,7 +1331,7 @@ Public Class frmMDMDatenverarbetiung Return False End Function - Function genRGAtt_MSE() As Boolean + Function genRGAtt_MSE(mseParam As cMSEAPI) As Boolean Dim top = "" 'top = " TOP 20 " Dim sqlWhere = IIf(test, " and (cust.[customer_id] = 12229 or cust.[customer_id] = 13236 or cust.[customer_id] = 11836 or cust.[customer_id] = 14385)", "") 'zum testem @@ -1348,7 +1355,7 @@ Public Class frmMDMDatenverarbetiung Dim cnt = 0 If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then - Dim dir = IIf(test, "C:\Users\d.breimaier\Desktop\MSE\", "F:\FMZoll\MSE\Archiv\") & Now.ToShortDateString & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "") + Dim dir = IIf(test, "C:\Users\d.breimaier\Desktop\MSE\", mseParam.ARCHIV) & Now.ToShortDateString & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "") If Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "") @@ -1435,7 +1442,7 @@ Public Class frmMDMDatenverarbetiung ' ANHÄNGE WERDEN NCIHT BENÖTIGT:: 'Alle Alangen im foglenden VZ löschen und die aktuellen kopieren - Dim dirAnhang = "F:\FMZoll\MSE\Anlagen\" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "") & Now.ToShortDateString + Dim dirAnhang = mseParam.ANLAGEN & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "") & Now.ToShortDateString If Directory.Exists(dirAnhang) Then 'Directory.Delete(dirAnhang, True) For Each f In Directory.GetFiles(dirAnhang) File.Delete(f) @@ -1461,7 +1468,155 @@ Public Class frmMDMDatenverarbetiung End Function - Function genRGAtt_ASFINAG(belegerstellungsdatum As DateTime, abrechnungsdatum As Date, inputKdNr As String) As Boolean + Function genRGAtt_IDS(art As String, idsParam As cIDS) As Boolean + + Dim top = "" + Dim sqlWhere = "" + Select Case art + Case "IDS" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode<>740543" + Case "IDS_AT" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode=740543" + Case Else + MsgBox("falscher Typ!") : Return False + + End Select + + Dim SQLStr = " SELECT + distinct(tblIDSTransactionsNew.KdNrVERAG), + tblIDSTransactionsNew.CustomerCode, + Adressen.Rechnungsdruck, + isNULL(tblIDSInvoicesNew.daId,0) as InvoiceID + FROM + tblIDSTransactionsNew + INNER JOIN + Adressen + ON tblIDSTransactionsNew.KdNrVERAG = Adressen.AdressenNr + LEFT JOIN + tblIDSInvoicesNew + on tblIDSInvoicesNew.CustomerCode = tblIDSTransactionsNew.CustomerCode and tblIDSInvoicesNew.Invoicenumber = Paymentsummarynumber + WHERE cast(tblIDSTransactionsNew.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' AND [UStVAn_ID] is null" & sqlWhere & " + order by tblIDSTransactionsNew.KdNrVERAG" + + Dim dt_Main As DataTable = SQL.loadDgvBySql_Param(SQLStr, "FMZOLL", 1200) + + + If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then + MsgBox("Keine Daten!") + Return False + End If + Dim cnt = 0 + If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then + + Dim dir = IIf(test, idsParam.ARCHIV & "TEST\", idsParam.ARCHIV) & Now.ToShortDateString & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "") + + If Directory.Exists(dir) Then + 'dir &= "_" & Now.ToShortTimeString.Replace(":", "") + End If + Directory.CreateDirectory(dir) + + 'Dim displayView = New DataView(dt_Main, "", "KdNrVERAG", DataViewRowState.CurrentRows) + 'Dim distinctDT_CSV As DataTable = displayView.ToTable(True, "KdNrVERAG") + + + 'For Each csv As DataRow In distinctDT_CSV.Rows + + ' Dim dt_CSV_selected = SQL.loadDgvBySql_Param(" + ' SELECT controller_id as [Controller ID], 'VERAG 360 GmbH' as [Controller Name] , inv.[invoice_id] as [Invoice ID], inv.invoice_date as [Invoice Date], + ' cust.customer_id as [Customer ID], cust.partner_customer_number as [Customer No], cust.customer_name as [Customer name], bills.specification_page_name as [Specification Page], bills.specification_page_id as [Specification ID], trans.purchase_datetime as [Transaction date], trans.transaction_id as [Transaction ID], + ' trans.supplier_name as [Transaction Supplier/Terminal], trans.transaction_country as [Transaction Country], trans.transaction_product_name as [Product description], trans.transaction_product_id as [Product Description ID], trans.device_product_type as [Card Type], trans.device_product_number as [Card number], trans.license_plate_number as [Load File Licence Plate Number], + ' '' as [Card Licence Plate Number], trans.license_plate_number as [Truck Licence Plate Number], '' as [Truck Fleet Code], '' as [Truck Driver Name], trans.entry_point_name as [Entry Terminal/Direction], trans.entry_datetime as [Start date], trans.entry_datetime as [Start Time], trans.exit_point_name as [Exit Terminal Description], trans.exit_datetime as [End Date], trans.exit_datetime as [End Time], + ' '' as [Eurovignet K-Number], '' as [LKW-Kostenstelle], trans.original_net_amount as [Original Nett Amount], trans.original_vat_amount as [Original VAT Amount], trans.original_gross_amount as [Original Amount], trans.original_currency as [Original Currency], + ' trans.transaction_gross_amount as [Transaction Amount ( EUR )], trans.msts_fee_amount as [Admin Fee Amount ( EUR )], '' as [Fees and Costs Amount ( EUR )], trans.msts_vat_amount as [VAT Amount ( EUR )],trans.total_gross_amount as [Total Amount ( EUR )], '' as [Total Dutch VAT ( EUR )], '' as [Total Foreign VAT ( EUR )], trans.[USteuer_EUR] as [USteuer_EUR] + ' FROM [VERAG].[dbo].[tblMSESettlements] as bills + ' left join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id] + ' left join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id + ' left join [VERAG].[dbo].[tblMSEInvoices] as inv on inv.[invoice_id] = bills.[invoice_number] and inv.customer_number = cust.[customer_id] and trans.transaction_country = inv.country + ' where bills.invoice_date = '" & DateTimePicker2.Text & "' and trans.charged <> 1 and (trans.transaction_gross_amount <> 0 or [msts_fee_amount] <> 0) and cust.[customer_id] = " & csv.Item("Customer ID"), "FMZOLL") + + ' dt_CSV_selected.ParentRelations.Clear() + ' dt_CSV_selected.ChildRelations.Clear() + ' dt_CSV_selected.Constraints.Clear() + + + ' Dim fn As String = dir & "\" & csv.Item("Customer Nr") & "_Maut_MSE.csv" + ' Dim outFile As System.IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(fn, False) + ' Dim clmns As String = "" + ' For i = 0 To dt_CSV_selected.Columns.Count - 1 + ' clmns &= dt_CSV_selected.Columns(i).ColumnName.ToString().Replace(";", ", ") & ";" + ' Next + ' outFile.WriteLine(clmns) + ' For i = 0 To dt_CSV_selected.Rows.Count - 1 + ' clmns = "" + ' For j = 0 To dt_CSV_selected.Columns.Count - 1 + ' clmns &= dt_CSV_selected.Rows(i)(j).ToString.Replace(";", ", ") & ";" + ' Next + ' outFile.WriteLine(clmns) + ' Next + ' outFile.Close() + 'Next + + + For Each IDS In dt_Main.Rows + + Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing + Dim verarbOK = IIf(test, False, True) + + If Not gen_SPEDBUCH_ByKdNr(IDS("KdNrVERAG"), SPEDBUCH, art) Then verarbOK = False + If Not gen_RECHNUNG_BySPEDBUCH(IDS("KdNrVERAG"), SPEDBUCH, art) Then verarbOK = False + + If IDS("Rechnungsdruck") = 2 Then + If genIDSAttachmentByKdNr(IDS("KdNrVERAG"), IDS("CustomerCode"), dir, datPloseAnhang.Value, art) = "" Then verarbOK = False + End If + + If IDS("InvoiceID") > 0 Then + Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(IDS("InvoiceID")) + File.Copy(DS.GET_TOP1_PATH, dir & "\" & IDS("KdNrVERAG") & "_" & (DS.da_name)) + End If + + + If verarbOK Then + 'Update Fakturiert + SQL.doSQL("UPDATE [tblIDSTransactionsNew] Set chargedDatetime = GETDATE() + where cast(tblIDSTransactionsNew.YearMonthDay As Date) = '" & DateTimePicker2.Text & "' AND [UStVAn_ID] is null and tblIDSTransactionsNew.KdNrVERAG = " & IDS("KdNrVERAG") & sqlWhere, "FMZOLL") + End If + + If True Then 'cnt Mod 10 = 0 Then + txtPloseAnh_Einarbeitung.Text = cnt & " / " & dt_Main.Rows.Count + Dim proz As Double = (cnt / dt_Main.Rows.Count) * 100 + pbPloseAnh_Proz.Value = proz + lblPloseAnh_Proz.Text = proz.ToString("N2") & " %" + 'GroupBox12.Refresh() + My.Application.DoEvents() + End If + cnt += 1 + Next + + If test Then Return True + + ' ANHÄNGE WERDEN NCIHT BENÖTIGT:: + 'Alle Alangen im foglenden VZ löschen und die aktuellen kopieren + Dim dirAnhang = IIf(test, idsParam.ANLAGEN & "TEST\", idsParam.ANLAGEN) & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "") & Now.ToShortDateString + If Directory.Exists(dirAnhang) Then 'Directory.Delete(dirAnhang, True) + For Each f In Directory.GetFiles(dirAnhang) + File.Delete(f) + Next + Else + Directory.CreateDirectory(dirAnhang) + End If + + For Each f In Directory.GetFiles(dir) + File.Copy(f, dirAnhang & "\" & (New FileInfo(f)).Name) + Next + + pbPloseAnh_Proz.Value = 100 + txtPloseAnh_Einarbeitung.Text = dt_Main.Rows.Count & " / " & dt_Main.Rows.Count + lblPloseAnh_Proz.Text = "100.00 %" + + Return True + End If + Return False + End Function + + Function genRGAtt_ASFINAG(belegerstellungsdatum As DateTime, abrechnungsdatum As Date, inputKdNr As String, asfinagParam As cAsfinagMaut) As Boolean If cbxASFINAGAbgerechnet.Checked = False Then MsgBox("Bitte abgerechnete Daten auswählen!") @@ -1508,7 +1663,7 @@ Public Class frmMDMDatenverarbetiung End If If vbYes = MsgBox(Info & vbNewLine & "Möchten Sie die Rechnungen + Anhänge erstellen?", vbYesNoCancel) Then - Dim dir = "F:\FMZoll\Maut\AT\Anlagen" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "\Test", "") '"C:\Users\d.breimaier\Desktop\Asfinag\Mautberichte" + Dim dir = asfinagParam.ANLAGEN & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "\Test", "") '"C:\Users\d.breimaier\Desktop\Asfinag\Mautberichte" If Not Directory.Exists(dir) Then Directory.CreateDirectory(dir) @@ -1609,7 +1764,7 @@ Public Class frmMDMDatenverarbetiung ' Next 'End If 'If Not Directory.Exists(dirAnhang) Then Directory.CreateDirectory(dirAnhang) - Dim dirCSV = "F:\FMZoll\Maut\Anlagen\" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test\", "") + Dim dirCSV = asfinagParam.ANLAGEN & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test\", "") If Not Directory.Exists(dirCSV) Then Directory.CreateDirectory(dirCSV) @@ -2614,6 +2769,7 @@ Public Class frmMDMDatenverarbetiung sumNettoKat += sumNetto sumMWSTKat += sumMWST sumBruttoKat += sumBrutto + sumNetto = 0 sumMWST = 0 sumBrutto = 0 @@ -2624,9 +2780,7 @@ Public Class frmMDMDatenverarbetiung cntKat += 1 End Sub AddHandler rpt.ReportFooter1.Format, Sub() - 'sumNettoGes += sumNettoKat - 'sumMWSTGes += sumMWSTKat - 'sumBruttoGes += sumBruttoKat + sumNettoKat = 0 sumMWSTKat = 0 sumBruttoKat = 0 @@ -2669,6 +2823,169 @@ Public Class frmMDMDatenverarbetiung End Function + Function genIDSAttachmentByKdNr(KdNr As String, IDSKdNr As String, dir As String, von As Date, art As String) + Try + + Dim displayFilter = False + Dim sqlstr As String = "" + Dim sqlWhere As String = "" + + Select Case art + Case "IDS" : sqlWhere = " AND tblIDSTransactionsNew.[OutletCountryCode]<>740543" + Case "IDS_AT" : sqlWhere = " AND tblIDSTransactionsNew.[OutletCountryCode]=740543" + End Select + + + + sqlstr &= " SELECT Adressen.AdressenNr, Adressen.[Name 1], Adressen.[Name 2], Adressen.Straße, Adressen.LandKz, Adressen.PLZ, Adressen.Ort, Adressen.UstIdKz, Adressen.UstIdNr, tblIDSTransactionsNew.[CustomerCode], tblIDSTransactionsNew.[OutletCountry], tbl_IDS_Produkte.ProductDescription, tbl_IDS_Länder.Steuersatz, tblIDSTransactionsNew.Rechenwert, tblIDSTransactionsNew.Kz, Sum(tblIDSTransactionsNew.[TransactionVolume]) AS Liter, Sum(tblIDSTransactionsNew.[TotalNetAmount]) AS Nettobetrag, Sum(tblIDSTransactionsNew.[VATAmount]) AS Steuerbetrag, Sum([TotalNetAmount])/Sum([TransactionVolume]) AS NettopreisProLiter, Sum(tblIDSTransactionsNew.Rabattbetrag) AS [SummevonRabattbetrag], Sum([Rabattbetrag])/Sum([TransactionVolume]) AS RabattbetragProLiter + FROM ((tblIDSTransactionsNew INNER JOIN tbl_IDS_Länder ON tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode) INNER JOIN tbl_IDS_Produkte ON tblIDSTransactionsNew.[ProductTypeCode] = tbl_IDS_Produkte.ProductTypeCode) INNER JOIN Adressen ON tblIDSTransactionsNew.KdNrVERAG = Adressen.AdressenNr + WHERE tblIDSTransactionsNew.KdNrVERAG = " & KdNr & sqlWhere & " + GROUP BY Adressen.AdressenNr, Adressen.[Name 1], Adressen.[Name 2], Adressen.Straße, Adressen.LandKz, Adressen.PLZ, Adressen.Ort, Adressen.UstIdKz, Adressen.UstIdNr, tblIDSTransactionsNew.[CustomerCode], tblIDSTransactionsNew.[OutletCountry], tbl_IDS_Produkte.ProductDescription, tbl_IDS_Länder.Steuersatz, tblIDSTransactionsNew.Rechenwert, tblIDSTransactionsNew.Kz; + " + + Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL") + If dt Is DBNull.Value Then Return "" + If dt.Rows.Count = 0 Then Return "" + + Dim rpt As New rptIDS_Anhang + + rpt.DataSource = dt + + rpt.txtKunde.Text = KdNr & " " & New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr).FullName + + rpt.lblIDSKdNr.Text = IDSKdNr + + rpt.lblRgDatum.Text = datPloseAnhang.Value.ToShortDateString + + rpt.GroupHeaderKz.DataField = "OutletCountry" + + rpt.Label4.Text = von.ToShortDateString + + + Dim curRabattbetragProLiter As Double = 0 + Dim curRabattbetrag As Double = 0 + Dim curGesamtbetrag As Double = 0 + + + Dim sumLiter As Double = 0 + + Dim sumBrutto As Double = 0 + + Dim sumLiterLand As Double = 0 + + Dim sumLiterKat As Double = 0 + + Dim sumBruttoLand As Double = 0 + + Dim sumBruttoKat As Double = 0 + + Dim sumLiterGes As Double = 0 + + Dim sumBruttoGes As Double = 0 + + Dim cntKat = 0 + Dim cnt = 0 + + rpt.GroupFooterKat.Visible = False + + AddHandler rpt.Detail.Format, Sub() + ' If cnt = 0 Then + curRabattbetrag = 0 - SQL.isDbnullEmptyDbl(rpt.Fields.Item("SummevonRabattbetrag").Value, 2, "") '=0-[Summe von Rabattbetrag] + curRabattbetragProLiter = 0 - IIf(SQL.isDbnullEmpty(rpt.Fields.Item("KZ").Value, "") = "P", SQL.isDbnullEmptyDbl(rpt.Fields.Item("RabattbetragProLiter").Value, 4, 0), SQL.isDbnullEmptyDbl(rpt.Fields.Item("Rechenwert").Value, 4, 0)) '=0-Wenn([Kz]="P";[RabattbetragProLiter];[Rechenwert]) + curGesamtbetrag = CDbl(SQL.isDbnullEmptyDbl(rpt.Fields.Item("Nettobetrag").Value, 2, 0) + curRabattbetrag + SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuerbetrag").Value, 2, 0)) '=[Nettobetrag]+[curRabattbetrag]+[Steuerbetrag] + + rpt.txtKunde.Text = SQL.isDbnullEmpty(rpt.Fields.Item("AdressenNr").Value, "") + rpt.txtKunde.Text &= " " & SQL.isDbnullEmpty(rpt.Fields.Item("Name 1").Value, "") + + rpt.txtProduktBeschreibung.Text = SQL.isDbnullEmpty(rpt.Fields.Item("ProductDescription").Value, "") + + rpt.txtLiter.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Liter").Value, "") + rpt.txtPreis.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("NettopreisProLiter").Value, 4, "") + rpt.txtBetrag.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Nettobetrag").Value, 2, "") + + rpt.txtRabattPreis.Text = curRabattbetragProLiter + rpt.txtRabattBetrag.Text = curRabattbetrag + + rpt.lblMWST.Text = "zuzüglich MWST " + rpt.lblMWST.Text &= IIf(SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") <> "", SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") * 100 & " %", "") + + rpt.txtMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuerbetrag").Value, 2, "") + + rpt.txtPreisProLiter.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("NettopreisProLiter").Value, 4, 0) + curRabattbetragProLiter '=[NettopreisProLiter]+[curRabattbetragProLiter] + + rpt.txtGesamtbetrag.Text = curGesamtbetrag + + sumLiter += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Liter").Value, 2, 0) + + sumBrutto += curGesamtbetrag + + cnt += 1 + End Sub + + + + AddHandler rpt.GroupHeaderKz.Format, Sub() + rpt.txtOutletCountry.Text = SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, "") + End Sub + + AddHandler rpt.GroupFooterKz.Format, Sub() + + sumLiterLand += sumLiter + sumBruttoLand += sumBrutto + + + rpt.txtNettoKzSum.Text = sumLiterLand.ToString("N2") + rpt.txtMWSTKzSum.Text = "" + rpt.txtBruttoKzSum.Text = sumBruttoLand.ToString("N2") + cntKat += 1 + + sumLiter = 0 + sumBrutto = 0 + + sumLiterGes += sumLiterLand + sumBruttoGes += sumBruttoLand + + sumLiterLand = 0 + sumBruttoLand = 0 + + rpt.txtOutletCountry.Text = rpt.txtOutletCountry.Text.Replace("Land", SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, "")) + + End Sub + + + + AddHandler rpt.ReportFooter1.Format, Sub() + + rpt.txtNettoGesSum.Text = sumLiterGes.ToString("N2") + rpt.txtBruttoGesSum.Text = sumBruttoGes.ToString("N2") + + If cntKat <= 1 Then + rpt.GroupFooterKat.Visible = False + End If + End Sub + + 'print.Viewer.LoadDocument(rpt) + 'print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous + 'print.Show() + + + Dim tmpPath = dir & "\" & KdNr & "_Diesel_" & art & ".pdf" + Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + rpt.Run(False) + p.NeverEmbedFonts = "" + p.Export(rpt.Document, tmpPath) + + rpt.Dispose() + + Return tmpPath + + Catch ex As System.Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return "" + + End Function + Function genASFINAGAttachmentByKdNr(KdNr As Integer, dt As DataTable, tmpPath As String) Try @@ -2853,7 +3170,7 @@ Public Class frmMDMDatenverarbetiung Case "UTA" : OffertenNr = 30 : Abfertigungsart = 10 : SPEDBUCH.FilialenNr = 4823 Case "MSE" : OffertenNr = 23 : Abfertigungsart = 10 : SPEDBUCH.FilialenNr = 4821 Case "IDS" : OffertenNr = 17 : Abfertigungsart = 10 : SPEDBUCH.FilialenNr = 4868 - Case "IDS AUT" : OffertenNr = 21 : Abfertigungsart = 10 : SPEDBUCH.FilialenNr = 4868 + Case "IDS_AT" : OffertenNr = 21 : Abfertigungsart = 10 : SPEDBUCH.FilialenNr = 4868 End Select SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year) @@ -3058,7 +3375,7 @@ Public Class frmMDMDatenverarbetiung Case "UTA" : OffertenNr = 30 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang" Case "MSE" : OffertenNr = 23 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang" Case "IDS" : OffertenNr = 17 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang" - Case "IDS AUT" : OffertenNr = 21 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang" + Case "IDS_AT" : OffertenNr = 21 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang" End Select @@ -3234,56 +3551,6 @@ Public Class frmMDMDatenverarbetiung Case "MSE" - 'des is da schass!!!! - ' Case 23 'MSE Maut - '5070 Select Case ![LeistungsNr] - ' Case 134 'Frejus - Tunnelmaut (20.01.2011) - '5080 Set rst = OpenParameterQuery("qryReErfSchOpt6BeträgeLNr134", eOpensnapshot, "prmAdressenNr:=" & rstRK![RechnungsKundenNr]) - '5090 If Not rst.EOF Then - '5100 ![Anzahl] = 1 - '5110 ![Preis] = rst![SummevonTransaction Amount ( EUR )] + rst![SummevonFees And Costs Amount ( EUR )] - '5120 If Not IsNull(![BGebLeistungsNr]) Then - '5130 ![BGebBgl] = ![Preis] - rst![SummevonUSteuer_EUR] - '5140 End If - '5150 End If - '5160 rst.Close - '5170 Set rst = Nothing - - 'qryReErfSchOpt6BeträgeLNr134 - - - - '5180 Case 141 'MSC Ressa - alle Länder - '5190 Set rst = OpenParameterQuery("qryReErfSchOpt6BeträgeLNr141", eOpensnapshot, "prmAdressenNr:=" & rstRK![RechnungsKundenNr]) - '5200 If Not rst.EOF Then - '5210 ![Anzahl] = 1 - '5220 ![Preis] = rst![SummevonTransaction Amount ( EUR )] + rst![SummevonFees And Costs Amount ( EUR )] - '5230 If Not IsNull(![BGebLeistungsNr]) Then - '5240 ![BGebBgl] = ![Preis] - rst![SummevonUSteuer_EUR] - '5250 End If - '5260 End If - '5270 rst.Close - '5280 Set rst = Nothing - - 'qryReErfSchOpt6BeträgeLNr141 - - - '5290 Case Else 'alle anderen MSE Transactions - '5300 Set rst = OpenParameterQuery("qryReErfSchOpt6Beträge", eOpensnapshot, "prmAdressenNr:=" & rstRK![RechnungsKundenNr], "prmLeistungsNr:=" & ![LeistungsNr]) - '5310 If Not rst.EOF Then - '5320 ![Anzahl] = 1 - '5330 ![Preis] = rst![SummevonTransaction Amount ( EUR )] + rst![SummevonFees And Costs Amount ( EUR )] - '5340 If Not IsNull(![BGebLeistungsNr]) Then - '5350 ![BGebBgl] = ![Preis] - rst![SummevonUSteuer_EUR] - '5360 End If - '5370 End If - '5380 rst.Close - '5390 Set rst = Nothing - '5400 End Select - - 'qryReErfSchOpt6Beträge - - useNettogesamtbetrag = False 'alles steuerfrei also Brutto = Netto @@ -3317,7 +3584,59 @@ Public Class frmMDMDatenverarbetiung Next - Case "IDS" + Case "IDS", "IDS_AT" + + useNettogesamtbetrag = False + Dim sqlWhere = " and tblIDSTransactionsNew.OutletCountryCode" + sqlWhere &= IIf(Lieferant = "IDS", "<>740543", "=740543") + + sqlstr = " + Select + Leistungen.LeistungsNr, + Leistungen.LeistungsBez, + Leistungen.BerechnungsartNr, + tblIDSTransactionsNew.KdNrVERAG, + SUM(tblIDSTransactionsNew.AmminclVAT) As Brutto, + SUM(tblIDSTransactionsNew.[TotalNetAmount]) As Netto, + SUM(tblIDSTransactionsNew.[VATAmount]) As Steuerbetrag, + SUM(tblIDSTransactionsNew.Rabattbetrag) As [SummevonRabattbetrag] + FROM + Leistungen + INNER Join + tbl_IDS_Länder + On Leistungen.LeistungsNr = tbl_IDS_Länder.LeistungsNr + INNER Join + tblIDSTransactionsNew + On tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode + INNER Join + Adressen + On tblIDSTransactionsNew.KdNrVERAG = Adressen.AdressenNr + WHERE cast(tblIDSTransactionsNew.YearMonthDay As Date) = '" & DateTimePicker2.Text & "' AND [UStVAn_ID] is null and tblIDSTransactionsNew.KdNrVERAG = " & KdNr & sqlWhere & " + GROUP BY + tblIDSTransactionsNew.KdNrVERAG, + Leistungen.LeistungsNr, + Leistungen.LeistungsBez, + Leistungen.BerechnungsartNr + + order by tblIDSTransactionsNew.KdNrVERAG" + + Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", 1200) + + + + For Each r In dt.Rows + + + Dim NettoBetrag As Double = r("Netto") + Dim BruttoBetrag As Double = r("Brutto") + Dim UstBetrag As Double = r("Steuerbetrag") + Dim Rabatt As Double = r("SummevonRabattbetrag") + Dim LeistungsNr As Integer = r("LeistungsNr") + Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True) + + allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag - Rabatt, UstBetrag) + + Next ' Case 17 'Diesel IDS '5970 Set qryOffPos = dbs.QueryDefs("qryIDSDieselofferte17") @@ -3355,7 +3674,6 @@ Public Class frmMDMDatenverarbetiung '6290 qryOffPos.Close '6300 Set qryOffPos = Nothing - Case "IDS AUT" ' Case 21 'Diesel IDS AT '6320 Set qryOffPos = dbs.QueryDefs("qryIDSDieselofferte21") @@ -4014,7 +4332,7 @@ Public Class frmMDMDatenverarbetiung End If End Sub - Function MautD_Befuellen(Optional kdNr = "") As Boolean + Function MautD_Befuellen(Optional kdNr = "", Optional _Lieferant = "") As Boolean Select Case LIEFERANT Case "PLOSE" : deleteMautD("PLOSE") : Return genPLOSEInsertMautD(dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString) Case "ASFINAG" : deleteMautD("AT") : Return genASFINAGInsertMautAT(kdNr) @@ -4034,23 +4352,35 @@ Public Class frmMDMDatenverarbetiung PictureBox1.Visible = True End If Case "UTA" - If SQL.doSQL("UPDATE [tblUTAImportNew] set abgerechnet=1 where abgerechnetDatum is not null and abgerechnet <> 1", "FMZOLL") Then + If SQL.doSQL("UPDATE [tblUTAImportNew] set abgerechnet=1 where abgerechnetDatum is not null and abgerechnet <> 1 And and tblUTAImportNew.Rechnungsdatum = '" & DateTimePicker2.Text & "'", "FMZOLL") Then PictureBox1.Visible = True End If Case "MSE" If SQL.doSQL("UPDATE [VERAG].[dbo].[tblMSETransactions] Set charged = 1 - FROM [VERAG].[dbo].[tblMSESettlements] as bills + From [VERAG].[dbo].[tblMSESettlements] as bills inner join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id] inner join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id where bills.invoice_date = '" & DateTimePicker2.Text & "' and trans.chargedDatetime is not null and charged <> 1 ") Then PictureBox1.Visible = True End If + + Case "IDS" + If SQL.doSQL("UPDATE [VERAG].[dbo].[tblIDSTransactionsNew] Set charged = 1 + FROM [VERAG].[dbo].[tblIDSTransactionsNew] + where cast(tblIDSTransactionsNew.YearMonthDay As Date) = '" & DateTimePicker2.Text & "' and chargedDatetime is not null and charged <> 1 and tblIDSTransactionsNew.OutletCountryCode <> 740543 ") Then + PictureBox1.Visible = True + End If + + Case "IDS_AT" + If SQL.doSQL("UPDATE [VERAG].[dbo].[tblIDSTransactionsNew] Set charged = 1 + FROM [VERAG].[dbo].[tblIDSTransactionsNew] + where cast(tblIDSTransactionsNew.YearMonthDay As Date) = '" & DateTimePicker2.Text & "' and chargedDatetime is not null and charged <> 1 and tblIDSTransactionsNew.OutletCountryCode = 740543 ") Then + PictureBox1.Visible = True + End If Case Else MsgBox("Funktion setFaktiuriert für den Lieferant " & Lieferant & " nicht definiert!") End Select - - End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click @@ -4065,6 +4395,7 @@ Public Class frmMDMDatenverarbetiung Case "UTA" : setFakturiert(LIEFERANT) Case "MSE" : setFakturiert(LIEFERANT) Case "ASFINAG" : setFakturiert_ASFINAG() + Case "IDS" : setFakturiert(LIEFERANT) : setFakturiert("IDS_AT") End Select End If End Sub @@ -4688,4 +5019,38 @@ RabattBerechnen: End If End Sub + + Private Sub showIDSContextMenu() + + If Not ContextMenuStrip1.Items.ContainsKey("IDS") Then + Dim IDS = New ToolStripMenuItem() With {.Text = "IDS", .Name = "IDS", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)} + ContextMenuStrip1.Items.Add(IDS) + AddHandler IDS.Click, AddressOf mnuItemIDS_Clicked + End If + + If Not ContextMenuStrip1.Items.ContainsKey("IDS_AT") Then + Dim idsat = New ToolStripMenuItem() With {.Text = "IDS AT", .Name = "IDS_AT", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)} + AddHandler idsat.Click, AddressOf mnuItemIDS_Clicked + ContextMenuStrip1.Items.Add(idsat) + End If + + ContextMenuStrip1.Show(Cursor.Position) + End Sub + + Private Sub mnuItemIDS_Clicked(sender As Object, e As EventArgs) + + ContextMenuStrip1.Hide() + Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem) + + If item IsNot Nothing Then + Dim idsParam As New cIDS() + idsParam.initImportPfade("IDS") + If genRGAtt_IDS(item.Name, idsParam) Then + If Not test Then + setFakturiert(item.Name) + End If + End If + End If + + End Sub End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAsfinagMaut.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAsfinagMaut.vb index 4e7aed55..cd189167 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAsfinagMaut.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAsfinagMaut.vb @@ -100,4 +100,29 @@ Public Class cAsfinagMaut End Function + Public ANLAGEN + + Dim Dateiname = "" + + Public Function initImportPfade() As Boolean + + ANLAGEN = cAsfinagMaut.Paramter.GET_PARAM_ByName("ANLAGEN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + + Return True + + End Function + + + Public Class Paramter + + Shared apiSettingsloaded As Boolean = False + Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String + Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='ASFINAG' AND [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM)) + End Function + End Class + + End Class + diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb b/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb index d38c220c..9142391c 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb @@ -44,6 +44,8 @@ Public Class cIDS Property UStVAn_ID As Object = Nothing Property VRNumber As Object = Nothing Property OBONumber As Object = Nothing + Property charged As Boolean = False + Property chargedDatetime As Object = Nothing Public hasEntry = False @@ -105,6 +107,8 @@ Public Class cIDS list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VRNumber", VRNumber)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OBONumber", OBONumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("charged", charged)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chargedDatetime", chargedDatetime)) Return list End Function @@ -301,6 +305,8 @@ Public Class cIDS Public ERROR_PFAD Public ZIEL_PFAD Public FTP_PFAD + Public ANLAGEN + Public ARCHIV Public API_STRING As String Public API As New DataTable @@ -313,6 +319,8 @@ Public Class cIDS ARCHIV_PFAD = cIDS.Paramter.GET_PARAM_ByName("ARCHIV_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) VERARBEITUNG_PFAD = cIDS.Paramter.GET_PARAM_ByName("VERARBEITUNG_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) ZIEL_PFAD = cIDS.Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + ANLAGEN = cIDS.Paramter.GET_PARAM_ByName("ANLAGEN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + ARCHIV = cIDS.Paramter.GET_PARAM_ByName("ARCHIV", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) If Not System.IO.Directory.Exists(VERARBEITUNG_PFAD) AndAlso VERARBEITUNG_PFAD <> "" Then System.IO.Directory.CreateDirectory(VERARBEITUNG_PFAD) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb index 8543ad99..d845b8a6 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb @@ -27,6 +27,7 @@ Public Class cRMC Property rmc_archiv As Boolean = False Property rmc_fibuNr As Boolean = False Property rmc_sammelReNr As Object = Nothing + Property UStVAn_ID As Object = Nothing Public hasEntry = False @@ -66,6 +67,7 @@ Public Class cRMC list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_fibuNr", rmc_fibuNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_sammelReNr", rmc_sammelReNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_betragMWST", rmc_betragMWST)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID)) Return list @@ -194,7 +196,7 @@ Public Class cRMC End Function - Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As Integer, rmc_kdNr As Integer) As Boolean + Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As Integer, rmc_kdNr As Integer, UStVAn_ID As Integer) As Boolean Try Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL @@ -202,11 +204,12 @@ Public Class cRMC list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reDat", reDat)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reNr", reNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_kdNr", rmc_kdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID)) Return SQL.doSQLVarList(" - UPDATE [tblRMCImport] set rmc_archiv=1, [rmc_archiviertDatum]=GETDATE() + UPDATE [tblRMCImport] set rmc_archiv=1, [rmc_archiviertDatum]=GETDATE(), WHERE cast(rmc_reDatum as date) = @reDat and rmc_reNr = @reNr and rmc_kdNr=@rmc_kdNr ", "FMZOLL",, list) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb index a2c531be..b7a990a5 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb @@ -244,6 +244,8 @@ Public Class cUTA Property abgerechnetDatum As Object Property abgerechnet As Boolean = False Property daId As Object + Property charged As Boolean = False + Property chargedDatetime As Object = Nothing Public hasEntry = False @@ -347,6 +349,8 @@ Public Class cUTA list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abgerechnetDatum", abgerechnetDatum)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abgerechnet", abgerechnet)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("daId", daId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("charged", charged)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chargedDatetime", chargedDatetime)) Return list End Function @@ -1193,6 +1197,8 @@ Public Class cUTA Public ERROR_PFAD Public ZIEL_PFAD Public FTP_PFAD + Public ANLAGEN + Public ARCHIV Public API_STRING As String Public API As New DataTable @@ -1205,6 +1211,8 @@ Public Class cUTA ARCHIV_PFAD = cUTA.Paramter.GET_PARAM_ByName("ARCHIV_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) VERARBEITUNG_PFAD = cUTA.Paramter.GET_PARAM_ByName("VERARBEITUNG_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) ZIEL_PFAD = cUTA.Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + ANLAGEN = cUTA.Paramter.GET_PARAM_ByName("ANLAGEN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + ARCHIV = cUTA.Paramter.GET_PARAM_ByName("ARCHIV", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) If Not System.IO.Directory.Exists(VERARBEITUNG_PFAD) AndAlso VERARBEITUNG_PFAD <> "" Then System.IO.Directory.CreateDirectory(VERARBEITUNG_PFAD) @@ -1253,7 +1261,7 @@ Public Class cUTA End Function - Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As Integer, uta_kdNr As Integer) As Boolean + Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As Integer, uta_kdNr As Integer, ustvaId As Integer) As Boolean Try Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL @@ -1261,11 +1269,12 @@ Public Class cUTA list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reDat", reDat)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reNr", reNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uta_kdNr", uta_kdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ustvaId", ustvaId)) Return SQL.doSQLVarList(" - UPDATE [tblUTAImportNew] set abgerechnet=1, [abgerechnetDatum]=GETDATE() + UPDATE [tblUTAImportNew] set abgerechnet=1, [abgerechnetDatum]=GETDATE(), UStVAn_ID = @ustvaId WHERE cast(Rechnungsdatum as date) = @reDat and Rechnungsnummer_pro_Lieferland = @reNr and Kundennummer=@uta_kdNr ", "FMZOLL",, list) diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb index a53ddf9d..ebbad64f 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb @@ -13,6 +13,8 @@ Public Class cMSEAPI Dim apiSettingsloaded As Boolean = False Dim test As Boolean = False Dim PDFRECHNUNGENPFAD As String = "" + Public ANLAGEN + Public ARCHIV Sub New(program As String) @@ -31,12 +33,13 @@ Public Class cMSEAPI End If PDFRECHNUNGENPFAD = Me.GET_PARAM_ByName("PDFRECHNUNGEN-PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + ANLAGEN = Me.GET_PARAM_ByName("ANLAGEN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + ARCHIV = Me.GET_PARAM_ByName("ARCHIV", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) End If End Sub - Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='MSE' AND [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM)) @@ -1392,7 +1395,7 @@ Public Class cMSEAPI End Function - Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As Integer, mse_kdNr As Integer, country As String) As Boolean + Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As Integer, mse_kdNr As Integer, country As String, UStVAn_ID As Integer) As Boolean Try Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL @@ -1401,11 +1404,12 @@ Public Class cMSEAPI list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reNr", reNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mse_kdNr", mse_kdNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("country", country)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID)) Return SQL.doSQLVarList(" - UPDATE [tblMSEInvoices] set archiv=1, [archiviertDatum]=GETDATE() + UPDATE [tblMSEInvoices] set archiv=1, [archiviertDatum]=GETDATE(), UStVAn_ID = @UStVAn_ID WHERE cast(invoice_date as date) = @reDat and invoice_id = @reNr and customer_number=@mse_kdNr and country = @country ", "FMZOLL",, list) @@ -1433,6 +1437,7 @@ Public Class cMSEInvoices Property daId As Object = Nothing Property archiv As Boolean = False Property archiviertDatum As Object = Nothing + Property UStVAn_ID As Object = Nothing Public hasEntry = False @@ -1462,6 +1467,7 @@ Public Class cMSEInvoices list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("archiv", archiv)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("archiviertDatum", archiviertDatum)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("invoice_nr", invoice_nr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID)) Return list End Function