From 2f704e569f13cc4eac51dcb8046c7485accae1bb Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 27 May 2025 13:23:03 +0200 Subject: [PATCH] antrag, Email, MWST-Liste --- SDL/Fakturierung/frmFaktEmail.vb | 42 +- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 82 +- SDL/Reports/MDM/rptMWSTListe.Designer.vb | 844 ++++++++++++++++++ SDL/Reports/MDM/rptMWSTListe.resx | 129 +++ SDL/Reports/MDM/rptMWSTListe.vb | 6 + SDL/SDL.vbproj | 9 + SDL/USTV/frmMDM_USTVAntrag.vb | 2 +- .../Classes/cMDMFunctionsAllgemein.vb | 79 +- 8 files changed, 1145 insertions(+), 48 deletions(-) create mode 100644 SDL/Reports/MDM/rptMWSTListe.Designer.vb create mode 100644 SDL/Reports/MDM/rptMWSTListe.resx create mode 100644 SDL/Reports/MDM/rptMWSTListe.vb diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index 0ff2dfcd..65a58234 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -911,15 +911,49 @@ Public Class frmFaktEmail Try If MergePDF And ATTACHMENTS.Count > 1 Then + Dim extension = ".pdf" Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(IIf(SammelrechungArt <> 6, "Rechnungs_Anhänge_", "Rechnung_") & RgNr & extension, extension,, False, "Zusammenfassung") - Dim myList As New List(Of String) - For Each a In ATTACHMENTS : myList.Add(a.Pfad) : Next + If RECHNUNG.Firma_ID = 19 Then + + Dim zielPfadZusammenfassung_Lieferantenrechnungen = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(IIf(SammelrechungArt <> 6, "LF-Rechnungs_Anhänge_", "LF-Rechnung_") & RgNr & extension, extension,, False, "Zusammenfassung") + + Dim myList As New List(Of String) + Dim myList2 As New List(Of String) + For Each a In ATTACHMENTS + If a.Pfad.ToString.Contains("VERAG") Or a.Pfad.ToString.Contains("IDS") Or a.Pfad.ToString.Contains("MSE") Or a.Pfad.ToString.Contains("UTA") Or a.Pfad.ToString.Contains("PLOSE") Or a.Pfad.ToString.Contains("RMC") Then + myList2.Add(a.Pfad) + Else + myList.Add(a.Pfad) + End If + Next + + ATTACHMENTS.Clear() + Dim list2megered As Boolean = True + If myList2.Count > 0 Then + list2megered = False + list2megered = FormularManagerNEU.MergePdfFiles(myList2, zielPfadZusammenfassung_Lieferantenrechnungen) + End If + + If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) AndAlso list2megered Then + ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, "")) + If myList2.Count > 0 Then ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung_Lieferantenrechnungen, "")) + End If + + + Else + + Dim myList As New List(Of String) + For Each a In ATTACHMENTS : myList.Add(a.Pfad) : Next + + If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then + ATTACHMENTS.Clear() : ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, "")) ' überscheiben + End If - If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then - ATTACHMENTS.Clear() : ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, "")) ' überscheiben End If + + End If 'Anhang an Mail anfügen '----------------------------------------------------------------- diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index af7f6cb8..108ab5cf 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -1,6 +1,8 @@  Imports System.IO Imports System.Web.UI.WebControls.Expressions +Imports DAKOSY_Worker.DETPDD +Imports GrapeCity.DataVisualization.Chart Imports VERAG_PROG_ALLGEMEIN Public Class usrCntlFaktAbrechnung @@ -1237,8 +1239,8 @@ Public Class usrCntlFaktAbrechnung " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL") - 'If .ColumnCount = 0 Then Exit Sub - .Columns("LeistungsNr").Width = 30 + 'If .ColumnCount = 0 Then Exit Sub + .Columns("LeistungsNr").Width = 30 .Columns("LeistungsNr").HeaderText = "Nr" .Columns("LeistungsBez").MinimumWidth = 180 .Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill @@ -1788,11 +1790,72 @@ Public Class usrCntlFaktAbrechnung 'Anhänge aus USTVA -> SPED-BUCH + Excel Pos-Liste If SPEDBUCH IsNot Nothing Then If FIRMA IsNot Nothing Then - If FIRMA.Firma_ID = 19 AndAlso SPEDBUCH.ErfassungsNr <> "" AndAlso SPEDBUCH.ErfassungsNr > 0 AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115) Then + If FIRMA.Firma_ID = 19 AndAlso SPEDBUCH.ErfassungsNr <> "" AndAlso SPEDBUCH.ErfassungsNr > 0 AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10) Then Dim func As New cMDMFunctionsAllgemein() Dim dt = SQL.loadDgvBySql("SELECT UStVPo_daId, UStVPo_ID,UStVPo_SchnittstellenNr, UStVPo_ReNr, UStVPo_ReDat FROM tblUStVPositionen where UStVAn_ID='" & SPEDBUCH.ErfassungsNr & "' AND UStVPo_SchnittstellenNr <> 1 order by UStVPo_ID", "FMZOLL") Dim USTV As New cUSTVAntrag(SPEDBUCH.ErfassungsNr) + + 'soll immer alle POS bekommen! laut Lidya! 28.04.2025 - aber nicht im Excel-Format sondern als PDF-Batinic 15.05.2025 + Dim dtPOSList As New DataTable + Dim prt As String = func.generatePosList(USTV, "", "", "", False, "prt", dtPOSList, isVZ) + If prt <> "" Then + + Try + + Dim rpt As New rptMWSTListe + + rpt.DataSource = dtPOSList + + rpt.GroupHeader1.DataField = "Firma_ID" 'Gruppierung + + If rpt.DataSource.rows.count > 0 Then + + Dim AD As New cAdressen(USTV.UStVAn_KuNr) + Dim sum As Double = 0 + + rpt.lblVatNo.Text = USTV.UStVAn_Steuernummer + rpt.lblCompanyname.Text = AD.Name_1 & " " & AD.Name_2 + + + + AddHandler rpt.Detail.Format, Sub() + + rpt.lblNumber.Text = rpt.Fields.Item("Number").Value() + rpt.lblGoods.Text = rpt.Fields.Item("Name of service").Value() + rpt.lblName.Text = rpt.Fields.Item("Name of supplier").Value() + rpt.lblTax.Text = CDbl(rpt.Fields.Item("Amount of tax refund").Value()).ToString("N2") + rpt.lblDate.Text = CDate((rpt.Fields.Item("Date of Invoice").Value())).ToShortDateString + rpt.lblInvoiceNo.Text = rpt.Fields.Item("Number of invoice").Value() + + sum += CDbl(rpt.Fields.Item("Amount of tax refund").Value()).ToString("N2") + End Sub + + + AddHandler rpt.GroupFooter1.Format, Sub() + rpt.lblSumme.Text = sum.ToString("N2") + rpt.lblWahrung.Text = "EUR" + + End Sub + + + Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(SPEDBUCH.AbfertigungsNr, ".pdf", , False) + Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + rpt.Run(False) + p.NeverEmbedFonts = "" + p.Export(rpt.Document, tmpPath) + rpt.Dispose() + + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "POS_LISTE", "", "", SPEDBUCH.AbfertigungsNr & ".pdf", USTV.UStVAn_KuNr, False) + DS.uploadDataToDATENSERVER(tmpPath,,, False,,, True) + .Rows.Add(-1, "POS-LIST", DS.da_name, DS.da_id, -1) + End If + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + End If + If dt IsNot Nothing Then For Each r In dt.Rows @@ -1821,18 +1884,9 @@ Public Class usrCntlFaktAbrechnung Next End If - 'soll immer alle POS bekommen! laut Lidya! 28.04.2025 - aber nicht im Excel-Format sondern als PDF-Batinic 15.05.2025 - 'Dim pfadExcel As String = func.generateExcelPosList(USTV, "", "", "", False) - 'If pfadExcel <> "" Then - - ' Dim FI As New FileInfo(pfadExcel) - ' Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "POS_LISTE", "", "", SPEDBUCH.AbfertigungsNr & FI.Extension, USTV.UStVAn_KuNr, False) - ' DS.uploadDataToDATENSERVER(pfadExcel, FI.Name, FI.Extension,,,, True) - ' .Rows.Add(1, "POS-LIST", DS.da_name, DS.da_id, -1) - 'End If End If - End If + End If @@ -2922,7 +2976,7 @@ Public Class usrCntlFaktAbrechnung If Kreditaufwendungen_Berechnungbetrag <> 0 Then ' MsgBox("1: " & Kreditaufwendungen_Berechnungbetrag) If Kreditaufwendungen_Berechnungbetrag < 0 Then Kreditaufwendungen_Berechnungbetrag *= -1 - Kreditaufwendungen = Math.round(Kreditaufwendungen_Berechnungbetrag * KD.Kreditaufwendungen, 2) '(Int(Kreditaufwendungen_Berechnungbetrag * KD.Kreditaufwendungen) * 10 + 0.5) / 10 + Kreditaufwendungen = Math.Round(Kreditaufwendungen_Berechnungbetrag * KD.Kreditaufwendungen, 2) '(Int(Kreditaufwendungen_Berechnungbetrag * KD.Kreditaufwendungen) * 10 + 0.5) / 10 End If End If diff --git a/SDL/Reports/MDM/rptMWSTListe.Designer.vb b/SDL/Reports/MDM/rptMWSTListe.Designer.vb new file mode 100644 index 00000000..c8e24427 --- /dev/null +++ b/SDL/Reports/MDM/rptMWSTListe.Designer.vb @@ -0,0 +1,844 @@ + +Partial Public Class rptMWSTListe + 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(rptMWSTListe)) + Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() + Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.lblNumber = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblGoods = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblName = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblOfficial = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblDate = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblInvoiceNo = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblTax = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line5 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line6 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line9 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line10 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line11 = New GrapeCity.ActiveReports.SectionReportModel.Line() + 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.lblUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblVatNo = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblCompanyname = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() + Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.TextBox12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox17 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox23 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line13 = 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.GroupHeader2 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.GroupFooter2 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + CType(Me.lblNumber, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblGoods, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblName, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblOfficial, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblDate, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblInvoiceNo, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblTax, 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.lblUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblVatNo, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblCompanyname, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox23, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblWahrung, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'PageHeader + ' + Me.PageHeader.Height = 0! + Me.PageHeader.Name = "PageHeader" + ' + 'Detail + ' + Me.Detail.BackColor = System.Drawing.Color.White + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblNumber, Me.lblGoods, Me.lblName, Me.lblOfficial, Me.lblDate, Me.lblInvoiceNo, Me.lblTax, Me.Line3, Me.Line4, Me.Line5, Me.Line6, Me.Line7, Me.Line8, Me.Line9, Me.Line10, Me.Line11}) + Me.Detail.Height = 0.4399443! + Me.Detail.KeepTogether = True + Me.Detail.Name = "Detail" + ' + 'lblNumber + ' + Me.lblNumber.DataField = "" + Me.lblNumber.Height = 0.4295276! + Me.lblNumber.HyperLink = Nothing + Me.lblNumber.Left = 0.005118111! + Me.lblNumber.Name = "lblNumber" + Me.lblNumber.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: center; vertical-a" & + "lign: middle; ddo-char-set: 1" + Me.lblNumber.Text = "-" + Me.lblNumber.Top = 0! + Me.lblNumber.Width = 0.81063! + ' + 'lblGoods + ' + Me.lblGoods.DataField = "" + Me.lblGoods.Height = 0.1795276! + Me.lblGoods.HyperLink = Nothing + Me.lblGoods.Left = 0.8157481! + Me.lblGoods.MultiLine = False + Me.lblGoods.Name = "lblGoods" + Me.lblGoods.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set" & + ": 1" + Me.lblGoods.Text = "-" + Me.lblGoods.Top = 0! + Me.lblGoods.Width = 6.590945! + ' + 'lblName + ' + Me.lblName.DataField = "" + Me.lblName.DistinctField = "" + Me.lblName.Height = 0.2106299! + Me.lblName.Left = 0.815748! + Me.lblName.MultiLine = False + Me.lblName.Name = "lblName" + Me.lblName.Style = "color: Black; font-size: 8pt; text-align: left; ddo-char-set: 1" + Me.lblName.SummaryGroup = "" + Me.lblName.Text = "-" + Me.lblName.Top = 0.2188977! + Me.lblName.Width = 6.590945! + ' + 'lblOfficial + ' + Me.lblOfficial.DataField = "" + Me.lblOfficial.DistinctField = "" + Me.lblOfficial.Height = 0.4295276! + Me.lblOfficial.Left = 10.24409! + Me.lblOfficial.Name = "lblOfficial" + Me.lblOfficial.Style = "color: Black; font-size: 8pt; text-align: right; ddo-char-set: 1" + Me.lblOfficial.SummaryGroup = "" + Me.lblOfficial.Text = Nothing + Me.lblOfficial.Top = 0! + Me.lblOfficial.Width = 1.05! + ' + 'lblDate + ' + Me.lblDate.DataField = "" + Me.lblDate.DistinctField = "" + Me.lblDate.Height = 0.1795276! + Me.lblDate.Left = 7.406693! + Me.lblDate.MultiLine = False + Me.lblDate.Name = "lblDate" + Me.lblDate.Style = "color: Black; font-size: 8pt; text-align: left; ddo-char-set: 1" + Me.lblDate.SummaryGroup = "" + Me.lblDate.Text = Nothing + Me.lblDate.Top = 0! + Me.lblDate.Width = 1.505513! + ' + 'lblInvoiceNo + ' + Me.lblInvoiceNo.DataField = "" + Me.lblInvoiceNo.DistinctField = "" + Me.lblInvoiceNo.Height = 0.2106299! + Me.lblInvoiceNo.Left = 7.406693! + Me.lblInvoiceNo.MultiLine = False + Me.lblInvoiceNo.Name = "lblInvoiceNo" + Me.lblInvoiceNo.Style = "color: Black; font-size: 8pt; text-align: left; ddo-char-set: 1" + Me.lblInvoiceNo.SummaryGroup = "" + Me.lblInvoiceNo.Text = Nothing + Me.lblInvoiceNo.Top = 0.2188977! + Me.lblInvoiceNo.Width = 1.505513! + ' + 'lblTax + ' + Me.lblTax.DataField = "" + Me.lblTax.DistinctField = "" + Me.lblTax.Height = 0.4295276! + Me.lblTax.Left = 9.055119! + Me.lblTax.Name = "lblTax" + Me.lblTax.Style = "color: Black; font-size: 8pt; text-align: right; vertical-align: middle; ddo-char" & + "-set: 1" + Me.lblTax.SummaryGroup = "" + Me.lblTax.Text = Nothing + Me.lblTax.Top = 0! + Me.lblTax.Width = 1.107087! + ' + 'Line3 + ' + Me.Line3.Height = 0! + Me.Line3.Left = 0.03937008! + Me.Line3.LineWeight = 1.0! + Me.Line3.Name = "Line3" + Me.Line3.Top = 0! + Me.Line3.Width = 11.25984! + Me.Line3.X1 = 0.03937008! + Me.Line3.X2 = 11.29921! + Me.Line3.Y1 = 0! + Me.Line3.Y2 = 0! + ' + 'Line4 + ' + Me.Line4.Height = 0! + Me.Line4.Left = 0.8157481! + Me.Line4.LineWeight = 1.0! + Me.Line4.Name = "Line4" + Me.Line4.Top = 0.2188977! + Me.Line4.Width = 8.12559! + Me.Line4.X1 = 0.8157481! + Me.Line4.X2 = 8.941339! + Me.Line4.Y1 = 0.2188977! + Me.Line4.Y2 = 0.2188977! + ' + 'Line5 + ' + Me.Line5.Height = 0! + Me.Line5.Left = 0.03937008! + Me.Line5.LineWeight = 1.0! + Me.Line5.Name = "Line5" + Me.Line5.Top = 0.4330709! + Me.Line5.Width = 11.25984! + Me.Line5.X1 = 0.03937008! + Me.Line5.X2 = 11.29921! + Me.Line5.Y1 = 0.4330709! + Me.Line5.Y2 = 0.4330709! + ' + 'Line6 + ' + Me.Line6.Height = 0.4330709! + Me.Line6.Left = 0.03937008! + Me.Line6.LineWeight = 1.0! + Me.Line6.Name = "Line6" + Me.Line6.Top = 0! + Me.Line6.Width = 0! + Me.Line6.X1 = 0.03937008! + Me.Line6.X2 = 0.03937008! + Me.Line6.Y1 = 0.4330709! + Me.Line6.Y2 = 0! + ' + 'Line7 + ' + Me.Line7.Height = 0.4330709! + Me.Line7.Left = 11.29921! + Me.Line7.LineWeight = 1.0! + Me.Line7.Name = "Line7" + Me.Line7.Top = 0! + Me.Line7.Width = 0! + Me.Line7.X1 = 11.29921! + Me.Line7.X2 = 11.29921! + Me.Line7.Y1 = 0.4330709! + Me.Line7.Y2 = 0! + ' + 'Line8 + ' + Me.Line8.Height = 0.4330709! + Me.Line8.Left = 10.19134! + Me.Line8.LineWeight = 1.0! + Me.Line8.Name = "Line8" + Me.Line8.Top = 0.00000004470348! + Me.Line8.Width = 0! + Me.Line8.X1 = 10.19134! + Me.Line8.X2 = 10.19134! + Me.Line8.Y1 = 0.4330709! + Me.Line8.Y2 = 0.00000004470348! + ' + 'Line9 + ' + Me.Line9.Height = 0.4330708! + Me.Line9.Left = 8.941339! + Me.Line9.LineWeight = 1.0! + Me.Line9.Name = "Line9" + Me.Line9.Top = 0.00000007450581! + Me.Line9.Width = 0! + Me.Line9.X1 = 8.941339! + Me.Line9.X2 = 8.941339! + Me.Line9.Y1 = 0.4330709! + Me.Line9.Y2 = 0.00000007450581! + ' + 'Line10 + ' + Me.Line10.Height = 0.4330708! + Me.Line10.Left = 0.8157482! + Me.Line10.LineWeight = 1.0! + Me.Line10.Name = "Line10" + Me.Line10.Top = 0! + Me.Line10.Width = 0! + Me.Line10.X1 = 0.8157482! + Me.Line10.X2 = 0.8157482! + Me.Line10.Y1 = 0.4330708! + Me.Line10.Y2 = 0! + ' + 'Line11 + ' + Me.Line11.Height = 0.4330708! + Me.Line11.Left = 7.406693! + Me.Line11.LineWeight = 1.0! + Me.Line11.Name = "Line11" + Me.Line11.Top = 1.421085E-14! + Me.Line11.Width = 0! + Me.Line11.X1 = 7.406693! + Me.Line11.X2 = 7.406693! + Me.Line11.Y1 = 0.4330708! + Me.Line11.Y2 = 1.421085E-14! + ' + '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.13937! + 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.08622044! + Me.Label28.Width = 6.555906! + ' + '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 = 11.29921! + Me.Line2.X1 = 0! + Me.Line2.X2 = 11.29921! + Me.Line2.Y1 = 0.03070866! + Me.Line2.Y2 = 0.03070866! + ' + 'ReportInfo2 + ' + Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount} Seiten " + Me.ReportInfo2.Height = 0.1330709! + Me.ReportInfo2.Left = 8.856299! + 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.lblUeberschrift, Me.Label2, Me.lblVatNo, Me.lblCompanyname, Me.Label1}) + Me.ReportHeader1.Height = 1.05315! + Me.ReportHeader1.Name = "ReportHeader1" + ' + 'picVERAG + ' + Me.picVERAG.Height = 0.4169292! + Me.picVERAG.HyperLink = Nothing + Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String") + Me.picVERAG.Left = 9.09567! + Me.picVERAG.Name = "picVERAG" + Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom + Me.picVERAG.Top = 0! + Me.picVERAG.Width = 2.198425! + ' + 'lblUeberschrift + ' + Me.lblUeberschrift.Height = 0.2311024! + Me.lblUeberschrift.HyperLink = Nothing + Me.lblUeberschrift.Left = 0.01023622! + Me.lblUeberschrift.Name = "lblUeberschrift" + Me.lblUeberschrift.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 0" + Me.lblUeberschrift.Text = "VAT No." + Me.lblUeberschrift.Top = 0.1338583! + Me.lblUeberschrift.Width = 1.696063! + ' + 'Label2 + ' + Me.Label2.Height = 0.2311024! + Me.Label2.HyperLink = Nothing + Me.Label2.Left = 1.706299! + Me.Label2.Name = "Label2" + Me.Label2.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 0" + Me.Label2.Text = "Name/Company" + Me.Label2.Top = 0.1338583! + Me.Label2.Width = 7.34882! + ' + 'lblVatNo + ' + Me.lblVatNo.DataField = "" + Me.lblVatNo.Height = 0.2311024! + Me.lblVatNo.HyperLink = Nothing + Me.lblVatNo.Left = 0! + Me.lblVatNo.Name = "lblVatNo" + Me.lblVatNo.Style = "color: Black; font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set:" & + " 1" + Me.lblVatNo.Text = "VAT No." + Me.lblVatNo.Top = 0.4169292! + Me.lblVatNo.Width = 1.696063! + ' + 'lblCompanyname + ' + Me.lblCompanyname.DataField = "" + Me.lblCompanyname.Height = 0.2311024! + Me.lblCompanyname.HyperLink = Nothing + Me.lblCompanyname.Left = 1.706299! + Me.lblCompanyname.Name = "lblCompanyname" + Me.lblCompanyname.Style = "color: Black; font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set:" & + " 1" + Me.lblCompanyname.Text = "Name/Company" + Me.lblCompanyname.Top = 0.4169292! + Me.lblCompanyname.Width = 7.348819! + ' + 'Label1 + ' + Me.Label1.DataField = "" + Me.Label1.Height = 0.4051182! + Me.Label1.HyperLink = Nothing + Me.Label1.Left = 0.0102362! + Me.Label1.Name = "Label1" + Me.Label1.Style = "color: Black; font-size: 12pt; font-weight: bold; text-align: center; vertical-al" & + "ign: middle; ddo-char-set: 1" + Me.Label1.Text = "Statement itemising VAT amounts relating to the period covered by this applicatio" & + "n" + Me.Label1.Top = 0.6480315! + Me.Label1.Width = 11.28386! + ' + 'ReportFooter1 + ' + Me.ReportFooter1.Height = 0! + Me.ReportFooter1.Name = "ReportFooter1" + ' + 'GroupHeader1 + ' + Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label5, Me.TextBox12, Me.TextBox17, Me.TextBox23, Me.TextBox1, Me.TextBox2, Me.Line12, Me.Line13, Me.Line14, Me.Line15, Me.Line16, Me.Line17, Me.Line18, Me.Line19, Me.Line20}) + Me.GroupHeader1.Height = 0.4984253! + Me.GroupHeader1.KeepTogether = True + Me.GroupHeader1.Name = "GroupHeader1" + ' + 'Label5 + ' + Me.Label5.Height = 0.4110236! + Me.Label5.HyperLink = Nothing + Me.Label5.Left = 0.05118111! + Me.Label5.Name = "Label5" + Me.Label5.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1" + Me.Label5.Text = "Number" + Me.Label5.Top = 0! + Me.Label5.Width = 0.7019686! + ' + 'TextBox12 + ' + Me.TextBox12.DataField = "" + Me.TextBox12.DistinctField = "" + Me.TextBox12.Height = 0.1795276! + Me.TextBox12.Left = 0.6874017! + Me.TextBox12.Name = "TextBox12" + Me.TextBox12.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" & + ": 1" + Me.TextBox12.SummaryGroup = "" + Me.TextBox12.Text = "Nature of goods or services" + Me.TextBox12.Top = 0! + Me.TextBox12.Width = 6.719292! + ' + 'TextBox17 + ' + Me.TextBox17.DataField = "" + Me.TextBox17.DistinctField = "" + Me.TextBox17.Height = 0.4110236! + Me.TextBox17.Left = 7.406693! + Me.TextBox17.Name = "TextBox17" + Me.TextBox17.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" & + ": 1" + Me.TextBox17.SummaryGroup = "" + Me.TextBox17.Text = "Date and number of invoice or import document" + Me.TextBox17.Top = 0! + Me.TextBox17.Width = 1.457087! + ' + 'TextBox23 + ' + Me.TextBox23.DataField = "" + Me.TextBox23.DistinctField = "" + Me.TextBox23.Height = 0.2314961! + Me.TextBox23.Left = 0.6874017! + Me.TextBox23.Name = "TextBox23" + Me.TextBox23.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" & + ": 1" + Me.TextBox23.SummaryGroup = "" + Me.TextBox23.Text = "Name, VAT, Registration No. (if known) and address of supplier of goods or servic" & + "es" + Me.TextBox23.Top = 0.1795276! + Me.TextBox23.Width = 6.719292! + ' + 'TextBox1 + ' + Me.TextBox1.DataField = "" + Me.TextBox1.DistinctField = "" + Me.TextBox1.Height = 0.4110236! + Me.TextBox1.Left = 9.055119! + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" & + ": 1" + Me.TextBox1.SummaryGroup = "" + Me.TextBox1.Text = "Amount of tax refund applied for" + Me.TextBox1.Top = 0! + Me.TextBox1.Width = 1.107087! + ' + 'TextBox2 + ' + Me.TextBox2.DataField = "" + Me.TextBox2.DistinctField = "" + Me.TextBox2.Height = 0.4110236! + Me.TextBox2.Left = 10.24409! + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" & + ": 1" + Me.TextBox2.SummaryGroup = "" + Me.TextBox2.Text = "FOR OFFICIAL USE ONLY" + Me.TextBox2.Top = 0! + Me.TextBox2.Width = 1.05! + ' + 'Line12 + ' + Me.Line12.Height = 0.3937008! + Me.Line12.Left = 0.03937008! + Me.Line12.LineWeight = 1.0! + Me.Line12.Name = "Line12" + Me.Line12.Top = 0! + Me.Line12.Width = 0! + Me.Line12.X1 = 0.03937008! + Me.Line12.X2 = 0.03937008! + Me.Line12.Y1 = 0.3937008! + Me.Line12.Y2 = 0! + ' + 'Line13 + ' + Me.Line13.Height = 0.4330708! + Me.Line13.Left = 11.2941! + Me.Line13.LineWeight = 1.0! + Me.Line13.Name = "Line13" + Me.Line13.Top = 0.00000005960464! + Me.Line13.Width = 0! + Me.Line13.X1 = 11.2941! + Me.Line13.X2 = 11.2941! + Me.Line13.Y1 = 0.4330709! + Me.Line13.Y2 = 0.00000005960464! + ' + 'Line14 + ' + Me.Line14.Height = 0.3937008! + Me.Line14.Left = 10.16221! + Me.Line14.LineWeight = 1.0! + Me.Line14.Name = "Line14" + Me.Line14.Top = 0.00000004470348! + Me.Line14.Width = 0! + Me.Line14.X1 = 10.16221! + Me.Line14.X2 = 10.16221! + Me.Line14.Y1 = 0.3937008! + Me.Line14.Y2 = 0.00000004470348! + ' + 'Line15 + ' + Me.Line15.Height = 0.3937007! + Me.Line15.Left = 8.912207! + Me.Line15.LineWeight = 1.0! + Me.Line15.Name = "Line15" + Me.Line15.Top = 0.00000007450581! + Me.Line15.Width = 0! + Me.Line15.X1 = 8.912207! + Me.Line15.X2 = 8.912207! + Me.Line15.Y1 = 0.3937008! + Me.Line15.Y2 = 0.00000007450581! + ' + 'Line16 + ' + Me.Line16.Height = 0.3937008! + Me.Line16.Left = 0.7866142! + Me.Line16.LineWeight = 1.0! + Me.Line16.Name = "Line16" + Me.Line16.Top = 0! + Me.Line16.Width = 0! + Me.Line16.X1 = 0.7866142! + Me.Line16.X2 = 0.7866142! + Me.Line16.Y1 = 0.3937008! + Me.Line16.Y2 = 0! + ' + 'Line17 + ' + Me.Line17.Height = 0.3937007! + Me.Line17.Left = 7.406693! + Me.Line17.LineWeight = 1.0! + Me.Line17.Name = "Line17" + Me.Line17.Top = 0.0000001192093! + Me.Line17.Width = 0! + Me.Line17.X1 = 7.406693! + Me.Line17.X2 = 7.406693! + Me.Line17.Y1 = 0.3937008! + Me.Line17.Y2 = 0.0000001192093! + ' + 'Line18 + ' + Me.Line18.Height = 0! + Me.Line18.Left = 0.05118111! + Me.Line18.LineWeight = 1.0! + Me.Line18.Name = "Line18" + Me.Line18.Top = 0! + Me.Line18.Width = 11.25984! + Me.Line18.X1 = 0.05118111! + Me.Line18.X2 = 11.31102! + Me.Line18.Y1 = 0! + Me.Line18.Y2 = 0! + ' + 'Line19 + ' + Me.Line19.Height = 0! + Me.Line19.Left = 0.7874016! + Me.Line19.LineWeight = 1.0! + Me.Line19.Name = "Line19" + Me.Line19.Top = 0.1795276! + Me.Line19.Width = 6.614173! + Me.Line19.X1 = 0.7874016! + Me.Line19.X2 = 7.401575! + Me.Line19.Y1 = 0.1795276! + Me.Line19.Y2 = 0.1795276! + ' + 'Line20 + ' + Me.Line20.Height = 0! + Me.Line20.Left = 0.03425197! + Me.Line20.LineWeight = 1.0! + Me.Line20.Name = "Line20" + Me.Line20.Top = 0.4110236! + Me.Line20.Width = 11.25984! + Me.Line20.X1 = 0.03425197! + Me.Line20.X2 = 11.29409! + Me.Line20.Y1 = 0.4110236! + Me.Line20.Y2 = 0.4110236! + ' + 'GroupFooter1 + ' + Me.GroupFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.lblSumme, Me.lblWahrung}) + Me.GroupFooter1.Height = 0.2916667! + Me.GroupFooter1.Name = "GroupFooter1" + ' + 'Line1 + ' + Me.Line1.Height = 0! + Me.Line1.Left = 2.300394! + Me.Line1.LineWeight = 1.0! + Me.Line1.Name = "Line1" + Me.Line1.Top = 0.09251969! + Me.Line1.Width = 8.998816! + Me.Line1.X1 = 2.300394! + Me.Line1.X2 = 11.29921! + 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 = 9.141339! + 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.09251969! + Me.lblSumme.Width = 1.05! + ' + 'lblWahrung + ' + Me.lblWahrung.DataField = "" + Me.lblWahrung.DistinctField = "" + Me.lblWahrung.Height = 0.1795276! + Me.lblWahrung.Left = 10.26102! + 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.09251969! + Me.lblWahrung.Width = 1.05! + ' + 'GroupHeader2 + ' + Me.GroupHeader2.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblFirma}) + Me.GroupHeader2.Height = 0.3090551! + 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.1019685! + Me.lblFirma.Width = 11.29409! + ' + 'GroupFooter2 + ' + Me.GroupFooter2.Height = 0! + Me.GroupFooter2.Name = "GroupFooter2" + Me.GroupFooter2.NewPage = GrapeCity.ActiveReports.SectionReportModel.NewPage.After + ' + 'rptMWSTListe + ' + Me.PageSettings.Margins.Bottom = 0.3937008! + Me.PageSettings.Margins.Left = 0.1968504! + Me.PageSettings.Margins.Right = 0.1968504! + Me.PageSettings.Margins.Top = 0.3937008! + Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape + Me.PageSettings.PaperHeight = 11.0! + Me.PageSettings.PaperWidth = 8.5! + Me.PrintWidth = 11.36181! + 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.lblNumber, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblGoods, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblName, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblOfficial, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblDate, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblInvoiceNo, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblTax, 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.lblUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblVatNo, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblCompanyname, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox23, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblWahrung, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader + Private 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 lblUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + 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 lblNumber As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblGoods As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture + Private 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 TextBox12 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox17 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox23 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblName As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblOfficial As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblDate As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblInvoiceNo As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblTax As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblVatNo As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblCompanyname As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblWahrung As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line6 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line7 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line8 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line9 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line10 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line11 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line12 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line13 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 Line20 As GrapeCity.ActiveReports.SectionReportModel.Line +End Class diff --git a/SDL/Reports/MDM/rptMWSTListe.resx b/SDL/Reports/MDM/rptMWSTListe.resx new file mode 100644 index 00000000..3d4ba943 --- /dev/null +++ b/SDL/Reports/MDM/rptMWSTListe.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 + + + iVBORw0KGgoAAAANSUhEUgAACDAAAAGSCAYAAAAfYqOTAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AACQPklEQVR4Xu3dB5RtRbXu8QMcMkgQkCSioCIGQOGIAcUA8kS9iIgYMAcMYM7hHhUVEyImEFHUVkFRMWNCzCBKMCAooqBIFAQRkHTfN9kcd6/eX3ev7q6qvcLfMX7jjVeX01Vrrqrae6+aq2rR//3f/wEAAAAAAAAAAAAAAIyVLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRkCwEAAAAAAAAAAAAAAEqyhQAAAAAAAAAAAAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2EAAAAAAAAAAAAAAAoCRbCAAAAAAAAAAAAAAAUJItBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAAlGQLAQAAAAAAAAAAAAAASrKFAAAAAAAAAAAAAAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABASbYQAAAAAAAAAAAAAACgJFsIAAAAAAAAAAAAAABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACUZAsBAAAAAAAAAAAAAABKsoUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJthAAAAAAAAAAAAAAAKAkWwgAAAAAAAAAAAAAAFCSLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRkCwEAAAAAAAAAAAAAAEqyhQAAAAAAAAAAAAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2EAAAAAAAAAAAAAAAoCRbCAAAAAAAAAAAAAAAUJItBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAAlGQLAQAAAAAAAAAAAAAASrKFAAAAAAAAAAAAAAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABASbYQAAAAAAAAAAAAAACgJFsIAAAAAAAAAAAAAABQki0EAAAAAAAAAAAAAAAoyRaWtGjJUgAAAAAAAAAAgDZYTTaTHWQ3eYq8UF4r75APyaflK3Ki/EROl9/JX+QC+eetrpP/QzE3yLLYh/Mk7kk4U+I+/VLivn1bjpPPyVHyQXmvLJWXyrNlH9ldHizbyO1ldXH9pnfcmiAA1GELS3KTGgAAAAAAAAAAQEEryOaykzxRXiXvly/KyRKL3deIWxgHJvuP/F1+Kz+Sz8sHJJJcniGR+HIvWUdcX+wEtyYIAHXYwpLcpAYAAAAAAAAAAJDBxrKr7C+RoPB1OUuuF7cYDeQUO0HEzg9floMldvPYWdYX139bw60JAkAdtjAHTVY/FTc5o+pa2UhGJnugoZaXM8T1ZwwwrtN5ibgYA2in2IrRjXU0SzxMcfcP6Jqp28j+WuJBYmz5+y2Jt6Y+LofIm+UV8jR5lNxP7iK3FTeOAKCOJeLmJ6QR83o8w3CxB9BNK0kc87CfxPb/cSzA5eLmCKCJLpXot5HYEMdV3ElcX28kt1YIAHXYwhw0WT1I3ASMUfFlamSyBxoqtrxy/RhDB4mLHeaOBAagW0hgaAcSGIC5iTf3zpefy7ESv+9eI3tLPEAnyQHAdGKLaTevIJ2nios9gG7YUp4ssVX/SRLb+Lu5AGizSGqI5ynxnPQespy48TB2bq0QAOqwhblowoq3VtyEi6p44HUHGZnwgYZZTS4Q148xEIs+a4uLH+aOBAagW0hgaAcSGID0rpLT5Gh5kzxO7i4rihuHALrv0eLmC6QVO+zEG9nuHgBon3iG/nQ5SmJ8u3EPdN3F8mnZS9YQN1bGwq0TAkAdtjAXTVjbiZtgMSq+dI1M+EDDvFFc/8VQvG3nYof5IYEB6BYSGNqBBAagnBvkVDlCYqvj2LFhZXFjE0B3LJbfiZsXkN6Lxd0HAM0X8+XO8l45W9wYB/rsOvmaPEXi5UM3jopx64QAUIctzEmT1jHiJlZU3Sh3k5FJH2iIDeVqcf0XAxfKquLih/khgQHoFhIY2oEEBmC84iFkbCv/NtlNbiNurAJor2eJG//II7beXlPcvQDQPJHM+Vj5jFwublwDGPUv+bjsJG5sZefWCAGgDluYkyatu0gszrsJFVWfl5FJH2iIw8T1Www9T1zsMH8kMADdQgJDO5DAADRL/J6OhIbXy72lsWfeAqglkt45mrG8N4u7HwCaYXmJnRZiV6orxI1jAPXF8XVPlaLHKLk1QgCowxbmpokrvni4SRSj4tiNkYkfGLOthUSkmZ0jsa2dix/mjwQGoFtIYGgHEhiAZrtIIrn4YRIP+904BtBckYzkxjbyih0lNxB3TwCMT4zLmBfPFzd2ASzM3yWerxbZNditDwJAHbYwN01ct5drxU2gqPqmjEz8wJh9XVx/xdATxMUOC0MCA9AtJDC0AwkMQHvEA8lDhUR4oB3WkyvFjWfkF/Oluy8Ayru/xBER14sbrwDSiiSh50rWF/Dc+iAA1GELS9DkdbC4iROjHiAjkz8wJvFml+unGDpV2Mo3DxIYgG4hgaEdSGAA2ulXEg8lOecdaK5YQHfjF2XEQumdxN0bAGXEc8YTxY1RAPn9RrKtP7m1QQCowxaWoMkrssyvEjdpoiq+xI1M/sAYxJa0sTjv+imGHiEuflg4EhiAbiGBoR1IYADaLcbwO2RDcWMcwHhsIbxpPH4T4u4PgLzi2dlJ4sYlgPI+JmuLG6/z5tYGAaAOW1iKJrCl4iZLjGJBFE2wr7j+iaEfiIsd0iCBAegWEhjagQQGoBuuk8NkY3FjHUBZR4sbqyjrZtlG3D0CkN7d5dvixiOA8TpPku7G4NYFAaAOW1iKJrA15DJxkyWqThG2pMc4rSp/Fdc/MbSjuPghDRIYgG4hgaEdSGAAuuUaOVDWEjfmAeS3vbjxifH4hrj7BCCd28pH5EZx4xBAM8QYfaMkWYty64IAUIctLEmT2EvFTZQYtYeMfAgAhbxOXL/E0JfFxQ7pkMAAdAsJDO1AAgPQTZfIE8WNewB5nSBuXGJ8HiTuXgFYuHimfZG4sQegmY6R1cSN6drcmiAA1GELS9IkFm91ny9ukkTVmbK8jHwQAJltIFeJ65cYiOzUrcXFD+mQwAB0CwkM7UACA9Bt35LNxI1/AOntLm4sYrx+Lu5+AZi/2HXhM+LGHIDm+4VsKG581+LWBAGgDltY0q0T2bPETZAYta9UPgSAAj4orj9i6BPiYoe0SGAAuoUEhnYggQHovivkseLmAADpxEspvxE3DjF+7HwKpPNA+Zu4sQagPc6RTcWN81m5NUEAqMMWlnTrRLZYzhY3QaIqPjBWlMoHAZDRXYXz6WZ2nfDWWhkkMADdQgJDO5DAAPTHIcLvTSCfZ4obe2iG2Pl0BXH3DkB98eyGZ4lAd8w7icGtCQJAHbawpEmT2d7iJkeM2k8mxw7I6Svi+iGGDhYXO6RHAgPQLSQwtAMJDEC/HC9riJsPAMxfHKHK28jNF0km7v4BmF0kQR4pbmwBaLdIYlhf3NifllsTBIA6bGFJkyaz5eQ0cZMjquIHb/zwnRw/IIcHi+uDGLpK1hMXP6RHAgPQLSQwtAMJDED//FLm/IASwIxeLW68oVnOF565AXO3mnxb3LgC0A0nS4x1NwdYbk0QAOqwhSVNmdB2EzcxYtRLZWr8gJQiqSgeXLr+h6E3iYsf8iCBAegWEhjagQQGoJ/inH6SGIA0bit8nrbHy8XdRwDeWvJTceMJQLfEbs2xbuDmghFuTRAA6rCFJZlJ7URxEyOqLhO29UROTxLX9zB0iTAOyyKBAegWEhjagQUXoL8ioTkWJdzcAKC+OHbQjTE0UzxzW1vcvQRQtabEW9luLAHopteLmw9GuDVBAKjDFpZkJrX7i5sUMYo3v5HLKvIXcf0OQweIix/yIYEB6BYSGNqBBAag334ocaa1mx8AzO6Ocr248YXmepu4+wlgaCX5vrgxBKC7bpI4etrNCxVuTRAA6rCFJblJTb4mbmJEVTxMXldcDIGFeJW4PoehP0v8UHPxQz4kMADdQgJDO5DAAOAj4uYHALP7jLhxhWb7t2wk7p4CGGwhf4y48QOg+y6UdcTND//l1gQBoA5bWJKb1GQbuVncxIiqg8TFEJiv9YSFitk9VVz8kBcJDEC3kMDQDnwvABCeK26OADC9e4sbT2iHD4u7rwCWLH2DuHEDoD+OEjc//JdbEwSAOmxhSW5SuxUZ6vVcI2SEI6VDxfU1DP1GlhcXP+RFAgPQLSQwtAMJDADCtXI3cfMEAO974sYT2uEG2VLcvQX67FHCy4cAwq7i5olbuDVBAKjDFpbkJrVbxQ+E+KHgJkVUfUBcDIG5urNwNufsHi0ufsiPBAagW0hgaAcSGAAsc6qsKG6uAFD1CHHjCO0SW+S7+wv0VTyz5/cBgGXOlWmPWXZrggBQhy0syU1qkxwmblJEVSw4byYuhsBcfFFcH8PQT8XFDmWQwAB0CwkM7cADSgCTvVncXAFgKHbsO0PcGEL7xFEg7j4DfbOC/FzcOAHQXy8XN2fYNUEAqMMWluQmtUniaITYptJNiqia9bwhYBYPFNe3ULWTuPihDBIYgG4hgaEdSGAAMNl1soW4+QLAwFPFjR+003fE3Wegb94gbowA6LcrZF0ZmTfcmiAA1GELS3KT2hTvFDcpoupG2UpcDIHZLCcni+tbGPqGuPihHBIYgG4hgaEdSGAAMBXfi4HprSrnixs7aK+HibvfQF9sJxz3DGA6B8nI3OHWBAGgDltYkpvUpojMLR6a1sO5fJivvcX1KQzdLNuIix/KIYEB6BYSGNqB7+IAnDjf380ZQN+9UtyYQbudIvHyh7vnQNfFsTi8+ARgJlfJ2lKZP9yaIADUYQtLmjqhTYPtqeqLbFgXQ2A6K8m54voThibExQ9lkcAAdAsJDO1AAgMAJxYyWMwDqtaR2EbZjRm0317i7jvQdc8RNyYAYLLXS2X+cGuCAFCHLSxp6oQ2jTXkYnGTIqrYyhNz9XJxfQlD1wvn/DYDCQxAt5DA0A4kMACYzh7i5g2gr94jbqygG86WxeLuPdBVkZh1ibgxAQCTXSory3/nELcmCAB12MKSJk9mszhA3KSIUfcXF0NgqjiihbdDZvdBcfFDeSQwAN1CAkM7kMAAYDq/EjdvAH10B7lO3FhBdzxX3P0Huup94sYCADhxVPV/5xC3JggAddjCkiZPZrOIbe7PEzcpoupEcTEEpjpYXB/C0NWyobj4oTwSGIBuIYGhHUhgADCTncTNHUDffFrcGEG3/F1WFdcHgK7ZSK4VNxYAwPm+/HcecWuCAFCHLSxp8mRWw9PFTYoYtYu4GALL3EniaATXfzB0oLj4YTxIYAC6hQSGdiCBAcBMjhU3dwB9sq3cLG6MoHteLa4fAF1ziLgxAAAz2VJumUfcmiAA1GELS1o2kdW0gpwpblJE1cmynLg4AuHz4voOhi6TtcXFD+NBAgPQLSQwtAMJDABmcqPcXtz8AfTFd8WND3RTfDdaR1xfALpiM2H3BQDz8Ua5ZS5xa4IAUIctLGnZRDYHe4qbFDFqD3ExBO4nrs+g6hXi4ofxIYEB6BYSGNqBBAYAs3m9uPkD6IOHixsX6LZ3iesPQFdEH3d9HwBmc7rcMpe4NUEAqMMWlrRsIpuD2FXgF+ImRlT9VpYXF0f0V4yhn4rrMxj6q3CuZfOQwAB0CwkM7UACA4DZnC1u/gC6Lp65nCpuXKDb4s30TcT1C6DtVpcrxPV9AKhjC7FrggBQhy0sKSaxeSC7vb4ni4sh+utx4voKqp4lLn4YLxIYgG4hgaEdSGAAUMcScXMI0GVPETce0A9HiOsXQNvtJ67PA0BdrxS7JggAddjCkmISm6cTxE2MqDpHFouLIfpnJfmjuL6CobOEcdNMJDAA3UICQzuQwACgjoPFzSFAV60sfxE3HtAPN8pW4voH0Faxc+vvxfV5AKjru2LXBAGgDltYUkxi83RfcRMjRj1PXAzRPy8W10dQFbtUuPhh/EhgALqFBIZ2IIEBQB2RPO/mEKCrXi5uLKBfviiufwBtdX9xfR0A5uI6WcWtCQJAHbawJE1iCxEPvd3kiCrO8kdYW/4hro9g6BcS2eYuhhg/EhiAbiGBoR1IYABQ19bi5hGga+L39eXixgH6hyN00CWHievnADBXD3drggBQhy0sSZPYQsTDkZvFTY6oikU/F0P0x3vE9Q1UPUxc/NAMJDAA3UICQzuQwACgrteIm0eArnmnuDGAfopjbl0/Adomjsa5Qlw/B4C5ertbEwSAOmxhSZrEFuqT4iZHVF0ma4iLIbpvc4ltm1zfwNAtZ3Oh0UhgALqFBIZ2IIEBQF3fEzePAF1ye7lW3BhAf+0qrr8AbRJHqrr+DQDz8T23JggAddjCkjSJLdQd5XpxEySq3iguhui+z4rrE6jaXlz80BwkMADdQgJDO5DAAKCua2QlcXMJ0BVHiev/6LfThOMo0XZHi+vfADAfV8nybl0QAGZjC0vSBJbCB8RNkKiKh8/riIshumsHcf0BVV8QFz80CwkMQLeQwNAOJDAAmIsHiptLgC64l3CUKabzRHH9BmiDFeVKcX0bAOZra7cuCACzsYUlaQJLYSO5WtwEiaqDxMUQ3fVjcX0BQzfKXcTFD81CAgPQLSQwtAMJDADm4g3i5hKgC74lrt8D4RyJRWDXd4Cm20VcvwaAhdjXrQsCwGxsYUmawFJ5u7gJElX/lkj4cDFE9zxWXD9A1RHi4ofmIYEB6BYSGNqBBAYAc/ENcXMJ0HYPE9fngcleKK7/AE3HDscAcjjIrQsCwGxsYUmawFJZW3i4Ws+h4mKIblksZ4vrAxi6VjYRF0M0DwkMQLeQwNAOfMcGMBcXiZtLgDZbTn4prs8Dk10oa4jrR0CT/VlcnwaAhfiqWxcEgNnYwpI0gaX0GnGTJKqul83ExRDd8SJx9x9V7xIXPzQTCQxAt5DA0A4kMACYKxKE0TVPFNfXAYejdNA2m4vrywCwUOe6dUEAmI0tLEkTWEqrSmQ6u4kSVR8XF0N0w1pyqbh7j6FYkFlXXAzRTCQwAN1CAkM7kMAAYK4eI24+AdpoJTlXXF8HnPjutJ64/gQ00dPF9WUAWKibZRW3NggAM7GFJWnySu0F4iZKVN0odxEXQ7TfQeLuO6peJy5+aC4SGIBuIYGhHUhgADBXbxQ3nwBtxG8QzMfB4voT0ERHievHAJDCVm5tEABmYgtL0uSVWmTG/0ncRImqo8XFEO0Wx4NcK+6eYyh2a1ldXAzRXDw8BLqFBIZ2IIEBwFxNiJtPgLZZWy4T18+BmVwnHN+KtviLuH4MACns5tYGAWAmtrAkTV457CtuokRVbN+znbgYor0+Le5+oyp2a3HxQ7ORwAB0CwkM7UACA4C5OlXcfAK0zdvF9XGgjk+I61dAk2wkrv8CQCr7ubVBAJiJLSxJk1cOy8tvxE2WqPqauBiine4jkZji7jWGzpEVxcUQzUYCA9AtJDC0AwkMAObqanHzCdAmmwi7G07vGlOGqpvk7uL6F9AUjxHXfzFeMX/E7rG/lG/IR+Wd8gZ5sTxdHisPl/vKtnJH2fxWd5DYRajN1pFl1xNiPo2XMXeW3WQPeZo8V14j75KPSTxn+LGcKf8QF1+U9Xa3NggAM7GFJWnyyuV/xE2WGLWjuBiifX4g7h6j6kni4ofmI4EB6BYSGNqBBAYA87GxuDkFaIsjxfVtDDxRYmHN/d8w9BVx/QtoireI67vIL35n/UiOkFfKnrK9xK4YK4i7X5i7OEJ4K3mEPFuiz39BIsHhRnH3Bml9yq0NAsBMbGFJmrxyOknchImqE8XFD+3yaHH3F1WnSezS4mKI5iOBYVQXsurRX/EgwY11NAsJDADmg0R5tNk9JN5+dX0bS5b+SpaTh0wqw/TuL66fAU0Qb/e7fou0Yneq78iBEs9wNxV3P1DWSnIvebIcJr8Xd/+wMN9ya4MAMBNbWJImr5xiOyE3YWJUbDflYoh2WCx8warnkeJiiHYggWFULAK7WAFAKiQwVJ0vU5Nx0A63ldh+NrbYjW1nnymxFW88uP+7uPuN+XuCuDkFaIOvi+vXGJj8DIlYzS7esJ7cv4AmuUhcv8XCnSr/Kw+QeHbr4o/mWV/2kk/L5eLuLebmFLc2CAAzsYUlafLK7dviJk1UxW4VkT3vYojm20/cfUXVD8XFD+1BAsOoWJBxsQKAVEhgqPqLuDih/WJr2f0lvjO6e4+5eYW4OANNx8swM/ueTI5X7FbBFtyze5RMjhvQBOuJ66+Yv7PkdbKZuJijXVaWSMrl98HCnO/WBgFgJrawJE1eud1H3KSJUXuIiyGabU25WNw9RdX9xMUQ7UECwygSGADkRgJDFQkM/bCFHCLXiusHmN2h4mILNFm82HGKuD6NgXjONjVuHxP332Lo18JxlmiaB4nrr5i742UX4QXB7ornyj8Td/8xs2vd2iAAzMQWlqTJq4RjxU2cqPqN8GOqfeLsNHc/UfUVcfFDu5DAMIoEBgC5kcBQRQJDv2wkR4nrC5jZMeJiCjTZ48X1ZwwcLS5uG8u/xf0bDO0rLn7AuDxHXF9FfbGgHUdEuPiieyJB5QD5j7j+gOktduuDADAdW1iSJq4S7iZsZ1fPk8TFEM20qfBW2OxulruLiyHahQSGUSQwAMiNBIYqEhj6KXar+4e4PgFv6jbzQNOtJOeI689YsvR62VJc7MJbxf07DP1Zop+5+AHj8D5xfRWzi+exLxJeBuyn+8ql4voGvLXd+iAATMcWlqSJq5SPi5s4URU/1heLiyGa5xPi7iOq4q05Fz+0DwkMo0hgAJAbCQxVJDD0110kFp9cv8Co2OHPxRFoqv3F9WUMfFBc3JbheMt6XiwufsA4fEtcP8XM/irbiYsp+mMr4XOvvju49UEAmI4tLEkTVymbCVv71PNccTFEs2wjsbOAu4cYirdE7iAuhmgfEhhGkcAAIDcSGKpIYOi3zeXv4voGqiJOLoZAE91GeJNyelfLhuJiN9kLxf17DEU/W0Nc/IDSzhLXTzG9ePkvdsR18UT/3Fs4Qqmeu7v1QQCYji0sSRNXSYeImzxRdb6sKi6GaI7YktXdP1TFuHfxQzuRwDCKBAYAuZHAUEUCA2LL2BvE9Q8MRSKxix/QRAeK68cYeIu4uE0VO3qeLe5vYGipuPgBpXEs7dzEcWIzHaWDfnqGuP6Cqh3c+iAATMcWlqSJq6T1JbLG3QSKqlgkdDFEMzxS3H1DVYz3GPcuhmgnEhhGkcAAIDcSGKpIYEBgsbMeznpHG2ws14jrwxjsGBDHQ7jYOY8V93cwFM8qNhAXP6CUeF7m+iemt4u4WALfENdnMLSzWx8EgOnYwpI0cZUWWeNuAkXVJcKWds20gvxW3H1DFW81dA8JDKNIYACQGwkMVSQwIKwsfxLXRzDE9xS0wRHi+i8GDhAXt5n8RNzfwtCh4mIHlHIfcX0T3sHi4giELSR2H3N9BwMkMACYE1tYkiau0taSy8RNoqh6vbgYYryeLe5+oSrGOUk43UMCwygWBgDkRgJDFQkMWObp4voIhjYXFzugKe4mN4rrv1iy9M8yn51U7ifu72EoFrruKC5+QAnsllLfX2V1cXEEljlcXP/BAAkMAObEFpakiWscXiFuEkVVPKxmYaxZYkH+QnH3C1Ucg9JNJDCMYp4GkBsJDFUkMGCZOOv9fHH9BANbi4sd0BRfFdd3MfAUcXGr41hxfxNDnxYXO6CEF4jrlxgVSasuhsBkdxHXfzDwcLc+CADTsYUlaeIah1XlAnETKareIS6GGI83i7tPqDpPOG+3m0hgGEUCA4DcSGCoIoEBk71NXD/BwLbi4gY0wU7i+i0GTpflxcWujjsL22nP7Ga5l7j4AbnFsauuX6LqjxJJqy6GwFQ/FNePsGTpHm59EACmYwtL0sQ1Ls8VN5Gi6mrZUFwMUdbG8m9x9wlVZEZ3FwkMo0hgAJAbCQxVJDBgsq3E9RMMPEBc3IBxW05OEtdvMbCbuNjNxQfE/W0MfUNc7IDcPiSuT6Iq1hBc/ABnP3H9CCQwAJgjW1iSJq5xiczJc8RNpqg6RFwMUdbHxN0fVP1OFvKWCJqNBIZRJDAAyI0EhioSGDAVvyunt7O4mAHjtpe4PouBH4iL21ytL1eKqwNDDxIXPyCnY8T1RwxdIauJix/gbCKuL2HJ0l3d+iAATMcWlqSJa5z2ETeZoiq2/NtMXAxRxj3lJnH3B1V7iIshuoEEhlEkMADIjQSGKhIYMBWJxtMjgQFNFC+0/EFcn8XAEnGxm4/Xi6sDQz8TFzsgp++L648YOkxc7ICZxO9F15/6bme3PggA07GFJWniGqd4S/s0cRMqqo4UF0OUcby4+4Kqn4uLH7qDBIZRJDAAyI0EhioSGDDVvuL6CkhgQDO9UFx/xcCx4uI2X6vK38TVhaH/ERc/IJdfi+uLGHqguNgBM/msuP7UdyQwAJgTW1iSJq5x213chIqqG+XO4mKIvHYVd08w6sHiYojuIIFhFAkMAHIjgaGKBAZMta24voIlSx8qLmbAuKwhF4vrrxg8+7mLuNgtxDPE1YehM2UFcfEDcuAt8ZldJBxRi/k4QFyf6jsSGADMiS0sSRNXE/xY3KSKqqPFxQ/5xBdlMqLr+Za4GKJbSGAYRQIDgNxIYKgigQFTrSIc9+axAwOa5i3i+ioGcm2XzrONeiLRw8UPyOEycf0QAx8XFzdgNo8U16f6jgQGAHNiC0vSxNUEO4mbVFF1s8TbRS6GyIO3FOqJvrmduBiiW0hgGEUCA4DcSGCoIoEBDm8xeiQwoEk2kqvF9VUsWXqNRIxc7FLYTVy9GDpfIinOxQ9I7Vpx/RADe4uLGzCbrcX1qb4jgQHAnNjCkjRxNcU3xU2sqPqquPghvdXkAnH3AVVxtpiLIbqHBIZRJDAAyI0EhioSGOCcJK6/9B1HvKFJDhfXTzHwNnFxS+l74urG0MvFxQ5IaTlx/Q9DG4qLHTCbeKbv+lTf3d+tDwLAdGxhSZq4miLe3nYTK0btKC6GSOuN4uKPqhtkS3ExRPeQwDCKBAYAuZHAUEUCA5yviOsvfccOfmiKu8qN4vopBlvJl/hdEc/eYgdF1wYMlLoX6LfoY67/YeBscXED6rpSXN/qs23c+iAATMcWlqSJq0mOFje5ouoH4uKHdCLLl60t6/mwuBiim0hgGMXDLQC5kcBQRQIDnKPE9Ze+I4EBTfElcX0UAy8TF7ccPi2uDRg6UFzsgFQ2Fdf3MPAZcXED6rpYXN/qs83d+iAATMcWlqSJq0niLW4y8ut5mLgYIg22tqwn9xmdaB4SGEaRwAAgNxIYqkhggPNBcf2l70hgQBM8QFz/xMD5srK42OVwB+Hs/ZnFCy0860BOm4vrexgomdSFborfjK5v9dn6bn0QAKZjC0vSxNU0HxU3waIqznh18cPCbS0k0tTzdnExRHeRwDCKBAYAuZHAUEUCA5xDxPWXvttCXLyAkn4qrn9i4Gni4pbTu8W1BUPsNomcSGCYGS/uYaF+I65v9dlqbn0QAKZjC0vSxNU0sYUWmeD1/I+4GGJhvi4u3qi6XFi47R8SGEYxDgDkRgJDFQkMcEhg8HiDGOO2p7i+iYFYYFleXOxyit8w/xDXJgzcILFTrIsfsFAkMMxsE3FxA+p6i8QRc7iVWxsEgJnYwpI0eTXRe8V9eUHVGTKOH7pdFhm+LtYY9SpxMUS3kcAwigQGALmRwFBFAgMcEhi8VcXFCyhhsZwtrm9i4FHiYlfCS8W1CUOfExc7YKHuIa7PYcnSq8TFDMA8uDVBAKjDFpbkJrUGWE+uFPclBlX7iIsh5i6SQU4TF2dUXSA8DO0nEhhGkcAAIDcSGKpIYIBDAsOo68XFCijleeL6JgZ+JC5upawk54prG4buLS5+wEJsK66/YcnS08XFDMA8uDVBAKjDFpbkJrWG+F9xX2JQdY7EWw0uhpibfcXFGKOeIy6G6D4SGEaRwAAgNxIYqkhggHOEuP7SZ5eIixVQwhpyobi+iYH7iYtdSfFSjGsbhr4jLnbAQpDAML3jxMUMwDy4NUEAqMMWluQmtYaIH7uXifsig6pni4sh6ovdBP4qLr6o+oOQNNNfJDCMIoEBQG4kMFSRwADnk+L6S5/F93YXK6CEN4nrlxj4sri4lbacnCKujRh6qLj4AfNFAsP0PiguZgDmwa0JAkAdtrAkN6k1CAtl9ZwvK4uLIep5nbjYYtTjxcUQ/cC8PIoEBgC5kcBQRQIDnK+K6y99FouSLlZAbreTq8X1SyxZeqPcTVzsxuHB4tqJoV9IJHu4+AHzQQLD9N4gLmYA5sGtCQJAHbawJDepNUgsysfivPsyg6pYVHQxxOw2kKvExRVVvxJ+tPcbCQyjSGAAkBsJDFUkMMD5ibj+0mfHi4sVkNuHxPVJDHxMXNzG6Wvi2oqhvcTFDpgPEhim93xxMQMwD25NEADqsIUluUmtYZ4p7ssMqi6WOHbDxRAz4+FKfbuIiyH6gwSGUSQwAMiNBIYqEhjgnCmuv/TZEeJiBeR0F4kdBlyfxJKl18om4mI3TlsL921mZwvHaSIVEhimt7e4mAGYB7cmCAB12MKS3KTWMPHj4CxxX2hQFccguBhiencVfqTX831xMUS/kMAAtAM7M3ULCQxVJDDAuVxcf+mzN4uLFZDTseL6IwbeJS5uTRBJT67NGHqOuNgBc0UCw/QeJi5mAObBrQkCQB22sCQ3qTVQnLnvvtCgKh5u8ybw3HxFXCwxaom4GKJfSGAA2oEEhm4hgaGKBAZMdRtxfaXvWGhDaTuK64sYuEKa/MxmI7laXNsxcIGsKi5+wFyQwDC9bcTFDMA8uDVBAKjDFpbkJrUGijP34+x996UGVW8XF0OMerC4GGLUF8XFEP1DAgPQDiQwdAsJDFUkMGCqe4nrK323m7h4Abn8WFxfxMArxcWtSWLnFtd2DL1aXOyAuSCBYXpNPGYHaC23JggAddjCktyk1lCPEPelBlWRLX87cTHEUCTF/FJcDFEVR2xsJS6O6B8SGIB2IIGhW0hgqCKBAVPtIa6v9N3dxcULyOEx4vohBv4qbXhzfw25SNw1YIDdT5ECCQzTY3wBCbk1QQCowxaW5Ca1BjtR3BcbVB0iLn4Yeoq42GHUkeJiiH4igQFoBxIYuoUEhioSGDDVW8T1lb5bU1y8gNQWy+/F9UMMPFNc7JpoP3HXgKF3iosdUBcJDNMjgQFIyK0JAkAdtrAkN6k12P3EfbFB1X9kM3ExxJKlq0g8+HaxQ9W1cntxcUQ/kcAAtAMJDN1CAkMVCQyY6hvi+kqfnS8uVkAOzxHXDzFwpkSSh4tdE0VbzxJ3LRiIZyVsc4+FIIFheiuKixmAeXBrggBQhy0syU1qDfdVcV9uUPUxcfHDkqWvEhczjHqvuBiiv0hgANqBBIZuIYGhigQGTHWhuL7SZ8eLixWQ2mrCGJzZ/4iLXZNFm921YOgIcbED6iCBYXouXgDmya0JAkAdtrAkN6k13D3lZnFfcDB0o2wpLoZ9tp6wCFBPxCni5eKI/iKBAWgHEhi6he8uVSQwYLJ7iesnfXewuHgBqb1BXB/EwE/Fxa0NfizumjAQz93uKi52wGxIYJiei1ffcIw2ctrZrRMCwFS2sCRNWG00IW7yRdXnxMWvzz4gLlYYFQ+iXAzRbyQwAO1AAkO3kMBQRQIDJmN3Na9N5+2jvdaXq8T1QQw8UFzs2uC+4q4JQ8eKix0wGxIYvCvFxatvSGBATiQwAKjFFpakCauNYmeB68VNwBiKnSrijSQXwz66s9wgLlaoukjWEBdH9BsJDEA7kMDQLSQwVJHAgMni7WbXT/puR3HxAlLiBYGZfU1c3Nrk8+KuDUM7iIsdMBMSGLz43ePi1TckMCAnEhgA1GILS9KE1VYfFjcBo+o4cfHroy+KixFGvUhcDAESGIB2IIGhW0hgqCKBAcvcTVwf6bubhGRk5MaLJTOLF0ruIS52bbKFcJ9ndoK42AEzIYHBI4FhgAQG5EQCA4BabGFJmrDaaiO5VtwkjCrevhls2+hig1Hnykri4giQwAC0AwkM3UICQxUJDFjmYHF9pO/OEBcvIKUviOt/GPiEuLi10fvFXSOGdhUXO2A6JDB4JDAMkMCAnEhgAFCLLSxJE1abHSRuEkbV98XFry+Wk5PFxQajniIujkAggQFoBxIYuoUEhioSGBAiof0acX2k7z4qLmZAKrFlvut7GIiXbTYTF7s2Wk/4LjKzUyWePbn4AQ4JDB4JDAMkMCAnEhgA1GILS9KE1WbrCD+i6nmIuBj2wT7iYoJR8bbW8uLiCAQSGIB2IIGhW/i+W0UCA8Lh4voHSEhGfiyszOy94uLWZq8Rd60YimdPLnaAQwKDRwLDAJ+zyIkEBgC12MKSNGG13evFTcSoOklc/LoujkKIIxFcTDDqUeLiCCxDAgPQDiQwdAsJDFUkMOBBEufLu/6BJUs3FRc3IIX4zej6HQbiM/u24mLXZqvKX8VdMwbOkRXFxQ+YigQGjwSGARIYkBMJDABqsYUlacJquzXkQnGTMaoeIy6GXfZycbHAqB+LiyEwGQkMQDuQwNAtJDBUkcDQb7E4z++/6f1eXNyAFFaQ34rrexh4nbjYdcHTxF0zhl4gLnbAVCQweCQwDJDAgJxIYABQiy0sSRNWF+wvbjJG1enSp+MB1pUrxMUCox4gLo7AZCQwAO1AAkO3kMBQRQJDf0Xywlni+gUGurh1PZrjWeL6HQb+LrFTgYtdF8TzpDh20l07BiLBbnVx8QMmI4HBI4FhgAQG5EQCA4BabGFJmrC6II4JiAeZbkJGVZ/O5HufuBhg1NfExRCYigQGoB1IYOgWEhiqSGDop/sK25fP7iHi4gcsVCzMXyCu32HgOeJi1yW7irt2DL1BXOyAyUhg8EhgGCCBATmRwACgFltYkiasrni6uAkZVX+UxeJi2CVbyPXiYoCqOD/4nuLiCExFAgPQDiQwdAsJDFUkMPTL2vJOuVFcf8DQJRJb/Ls4AgsVRyO4foeBs6UPz1rCd8TFAAPxvW09cbEDliGBwSOBYYAEBuREAgOAWmxhSZqwuiK2sjtT3KSMqtj20cWwSz4v7tox6tPiYgg4JDAA7UACQ7eQwFBFAkM/bCCvkcvE9QOMOkxcLIGFisVYPotm9jhxseuibSRehHBxwADH+WA2JDB4JDAMkMCAnEhgAFCLLSxJE1aX7CFuUkbV+RLHbrgYdsH9xF03RsUuFXcUF0fAIYEBaAcSGLqFRaMqEhi6axN5pnxZbhB3/zG9B4iLK7BQh4jrcxg4WZYTF7uu+qS4WGDgWtlMXOyAQAKDRwLDAAkMyIkEBgC12MKSNGF1SfxgjB+ObmJGVVcXNqIP/FTcNWPUoeLiCEyHBAagHUhg6BYSGKpIYGif2FY9joK4rWwu95BHSBwD+GY5Tv4k7n6jnrPExR5YqDsJxzPO7MHiYtdlt5dYpHfxwMAnxMUOCCQweCQwDJDAgJxIYABQiy0sSRNW1zxM3MSMqotkDXExbLO9xF0vRl0ttxMXR2A6JDAA7UACQ7eQwABgNsz7yOVz4vocBr4pLm59cJC4mGDgJtlaXOwAEhg8EhgGSGBATiQwAKjFFpakCauLvi9uckbVa8XFr63iWIxzxF0rRr1FXByBmZDAALQDC1ndQgIDgJlcJbcRN38AC7G9uD6HgZtlG3Gx64PYWecycbHBQOww5GIHkMDgkcAwQAIDciKBAUAttrAkTVhdtETc5Iyq+FIYPzhdDNvoxeKuE6PiIQMPOTEfJDAA7UACQ7eQwABgJvEWtJs7gIXi5ZCZfVpc3PqE5zCzu7+42KHfSGDwSGAYIIEBOZHAAKAWW1iSJqyu+rK4CRpVB4qLX9tEIsY/xF0jRr1MXByB2ZDAALQDCQzdQgIDgOnEsXDriZs7gIX4f+L6HAaul83Fxa5PYifMP4mLEQZ+JC526DcSGDwSGAZIYEBOJDAAqMUWlqQJq6vinLnYzs9N0hiKB17ri4thm7xH3PVh1Pmyirg4ArMhgQFoBxIYuoUEBgDT6UpCOpplefm1uD6HgfeJi10f7S0uRhjaXVzs0F8kMHgkMAyQwICcSGAAUIstLEkTVpcdJW6SRtUh4uLXFneU/4i7Nox6prg4AnWQwAC0AwkM3UICAwDn77KGuHkDWIini+tzGLhK2PlkaDk5WVysMHCGRGKQix/6iQQGjwSGARIYkBMJDABqsYUlacLqsjtIbOvnJmoMXSubiYthG3xW3HVh1JmyWFwcgTpIYADagQSGbiGBAYDzBHFzBrAQq8pfxfU5DLxRXOz6bCdxscLQvuJih34igcEjgWGABAbkRAIDgFpsYUmasLruUHETNao+Ki5+TbeDuOuB91hxcQTqIoEBaAcSGLqFBAYAUx0nbr4AFurV4vocBi4Udj7xviIuZhj4s6wkLnboHxIYPBIYBkhgQE4kMACoxRaWpAmr6zaUq8VN1hi6UbYUF8Mm+7G468Go2NIxtnZ0cQTqIoEBaAcSGLqFBAYAk8XREeuLmy+AhVhX+MyZ2QvExQ5Llm4l8WzJxQ0DB4iLHfqHBAaPBIYBEhiQEwkMAGqxhSVpwuqDt4mbrFEVRzG4+DVV7CbgrgPeQ8TFEZgLEhiAdiCBoVtYTAKwTCwO8r0eubxXXL/DwDnCkYwzO0xc7DBwibCDBwIJDB4JDAMkMCAnEhgA1GILS9KE1Qdry+XiJmwM3Sz3FBfDpomHBn8Qdx0Y9W1xcQTmigQGoB1IYOgWEhgALPMicfMEsFCby3/E9TsM7C0udhhiF9TZLRUXO/QLCQweCQwDJDAgJxIYANRiC0vShNUXnONYT1vOUo0Hd6798O4tLo7AXJHAALQDCQzdQgIDgBBvx7s5AkhhQly/w8AvhSMZ6/lfcTHEQCR4cAwQSGDwSGAYIIEBOZHAAKAWW1iSJqy+WFUuFDdpo2pHcTFsirXkUnFtx6hjxMURmA8SGIB2IIGhW0hgAHC4sHiKXCLhPXZkdH0PAw8TFzuMiiMSeP42s/eLix36gwQGjwSGARIYkBMJDABqsYUlacLqk+eLm7RR9T1x8WuKg8S1G6PijNw7i4sjMB8kMADtQAJDt5DAAPTbR4TkBeQUzwBc38PAd8TFDdN7rrhYYuB6iWNbXOzQDyQweCQwDJDAgJxIYABQiy0sSRNWn6wk54ibuFG1s7gYjtsd5FpxbcaoeFPLxRGYLxIYgHYggaFbSGAA+ivOSid5ATntKq7vYWg7cbHD9BbLmeLiiYFPi4sd+oEEBo8EhgESGJATCQwAarGFJWnC6psni5u4UXWSuPiNW/zAc+3FqEj02EhcHIH5IoEBaAcSGLqFBAagf66Rp4ibE4BUlpfTxfVBDHxWXOwwu0eLiykG4tiWe4mLHbqPBAaPBIYBEhiQEwkMAGqxhSVpwuqb+IH+a3GTN6rix6aL4bjcRziXs753iosjsBAkMADtQAJDt5DAAPTL2cKiFkrYV1wfxEBs87+FuNihnh+Kiy0Gvi4ubug+Ehg8EhgGSGBATiQwAKjFFpakCauPHiNu8kbVaRIJHy6G4/ADce3EqPjCv7a4OAILQQID0A4kMHQLCQxAf3xQVhM3FwAprSLnieuHGPiAuNihvh3ExRZDO4mLHbqNBAaPBIYBEhiQEwkMAGqxhSVpwuqrn4mbwFG1j7j4lcbWg3PzGnFxBBaKBAagHUhg6BYSGIDu+508QNwcAOTwCnF9EQNXywbiYoe5OVpcjDEQzydd3NBtJDB4JDAMkMCAnEhgAFCLLSxJE1Zf7SxuAkdVbF+6WFwMS4n6zxLXPoy6UFYVF0tgoUhgANqBBIZuIYEB6K5L5UUy7t9c6Jd15ApxfRIDbxYXO8zdnSSO43BxxsD/iIsduosEBi/mChevviGBATmRwACgFltYkiasPjte3CSOqmeIi18p+4lrF7yIl4sjkAIJDEA7kMDQLSQwAN1zmcSuaWuIG/dATu8W1y8xcIkwNtN6n7hYYyB24WnSEa7IjwSG6bl49Q0JDMiJBAYAtdjCkjRh9dm9xU3iqDpfVhIXw9zWlIvFtQujzhHe3kJOJDAA7UACQ7eQwAB0xx8kdlxgcRTjsplcK65/YmB/cbHD/N1W+D4zs3G/PISySGCY3iriYtYnJDAgJxIYANRiC0vShNV3XxA3kaPqAHHxy+1Ace2B9wRxcQRSIYEBaAcSGLqFB/5Au8Vi8efkYbKcuHEOlPIpcf0UwHjFy0Ms3PYHCQzTW1tczPqEBAbkRAIDgFpsYUmasPrurnKjuMkcQxfK6uJimMumwpsh9Z0mPBBFbiQwAO1AAkO3kMAAtM+/5Th5srDbAppiG7lZXJ8FMH4vEzd20T0kMEzvduJi1ickMCAnEhgA1GILS9KEhSVLjxQ3maMqzmh18cvlKHHtgPcIcXEEUiKBAWgHEhi6hQQGoB3OkPdIfC9fWdx4Bsbp2+L6LoBmuEzWEjd+0S0kMExvS3Ex6xMSGJATCQwAarGFJWnCwuAMyOvETegYukJKbePFmyFz8wNxcQRSI4Fh1B0k5kagSVg46xYSGIB2uFK+LC+Uu4gbz8C4PFxcvwXQLHGUqhvD6BYSGKZ3X3Ex6xMSGJATCQwAarGFJWnCwsAh4iZ0VL1VXPxS+564+uHtKC6OQGokMIyKxWIXKwBIhQQGoJ3+JAdJJGe7sQ2UEkcNniqunwJolqtlI3FjGd1BAsP0dhcXsz4hgQE5kcAAoBZbWJImLAysJ/EjwU3qGIoYRaxcDFN5pLi64cVbXi6OQA4kMIwigQFAbiQwAO13lrxJWJTCODxZXL8E0EwfEjeW0R0kMEzvOeJi1ickMCAnEhgA1GILS9KEhaGl4iZ1VMVuFS5+KSyW34qrF6Nukq3FxRLIgQSGUSQwAMiNBAagO26QY+TB4sY7kNpK8mdx/RFAM10vW4ob0+gGEhimV2r33yYjgQE5kcAAoBZbWJImLAzdRi4TN7Fj6Fq5vbgYLlRk2bo64X1CXByBXEhgGEUCA4DcSGAAuukk2U3cuAdSeZm4/geg2T4nbkyjG0hgmN5R4mLWJyQwICcSGADUYgtL0oSFqpeLm9hRdbi4+C3EGnKhuPow6jrZTFwsgVxIYBhFAgOA3EhgALrtp/IgceMfWIj4nvoPcf0OQPNtJ25so/1IYJjez8XFrE/iGXl8hmN+7imub2GABAYAtdjCkjRhoWpV+Zu4yR1DN0rq7ezeLK4ueO8TF0cgJxIYRsWPIxcrAEiFBAagHybkduLmAWA+3imurwFoh2+LG9toPxIYpneFuJgBda0srm9hgAQGALXYwpI0YWEUxxjU8xlx8ZuPjeXf4urBqKtkPXGxBHIigWEUCQwAciOBAeiPeGj/PFlO3HwA1LWpxPGPrp8BaI+HihvjaDcSGGa2ibi4AXVdJK5vgQQGADXZwpI0YWHUYvmjuAkeQzfLPcTFcK6OFFcHvDeJiyOQGwkMo0hgAJAbCQxA/3xLNhA3JwB1fFxc3wLQLr8Qktq6hwSGmT1GXNyAuk4S17dAAgOAmmxhSZqw4O0jboJH1XHi4jcXcS5VJEO4v49Rl0icheZiCeRGAsMoEhgA5EYCA9BPF8j9xM0LwEz4jQ10y+PEjXW0FwkMM3uruLgBdX1eXN8CCQwAarKFJWnCghfZzaeJm+RRtURcDOs6XtzfhXeAuDgCJZDAMIoEBgC5kcAA9Nf18hRxcwMwnW+I608A2uksid1i3XhHO5HAMLMTxcUNqOuj4voWSGAAUJMtLEkTFqb3/8RN8qj6jrj41bGruL8J7y+ykrhYAiWQwDCKBAYAuZHAAOAV4uYHYKo4L9/1IQDt9hxxYx7tdBdx9xkD18mq4mIH1PEucX0LJDAAqMkWlqQJCzP7kbiJHlU7i4vfTJaXX4v7e/CeKi6WQCkkMIwigQFAbiQwAAivETdHAMvETpK/FNd/ALRbHCvEgm53bC7uPmNod3GxA+o4WFy/AgkMAGqyhSVpwsLMHihuokfVz8TFbybPEve34P1GIunDxRIohQSGUSQwAMiNBAYAy7xU3DwBhH3E9RsA3fAqcWMf7UMCw+wOFxc7oI6PietXIIEBQE22sCRNWJgd50fWM5fM2NUkssfd34H3GHGxBEoigWEUCQwAciOBAcAyN8vjxM0V6Lc4avBP4voNgG64Qvj92Q0kMMzuEllRXPyA2Rwjrl+BBAYANdnCkjRhYXbbSjwochM+hk6T2LLSxXCqN4r7G/B+Ki6OQGkkMIziARKA3EhgADDZv+Ve4uYL9NcB4voLgG55p7g5AO2yrrj7i6pHiYsfMJsfiutTIIEBQE22sCRNWKjnc+ImfFQ9QVz8JttQrhb37+E9SFwsgdJIYBhFAgOA3EhgADDVH2QNcXMG+mctuUxcXwHQLdfKxuLmArTHyuLuL6q+Ji5+wGwuEtenQAIDgJpsYUmasFDPlnKjuEkfQ2fJYnExXOaj4v4tvDjCxMURGAcSGEaRwAAgNxIYADjxu8rNGeift4nrIwC6ifm/G24Qd38xFDsibyEufsB0NhHXnzBAAgOAWmxhSZqwUN/h4iZ9VD1dXPzC3YVEkPrii/o24mIJjAMJDKNIYACQGwkMAKbzMHHzBvojHtLHG9mufwDopniudhdxcwLa43Jx9xdVR4qLHzCdp4jrSxgggQFALbawJE1YqI8HA/WcLyuJi+HXxf0beJ8RF0dgXEhgGEUCA4DcSGAAMJ2zZUVxcwf6IRZ2XN8A0G3HipsT0B5/EXdvURUJO3cWF0PAOVpcX8IACQwAarGFJWnCwty8W9zEj6r9ZWrs4u0g99/Cu17YJg1NQwLDKBIYAORGAgOAmbxY3NyB7mOHQ6DfdhA3N6AdzhB3XzGK43VR15pyjbh+hAESGADUYgtL0oSFuVlPeIg8uwtlNVkWt+XlNHH/LbwPyuS+BzQBCQyjSGAAkBvfPQHMJH57rSJu/kC3fU1cnwDQD98XNzegHX4g7r7Ce6y4OAKTvVRc/8EQCQwAarGFJWnCwty9Sdzkj6rXyLKYPe3WMtRztWwkk/sd0AQkMIwigQFAbiQwAJjNfuLmD3TXg8T1BQD9sou4OQLNxzb3c3Op8KwUM1ldIrHX9R8MkcAAoBZbWJImLMzdGnKJuA8ADF0usbC3qvz11jLUc6C4vgeMGwkMo0hgAJAbCQwAZnOerCBuDkH3LCe/ENcXAPTLqRJzgpsr0GzvF3dPMb0fyUri4gm8XVy/QRUJDABqsYUlacLC/LCIV89b5HVTyjCzfwgLomgq5r5RjFcAuZHAAKCOR4qbQ9A9jxfXBwD00xPEzRVotteKu5+Y2ceFpB1MtaPcKK7PoIoEBgC12MKSNGFhfiLb83xxHwIYiqMQrppShpm9QlyfA5qABIZRJDAAyI0EBgB1HCNuDkG3rCjniOsDAPop5oTF4uYMNNezxN1PzO4jQhIDltlE2P25PhIYANRiC0vShIX5e4a4DwFgvuLLVhy54fob0AQkMIwigQFAbiQwAKjjOuF7Sfe9SNz9B9BvLxA3Z6C5HiHuXqKeo2VlcbFFf6wvvxHXR+CRwACgFltYkiYszF9kN/9e3AcBMB/PFtfXgKYggWEUCwUAciOBAUBd+4qbR9ANa8ol4u49gH67UFYXN3egme4s7l6ivl/JFuLii+6Le8/azNyRwACgFltYkiYsLMzjxH0QAHN1lrDlH5qOBIZRJDAAyI0EBgB1fUrcPIJueKu4+w4A4fXi5g40UxxPfJO4e4n6/i1xHC/PVPtlT7lcXJ/AzEhgAFCLLSxJExYWJs7b+qW4DwNgLiIZxvUxoElIYBhFAgOA3EhgAFBXvIHLmdDdtJHEIo277wAQ4jvjbcXNIWim88TdS8zdmRKL2nwP6rZNJI4PcX0A9ZDAAKAWW1iSJiws3K7iPgyAuk4RvmCjDUhgGEUCA4DcSGAAMBf3EDeXoN2OEHe/AWCy94qbQ9BMPxB3HzF/v5VnySriYo522ljeLdeKu++ojwQGALXYwpI0YSGNE8V9IAB1PExcvwKahgSGUSQwAMiNBIaq8yXmXjTbhrK53FMeKLvLk+XV8gH5opwu14m7z5i/p4ubS9Bed5Mbxd1vAJgsFvc2EzeXoHk+Ku4+YuHiN9RH5AGyvLj4o9niWJB4cTR2XLhe3H3G3JHAAKAWW1iSJiyksaO4DwRgNt8T16eAJiKBYVQs0rhYAUAqJDBU/UVcnNBOK8hdZG/5oPxGbhZ371HPIeJijfY6Tty9BgDn4+LmEjTP/uLuIdL6uxwmj5W1xN0LNMM68iT5rFwh7n5iYUhgAFCLLSxJExbS4aEC5mN7cf0JaCISGEaRwAAgNxIYqkhg6L7YIja+c/xCXB/AzGI7ahdXtFPsYOLuMwBMJ3Zs2VrcnIJmebC4e4h8bpJfyqHyRIlEWnZoGI+VJHZre658TM4UEpnzI4EBQC22sCRNWEgnzhrlQxZz8QVxfQloKhIYRpHAACA3EhiqSGDol/vLt8T1BXiXiIsl2mc5+Zm4+wwAM4mXrNy8gmaJ5wnu/qGsq+Xn8gmJ485ip4YdJI5Ei89id+9Qz+qylewiz5CDJOans4XjscaDBAYAtdjCkjRhIa1Pi/tgAKaKL2l3FdePgKYigQHoLs5Mby4SGKpIYOinR8gF4voERq0sLo5ol8eJu78AUMf9xM0taJbzxN0/NMP1Er8/fipHS+zc8FZ5hTxHHi+7yn1lW9lCNr9V7CoWSSrLNHmnhxVlclvDurLsWuK64voiuXhn2UPiCLhnySvlHXK4xMt635ffCkdANNN2bp0QAKayhSVpwkJa8WEeX2zchwMw2RHi+hDQZCQwAN1FAkNzkcBQRQJDf91OYstf1y9QdSdxMUR7LJY/iLu/AFDHD8XNL2iWL4m7fwCQw7ZunRAAprKFJWnCQnofEvfhACxzrWwirv8ATUYCA9BdJDA0FwkMVSQw9Nta8htxfQNDDxQXP7THC8TdWwCYi93FzTFojpeLu3cAkMPWbp0QAKayhSVpwkJ6G8k14j4ggPBucX0HaDoSGIDuIoGhuUhgqCKBAbG7wFXi+gcG4ugBFzu0wxpykbh7CwBzcYY0edt6DI4ecPcOAHLY0K0TAsBUtrAkTVjI4yBxHxBALELEGWKu3wBNRwID0F0kMDQXCQxVJDAg7C+uf2CAOb3dloq7rwAwH08RN9egGVYUXoQDUMpKbp0QAKayhSVpwkIeawsPm+G8XlyfAdqABAagu1jsai6+U1aRwICwWM4W10ewZOlzxMUNzbehXC3uvgLAfJwrK4mbc9AMPxB37wAgpX+5NUIAcGxhSZq0kM9rxX1QoL8ulNXF9RegDUhgALqLBIbmIoGhigQGLPMMcX0Eg+9sLmZovo+Iu6cAsBAHiJtz0AyvFnffACClc9waIQA4trAkTVrIJxaqY8HafVign14grq8AbUECA9BdJDA0FwkMVSQwYJnVhPHhvUZczNBsd5Ubxd1TAFiIS2QNcXMPxu+e4u4bAKT0fbdGCACOLSxJkxbyepG4Dwv0zznCln1oOxIYgO4igaG5WKCtIoEBkx0prp/03VJx8UKzfUnc/QSAFP5X3NyDZjhf3H0DgFQ+5tYIAcCxhSVp0kJesWD9Z3EfGOiXJ4nrI0CbkMAAdBcJDM1FAkMVCQyYbC9x/aTvSGBon/uLu5cAkMq/ZD1xcxDGjyOEAOT2BrdGCACOLSxJkxbye6q4Dwz0x2myvLj+AbQJCQxAd5HA0FwkMFSRwIDJ1pabxfWVPiOBoX1+Iu5eAkBK7xc3B2H8Hi7ungFAKo9za4QA4NjCkjRpIb9YuP6duA8N9MMjxfUNoG1IYAC6iwSG5iKBoYoEBkwVR7W5vtJnJDC0yx7i7iMApHa9bC5uLsJ4xfPjC8TdNwBIYUu3RggAji0sSZMWyuCBRH/9UFyfANqIBAagu0hgaC4SGKpIYMBUXxTXV/qMBIb2WCxnibuPAJDDp8TNRxi/d4u7ZwCwUHGM0HJujRAAHFtYkiYtlLGcnCTuwwPdFmeZuj4BtBEJDEB3kcDQXCQwVJHAgKkOFNdX+owEhvZ4nrh7CAC5xNFL9xQ3J2G8thV3zwBgoX7s1gcBYDq2sCRNXCjnoeI+PNBdXxHXF4C2IoEB6C4SGJqLBIYqEhgw1fPF9ZU+I4GhHdaQC8XdQwDI6evi5iWM3y/E3TMAWIgD3fogAEzHFpakiQtlfVfcBwi6JzLa7y6uHwBtRQID0F0kMDQXCQxVJDBgKo7rG0UCQzu8Udz9A4ASdhI3N2G8niLufgHAQjzcrQ8CwHRsYUmauFDWDuI+QNA9nxTXB4A2I4EB6C4SGJqLBIYqEhgw1YPE9ZU+I4Gh+TaQOIvY3T+M+rtsJGsD01hPzhXXf+D9VNz8hPFaSdidB0BK/5HV3PogAEzHFpakiQvlfUncBwm643q5g7j7D7QZCQxAd5HA0FwkMFSRwICpOC96FAkMzfdBcfcOHt9TUMee4voPpvcYcbHEeL1J3P0CgPn4llsbBICZ2MKSNHmhvK3lRnEfJuiGQ8Tde6DtSGAAuouFgeYigaGKBAZMtY24vtJnJDA0253lBnH3DqNOkeXFxRKY6kRx/Qje74Tx1Tyxqwi/AQCk8hy3NggAM7GFJWnywngcJe7DBO13tawv7r4DbUcCA9BdJDA0Fw8vq0hgwFSbi+srfUYCQ7MdK+6+wbu/uDgCTuzKc7O4vgSP3wHNFJ/l7n4BwFzEZ+IGbm0QAGZiC0vS5IXx2EzimAH3oYJ242EhuowEBqC7eHDZXCQwVJHAgKlIYBjFb5Lmuq+4ewbvc+LiCMzkCHH9Cd75srK4WGJ8biOXibtnAFDXN926IADMxhaWpAkM4/N+cR8qaK/4YbGmuPsNdAEJDEB3kcDQXCQwVJHAgKlIYBhFAkNz/UjcPcOoa+T24uIIzOR2cpW4fgXvZeJiifF6pbj7BQB1Pc6tCwLAbGxhSZrAMD7xgyqOG3AfLGinWNx19xroChIYgO4igaG5SGCoIoEBU5HAMIoEhmZ6tLj7BY9+jIV4tbh+BS9eyFlLXCwxPivJWeLuGQDM5iJZ0a0LAsBsbGFJmsAwXm8V9+GC9okt9+KHhbvPQFeQwAB0FwkMzUUCQxUJDJiKBIZRLPw2z2L5nbj7hVF/ldXExRKoI45EOFdc/4IXzyhdLDFeu4i7XwAwmze4NUEAqMMWlqRJDOO1tvxD3AcM2oWFH/QBCQxAd/E51lwkMFSRwICpSGAYRQJD8zxb3L2C90RxcQTmYk9x/Qte7BK7obhYYry+IO6eAcB04iiltd2aIADUYQtL0iSG8XuVuA8ZtEe8SbO8uPsLdAkJDEB3kcDQXCQwVJHAgKlIYBhFAkOzxE4Cfxd3rzDqZ7KcuFgCc3WiuH4G70Pi4ojx2kh4AQ7AXBwkdk0QAOqwhSXFJIaxW1UuFPdBg3bYQ9y9BbqGBAagu0hgaC4SGKpIYMBUJDCMIoGhWd4g7j5h1M2yRFwcgfnYVqJfuf6GUdfLluJiifF6nLh7BgBTRcLTOmLXBAGgDltYUkxiaIT9xH3YoPl+Lu6eAl1EAgPQXSQwNBcJDFUkMGAqEhhGkcDQHOvJleLuE0YdJS6OwEIcIa6/wfusuDhi/D4p7p4BwGQvklvmDbcmCAB12MKSlk1kGLvFco64Dxw0287i7inQRSQwAN1FAkNzkcBQRQIDpiKBYRQJDM1xqLh7hFFx/v7G4uIILMTtJM4Cd/0Oo2LHiu3ExRLjdRvh+TGAmfxWYq3plnnDrQkCQB22sKRlExka4UniPnTQXN8Sdy+BriKBAeguEhiaiwSGKhIYMBUJDKNIYGiGLSS2Y3f3CKNeKy6OQAqvFtfv4H1bXBwxfveQSPhy9w1Av90o28t/5wy3JggAddjCkiZPZhi75eUMcR8+aB4y0tFHJDAA3UUCQ3ORwFBFAgOmIoFhFAkMzXCMuPuDUX+WVcTFEUhhZTlXXP+D9xBxscT47SXungHot7dJZb5wa4IAUIctLGnqhIaxe7S4Dx80z+fE3UOgy0hgALqLBIbmIoGhigQGTEUCwygSGMZvB3H3Bl4sxrk4AintKa7/wTtZlhMXS4zfW8XdNwD9FHP2SlKZK9yaIADUYQtLmjqhoRF+Ku5DCM1xg2wp7v4BXUYCA9BdJDA0FwkMVSQwYCoSGEaRwDB+PxB3bzDqRHExBHKI/ub6IbzHiYsjxi+SSz4u7r4B6JeLZVMZmSvcmiAA1GELS3KTGsbuweI+iNAcHxF374CuI4EB6C4SGJqLBIYqEhgwFQkMo0hgGK/dxd0XjIqjGbcVF0cgh+hv0e9cf8Sos2SxuFhi/FaQ48TdOwD9cL1Me+SPWxMEgDpsYUluUkMjHC/uAwnjd41sJO6+AV1HAgPQXSQwNBcJDFUkMGAqEhhGkcAwPsvLb8TdF4w6XFwcgZyOENcf4T1bXBzRDKvKCeLuHYBui4S8fcTNDbdwa4IAUIctLMlNamiE7cR9KGH83i7ungF9QAID0F0kMDQXCQxVJDBgKhIYRpHAMD7PFHdPMOpK2UBcHIGcbidXieuXGPU3iUVyF0s0w2pCEgPQPweImxP+y60JAkAdtrAkN6mhMY4R98GE8blC1hZ3v4A+IIEB6C4SGJqLBIYqEhgwFQkMo0hgGI9Y4IuFPndPMOqV4uIIlPBqcf0S3qvExRHNEUkM7OgL9MesyQvBrQkCQB22sCQ3qaEx7iI3ivuAwnjwgw19RwID0F0kMDQXCQxVJDBgKhIYRpHAMB6vFXc/MOoPspK4OAIlrCzniuufGMULPe0Q8+rnxN1DAN1wk8SOX24OGOHWBAGgDltYkpvU0CgfE/dBhfIuELbMQ9+RwAB0FwkMzUUCQxUJDJiKBIZRJDCUt54wX9f3GHFxBEraU1z/hPcOcXFEsywnbxF3DwG0Wxx/9ChxY99ya4IAUIctLMlNamiUzeRacR9YKOu54u4R0CckMADdRQJDc7EgVkUCA6YigWEUCQzlHSzuXmDUd8TFEBiHE8X1U4yK55MbiYsjmudJcp24ewmgfc6RrcWN92m5NUEAqMMWluQmNTQOD0LGL7a3XCzu/gB9QgID0F0kMDQXCQxVJDBgKhIYRpHAUNYd5Xpx9wJVcUzm3cXFERiHbeVmcf0Voz4qLo5opvvJ+eLuJYD2OFrmdYyPWxMEgDpsYUluUkPjxFaU/xL34YUy9hZ3b4C+IYEB6C4SGJqLBIYqEhgwFQkMo0hgKOsz4u4DRn1IXAyBcTpCXH/FqEhCuou4OKKZ1pUvi7ufAJotjozYV9zYrsWtCQJAHbawJDepoZHiAZT7EEN+v5I4P87dF6BvSGAAuosEhuYigaGKBAZMRQLDKBIYyrmPuHuAUZdLLKS5OALjdDuJRSLXbzHqC+LiiOaK55ovlH+Lu6cAmifm2k3Fjena3JogANRhC0tykxoaaU25TNyHGfLaRdw9AfqIBAagu0hgaC4SGKpIYMBUJDCMIoGhnO+LuwcYdYC4GAJN8Gpx/Rbe9uLiiGaLI4++I+6eAmiGP8pu4sbwnLk1QQCowxaW5CY1NNbLxH2oIZ8TxN0LoK9IYAC6iwSG5iKBoYoEBkxFAsMoEhjK+H/i4o9Rv5fF4uIINMHKcq64/otRkbzl4ojmi90Y4rffxeLuLYDx+Ks8R5J+X3JrggBQhy0syU1qaKxV5XxxH3DIY4m4ewH0FQkMQHeRwNBcJDBUkcCAqUhgGEUCQ37Lyxni4o9RjxAXR6BJ9hTXf+GxY2m73UbeIdeKu78Ayviz7C+x9uPG6oK4NUEAqMMWluQmNTTas8V90CG9L4q7B0CfkcAAdBcJDM1FAkMVCQyYigSGUSQw5PdUcbHHqG+IiyHQRD8U148x6lcSb/O7OKI94nvUUXKjuPsMII+T5PGSdYcqtyYIAHXYwpLcpIZGiw+0P4j70EM68aX9buLuAdBnJDAA3UUCQ3ORwFBFAgOmIoFhFAkMebE7Yn3Xy13FxRFoonvLzeL6M0btLS6OaJ8t5XCJedvdawALd7l8QLYRNw6Tc2uCAFCHLSzJTWpovPhx4D4Akc6R4mIP9B0JDEB3kcDQXCQwVJHAgKlIYBhFAkNerxQXd4w6WFwMgSb7uLj+jFHnSNa3h1Hc7eXtcom4ew5gbuKYltjp+Qmyirhxl41bEwSAOmxhSW5SQ+PF9myniftAxMLFl4rNxMUe6DsSGIDuIoGhuUhgqCKBAVORwDCKBIZ81hXm5XoulbXFxRFosg3lX+L6NUY9X1wc0W4rSxyX9BNx9x3A9K6QY2QfWUPcGCvCrQkCQB22sCQ3qaEVdhP34YiFe6+4mAMggQHoMhIYmouFsioSGDAVCQyjSGDIJ34vuphj1PPExRBog9eK69cYdaGsJi6O6IY7yRvkbHF9AOi7m+SX8g55oKwgbiwV59YEAaAOW1iSm9TQGj8U94GJ+YsFgvXExRsACQxAl5HA0FwkMFSRwICpSGAYRQJDHneQ68TFHFW/lsY8vAfmIbb5/rO4/o1RrxcXR3TPvSTu98lys7j+AHTdDfILeY88StYSN17Gzq0JAkAdtrAkN6mhNR4g7gMU8/dGcbEGMEACA9BdJDA0FwkMVSQwYCoSGEaRwJDHp8XFG6MeIi6GQJs8Xlz/xqj4vnpbcXFEd8VxK0+Rj8k54voG0Haxu8LvZUL2lx0ljlhxY6Jx3JogANRhC0tykxpa5WviPlgxdxfJWM+kAlqABAagu0hgaC4SGKpIYMBUJDCMIoEhvW2FN03r+ZK4GAJt9CNx/Ryj4k1kF0P0x6byBDlIviuXi+srQBPF97zz5DvyPnmG3EdWFdffW8GtCQJAHbawJDepoVUi229tJLG6uBgDGGLOAbprJXHjHuMX21G6e9ZXtxEXJ/TX8uL6Sp/F1ucuVpg/vgfXx3cKdAljv741xcUQ/RaJpv9P4oWYD8sJ8lchKRDjEEeBnSXHy0fltfI4iaNRWp2oMB23JggAddjCktykBgAAAAAAAAAAkMGKEskNO8mTJRaSPySflxMltuy/VNwiNDDVFfJHOUm+LodL7Ej2PHmUbC9x5Inri53m1gQBoA5bWJKb1AAAAAAAAAAAAMZosdxO7ir3lV1lb3muvFLeLIfIYXKUfFm+KZEE8Ss5XX4ncQxdiCOE44i+cKO4xXDkcZMsi/3FsuyexP2J+/QTiR06jpPPSdzPuLdvl1fLfvIk2V0eKHeXSEqIZBjXdyBuTRAA6rCFAAAAAAAAAAAAAAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABASbYQAAAAAAAAAAAAAACgJFsIAAAAAAAAAAAAAABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACUZAsBAAAAAAAAAAAAAABKsoUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJthAAAAAAAAAAAAAAAKAkWwgAAAAAAAAAAAAAAFCSLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRkCwEAAAAAAAAAAAAAAEqyhQAAAAAAAAAAAAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2EAAAAAAAAAAAAAAAoCRbCAAAAAAAAAAAAAAAUJItBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAAlGQLAQAAAAAAAAAAAAAASrKFAAAAAAAAAAAAAAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABASbYQAAAAAAAAAAAAAACgJFsIAAAAAAAAAAAAAABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACUZAsBAAAAAAAAAAAAAABKsoUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJthAAAAAAAFQtWrK0tI3kwfIseb0cKp+V78iJcrKcPsXP5QT5knxc3i0vlcfLEllbXF0AAABontvIfeQJ8io5WOL74DfkJzL1u+BPJb4nflPiv4vvgq+UJ8kDhO+CqM39JuqTiYkJILe1ZXvZW14p75b431flRDndiPIfyLFyuLxNXiS7y11lJXF1zYkbEyXZQgAAAAAAUOUe6iW0oewl75F4GP0v+b9MLpBIgnibPEpuK65NXXeUTH3o3wSnSiw8hLhPX5CPSSxY/K+8QP5HYjHjduKurUs+Jy5OffY1WUVcvEr5uri2lRSLdN+V4+STEklekey1n8QY2VbWEdd+DOQcXx8UV2cOsajr2oCBn0kkRbrY5dCVfjUOi2VHiYSDSEY9V9x3uYX6mxwvB8rDZTVx7emLUt81dhZXfwmRFO3aNB+3zCnu91LXuEXdhnutuAXvXJaKawe8teQREnH7pvxV/i+Dm+R38inZX7aR5cS1aVpuTJRkCwEAAAAAQNUi/zBwIe4lsSB9iriHy6XcLLGbw1LZTlxbu2ZFuUZcPNrmOjlNYgH3FfIw6cpCRFzH9eKuu+9iwcnFrIT1xbWpqS6XH8lh8jzZRlYQd219UmJ8RV9xdad2krj6MfRicbFLrUv9qpS1ZF85Vq4Sd825xT2LxMn9pWSySxOU/K7xK1leXDtye6u4Ns3XS9zvpa5xi7oNdl+5UdyCdi6/FdcWDN1TImHhp1L6/kx2sXxaHi+riGtrhRsTJdlCAAAAAABQtcg/DJyrNeW5Eg8w3cPAJjhTXisbiLuGLoi3G921d8V/JN6sjMXa2HraxaAN4k1Fd319d6OsIS5mJewhrl1tErvcfFWeL5uKu86uyz2+/iiu3tRi8fEGcW3A0Pbi4pdaV/pVbrGIvZvELgvxme2udVxuku/LUyQSPl37u6T0d42niWtHbj8Q1575uq/7vdQ1blG3oWJB+ixxC9e5rSuuTX12R4mkhT+Ji9m4XSkflyXi2n8LNyZKsoUAAAAAAKBqkX8YWFecNxw7HPxT3EPAJoo3+4+UrcRdU5vFTgXumrvo3/IR2UJcLJrsDeKuqe9+KS5epcRRN65dbRW70MTCztNlZXHX3EW5x9cnxNWb2kPE1Y+hqyWOJnDxS60r/SqXVeWF8idx19c0cdREHGcR32Pd9XRB6e8aEdPoB64tuaTeeSz+1mL3e6lr3KJuQ71b3EJ1CY8W16a+iSMaHinHi4tTU/1EHiMjR0y4MVGSLQQAAAAAAFWL/APB2cQ25S+RNiUuTBVve39MNhF3jW30FXHX2mVxH+Ps8HXFxaSJYhcJdy19915x8Sqly9v1XyJvkjbvXFJX7vH1THH1phb3y9WPobjXLnY5dKVfpbaSHCAXibuuprtCIpGhi0le4/iuEUkTri25pN557AT3W6mLpi7oNtSOcpO4xekS3iWuXX2xvOwjcZyGi09bnCwPlP9emxsTJdlCAAAAAABQtcg/EJxJnLN+irgHf20UW66/SMZ1dm8qy8ll4q6xDy6VPcXFpkki+WdcZ4E3XRzh4GJWQl+264854uVS6q310kqMr7uIqzu174irH0OlFku71K9S2l3asuPCbOIIj13EXWcbjeu7Rnyn3lBcm3JIvfPYW9xvpS6avJjbUOM8OmKZk8S1rQ92kTPExaWt4n+3FTsmSrKFAAAAAACgapF/IDid2B74enEP/druR7KxuOtug7uJu66++ZDEG6EuRk2wnbh2Y7y7aDxUXJu66jdyf3GxaLPc4+ticfWmFouPcTyCawOGdhIXv9S60q9SiQXqL4u7lrb7sJQ+BiGHe4u7vhI+Kq5NOaTuh7u630pdFIu4DTfOoyOWuV5WE9e+rtpMjhMXjy64SHZ3Y6IkWwgAAAAAAKoW+QeCU8XbyZ8R97CvS2IRIc4ddzFouueKu6Y++qGsJS5O4xZbbbs2991vxcWrlD5u13+THChd2o0h9/j6orh6U9teXP0Yuk5WERe/1LrSr1KInXL+Ie46uiISvNq4I8Zk4/yuEUd73UNcu1KL3bdcG+YjPhPXcL+VumjCL143xbiPjpjsIeLa2DXLyQvkanFx6Jo3y3JubJRgCwEAAAAAQNUi/0BwslgIPlHcw74uih0mHi8uFk32KXHX01e/liYmMXxeXHv7Lt56dfEqpc/b9cf8vp64uLRN7vH1UnH1pvYScfVjKHZNcrHLoSv9aiFWlEPEtb+LrpC2JrSGcX/X+Ja4dqW0lbi65+tX7ndSV034RewmaMLREZO9UVw7u2QDOV7c9XfZF2RVNz5ys4UAAAAAAKBqkX8ouEwsAJ8q7kFfl8VbWE8XF5OmOlfctfTZSVLqDd26LhTX1r7bR1y8SmC7/iVL/yyxGOTi0ya5x9cO4upN7Vhx9WModg9xscuhK/1qvtaW74lre5dFQuvjxMWk6ZrwXWNXcW1L5dni6p2vQ9zvpK6a8AvZTdCEoyMm+464dnbFA+UCcdfeByfIam6M5GQLAQAAAABA1SL/UDCsJCeIe8jXB5HE8BhxsWmajcVdA5Ys/bi4mI3DFuLaiEEfdjEr4T7i2tQ3sRX3NuJi1Aa5x1ckuZQ6biOOM3JtwNAjxMUutS71q/nYVH4vru190Kbvgss05btG7IS1vLg2pvAJcfXO117ud1JXTfjF7HFr0tERy8SRCovFtbftniHXi7vuPvmGrODGSS62EAAAAAAAVC3yDwXDkeIe8PXJNbKtuPg0yRPEtR8DTVl8eJq49vXdOeLiVcqLxbWrj2Lb9HuKi1PT5R5f8Qa6qze1OHvf1Y+hOGN/DXHxS60r/Wo+tpTYncW1u09iJ4adxMWoiZr0XSN2SXBtTOGP4uqcrw3d76SumvAL2uPUtKMjJtteXJvb7K3irrWvDnbjJBdbCAAAAAAAqhb5h4J7inu410fxgDSO0nBxaooPiGs7Bv4isaOIi11JR4hrX9/FW5QuXqV8QVy7+uoCuaO4WDVZ7vH1v+LqTe1Z4urH0C/ExS6H3P1qqbh6x+0O8jdxbe6jf8jm4mLVNE36rhFHWeRINtpQXH3z9Uf3G6nLJvyi9jg17eiIyV4qrs1ttJx8WNx19t2T3VjJwRYCAAAAAICqRaMPBeOs49hK3D3gyy3ecrtcYsE5Egfi/43//7Xi/vtSxr3AOpvTxLUbQ/uJi11JZ4lrW989XVy8SrlIXLtSiK3XT5/F7yTmujg2IOZA93dK+62UesM9ldzj62Hi6k2NRKfZvUdc7HLoSr+ai1gcjp1xXHtLulIiiWLZ98FxfTdd5mRZUVzMmqRp3zXeLK6dC7GXuLrm6xPuN1KXTfjF7XHZSW4Wt6jcBF8U1+62ieSFj4i7xnG4TP4if5S/yb/E/Xel/FM2ceMlNVsIAAAAAACqFo0+FHyLuId7qd0sJ0nUF2dZxxu/K4hrU7id3E+eKUfJeeL+bi4PEdeucbuNxBnNrs0pxN92i67TiQXbWGgIl8l/xP3d0s4QF79S1hfXrpQi5u6eNN2dxMWshNgi3cUyhUhGWFVcvTNZT7aTJ8u7JObJ2DLf1ZHTl8S1r4lyj6+I/+ri6k5tB4mkNDdWUogdNtw1pvJPcfWmtIu42KXWpX5VVyQunSquvTlFsupn5BkSY2C6BKrYTSk+M/aQg6R0W5u6Y8YyJb5rzNW/ZRNx7Z2v94mra76e5X4jddmEX+Aeh9UkFrDdgnJTXCKu7W3zAXHXV8I5cqg8UbaWODLEtXEF2UIeK7Erx5ni/l4uX3HjJTVbCAAAAAAAqhZVHwjGYvjV4h7upRIP7A+Tu8rU+ufqARLJDCXeWo63pJcX145x2k1ce1OJhTRX71zEQkTc711lf4l7lvrs4jruIa59JTxWXJtSuo+4ujG9WCxzsUzh5+LqnI915TnyS3F15fJcce1pmtzjq+SRBbl9UNw1pvIOcfW2USySu2tMpWn9ajn5iri25vIT+R+ZKYF1NlvL4XKDuDpSiqTMSHxz7WiCEt815iP1TmaniKtnvu7qfiN12YRfPB6HQ8QtJDfNVuLa3xavFnddOV0rcVzFfcS1qa4d5BhxdeSwsxszKdlCAAAAAABQtaj6QDDnYl6IbW23l6n1LlS8jfdtcXWmtK+4+sfpQHFtTeVQcfWmcDf5gJRYdAgvEdeOEt4rrk2pROLRQhaA+upIcfFMIXZPcHUu1MMljnhwdaYW/aoN577nHl8Hi6u3jWIHA3eNqTxSXL1t1Ld+FVv9u3bmELs1pT4+4+5SYkeGL4urvwly99n5il3XthHX5rmKpNiUuxJd4n4fdd2EXygurelHR0z2bHHX0Aaxm4G7ppw+JhuJa898RX+JnRxcfSn93I2ZlGwhAAAAAACoWlR9KJgzCSDeuI+tbafWmUq8ORhb+7q6U/m6uLrH6URxbU1lb3H1phQ7B8Q5167+lD4nrv4S4uxs16ZUYuy6ejGzs8XFM4XHiKszhcUSCRKu3tSavFi3TO7xtae4ettmLcl55FAsUq4tru426lO/imSCuH+unal9RFYR146FWk2+Kq7elOKYH1f/uOXuswvxPXFtnqtI4nN/f76+5H4fdd2EXyAuKcfREX8wZal8Utx1NF0c1/AvcdeUw9/kQeLaksK6crK4ulPKuguDLQQAAAAAAFWLhg8E43iEq8Q93Evh0TK5vlxSJzHEA/0/yzckjqxwdY5LnAV9jbh2p7KRuLpTiy2ZLxbXhlR+Ja7u3GJBJeXbgs4bxdWN6W0gLpap3FZcvSk9RXIuSC/zYHH1N0GJ8RV9xdXdNrmPHPq1uHrbqE/9Kuaqv4trY0rxfSqOkXJtSGlVieM5XBtSmRBX9ziV6LML9ShxbZ+L1N/zX+p+H3XdhF8cLin10REnyj5TylI6V9x1NNnK8mtx15PDT2Q9cW1JaS05Q1wbUvmsGzep2EIAAAAAAFC1aPhA8M63PsjLZWWZXF8usRPDt8S1YSZxjEEccfEliWMZnizxhl08EHb1NMGO4q4llT+JqzeX3cW1I5XzxNWb20PFtSelncXVjenF288ulin8TlydObxIXBtSOkFc3U2Qe3zFLh2u3jZ6m7hrTOXD4uptoz71q8+Ia2NqzxdXfw6RFHmduHak8B8pkaQ2FyW+ayzUmRI7CLn21/VdcX97vnZwv4+6bsIvDJeS+uiI6yV2GrjTpLIcNhZ3PU11sLjryOGrsqq4duRwZ7lGXFtS+I+s68ZOCrYQAAAAAABULRo+EMz94LPkm4Z3lOvFteNaiTPAPytvkljEjHOTVxT3t5rsleKuMZWjxNWb08/FtSWFf4qrM7foZ649qURfb3KiTVPF+fMunikcJq7OXL4grh0pLRFX97jlHl8fE1dvG/1Q3DWm8kRx9bZRX/rVLuLal1okz7j6c8o5x4f9xNU7Lrn7bCoLSWSJ5Ierxf3d+Yi/tdj9Puq6Cb8oXEKOoyPeLsv+/mW3luUQOzxMvpYm20FuEncdqX1fVhLXjpxeJ649qTzFjZ0UbCEAAAAAAKhaNHwo+DhxD/dSeY5Mri+3WEA8SWIRPhb64wiLO0kcleH++zb6irhYp/JscfXm9FZxbUnhcnF15vYdce1JJfq5qxczy7nFeBzt4OrMZRNJuajjfFRc3eOWe3w9XVy9bRNHDkUCn7vGVG4vru426kO/isTN2HnKtS+ln8gK4tqQUySzxrEVrk0pfFtcveOSu8+mconcRtw1zGZ7cX9zvr7nfhv1wYRfEC4h9dERf5ZIilj2948X99+l8EGZfC1NtbycJu4aUvu9xJEOrh25xX3/h7h2pTDhxk4KthAAAAAAAFQtGj4UzJ3AcJWwzX06cVTGP8TFOpWtxNWd0wHi2pLCH8XVmVMs2uReWH6XuLoxvdUl51nhm4urN6fcbxtfKXG2vKt7XEqMr9iK3tXdNvcTd32pjOuInhz60q/iTXjXtpTiu18kErj6SzhZXLtSiCMqVhFXb2mp+2wcq+bKU3m7uOuYzYvF/b35Wup+G/XBhF8Qzi310RHhkTK5jgPF/XcpnCGT62qqZ4hrf2pxhMNW4tpQyrvFtS2FH7mxk4ItBAAAAAAAVYuGDwV3vfVhXm6fkG1lct2Yu63FxTeVS8XVm1vOHRh+IK7OnFK/Leg8RlzdmN7DxcUyhb+JqzO3LcS1J6XdxdU9LrnH10Xi6m2jV4m7xlQ+I67eNupDv4pkpAvFtS+ll4mrv5Sc3ynCA8XVW1rqPvtGybl7RewGs5m4a5nJMeL+3nw93P026oMJvxicU46jI46VqfU8Rtx/m0IkX6wtU+tskjjK4Xxx7U/tBeLaUNJ9xLVtrv4lZ0rs4HGEvFHu7MZOCrYQAAAAAABULRo+FIy3Ad3DvVzOkDgT+f4S2xhPbgtm9zxxcU3ly+LqzS22mnbtSeFQcXXm9BJxbUnptuLqxvSWiotlCkeLq7OE08S1KZVxjKGZ5B5fXxBXbxt9Tdw1prKfuHrbqA/9qsTuC3+QOLrE1V/KnuLalkrE0dVbWuo+G7sIfXxKWWoT4q5lJn8R97fmI3ZhWsP9NuqDCb8YnNOh4haO5ysWnDeVqfVsJO6/T2Xqjg9Ns5+4dqd2ssRRFa4NJS0nl4pr4zI3SBw18iP5jLxDni+7y71kHTdGcrKFAAAAAACgatHwoeDy8k9xD/lyu0bi7fgDZQ+Zz1tZffNpcbFMZRxvTebe4nwfcfXmdKy4tqTyO3H1YmbfExfPFF4ors4SDhLXplQi8czVOy65x1dsV+7qbZs4cuhycdeYyj3E1d1GXe9X0R8iucC1LaW9xNVf0j3FtS2VQ8TVW1rKPhvfyaOPbCj/urUsl9g5wl2Ps5G4vzFfp7jfRX0x4ReDc3mIuIXlhXipuLrCBeL+TQoHiauzCWIxP/UuF9O5n7g2jMORcop8Sd4vL5e9ZUfZWEYSLdyYKMkWAgAAAACAqkXVh4NfFPeQbxxisSUWGd8jT5a7S5zxO7XNffVncXFLZYm4enNZU2Ix3rUlhZtkPXF15xRbhbv2pHKYuHoxvcWS83z7bcTVW8LjxLUplXhjdWVxdY9D7vF1H3H1tk18frrrSyU+ryMJ0tXdRl3vV7uIa1dKZ0oT+kR87rv2pfItcfWWlrLPniLL/u5rby3L5Ycy+Tpm8lhxf2O+3ud+F/XF1AXdjNaQePvdLYLP1+myWFx94Thx/y6Fn4irswl2E9fm1L4qrv7WcGOiJFsIAAAAAACqFlUfDsbbcu4hX1PEmbkny4dlX7mLTL2GPthEXHxS+bfEIq+rO4e15ARxbUnlu+LqzunO4tqS0t/l9IaJrepXEReTJthBXCxTiF1sxrlodzdx7Urp3uLqLi33+Iokl64kzcXxDu4aU/m6uHrbqA/9Ko65cW1LKRJPXd2lxRFlrn2pxGeeq7ek1H32cFn2t+OzPHfCbCQmTL6e6bxT3L+frz3d76K+cIu6mXxI3CL4fN0s8Wa9q2uZ14v7tyn8R1YRV++4fV5cm1PbSVz9reHGREm2EAAAAAAAVC2qPhyMRevzxT3oa6rL5JvyGtlR+rBLQxyF4GKRyvfF1ZtD7PRwtrh2pDSOrayfIa4tfRBv+LqYNMFLxbU5hZiLXJ2lrC6uXSnVXWzKLff4+o64etsozpp315hKfP66etuo6/1qDcm5A024RFYSV/84uDamco64OktK3Wcj4Wny33+CuP8ulTjOJBJNJtfpxG4N7t/P1wbud1FfuEXdDHIcHXG4uLom21Xcv03lQeLqHae15Fpx7U3pVHH1t4obEyXZQgAAAAAAULVo9AFh7GzgHvS1xZUSb4PGGdN3EneNbfdBcdeeylJx9aYSZys/UI6Rm8W1IaVYYCi5o8QyR4prT9fFPV1bXEyaIOdRObHdtquzpNipxrUtlf3F1Vta7vH1RnH1ttFfxF1jKg8QV28bdb1f7SmuXSm9S1zd45A7qetCcfWWlLrPxi5Fk/9+fGf7ibj/NpUDZHKdU8V3uNgdzP3b+Tjb/SbqE7eom1iOoyMukXXE1TfZuuL+fSqvE1fvOO0jrq2p7S+u/lZxY6IkWwgAAAAAAKoWjT4kjAeVPxD3wK+Nfitvk+3EXW8bxZbF7lpTebi4eucj+tNGEgtc8VbfUfJXcfXmEm8nurblVmJniSaKs89dPJriYnHtTmEncXWWdLm4tqWSO8Gprtzj6yHi6m2bTcVdXyrXycri6m6jrverj4lrV0r3FFf3OKwvro2pxLFBrt6SUvbZG8SN5+0lZ8LpP2SmxMc4usj9u/k60v0m6hO3qJtY6qMjwr7i6nL+KO5vpHC8uDrH6dPi2prSTbKBuPpbxY2JkmwhAAAAAACoWuQfFG4sF4l76NdmkcwQbw+vKe6622AtuUnc9aUSC9CRJDFff5J44zeO98jd1tmcKsuLi2VOtxPXnj44QlxMmuCu4tqcwn8kzgt39ZYUC0Gufak04e3q3OMrFvFWE1d32+Q+cujH4uptow3EXWMqTehX54prWypxHICrd1zuIa6dqYw7gSH1XPgrcfWESEB1/yaV94irNzxf3L+Zr2e430R94hZ1E8pxdMQPZDlx9TlHi/s7KVwpK4ird1wuFNfWlH4sru7WcWOiJFsIAAAAAACqFvkHhSG2kP2XuAd/bRcPnOMt4kgGcNfeZLuJuyaMulHirUEXx9weJ65NffBMcTFpgmeJa3MKPxVXZ2m55+1DxNVbUu7xdZK4etvoQ+KuMZW3i6u3jbrer2I3JNeulJp0fETI/Z3pPHH1lpK6z8Z84eoJkdx8tbh/l0IkAd5RXN2fEvdv5uvO7jdRn7hF3URyHB1xvdxNXH3Tebm4v5XKduLqHYctxLUxtVeJq7+ue8npLfArubsbN6nYQgAAAAAAULXIPyhc5oFypbiHf11wicSCZhxz4K6/ieI4DHctGPUGcTEs4X3i2tQHdxMXkyb4hLg2p3CQuDpLWlFc21Ka6S3ZUnKPryZcYypniLvGVP6fuHrbqOv96lHi2pVSJAy4uscldt1y7UzlN+LqLSV1n32SuHqWeZO4f5fK58XVGzt7uP9+PmKHOfubqE8m/AJzCjmOjnibuLpm8iBxfyuVA8TVOw5PFNfG1LYWV39dETP3d5vofW7cpGILAQAAAABAVTzEm8W9JI4DcA8Bu+LbsqG462+aH4q7BlR9UcZxdMQyp4hrV9fF8QVNTgj6o7h2p7C7uDpLirdXXdtSit1rXN0l5R5fe4irt21il6Gc59bH327jTkbT6Xq/eq24dqUSux6tIa7ucTlMXFtTOUFcvaWk7rN3ElfPMqvK+eL+bSr3k8l1riPuv5uvY8X+JuqTCb/AvFA5jo74k6wqrr6ZrC43ifubKXxeXL3j8HZxbUzpL+Lqnoucx3qktpcbN6nYQgAAAAAAUBUP8WpYV74k7kFgV/xd4tgMd/1NsZJcK679GIoFhXGeMx4LOLGQ49rWdd8UF5MmiCQl1+YUYiE3FllcvSU9RFz7UjpAXN2llBhf64uru21idwR3fanE7g6u3jbqQ7/6uLh2pXK6uHrH6WRxbU0ljjZw9ZaQus9eLK6eqZ4o7t+nEscxTU6E3EXcfzdfLxb7m6hPJvwC80LkODoi/D9x9dXxO3F/M4WLxNU5Dl8S18aU4n+u7rk4X9zfbqL13bhJxRYCAAAAAICqeIg3B3tJ7jevxinO9n2ouGtvgngrzbUbQ8fLOJMXwsPFta0Pxnlsx2xi/nJtTmHc24gv8zJx7UvpCeLqLiX3+DpLXL1t9HZx15jKTOflt00f+lUk97m2pTIhrt5xie8CuZNS3iyu7hJS99njxNUzVSQX/Ezc30hlb1lW3+tvLUvlPmJ/E/XJhF9gXoiPilsIXogviKurrk+I+7upbCmu3tJOFde+lPYTV3ddm4r7u030OzdmUrKFAAAAAACgKh7izVFsH/sSiR0L3IPBtrtK7i3u2sftVeLajIE4C3oFcbErKbbYd+3rgyYnAB0irs0pfERcnaV9Rlz7UrqvuLpLyT2+Piqu3jb6kbhrTGUfcfW2UR/61e/FtS2VOKLC1TsuJZIJx5nQlbrPvlpcPc4ScX8jlXMldh2Lur58a1kKkah8y/dE95uoTyb8IvN87SpuIXghrpJNxNVX1wvF/e1UniGu3tIuFde+lO4hru66niDu7zbRYW7MpGQLAQAAAABAVTzEm6d4sBiLF9+Vm8Q9KGyr8+S24q57nL4qrr19F8k0jxYXs3H4nrh2dl3MA007/3yyX4prdwpPEldnSfFWbInEstuIq7+U3OPrqeLqbZv4jL5O3DWmsqm4utuoD/0qjghwbUsljhZw9Y5LJDW6dqZ0N3F1l5C6zz5IXD3TiR033N9J5eUS9VwwqWyhviO3tN/9JuqTCb/IPB+3kRxHA7xEXH1zsYO4v53Kx8XVW9rN4tqXyg2yori663q/uL/dRPu4MZOSLQQAAAAAAFXLHuQt0AbyfDlRbhD30LBtxnmusROLk/8Q19a++o+8V9YSF7NxWCzxhp9rb9edJi4mTZD7fPvNxNVb0rbi2pbSn8XVXUqJ8XUncXW3zf3FXV8qfxFXbxv1pV/9U1zbUtlZXL3jEm/xu3amcoUsL67u3FL32fjuHjusubqmEwlM14j7eylEf73nlLKFepPc0n73m6hPJvwi83wcIW4ReCFOk8Xi6puLlSUW310dKfxRXL0lrS2ubSmdJa7uufiFuL/dRBu6MZOSLQQAAAAAAFXLHuQlFG/n7iGHyzniHiC2xQ7irnEc7i6ujX10rbxfmrBoPFXubZWb7MPiYtIEu4prcwrni6uztLeLa19K4z7jPvf4ih0sXL1tFNvBu2tMZdx9IaX4rHfXmEpT+pVrW0p3FVfvOMRRYK6NKX1dXN0lpJ4LfyGuntnkPnrlt6ZsIf57zJX7TdQnE36Rea5yHB0RuwncV1x983GKuHpS2VBcvaWsL65dKR0nru66VpMbxf3tpjnbjZfUbCEAAAAAAKha9iAvo41kbzlUYgv3Nu3QcJy4axqH/cS1sU/+KvGwfD1xMWqCl4lre0qnN9T/iItJE7xFXCxT+Iy4OkuKt4AjkcK1L6Xniau/lNzj6xhx9bbR18RdYyrxmeTqbaO+9KvYtci1L5XNxdU7DvGd07UxpQPE1V1C6j4b8XL1zGY1+Zu4v9k0sQtTtPeWtrvfRH0y4Rea5yLX0REfEVfffB0mrp5U9hJXbymbi2tXSrHLhqu7rgeL+7tN9DE3XlKzhQAAAAAAoGrZg7yCVpbt5TlymJwiuR+qz1c87NxQ3HWUlvus4aaKLZJj8efRsoK42DTJl8RdRyq/F1cvZnaCuHim0ISF3EeJa1tqtxdXfym5x9f+4uptm0houVzcNaYSuwK5utuoL/0q9zFU64irt7T4nnmZuDamNM5jQVL32SeKq6eOJ4v7m01zsvy33e43UZ9M+IXmuchxdESIYxlOT+jv4upJ5f3i4lPKeuLaldJ7xNVd12vF/d0meoobL6nZQgAAAAAAUDX5Yd4YrSix3e+ypIZT5SZxDyBLe7a4NpcW54279nXNdfIzebfEomwsRLh4NNUl4q4rlY+KqxfTi7PCc57TfQ9x9Zb0Y3FtSyl20HF1l5R7fG0nrt62iT7pri+VSI5YTlzdbdSXfpX7e8Ta4uot7Zni2pfSr8TVXUrqPruQ3TNiLogjKNzfbZL3yH/b7X4T9cmEX2iuK8fREW11qrgYlbKquHaltFRc3XV9XdzfbaJN3XhJzRYCAAAAAICqyQ/zGmYN2UX+V74v49ql4VPi2lfSpuLalkoc6+GOBEjpJDlRviKxo8KR8i55lTxdHiZ3kHhz2MWgDeL8bxfflJ4qrm5M777iYplCLOSOu8/Gmd6ubam9VFz9peQeX1dJG3Z5qSP3kUNxPIWrt41y96srpSn9KpJDXRtT2UxcvaX9Wlz7UhrnfJi6z8YREK6eubi/uL/dJHvIf9vsfhP1yYRfaK4j19ERbXWTRExcrEqJNri2pbKQHRiWk3+I+7tNc64bKznYQgAAAAAAUDX5YV7DrS5xjEC8gR4LTe7hZA7xINy1p6R9xLUtlXh729WLuXmWuPimdEdxdWN6LxcXyxS+Lq7OUuLN19gZwbUtpUggW09cG0rJPb6OF1dvG31G3DWm8mpx9bZRn/rV58W1MZXYScvVW9Ju4tqWUuwUta64+ktI3WePFlfPXH1O3N9vivXlv+11v4n6ZMIvNteR6+iINttNXKxKyX1MxmfF1VvHncX9zSY6yo2VHGwhAAAAAAComvwwr0VWk5fJ1eIeUqZ0hbg2lPQhcW1L5R3i6sXcfEJcfFO5QFy9mNmXxcUzhdeIq7OUEkkzoQk70eQeX68XV28bnSfuGlOJt61dvW3Up371ZnFtTOWx4uotpdRRBh8XV38pqfvsC8XVM1exA8e14uoYt7Ok0l73m6hPJvxi82w4OsI7UFy8SjlRXLtS+bW4euuIHRiOktMT+ae4NqbwdDdWcrCFAAAAAACgauoDvUk2kDhH+xES29bHQt37Jbb/jzf2/yAbifu3pWwv8Sace1iZkqu7pDPEtSuV/yeuXszNH8XFN5VUb0n2zaXi4pnCA8TVWcKG8k9x7Urt7uLaUFLu8fVgcfW2ze3FXV8q8Zm7kri626hP/eoJ4tqYylvE1VtKJFC4dqV0s9xNXP2lpO6z24irZz6iD7g6xu0IqbTV/Sbqkwm/2DyTtYWjI7wfiotZKYeLa1cqN8u64uouaQ25TFwbU9jcjZUcbCEAAAAAAH22aMnSFWUTWSJxHMPzZKkcJl+VkyXOwr1e3APAqWIXhMoDwTE4VFzbUnL1lrKWxANz164U4m9HHa5u1BeLyS6+Kb1IXN2Y3lbiYplCLOSuLK7e3OJN42+Ia1dqXxTXhpJyj6/4zFtVXN1t80Rx15jKj8TV20Z961ebimtnKj8UV28JMRfnTkYJcUyCq7+U1H02kuCWF1fXfMRxb38XV9c4PU0qbXW/k/pkwi8QzyTeoneLvpiYuE5WEhe3EvYX166Unieu7pLeKq5tKfzVjZNcbCEAAAAAAH2zaPBgMhagLhH3UG8hzpdxv4m5j7i2pXKVuHpLid0RXLtSid0dXL2Ym8eLi29KKd+S7IvniItlCuNcyH2buDaldoPcWVwbSso9vn4urt42+rC4a0zl7eLqbaM+9qvYPcu1NYWbJBbYXb25xVFYrk0pxXy4pbj6S0ndZ78prp6FeLq4usZpC6m00/1m6pMJv0A8nd3FLfpi6AHiYlfCduLalNKZEsdBuPpL2EoiUcS1LYUJN05ysYUAAAAAAPTNosHDVvcwL5VxnwGfe4H/z+LqLSUWi1y7UvmQuHoxN3G8iotvKldKyrck++KT4uKZwjgWcmPnhdzn2E92sLh2lJZ7fL1LXL1t9Gtx15jKbuLqbaM+9qtok2trKuM4RiKOOsu5U9Uy7xZXf0mp++xrxdWzEPFd5Zfi6huHC2Wkne43U59M+EViJ46OuEDcoi+GXiMufiUsL5eIa1dKzxRXf24ryyni2pTKs904ycUWAgAAAADQR4vybqv7H7mvjDwcLOQN4tqVyrfE1VtKvOXt2pVK7GDh6sXc/EpcfFMZdz9sqz+Ji2cKkTzl6sxlbfmCuLbkcJ6sIa4tpeUeX48RV2/bRB/JuZAbb9h36cihPvare4lrayr/ko3F1Z1DXE8k+Lm2pBQ7jq0prg0lpe6zDxRXz0LF33X1jcPnZaSN7vdSn0z4hWKHoyPq+bq4+JVyhLh2pXS5bCau/lxi14dPiWtPSlu6cZKLLQQAAAAAoI8WLVl6iLiHeqlcKtvKyAPCzGJx7W/i2pRKvO3s6i4hjueIc/Zdu1LZRFzdqC/6YSzsufimkuMtya7bSFwsU4hF4lILufE2674Sb5G6tuQSbzW79pRWYnzdVlzdbfNIcdeXyuni6m2jPverk8W1N5Xvygri6k7p3hLfP10bUttVXBtKSt1n4/vlKuLqSuEYcfWWtr+MtM/9XuqTCb9YPBVHR9R3hcROCC6OJewkrl2pnSpriWtDahHPj4hrR0oXuTGSky0EAAAAAKCPFg3OzncP9VKKt+6eICMPCTNZWb4hri0pPUhc/SXcX1ybUhn38RhdEQsbLr4p7SSubkxvb3GxTOEMcXWmtLo8U34nrg05vU9cm8Yh9/g6U1y9bfQOcdeYygfF1dtGuftVjFtXbxM8XlybU/qMrCiu/hSeJP8WV3dqTen3qfvsT8TVk8rmkjsJt47tZKR97vdSn0z4BePJODpi7u4lLpYlxE4FvxHXrtR+JuuJa0cqkSTxVXH1p3a0GyM52UIAAAAAAPpq0ZKlPxT3YC+1r8rWMvKwMKG7S+6tn8NfJM6cd20o4dXi2pXKp8XVi7mJM79dfFOJY1pyviXZVYeKi2cKHxJX50LdTp4useX1VeLqzu0kiQQx175xyD2+DhNXbxv9WNw1ptKlI4f63K9iV5fYTcO1O6U4AutO4towX5tJyaN04rtmU+bD1H32IHH1pJQ7qWo28TlqdwNxv5X6ZMIvGk/G0RFz90JxsSzlaeLalcP58ghx7VioPeWv4urNYT83RnKyhQAAAAAA9NWiJUsfJe7hXg6xvXrsjhBvQMdbxCMPDucptgs+Sm4UV29qS8W1o5SviWtXKs8VVy/m5gRx8U0l91uSXXWquHimsJCF3DgaJhbhdpQ95Y1yrJwjrq6S/i5x9IZr97jkHl9PEVdv28QiK0cO1df3fvUwce1O7VqJHV0WmsgQx5R9VK4XV08Ol8gdxLVnHFL32ThyxtWT0ppykbj6SzheXLvsb6U+mfALx8vkOjriX3L6GF0url2pHC0unqWsIL8T17ZcTpRHyYri2lTXyrK3nCSunpy2cmMkJ1sIAAAAAECfLRqcS+we8OUUb4+fKPEW1lPlgbKxjDxMnCL+m/hv423kj8gfxf39XK6U9cS1rYTY+eFycW1L5W7i6kZ9sUX2NeLim0r0g3hbtm3sudOF3EZynm9/trhrduKoltjN5Qr5p7i/1wQx58VxQy6e41JifMU2567utnmAuOtLpUtHDi0W+tWSpRPi2p7LyXKgREJtJDRMd8REJHndSyJRLHbSifnT/b2cIhmoSUc3pZ4LI9F4bXF1pRZHIbk2lPAGcW2yv5P6ZMIvIoecR0fEDgGuzlLeLK5dqUTcXL0lPUxc23K7VCKB4wXyINlA4lgL18awruwsL5Jj5Apxfze3aPdybozkZAsBAAAAAOizRUuW3kNuEPeQbxxiMe9CiYWRSFA4/9ayJpyZ+1IZeeBZUNwr165ULpNxHo/RFfEWvYsvliz9m7iYlbCbuDbBi4WxJi3WLZN7fI2zj6b2GnHXmEqXjhyiXw2sI9FWdw2lxC4HkaAQO9BEWyKRyv13JUXy2+PExWxcUvfZX4urJ4c4siTnjkgz2Vlcm+zvpD6Z8IvKIdfREfGm/kwL2iXk2llisjuKq7ukI8W1rbQb5O/yF/m9nCOXyHXi/vtxONaNj9xsIQAAAAAAfbdoydLXi3vIh6Gfiz0zt6D9xLUtla+Iqxdz8wpx8cWSpUeLi1kJ8ZavaxNGxYJhE5MXQu7xNc4+mtrXxV1jKs8TV28b0a+GYmG85LEMTRfJC08WF6txSt1nPyyunlweJK4dOUW/Xk1ce+xvpD6Z8AvfuRb4r5etxdVZ0obi2pfSU8XVXdIacpa49qHqRW585GYLAQAAAADou0WDN6G+Ie5hH5YsvVTifPqRh52FfUZc+1KJh+GuXszNceLiiyVLXyQuZiXEsTWuTaiKHXC2FxfDJsg9vl4ort62ic/13EcObS2u7jaiX1XtK+46+iaSF54lLkbjlrrPxvEcrp6cviSuLbmcJK4dt3C/kfpkYnTR+7ZyobhF3oV6m7g6x+F8cW1M5Qhx9Za2lVwpro0YuqcbH7nZQgAAAAAAcEsSw5pymrgHfn0W26jfX0YedI7BeeLamEq8denqRX1xBEckvLj4YsnSe4qLW25xfnru8+27ID4DmpCsNZ0S42sbcXW3Te4jh/4hXTlyiH7lvUzctfRFvK2/l7jYjFuOPrupuLpyupP8R1x7cniXuHbcwv0+6pOJ0QXvz4hb4F2oc2VVcXWOw5fEtTOV2PnA1TsOO8k14tqJiYnLZXk3PnKzhQAAAAAAYGDRkqXrS5yB6x769VEseD5URh5yjsHtxbUxlbjWFcXVjfq2EhdfDN4Gj7fCXdxyy32+fRccJquIi19T5B5fcXTGuPpoas8Xd42pfFVcvW2Uu1/9U9rar14i7pq67hKJIw5cTJogdZ/9i7h6SninuDbl8BhxbbiF+23UJxPVhe49xC3wpvBImVrfOL1GXDtTWl9c3ePwUCGJwTvOjY0SbCEAAAAAABhatGTpWnKCuAd/fRJvtt1PRh5wjskTxbUzlR+Iqxdz8xxx8cWSpV8RF7MSXimuTViy9CLZU1zcmib3+PqmuHrb6LPirjGVV4mrt43oVzOLowWuFXdtXfQr2VxcLJoidZ+dEFdPCbeRi8W1K7XbimvDLdzvoj6ZGC5wx9ERF4lb4F2oY2VyXU2wi7i2pvRYcXWPy30k1/EgbfYSNzZKsIUAAAAAAKBq0ZKli+W9crO4B4Bd9wtp2sPrD4traypvFVcv5uaT4uKLJUtfIS5mJUTyhGtTn8X8/nGZcUGnYXKPr9eKq7eNzhd3jak0KcFvoehXs9tB4i19d31d8j6JI4dcDJokdZ99nrh6SimR/HmmuLr/y/0m6pOJ4eJ2rqMj/iWbyuS6mmAtce1N6WBxdY/TxvITce1tq7iet04pm4t7u7FRgi0EAAAAAABVkx7mPUTOE/cgsItukgOliUcp5D7aY1dx9WJu/iQuvliydIm4mOUWZ4VfJq5NffUzGdf9WIjc42sncfW2zWbiri+VeBu/DYu8ddGv6llHPi/uGtvuj9Km+5S6z24trp5SVpDc33MPF1f3f7nfRH0yMVjUznl0xEtl8gJ6k/xRXJtTOUVcveO2WF4v/xHX7jZ5n6wk95hUNhdXygpubJRgCwEAAAAAQNWUB3prSizqXyPugWBXnCRNXdBbW3LuhhGJG2uIqxv1bSwuvliy9GqJnV1c3HKLhRnXpj46TR4tLk5Nl3t8/UdWEVd32zxJ3DWm8kNx9bbRRuKuMZUu9atl9pILxF1v2/xbXidtukep58J/SCT6ubpKeqi49qWyr7h6/8v9JuqTibxHR5wusVg+dQG9KXLtOrHMjbKGuLqbYCv5ubi2N935sqssu5bl5GJx/+1Mvu7GRSm2EAAAAAAAVLmHerKJfES6dg5ybLMdDzWb8PB2Oo8U1/ZU4rxnVy/m5gni4oslS78jLmYlxNbYrk19coLsJk2e52aTe3z9VFy9bRSf1e4aU3mbuHrbiH41P8uSWyM5zV1300ViySESCSzu+posdZ+NI5ZcPeNwnLg2pnBHcXX+l/tN1CcT+Rbxb5YdZdkCcxPF7hCu7SntIq7upoiF/yfJueLa3zTXy7tlTZl6LUeL+zczeYUbF6XYQgAAAAAAUOUe6k2yvvyvXCjuAWFb/FLiLdVxvRU+F+8Qdw2pxEN8Vy/m5gPi4oslS98gLmYlfFpcm7ou5uiD5W7i4tI2ucfXQeLqbaPfiLvGVCIZxtXbRvSrhbmdRCJDW47puVziO1XsYuCupw1S99lXiqtnHLaU68W1cyFixxBXX4X7TdQXE3mPjjhcpi4wN80DxLU9pTeLq7tp4hiG/aWpiQyRuHCYbCau/WE/cf92Jvd1Y6MUWwgAAAAAAKrcQz0jzquNRYzPSlvewLtY4sHvjuKuqal+LO56UontoF29mJvYnt/FF0uWPlhczEr4s7g2dVGc4x4JSbEVd8zRLh5tlXt8PUpcvW2zjuQ+cmgtcXW3Ef0qjVXl+XKyuDiMU/TZ2IXmKRLtdO1vk9R9tmnfid8jrp0LcbS4uircb6I+mMh7dMQlso5MXWBumtXlJnHXkMoJ4upuquUlElui3bGLhrumki6Tg2WmxIVl7izub0znalnsxkcpthAAAAAAAFS5h3qzWFl2lffL78U9PByHWMSJnRbeKW1d0IsdInIf27GhuLpR3+oSiyQuvn13nYzrfPHo265NbRcxPUu+LvE28d7Sxq3Q68o9vuKzYl1xdbdNJBa6a0wlFk9dvW1Ev8pjC3mNxPevcX0u/ltiftxPNhDXzjZK3WevkZXE1TUua8ul4to7Xy8UV1eF+03UBxMTE++YtJCb2r4ydXG5qX4t7hpS+besIK7upttYXi4nSclkhojZV+TxEjtDuLZN52/i/qZzvBsbJdlCAAAAAABQ5R7qzdFtZXeJbYXjPNt4Kzj3Q+wb5Rz5grxeHildWTh4i5yeybfE1Ym5e7e4GPfdhLh4lXK4RDv+IH+Zo/Pkn/MQCQZungrxf5v838aW5lHX7yQW/E6Ur8nnJHaMieM3YhHu8XJ/afPW5wuRc3w16Qz4hYo3zL8p7jpTGOdxMDnk7Ffx/cfV2SexW0fsQhFv1f9IYr5z8+JC/Um+JK+WB0gk1rr2dEHKPnuUuDrG7Rni2jtfdxdXT4X7TdQHExMT28rpGXxOlpOpC8tNdaC460jlTeLqbZt1JXZm+ID8Sq4RlxQwH/+SH8t75eGysrg21BH/c3U4r3FjoyRbCAAAAAAAqtxDvQTiDew4i/0R8mx5kxwqcT59vCUXi3Y/k6kPHU+R+L+FWAw4UuLh7WvlmRI7K9xJVhRXLwAAAJohdot5uDxLXicfkkg+/Z7Ed7343jf5e2Ds+hHlkWj0KYldtV4mj5NtZQ1x9QBz4n4T9cmEXwQGZhO7SsSRDXvKAXKQfEq+LSfKybIsieOXt5YdL5Hg8k7ZXx4rd5U4tsLVMR97yeQEkpns4MZESbYQAAAAAAAAAAAAAACgJFsIAAAAAAAAAAAAAABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACUZAsBAAAAAAAAAAAAAABKsoUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJthAAAAAAAAAAAAAAAKAkWwgAAAAAAAAAAAAAAFCSLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRkCwEAAAAAAAAAAAAAAEqyhQAAAAAAAAAAAAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2EAAAAAAAAAAAAAAAoCRbCAAAAAAAAAAAAAAAUJItBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAAlGQLAQAAAAAAAAAAAAAAyvm/Rf8famyMoDPfPE4AAAAASUVORK5CYII= + + + 0, 0 + + + 0, 0 + + \ No newline at end of file diff --git a/SDL/Reports/MDM/rptMWSTListe.vb b/SDL/Reports/MDM/rptMWSTListe.vb new file mode 100644 index 00000000..33931dd8 --- /dev/null +++ b/SDL/Reports/MDM/rptMWSTListe.vb @@ -0,0 +1,6 @@ +Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports.Document + +Public Class rptMWSTListe + +End Class diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 5ec79769..acb77eb5 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -917,6 +917,12 @@ True Resources.resx + + rptMWSTListe.vb + + + Component + usrCntlFakturierung.vb @@ -3469,6 +3475,9 @@ subrptBriefSDL_PLOSE_MEDPASS.vb + + rptMWSTListe.vb + rptKontrolleLKW_TELOTEC.vb diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 0bf430cd..11e50c75 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -2787,7 +2787,7 @@ Public Class frmMDM_USTVAntrag If (dgvUSTVPositionen.SelectedRows.Count <> 1 And counter <> dgvUSTVPositionen.SelectedRows.Count) Then posId &= "," Next - func.generateExcelPosList(USTV_ANTRAG, posId, Antrag_LandKz, txtStNr.Text, True) + func.generatePosList(USTV_ANTRAG, posId, Antrag_LandKz, txtStNr.Text, True, "excel", Nothing) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb index ecca9024..7654455d 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb @@ -1,5 +1,6 @@  +Imports com.sun.xml.internal.rngom Imports iTextSharp.text.pdf Imports iTextSharp.text.pdf.parser Imports System.IO @@ -1031,14 +1032,15 @@ Public Class cMDMFunctionsAllgemein End Function - Shared Function generateExcelPosList(USTV_ANTRAG As cUSTVAntrag, posId As String, Antrag_LandKz As String, SteuerNR As String, openFile As Boolean) As String + Shared Function generatePosList(USTV_ANTRAG As cUSTVAntrag, posId As String, Antrag_LandKz As String, SteuerNR As String, openFile As Boolean, type As String, ByRef dt As DataTable, Optional isVZ As Boolean = False) As String Dim sql As New SQL Dim sqlWHere = "" If posId <> "" Then sqlWHere = " And UStVPo_ID in(" & posId & ")" - + ElseIf isVZ Then + sqlWHere = " and UStVPo_VZ = 1 And UStVPo_VZ_RKID is null" End If Dim StringSQL = "SELECT [UStVPo_ID] as Number ,[UStVPo_ReDat] as 'Date of Invoice',[UStVPo_ReNr] as 'Number of invoice' ,[UStVPo_Leistungsbezeichnung] as 'Name of service',[UStVPo_Leistender] as 'Name of supplier',leist.[UstV_Leistender_Strasse] + ' ' + leist.[UstV_Leistender_StrasseNr] as Street, @@ -1053,46 +1055,65 @@ Public Class cMDMFunctionsAllgemein Dim dtNew As DataTable = sql.loadDgvBySql(StringSQL, "FMZOLL") + + If dtNew IsNot Nothing AndAlso dtNew.Rows.Count > 0 Then + If type = "excel" Then - Dim sumVAT As Double = 0 - For Each row In dtNew.Rows - If Not IsDBNull(row("Amount of tax refund")) AndAlso IsNumeric(row("Amount of tax refund")) Then sumVAT += CDbl(row("Amount of tax refund")) - If Not IsDBNull(row("Amount of tax refund")) AndAlso IsNumeric(row("Amount of tax refund")) Then row("Amount of tax refund") = CDbl(row("Amount of tax refund")) - If Not IsDBNull(row("Name of supplier")) AndAlso row("Name of supplier") <> "" AndAlso Not IsDBNull(row("VAT")) AndAlso row("VAT") <> "" Then - row("Name of supplier") = row("Name of supplier").ToString.Replace(" " & row("VAT").ToString.Substring(0, 2), "") + Dim sumVAT As Double = 0 + + For Each row In dtNew.Rows + If Not IsDBNull(row("Amount of tax refund")) AndAlso IsNumeric(row("Amount of tax refund")) Then sumVAT += CDbl(row("Amount of tax refund")) + If Not IsDBNull(row("Amount of tax refund")) AndAlso IsNumeric(row("Amount of tax refund")) Then row("Amount of tax refund") = CDbl(row("Amount of tax refund")) + If Not IsDBNull(row("Name of supplier")) AndAlso row("Name of supplier") <> "" AndAlso Not IsDBNull(row("VAT")) AndAlso row("VAT") <> "" Then + row("Name of supplier") = row("Name of supplier").ToString.Replace(" " & row("VAT").ToString.Substring(0, 2), "") + End If + Next + + Dim drLast = dtNew.NewRow + If dtNew.Columns.Contains("Number") Then drLast.Item("Number") = dtNew.Rows.Count + 1 + If dtNew.Columns.Contains("Date of Invoice") Then drLast.Item("Date of Invoice") = DBNull.Value + If dtNew.Columns.Contains("Number of invoice") Then drLast.Item("Number of invoice") = DBNull.Value + If dtNew.Columns.Contains("Amount of tax refund") Then drLast.Item("Amount of tax refund") = sumVAT + If dtNew.Columns.Contains("Name of supplier") Then drLast.Item("Name of supplier") = DBNull.Value + If dtNew.Columns.Contains("Street") Then drLast.Item("Street") = DBNull.Value + If dtNew.Columns.Contains("City") Then drLast.Item("City") = DBNull.Value + If dtNew.Columns.Contains("Country") Then drLast.Item("Country") = DBNull.Value + If dtNew.Columns.Contains("ZIP-Code") Then drLast.Item("ZIP-Code") = DBNull.Value + If dtNew.Columns.Contains("VAT") Then drLast.Item("VAT") = "SUM" + If dtNew.Columns.Contains("Name of service") Then drLast.Item("Name of service") = DBNull.Value + + dtNew.Rows.InsertAt(drLast, dtNew.Rows.Count) + + Dim header1 As String = "" + Dim header2 As String = "" + Dim AD As New cAdressen(USTV_ANTRAG.UStVAn_KuNr) + If Antrag_LandKz <> "" Then + header1 = "Statement itemising VAT amounts relating to the period covered by this application" + header2 = "VAT NO.: " & USTV_ANTRAG.UStVAn_Steuernummer & " " & "Name/Company: " & AD.Name_1 & " " & AD.Name_2 & " " & "VAT in " & Antrag_LandKz & ": " & SteuerNR End If - Next - Dim drLast = dtNew.NewRow - If dtNew.Columns.Contains("Number") Then drLast.Item("Number") = dtNew.Rows.Count + 1 - If dtNew.Columns.Contains("Date of Invoice") Then drLast.Item("Date of Invoice") = DBNull.Value - If dtNew.Columns.Contains("Number of invoice") Then drLast.Item("Number of invoice") = DBNull.Value - If dtNew.Columns.Contains("Amount of tax refund") Then drLast.Item("Amount of tax refund") = sumVAT - If dtNew.Columns.Contains("Name of supplier") Then drLast.Item("Name of supplier") = DBNull.Value - If dtNew.Columns.Contains("Street") Then drLast.Item("Street") = DBNull.Value - If dtNew.Columns.Contains("City") Then drLast.Item("City") = DBNull.Value - If dtNew.Columns.Contains("Country") Then drLast.Item("Country") = DBNull.Value - If dtNew.Columns.Contains("ZIP-Code") Then drLast.Item("ZIP-Code") = DBNull.Value - If dtNew.Columns.Contains("VAT") Then drLast.Item("VAT") = "SUM" - If dtNew.Columns.Contains("Name of service") Then drLast.Item("Name of service") = DBNull.Value + Return cProgramFunctions.genExcelFromDT_NEW_(dtNew, {"K1:K" & (dtNew.Rows.Count + 1)},, header1, header2, IIf(USTV_ANTRAG.UStVAn_Währungscode = "EUR", "€", ""), True, "J", True, True, openFile) + + Else + + + If dtNew.Columns.Contains("Number") Then + dt = dtNew + Return "prt" + Else + Return "" + End If - dtNew.Rows.InsertAt(drLast, dtNew.Rows.Count) - Dim header1 As String = "" - Dim header2 As String = "" - Dim AD As New cAdressen(USTV_ANTRAG.UStVAn_KuNr) - If Antrag_LandKz <> "" Then - header1 = "Statement itemising VAT amounts relating to the period covered by this application" - header2 = "VAT NO.: " & USTV_ANTRAG.UStVAn_Steuernummer & " " & "Name/Company: " & AD.Name_1 & " " & AD.Name_2 & " " & "VAT in " & Antrag_LandKz & ": " & SteuerNR End If - Return cProgramFunctions.genExcelFromDT_NEW_(dtNew, {"K1:K" & (dtNew.Rows.Count + 1)},, header1, header2, IIf(USTV_ANTRAG.UStVAn_Währungscode = "EUR", "€", ""), True, "J", True, True, openFile) End If + End Function End Class