From 52e00417544b5f25d713cc3bffb8335c2a843a87 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 30 Oct 2025 12:00:22 +0100 Subject: [PATCH] fakt, etc. --- SDL/Fakturierung/cFakturierung.vb | 55 +- .../rptRechnungDruck_MDM.Designer.vb | 205 ++---- ...ngMDM_AnlagenDruck_Zinsennachberechnung.vb | 34 +- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/Reports/MDM/rpt_3470.Designer.vb | 658 ++++++++++++++++++ SDL/Reports/MDM/rpt_3470.resx | 129 ++++ SDL/Reports/MDM/rpt_3470.vb | 8 + SDL/SDL.vbproj | 9 + SDL/USTV/usrCntlUSTV.Designer.vb | 50 +- SDL/USTV/usrCntlUSTV.resx | 5 +- SDL/USTV/usrCntlUSTV.vb | 200 +++++- SDL/buchhaltung/frmBU_Mahnlauf.vb | 2 +- SDL/buchhaltung/usrCntlBH.vb | 43 +- SDL/cProgramFunctions.vb | 83 +++ SDL/kunden/frmKundenblatt.Designer.vb | 135 ++-- SDL/kunden/frmKundenblatt.vb | 136 +++- .../usrcntlKundeBearbeitenFull.Designer.vb | 578 ++++++++------- SDL/kunden/usrcntlKundeBearbeitenFull.vb | 87 ++- .../usrcntlPDFScanList.vb | 43 +- 19 files changed, 1921 insertions(+), 543 deletions(-) create mode 100644 SDL/Reports/MDM/rpt_3470.Designer.vb create mode 100644 SDL/Reports/MDM/rpt_3470.resx create mode 100644 SDL/Reports/MDM/rpt_3470.vb diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 6a55673d..906623b7 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -2136,7 +2136,7 @@ Public Class cFakturierung Case 26 : rpt.picVERAG.Image = My.Resources.VERAG_UNISPED_Logo : rpt.Picture1.Image = Nothing Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT Case 24 : rpt.picVERAG.Image = My.Resources.ambar_boarder : rpt.Picture1.Image = Nothing - rpt.txtAvisierer.Visible = False : rpt.lblAvisiererUeberschrift.Visible = False : rpt.txtWarenwert.Visible = False : rpt.lblWarenWertUeberschrift.Visible = False + rpt.txtWarenwert.Visible = False : rpt.lblWarenWertUeberschrift.Visible = False End Select @@ -2182,10 +2182,6 @@ Public Class cFakturierung Dim sachbearbeiterAufRechnung = getSBRgName(RECHNUNG.Firma_ID, RECHNUNG.Sachbearbeiter) rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'If(RECHNUNG.Sachbearbeiter, "") - rpt.txtAbsender.Text = If(RECHNUNG.AbsenderName_1, "") & " " & If(RECHNUNG.AbsenderName_2, "") & vbNewLine & If(RECHNUNG.AbsenderOrt, "").ToString.Trim - rpt.txtEmpfaenger.Text = If(RECHNUNG.EmpfängerName_1, "") & " " & If(RECHNUNG.EmpfängerName_2, "") & vbNewLine & If(RECHNUNG.EmpfängerOrt, "").ToString.Trim - rpt.txtAvisierer.Text = If(RECHNUNG.Avisierer, "") - If firma.Firma_ID = 4 Then rpt.lblWarenWertUeberschrift.Visible = False rpt.txtWarenwert.Visible = False @@ -2310,10 +2306,6 @@ Public Class cFakturierung rpt.lblHandlingATA.Visible = False End If - - If rpt.txtAbsender.Text.Trim = String.Empty Then rpt.lblAbsenderUeberschrift.Visible = False - If rpt.txtEmpfaenger.Text.Trim = String.Empty Then rpt.lblEmpfaengerUeberschrift.Visible = False - If rpt.txtAvisierer.Text.Trim = String.Empty Then rpt.lblAvisiererUeberschrift.Visible = False If rpt.lblLKWId.Text.Trim = String.Empty Then rpt.lblLKWIdUebeschrift.Visible = False If rpt.txtWarenwert.Text.Trim = String.Empty Then rpt.lblWarenWertUeberschrift.Visible = False If rpt.txtZollbelegNr.Text.Trim = String.Empty Then rpt.lblZollbelegNr.Visible = False @@ -2330,8 +2322,10 @@ Public Class cFakturierung rpt.lblAnzahlUeberschrift.Text = "Tage" rpt.lblSteuerpflichtigUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Center rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag" - rpt.lbl_onlyZR_VZUeberschrift.Text = "Zinsen % p.a." + rpt.lbl_onlyZR_VZUeberschrift.Text = "Zinsen p.a." + rpt.lbl_onlyZR_VZUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Left rpt.lblSteuerfreiUeberschrift.Text = "Verzugszinsen" + rpt.lblSteuerfreiUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Right rpt.lbl_onlyZR_ReDatUeberschrift.Visible = True @@ -2446,17 +2440,25 @@ Public Class cFakturierung If firma.Firma_ID = 19 Then If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then 'dann ist es eine Zinsnachberechnungs-Rechnung - Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG, rpt.txtLeistung.Text.Replace("*", "")) - rpt.SubReport.Report = subRpt - rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) - rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) + Dim steuerfrei As Double = 0 + Dim steuerpfl As Double = 0 - 'txtPackstuecke.Top += SubReport.Height - 'txtKdAuftragsnummer.Top += SubReport.Height - 'txtSendungsdetails.Top += SubReport.Height - Else - rpt.SubReport.Report = Nothing + If IsNumeric(checkNull(rpt.Fields.Item("SteuerfreierBetrag").Value)) Then steuerfrei = CDbl(rpt.Fields.Item("SteuerfreierBetrag").Value) + If IsNumeric(checkNull(rpt.Fields.Item("SteuerpflichtigerBetrag").Value)) Then steuerpfl = CDbl(rpt.Fields.Item("SteuerpflichtigerBetrag").Value) + + + Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG, rpt.txtLeistung.Text.Replace("*", ""), CInt(rpt.lblAnzahl.Text), steuerfrei + steuerpfl) + + rpt.SubReport.Report = subRpt + rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) + rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) + + 'txtPackstuecke.Top += SubReport.Height + 'txtKdAuftragsnummer.Top += SubReport.Height + 'txtSendungsdetails.Top += SubReport.Height + Else + rpt.SubReport.Report = Nothing End If Dim isReverseCharge As Boolean = SQL.getValueTxtBySql("SELECT ReverseCharge as Bit from Leistungen where LeistungsNr= " & rpt.lblLeistungNr.Text, "FMZOLL") @@ -4854,11 +4856,11 @@ Public Class cFakturierung 'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString 'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") - Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) + Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, Row("Sachbearbeiter")) rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU - rpt.lblSachbearbeiter.Text = getSBRgName(Firma.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben + 'rpt.lblSachbearbeiter.Text = getSBRgName(Firma.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben rpt.lblFirmenbuch.Text = If(Firma.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch: ", "").Trim rpt.lblUID.Text = If(Firma.Firma_UID, "").ToString.Replace("UID: ", "").Trim rpt.lblEORI.Text = If(Firma.Firma_EORI, "") @@ -5254,7 +5256,7 @@ Public Class cFakturierung 'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString 'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") - Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) + Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, Row("Sachbearbeiter").ToString.ToUpper) If sachbearbeiterAufRechnung = "" Then rpt.lblSachbearbeiter.Text = getSBRgName(Row("Firma_ID"), Row("Sachbearbeiter").ToString.ToUpper) @@ -5492,10 +5494,15 @@ Public Class cFakturierung - Shared Function getSBRgName(Firma_id As Integer, USRKURZNAME As String) As String + Shared Function getSBRgName(Firma_id As Integer, USRKURZNAME As String, Optional NameAufBeleg As String = "") As String If USRKURZNAME Is Nothing Then Return "" If USRKURZNAME Is DBNull.Value Then Return "" + + If NameAufBeleg <> "" Then + USRKURZNAME = NameAufBeleg + End If + If USRKURZNAME = "" Then USRKURZNAME = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME Dim txt = SQL.getValueTxtBySql("SELECT top 1 CASE WHEN mit_geschlecht='w' THEN 'Frau ' ELSE (CASE WHEN mit_geschlecht='m' THEN 'Herr ' ELSE '' END ) END + mit_nname FROM [tblMitarbeiter] WHERE [mit_username]='" & USRKURZNAME & "' ", "ADMIN") If txt <> "" Then Return txt @@ -5672,7 +5679,7 @@ Public Class cFakturierung 'rpt.lblAbfertigungsNr.Text = ROW("FilialenNr") & " / " & ROW("AbfertigungsNr") & " " & ROW("SpeditionsbuchUnterNr").ToString("00") 'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString 'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") - Dim sachbearbeiterAufRechnung = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) + Dim sachbearbeiterAufRechnung = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, ROW("Sachbearbeiter")) rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU 'rpt.lblSachbearbeiter.Text = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - ALT diff --git a/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb b/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb index 5c5ed787..1e04c89d 100644 --- a/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb +++ b/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb @@ -112,12 +112,6 @@ Partial Public Class rptRechnungDruck_MDM Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblAnzahlUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line() - Me.lblAbsenderUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.lblAvisiererUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.lblEmpfaengerUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox() - Me.txtEmpfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox() - Me.txtAvisierer = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.lblZollbelegNr = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.txtZollbelegNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.lblWarenWertUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() @@ -206,12 +200,6 @@ Partial Public Class rptRechnungDruck_MDM CType(Me.lbl_onlyZR_ReDatUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblZollbelegNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblWarenWertUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() @@ -1224,8 +1212,8 @@ Partial Public Class rptRechnungDruck_MDM ' 'GroupHeader4 ' - Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungUeberschrift, Me.lblSteuerfreiUeberschrift, Me.lbl_onlyZR_VZUeberschrift, Me.lbl_onlyZR_ZahlungsDatUeberschrift, Me.lbl_onlyZR_FaelligUeberschrift, Me.lbl_onlyZR_ReDatUeberschrift, Me.lblSteuerpflichtigUeberschrift, Me.lblAnzahlUeberschrift, Me.Line4, Me.lblAbsenderUeberschrift, Me.lblAvisiererUeberschrift, Me.lblEmpfaengerUeberschrift, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAvisierer, Me.lblZollbelegNr, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.txtBeförderungsmittelUeberschrift, Me.txtBeförderungsmittel, Me.lblSendungsdatenUeberschrift, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16}) - Me.GroupHeader4.Height = 1.627275! + Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungUeberschrift, Me.lblSteuerfreiUeberschrift, Me.lbl_onlyZR_VZUeberschrift, Me.lbl_onlyZR_ZahlungsDatUeberschrift, Me.lbl_onlyZR_FaelligUeberschrift, Me.lbl_onlyZR_ReDatUeberschrift, Me.lblSteuerpflichtigUeberschrift, Me.lblAnzahlUeberschrift, Me.Line4, Me.lblZollbelegNr, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.txtBeförderungsmittelUeberschrift, Me.txtBeförderungsmittel, Me.lblSendungsdatenUeberschrift, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16}) + Me.GroupHeader4.Height = 1.033525! Me.GroupHeader4.KeepTogether = True Me.GroupHeader4.Name = "GroupHeader4" ' @@ -1233,49 +1221,49 @@ Partial Public Class rptRechnungDruck_MDM ' Me.lblLeistungUeberschrift.Height = 0.1511808! Me.lblLeistungUeberschrift.HyperLink = Nothing - Me.lblLeistungUeberschrift.Left = 0.01455834! + Me.lblLeistungUeberschrift.Left = 0.01417252! Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift" Me.lblLeistungUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.lblLeistungUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & "-set: 1" Me.lblLeistungUeberschrift.Text = "Leistung" - Me.lblLeistungUeberschrift.Top = 1.415504! + Me.lblLeistungUeberschrift.Top = 0.8114173! Me.lblLeistungUeberschrift.Width = 0.9220559! ' 'lblSteuerfreiUeberschrift ' Me.lblSteuerfreiUeberschrift.Height = 0.1511807! Me.lblSteuerfreiUeberschrift.HyperLink = Nothing - Me.lblSteuerfreiUeberschrift.Left = 5.512198! + Me.lblSteuerfreiUeberschrift.Left = 5.511812! Me.lblSteuerfreiUeberschrift.Name = "lblSteuerfreiUeberschrift" Me.lblSteuerfreiUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" Me.lblSteuerfreiUeberschrift.Text = "Steuerfrei" - Me.lblSteuerfreiUeberschrift.Top = 1.415504! + Me.lblSteuerfreiUeberschrift.Top = 0.8114173! Me.lblSteuerfreiUeberschrift.Width = 1.554331! ' 'lbl_onlyZR_VZUeberschrift ' Me.lbl_onlyZR_VZUeberschrift.Height = 0.1511808! Me.lbl_onlyZR_VZUeberschrift.HyperLink = Nothing - Me.lbl_onlyZR_VZUeberschrift.Left = 5.522048! + Me.lbl_onlyZR_VZUeberschrift.Left = 5.521662! Me.lbl_onlyZR_VZUeberschrift.Name = "lbl_onlyZR_VZUeberschrift" Me.lbl_onlyZR_VZUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & "r-set: 1" Me.lbl_onlyZR_VZUeberschrift.Text = "Verzugszinsen" - Me.lbl_onlyZR_VZUeberschrift.Top = 1.415354! + Me.lbl_onlyZR_VZUeberschrift.Top = 0.8112674! Me.lbl_onlyZR_VZUeberschrift.Width = 0.8169294! ' 'lbl_onlyZR_ZahlungsDatUeberschrift ' Me.lbl_onlyZR_ZahlungsDatUeberschrift.Height = 0.1511808! Me.lbl_onlyZR_ZahlungsDatUeberschrift.HyperLink = Nothing - Me.lbl_onlyZR_ZahlungsDatUeberschrift.Left = 2.492913! + Me.lbl_onlyZR_ZahlungsDatUeberschrift.Left = 2.492527! Me.lbl_onlyZR_ZahlungsDatUeberschrift.Name = "lbl_onlyZR_ZahlungsDatUeberschrift" Me.lbl_onlyZR_ZahlungsDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.lbl_onlyZR_ZahlungsDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & "-set: 1" Me.lbl_onlyZR_ZahlungsDatUeberschrift.Text = "Zahlungsdatum" - Me.lbl_onlyZR_ZahlungsDatUeberschrift.Top = 1.415354! + Me.lbl_onlyZR_ZahlungsDatUeberschrift.Top = 0.8112674! Me.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = False Me.lbl_onlyZR_ZahlungsDatUeberschrift.Width = 0.9661421! ' @@ -1283,13 +1271,13 @@ Partial Public Class rptRechnungDruck_MDM ' Me.lbl_onlyZR_FaelligUeberschrift.Height = 0.1511808! Me.lbl_onlyZR_FaelligUeberschrift.HyperLink = Nothing - Me.lbl_onlyZR_FaelligUeberschrift.Left = 2.001969! + Me.lbl_onlyZR_FaelligUeberschrift.Left = 2.001583! Me.lbl_onlyZR_FaelligUeberschrift.Name = "lbl_onlyZR_FaelligUeberschrift" Me.lbl_onlyZR_FaelligUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.lbl_onlyZR_FaelligUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & "-set: 1" Me.lbl_onlyZR_FaelligUeberschrift.Text = "Fällig" - Me.lbl_onlyZR_FaelligUeberschrift.Top = 1.415354! + Me.lbl_onlyZR_FaelligUeberschrift.Top = 0.8112674! Me.lbl_onlyZR_FaelligUeberschrift.Visible = False Me.lbl_onlyZR_FaelligUeberschrift.Width = 0.490945! ' @@ -1297,13 +1285,13 @@ Partial Public Class rptRechnungDruck_MDM ' Me.lbl_onlyZR_ReDatUeberschrift.Height = 0.1511807! Me.lbl_onlyZR_ReDatUeberschrift.HyperLink = Nothing - Me.lbl_onlyZR_ReDatUeberschrift.Left = 0.9366142! + Me.lbl_onlyZR_ReDatUeberschrift.Left = 0.9362284! Me.lbl_onlyZR_ReDatUeberschrift.Name = "lbl_onlyZR_ReDatUeberschrift" Me.lbl_onlyZR_ReDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.lbl_onlyZR_ReDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & "-set: 1" Me.lbl_onlyZR_ReDatUeberschrift.Text = "Rechnungsdatum" - Me.lbl_onlyZR_ReDatUeberschrift.Top = 1.416142! + Me.lbl_onlyZR_ReDatUeberschrift.Top = 0.8120553! Me.lbl_onlyZR_ReDatUeberschrift.Visible = False Me.lbl_onlyZR_ReDatUeberschrift.Width = 1.065354! ' @@ -1311,221 +1299,152 @@ Partial Public Class rptRechnungDruck_MDM ' Me.lblSteuerpflichtigUeberschrift.Height = 0.1511808! Me.lblSteuerpflichtigUeberschrift.HyperLink = Nothing - Me.lblSteuerpflichtigUeberschrift.Left = 3.957867! + Me.lblSteuerpflichtigUeberschrift.Left = 3.957481! Me.lblSteuerpflichtigUeberschrift.Name = "lblSteuerpflichtigUeberschrift" Me.lblSteuerpflichtigUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & "r-set: 1" Me.lblSteuerpflichtigUeberschrift.Text = "Steuerpflichtig" - Me.lblSteuerpflichtigUeberschrift.Top = 1.415504! + Me.lblSteuerpflichtigUeberschrift.Top = 0.8114173! Me.lblSteuerpflichtigUeberschrift.Width = 1.554331! ' 'lblAnzahlUeberschrift ' Me.lblAnzahlUeberschrift.Height = 0.1511807! Me.lblAnzahlUeberschrift.HyperLink = Nothing - Me.lblAnzahlUeberschrift.Left = 3.459055! + Me.lblAnzahlUeberschrift.Left = 3.458669! Me.lblAnzahlUeberschrift.Name = "lblAnzahlUeberschrift" Me.lblAnzahlUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & "r-set: 1" Me.lblAnzahlUeberschrift.Text = "Anzahl" - Me.lblAnzahlUeberschrift.Top = 1.415504! + Me.lblAnzahlUeberschrift.Top = 0.8114173! Me.lblAnzahlUeberschrift.Width = 0.4988112! ' 'Line4 ' Me.Line4.Height = 0! - Me.Line4.Left = 0.005503932! + Me.Line4.Left = 0.005118111! Me.Line4.LineWeight = 1.0! Me.Line4.Name = "Line4" - Me.Line4.Top = 1.566685! + Me.Line4.Top = 0.9625983! Me.Line4.Width = 7.475194! - Me.Line4.X1 = 0.005503932! - Me.Line4.X2 = 7.480698! - Me.Line4.Y1 = 1.566685! - Me.Line4.Y2 = 1.566685! - ' - 'lblAbsenderUeberschrift - ' - Me.lblAbsenderUeberschrift.Height = 0.1574803! - Me.lblAbsenderUeberschrift.HyperLink = Nothing - Me.lblAbsenderUeberschrift.Left = 0! - Me.lblAbsenderUeberschrift.Name = "lblAbsenderUeberschrift" - Me.lblAbsenderUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & - "har-set: 1" - Me.lblAbsenderUeberschrift.Text = "Absender:" - Me.lblAbsenderUeberschrift.Top = 0.1732284! - Me.lblAbsenderUeberschrift.Width = 0.9366142! - ' - 'lblAvisiererUeberschrift - ' - Me.lblAvisiererUeberschrift.Height = 0.1574803! - Me.lblAvisiererUeberschrift.HyperLink = Nothing - Me.lblAvisiererUeberschrift.Left = 0! - Me.lblAvisiererUeberschrift.Name = "lblAvisiererUeberschrift" - Me.lblAvisiererUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & - "har-set: 1" - Me.lblAvisiererUeberschrift.Text = "Avisierer:" - Me.lblAvisiererUeberschrift.Top = 0.46! - Me.lblAvisiererUeberschrift.Width = 0.9366142! - ' - 'lblEmpfaengerUeberschrift - ' - Me.lblEmpfaengerUeberschrift.Height = 0.1574803! - Me.lblEmpfaengerUeberschrift.HyperLink = Nothing - Me.lblEmpfaengerUeberschrift.Left = 3.596! - Me.lblEmpfaengerUeberschrift.Name = "lblEmpfaengerUeberschrift" - Me.lblEmpfaengerUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & - "har-set: 1" - Me.lblEmpfaengerUeberschrift.Text = "Empfänger:" - Me.lblEmpfaengerUeberschrift.Top = 0.173! - Me.lblEmpfaengerUeberschrift.Width = 0.9366142! - ' - 'txtAbsender - ' - Me.txtAbsender.Height = 0.2720473! - Me.txtAbsender.Left = 0.9366142! - Me.txtAbsender.Name = "txtAbsender" - Me.txtAbsender.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & - "-set: 1" - Me.txtAbsender.Text = "VERAG Spedition AG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" - Me.txtAbsender.Top = 0.1732285! - Me.txtAbsender.Width = 2.659449! - ' - 'txtEmpfaenger - ' - Me.txtEmpfaenger.Height = 0.2720473! - Me.txtEmpfaenger.Left = 4.615614! - Me.txtEmpfaenger.Name = "txtEmpfaenger" - Me.txtEmpfaenger.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & - "-set: 1" - Me.txtEmpfaenger.Text = "VERAG Spedition AG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" - Me.txtEmpfaenger.Top = 0.173! - Me.txtEmpfaenger.Width = 2.659449! - ' - 'txtAvisierer - ' - Me.txtAvisierer.Height = 0.1570001! - Me.txtAvisierer.Left = 0.937! - Me.txtAvisierer.Name = "txtAvisierer" - Me.txtAvisierer.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & - "-set: 1" - Me.txtAvisierer.Text = "VERAG Spedition " - Me.txtAvisierer.Top = 0.46! - Me.txtAvisierer.Width = 2.659! + Me.Line4.X1 = 0.005118111! + Me.Line4.X2 = 7.480312! + Me.Line4.Y1 = 0.9625983! + Me.Line4.Y2 = 0.9625983! ' 'lblZollbelegNr ' Me.lblZollbelegNr.Height = 0.1574803! Me.lblZollbelegNr.HyperLink = Nothing - Me.lblZollbelegNr.Left = 0.0003858209! + Me.lblZollbelegNr.Left = 2.910383E-11! Me.lblZollbelegNr.Name = "lblZollbelegNr" Me.lblZollbelegNr.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & "har-set: 1" Me.lblZollbelegNr.Text = "Zollbeleg-Nr.:" - Me.lblZollbelegNr.Top = 0.647! + Me.lblZollbelegNr.Top = 0.04291338! Me.lblZollbelegNr.Width = 0.9366142! ' 'txtZollbelegNr ' Me.txtZollbelegNr.Height = 0.1574803! - Me.txtZollbelegNr.Left = 0.937! + Me.txtZollbelegNr.Left = 0.9366142! Me.txtZollbelegNr.Name = "txtZollbelegNr" Me.txtZollbelegNr.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & "-set: 1" Me.txtZollbelegNr.Text = "ATC1812345678" - Me.txtZollbelegNr.Top = 0.647! + Me.txtZollbelegNr.Top = 0.04291338! Me.txtZollbelegNr.Width = 2.659449! ' 'lblWarenWertUeberschrift ' Me.lblWarenWertUeberschrift.Height = 0.1574803! Me.lblWarenWertUeberschrift.HyperLink = Nothing - Me.lblWarenWertUeberschrift.Left = 0.0003858209! + Me.lblWarenWertUeberschrift.Left = 2.910383E-11! Me.lblWarenWertUeberschrift.Name = "lblWarenWertUeberschrift" Me.lblWarenWertUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & "har-set: 1" Me.lblWarenWertUeberschrift.Text = "Warenwert:" - Me.lblWarenWertUeberschrift.Top = 0.8044803! + Me.lblWarenWertUeberschrift.Top = 0.2003937! Me.lblWarenWertUeberschrift.Width = 0.9366142! ' 'txtWarenwert ' Me.txtWarenwert.Height = 0.1574803! - Me.txtWarenwert.Left = 0.937001! + Me.txtWarenwert.Left = 0.9366152! Me.txtWarenwert.Name = "txtWarenwert" Me.txtWarenwert.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & "-set: 1" Me.txtWarenwert.Text = "1.234,56 €" - Me.txtWarenwert.Top = 0.8044803! + Me.txtWarenwert.Top = 0.2003937! Me.txtWarenwert.Width = 2.659449! ' 'txtGrenzeUeberschrift ' Me.txtGrenzeUeberschrift.Height = 0.1574803! Me.txtGrenzeUeberschrift.HyperLink = Nothing - Me.txtGrenzeUeberschrift.Left = 3.596449! + Me.txtGrenzeUeberschrift.Left = 3.596063! Me.txtGrenzeUeberschrift.Name = "txtGrenzeUeberschrift" Me.txtGrenzeUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & "har-set: 1" Me.txtGrenzeUeberschrift.Text = "Ort der Leistung:" - Me.txtGrenzeUeberschrift.Top = 0.647! + Me.txtGrenzeUeberschrift.Top = 0.04291338! Me.txtGrenzeUeberschrift.Width = 1.020079! ' 'txtGrenze ' Me.txtGrenze.Height = 0.1574803! - Me.txtGrenze.Left = 4.616528! + Me.txtGrenze.Left = 4.616142! Me.txtGrenze.Name = "txtGrenze" Me.txtGrenze.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & "-set: 1" Me.txtGrenze.Text = "Suben Autobahngrenze" - Me.txtGrenze.Top = 0.647! + Me.txtGrenze.Top = 0.04291338! Me.txtGrenze.Width = 2.853938! ' 'txtBeförderungsmittelUeberschrift ' Me.txtBeförderungsmittelUeberschrift.Height = 0.1574803! Me.txtBeförderungsmittelUeberschrift.HyperLink = Nothing - Me.txtBeförderungsmittelUeberschrift.Left = 3.596449! + Me.txtBeförderungsmittelUeberschrift.Left = 3.596063! Me.txtBeförderungsmittelUeberschrift.Name = "txtBeförderungsmittelUeberschrift" Me.txtBeförderungsmittelUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & "har-set: 1" Me.txtBeförderungsmittelUeberschrift.Text = "Beförderungsmittel:" - Me.txtBeförderungsmittelUeberschrift.Top = 0.8044803! + Me.txtBeförderungsmittelUeberschrift.Top = 0.2003937! Me.txtBeförderungsmittelUeberschrift.Width = 1.020079! ' 'txtBeförderungsmittel ' Me.txtBeförderungsmittel.Height = 0.1574803! - Me.txtBeförderungsmittel.Left = 4.616528! + Me.txtBeförderungsmittel.Left = 4.616142! Me.txtBeförderungsmittel.Name = "txtBeförderungsmittel" Me.txtBeförderungsmittel.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & "-set: 1" Me.txtBeförderungsmittel.Text = "SD 456 FD" - Me.txtBeförderungsmittel.Top = 0.8044803! + Me.txtBeförderungsmittel.Top = 0.2003937! Me.txtBeförderungsmittel.Width = 2.853938! ' 'lblSendungsdatenUeberschrift ' Me.lblSendungsdatenUeberschrift.Height = 0.1574803! Me.lblSendungsdatenUeberschrift.HyperLink = Nothing - Me.lblSendungsdatenUeberschrift.Left = 0.0003858209! + Me.lblSendungsdatenUeberschrift.Left = 2.910383E-11! Me.lblSendungsdatenUeberschrift.Name = "lblSendungsdatenUeberschrift" Me.lblSendungsdatenUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & "har-set: 1" Me.lblSendungsdatenUeberschrift.Text = "Sendungs-Daten:" - Me.lblSendungsdatenUeberschrift.Top = 1.026921! + Me.lblSendungsdatenUeberschrift.Top = 0.4228344! Me.lblSendungsdatenUeberschrift.Width = 0.9366142! ' 'txtSendungsdaten ' Me.txtSendungsdaten.Height = 0.1574803! - Me.txtSendungsdaten.Left = 0.937001! + Me.txtSendungsdaten.Left = 0.9366152! Me.txtSendungsdaten.Name = "txtSendungsdaten" Me.txtSendungsdaten.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & "-set: 1" Me.txtSendungsdaten.Text = "1 Pk. Testartikel; 1.234 kg" - Me.txtSendungsdaten.Top = 1.026921! + Me.txtSendungsdaten.Top = 0.4228344! Me.txtSendungsdaten.Width = 6.543701! ' 'Line12 @@ -1544,28 +1463,28 @@ Partial Public Class rptRechnungDruck_MDM 'Line13 ' Me.Line13.Height = 0.204331! - Me.Line13.Left = 7.478! + Me.Line13.Left = 7.477614! Me.Line13.LineWeight = 1.0! Me.Line13.Name = "Line13" - Me.Line13.Top = 1.416! + Me.Line13.Top = 0.8119134! Me.Line13.Width = 0! - Me.Line13.X1 = 7.478! - Me.Line13.X2 = 7.478! - Me.Line13.Y1 = 1.416! - Me.Line13.Y2 = 1.620331! + Me.Line13.X1 = 7.477614! + Me.Line13.X2 = 7.477614! + Me.Line13.Y1 = 0.8119134! + Me.Line13.Y2 = 1.016244! ' 'Line16 ' Me.Line16.Height = 0! - Me.Line16.Left = 0.003141727! + Me.Line16.Left = 0.002755906! Me.Line16.LineWeight = 1.0! Me.Line16.Name = "Line16" - Me.Line16.Top = 1.415504! + Me.Line16.Top = 0.8114173! Me.Line16.Width = 7.475195! - Me.Line16.X1 = 0.003141727! - Me.Line16.X2 = 7.478337! - Me.Line16.Y1 = 1.415504! - Me.Line16.Y2 = 1.415504! + Me.Line16.X1 = 0.002755906! + Me.Line16.X2 = 7.477951! + Me.Line16.Y1 = 0.8114173! + Me.Line16.Y2 = 0.8114173! ' 'GroupFooter4 ' @@ -1669,12 +1588,6 @@ Partial Public Class rptRechnungDruck_MDM CType(Me.lbl_onlyZR_ReDatUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblZollbelegNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblWarenWertUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() @@ -1725,9 +1638,6 @@ Partial Public Class rptRechnungDruck_MDM Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblFirmenbuch As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblUID As GrapeCity.ActiveReports.SectionReportModel.Label - Public WithEvents txtAbsender As GrapeCity.ActiveReports.SectionReportModel.TextBox - Public WithEvents txtEmpfaenger As GrapeCity.ActiveReports.SectionReportModel.TextBox - Public WithEvents txtAvisierer As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtZollbelegNr As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtWarenwert As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtGrenze As GrapeCity.ActiveReports.SectionReportModel.TextBox @@ -1760,9 +1670,6 @@ Partial Public Class rptRechnungDruck_MDM Public WithEvents lblFirmaWeb As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblRechnung_UID_Ueberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblRechnung_Steuernummer_Ueberschrift As GrapeCity.ActiveReports.SectionReportModel.Label - Public WithEvents lblAbsenderUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label - Public WithEvents lblAvisiererUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label - Public WithEvents lblEmpfaengerUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents txtGrenzeUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents Line6 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line12 As GrapeCity.ActiveReports.SectionReportModel.Line diff --git a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb index db5a55a7..0f514eae 100644 --- a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb +++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb @@ -2,13 +2,18 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Dim _LAN = "" Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing Dim LeistungsText As String + Dim Anzahl As Integer + Dim Betrag As Double Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, LeistungsText As String) + Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, LeistungsText As String, Anzahl As Integer, Betrag As Double) + ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() Me._LAN = _LAN Me.RECHNUNG = RECHNUNG Me.LeistungsText = LeistungsText + Me.Anzahl = Anzahl + Me.Betrag = Betrag ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart @@ -33,12 +38,12 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung If Me.Fields.Item("clmnReNr") IsNot Nothing AndAlso Me.Fields.Item("clmnReNr").Value IsNot Nothing Then txtREnr.Text &= Me.Fields.Item("clmnReNr").Value.ToString If Me.Fields.Item("clmnReDatum") IsNot Nothing AndAlso Me.Fields.Item("clmnReDatum").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnReDatum").Value) Then txtReDat.Text &= CDate(Me.Fields.Item("clmnReDatum").Value).ToShortDateString - If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= CDbl(Me.Fields.Item("clmnReBetrag").Value).ToString("N2") + If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnReBetrag").Value) AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= CDbl(Me.Fields.Item("clmnReBetrag").Value).ToString("N2") If Me.Fields.Item("clmnFaellig") IsNot Nothing AndAlso Me.Fields.Item("clmnFaellig").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnFaellig").Value) Then txtFaellig.Text &= CDate(Me.Fields.Item("clmnFaellig").Value).ToShortDateString If Me.Fields.Item("clmnZE") IsNot Nothing AndAlso Me.Fields.Item("clmnZE").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnZE").Value) Then txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString - If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= CDbl(Me.Fields.Item("clmnZinsen").Value).ToString("N2") - If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString() & " %" + If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnZinsen").Value) AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= CDbl(Me.Fields.Item("clmnZinsen").Value).ToString("N2") + If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnVZ").Value) Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString() & " %" End If End Sub @@ -61,15 +66,26 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung RECHNUNG.ORDER_POSITIONEN() If RECHNUNG.POSITIONEN.Any() Then - Dim dtTemp As DataTable - dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & RECHNUNG.RK_ID & " and FORMAT(id, '00000') +'-'+ buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL") - For Each rg As DataRow In dtTemp.Rows - dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig")) - Next + If Anzahl > 0 AndAlso LeistungsText.Contains("Zinsnachbelastung") AndAlso LeistungsText.Contains("Rabatt") AndAlso Betrag <> 0 Then + + dt.Rows.Add("0", "Rabatt", RECHNUNG.Abfertigungsdatum.ToShortDateString, LeistungsText, "", "", "", Betrag.ToString, "", "") + 'dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig")) + + Else + + Dim dtTemp As DataTable + dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & RECHNUNG.RK_ID & " and FORMAT(id, '00000') +'-'+ buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL") + + For Each rg As DataRow In dtTemp.Rows + dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig")) + Next + + End If End If + Me.DataSource = dt End Sub diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 4b62644b..884e7716 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/Reports/MDM/rpt_3470.Designer.vb b/SDL/Reports/MDM/rpt_3470.Designer.vb new file mode 100644 index 00000000..b4303603 --- /dev/null +++ b/SDL/Reports/MDM/rpt_3470.Designer.vb @@ -0,0 +1,658 @@ + +Partial Public Class rpt_3470 + 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(rpt_3470)) + Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() + Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.lblTimeperiod = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblKDNumber = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblKDName = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblCountry = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblAmount = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblWaehrung = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() + Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() + Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader() + Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture() + Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() + Me.lblWaehrung_Ges = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblSumGesamt = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.lblKdName_Head = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblKdNr_Head = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblTimePeriod_Head = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblCountry_Head = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblAmount_Head = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line14 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line15 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line17 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line19 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line20 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblWahrung = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblGroup1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.GroupHeader2 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.GroupFooter2 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + CType(Me.lblTimeperiod, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblKDNumber, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblKDName, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblCountry, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAmount, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblWaehrung, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblWaehrung_Ges, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSumGesamt, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblKdName_Head, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblKdNr_Head, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblTimePeriod_Head, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblCountry_Head, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAmount_Head, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblWahrung, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblGroup1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'PageHeader + ' + Me.PageHeader.Height = 0.06249999! + Me.PageHeader.Name = "PageHeader" + ' + 'Detail + ' + Me.Detail.BackColor = System.Drawing.Color.White + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblTimeperiod, Me.lblKDNumber, Me.lblKDName, Me.lblCountry, Me.lblAmount, Me.lblWaehrung}) + Me.Detail.Height = 0.200361! + Me.Detail.KeepTogether = True + Me.Detail.Name = "Detail" + ' + 'lblTimeperiod + ' + Me.lblTimeperiod.Height = 0.1795276! + Me.lblTimeperiod.HyperLink = Nothing + Me.lblTimeperiod.Left = 2.73937! + Me.lblTimeperiod.MultiLine = False + Me.lblTimeperiod.Name = "lblTimeperiod" + Me.lblTimeperiod.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: center; ddo-char-s" & + "et: 1" + Me.lblTimeperiod.Text = "-" + Me.lblTimeperiod.Top = 0! + Me.lblTimeperiod.Width = 2.802755! + ' + 'lblKDNumber + ' + Me.lblKDNumber.DataField = "" + Me.lblKDNumber.Height = 0.1795276! + Me.lblKDNumber.HyperLink = Nothing + Me.lblKDNumber.Left = 0.005118111! + Me.lblKDNumber.Name = "lblKDNumber" + Me.lblKDNumber.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: center; vertical-a" & + "lign: middle; ddo-char-set: 1" + Me.lblKDNumber.Text = "-" + Me.lblKDNumber.Top = 0! + Me.lblKDNumber.Width = 0.81063! + ' + 'lblKDName + ' + Me.lblKDName.DataField = "" + Me.lblKDName.Height = 0.1795276! + Me.lblKDName.HyperLink = Nothing + Me.lblKDName.Left = 0.8157481! + Me.lblKDName.MultiLine = False + Me.lblKDName.Name = "lblKDName" + Me.lblKDName.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set" & + ": 1" + Me.lblKDName.Text = "-" + Me.lblKDName.Top = 0! + Me.lblKDName.Width = 1.923622! + ' + 'lblCountry + ' + Me.lblCountry.DataField = "" + Me.lblCountry.DistinctField = "" + Me.lblCountry.Height = 0.1795276! + Me.lblCountry.Left = 5.542126! + Me.lblCountry.MultiLine = False + Me.lblCountry.Name = "lblCountry" + Me.lblCountry.Style = "color: Black; font-size: 8pt; text-align: center; ddo-char-set: 1" + Me.lblCountry.SummaryGroup = "" + Me.lblCountry.Text = Nothing + Me.lblCountry.Top = 0! + Me.lblCountry.Width = 1.505513! + ' + 'lblAmount + ' + Me.lblAmount.DataField = "" + Me.lblAmount.DistinctField = "" + Me.lblAmount.Height = 0.1795276! + Me.lblAmount.Left = 7.481497! + Me.lblAmount.Name = "lblAmount" + Me.lblAmount.Style = "color: Black; font-size: 8pt; text-align: right; vertical-align: middle; ddo-char" & + "-set: 1" + Me.lblAmount.SummaryGroup = "" + Me.lblAmount.Text = Nothing + Me.lblAmount.Top = 0! + Me.lblAmount.Width = 0.7736225! + ' + 'lblWaehrung + ' + Me.lblWaehrung.DistinctField = "" + Me.lblWaehrung.Height = 0.1795276! + Me.lblWaehrung.Left = 7.099607! + Me.lblWaehrung.Name = "lblWaehrung" + Me.lblWaehrung.Style = "color: Black; font-size: 8pt; text-align: left; vertical-align: middle; ddo-char-" & + "set: 1" + Me.lblWaehrung.SummaryGroup = "" + Me.lblWaehrung.Text = Nothing + Me.lblWaehrung.Top = 0! + Me.lblWaehrung.Width = 0.3401577! + ' + 'PageFooter + ' + Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line2, Me.ReportInfo2, Me.lblDat}) + Me.PageFooter.Name = "PageFooter" + ' + 'Label28 + ' + Me.Label28.Height = 0.1330709! + Me.Label28.HyperLink = Nothing + Me.Label28.Left = 2.014173! + Me.Label28.Name = "Label28" + Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1" + Me.Label28.Text = "VERAG 360 GmbH" + Me.Label28.Top = 0.08622048! + Me.Label28.Width = 2.794095! + ' + 'Line2 + ' + Me.Line2.Height = 0! + Me.Line2.Left = 0! + Me.Line2.LineWeight = 1.0! + Me.Line2.Name = "Line2" + Me.Line2.Top = 0.03070866! + Me.Line2.Width = 8.267716! + Me.Line2.X1 = 0! + Me.Line2.X2 = 8.267716! + Me.Line2.Y1 = 0.03070866! + Me.Line2.Y2 = 0.03070866! + ' + 'ReportInfo2 + ' + Me.ReportInfo2.FormatString = "Page {PageNumber} from {PageCount} Pages" + Me.ReportInfo2.Height = 0.1330709! + Me.ReportInfo2.Left = 5.829922! + Me.ReportInfo2.Name = "ReportInfo2" + Me.ReportInfo2.Style = "font-size: 8pt; text-align: right" + Me.ReportInfo2.Top = 0.08622048! + Me.ReportInfo2.Width = 2.437842! + ' + 'lblDat + ' + Me.lblDat.Height = 0.1330708! + Me.lblDat.HyperLink = Nothing + Me.lblDat.Left = 0.01023622! + Me.lblDat.Name = "lblDat" + Me.lblDat.Style = "font-size: 8pt; text-align: left" + Me.lblDat.Text = "Mittwoch, 02.11.2016" + Me.lblDat.Top = 0.08622044! + Me.lblDat.Width = 2.649606! + ' + 'ReportHeader1 + ' + Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.Label3}) + Me.ReportHeader1.Height = 0.719817! + Me.ReportHeader1.Name = "ReportHeader1" + ' + 'picVERAG + ' + Me.picVERAG.Height = 0.3751969! + Me.picVERAG.HyperLink = Nothing + Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String") + Me.picVERAG.Left = 0! + Me.picVERAG.Name = "picVERAG" + Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom + Me.picVERAG.Top = 0! + Me.picVERAG.Width = 2.240158! + ' + 'Label3 + ' + Me.Label3.Height = 0.2311024! + Me.Label3.HyperLink = Nothing + Me.Label3.Left = 0.01023622! + Me.Label3.Name = "Label3" + Me.Label3.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 0" + Me.Label3.Text = "Account No. 3470" + Me.Label3.Top = 0.4275591! + Me.Label3.Width = 3.559843! + ' + 'ReportFooter1 + ' + Me.ReportFooter1.CanShrink = True + Me.ReportFooter1.Height = 0! + Me.ReportFooter1.KeepTogether = True + Me.ReportFooter1.Name = "ReportFooter1" + ' + 'lblWaehrung_Ges + ' + Me.lblWaehrung_Ges.DistinctField = "" + Me.lblWaehrung_Ges.Height = 0.1795276! + Me.lblWaehrung_Ges.Left = 6.155118! + Me.lblWaehrung_Ges.Name = "lblWaehrung_Ges" + Me.lblWaehrung_Ges.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" & + " 1" + Me.lblWaehrung_Ges.SummaryGroup = "" + Me.lblWaehrung_Ges.Text = Nothing + Me.lblWaehrung_Ges.Top = 9.313226E-9! + Me.lblWaehrung_Ges.Width = 1.05! + ' + 'lblSumGesamt + ' + Me.lblSumGesamt.DistinctField = "" + Me.lblSumGesamt.Height = 0.1795276! + Me.lblSumGesamt.Left = 7.205119! + Me.lblSumGesamt.Name = "lblSumGesamt" + Me.lblSumGesamt.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" & + " 1" + Me.lblSumGesamt.SummaryGroup = "" + Me.lblSumGesamt.Text = "10.000.000" + Me.lblSumGesamt.Top = 0.08070867! + Me.lblSumGesamt.Width = 1.05! + ' + 'Line3 + ' + Me.Line3.Height = 0.00000002235174! + Me.Line3.Left = 5.529528! + Me.Line3.LineWeight = 1.0! + Me.Line3.Name = "Line3" + Me.Line3.Top = 0.08070867! + Me.Line3.Width = 2.725592! + Me.Line3.X1 = 5.529528! + Me.Line3.X2 = 8.255119! + Me.Line3.Y1 = 0.08070869! + Me.Line3.Y2 = 0.08070867! + ' + 'GroupHeader1 + ' + Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKdName_Head, Me.lblKdNr_Head, Me.lblTimePeriod_Head, Me.lblCountry_Head, Me.lblAmount_Head, Me.Line12, Me.Line14, Me.Line15, Me.Line16, Me.Line17, Me.Line18, Me.Line19, Me.Line20}) + Me.GroupHeader1.Height = 0.227592! + Me.GroupHeader1.KeepTogether = True + Me.GroupHeader1.Name = "GroupHeader1" + ' + 'lblKdName_Head + ' + Me.lblKdName_Head.Height = 0.1795276! + Me.lblKdName_Head.HyperLink = Nothing + Me.lblKdName_Head.Left = 0.7866142! + Me.lblKdName_Head.Name = "lblKdName_Head" + Me.lblKdName_Head.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1" + Me.lblKdName_Head.Text = "Name" + Me.lblKdName_Head.Top = 0! + Me.lblKdName_Head.Width = 1.951969! + ' + 'lblKdNr_Head + ' + Me.lblKdNr_Head.Height = 0.1795276! + Me.lblKdNr_Head.HyperLink = Nothing + Me.lblKdNr_Head.Left = 0.01023622! + Me.lblKdNr_Head.Name = "lblKdNr_Head" + Me.lblKdNr_Head.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1" + Me.lblKdNr_Head.Text = "Number" + Me.lblKdNr_Head.Top = 0! + Me.lblKdNr_Head.Width = 0.7429135! + ' + 'lblTimePeriod_Head + ' + Me.lblTimePeriod_Head.DataField = "" + Me.lblTimePeriod_Head.DistinctField = "" + Me.lblTimePeriod_Head.Height = 0.1795276! + Me.lblTimePeriod_Head.Left = 2.73937! + Me.lblTimePeriod_Head.Name = "lblTimePeriod_Head" + Me.lblTimePeriod_Head.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" & + ": 1" + Me.lblTimePeriod_Head.SummaryGroup = "" + Me.lblTimePeriod_Head.Text = "Time Period" + Me.lblTimePeriod_Head.Top = 0! + Me.lblTimePeriod_Head.Width = 2.802756! + ' + 'lblCountry_Head + ' + Me.lblCountry_Head.DataField = "" + Me.lblCountry_Head.DistinctField = "" + Me.lblCountry_Head.Height = 0.1795276! + Me.lblCountry_Head.Left = 5.542126! + Me.lblCountry_Head.Name = "lblCountry_Head" + Me.lblCountry_Head.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" & + ": 1" + Me.lblCountry_Head.SummaryGroup = "" + Me.lblCountry_Head.Text = "Country" + Me.lblCountry_Head.Top = 0! + Me.lblCountry_Head.Width = 1.519685! + ' + 'lblAmount_Head + ' + Me.lblAmount_Head.DataField = "" + Me.lblAmount_Head.DistinctField = "" + Me.lblAmount_Head.Height = 0.1795276! + Me.lblAmount_Head.Left = 7.148032! + Me.lblAmount_Head.Name = "lblAmount_Head" + Me.lblAmount_Head.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" & + ": 1" + Me.lblAmount_Head.SummaryGroup = "" + Me.lblAmount_Head.Text = "Amount" + Me.lblAmount_Head.Top = 0! + Me.lblAmount_Head.Width = 1.149607! + ' + 'Line12 + ' + Me.Line12.Height = 0.1795276! + Me.Line12.Left = 0.01023622! + Me.Line12.LineWeight = 1.0! + Me.Line12.Name = "Line12" + Me.Line12.Top = 0! + Me.Line12.Width = 0! + Me.Line12.X1 = 0.01023622! + Me.Line12.X2 = 0.01023622! + Me.Line12.Y1 = 0.1795276! + Me.Line12.Y2 = 0! + ' + 'Line14 + ' + Me.Line14.Height = 0.1795276! + Me.Line14.Left = 7.099607! + Me.Line14.LineWeight = 1.0! + Me.Line14.Name = "Line14" + Me.Line14.Top = 0.00000004470348! + Me.Line14.Width = 0! + Me.Line14.X1 = 7.099607! + Me.Line14.X2 = 7.099607! + Me.Line14.Y1 = 0.1795276! + Me.Line14.Y2 = 0.00000004470348! + ' + 'Line15 + ' + Me.Line15.Height = 0.1755905! + Me.Line15.Left = 8.297638! + Me.Line15.LineWeight = 1.0! + Me.Line15.Name = "Line15" + Me.Line15.Top = 0.003937106! + Me.Line15.Width = 0! + Me.Line15.X1 = 8.297638! + Me.Line15.X2 = 8.297638! + Me.Line15.Y1 = 0.1795276! + Me.Line15.Y2 = 0.003937106! + ' + 'Line16 + ' + Me.Line16.Height = 0.1795276! + Me.Line16.Left = 0.7866142! + Me.Line16.LineWeight = 1.0! + Me.Line16.Name = "Line16" + Me.Line16.Top = 0! + Me.Line16.Width = 0.000787437! + Me.Line16.X1 = 0.7874016! + Me.Line16.X2 = 0.7866142! + Me.Line16.Y1 = 0.1795276! + Me.Line16.Y2 = 0! + ' + 'Line17 + ' + Me.Line17.Height = 0.1795275! + Me.Line17.Left = 5.542126! + Me.Line17.LineWeight = 1.0! + Me.Line17.Name = "Line17" + Me.Line17.Top = 0.0000001192093! + Me.Line17.Width = 0! + Me.Line17.X1 = 5.542126! + Me.Line17.X2 = 5.542126! + Me.Line17.Y1 = 0.1795276! + Me.Line17.Y2 = 0.0000001192093! + ' + 'Line18 + ' + Me.Line18.Height = 0.003937008! + Me.Line18.Left = 0! + Me.Line18.LineWeight = 1.0! + Me.Line18.Name = "Line18" + Me.Line18.Top = 0! + Me.Line18.Width = 8.297638! + Me.Line18.X1 = 0! + Me.Line18.X2 = 8.297638! + Me.Line18.Y1 = 0.003937008! + Me.Line18.Y2 = 0! + ' + 'Line19 + ' + Me.Line19.Height = 0! + Me.Line19.Left = 0! + Me.Line19.LineWeight = 1.0! + Me.Line19.Name = "Line19" + Me.Line19.Top = 0.1795276! + Me.Line19.Width = 8.297638! + Me.Line19.X1 = 0! + Me.Line19.X2 = 8.297638! + Me.Line19.Y1 = 0.1795276! + Me.Line19.Y2 = 0.1795276! + ' + 'Line20 + ' + Me.Line20.Height = 0.1795276! + Me.Line20.Left = 2.738582! + Me.Line20.LineWeight = 1.0! + Me.Line20.Name = "Line20" + Me.Line20.Top = 0! + Me.Line20.Width = 0.0007882118! + Me.Line20.X1 = 2.73937! + Me.Line20.X2 = 2.738582! + Me.Line20.Y1 = 0.1795276! + Me.Line20.Y2 = 0! + ' + 'GroupFooter1 + ' + Me.GroupFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.lblSumme, Me.lblWahrung, Me.lblGroup1}) + Me.GroupFooter1.Height = 0.2917323! + Me.GroupFooter1.Name = "GroupFooter1" + ' + 'Line1 + ' + Me.Line1.Height = 0! + Me.Line1.Left = 5.542126! + Me.Line1.LineWeight = 1.0! + Me.Line1.Name = "Line1" + Me.Line1.Top = 0.09251969! + Me.Line1.Width = 2.72559! + Me.Line1.X1 = 5.542126! + Me.Line1.X2 = 8.267716! + Me.Line1.Y1 = 0.09251969! + Me.Line1.Y2 = 0.09251969! + ' + 'lblSumme + ' + Me.lblSumme.DataField = "" + Me.lblSumme.DistinctField = "" + Me.lblSumme.Height = 0.1795276! + Me.lblSumme.Left = 7.217717! + Me.lblSumme.Name = "lblSumme" + Me.lblSumme.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" & + " 1" + Me.lblSumme.SummaryGroup = "" + Me.lblSumme.Text = "10.000.000" + Me.lblSumme.Top = 0.1122047! + Me.lblSumme.Width = 1.05! + ' + 'lblWahrung + ' + Me.lblWahrung.DataField = "" + Me.lblWahrung.DistinctField = "" + Me.lblWahrung.Height = 0.1795276! + Me.lblWahrung.Left = 6.560236! + Me.lblWahrung.Name = "lblWahrung" + Me.lblWahrung.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" & + " 1" + Me.lblWahrung.SummaryGroup = "" + Me.lblWahrung.Text = Nothing + Me.lblWahrung.Top = 0.1122047! + Me.lblWahrung.Width = 0.4874015! + ' + 'lblGroup1 + ' + Me.lblGroup1.DistinctField = "" + Me.lblGroup1.Height = 0.1795276! + Me.lblGroup1.Left = 5.542126! + Me.lblGroup1.Name = "lblGroup1" + Me.lblGroup1.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" & + " 1" + Me.lblGroup1.SummaryGroup = "" + Me.lblGroup1.Text = Nothing + Me.lblGroup1.Top = 0.1122047! + Me.lblGroup1.Width = 0.4874015! + ' + 'GroupHeader2 + ' + Me.GroupHeader2.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblFirma}) + Me.GroupHeader2.Height = 0.1944717! + Me.GroupHeader2.Name = "GroupHeader2" + ' + 'lblFirma + ' + Me.lblFirma.Height = 0.2070866! + Me.lblFirma.HyperLink = Nothing + Me.lblFirma.Left = 0! + Me.lblFirma.Name = "lblFirma" + Me.lblFirma.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0) + Me.lblFirma.Style = "background-color: #003680; color: White; font-size: 10pt; font-weight: bold; text" & + "-align: left; vertical-align: middle" + Me.lblFirma.Text = "" + Me.lblFirma.Top = 0! + Me.lblFirma.Width = 8.297638! + ' + 'GroupFooter2 + ' + Me.GroupFooter2.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblWaehrung_Ges, Me.lblSumGesamt, Me.Line3}) + Me.GroupFooter2.Height = 0.2604167! + Me.GroupFooter2.KeepTogether = True + Me.GroupFooter2.Name = "GroupFooter2" + ' + 'rpt_3470 + ' + Me.MasterReport = False + Me.PageSettings.DefaultPaperSize = False + Me.PageSettings.Margins.Bottom = 0.1968504! + Me.PageSettings.Margins.Left = 0.1968504! + Me.PageSettings.Margins.Right = 0.1968504! + Me.PageSettings.Margins.Top = 0.1968504! + Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait + Me.PageSettings.PaperHeight = 11.69291! + Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4 + Me.PageSettings.PaperWidth = 8.267716! + Me.PrintWidth = 8.816929! + Me.Sections.Add(Me.ReportHeader1) + Me.Sections.Add(Me.PageHeader) + Me.Sections.Add(Me.GroupHeader2) + Me.Sections.Add(Me.GroupHeader1) + Me.Sections.Add(Me.Detail) + Me.Sections.Add(Me.GroupFooter1) + Me.Sections.Add(Me.GroupFooter2) + 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.lblTimeperiod, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblKDNumber, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblKDName, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblCountry, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAmount, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblWaehrung, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblWaehrung_Ges, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSumGesamt, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblKdName_Head, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblKdNr_Head, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblTimePeriod_Head, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblCountry_Head, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAmount_Head, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblWahrung, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblGroup1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Public WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader + Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter + Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail + Public WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo + Public WithEvents lblDat As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader + Public WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter + Public WithEvents lblKDNumber As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblKDName As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblKdNr_Head As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture + Public WithEvents GroupFooter2 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter + Public WithEvents GroupHeader2 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader + Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblTimePeriod_Head As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents lblCountry_Head As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblCountry As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblAmount As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents lblAmount_Head As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblWahrung As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents Line12 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line14 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line16 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line17 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line18 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line19 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents lblKdName_Head As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line20 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents lblTimeperiod As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblWaehrung As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblSumGesamt As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents lblWaehrung_Ges As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblGroup1 As GrapeCity.ActiveReports.SectionReportModel.TextBox +End Class diff --git a/SDL/Reports/MDM/rpt_3470.resx b/SDL/Reports/MDM/rpt_3470.resx new file mode 100644 index 00000000..3cc86eed --- /dev/null +++ b/SDL/Reports/MDM/rpt_3470.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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/2wBDAAICAgICAgICAgIDAgICAwQDAgIDBAUEBAQEBAUGBQUFBQUFBgYHBwgHBwYJCQoKCQkMDAwMDAwMDAwMDAwMDAz/2wBDAQMDAwUEBQkGBgkNCwkLDQ8ODg4ODw8MDAwMDA8PDAwMDAwMDwwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAIwDBQDAREAAhEBAxEB/8QAHgABAAICAwEBAQAAAAAAAAAAAAgJBwoEBQYDAgH/xABnEAABAwIDAwQJDAoMDgEDBAMAAQIDBAURBgchEggxQRMJUWEU1BVWVxgZcYEiMkKS0nWV1ZYXkVIjs5S0pRY2OKHRYnKyM5MkVHQ1WLGCokNTY1W15XamN3doNMFzo+GD0yXCpCf/xAAbAQEAAgMBAQAAAAAAAAAAAAAABgcDBAUCAf/EAEURAQABAgEGCAwFBAEFAQEBAQABAgMEESEx0QUGQXGBkcEyUxZRYaGx4RIiUpITFBXwcqLSNELiM2Ni8YKyI0PCJCU1/9oADAMBAAIRAxEAPwC/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4F0ulssdtr7zerjS2e0WuCSqud1rZmU9NTQRNV8ks00itYxjGoquc5URE5T1RRVXVFNMZZnREaZeaqopiZmckQxN5yPDv5e9OfpTaO+jd+1Yzsbnw1amt9fhu0o+KNZ5yPDv5e9OfpTaO+h9qxnY3Phq1H1+G7Sj4o1nnI8O/l705+lNo76H2rGdjc+GrUfX4btKPijWecjw7+XvTn6U2jvofasZ2Nz4atR9fhu0o+KNZ5yPDv5e9OfpTaO+h9qxnY3Phq1H1+G7Sj4o1nnI8O/l705+lNo76H2rGdjc+GrUfX4btKPijWecjw7+XvTn6U2jvofasZ2Nz4atR9fhu0o+KNZ5yPDv5e9OfpTaO+h9qxnY3Phq1H1+G7Sj4o1nnI8O/l705+lNo76H2rGdjc+GrUfX4btKPijWecjw7+XvTn6U2jvofasZ2Nz4atR9fhu0o+KNZ5yPDv5e9OfpTaO+h9qxnY3Phq1H1+G7Sj4o1so2HMFhzTaaK/5YvdBmOxXFrn2+9WupirKSdrXKxyxTwuex6I5qtXdXlRUNO5artVTTXExMcExknmbNFdNcetTMTE8MO3PD0AAAAAAAAAAAAAAAAAAAAAAAAAAAA8dm7UTT7T+Ohlz7nrL2SIro6Rlskv9zpLa2odEjVkSFaqWNHqxHN3t3HDFMeUz2MLev5fl0VVZNOSJnzMV2/btZPXqinL4ZiPO8R5yPDv5e9OfpTaO+jY+1Yzsbnw1amH6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8Ua3qsparaXZ+ram25F1JytnS40cHdNZQWG8UVymih3kZ0skdLNI5rd5yJvKmGKohhv4K/YjLct1Ux44mPPDJaxNq7OSiumqfFMT5nvjWZwAAAAAAAAAAAAMbZm1l0gyVdZLFnHVXJ+Ur3FGyWWzXm+2+gq2xyJix7oKidj0RybUXDabdnAYi9T61u3VVHhimZjyQ17mLs259WuumJ8EzEOg85Hh38venP0ptHfRk+1Yzsbnw1anj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGt7HKGpmnGoL6+PIWoGW87yWtsbrnHYLrR3J1M2ZXJGsyUssm4j9x27vYY4LhyGC/hL1jJ8yiqnLoyxMZedltYi1dy+pVFWTwTE+Z7c12YAAAAAAAAAAAAAAAAeOzdqJp/p/HQzZ9z1l7JEN0dIy2y3+50ltbUOiRqyNhWqkjR6tRyYo3HDFMeUz2MLev5fl0VVZNOSJnzMV2/btdeqKcvhmI87xHnI8O/l705+lNo76Nj7VjOxufDVqYfr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8Ua39bxH8PL1RrNedOnOXkamaLSq/jI+1Yzsa/hq1H1+H7Sj4o1uyp9dtEKrDuXWTI1TjydFmG2vx97UL2TzOzsVGm1X8M6nqMZYn/6U88PS0WoeQLkrUt2eMv16u9qlNc6WXH1NyRTDVhb1OmiqOSWSL9udFUc8PWRSxTsbLDKyaJ+1sjHI5q+oqbDDMZGXLlfQ+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMNScRnD3DJJDNrvp5FLE5WSxPzRaWua5q4KiotTiiopvxsrGT/8AGv4atTU+vw/aU/FGt+POR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrPOR4d/L3pz9KbR30PtWM7G58NWo+vw3aUfFGs85Hh38venP0ptHfQ+1Yzsbnw1aj6/DdpR8UazzkeHfy96c/Sm0d9D7VjOxufDVqPr8N2lHxRrZAynnjJefbfPdsjZvsmc7XTVC0tTcrFcKa408c7WtesT5aaSRrXo17XK1VxwVF5zWvYe7Yn1blM0z4JiY87PavUXYy0VRMeKcr1BhZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADqLzmCw5dpVrcwXugsVEmONXcKmKliTDl9nK5rf2T3btV3JyUxMz4oyvNddNEZapiONgvMPFzwzZY30umt2U5XR+3jttey5vRU5UVtB0649rA6NrYmOuaLVXLGTz5GlXtPC0ablPJOXzMN3nrI+FC1byUec7pmFW81uste3Fe0tZFTJ+yb9vdTH1aaYjjqjoytWvb+Ep0VTPFE9ORjS59a1w/Uu8y3ZQz3dHpyP7it0ES/wCM+4K7/INujczFzpqojlnU16t5MPGimqeSNbxVb1tmnsePg7SLMVUnN3TX0lP/AAGzGxTuTe4btPNPoYZ3mt8FE88PPT9btaW49y6EVc3Y6XMUcf8ABtzzLG5FXDej4f7nid544Lfl9Dr3db01FXc4fFc3mVc14L9jwOp67j/7v0f3PPej/V+r+1/PS9f+vX/Vn/Bh3H/3/o/uO9H+r9X9p6Xr/wBev+rP+DDuP/v/AEf3Hej/AFfq/tPS9f8Ar1/1Z/wYdx/9/wCj+470f6v1f2npev8A16/6s/4MO4/+/wDR/cd6P9X6v7T0vX/r1/1Z/wAGHcf/AH/o/uO9H+r9X9p6Xr/16/6s/wCDDuP/AL/0f3Hej/V+r+09L1/69f8AVn/Bh3H/AN/6P7jvR/q/V/ael6/9ev8Aqz/gw7j/AO/9H9x3o/1fq/tPS9f+vX/Vn/Bh3H/3/o/uO9H+r9X9p6Xr/wBev+rP+DDuP/v/AEf3Hej/AFfq/tPS9f8Ar1/1Z/wYdx/9/wCj+470f6v1f2npev8A16/6s/4MO4/+/wDR/cd6P9X6v7T0vX/r1/1Z/wAGHcf/AH/o/uO9H+r9X9rlR9bvRL/HaBTsTFMdzMzXbOfltbT5O5E9t+n+5970R2f6vQ7KDrcstO/+Tojc4f8A7V8hk/hUbDxO5FfBdj4fS9RvPTw255/Q76l62rTN6p3bpRmenbzrBVUUy/Yc6IxzuVf4LlPNL3G81rhonyPVUPWucP8AOrW12TM+0KryvbRWyZieqqXJrv8AJMNW5mLjRXRPLP7WWN5cPOmmrmjW93bOsy4Wa9zUqrzmGyI7ldW2aZ6N9XuV1Qv2DWr3Sx9OiKZ4p15GaneDCTpmY5NTKFk45+FC/uYyi1ltVM5/NcqavtqIvbdW00LU+yadzd3H0abU8kxPmmWxRtjCVaLkcuWPPDOGWdW9K86KxmUNSsrZnkkwRkNqu9HVyYrzKyGVzkXtKhz72Cv2evbqp44mG5bxVq51a4nimGQjVZwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAONW0VJcaOrt9fTR1lDXwyU9bRzNR8csMrVY+N7VxRWuaqoqLzH2mqaZiY0w+TETGSdDVQ4qdDqvh/1ozRkVI5Fy7M/wrkqskxXp7TVucsCby7XOhVHQvXncxV5FQuXY20Yx2Gpuf1aKvzRp59PKrfaWDnC35o4NMcX4zI6HVaAAAAAAAAAAAXLdVlr50FVfuHzMNb9yrOmv2nqyu5JWt3rhRMx+2anTtamz2Mq8qkD3x2bliMVTGjNV0T0cyV7uY3JM2KuOOmOnnXWkAS0AAAAAAAAAAAAAAAAAAAAAAAAAAD8SSRwxvlle2KKJqvkkeqNa1rUxVVVdiIiCIyjV240eICTiB1pvF4ttU6XI2VN+yZFiRV3H0sL16WsROzVSYyY4Y7nRtX2pcGwNmfQ4aKZj26s9XH4OTz5VdbWxv1V+ZjqxmjXyokHbcwAAAAAAAAAANk3q9tAPqb0Wpcy3yi7nzzqk2C83lJG4S01BuqtupFx2orY3rK9FRFR8itX2qFUbz7T+rxPqUz7FGaPHP9U9HIn2w8F9PY9aetVnni4IT2I27QAAAAAAAAAAAAGt11l/61F/+IbN+LlrbpfwKfzT50C3g/lzxQgCSVxAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALjuqK/trXX+pZe++XAgm+/Vs8dXQlW7HWucnSu1K/S4AAAAAAAAAAAAAAAAU79bn+juh/wAY337zRE63I693ip6UW3n6tvjnoUiFgogAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABz6C6XO1ypPbLjVW6ZNqTUsz4Xe+YqKeaqKatMZX2mqadEsoWPiC12y25i2LWTOltYzkp4r5X9CuHZiWZWL66Gnc2ZhbnWtUT/2xqbNGOv0dWuqOWWcstdYLxX5aVjPrM8P0rOWkvNtoKpHerN0DJ/8A8hzr27OAuf8AzycUzHTk8jct7cxdH9eXjiEl8ndbPqRQrDHnzS7L2ZIm4Nlns1TU2mVU+2VJu7mKvPgiNRe0cm/uVZq/x3Ko44ir9roWt5rsdeiJ4s2tMbT/AKznhyza6GlzQ6+6b1r8Gvku1GtXR768zaigWd+HbfGxDhYndHGWs9GSuPFOSeacnnl1bG8OGuZqstPHGbyJzZN1AyPqHbEvORM3WjN9sXDfrLTWQ1bWKvuZOic5WO7LXIip2CO38NdsVercpmmfHGR2LV+3djLRVEx4pevMDKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACDHH5xBfUjovWWmx1vc+fdS0msuW1jdhLTUqsRK+ubhgqdFG9GMVFxSSRjk9qpIt2tmfWYmKqo9ijPPjngj8cEOPtvHfTWMkdarNHTLWjLZV+AAAAAAAAAAAAAAsH6urX/6pNZIslX6t6DJGqzobVVrI7CKluzXKlvqduxqPc9YXrs2PRzlwYRjenZn1WG+ZTHt0Z+Onhjp5PG7mwsb8i96lXVqzcvBqbHhVaeAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB85poqeKWeolZBBAxZJppHI1jGNTFznOXBERE2qqn2Iy5oJnIhnqpx9cNelrqmjdnJc93ynVWusmU2NuKo5NmDqvfjpG4LsVOm3k+1O9g92sbic/q+rHhqzeTT5HJxO2sNZzet60+CnP5dHlV86hdbFn64vmptMdN7PlilXFsdzv00t0qlTme2KFaWKN3ad0iEmwu5dqnPeuTV4ozR0z5nDv7y3J/x0RHHn1dKF+dOMzicz46ZLzrDfaGmmxRaGxyMs0KMX3GFubTq5MNnslXHnxO/h9g4Gx1bUTx+1/wCWVyr21cVd01zyZvMjhcbncrvVSV12uFTdK2XbLWVcr55XfvnyK5y/ZOrTRTRGSmMkOfVVNU5ZnK4J6fAAAAAAAAAAAAAAAAAAAAAAAAAAAAADLmStfNa9OnQ/mVqnmawU9Ph0duhuM76LZyb1JK58DsP3TFNHEbNw2I/yW6Z8eTPz6W1Zxt+11K5jlzc2hNzTbrS9cMsugptQrFZNS7c1U6eq6NLRcnJz4TUrVp//APW9cj+L3OwtzPamaJ+KPLn8rr4feO/R14iqOafJm8iy3RvrAeHnVuSltdTf5NOcz1CtYyyZo6OlilkXZuwVzXOpnYrsaj3se7mYRPH7s4zC54p9enw05+eNPnhIMLtvD382X1Z8E69CbjXNe1r2OR7Hoitci4oqLyKikedd+gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACvfrF9Avra0alztYqLp866UNmutKkbcZKq0uai3Cn2bVVjWJO3l9orW7Xkn3W2l9Lifl1T7Febiq4J6OXxOHt3BfPs+vT1qc/Jw62uIWogYAAAAAAAAAAeoyTnC+6fZvy3nfLNUtFf8rXCC5Wuo2q3pYHo9GvRFTeY9E3XN901VReUw4ixRft1W64yxVGSWSzdqtVxXTpicrbU0j1MsWsOm+UNScuPTwbmqgZVLTbyOdTVCYx1NK9U91BM18bu23FNhSmOwleEvVWq9NM8/gnljOs3C4inEWqblOiY/EMjmqzgAAAAAAAAAAAAAAAAAAAAAAAAArj6x/iE+qzSdNN8vV3Q511Wilo5XROwkpLI32NbNs2tWfHoGY8qLIqLiwlW6uzPqcR82qPYoz8dXBzaebwuDt7HfIs/Lp61Xm4efRztdgtFBQAAAAAAAAAAmPwO6Arrzrbaaa7UXdORcj9Hfc6K9uMU0cT/5tRO5l7plRGqnPG2RU5Dhbw7T+iwszTPt1ZqemeSPLkdXY+C+qvxl6tOedXL5srZ7REREREwRNiIhUKw39AAAAAAAAAAAAABrddZf+tRf/iGzfi5a26X8Cn80+dAt4P5c8UIAklcQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC47qiv7a11/qWXvvlwIJvv1bPHV0JVux1rnJ0rtSv0uAAAAAAAAAAAAAAAAFO/W5/o7of8Y337zRE63I693ip6UW3n6tvjnoUiFgogAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADvcuZozJk+6099ynf7jlm9Ui4012tdTLSVLOzuywua5EXDamJju2aLtPq10xVHgmMr3buVW59amZifEsq0N6z/U3J0lFZtZLYzUrLjFSOS/UzY6S+QM5N7Fu5T1O6nM9rHLyrKRPaO6Fi7lqsT6lXg00648vE7+D3iu2812PWjw8OqfxnXS6Ra3aZ65ZdbmXTbM9PfKWNGpcrev3KuoZHJ/F1dK/CSNdi4KqbrsMWOcm0gOO2ffwVfqXack8HgnilLcLjLWJp9a3OXzxxwyuaTZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPhVVNNRU1RWVk8dLSUkT5qqqlcjI4440Vz3vc7BERqIqqqn2ImZyRpfJmIjLLVe4uNeKjiD1ozDm6nmkXKdrXwPkWkfi1GWyme7clVi8j6h6umdjtTeRvI1C49ibNjA4amietOerjnVoVxtPGzir81f0xmji9OlGQ67ngAAAAAAAAAAAAAP01zmOa9jlY9io5j2rgqKm1FRUA2iOCrX1uvuiVlu1zq0nzxlLdsWeGOX7pJVQMToaxU5cKqLB6rhhv9I1PalP7f2b9DippiPYqz08Xg5J8mRYmycb9VYiZ60Zp18qXJxHUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK6OI3rF9L9Ipa/K+nscWqOe6ZXQz9yzbtmoJU2KlRVsx6Z7V5Y4cedrpGOJTsrda/isld32KP1TxRwcc80uFj9u2rGWmj2qvJHLqUray8Uetuu9TMufc51L7I9+9Bk+2qtFaIkxxancsbsJFbzPmV7/AN0T/AbHwuCj/wBdGf3pz1c+rJCJYvaN/Ez7dWbwRmjm1o+HTaIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmNw68besHD9UUdrhuL87aexua2oyNd5nvjhiTl8H1C776V2GOCNRY8dro1XacLam7+Gx0TOT1a/ejpjh8/jdXAbXvYWcmX1qfBPR4PM2D9CuILTfiFym3NGQLqsktNuMv+XKrdjuNsneiqkdTCiu2OwXde1VY7Bd12KKiVjtHZl7AXPUuxxTwTxJvg8daxdHrUTxxwwzcc9uAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH5exkjHxyMR8b0Vr2OTFFRdioqLyooGrhxn6Cv0B1uv1jt1IsGSsz719yNIifc2UdS92/SIvJjSyo6PDHHcRjl9sXDsDaX12FiqZ9unNVx+Hl086utrYL6W/MR1ZzxxeDkRNO05gAAAAAAAAAAW49Vxr54BzRetBcw1u7as3LJd8juld7GK6QR/wA6pm48iVEDEeicm9GuHsnkJ3w2b69uMTTGenNVxcE8k+fxJPu5jfVrmzVonPHHw8/QvSK6TEAAAAAAAAAAAAAAAAAAAAAAAAOpv19tOWLHeMyX6ujtlksFFPcLvcJlwjgpqaNZZZHdprWqp7t26rlUUUxlmZyRxy811xRTNVWaIztUDiJ1nu2vmreatRrl0kNHcJ+5ctWyRce4rVTqraSDBFVEXd9m/DYsjnu5y6Nl4CnA4em1GmNM+Grhn8cCtcdi5xV6bk8nijgYROg0wAAAAAAAAB/URXKjWornOXBETaqqoG0DwR6BJoJolZ6C60aU+ec57l9zu5zcJYp5mJ3PRO50SliVGKmOHSLIqe2Kg3g2l9dipmmfYpzU9M8s+TIsTZGC+lsRE9ac86uRME4bqAAAAAAAAAAAAAANbrrL/wBai/8AxDZvxctbdL+BT+afOgW8H8ueKEASSuIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcd1RX9ta6/1LL33y4EE336tnjq6Eq3Y61zk6V2pX6XAAAAAAAAAAAAAAAACnfrc/0d0P+Mb795oidbkde7xU9KLbz9W3xz0KRCwUQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAe5061KzvpPmq3500/zDU5czBbnfc6qnd7CWNVRXQzxOxZLE/BN5j0Vq9g18VhLWKtzbu05aZ/GbwSzWMRXYriuickw2Q+EXi7yxxMZakpKqODL2p+X4GvzTlVrl6OWPFG93UO+qudA5yojmqquicqNcqorHvqnbew69nV5Yz250T0T4/Onuy9qU4ynJOauNMdMeLzJjnCdUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWZ1l3ED9XWmNPpLl6t6LN2qcT2Xd0bsJKWwMduVCrhtTut6dCnMrEl50Qlu6ezPqL/z6o9mjR46uDm08eRH94Md8q18qnrVf+Pp0c7XvLOQcAAAAAAAAAAAAAAAATN4GNf/AKiNbbXJeK3ubImfOjsWcke7CKBsj/5pXO5k7mldi5eaN0mG1Tg7xbM+tws+rHt056emOWPLkdbY+N+mvxl6tWaeieTzZWzsi47U2ovIpUSwgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOvut1tlitlwvV6r6e1Wi1U8lXc7lVSNiggghar5JJJHKiNa1qKqqqnqiiquqKaYyzOiHmqqKYmZnJENf7jD4/Mw6tVN0080jrqrLWlzFfTXG9x70FwvzdrXK5dj4KV3NHsc9v8bsXo22ZsLdqjCxF2/ETc8HBTrnx8HB4UJ2rtuq/M27Wajw8NXo/E+BWaS1HwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMl6S6t540Uzta8+ZBuz7ZeLc7dqIHYupq2mcqLJS1USKiSRSYbU5UXBzVa5GuTUxuCtYy1Nu7GWJ54nwx42xhsVcw1cV0Tknz+KW0Dw7a+5S4i9ObfnnLSpRV0apSZpy3I9Hz2y4NaiyQuXBN5jkXejfgm81eRHI5rah2ps25gL02688cE+GPxpWHgMbRi7cV08seCWdzmt0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhLx56BfXjojcqmzUXdOe9OulvuVNxuMs8bGfz6ibzr08Td5rU5ZGRoSDdvaX0eKiKp9ivNPRPJPkmXI21gvqbEzHWpzx0xy+drLFtq+AAAAAAAAAADust5hvGUswWTNOX619tvuXa6nuNor4/bQ1NNI2WJ6dnBzU2LymO7apu0TRVGWJjJPFL3brqt1RVTmmJytszQjVuz646U5P1Ks+5F4eo08L29jt7uO4Q/c6ymXHb9zla7dVfbN3XcjiltpYKrB4iq1VwTm8ccE8yy8FioxNqm5HD5J4WXTRbQAAAAAAAAAAAAAAAAAAAAAAAqI60TiE8CZftXD/lqu3bpmdkV2z9JE72UVujfjSUblTkWeVnSOTYu4xvK2Qm+5+zPXrnE1xmpzU8fDPJo5fEi+8WO9WmLFOmc88XBHL+NKjMsRDwAAAAAAAAAAn71eOgH1w6z0+a75RdPkfSt0F4uaSNxiqrkrlW3Uq47FTfYsz02orY91fboRrejaf0mG9SmfbrzR4o/qno5Xb2HgvqL/rVdWnPy8EdLZGKpT0AAAAAAAAAAAAAAA1uusv8A1qL/APENm/Fy1t0v4FP5p86Bbwfy54oQBJK4gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFx3VFf21rr/AFLL33y4EE336tnjq6Eq3Y61zk6V2pX6XAAAAAAAAAAAAAAAACnfrc/0d0P+Mb795oidbkde7xU9KLbz9W3xz0KRCwUQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPbac6hZq0qzpl/P2S7k615iy5UtqaKdMVZInJJDMxFTfjlYqse1eVqqhr4rC28TaqtXIy0z+OeGaxfrsVxXROSYbVmg2suXdetMMuakZcwgjusaw3m0q5HyW+4wYNqaWRdmO47a1VRN5itfgiOKa2lgK8DfqtV8GifDHBP44VkYLF04q1Fynh0+KfAzCaLaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB0uZMw2fKOX73mnMNdHbbFl2hnuN3r5faw01NGskr17ODWrsTlMlq1VdriimMszOSOOXi5cpt0zVVmiIytTrX3WC8a7ar5t1Ju/SQx3mqWOx217sUorbB9zpKZMNmLI0RXqmxz1c73RdGzcDTgsPTap4Izz4Z4Z/HArTG4qrE3qrk8OjxRwMNm+1QAAAAAAAAAAAAAAAAA2Uer51/+ufRaly9fK3ujPWlyQWW+LI7GWpodxUt9YuOKqro2LE9VXFXxucvtkKo3n2Z9JifWpj2K88eKf6o6eKU+2HjfqLHqz1qc08XBKeRG3aAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQD1hXF5Uak5ir9FNPbordPMr1XRZrudM/2N6uVO72UaOavsqamemDU5HyIr9qNjUsvdjYcYeiMRdj26ozR7sa58kZvChO3NqfOqmzRPsxp8c6oVdEwR0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAlLwi8RNy4c9WbZmGWaWTJF/dHbNQLUxVc2She/ZUsYmOMtK5ekZsxVN5mKI9Tj7b2XTj8PNP8AXGemfH4OKdHl4HR2Xjpwl6Kv6ZzTxehtK0VbSXGjpLhQVMVbQ18MdRRVkLkfHLDK1HskY5uKOa5qoqKnKhTtVM0zMTmmFjRMTGWNDknx9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANZvj30B+pDW2411mou5si6kdNfcr7jcIqeZz07vom8iJ0Mr95rU2JHJGnMpbW7e0vrMLEVT7dGaeieWPLEq+21gvpr8zHVqzx0x+OBCAkLkAAAAAAAAAABaX1Yevn5l6h3HRbMFb0eXNSXd05aWV2DKe+wR4biY4IndcLdztvZE1PbEO3v2b86zGIpj2qNP5fRPkmUj3exvy7k2atFWj83p1L+CtU1AAAAAAAAAAAAAAAAAAAAAAPB6n6iZf0nyBmvUXNE3Q2XKlBJW1LEVEfM9MGw08eOzpJpXNjZj7pyGzg8LXir1NqjTVOT08mlhxF+mxbm5VoiGphqVqBmDVXPmatQ801HdF8zXXyV1XgqqyJrvYxQR47UjhjRsbE5mtQurCYajDWqbVGimMnp5dKs8Rfqv3JuVaZl4c2GEAAAAAAAAAcikpKqvq6WhoaeSrra2VkFHSQtV8kssjkaxjGpiquc5UREQ+VVRTGWdEPsRMzkhtU8KGhdLw/aL5ZyU+KP85qxvhbO9YzBelutW1qyt3k9s2BrWwsXnaxF5VUprbW0Zx2Jquf06Kfyxr08qyNm4OMLYijh0zx+jQkkcpvgAAAAAAAAAAAAAAGt11l/wCtRf8A4hs34uWtul/Ap/NPnQLeD+XPFCAJJXEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAuO6or+2tdf6ll775cCCb79Wzx1dCVbsda5ydK7Ur9LgAAAAAAAAAAAAAAABTv1uf6O6H/GN9+80ROtyOvd4qelFt5+rb456FIhYKIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACyfq0ddpdPNX36X3isVmU9WN2mpGSO+5098haq0cjceTuhu9AqImLnLFjsaRPezZ3z8P86mPat/+PDzaed3938Z8q98uerX5+Dn0czYcKwTkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFQPWjcQXgmx2jh+y3XbtwzE2K8agPidtjoI371FRuVOeaVnSvTYqNYz3Lycbn7M9aqcTXGaM1PHwzyaOWfAi+8WO9WmLFOmc88XBCjosNDwAAAAAAAAAAAAAAAAAASZ4Sddqjh91py3nCeaRMq3J3gfPNKzFUfa6p7Ukl3U5XU70bM1E2qrN3kcpyNt7OjHYaq3HWjPTxxr0OhszGThb8V8E5p4vRpbUdNU09bTU9ZRzx1VJVxsmpamJyPjkjkRHMexzcUVHIqKioU5MTE5J0rHiYmMsPufH0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQM6wLiIm0Q0gdYMt1y0uoGpvT2qxTROwloqFrUSvrWqm1rmse2ONUVFR70cntFJJuzsv6zEetXHsUZ58c8EdM8Ti7bx301n1aetVmjxRwy1ry10BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADYj6s/WmXUTRSo0+vFX0+YdJKiO306vdi+SzVSOfQOXH/RKySFETkaxnZKu3twHyMT82mPZuZ/+6NPPmnllOt38X82x6k6aM3JwalkBFXeAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIo8Zmgsev8Aolf7Bb6Vs2dMt43zIsqIm+6upmO3qVF7FTErosMcN5WOX2p2tg7S+hxVNU9Sc1XFPDyaXN2rgvqrE0x1ozxx+Dlatskb4nvilY6OWNytkjcio5rkXBUVF2oqKXDE5VcvwAAAAAAAAAAc+13S4WS5269Wiskt91tFVDW2yvhXdkgqKd6SRSsXmcxzUVF7J5roiumaaoyxOaXqmqaZiY0w2veGvWm36+aO5S1DpVjjulXB3Fmu3x8lLdqVEZVRYbcGuXCRiLt6N7F5ymNrYCcDiarU6NMeOmdGrjWTs/FxirNNyNPDx8LO5zW6AAAAAAAAAAAAAAAAAAAAAos60LiE/ODMtr0Cy1Xb1oyk+O6Z7kid7Ga6SMxpqRVTlSnifvuTk33oi4OjLF3Q2Z8uicTXGerNTxcM8s+SPGh28WO9eqLFOiM88fg5PxoVHk2RgAAAAAAAAAALM+rQ0A+sPVCp1azBRdLlPSyRj7SkjcY6m/SN3qdEx2L3Kz7suG1r1i5lIlvbtP5Fj5FM+1Xp8VPDz6OdIN38F82782rq0/8Al6NPM2ECsU4AAAAAAAAAAAAAAAAGt11l/wCtRf8A4hs34uWtul/Ap/NPnQLeD+XPFCAJJXEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAuO6or+2tdf6ll775cCCb79Wzx1dCVbsda5ydK7Ur9LgAAAAAAAAAAAAAAABTv1uf6O6H/GN9+80ROtyOvd4qelFt5+rb456FIhYKIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADn2u519luduvNqqn0VztNVDW26tiXB8M8D0kikavMrXNRUPNdEV0zTVnic0vtNU0zExpht2aP6g0eq2l2Q9RaJGxx5ustLcKinYuKQ1L2IlTBjt/ipkez1ikcdhZw1+u1P9MzHJwc8LPwt+L9qm5HDDJBqNgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAeF1N1Cy/pTkHNeomaJuhsmU7fJW1TUVEfM9vsYaePHZvzSObGxPtnIbOEwteKu02qNNU5PTyaWHEX6bFublWiIal2pWoGYNVM+Zq1CzRP098zZcJa6swVVZE1y4RQR47UjhjRsbE5mtRC6sJhqMNaptUaKYyenl0qzxF+q/cm5VpmXhzYYQAAAAAAAAAAAAAAAAAAANhbq09f/rH0sm0qzBW9Lm7SqOOG2rI7GSqsMi7tK5Mdq9yu+4LhsazoudxWG9mzPp7/AM6mPZr0+Krh59POnG7+N+da+XV1qf8Ax4ObRzLLSJpAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANWfjO1ofrfr7nDMFJVrUZXy9KuXsmojsY+4KB7mLMztVEyyTJz4PROYuLYOA+jwlNMx7U+1VxzqjJCudrYv6nEVVRojNHFGvSiodlzQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAnZ1dOpT8gcTGWbXPP0Vo1HpanLNxa5fY9LMiT0TkTkVy1MLI0XsPXskc3pwnz8FVPDRPrdE+SfI7OwsR8rFRHBVm1eVsrlTp+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANcnrGtAfqo1jfnqxUXQ5L1YdNc4EjbhHS3dqotwp9mxEkc9J2/v3NamDC091tp/VYb5dU+3bzcdPBPRyeNA9vYL5F716erXn5eHWryJQ4YAAAAAAAAAAWT9Wrr59W2rMumF+reiyjqu+KmolkdhHTX2NFSjemPJ3SirAuCeycsWOxpFN7Nm/UYf51Me1R5aeHm087v7Axvyb3y6urX/wCXBz6OZsOFXpyAAAAAAAAAAAAAAAAAAABgziO1qtWgOkWadRa/oprhRw9x5Wtki4d23apRW0sOCKiq1FRXvw2pG168x0dlbPqx2IptRonPM+CmNPo8bTx+LjC2ZuTp4PHPA1Q73errmS83bMN8rpbler7WT192uMy4yT1NTIsssj17LnOVVLnt26bdMU0xkiIyRxQrWuua6pqnPMurPbyAAAAAAAAAO2sNjuuZ73Z8uWKikuV7v1bBb7Rb4UxknqamRsUUbe25zkQ8XLlNuma6pyREZZ4oeqKJrqimnPM5m2Jw96OWrQfSTKOm9s6OaptNMk2YblGmHdl0qPulXUYrtVFkXdZjtRiNbzFL7Tx9WNxFV2eHRHgjgj8cKy8DhYw1mm3HBp8c8LNJz22AAAAAAAAAAAAAAAANbrrL/wBai/8AxDZvxctbdL+BT+afOgW8H8ueKEASSuIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcd1RX9ta6/1LL33y4EE336tnjq6Eq3Y61zk6V2pX6XAAAAAAAAAAAAAAAACnfrc/0d0P+Mb795oidbkde7xU9KLbz9W3xz0KRCwUQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADYN6rHPrsw6EZgyTUzrJVae5imZSRY49HQXViVUXqY1CVClZb44b5eLpuR/XT5ac3myJvu5e9fDzR7s+Sc/nyrNiIpCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKNetG4gvDOYLRoBluu3rbll0V3z8+J2yW4yMxo6NypypBE/pXJtRXPb7qMsPc/ZnqUTia4z1ZqeLhnlnNyeND94sd61UWKdEZ54+CORUMThFwAAAAAAAAAAAAAAAAAAAAGbOHjWS66DauZS1Ht3STUlsqO58x22NcO7LXUYMq4MFVEVVZ7JmOxHta7mOftTAU43D1Wp0zonwTwT+OBt4HFzhb1NyODT444W2FY73asy2W0ZisVbHcrLfaOC4Wi4QrjHPTVMbZYpGr2HNcioUvct1W6ppqjJMTknjhZdFcV0xVTnic7tTw9AAAAAAAAAAAAAAAAAAAAAAAAAAAAI2cXmp79I+HfUvNtJU9y3qW2raMuyNXCRtddHJSRSR/uoUkWX1GKdbYeD+qxluidGXLPFGfy6HP2piPkYauqNOTJHHOb0tU8uVW4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPQZSzFWZQzVlnNluVW3DLF1ortQqi4Kk1FOyePbzeyYhiv2ou26qJ0VRMc8ZHu1cm3XFUaYmJ5m4rbLjS3e22+7UMnS0V0poqujl+2inYkjF9drkKLrpmiqaZ0wtSmqKoiY4XOPL6AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAR34pdD6PiA0YzTkNY425gZH4TyXWyYJ0F3pGudT+yX2rZUV0L15mPcvLgdTY+0JwOJpuf06Kvyzp5tPI0do4OMVZmjh0xx/jM1Tq6hrLZW1ltuNNJRXC3zyU1dRzNVkkM0TlZJG9q7Uc1yKiovOXLTVFURMZ4lW0xNM5J0uKenwAAAAAAAAAfemqaiiqaeso55KWrpJGTUtTE5WSRyRqjmPY5MFRWqiKiofJiJjJOh9iZicsNqjhN1zp+IDRXLGdJZo1zPRM8EZ4pWYJ0d1pGtSV+6ntWztVszU5kfu8qKU3trZ04HE1W/6Zz0/lnVo5Fj7MxkYqxFfDonj9OlJQ5LoAAAAAAAAAAAAAAAAAAA10esb4hPrX1bXT3L9d02SNKZJqBHROxirL05d2un2bHJCrUgZjybr3NXB5aW6uzPpcP82qPbrz8VPBHLp5vAgm3sd8+96lPVp8/DqV1EpcIAAAAAAAAAALaeq70B/OPNt314zFRb9nyW59ryUyVvsZrtNH/OKhqLypTQv3U/dyYou9GQrfDafy7cYamc9Wer8vBHLPm8aTbu4L165vVaIzRx+jpXtFcpkAAAAAAAAAAAAAAAAAGt11l/61F/+IbN+LlrbpfwKfzT50C3g/lzxQgCSVxAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALjuqK/trXX+pZe++XAgm+/Vs8dXQlW7HWucnSu1K/S4AAAAAAAAAAAAAAAAU79bn+juh/wAY337zRE63I693ip6UW3n6tvjnoUiFgogAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFrfVN5qfQasal5NdJuQZkytFdEYq7HzWmsZGxE7e5XSL6iKQzfWz62Ht3PBVk+KP7Ul3ZuZL1dHhjLzT6V9BW6ZgAAAAAAAAAAAAAAAAAAAAAAAAAAAAGGOIHWK0aEaTZt1IuvRzTWim6KwWx64d23Oo9hSU6YbcHSKivVNrWI53uTf2ZgasbiKbVPDpnwRwz+OFqY7FRhrNVyeDR454Gp5mLMF3zXfr1mfMFdJc75mGtnuN3uEq4vmqamRZZXr6rnKuwui1aptURRTGSIjJHFCtblc11TVVnmc7pjI8AAAAAAAAAAAAAAAAAAAAAAF7nVea/wD5yZRu2g+Yq3fvOSmPueSnyu9lNaJpP5xTtVdqrTTP3k/cSIiJuxlc74bM+XcjE0RmqzVfm4J5Y8seNMt3cb69E2atNOeOL0LZyFJMAAAAAAAAAAAAAAAAAAAAAAAAAAAAp762rPbqbLWk+mlPL/a1xrcx3SJFwVG0MSUlLj2UctVN67Sc7lYbLXcuzwRFMcuefNCLbzXslNFvwzM82aPPKkAsJEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANsThVzC7NHDfoneJJOmmdlC2UdRKq4q6WghbRyOXtq6Fce2Uvtm18vG3af+Uzz5+lZeza/Xw1uf+MeTMz+cxugAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADX36zTQL8wdTKPV/L9F0WVtUXuS9pG3COmv0Td6bHDYndcadKnOr2yqWZultL59ibFU+1Ro8dPo0cWRCN4MF8q782nRVp/N6dPOrEJejwAAAAAAAAAAWBdXbr59UWtEGUL5W9BknVZYLRXrI7CKmuiOVLdUrjsRFe9YXLsTCTed7RCM70bN+qw3r0x7dGfjj+qOnkdvYWN+Rf9WerVm5eDU2QSqk9AAAAAAAAAAAAAAAAACIXGvxAs0A0Wu1ytdW2HPecN+yZGjRfukdRKxenrUTlwpYlV6Lhh0ixtX2x3N39mfXYmIqj2Kc9Wrl82Vy9r476WxMx1pzRr5Gr2975Hvkkeskkiq573LirlXaqqq8qqW+rt+QAAAAAAAAAD1WR8m37UPOGW8jZYpFrb/mq4QW21wbd3pJ3o3feqIu6xiYue73LUVV5DDiL9Fi3VcrnJTTGWWSzaqu1xRTpmcjbS0i0zsOjum+UdNsuMTwblagZTOqd1Gvqah2MlTVSInu55nOkd21wTYUpjsXXi71V2vTVPN4I5IWbhcPTh7VNunREMjmqzgAAAAAAAAAAAAAAAABrddZf+tRf/AIhs34uWtul/Ap/NPnQLeD+XPFCAJJXEAAAAAAAAAE3Or4yjlTO/ElZLBnPLVrzZY5rLdpZbPeKSGtpXSRQbzHrDO17FVq7UXDYR/ee/cs4KardU0zljPE5J0+J19h2qLmJimuImMk5pzr+PNm4c/INp99G7Z3uVp93xnbV/FOtNft+G7On4Y1HmzcOfkG0++jds73H3fGdtX8U6z7fhuzp+GNR5s3Dn5BtPvo3bO9x93xnbV/FOs+34bs6fhjUebNw5+QbT76N2zvcfd8Z21fxTrPt+G7On4Y1HmzcOfkG0++jds73H3fGdtX8U6z7fhuzp+GNR5s3Dn5BtPvo3bO9x93xnbV/FOs+34bs6fhjUebNw5+QbT76N2zvcfd8Z21fxTrPt+G7On4Y1HmzcOfkG0++jds73H3fGdtX8U6z7fhuzp+GNR5s3Dn5BtPvo3bO9x93xnbV/FOs+34bs6fhjUebNw5+QbT76N2zvcfd8Z21fxTrPt+G7On4Y1HmzcOfkG0++jds73H3fGdtX8U6z7fhuzp+GNR5s3Dn5BtPvo3bO9x93xnbV/FOs+34bs6fhjUebNw5+QbT76N2zvcfd8Z21fxTrPt+G7On4Y1HmzcOfkG0++jds73H3fGdtX8U6z7fhuzp+GNR5s3Dn5BtPvo3bO9x93xnbV/FOs+34bs6fhjUebNw5+QbT76N2zvcfd8Z21fxTrPt+G7On4Y1HmzcOfkG0++jds73H3fGdtX8U6z7fhuzp+GNR5s3Dn5BtPvo3bO9x93xnbV/FOs+34bs6fhjUebNw5+QbT76N2zvcfd8Z21fxTrPt+G7On4Y1HmzcOfkG0++jds73H3fGdtX8U6z7fhuzp+GNR5s3Dn5BtPvo3bO9x93xnbV/FOs+34bs6fhjUebNw5+QbT76N2zvcfd8Z21fxTrPt+G7On4Y1HmzcOfkG0++jds73H3fGdtX8U6z7fhuzp+GNR5s3Dn5BtPvo3bO9x93xnbV/FOs+34bs6fhjUebNw5+QbT76N2zvcfd8Z21fxTrPt+G7On4Y1HmzcOfkG0++jds73H3fGdtX8U6z7fhuzp+GNT2uTdL9NtO33CXIOQMu5JkurY23SSxWylt7qhsKuWNJVpo499GK927jyYr2TBfxl7EZPm11VZNGWZnJzs1rD2rWX1KYpy+CIh7o1mYAAAAAAAAAAAAAAAAU79bn+juh/xjffvNETrcjr3eKnpRbefq2+OehSIWCiAAAAAAAAAA5lvp2VdfQ0kiubHU1EUT3N5UR70aqpjjt2nmqckTL7TGWci/f0UHD/48ag/htq+ayte+mL9yjmq/cmvdrD+9VzxqPRQcP/jxqD+G2r5rHfTF+5RzVfuO7WH96rnjUeig4f8Ax41B/DbV81jvpi/co5qv3HdrD+9VzxqPRQcP/jxqD+G2r5rHfTF+5RzVfuO7WH96rnjUeig4f/HjUH8NtXzWO+mL9yjmq/cd2sP71XPGo9FBw/8AjxqD+G2r5rHfTF+5RzVfuO7WH96rnjUeig4f/HjUH8NtXzWO+mL9yjmq/cd2sP71XPGo9FBw/wDjxqD+G2r5rHfTF+5RzVfuO7WH96rnjUeig4f/AB41B/DbV81jvpi/co5qv3HdrD+9VzxqPRQcP/jxqD+G2r5rHfTF+5RzVfuO7WH96rnjUeig4f8Ax41B/DbV81jvpi/co5qv3HdrD+9VzxqPRQcP/jxqD+G2r5rHfTF+5RzVfuO7WH96rnjUeig4f/HjUH8NtXzWO+mL9yjmq/cd2sP71XPGo9FBw/8AjxqD+G2r5rHfTF+5RzVfuO7WH96rnjUeig4f/HjUH8NtXzWO+mL9yjmq/cd2sP71XPGo9FBw/wDjxqD+G2r5rHfTF+5RzVfuO7WH96rnjU/juqf0BVF3c86gI7mVay1Kn2PBiDvpi/co5qv3HdrD+9VzxqeCzJ1SOUZ4ZFyhrFeLZOiKsUd4tlPXMcvM1XU8tIrcezgvqGza32uRPt2onimY8+VhubsUT1a5jjjLqQX1m4AOIPR+kq72yy0+oOV6NqyVF7yw6SpkgjRMVfPRPYyoaiIiq5zGPY1OV5IsBvNg8XMU5fUq8FWbmnQ42L2JiMPGXJ60eGNWlCIkLkAAAAAAAAAAAAnF1dF7Wz8WWn1Or9yK/wBJebbMvNgttqKhiL6skDUI9vTb9fZ9c+CYnyxHS7Gwq/VxdPjyx5JbMJUqwAAAAAAAAAAAAAAAAAAAAAAAAAAAAADXq6yviC+sjVGHSjL1b0uUNK5ZIrmsbsY6q/PTcqXLhy9yt+4Nx5H9LzOLP3T2Z9PY+dVHtV6PFTwc+nmQfeDHfOu/Kp6tP/l6NHOrRJYj4AAAAAAAAAAXKad8AjMw8F11rqy0ozWzOCRZzyu+Ru7PBFTRPWhtaquCtSqp5Hq9FwwkkZv/AMUhA8VvL8vaURE/+qn2Z5dNXJPkifCldjYvr4KZmP8A2T7UdEcseWfEpvlikhkkhmjdDNC5WSxPRWua5q4K1yLtRUXlQncTlRTQ+Z9AAAAAAAAABkfSLUy/aO6kZR1Jy29fCeVq9lStMrlaypp3Yx1NLIqY+wnhc6N3YRcU2mpjsJRi7NVqvRVHN4J5JZ8LiKsPdpuU6Yn8Q20sjZzsOomT8tZ5yxVpW2DNVvguNsn2b3RztR249EVd17Fxa9vuXIqLtQpXEYevD3KrdcZKqZySs2zdpu0RXTomMr1RhZAAAAAAAAAAAAAAAAAAAAAAAAAAANcnrOc1uv8AxO1ll6XeiyPly1WlIkXY19Qx9ycuHZVKxuPaRC090bPqYGKveqmf/wA9CB7w3fXxWT3YiOnpV5EocMAAAAAAAAAAAHrMmZFzlqJfKfLWRcs3HNd9qtsVstlO+eRGIqIsj91FRjG47XuVGpzqhhxGJt4en17lUUx4ZZbVmu7V6tETM+JZBpn1VmrmY4qeu1LzdaNOaWVEc+1UrVvNxbzq17YnxUzVXkxbO/1CKYvfLD281mma58PVjX5Id7D7t3q89yqKfLOrypqZQ6rnhzsLYn5krc0Z4qUw6dlZXsoqZypy7kdDFDI1F7cq+qcC/vhjK+pFNPFGWfLl8zrWt3cNT1stXLk8yQth4L+FrLjWNt+ieXahI8N1bpHLdV2dla+SoVfXOXc2/j7mm7Vyez5sjeo2ThaNFuOXP52Urdoro3aGtZadJcmWtrfatpLDb4UT1OjgQ06toYmvrXK5/wC6dbZpwlmnRRTHJD11LlXLFC3dost2ujbybsFHBGn2GsQwTerq01TzssW6I0RHM7RlFRR49HSQsx5d2NqY/YQ8etPheskP33NTf0eP3iftDLJkO5qb+jx+8T9oZZMh3NTf0eP3iftDLJkO5qb+jx+8T9oZZMh3NTf0eP3iftDLJkO5qb+jx+8T9oZZMj8uo6R6br6WF7ftXMaqf4B60+EyQ4FTl3L9YipV2K31SLsVJqWJ+PN7pqnuLtcaJnneZt0zpiHmLhpRpbdkVt001yrcmrypVWahmRffwqZacbfp6tyqOWdbHVhrVWmimeSGPLzwocNV+RyV+h2TY972z6G1U9A5e3vUbYVx7eJtW9tY2jRer5ZmfPlYK9m4arTbp5snmYQzP1bnCrmJJVocp3XJ80uOM9lu9VsVedsdc6rjT1EZh2joWd68fb01RVxxHRkalzYGEr0UzHFM9OVEjUXql544qir0n1UbUytRVp7Fmql6Pew2oi19EipivJ/8bDtncwu+saL1vlpnonW5d/dnhtV8k641KvtW9DNU9Db2yx6mZSq8vTVCu8G3Fd2ahrGt5XU1XEropMEVFVqO3m4pvNapL8FtGxjafWs1RPhjhjjhHcVg7uGqyXKcnmnlYlN1rAAAAAAAAAAAA2aOrtua3HhI00ic7ektU96onuX9zdquRiesyREKk3oo9XaFzx+rP6YWDsKrLg6PFl88ptkfdcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYZ4gNH7TrtpLm/Ta6dHDNeaVZLDcZEx7judP90o6hFRMURsiIj8NqsVzec39mY6rBYim7HBOePDHDH44WpjsLGJs1W54dHinganN/sV2yvfLxlq/UUltvdgrZ7dd7fKmD4ammkdFLG7ttc1ULptXKblEV0zliYyxxSrSuiaKppqzTGZ1B7eQAAAAAAAAB+mucxzXscrHsVHMe1cFRU2oqKgG0bwXa9N180QsN6uVWk+dcr7tizwxy/dH1lMxvR1apy4VUStkVcMN/fantSn9v7N+hxU0xHsVZ6eKeDknNxZFi7Jxv1ViJnrRmnXypaHEdMAAAAAAAAAAAAAAA/L3siY+SR7Y442q6SRyojWtRMVVVXkRANXnjV4gX8QGtN2ulrq1myJlHfsmRY0Vejkponr01aidmqkRXouGPR9G1falv7A2Z9DhoiY9urPVx+Dk8+VXe1sd9VfmY6sZo18qIh3HLAAAAAAAAAAC5/qtNAMXXviFzHRbG9PYtOmyt5/aXGuZj+DsVP9ci8xAt8dp6MLRPjq/wDzHTzJZu5gtN+rip6Z6OddIQFLAAAAAAAAAAAAAAAAAAAa3XWX/rUX/wCIbN+LlrbpfwKfzT50C3g/lzxQgCSVxAAAAAAAAABP7q0P1qLB8Q3n8XI1vb/Aq/NHndvd/wDlxxS2RSqU9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAp363P8AR3Q/4xvv3miJ1uR17vFT0otvP1bfHPQpELBRAAAAAAAAAAdnZP7ZtH9dp/vjTxc6s8T1R1obmBQ61gAAAAAAAAAAAAAAAAAAAAFMvWMcIFlpLNcOIPTO0R2uoopWv1Ny/RsRkM0cz0Yl0hiamDXte5EnRqYORelXBWvV883W25VNUYW9OXL1Zn/x1c3gRTb2y6Ypm/bjJ70dOvnUrE/RIAAAAAAAAAAJMcG1e628UWiVQ126smZqelVe1VtfTqnrpIcjb1PrYG7H/HzZ3Q2VVkxVvjbVZTayAAAAAAAAAAAAAAAAAAAAAAAAAAAAEYOLzXmn4fNFswZrpp40zdeEWzZEpXYKrrlUsduzq1eVtMxHTOx2Luo33SHY2Hs2cdiaaJ6sZ6uKNehztqY36WxNUdac0cfo0tWGoqKisqJ6urnkqaqqkdNU1MrlfJJI9Vc573OxVVcq4qqlxRERGSFczOWcsvifXwAAAAAAAAATB4I9AV171ts9BdaNajIuTdy+53c5uMUsEL07nonLyKtVKiMVMcejSRU9qcPeDaX0OFmaZ9urNT0zyR5cjqbIwX1V+InqxnnVy620C1qNRGtRGtamDWpsRETmQqBYjXZ6yDh9+q3VlNSMv0PQ5L1WkmrZWxNwjpL232VbCuGxqT4pO3HlV0iImDC0d1dp/U4f5VU+3Rm46eDm0c3hQXb2B+Te+ZT1avPw8+nnVxkqcEAAAAAAAAAALoeq01/w8N8PWY63l6e+6dOld/j3GhZj+EMan+uVeYgW+OzNGKojxVf/AJno5ks3cxumxVx09MdPOuiIClgAAAAAAAAAAAAAAAAAAAAAAAAAAGqTxd35cx8Tet9xWTpehzZX21r8cfY2x/cDUTtIkCIhc2w7fy8Daj/jE8+fpVttSv18Vcn/AJTHNmRyOq0AAAAAAAAAAAzzw5aB5n4i9S7bkPL7loKFre7c1ZiexXxW63RuRJJlTZvPcrkZGzFN56piqN3nJzdq7SowFiblWedER4Z/Glu4DBV4u7FFOjhnwQ2c9H9FNOtC8p02UdO7BDaaNjWLcrk5EfXXCdqYLPWVGCOkeuK4e5b7VjWtwQqPHbQvY25692rLPBHBHiiPx41hYXCW8NR6tuMnnnjZXNJsgAAAAAAAAAAAAAAAAAAAeG1G03yZqxlG65Hz5ZIL9l67xq2amlT2cUiIqMngkT2UUsari17VxQ2MLi7uFuRctzkqj8ZJ8TDfw9F+iaK4yxLVx4lNB73w7aq3rT+6Svr7YjW1+U745u73fa53OSGVUTYj2q10ciJsR7XYexwVbh2TtKnH2IuxmnRMeCfxnjxK62hgqsJdmidHBPhhgM6TSAAAAAAAAAADY66seodNwu2+NVxSkzNeImeoro5P8Lyq97oyY6fywnm70/8A8sccrCSMO4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFE3Wi6Bfm7m2z68Zeotyz50cy1Z1bE32MN2gj/AJvUOw5EqYGbq/uo8V9k8sbc/aXzLc4aqc9Oen8vDHJPn8SG7xYL1K4vU6JzTx+noVKk1RkAAAAAAAAAAJucBOvn1Ia322kvNb3NkbUfobDmnfduxQSvf/Ma13IidDK7dc5diRvkUj+8mzfrMLM0x7dGeOmOWPLEOvsXG/TX4ierVmnon8cDZnKkWCAAAAAAAAAAAAAAAV09Y5xCfVTpL9XmXq7oc76rRTUKuidhLR2Vvsa6fZtas28kDMeVHSOauLCU7q7M+qxHzao9ijPx1cEcmnm8Lhbex3yLPy6etV5uHU10i0kEAAAAAAAAAADIukumt+1g1GyjpvltmN0zVXspUqFarmU0CYvqKmRE27kETXSO7Tdm01cbi6MJZqu16KY5/BHLOZnw2HqxFym3TpmW2lkTJdh05yblrIuWKXuOwZVt8FutkOzeWOFqN35FRE3nvXF73e6cqrzlKYnEV4i5Vcr01TllZlmzTZoiinREZHrDCygAAAAAAAAAAAAAAAAAA1uusv8A1qL/APENm/Fy1t0v4FP5p86Bbwfy54oQBJK4gAAAAAAAAAn91aH61Fg+Ibz+Lka3t/gVfmjzu3u//LjilsilUp6AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABTv1uf6O6H/GN9+80ROtyOvd4qelFt5+rb456FIhYKIAAAAAAAAADs7J/bNo/rtP8AfGni51Z4nqjrQ3MCh1rAAAAAAAAAAAAAAAAAAAAAOpv9jtmZ7Fect3ulbW2bMFDUW27Ub9rZaaqjdFKxe05jlQ92rlVuuK6c0xOWOOHmuiK6ZpnRMZGoBqBlKryDnrOWR69yvrMn3uvs1RIqYb7qGofAr07TtzFPVLxw1+L9qm5GiqInnjKq6/am1cqongmY5nkTOxAAAAAAAAADOvDBKsPEfoQ9FVMc+5fZin7u4Qs/+pztsRlwV78lXmlubOnJibf5o87bOKVWYAAAAAAAAAAAAAAAAAAAAAAAAAAAA1nuPjiC+vDWmtt1kru6chabLNZMsLG7GKpqEeiV9c3DYvTSsRjFRcFjjYvOpbW7ezPo8NE1R7deefF4I5PPMq/21jvqb+SOrTmjpn8cCDpIXHAAAAAAAAAH9RFcqNaiqqrgiJyqoGz7wP6ApoLolaKS7UaU+es7dHfc7Oe3CWGWVn82onc6dzRKjVTk6RZFT2xUO8O0/rcVM0z7FOanpnlnyZFh7HwX0tiInrVZ51cnnypinCdVg3iN0XtevmkWa9Oq/ooa+ug7ryvc5Ex7jutMiupJscFVG72LH4bVjc9Oc6OysfVgcRTdjRGmPDTOn8eFp4/CRirNVudPB4p4GqFe7LdMuXm7ZevlFJbb1Y6yegu1vmTCSCpppFiljenZa5qopc9u5TcpiqmcsTGWOKVa10TRVNM5ph1Z7eQAAAAAAAAB6rI+cr9p5nDLeeMsVa0V/wAq3CC42ufbu9JA9Hbj0RU3mPTFr2+6aqouxTDiLFF+3VbrjLTVGSWSzdqtVxXTpicrbR0h1NsOsem2UdScuPTwbmmgZUupd5HPpaluMdTSyKnuoJmujXsqmKbClcdhK8JeqtV6aZ5/BPLCzMLiKcRapuU6Jj8QyQajYAAAAAAAAAAAAAAAAAAAAAAAAABp56m3Pw3qRqDed7f8L5lu1bvcuPdFZLJj/lF54Sj1LNFPgpiPIq3EVetdqnwzPneINhhAAAAAAAAAADZL6uvRan0u0DtWaa6kSLNmq/R5guk7m4SNt7kVLZAi8u70Lum/fSu7RVO9O0JxOLmiJ9m3mjj/AKp583In2wsJFnDxVPWrz8nBr5U+CNO0AAAAAAAAAAAAAAAAAAAAAAVddahppTZg0by3qXT06eFtPL1HS1dSiYL4Mu+EL2uVOXCpZBu48m87skw3Nxc28TVZnRXHlp9GVHd48PFdmLnDTPkn05FAJZaEgAAAAAAAAABsX9V81U4Y8VdvI7Nt2VqdhNymTD9jEq3e/wDnf9sdKd7u/wAX/unoWKEWd0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMbav6ZWLWPTbN+m2YmoluzTQPpmVW6jnUtS3CSmqmIvuoJmskTsqmC7DbwOLrwl6m7Rppnnjhjlhr4rD04i1Vbq0TH4lqW52yffdPs3ZkyRmakWiv+VrhPbbpT7d1JYHqxXMVUTeY9E3mu5HNVFTYpdWHv0X7dNyicsVRlhWd61VarmirTE5HlzMxgAAAAAAAAABs2cB2vn146IWyC8VvdOetPOisObN92Ms7I2fzKtdzr08LcHOXlkZIVJvJs36PFT6sexXnjpjknyTCwdjY36mxGXrU5p6J5fOmuR91wAAAAAAAAAAAAOqvl7tWWrLdsxX2uitllsVHPcLtcZlwjgpqaNZZZHL2Gtaqqe7duq5VFNMZZmckccvNdcUUzVVmiGqHxG603XX3V3NWotw6SGgrZu5Mr2yRce4rVTKraWDBFVEduqr34bFkc9ecufZWApwOHptRpjTPhqnT6PErXH4ucVem5Ojg8UcDBp0WmAAAAAAAAAAF63VdaAfm/lW8a9Ziot275xbJasjslb7KG1QyYVNS1F5FqJmbjV5dyPFPYyFdb4bT+ZcjDUTmpz1fm4I5I8/iTHd3BepRN6rTOaOL0rbSEpOAAAAAAAAAAAAAAAAAAABrddZf+tRf/AIhs34uWtul/Ap/NPnQLeD+XPFCAJJXEAAAAAAAAAE/urQ/WosHxDefxcjW9v8Cr80ed293/AOXHFLZFKpT0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACnfrc/wBHdD/jG+/eaInW5HXu8VPSi28/Vt8c9CkQsFEAAAAAAAAAB2dk/tm0f12n++NPFzqzxPVHWhuYFDrWAAAAAAAAAAAAAAAAAAAAAANXbjwtEVk4tNY6SFiMjqK+guGCciur7ZSVb19d8q4lwbuV+vs+1PimOaZhXe2afVxdceOPLESiKdtywAAAAAAAABnThhi6XiP0HbtXDP2Xn7P3Fxgd/wDQ5215yYK9+SrzS3Nnfybf5o87bPKVWYAAAAAAAAAAAAAAAAAAAAAAAAAABBrj64gfqQ0WrbXY67ubPupSTWTLSxuwlpqZWIlfXNwwVOijejGKi4pJIx3MpIt2tmfWYmJqj2KM8+OeCOXzRLj7ax301jJHWqzR0y1oS2VfgAAAAAAAAABPzq89APri1mp81X2i6fI2ljoLxdEkbjFVXJXKtvpFx2Km+xZnptRWx7q+3QjW9G0/pMN6lM+3XmjxR/VPRyu3sPBfUXvWq6tOfl4I6WyOVSnoAAon60Lh9/NzNVq16y3Q7lmzk9lszxHE32MF2ij/AJvUqiciVMLN1y8m/Hiq70hY26G0/mW5w1c56c9P5eGOSfJPiQ3eLA+pXF6nROaeP0qlCaoyAAAAAAAAAAFs3Vea/wD5tZvu2hGYq3csudnvueS3yu9jDd4Y/u9O1V2IlTCzFP3caIibzyFb4bM+ZbjE0RnpzVfl4J5J8k+JJt3cb6lc2atFWeOP0r3SuUyAAAAAAAAAAAAAAAAAAAAAAAAD8vcjGue5cGsRVcvaQDTGq6h9XVVNU/29TK+V/qvcrl/wl9UxkjIqiZyzlcc+vgAAAAAAAAA9dkDKtRnrPWTMk0iubU5vvlvs0D2pirXV1THTo71t/EwYm9Fm1Xcn+mJnmjKy2Lc3blNEcMxHO3CLbbqK0W6gtNup20lvtlNFSUFKzY2OGFiRxsb2mtaiIUbXVNczVOmVpU0xTERGiHNPL6AAAAAAAAAAAAAAAAAAAAAARc41rVFeOFfWukmZvshsHdyJhj7OhqIati+s6JFOxsCv1Mfan/lk54mHO2vT62EuR4vNnar5cauAAAAAAAAAAA2OurIp1h4XbfIqYJV5lvErV7KI+OP/AAsKr3unLjp/LCebvR//ACxxysJIw7gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKVOtM0C6GosfEJl2i+51XQ2LUNIm8kjU3bfWvw+2anc73L2IU5yf7nbSyxOFrnx0/wD6jp50S3jwWeL9PFV0T0cymcniKAAAAAAAAAABLngp16doHrfY7tc6tafJObN2w54Y52EcdLUPToqxyciLSy7sirhjub7U9scTb+zfrsLNMR7dOenj8HLHlyOnsjG/S34merOadfI2iWua5rXNcjmuRFa5FxRUXkVFKfWK/oAAAAAAAAAAAAVG9aHxCeAMt2vQHLVdu3bNjI7rnySJ3sobZG/GlpHKnItRKzfcnLuMRFxbITbdDZnr1zia4zU5qePhnkjyz4kY3ix3q0xYp0znni4I5fxpUXFiocAAAAAAAAAAGZuH7R67a7atZR02tfSQw3iqSW/XKNMe47ZT/dKyoXFMEVsaKjMdjnq1vujQ2njqcFh6rs8EZo8M8EfjgbeBws4m9Tbjh0+KOFtjZfsNpytYrNlqwUUdtseX6KC3Wi3xJgyGmpo2xRRt7TWtRClrtyq5XNdU5Zmcs8crLooiimKac0RmdueHoAAAAAAAAAAAAAAAAAAADW66y/8AWov/AMQ2b8XLW3S/gU/mnzoFvB/LnihAEkriAAAAAAAAACf3VofrUWD4hvP4uRre3+BV+aPO7e7/APLjilsilUp6AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABTv1uf6O6H/GN9+80ROtyOvd4qelFt5+rb456FIhYKIAAAAAAAAADs7J/bNo/rtP98aeLnVnieqOtDcwKHWsAAAAAAAAAAAAAAAAAAAAAAayfWISNfxe6qtbhjFHYWOVOz4DoHbfslt7rx/8A51v/ALv/AClX23f5lfJ5oQoJA5AAAAAAAAAAkjwf0PhHie0Pp8N7o810VVh/VVWfH1ujOVtyr1cDdn/jPlzN/ZdOXFW/zQ2simVkgAAAAAAAAAAAAAAAAAAAAAAAAA+NTU09HT1FZVzx0tJSxvmqamVyMjjjYiue97lwREaiYqqn2ImZyRpfJmIjLLVg4uteajiD1pzDm2nnkXKVpVbPkWkdiiMttM927MrF5HVD1dM7Ham8jeRqFx7E2bGBw1NE9ac9XHOrQrnamN+qvzV/TGaOL06UYTrucAAAAAAAAAOTR0dVcKuloKGnkrK6umZT0dJC1XySyyuRjGMamKq5zlRERD5VVFMZZ0Q+xEzOSG1Vwo6F0vD7ovlrJL4o/wA5atvhbPFZHgvTXWqa1Zmo5PbNga1sLF52sReVVKa21tGcdiarn9Oin8sa9PKsjZuDjC2Io4dM8f4zJIHKb4AAx9qrpvl/V3TzNmnGZ4t+0ZqoJKSSZGo59PNsfT1MaLs34JWtkbjztQ2sFi68Lepu0aaZ/wCscsZmDE4em/bqt1aJhqX6hZFv+mWd80ZAzTTdy37Klwlt9wYmO49Y19hLGqomLJWK17F52uRecurC4mjEWqbtGiqMqs79mqzXNFWmJeNM7EAAAAAAAAAO0sd6uuW71acxWOtktt6sVZBcLTcIVwkgqaaRssUjV7LXtRUPFy3TcpmmqMsTGSeKXqiuaKoqjNMNsLh31ltWvWkWUtR7d0cNZcqfufMltjXHuO602DKuDBVVURH+yZjtWNzHc5S+1MBVgsRVanRGifDTwT+OFZeBxcYqzTcjh0+KeFm057bAAAAAAAAAAAAAAAAAAAAAAAHDuDlZQVz2rg5tPKrV7aNU9U6YfKtDTIL5VQAAAAAAAAAAEv8AgLy83MfFhpHTSx78FtrK67SrzNW32+pqYl/lWMQ4e8l35ez7k+GIjnmI8zqbFo9fF0eLLPNEtoQqBYgAAAAAAAAAAAAAAAAAAAAAAA6LM+WbFnPL15ypma3su2Xsw0ktDebZI57Gz08zd2SNXRua5MUXlRUUyWb1dmuK6JyVROWJeLlum5TNNUZYnSjL5iXCZ5Grd+G3Lvs6/ePaHazzRqc/7NhOzjnnWeYlwmeRq3fhty77HePaHazzRqPs2E7OOedZ5iXCZ5Grd+G3Lvsd49odrPNGo+zYTs4551nmJcJnkat34bcu+x3j2h2s80aj7NhOzjnnWeYlwmeRq3fhty77HePaHazzRqPs2E7OOedZ5iXCZ5Grd+G3Lvsd49odrPNGo+zYTs4551nmJcJnkat34bcu+x3j2h2s80aj7NhOzjnnWeYlwmeRq3fhty77HePaHazzRqPs2E7OOedZ5iXCZ5Grd+G3Lvsd49odrPNGo+zYTs4551nmJcJnkat34bcu+x3j2h2s80aj7NhOzjnnWkFp9p1krSvLNLk7IFhiy3lqilmnprVDJLKxslQ9ZJXb0z5HrvOXHa45mJxV3E1/MuzlqnhbtixRYp9SiMkPamuzAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8fqDkawal5JzRkHNFN3VYc12+a3XBiYb7Wyt9jLGq44Pjdg9i8zkReYz4XEV4e7Tdo00zlYr9mm9RNFWiYyNSrVLTq/aS6hZt05zNHuXjKdwkoppUarWTxpg6CojRdu5PE5sjMfcuQuvB4qjFWabtGiqMuuOScys8TYqsXKrdWmJeBNlgAAAAAAAAAADZG6vDXz639FabKt7renztpUkNmufSOxlqbarVS3VS47V+5sWFy7VV0e8vtkKp3o2b9LifXpj2K88eKf6o6eVPdhY36ix6s9anNycE9CfpGnbAAAAAAAAAADw2peoOX9KshZq1DzTP0FkypQSVtWiKiPlc32MUEeOxZJpHNjYnO5yGxhMLXibtNqjTVOT08mlhxF+mxbm5VoiGphqbqHmDVfP2atRM0T9Ne8118lbUtRVVkLFwbDTx47ejhja2NifatQurCYWjC2abVGimMnp5dKs8Rfqv3JuVaZl4Q2WEAAAAAAAAAANgzqztAfq+0xqtXcwUXRZr1SjYtmSRuElNYYnb0GGO1O63p0y8ysSJSst7dp/Pv/Ipn2aNPjq4ebRx5U33fwXyrXzautVo/L6dPMs3IikIAAAAAAAAAAAAAAAAAAAADW66y/wDWov8A8Q2b8XLW3S/gU/mnzoFvB/LnihAEkriAAAAAAAAADL+hutWadAM/0eo2TqC1XK90VJU0UVLeYp5qRY6tm49XMp56d+KJyez9ZTR2js+3jrM2rkzETMTmyZc3HEtrB4uvC3PmUREz4/xCbXpXeIjxM05+Trv87kf7mYP3rnPT+11+8uJ92jmnWeld4iPEzTn5Ou/zuO5mD965z0/tO8uJ92jmnWeld4iPEzTn5Ou/zuO5mD965z0/tO8uJ92jmnWeld4iPEzTn5Ou/wA7juZg/euc9P7TvLifdo5p1npXeIjxM05+Trv87juZg/euc9P7TvLifdo5p1npXeIjxM05+Trv87juZg/euc9P7TvLifdo5p1npXeIjxM05+Trv87juZg/euc9P7TvLifdo5p1npXeIjxM05+Trv8AO47mYP3rnPT+07y4n3aOadZ6V3iI8TNOfk67/O47mYP3rnPT+07y4n3aOadZ6V3iI8TNOfk67/O47mYP3rnPT+07y4n3aOadZ6V3iI8TNOfk67/O47mYP3rnPT+07y4n3aOadZ6V3iI8TNOfk67/ADuO5mD965z0/tO8uJ92jmnWeld4iPEzTn5Ou/zuO5mD965z0/tO8uJ92jmnWeld4iPEzTn5Ou/zuO5mD965z0/tO8uJ92jmnWeld4iPEzTn5Ou/zuO5mD965z0/tO8uJ92jmnWeld4iPEzTn5Ou/wA7juZg/euc9P7TvLifdo5p1npXeIjxM05+Trv87juZg/euc9P7TvLifdo5p1npXeIjxM05+Trv87juZg/euc9P7TvLifdo5p1npXeIjxM05+Trv87juZg/euc9P7TvLifdo5p1npXeIjxM05+Trv8AO47mYP3rnPT+07y4n3aOadZ6V3iI8TNOfk67/O47mYP3rnPT+07y4n3aOadZ6V3iI8TNOfk67/O47mYP3rnPT+07y4n3aOadZ6V3iI8TNOfk67/O47mYP3rnPT+07y4n3aOadZ6V3iI8TNOfk67/ADuO5mD965z0/tO8uJ92jmnW7C09anxCV91tlDNk7TxsNbVwwSuZb7sjkbI9GqrVW7KmOC7Nh4r3NwdNMz61eaPDT+16p3kxEzEerTzTrX9FapqAAAAAAAAAAAAAAAAAACnfrc/0d0P+Mb795oidbkde7xU9KLbz9W3xz0KRCwUQAAAAAAAAAHZ2T+2bR/Xaf7408XOrPE9UdaG5gUOtYAAAAAAAAAAAAAAAAAAAAAA1YeNi8sv3FTrVXRu3mwX1Lcq8vsrbTQ0Tk9ZYFQuPd+36mAtR4svPMz0q42vX62LuT48nNmRaOw5wAAAAAAAAAmj1fFmdeOLXS3Fm9BavC1wqF+1SC1VfRr/KuYhwN57nqbPuePJH6odbYdHrYujxZZ8ktnIqNYQAAAAAAAAAAAAAAAAAAAAAAAAAKz+ss4gvq50vg0my9XdFm7VOKSO6rE7CSlsLF3Kly4bU7qd9wTHYrOl50Jbunsz6i/8APqj2aNHjq4ObTzI/vBjvk2vlU9ar/wAfTo52vYWcg4AAAAAAAAAAWcdWdoB9YOptVq7mCi6XKmlsjFsySNxjqb/I3egwx2L3IxemXnR6xL2SI727T+RY+RTPtV6fFT6dHFlSHd/BfNu/Nq6tOj83o08zYLKyTcAAAAFO3WkcPvd9stHEJluixq7QkNl1DZE3a+le7coK12HPG93QPVcVVHRczCdbn7T9WqcLXOac9PHwx086K7x4HLEX6eDNV0T0cykUsFEQAAAAAAAAAAss6tTX/wCrfVSbSvMFb0OUdVZI4LcsjsI6W/Rpu0rkx2J3U37guCYuf0XM0ie9mzPqLHzqY9qjy08PNp50g3fxvybvy6urV/5cHPo5mwuVgnAAAAAAAAAAAAAAAAAAAAAAAA4Vy/s6v/q0v8BT1Rph8q0S0yS+VUAAAAAAAAAABYl1YNA2s4no6hzUVbVlS7VTFXmVzqenxT1plIvvfVkwOTw1R0z0O7u7TlxXFTLYxKsTsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVB9aToF4XsNk1/y7Rb1wy2kVlz62Ju2Sglkwoqt2HPDM9YnLtVUkZ7lhONz9pepXOGqnNOenj4Y5Yz8k+FF948F61MX6dMZp4uCVHBYaHgAAAAAAAAABJnhI10n4f9a8tZxnnkbla4u8D55pm4qj7XVuakkm6nK6ne1szUTaqs3eRynJ23s6MdhqrcdaM9PHGvQ6GzMZ9Lfivg0TxejS2pKeogq6eCqpZmVNLUxtlpqiJyPZJG9Ec17XJiioqLiioU3MTE5JWPE5c8PsfH0AAAAAAAAAUY9aHxCeHMxWvQDLVdvWrKz4rrn2SJ3sZrlIzGkpHKnKlPE/pHJtTfe3HB0ZYm5+zPUonE1xnqzU8XDPLo5PGh28WO9aqLFOiM88fBHJ+NCoom6MAAAAAAAAAABI7hT0Mq+IHWjLOSHRSJlumf4VzvWR4p0NppHNWZu8ntXTOVsLF5nPReRFOVtnaMYHDVXP6tFP5p1aeRv7Nwc4q/FHBpni/GZtWUdHSW6jpbfQU0dHQ0MLKeipIWoyOKKJqMYxjUwRGtaiIiIU1VVNUzM6ZWREREZIck+PoAAAAAAAAAAAAAAAAAAAADW66y/wDWov8A8Q2b8XLW3S/gU/mnzoFvB/LnihAEkriAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB3WW/0isPxjS/fmmO71KuKXu31o425SUQtUAAAAAAAAAAAAAAAAAAFO/W5/o7of8Y337zRE63I693ip6UW3n6tvjnoUiFgogAAAAAAAAAOzsn9s2j+u0/3xp4udWeJ6o60NzAodawAAAAAAAAAAAAAAAAAAAADqr7ebdlyyXjMN3qG0lpsNDUXG6VTtjYqeljdLK9ceZrGqp7t25uVRTTpmckcrzXXFFM1TojO09s5Zlqs55vzXnCuRW1ua7xXXisaq72EtdUPqHpjz+yepedi1Fm3TbjRTERzRkVbduTcrmueGZnneaMrGAAAAAAAAALQOqnyu65665wzPJHvU2VsozxRyYe1qrhV07I9vbijmIhvne9XC00e9V5IienIkW7dv1r9VXgp88x6WwGVmmwAAAAAAAAAAAAAAAAAAAAAAAAdNmPMFnynYL1mjMFdHbbFl6hnuN3uEq4MhpqaNZZXr6jWrsQyWrVV2uKKYyzM5I45eLldNumaqs0RGVqda/wCsN4121YzbqTdukhivFSsditr3Y9xWyD7nSUyYLhi2NEV6psc9XO90XRszA04LD02qeDTPhnhn8cCtcbiqsTequTw6PFHAw0b7UAAAAAAAAAHc5esF3zXfrLliwUUlyvmYa2C3Wi3xJi+apqZEiiYnquciGO7dptUTXVOSIjLPFD3bomuqKac8zmbY2gGj9o0J0myjptaujmls1Kkl9uTEw7tuU/3SsqFx24OkVUYi7WsRrfclL7Tx1WNxFV2rhnNHgjgj8cKysFhYw1mm3HBp8c8LMhoNsAAAAHQ5oyzZc55bvuUsx0TLlYcyUE9tu9C/kkp6mNY5G48qLguxU2ou1Npks3qrNcV0TkmJyxyPFy3TcpmmrPExkam+u2kd60N1Uzbpre9+V1iq1W03Fzd1K23zfdKSpbhs+6RKm8ie1dvN5WqXTs7HU42xTdp4Yzx4J4YVpjMLVhrtVueDyxwMRG81QAAAAAAAAB96apqKOogq6SeSlqqWRk1NUxOVkkcjFRzHsc3BUVqpiiofJiJjJOh9iZicsNqLhI12p+ILRXLmb55o1zXbG+B89UrMEVl0pWNR8u6nI2oYrZmomxN7d5WqU5tvZ04HE1UR1Zz08U6tCx9mYyMVYivhjNPH6dKTRyHQAAAAAAAAAAAAAAAAAAAAAAOFcv7Or/6tL/AU9UaYfKtEtMkvlVAAAAAAAAAAAWY9VQ1ruI3M6qmKs0/uSt7S+ErWn+BSJb5fw6fzx5qkg3b/AJM/lnzw2EisU4AAAAAAAAAEFuOXicz7wzZayFech2iwXaqzTc6uiuEd+p6qeNkcELJGrElLVUqoqq7biq+oSLd3ZFraNddNyao9WInNk6Ylx9sbQuYOmmaIics8OXomFb3pXeIjxM05+Trv87kr7mYP3rnPT+1wO8uJ92jmnWeld4iPEzTn5Ou/zuO5mD965z0/tO8uJ92jmnWeld4iPEzTn5Ou/wA7juZg/euc9P7TvLifdo5p1npXeIjxM05+Trv87juZg/euc9P7TvLifdo5p1npXeIjxM05+Trv87juZg/euc9P7TvLifdo5p1npXeIjxM05+Trv87juZg/euc9P7TvLifdo5p1npXeIjxM05+Trv8AO47mYP3rnPT+07y4n3aOadZ6V3iI8TNOfk67/O47mYP3rnPT+07y4n3aOadZ6V3iI8TNOfk67/O47mYP3rnPT+07y4n3aOadZ6V3iI8TNOfk67/O47mYP3rnPT+07y4n3aOadZ6V3iI8TNOfk67/ADuO5mD965z0/tO8uJ92jmnWeld4iPEzTn5Ou/zuO5mD965z0/tO8uJ92jmnWeld4iPEzTn5Ou/zuO5mD965z0/tO8uJ92jmnWeld4iPEzTn5Ou/zuO5mD965z0/tO8uJ92jmnWeld4iPEzTn5Ou/wA7juZg/euc9P7TvLifdo5p1npXeIjxM05+Trv87juZg/euc9P7TvLifdo5p1npXeIjxM05+Trv87juZg/euc9P7TvLifdo5p1npXeIjxM05+Trv87juZg/euc9P7TvLifdo5p1npXeIjxM05+Trv8AO47mYP3rnPT+07y4n3aOadZ6V3iI8TNOfk67/O47mYP3rnPT+07y4n3aOadZ6V3iI8TNOfk67/O47mYP3rnPT+07y4n3aOadZ6V3iI8TNOfk67/O47mYP3rnPT+07y4n3aOadaYHBRxu6rcSGq96yJnjL+U7VaLdlarvcFTYqSugqVqIKyip2tc6pr6pm4ralyqiMxxRNvKi8PeDd7D7Pw8XLdVUzNURnmMmiZ4IjwOpsja93F3porimIiMubL4Y8c+FaUQ5IwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOizRlqzZyy5fcp5iomXGw5koKi23ehfyS09TGscjceZcHbFTai7UMlm7VariuickxOWOR4uW6blM01aJjI1MtctJrzohqnm/TW978smXq1zbZcHN3UrKCVOkpKlvN90ic1VRPau3m8rVLq2djacZYpu08MZ/FPDHOrPGYarDXarc8HljgYmN1rAAAAAAAAAABsRdWxr59Zmkb9NL9W9Nm/SdsVHTLI7GSpscmKUUiY8vc6tWBcPatbHjtcVfvXs36fEfOpj2bmfiq4efTzp1sDG/Os/Lq61Hm4ObRzLISKO8AAAAAAAAYP4i9aLToHpHmrUa49HNW0EHcuWbZIuHdt1qUVtJBgioqt3vZvw2pG17uY6Gy8BVjsRTajROmfBTGmfxwtPH4uMLZm5PJ454GqFfr5dsz3u75jv1dJc73fqye4Xe4zLjJPU1MiyyyOXsuc5VLot26bdMUUxkiIyRxQrWuua6pqqzzOd1J7eQAAAAAAAAAA2Quru0B+qHRmDN99ougzvqq2C73BJG4S0tsRqrbqVcdqKrHrM9Ni70m672iFVb0bT+qxPqUz7FGbjn+qejk8ae7CwXyLPrVdarPycEdKwEjLtgAAAAAAAAAAAAAAAAAAAAAGt11l/61F/+IbN+LlrbpfwKfzT50C3g/lzxQgCSVxAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA7rLf6RWH4xpfvzTHd6lXFL3b60cbcpKIWqAAAAAAAAAAAAAAAAAACnfrc/0d0P+Mb795oidbkde7xU9KLbz9W3xz0KRCwUQAAAAAAAAAHZ2T+2bR/Xaf7408XOrPE9UdaG5gUOtYAAAAAAAAAAAAAAAAAAAABVb1lHE1aspZGrNB8qXKOpzpnWONM5LTvRy2y0KqSLDKqe1lq8EbuLt6LeVUTfYqzLdPZFV27GJrj2Ker46tUeflRvb+0It2/k0z7VWnxR6fMoOLJQsAAAAAAAAAAL7eqiyG+zaT5/1AqIVimzvmCK30T3J7ejs0K7r2r2FmqpW+q0rbfPE+viKLUf005eWr0RCabtWfVs1V+9Pm/6ytWIakgAAAAAAAAAAAAAAAAAAAAAAAAVB9aNxBeB7DaOH/Lddu3HMjYrxn98TtsdvjfvUdG5U5FnlZ0rk2KjWM9zITjc/Znr1zia4zRmp4+GeSM3L4kX3ix3q0xYp0znni4IUcFhoeAAAAAAAAAAFunVc6AeHcy3jX3MdFvWvKjpLRkVkrfYy3OWPCrqmovKlPC/o2ryb0jsPZRkI3w2n6lEYaic9Weri4I5Z83jSfd3BetVN+rRGaOPhnkXnldpiAAAAAAArE6zHh9+sDTWl1gy7Q9LmvS+FyXxsTcZKqwPdvzY4bV7keqzJzIx0q9gl26W0/kX/AJFU+zXo8VXp0ceRHt4MD82182nrU6fy+jTztfcs1CAAAAAAAAAAAnj1fev/ANTGtNJYL5W9z5F1QWCy31ZHYRU1bvKlvrFx2IjJHrG9VXBGSOcvtUI5vNsz6vDTVTHt0Z48cf1R08cOzsTG/T3/AFZ6tWaePglspFTp+AAAAAAAAAAAAAAAAAAAAAAcK5f2dX/1aX+Ap6o0w+VaJaZJfKqAAAAAAAAAAAsz6qf9YzNX/j65f7ztREt8/wCHT+ePNUkG7f8AJn8s+eGwgVinAAAAAAAAAAqL6279BNHvj65fisZN9yf8t38sedGN5/8AHRxz5lGBYiHAAAAAAAAAAAAAAAAAAAAAAAABZn1U/wCsZmr/AMfXL/edqIlvn/Dp/PHmqSDdv+TP5Z88NhArFOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFWPWeaA/nnp/bta8vUXSZj04Z3LmdsTcX1FinkxSRcMVXuSZ+/2mPkcvtSY7obS+TenD1T7Nej83pjyxCObw4L5luL1OmnT+X0a1BRZSFAAAAAAAAAABnvhn1qr9AtY8p6hU7pH2mnm7gzbQR8tVaKpUZVR7vunMRElYn27GnN2ts+MdhqrU6dMeKqNGrilu7Pxc4W9TXwcPFwtru2XKgvNtt93tVXFX2u600VZba6FyOinp52JJFIxycrXNciovYKYromiqaaoyTGaVlU1RVETGiXNPL6AAAAAAA11use4hPrU1YTTjL1d02SdKZZqJ7onYx1l7d7Gtm2bHJBh0DMeRWyKi4PLR3V2Z9Nh/m1R7defip4OfTzeBBdvY75975dPVp8/DqVykqcEAAAAAAAAAAJe8E2gTtfNbbLbLpRrUZGyhuX3PDnNxjkp4Hp0NG5eRVqpcGKmOPR9I5PanD3g2l9DhZmJ9urNTr5I8uR1NkYL6q/ET1Yzzq5W0K1rWta1rUa1qIjWomCIiciIhUCxH9AAAAAAAAAAAAAAAAAAAAAAAa3XWX/AK1F/wDiGzfi5a26X8Cn80+dAt4P5c8UIAklcQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAO6y3+kVh+MaX780x3epVxS92+tHG3KSiFqgAAAAAAAAAAAAAAAAAAp363P8AR3Q/4xvv3miJ1uR17vFT0otvP1bfHPQpELBRAAAAAAAAAAc+1zR01zt1RM7chgqoZJX4KuDWvRVXBMV5EPNcZaZjxPtM5Jhsx+kL4PvK9+QMwfNpUvdjaPZfqp/csH75g/f8lWo9IXwfeV78gZg+bR3Y2j2X6qf3H3zB+/5KtR6Qvg+8r35AzB82juxtHsv1U/uPvmD9/wAlWo9IXwfeV78gZg+bR3Y2j2X6qf3H3zB+/wCSrUekL4PvK9+QMwfNo7sbR7L9VP7j75g/f8lWo9IXwfeV78gZg+bR3Y2j2X6qf3H3zB+/5KtR6Qvg+8r35AzB82juxtHsv1U/uPvmD9/yVaj0hfB95XvyBmD5tHdjaPZfqp/cffMH7/kq1HpC+D7yvfkDMHzaO7G0ey/VT+4++YP3/JVqPSF8H3le/IGYPm0d2No9l+qn9x98wfv+SrUekL4PvK9+QMwfNo7sbR7L9VP7j75g/f8AJVqPSF8H3le/IGYPm0d2No9l+qn9x98wfv8Akq1HpC+D7yvfkDMHzaO7G0ey/VT+4++YP3/JVqPSF8H3le/IGYPm0d2No9l+qn9x98wfv+SrUekL4PvK9+QMwfNo7sbR7L9VP7j75g/f8lWo9IXwfeV78gZg+bR3Y2j2X6qf3H3zB+/5KtT5y9YfwgxtxZqu+dftWWC+ov8Al29qCN19o9n+qnWTt3B+/wCSrU8DmPrPuGSzRSOtMmaM2zJikUVutXQI5ebF1fLS4J6yr2jZtboY6vrerTxzqysFzeLC06Ms8Ua8iD2sfWlal5to6yy6T5YptNaCpY6J+YaqVLjd1auzehxYyCBVRcPaSOTla9FJFgNzrFqYqv1evPg0U658jj4reO7cjJaj1Y8OmdUeVV7crlcbxcK263evqLpdLjM+puFyq5XzTzzSKrnySyPVXPc5VxVVXFSX0URREU0xkiOBHaqpqnLM5Zlwj0+AAAAAAAAADk0dHVXGspLfQU8lXXV00dPR0kTVdJLLK5GMYxqbVVzlREQ+VVRTEzOiH2ImZyQ23NA9M4dHdHNPNN42sSoyzZ4Yrs+PDckuE2NRXSNVOZ9RJI5O0pSe0sXOLxNd33pzcWiPIs3BYf6ezTb8EeXh8rLxotoAAAAAAAAAAAAAAAAAAAAAAAeG1L1By/pVkLNWoeaJ+gsmU7fLXVaIqI+VzfYxQR47Fkmkc2Nic7nIbGEwteJu02qNNU5PTyaWHEX6bFublWiIal2peoOYNVc+5q1DzRP097zZcJa6rRFVWRNd7GKCPHakcMbWxsTma1C68JhaMNaptUaKYyenl0qzxF+q/cm5VpmXhjYYQAAAAAAAAB7DT/I1/wBS87ZYyDlem7qv2a7hDb7fGuO610rvZSyKmODI24vevM1FXmMGKxFGHtVXa9FMZWWxZqvVxRTpmcjbT0r04sGkenmUtOMsx7loypb46OKZWo19RLtfPUyImzfnlc6R2HO5SlMZiq8Vequ16apy6o5IzLMw1imxbpt06IhkA1mcAAAAAABx6ukpa+kqqGup46uirYnwVlJM1HxyxSNVr2Pa7FFa5qqiop9pqmmcsaYfJiJjJLVb4s9CKrh81nzFk2KKT81rg7wvkasfi7pLXVPd0cavX2z4HI6FyrtVW73I5C5Ni7SjHYam5/VGarjjXpVxtPBThb80cGmOL0aEaDrOeAAAAAAAAAAGzrwL6/8A176JWt14re6c+ZC6KxZyR7sZZ1jZ/NK53OvdMTfZLzyNkw2IVFvFsz6LFT6sexVnp6Y5J8mRYWx8b9TYjL1qc09E8vnypnHBdYAAAAAAAAAAAAAAAAAAAABwrl/Z1f8A1aX+Ap6o0w+VaJaZJfKqAAAAAAAAAAAsz6qf9YzNX/j65f7ztREt8/4dP5481SQbt/yZ/LPnhsIFYpwAAAAAAAAAKi+tu/QTR74+uX4rGTfcn/Ld/LHnRjef/HRxz5lGBYiHAAAAAAAAAAAAAAAAAAAAAAAABZn1U/6xmav/AB9cv952oiW+f8On88eapIN2/wCTP5Z88NhArFOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAulrt97tlxs12o4rharvSzUVzoJm70c9PUMWOWJ7edr2uVFTsHqiuaKoqpnJMZ4eaqYqiYnRLVE4ltFbhoFrFmzTypbLJaqabu7KVwl5aq01Sq6lkx53NRFieqf5xji59k7QjHYam7GnRPiqjTr4lbbQwk4W9Vb4ODi4GBjpNIAAAAAAAAAAL/erF18/PfTm4aM5grekzLpoxJ8urI7F9RYp34NamOKr3JM7o17DHxNTkK03u2b8m9F+mPZr0/m9MeXKm272N+Zbm1Vpp0fl9GpaMQ9IgAAAAAIj8afEBHw/6LXi7WyrbDnnNm/ZMixIqdIyqmYvS1iJ2KWPF6Lhhv8ARtX2x29gbM+uxMUzHsU56uLwcvmyuZtbHfS2JmOtOaNfI1d5JHyvfLK90ksjldJI5VVznKuKqqrtVVUuCIyK6fgAAAAAAAAAA/qIqrgm1V5EA2d+BnQH6iNErVFd6LubPee+jvuc1e3CWF0rP5rQu507midg5OaR0mGxSot4tp/W4qfVn2Kc1PTPLPkyLD2PgvprEZetVnnojk8+VMs4LqgAAAAAAAAAAAAAAAAAAAAAADW66y/9ai//ABDZvxctbdL+BT+afOgW8H8ueKEASSuIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHdZb/SKw/GNL9+aY7vUq4pe7fWjjblJRC1QAAAAAAAAAAAAAAAAAAU79bn+juh/wAY337zRE63I693ip6UW3n6tvjnoUiFgogAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALLurY4eJ9RtT01czBQK7JWl1Q2W2Olb9zrL9uo6mY3HlSlRUncqcjui5nKRLevakYex8imfbr0+Knh59HOkGwMD86782qPZp8tXo08zYVKxTgAAAAAAAAAAAAAAAAAAAAAAAAKOOtG4gvDF+tHD/lut3rdlt0V4z++J2yW4SM3qOjcqcqQRP6VybUVz2e6jLD3P2Z6lE4muM85qeLhnl0cnjQ/eLHetVFinRGeePghUGThFwAAAAAAAAAAuv6rTQDuakvXELmOiwmrkmsenbZW8kLXbtwrmY/buTudiptTdlTkcV/vjtPLMYWidGerojp5kt3cwWSJv1cVPTPRzrlCCJWAAAAAAAAAIJ8f/D79dmjFXe7HQ90Z90ybPecvJG3GWqo9xFuFE3DFVWSNiSMRExWSNrU9spI92dp/R4mKap9ivNPingno4pcbbeB+psZaetTnjphrUFsIAAAAAAAAAAAEuOCvX12gOtlku9zq1gyPmvdseeWOX7nHSzvToqxU5MaWXCRVwx3N9qe2OJt/Zv12FmmI9unPTx+Dl8+R09k436W/Ez1ZzTr5G0Sx7ZGtexyPY9Ecx7VxRUXaioqFPrFfoAAAAAAAAAAAAAAAAAAAAHCuX9nV/8AVpf4CnqjTD5Volpkl8qoAAAAAAAAAACzPqp/1jM1f+Prl/vO1ES3z/h0/njzVJBu3/Jn8s+eGwgVinAAAAAAAAAAqL6279BNHvj65fisZN9yf8t38sedGN5/8dHHPmUYFiIcAAAAAAAAAAAAAAAAAAAAAAAAFmfVT/rGZq/8fXL/AHnaiJb5/wAOn88eapIN2/5M/lnzw2ECsU4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK3+sl0C+s3SRupVhoumzhpOyWsqEjbjJVWOTBa2NcOXufBJ248jWyYbXEq3U2l9NiPlVT7NzNxVcHPo5nB2/gvnWfmU9ajzcPNp52u4WigoAAAAAAAAAAZh0E1du+hmrGT9SrT0krbHWI29W5jsO7LbP9zrKZcdmL4nLuquxr0a7laaO0sDTjcPVaq4YzeKeCW1gsVOGvU3I4NPjjhbZWXr/AGjNdhsuZ7BWsuVjzDQ09xtFfF7SamqY2yxPT981yKUtdtVWq5oqjJMTknjhZdFcV0xVTnic7uDG9gAAB+XOaxrnvcjGMRXPe5cERE2qqqoGr9xtcQLtf9abrX2qsWfIeTeksmRmNX7nLBE/+cVqJyY1UqbyLhj0aRtX2pb+7+zPocNEVR7dWerojk8+VXe18d9VfmY6sZo18upD87jlgAAAAAAAAABPLq+tAPrm1qpMwXui7oyLpesN6viSNxiqa7eVbfRrjsVHSMWV6KmCsjc1fbIRvefaf0mGmmmfbrzR4o/qno45dnYeC+ov+tPVpzzx8ENlEqhPwAAAAAAAAAAAAAAAAAAAAAAAA1uusv8A1qL/APENm/Fy1t0v4FP5p86Bbwfy54oQBJK4gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAd1lv9IrD8Y0v35pju9Sril7t9aONuUlELVAAAAAAAAAAAAAAAAAABTv1uf6O6H/GN9+80ROtyOvd4qelFt5+rb456FIhYKIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEiOG/huzzxI53gy3lmB9Bl+gfHLm/OEsaupbbSuXaqrsSSZ6IqRxIuLl2rgxHOby9q7VtbPtevXnqnRTwzOrwy3sBgLmLr9WnRwz4PT4mz/AKZab5T0jyPl/T7JVvS3Zfy7TpDTMXB0s0jlV0tRO9ETflleqve7Daq7ERMEKhxeLuYq7VduTlqn8ZOKFiYfD0WLcUURmh7w1mYAAAAAAAAAAAAAAAAAAAAAAAYa1/1hs+hGk+bdSbt0c0tnplisVte7Du25z/c6SmTDbg6RUV6ptaxHO9yb+zMDVjcRTap4dM+COGfxwtTG4qnDWark8GjxzwNTvMeYLxmy/wB6zRmCukuV9zDXT3G73CVcXzVNTIskr19Vzl2IXRatU2qIopjJERkjihWtyuq5VNVWeZnK6UyPAAAAAAAAAAyhoxpZfNadTsoaa5fRWVmZa5sVVW7u82ko40WSqqnp2IYmufhzqiNTaqGnj8ZRg7FV2rREc88EcstjCYarEXabdPD+Jltn5OynY8h5Vy9kzLNGlBYMr2+C22mlTarYadiMarl2bznYYucu1VVVXapSt+/VfuVXK5y1VTllZlq1TaoiinREZHpDEyAAAAAAAAAABrM8efD79RmtNdWWSh7myDqKs17yp0bcIqaVz07uoW8iJ0Er0c1E5I3xpyopbW7e0/rcNEVT7dGafH4J5fPEq+21gfpr+WOrVnjpj8cCERIXIAAAAAAAAAADY66unX/629HI8k36t6fO2lDYLXVLI7GWqtLmqlvqdu1ysaxYHrt2sa5y4vKr3p2Z9LifmUx7Fefiq4Y6eXxJ5sLG/Ps+pV1qc3JwalhJGHcAAAAAAAAAAAAAAAAAAAA4Vy/s6v8A6tL/AAFPVGmHyrRLTJL5VQAAAAAAAAAAFmfVT/rGZq/8fXL/AHnaiJb5/wAOn88eapIN2/5M/lnzw2ECsU4AAAAAAAAAFRfW3foJo98fXL8VjJvuT/lu/ljzoxvP/jo458yjAsRDgAAAAAAAAAAAAAAAAAAAAAAAAsz6qf8AWMzV/wCPrl/vO1ES3z/h0/njzVJBu3/Jn8s+eGwgVinAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8p4IKqCamqYWVFNUMdFUU8jUex7Hpuua5q4oqKi4Kin2JmJyw+TGXM1X+LzQmfh/wBbMx5SpYHsyndl8NZGqHYqjrZVPcrYd5eV1O9HQrjtXdR3ukLj2HtGMdhqa560ZquONelXO1MH9Lfmn+mc8cXo0IwnXc4AAAAAAAAAAL2Oq518/OHKd50HzDW713yYj7tkl0rvZTWqeT+c07ceVaed+8n7mTBNjCut8Nm/LuRiaYzVZqvzcE8sebxplu7jfXomzVpjPHF6J862shKTAAABXd1jPEJ9U2ka5Ay/XdBnjVaOa3xuidhLR2dqI2uqNm1qyo5IGcntnuauLCUbrbM+qxHzao9ijPx1cEdPN4XC29jvkWfUp61Xm4dTXNLTQQAAAAAAAAAAPtT09RWVEFJSQSVNVVSNhpqaJqvkkkeqNaxjUxVVVVwREPkzERll9iMuaG1Fwj6E0/D9orlzKFRBG3Ndzb4ZzzVNwVX3OqY1XxbycradiNhbhsXd3uVylObb2jOOxNVcdWM1PFGvSsfZmD+lsRT/AFTnnj9GhJs5DoAAAAAAAAAAAAAAAAAAAAAAAABrddZf+tRf/iGzfi5a26X8Cn80+dAt4P5c8UIAklcQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAO6y3+kVh+MaX780x3epVxS92+tHG3KSiFqgAAAAAAAAAAAAAAAAAAp363P9HdD/jG+/eaInW5HXu8VPSi28/Vt8c9CkQsFEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPvS0tTXVMFHRU8tZV1UjYqalgY6SSR7lwa1jGoquVV2IiIfJmKYyzofYiZnJCyrh06tnUvUeegzHq8lTphklytlW0yNRL9XR8u6yneipSIu1FdOm+nNEqLiRPam9djDxNFj26/D/THLw8nO7+A2BdvZKrvs0/qnVy8y9nTnTXJGk2VLfkrT/L9NlzL1tTGOkp0VXyyKiI+aeVyq+WV+Cbz3qrl7OxCucVi7uKuTcu1Zap/GbwQmVjD0WKIoojJEPcmuzAAAAAAAAAAAAAAAAAAAAAAAABr2dZZxBfWPqhBpPl6t6XKGlcskd0dE7GOqvz03Kly4bF7lb9wTHaj+l5lLO3T2Z9PY+dVHtV6PFTwc+nmQfeDHfOu/Kp6tP8A5ejRzqzyWo+AAAAAAAAAAF9fVg6Afmjka5645ioujzBqCxaHKTZW4Pp7JDJi+VMdqLVzMx/eRsci4PK33v2n827GHpn2aM8/m9EeWZTTd3BfLtzeq01aOL0rWCGJIAAAAAAAAAAACLnF/oLBxB6LX/K1JBG7OFlRbzkSqdgipcaZjsIFcuGDaliuiXFcEVzXL7VDsbD2lOBxNNc9Wc1XFPDyaXO2pgvqrE0x1ozxx+nQ1ZainnpJ5qWqhfTVNNI6Kop5Wqx8cjFVrmOa7BUVFTBUUuKJiYywrmYyZpfE+vgAAAAAAAAAkPwt64VvD9rLlfPjXyusDpPBmdKGPFe6LTVOalQiNT2zolRszE53sanJicvbGzox2Gqt/wBWmn80aOfRyt7Z2MnC3or4NE8X4ztrGgr6K60FFdLbVRV1uuUEdVQVsLkfHNDM1HxyMcmxWuaqKipzFNVUzTMxOaYWTTVFUZY0S5Z5fQAAAAAAAAAAAAAAAAAAcK5f2dX/ANWl/gKeqNMPlWiWmSXyqgAAAAAAAAAALMuqnVE4jM0Iqoiu0+uSInZXwna1Ilvn/Dp/PHmqSDdv+TP5Z88NhErFOAAAAAAAAABUX1t36CaPfH1y/FYyb7k/5bv5Y86Mbz/46OOfMowLEQ4AAAAAAAAAAAAAAAAAAAAAAAALM+qn/WMzV/4+uX+87URLfP8Ah0/njzVJBu3/ACZ/LPnhsIFYpwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIHdYNoF9c2ilXmCyUXdGedLknvdjSNuMtTQ7iLcaNMMVXfjYkrURMVfG1qe2Ukm7G0vpMTFNU+xXmnxT/TPRxS423MF9RY9aOtTnji4Y/Hga1pa6AAAAAAAAAAABkrR/U6+aN6lZQ1Jy85VuGVq9lTJS7ytbVUzsY6mleqe5mhc6Nexjim1DUx2Epxdiq1VoqjmngnklsYXEVYe7Tcp0xP8A1htp5MzdY8/ZSy5nXLNWldYM02+C5WqpTBFWGoYj0R6Yruubjuuau1rkVF2oUriLFdi5VbrjJNM5JWZau03aIrp0TGV6YwsgB1l6vNry5Z7rmC+VsVts1jo56+7XGZd2OCmpo1lllevMjWNVVPdu3VcqimmMszOSOOXmuuKKZqnNENUXiR1rumv2r2adRK7pYbbVS9xZUtkq7aO00yq2lhwxVEcqKskmGzpHvVOUufZWz6cDh6bUadMz4ap06o8Stcfi5xV6bk6ODxRwMEnRaYAAAAAAAAAAWUdWtoB9ZOq8uqN/oumyhpTJHUUKSNxjqr7Im9SMTHl7mRFnXBfYuSLHY4ie9m0/p8P8mmfar8lPDz6Od39gYL5135lXVp/8uDm08zYbKwTkAAAAAAAAAAAAAAAAAAAAAAAAAGt11l/61F/+IbN+LlrbpfwKfzT50C3g/lzxQgCSVxAAAAAAAAABn3hq0MfxE6p0GmbMzplF1dQVld4adR93o3uSPpNzoEnp8d7kx39nbObtbaP0Fib3q+tkmIyZcmnklu7Pwf1d2LeXJmnPky6lj3oh6n+8BH9F1+diKd947H9X9rvd1/8Ab+n0noh6n+8BH9F1+dh33jsf1f2ndf8A2/p9J6Iep/vAR/RdfnYd947H9X9p3X/2/p9J6Iep/vAR/RdfnYd947H9X9p3X/2/p9J6Iep/vAR/RdfnYd947H9X9p3X/wBv6fSeiHqf7wEf0XX52HfeOx/V/ad1/wDb+n0noh6n+8BH9F1+dh33jsf1f2ndf/b+n0noh6n+8BH9F1+dh33jsf1f2ndf/b+n0noh6n+8BH9F1+dh33jsf1f2ndf/AG/p9J6Iep/vAR/RdfnYd947H9X9p3X/ANv6fSeiHqf7wEf0XX52HfeOx/V/ad1/9v6fSeiHqf7wEf0XX52HfeOx/V/ad1/9v6fSeiHqf7wEf0XX52HfeOx/V/ad1/8Ab+n0noh6n+8BH9F1+dh33jsf1f2ndf8A2/p9J6Iep/vAR/RdfnYd947H9X9p3X/2/p9J6Iep/vAR/RdfnYd947H9X9p3X/2/p9J6Iep/vAR/RdfnYd947H9X9p3X/wBv6fSeiHqf7wEf0XX52HfeOx/V/ad1/wDb+n0noh6n+8BH9F1+dh33jsf1f2ndf/b+n0noh6n+8BH9F1+dh33jsf1f2ndf/b+n0noh6n+8BH9F1+dh33jsf1f2ndf/AG/p9J6Iep/vAR/RdfnYd947H9X9p3X/ANv6fSeiHqf7wEf0XX52HfeOx/V/ad1/9v6fSeiHqf7wEf0XX52HfeOx/V/ad1/9v6fS5tt6pKot9xoK/wCvyOXuGpiqOi/NhW73RPR+7j4VXDHDsHmvfaKqZj5On/l/a9U7sZJifmfp9K5sgaVgAAAAAAAAAAAAAAAAAAp363P9HdD/AIxvv3miJ1uR17vFT0otvP1bfHPQpELBRAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEjdCrXwu19fCmv2as8WVqy4pFYLfTLb2sRdnT1SSVNUqKm1UjpkXsO5zlbRrx1Mf/zU0TxzOXmzRz1N/B04WZ/981RxRm588+RsA8M+VOEO225tdw5xZTuVZFD/ADy70k6Vt8Yx6YL3TJVufWwo7H2jkY3sNK02te2jVOTFetEeDRTyZPZlNtn2sHEZbHqz5Z8udLU4jpgAAAAAAAAAAAAAAAAAAAAAAAAAjDxd680/D5otmHNlNPGmbbsi2bItK7BVfcqljt2ZWLytp2I6Z2Oxd1G8rkOvsTZs47E00T1Yz1cUa9DnbUxv0tiav6pzRx+jS1YKmpqKyonq6ueSqqqqR01TUyuV8kkj1VznvcuKqrlXFVUuOIiIyRoVzMzM5ZfE+vgAAAAAAAAAAZdt/EDrzaaCitVq1tz9bLZbYI6W3W6kzJdIYKeCFqMjiiiZUo1jGNRGta1ERE2IaNWzMJVM1VWqJmdM+rGptU47EUxki5VER/ynW5nnI8RHl71G+lN376Pn2rB9jb+GnU+/X4ntK/inWecjxEeXvUb6U3fvofasH2Nv4adR9fie0r+KdZ5yPER5e9RvpTd++h9qwfY2/hp1H1+J7Sv4p1nnI8RHl71G+lN376H2rB9jb+GnUfX4ntK/inWecjxEeXvUb6U3fvofasH2Nv4adR9fie0r+KdZ5yPER5e9RvpTd++h9qwfY2/hp1H1+J7Sv4p1nnI8RHl71G+lN376H2rB9jb+GnUfX4ntK/inWecjxEeXvUb6U3fvofasH2Nv4adR9fie0r+KdZ5yPER5e9RvpTd++h9qwfY2/hp1H1+J7Sv4p1nnI8RHl71G+lN376H2rB9jb+GnUfX4ntK/inWecjxEeXvUb6U3fvofasH2Nv4adR9fie0r+KdZ5yPER5e9RvpTd++h9qwfY2/hp1H1+J7Sv4p1sR3G43C8XCuu12r6i6XW51ElVcrnVyvnqKieZyvklmlkVznve5VVznKqqu1TdooiiIppjJEaIhq1VTVOWZyzLhHp8AAAAAAAAAADYA6sjX/8+tOa3RrMNb0uZ9Mo0ly8srsZKmwyv3WNTHavckrujXmRjokTkUrTe7Znyb0X6Y9mvT4qvTp48qbbvY35tv5VWmnR+X0aloZD0iAAAAAAAAAAAAAAAAAABwrl/Z1f/Vpf4CnqjTD5Volpkl8qoAAAAAAAAAACxHqwbk2h4noqVzkat5ypdqNidlWOgqsPsQKpF976PWwOXwVRPnjpd3d2rJisnhpnW2MirE7AAAAAAAAAFRfW3foJo98fXL8VjJvuT/lu/ljzoxvP/jo458yjAsRDgAAAAAAAAAAAAAAAAAAAAAAAAsz6qf8AWMzV/wCPrl/vO1ES3z/h0/njzVJBu3/Jn8s+eGwgVinAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKiKioqYovKgGsJxx6BLoPrdd6a0UXc2Rc8dJfslqxuEUMcr/5zRNw2J3NKqo1vNG6NV5S3t3tpfW4WJqn26c1XRPLHlyq82xgvpb85OrVnjpjk82RDc7rlAAAAAAAAAABdn1WevndVDfeH3MNbjPbkmv2nqyu5ad7t64UTMftHuSdrU2rvSryNK/3x2bkmMVTGnNV0T0cyXbuY3LE2KuOOmOnnXIEESoAqT60HiE/N3K9s0Dy1Xbl5zgyO556kid7KC1RyY09KqpyLUys3nJy7jMFTdkJtuhsz5lycTXGanNT+bhnkjyz4kZ3ix3qURYp0znni8HL+NKigsVDQAAAAAAAAAA7OzWe55hvFqsFlopLleb3VwUFpt8KYyT1NTIkUUTE51c9yIh4uXKbdM1VTkiIyzxQ9UUTXMUxnmW1/w5aM2zQTSHKWnND0ctfb6furM9xjTZWXWpRH1c2OCKrd72DMdqRtYnMUxtXH1Y7EVXZ0TojwUxo/HhWVgMJGFs02408PHws4nObgAAAAAAAAAAAAAAAAAAAAAAAAANbrrL/1qL/8Q2b8XLW3S/gU/mnzoFvB/LnihAEkriAAAAAAAAACf3VofrUWD4hvP4uRre3+BV+aPO7e7/8ALjilsilUp6AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABTv1uf6O6H/ABjffvNETrcjr3eKnpRbefq2+OehSIWCiAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHY2m8XawXGkvFiulXZbtQPSWhulBPJTVEL05HRyxOa9q9tFPFdumumaaoiYngnO9U1zTOWmckrN+HzrNtRMkzUOXta6aTUfKqK2L85IUZFfaRnJvOX2EVWiJzSbr15VlXkIltPdGzeiasP7FXg/pnV5vEkOB3huW/Zve1Hh/q9P4zrwdOdS8jatZWoc56e5ipcy5fr9jaqnVUfFIiIroZ4nIj4ZG4pvMe1HJ2MFQr3FYS7hbk27tMxVH4zeGEvsYi3fo9eicsPdGszAAAAAAAAAAAAAAAAAAAAAAADWh4+uIL679aa212Su7pyFpqs1kyysbsYqmpR6JX1zcMUXpZGIxiouCxxsdzqWzu1sz6PDRNUe3XnnxRwRyeeZV/trHfU38kdWnNHTKDRInHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABl3QnVy86G6q5Q1Ks2/KthrE8LW5rt1Ky3zfc6umXHZ90icu6q+1duu5WoaO0cFTjbFVqrhjN4p4JbWDxVWGu03I4PLHC2yss5ks2cMu2PNeXa1lxsWY6GnuVoro/ay09TGkkbsOZVa5MUXai7FKWvWqrVc0VRkmJyTyLLt3KblMVU54mMrvDG9gAAAAAAAAAAAAAAAABwrl/Z1f8A1aX+Ap6o0w+VaJaZJfKqAAAAAAAAAAAlVwR5qjyfxT6N3OaXo4K+8uskuK4Iq3immt0aL/8AuVDV9U428Fn5uAux4Iy/DPrdDpbIufLxdufHk58zaZKdWMAAAAAAAAAMP6vaC6V670FmtmqeWXZlosv1EtVaYW11bRdFLMxGPdvUc8CuxaiJg5VQ3sDtK/gpmbNWSZ05onzxLVxWCtYmIi5GXJ45jzMEeju4QvJVJ8vXzv8AOl3o2j2n6adTS+xYP3PLVrPR3cIXkqk+Xr53+O9G0e0/TTqPsWD9zy1az0d3CF5KpPl6+d/jvRtHtP006j7Fg/c8tWs9HdwheSqT5evnf470bR7T9NOo+xYP3PLVrPR3cIXkqk+Xr53+O9G0e0/TTqPsWD9zy1az0d3CF5KpPl6+d/jvRtHtP006j7Fg/c8tWs9HdwheSqT5evnf470bR7T9NOo+xYP3PLVrPR3cIXkqk+Xr53+O9G0e0/TTqPsWD9zy1az0d3CF5KpPl6+d/jvRtHtP006j7Fg/c8tWs9HdwheSqT5evnf470bR7T9NOo+xYP3PLVrPR3cIXkqk+Xr53+O9G0e0/TTqPsWD9zy1a2FeI3gR4bsnaF6p5tyNp5JaM1ZXy9V3a03Fbxd6nonUTenkd0VRWSRu+5scnsmqb+yt48bdxVui5XlpqqiJjJTw5uCGpj9jYa3YrqopyTEZdM8HK1/SzEJAAAAAAAAAACzPqp/1jM1f+Prl/vO1ES3z/h0/njzVJBu3/Jn8s+eGwgVinAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ744NA0150RvFHaaPujPOSt+/ZKVjcZZZoWL3RRN517piRWomOHSJGq+1O7u9tL6LFRNU+xVmq6J5J8mVytsYL6qxMR1qc8auXz5GsCqKiqipgqbFRS3leP4AAAAAAAAAAe204z7ftLs95V1ByxP0F7yncYa+ixVUZIjFwkhkw2qyaNXRvTna5UNfF4ajE2qrVeiqMn44tLNh71Vm5FdOmJba2m2f7DqnkPKmoWWJumsmbLdFX0iKqK+JXphLBJhsR8MiOjenM5qoUpi8NXhrtVqvTTOT08ulZmHv037dNynRMP7qRn/L+lmRM06hZpqO57FlSglrq1UVEfIrUwigjxwRZJpFbGxOdzkQYTDV4m7Tao01Tk/HFpMRfpsW5rq0RDUw1R1FzBq1qBmvUXNE3S3nNdfJWTxoquZBGuDIKeNV27kMTWxsx9y1C6sHhaMLZptUaKYyenl0qzxN+q/cquVaZl4E2WEAAAAAAAAAALXuq+0A/OrOt110zFRb9iyG91uye2VuLJ7zPH91mTHYqUsD/fyNci4sIXvftP5VqMNTOerPV+X0z5I8aS7u4L165vVaKc0cfo6V8pXCZgAAAAAAAAAAAAAAAAAAAAAAAAAAa3XWX/AK1F/wDiGzfi5a26X8Cn80+dAt4P5c8UIAklcQAAAAAAAAAT+6tD9aiwfEN5/FyNb2/wKvzR53b3f/lxxS2RSqU9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAp363P9HdD/jG+/eaInW5HXu8VPSi28/Vt8c9CkQsFEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADO2gHELqBw7Z0gzXkuuWWgqHMjzNlWd7u4bpStXbHM1Md17UVejkRN5i8mLVc13O2nsuzj7XqXIz8E8MT+NMcLcwWOuYSv1qNHDHBLZ40X1iydrrp/ZtQ8k1ay265NWKvt8qp3TQVsaJ09JUtRV3ZI1VO05qte3FrkVaix+BuYK9Nq5GeOaY8MLDwmKoxNuLlGifJPgZVNJsgAAAAAAAAAAAAAAAAAAAAIOcfHEF9R+i1bbbJXdzZ91JSayZYWN2EtNTqxEr65uGCp0UT0YxU2pJIxeZSQ7tbM+sxMTVHsUZ58fgjl80S4+2sd9NYyR1qs0dM/jhaz5bSvwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF4vVb6/+FrFeeH/ADHW41+XWy3nIL5XbZKCV+NbRtx54ZX9K1Nqq17/AHLCvN8NmerXGJojNOarj4J5YzckeFMN3Mb61M2KtMZ44uGOlb8QdKAAAAAAAAAAAAAAAAAA+FTH01NUQ4b3SxvZu8mO8iofYnJL5OhpiKiouC7FTlQvpVD+AAAAAAAAAAHY2e611hu9rvlsmWnuVmq4K631Ccsc9PI2WN3rOaini5RFdM0zomMj1RVNMxMaYbfmm2eLXqXkDJ2f7M5q27N9opLpBGi7yxLURo6SFy/bRPxY5OZUVCj8Xh6sPeqtVaaZmFoYe9F63TXGiYyvbGuzAAAAAAAAAAAAAAAAAAAAAAGEeJerp6Hh112nqlRIlyBmKHBeRXzW2eJjf8ZzkQ6GyaZqxlmI9+nzw09oTEYa5l92fM1Ki61ZgAAAAAAAAABZn1U/6xmav/H1y/3naiJb5/w6fzx5qkg3b/kz+WfPDYQKxTgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGtl1hOgX1N61VWZLJRdz5H1SWe9WZI24RU1fvItxpEw2IjZHpK1ERERkiNT2qlr7sbS+rw0UVT7dGafHH9M9HIgO3MF9Pf9aOrVnjj4Y/HhQJJI4oAAAAAAAAAAXHdVnr53Hcb7w+5ircKe6dNfdPlld7WpY3G4UTMft42pO1qbE3JV5XEE3x2blpjFUxozVcXBPRzJVu5jckzYq4c8dMdPO6zrReITwzfrVw/Zart625bdFd9QJInexluEjN6jo3KnKkEb+lem1N57PdRnvc/ZnqUTia4zzmp4uGeXRyeN53ix3rVRYp0Rnnj4I5FQhOEXAAAAAAAAAAD0uTco33Pua8u5LyzRrXX/NFwgttqpUxwdNUPRjVcqIu61uO85y7GtRVXYhhv36LFuq5XOSmmMsslq1VdriinTM5G2ho3pdYtGNM8oaa5eajqHLFCyCes3Ua6rq3qslVVPT7aaZznqnNjgmxEKVx+Mrxd+q7VpqnmjgjkhZmEw1OHtU26eCP+ssnGo2AAAAAAAAAAAAAAAAAAAAAAAAAAANbrrL/ANai/wDxDZvxctbdL+BT+afOgW8H8ueKEASSuIAAAAAAAAAJ/dWh+tRYPiG8/i5Gt7f4FX5o87t7v/y44pbIpVKegAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAU79bn+juh/xjffvNETrcjr3eKnpRbefq2+OehSIWCiAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAnFwH8RtRoVq9QWi9V6xac6iTQWrNUMjsIaSoe7co7imOxvQvduyL/AKJzl2q1uEe3j2VGNw81Ux7dGePH4aeXg8bsbGx84a9ETPs1Zp6J/HA2YSpVgAAAAAAAAAAAAAAAAAAAAfGoqKejp56urnjpqWljdNU1MrkZHHGxFc573LgiIiJiqqfYiZnJD5M5M8tWHi815qOIPWnMOa6aeRco2hVs2RKV2KI220z3bsytXkdUvV0zsdqbyN9yhcew9mxgcNTRPWnPVxzq0K52pjfqr81f0xmji9OlGA67nAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPd6Y6hX/SjP8AlTUTLE3RXrKdwirqZiqrWTMb7Gankw27k0TnRvw9y5TWxeFoxVmq1XoqjJ6eTSzYe/VYuU3KdMS209Oc+2DVDIuVtQcr1HdFjzZb4q+iVVRXx76YSQyYbEkikR0b05nNVClcVhq8NdqtV6aZyfjjWZYvU3rcV06Jh7U12YAAAAAAAAAAAAAAAAANNrNNA61ZnzHa3N3HW26VlK5i8ywzPYqetgXvZq9aimfDEKquU+rVMeCXQmR4AAAAAAAAAAC6jqvuI2kbSV3Dtmu4NhqGSz3XTSaZ2CSNkxlrrc3HD2SO3qhic+MvYaiwHe/ZU5YxVEeKroq6J5Et3dx8ZPkVT46emOnnXNkCSsAAAAAAAAAAAAAAAAAAAAAAro6zHVqiyPoFLkKnqmtzHqrWRW+npmu+6MttFLHVVs+H2qq2OFez0naJTulgpvYv5k9WiMvLOaOmeRwt4MTFvD+pw1eaM86uVrplpIIAAAAAAAAAAFmfVT/rGZq/8fXL/edqIlvn/Dp/PHmqSDdv+TP5Z88NhArFOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARk4udCYOIHRTMmUKeBjs12xvhnI1S7BFZdKVjlZFvLyNqGOdC5V2Jv73K1Dr7E2jOBxNNc9Wc1XFOrS5+08H9VYmn+qM8cfp0NV2op56SonpaqGSmqqaR0VTTytVj45GKrXMc1cFRUVMFRS44mJjLCuJjJml8T6+AAAAAAAAAD0mT82X3IeasvZzyzWut+YMsV8FytNWm1GzU70e1HN9012GDmrsc1VRdimK/Yov26rdcZaaoySyWrtVquK6dMTlcPMF+u+ab7ecy3+ukud8zBWz3G73CVcXz1NTIsssju25zlU9WrdNqiKKYyREZI4oea65rqmqrPM53Tnt5AAAAAAAAAAC5TqtNAO6Ku98QmY6LGGiWaxadtlbyzOTduFczH7Vq9zscmz2UqcrSB747TyRGFonTnq6I6eZK93MFlmb9XFT0z0c668gCWgAAAAAAAAAAAAAAAAAAAAAAAAAAANbrrL/1qL/8AENm/Fy1t0v4FP5p86Bbwfy54oQBJK4gAAAAAAAAAn91aH61Fg+Ibz+Lka3t/gVfmjzu3u/8Ay44pbIpVKegAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAU79bn+juh/xjffvNETrcjr3eKnpRbefq2+OehSIWCiAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAbUHBlqpNq9w6aeZluFStVfrZSOsGZJXLvSOrLWvc/SyLzumibHMv78pzb2DjC4yuiNEzljinP5Jzcix9k4n5+GpqnTGaeOPxlSjOO6IAAAAAAAAAAAAAAAAAAK0esr4gvq40uh0oy9XdFm/VSKSK5rG7CSlsLF3aly4cndTvuDceVnS87SWbp7M+ov/Oqj2aNHjq4ObTzI/vBjvk2vlU9ar/x9Ojna9RZ6DgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC4rqtdf+4bneuHzMdbhS3dZr3p66V2xtVG3er6JmP8ApI29OxE2IrJV5XEF3x2Z61MYqiNGari4J6OZKt3MbkmbFXDnjpjp513JXyXAAAAAAAAAAAAAAAAABqS8R9kdlziA1pszmbjKTOt8WmbyfcJa6WWFfXje1S7NlXPmYS1V/wAKfMrLH0epiLkf8p87CxvtQAAAAAAAAAAOfarrcrHc7ferNXz2u7Wmoiq7ZcqWR0U1PPC5HxyxvaqK1zXIioqHmuimumaaoyxOaYeqappmJickwvu4VOsYybn632zJWuNxpcl59gYyngzbPuwWi7KiYI+WTYykmd7pH4RKu1rm4pGlbbZ3WuWJm5h4mqjwf1U648vnTTZu3aLsRRen1avDwTqnyLQoZoqiKKop5WTwTsbJDNG5HMexyYtc1yYoqKm1FQiExkzSkUTlfQ+AAAAAAAAAAAAAAAAAAAMCa8cSOlvDzl2W8Z6vka3eeJz7Dk6jc2S6XB6YoiRQ44tZjsdK/Bjezjgi9LZuyr+Pr9W3GbhqnRH48GlpY3H2sJTlrnPwRwy1n9e9cs38Qeot01Azc9sDpmpS2GxwuV1PbbfG5yw0sSrhjhvK57sE3nq52CY4JbWzdnW8DZi1Ryz4Z8Kv8bjK8VcmurkjwR4GFzfagAAAAAAAAAAWZ9VP+sZmr/x9cv8AedqIlvn/AA6fzx5qkg3b/kz+WfPDYQKxTgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADXg6yjQH6tNWY9TbBRdDlDVd8tVVpG3COlvkeC1ka4cndCKk7ceVyy4bGlobp7S+ow/yap9qjy08HNo5kG2/gvk3vmU9Wv/y4efTzq2yVuAAAAAAAAAAAAAAAAAAAAAAAe/0t06v+reoWUtOcsxb94zZcI6OGVWq5kES4vnqZETbuQRNdI/D3LVNbGYqjC2arteimMuqOWczPhrFV+5Tbp0zLbT0+yNYNM8k5XyDlem7lsOVLfDb7excN97Ym+ylkVETF8r1V7153Kq85SmKxFeIu1Xa9NU5VmWLNNmiKKdERkexMDKAAAAAAAAAAAAAAAAAAAAAAAAAAAA1uusv/AFqL/wDENm/Fy1t0v4FP5p86Bbwfy54oQBJK4gAAAAAAAAAl/wADmqORNHtfrRnbUa+/m7liltFzpZ7n3LVVe7LUQ7kTeio4ppV3l2Yo3BOc4e8ODu4vCTbtRlqyxmyxHnyOpsfE28PiIruTkjJPh6F2fpC+D7yvfkDMHzaV/wB2No9l+qn9yXffMH7/AJKtR6Qvg+8r35AzB82juxtHsv1U/uPvmD9/yVaj0hfB95XvyBmD5tHdjaPZfqp/cffMH7/kq1HpC+D7yvfkDMHzaO7G0ey/VT+4++YP3/JVqPSF8H3le/IGYPm0d2No9l+qn9x98wfv+SrUekL4PvK9+QMwfNo7sbR7L9VP7j75g/f8lWo9IXwfeV78gZg+bR3Y2j2X6qf3H3zB+/5KtR6Qvg+8r35AzB82juxtHsv1U/uPvmD9/wAlWo9IXwfeV78gZg+bR3Y2j2X6qf3H3zB+/wCSrUekL4PvK9+QMwfNo7sbR7L9VP7j75g/f8lWo9IXwfeV78gZg+bR3Y2j2X6qf3H3zB+/5KtR6Qvg+8r35AzB82juxtHsv1U/uPvmD9/yVaj0hfB95XvyBmD5tHdjaPZfqp/cffMH7/kq1HpC+D7yvfkDMHzaO7G0ey/VT+4++YP3/JVqPSF8H3le/IGYPm0d2No9l+qn9x98wfv+SrUekL4PvK9+QMwfNo7sbR7L9VP7j75g/f8AJVqPSF8H3le/IGYPm0d2No9l+qn9x98wfv8Akq1HpC+D7yvfkDMHzaO7G0ey/VT+4++YP3/JVqPSF8H3le/IGYPm0d2No9l+qn9x98wfv+SrUekL4PvK9+QMwfNo7sbR7L9VP7j75g/f8lWo9IXwfeV78gZg+bR3Y2j2X6qf3H3zB+/5KtR6Qvg+8r35AzB82juxtHsv1U/uPvmD9/yVaj0hfB95XvyBmD5tHdjaPZfqp/cffMH7/kq1HpC+D7yvfkDMHzaO7G0ey/VT+4++YP3/ACVaj0hfB95XvyBmD5tHdjaPZfqp/cffMH7/AJKtR6Qvg+8r35AzB82juxtHsv1U/uPvmD9/yVanNtvH3wlXe40Fpt2rHdFwulTFSUNP4CvzN+ad6Rxt3n25rUxc5ExVUTsnmvdraFFM1TbzR/yp1vtO2sJVMRFeefFVqTEOE6oAAAAAAAAAAAAAAAAp363P9HdD/jG+/eaInW5HXu8VPSi28/Vt8c9CkQsFEAAAAAAAAABzrXDHU3O3U8zd+GeqhjlZiqYtc9EVMU28inmuclMy+0xlmGy96O7hC8lUny9fO/ypu9G0e0/TTqWB9iwfueWrWeju4QvJVJ8vXzv8d6No9p+mnUfYsH7nlq1no7uELyVSfL187/HejaPafpp1H2LB+55atZ6O7hC8lUny9fO/x3o2j2n6adR9iwfueWrWeju4QvJVJ8vXzv8AHejaPafpp1H2LB+55atZ6O7hC8lUny9fO/x3o2j2n6adR9iwfueWrWeju4QvJVJ8vXzv8d6No9p+mnUfYsH7nlq1no7uELyVSfL187/HejaPafpp1H2LB+55atZ6O7hC8lUny9fO/wAd6No9p+mnUfYsH7nlq1no7uELyVSfL187/HejaPafpp1H2LB+55atZ6O7hC8lUny9fO/x3o2j2n6adR9iwfueWrWeju4QvJVJ8vXzv8d6No9p+mnUfYsH7nlq1no7uELyVSfL187/AB3o2j2n6adR9iwfueWrWeju4QvJVJ8vXzv8d6No9p+mnUfYsH7nlq1no7uELyVSfL187/HejaPafpp1H2LB+55atb+L1d3CEqL/AP8AK5U7fh6+d/jvRtHtP006j7Fg/c8s63TV/Vt8J9Y1zafJt1tSqmCPpb3XuVO2ndEsyfsHunevaEaaon/tjoyPNWwMJP8ATMcssTZm6qHRS4RyOytnvN+W6pyLuJVvo7lTtXm+59z00i/ypvWd9MTT16KZ546Z8zVubtWJ6tVUc06kLdVurC1yyPTVV0yJc7Zqra6VqvWkokdb7qrW7VVKOdz437ORsc7nryI1TvYLe/C3pyXImifHnp541OTid3r9uMtExVHNPN6Vctxt1ws9fWWq7UFRa7nb5n09fbquJ8E8E0a7r45YpEa5jmqmCoqYoSqiuK4iqmcsTwuDVTNM5JjJLhHp8AAAAAAAAAAC8Tqkc1y1OU9Y8kSSL0Nmu1svdHEq7N65QTU0yp6ncMePqoV5vtZyXLVzwxMc05emUw3Yu5aK6PBMTz/9Fv5B0oAAAAAAAAAAAAAAAAADpsxZgs+VLBesz5gro7bYsvUU9xu9wlXBkNNTRrLK9fUa1V2GS1aqu1xRTGWZnJHHLxcriimaqs0RnanfEBrFeNd9Wc26k3XpIYbvUrFYba9ce4rZT+wpKdMFVMWxoivVNjnq53ui6NmYGnBYem1TwaZ8M8M/jgVrjsVOJvVXJ4dHijgYZN9qAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD0OU803vJGZ7BnDLda633/LNfT3K0VjfcT0z0kYqp7pqqmDkXYqYouxTFfs03qKrdcZaaoyTyvdq5VbqiunTE5W2bolqvZNbdLsoalWJWx0+Y6Jr6+gR286jrolWOrpXc+MUrXNRV9smDuRUKW2hgqsHfqtVcE88cE8sLMweJpxNqm5Tw+fhhlU0myAAAAAAAAAAAAAAAANZ7rFcqrlnisz1UMj6OlzXSWu+UjcOXpaOOnmd28Z6eRS2t1r3zMBRHuzMeXL5phX+3bfqYurx5J8mtB0kLjgAAAAAAAAAAAAZ50p4m9c9Fuig0+1DuVstETsfzbqnNrrYuK4uwo6pJImK7ndGjXds5uN2RhcZnu0RM+HRPPDdw20L+H6lUxHg0xzSn7kbraM7ULIafUbSu0ZiwwbJcrDWTWuTBPdrBUNrGud2URzE9TkI1iNyrU57VyY8Uxl82R2rO81cf5KIninJrSiy31p3DvdmxsvtlzflSoVE6Z09DT1dOi/uX0tS+RU9WNDj3dzsZT1Zpq5Zjzx0ujb3jw1XWiqOTVLMtp4/eEq7o3otW4KKVU9lDX2u60qt7Sulo0YvrOU0K92toUf/ADy8U0z0tunbeEq/r8k6nu6Pi54ZK5EWHXHKDEcmKd0XGKnX10mVmBrVbEx1P/xq5maNqYWf/pTzu3j4nuHGVMW68ZBTZj7PMNuZ/CnQ8TsjGx/8a/hnU9/ccN2lPPDmecjw7+XvTn6U2jvo8/asZ2Nz4atT79fhu0o+KNZ5yPDv5e9OfpTaO+h9qxnY3Phq1H1+G7Sj4o1nnI8O/l705+lNo76H2rGdjc+GrUfX4btKPijWecjw7+XvTn6U2jvofasZ2Nz4atR9fhu0o+KNZ5yPDv5e9OfpTaO+h9qxnY3Phq1H1+G7Sj4o1nnI8O/l705+lNo76H2rGdjc+GrUfX4btKPijW4z+JvhyYmK68afqn7nMdtcv2EnU9faMZ2NfwzqfPuGG7Snnh1tTxYcNFJj0uueS34f6G7U033p7j1GxcbP/wAa+aXmdp4WP/pTzvJ3Djj4UbZvd06z2iXd5e5Keuq/sdzU0mJnp3ex9Wi1Pkjzyx1bYwlP/wBI8upjS99ZZwq2pHrQ5lvmZVZ7VLbZaqPe9Tu5tL+zgbdvdPH1aaYjjqjoyteveDCU6JmeKJ6cjAmbOtryLTRytyNpJfb1KuKQy3yuprY1Ow5zKZK5V9TeT1UOlZ3Juz/kuRHFEz5/VaV3ea3HUomeOcmtDnUnrLeI7PEVRQ5dq7TpnbJkVn/9FTLJWqxeZ1XWOmc137qJsandwm6eCs564mufHObmjJ5crlYjeDE3M1OSmPFp556MiBd6vl6zJdKy95hu9bfrzcH9LX3a4TyVVTO/k3pJpXOe5e2qkkt26bdMU0xERHBGaHFrrqrnLVOWfG6s9vIAAAAAAAAAAALNeqlYruIrNrk5I9PLi53r3S1J/wDUiO+f8On88eapId2v5NX5Z88Ng4rJNwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAME8Sei1u180ezZp3VpFFc6uDu3KtxlTZSXalRX0suO1Ua5cY34beje9Oc6OycfVgcTTdjRonx0zp18bTx+EjFWarc6eDj4GqFdrVcbFdLlZLxRy267Weqmobpb5k3ZIKinescsT05nMe1UVC6KK6a6YqpnLExlhWtVM0zMTph156eQAAAAAAAAAAAAAAAAAAAAF5fVcaA+BsvXnX7MVFu3LM7ZbNkNsrdsduikwrKtqLzzzM6Nq7FRsbvcvK73w2n69cYaic1Oerj4I5Iz8viTDdzBerTN+rTOaOLhnlW8EISgAAAAAAAAAAAAAAAAAAAAAAAAAAAAA1uusv/AFqL/wDENm/Fy1t0v4FP5p86Bbwfy54oQBJK4gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHtNN/+4mQv+Y7X+NxGvi/8Nf5Z8zLh/wDJTxx524eUYtMAAAAAAAAAAAAAAAAU79bn+juh/wAY337zRE63I693ip6UW3n6tvjnoUiFgogAAAAAAAAAOzsn9s2j+u0/3xp4udWeJ6o60NzAodawAAAAAAAAAAAAAAAAAAAACsXrGuGCz5+0+umtmVrZHS6gZBpe6sxyU7Eat1s0KfdumRMN6SkZ90a9dvRtcxcfYbsu3V2vVYvRh659irR/xq1To4+VHtvbOpu25vUx7VOnxx6GvsWahAAAAAAAAAAAWy9UtWvj1Q1VtyPwjqsrU1S+Psup61jGr6yTL9khW+tP/otz/wAp83oSbdmf/bXHi6V7xXKZAAAAAAAAAAAAAAAAABUL1o3ED4GsFo0Ay3XbtyzM2K75+fE7bFb4340dG5U5FnlZ0rk2KjWN9zITjc/Znr1zia4zU5qePhnkjNy+JF94sd6tMWKdM554uCOVRsWGh4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALUOrE1//ADMz9cdE8w1vR5c1Gk7qyu6V2DKe+Qx4LGmOCJ3XCzd7b2RtTa5SHb3bM+dZjEUx7VGn8vonyTKR7vY35dybNWirR+b06l+ZWqagAAAAAAAAAAAAAAAClHra8hvZcNJNTqeDGOop63K93qcPauhf3bRMVf3SSVK+sT/cnE5rlmfFVHmnoRLeaznouccdMdKmoniKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWs9Uza3y6v6mXpGKsdvye2ic/mRay4U8iJ6/cy/YIZvrXkw9unw1ZeaJ1pJuzT/7q5/49Mal9RW6aAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKDus90C/M7P1s1ty9RdHl7UV6UeaWxNwZT3yCPFsi4YIndcLN7tvjkcu1xZO6G0vm2pw9U+1Rnj8vonyTCF7w4L5dyL1OirTx+lVaTJGwAAAAAAAAAAAAAAAAAAAMv6D6RXjXPVbKGmtn34vDtWi3i4sbilHbofulXUrjs9hE1d1F9s/dbyuNHaWOpwWHqu1cEZvHPBDawWFqxN2m3HDp8UcLbJy3l2z5Ry9ZMrZeomW2xZdoYLdaKCP2sVNTRpFGxOzg1qbV5Slrt2q7XNdU5Zmcs8crLt26bdMU05oiMjuzG9gAAAAAAAAAAAAAAAAAAAAAAAAAAAAGt11l/61F/8AiGzfi5a26X8Cn80+dAt4P5c8UIAklcQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD2mm//cTIX/Mdr/G4jXxf+Gv8s+Zlw/8Akp4487cPKMWmAAAAAAAAAAAAAAAAKd+tz/R3Q/4xvv3miJ1uR17vFT0otvP1bfHPQpELBRAAAAAAAAAAdnZP7ZtH9dp/vjTxc6s8T1R1obmBQ61gAAAAAAAAAAAAAAAAAAAAHDuFBR3WgrrXcIG1VBcqeWlrqV6YtkhmYrJGOTsOaqop6pqmmYmNMPlVMVRknRLTzz3lmXJeeM5ZOnc502U75cbNM53tldQVMlOqrhz4sLzw1751qm570RPPGVVl638u5VR4JmOZ5QzMYAAAAAAAAAtT6pr/ALz6j/8AJbv940hDd9f41v8AP0Skm7P+er8vTC/ArZNAAAAAAAAAAAAAAAAB4fUrUDL+leQ81ah5on6Cx5Tt8tdVoioj5XNTdigjx2LJNIrY2JzuciGxhMNXibtNqjTVOT08mlhxF+mxbm5VoiGpdqbqFmDVbP2a9RM0TdNe82XCStqmoqqyFjsGw08eO3chja2NifatQurCYWjDWqbVGimMnp5dKs8Rfqv3KrlWmZeFNlhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABzrZc7hZblb7xaauW33S01MNZba+F27LBUQPSSKVjk5HMc1FReyea6IrpmmqMsTml9pqmmYmNMNrjhl1st+v+jmVdQad0Ud4li8H5vt8XJS3elRralm77lr8UlYn2j285TG19nzgcTVanRpjx0zo1ccLK2fi4xVmK+HRPGz6c1ugAAAAAAAAAAAAAAETON7St+rXDdn+z0dOtTfMtQNzPl2NqbzlqbUjpZGMbyq6WnWaJqJzuQ7W72M+lxtFU6J9meKr05Jcza+G+fhqojTGeOT0ZWreXCroAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC8jqkspvpcnav55kiXcvd4t1jpJVTZ//AFlPJUyo31e7mY+ohXm+17LctW/BEzzzk/8AymG7NrJRXX4ZiOb/AKreyDpQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxRrfpRZdbdLc36a3zdjhzFROZb69zd5aOuiVJKSqbz/cpWtcqJ7ZuLeRVN3Z+Nqwd+m7TwTzxwxzNbGYanE2qrc8Pn4JamWacs3rJeZb9lHMdE63X7LVfUW270T+WOoppFjkRF50xbsVNiptTYXTZvU3qIronLExljlVnct1W6ppq0xOR0BleAAAAAAAAAAAAAAAAAAAbAPVk6AfmLpxW6yZgouizPqbGkeX0lbhJTWGJ+8xyY7U7rlb0i8ysbEqcpWe920/nXosUz7NGnx1ejRx5U23ewXyrXzatNWj8vp1LQiIJEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANbrrL/wBai/8AxDZvxctbdL+BT+afOgW8H8ueKEASSuIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB7TTf/uJkL/mO1/jcRr4v/DX+WfMy4f8AyU8ceduHlGLTAAAAAAAAAAAAAAAAFO/W5/o7of8AGN9+80ROtyOvd4qelFt5+rb456FIhYKIAAAAAAAAADs7J/bNo/rtP98aeLnVnieqOtDcwKHWsAAAAAAAAAAAAAAAAAAAAAAaoXFnSx0nExrnFG1GtfnK6zKifbTzulcvrq9S59izlwVn8keZWu04yYq5+aUeTqNEAAAAAAAAAWp9U1/3n1H/AOS3f7xpCG76/wAa3+folJN2f89X5emF+BWyaAAAAAAAAAAAAAAAACjrrRuILwvfLRw/Zbrcbfl10V41AfE7ZJXyM3qKjcqc0MT+lcm1Fc9numFh7n7M9WicTXGec1PFwzy6OSfCh+8WO9aqLFOiM88fBCoEnCLgAAAAAAAAAB6XJ2Ur9n3NWX8l5XoXXLMGZ6+G3Wmjbs3pp3I1FcvuWtx3nOXY1qKq7EMV+/RYt1XK5yU0xllktWqrtcUU55mci9G29U9oiy3UDbxn3PE92bTRJdJ6OptsVM+pRidK6GOS3SPYxX4q1rnuVE2K5V2ldV76Yr1p9WijJwZYnLk50xp3asZIy1VZeTU5vooOH/x41B/DbV81nnvpi/co5qv3PvdrD+9VzxqPRQcP/jxqD+G2r5rHfTF+5RzVfuO7WH96rnjUeig4f/HjUH8NtXzWO+mL9yjmq/cd2sP71XPGo9FBw/8AjxqD+G2r5rHfTF+5RzVfuO7WH96rnjUeig4f/HjUH8NtXzWO+mL9yjmq/cd2sP71XPGo9FBw/wDjxqD+G2r5rHfTF+5RzVfuO7WH96rnjUeig4f/AB41B/DbV81jvpi/co5qv3HdrD+9VzxqPRQcP/jxqD+G2r5rHfTF+5RzVfuO7WH96rnjUeig4f8Ax41B/DbV81jvpi/co5qv3HdrD+9VzxqPRQcP/jxqD+G2r5rHfTF+5RzVfuO7WH96rnjUeig4f/HjUH8NtXzWO+mL9yjmq/cd2sP71XPGo9FBw/8AjxqD+G2r5rHfTF+5RzVfuO7WH96rnjUeig4f/HjUH8NtXzWO+mL9yjmq/cd2sP71XPGo9FBw/wDjxqD+G2r5rHfTF+5RzVfuO7WH96rnjUeig4f/AB41B/DbV81jvpi/co5qv3HdrD+9VzxqPRQcP/jxqD+G2r5rHfTF+5RzVfuO7WH96rnjUeig4f8Ax41B/DbV81jvpi/co5qv3HdrD+9VzxqPRQcP/jxqD+G2r5rHfTF+5RzVfuO7WH96rnjUeig4f/HjUH8NtXzWO+mL9yjmq/cd2sP71XPGpx6zqntC3UlU2359z3BXuhelFNUVNslhZMrV6N0kbLdG5zUdgqojmqqbMU5T7TvpissZaKMnFP7nyd2rGTNVVl5NSjHPeScw6cZyzJkTNVGtBmDK1fLb7nT7VbvxLskjVUTeZI3B7He6aqKmxSxMNiKMRbpuUTlpqjLCH3rNVmuaKtMS8kZ2IAAAAAAAAAALFerh1/8Aqr1fTT6/VvQ5L1YfDb1WR2EdLeWKqUE23Y1JlcsDsOVXMVy4MItvVsz6nD/Npj27efjp4ebTz+F3dg435F71KurXm5eDU2LirU7AAAAAAAAAAAAAAAP4qIqKioioqYKi8ioBqycY+h82hGumasuUlItPlO/SOv2SJGtwj8HVr3O6Bv8AVpEfDhy4NR3ukLi2FtD63C01zPtRmq444eXSrnauD+mvzTHVnPHFOrQiwdlzQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAbTPBTpnJpXw2abWKtp1przeaJcxX2N6br0qbs7ulrHpzOihdHEqfuSnd4MX9TjblUaIn1Y4qc3nyysbZGH+RhqKZ0znnlSqOM6QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABR71pWgXgu92TiAy7RYUOYFismfmxN2MromYUNY/D/SxM6FyrsRWR87ywtztpetTOGqnPGeni4Y5Jz8s+BEN48F6tUX6eHNPHwT0KficosAAAAAAAAAAAAAAAAAEhuFzQ+t4gNZcr5CYyVthSTwnnSujxRae0UjmuqF3k9q6VVbCxeZ7282Jy9sbQjA4aq5w6KfzTo5tPFDe2dg5xV6KODTPF+MzayoKCitVBRWu20sVDbrbBHS0FFC1GRwwwtRkcbGpsRrWoiIicxTVVU1TMznmVk00xTGSNEOWeX0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAa3XWX/AK1F/wDiGzfi5a26X8Cn80+dAt4P5c8UIAklcQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD2mm//AHEyF/zHa/xuI18X/hr/ACz5mXD/AOSnjjztw8oxaYAAAAAAAAAAAAAAAAp363P9HdD/AIxvv3miJ1uR17vFT0otvP1bfHPQpELBRAAAAAAAAAAdnZP7ZtH9dp/vjTxc6s8T1R1obmBQ61gAAAAAAAAAAAAAAAAAAAAADVL4vv1ndcP+bK7+Ehc2w/4Nr8sK22p/KufmlHA6rQAAAAAAAAAFqfVNf959R/8Akt3+8aQhu+v8a3+folJN2f8APV+XphfgVsmgAAAAAAAAAAAAAABhvX7WCz6E6T5t1Ju/RzSWalWOx217sO7blP8Ac6SmTDbg+RUV6ptaxHO9yb+zcDVjcRTap4Zzz4I4Z/HC1cbiqcNZquTwaPHPA1Osx5hvGbcwXvNOYa6S5X3MVdPcbvXy+2mqamRZJXr2MXOXYnIXRatU2qIopjJERkjihWly5VcqmqrPMzldKZHgAAAAAAAAAALtOq94c+4qKv4iM1UGFVcWz2rTWGZu1lOirFXXBuPPIqLBGvLupLzPRSv979q5ZjC0Toz1dEdM8iXbu4DJE36o8VPTPRzrjyCJUAAAAAAAAAAAAAAAAAAAAAAAKgutA4dPDFloOITK1BvXPL8cVr1Ehhb7KagVyMpK5UTlWB7uieu1dxzORsak43Q2r6lU4Wuc056ePhjl08fGi+8WA9amL9MZ4zVcXBPJ+NCjksNDwAAAAAAAAAA/cckkMkc0MjopYnI+KViq1zXNXFFRU2oqKJjKNpPg117j4gNE7DmCvqmy50y5hY89Q4pvrXUzG7tUrdmyqjVsuKJhvK9qe1Kd29s36HFTTHUnPTxTwcmhY2ysb9VYiqetGaePw8qVpxnSAAAAAAAAAAAAAAAIX8cHDanELpPMlipWP1GyN010yVJsR1SitTuq3K5eaoaxN3H/ADjWYqjd47+721foMR7XUqzVeLwVcnmyuTtjAfV2fZ61OeOmOXztZGeCelnmpqmF9PU073RVFPK1WPjexd1zXNdgqKipgqKW3ExMZYV7MZHyPoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJT8HWhc+veuGWcuVVG6fKFgkbfM9TKn3NLfSPavc7l7NTJuwonLg5zk9qpxtu7RjA4WquJ9qc1PHPDyaXS2Vg/qr8Uz1YzzxenQ2m0RGojWojWtTBETYiIhTqxn9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAeD1P08sGrGn+bNOszRdJZs2W+WiqHoiOfDIuDoaiNF2b8MrWyM/dNQ2cHiq8Lepu0aaZy+jl0MOIsU37dVurRMNSrUPIt/wBMs8ZpyBmen7mvuU7hNb69qIu49Y19hLGq4YslYrXsXna5FLrwuJoxNqm7RoqjKrK/Zqs3Joq0xOR40zsQAAAAAAAAAAAAAAAA2N+rn0A+qbR2PPN+ougzrqu2G5zpI3CSltDUVbfT7drVka9Z3fv2tcmLCq96dp/VYn5dM+xRm46uGejk8aebBwXyLPr1davPycGtYYRh3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA1uusv8A1qL/APENm/Fy1t0v4FP5p86Bbwfy54oQBJK4gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHtNN/8AuJkL/mO1/jcRr4v/AA1/lnzMuH/yU8ceduHlGLTAAAAAAAAAAAAAAAAFO/W5/o7of8Y337zRE63I693ip6UW3n6tvjnoUiFgogAAAAAAAAAOzsn9s2j+u0/3xp4udWeJ6o60NzAodawAAAAAAAAAAAAAAAAAAAAABql8X36zuuH/ADZXfwkLm2H/AAbX5YVttT+Vc/NKOB1WgAAAAAAAAALU+qa/7z6j/wDJbv8AeNIQ3fX+Nb/P0Skm7P8Anq/L0wvwK2TQAAAAAAAAAAAAAAA17ust4gvrF1Og0ly9XdLlHSyV7Ls6J2MdVf3t3KhVw2L3KxehTHaj1l5lQs7dPZn09j59Ue1Xo8VPBz6eZB94Md8278qnq0/+Xo0c6s0lqPgAAAAAAAAABnbhv0RvHEDq3lrTy29LBbqmTu3Nd2jTHuG006tWpmxVFRHKipHHjsWRzEXYpztq7QpwOHquzp0RHhq4Nc+JuYDBzir0W40cPihta5fsFnyrYrPlnL9BFa7HYKKC32i3QphHBTUzEjijb2mtaibSmLt2q7XNdU5Zmcs8crKooiimKaYyRGZ3B4egAAAAAAAAAAAAAAAAAAAAAAB1l6s1rzHZ7rl++UMVzs18pJqC7W6dN6OemqGLHLG9OdHNcqKe7dyq3VFVM5JicsT43muiK6ZpnPEtU7ia0NunD5q9mTIFYks9mR/hDJ11kT/5lpqXOWnkVdiK9mDopME9ux2GzAuXZG0acdh6bsadFUeCqNOuPErbaGDnC3ponRpjiYAOm0gAAAAAAAAAAm1wG6//AFG62W6mvNb3NkPUXorFmzfdhFTyOevcNc7mToJXq1yryRvkXsEf3k2Z9bhZmmPbozx0xyx5Yh19i436a/ET1as09E8nmbNJUiwQAAAAAAAAAAAAAAABS/1h/BpPNNd+IPSy1LKr0dVaoZZpGYuxRMX3eCNqbcU21CJ/93/SKT3dfb0REYW9P5J//M//AJ5vAie3dlab9uPzR06+fwqXCfImAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdrY7Jd8y3i15fsFunu97vVTFRWq10rFkmqKiZyMjjY1Nqq5VwPFy5TbpmqqckRnmXqiia6oppjLMtnzg94aqDht0vhs9YkFXn7M6x3DPt3iwc1ahGqkVHE/lWKma5WtX3Tle/ZvYJUO3drTtC/wCtHUpzUx08c6oWHsvZ8YO1knrTnnVyJZHFdMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKa+tM0C7opLHxCZdovu1D0Ni1DSJvLC527b61+H2rl6B7l2rvRJyNJ5udtLJM4WudOenpjp50U3jwWWIv08VXRPRzKUCfokAAAAAAAAAAAAAAASz4MNBH6/a22KyXGkdNknLG7fM8yKi9G+jp3p0dIq8mNVLux4Y47m+5PanF2/tL6HCzVE+3Vmp4/DyaeZ09k4L6q/ET1YzzxeDlbRzGMiYyONjY442o2ONqIjWtRMERETkRCnliv0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANbrrL/wBai/8AxDZvxctbdL+BT+afOgW8H8ueKEASSuIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB7TTf/uJkL/mO1/jcRr4v/DX+WfMy4f8AyU8ceduHlGLTAAAAAAAAAAAAAAAAFO/W5/o7of8AGN9+80ROtyOvd4qelFt5+rb456FIhYKIAAAAAAAAADs7J/bNo/rtP98aeLnVnieqOtDcwKHWsAAAAAAAAAAAAAAAAAAAAAAapfF9+s7rh/zZXfwkLm2H/BtflhW21P5Vz80o4HVaAAAAAAAAAAtT6pr/ALz6j/8AJbv940hDd9f41v8AP0Skm7P+er8vTC/ArZNAAAAAAAAAAAAAAEY+LnXin4fNF8w5up5o0zZdU8D5FpH4OV9zqWO3JlYvKynYjpnY7F3UbyuQ6+xNmzjsTTRPVjPVxRr0OftPGxhbE1f1Tmjj9Glqv1NTUVtTUVlZPJVVdXI+aqqpXK+SSSRVc973OxVVcqqqqpccRERkjQriZmZyy+B9fAAAAAAAAAAA2Sur84c/qT0kizRmKg6DUPU2OC5XlsrcJaG34K6hodu1rka9ZZU2Lvu3XfxaFU7zbV+sxHqUT7FGaPHPDPRHi40+2JgPprPrVR7VWefFHBCfJGnaAAAAAAAAAAAAAAAAAAAAAAAAABBHj84dPrx0hnv2XqDujUPTVk91y82JuMtbR7qLXUCYbXK9jEkjTBV6RiNTDfcSPdrav0eI9WqfYrzT4p4J6J8XE4228B9TZ9amPapzx444Ya1RbCAAAAAAAAAAAAA2XuATX/67dFKG13qt7pz3pokNjzL0jsZaimRi9wVrscVXpYmKxyquKyRvXnQqbeXZn0eJmaY9ivPHHwxyeaYWBsXG/U2Mk9anNPRKcpHXYAAAAAAAAAAAAAAAP45qORWuRHNcmDmrtRUXmUClbjQ6vWoZPdtV+H+zrPBKr6vNOmNGz2cblxdJUWmNPbNXarqdNqf5rFMI2z/YG88ZIs4meKqfNV+7n8KJbW2HOe7Yjjp1auZTTJHJDJJFLG6KWJyslieitc1zVwVFRdqKik8icqKPwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHqMm5KzXqFmO25SyTYKzMuY7tJ0dBaqGNZJHdlzl2NYxqbXPcqNam1yom0w38RbsUTXcqiKY4ZZLVmu7VFNEZZlsN8GvBFY+HqkiztnR1NmPV24QKx1XGm/SWWGVuD6eiVyIrpHIu7JNgmKewZg3eV9Ybe3hqx8/Lt5rUc9XjnxeCOfxTnZWyKcLHr156/Nxa1gBGXbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB5nOmULFn7KWY8lZmpErrBmm3z2260y4Iqw1DFYqsVUXde3Hea5NrXIiptQzYe/XYuU3KJyVUzlhju2qbtE0VaJjI1LdYdML7o1qXm/TXMLVdX5Xr308VXu7raqlciSUtUxNvsZoXNeic2OC7ULqwOMoxdim7ToqjmnhjklWeKw9WHu1W6tMT/wBJY0NtrgAAAAAAAAAAAAANm3gQ0B+ozRK2y3mi7mz3qF0V9zdvtwlga9n8yoXc6dzxOxci8kj5OYqTePaf1uKn1Z9ijNHTPLPkiFg7GwX01iMvWqzz0RyedNYj7rgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA1uusv/Wov/wAQ2b8XLW3S/gU/mnzoFvB/LnihAEkriAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAe003/7iZC/5jtf43Ea+L/w1/lnzMuH/wAlPHHnbh5Ri0wAAAAAAAAAAAAAAABTv1uf6O6H/GN9+80ROtyOvd4qelFt5+rb456FIhYKIAAAAAAAAADs7J/bNo/rtP8AfGni51Z4nqjrQ3MCh1rAAAAAAAAAAAAAAAAAAAAAAGqXxffrO64f82V38JC5th/wbX5YVttT+Vc/NKOB1WgAAAAAAAAALU+qa/7z6j/8lu/3jSEN31/jW/z9EpJuz/nq/L0wvwK2TQAAAAAAAAAAAAABrR8ffED9d2tNZabHXd05C00Way5bWN2MVTUo9Er65uGKL0sjEYxUXBY42OT2yls7tbM+jw0VVR7deefFHBH44ZV/tvHfU38kdWnNHTKDBInHAAAAAAAAAACenV/8Of13auQ5kzFQd0aeaZyQXO+NlbjFW1+8rqGh27HI5zFkkTam4zddhvoRvebav0eH9SmfbrzR4o4Z6I8fE7WxMB9Te9aqPZpzz454IbJ5VCfAAAAAAAAAAAAAAAAAAAAAAAAAAAANbfrBeHT6ldW5c1ZdoO59PdTpJ7laGxNwiorjijq6i2bGt3npLGmxNx263+LUtbdnan1mH9SqfbozT444J6J9KA7cwH0971qY9mrPxTwwgISVxQAAAAAAAAAAlJwfa8zcP2teXs0VlQ9mT72qWXPVOmKtW3VL241G6mOLqaRGypgmKo1zU9spx9ubNjHYaqiOtGenjjg5dDo7Lxv0t+Kp6s5p4vRpbTUM0NTDFUU8rJ6edjZIJ43I5j2OTFrmuTFFRUXFFQp2YmJySseJyvqfAAAAAAAAAAAAAAAAAQY4meBDS/X9a7M9p3dP9TZkV7sz0MKOpq+RORLjSorUkVeTpWK2T7ZXoiNJFsjeO/gclFXt2/BOmPyz0aOJx9obGtYr2o9mvw+HjjpUT628L2s+gVdNHnzKc3gJJOjo8521HVdoqMVwbhUtanRudzMmax/7ksbZ+2MNjo/9dWf3ZzVc2rLCG4vZ17Cz7dObwxo/HGj2dNogAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHZWizXjMFxpbPYbVWXu7Vz+jorXQQSVNTM9fcxxRNc9y9pEPFdym3HrVTERHDOZ6poqrnJTGWVi+h3Vnaw6gSUV41PmZpRlaTCR9JUI2ovc7OXBlI1dyDHairO9HN5ejcRbaO9uGsZabPt1fp5+Hk53dwe7967nuezHl5uDl5l1uinDzpToBY1s2nOW46GpqWNZeMyVSpPdK9W7camqVEVUx2oxiNjavtWIQDaG1MRjqvWu1ZfBHBHFH4lLsJgbWFpyW45eGeVm057bAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVM9aJoF+cuT7Rrvl6i371khrLXnNsTfZTWieT7hUORNqrTTvwX9xIqquDCa7n7S+XcnDVTmqz0/m4Y5Y83jRneLBevRF6nTTmni9HSoiLGQ0AAAAAAAAAAAACc/AFoB9dmtdDdr1Rd0ZE0zWG+ZjSRuMVRUo9fB9E7HFF6WVivcipgscb2ryoR3eXaf0eGmmmfbrzRxcM/jhmHY2Jgvqb+WerTnnohsuFTLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA1uusv/AFqL/wDENm/Fy1t0v4FP5p86Bbwfy54oQBJK4gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHtNN/+4mQv+Y7X+NxGvi/8Nf5Z8zLh/wDJTxx524eUYtMAAAAAAAAAAAAAAAAU79bn+juh/wAY337zRE63I693ip6UW3n6tvjnoUiFgogAAAAAAAAAOzsn9s2j+u0/3xp4udWeJ6o60NzAodawAAAAAAAAAAAAAAAAAAAAABql8X36zuuH/Nld/CQubYf8G1+WFbbU/lXPzSjgdVoAAAAAAAAAC1Pqmv8AvPqP/wAlu/3jSEN31/jW/wA/RKSbs/56vy9ML8Ctk0AAAAAAAAAAAAAg/wAe3EF9R2i1db7JXdzZ91HSayZX6N2EtNArE7urm4YKnQxPRrVTakj2LzKSHdvZn1mJiao9ijPPj8EcvmiXH21jvprGSOtVmjpn8cLWcLaV+AAAAAAAAAAHbWGxXbM97tGW7BQy3S+X6sgt9ot0KYyT1NQ9I4o2p2XOciHi5cpt0zXVOSIjLM+J6oomuqKaYyzOZtacNmiFo4fdI8t6e2/op7pDH3dm27Rph3bdqhrVqZscEVWtwSOPHakbGou0pna20KsdiKrs6NER4KeDXPjWTs/BxhbMURp4fHLPJzW6AAAAAAAAAAAAAAAAAAAAAAAAAAAAwTxIaI2jiB0kzLp5ceiguNTH3blS7SJj3FdqdHLTTYoiqjVVVjkw2rG5yJtU6OytoVYHEU3Y0aJjw08OuPG08fg4xVmbc6eDxS1Sb/Ybvla+XjLV/oZbXfLBWT2+726ZMJIKmmescsbu21zVQue1cpuUxXTOWJjLHFKta6JoqmmqMkxmdQe3kAAAAAAAAAANiTq29f8A6ztJXaa3+t6bOOlDIqOnWR2MlVY34topEx5Vp8FgdhyNSNV2vKu3r2Z9NiPm0x7Nefiq4efTzp1sDG/Os/Lq61Hm4ObRzLHyKu8AAAAAAAAAAAAAAAAAHHq6Skr6Wooq6miraOrjdFVUk7GyRSRuTBzHscio5FTYqKh9pqmmcsZpfJiJjJKCmrfV08Oupj6q42Wz1OmF/qMXd25ZcyKidIvIsluka6BG9qFIlXskjwW9OMw+aqfXp/5afi08+VxsVsLDXs8R6s+LRzaObIrs1D6q/W7Lr5p9P8yWHUagZj0NM962e4P7H3GpV9On4SSjC75YW5mu01UT8UeTP5HCv7uX6OpMVRzTq8qGucOGbiCyG6Zc0aPZpoYIFVJrhBb5a2jbh2aqkSaH/LO9Y2vhL/Uu0zy5J5pyS5V3Z+Itdairmy+WGEZoJqaWSCohfBPEu7LDI1WPavYVq4Kh0ImJzw05jI+R9AAAAAAAAAAAAAAAAAAAAAAAAAAAO7suWsx5kn7my7YLlf6nHDue3Us1U/Febdha5THcu0W4y1VRHHOR7ot1V9WJniZ9yrwccT+cVj8EaK5jpmS+0lvEDLMzBefeuT6ZMO2c29t3A2utdp5Pa/8AHK3beysVc0W55c3nyJS5L6qvXS9uhmzlmnLGR6R+HTQtlmulazs/coI2QL/LnGxG+WFo/wAdNVU80a/I6Nndu/V15inyz+OVM/T3qstDMtuhqc95gv8AqRVx4dLSOkS0W9+HL9xpVdUJ+EnBxW+OKuZrdNNEfFPlzeR1rG7lijrzNXkjyZ/KntkLSjTTS2h8H6eZGsuUKdzEZO+20kcU0yJydPOidLKuzle5VI3icbfxM5btc1cc9HA7VjDWrMZLdMRxMgmqzgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHx7mp/6PH7xP2j7ll8yPsfH0AAAAAAAAAAAAAAAAAAAAAA+LqeByq50MbnLyqrUVV/YPuWXzI/nc1N/R4/eJ+0MsmQ7mpv6PH7xP2hlkyHc1N/R4/eJ+0MsmQ7mpv6PH7xP2hlkyHc1N/R4/eJ+0MsmQ7mpv6PH7xP2hlkyHc1N/R4/eJ+0MsmQ7mpv6PH7xP2hlkyHc1N/R4/eJ+0MsmR+2RRRqqxxMYq7FVrUT/AMr7kfQ+AAAAAAAAAAAAAHzfFFJh0kbX4cm8iLh9k+5R+O5qb+jx+8T9oZZfMh3NTf0eP3iftDLJkO5qb+jx+8T9oZZMh3NTf0eP3iftDLJkO5qb+jx+8T9oZZMh3NTf0eP3iftDLJkO5qb+jx+8T9oZZMh3NTf0eP3iftDLJkO5qb+jx+8T9oZZMh3NTf0eP3iftDLJkfptPA1Uc2GNrk5HI1EVP2BlkyPqfH0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAfJ1PA5Vc6GNzl5XK1FVf2D7ll8yPz3NTf0eP3iftDLJkO5qb+jx+8T9oZZMh3NTf0eP3iftDLJkO5qb+jx+8T9oZZMh3NTf0eP3iftDLJkO5qb+jx+8T9oZZMh3NTf0eP3iftDLJkO5qb+jx+8T9oZZMh3NTf0eP3iftDLJkO5qb+jx+8T9oZZMj9shijXGOJjFXYqtaif4Blfcj6HwAAAAAAAAAAAAAAAAAAAAAAOgveVMrZmjSLMmWrVmCJEwSO5UcFW3DsYTMehlt3rlvqVTHFMw8V2qK+tETxwxBeOFXhtvrnPuGh2TEe/28lJaKaicqrzq6lZEqr2zet7ZxtGi9XzzPnatezcNVpt082TzMcXHgC4R7mrnzaQ09PI7kdSXW70yJ6jYq1rf2Dap3l2hT/wDXyUz0NerYmDn+jyzreMrOrV4U6lVWHLF6tyLyNp71VuRPU6Z0psU72Y+P6on/ALYYp2BhJ4J55edqOq64ZplVY6jONJjyJFdYFw/lKR5ljfDHR7vN6WOd3cLPvc/odVL1VXDjIuLcy5/h5djLlbl5f31sdyHuN8sb7tHNP7nmd28N4aueNTi+ii4d/HPUb5RtHzQfe+eM923zVfufO7WG96vnjUeii4d/HPUb5RtHzQO+eM923zVfuO7WG96vnjUeii4d/HPUb5RtHzQO+eM923zVfuO7WG96vnjUeii4d/HPUb5RtHzQO+eM923zVfuO7WG96vnjUeii4d/HPUb5RtHzQO+eM923zVfuO7WG96vnjUeii4d/HPUb5RtHzQO+eM923zVfuO7WG96vnjUeii4d/HPUb5RtHzQO+eM923zVfuO7WG96vnjUeii4d/HPUb5RtHzQO+eM923zVfuO7WG96vnjUeii4d/HPUb5RtHzQO+eM923zVfuO7WG96vnjUeii4d/HPUb5RtHzQO+eM923zVfuO7WG96vnjUeii4d/HPUb5RtHzQO+eM923zVfuO7WG96vnjUeii4d/HPUb5RtHzQO+eM923zVfuO7WG96vnjUeii4d/HPUb5RtHzQO+eM923zVfuO7WG96vnjU/reqj4dmqirnHUV6J7lbjacP2LQijvnjPdo5qv3HdrDe9XzxqdhD1V/DbHhv3vPVRh/pLnQpj7y3tPM7443wUc063qN3MN4aueNTvaXqxuF6nw6WizPW4cqTXdyY/yUUZine7HTw0xyPcbvYWPDzvWUPV08I9GrVm03qrkreeqvl3TH1Uhq4kMNW9O0J/+kR/206mSNhYOP6MvLOt7y18FXCvaFYtJopYJdzk7tSorvs91TS4+ua1e38fXpu1cmSPNDPTsjCU6Lcefzso2XQ3RXLisfYNIsmWaRntZqOxW+GTHsq9kCOVe2qmnc2jibnWu1zx1TrbFGDsUdWimOSGTIKeCliZBTQR00EaYRwxNRjGp2Ea1ERDUmZnPLYiMj7Hx9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD4VNTTUVPNV1lRFSUtMxZKipmekccbGpirnOcqIiInKqn2ImZyRpfJmIjLKIuovHfww6cPqKSs1FgzVdaZVR1pyvE66uVU5W90xYUqKi7FR0yKdvC7uY7EZ4o9WPDV7Pk0+RzL+2cLZzTVlnxZ/R5UPc19bdlenfLHkfRy6XaNcUhrL7c4Leqdt0FNFW4+okqeqd2zuTcn/JdiOKMvlnJ5nKu7z0x1KJnjnJrYMu/Wxa2zud4D09yTbIl5ErI7jWPT1HMrKdP8k6NG5eFjrV1zxZI6JadW8t+dFNMc89MPGz9aNxMyq5Y6bJ1Mi8jY7VOqJ6nSVbzPG5+Cj3+eNTFO8WK/483pfuDrSOJeFzVkocl1SIu1stqqURfV6OtYonc/BTw188aiN48V/x5vS9paetk1nge3w7pzku5Rp7ZtC240Tl/wAaSrqk/YNevcvDT1a6448k9EM1O81+OtTTPPHTLN2VutvyvO6OPO2jd1tTUVEmqrJdILgqpzq2Gpho8PUWRfVOfe3JuR/juxPHGTzTPmbdveeievbmOKcupLrT7j54XtQZIaWLUOPKFymwwt+aYH2tG4/bVT96k/8AzHExW7WOsZ/U9aP+OfyafI6ljbWFu5vWyT483l0eVL6gr6C60dPcbZWwXG31jEkpK6lkbNDKxeRzJGKrXIvZRTh1UzTOSYyS6lNUVRljQ5Z5fQAAAAAAAAAAAAAGONQdX9L9KaNK7UXPdmyjE9ivgguFUxlTMicvQUyKs0vqMYptYXA38TOS1RNXFGbn0QwX8VasRluVRHGgtnnrTNAsvPmpsn2XMmoFRGqpFWQ0zLbQvw/1lY5s6Y/1ckeH3OxdzPcmmjlyz5M3lca9vHh6OpE1eSPLn8iMeYetuzxUPf8Ampo9YrQzFejW7XGpuK4cyqkEdEde1uTajr3ZniiI8+Vzq957k9WiI45y6mL63rT+JKqcqwWbI1ubjsZBbK12z1Zq+Q3KdzsFGma55Y1Ned48TPBTzTrcGLrROJqNVV8GT50xx3X2qZE9T2FW1T1O5+B/5c/ofI3ixX/Hm9L2dm62HW6mexL7p/kq6wN9ulHFcaKV3+O+sqGov+Ia9zcvCz1a6448k9EMtG8t+OtTTPPHTKQOTutqyTWPiiz9pLebAiqjZa2x18F0bt910VQyhVE7SOcvqnMv7lXY/wAVyJ44mPNlb1reaievRMcU5dScml3Fzw9avyQUeT9Sbcy91Co2PLl3V1rr3SO9xFDVpH0zv/sq9O2R3GbExmFz3Lc5PDGePJo5cjsYbamHxGaiuMvgnNPl6EkjlN8AAAAAAAAAAAAD8veyNjpJHIxjEVz3uXBERNqqqryYARN1N44OGrSySoortqJTZivVMqtfYsssW7To5vtmOlg/m8bkXYrZJWqdvCbvY3E56aMkeGr2fT5HMxG2MNYzTVlnwRn9HlQnzf1t1jhfLDkLRyuuEaqvQ3C/3OKjcicyupqWKpx9aY79jcmqf8l2I4oy+Wcnmci7vPT/AEUTyzk82XzsD3brXNe6p7ktGS8jWmFcd3paW4VMqdj2a18bf8g6VG5mEjrV1zyxHQ06t5cROimmOfW8uvWhcTavRyMyg1E5Y0tMuC/ZqlX9kzd0MD/y5/Qxd4sV/wAeb0u9tnWrcQ9I9qXDK+RbrDj7NHUFfDIqdp0dwRqeu1THXubg50VVxyxqe6d5MTGmKZ5J1s2ZT63B2/FDnnRhOiVU6a42K7eyROfdpamDBfXnQ597cns7vPHTE9Dctbz+/b5p6PSmfpn1gHDLqVLT0SZ0kyLd6lUSO15thS3JiuzDutr5aNNvIiz4r2DgYvdnHYfP6nrR4ac/k63kdbD7bwt7N63qz/yzeXR5Uzaappqynhq6Oojq6WpY2SnqYXpJHIxyYtcx7VVFRU5FQ4MxMTknS6sTExlh9z4+gAAAAAAAAAAAAAAAAB1F3v8AY8vwd03u7UlqhVF3X1MrY97DmajlRXL2kAw9eeInT+2q+OgWuvsibGupYOjix7b51jXDto1QMcXDihrHK5tryjDCie1kqqp0ir21YyNmHvgPMT8Sue5FXobdZaZvNhBO5fsunVP2AOH5xuomOOFrVPte5nYffAOZBxK57jX7tbbLUN58YJ2r6ytnRP2APUW/ihq2q1t0yjFK1fby0tU6NU7aMfG/H3wGSbLxD6fXNzI66StsMrtirVwb8eK9h8CybO2qIBmO13m03umSss9yprpSr/n6WVsrUXsKrVXBe0oHZAAAAAAAAAAAABjDUTVK0acvtUVwoam4zXVsz446ZWIrGwqxMXb6p7ZXbMOwoGNfOdy14t3P38PwgHnO5a8W7n7+H4QDzncteLdz9/D8IB5zuWvFu5+/h+EA853LXi3c/fw/CAec7lrxbufv4fhAd9lfX/L2aL/bLBDZq6imukqww1MzolY1+6qtRd1yrtVMPXAz2AAAAAADqL9fLfluz3C+XWboKG3RLLO7nXDY1jU53OVUaic6qBH3zncteLdz9/D8IB5zuWvFu5+/h+EA853LXi3c/fw/CAec7lrxbufv4fhAPOdy14t3P38PwgHnO5a8W7n7+H4QDzncteLdz9/D8IDLen2oNr1DttZcbbSVNF3DUdz1EFSiY4q1HIrXNVWqiovqp9gD3wAAAAAAPL5yzVRZLy9XZiuEUlRT0SxN7miVEkkdLI2NEbvKie6x9RAMHec7lrxbufv4fhAPOdy14t3P38PwgHnO5a8W7n7+H4QDzncteLdz9/D8IB5zuWvFu5+/h+EA853LXi3c/fw/CAec7lrxbufv4fhAPOdy14t3P38PwgCcTuWefLl0RO06Ff8A/MDkxcTeTlw6ax3mNOfcZTv/AMMzQO5pOIrTqoVEmfcqBF5VnpUXD+RfIB7a1arad3lzWUWbKFsj9jY6pzqRyr2ESoSPFQPfRyMlY2SJ7ZI3ojmSNVFaqLyKipygfsAAAAAAAAAA/EkjIY5JZXIyOJqvkevIjWpiqr6iARpXidyyiqiZcuaoi7F3odv+UA853LXi3c/fw/CAec7lrxbufv4fhAPOdy14t3P38PwgPcZB1lsef7xNZaK2Vtvq46Z1Sx0+45jmsc1rkxYq4L7JOUDMIAAAAAeTzrm6hyPl+qzBcIZKmGnkiiZTQq1JJHyvRqI3eVE2IqqvaQDCXnO5a8W7n7+H4QDzncteLdz9/D8IB5zuWvFu5+/h+EA853LXi3c/fw/CAzFkHPdt1Bs0t4ttLUUbKepfSVFPUIm817Wtfsc1VRUVr0UD24AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFbPEr1jenuk09wyjpfT02pmfKbehqq1kq+A7fMmxWzTxLvVL2ryxwqicqLK1yK0leyd1b2KiK73sUfqnk4OOeZwNobet2MtNv2qvJGvk51KWrvEdrLrjWy1GomeK66W90nSU2Wqd60tqp8Fxb0dFFuxYt5Ee5HPXncqlgYHZWGwUZLVERPh01c/4hEsVj72Jn/2VTMeDg5mDzoNMAAAAAAAAyzpfrpq1ozcGXDTbPVzy0m/0lRa45elt9Qv+vopkfBJ2MXMVU5lQ0sZs7D4uMl2iJ8fDyTpbOHxl7Dzlt1THm5tC5Xhu6zLKeeqm35R1woqXIOZKlWwUmcaVzksdVIuxEqEkc59G5y+6c50fKqujTBCB7V3SuWYmvDzNVPu/1Rxe95+NK8BvBRdmKb3sz4eD0eZalHJHNHHLFI2WKVqPilYqOa5rkxRUVNioqENmMiSP2AAAAAAAAAAYx1X1j050TyxNmzUjMtPYLY3eZRQOxkqq2ZEx6Gkp2YySvXsNTBE2uVrcVNzBYC9jK/UtU5Z8kcc8DXxOKt4an1rk5I8/EpD186zPVHPstbY9IKd+l2U3q6Nt49hNfqqNdm86b2UdLim3CHF7V/zqlg7N3SsWMlV/26vB/TGvl5kQxu8F27mtezT4f6vRyc6te63e7X64VV3vlzq7zda56yVtzrppKiomevK6SWVznuXtqpLKKKaIimmIiI4IcCqqapyzOWXXHp5AAAAAAATY0A479bNDp6G11d2k1EyHArWS5Svsz5HwxJswoa12/LTqibGtXfjT/R47SP7T3cwuMiZiPUr8MdMaJ8/jdfBbZv4bNM+tT4J6J4PMvz0F4jNM+InLK3/IV1VK+iaxMw5VrN2O5W2R/Ik0SKqKx2C7kjFVjtuC7yORK22lsq/gK/VuRmnRMaJ/HgTTBY+1i6fWonPwxwwzwc1ugAAAAAAAACGnExxs6W8OkU9ke/8APXUh0aOpskW+Vre595MWPuFTg9tO1UwVG4OkVFRUZurvJ3tk7v38f7XVt+9P/wCY4fN43K2hte1hM3Wr8EdPg86iPXDi71w17qKqDNmapbVlaZy9Dkeyq+jtbWY4o2WNrlfUKnZmc/tYJsLG2fsPC4GMtFOWr3pzz6ORDMZtS/iutOSPBGaPTyoxnXc8AAAAAABIbRHij1m0BroZMiZrmdYUk363JdzV1XaKhFXFyLTucnROdzvhcx/7rA5e0Nj4bHR/7Kc/vRmq5+Hlyw3sHtG9hZ9ic3gnR+OJfpwv8aWnHEhSsszETJ2pVNCslwyTWSo/p2sTF81vnVGpOxE2q3BJGbd5u77Ja22xsC9s+fW61v3o6Y4PMmuztrWsXGTRX4NXhTJOC6oAAAAAAAAAAAAADyua86ZcyXQ93ZguLKRHovc1K32c8ypzRxptX1eROdUAiPnLiJzLeHS0mVoUy5b1xalUu7LWPb2VcuLI8ew1FVPtgI/1tdW3KpkrLhWT19XKuMtVUSOlkcvbc9VVQOKAAAAAAAB2VqvF1sdWyvs9xqLZWR+1qKaR0bsOwqtVMUXnRdgEnch8RszHw23PkKSxLg1uYKVmD29ueFqYKnZViJ+9UCWVDXUVzpKevt9VFW0VUxJKaqhcj2PavO1ybFA5YAAAAAAAAABAbiFvPhPUOeiY/eisVHBRoicm+5Fnevq/dURfUAwYAAAAAADtrDc3WW+Wa7sx3rXW09WmHP0MjX4evgBaox7ZGNkY5HMeiOY5ORUXaioB+gAAAAAg1r3qN+cV3/NW0z71lscq92ysX2NRWNxa7bzti2tTt4r2AI8AAAAAAAAWB6BWfwVpxbp3M3Jr1UT18qLy4Od0TPssiavrgZpAAAAAABGPibvPc+X8vWJj8H3OtfVSonPHSs3URe0rpkX1gIXgAAAAAAAAAAAAA9VlvO2asozNlsF6qKFiO3n0iO36d/Z34X4sX1cMQJdaca92vM0tPZs0RRWS9TKjKesYqpSVD15G4uVVjcvMiqqL2ccEAkQAAAAAAAAAx5qvefAWnuaa1r9yWSjdSQKnLv1apAip2038fWArWAAAAEsOGCzYz5pzA9n8XHDb6Z/Z31WWVPW3YwJeAAAAABFnidvPRWrLNgY/bWVMtdO1OZIGJGzHtKsrvsAQ5AAAAFieiNm8Dab2BHM3Z7mklwn7fdD1WNf5NGAZZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD8veyJj5JHtjjjarpJHKiNa1ExVVVeREERlFDPG9x53HPVZd9JNFrxJb8h07n0eac50b1ZNenJi2SClkbtZScyuTbN/9v29kbvbtxZiL+IjLXpimf6fHP8Ay83Hohm19tTdmbVmfZ4Z8PF4vPxKpCZo0AAAAAAAAAAAABbj1dvGDdLFf7Nw/wCpF1fW5YvkjaTTi9VT1c+3VrtkVuc9y4rBOvsYk9w/Biewd7CE70bDpronE2oyVR1o8Me9xxw+GEn2FtSaaosXJzT1Z8E+Di8C9IrpMQAAAAAAACKvFPxV5N4Zspsq69rL9ny+RPTKGTGSbr5lT2K1NS5MVip2O5XYYuX2LNuKt7OxtjXNo3MkZqI01dEeNzdpbSowdGWc9U6I/HA1sdV9Xc/615urc66iX6W9XeqVWU0O1lLRQYqraakgRd2KNuOxE2qvsnK5yq5bXwWBs4O3Fu1GSPLPjnwygOJxVzEV+vcnLPm4mNDba4AAAAAAAAAAZA0w1Pzpo/nO0Z8yFeJLPf7RJi1yYrDUQqqdJTVMeKJJFIiYOavqpg5EVNbGYO1i7U27kZaZ/GWPGz4fEV4euK6JyTDaM4ctectcROmVpz9YWtoq7HuLNWX1fvyW65RNassCrs3mKjkfG7D2THIq4OxalP7V2bXgL82qs8aYnwx+NPjWJgMbTi7UV06eGPBLO5zW6AAAAAAAqs44+O5NMn3LSHRy4Rz6gq1YM15ui3ZI7IjkwWmp+VrqvD2yrsi5Nsn8XMt3t3Pqcl+/HscEe945/wCPn4tMb2xtn5OW1an2uGfB6fNxqGK2trLlWVVwuNXNX19dK+etrqiR0s00sjlc+SSR6q5znKqqqquKqWRTTFMZIjJEIZMzM5Z0uMfXwAAAAAAAAAdjaLvdLBdLfe7Hcai0Xi1VEdVbLnSSOhnp54nI5kkcjFRzXNVMUVFPFdFNdM01RlidMS9U1TTMTE5JhsccDvGBT8Q2Wpco5zngpNXMqUzX3NrEbGy8UTVRiV8EaYI17VVGzMamCOVHNwa7dZVm8Ow5wFfr2/8AHVo/4z4NSebH2p9XT6tfXjyx4dafRGnaAAAAAAAAAAABgrVTWigyUktlsiR3PM7m4SNVd6CjxTYsuHtn9hiL23YbEUIOXi9XXMFwnul6r5bjX1C4y1EzsVw5mtTka1OZETBOYDqwAAAAAAAAAAAAyrpjqlddP7i2J7pK7LdXInhK1Y47uOxZocdjXonNyO5F5lQLCLXc6C82+jutsqWVdBXxNmpahnI5rv2UVORUXai7FA54AAAAAAAH8c5rGuc5Ua1qKrnLsRETlVQKsc0Xd1/zHfb05VVLnXT1EePMx8iqxvrNwQDogAAAAAAALNdNrr4ayFlS4q7ffJboYZn9mSnToZF98xQPbgAAADCOtuoqZMsHgu2T7mY76x0dKrV9lT0/tZJ9nIvuWdvb7kCAPLtXaqgAAAAAAAfuKOSaSOGJqvllcjI2Jyq5y4IieqoFqdhtcdksdns0WG5aqKCkaqc/QxtZj6+GIHbAAAAAAAgbxFXnwjn/AMHMfjFYqGCnVqcnSy4zuX1d2RqesBgUAAAAAAAAAAAAAAABNvQLUqfMNHJlG91CzXa0w9JbKuRcXz0rcGqxyryujxTbyq396qgSRAAAAAAAAjNxNXnubLlgsbH4Pulc+plROeOlZhgvaV0qL6wELAAAABYPoLZvBOnFrlczcmvM09wmT9+7o419eONqgZlAAAAACAfEHefCmolVSNfvRWOkgom4cm8rVnf6+MuC+oBg8AAA5VDSTXCtpKCnbvVFbNHTwN7L5HI1qfZUC1a3UUNst9DbqdMKe308VNAnYZExGN/YQDmAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABVV1nHELmDIOVLLo1lVtVbKvUijmqszZhYjmN8ExvWF1DBKnK+d6L02C7I8GrikuyZbo7Lov3Jv15Jiic0f8ALwzxcHj4kb3hx1VqiLVOb1tM+Lwa/FxqESyULAAACwHhb4A8+690lFnTNdZJp9plUqj6K5yRb9xujEXatDA/BrY15Omk9j9o2RMcIztjeW1gZm3RHr3PBwU8c9EeR29nbEuYqPXq9mjyzxa1xunnA5wx6c01Oyi0wt+abhCidLec0tS8TyuT3axVKLTsX/7cTE7RBcVvDjsROe5NMeCn2fNn55SqxsfC2YzURM+Gc/o8iQdJpzp7QQpT0ORMvUUDUwSCC10kbETsbrYkQ5dWKvVZ5rq55b0WLcaKY5oeSzNw/aG5xgkgzLpFlG6pKiotQ+0UjKhuPLuVEcbZWL22uQz2dp4q1OWi7VHLPm0MVzA2LnWopnkhXjr71XeTbvbq+/aBXCbK2YIGOliyRdKh9TbKvdTHooKqZXT073cyyPkYq4Iu4mLklGzd8LlFUU4mPWp96M0xxxonkycrh43d2iqJqsTknwTo9Cj292W7ZbvF0y/frfPab3ZaqWiu1sqWqyanqIHqySN7V5Fa5FRSwrdym5TFVM5YmMsSh9dE0VTTVGSYdWe3kAAfelqaiiqaeso55KWrpJWTUtTE5WSRyRuRzHscmCorVRFRUPkxExknQ+xMxOWG3ZonnmTUzSHTbP0+73ZmvLtvuFyaxMGtq5IG90taiczZkciFI7Qw/wBPiLlqNFNUxHFweRZ+EvfOs0V+GIZQNNsAAAAAAYN4h9d8rcPGml2z9mNUqqpv80yxl9r0ZLcrlI1yw07FwXdb7FXyOwXdYjlwVcEXo7L2bcx9+LVGjTM+CPDq8bTx2Nowlqa6uSPDLVr1N1Lzfq7na+Z/zxdHXTMF9mWSZ+1IoIk2RU9OxVXciibg1jU5uXFcVW4cJhLeFtRatxkpj8ZZ8cq5xGIrv1zXXOWZeCNlhAAHv9M9L89av5toMk6e2CfMF/r8X9DFg2KCFqoj56iZ2DIomYpi5yom1E2qqIuti8Zawlubl2rJTH4yR4ZZ8Ph7mIriiiMsrt9E+q60wyvR0l01nuk+o2Y1a19RYqKaahssDuXcR0Sx1M+6vunPY1eeMr7aG+F+5Mxh49Snwznq1R5eNLsJu7aojLdn1p8GiNc/jMnnlzQXRLKMEcGW9JMo2hI0wSaGz0fTO7b5nRLI9e25yqRu7tLFXZy13Kp5Zdq3grFvq0UxyQ9FcNMdNbtC6nuunuWbnTuTddBV2mjmYqdhWviVDFTjL1M5aa6o5Ze6sPaq00xPJCKWrfV7cOeplBVusuV2aYZke1y0d9yy3ueBj/cpLbse5nsx5UY1jlTYj0O1gt58Zh5j1qvXp8FX7tPn4nNxWw8NejNHqz4Y1aFA+u+hmdeHzP8AX5CzrAx80bEqrLeqfe7luNDI5Wx1MCuRFwVWq1zV2tcitXsrZWzto2sdZi7b5Y4YnwShWNwdeFuTRXyT4YYZN9qAACwHq5NZ6nTPXy25PratWZV1ZRliuFO53sGXJN51snRPtllVYE7Uq9hCM71YCMRhJuRHtW8/J/V5M/I7ewcXNnERROivNy8GrlbIRVSegAAAAAQA48OLJugOTGZOybWs+tjO1M/wXI1Uc60UCqsclwe3b7NyorIEXYrkc/ake66TbubF+uu/MuR/66dP/KfBr9LibZ2n9LR6lHXq8keHU1waionq556qqnkqaqpkdLU1MrlfJJI9Vc573OVVcrlXFVXlLUiIiMkIHM5c8vifXwAAT14ReBvNHEZhnHM1dUZN0ppZ1h8MRxotddZI3bssVvbIisRrFRWvmeita72LWvVHo2N7b3it4D/10R61zwcFPHq8ztbL2PXi/bqzUeWeLWu5094P+G/TSkggsOk9juFXC1N69X2nZd61705X9NWpLuKvOkaNb2ERCvsVtzG4ictVyYjwR7MeTpS6xsvDWY9miOOc8+VmSTTvT+aDuWbIuXpaVUwWmfbKR0eHY3VjwNCMVeicvr1c8tv5FvR6sc0I4ap8CvDZqjRVLJNP6PJF6lavc2YcpsZa5YnqntnU8Te5pcV5ekiVewqcp1cHvFjcNPXmqPBVn8unytDE7Gw16Or6s+GM3oUMcT/C7nPhkzfS2a+VLL9le/tlmyjm+njWKOrjiVEkiliVXdFPHvN32bzkwcitcqLssjZG2LW0bc1U5qo0x4NcIXtHZ1eDryTnidE/jhRjOu54AA91pnqJmTSfPeWNQspVa0l9yvWsq6XFVSOZiexlp5URUVY5o1dG9OdrlNbF4WjFWqrVcZqo/E8jNh79Vi5FynTDbP0y1AseqmQMpaiZbk37Pm62w19NGqo58LnphLBIqbN+GRHRvw901SlcXhqsNeqtV6aZyenl0rMw9+m/bpuU6Jh7o12YAAAAAAAAAYA1o1aTJ9M7Ltgma7M1bHjPUJg5KKF6bHLzdI5PapzJ7JebEIKyyyTSSTTSOmmmcr5ZXqrnOc5cVc5V2qqryqB+AAAABmjJ2hec81RRVtTEzLtrlRHMqq5HdK9q88cCeyXtb26i8ygZ1tnDRlCnY1breLnc5kT2SxLFTRL/AIm5I5PfgegXh602Vu6lFXIv26Vb8f2dn7AHlrxwy5aqI3usl+uFtnVMWtqkjqYsexg1InJ75QI3Z40wzVkKRH3albUWyR25T3ilVX07lXka5VRHMd2nImPNiBjwAAAASa4d8+yW66vyTcZ1W33ZXS2dXrsiqkTF0aY8iStT3ybNrlAmkAAAAAAAB4XU28+Acg5quSO3JW0EkFO/nSWpwgjVPUdIigVmgAAHLoKGqudZT0FFEs1VVPSOGJOVVUDiAAAACdXDfde7ci1Nue7GSzXGWNjOxFM1srV9d7ngSCAAAOlzFf7dley3C+3WXoqK3RLJJh7Z7uRkbEXlc9yo1O2oFaGbMz3HOF/uF/ubvu9a/GOFFVWQxN2RxM7TU2dvl5VA84AA+scE0zZ3xRueymZ0tQ9E2MZvNZvOXmTecieqqAfIAAAAZD0os/hzUPK1E5m/FFWtrJ0Xk3KRFnVF7S7mHrgWUgAAAAAAcm1diIBVvnC8fnBmrMN6R2+y41880C/6pXqkaesxEQDzYAABzLfRTXKvobdTpjUV9RFTQJ2XyvRjf2VAnm3h801RrUdb6xyoiIrlq5UxXs7FA/vm+6af7Oq/wuX9sB5vumn+zqv8Ll/bA+UvDzpvImDKWvgX7ZlW5V/y0cgHkbvwx2GVj1seY66hlwxYytZHUsVexjGkKonb2gRtzvpzmbINTHFeqZj6OpcraO606q+nlVNu6jlRFa7D3LkRexim0DwgAAAA9jp9eZcv51yzdInqxILhCyow54ZndFKnrscoFnYAAAAAAAED+Iy8+EM+ttrH4xWKghgczmSWbGdy+u17U9YDAYAAB9YIZamaGnhYsk072xxMTlc5y4InrqoFqlltsVms9qtEOHRWujgpI1TnSGNGIvr4AdmAAAAPy97Y2Oe9yMYxFc9y7ERE2qqgVYZluzr9mG93p6qq3SunqWovM2SRXNb6yKiAdIAAAZV0Vs3hnUjLrHN3obdI+4Tr2O5mq+Nf5TdQCxcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHnsx5RynnCkSgzbli05poW47tFd6KCuiTe5fYTse3bht2GW1fuWpy0VTTPimY8zHctUXIyVREx44yox5v4D+FbOPSyVOlNFYquTHdq7BUVNr3FX7WCmlZB9mNTr2N48fa0XJmPHknz5/K593Y2Euf0ZOLN6EW839U1pfcOlkyPqdmTLEr8VZFdqelu8LV7CJElC/D1XqvbOxY31v0/5LdNXFlp/c513dm1PUrmOPJOpFrN/VVa62fpZspZryrnKmZj0cDpqi21b+x9zmifCnrznYsb5YWvr01U80xr8jm3d279PVqpnyfjnc7hm6u7Uus1dppNfslusGQcqsbcaykfVUtVFeZ2vwgo2PpJpU6NVTfl247ibmxX4p52vvRYjD/wD81eWurNomPV8M545vQ9bP2Fdm9/76clMZ+DP4s3lX5wQQUsENLSwx01NTRtip6eJqMjjjYm61jGtwREREwREK2mZmcsppEZM0PqfH0AAANaPrG4bLDxX56S0NjbPJQWeS+tiwwStdQQq5VRPdLF0ar21x5S2d1ZqnZ9HreGcnFln0q/29FMYurJ4Iy8eRBgkTjgAABtXcHVqqrNwv6JUdYx0c0mWKatRruXo65XVUX2WStKa27XFeOuzHvTHNmWRsqmacLbifB586SpyXQAAAAB+JJI4Y3yyvbFFE1XySPVGta1qYqqquxERBEZRrA8a3EZU8QmrtwqbXWOfp5kx81pyJSoq9HLE1+E9erftqp7Uci4IqRpG1drVLe2BsqMBh4iY9urPV0RyefKrva+PnFXpydWM0a+VD07rlgADuMvWC8Zrvtnyzl6glut9v9ZDb7RbYUxknqah6Rxxt5trnImK7OyY7t2m1RNdU5IiMsz4nuiiquqKaYyzOZtI8LHDZlnht06o8vUUcFfnK7sjqs95pa32dZWYY9FG5U3kgg3lbE3ZzvVN57in9s7Wr2hemqc1MdWPBGueFYuzdn04O36sdadM/jghJo5DoAAABXN1l2kE+omiNuzXYrJUXjNunt5p5aOKhgfUVUlBcntpKmFkcbXPciyOhkXBNiMVeTElO6eOjD4qaKpyU1xw6MsZ46Y5XB3gwvzbEVUxlqpnyTm1KNKHh717ue6tv0Sz5WNdySRZcubmeu5KfBPsliVbTwlOm7R8Ua0PpwOIq0W6uaXsqHg+4n7jh3PohmqPe5O6aJaX7PTrHgYKtuYGnTdp58vmZY2Xip/8AnVzPZUPAJxcXDBYdH6mFq+6qbrZ6fD1UmrWL+wa9W8uz6f8A6+SrUzRsXGT/AEeWNbK2n3V18V1vzflS9TWS0ZTW0Xehrku1TdqSoWlWnnZKk3R0kkrnqzd3t1q4rhgaWK3pwFVuqnLNWWJjJknPm8bZsbCxcV0zkiMkxwx0Nioq5OgAAAAeE1O1Ey9pPkDNWouaZlhsmVKCStqWNVEfM9MGw08WOzpJpXNjYi+6chs4PC14q9Tao01Tk9PJpYcRfpsW5uVaIhqdaramZm1h1AzNqLm2p6e85lq3TuhRVWKmgT2EFLCi8kcMaNY3tJiu3FS6MFhKMJZptUaIjn8M8qtMTiKsRcm5Vpn8ZGPDaYAABnThv0XuOvusGU9OaN0lPb66ZavM9yiTFaS1UuD6qVFVFRHK3CNmOzpHNReU521cfTgcPVdnTGiPDVOj0+JuYDCTir1NuNHDxcLa1y5l6y5SsNnyxly3Q2iw2CjhoLRbIE3Y4KeBiMjY3n2InKu1eVdpTN27VdrmuucszOWZWTbt026YppjJEO6Mb2AAIVdYFp3SZ/4Yc91D6dsl2yIkOaLLUKmKxOoXolVt5cHUj5k9XBeY7+7OKmxjqI4KvZnl0eXI5O27EXcLV4ac8cmnyZWsiW4r0AAAL3uqi1LmvOnmf9LK6oWSTJNzhu9jY9dqUd2a9JomJ9rHPA569uUrnfPCRReovR/VGSeOn0T5Ey3axHrW6rc/0zljin0+dbKQpJgAAAAAAADwuoudaXIeWKy9So2Wsd/N7TSO/wA7UvRdxF/ctRFc7tJ2cAK2bhcKy611XcrjUPqq6uldNVVD1xc971xVf/0A4YAAB/URXKiIiqqrgiJyqoE19HtF6ayQUuZ82Ujai+TI2W32uZuLKNF2tc9q8svPt9p++5AkoAAAAOHcLfRXWiqrdcaaOsoayNYqqmlTea9juVFQCt/UzJMuQ811lnRXSW+VEqrRUP5X08iruo5edzFRWr6mPOBj8AAA5VFWVNurKS4Ucqw1dDMyopZk5WyRuRzXJ6ioBaTl68Q5gsVnvkCI2K60cNUjE27qyMRzm+q1cUUDuQAAAAAARu4l7z3JlSz2Vj92S8V/SyN+2hpWYuT38jFAhIAAAZw4fLMl01Dpqt7N+Gx0dRWPxT2O85EgYnq4y4p6gGMM22hbDmjMFm3d1ltuFRBCnZjbIvRr67cFA88AAASf4Yrr0N9zLZXOwSvooqyNq/bU0m4uHbVJv2AJmgAAEEtd9RvzovX5t2qfesNhlVJZGL7Gpq0xa5/bbHta3/GXkVAMAAAP61rnORrUVznLg1qbVVV5ERAM8ZwymmnmmNnoa1iMzPnOuZU3VF9tFS0rFe2mT96+RjnfuuzggGBgAAABJnhls/dOY7/fHtxZa6FlNEq80lU/HFO2jYnJ64E0wAAAAAAeM1EvPgDI+aLqj+jlgt8rKZ/YmmToYl9+9AKxgAAABljRKzeGdSLAjmb8FsdJcJ+13OxVjX+UVgFigAAAAAY21eoaOv04zUysY1zaajdU07ncrZoVR8atXmVVTD18AK3AAAAB3OXKSSvzBYqGFFdLWXCmhjRPtpJWtT/CBamAAAAAAABVznO8fnBmzMV5R2/HcLhPJTr/AKnfVIk9ZiIgHmQAADJOkVm8N6i5XpXM3oqaq7un7CNpGrOmPaVzET1wLIwAAAAA8DqjefAWn+arg1+5KtC+mp3JypJVKkDFTtosmIFaIAAAAlXww2bfrs0Zgez/AOPBDb6d/Z6Vyyyp63Rs+yBMEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB5bMueMlZLpnVmcM32XKtKxqudU3evp6JiInPvTvYhmtYe7enJbpmqfFEz5mO5eotxlrqiOOciv3XnrLNIch22vtWk0yaoZ0cx0dJVxMkislJLyJJNUvRjp0bsVGwIrXcnSM5STbN3TxF+qKr/sUfqnk4OXmcPG7wWbUTFr2qvJ6eTnUEZszVfs8Zmvub80XGS7ZhzJWy193uMuG9LPM5XOVETBGomODWoiI1MERERCyrNmizRFFEZKYjJCFXblVyqa6pyzLzxleAABm/h30Vvmvuq+WdPLRFKyjrJ21WaLrG3FtBaoHNWqqHLyIqNXcYi+2kc1vOc/am0KcDh6rtWngjw1cEfjgbmBwlWKvRbjl8UcLbHttuorPbrfaLZTMo7ba6aKjt9JH7SKCBiRxsb2mtaiIUtXXNdU1TpnOsummKYiI0Q5p5fQAAAAQP6xDWaXSjh/ulmtNWtNmjVCZct2xzHYSRUcjFfcZ28i4JB9yxTajpWqSPdfAfVYuKqo9mj2p4/wCny5+Rxtu4v5GHmI01ZuTh1crWsLYQAAAALYuqw0XhzJnrNGtF5pEmt+QYktOVlkbi1btXRqs8zebegpl3dv8ApkVNqEL3xx827VOHpnPVnn8saOefMku7mE9e5N2dFOaOOdUederX3CgtVHUXG6V1PbbfRsWSrrqqVsMMTE5XPkeqNaidlVK6ppmqckRllMqqopjLOaER888evC1kWWakqNTKfM1whVUWiy3TzXRrsOXdqYWdyr/LHbw+7ePvZ4t+rH/LN5NPkcu9trC2s3r5Z8Wfy6PKj7cutf0Kp5HMteRM8XJrVw6aant1M13bb/PpHYeqiHTo3LxU6a6I556GlVvLYjRTVPNrcGm62XRp7m92ab5zgaq+zWFLdKqJ2kdVx4/ZPU7lYnguUeXU8xvNZ4aKvJrZNy51m3C5fJGMuVxzJk9Hcsl3tD5Gp6vg2StX9g1Lu6OOo0RTVxT+7I2Le8OFq0zMccasqWGQddNHNUujZp/qVl/NFXI3fS10lbElcjcMcX0cisnb/jMQ4uJ2dicN/lt1Ux4cmbn0OnYxlm91K4nlz82llc0myAAAAAAAAAKUutY1pkkrcnaEWerVtPTRtzNnRsa+3lfvxW+nfh9o1JJXNXYu9G7mJ/uZgM1WJqj/AI09M+aOdEt5MXnpsxxz0fjiU0k8RQAAAL4Oqp0ljsmnub9YrhSolyzvXLZsvzPbtbbLa77u+N3YmqlVrk7MKFcb5Y3171NiNFMZZ451R50z3bwvq26rs6apyRxR6fMtjIWkoAAAYn15pY63Q3WajmTeiqsi5iikRew+2VDV/wAJu7Nn1cVan/nT54a2NjLYuR/xnzNRQu5WAAAAWSdVrmCW1cR9ys++vc+aMoXGldFzLJTz01Wx2HZRsT0T1VIpvja9bBRV7tUeaYd/dyv1cTMeGmeiWw+VenIAAAAAAABATXvOLsyZymtVPLvWvLG9RwtRfYuqcU7of6qORGf4vbAwcAAAAJFcPmQo8wXubNNzgSS15ekalFG9MWy1qpvNXtpEmDvVVvbAnEAAAAAACP8Ar5kS65utdhq7BbnXG7W6qfC+GNWtd3POzec5VcrUwa+NvPzgR6o9AdTKrDpbRT0CLz1FXAv7ETpFA9XR8MubpMFrr5aaRF5UiWeZyeqixxp+yB6qj4XadMFuGcZJPto6eiRn2HPmd/BA9VR8NeRYMFqrhd65ycrXTQxsX1mQo7/KAznZrRQWC10NmtcHc9vt0SQ0sOKqqNTnVV2qqrtVV5VA7MAAAAAAEF+JG893Z3pLUx+MVjt8bZGdiaoVZXfZYrAI9gAAEx+GKzdFaszX97NtZVRUMDl5m07Okfh2lWVv2AMVcQto8G6iVFY1u7HfKKnrEVOTeaiwO9f7livqgYNAAAMqaK3XwTqVlt7nbsVdLJQyp2e6I3MYn8orVAsYAAYJ1y1G/NGxeA7XPuZhv0bmsexfZU1KuLXzbNqOdtaz119yBAkAAAkpw/6c+Gbimc7vBja7RLhaIXpsnq27ek28rYv4X71QOFxJXju3OlBaWPxislvYkjOxNUuWR32WbgEeAAAABO7hys/g/IclyezCS+180zH86xQ4QNT1nMevrgZ+AAAAAABHXiTvPcWTbdaGP3Zb3cGrI37aGmar3f5asAg6AAAAJXcMFm3qrNGYHs/ioobfTP7PSOWWVPW3GAS+AAAAHU3W/WSxwuqLzdqS1wtTFX1MzI8fURyoqr2kAh9rJrRSZpopcq5W33WeSRrrldXtVi1PRuRzY42OwcjN5EVVciKuHIicoRqAAAAEjeHrItRdswJm+tgVtpsKuShc5Nk1Y5uCbvZSJF3lX7bd7YE3wAAAAAAeO1BvPgDJOZ7sj9yWmt8zaZ/YmlToov8ALegFYgAAAAktw1UdHHfcw3ytqIadKKjjpKbpntZi6pfvuVu8qciRYL6oExfDFp/2pSfy8fwgHhi0/wC1KT+Xj+EA8MWn/alJ/Lx/CAeGLT/tSk/l4/hAPDFp/wBqUn8vH8ICOfEjmSkXK9mstFWRTvudes86QyNf9ypmLsduquGL5Gr6wEMAAAABYFoDZvBWnNvqHM3Zr3Uz18iLy4K7oWfZZEip6oGagAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABVx1pepl8yZptprlrLd+rsvXbNGYqivlrLbUy0s76W10qskjV8Tmu3VkrY1VMeVEJhudhKb165XXETFNOTPGXPM+iUd3jxFVu1RTTMxMzweKPSpE+trVXymZr+Wq7/APmLB+iw/Z0/DGpEPqrvv1c8n1taq+UzNfy1Xf8A8w+iw/Z0/DGo+qu+/Vzy4NZqPqHcGOZX58zFXMdscyoulXKi+qj5VPVOFs06KKY5IeZv3J01Tzy8fJJJNI+WaR0ssi4vkequcq9lVXapsRGRifgAAAAZj0Y0F1O17zLHlvTrLstx3HsS7X2ZHRW23Ru/zlXUqitZsxVGpi92HsGuXYaGP2lYwNHr3asngjhnij8Q2sJgruKq9W3HLwRxtkjhi4YsmcM+S1sdkcl5zVeUjmzlnGWNGTV07EXdjjbiqxwRKq9HHivKrnKrlVSqdr7XubRu+tVmpjq0+D0+GU+2ds+jB0ZIzzOmfD6EmDkugAAAAABrz9aPqHJmbX225GhnV1u01sNPBJT44o24XVErZ3p++gdTJ/iln7n4X5eEm5w11eSnNHlyoPvFf9fERRwUx5Zz+bIrUJYj4AAAXK5E4qsicG3DDp5kTLlDT5z1nzVblzTeLMj1bR26S9fzmmkucka72+2ldC1IGrvqjfZLGitVYHidjXdrY6u5XPq2qZ9WJ4Z9XNPq8uXPo40rs7St7PwtNFOe5MZZjgjLoy8mTN5laGrvEDq5rldH3HUfOVbeadJFkobBG5YLXSdhKeijwiaqJs3lRXr7pzlJbgdmYfBU5LVMR4+GeOfxCP4rHXsTOW5Vl8XBzMMm+1AAAA+kUssEsc8EjoZoXI+KZiq1zXNXFHNVNqKi8iofJjKROROLQ/rA9etIJqO33i8u1QydCrWy5fzFK+WpjiTlSluK708aoiYNR/SMRORhHto7s4TFRM0x6lXhp0ctOjzT43Ywe28RYzTPrU+CeidPnXncPnFNpTxHWh1Tku6OoMy0MSSXzJFyVsVypORFejEVWzRYqiJJGqptRHbrl3Su9p7HxGz6slyMtM6Ko0TqnxSmOB2jaxcexOfhidKR5ym+AAAAAB/FVERVVcETaqqBqQcQeosurOtepeoDp1qKXMF9qXWh6rjhbqd3c9C3/Fp4o0Ls2ZhfpcNbteCIy8emfKrHHX/n366/DPk4PIw4b7VAAH6a1z3NYxqve9URrUTFVVeREQDbs0NyBFpbo/pvp+yJIpssWCjpbiicjq1Y0krH7Pt6h73euUjtHE/U4m5d96qcnFweRZ+DsfIs0UeCI5+Hysqmk2QAAAwpxJXNln4e9cLg9yNWHIuYGxKvIsstvmjjT13uRDobKo9fGWo/50+eGpj6vVw9yf8AjPmak5dasgAAAnf1biSedjkvc9qlrvfS/vfB83/1wI5vX/8A8+vjp88OzsD+XTxT5myoVOn4AAAAAADoM1XpmXMt3y+uwVbXRTTxNXkdI1q9G3/GdggFW00stRLLPM9ZZpnuklkcuKuc5cVVV7KqB8wAAABZppxlpuUsl2KzLGkdUynbPcdm1amf7pLj2d1V3U7SIB7gAAAAAAAAAAAAAAAAAAAAFYOfbz+cGdMzXdH9JFV3CbuZ/Zhjd0cX+Q1APIgAAFj2jlm8CacZZgczdmrada+dedVq3LKzH1GOanrAYl4nrR0ltyxfmN20tTNQTvTnSdiSR4+p0TvsgQ7AAAOfa6+W13O3XOH+Ot1VDVRfvoXo9P2UAtYgnjqYIamF2/DURtkienO16Yov2FA6bM+Y7dlOx3C/XSTcpaCNXbiL7KR67GRsx9092CJ+0BWhmfMdxzZfbhf7pJv1VfIrujRfYxRpsZGz9yxuCJ+2B0AAD2ORMnV+ecx0ViosY45F6W41iJikFOxU6SRe3twanO5UQCyq0WmgsVsobPbIEpqC3QthpoU5mt51XnVV2qvOu0CtbUK8eH875ouqP346i4Ssp38uMMK9FEvvGIB40AAAAWiZJs/5v5Ry5ZlbuSUFvgZUN5PuysR0q+u9VUD1AAAAAAAIP8St57szhbLOx+9FZbejpG/azVTle7/IawCOYAAAA7GjvF3t0bobfdKyhie7ffFTzyRNV2CJiqMciY4IBzPzozL4xXP8Lm+GA/OjMvjFc/wub4YH8XM+ZVTBcw3NUXlTuub4YHGlvd5nRUmu1bMi8qPqJHf4XAda5znKrnKrnLtVy7VUD+AAAH0iilnkjhgjdNNK5GxRMRXOc5eRERNqqoEhtP8Ah/vt8lguObmSWGzoqP7gXZWzp9rur/FIvOrvZfuecCadstlvs1BS2u10kdFQUUaR01LEmDWtT9lVVdqqu1V2qBzwAAAAAAR44krz3FkuhtLH4S3u4MSRnZhpmrI77D9wCDQAAAAAAAAAAAAAAAD9xRyTSRwxNV8srkZGxOVXOXBET1VAtSsFrjsdjs9miw3LVRQUqKnP0UaMVfXVMQO3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAHWs5u8La3ZNyhDLv0+UMqxzzsx9pV3OplfImHbhhhUsvcyx6uFqr96ryRGuZQneS761+mnwU+f8AEKuyYI6AAAAAB9qdsDp4W1UkkNM6RqVE0TEkkZGq+ycxjnxo5UTaiK5MeynKfJy5Mz7HjW98IvC/wT6orSVU2pt01OzdAxJqrT67NTLj27qbzlWhhlkmnRnunQ1b405HEH23tjaeGyx8uKKfej2/LojlpiUo2Xs7A3s/rzVV4J9nycPJK6LK+U8sZJstJlzJ+X7flmw0CYUlotlPHTU7MeVUZGjUxXlVV2qu1SBXr1d6qa7lU1TPDOdLLdqm3T6tEREeJ6AxPYAAAAAADU14osyPzZxF613t8nSslzhdaWlkxxxp6GofSQL/ACULS6dj2vlYO1T/AMY8sZZ86tNo3PmYm5P/ACnyZmBjpNIAAAP097pHOe9yve9cXPcuKqq86qoH5AAAAAAAA9BlbNWY8kZgtWaspXmqy/mKyTpUWu70UixzRSJs2KmxUVFVHNXFHIqtcioqoYr1mi9RNFcRNM6Yl7t3KrdUVUzkmGyLwX8XVt4k8qz2jMCU9q1WyrAx2ZLVF7CKup8UY240jFXYxzlRsjE/i3qnuXMKq2/sSrZ9z1qc9urRPg/4z0eFPtk7UjGUZKs1cafH44TeI864AAAAMSa+Zmkybohq5miCRYqqyZQvNTQPRcFSpbRypBt5vuitN3Ztn52KtUTomqObLnauNufLsV1eCmfM1Fy7lYgAABmrhxyozO+vej+V5okmpLnmy1+EYl271JBUsnqU9eKNxz9q3vk4S7XwxTPPkzeVt4C18zEUU+GqG2yUos0AAAAEKusJzS3LHClqOxsiR1eZX22yUSKvtlqa2F0zfweOU7+7Fn5mPo8EZZ5onpyOTty56mEq8eSPLqayJbivQAAAse6riyvufErV3FGKseXcn3Ste/mR0s1LSNTHsr06/YIrvhc9XBRHhqiPPPQ727tGXE5fBTPRDYlKuToAAAAAABg7iFuLqHTiqp2u3Vu9dS0i4c6I5ahU/wDwgQEAAAAHudNLG3MWe8sWqRnSQS1rJqpnMsNOizyIvqtYqAWZgAAFeGqec71WagZoWgvVbS0dLWLRwQQVEkcadytSFyta1yJ7JzFX1wMf/nRmXxiuf4XN8MB+dGZfGK5/hc3wwH50Zl8Yrn+FzfDAfnRmXxiuf4XN8MB+dGZfGK5/hc3wwH50Zl8Yrn+FzfDAfnRmXxiuf4XN8MD0mTr1m65Zsy3QUuYrm2eruVNG161Mr0aiyN3nK1zlRURMVVFTDACysAAAAAAHls73n838oZkvCP3JaG3zvpnf65WK2JPXeqIBV4AAAc+1W+a7XS22qn/j7lVQ0sPP7OZ6Mb+yoFq1LTQ0dNT0lO3cgpYmQwM7DGNRrU9ZEAxhrXaPDGm2YmNbvTW5kdwhXsdzvR0i/wAnvAV0gAAACyrSm6+GdO8p1iu3nx0LKSVefepFWnVV7a9HiBEzXPUb87r74Ctc+/l6wyOa17F9jU1SYtfLs2K1u1rPXX3QGCAAH7jjkmkZFEx0ssrkZHGxFVznOXBERE2qqqBYjpDp7HkPLjEq42rmC7oye8S7FVmz2ECL2I0Xb2XKvNgB7TON4/N/KuYbyjtyS3W+eWBf9ajFSNPXeqIBVuAAAAPXZCs/h/OmWbSrN+KruEPdLezDG7pJf8hqgWfAAAAAAAAVkaj3nw/nrNN0R+/HNXyxU7+zDAvQxL7xiAeKAAAAAAAAAAAAAB7/ACU7Tbuhjc8w3nDe9jLRSRrT4f6xiMSVE/eOUCdOQbZptHQtrsg01tfDgjJK2n+6VKY+5lfJjM1e09QMiAAAAAAAAAIQ8S157szdabMx+9HZrej5G/azVT1c5PeMYoEcQAAAAAAAAAAAAAAAGQ9KLN4d1DytRKzfiirG1k6LyblIizqi9pdzD1wLKQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoF4yuFniW1H4jdRM52DTatzNl68S0PgC62+endC6kp6GCnjbhJLG5jm9Eu+1W+2xVMUVFWy9g7YwWHwdFuq5FNUZcsTl05ZlCtq7NxV7E1V00ZYnJk5kX/Mi4q/Itev5Sk//nOv3hwHax5dTnfaMX2c+Rx5+Czinp0VZNFMwOw5eibBL97lcfY2/gJ/+tL5OycXH/zl4m9cNvEFl2N8940UztSU0SKstX4DrZIWonKrpY4nMT11Ni3tXCXOrdo+KGGvAYijTbq5pYZngnpZpaephfT1EDlZNBK1WPY5Nitc12CoqdhTfiYmMsNWYyPkfXwAAcugr661VtJcrZWz2640ErJ6GvpZHQzwyxrvMkjkYqOa5qpiiouKHmqmKomJjLEvtNU0zljSvH4HeParzzX2rRzW24sfmuq3aXJWepd2PwnJyMoq5djUqHckcn+dX2LvumCyV5vDu3FmJv4ePZ/qp8HjjxeGODi0TDY+2puzFq9PtcE+HxT4/PxrcSEpOAAAAAAA06c/VElXnrOlVKuMtTfrlLIq87n1Ujl/ZUvTDRktUR/xjzKsvzluVT4587yRnYgAAA9LlHJ2ac/Zgt2VMmWGtzLmK6v6OgtNBE6WV6ptc5UTY1rU2uc5Ua1NrlRDFfv27FE13JiKY4ZZLVqu7VFNEZZlaxpN1UWZLpSUt01lz7FldZmtfJlXL0bK2rYi8rZa6VegY9ORUZHK3sOIZjd86KZyWKPW8dWaObT5kkw27VVUZbtWTxRn8ujzpc2vqxOF+3wMiq6XNF8kamDqmtu+493bVKWGnb9hpxK97sdVOb1Y4o1zLqU7vYWNOWeXU6bMfVa8Od2p5EsdzzblWrwXoJae4Q1USO5t+Oqp5HOTtI9vqnu1vjjKZ9qKao4snml4ubuYarRNUcuuFeuvfVv6v6TUNdmXJVXHqvlKha6asW3U7qe700TUxc+SgV0vSNanKsL3ryuVjWkn2bvVh8VMUXI9SqfD1Z5dbh43YN6xHrUe3T4tPNqV2cmxdioSlwgAAAydo3qnmDRfUrKepGW5XJXZcrWS1NGjlayso3+wqqST9zNErmL2Md5NqIaePwdGMsVWq9ExzTwTyS2MJiasPdpuU8H4mG21lrMNrzblywZqsdR3XZcy26lulpqf9JTVkTZonYbeVj0UpS7aqtVzRVpiZieOFm264uUxVGiYyu7Mb2AAAEVON+okpuFPWiSNcHOs0USr+5lrKeN37DlOzu9GXH2uPolzdrzkwlzi6WrOXErkAAAJudXbaWXTi102kkaj47RBea9zV5MWWqqjYvrPkavrEf3or9XZ9zx5I/VDr7Cp9bF0eLL5pbM5UiwQAAAAU99bVnptPlrSfTSCZFkulyrMy3OFF2sZQxdyUquTsPWqmw/ek53Kw2Wu5engiKY5c8+aEW3mvZKaLfhmZ5s0eeVIBYSIAAABdX1SWSJGUWr+o9RD9zqJrflu1T4c8LX1lY3H/wDdp1IBvtiM9q1HjqnzR0pbuzZzV3OKOmehcwQNKwAAAAAAEaOJyVUyvl2H3Ml0V6p22QPRP4QEKgAAABIXhsoG1Oeq6semKW21TPjXsSSyRRp/kq4Cc4ADr7tcIrRarndZ/wCJtlLNVS47PYwsV6/sIBVTUTy1VRPVTu35qmR0sz153PVXOX11UD4gAAAAAAAZ24eLL4T1Bjr3s3orDRT1W8vJ0kiJAxPV+6KqeoBPYAAAAAAGAOI689wZEitjH4SX2vhiezsxQYzOX1ntZ9kCCQAABl/QuzeGNSLK5zN+G0tmuE6djoWbsa+tI9gFhoHDuNFDc7fXW6oTGC4U8tNOn7iVisd+woFU9ZSzUNXVUVQ3dno5nwTt7D43K1yfZQDjgAAGZ7FqnPl7S2vyjb3vZea+4TMiqW4p3PQzRsWRWu+3c7eRMOTFV2KiAYYAAAJRcPenPhCrTPV4gxoqB6ssEL02S1Ddjp8F5Uj5G/utvuQJlAYG4irx4OyB4PY/CW+10FMrU5ejixncvqYxtT1wIGAAAACQnDfZ+7s8VV1ezGOx2+R8b+xNUKkTU9divAnQAAAAAADzubrwmX8r5gvW9uvttBPPCvZlaxejT13YIBVsqqqqqriq7VVQP4AAAdrZbHdsxXCO12ShkuFwma58dNHhvK1ibzlxcqJsROyB7X6ntS/FGr99F8MB9T2pfijV++i+GA+p/UvxRq/fRfDA4k+lmotOiukydc3In+ihWVfsR7wHk7hZbzaHI262mttjlXBG1cEkK4+pI1AOsAAAAHcWO/3nLVwiuljuE1urYeSWJcEcnLuvauLXNXnRyKgE89KNVqTUGifR1jI6HMtBGjq2kZsZNHsTpoccVwxXBzfcr2lAzCAAAAAAABWVqTefD2fM03NH78UlfJDTv7MVP9wjX12sQDxAAAB96alqq2ZlNR00tXUSY9HTwsdI92CYrg1qKq4ImIHbfmvmXxduf4JN8AB+a+ZfF25/gk3wAH5r5l8Xbn+CTfAAfmvmXxduf4JN8AB+a+ZfF25/gk3wAPhU2G+UcL6mrstfS08WHSTzU0rGNxXBMXOaiJiq4AdSAAAAJNcMlm7ozFf749mLLZQspYlXmkqn72KdtGxKnrgTSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOFNcrdTVVNRVFfTQVtYqto6SSVjZZVRFVUjYqorsERV2IeoomYyxGZ8mqInJlc08voAAAAMDa18NekGvloqKDP2VKaW7OiVlvzfRMZT3ejdhg10VU1qucjeXck3o152qdLZ+1sRgastqrN4J6s8nTGdpYvZ9nFRkrjP4eHna1vEboJmXhz1MuWQMwTtuVI6JtfljMEbFjjuFumc5sUyMVV3Ho5jmSMxXde1cFVu65bX2VtKjH2Iu05p0THgn8aEBx+Cqwl2aKs/gnwwwOdJpAAD6QzTU80VRTyvgnge2SCeNytex7Vxa5rkwVFRUxRUPkxlzSRORtJcGGuFRrzoPlvNF3nSozbYpH5fzlLsxlr6JrFSoXk2zwyRyuwTDec5E5CntvbPjBYuqinqz7VPFPByTlhY2ycZOKw8VT1ozTxxrStOM6QAAAAAGn/AKuWmSwar6m2KZqsls2bL1QyMXmWnrpo1/gl44Gv18Pbq8NNM+SFXYqn1btdPgqnzseG0wAAD9MY+R7I42LJJIqNYxqYq5V2IiInKqgbQ/B9wx5e4ddN7aye3wzal5lpIanPd/c1HTNmkRH9wQv5Ww06ru4J7dyK9eVESn9ubXrx96c//rifZjp459CxNl7OpwlqM3tzpno4oS6OI6gAAAUGdZvw82LT3NuXtX8nW+K12jUSoqKTNVtp2oyCO8xt6ZKiNqYI3uqPec9E92xz+V6lk7o7Urv26rFycs0aJ/4+Dk6fEhW8OBptVxdojJFWnj9Kq8mSOAAABs59X1mOpzHwn6ZOrJFlqbJ4StDpF/0dJcKhsDU7TYVY31io95rUW9oXMnDknniMvlWFsO5NeEoy8GWPKmgcB1gAAAjfxf2aS/cMWt9DExZHxZVra/dRMVwt6JWL9hIVU6uw7nqY61P/ACiOfN0tDalHrYW5H/GfJnaphcytgAAAsG6sprF4pLUrvbNy5eFj2Y7ejYnrbFUjG938CfzQ7m738qOKWx6VWngAAAANZPrBNSW6jcTmdWUs/T2rITIMpW1UXFEdb951YnY2VksyeoiFt7s4T6fA0ZdNXtTy6PJkV9tvEfOxVWTRT7PNp8uVCgkDkAAABtR8G+lEmjvDvp9leuplpb/caRb9meNybsja66L07opE+2hjVkK/vCnNu436vGV1x1YnJHFGby6eVY+ysN9PhqaZ06Z45/GRKA47ogAAAAAAI2cTdO5+UrDVImLYLskbl7HSQSqn8ACEwAAAAkvwxzxtzRmGmVU6Wa1pIxO1HMxHfw0AmqAAxNrfcZrdppmJ0DHukrGw0ivaiqjGTStbIrsORFbim3nVAK7AAAAAAAAAE0OGSy9z2DMF+ezB9zrWUkKry9HSs3lVO0rpVT1gJOAAAAAAAhTxM3nunM1isjH70dqoHVEiJzS1T8FRe3uxNX1wI0gAAEteGCzbc05gezkSC30z/syzJ97AluAArh1jtHgbUjM8LWbsVZUJXwrzKlU1JXKn+O5yAYxAAAAAAB7nTzJNZnzMtJZoN6KjZ93u1a1P4mnaqbypzbzvatTsr2MQLJrdb6O00FHbLfA2loaCJkFLTs5GsYmCJ/8AqBzQIYcTl46e/ZdsTH4tttFJVytTk36p+6iL20bDj64EYgAAABNnhns/cuVb1ens3ZLvXpDGvZipWexX38j09YCSYAAAAAAMD8RN58Hafut7H4S32ugplanL0carO5fUxjai+qBAsAAAASd4Y7N09+zFfXsxbbaKOkhcvJv1T95VTto2HD1wJngAAAD5zQw1ET4Z4mTwyJuyRSNRzXIvMqLiigRr1c0VslVZ7hmXKlCy1XW3RPqau3U6btPUxMTek3Y02MejUVU3di8mGK4gQrAAAAHoMq5hrMqZhtV/onKk1unbI+NFw6SNdkka9p7FVqgWjU1RFV08FVA/pIKmNssL090x6I5q+uigfYAAAAAPP5ru6WDLN/vSuRrrZQTzxY88jGKsaeu7BAKtFVXKrnKqqq4qq8qqB/AAACR3DTZu7M3Xa8vZvR2a3qyN32s1U9GtX3jHoBN4AAAAAI98SN57hyRSWpj8Jb5cI2yM7MNOiyuX1nowCC4AAAAnjw6WbwfkFbi9mEt9r5qhrudYocIGp75jl9cDPYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARv4qdeqvhx0oqNRaHKjs31XhSktcNvWbueCFarfXp6iRGvcjE6PdTdbir3NTYiqqdXY2zY2hiPlTV6sZJnm4IaG0sbOEs/MinLnyKh8wdavr5cd+Ow5SyZl2F3tJVpa2sqG/48lW2Nf5MnFrczCU9aqueWI6OlF695MRPVppjnnpYPzB1gHFjmDfY/VOSz078cKa1W23Um7j2JWU3TfZedC1uzs+3/APPLxzM9ORp17bxdf9eTiiNTB2YNe9cM1b7cxav5yvEUmO9S1F7rnQbeVEh6bo09Zp0bWzcLa6lqiP8Athp142/X1q6p5ZeRyjnbMWSc55ez9Y697MyZauVPdbfWyuc9XT08iPRJMVxc12G65FXa1VReUzX8PRetVWqo9mqMjHavVW64ric8TlbXmh+seVdd9N8v6iZUnatPdIkju1rV6Omt1fGid0Uc6JgqOjcuxcPZNVr09i5CmNoYC5gr1Vqvg0T4Y4JWTg8VRibUXKeHyT4GWzSbQAAAAKNutuu1lnzno1ZKd8bswWyz3asuzW4dI2krJ6dlJvc+G/Tz4euWHuTRVFu7VPVmYiOOInL54Q/eeqma7ccMRPlyZPNKoUnCLgAABdx1RdfVyWLXO2Pc5aGjr7BVUzPcpNUxV7JVTtq2BmJX2+9MevZnhyVeTJrS7diqfVuR446VxZBUqAAAAAA1k+sGyBNkPiiz3KkCxW3PDabNFqfhhvpXR7lU78LimLb3YxMX8DR4actM8mjyZFfbcsfKxVXgqz8+ny5UKCQOQAAPXaf11vtefMk3O7K1LVbr/baq5q/2vc8NVG+XHHm3UUwYmmarVcU6ZpnJzMtiqKblMzoyx524o1yORHNVHNcmLXJtRUXnQotab+gAAACqfrZcw26n0g01ypJIzwvd84eFqSLH2a01ut9VBO5E7CPro0JnuVaqnEXK+CKcnLMxPRKN7zVxFminhmrLzROtQoWQhYAAAbNfV5WGosfCdputUxYpr1Ldrp0buVI57jUJCvqOjY1yeqVJvRcivaFzJwZI8kLB2HRNOEoy8OWfLKbBH3XAAADqL/ZaLMlhveXbkzpLdf6Cpt1fH9tBVROhkTb2WuU92rk264qjTExPM810RXTNM6JjI09s4ZYueSc2ZmydeY+iu2VbrV2m5Mwwwno5nQyYY8yqxVTtF52L1N63Tcp0VRExyqtu25t1zROmJyczzhlYwABMjgDzTT5V4rdLpqyVIaS+TV1klcq4YyXCinhpmp++qFjQ4O8tmbuAuZNMZJ5pjL5Mrq7Euepi6MvDljnjW2eyolhgAABhniB1dtehukectR7i+Naiz0To7BQyL/8ALulQnR0dOicqo6VUV+HIxHO5Gqb+zMDVjcRTajhnP4o4Z/HC1Mdiow1mq5PBo4+BqXXCvrLrX1t0uNS+suFyqJKqvq5FxfLNM5XyPcvOrnKqqXVTTFMREaIVnVVNU5Z0y4Z6fAABNHgU0Dl1y1ws77nRLPkbT98N/wA4SPbjFL0T8aOidjsVaiZu1q8sbZOwcDePaX0WFnJPt15qemeSPLkdbY2C+pvxl6tOeeiOXzZWzkVGsIAAAAAAAAxPrbZX3rTi/NiZvz2xsdxhTsJTuR0q+tErwK6wAAAB73TPNjcl5ztF6mVUoEetPdEbt/m8ybr1wTl3Nj0TsoBZXDNFURRTwSNmgnY2SGZio5r2OTFrmqmxUVFxQD6AfiSOOZjopY2yxvTB8b0RzVTtouwDg+B7T/suk/kI/ggPA9p/2XSfyEfwQHge0/7LpP5CP4IEH9d852u+XuLLtghp22uwvd3XVU7GNSerX2LsFam1saexRedVdzYAYEAAAAFlWlVl8A6fZXoXM3JpKNtXUIvL0lUqzuRe2m/h6wGQgAAAAAAVp6p3nw7qDmqvR+/E2tfSwOTkWOlRIGqnaVGY+uBj8AAAsM0Js3gjTezvczcmu75rhOnZ6V+7GvrxsYBmAABDPidtHQ3zLd9a3BtfRy0crk+2pn77ce2qTfsARfAAAAAD6wQTVU8NNTROnqKiRsUEDEVznveu61rUTlVVXBALGdKsgQ5By1FSytY+93HdqL3Ut2/dMPYxNX7WNFwTsrivOBk4ABW1q5ePDmouaKpr96Knq1ooOwjaRqQLh2lVir64GOAAAABZfpfZ/AWn+VberNyXuFlTUN50kqsZ3ovbRZMAPegAAAAAAhjxOXnp79l2xMfi23UUlXM1Pt6l+4iL20bDj64EYQAAABPTh2s3g7T9twe3CW+109Sjl5ejiVIGp6mMblT1QM8AAAAAB192q6Sgtdyra9zWUVJSyzVbnciRsYrn4+sgFUYAAAAAWhZF6T8ycndLj0vgO39Jjy73c0eOPrgeqAAAAADBXEPefBun0lCx2Et9rYKXBOXo41Wd6+p9zRF9UCBAAAAAnLw22buLJdddnswlvdwesb+zDTNSNv2H74EhwAAAAAhJxL3nuvNdnsrH70dnoOlkb9rNVPxcnvI2KBG4AAAAWj5Ns/5v5Uy9ZlbuSW+3wRVCf63cRZV9d6qoHpQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxfrTpjbNZdLM76aXZzYYM122SnpatybyU1ZGqTUdRhz9DOxj8OfDA3Nn4yrCX6L1P9M88cMcsNfF4eMRaqtzwx/08rUtzZla+5IzNfsoZmoH2zMGW66a33ehk5Y54HqxyIvI5q4YtcmxUwVNil1Wb1F6iLlE5aZjLCsrtuq3VNNUZJicjzxleAABILh64k9RuG/NT7/kurZV2m5KxmZso1quWhuMTFXDfa1cY5WIq7krfZNxw9k1XNdzNqbJs7Qt+rcjPGiY0x6PE3sDj7mEr9ajROmOCV72jnWC8POqlLSU93zIzTDNErWpU2HM8jaenSReXobiuFM9uOxu+6N6/aIVxj92cZhpmaafXp8NP7dPn40ywu28PfjPPqz4J16E1LZdbXeqOK4We5Ut2oJ0xhrqOZk8L0/cyRq5q+spwK6KqJyVRMT43WpqiqMsTlhzzy9OpvV/sWW6KS5ZivVBYbdEirLX3GpipYGom1cZJnNan2T3btV3JyUxMz4oyvNddNEZapiI8aAmu/WPaLaaUFdbdOq6LVjOu65lHFbXL4Hp5ORJKivRN2Vqcu7T7+9yK5mO8SXZu6uJxExN2Pl0ePrcka8nK4mN29Ysxkt+3V4tHPqUDakajZu1ZzpfM/Z4ujrtmO/zdLVzqm7HGxqI2OGGNNjI4mIjWNTkROddpZeEwtvC2otW4yUx+OdCsRfrv1zXXOWZeGNhhAAADYd6r/TaryfoJcs5XKndT1mpt7kr6BHJuuW20Le5adyou32UqTuTstVqpylX734uLuLi3GiiMnLOefJkTnd3Dzbw81z/VPkjNrWTEUd8AAAAACs3rNNCajUPSq36o5fo1qcx6UrNLdoom4yTWOp3Vql2bV7mexsvaZ0qkt3S2jFjETZqn2a9H5o0c+jjyI/vBg/m2ouU6afNw82nna9xZyDgAABedwWcf+U6zLNg0n1wvUeXMw2KCK3Zcz3XO3aG4UsTUZDFXTrsgmY1Eb0j13HomLnI/21d7f3ZuRXVew8ZaZzzTGmJ8XhjxcHEmOydt0TTFq9OSYzRPBPH4JW3U1TTVtPBV0dRHV0lSxstNVQvSSORj0xa5j2qqORU2oqEJmJick6UmiYmMsPufH0AxFrFrpploTlubMuo2ZILTGrHra7NGrZbjcJGp/FUlKio+RVXBFdsY3HF7mptN7A7Ov42v1LVOXwzwRxz+PE1cVjLWGp9a5OTxcM8UNZ7iY4hcycSOpVZna8wra7PRxdwZRy21++ygoGOVzWudgiPlkcqvkfhtVcEwa1qJbOydl0bPsRbpzzpmfDOrwK/2hjqsXd9ec0cEeCEejqNEAAez07yJftTs85WyBlmnWovmbLjDb6FuCq1nSO9nNJhyMiYjpHrzNaqmvisTRhrVV2vRTGX8cbLYs1XrkUU6ZnI26clZUteRMn5WyVZGKy0ZStVHaLai4byw0cLYWOdhyucjcVXnUpLEXqr9yq5VpqmZnlWfZtRaoiiNERk5npzCyAAAAAoF6z/QufJ+plu1ns1GqZa1JYylv8kbfYU98pIkb7LDY3umnYj29lzJVUsvdDaMXbE4eqfao0flnVPnhCt4sH8u7F2NFWnj9MdKrYmCOAADsrPd7jYLva79Z6p9BdrJWQV9rro/bw1NNI2WKRuPO17UVDxcoprpmmqMsTGSeKXqiqaZiqNMNpLhg4oMkcSGSqG4W2vprdny30saZ0yW56NqKWoaiNkmhY5d6Sne7ax6Y4IqNdg9FQp7a+x7uz7sxMZaJn2avD6fEsXZ20aMXRExPtcMfjgSfOQ6IB5jOGdMqaf5euGa863+iyzl21sWStutfKkUTew1uO173cjWNRXOXY1FUzWMPcv1xRbpmqqeCGO7dotUzVXOSIa3/GnxbV3Epm6ltmX21Fs0ryjNJ+bNtm9hLXVDkVj7jVMRVwc5vsY2r7Rir7p7y1dgbEjZ9vLVnuVaZ8H/ABjp8KBbW2nOMryU5qI0ePxyhGSByAAB3WXMuXzN9/s+V8tWye8X+/1cVDaLXTt3pJ55nI1jGpybVXaq7ETauwx3btNqia65yUxGWZe7duq5VFNMZZltL8K3D5aeHHSi15OhWGszPcVS5Z5vkaf/ACrjK1EcxjlRF6KBqJHGmzYm9gjnuKe2ztOraGIm5/TGamPBGudMrG2bgYwlqKOHTM+NJI5LfAAAAAAAAPlPDFUwzU88aSwTsdHNE7ajmOTByL2lRQKyc+5TqclZpulhna5YYJFkt07v87SyKqxPx51w2L+6RUA8cAAAAJBaV631OTqeKwZihlueX2LhR1Ea41FIi+5ajlRHsx9ziipzdgCXthz3k/M0bH2XMNFWPkTFKVZEjnT1YZN2RPsAetAAeZvucsq5ZjfJfb9R25WJj0D5EWZf3sLcZHes0CKOpWv9TfKeoseTY5rbbZ0WOrvEnsKmZi7FbE1FXo2r2cd5f3IEZwAAAB3eWrQ+/wCYbJZWIuN0roKZyp7lsj0a53rIqqBaexjI2MjjajGRojWMTYiImxEQD9AAAAAB02YrqyxWC9Xl6pha6GeqRF51ijVzU9dUwAque98j3ySOV8kjlc967VVVXFVUD8gAPtTU8tXUU9JA3fnqZGRQs7L3qjWp66qBatabdFaLVbLVB/EWylhpYf3sLEYn7CAdgAAwLxF2jwhkDwg1uMljr4Khzk5Ujlxgcnqb0jV9YCBoAAAAASv4etOelkTPt4g+5RK6PLkD02OemLZKnBftdrWdvFeZFAl6AA6y9XKOzWe63ebDorXRz1ciLzpDGr1T18AKq55pKiaaomesk073SSvXlc5y4qvrqoHyAAAO7y3aXX7MNksrEVVuldBTOVOZskiNc71kVVAtPYxsbGsY1GMYiNY1NiIibERAP0AAAAAACtrVy8+HNRc0VbX70VPVrRQYcm7SNSDZ2lVir64GOAAAD+oiqqIiYqvIgFpOUbOmX8rZfsu7uvttBBDOnZlaxOkX134qB6IAAAAePv2f8mZaje+8ZjoqaSNMVpGSJLOvqQx7z/2AIgaq611WdIZLDYYZbblxXItS+TBJ6vdXFEejVVGMRUx3UVcedeYDAQAAAA7ewWeqzDerXZKJquqbpUx08a4Y7u+5EVy9pqYqvaQC06lpoqOlpqOBu5BSxMhhb2GMajWp9hAPuAAAAAEM+Jy89Ne8uWFjsW2+jkrJmp9vUv3GovbRIcfXAi+AAAALO9PrN4AyTli0qzclprfC6pZ2JpU6WX/LeoHsQAAAAArN1MvPh7Puabkj9+J1fJBTv5lipsII1T1WsRQPCgAAHstPLN4fzvle1KzfiqLhE+pZ2YYV6WVPeMUCzoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACsTj74Mp9YKGTV3TG3JJqZZKVI8w2GFER99ooG4MWNE9tVQNTBqcsjMGe2axFl27W3owk/IvT/65nNPuzqnyTn8KPba2T9RHzbce3GmPejX52v5PBNTTTU1TC+nqKd7o54JGqx7HsXBzXNXBUVFTBUUsyJiYywhExkfI+gAAAdjbbvdrPMtRaLpV2qoXlno55IH++jc1TxXRTXGSqInjeqapp0TkerXVPU50fQu1GzQ6Hk6JbxWq37HS4GH6Ox7lPNDJ9Td96eeXkK+5XG6TrVXOvqbjUry1FVK+Z6/4z1VTPTRTTGSIyMVVU1Z5lwj0+AAAAAlTwn8MWZOJPUGmtkUM9vyBYZop895oa3BsNPjilLA5UwWonRFaxNu6mL1TBuC8bbW16Nn2cumuerHTPij0OlszZ1WMuZP6Y0z0cctoayWW1Zbs1py9YqGK2WWx0cFBabdAm7HBTUzEiiiYnYa1qIhUFy5VcqmqqcszOWZ8crEooiimKYzRDtDw9AAAAAAfGop4KuCelqoI6mlqY3RVNNK1HxyRvRWuY9rkVFRUXBUU+xMxOWHyYy5pa3HG9wg3Th/zbUZvylQzVej+aKpzrTUsR0ngeplVXLb6h21Ubjj0L3e2b7FVV7VVbW3e25TjrfqVz/7aYz/8o96OlAtr7LnC1+tTHsT5PFqQJJI4oAAAZh044gNadI0bHp1qTe8tUTXK/wAERT9Pb1cq4q5aGoSWnVV7KxmjitmYbFf5bcVT4eHnjO2rGOv2P8dcx5ubQlBbusx4p6KBsVTe8v3eREwWpq7NA16r2VSmWBn+ScerdLATOaKo5deV0ad4MXHDE8jzGaOsN4rczU8tI3UKHLlNMitlZZbZRU0mC/azuikmZ6rXopms7r4C3OX1MvHMz5NDHc25i64yetk4ohD/ADBmTMObLrU33NN9uGZL1WLjV3e6VMtXUyYcm/NM571w7anctWqLVPq0RER4IjJDl13Krk+tVMzPjdKZHgAAfprXPc1jGq971RrGNTFVVdiIiIBsD9XxwhVWkVmdq7qPbVptR800nRWGyVDcJbLbZkRzukavtKmoTDfTljZ7BcHOkaVlvPtyMVV8i1PsUznn3p1R5Zz+BN9h7LmxT825HtTojwRrlZ0RFIQAAAAAMbauaWZX1o09zJpxm+nWW0ZhpljbUsROmpKhi78FVAq8kkMiI5OZfari1VRdvA4y5hL1N2jTHl8MTxtfFYajEW5t1aJ/GVqu61aNZy0I1AvGn2daNYq63u6S23NjVSmuNE9ypDWUzl9syREXZytcjmOwc1ULj2fj7eNsxdtzmnTHDE+CVcYvCV4a5NFf/WPCxObrWAAHZ2e9XnLtzpL1l+7VljvFvektBdrfPJTVMD05HRzROa9q9tFPFy3TcpmmqImJ4Jzw9UV1UTlpnJPiTEyp1hXFZlamiol1EjzJSwIjYmXy3UdXJgn21QkTJ3qvZfIpwr27GAuzl9TJPimY8mh1bW3MXRGT1svHEf8AV6a6dZdxUXCmdBS5gsNkkcmCVdFZqd0idtEqu6GY/wCKYqN0sBTOWaap45noyMlW8GLmM0xHJrRG1D1b1M1YuLLpqPne7ZvqoVVaVtwqHPgp972yU9O3dihRedI2NQ7eFwVjCxktURTHi6Z0y5d/FXb85blUzxsdm0wAADk0dHV3CrpaCgpZq6urpmU9FRU7HSyzSyORrI42MRXOc5yoiIiYqp8qqimMs5oh9iJmckaWwtwI8GDNEbXFqdqPQxy6sX2mVtvtr916Zfo5m+yiau1O6ZWrhK5Pat+5tXDfV9Ybx7e+sq+Tan/1xw+9Orwc/gTjY2yfpo+Zc68/pjX4eZZIRR3wAAAAAAAAAAxFq7prFn+ytkokZFmO1Nc+1zuwakrV2up3u7DuVqryO7SqBXzWUdVb6qooa6nkpKykkdFU00rVa9j2rgrXIu1FQDjAAAAAB2dPerxSNRlLdqymYnI2KeRiJh2muQD6TX+/VDVZUXuvnYuxWSVMrk+wrlA6hVx2rtVeVQAAAAAAZz4erL4T1Chrns3obDRz1aqvJvvRIGJ6v3RVT1AJ8gAAAAAAwlxA3nwXp1WUrX7st8qqehZhy7u8s7/WVsSovqgQAAAAMm6O2bw3qPlmnczeho6ha+deZEpGrM3H1XtanrgWPgAAHl87Wjw9lDMloRu/JXW6dlO3/XIxXRL6z0QCrsAAAAZD0zyJU5+zLT2xEfHa6XCovVY3/NwIvtUX7Z6+xb9nkRQLIKOkprfSU1DRQMpqOjiZDS07EwayNiI1rUTsIiAckABhvXm8eCdN7rG1+5NeJoLfCv793SSJ68cbkAr3AAAAGbuH2z+FNRaSqczeisdJUVr8eTeVqQM9dHS4p6gE/gAAAAAAdXe7nHZbNdrxNh0Vro56t6LzpDG5+Hr4AVVzTSVE0s8z1kmne6SV68rnOXFVX1VUD5gAAH9RVaqOaqtc1cWuTYqKgHefnRmXxiuf4XN8MB+dGZfGK5/hc3wwH50Zl8Yrn+FzfDAfnRmXxiuf4XN8MDhVN2utY1W1dzq6pq8rZpnvT7DlUDrwAAAAAATO0B0ymtEX57X2nWK4VsSssVJImDoYJE9lM5F2o6RNjf3OP22wJPAAAAAAArc1evPhvUXNFS1+9DS1XcMHOiNpGpCuHaVzFX1wMbAAAHpsmWb84M2Zdsyt347hcII6hv8Aqd9FlX1mIqgWjAAAAAB0Oabulgy3fb0qoi2ygnqI8ed7GKrG+u7BAKsnOc5yucquc5cXOXaqqvOB/AAACRPDZZu7c53C7vZvRWS3u6N/2s1S5I2/ZYkgE4wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAOKvgKyNr46uzllCanyHqpI1Xz3Vsa+Drs9E2JcIo0xR68nTsTe+3bJg1Ekuxt5LuByW6/at+Dhp4tXmcTaWxbeK9un2a/JPHr86hPVrQ/VDRC+usGpOU6uwTPc5Lfclb0tBWtb7ulq2YxSphtVEXebyOa1dhZOC2hYxlHrWqonxcMccIXicHdw1Xq3Kcnmnilic3WsAAAAAAAAAP6iKq4JtVeRALDuGfq9dS9Yp7fmbUOCr0103erZemqouju9yiXbhR0sqYxtcnJNMmGCo5jJEIvtbeexhImi1krufpjjnojyO5s/Yd3EZKrns0eWeKOmfKv80603yXpPlK2ZIyDYoMv5dtTcIKSFFV0kjsN+aeR2L5ZX4Yue9VVfsFaYrF3cVcm5dnLVP45k2sYeixRFFEZIh7g12YAAAAAAAA6bMWXbFm2x3TLWZrTS32wXqnfS3W01kaSwTxP5WvY7Z20XlRdqbTJau12qoronJVGiYeLlum5TNNUZYlRNxR9W5mzI1Rcc56EU9VnTJiq+eqyUirNeba1dqtp02urIm82H3ZEwRWyYK8sXY+9du9EW8T7Nfvf0zx+7Pk4tCHbR2BXby12c9Pg4Y1+dVnPBNTTTU1TC+nqKd7o54JGqx7HsXBzXNXBUVFTBUUmMTExlhG5jI+R9AAAAAAAAD0+T8l5s1AzBQ5WyVl6uzPmG5O3aO1W+F00rtqYudhsaxuOLnuVGtTa5UQw38RbsUTXcqimmOGWS1aru1RTREzM+BfFwf9X3Z9I57ZqRq82kzLqTBu1Fly/GqTW6yScrZFcuyoqWcz/aRr7TecjZCuNubzVYqJtWMsW+GeGrVHlnh8CZ7L2JTYyXLuevgjgjXP48azoiKQgAAAAAAAEfeIvhwyHxI5LdlnNsK0F4t/STZUzdTMa6stlS9MFVuOHSRPwRJIlVEeiJta5Gvb09l7Vu7Pu+vRnidMcExr8EtHH4C3i6PVq08E+D8eBrda88NuqPDvmJ9nz3ZXOtFTK5lgzhRtdJbLgxMVTopsE3JMExdE/B7eXDdwctrbN2rYx9HrW5z8NM6Y/Hh0IFjcBdwlWSuM3BPBLAZ0mkAAAAAAAAZG0x0l1D1jzJBlXTjK9ZmW7SK1ahYG7tPSxuXDpqqofhHDH+6e5E5kxXYauMxtnCUevdqiI8/FHCz4fC3MRV6tuMs/jS2AuErgUyfw/MpM5Zulps6asvj9jdUYq0Fo30wey3MkajleqLuuneiOVNjWsRXI6s9t7x3Mdlt0ezb8HDV+bV5022ZsajC+3V7Vfkji1p9kadsAAAAAAAAAAAADEmpWkdkz/EtYxUtWY4mbtPdWNxSRETYyoamG8nMi+2TtpsAg1mzJGZMlVq0V/tz6ZHOVKatZ7OnnROeOVEwXZtwXanOiAeTAAAAAAAAAejyzlPMGb7g222C3SV0+zppUTdihavupZF9i1PV5ebFQMo6m6Qt0+yvl+5pWuuFdU1UlPep2phCj5I0fC2Jqpjg3cemK7V7XIBgsABM7hksvQWLMN+ezB9xrI6OFy/aUzN9VTtK6XD1gJPAAAAAAAh3xPXnpLlliwMfspaeavqGJzrO5Io8fUSJ32QIrgAAEo+GKzdLd8y397dlDSxUMDl53VD+kfh20SJPsgTJAAAAFXmeLR4BzhmW0I3cjorhO2nbyfcXPV0S+uxUA8sAA5FHSVNfVU1DRQPqauslZDS07Exc+R6o1rUTsqqgWQ6ZZEpsg5ap7aiMkulVhUXqrbt6SdU9q1ftY09i3115VUDIYAABEbifvGMmVsvsf7Vs9wqWfvlSKFf2JAImAAAACYnDDZ+jtuZ7+9u2qqIaCnevMkDFlkw9VZW/YAlQAAAAAADDOvd58E6cXOFr9ya8zwW+JefB7ulkT1443IBXyAAAAAAAAAAAAAAAA59stdyvNZFb7TQz3GtmXCOmp2Okevbwai4InOvIgEvdMNA47TLT37O7IquviVJKOwtVJIYXJtR07kxbI5OZqexTsu5glAAAAAAADrbzcorNaLrd58OhtdJNVyIvO2FivVPXwAqqnnlqZ5qmd6yTVD3STPXlc564uX11UD5AAAGfeHOzeEM+vuT2YxWKgmna/mSWbCBqeu1719YCd4AAAAAYL4hrz4N09moWP3Zb7WwUiInLuMVZ3r6n3JEX1QIDgAAACcHDVZu48oXS8PZuy3q4K2N320NK1Gt/y3PAkYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdFmTLGXM42ery/myw2/Mtir27tZaLnTx1VNInNvRStc1VTmXDZzGS1ertVRVRMxMcMZpeLlum5T6tURMeNXHqx1XOjOb5Km5abXy5aW3OZVcluRFutq3l27IJ5GTsxX7WfdTmZzEqwW+GJtZrsRXHw1c8ZvI4OJ3ds3M9uZpnnjX5UAc99WXxLZUdLLlyjseotE1VWN9nuDKao3E53wXFKVMf3LHv7WJJcNvbgrvXmaJ8cZf8Axy9DiXt3sTR1clXFOvIizmXh115yg+RmYtHc4W6OL29Wtnq5abZ2KiKN8S+s47NramEu9S7TPLGXm0udcwGIt9airmliOroa23yrBX0c9FOmKLDURujcmHL7FyIpu01RVonK1ZiY0uKenwA9TZcjZ2zI9seXcn3u/SPw3I7db6mqcuPJgkMbjDcxFq31qojjmIZKLNdfVpmeKGeMp8F3FFnN8aWvRm/2+ORds98jjsrWt+2Xwk+nVU9RFXsHNv7fwNnTdpni9r/xyt21snFXNFueXN58iY2nXVQaiXR8FVqhqFZ8p0S4OktlkjkulYqc7HSSJTQxu7bVkTtKcLFb6Wac1miap8M5o6Z8zq2N2rlWe5VEcWeejpWW6McFfD/ohJSXPL2UUzDmmkVros4Zjc24VzHt2o+BqsZBA5F5HRRNd2VUieP2/i8ZliqrJT4Kc0a55ZSDCbJw+Gz005Z8M551RyJXnFdIAAAAAAAAAAAACNetXCToXryk1XnbKEdLmSRu6zOdmclDdUVEwRXzMarJ8E5EnZIicyHW2ftvFYLNbq9n3Zz0+jkyOfi9mWMVnrpz+GM0+nlVd6mdVDn61yVFZpRn+15roUVXRWe+sfba5reZjZokngld23dEnaJfhN9LVWa9RNM+GM8dEx5UdxG7VynPaqifFOafxzIUZv4PeJvI75W3vRjMdRFDjv1Vnp0vMO6nulktrqlqJ6uHbJBY27gb3Vu08vs/+WRybuy8Vb0255M/mysB3bLuYLBKsF9sdwssyLgsNfSy0zsexuytap0qLtFeemYninK0qrdVPWiYdOZHgA9XYsiZ4zQ5jMs5NvuYnyfxbLZbqmrV2PYSGN+JhuYm1b69URxzEMlFm5X1aZnihI7JXArxS53fCtJpTcMvUkip0ldmOSG0NjRed0NU9lQvqNiVe0crEbxYCzpuRM/8fa82byt+zsbFXNFExx5vPnTu0r6pyOOWmuGs+o6VDGKjpstZTjVrXYbcHXCsYjsOZUbTovYehHMZvpwYejlq/bGt2sNu1w3auSNc6lpml2i+l+i9mWx6aZNoMr0sqNStqYGLJV1St5HVNXKr5plTm33rhzYEOxmPv4ur1r1U1T5I4o0QkeGwlrD05LdMR+PCygabYAAAAAAAAAADpMxZby9m6zV2Xc02ShzFYrnH0VwtFxgjqaeZvYfHIjmrgu1NmxdqGS1drtVRVRMxMcMZni5bpuU+rVETE+FWFrH1WOnWZpqq76P5oqdO7hKrpEy3cWvuNpc5eRsUiuSpgRV5VV0qcyNQl+A3xvW4im/T68eGM1WqfIj2K3ct157U+rPgnPGuPKrpz71fXFJkWSdzMhNzrboVVG3TK9VHXNfh9rTO6Kr+zCSnDbzYG9/X6s+CqMnl0eVwb2w8Va/p9aPFn9PkRczBp1qDlJ7481ZEzDlmSL+MZdbZV0atw7KTxMwOxaxVm71K6Z4piXOrsXLfWpmOOJh40zsQB6qwZGztmuRkWV8nXzMksn8XHarfU1jnY9hII3qphu4i1a69URxzEMlFmuvq0zPFGVJzInATxSZ7khdHprPlOglVN+5ZnmjtbY8ed1PIq1XvYVORid5MBY/+nrT4Kc/l0eV0bOxcVd/oyR483p8iwbSPqpcqWmWluetGeJ82Txqj5MrZea+hoVVOVktZJ/OJWr+4ZC7tkYx2+dyrNh6PV8dWeebR53cwu7VFOe7Vl8UZo59PmWjZG0+yRppYafLOQcrW7Kdip9rbfboGxNe/BEWSVyeyleuG171Vy86kPxGKu4iv17tU1T40is2KLNPq0RER4nsTAygAAAAAAAAAAAAAAHDr7fQXWkmobnRw19FOm7NS1DGyRuTttcioBHvNPDflq5ukqcs182Xqh2KpRyItTSqvYRHKkjMf3yp2EAwRe9BtRrOr3Q2uK907f8/b5mvXDm+5ydHJ9hqgY1r8tZitSuS52G429W8vdNLLEn2XNQDpAAHYUVoutycjLdbKuvc5cGtpoZJVVfUY1QMiWXRXUe9OYrMvSWyF3tqi4ubTI3HssevSfYYoGdcrcNNspXR1Obru+6PbgrrZQ4wwY9h0rvujk9RGKBJC0WW02Cijt1lt0Fsoova09OxGIq87nYbXKvOq7VA8NrDZPD2nWZKdrN+eip+76bnVHUipK7Dtqxrm+uBW+AAso0nsvgHT3K9E5m5NNRtrKhF5d+rVZ1Re2iPRvrAZEAAAAAABC3WLTzUDMefLpdLfYZbjbJIqeO3TwPYrUjZE1Fau85qou/vKqYc4GL/qe1L8Uav30XwwH1Pal+KNX76L4YD6ntS/FGr99F8MCYGh+UbhlHJi093o3UN1uNdNVVVM/BXsam7FGiq1VT2se8m3nAzEAAAAIc616Y5rvWeJrzlyxzXOkuVHTvqpoVYiNnjRYVaqOci47jGr64GI/qe1L8Uav30XwwH1Pal+KNX76L4YEgtDtJK+wVlRmnNdAtJc4FdBZbfKrXOiRUwknXdVUxVF3W7eTeXnQCUAAAAAhtrVp/n7M2eqq5WyxS3O1pSU8NvnhexURjG4va5HOaqL0iuXDsKgGJvqe1L8Uav30XwwH1Pal+KNX76L4YD6ntS/FGr99F8MB9T2pfijV++i+GBNrSXLVTlTIdmtdfTrS3J3S1Nxhdhi2WaRzkRcFVMWs3U9YDJAAAAAAAI8cQGVc25qost0+XLa650tJPUSV8MT2o9JHNYkTt1yt2Im+mKdkCMn1Pal+KNX76L4YD6ntS/FGr99F8MB9T2pfijV++i+GA+p7UvxRq/fRfDAfU9qX4o1fvovhgPqe1L8Uav30XwwH1Pal+KNX76L4YD6ntS/FGr99F8MB9T2pfijV++i+GB/U0d1LXkylV+u+FP8MgHJj0T1QlXBuVJU/f1NKxPsumQDuKbh91LnVElttJRIvupquJUT+SWQD1tu4Y8yyq3wrmK20LV5e5mS1Lk9ZzYU/ZAyZZOG7JdA5kt4ra6/SNw3onOSmgd/ixez/wDyAZusuXbFlym7ksVppbVAuG+2njRivVORXu9s5e25VUDuQAAAAAAAMf6pWy93jIeYbXl6Dum51sMcbIN5GufH0rFla3HBFVWIqYKoEHfqe1L8Uav30XwwH1Pal+KNX76L4YD6ntS/FGr99F8MB9T2pfijV++i+GBKHQHI94ylar/VX+3PttyudVFHHTyq1XdBTsVWu9iqpgrpXJ6wEgQAAAAAjbxAZRzhmt2WWZetb7nQ0KVLqlkL2o9ssnRo1XNcrdm63YqdsCN/1Pal+KNX76L4YD6ntS/FGr99F8MB9T2pfijV++i+GA+p7UvxRq/fRfDAnhp7YZMs5Ky3ZZo+hqaSiY6ti2exnlxlmbinLg96oB7IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD4z09PVRrDUwR1ETvbRStR7V9VHIqH2JmND5MZXSSZSyrK5HS5ZtMjkXFHOooFVFTkXFWGSL9yP6p55eflUeCOZzaWx2Whc19FZ6Kke32r4KeONU9RWtQ8zcqnTMvsUUxoh2h4egAAAAAAAAAAAAAAAAAAAAH5exr2uY9qPY5MHNcmKKnbRQOhnynlapVXVOWrVUOXlWSjgeq/ZYpli9cjRVPPLxNqieCOZyKXL1goXI+isdvo3t9q+CmijVPUVrUPk3a6tMzzkUUxoiHcGN7AAAAAAAAAAAAAAAAAAAA6ery9l+vc59dY7fWPdjvPnpopFXHlxVzVMlN2unRM87xNumdMQ+dNljLVE5r6PL1spHt9q+GkhjVPUVrEE3q501TzkW6Y0RDvERETBNiJyIY3sAAAAAAAAAAAAAAAAAAAAAAAAONLRUc64z0kMy9l8bXL+ygHzjttuiVFioKaNU5FbExP8CAc0AAAAfxzWuarXIjmuTBzV2oqLyoqAdf4HtP8Asuk/kI/ggPA9p/2XSfyEfwQOwREaiNaiNa1MGtTYiIgH9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAf/9k= + + + 0, 0 + + + 0, 0 + + \ No newline at end of file diff --git a/SDL/Reports/MDM/rpt_3470.vb b/SDL/Reports/MDM/rpt_3470.vb new file mode 100644 index 00000000..076d2a62 --- /dev/null +++ b/SDL/Reports/MDM/rpt_3470.vb @@ -0,0 +1,8 @@ +Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports.Document + +Public Class rpt_3470 + Private Sub rptMWSTListe_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart + + End Sub +End Class diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index ebb387d3..0db696de 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -1020,6 +1020,12 @@ True Resources.resx + + rpt_3470.vb + + + Component + rptMWSTListe.vb @@ -3612,6 +3618,9 @@ subrptBriefSDL_PLOSE_MEDPASS.vb + + rpt_3470.vb + rptMWSTListe.vb diff --git a/SDL/USTV/usrCntlUSTV.Designer.vb b/SDL/USTV/usrCntlUSTV.Designer.vb index 1178990d..8db4f257 100644 --- a/SDL/USTV/usrCntlUSTV.Designer.vb +++ b/SDL/USTV/usrCntlUSTV.Designer.vb @@ -71,6 +71,8 @@ Partial Class usrCntlUSTV Me.btnUSTVAloeschen = New System.Windows.Forms.Button() Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel() + Me.btn3470 = New System.Windows.Forms.Button() + Me.Button4 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.btnVorschau = New System.Windows.Forms.Button() @@ -81,7 +83,7 @@ Partial Class usrCntlUSTV Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.Button4 = New System.Windows.Forms.Button() + Me.ContextMenuStrip4 = New System.Windows.Forms.ContextMenuStrip(Me.components) CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.Panel2.SuspendLayout() @@ -770,6 +772,7 @@ Partial Class usrCntlUSTV 'Panel3 ' Me.Panel3.AutoSize = True + Me.Panel3.Controls.Add(Me.btn3470) Me.Panel3.Controls.Add(Me.Button4) Me.Panel3.Controls.Add(Me.Button3) Me.Panel3.Controls.Add(Me.Button2) @@ -787,6 +790,33 @@ Partial Class usrCntlUSTV Me.Panel3.Size = New System.Drawing.Size(1627, 77) Me.Panel3.TabIndex = 0 ' + 'btn3470 + ' + Me.btn3470.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn3470.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn3470.ForeColor = System.Drawing.Color.Black + Me.btn3470.Location = New System.Drawing.Point(862, 5) + Me.btn3470.Name = "btn3470" + Me.btn3470.Size = New System.Drawing.Size(114, 39) + Me.btn3470.TabIndex = 30 + Me.btn3470.Text = "3470" + Me.btn3470.UseVisualStyleBackColor = True + ' + 'Button4 + ' + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.Image = Global.SDL.My.Resources.Resources.statistik_small + Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button4.Location = New System.Drawing.Point(367, 7) + Me.Button4.Margin = New System.Windows.Forms.Padding(0) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(128, 41) + Me.Button4.TabIndex = 29 + Me.Button4.Text = "Nicht Eingereichte Anträge" + Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button4.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText + Me.Button4.UseVisualStyleBackColor = True + ' 'Button3 ' Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -897,20 +927,10 @@ Partial Class usrCntlUSTV Me.ContextMenuStrip3.Name = "ContextMenuStrip1" Me.ContextMenuStrip3.Size = New System.Drawing.Size(61, 4) ' - 'Button4 + 'ContextMenuStrip4 ' - Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button4.Image = Global.SDL.My.Resources.Resources.statistik_small - Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button4.Location = New System.Drawing.Point(367, 7) - Me.Button4.Margin = New System.Windows.Forms.Padding(0) - Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(128, 41) - Me.Button4.TabIndex = 29 - Me.Button4.Text = "Nicht Eingereichte Anträge" - Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button4.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText - Me.Button4.UseVisualStyleBackColor = True + Me.ContextMenuStrip4.Name = "ContextMenuStrip1" + Me.ContextMenuStrip4.Size = New System.Drawing.Size(61, 4) ' 'usrCntlUSTV ' @@ -987,4 +1007,6 @@ Partial Class usrCntlUSTV Friend WithEvents lblID As Label Friend WithEvents Button3 As Button Friend WithEvents Button4 As Button + Friend WithEvents btn3470 As Button + Friend WithEvents ContextMenuStrip4 As ContextMenuStrip End Class diff --git a/SDL/USTV/usrCntlUSTV.resx b/SDL/USTV/usrCntlUSTV.resx index a008b450..aaf93252 100644 --- a/SDL/USTV/usrCntlUSTV.resx +++ b/SDL/USTV/usrCntlUSTV.resx @@ -769,7 +769,7 @@ XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ - 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDwAACw8BkvkDpQAAB4JJREFUSEu9lntM1FcW + 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAAB4JJREFUSEu9lntM1FcW x0+yNWpdBURGEJ0ZXtVqZX0hFJAB5gVILVbQTRCQ1wwDw7wYGMSCgiI+IoivtbpBwOLqqnUXq30YlVrX bXAFu6Ua2ShG0jVoq1ZFwQffzb3zhG22/+0vOZnf3Nz8Pjn3nPs9X1qx10yqpnWU27iOEuo0pG6qpMKP qyljXxkpt6hozdF6qvxkN2XuW0OymiwqO1I33tBUPTNhsypTUpVuydhTOi5jTynNL08mQUEkiQwyEhql @@ -935,4 +935,7 @@ 331, 17 + + 487, 17 + \ No newline at end of file diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb index 86fed29f..dff2a9f7 100644 --- a/SDL/USTV/usrCntlUSTV.vb +++ b/SDL/USTV/usrCntlUSTV.vb @@ -1,4 +1,6 @@ Imports System.ComponentModel +Imports com.sun.xml.internal.rngom +Imports DocumentFormat.OpenXml.Drawing Imports Microsoft.Office.Interop Imports VERAG_PROG_ALLGEMEIN @@ -591,7 +593,7 @@ Public Class usrCntlUSTV - Private Sub btn2_Click(sender As Object, e As EventArgs) Handles Button2.Click + Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn3470.Click If Not ContextMenuStrip3.Items.ContainsKey("dgv") Then @@ -600,8 +602,6 @@ Public Class usrCntlUSTV ContextMenuStrip3.Items.Add(dgv) End If - - If Not ContextMenuStrip3.Items.ContainsKey("excel") Then Dim excel = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)} ContextMenuStrip3.Items.Add(excel) @@ -620,6 +620,36 @@ Public Class usrCntlUSTV ContextMenuStrip3.Show(Cursor.Position) + End Sub + + Private Sub btn3470_Click(sender As Object, e As EventArgs) Handles btn3470.Click + + + If Not ContextMenuStrip4.Items.ContainsKey("excel") Then + Dim excel = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)} + ContextMenuStrip4.Items.Add(excel) + AddHandler excel.Click, AddressOf mnuItem4_Clicked + End If + + + + If Not ContextMenuStrip4.Items.ContainsKey("pdf") Then + Dim pdf = New ToolStripMenuItem() With {.Text = "PDF", .Name = "pdf", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)} + ContextMenuStrip4.Items.Add(pdf) + AddHandler pdf.Click, AddressOf mnuItem4_Clicked + End If + + If Not ContextMenuStrip4.Items.ContainsKey("mail") Then + Dim mail = New ToolStripMenuItem() With {.Text = "Email generieren", .Name = "mail", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)} + AddHandler mail.Click, AddressOf mnuItem4_Clicked + ContextMenuStrip4.Items.Add(mail) + End If + + + + ContextMenuStrip4.Show(Cursor.Position) + + End Sub @@ -654,7 +684,7 @@ Public Class usrCntlUSTV ContextMenuStrip1.Hide() - Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem) + Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem) If item IsNot Nothing Then If item.Name = "excel" Then @@ -1352,6 +1382,168 @@ Public Class usrCntlUSTV End Sub + Private Sub mnuItem4_Clicked(sender As Object, e As EventArgs) + + Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem) + + If item IsNot Nothing Then + + Dim sql_Query As String = "" + + If kdNr > 0 Then + ',[UStVAn_Währungscode] as Währung + sql_Query = "SELECT [UStVAn_KuNr] as Kunde,[UStVAn_Name] as Name,UStVAn_LandKz, [UStVAn_ReDatVon] as von, [UStVAn_ReDatBis] as bis,LandKz as Land, [UStVAn_3470] as Betrag FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr + where isnull([UStVAn_3470], 0) <> 0 and [UStVAn_KuNr] = " & kdNr & " + order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon]) asc,LandKz,[UStVAn_ReDatVon] asc" + Else + sql_Query = "SELECT [UStVAn_KuNr] as Kunde,[UStVAn_Name] as Name,UStVAn_LandKz, [UStVAn_ReDatVon] as von, [UStVAn_ReDatBis] as bis,LandKz as Land, [UStVAn_3470] as Betrag FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr + where isnull([UStVAn_3470], 0) <> 0 + order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon]) asc,LandKz,[UStVAn_ReDatVon] asc" + + End If + + Dim dtVorschau_3470 As DataTable = SQL.loadDgvBySql(sql_Query, "FMZOLL") + + If item.Name = "excel" Then + + cProgramFunctions.genExcelFromDT_NEW(dtVorschau_3470, {"F1:F" & (dtVorschau_3470.Rows.Count + 1)}, False,,,, True) + + ElseIf item.Name = "mail" Then + + Try + + + + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) + Dim groupField = "" + If kdNr > 0 Then + groupField = "UStVAn_LandKz" + Dim ADR As New cAdressen(kdNr) + Mail.To = ADR.E_Mail + If Mail.To <> "" AndAlso ADR.E_Mail2 <> "" Then Mail.To &= ";" & ADR.E_Mail2 + Else + groupField = "Kunde" + End If + + + Dim filePathExcel = cProgramFunctions.genExcelFromDT_NEW(dtVorschau_3470, {"F1:F" & (dtVorschau_3470.Rows.Count + 1)}, False,,,, True,,,, False) + Dim FilePath_PDF = create4870Report(dtVorschau_3470, groupField) + + Mail.Attachments.Add(filePathExcel, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, "AccountNo_4870.xslx") + Mail.Attachments.Add(FilePath_PDF, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, "AccountNo_4870.pdf") + Mail.Display() + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") + End Try + + ElseIf item.Name = "pdf" Then + Dim groupField = "" + + If kdNr > 0 Then + groupField = "UStVAn_LandKz" + Else + groupField = "Kunde" + + End If + + + create4870Report(dtVorschau_3470, groupField, True) + + + End If + + End If + + + + + End Sub + + Private Function create4870Report(dt As DataTable, GroupField As String, Optional open As Boolean = False) As String + + Dim rpt As New rpt_3470 + + rpt.DataSource = dt + + rpt.GroupHeader1.DataField = GroupField 'Gruppierung + rpt.GroupHeader2.DataField = Nothing + + If rpt.DataSource.rows.count > 0 Then + + Dim sum As Double = 0 + Dim sumGroup As Double = 0 + rpt.lblDat.Text = Now.ToShortDateString + + + + + AddHandler rpt.ReportHeader1.Format, Sub() + If GroupField = "UStVAn_LandKz" Then + rpt.Label3.Text &= " - " & rpt.Fields.Item("UStVAn_LandKz").Value() + End If + End Sub + + + AddHandler rpt.Detail.Format, Sub() + + rpt.lblKDName.Text = rpt.Fields.Item("Name").Value() + rpt.lblKDNumber.Text = rpt.Fields.Item("Kunde").Value() + rpt.lblCountry.Text = rpt.Fields.Item("Land").Value() + rpt.lblAmount.Text = CDbl(rpt.Fields.Item("Betrag").Value()).ToString("N2") & " €" + 'rpt.lblWaehrung.Text = rpt.Fields.Item("Währung").Value() + rpt.lblTimeperiod.Text = CDate((rpt.Fields.Item("von").Value())).ToShortDateString & " - " & CDate((rpt.Fields.Item("bis").Value())).ToShortDateString + + sum += CDbl(rpt.Fields.Item("Betrag").Value()).ToString("N2") + sumGroup += CDbl(rpt.Fields.Item("Betrag").Value()).ToString("N2") + End Sub + + + AddHandler rpt.GroupFooter1.Format, Sub() + + If GroupField = "UStVAn_LandKz" Then + 'rpt.lblGroup1.Text = rpt.Fields.Item("UStVAn_LandKz").Value() + rpt.lblWahrung.Text = rpt.Fields.Item("UStVAn_LandKz").Value() + End If + + rpt.lblSumme.Text = sumGroup.ToString("N2") & " €" + 'rpt.lblWahrung.Text = "EUR" 'rpt.Fields.Item("Währung").Value() + sumGroup = 0 + End Sub + + AddHandler rpt.GroupFooter2.Format, Sub() + + rpt.lblSumGesamt.Text = sum.ToString("N2") & " €" + 'rpt.lblWaehrung_Ges.Text = "EUR" + + End Sub + + + + Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Konto_3470" & Now.ToString("TMP_ddMMyyyy_HHmmSS") & ".pdf", ".pdf", , False) + Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + rpt.Run(False) + p.NeverEmbedFonts = "" + p.Export(rpt.Document, tmpPath) + + If open Then Process.Start(tmpPath) + + rpt.Dispose() + + Return tmpPath + + Else + Return "" + + End If + + + + + End Function + Private Sub btnWikiStatusmails_Click(sender As Object, e As EventArgs) Handles btnWikiStatusmails.Click Dim webAddress As String = "https://wiki.verag.ag/software/sdl/ustva" diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index de7cd9d9..883ccc41 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -456,7 +456,7 @@ Public Class frmBU_Mahnlauf 'If rpt.lblKundenAuftragsnummer.Text = String.Empty Then rpt.lblKundenAuftragsnummerUeberschrift.Visible = False - rpt.lblSachbearbeiter.Text = cFakturierung.getSBRgName(FIRMA.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'If(RECHNUNG.Sachbearbeiter, "") + rpt.lblSachbearbeiter.Text = cFakturierung.getSBRgName(FIRMA.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) ' Select Case FIRMA.Firma_ID Case 19 diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index 8df1654e..d7d37df3 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -846,7 +846,8 @@ Public Class usrCntlBH SELECT - op_debitor.i_personenkonto AS KDNR, + op_debitor.i_personenkonto AS KDNR, + [Adressen].Ordnungsbegriff as Name, op_debitor.c_urbelegid AS BelegNr, op_debitor.c_bemerkung AS Buchungstext, op_debitor.d_rechnung AS Belegdatum, @@ -871,6 +872,7 @@ Public Class usrCntlBH FROM op_debitor INNER JOIN fibu_konto ON (op_debitor.i_personenkonto = fibu_konto.i_konto) + inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Adressen] on [Adressen].AdressenNr = op_debitor.i_personenkonto inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenErweitert] on kde_KundenNr = op_debitor.i_personenkonto left join fibu_zahlziel on dbo.fibu_zahlziel.i_firm_refid = dbo.op_debitor.i_firm_refid and dbo.fibu_zahlziel.c_zahlziel = ISNULL(fibu_konto.c_zahlziel, '0/0/20') @@ -932,7 +934,7 @@ Public Class usrCntlBH Next If counter > 0 Then - MsgBox("In der Zinsberechnung befinden sich " & counter & " Positionen, die bereits abgerechnet wurden!" & vbNewLine & "Diese wurden ") + MsgBox("In der Zinsberechnung befinden sich " & counter & " Positionen, die bereits abgerechnet wurden!" & vbNewLine & "Diese werden übersprungen bzw. nicht nochmals verrechnet!") End If Dim dtTemp As New DataTable @@ -945,9 +947,27 @@ Public Class usrCntlBH If dtTemp.Columns.Contains("ZZinTage") Then dtTemp.Columns.Remove("ZZinTage") If dtTemp.Columns.Contains("ReZielZahlungsdatum") Then dtTemp.Columns.Remove("ReZielZahlungsdatum") + Dim dtTemp2 As New DataTable + dtTemp2.Columns.Add("KDNR", GetType(Int32)) + dtTemp2.Columns.Add("Name", GetType(String)) + dtTemp2.Columns.Add("Zinsbetrag", GetType(Decimal)) - If dtTemp.Rows.Count > 0 Then - cProgramFunctions.genExcelFromDT_NEW(dtTemp, {"H1:H" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1)}) + Dim query = From row In dtTemp.AsEnumerable() + Group row By key = row.Field(Of Int32)("KDNR") Into grp = Group + Select New With { + .GroupValue = key, + .KDName = grp.First().Field(Of String)("Name"), + .SumValue = grp.Sum(Function(r) Convert.ToDecimal(r("Zinsbetrag"))) + } + + ' Fill the new DataTable + For Each item In query + dtTemp2.Rows.Add(item.GroupValue, item.KDName, item.SumValue) + Next + + + If dtTemp.Rows.Count > 0 AndAlso dtTemp2.Rows.Count > 0 Then + cProgramFunctions.genExcelFromMultibleDT_NEW(New List(Of DataTable) From {dtTemp, dtTemp2}, {"H1:H" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1)}) txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0") If IsNumeric(txtnichtabrechneteKunden.Text) AndAlso CInt(txtnichtabrechneteKunden.Text) > 0 Then @@ -1224,6 +1244,13 @@ Public Class usrCntlBH End Sub Private Sub btnZNBverrechnen_Click(sender As Object, e As EventArgs) Handles btnZNBverrechnen.Click + + If txtZRbis.Text = "" OrElse Not IsDate(txtZRbis.Text) Then + MsgBox("Abrechnungdatum setzen!") + txtZRbis.Focus() + Exit Sub + End If + Dim LimitBEtrag As Integer = -1 If txtAbBetragAbrechnen._value <> "" AndAlso IsNumeric(txtAbBetragAbrechnen._value) Then LimitBEtrag = CInt(txtAbBetragAbrechnen._value) @@ -1269,7 +1296,7 @@ Public Class usrCntlBH End If - If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung verrechnen?" & vbNewLine & "Es werden nur Rechnungen erstellt, deren Gesamtbelastung über " & LimitBEtrag & " EUR liegt!", vbYesNoCancel) Then + If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung mit Abrechnungsdatum " & CDate(txtZRbis.Text).ToShortDateString & " verrechnen?" & vbNewLine & "Es werden nur Rechnungen erstellt, deren Gesamtbelastung über " & LimitBEtrag & " EUR liegt!", vbYesNoCancel) Then @@ -1291,7 +1318,7 @@ Public Class usrCntlBH Dim verarbOK As Boolean = True Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing Dim RK_ID As Integer = -1 - If Not gen_SPEDBUCH_ByKdNr(R("kundenNr"), SPEDBUCH, Now(), vermerk) Then verarbOK = False + If Not gen_SPEDBUCH_ByKdNr(R("kundenNr"), SPEDBUCH, CDate(txtZRbis.Text).ToShortDateString, vermerk) Then verarbOK = False If Not gen_RECHNUNG_BySPEDBUCH(R("kundenNr"), SPEDBUCH, RK_ID, Fußtext) Then verarbOK = False If verarbOK Then @@ -1394,7 +1421,9 @@ Public Class usrCntlBH Private Sub btnDel__Click(sender As Object, e As EventArgs) Handles btnDel_.Click If vbYes = MsgBox("Möchten Sie die alle nicht verrechneten Zinsbelastungen löschen?", vbYesNoCancel) Then - SQL.doSQL("delete from [tblMDM_Zinsberechnung] WHERE [verrechnet] Is null", "FMZOLL") + If SQL.doSQL("delete from [tblMDM_Zinsberechnung] WHERE [verrechnet] Is null", "FMZOLL") Then + txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0") + End If End If End Sub diff --git a/SDL/cProgramFunctions.vb b/SDL/cProgramFunctions.vb index 602e2768..42ba92ce 100644 --- a/SDL/cProgramFunctions.vb +++ b/SDL/cProgramFunctions.vb @@ -1192,6 +1192,89 @@ Public Class cProgramFunctions + Dim filename As String = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" + wb.SaveAs(filename) + + + If openFile Then Process.Start(filename) + + Return filename + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return Nothing + End Try + End Function + + Public Shared Function genExcelFromMultibleDT_NEW(datatables As IEnumerable(Of DataTable), Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional waehrungsZeichen As String = "€", Optional fitCellsToContent As Boolean = False, Optional mergeHeadersToCell As Char = "", Optional Landscape As Boolean = False, Optional fitToOnePage As Boolean = False, Optional openFile As Boolean = True, Optional fitWideToOnePage As Boolean = False) As String + Try + + Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName + If Not My.Computer.FileSystem.DirectoryExists(sPath) Then + My.Computer.FileSystem.CreateDirectory(sPath) + End If + + Dim wb As New XLWorkbook + Dim counter = 0 + For Each dt In datatables + wb.Worksheets.Add(dt, "DATEN" & IIf(counter > 0, "_" & counter, "")) + wb.Worksheets(counter).Tables.FirstOrDefault().ShowAutoFilter = ShowAutoFilter + + + If rangeAsWaehrung IsNot Nothing Then + For Each r In rangeAsWaehrung + Try + wb.Worksheets(counter).Range(r).Style.NumberFormat.SetFormat("###,###,##0.00 " & waehrungsZeichen) + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Next + End If + + If HeaderTxt <> "" Then + wb.Worksheets(counter).FirstRow.InsertRowsAbove(2) + wb.Worksheets(counter).Range("A1").Value = HeaderTxt + wb.Worksheets(counter).Range("A1").Style.Font.Bold = True + + If mergeHeadersToCell <> "" Then + wb.Worksheets(counter).Range("A1:" & mergeHeadersToCell & "1").Merge() + wb.Worksheets(counter).Range("A1:" & mergeHeadersToCell & "1").Style.Alignment.Horizontal = XLAlignmentHorizontalValues.Center + wb.Worksheets(counter).Range("A1:" & mergeHeadersToCell & "1").Style.Alignment.Vertical = XLAlignmentVerticalValues.Center + wb.Worksheets(counter).Range("A1:" & mergeHeadersToCell & "1").Style.Alignment.WrapText = True + End If + + If HeaderTxt2 <> "" Then + wb.Worksheets(counter).Range("A2").Value = HeaderTxt2 + wb.Worksheets(counter).Row(2).InsertRowsBelow(1) + + If mergeHeadersToCell <> "" Then + wb.Worksheets(counter).Range("A2:" & mergeHeadersToCell & "2").Merge() + wb.Worksheets(counter).Range("A2:" & mergeHeadersToCell & "2").Style.Alignment.Horizontal = XLAlignmentHorizontalValues.Center + wb.Worksheets(counter).Range("A2:" & mergeHeadersToCell & "2").Style.Alignment.Vertical = XLAlignmentVerticalValues.Center + wb.Worksheets(counter).Range("A2:" & mergeHeadersToCell & "2").Style.Alignment.WrapText = True + End If + + End If + + End If + + If fitCellsToContent Then + wb.Worksheets(counter).Columns().AdjustToContents() + wb.Worksheets(counter).Rows().AdjustToContents() + End If + + If Landscape Then + wb.Worksheets(counter).PageSetup.PageOrientation = XLPageOrientation.Landscape + Else + wb.Worksheets(counter).PageSetup.PageOrientation = XLPageOrientation.Default + End If + + If fitToOnePage Then wb.Worksheets(counter).PageSetup.PagesWide = 1 : wb.Worksheets(counter).PageSetup.PagesTall = 1 ' In die Höhe/Breite auf eine Seite anpassen + If fitWideToOnePage Then wb.Worksheets(counter).PageSetup.PagesWide = 1 + + counter += 1 + Next + + Dim filename As String = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" wb.SaveAs(filename) diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index c0f8b96a..fa72f190 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -56,6 +56,9 @@ Partial Class frmKundenblatt Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() Me.tbcntrMain = New System.Windows.Forms.TabControl() Me.tbAllgemein = New System.Windows.Forms.TabPage() + Me.txtEmailRE = New System.Windows.Forms.TextBox() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.PictureBox8 = New System.Windows.Forms.PictureBox() Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.lblBonitaet = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label39 = New System.Windows.Forms.Label() @@ -251,6 +254,7 @@ Partial Class frmKundenblatt Me.Panel4.SuspendLayout() Me.tbcntrMain.SuspendLayout() Me.tbAllgemein.SuspendLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() CType(Me.dgvOffenePosten, System.ComponentModel.ISupportInitialize).BeginInit() @@ -334,7 +338,7 @@ Partial Class frmKundenblatt Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25) Me.tbFirmendaten.Name = "tbFirmendaten" Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3) - Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 928) + Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 945) Me.tbFirmendaten.TabIndex = 3 Me.tbFirmendaten.Text = "Firmendaten" ' @@ -344,7 +348,7 @@ Partial Class frmKundenblatt Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Location = New System.Drawing.Point(3, 3) Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(1638, 922) + Me.Panel4.Size = New System.Drawing.Size(1638, 939) Me.Panel4.TabIndex = 0 ' 'UsrcntlKundeBearbeitenFull1 @@ -354,7 +358,7 @@ Partial Class frmKundenblatt Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" - Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 922) + Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 939) Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 ' 'tbcntrMain @@ -374,12 +378,15 @@ Partial Class frmKundenblatt Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMain.Name = "tbcntrMain" Me.tbcntrMain.SelectedIndex = 0 - Me.tbcntrMain.Size = New System.Drawing.Size(1652, 974) + Me.tbcntrMain.Size = New System.Drawing.Size(1652, 991) Me.tbcntrMain.TabIndex = 3 ' 'tbAllgemein ' Me.tbAllgemein.BackColor = System.Drawing.Color.White + Me.tbAllgemein.Controls.Add(Me.txtEmailRE) + Me.tbAllgemein.Controls.Add(Me.TextBox1) + Me.tbAllgemein.Controls.Add(Me.PictureBox8) Me.tbAllgemein.Controls.Add(Me.FlatButton6) Me.tbAllgemein.Controls.Add(Me.lblBonitaet) Me.tbAllgemein.Controls.Add(Me.Label39) @@ -415,10 +422,47 @@ Partial Class frmKundenblatt Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0) Me.tbAllgemein.Name = "tbAllgemein" Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3) - Me.tbAllgemein.Size = New System.Drawing.Size(1644, 945) + Me.tbAllgemein.Size = New System.Drawing.Size(1644, 962) Me.tbAllgemein.TabIndex = 0 Me.tbAllgemein.Text = "Allgemein" ' + 'txtEmailRE + ' + Me.txtEmailRE.BackColor = System.Drawing.Color.White + Me.txtEmailRE.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtEmailRE.Cursor = System.Windows.Forms.Cursors.Hand + Me.txtEmailRE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtEmailRE.Location = New System.Drawing.Point(38, 385) + Me.txtEmailRE.Name = "txtEmailRE" + Me.txtEmailRE.ReadOnly = True + Me.txtEmailRE.Size = New System.Drawing.Size(384, 19) + Me.txtEmailRE.TabIndex = 194 + Me.txtEmailRE.Text = "email-Rechnung" + ' + 'TextBox1 + ' + Me.TextBox1.BackColor = System.Drawing.Color.White + Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.TextBox1.Cursor = System.Windows.Forms.Cursors.Hand + Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBox1.Location = New System.Drawing.Point(36, 360) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.ReadOnly = True + Me.TextBox1.Size = New System.Drawing.Size(384, 19) + Me.TextBox1.TabIndex = 193 + Me.TextBox1.Text = "Rechnungen an:" + ' + 'PictureBox8 + ' + Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.PictureBox8.Image = Global.SDL.My.Resources.Resources.email + Me.PictureBox8.Location = New System.Drawing.Point(8, 360) + Me.PictureBox8.Name = "PictureBox8" + Me.PictureBox8.Size = New System.Drawing.Size(22, 18) + Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox8.TabIndex = 192 + Me.PictureBox8.TabStop = False + ' 'FlatButton6 ' Me.FlatButton6.allowBorder = False @@ -427,7 +471,7 @@ Partial Class frmKundenblatt Me.FlatButton6.FlatAppearance.BorderSize = 0 Me.FlatButton6.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.FlatButton6.ForeColor = System.Drawing.Color.Black - Me.FlatButton6.Location = New System.Drawing.Point(708, 547) + Me.FlatButton6.Location = New System.Drawing.Point(700, 451) Me.FlatButton6.Name = "FlatButton6" Me.FlatButton6.Size = New System.Drawing.Size(15, 12) Me.FlatButton6.TabIndex = 191 @@ -451,7 +495,7 @@ Partial Class frmKundenblatt Me.lblBonitaet.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblBonitaet.ForeColor = System.Drawing.Color.Black - Me.lblBonitaet.Location = New System.Drawing.Point(648, 546) + Me.lblBonitaet.Location = New System.Drawing.Point(640, 450) Me.lblBonitaet.MaxLineLength = -1 Me.lblBonitaet.MaxLines_Warning = "" Me.lblBonitaet.MaxLines_Warning_Label = Nothing @@ -465,7 +509,7 @@ Partial Class frmKundenblatt ' Me.Label39.AutoSize = True Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label39.Location = New System.Drawing.Point(591, 546) + Me.Label39.Location = New System.Drawing.Point(583, 450) Me.Label39.Name = "Label39" Me.Label39.Size = New System.Drawing.Size(43, 13) Me.Label39.TabIndex = 188 @@ -479,7 +523,7 @@ Partial Class frmKundenblatt Me.btnBonitaetBearbeiten.FlatAppearance.BorderSize = 0 Me.btnBonitaetBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnBonitaetBearbeiten.ForeColor = System.Drawing.Color.Black - Me.btnBonitaetBearbeiten.Location = New System.Drawing.Point(568, 546) + Me.btnBonitaetBearbeiten.Location = New System.Drawing.Point(560, 450) Me.btnBonitaetBearbeiten.Name = "btnBonitaetBearbeiten" Me.btnBonitaetBearbeiten.Size = New System.Drawing.Size(15, 12) Me.btnBonitaetBearbeiten.TabIndex = 187 @@ -493,10 +537,10 @@ Partial Class frmKundenblatt Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Controls.Add(Me.TabPage3) - Me.TabControl1.Location = New System.Drawing.Point(8, 582) + Me.TabControl1.Location = New System.Drawing.Point(8, 474) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 - Me.TabControl1.Size = New System.Drawing.Size(718, 357) + Me.TabControl1.Size = New System.Drawing.Size(718, 482) Me.TabControl1.TabIndex = 186 ' 'TabPage1 @@ -508,7 +552,7 @@ Partial Class frmKundenblatt Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(710, 331) + Me.TabPage1.Size = New System.Drawing.Size(710, 456) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Offene Posten" Me.TabPage1.UseVisualStyleBackColor = True @@ -567,7 +611,7 @@ Partial Class frmKundenblatt Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvOffenePosten.RowHeadersVisible = False Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 299) + Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 424) Me.dgvOffenePosten.TabIndex = 175 ' 'Label10 @@ -600,7 +644,7 @@ Partial Class frmKundenblatt Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(710, 314) + Me.TabPage2.Size = New System.Drawing.Size(710, 439) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Umsatzbericht" Me.TabPage2.UseVisualStyleBackColor = True @@ -645,7 +689,7 @@ Partial Class frmKundenblatt Me.dgvUmsaetze.RowHeadersDefaultCellStyle = DataGridViewCellStyle8 Me.dgvUmsaetze.RowHeadersVisible = False Me.dgvUmsaetze.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 309) + Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 434) Me.dgvUmsaetze.TabIndex = 182 ' 'Label13 @@ -693,7 +737,7 @@ Partial Class frmKundenblatt Me.TabPage3.Controls.Add(Me.dgvUmsatzNachLeistngsNr) Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Name = "TabPage3" - Me.TabPage3.Size = New System.Drawing.Size(710, 314) + Me.TabPage3.Size = New System.Drawing.Size(710, 439) Me.TabPage3.TabIndex = 2 Me.TabPage3.Text = "Umsatz nach LeistungsNr" Me.TabPage3.UseVisualStyleBackColor = True @@ -749,7 +793,7 @@ Partial Class frmKundenblatt Me.dgvUmsatzNachLeistngsNr.RowHeadersDefaultCellStyle = DataGridViewCellStyle12 Me.dgvUmsatzNachLeistngsNr.RowHeadersVisible = False Me.dgvUmsatzNachLeistngsNr.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 308) + Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 433) Me.dgvUmsatzNachLeistngsNr.TabIndex = 183 ' 'lblAdressenzusatz @@ -768,7 +812,7 @@ Partial Class frmKundenblatt ' Me.Label11.AutoSize = True Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label11.Location = New System.Drawing.Point(17, 546) + Me.Label11.Location = New System.Drawing.Point(9, 450) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(82, 13) Me.Label11.TabIndex = 178 @@ -781,7 +825,7 @@ Partial Class frmKundenblatt Me.cboFirmaFMZOLL._value = "" Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboFirmaFMZOLL.FormattingEnabled = True - Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(100, 543) + Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(92, 447) Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL" Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21) Me.cboFirmaFMZOLL.TabIndex = 179 @@ -836,7 +880,7 @@ Partial Class frmKundenblatt Me.picLogo.Cursor = System.Windows.Forms.Cursors.Hand Me.picLogo.Image = Global.SDL.My.Resources.Resources.person_default Me.picLogo.ImageLocation = "" - Me.picLogo.Location = New System.Drawing.Point(62, 423) + Me.picLogo.Location = New System.Drawing.Point(788, 800) Me.picLogo.Name = "picLogo" Me.picLogo.Size = New System.Drawing.Size(287, 114) Me.picLogo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom @@ -849,7 +893,7 @@ Partial Class frmKundenblatt Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button4.Image = Global.SDL.My.Resources.Resources.statistik_small Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button4.Location = New System.Drawing.Point(590, 378) + Me.Button4.Location = New System.Drawing.Point(1058, 740) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(136, 32) Me.Button4.TabIndex = 21 @@ -1004,14 +1048,16 @@ Partial Class frmKundenblatt ' 'GroupBox5 ' + Me.GroupBox5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen_Maut) Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen_Diesel) Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen) Me.GroupBox5.Controls.Add(Me.lblStat_Lkws) Me.GroupBox5.Controls.Add(Me.PictureBox5) - Me.GroupBox5.Location = New System.Drawing.Point(12, 416) + Me.GroupBox5.Location = New System.Drawing.Point(738, 793) Me.GroupBox5.Name = "GroupBox5" - Me.GroupBox5.Size = New System.Drawing.Size(714, 121) + Me.GroupBox5.Size = New System.Drawing.Size(456, 121) Me.GroupBox5.TabIndex = 22 Me.GroupBox5.TabStop = False Me.GroupBox5.Text = "Statistik" @@ -1065,7 +1111,7 @@ Partial Class frmKundenblatt ' Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox5.Image = Global.SDL.My.Resources.Resources.statistik - Me.PictureBox5.Location = New System.Drawing.Point(676, 0) + Me.PictureBox5.Location = New System.Drawing.Point(409, 7) Me.PictureBox5.Name = "PictureBox5" Me.PictureBox5.Size = New System.Drawing.Size(38, 39) Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom @@ -1085,8 +1131,7 @@ Partial Class frmKundenblatt ' 'dgvSperrliste ' - Me.dgvSperrliste.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ + Me.dgvSperrliste.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.dgvSperrliste.BackgroundColor = System.Drawing.Color.White DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft @@ -1110,7 +1155,7 @@ Partial Class frmKundenblatt Me.dgvSperrliste.Name = "dgvSperrliste" Me.dgvSperrliste.ReadOnly = True Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle15 - Me.dgvSperrliste.Size = New System.Drawing.Size(446, 901) + Me.dgvSperrliste.Size = New System.Drawing.Size(462, 629) Me.dgvSperrliste.TabIndex = 23 ' 'PictureBox2 @@ -1164,7 +1209,7 @@ Partial Class frmKundenblatt Me.tbZoll.Location = New System.Drawing.Point(4, 25) Me.tbZoll.Name = "tbZoll" Me.tbZoll.Padding = New System.Windows.Forms.Padding(3) - Me.tbZoll.Size = New System.Drawing.Size(1644, 928) + Me.tbZoll.Size = New System.Drawing.Size(1644, 945) Me.tbZoll.TabIndex = 9 Me.tbZoll.Text = "ZOLL" Me.tbZoll.UseVisualStyleBackColor = True @@ -1176,7 +1221,7 @@ Partial Class frmKundenblatt Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3) Me.tbcntrZOLL.Name = "tbcntrZOLL" Me.tbcntrZOLL.SelectedIndex = 0 - Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 922) + Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 939) Me.tbcntrZOLL.TabIndex = 0 ' 'tabZoll_Artikel @@ -1184,7 +1229,7 @@ Partial Class frmKundenblatt Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22) Me.tabZoll_Artikel.Name = "tabZoll_Artikel" Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3) - Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 896) + Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 913) Me.tabZoll_Artikel.TabIndex = 1 Me.tabZoll_Artikel.Text = "Artikel" Me.tabZoll_Artikel.UseVisualStyleBackColor = True @@ -1195,7 +1240,7 @@ Partial Class frmKundenblatt Me.tbMdm.Location = New System.Drawing.Point(4, 25) Me.tbMdm.Name = "tbMdm" Me.tbMdm.Padding = New System.Windows.Forms.Padding(3) - Me.tbMdm.Size = New System.Drawing.Size(1644, 928) + Me.tbMdm.Size = New System.Drawing.Size(1644, 945) Me.tbMdm.TabIndex = 10 Me.tbMdm.Text = "MDM" Me.tbMdm.UseVisualStyleBackColor = True @@ -1214,7 +1259,7 @@ Partial Class frmKundenblatt Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMDM.Name = "tbcntrMDM" Me.tbcntrMDM.SelectedIndex = 0 - Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 922) + Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 939) Me.tbcntrMDM.TabIndex = 0 ' 'tbSDL @@ -1226,7 +1271,7 @@ Partial Class frmKundenblatt Me.tbSDL.Margin = New System.Windows.Forms.Padding(0) Me.tbSDL.Name = "tbSDL" Me.tbSDL.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDL.Size = New System.Drawing.Size(1630, 896) + Me.tbSDL.Size = New System.Drawing.Size(1630, 913) Me.tbSDL.TabIndex = 5 Me.tbSDL.Text = "SDL-Leistungen" Me.tbSDL.UseVisualStyleBackColor = True @@ -1268,7 +1313,7 @@ Partial Class frmKundenblatt DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle21 Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 700) + Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 717) Me.dgvSDLLeistungenFull.TabIndex = 5 ' 'Panel6 @@ -1374,7 +1419,7 @@ Partial Class frmKundenblatt Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL) Me.Panel5.Controls.Add(Me.rtbVermerke) Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel5.Location = New System.Drawing.Point(3, 750) + Me.Panel5.Location = New System.Drawing.Point(3, 767) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(1624, 143) Me.Panel5.TabIndex = 177 @@ -2270,7 +2315,7 @@ Partial Class frmKundenblatt Me.tbOfferte.Location = New System.Drawing.Point(4, 25) Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2) Me.tbOfferte.Name = "tbOfferte" - Me.tbOfferte.Size = New System.Drawing.Size(1644, 928) + Me.tbOfferte.Size = New System.Drawing.Size(1644, 945) Me.tbOfferte.TabIndex = 11 Me.tbOfferte.Text = "Offerte" Me.tbOfferte.UseVisualStyleBackColor = True @@ -2282,7 +2327,7 @@ Partial Class frmKundenblatt Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" - Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 928) + Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 945) Me.UsrCntlOfferte1.TabIndex = 0 ' 'tbUSTV @@ -2290,7 +2335,7 @@ Partial Class frmKundenblatt Me.tbUSTV.Controls.Add(Me.tbcntrUSTV) Me.tbUSTV.Location = New System.Drawing.Point(4, 25) Me.tbUSTV.Name = "tbUSTV" - Me.tbUSTV.Size = New System.Drawing.Size(1644, 928) + Me.tbUSTV.Size = New System.Drawing.Size(1644, 945) Me.tbUSTV.TabIndex = 12 Me.tbUSTV.Text = "USTV" Me.tbUSTV.UseVisualStyleBackColor = True @@ -2304,7 +2349,7 @@ Partial Class frmKundenblatt Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrUSTV.Name = "tbcntrUSTV" Me.tbcntrUSTV.SelectedIndex = 0 - Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 928) + Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 945) Me.tbcntrUSTV.TabIndex = 1 ' 'tbUSTVDokumente @@ -2317,7 +2362,7 @@ Partial Class frmKundenblatt Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten) Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22) Me.tbUSTVDokumente.Name = "tbUSTVDokumente" - Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 902) + Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 919) Me.tbUSTVDokumente.TabIndex = 8 Me.tbUSTVDokumente.Text = "Dokumente" Me.tbUSTVDokumente.UseVisualStyleBackColor = True @@ -2607,7 +2652,7 @@ Partial Class frmKundenblatt Me.tbRechnungen.Controls.Add(Me.MyPanel1) Me.tbRechnungen.Location = New System.Drawing.Point(4, 25) Me.tbRechnungen.Name = "tbRechnungen" - Me.tbRechnungen.Size = New System.Drawing.Size(1644, 928) + Me.tbRechnungen.Size = New System.Drawing.Size(1644, 962) Me.tbRechnungen.TabIndex = 14 Me.tbRechnungen.Text = "Rechnungen" Me.tbRechnungen.UseVisualStyleBackColor = True @@ -2626,7 +2671,7 @@ Partial Class frmKundenblatt Me.dgvRg.ReadOnly = True Me.dgvRg.RowHeadersVisible = False Me.dgvRg.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvRg.Size = New System.Drawing.Size(1644, 868) + Me.dgvRg.Size = New System.Drawing.Size(1644, 902) Me.dgvRg.TabIndex = 3 ' 'MyPanel1 @@ -3021,7 +3066,7 @@ Partial Class frmKundenblatt Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScroll = True Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(1651, 1103) + Me.ClientSize = New System.Drawing.Size(1649, 1120) Me.Controls.Add(Me.lblAbfVerb) Me.Controls.Add(Me.btnAbfVerb) Me.Controls.Add(Me.tbcntrMain) @@ -3041,6 +3086,7 @@ Partial Class frmKundenblatt Me.tbcntrMain.ResumeLayout(False) Me.tbAllgemein.ResumeLayout(False) Me.tbAllgemein.PerformLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() Me.TabControl1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.TabPage1.PerformLayout() @@ -3311,4 +3357,7 @@ Partial Class frmKundenblatt Friend WithEvents btnBestelldateiErzeugen As Button Friend WithEvents btn_FIBU_speichern As Button Friend WithEvents txtZinsbelastungNew As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtEmailRE As TextBox + Friend WithEvents TextBox1 As TextBox + Friend WithEvents PictureBox8 As PictureBox End Class diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb index dcf7b3a7..00cbedd3 100644 --- a/SDL/kunden/frmKundenblatt.vb +++ b/SDL/kunden/frmKundenblatt.vb @@ -1,6 +1,7 @@ Imports System.Data.SqlClient Imports System.Globalization Imports System.Web.UI.WebControls.Expressions +Imports com.sun.xml.internal.rngom Imports Microsoft.Office.Interop Imports VERAG_PROG_ALLGEMEIN @@ -17,6 +18,7 @@ Public Class frmKundenblatt ' Dim KUNDE As cKunde = Nothing Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing + Dim KUNDE_K As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing ' Public BERECHTIGUNEN As List(Of cBerechtigungen) = Nothing @@ -637,11 +639,65 @@ Public Class frmKundenblatt End Sub Sub initStat() - lblStat_Lkws.Text = SQL.getSqlCount("SELECT Count(KfzKennzeichen) FROM LKW WHERE KundenNr=" & kdNr & " ") & " LKWs registriert" - lblStat_SdlLeistungen.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr ") & " SDL Leistungen" + lblStat_Lkws.Text = SQL.getSqlCount("SELECT Count(KfzKennzeichen) FROM LKW WHERE KundenNr=" & kdNr & " and isnull(Verkauft,0) <> 1 and isnull(Abgemeldet,0) <> 1 ") & " aktive LKWs registriert" + + lblStat_SdlLeistungen.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " and ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr ") & " aktive SDL Leistungen" + + Dim SQL_Diesel As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr IN (100,101)" + Dim dt_Diesel As DataTable = SQL.loadDgvBySql("SELECT SDL.SDLNr,Count(SDL.SDLNr) as Anzahl" & SQL_Diesel & " Group by SDL.SDLNr", "SDL") + lblStat_SdlLeistungen_Diesel.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Diesel) & " aktive Tankkarten" + + If dt_Diesel.Rows.Count > 0 Then + lblStat_SdlLeistungen_Diesel.Text &= " ( " + For Each r In dt_Diesel.Rows + Dim Lieferant As String = "" + Select Case r.Item("SDLNr") + Case "100" : Lieferant = r.Item("Anzahl") & "x IDS " + Case "101" : Lieferant = r.Item("Anzahl") & "x RMC " + End Select + + lblStat_SdlLeistungen_Diesel.Text &= Lieferant + Next + lblStat_SdlLeistungen_Diesel.Text &= ")" + End If + + + + Dim SQL_Maut As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr BETWEEN 200 AND 218" + Dim dt_Maut As DataTable = SQL.loadDgvBySql("SELECT SDL.SDLNr,Count(SDL.SDLNr) as Anzahl" & SQL_Maut & " Group by SDL.SDLNr", "SDL") + lblStat_SdlLeistungen_Maut.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Maut) & " aktive Mautboxen/-karten" + + + If dt_Maut.Rows.Count > 0 Then + lblStat_SdlLeistungen_Maut.Text &= " ( " + For Each r As DataRow In dt_Maut.Rows + Dim Lieferant As String = "" + Select Case r.Item("SDLNr") + Case "200" : Lieferant = r.Item("Anzahl") & "x AT " + Case "201" : Lieferant = r.Item("Anzahl") & "x DE " + Case "202" : Lieferant = r.Item("Anzahl") & "x TELEPASS " + Case "203" : Lieferant = r.Item("Anzahl") & "x CZ " + Case "205" : Lieferant = r.Item("Anzahl") & "x MotorWay " + Case "206" : Lieferant = r.Item("Anzahl") & "x DouBox " + Case "208" : Lieferant = r.Item("Anzahl") & "x MSE " + Case "209" : Lieferant = r.Item("Anzahl") & "x PL " + Case "210" : Lieferant = r.Item("Anzahl") & "x SI " + Case "211" : Lieferant = r.Item("Anzahl") & "x MSE-MP " + Case "212" : Lieferant = r.Item("Anzahl") & "x UTA " + Case "213" : Lieferant = r.Item("Anzahl") & "x HUGO " + Case "214" : Lieferant = r.Item("Anzahl") & "x PLOSE-RM " + Case "215" : Lieferant = r.Item("Anzahl") & "x PLOSE-IT " + Case "216" : Lieferant = r.Item("Anzahl") & "x PLOSE-CZ " + Case "217" : Lieferant = r.Item("Anzahl") & "x PLOSE-MP " + Case "218" : Lieferant = r.Item("Anzahl") & "x PLOSE-TM " + + End Select + + lblStat_SdlLeistungen_Maut.Text &= Lieferant + Next + lblStat_SdlLeistungen_Maut.Text &= ")" + End If - lblStat_SdlLeistungen_Diesel.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr IN (100,101)") & " Tankkarten" - lblStat_SdlLeistungen_Maut.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr BETWEEN 200 AND 212 ") & " Mautboxen/-karten" End Sub Function checkNullStr(o As Object) As String @@ -682,6 +738,7 @@ Public Class frmKundenblatt KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) 'kundenSQL.getKundeByKdNr(kdNr) ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr) 'kundenSQL.getKundeByKdNr(kdNr) KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr) + KUNDE_K = New VERAG_PROG_ALLGEMEIN.cKundenKontakte(kdNr) 'Me.dataAdapterFirma = Nothing ' Me.dataFirma.Clear() 'SDL! @@ -713,6 +770,13 @@ Public Class frmKundenblatt lblEmail.Text = checkNullStr(ADRESSE.E_Mail) lblEmail2.Text = checkNullStr(ADRESSE.E_Mail2) + txtEmailRE.Text = "-" + If KUNDE_K.kkd_kkaId = 8 Then 'Rechnung an + txtEmailRE.Text = KUNDE_K.kkd_Email & " " & KUNDE_K.kkd_EmailCC + End If + + + lblUid.Text = "" If checkNullStr(ADRESSE.UstIdGeprüft) <> "" Then lblUid.Text = "UId: " & checkNullStr(ADRESSE.UstIdKz) & checkNullStr(ADRESSE.UstIdNr) @@ -2135,27 +2199,40 @@ Public Class frmKundenblatt End Sub + Function dtUmsatzNachLeistungsNr() As DataTable + + Dim datatable As New DataTable + + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Return datatable + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Return datatable + Dim where = "" + If cboFirmaFMZOLL._value <> "" Then + where = " AND [RechnungsKundenNr] = " & kdNr & " AND Firma_ID=" & cboFirmaFMZOLL._value + Else + where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")") + where &= " AND [RechnungsKundenNr] = " & kdNr + End If + + Dim sqlstr = "" + sqlstr &= " SELECT * FROM ( SELECT Leistungen.LeistungsNr, Leistungen.LeistungsBez,YEAR(Abfertigungsdatum ) [Year] , (RechnungsausgangPositionen.SteuerpflichtigerBetrag+RechnungsausgangPositionen.SteuerfreierBetrag ) AS " + sqlstr &= " [Der Wert] FROM Rechnungsausgang INNER JOIN (RechnungsausgangPositionen LEFT JOIN Leistungen ON RechnungsausgangPositionen.LeistungsNr = Leistungen.LeistungsNr) ON (Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID) " + sqlstr &= " WHERE 1 = 1 " + sqlstr &= where + sqlstr &= " ) AS Rg" + sqlstr &= " PIVOT( SUM([Der Wert]) FOR [Year] IN (" & getJahrString() & ")) AS MNamePivot" + sqlstr &= " order by LeistungsNr" + + datatable = SQL.loadDgvBySql(sqlstr, "FMZOLL") + + Return datatable + + End Function + Sub initDGVUmsatzNachLeistungsNr() With dgvUmsatzNachLeistngsNr - If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub - If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub - Dim where = "" - If cboFirmaFMZOLL._value <> "" Then - where = " AND [RechnungsKundenNr] = " & kdNr & " AND Firma_ID=" & cboFirmaFMZOLL._value - Else - where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")") - where &= " AND [RechnungsKundenNr] = " & kdNr - End If - Dim sqlstr = "" - sqlstr &= " SELECT * FROM ( SELECT Leistungen.LeistungsNr, Leistungen.LeistungsBez,YEAR(Abfertigungsdatum ) [Year] , (RechnungsausgangPositionen.SteuerpflichtigerBetrag+RechnungsausgangPositionen.SteuerfreierBetrag ) AS " - sqlstr &= " [Der Wert] FROM Rechnungsausgang INNER JOIN (RechnungsausgangPositionen LEFT JOIN Leistungen ON RechnungsausgangPositionen.LeistungsNr = Leistungen.LeistungsNr) ON (Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID) " - sqlstr &= " WHERE 1 = 1 " - sqlstr &= where - sqlstr &= " ) AS Rg" - sqlstr &= " PIVOT( SUM([Der Wert]) FOR [Year] IN (" & getJahrString() & ")) AS MNamePivot" - sqlstr &= " order by LeistungsNr" - .DataSource = SQL.loadDgvBySql(sqlstr, "FMZOLL") + .DataSource = dtUmsatzNachLeistungsNr() + If .DataSource Is Nothing Then Exit Sub If .Columns.Count = 0 Then Exit Sub @@ -2211,7 +2288,14 @@ Public Class frmKundenblatt Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click If dgvUmsatzNachLeistngsNr.Rows.Count > 0 Then Me.Cursor = Cursors.WaitCursor - cProgramFunctions.genExcelFromDGV_NEW(dgvUmsatzNachLeistngsNr, True) + + Dim dt As DataTable = dtUmsatzNachLeistungsNr() + + If dt.Rows.Count > 0 Then + cProgramFunctions.genExcelFromDT_NEW(dt, {"C1:C" & (dt.Rows.Count + 1), "D1:D" & (dt.Rows.Count + 1), "E1:E" & (dt.Rows.Count + 1), "F1:F" & (dt.Rows.Count + 1), "G1:G" & (dt.Rows.Count + 1), "H1:H" & (dt.Rows.Count + 1), "I1:I" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1), "K1:K" & (dt.Rows.Count + 1)}, False,,,) + End If + + Me.Cursor = Cursors.Default End If @@ -2365,7 +2449,7 @@ Public Class frmKundenblatt initBtns("Monat") End Sub - Private Sub dgvRg_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvRg.DoubleClick, dgvRg.CellContentDoubleClick + Private Sub dgvRg_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvRg.CellContentDoubleClick If dgvRg.SelectedRows.Count = 0 Then Exit Sub @@ -2647,5 +2731,9 @@ Public Class frmKundenblatt End If End Sub + + Private Sub lblEmail_TextChanged(sender As Object, e As MouseEventArgs) Handles lblEmail2.MouseUp, lblEmail.MouseUp + + End Sub End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index cc5e8c4a..d162ec93 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -23,31 +23,34 @@ Partial Class usrcntlKundeBearbeitenFull Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle51 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle52 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle53 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle54 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle55 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle56 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.tbcntrDetails = New System.Windows.Forms.TabControl() Me.tbAbfertigung = New System.Windows.Forms.TabPage() Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox() @@ -58,11 +61,9 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFremdspedition = New System.Windows.Forms.ComboBox() Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox() Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox() - Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten() Me.tbcntrAbf = New System.Windows.Forms.TabControl() Me.TabPage4 = New System.Windows.Forms.TabPage() Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel() - Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox() Me.Label18 = New System.Windows.Forms.Label() Me.TabPage3 = New System.Windows.Forms.TabPage() @@ -76,7 +77,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboAbfVerb_Abfertigungsverbot = New System.Windows.Forms.CheckBox() Me.txtAbfVerb_AbfertigungsverbotSeit = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.tbAufschub = New System.Windows.Forms.TabPage() - Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.Label78 = New System.Windows.Forms.Label() Me.cbxAbf_ZollVM = New System.Windows.Forms.CheckBox() @@ -101,7 +101,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox() Me.Panel1 = New System.Windows.Forms.Panel() Me.tbFiskal = New System.Windows.Forms.TabPage() - Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten() Me.tbVerrechnung = New System.Windows.Forms.TabPage() Me.Panel2 = New System.Windows.Forms.Panel() Me.Label115 = New System.Windows.Forms.Label() @@ -277,7 +276,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label113 = New System.Windows.Forms.Label() Me.Label112 = New System.Windows.Forms.Label() Me.dgvIDS_Rabatte = New System.Windows.Forms.DataGridView() - Me.lblIDS_Rabatte = New System.Windows.Forms.Label() Me.txtSumVerag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtSonst_KdNrVerag = New System.Windows.Forms.TextBox() Me.Label110 = New System.Windows.Forms.Label() @@ -389,7 +387,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbKontakt = New System.Windows.Forms.TabControl() Me.TabPage10 = New System.Windows.Forms.TabPage() Me.TabPage11 = New System.Windows.Forms.TabPage() - Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() Me.Label50 = New System.Windows.Forms.Label() Me.Label68 = New System.Windows.Forms.Label() Me.pnlNeukunde = New System.Windows.Forms.Panel() @@ -415,6 +412,18 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.Standard = New System.Windows.Forms.TabPage() + Me.Kunden = New System.Windows.Forms.TabPage() + Me.dgvIDS_Standard = New System.Windows.Forms.DataGridView() + Me.cbx_IDS_inaktiveeinblenden = New System.Windows.Forms.CheckBox() + Me.PictureBox7 = New System.Windows.Forms.PictureBox() + Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() + Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten() + Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() + Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten() + Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten() + Me.lblIDS_Rabatte = New System.Windows.Forms.Label() Me.tbcntrDetails.SuspendLayout() Me.tbAbfertigung.SuspendLayout() Me.tbcntrAbf.SuspendLayout() @@ -456,6 +465,11 @@ Partial Class usrcntlKundeBearbeitenFull Me.TabPage11.SuspendLayout() Me.pnlNeukunde.SuspendLayout() Me.cnsBankverbindungen.SuspendLayout() + Me.TabControl1.SuspendLayout() + Me.Standard.SuspendLayout() + Me.Kunden.SuspendLayout() + CType(Me.dgvIDS_Standard, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'tbcntrDetails @@ -601,16 +615,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxBesonderheitenNEU.Text = "Besonderheiten NEU" Me.cbxBesonderheitenNEU.UseVisualStyleBackColor = True ' - 'UsrCntlKundenBesonderheiten1 - ' - Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25) - Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1" - Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52) - Me.UsrCntlKundenBesonderheiten1.TabIndex = 235 - Me.UsrCntlKundenBesonderheiten1.Visible = False - ' 'tbcntrAbf ' Me.tbcntrAbf.Controls.Add(Me.TabPage4) @@ -645,15 +649,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.FlowLayoutPanel1.Size = New System.Drawing.Size(200, 100) Me.FlowLayoutPanel1.TabIndex = 7 ' - 'UsrCntlKundenAvisoMailBenachrichtigung1 - ' - Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True - Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6 - ' 'rtbLKWFreigabeSenden ' Me.rtbLKWFreigabeSenden.Location = New System.Drawing.Point(485, 33) @@ -822,14 +817,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbAufschub.Text = "Aufschubkonten" Me.tbAufschub.UseVisualStyleBackColor = True ' - 'usrCntlAufschubkonten - ' - Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3) - Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten" - Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172) - Me.usrCntlAufschubkonten.TabIndex = 0 - ' 'TabPage1 ' Me.TabPage1.Controls.Add(Me.Label78) @@ -1135,15 +1122,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbFiskal.Text = "Fiskal" Me.tbFiskal.UseVisualStyleBackColor = True ' - 'UsrCntlKundeFiskaldaten1 - ' - Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1" - Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495) - Me.UsrCntlKundeFiskaldaten1.TabIndex = 0 - ' 'tbVerrechnung ' Me.tbVerrechnung.Controls.Add(Me.Panel2) @@ -3219,8 +3197,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle38.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle38 Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25) @@ -3319,8 +3297,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToOrderColumns = True Me.dgvOffenePosten.AllowUserToResizeRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle39.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle39 Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38) @@ -3495,40 +3473,40 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvKreditkarten.AllowUserToDeleteRows = False Me.dgvKreditkarten.AllowUserToOrderColumns = True Me.dgvKreditkarten.AllowUserToResizeRows = False - DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle40.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle40 Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle41.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle41.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle41.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle41.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle41.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle41 Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle42.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle42.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle42.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle42.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle42.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle42.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle42.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle42 Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20) Me.dgvKreditkarten.MultiSelect = False Me.dgvKreditkarten.Name = "dgvKreditkarten" - DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle43.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle43 Me.dgvKreditkarten.RowHeadersVisible = False - DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle44 Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312) @@ -3608,26 +3586,26 @@ Partial Class usrcntlKundeBearbeitenFull ' 'dgvMWST ' - DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle45.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle45 Me.dgvMWST.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 + DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle46.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle46.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle46 Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle47.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle47.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle47.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle47 Me.dgvMWST.Location = New System.Drawing.Point(9, 359) Me.dgvMWST.Name = "dgvMWST" Me.dgvMWST.Size = New System.Drawing.Size(171, 125) @@ -3712,26 +3690,26 @@ Partial Class usrcntlKundeBearbeitenFull ' 'dgvUstv_LaenderUndSteuernummern ' - DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 + DataGridViewCellStyle48.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle48 Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 + DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle49.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle49.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle49 Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle13 + DataGridViewCellStyle50.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle50.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle50.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle50.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle50.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle50 Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94) Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern" Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 259) @@ -3867,12 +3845,14 @@ Partial Class usrcntlKundeBearbeitenFull ' 'tbSonstiges ' + Me.tbSonstiges.Controls.Add(Me.lblIDS_Rabatte) + Me.tbSonstiges.Controls.Add(Me.PictureBox7) + Me.tbSonstiges.Controls.Add(Me.cbx_IDS_inaktiveeinblenden) + Me.tbSonstiges.Controls.Add(Me.TabControl1) Me.tbSonstiges.Controls.Add(Me.cbxCSInsolvent) Me.tbSonstiges.Controls.Add(Me.cbxCS_Added) Me.tbSonstiges.Controls.Add(Me.Label113) Me.tbSonstiges.Controls.Add(Me.Label112) - Me.tbSonstiges.Controls.Add(Me.dgvIDS_Rabatte) - Me.tbSonstiges.Controls.Add(Me.lblIDS_Rabatte) Me.tbSonstiges.Controls.Add(Me.txtSumVerag) Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrVerag) Me.tbSonstiges.Controls.Add(Me.Label110) @@ -3960,42 +3940,32 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvIDS_Rabatte.AllowUserToAddRows = False Me.dgvIDS_Rabatte.AllowUserToDeleteRows = False Me.dgvIDS_Rabatte.AllowUserToResizeRows = False - DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14 + DataGridViewCellStyle32.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle32 Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15 + DataGridViewCellStyle33.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle33.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle33.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle33.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle33.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle33 Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle16 - Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(9, 317) - Me.dgvIDS_Rabatte.MultiSelect = False + DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle34 + Me.dgvIDS_Rabatte.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(3, 3) Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte" - Me.dgvIDS_Rabatte.Size = New System.Drawing.Size(657, 172) + Me.dgvIDS_Rabatte.Size = New System.Drawing.Size(645, 169) Me.dgvIDS_Rabatte.TabIndex = 34 ' - 'lblIDS_Rabatte - ' - Me.lblIDS_Rabatte.AutoSize = True - Me.lblIDS_Rabatte.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblIDS_Rabatte.Location = New System.Drawing.Point(7, 301) - Me.lblIDS_Rabatte.Name = "lblIDS_Rabatte" - Me.lblIDS_Rabatte.Size = New System.Drawing.Size(100, 13) - Me.lblIDS_Rabatte.TabIndex = 33 - Me.lblIDS_Rabatte.Text = "IDS-Rabatte/Preise" - ' 'txtSumVerag ' Me.txtSumVerag._DateTimeOnly = False @@ -4109,7 +4079,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label76.AutoSize = True Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label76.Location = New System.Drawing.Point(7, 192) + Me.Label76.Location = New System.Drawing.Point(24, 194) Me.Label76.Name = "Label76" Me.Label76.Size = New System.Drawing.Size(65, 13) Me.Label76.TabIndex = 17 @@ -4120,30 +4090,30 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvSonst_IDSKunden.AllowUserToAddRows = False Me.dgvSonst_IDSKunden.AllowUserToDeleteRows = False Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False - DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 + DataGridViewCellStyle35.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle35 Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18 + DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle36.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle36.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle36 Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle19 + DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle37.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle37.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle37.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle37 Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 214) Me.dgvSonst_IDSKunden.MultiSelect = False Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden" - Me.dgvSonst_IDSKunden.Size = New System.Drawing.Size(657, 84) + Me.dgvSonst_IDSKunden.Size = New System.Drawing.Size(657, 53) Me.dgvSonst_IDSKunden.TabIndex = 18 ' 'cbxSonst_CsvAsfinag @@ -4450,26 +4420,26 @@ Partial Class usrcntlKundeBearbeitenFull 'DataGridView1 ' Me.DataGridView1.AllowUserToResizeRows = False - DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20 + DataGridViewCellStyle51.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle51 Me.DataGridView1.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle21 + DataGridViewCellStyle52.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle52.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle52.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle52.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle52.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle52.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle52 Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle22 + DataGridViewCellStyle53.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle53.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle53.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle53.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle53.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle53.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle53.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle53 Me.DataGridView1.Enabled = False Me.DataGridView1.Location = New System.Drawing.Point(6, 111) Me.DataGridView1.MultiSelect = False @@ -4536,26 +4506,26 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.dgvBankverbindungen.AllowUserToDeleteRows = False Me.dgvBankverbindungen.AllowUserToResizeRows = False - DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23 + DataGridViewCellStyle54.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle54 Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle24 + DataGridViewCellStyle55.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle55.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle55.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle55.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle55.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle55.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle55 Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle25 + DataGridViewCellStyle56.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle56.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle56.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle56.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle56.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle56.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle56 Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40) Me.dgvBankverbindungen.MultiSelect = False Me.dgvBankverbindungen.Name = "dgvBankverbindungen" @@ -5396,14 +5366,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.TabPage11.Text = "Spezifisch" Me.TabPage11.UseVisualStyleBackColor = True ' - 'ucKundenKontakte - ' - Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill - Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) - Me.ucKundenKontakte.Name = "ucKundenKontakte" - Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169) - Me.ucKundenKontakte.TabIndex = 0 - ' 'Label50 ' Me.Label50.AutoSize = True @@ -5684,6 +5646,145 @@ Partial Class usrcntlKundeBearbeitenFull Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.Standard) + Me.TabControl1.Controls.Add(Me.Kunden) + Me.TabControl1.Location = New System.Drawing.Point(6, 288) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(659, 201) + Me.TabControl1.TabIndex = 40 + ' + 'Standard + ' + Me.Standard.Controls.Add(Me.dgvIDS_Standard) + Me.Standard.Location = New System.Drawing.Point(4, 22) + Me.Standard.Name = "Standard" + Me.Standard.Padding = New System.Windows.Forms.Padding(3) + Me.Standard.Size = New System.Drawing.Size(651, 175) + Me.Standard.TabIndex = 0 + Me.Standard.Text = "Standardpreise" + Me.Standard.UseVisualStyleBackColor = True + ' + 'Kunden + ' + Me.Kunden.Controls.Add(Me.dgvIDS_Rabatte) + Me.Kunden.Location = New System.Drawing.Point(4, 22) + Me.Kunden.Name = "Kunden" + Me.Kunden.Padding = New System.Windows.Forms.Padding(3) + Me.Kunden.Size = New System.Drawing.Size(651, 175) + Me.Kunden.TabIndex = 1 + Me.Kunden.Text = "Kundenpreise" + Me.Kunden.UseVisualStyleBackColor = True + ' + 'dgvIDS_Standard + ' + Me.dgvIDS_Standard.AllowUserToAddRows = False + Me.dgvIDS_Standard.AllowUserToDeleteRows = False + Me.dgvIDS_Standard.AllowUserToResizeRows = False + DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvIDS_Standard.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29 + Me.dgvIDS_Standard.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle30.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle30.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle30.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvIDS_Standard.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle30 + Me.dgvIDS_Standard.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle31.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle31.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle31.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle31.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvIDS_Standard.DefaultCellStyle = DataGridViewCellStyle31 + Me.dgvIDS_Standard.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvIDS_Standard.Location = New System.Drawing.Point(3, 3) + Me.dgvIDS_Standard.Name = "dgvIDS_Standard" + Me.dgvIDS_Standard.Size = New System.Drawing.Size(645, 169) + Me.dgvIDS_Standard.TabIndex = 35 + ' + 'cbx_IDS_inaktiveeinblenden + ' + Me.cbx_IDS_inaktiveeinblenden.AutoSize = True + Me.cbx_IDS_inaktiveeinblenden.Location = New System.Drawing.Point(9, 194) + Me.cbx_IDS_inaktiveeinblenden.Name = "cbx_IDS_inaktiveeinblenden" + Me.cbx_IDS_inaktiveeinblenden.Size = New System.Drawing.Size(15, 14) + Me.cbx_IDS_inaktiveeinblenden.TabIndex = 41 + Me.cbx_IDS_inaktiveeinblenden.UseVisualStyleBackColor = True + ' + 'PictureBox7 + ' + Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.PictureBox7.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.PictureBox7.Location = New System.Drawing.Point(645, 273) + Me.PictureBox7.Name = "PictureBox7" + Me.PictureBox7.Size = New System.Drawing.Size(20, 20) + Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox7.TabIndex = 146 + Me.PictureBox7.TabStop = False + ' + 'ucKundenKontakte + ' + Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) + Me.ucKundenKontakte.Name = "ucKundenKontakte" + Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169) + Me.ucKundenKontakte.TabIndex = 0 + ' + 'UsrCntlKundenBesonderheiten1 + ' + Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25) + Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1" + Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52) + Me.UsrCntlKundenBesonderheiten1.TabIndex = 235 + Me.UsrCntlKundenBesonderheiten1.Visible = False + ' + 'UsrCntlKundenAvisoMailBenachrichtigung1 + ' + Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True + Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6 + ' + 'usrCntlAufschubkonten + ' + Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3) + Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten" + Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172) + Me.usrCntlAufschubkonten.TabIndex = 0 + ' + 'UsrCntlKundeFiskaldaten1 + ' + Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1" + Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495) + Me.UsrCntlKundeFiskaldaten1.TabIndex = 0 + ' + 'lblIDS_Rabatte + ' + Me.lblIDS_Rabatte.AutoSize = True + Me.lblIDS_Rabatte.Enabled = False + Me.lblIDS_Rabatte.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblIDS_Rabatte.Location = New System.Drawing.Point(10, 273) + Me.lblIDS_Rabatte.Name = "lblIDS_Rabatte" + Me.lblIDS_Rabatte.Size = New System.Drawing.Size(100, 13) + Me.lblIDS_Rabatte.TabIndex = 147 + Me.lblIDS_Rabatte.Text = "IDS-Rabatte/Preise" + Me.lblIDS_Rabatte.Visible = False + ' 'usrcntlKundeBearbeitenFull ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -5783,6 +5884,11 @@ Partial Class usrcntlKundeBearbeitenFull Me.pnlNeukunde.ResumeLayout(False) Me.pnlNeukunde.PerformLayout() Me.cnsBankverbindungen.ResumeLayout(False) + Me.TabControl1.ResumeLayout(False) + Me.Standard.ResumeLayout(False) + Me.Kunden.ResumeLayout(False) + CType(Me.dgvIDS_Standard, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -6138,7 +6244,6 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents txtFR As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents cbxFR As CheckBox Friend WithEvents dgvIDS_Rabatte As DataGridView - Friend WithEvents lblIDS_Rabatte As Label Friend WithEvents Label113 As Label Friend WithEvents Label112 As Label Friend WithEvents Label111 As Label @@ -6154,4 +6259,11 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents cbxProvDL As CheckBox Friend WithEvents Label115 As Label Friend WithEvents btnKKSave As Button + Friend WithEvents TabControl1 As TabControl + Friend WithEvents Standard As TabPage + Friend WithEvents Kunden As TabPage + Friend WithEvents dgvIDS_Standard As DataGridView + Friend WithEvents cbx_IDS_inaktiveeinblenden As CheckBox + Friend WithEvents PictureBox7 As PictureBox + Friend WithEvents lblIDS_Rabatte As Label End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index 9934253a..2859de34 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -2180,13 +2180,13 @@ Public Class usrcntlKundeBearbeitenFull - Private Sub initdgvIDSKunden() + Private Sub initdgvIDSKunden(inaktive_einblenden As Boolean) With dgvSonst_IDSKunden cBinding_dgvSonst_IDSKunden.initBinding(" SELECT [KdNrVERAG],[CustomerCode],[KdNrAlt],[Zeitstempel],[Sachbearbeiter] " & " FROM [tbl_IDS_Kunden] " & - " WHERE KdNrVERAG = '" & KUNDE.KundenNr & "' ", "tbl_IDS_Kunden") + " WHERE KdNrVERAG = '" & KUNDE.KundenNr & "'" & IIf(Not inaktive_einblenden, " AND isnull(KdNrAlt,0) <> 1 ", ""), "tbl_IDS_Kunden") AddHandler btnSonstAendSpeichern.Click, Sub(send As Object, evnt As EventArgs) @@ -2228,19 +2228,18 @@ Public Class usrcntlKundeBearbeitenFull End Sub - Private Sub initdgvIDSRabatte() + Private Function initdgvIDSRabatte() As DataTable - Dim KundeOhneRabatt As Integer = CInt(sql.getValueTxtBySql("select count(*) from tbl_IDS_Kunden_ohne_Rabatt where CustomerCode = " & KUNDE.KundenNr, "FMZOLL")) - lblIDS_Rabatte.Text = "IDS-Rabatte/Preise" & IIf(KundeOhneRabatt > 0, " - KUNDE OHNE RABATT", "") + Dim dt_IDS_Rabatte As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW + left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode + left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode + left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode where CustomerCode =" & KUNDE.KundenNr & " AND RW.Rechenwert <> 0 order by Kz", "FMZOLL") With dgvIDS_Rabatte - .DataSource = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW - left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode - left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode - left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode where CustomerCode =" & KUNDE.KundenNr, "FMZOLL") + .DataSource = dt_IDS_Rabatte .ReadOnly = True @@ -2253,7 +2252,38 @@ Public Class usrcntlKundeBearbeitenFull End With - End Sub + Return dt_IDS_Rabatte + + End Function + + Private Function initdgvIDSPreise() As DataTable + + Dim KundeOhneRabatt As Integer = CInt(sql.getValueTxtBySql("select count(*) from tbl_IDS_Kunden_ohne_Rabatt where CustomerCode = " & KUNDE.KundenNr, "FMZOLL")) + lblIDS_Rabatte.Text = "IDS-Rabatte/Preise" & IIf(KundeOhneRabatt > 0, " - KUNDE OHNE RABATT", "") + + + Dim dt_IDS As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW + left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode + left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode + left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode where CustomerCode is null and RW.Rechenwert <> 0 order by KZ", "FMZOLL") + + With dgvIDS_Standard + .DataSource = dt_IDS + + .ReadOnly = True + + + .Columns(0).HeaderText = "Produkt" + .Columns(1).HeaderText = "Land" + .Columns(2).HeaderText = "Station" + .Columns(4).HeaderText = "Rabatt/Preis" + .Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + End With + + Return dt_IDS + + End Function Private Sub initdgvOP() @@ -2362,8 +2392,8 @@ Public Class usrcntlKundeBearbeitenFull End If If tbcntrDetails.SelectedTab Is tbSonstiges Then - initdgvIDSKunden() - initdgvIDSRabatte() + initdgvIDSKunden(False) + initdgvIDSPreise() End If If tbcntrDetails.SelectedTab Is tbBankverbindungen Then @@ -2380,7 +2410,7 @@ Public Class usrcntlKundeBearbeitenFull Dim aktiveSteuerNr As Integer = CInt((New SQL).getValueTxtBySql(sqlStringSteuerNr, "FMZOLL")) If aktiveSteuerNr > 0 Then - If vbYes = MsgBox("Der Kunde hat aktuell " & aktiveSteuerNr & " aktive Steuer-Nummern!" & vbNewLine & "Trotzdem setzen? ", vbYesNoCancel) Then + If vbYes = MsgBox("Der Kunde hat aktuell " & aktiveSteuerNr & " aktive Steuernummern!" & vbNewLine & "Trotzdem setzen? ", vbYesNoCancel) Then cbxkeineMWSt.Checked = True Else cbxkeineMWSt.Checked = False @@ -2425,4 +2455,35 @@ Public Class usrcntlKundeBearbeitenFull End Sub + Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged + + Select Case TabControl1.SelectedIndex + Case 0 + initdgvIDSPreise() + Case Else + initdgvIDSRabatte() + End Select + + + End Sub + + Private Sub cbx_IDS_inaktiveeinblenden_CheckedChanged(sender As Object, e As EventArgs) Handles cbx_IDS_inaktiveeinblenden.CheckedChanged + initdgvIDSKunden(cbx_IDS_inaktiveeinblenden.Checked) + End Sub + + Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click + + Dim dt As New DataTable + Select Case TabControl1.SelectedIndex + Case 0 + dt = initdgvIDSPreise() + Case Else + dt = initdgvIDSRabatte() + End Select + + If dt.Rows.Count > 0 Then + VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt, {"D1:D" & (dt.Rows.Count + 1)}, False,,,,,, True) + End If + + End Sub End Class diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb index 29d1963a..a524122f 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb @@ -377,34 +377,39 @@ Public Class usrcntlPDFScanList Try Dim added = False - If e.Data.GetDataPresent(DataFormats.FileDrop) Then - Dim files() As String = e.Data.GetData(DataFormats.FileDrop) + If DS IsNot Nothing Then - If files.Count > 1 Then - MsgBox("Nur eine Datei möglich!") - ElseIf files.Count > 0 Then - If files(0) <> "" Then - Dim fio As New System.IO.FileInfo(files(0)) - If DS.uploadDataToDATENSERVER(files(0), fio.Name, ".pdf") Then + If e.Data.GetDataPresent(DataFormats.FileDrop) Then + Dim files() As String = e.Data.GetData(DataFormats.FileDrop) + + If files.Count > 1 Then + MsgBox("Nur eine Datei möglich!") + ElseIf files.Count > 0 Then + If files(0) <> "" Then + Dim fio As New System.IO.FileInfo(files(0)) + If DS.uploadDataToDATENSERVER(files(0), fio.Name, ".pdf") Then + RaiseEvent FileAdded(DS.da_id, DS.GET_TOP1_PATH, DS.da_name) + MsgBox("Dokument wurde hochgeladen.") + End If + + End If + End If + + ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then + Dim FilePath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.EmAilAttach(e) + If FilePath <> "" Then + Dim fio As New System.IO.FileInfo(FilePath) + If DS.uploadDataToDATENSERVER(FilePath, fio.Name, ".pdf") Then RaiseEvent FileAdded(DS.da_id, DS.GET_TOP1_PATH, DS.da_name) MsgBox("Dokument wurde hochgeladen.") End If - End If End If - ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then - Dim FilePath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.EmAilAttach(e) - If FilePath <> "" Then - Dim fio As New System.IO.FileInfo(FilePath) - If DS.uploadDataToDATENSERVER(FilePath, fio.Name, ".pdf") Then - RaiseEvent FileAdded(DS.da_id, DS.GET_TOP1_PATH, DS.da_name) - MsgBox("Dokument wurde hochgeladen.") - End If - End If + initPdf() + End If - initPdf() Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)