diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 85abcdfa..2b335f25 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -4,9 +4,11 @@ Imports System.IO Imports System.Net Imports System.Web.UI.WebControls.Expressions Imports com.sun.org.apache.xpath.internal.operations +Imports javax.print.attribute.standard Imports Microsoft.Office.Interop Imports s2industries.ZUGFeRD Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.TESTJSON Public Class cFakturierung @@ -796,7 +798,9 @@ Public Class cFakturierung 'Änderung Ticket_Nr.: 6983 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR90 0006 2001 6040 0009 0804 66" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim - rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR67 0006 2000 5440 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim + 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR67 0006 2000 5440 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim + 'Änderung Ticket Nr.: 18615 + rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: 60 0006 2001 6750 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim rpt.picVERAG.Size = New SizeF(2.712, 0.61) rpt.txtDisclaimer.Text = rpt.txtDisclaimer.Text.Replace("Schärding oder Passau", "Bad Reichenhall") Case 26 @@ -849,33 +853,6 @@ Public Class cFakturierung End If - Case 19 'MDM - - rpt.txtDisclaimer.Text = "Wir arbeiten ausschließlich aufgrund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf unsere Rechnungen, Spesen und Zinsen, zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding. Steuer-, Zoll- und Tarifauskünfte sind unverbindlich." - - If Rechnung.RechnungsLandKz = "TR" Then - rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim - rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim - - rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) - rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) - - If Not hasEUSTZOLL(Rechnung) Then - - rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy " & vbNewLine & "EUR-IBAN: TR96 0006 2000 5440 0009 0672 28" & vbNewLine & "SWIFT: TGBATRISXXX | Kto: 544" - - End If - Else - rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim - rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim - - rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) - - rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) - End If - - - Case Else 'VERAG If Rechnung.RechnungsLandKz = "TR" Then @@ -910,6 +887,100 @@ Public Class cFakturierung End Select + End Sub + + + Shared Sub initRgFirma_MDM(ByRef rpt As rptRechnungDruck_MDM, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, Rechnung As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) + + rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "") + rpt.lblFirmaStrasse.Text = If(FIRMA.Firma_Straße, "") + rpt.lblFirmaTel.Text = If(FIRMA.Firma_Telefon, "") + rpt.lblFirmaFax.Text = If(FIRMA.Firma_Telefax, "") + rpt.lblFirmaEmail.Text = If(FIRMA.Firma_E_Mail, "") + rpt.lblFirmaWeb.Text = If(FIRMA.Firma_Webadresse, "") + rpt.lblFirma.Text = (If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")).ToString.Replace(" (DE)", "") + If FIRMA.Firma_ID = 1 Then rpt.lblFirma.Text &= vbNewLine & "D-94152 Neuhaus/Inn, Hartham 6" + + rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim + rpt.lblUID.Text = If(FIRMA.Firma_UID, "").ToString.Replace("UID:", "").Trim + rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "").ToString.Replace("EORI:", "").Trim + + If FIRMA.Firma_ID = 4 Then + rpt.lblEORIUeberschrift.Text = "St-Nr.:" + rpt.lblFirma.Visible = False + rpt.Line15.Visible = False + End If + + rpt.txtBank3.Visible = False + + + + If hasVK(Rechnung) Then + rpt.txtBank1.Text = "Volksbank Oberösterreich AG" & vbNewLine & "IBAN:AT35 4480 0365 7822 0002" & vbNewLine & "BIC: VBOEATWWOOE" + rpt.txtBank2.Text = "" + Else + If hasEUSTZOLL(Rechnung) Then + rpt.txtBank1.Text = "Volksbank Oberösterreich AG" & vbNewLine & "IBAN:AT62 4480 0365 7822 0001" & vbNewLine & "BIC: VBOEATWWOOE" + rpt.txtBank2.Text = "" + Else + rpt.txtBank1.Text = "Volksbank Oberösterreich AG" & vbNewLine & "IBAN:AT89 4480 0365 7822 0000" & vbNewLine & "BIC: VBOEATWWOOE" + rpt.txtBank2.Text = "" + End If + End If + + Select Case FIRMA.Firma_ID + + Case 19 'MDM + + rpt.txtDisclaimer.Text = "Wir arbeiten ausschließlich aufgrund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf unsere Rechnungen, Spesen und Zinsen, zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding. Steuer-, Zoll- und Tarifauskünfte sind unverbindlich." + + If Rechnung.RechnungsLandKz = "TR" Then + rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim + rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim + + rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + + If Not hasEUSTZOLL(Rechnung) Then + + rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy " & vbNewLine & "EUR-IBAN: TR96 0006 2000 5440 0009 0672 28" & vbNewLine & "SWIFT: TGBATRISXXX | Kto: 544" + + End If + Else + rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim + rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim + + rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + + rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + End If + + Case Else 'VERAG + + If Rechnung.RechnungsLandKz = "TR" Then + rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim + rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim + + rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + + If Not hasEUSTZOLL(Rechnung) Then + + rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy " & vbNewLine & "EUR-IBAN: TR96 0006 2000 5440 0009 0672 28" & vbNewLine & "SWIFT: TGBATRISXXX | Kto: 544" + + End If + Else + rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim + rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim + + rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + + End If + + End Select + + End Sub Shared Sub initRgFirmaSammelRg(ByRef rpt As rptSammelRechnungDruck, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RechnungsNr As Integer, RechnungsLandKz As String, Buchungsjahr As Object) @@ -945,7 +1016,9 @@ Public Class cFakturierung 'Änderung Ticket_Nr.: 6983 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR90 0006 2001 6040 0009 0804 66" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim - rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR67 0006 2000 5440 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim + 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR67 0006 2000 5440 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim + 'Änderung Ticket Nr.: 18615 + rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: 60 0006 2001 6750 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim rpt.txtDisclaimer.Text = rpt.txtDisclaimer.Text.Replace("Schärding oder Passau", "Bad Reichenhall") Case 26 'VERAG-UNISPED" rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim @@ -1040,7 +1113,8 @@ Public Class cFakturierung rpt.txtBank3.Visible = True 'Änderung Ticket_Nr.: 6983 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR90 0006 2001 6040 0009 0804 66" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim - rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR67 0006 2000 5440 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim + 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR67 0006 2000 5440 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim + rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: 60 0006 2001 6750 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim rpt.txtDisclaimer.Text = rpt.txtDisclaimer.Text.Replace("Schärding oder Passau", "Bad Reichenhall") Case 20 '"IMEX" @@ -1093,6 +1167,8 @@ Public Class cFakturierung Shared Sub initRgFirmaSammelRg_MDM_Bericht(ByRef rpt As rptSammelRechnungAnlagenDruck_MDM, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RechnungsNr As Integer, RechnungsLandKz As String, Buchungsjahr As Object) + 'ACHTUNG MDM verwedet auch AG und GMBH!!! + rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "") rpt.lblFirmaStrasse.Text = If(FIRMA.Firma_Straße, "") rpt.lblFirmaTel.Text = If(FIRMA.Firma_Telefon, "") @@ -1133,7 +1209,8 @@ Public Class cFakturierung 'Änderung Ticket_Nr.: 6983 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR90 0006 2001 6040 0009 0804 66" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim - rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR67 0006 2000 5440 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim + 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR90 0006 2001 6040 0009 0804 66" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim + rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: 60 0006 2001 6750 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim rpt.txtDisclaimer.Text = rpt.txtDisclaimer.Text.Replace("Schärding oder Passau", "Bad Reichenhall") Case 20 '"IMEX" @@ -1194,26 +1271,40 @@ Public Class cFakturierung ' MsgBox(Rechnugnsdruck) If RECHNUNG Is Nothing Then MsgBox("Fehler beim Laden der Rechnungsdaten!") : Return False Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(RECHNUNG.Firma_ID) + If FIRMA Is Nothing Then MsgBox("Keine Firma gewählt!") : Return False + + Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr) + + If Not SammelrechnungAnlagendruck Then + If vorschau = False And RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Nur bei Einzelrechnung möglich!") : Return False + End If + + If Not vorschau Then + Select Case RECHNUNG.Rechnungsart + Case "RU" : MsgBox("Unvollständige Rechnungen können nur mit einem Rechnungskopf in der Sammelrechnung gedruckt werden! Siehe Rechnungsart.") : Return False + Case "RK" : MsgBox("Ein Rechnungskopf kann nur mit zumindest einer unvollständigen Rechnung gedruckt werden! Siehe Rechnungsart.") : Return False + End Select + End If + + If FIRMA.Firma_ID <> 19 Then + Return doRechnungsdruck_allgemein(RECHNUNG, FIRMA, KD_RG, RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, printOriginalRg, SammelrechnungAnlagendruck, printStbVdb) + Else + Return doRechnungsdruck_MDM(RECHNUNG, FIRMA, KD_RG, RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, printOriginalRg, SammelrechnungAnlagendruck, printStbVdb) + End If + + Return False + End Function + + + Public Shared Function doRechnungsdruck_allgemein(Rechnung As cRechnungsausgang, firma As cFirmen, KD_RG As cAdressen, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional printOriginalRg As Boolean = False, Optional SammelrechnungAnlagendruck As Boolean = False, Optional printStbVdb As Boolean = False) + Try - Dim rpt As New rptRechnungDruck(RECHNUNG.RechnungSprache) + Dim rpt As New rptRechnungDruck(Rechnung.RechnungSprache) - Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(RECHNUNG.Firma_ID) - Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr) - If FIRMA Is Nothing Then MsgBox("Keine Firma gewählt!") : Return False - - If Not SammelrechnungAnlagendruck Then - If vorschau = False And RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Nur bei Einzelrechnung möglich!") : Return False - End If - - If Not vorschau Then - Select Case RECHNUNG.Rechnungsart - Case "RU" : MsgBox("Unvollständige Rechnungen können nur mit einem Rechnungskopf in der Sammelrechnung gedruckt werden! Siehe Rechnungsart.") : Return False - Case "RK" : MsgBox("Ein Rechnungskopf kann nur mit zumindest einer unvollständigen Rechnung gedruckt werden! Siehe Rechnungsart.") : Return False - End Select - End If - - If RECHNUNG.POSITIONEN.Count = 0 Then MsgBox("Keine Daten vorhanden!") : Return False + If Rechnung.POSITIONEN.Count = 0 Then MsgBox("Keine Daten vorhanden!") : Return False Dim dtDataSource As New DataTable dtDataSource.Columns.Add("LeistungsNr") @@ -1224,7 +1315,7 @@ Public Class cFakturierung dtDataSource.Columns.Add("Belegdaten") Dim gsBetrTmp As Double = 0 - For Each r In RECHNUNG.POSITIONEN + For Each r In Rechnung.POSITIONEN ' dtDataSource.Rows.Add(r.LeistungsNr, r.LeistungsBez, r.Anzahl, r.SteuerpflichtigerBetrag, r.SteuerfreierBetrag, (If(r.Belegdaten, "") & " " & If(r.Aufschubfälligkeit, "")).ToString.Trim) dtDataSource.Rows.Add(r.LeistungsNr, r.LeistungsBez, r.Anzahl, r.SteuerpflichtigerBetrag, r.SteuerfreierBetrag, If(r.Belegdaten, "").ToString.Trim) @@ -1250,9 +1341,9 @@ Public Class cFakturierung 'End If Dim sum = 0 - Select Case RECHNUNG.RechnungSprache + Select Case Rechnung.RechnungSprache Case "EN" - Select Case RECHNUNG.BelegartenKz + Select Case Rechnung.BelegartenKz Case "AR" rpt.lblUeberschriftRG_GS.Text = "INVOICE" rpt.lblSummeUeberschrift.Text = "Invoice Amount:" @@ -1266,7 +1357,7 @@ Public Class cFakturierung End Select Case "RO" - Select Case RECHNUNG.BelegartenKz + Select Case Rechnung.BelegartenKz Case "AR" rpt.lblUeberschriftRG_GS.Text = "FACTURA" rpt.lblSummeUeberschrift.Text = "Total" @@ -1280,7 +1371,7 @@ Public Class cFakturierung End Select Case Else - Select Case RECHNUNG.BelegartenKz + Select Case Rechnung.BelegartenKz Case "AR" rpt.lblUeberschriftRG_GS.Text = "RECHNUNG" Case "AG" @@ -1293,15 +1384,15 @@ Public Class cFakturierung End Select - initRgFirma(rpt, FIRMA, RECHNUNG) + initRgFirma(rpt, firma, Rechnung) - Select Case RECHNUNG.Firma_ID + Select Case Rechnung.Firma_ID Case 1 ' rpt.picVERAG.Image= My.Resources.Verag_AG_Logo : rpt.Picture1.Image = My.Resources.aeo_AT_imex is eh standard Case 4 : rpt.picVERAG.Image = My.Resources.Verag_AG_Logo : rpt.Picture1.Image = Nothing Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = My.Resources.aeo_CS Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing - Case 19 : rpt.picVERAG.Image = My.Resources.VERAG_360 : rpt.Picture1.Image = Nothing + 'Case 19 : rpt.picVERAG.Image = My.Resources.VERAG_360 : rpt.Picture1.Image = Nothing Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT Case 22 : rpt.picVERAG.Image = My.Resources.Unisped_DE_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_DE @@ -1314,82 +1405,77 @@ Public Class cFakturierung Dim ZZTage = 10 Dim ZZTageVL = 10 - Dim ZZKdZahlungsziel = SQL.DLookup("Zahlungsziel", "Kunden", "Kundennr=" & RECHNUNG.RechnungsKundenNr, "FMZOLL", 10) + Dim ZZKdZahlungsziel = SQL.DLookup("Zahlungsziel", "Kunden", "Kundennr=" & Rechnung.RechnungsKundenNr, "FMZOLL", 10) If ZZKdZahlungsziel IsNot Nothing AndAlso IsNumeric(ZZKdZahlungsziel) Then ZZTage = ZZKdZahlungsziel ZZTageVL = ZZTage End If - Dim ZZKdZahlungszielVL = SQL.DLookup("kde_abweichendesZZVL", "tblKundenErweitert", "kde_KundenNr=" & RECHNUNG.RechnungsKundenNr, "FMZOLL", 10) + Dim ZZKdZahlungszielVL = SQL.DLookup("kde_abweichendesZZVL", "tblKundenErweitert", "kde_KundenNr=" & Rechnung.RechnungsKundenNr, "FMZOLL", 10) If ZZKdZahlungszielVL IsNot Nothing AndAlso IsNumeric(ZZKdZahlungszielVL) Then ZZTageVL = ZZKdZahlungszielVL End If - Select Case RECHNUNG.RechnungSprache + Select Case Rechnung.RechnungSprache Case "EN" : rpt.Label2.Text = ZZTage & " Days" : rpt.Label1.Text = "Payment target:" : rpt.lblSendungsdatenUeberschrift.Text = "Service:" Case "RO" : rpt.Label2.Text = ZZTage & " Zile" : rpt.Label1.Text = "Termen de plată:" : rpt.lblSendungsdatenUeberschrift.Text = "Descriere:" Case Else : rpt.Label2.Text = ZZTage & " Tage" : rpt.lblSendungsdatenUeberschrift.Text = "Bezeichnung:" End Select - Select Case RECHNUNG.Firma_ID + Select Case Rechnung.Firma_ID Case 21, 22, 23, 26 : rpt.Label1.Visible = False : rpt.Label2.Visible = False 'Ka warum - Case 19 - rpt.txtGrenze.Visible = False - rpt.txtGrenzeUeberschrift.Visible = False - rpt.lblWarenWertUeberschrift.Visible = False - rpt.txtWarenwert.Visible = False End Select - rpt.lblKundenNr.Text = If(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, "") - rpt.lblRgNr.Text = If(RECHNUNG.RechnungsNr > 0, addYeartoRgNr(FIRMA.Firma_ID, RECHNUNG.Buchungsjahr) & RECHNUNG.RechnungsNr, "Vorschau") - rpt.lblRgDatum.Text = If(RECHNUNG.RechnungsDatum IsNot Nothing, CDate(RECHNUNG.RechnungsDatum).ToShortDateString, "VORSCHAU") + rpt.lblKundenNr.Text = If(Rechnung.RechnungsKundenNr > 0, Rechnung.RechnungsKundenNr, "") + rpt.lblRgNr.Text = If(Rechnung.RechnungsNr > 0, addYeartoRgNr(firma.Firma_ID, Rechnung.Buchungsjahr) & Rechnung.RechnungsNr, "Vorschau") + rpt.lblRgDatum.Text = If(Rechnung.RechnungsDatum IsNot Nothing, CDate(Rechnung.RechnungsDatum).ToShortDateString, "VORSCHAU") 'rpt.lblKundenAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "") 'If rpt.lblKundenAuftragsnummer.Text = String.Empty Then rpt.lblKundenAuftragsnummerUeberschrift.Visible = False - rpt.lblAbfertigungsNr.Text = RECHNUNG.FilialenNr & " / " & RECHNUNG.AbfertigungsNr & " " & RECHNUNG.UnterNr.ToString("00") - rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString - rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") + rpt.lblAbfertigungsNr.Text = Rechnung.FilialenNr & " / " & Rechnung.AbfertigungsNr & " " & Rechnung.UnterNr.ToString("00") + rpt.lblAbfertigungsDatum.Text = Rechnung.Abfertigungsdatum.ToShortDateString + rpt.lblLKWId.Text = If(Rechnung.AvisoID, "") - Dim sachbearbeiterAufRechnung = getSBRgName(RECHNUNG.Firma_ID, RECHNUNG.Sachbearbeiter) + Dim sachbearbeiterAufRechnung = getSBRgName(Rechnung.Firma_ID, Rechnung.Sachbearbeiter) rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'If(RECHNUNG.Sachbearbeiter, "") - rpt.txtAbsender.Text = If(RECHNUNG.AbsenderName_1, "") & " " & If(RECHNUNG.AbsenderName_2, "") & vbNewLine & If(RECHNUNG.AbsenderOrt, "").ToString.Trim - rpt.txtEmpfaenger.Text = If(RECHNUNG.EmpfängerName_1, "") & " " & If(RECHNUNG.EmpfängerName_2, "") & vbNewLine & If(RECHNUNG.EmpfängerOrt, "").ToString.Trim - rpt.txtAvisierer.Text = If(RECHNUNG.Avisierer, "") + rpt.txtAbsender.Text = If(Rechnung.AbsenderName_1, "") & " " & If(Rechnung.AbsenderName_2, "") & vbNewLine & If(Rechnung.AbsenderOrt, "").ToString.Trim + rpt.txtEmpfaenger.Text = If(Rechnung.EmpfängerName_1, "") & " " & If(Rechnung.EmpfängerName_2, "") & vbNewLine & If(Rechnung.EmpfängerOrt, "").ToString.Trim + rpt.txtAvisierer.Text = If(Rechnung.Avisierer, "") - If FIRMA.Firma_ID = 4 Then + If firma.Firma_ID = 4 Then rpt.lblWarenWertUeberschrift.Visible = False rpt.txtWarenwert.Visible = False rpt.txtGrenze.Visible = False rpt.txtGrenzeUeberschrift.Visible = False End If - rpt.txtZollbelegNr.Text = If(RECHNUNG.BelegNr, "") + rpt.txtZollbelegNr.Text = If(Rechnung.BelegNr, "") - Dim waehrungCode As String = SQL.getValueTxtBySql("SELECT isnull(Währungscode,'') FROM Währungstabelle WHERE Währungsschlüssel = " & If(RECHNUNG.[WährungsNr], -1) & ";", "FMZOLL") - If IsNumeric(If(RECHNUNG.Wert, "")) Then + Dim waehrungCode As String = SQL.getValueTxtBySql("SELECT isnull(Währungscode,'') FROM Währungstabelle WHERE Währungsschlüssel = " & If(Rechnung.[WährungsNr], -1) & ";", "FMZOLL") + If IsNumeric(If(Rechnung.Wert, "")) Then ' rpt.txtWarenwert.Text = CDbl(RECHNUNG.Wert).ToString("N2") & " " & If(RECHNUNG.Währungscode, "") - rpt.txtWarenwert.Text = CDbl(RECHNUNG.Wert).ToString("N2") & " " & waehrungCode + rpt.txtWarenwert.Text = CDbl(Rechnung.Wert).ToString("N2") & " " & waehrungCode Else ' rpt.txtWarenwert.Text = If(RECHNUNG.Wert, "") & " " & If(RECHNUNG.Währungscode, "") - rpt.txtWarenwert.Text = If(RECHNUNG.Wert, "") & " " & waehrungCode + rpt.txtWarenwert.Text = If(Rechnung.Wert, "") & " " & waehrungCode End If - rpt.txtSendungsdaten.Text = If(RECHNUNG.Packstücke_und_Warenbezeichnung, "") + rpt.txtSendungsdaten.Text = If(Rechnung.Packstücke_und_Warenbezeichnung, "") If rpt.txtSendungsdaten.Text.Length > 200 Then rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Substring(0, 200) rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Replace(", 0,0 kg", "") '0kg ausblenden - rpt.txtBeförderungsmittel.Text = If(RECHNUNG.LKW_Kennzeichen, "") + rpt.txtBeförderungsmittel.Text = If(Rechnung.LKW_Kennzeichen, "") - rpt.txtGrenze.Text = If(RECHNUNG.Grenze, "") - If rpt.txtGrenze.Text.Trim = String.Empty Then rpt.txtGrenze.Text = SQL.getValueTxtBySql("SELECT TOP 1 isnull([Grenzstelle],'') FROM [Filialen] where FilialenNr='" & RECHNUNG.FilialenNr & "'", "FMZOLL") + rpt.txtGrenze.Text = If(Rechnung.Grenze, "") + If rpt.txtGrenze.Text.Trim = String.Empty Then rpt.txtGrenze.Text = SQL.getValueTxtBySql("SELECT TOP 1 isnull([Grenzstelle],'') FROM [Filialen] where FilialenNr='" & Rechnung.FilialenNr & "'", "FMZOLL") If rpt.txtGrenze.Text.Trim = String.Empty Then rpt.txtGrenzeUeberschrift.Visible = False - rpt.lblRechnungAn.Text = If(RECHNUNG.RechnungsName_1, "") & vbNewLine - If If(RECHNUNG.RechnungsName_2, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsName_2 & vbNewLine - If If(RECHNUNG.RechnungsStraße, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsStraße & vbNewLine - If If(RECHNUNG.RechnungsName_AdressZusatz, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsName_AdressZusatz & vbNewLine - If If(RECHNUNG.RechnungsOrt, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsOrt & vbNewLine - If If(RECHNUNG.RechnungsLandKz, "") <> "" Then rpt.lblRechnungAn.Text &= cProgramFunctions.getLandBez_fromISO1Land(RECHNUNG.RechnungsLandKz, "", RECHNUNG.RechnungSprache).ToString.ToUpper + rpt.lblRechnungAn.Text = If(Rechnung.RechnungsName_1, "") & vbNewLine + If If(Rechnung.RechnungsName_2, "") <> "" Then rpt.lblRechnungAn.Text &= Rechnung.RechnungsName_2 & vbNewLine + If If(Rechnung.RechnungsStraße, "") <> "" Then rpt.lblRechnungAn.Text &= Rechnung.RechnungsStraße & vbNewLine + If If(Rechnung.RechnungsName_AdressZusatz, "") <> "" Then rpt.lblRechnungAn.Text &= Rechnung.RechnungsName_AdressZusatz & vbNewLine + If If(Rechnung.RechnungsOrt, "") <> "" Then rpt.lblRechnungAn.Text &= Rechnung.RechnungsOrt & vbNewLine + If If(Rechnung.RechnungsLandKz, "") <> "" Then rpt.lblRechnungAn.Text &= cProgramFunctions.getLandBez_fromISO1Land(Rechnung.RechnungsLandKz, "", Rechnung.RechnungSprache).ToString.ToUpper 'If If(RECHNUNG.RechnungsName_2, "") = "" Then @@ -1404,7 +1490,7 @@ Public Class cFakturierung 'rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(RECHNUNG.RechnungsLandKz, "", RECHNUNG.RechnungSprache).ToString.ToUpper If KD_RG IsNot Nothing AndAlso If(KD_RG.Steuernummer, "") <> String.Empty Then - If RECHNUNG.Firma_ID = 4 Then + If Rechnung.Firma_ID = 4 Then rpt.lblRechnung_Steuernummer.Text = If(KD_RG.Steuernummer, "").ToString.Trim 'ohne LandKz gewünscht Else rpt.lblRechnung_Steuernummer.Text = If(KD_RG.LandKz, "") & " " & If(KD_RG.Steuernummer, "").ToString.Trim @@ -1418,15 +1504,15 @@ Public Class cFakturierung rpt.lblRechnung_Steuernummer.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty) rpt.lblRechnung_Steuernummer_Ueberschrift.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty) - rpt.lblRechnung_UID.Text = If(RECHNUNG.RechnungsUstIdKz, "") & If(RECHNUNG.RechnungsUstIdNr, "") + rpt.lblRechnung_UID.Text = If(Rechnung.RechnungsUstIdKz, "") & If(Rechnung.RechnungsUstIdNr, "") rpt.lblRechnung_UID.Visible = (rpt.lblRechnung_UID.Text <> String.Empty) rpt.lblRechnung_UID_Ueberschrift.Visible = (rpt.lblRechnung_UID.Text <> String.Empty) - rpt.txtKdAuftragsNr.Text = If(RECHNUNG.KdAuftragsNr, "") + rpt.txtKdAuftragsNr.Text = If(Rechnung.KdAuftragsNr, "") rpt.txtKdAuftragsNr_Ueberschrift.Visible = (rpt.txtKdAuftragsNr.Text <> String.Empty) - rpt.TextBox1.Text = If(RECHNUNG.TextZZ, "").ToString.Replace("; ", vbNewLine).Trim - rpt.txtVermerk.Text = (If(RECHNUNG.Text, "").ToString.Trim & vbNewLine & vbNewLine & If(RECHNUNG.Notiz, "").ToString.Trim).ToString.Trim + rpt.TextBox1.Text = If(Rechnung.TextZZ, "").ToString.Replace("; ", vbNewLine).Trim + rpt.txtVermerk.Text = (If(Rechnung.Text, "").ToString.Trim & vbNewLine & vbNewLine & If(Rechnung.Notiz, "").ToString.Trim).ToString.Trim ' REVERSE CHARGE (Übergang der Steuerschuld in EU-Ländern). @@ -1434,54 +1520,42 @@ Public Class cFakturierung ' die in der Leistungstabelle als ReverseCharge gekennzeichnet sind, ' summiert und auf der Rechnung ausgewiesen werden. - If isReverseChargeSumme(FIRMA, RECHNUNG) Then + If isReverseChargeSumme(firma, Rechnung) Then - If RECHNUNG.Firma_ID = 19 Then - - Select Case RECHNUNG.RechnungSprache - Case "RO" : rpt.txtInfo.Text = "*Taxare inversa" - Case "EN" : rpt.txtInfo.Text = "*Reverse Charge" - Case Else : rpt.txtInfo.Text = "*Reverse Charge" - End Select - - Else - - Select Case RECHNUNG.RechnungSprache - Case "RO" : rpt.txtInfo.Text = "Obligația de TVA este transferată beneficiarului serviciului (Reverse Charge)." - Case "EN" : rpt.txtInfo.Text = "VAT liability is transferred to the recipient (Reverse Charge)." - Case Else : rpt.txtInfo.Text = "Die Umsatzsteuerschuld geht auf den Leistungsempfänger über (Reverse Charge Verfahren)." - End Select + Select Case Rechnung.RechnungSprache + Case "RO" : rpt.txtInfo.Text = "Obligația de TVA este transferată beneficiarului serviciului (Reverse Charge)." + Case "EN" : rpt.txtInfo.Text = "VAT liability is transferred to the recipient (Reverse Charge)." + Case Else : rpt.txtInfo.Text = "Die Umsatzsteuerschuld geht auf den Leistungsempfänger über (Reverse Charge Verfahren)." + End Select - End If + 'End If Else : rpt.txtInfo.Text = "" : End If - - rpt.txtAnlagen.Text = "" - If If(RECHNUNG.Anlage_1, "") <> "" Then rpt.txtAnlagen.Text &= RECHNUNG.Anlage_1 - If If(RECHNUNG.Anlage_2, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_2 - If If(RECHNUNG.Anlage_3, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_3 - If If(RECHNUNG.Anlage_4, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_4 - If If(RECHNUNG.Anlage_5, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_5 - If If(RECHNUNG.Anlage_6, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_6 + If If(Rechnung.Anlage_1, "") <> "" Then rpt.txtAnlagen.Text &= Rechnung.Anlage_1 + If If(Rechnung.Anlage_2, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & Rechnung.Anlage_2 + If If(Rechnung.Anlage_3, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & Rechnung.Anlage_3 + If If(Rechnung.Anlage_4, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & Rechnung.Anlage_4 + If If(Rechnung.Anlage_5, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & Rechnung.Anlage_5 + If If(Rechnung.Anlage_6, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & Rechnung.Anlage_6 rpt.txtAnlagen.Text = rpt.txtAnlagen.Text.Trim If rpt.txtAnlagen.Text.Replace(" ", "") = "" Then rpt.lblAnlagenUeberschrift.Visible = False Else - Select Case RECHNUNG.RechnungSprache + Select Case Rechnung.RechnungSprache Case "EN" : rpt.lblAnlagenUeberschrift.Text = "Attachment:" Case "RO" : rpt.lblAnlagenUeberschrift.Text = "Anexa:" Case Else : rpt.lblAnlagenUeberschrift.Text = "Anlagen:" End Select End If - rpt.txtHandlingATA.Text = If(RECHNUNG.Handling, "") + rpt.txtHandlingATA.Text = If(Rechnung.Handling, "") If rpt.txtHandlingATA.Text.Replace(" ", "") = "" Then rpt.lblHandlingATA.Visible = False End If @@ -1499,7 +1573,7 @@ Public Class cFakturierung 'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung 'ANLAGE ZUR RECHNUNG: - If RECHNUNG.Status = 3 Or RECHNUNG.Sammelrechnung <> 0 Then + If Rechnung.Status = 3 Or Rechnung.Sammelrechnung <> 0 Then rpt.txtAnlagen.Visible = False rpt.lblAnlagenUeberschrift.Visible = False rpt.lblRgDatumUeberschrift.Visible = False @@ -1522,23 +1596,23 @@ Public Class cFakturierung rpt.Line7.Visible = False - Select Case RECHNUNG.RechnungSprache + Select Case Rechnung.RechnungSprache Case "EN" - Select Case RECHNUNG.BelegartenKz + Select Case Rechnung.BelegartenKz Case "AR" rpt.lblUeberschriftRG_GS.Text = "Attachment to invoice" Case "AG" rpt.lblUeberschriftRG_GS.Text = "Attachment to CREDIT NOTE" End Select Case "RO" - Select Case RECHNUNG.BelegartenKz + Select Case Rechnung.BelegartenKz Case "AR" rpt.lblUeberschriftRG_GS.Text = "Anexa la factura colectiva" Case "AG" rpt.lblUeberschriftRG_GS.Text = "Anexa la nota de credit" End Select Case Else - Select Case RECHNUNG.BelegartenKz + Select Case Rechnung.BelegartenKz Case "AR" rpt.lblUeberschriftRG_GS.Text = "Anlage zur Sammelrechnung" Case "AG" @@ -1549,8 +1623,8 @@ Public Class cFakturierung End If If Not printOriginalRg Then 'sonst wird der originaldruck erzwungen - If RECHNUNG.DruckDatumZeit IsNot Nothing Then - Select Case RECHNUNG.RechnungSprache + If Rechnung.DruckDatumZeit IsNot Nothing Then + Select Case Rechnung.RechnungSprache Case "EN" : rpt.lblUeberschriftRG_GS.Text &= " - COPY" Case "RO" : rpt.lblUeberschriftRG_GS.Text &= " - COPIE" Case Else : rpt.lblUeberschriftRG_GS.Text &= " - KOPIE" @@ -1558,106 +1632,19 @@ Public Class cFakturierung End If End If - 'Dim cnt As Integer = 0 - If RECHNUNG.Firma_ID = 19 Then - - 'rpt.lblSteuersatz.Visible = False - 'rpt.lblSteuerbetrag.Visible = False - rpt.lblSteuerpflichtigGes.Visible = False - rpt.lblSteuerfreiGes.Visible = False - rpt.lblZwText.Visible = False - rpt.lblZWSumme.Visible = False - - rpt.lblRechnung_Steuernummer.Visible = False - rpt.lblRechnung_Steuernummer_Ueberschrift.Visible = False - End If Dim sumSteuerpflichtig As Double = 0 Dim sumSteuerfrei As Double = 0 - ' Dim Anz As Double = 0 - ' Dim gesSumBt As Double = 0 - ' Dim gesAnz As Double = 0 - Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1) + Dim vorzeichen = If(If(Rechnung.Vorzeichen, "") = "-", -1, 1) AddHandler rpt.Detail.Format, Sub() - ' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString - ' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString + rpt.lblLeistungNr.Text = checkNull(rpt.Fields.Item("LeistungsNr").Value) rpt.txtLeistung.Text = checkNull(rpt.Fields.Item("LeistungsBez").Value) - If FIRMA.Firma_ID = 19 Then - Dim isReverseCharge As Boolean = SQL.getValueTxtBySql("SELECT ReverseCharge as Bit from Leistungen where LeistungsNr= " & rpt.lblLeistungNr.Text, "FMZOLL") - If isReverseCharge Then - rpt.txtLeistung.Text &= IIf(Not rpt.txtLeistung.Text.Contains("*"), "*", "") - End If - - If rpt.txtLeistung.Text.Contains("00/23") Or rpt.txtLeistung.Text.Contains("DL/23") Then - If RECHNUNG.FilialenNr = 4817 AndAlso RECHNUNG.AbfertigungsNr > 0 AndAlso (RECHNUNG.OffertenNr = 14 Or RECHNUNG.OffertenNr = 15 Or RECHNUNG.OffertenNr = 31) Then - Dim antragsID As Integer = CInt(SQL.getValueTxtBySql("SELECT UStVAn_ID FROM tblUStVAntrag WHERE FilialenNr = " & RECHNUNG.FilialenNr & " AND AbfertigungsNr = " & RECHNUNG.AbfertigungsNr, "FMZOLL",,, "-1")) - - If antragsID > 0 Then - - Dim MWSTAntrag As New cUSTVAntrag(antragsID) - - - Dim MonthStart As String = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & CDate(MWSTAntrag.UStVAn_ReDatVon).Month - Dim MonthEnd As String = IIf(CDate(MWSTAntrag.UStVAn_ReDatBis).Month < 10, "0", "") & CDate(MWSTAntrag.UStVAn_ReDatBis).Month - - If MonthStart = MonthEnd Then MonthEnd = "" - - Dim listVZMonth As New List(Of Integer) - - If RECHNUNG.RK_ID > 0 Then - For Each pos As cUStVPositionen In MWSTAntrag.POSITIONEN.OrderBy(Function(x) If(IsDate(x.UStVPo_ReDat), CDate(x.UStVPo_ReDat), Nothing)) - - If Not IsDBNull(pos.UStVPo_VZ) AndAlso pos.UStVPo_VZ AndAlso pos.UStVPo_VZ_RKID = RECHNUNG.RK_ID AndAlso IsDate(pos.UStVPo_ReDat) Then - If Not listVZMonth.Contains(CDate(pos.UStVPo_ReDat).Month) Then listVZMonth.Add(CDate(pos.UStVPo_ReDat).Month) - End If - - Next - End If - - - If listVZMonth.Count > 0 Then - - If listVZMonth.Count = 1 Then - MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString - MonthEnd = "" - Else - MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString - MonthEnd = IIf(CDate(MWSTAntrag.UStVAn_ReDatBis).Month < 10, "0", "") & listVZMonth(listVZMonth.Count - 1).ToString - End If - End If - - - If rpt.txtLeistung.Text.Contains("00-00/23") Then - rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2)) - ElseIf rpt.txtLeistung.Text.Contains("DL/23") Then - rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("DL/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2)) - Else - rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2)) - End If - - If rpt.txtLeistung.Text.Contains("-00") Then - rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("-00", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) - ElseIf rpt.txtLeistung.Text.Contains("00-") Then - rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00-", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) - ElseIf rpt.txtLeistung.Text.Contains("00") Then - rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) - End If - End If - - - End If - - - End If - End If - - If rpt.Fields.Item("Belegdaten").Value IsNot Nothing Then rpt.txtLeistung.Text &= vbNewLine & checkNull(rpt.Fields.Item("Belegdaten").Value) End If @@ -1678,15 +1665,6 @@ Public Class cFakturierung sumSteuerpflichtig += stPfl sumSteuerfrei += stFrei - ' Anz += 1 - ' gesAnz += 1 - - ' If Anz Mod 2 = 0 Then - ' rpt.Detail.BackColor = Color.FromArgb(240, 240, 240) - 'Else - ' rpt.Detail.BackColor = Color.White - ' End If - 'rpt.Line10.Height = rpt.Detail.Height End Sub AddHandler rpt.ReportFooter1.Format, Sub() @@ -1697,7 +1675,7 @@ Public Class cFakturierung Dim steuerProz As Double = 0 Dim steuerBez As String = "" - Dim dt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RECHNUNG.Steuerschlüssel & "'", "FMZOLL") + Dim dt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & Rechnung.Steuerschlüssel & "'", "FMZOLL") If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then steuerProz = dt.Rows(0)(0) steuerBez = dt.Rows(0)(1) @@ -1710,46 +1688,37 @@ Public Class cFakturierung rpt.lblSteuerbetrag.Visible = False End If - ' rpt.lblZWSumme.Text = (sumSteuerpflichtig + sumSteuerfrei).ToString("N2", CultureInfo.CurrentCulture) - ' rpt.lblSumme.Text = (sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz)).ToString("N2", CultureInfo.CurrentCulture) - rpt.lblZWSumme.Text = CDbl((sumSteuerpflichtig + sumSteuerfrei) * vorzeichen).ToString("N2", CultureInfo.CurrentCulture) rpt.lblSumme.Text = CDbl((sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz)) * vorzeichen).ToString("N2", CultureInfo.CurrentCulture) - rpt.Label46.Text = If(RECHNUNG.Währungscode, "EUR") + rpt.Label46.Text = If(Rechnung.Währungscode, "EUR") - If isSTARK(RECHNUNG) Then + If isSTARK(Rechnung) Then rpt.lblZwText.Text = "Summe EUST" - rpt.lblZWSumme.Text = CDbl(getSTARK_EUST(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblZWSumme.Text = CDbl(getSTARK_EUST(firma, Rechnung)).ToString("N2", CultureInfo.CurrentCulture) rpt.lblZwText.Visible = True rpt.lblZWSumme.Visible = True rpt.lblSteuersatz.Text = "Summe ohne EUST" - rpt.lblSteuerbetrag.Text = CDbl(getSTARK_ohneEUST(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblSteuerbetrag.Text = CDbl(getSTARK_ohneEUST(firma, Rechnung)).ToString("N2", CultureInfo.CurrentCulture) rpt.lblSteuersatz.Visible = True rpt.lblSteuerbetrag.Visible = True Else - If isReverseChargeSumme(FIRMA, RECHNUNG) Then - Select Case RECHNUNG.RechnungSprache + If isReverseChargeSumme(firma, Rechnung) Then + Select Case Rechnung.RechnungSprache Case "DE" : rpt.lblZwText.Text = "Summe Steuerfrei" : rpt.lblSteuersatz.Text = "Summe Reverse Charge" Case "EN" : rpt.lblZwText.Text = "Sum Taxfree" : rpt.lblSteuersatz.Text = "Sum Reverse Charge" Case "RO" : rpt.lblZwText.Text = "Suma neimpozabila" : rpt.lblSteuersatz.Text = "Suma Reverse Charge" End Select - rpt.lblZWSumme.Text = CDbl(getSteuerfreiEUSTZOLL(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblZWSumme.Text = CDbl(getSteuerfreiEUSTZOLL(firma, Rechnung)).ToString("N2", CultureInfo.CurrentCulture) rpt.lblZwText.Visible = True rpt.lblZWSumme.Visible = True + rpt.lblSteuerbetrag.Text = CDbl(getReverseChargeSummeRKID(firma, Rechnung)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblSteuersatz.Visible = True + rpt.lblSteuerbetrag.Visible = True - If RECHNUNG.Firma_ID = 19 Then 'Bei MDM ausblenden! - rpt.lblSteuersatz.Text = "" - rpt.lblSteuerbetrag.Visible = False - Else - rpt.lblSteuerbetrag.Text = CDbl(getReverseChargeSummeRKID(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) - rpt.lblSteuersatz.Visible = True - rpt.lblSteuerbetrag.Visible = True - - End If Else @@ -1761,18 +1730,6 @@ Public Class cFakturierung End If End If - If RECHNUNG.Firma_ID = 19 Then - - 'rpt.lblSteuersatz.Visible = False - 'rpt.lblSteuerbetrag.Visible = False - - rpt.lblSteuerpflichtigGes.Visible = False - rpt.lblSteuerfreiGes.Visible = False - rpt.lblZwText.Visible = False - rpt.lblZWSumme.Visible = False - End If - - End Sub 'DruckDatumUhrzeit wird gesetzt, falls noch ungedruckt... @@ -1797,22 +1754,22 @@ Public Class cFakturierung Else Dim Kopie = True 'ORIGINAL - Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr) - If RECHNUNG.Status = 0 Then + Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(Rechnung.RechnungsKundenNr) + If Rechnung.Status = 0 Then If AD IsNot Nothing Then Kopie = False 'Aktualisierung und speichern: - If Abrechnugsdaten_AKTUALISIEREN(RECHNUNG, RechnungsDatum) Then - rpt.lblRgNr.Text = If(RECHNUNG.RechnungsNr > 0, addYeartoRgNr(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) & RECHNUNG.RechnungsNr, "Vorschau") - rpt.lblRgDatum.Text = CDate(RECHNUNG.RechnungsDatum).ToShortDateString + If Abrechnugsdaten_AKTUALISIEREN(Rechnung, RechnungsDatum) Then + rpt.lblRgNr.Text = If(Rechnung.RechnungsNr > 0, addYeartoRgNr(Rechnung.Firma_ID, Rechnung.Buchungsjahr) & Rechnung.RechnungsNr, "Vorschau") + rpt.lblRgDatum.Text = CDate(Rechnung.RechnungsDatum).ToShortDateString - If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Erstmaliger Druck - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + If Rechnung.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Erstmaliger Druck + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) Else rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) @@ -1832,13 +1789,13 @@ Public Class cFakturierung End If Else - If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Wiederholungsdruck - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + If Rechnung.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Wiederholungsdruck + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) Else rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) @@ -1848,20 +1805,20 @@ Public Class cFakturierung rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) End If - If RECHNUNG.[DruckDatumZeit] Is Nothing Then - RECHNUNG.[DruckDatumZeit] = Now 'Wenn Rg-Nr schon vergeben wird das neu gesetzt - RECHNUNG.SAVE_DruckDatumZeit() ' Nur SAVE_DruckDatumZeit ändern/setzen + If Rechnung.[DruckDatumZeit] Is Nothing Then + Rechnung.[DruckDatumZeit] = Now 'Wenn Rg-Nr schon vergeben wird das neu gesetzt + Rechnung.SAVE_DruckDatumZeit() ' Nur SAVE_DruckDatumZeit ändern/setzen End If End If - If Not RECHNUNG.checkRechnungsNrIsSet() Then + If Not Rechnung.checkRechnungsNrIsSet() Then MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen") Return False End If 'Rechnugnsdruck = Individuell für deise Rechnung, wird optional mitgegeben ' Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Rechnung_" & If(RECHNUNG.RechnungsNr, "") & ".pdf" - Dim RG_Bezeichnung = If(RECHNUNG.[BelegartenKz] = "AR", "Rechnung_", "Gutschrift_") & If(RECHNUNG.RechnungsNr, "") & ".pdf" + Dim RG_Bezeichnung = If(Rechnung.[BelegartenKz] = "AR", "Rechnung_", "Gutschrift_") & If(Rechnung.RechnungsNr, "") & ".pdf" '-------------------------------- ' --> TEST wegen Size Problem @@ -1882,10 +1839,10 @@ Public Class cFakturierung Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID) Dim enableZugpferd = Paramslist.GET_PARAMETER_VALUE_BOOL("ZUGFeRD") If enableZugpferd Then - tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.addAttachementToPDF(tmpPath, createZUGFeRD(True, RECHNUNG,), "ZUGFeRD-invoice.xml") + tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.addAttachementToPDF(tmpPath, createZUGFeRD(True, Rechnung,), "ZUGFeRD-invoice.xml") Else - Dim Zugferdpath = createZUGFeRD(True, RECHNUNG) + Dim Zugferdpath = createZUGFeRD(True, Rechnung) Dim fileInfo_ZP As New FileInfo(Zugferdpath) Dim ZUGF_DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "ZUGFERD", Now().Year, "", "", fileInfo_ZP.Name, -1, False) ZUGF_DS.uploadDataToDATENSERVER(Zugferdpath, fileInfo_ZP.Name, fileInfo_ZP.Extension,,,, True) @@ -1900,7 +1857,7 @@ Public Class cFakturierung Try If Not Kopie And (Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM OrElse vbYes = MsgBox("TEST - in Therefore speichern?", vbYesNoCancel)) Then - VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder(tmpPath, RECHNUNG.FilialenNr & RECHNUNG.AbfertigungsNr, If(RECHNUNG.AvisoID, ""), RECHNUNG.Firma_ID, False) + VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder(tmpPath, Rechnung.FilialenNr & Rechnung.AbfertigungsNr, If(Rechnung.AvisoID, ""), Rechnung.Firma_ID, False) End If Catch ex As Exception @@ -1912,12 +1869,12 @@ Public Class cFakturierung '------------------------------------------------------------------------------- If Not Kopie Then Try - Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr) + Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(Rechnung.RechnungsKundenNr) If KUNDE_ERW IsNot Nothing Then 'TRADESHIFT: Try If KUNDE_ERW.kde_API_Tradeshift Then - Select Case RECHNUNG.Firma_ID + Select Case Rechnung.Firma_ID Case 21, 22, 23 'System.IO.File.Copy(tmpPath, "\\srv01.unisu.at\Unisped\___AR_PDF\" & RG_Bezeichnung, True) System.IO.File.Copy(tmpPath, "\\unidc01.unisu.at\Unisped\___AR_PDF\" & RG_Bezeichnung, True) @@ -1928,7 +1885,7 @@ Public Class cFakturierung End Try End If - If RECHNUNG.Firma_ID = 24 Then + If Rechnung.Firma_ID = 24 Then Dim API As New DataTable Dim Program = "DATEV-PDF" @@ -1958,14 +1915,14 @@ Public Class cFakturierung Dim ret = cProgramFunctions.printRpt(rpt, PrinterName, False) - If printStbVdb AndAlso RECHNUNG.Firma_ID <> 1 Then - If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Zollbeleg drucken?", vbYesNoCancel)) Then - printSpedBuchAnhaenge(RECHNUNG, True, True) + If printStbVdb AndAlso Rechnung.Firma_ID <> 1 Then + If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Zollbeleg drucken?", vbYesNoCancel)) Then + printSpedBuchAnhaenge(Rechnung, True, True) End If End If - If RECHNUNG.ANHAENGE.Count > 0 AndAlso RECHNUNG.Firma_ID <> 1 Then - If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then - printRGAnhaenge(RECHNUNG) + If Rechnung.ANHAENGE.Count > 0 AndAlso Rechnung.Firma_ID <> 1 Then + If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then + printRGAnhaenge(Rechnung) End If End If @@ -1986,46 +1943,46 @@ Public Class cFakturierung Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) - Select Case RECHNUNG.RechnungsLandKz + Select Case Rechnung.RechnungsLandKz Case "TR" - Mail.Subject = "Invoice No. " & RECHNUNG.RechnungsNr + Mail.Subject = "Invoice No. " & Rechnung.RechnungsNr Mail.HTMLBody = "Sayin Bayanlar ve Baylar,

ekte baslikta yazan faturayi bulabilirsinz." - Mail.HTMLBody &= "


Saygilarimizla

" & getSignature(RECHNUNG) + Mail.HTMLBody &= "


Saygilarimizla

" & getSignature(Rechnung) Case "A", "AT", "D", "DE", "CH" - Mail.Subject = "Rechnung Nr. " & RECHNUNG.RechnungsNr + Mail.Subject = "Rechnung Nr. " & Rechnung.RechnungsNr Mail.HTMLBody = "Sehr geehrte Damen und Herren,

im Anhang senden wir Ihnen die o.g. Rechnung." - Mail.HTMLBody &= "


Mit freundlichen Grüßen

" & getSignature(RECHNUNG) + Mail.HTMLBody &= "


Mit freundlichen Grüßen

" & getSignature(Rechnung) Case Else - Mail.Subject = "Invoice No. " & RECHNUNG.RechnungsNr + Mail.Subject = "Invoice No. " & Rechnung.RechnungsNr Mail.HTMLBody = "Dear Sir or Madam,

attached we send you the invoice mentioned above." - Mail.HTMLBody &= "


Best regards

" & getSignature(RECHNUNG) + Mail.HTMLBody &= "


Best regards

" & getSignature(Rechnung) End Select Mail.HTMLBody = "
" & Mail.HTMLBody & "
" Dim emai_receipt As String = "" - If RECHNUNG.FilialenNr = "4801" Or RECHNUNG.FilialenNr = "4802" Then emai_receipt = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(RECHNUNG.RechnungsKundenNr, "Rechnung an (ATILLA)") + If Rechnung.FilialenNr = "4801" Or Rechnung.FilialenNr = "4802" Then emai_receipt = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(Rechnung.RechnungsKundenNr, "Rechnung an (ATILLA)") - Mail.To = IIf(emai_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(RECHNUNG.RechnungsKundenNr, "Rechnung an"), emai_receipt) + Mail.To = IIf(emai_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(Rechnung.RechnungsKundenNr, "Rechnung an"), emai_receipt) Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Rechnung.pdf") Mail.Display() If RD_DRUCK = 5 Then ' --> RPOT KOPIE DRUCKEN - Select Case RECHNUNG.RechnungSprache + Select Case Rechnung.RechnungSprache Case "EN" : rpt.lblUeberschriftRG_GS.Text &= " - COPY" Case Else : rpt.lblUeberschriftRG_GS.Text &= " - KOPIE" End Select Dim ret = cProgramFunctions.printRpt(rpt, PrinterName, False) If printStbVdb Then - If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Zollbeleg drucken?", vbYesNoCancel)) Then - printSpedBuchAnhaenge(RECHNUNG, True, True) + If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Zollbeleg drucken?", vbYesNoCancel)) Then + printSpedBuchAnhaenge(Rechnung, True, True) End If End If - If RECHNUNG.ANHAENGE.Count > 0 Then + If Rechnung.ANHAENGE.Count > 0 Then 'wird nicht mehr benötigt! TicketNr: 953 ----- wird doch wieder benötigt! - If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then - printRGAnhaenge(RECHNUNG) + If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then + printRGAnhaenge(Rechnung) End If End If End If @@ -2043,9 +2000,9 @@ Public Class cFakturierung 'rpt.Run(False) 'p.NeverEmbedFonts = "" 'p.Export(rpt.Document, tmpPath) - If RECHNUNG.ANHAENGE.Count > 0 Then - If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge öffnen?", vbYesNoCancel)) Then - openRgAnhaenge(RECHNUNG) + If Rechnung.ANHAENGE.Count > 0 Then + If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge öffnen?", vbYesNoCancel)) Then + openRgAnhaenge(Rechnung) End If End If @@ -2077,6 +2034,829 @@ Public Class cFakturierung Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try + End Function + + + Public Shared Function doRechnungsdruck_MDM(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, firma As cFirmen, KD_RG As cAdressen, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional printOriginalRg As Boolean = False, Optional SammelrechnungAnlagendruck As Boolean = False, Optional printStbVdb As Boolean = False) As Boolean + + Dim rpt As New rptRechnungDruck_MDM(RECHNUNG.RechnungSprache) + + If RECHNUNG.POSITIONEN.Count = 0 Then MsgBox("Keine Daten vorhanden!") : Return False + Dim dtDataSource As New DataTable + + dtDataSource.Columns.Add("LeistungsNr") + dtDataSource.Columns.Add("LeistungsBez") + dtDataSource.Columns.Add("Anzahl") + dtDataSource.Columns.Add("SteuerpflichtigerBetrag") + dtDataSource.Columns.Add("SteuerfreierBetrag") + dtDataSource.Columns.Add("Belegdaten") + + Dim gsBetrTmp As Double = 0 + For Each r In RECHNUNG.POSITIONEN + ' dtDataSource.Rows.Add(r.LeistungsNr, r.LeistungsBez, r.Anzahl, r.SteuerpflichtigerBetrag, r.SteuerfreierBetrag, (If(r.Belegdaten, "") & " " & If(r.Aufschubfälligkeit, "")).ToString.Trim) + + dtDataSource.Rows.Add(r.LeistungsNr, r.LeistungsBez, r.Anzahl, r.SteuerpflichtigerBetrag, r.SteuerfreierBetrag, If(r.Belegdaten, "").ToString.Trim) + + gsBetrTmp += CDbl(r.SteuerpflichtigerBetrag + r.SteuerfreierBetrag) + Next + + If gsBetrTmp = 0 Then MsgBox("Rechnungsbetrag ist EUR 0,- ") : Return False + + + Dim dataView As New DataView(dtDataSource) + dataView.Sort = " LeistungsNr " + Dim dtTmp As DataTable = dataView.ToTable() + + ' rpt.DataSource = SQL.loadDgvBySql("SELECT * FROM [Rechnungsausgangpositionen] where RK_ID ='" & RECHNUNG.RK_ID & "' ", "FMZOLL") + rpt.DataSource = dtTmp + + '' MsgBox(rpt.DataSource.rows.count) + 'If rpt.DataSource.rows.count = 0 Then + ' rpt.Dispose() + ' MsgBox("Keine Daten vorhanden!") + ' Return False + 'End If + + Dim sum = 0 + Select Case RECHNUNG.RechnungSprache + Case "EN" + Select Case RECHNUNG.BelegartenKz + Case "AR" + rpt.lblUeberschriftRG_GS.Text = "INVOICE" + rpt.lblSummeUeberschrift.Text = "Invoice Amount:" + rpt.lblRgNrUeberschrift.Text = "Invoice No.:" + rpt.lblRgDatumUeberschrift.Text = "Invoice Date:" + Case "AG" + rpt.lblUeberschriftRG_GS.Text = "CREDIT NOTE" + rpt.lblSummeUeberschrift.Text = "Credit Amount:" + rpt.lblRgNrUeberschrift.Text = "Credit Note No.:" + rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:" + End Select + + Case "RO" + Select Case RECHNUNG.BelegartenKz + Case "AR" + rpt.lblUeberschriftRG_GS.Text = "FACTURA" + rpt.lblSummeUeberschrift.Text = "Total" + rpt.lblRgNrUeberschrift.Text = "Nr. factura:" + rpt.lblRgDatumUeberschrift.Text = "Data factura:" + Case "AG" + rpt.lblUeberschriftRG_GS.Text = "NOTA DE CREDIT" + rpt.lblSummeUeberschrift.Text = "Total" + rpt.lblRgNrUeberschrift.Text = "Nr. nota credit:" + rpt.lblRgDatumUeberschrift.Text = "Data nota credit:" + End Select + + Case Else + Select Case RECHNUNG.BelegartenKz + Case "AR" + rpt.lblUeberschriftRG_GS.Text = "RECHNUNG" + Case "AG" + rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT" + rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:" + rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:" + rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:" + End Select + + End Select + + + initRgFirma_MDM(rpt, firma, RECHNUNG) + + Select Case RECHNUNG.Firma_ID + Case 1 ' rpt.picVERAG.Image= My.Resources.Verag_AG_Logo : rpt.Picture1.Image = My.Resources.aeo_AT_imex is eh standard + Case 4 : rpt.picVERAG.Image = My.Resources.Verag_AG_Logo : rpt.Picture1.Image = Nothing + Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing + Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = My.Resources.aeo_CS + Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing + Case 19 : rpt.picVERAG.Image = My.Resources.VERAG_360 : rpt.Picture1.Image = Nothing + Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex + Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT + Case 22 : rpt.picVERAG.Image = My.Resources.Unisped_DE_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_DE + Case 26 : rpt.picVERAG.Image = My.Resources.VERAG_UNISPED_Logo : rpt.Picture1.Image = Nothing + Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT + Case 24 : rpt.picVERAG.Image = My.Resources.ambar_boarder : rpt.Picture1.Image = Nothing + rpt.txtAvisierer.Visible = False : rpt.lblAvisiererUeberschrift.Visible = False : rpt.txtWarenwert.Visible = False : rpt.lblWarenWertUeberschrift.Visible = False + + End Select + + Dim ZZTage = 10 + Dim ZZTageVL = 10 + Dim ZZKdZahlungsziel = SQL.DLookup("Zahlungsziel", "Kunden", "Kundennr=" & RECHNUNG.RechnungsKundenNr, "FMZOLL", 10) + If ZZKdZahlungsziel IsNot Nothing AndAlso IsNumeric(ZZKdZahlungsziel) Then + ZZTage = ZZKdZahlungsziel + ZZTageVL = ZZTage + End If + Dim ZZKdZahlungszielVL = SQL.DLookup("kde_abweichendesZZVL", "tblKundenErweitert", "kde_KundenNr=" & RECHNUNG.RechnungsKundenNr, "FMZOLL", 10) + If ZZKdZahlungszielVL IsNot Nothing AndAlso IsNumeric(ZZKdZahlungszielVL) Then + ZZTageVL = ZZKdZahlungszielVL + End If + + Select Case RECHNUNG.RechnungSprache + Case "EN" : rpt.Label2.Text = ZZTage & " Days" : rpt.Label1.Text = "Payment target:" : rpt.lblSendungsdatenUeberschrift.Text = "Service:" + Case "RO" : rpt.Label2.Text = ZZTage & " Zile" : rpt.Label1.Text = "Termen de plată:" : rpt.lblSendungsdatenUeberschrift.Text = "Descriere:" + Case Else : rpt.Label2.Text = ZZTage & " Tage" : rpt.lblSendungsdatenUeberschrift.Text = "Bezeichnung:" + End Select + + + Select Case RECHNUNG.Firma_ID + Case 21, 22, 23, 26 : rpt.Label1.Visible = False : rpt.Label2.Visible = False 'Ka warum + Case 19 + rpt.txtGrenze.Visible = False + rpt.txtGrenzeUeberschrift.Visible = False + rpt.lblWarenWertUeberschrift.Visible = False + rpt.txtWarenwert.Visible = False + End Select + + rpt.lblKundenNr.Text = If(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, "") + rpt.lblRgNr.Text = If(RECHNUNG.RechnungsNr > 0, addYeartoRgNr(firma.Firma_ID, RECHNUNG.Buchungsjahr) & RECHNUNG.RechnungsNr, "Vorschau") + rpt.lblRgDatum.Text = If(RECHNUNG.RechnungsDatum IsNot Nothing, CDate(RECHNUNG.RechnungsDatum).ToShortDateString, "VORSCHAU") + + 'rpt.lblKundenAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "") + 'If rpt.lblKundenAuftragsnummer.Text = String.Empty Then rpt.lblKundenAuftragsnummerUeberschrift.Visible = False + + rpt.lblAbfertigungsNr.Text = RECHNUNG.FilialenNr & " / " & RECHNUNG.AbfertigungsNr & " " & RECHNUNG.UnterNr.ToString("00") + rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString + rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") + + Dim sachbearbeiterAufRechnung = getSBRgName(RECHNUNG.Firma_ID, RECHNUNG.Sachbearbeiter) + rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'If(RECHNUNG.Sachbearbeiter, "") + + rpt.txtAbsender.Text = If(RECHNUNG.AbsenderName_1, "") & " " & If(RECHNUNG.AbsenderName_2, "") & vbNewLine & If(RECHNUNG.AbsenderOrt, "").ToString.Trim + rpt.txtEmpfaenger.Text = If(RECHNUNG.EmpfängerName_1, "") & " " & If(RECHNUNG.EmpfängerName_2, "") & vbNewLine & If(RECHNUNG.EmpfängerOrt, "").ToString.Trim + rpt.txtAvisierer.Text = If(RECHNUNG.Avisierer, "") + + If firma.Firma_ID = 4 Then + rpt.lblWarenWertUeberschrift.Visible = False + rpt.txtWarenwert.Visible = False + rpt.txtGrenze.Visible = False + rpt.txtGrenzeUeberschrift.Visible = False + End If + + rpt.txtZollbelegNr.Text = If(RECHNUNG.BelegNr, "") + + Dim waehrungCode As String = SQL.getValueTxtBySql("SELECT isnull(Währungscode,'') FROM Währungstabelle WHERE Währungsschlüssel = " & If(RECHNUNG.[WährungsNr], -1) & ";", "FMZOLL") + If IsNumeric(If(RECHNUNG.Wert, "")) Then + ' rpt.txtWarenwert.Text = CDbl(RECHNUNG.Wert).ToString("N2") & " " & If(RECHNUNG.Währungscode, "") + rpt.txtWarenwert.Text = CDbl(RECHNUNG.Wert).ToString("N2") & " " & waehrungCode + Else + ' rpt.txtWarenwert.Text = If(RECHNUNG.Wert, "") & " " & If(RECHNUNG.Währungscode, "") + rpt.txtWarenwert.Text = If(RECHNUNG.Wert, "") & " " & waehrungCode + End If + rpt.txtSendungsdaten.Text = If(RECHNUNG.Packstücke_und_Warenbezeichnung, "") + If rpt.txtSendungsdaten.Text.Length > 200 Then rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Substring(0, 200) + rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Replace(", 0,0 kg", "") '0kg ausblenden + rpt.txtBeförderungsmittel.Text = If(RECHNUNG.LKW_Kennzeichen, "") + + rpt.txtGrenze.Text = If(RECHNUNG.Grenze, "") + If rpt.txtGrenze.Text.Trim = String.Empty Then rpt.txtGrenze.Text = SQL.getValueTxtBySql("SELECT TOP 1 isnull([Grenzstelle],'') FROM [Filialen] where FilialenNr='" & RECHNUNG.FilialenNr & "'", "FMZOLL") + If rpt.txtGrenze.Text.Trim = String.Empty Then rpt.txtGrenzeUeberschrift.Visible = False + + rpt.lblRechnungAn.Text = If(RECHNUNG.RechnungsName_1, "") & vbNewLine + If If(RECHNUNG.RechnungsName_2, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsName_2 & vbNewLine + If If(RECHNUNG.RechnungsStraße, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsStraße & vbNewLine + If If(RECHNUNG.RechnungsName_AdressZusatz, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsName_AdressZusatz & vbNewLine + If If(RECHNUNG.RechnungsOrt, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsOrt & vbNewLine + If If(RECHNUNG.RechnungsLandKz, "") <> "" Then rpt.lblRechnungAn.Text &= cProgramFunctions.getLandBez_fromISO1Land(RECHNUNG.RechnungsLandKz, "", RECHNUNG.RechnungSprache).ToString.ToUpper + + + 'If If(RECHNUNG.RechnungsName_2, "") = "" Then + ' rpt.lblRechnung_Name1.Text = "" + ' rpt.lblRechnung_Name2.Text = If(RECHNUNG.RechnungsName_1, "") + 'Else + ' rpt.lblRechnung_Name1.Text = If(RECHNUNG.RechnungsName_1, "") + ' rpt.lblRechnung_Name2.Text = If(RECHNUNG.RechnungsName_2, "") + 'End If + 'rpt.lblRechnung_Strasse.Text = If(RECHNUNG.RechnungsStraße, "") + 'rpt.lblRechnung_Ort.Text = If(RECHNUNG.RechnungsOrt, "") + 'rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(RECHNUNG.RechnungsLandKz, "", RECHNUNG.RechnungSprache).ToString.ToUpper + + If KD_RG IsNot Nothing AndAlso If(KD_RG.Steuernummer, "") <> String.Empty Then + If RECHNUNG.Firma_ID = 4 Then + rpt.lblRechnung_Steuernummer.Text = If(KD_RG.Steuernummer, "").ToString.Trim 'ohne LandKz gewünscht + Else + rpt.lblRechnung_Steuernummer.Text = If(KD_RG.LandKz, "") & " " & If(KD_RG.Steuernummer, "").ToString.Trim + End If + + ' rpt.lblRechnung_UID.Text = If(KD_RG.UstIdKz, "") & " " & If(KD_RG.UstIdNr, "").ToString.Trim + Else + rpt.lblRechnung_Steuernummer.Text = "" + ' rpt.lblRechnung_UID.Text = "" + End If + rpt.lblRechnung_Steuernummer.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty) + rpt.lblRechnung_Steuernummer_Ueberschrift.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty) + + rpt.lblRechnung_UID.Text = If(RECHNUNG.RechnungsUstIdKz, "") & If(RECHNUNG.RechnungsUstIdNr, "") + rpt.lblRechnung_UID.Visible = (rpt.lblRechnung_UID.Text <> String.Empty) + rpt.lblRechnung_UID_Ueberschrift.Visible = (rpt.lblRechnung_UID.Text <> String.Empty) + + rpt.txtKdAuftragsNr.Text = If(RECHNUNG.KdAuftragsNr, "") + rpt.txtKdAuftragsNr_Ueberschrift.Visible = (rpt.txtKdAuftragsNr.Text <> String.Empty) + + rpt.TextBox1.Text = If(RECHNUNG.TextZZ, "").ToString.Replace("; ", vbNewLine).Trim + rpt.txtVermerk.Text = (If(RECHNUNG.Text, "").ToString.Trim & vbNewLine & vbNewLine & If(RECHNUNG.Notiz, "").ToString.Trim).ToString.Trim + + + ' REVERSE CHARGE (Übergang der Steuerschuld in EU-Ländern). + ' Dies hat zur Folge, dass steuerfreie Rechnungsbeträge für Leistungen, + ' die in der Leistungstabelle als ReverseCharge gekennzeichnet sind, + ' summiert und auf der Rechnung ausgewiesen werden. + + If isReverseChargeSumme(firma, RECHNUNG) Then + + If RECHNUNG.Firma_ID = 19 Then + + Select Case RECHNUNG.RechnungSprache + Case "RO" : rpt.txtInfo.Text = "*Taxare inversa" + Case "EN" : rpt.txtInfo.Text = "*Reverse Charge" + Case Else : rpt.txtInfo.Text = "*Reverse Charge" + End Select + + Else + + Select Case RECHNUNG.RechnungSprache + Case "RO" : rpt.txtInfo.Text = "Obligația de TVA este transferată beneficiarului serviciului (Reverse Charge)." + Case "EN" : rpt.txtInfo.Text = "VAT liability is transferred to the recipient (Reverse Charge)." + Case Else : rpt.txtInfo.Text = "Die Umsatzsteuerschuld geht auf den Leistungsempfänger über (Reverse Charge Verfahren)." + End Select + + + End If + + Else : rpt.txtInfo.Text = "" : End If + + rpt.txtAnlagen.Text = "" + If If(RECHNUNG.Anlage_1, "") <> "" Then rpt.txtAnlagen.Text &= RECHNUNG.Anlage_1 + If If(RECHNUNG.Anlage_2, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_2 + If If(RECHNUNG.Anlage_3, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_3 + If If(RECHNUNG.Anlage_4, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_4 + If If(RECHNUNG.Anlage_5, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_5 + If If(RECHNUNG.Anlage_6, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_6 + + rpt.txtAnlagen.Text = rpt.txtAnlagen.Text.Trim + + If rpt.txtAnlagen.Text.Replace(" ", "") = "" Then + rpt.lblAnlagenUeberschrift.Visible = False + Else + Select Case RECHNUNG.RechnungSprache + Case "EN" : rpt.lblAnlagenUeberschrift.Text = "Attachment:" + Case "RO" : rpt.lblAnlagenUeberschrift.Text = "Anexa:" + Case Else : rpt.lblAnlagenUeberschrift.Text = "Anlagen:" + End Select + End If + + rpt.txtHandlingATA.Text = If(RECHNUNG.Handling, "") + If rpt.txtHandlingATA.Text.Replace(" ", "") = "" Then + rpt.lblHandlingATA.Visible = False + End If + + + If rpt.txtAbsender.Text.Trim = String.Empty Then rpt.lblAbsenderUeberschrift.Visible = False + If rpt.txtEmpfaenger.Text.Trim = String.Empty Then rpt.lblEmpfaengerUeberschrift.Visible = False + If rpt.txtAvisierer.Text.Trim = String.Empty Then rpt.lblAvisiererUeberschrift.Visible = False + If rpt.lblLKWId.Text.Trim = String.Empty Then rpt.lblLKWIdUebeschrift.Visible = False + If rpt.txtWarenwert.Text.Trim = String.Empty Then rpt.lblWarenWertUeberschrift.Visible = False + If rpt.txtZollbelegNr.Text.Trim = String.Empty Then rpt.lblZollbelegNr.Visible = False + If rpt.txtBeförderungsmittel.Text.Trim = String.Empty Then rpt.txtBeförderungsmittelUeberschrift.Visible = False + + + 'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung + + 'ANLAGE ZUR RECHNUNG: + If RECHNUNG.Status = 3 Or RECHNUNG.Sammelrechnung <> 0 Then + rpt.txtAnlagen.Visible = False + rpt.lblAnlagenUeberschrift.Visible = False + rpt.lblRgDatumUeberschrift.Visible = False + rpt.lblRgNrUeberschrift.Visible = False + rpt.lblRgDatum.Visible = False + rpt.lblRgNr.Visible = False + + rpt.lblSummeUeberschrift.Visible = False + rpt.lblSumme.Visible = False + rpt.lblZWSumme.Visible = False + rpt.lblZwText.Visible = False + rpt.lblSteuersatz.Visible = False + rpt.lblSteuerbetrag.Visible = False + + rpt.Label46.Visible = False + rpt.Line1.Visible = False + rpt.Line5.Visible = False + rpt.Line14.Visible = False + rpt.Line8.Visible = False + rpt.Line7.Visible = False + + + Select Case RECHNUNG.RechnungSprache + Case "EN" + Select Case RECHNUNG.BelegartenKz + Case "AR" + rpt.lblUeberschriftRG_GS.Text = "Attachment to invoice" + Case "AG" + rpt.lblUeberschriftRG_GS.Text = "Attachment to CREDIT NOTE" + End Select + Case "RO" + Select Case RECHNUNG.BelegartenKz + Case "AR" + rpt.lblUeberschriftRG_GS.Text = "Anexa la factura colectiva" + Case "AG" + rpt.lblUeberschriftRG_GS.Text = "Anexa la nota de credit" + End Select + Case Else + Select Case RECHNUNG.BelegartenKz + Case "AR" + rpt.lblUeberschriftRG_GS.Text = "Anlage zur Sammelrechnung" + Case "AG" + rpt.lblUeberschriftRG_GS.Text = "Anlage zur Gutschrift" + End Select + + End Select + End If + + If Not printOriginalRg Then 'sonst wird der originaldruck erzwungen + If RECHNUNG.DruckDatumZeit IsNot Nothing Then + Select Case RECHNUNG.RechnungSprache + Case "EN" : rpt.lblUeberschriftRG_GS.Text &= " - COPY" + Case "RO" : rpt.lblUeberschriftRG_GS.Text &= " - COPIE" + Case Else : rpt.lblUeberschriftRG_GS.Text &= " - KOPIE" + End Select + End If + End If + + 'Dim cnt As Integer = 0 + + If RECHNUNG.Firma_ID = 19 Then + + 'rpt.lblSteuersatz.Visible = False + 'rpt.lblSteuerbetrag.Visible = False + rpt.lblSteuerpflichtigGes.Visible = False + rpt.lblSteuerfreiGes.Visible = False + rpt.lblZwText.Visible = False + rpt.lblZWSumme.Visible = False + + rpt.lblRechnung_Steuernummer.Visible = False + rpt.lblRechnung_Steuernummer_Ueberschrift.Visible = False + End If + + Dim sumSteuerpflichtig As Double = 0 + Dim sumSteuerfrei As Double = 0 + + ' Dim Anz As Double = 0 + ' Dim gesSumBt As Double = 0 + ' Dim gesAnz As Double = 0 + Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1) + + + ' Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr) + + + + ' rpt.Line10.AnchorBottom = True + ' rpt.Line10.Height = rpt.Detail.Height + + AddHandler rpt.Detail.Format, Sub() + ' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString + ' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString + + rpt.lblLeistungNr.Text = checkNull(rpt.Fields.Item("LeistungsNr").Value) + rpt.txtLeistung.Text = checkNull(rpt.Fields.Item("LeistungsBez").Value) + + If firma.Firma_ID = 19 Then + Dim isReverseCharge As Boolean = SQL.getValueTxtBySql("SELECT ReverseCharge as Bit from Leistungen where LeistungsNr= " & rpt.lblLeistungNr.Text, "FMZOLL") + If isReverseCharge Then + rpt.txtLeistung.Text &= IIf(Not rpt.txtLeistung.Text.Contains("*"), "*", "") + End If + + If rpt.txtLeistung.Text.Contains("00/23") Or rpt.txtLeistung.Text.Contains("DL/23") Then + If RECHNUNG.FilialenNr = 4817 AndAlso RECHNUNG.AbfertigungsNr > 0 AndAlso (RECHNUNG.OffertenNr = 14 Or RECHNUNG.OffertenNr = 15 Or RECHNUNG.OffertenNr = 31) Then + Dim antragsID As Integer = CInt(SQL.getValueTxtBySql("SELECT UStVAn_ID FROM tblUStVAntrag WHERE FilialenNr = " & RECHNUNG.FilialenNr & " AND AbfertigungsNr = " & RECHNUNG.AbfertigungsNr, "FMZOLL",,, "-1")) + + If antragsID > 0 Then + + Dim MWSTAntrag As New cUSTVAntrag(antragsID) + + + Dim MonthStart As String = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & CDate(MWSTAntrag.UStVAn_ReDatVon).Month + Dim MonthEnd As String = IIf(CDate(MWSTAntrag.UStVAn_ReDatBis).Month < 10, "0", "") & CDate(MWSTAntrag.UStVAn_ReDatBis).Month + + If MonthStart = MonthEnd Then MonthEnd = "" + + Dim listVZMonth As New List(Of Integer) + + If RECHNUNG.RK_ID > 0 Then + For Each pos As cUStVPositionen In MWSTAntrag.POSITIONEN.OrderBy(Function(x) If(IsDate(x.UStVPo_ReDat), CDate(x.UStVPo_ReDat), Nothing)) + + If Not IsDBNull(pos.UStVPo_VZ) AndAlso pos.UStVPo_VZ AndAlso pos.UStVPo_VZ_RKID = RECHNUNG.RK_ID AndAlso IsDate(pos.UStVPo_ReDat) Then + If Not listVZMonth.Contains(CDate(pos.UStVPo_ReDat).Month) Then listVZMonth.Add(CDate(pos.UStVPo_ReDat).Month) + End If + + Next + End If + + + If listVZMonth.Count > 0 Then + + If listVZMonth.Count = 1 Then + MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString + MonthEnd = "" + Else + MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString + MonthEnd = IIf(CDate(MWSTAntrag.UStVAn_ReDatBis).Month < 10, "0", "") & listVZMonth(listVZMonth.Count - 1).ToString + End If + End If + + + If rpt.txtLeistung.Text.Contains("00-00/23") Then + rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2)) + ElseIf rpt.txtLeistung.Text.Contains("DL/23") Then + rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("DL/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2)) + Else + rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2)) + End If + + If rpt.txtLeistung.Text.Contains("-00") Then + rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("-00", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) + ElseIf rpt.txtLeistung.Text.Contains("00-") Then + rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00-", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) + ElseIf rpt.txtLeistung.Text.Contains("00") Then + rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) + End If + End If + + + End If + + + End If + End If + + + If rpt.Fields.Item("Belegdaten").Value IsNot Nothing Then + rpt.txtLeistung.Text &= vbNewLine & checkNull(rpt.Fields.Item("Belegdaten").Value) + End If + + rpt.lblAnzahl.Text = checkNull(rpt.Fields.Item("Anzahl").Value) + ' rpt.lblBetrag.Text = rpt.Fields.Item("betrag").Value + + Dim stPfl As Double = 0 + Dim stFrei As Double = 0 + + + If IsNumeric(checkNull(rpt.Fields.Item("SteuerpflichtigerBetrag").Value)) Then stPfl = CDbl(rpt.Fields.Item("SteuerpflichtigerBetrag").Value()) + rpt.lblSteuerpflichtig.Text = If(stPfl <> 0, CDbl(stPfl * vorzeichen).ToString("N2", Globalization.CultureInfo.CurrentCulture), "") + If IsNumeric(checkNull(rpt.Fields.Item("SteuerfreierBetrag").Value)) Then stFrei = CDbl(rpt.Fields.Item("SteuerfreierBetrag").Value()) + rpt.lblSteuerfrei.Text = If(stFrei <> 0, CDbl(stFrei * vorzeichen).ToString("N2", Globalization.CultureInfo.CurrentCulture), "") + + + sumSteuerpflichtig += stPfl + sumSteuerfrei += stFrei + + ' Anz += 1 + ' gesAnz += 1 + + ' If Anz Mod 2 = 0 Then + ' rpt.Detail.BackColor = Color.FromArgb(240, 240, 240) + 'Else + ' rpt.Detail.BackColor = Color.White + ' End If + 'rpt.Line10.Height = rpt.Detail.Height + + + If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then 'dann ist es eine Zinsnachberechnungs-Rechnung + Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG) + + rpt.SubReportt.Report = subRpt + rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) + rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) + + 'txtPackstuecke.Top += SubReport.Height + 'txtKdAuftragsnummer.Top += SubReport.Height + 'txtSendungsdetails.Top += SubReport.Height + Else + rpt.SubReportt.Report = Nothing + End If + + End Sub + + AddHandler rpt.ReportFooter1.Format, Sub() + rpt.lblSteuerpflichtigGes.Text = If(sumSteuerpflichtig <> 0, CDbl(sumSteuerpflichtig * vorzeichen).ToString("N2", CultureInfo.CurrentCulture), "") + rpt.lblSteuerfreiGes.Text = If(sumSteuerfrei <> 0, CDbl(sumSteuerfrei * vorzeichen).ToString("N2", CultureInfo.CurrentCulture), "") + + Dim steuerProz As Double = 0 + Dim steuerBez As String = "" + + Dim dt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RECHNUNG.Steuerschlüssel & "'", "FMZOLL") + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + steuerProz = dt.Rows(0)(0) + steuerBez = dt.Rows(0)(1) + End If + + Dim tmpSteuerbetrag = CDbl((sumSteuerpflichtig * steuerProz) * vorzeichen) + rpt.lblSteuersatz.Text = steuerBez + rpt.lblSteuerbetrag.Text = If((sumSteuerpflichtig * steuerProz) <> 0, tmpSteuerbetrag.ToString("N2", CultureInfo.CurrentCulture), "") + If tmpSteuerbetrag = 0 Then + rpt.lblSteuerbetrag.Visible = False + End If + + ' rpt.lblZWSumme.Text = (sumSteuerpflichtig + sumSteuerfrei).ToString("N2", CultureInfo.CurrentCulture) + ' rpt.lblSumme.Text = (sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz)).ToString("N2", CultureInfo.CurrentCulture) + + rpt.lblZWSumme.Text = CDbl((sumSteuerpflichtig + sumSteuerfrei) * vorzeichen).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblSumme.Text = CDbl((sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz)) * vorzeichen).ToString("N2", CultureInfo.CurrentCulture) + rpt.Label46.Text = If(RECHNUNG.Währungscode, "EUR") + + If isSTARK(RECHNUNG) Then + rpt.lblZwText.Text = "Summe EUST" + rpt.lblZWSumme.Text = CDbl(getSTARK_EUST(firma, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblZwText.Visible = True + rpt.lblZWSumme.Visible = True + + rpt.lblSteuersatz.Text = "Summe ohne EUST" + rpt.lblSteuerbetrag.Text = CDbl(getSTARK_ohneEUST(firma, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblSteuersatz.Visible = True + rpt.lblSteuerbetrag.Visible = True + + Else + + If isReverseChargeSumme(firma, RECHNUNG) Then + Select Case RECHNUNG.RechnungSprache + Case "DE" : rpt.lblZwText.Text = "Summe Steuerfrei" : rpt.lblSteuersatz.Text = "Summe Reverse Charge" + Case "EN" : rpt.lblZwText.Text = "Sum Taxfree" : rpt.lblSteuersatz.Text = "Sum Reverse Charge" + Case "RO" : rpt.lblZwText.Text = "Suma neimpozabila" : rpt.lblSteuersatz.Text = "Suma Reverse Charge" + End Select + + rpt.lblZWSumme.Text = CDbl(getSteuerfreiEUSTZOLL(firma, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblZwText.Visible = True + rpt.lblZWSumme.Visible = True + + If RECHNUNG.Firma_ID = 19 Then 'Bei MDM ausblenden! + rpt.lblSteuersatz.Text = "" + rpt.lblSteuerbetrag.Visible = False + Else + rpt.lblSteuerbetrag.Text = CDbl(getReverseChargeSummeRKID(firma, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblSteuersatz.Visible = True + rpt.lblSteuerbetrag.Visible = True + + End If + + Else + + If sumSteuerfrei = 0 Or sumSteuerpflichtig = 0 Then + + rpt.lblZwText.Visible = False + rpt.lblZWSumme.Visible = False + End If + End If + End If + + If RECHNUNG.Firma_ID = 19 Then + + 'rpt.lblSteuersatz.Visible = False + 'rpt.lblSteuerbetrag.Visible = False + + rpt.lblSteuerpflichtigGes.Visible = False + rpt.lblSteuerfreiGes.Visible = False + rpt.lblZwText.Visible = False + rpt.lblZWSumme.Visible = False + End If + + + End Sub + + 'DruckDatumUhrzeit wird gesetzt, falls noch ungedruckt... + 'If RECHNUNG.DruckDatumZeit Is Nothing Then + ' RECHNUNG.SET_DruckdatumUhrzeit() + 'End If + + + If vorschau Then + + + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) + + + cProgramFunctions.showRpt(rpt, "Rechnungsdruck", False) + Return True + Else + Dim Kopie = True + 'ORIGINAL + Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr) + If RECHNUNG.Status = 0 Then + If AD IsNot Nothing Then + Kopie = False + 'Aktualisierung und speichern: + If Abrechnugsdaten_AKTUALISIEREN(RECHNUNG, RechnungsDatum) Then + rpt.lblRgNr.Text = If(RECHNUNG.RechnungsNr > 0, addYeartoRgNr(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) & RECHNUNG.RechnungsNr, "Vorschau") + rpt.lblRgDatum.Text = CDate(RECHNUNG.RechnungsDatum).ToShortDateString + + If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Erstmaliger Druck + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + Else + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) + End If + + Else + MsgBox("Fehler bei der Vergabe der Rg-Nr.!") + Return False + End If + Else + MsgBox("Fehler: Kein Rechnungsempfänger gefunden!") + Return False + End If + Else + + If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Wiederholungsdruck + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + Else + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) + End If + + If RECHNUNG.[DruckDatumZeit] Is Nothing Then + RECHNUNG.[DruckDatumZeit] = Now 'Wenn Rg-Nr schon vergeben wird das neu gesetzt + RECHNUNG.SAVE_DruckDatumZeit() ' Nur SAVE_DruckDatumZeit ändern/setzen + End If + End If + + If Not RECHNUNG.checkRechnungsNrIsSet() Then + MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen") + Return False + End If + + 'Rechnugnsdruck = Individuell für deise Rechnung, wird optional mitgegeben + ' Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Rechnung_" & If(RECHNUNG.RechnungsNr, "") & ".pdf" + Dim RG_Bezeichnung = If(RECHNUNG.[BelegartenKz] = "AR", "Rechnung_", "Gutschrift_") & If(RECHNUNG.RechnungsNr, "") & ".pdf" + + '-------------------------------- + ' --> TEST wegen Size Problem + '-------------------------------- + If PrinterName <> "" Then + rpt.Document.Printer.PrinterName = PrinterName + End If + rpt.Document.Printer.PaperSize = rpt.Document.Printer.PrinterSettings.DefaultPageSettings.PaperSize + + 'Immer Exportieren, da in Therefore speichern + Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) + Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + rpt.Run(False) + p.NeverEmbedFonts = "" + + p.Export(rpt.Document, tmpPath) + + Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID) + Dim enableZugpferd = Paramslist.GET_PARAMETER_VALUE_BOOL("ZUGFeRD") + If enableZugpferd Then + tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.addAttachementToPDF(tmpPath, createZUGFeRD(True, RECHNUNG,), "ZUGFeRD-invoice.xml") + Else + + Dim Zugferdpath = createZUGFeRD(True, RECHNUNG) + Dim fileInfo_ZP As New FileInfo(Zugferdpath) + Dim ZUGF_DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "ZUGFERD", Now().Year, "", "", fileInfo_ZP.Name, -1, False) + ZUGF_DS.uploadDataToDATENSERVER(Zugferdpath, fileInfo_ZP.Name, fileInfo_ZP.Extension,,,, True) + + End If + + + Path = tmpPath + + 'THEREFORE IMPORT: + '------------------------------------------------------------------------------- + Try + If Not Kopie And (Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM OrElse vbYes = MsgBox("TEST - in Therefore speichern?", vbYesNoCancel)) Then + + VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder(tmpPath, RECHNUNG.FilialenNr & RECHNUNG.AbfertigungsNr, If(RECHNUNG.AvisoID, ""), RECHNUNG.Firma_ID, False) + + End If + Catch ex As Exception + MsgBox("Therefore-Import fehlgeschlagen!" & ex.Message & ex.StackTrace) + End Try + '------------------------------------------------------------------------------- + + ' MsgBox(Rechnugnsdruck) + Dim RD_DRUCK = If(Rechnugnsdruck >= 0, Rechnugnsdruck, If(AD.Rechnungsdruck, 0)) 'If(AD.Rechnungsdruck, 0) + ' MsgBox(RD_DRUCK) + Select Case RD_DRUCK + Case 0, 1 'DRUCKEN + + Dim ret = cProgramFunctions.printRpt(rpt, PrinterName, False) + + If printStbVdb AndAlso RECHNUNG.Firma_ID <> 1 Then + If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Zollbeleg drucken?", vbYesNoCancel)) Then + printSpedBuchAnhaenge(RECHNUNG, True, True) + End If + End If + If RECHNUNG.ANHAENGE.Count > 0 AndAlso RECHNUNG.Firma_ID <> 1 Then + If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then + printRGAnhaenge(RECHNUNG) + End If + End If + + Return ret + + Case 2, 5 'MAIL + + Path = tmpPath + + Try + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) + Select Case RECHNUNG.RechnungsLandKz + Case "TR" + Mail.Subject = "Invoice No. " & RECHNUNG.RechnungsNr + Mail.HTMLBody = "Sayin Bayanlar ve Baylar,

ekte baslikta yazan faturayi bulabilirsinz." + Mail.HTMLBody &= "


Saygilarimizla

" & getSignature(RECHNUNG) + Case "A", "AT", "D", "DE", "CH" + Mail.Subject = "Rechnung Nr. " & RECHNUNG.RechnungsNr + Mail.HTMLBody = "Sehr geehrte Damen und Herren,

im Anhang senden wir Ihnen die o.g. Rechnung." + Mail.HTMLBody &= "


Mit freundlichen Grüßen

" & getSignature(RECHNUNG) + Case Else + Mail.Subject = "Invoice No. " & RECHNUNG.RechnungsNr + Mail.HTMLBody = "Dear Sir or Madam,

attached we send you the invoice mentioned above." + Mail.HTMLBody &= "


Best regards

" & getSignature(RECHNUNG) + End Select + Mail.HTMLBody = "
" & Mail.HTMLBody & "
" + + Dim emai_receipt As String = "" + If RECHNUNG.FilialenNr = "4801" Or RECHNUNG.FilialenNr = "4802" Then emai_receipt = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(RECHNUNG.RechnungsKundenNr, "Rechnung an (ATILLA)") + + Mail.To = IIf(emai_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(RECHNUNG.RechnungsKundenNr, "Rechnung an"), emai_receipt) + Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Rechnung.pdf") + Mail.Display() + + If RD_DRUCK = 5 Then + ' --> RPOT KOPIE DRUCKEN + Select Case RECHNUNG.RechnungSprache + Case "EN" : rpt.lblUeberschriftRG_GS.Text &= " - COPY" + Case Else : rpt.lblUeberschriftRG_GS.Text &= " - KOPIE" + End Select + + Dim ret = cProgramFunctions.printRpt(rpt, PrinterName, False) + If printStbVdb Then + If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Zollbeleg drucken?", vbYesNoCancel)) Then + printSpedBuchAnhaenge(RECHNUNG, True, True) + End If + End If + If RECHNUNG.ANHAENGE.Count > 0 Then + 'wird nicht mehr benötigt! TicketNr: 953 ----- wird doch wieder benötigt! + If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then + printRGAnhaenge(RECHNUNG) + End If + End If + End If + + Catch ex As Exception + MsgBox("Fehler beim Öffnen des Mail-Programmes. PDF wird geladen!") + Process.Start(tmpPath) + End Try + rpt.Dispose() + Return True + + Case 3 'PDF + öffnen + + If RECHNUNG.ANHAENGE.Count > 0 Then + If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge öffnen?", vbYesNoCancel)) Then + openRgAnhaenge(RECHNUNG) + End If + End If + + ' rpt.Dispose() + Path = tmpPath + Process.Start(tmpPath) + + rpt.Dispose() + Return True + Case 4 'PDF _ für Mail Funktion--> nur PDFpfad benötigt + + Path = tmpPath + rpt.Dispose() + Return True + End Select + End If + Return False End Function diff --git a/SDL/Fakturierung/rptRechnungDruck.Designer.vb b/SDL/Fakturierung/rptRechnungDruck.Designer.vb index 5475ea83..d9d436ec 100644 --- a/SDL/Fakturierung/rptRechnungDruck.Designer.vb +++ b/SDL/Fakturierung/rptRechnungDruck.Designer.vb @@ -1,4 +1,4 @@ - _ + Partial Public Class rptRechnungDruck Inherits GrapeCity.ActiveReports.SectionReport @@ -14,7 +14,7 @@ Partial Public Class rptRechnungDruck '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(rptRechnungDruck)) Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() diff --git a/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb b/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb new file mode 100644 index 00000000..41aeb925 --- /dev/null +++ b/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb @@ -0,0 +1,1734 @@ + +Partial Public Class rptRechnungDruck_MDM + 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(rptRechnungDruck_MDM)) + Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() + Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.lblLeistungNr = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblAnzahl = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSteuerfrei = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSteuerpflichtig = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtLeistung = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.Line10 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line11 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.SubReportt = New GrapeCity.ActiveReports.SectionReportModel.SubReport() + Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() + Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() + Me.lblBankUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtBank1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtBank2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtDisclaimer = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtBank3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader() + Me.lblRgNrUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture() + Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture() + Me.lblKundenNrUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblUeberschriftRG_GS = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblKundenNr = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblFirmaOrt = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFirmaStrasse = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFirmaTel = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFirmaFax = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFirmaEmail = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFirmaWeb = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblRgDatumUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblRgDatum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblAbfertigungsNrUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblAbfertigungsNr = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblAbfertigungsDatumUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblAbfertigungsDatum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblLKWIdUebeschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblLKWId = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSachbearbeiterUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFirmenbuchUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFirmenbuch = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblUIDUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblUID = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblEORIUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblEORI = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblRechnung_UID_Ueberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblRechnung_UID = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblRechnung_Steuernummer_Ueberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblRechnung_Steuernummer = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtKdAuftragsNr_Ueberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtKdAuftragsNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.Line15 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblRechnungAn = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblRgNr = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() + Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line9 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblSummeUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSteuerfreiGes = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSteuerpflichtigGes = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSumme = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label46 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line5 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblZWSumme = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSteuerbetrag = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSteuersatz = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtVermerk = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtInfo = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblAnlagenUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtAnlagen = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.Line6 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line14 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblZwText = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line17 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.txtHandlingATA = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblHandlingATA = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblLeistungUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblAnzahlUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSteuerfreiUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblAbsenderUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblAvisiererUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblEmpfaengerUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtEmpfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtAvisierer = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblZollbelegNr = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtZollbelegNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblWarenWertUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtWarenwert = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtGrenzeUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtGrenze = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtBeförderungsmittelUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtBeförderungsmittel = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblSendungsdatenUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtSendungsdaten = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line13 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + CType(Me.lblLeistungNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSteuerfrei, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSteuerpflichtig, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblBankUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtBank1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtBank2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtDisclaimer, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtBank3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRgNrUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblKundenNrUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblKundenNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmaOrt, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmaStrasse, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmaTel, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmaFax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRgDatumUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAbfertigungsNrUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAbfertigungsNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAbfertigungsDatumUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAbfertigungsDatum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblLKWIdUebeschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblLKWId, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSachbearbeiterUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmenbuchUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmenbuch, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblUIDUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblUID, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblEORIUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblEORI, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRechnung_UID_Ueberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRechnung_UID, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRechnung_Steuernummer_Ueberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRechnung_Steuernummer, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtKdAuftragsNr_Ueberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtKdAuftragsNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRechnungAn, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRgNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSteuerfreiGes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label46, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblZWSumme, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSteuerbetrag, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSteuersatz, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtVermerk, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAnlagenUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAnlagen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblZollbelegNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblWarenWertUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtWarenwert, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtGrenzeUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtBeförderungsmittelUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtBeförderungsmittel, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSendungsdatenUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtSendungsdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'PageHeader + ' + Me.PageHeader.Height = 0! + Me.PageHeader.Name = "PageHeader" + ' + 'Detail + ' + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungNr, Me.lblAnzahl, Me.lblSteuerfrei, Me.lblSteuerpflichtig, Me.txtLeistung, Me.Line10, Me.Line11, Me.SubReportt}) + Me.Detail.Height = 0.5047026! + Me.Detail.KeepTogether = True + Me.Detail.Name = "Detail" + ' + 'lblLeistungNr + ' + Me.lblLeistungNr.Height = 0.1574803! + Me.lblLeistungNr.HyperLink = Nothing + Me.lblLeistungNr.Left = 0.01417324! + Me.lblLeistungNr.Name = "lblLeistungNr" + Me.lblLeistungNr.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.lblLeistungNr.Style = "font-size: 9pt; font-weight: normal; text-align: left; ddo-char-set: 1" + Me.lblLeistungNr.Text = "123" + Me.lblLeistungNr.Top = 0! + Me.lblLeistungNr.Width = 0.3913386! + ' + 'lblAnzahl + ' + Me.lblAnzahl.Height = 0.1574803! + Me.lblAnzahl.HyperLink = Nothing + Me.lblAnzahl.Left = 3.380315! + Me.lblAnzahl.Name = "lblAnzahl" + Me.lblAnzahl.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & + "har-set: 1" + Me.lblAnzahl.Text = "999" + Me.lblAnzahl.Top = 0! + Me.lblAnzahl.Width = 0.5492127! + ' + 'lblSteuerfrei + ' + Me.lblSteuerfrei.Height = 0.1574803! + Me.lblSteuerfrei.HyperLink = Nothing + Me.lblSteuerfrei.Left = 5.511812! + Me.lblSteuerfrei.Name = "lblSteuerfrei" + Me.lblSteuerfrei.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1" + Me.lblSteuerfrei.Text = "999.999,99" + Me.lblSteuerfrei.Top = 0! + Me.lblSteuerfrei.Width = 1.554331! + ' + 'lblSteuerpflichtig + ' + Me.lblSteuerpflichtig.Height = 0.1574803! + Me.lblSteuerpflichtig.HyperLink = Nothing + Me.lblSteuerpflichtig.Left = 3.957481! + Me.lblSteuerpflichtig.Name = "lblSteuerpflichtig" + Me.lblSteuerpflichtig.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1" + Me.lblSteuerpflichtig.Text = "999.999,99" + Me.lblSteuerpflichtig.Top = 0! + Me.lblSteuerpflichtig.Width = 1.554331! + ' + 'txtLeistung + ' + Me.txtLeistung.Height = 0.1574803! + Me.txtLeistung.Left = 0.4055119! + Me.txtLeistung.Name = "txtLeistung" + Me.txtLeistung.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & + "ar-set: 1" + Me.txtLeistung.Text = "Verzollung inkl. 5 Tarifnummern" + Me.txtLeistung.Top = 0! + Me.txtLeistung.Width = 2.974803! + ' + 'Line10 + ' + Me.Line10.AnchorBottom = True + Me.Line10.Height = 0.1712599! + Me.Line10.Left = 0.00511811! + Me.Line10.LineWeight = 1.0! + Me.Line10.Name = "Line10" + Me.Line10.Top = 0! + Me.Line10.Width = 0! + Me.Line10.X1 = 0.00511811! + Me.Line10.X2 = 0.00511811! + Me.Line10.Y1 = 0! + Me.Line10.Y2 = 0.1712599! + ' + 'Line11 + ' + Me.Line11.AnchorBottom = True + Me.Line11.Height = 0.1712599! + Me.Line11.Left = 7.476377! + Me.Line11.LineWeight = 1.0! + Me.Line11.Name = "Line11" + Me.Line11.Top = 0! + Me.Line11.Width = 0! + Me.Line11.X1 = 7.476377! + Me.Line11.X2 = 7.476377! + Me.Line11.Y1 = 0! + Me.Line11.Y2 = 0.1712599! + ' + 'SubReportt + ' + Me.SubReportt.CloseBorder = False + Me.SubReportt.Height = 0.1574803! + Me.SubReportt.Left = 0.03307092! + Me.SubReportt.Name = "SubReportt" + Me.SubReportt.Report = Nothing + Me.SubReportt.ReportName = "SubReport1" + Me.SubReportt.Top = 0.1736111! + Me.SubReportt.Width = 7.442126! + ' + 'PageFooter + ' + Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2, Me.lblBankUeberschrift, Me.txtBank1, Me.txtBank2, Me.txtDisclaimer, Me.txtBank3}) + Me.PageFooter.Height = 0.8791339! + Me.PageFooter.Name = "PageFooter" + ' + 'Line2 + ' + Me.Line2.Height = 0! + Me.Line2.Left = 0! + Me.Line2.LineWeight = 1.0! + Me.Line2.Name = "Line2" + Me.Line2.Top = 0.07401575! + Me.Line2.Width = 7.480313! + Me.Line2.X1 = 0! + Me.Line2.X2 = 7.480313! + Me.Line2.Y1 = 0.07401575! + Me.Line2.Y2 = 0.07401575! + ' + 'ReportInfo2 + ' + Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount}" + Me.ReportInfo2.Height = 0.1330709! + Me.ReportInfo2.Left = 5.772048! + Me.ReportInfo2.Name = "ReportInfo2" + Me.ReportInfo2.Style = "font-size: 8pt; text-align: right" + Me.ReportInfo2.Top = 0.1173228! + Me.ReportInfo2.Width = 1.703196! + ' + 'lblBankUeberschrift + ' + Me.lblBankUeberschrift.Height = 0.1574803! + Me.lblBankUeberschrift.HyperLink = Nothing + Me.lblBankUeberschrift.Left = 0.01417323! + Me.lblBankUeberschrift.Name = "lblBankUeberschrift" + Me.lblBankUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" & + "r-set: 1" + Me.lblBankUeberschrift.Text = "Bankverbindungen:" + Me.lblBankUeberschrift.Top = 0.1173228! + Me.lblBankUeberschrift.Width = 1.155512! + ' + 'txtBank1 + ' + Me.txtBank1.Height = 0.4181103! + Me.txtBank1.Left = 1.096457! + Me.txtBank1.Name = "txtBank1" + Me.txtBank1.Style = "font-size: 6.75pt; font-weight: normal; text-align: left; text-justify: auto; ddo" & + "-char-set: 0" + Me.txtBank1.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L" & + "455" + Me.txtBank1.Top = 0.1173228! + Me.txtBank1.Width = 1.844882! + ' + 'txtBank2 + ' + Me.txtBank2.Height = 0.4181103! + Me.txtBank2.Left = 2.941339! + Me.txtBank2.Name = "txtBank2" + Me.txtBank2.Style = "font-size: 6.75pt; font-weight: normal; text-align: left; text-justify: auto; ddo" & + "-char-set: 0" + Me.txtBank2.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L" & + "455" + Me.txtBank2.Top = 0.1173228! + Me.txtBank2.Width = 1.892914! + ' + 'txtDisclaimer + ' + Me.txtDisclaimer.Height = 0.2708662! + Me.txtDisclaimer.Left = 0.01417323! + Me.txtDisclaimer.Name = "txtDisclaimer" + Me.txtDisclaimer.Style = "font-size: 7.8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-" & + "char-set: 1" + Me.txtDisclaimer.Text = resources.GetString("txtDisclaimer.Text") + Me.txtDisclaimer.Top = 0.6082678! + Me.txtDisclaimer.Width = 7.466143! + ' + 'txtBank3 + ' + Me.txtBank3.DataField = "" + Me.txtBank3.DistinctField = "" + Me.txtBank3.Height = 0.4181104! + Me.txtBank3.Left = 4.834252! + Me.txtBank3.Name = "txtBank3" + Me.txtBank3.Style = "color: Black; font-size: 6.75pt; font-weight: normal; text-align: left; text-just" & + "ify: auto; ddo-char-set: 0" + Me.txtBank3.SummaryGroup = "" + Me.txtBank3.Tag = "" + Me.txtBank3.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L" & + "455" + Me.txtBank3.Top = 0.1173228! + Me.txtBank3.Visible = False + Me.txtBank3.Width = 1.945276! + ' + 'ReportHeader1 + ' + Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblRgNrUeberschrift, Me.Picture1, Me.picVERAG, Me.lblKundenNrUeberschrift, Me.lblUeberschriftRG_GS, Me.lblKundenNr, Me.Line3, Me.lblFirmaOrt, Me.lblFirmaStrasse, Me.lblFirmaTel, Me.lblFirmaFax, Me.lblFirmaEmail, Me.lblFirmaWeb, Me.lblRgDatumUeberschrift, Me.lblRgDatum, Me.lblAbfertigungsNrUeberschrift, Me.lblAbfertigungsNr, Me.lblAbfertigungsDatumUeberschrift, Me.lblAbfertigungsDatum, Me.lblLKWIdUebeschrift, Me.lblLKWId, Me.lblSachbearbeiterUeberschrift, Me.lblSachbearbeiter, Me.lblFirmenbuchUeberschrift, Me.lblFirmenbuch, Me.lblUIDUeberschrift, Me.lblUID, Me.lblEORIUeberschrift, Me.lblEORI, Me.lblRechnung_UID_Ueberschrift, Me.lblRechnung_UID, Me.lblRechnung_Steuernummer_Ueberschrift, Me.lblRechnung_Steuernummer, Me.txtKdAuftragsNr_Ueberschrift, Me.txtKdAuftragsNr, Me.Line15, Me.lblFirma, Me.Label1, Me.Label2, Me.lblRechnungAn, Me.lblRgNr}) + Me.ReportHeader1.Height = 3.470997! + Me.ReportHeader1.Name = "ReportHeader1" + ' + 'lblRgNrUeberschrift + ' + Me.lblRgNrUeberschrift.Height = 0.1574803! + Me.lblRgNrUeberschrift.HyperLink = Nothing + Me.lblRgNrUeberschrift.Left = 5.104331! + Me.lblRgNrUeberschrift.Name = "lblRgNrUeberschrift" + Me.lblRgNrUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblRgNrUeberschrift.Text = "Rechnungs-Nr.:" + Me.lblRgNrUeberschrift.Top = 0.7503937! + Me.lblRgNrUeberschrift.Width = 1.165748! + ' + 'Picture1 + ' + Me.Picture1.Height = 0.6102362! + Me.Picture1.HyperLink = Nothing + Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String") + Me.Picture1.Left = 3.244882! + Me.Picture1.Name = "Picture1" + Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom + Me.Picture1.Top = 0! + Me.Picture1.Width = 1.059449! + ' + 'picVERAG + ' + Me.picVERAG.Height = 0.5389765! + Me.picVERAG.HyperLink = Nothing + Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String") + Me.picVERAG.Left = 0.01023622! + Me.picVERAG.Name = "picVERAG" + Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom + Me.picVERAG.Top = 0! + Me.picVERAG.Width = 2.482677! + ' + 'lblKundenNrUeberschrift + ' + Me.lblKundenNrUeberschrift.Height = 0.1574803! + Me.lblKundenNrUeberschrift.HyperLink = Nothing + Me.lblKundenNrUeberschrift.Left = 5.104331! + Me.lblKundenNrUeberschrift.Name = "lblKundenNrUeberschrift" + Me.lblKundenNrUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblKundenNrUeberschrift.Text = "Kunden-Nr.:" + Me.lblKundenNrUeberschrift.Top = 2.7063! + Me.lblKundenNrUeberschrift.Width = 1.165748! + ' + 'lblUeberschriftRG_GS + ' + Me.lblUeberschriftRG_GS.Height = 0.2311024! + Me.lblUeberschriftRG_GS.HyperLink = Nothing + Me.lblUeberschriftRG_GS.Left = 2.281496! + Me.lblUeberschriftRG_GS.Name = "lblUeberschriftRG_GS" + Me.lblUeberschriftRG_GS.Style = "font-size: 12pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.lblUeberschriftRG_GS.Text = "RECHNUNG" + Me.lblUeberschriftRG_GS.Top = 0.3870079! + Me.lblUeberschriftRG_GS.Width = 5.188583! + ' + 'lblKundenNr + ' + Me.lblKundenNr.Height = 0.1574803! + Me.lblKundenNr.HyperLink = Nothing + Me.lblKundenNr.Left = 5.511811! + Me.lblKundenNr.Name = "lblKundenNr" + Me.lblKundenNr.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblKundenNr.Text = "1234567" + Me.lblKundenNr.Top = 2.7063! + Me.lblKundenNr.Width = 1.958268! + ' + 'Line3 + ' + Me.Line3.Height = 0! + Me.Line3.Left = 0.002755864! + Me.Line3.LineColor = System.Drawing.Color.DimGray + Me.Line3.LineWeight = 1.0! + Me.Line3.Name = "Line3" + Me.Line3.Top = 0.6102362! + Me.Line3.Width = 7.475196! + Me.Line3.X1 = 0.002755864! + Me.Line3.X2 = 7.477952! + Me.Line3.Y1 = 0.6102362! + Me.Line3.Y2 = 0.6102362! + ' + 'lblFirmaOrt + ' + Me.lblFirmaOrt.Height = 0.1606298! + Me.lblFirmaOrt.HyperLink = Nothing + Me.lblFirmaOrt.Left = 0.01417317! + Me.lblFirmaOrt.Name = "lblFirmaOrt" + Me.lblFirmaOrt.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblFirmaOrt.Text = "A-4975 Suben" + Me.lblFirmaOrt.Top = 0.7078741! + Me.lblFirmaOrt.Width = 1.19685! + ' + 'lblFirmaStrasse + ' + Me.lblFirmaStrasse.Height = 0.1598426! + Me.lblFirmaStrasse.HyperLink = Nothing + Me.lblFirmaStrasse.Left = 0.01417319! + Me.lblFirmaStrasse.Name = "lblFirmaStrasse" + Me.lblFirmaStrasse.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblFirmaStrasse.Text = "Suben Nr. 100" + Me.lblFirmaStrasse.Top = 0.8685039! + Me.lblFirmaStrasse.Width = 1.19685! + ' + 'lblFirmaTel + ' + Me.lblFirmaTel.Height = 0.1606299! + Me.lblFirmaTel.HyperLink = Nothing + Me.lblFirmaTel.Left = 1.45748! + Me.lblFirmaTel.Name = "lblFirmaTel" + Me.lblFirmaTel.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblFirmaTel.Text = "Tel. +43 7711 2777 - 0" + Me.lblFirmaTel.Top = 0.7078741! + Me.lblFirmaTel.Width = 1.240158! + ' + 'lblFirmaFax + ' + Me.lblFirmaFax.Height = 0.1598426! + Me.lblFirmaFax.HyperLink = Nothing + Me.lblFirmaFax.Left = 1.45748! + Me.lblFirmaFax.Name = "lblFirmaFax" + Me.lblFirmaFax.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblFirmaFax.Text = "Fax +43 7711 31600" + Me.lblFirmaFax.Top = 0.868504! + Me.lblFirmaFax.Width = 1.240158! + ' + 'lblFirmaEmail + ' + Me.lblFirmaEmail.Height = 0.1606299! + Me.lblFirmaEmail.HyperLink = Nothing + Me.lblFirmaEmail.Left = 2.697638! + Me.lblFirmaEmail.Name = "lblFirmaEmail" + Me.lblFirmaEmail.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" & + "do-char-set: 1" + Me.lblFirmaEmail.Text = "rechnungsversand@verag.ag" + Me.lblFirmaEmail.Top = 0.7078741! + Me.lblFirmaEmail.Width = 1.436614! + ' + 'lblFirmaWeb + ' + Me.lblFirmaWeb.Height = 0.1598423! + Me.lblFirmaWeb.HyperLink = Nothing + Me.lblFirmaWeb.Left = 2.697638! + Me.lblFirmaWeb.Name = "lblFirmaWeb" + Me.lblFirmaWeb.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" & + "do-char-set: 1" + Me.lblFirmaWeb.Text = "www.verag.ag" + Me.lblFirmaWeb.Top = 0.8685043! + Me.lblFirmaWeb.Width = 1.436614! + ' + 'lblRgDatumUeberschrift + ' + Me.lblRgDatumUeberschrift.Height = 0.1574803! + Me.lblRgDatumUeberschrift.HyperLink = Nothing + Me.lblRgDatumUeberschrift.Left = 5.104! + Me.lblRgDatumUeberschrift.Name = "lblRgDatumUeberschrift" + Me.lblRgDatumUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblRgDatumUeberschrift.Text = "Rechnungs-Datum:" + Me.lblRgDatumUeberschrift.Top = 0.908! + Me.lblRgDatumUeberschrift.Width = 1.165748! + ' + 'lblRgDatum + ' + Me.lblRgDatum.Height = 0.1574803! + Me.lblRgDatum.HyperLink = Nothing + Me.lblRgDatum.Left = 5.522! + Me.lblRgDatum.Name = "lblRgDatum" + Me.lblRgDatum.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblRgDatum.Text = "01.01.2019" + Me.lblRgDatum.Top = 0.9080001! + Me.lblRgDatum.Width = 1.958268! + ' + 'lblAbfertigungsNrUeberschrift + ' + Me.lblAbfertigungsNrUeberschrift.Height = 0.1574803! + Me.lblAbfertigungsNrUeberschrift.HyperLink = Nothing + Me.lblAbfertigungsNrUeberschrift.Left = 5.104331! + Me.lblAbfertigungsNrUeberschrift.Name = "lblAbfertigungsNrUeberschrift" + Me.lblAbfertigungsNrUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblAbfertigungsNrUeberschrift.Text = "Abfertigungs-Nr.:" + Me.lblAbfertigungsNrUeberschrift.Top = 1.344095! + Me.lblAbfertigungsNrUeberschrift.Width = 1.165748! + ' + 'lblAbfertigungsNr + ' + Me.lblAbfertigungsNr.Height = 0.1574803! + Me.lblAbfertigungsNr.HyperLink = Nothing + Me.lblAbfertigungsNr.Left = 5.511811! + Me.lblAbfertigungsNr.Name = "lblAbfertigungsNr" + Me.lblAbfertigungsNr.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblAbfertigungsNr.Text = "4803/1800000 00" + Me.lblAbfertigungsNr.Top = 1.344095! + Me.lblAbfertigungsNr.Width = 1.958268! + ' + 'lblAbfertigungsDatumUeberschrift + ' + Me.lblAbfertigungsDatumUeberschrift.Height = 0.1574803! + Me.lblAbfertigungsDatumUeberschrift.HyperLink = Nothing + Me.lblAbfertigungsDatumUeberschrift.Left = 5.104331! + Me.lblAbfertigungsDatumUeberschrift.Name = "lblAbfertigungsDatumUeberschrift" + Me.lblAbfertigungsDatumUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblAbfertigungsDatumUeberschrift.Text = "Abfertigungs-Datum:" + Me.lblAbfertigungsDatumUeberschrift.Top = 1.501575! + Me.lblAbfertigungsDatumUeberschrift.Width = 1.165748! + ' + 'lblAbfertigungsDatum + ' + Me.lblAbfertigungsDatum.Height = 0.1574803! + Me.lblAbfertigungsDatum.HyperLink = Nothing + Me.lblAbfertigungsDatum.Left = 5.511812! + Me.lblAbfertigungsDatum.Name = "lblAbfertigungsDatum" + Me.lblAbfertigungsDatum.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblAbfertigungsDatum.Text = "01.01.2019" + Me.lblAbfertigungsDatum.Top = 1.501575! + Me.lblAbfertigungsDatum.Width = 1.958268! + ' + 'lblLKWIdUebeschrift + ' + Me.lblLKWIdUebeschrift.Height = 0.1574803! + Me.lblLKWIdUebeschrift.HyperLink = Nothing + Me.lblLKWIdUebeschrift.Left = 5.104331! + Me.lblLKWIdUebeschrift.Name = "lblLKWIdUebeschrift" + Me.lblLKWIdUebeschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblLKWIdUebeschrift.Text = "LKW-ID:" + Me.lblLKWIdUebeschrift.Top = 1.659056! + Me.lblLKWIdUebeschrift.Width = 1.165748! + ' + 'lblLKWId + ' + Me.lblLKWId.Height = 0.1574803! + Me.lblLKWId.HyperLink = Nothing + Me.lblLKWId.Left = 5.511812! + Me.lblLKWId.Name = "lblLKWId" + Me.lblLKWId.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblLKWId.Text = "123456789" + Me.lblLKWId.Top = 1.659056! + Me.lblLKWId.Width = 1.958268! + ' + 'lblSachbearbeiterUeberschrift + ' + Me.lblSachbearbeiterUeberschrift.Height = 0.1574803! + Me.lblSachbearbeiterUeberschrift.HyperLink = Nothing + Me.lblSachbearbeiterUeberschrift.Left = 5.104332! + Me.lblSachbearbeiterUeberschrift.Name = "lblSachbearbeiterUeberschrift" + Me.lblSachbearbeiterUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblSachbearbeiterUeberschrift.Text = "Sachbearbeiter/in:" + Me.lblSachbearbeiterUeberschrift.Top = 1.934646! + Me.lblSachbearbeiterUeberschrift.Width = 1.165748! + ' + 'lblSachbearbeiter + ' + Me.lblSachbearbeiter.Height = 0.1574803! + Me.lblSachbearbeiter.HyperLink = Nothing + Me.lblSachbearbeiter.Left = 5.511812! + Me.lblSachbearbeiter.Name = "lblSachbearbeiter" + Me.lblSachbearbeiter.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblSachbearbeiter.Text = "Herr Max Mustermann" + Me.lblSachbearbeiter.Top = 1.934646! + Me.lblSachbearbeiter.Width = 1.958268! + ' + 'lblFirmenbuchUeberschrift + ' + Me.lblFirmenbuchUeberschrift.Height = 0.1574803! + Me.lblFirmenbuchUeberschrift.HyperLink = Nothing + Me.lblFirmenbuchUeberschrift.Left = 5.104332! + Me.lblFirmenbuchUeberschrift.Name = "lblFirmenbuchUeberschrift" + Me.lblFirmenbuchUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblFirmenbuchUeberschrift.Text = "Firmenbuch:" + Me.lblFirmenbuchUeberschrift.Top = 2.092126! + Me.lblFirmenbuchUeberschrift.Width = 1.165748! + ' + 'lblFirmenbuch + ' + Me.lblFirmenbuch.Height = 0.1574803! + Me.lblFirmenbuch.HyperLink = Nothing + Me.lblFirmenbuch.Left = 5.511813! + Me.lblFirmenbuch.Name = "lblFirmenbuch" + Me.lblFirmenbuch.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblFirmenbuch.Text = "FN 216714y" + Me.lblFirmenbuch.Top = 2.092126! + Me.lblFirmenbuch.Width = 1.958268! + ' + 'lblUIDUeberschrift + ' + Me.lblUIDUeberschrift.Height = 0.1574803! + Me.lblUIDUeberschrift.HyperLink = Nothing + Me.lblUIDUeberschrift.Left = 5.104332! + Me.lblUIDUeberschrift.Name = "lblUIDUeberschrift" + Me.lblUIDUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblUIDUeberschrift.Text = "UID:" + Me.lblUIDUeberschrift.Top = 2.249606! + Me.lblUIDUeberschrift.Width = 1.165748! + ' + 'lblUID + ' + Me.lblUID.Height = 0.1574803! + Me.lblUID.HyperLink = Nothing + Me.lblUID.Left = 5.511812! + Me.lblUID.Name = "lblUID" + Me.lblUID.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblUID.Text = "ATU53187000" + Me.lblUID.Top = 2.249606! + Me.lblUID.Width = 1.958268! + ' + 'lblEORIUeberschrift + ' + Me.lblEORIUeberschrift.Height = 0.1574803! + Me.lblEORIUeberschrift.HyperLink = Nothing + Me.lblEORIUeberschrift.Left = 5.104331! + Me.lblEORIUeberschrift.Name = "lblEORIUeberschrift" + Me.lblEORIUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblEORIUeberschrift.Text = "EORI:" + Me.lblEORIUeberschrift.Top = 2.407087! + Me.lblEORIUeberschrift.Width = 1.165748! + ' + 'lblEORI + ' + Me.lblEORI.Height = 0.1574803! + Me.lblEORI.HyperLink = Nothing + Me.lblEORI.Left = 5.511811! + Me.lblEORI.Name = "lblEORI" + Me.lblEORI.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblEORI.Text = "DE123456789" + Me.lblEORI.Top = 2.407087! + Me.lblEORI.Width = 1.958268! + ' + 'lblRechnung_UID_Ueberschrift + ' + Me.lblRechnung_UID_Ueberschrift.Height = 0.1574803! + Me.lblRechnung_UID_Ueberschrift.HyperLink = Nothing + Me.lblRechnung_UID_Ueberschrift.Left = 5.104331! + Me.lblRechnung_UID_Ueberschrift.Name = "lblRechnung_UID_Ueberschrift" + Me.lblRechnung_UID_Ueberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblRechnung_UID_Ueberschrift.Text = "Ihre UID:" + Me.lblRechnung_UID_Ueberschrift.Top = 2.86378! + Me.lblRechnung_UID_Ueberschrift.Width = 1.165748! + ' + 'lblRechnung_UID + ' + Me.lblRechnung_UID.Height = 0.1574803! + Me.lblRechnung_UID.HyperLink = Nothing + Me.lblRechnung_UID.Left = 5.511811! + Me.lblRechnung_UID.Name = "lblRechnung_UID" + Me.lblRechnung_UID.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblRechnung_UID.Text = "ATU53187000" + Me.lblRechnung_UID.Top = 2.86378! + Me.lblRechnung_UID.Width = 1.958268! + ' + 'lblRechnung_Steuernummer_Ueberschrift + ' + Me.lblRechnung_Steuernummer_Ueberschrift.Height = 0.1574803! + Me.lblRechnung_Steuernummer_Ueberschrift.HyperLink = Nothing + Me.lblRechnung_Steuernummer_Ueberschrift.Left = 5.104331! + Me.lblRechnung_Steuernummer_Ueberschrift.Name = "lblRechnung_Steuernummer_Ueberschrift" + Me.lblRechnung_Steuernummer_Ueberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblRechnung_Steuernummer_Ueberschrift.Text = "Ihre Steuer-Nr.:" + Me.lblRechnung_Steuernummer_Ueberschrift.Top = 3.178741! + Me.lblRechnung_Steuernummer_Ueberschrift.Width = 1.165748! + ' + 'lblRechnung_Steuernummer + ' + Me.lblRechnung_Steuernummer.Height = 0.1574803! + Me.lblRechnung_Steuernummer.HyperLink = Nothing + Me.lblRechnung_Steuernummer.Left = 5.511811! + Me.lblRechnung_Steuernummer.Name = "lblRechnung_Steuernummer" + Me.lblRechnung_Steuernummer.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblRechnung_Steuernummer.Text = "FN 123456a" + Me.lblRechnung_Steuernummer.Top = 3.178741! + Me.lblRechnung_Steuernummer.Width = 1.958268! + ' + 'txtKdAuftragsNr_Ueberschrift + ' + Me.txtKdAuftragsNr_Ueberschrift.Height = 0.1574803! + Me.txtKdAuftragsNr_Ueberschrift.HyperLink = Nothing + Me.txtKdAuftragsNr_Ueberschrift.Left = 5.104331! + Me.txtKdAuftragsNr_Ueberschrift.Name = "txtKdAuftragsNr_Ueberschrift" + Me.txtKdAuftragsNr_Ueberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.txtKdAuftragsNr_Ueberschrift.Text = "Ihre Auftrags-Nr.:" + Me.txtKdAuftragsNr_Ueberschrift.Top = 3.021261! + Me.txtKdAuftragsNr_Ueberschrift.Width = 1.165748! + ' + 'txtKdAuftragsNr + ' + Me.txtKdAuftragsNr.Height = 0.1574803! + Me.txtKdAuftragsNr.Left = 6.043309! + Me.txtKdAuftragsNr.Name = "txtKdAuftragsNr" + Me.txtKdAuftragsNr.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & + "r-set: 1" + Me.txtKdAuftragsNr.Text = "SD 456 FD" + Me.txtKdAuftragsNr.Top = 3.021261! + Me.txtKdAuftragsNr.Width = 1.426773! + ' + 'Line15 + ' + Me.Line15.Height = 0! + Me.Line15.Left = 0.515! + Me.Line15.LineWeight = 1.0! + Me.Line15.Name = "Line15" + Me.Line15.Top = 1.651835! + Me.Line15.Width = 3.619684! + Me.Line15.X1 = 0.515! + Me.Line15.X2 = 4.134684! + Me.Line15.Y1 = 1.651835! + Me.Line15.Y2 = 1.651835! + ' + 'lblFirma + ' + Me.lblFirma.Height = 0.2723066! + Me.lblFirma.HyperLink = Nothing + Me.lblFirma.Left = 0.515! + Me.lblFirma.Name = "lblFirma" + Me.lblFirma.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: bottom; dd" & + "o-char-set: 1" + Me.lblFirma.Text = "VERAG Spedition AG, A-4975 Suben" + Me.lblFirma.Top = 1.344095! + Me.lblFirma.Width = 3.619686! + ' + 'Label1 + ' + Me.Label1.Height = 0.1574803! + Me.Label1.HyperLink = Nothing + Me.Label1.Left = 1.563781! + Me.Label1.Name = "Label1" + Me.Label1.Style = "font-size: 8pt; font-weight: normal; text-align: right; vertical-align: middle; d" & + "do-char-set: 1" + Me.Label1.Text = "Zahlungsziel" + Me.Label1.Top = 3.02126! + Me.Label1.Visible = False + Me.Label1.Width = 0.8114169! + ' + 'Label2 + ' + Me.Label2.Height = 0.1574803! + Me.Label2.HyperLink = Nothing + Me.Label2.Left = 1.97126! + Me.Label2.Name = "Label2" + Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.Label2.Text = "10 Tage" + Me.Label2.Top = 3.02126! + Me.Label2.Visible = False + Me.Label2.Width = 1.958268! + ' + 'lblRechnungAn + ' + Me.lblRechnungAn.Height = 1.291339! + Me.lblRechnungAn.HyperLink = Nothing + Me.lblRechnungAn.Left = 0.514567! + Me.lblRechnungAn.Name = "lblRechnungAn" + Me.lblRechnungAn.Style = "font-size: 10pt; font-weight: normal; text-align: left; vertical-align: top; ddo-" & + "char-set: 1" + Me.lblRechnungAn.Text = "VERAG Spedition AG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Abteilung: ZOLL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Zusatz" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben Nr. 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 SUBEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ÖSTERRE" & + "ICH" + Me.lblRechnungAn.Top = 1.702362! + Me.lblRechnungAn.Width = 4.589763! + ' + 'lblRgNr + ' + Me.lblRgNr.Height = 0.1994803! + Me.lblRgNr.HyperLink = Nothing + Me.lblRgNr.Left = 5.522! + Me.lblRgNr.Name = "lblRgNr" + Me.lblRgNr.Style = "font-size: 12pt; font-weight: bold; text-align: right; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblRgNr.Text = "18000000" + Me.lblRgNr.Top = 0.708! + Me.lblRgNr.Width = 1.958268! + ' + 'ReportFooter1 + ' + Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.Line9, Me.lblSummeUeberschrift, Me.lblSteuerfreiGes, Me.lblSteuerpflichtigGes, Me.lblSumme, Me.Label46, Me.Line1, Me.Line5, Me.lblZWSumme, Me.lblSteuerbetrag, Me.lblSteuersatz, Me.txtVermerk, Me.txtInfo, Me.lblAnlagenUeberschrift, Me.txtAnlagen, Me.Line6, Me.Line7, Me.Line14, Me.lblZwText, Me.Line17, Me.txtHandlingATA, Me.lblHandlingATA, Me.TextBox1}) + Me.ReportFooter1.Height = 1.51693! + Me.ReportFooter1.KeepTogether = True + Me.ReportFooter1.Name = "ReportFooter1" + ' + 'Line8 + ' + Me.Line8.Height = 0.9377953! + Me.Line8.Left = 3.858268! + Me.Line8.LineWeight = 1.0! + Me.Line8.Name = "Line8" + Me.Line8.Top = 0.1122047! + Me.Line8.Width = 0! + Me.Line8.X1 = 3.858268! + Me.Line8.X2 = 3.858268! + Me.Line8.Y1 = 0.1122047! + Me.Line8.Y2 = 1.05! + ' + 'Line9 + ' + Me.Line9.Height = 0! + Me.Line9.Left = 0.002755906! + Me.Line9.LineWeight = 2.0! + Me.Line9.Name = "Line9" + Me.Line9.Top = 0.1035433! + Me.Line9.Width = 7.475194! + Me.Line9.X1 = 0.002755906! + Me.Line9.X2 = 7.47795! + Me.Line9.Y1 = 0.1035433! + Me.Line9.Y2 = 0.1035433! + ' + 'lblSummeUeberschrift + ' + Me.lblSummeUeberschrift.Height = 0.1771653! + Me.lblSummeUeberschrift.HyperLink = Nothing + Me.lblSummeUeberschrift.Left = 3.957481! + Me.lblSummeUeberschrift.Name = "lblSummeUeberschrift" + Me.lblSummeUeberschrift.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.lblSummeUeberschrift.Text = "Rechnungsbetrag" + Me.lblSummeUeberschrift.Top = 0.7165355! + Me.lblSummeUeberschrift.Width = 1.549213! + ' + 'lblSteuerfreiGes + ' + Me.lblSteuerfreiGes.Height = 0.1574803! + Me.lblSteuerfreiGes.HyperLink = Nothing + Me.lblSteuerfreiGes.Left = 5.511811! + Me.lblSteuerfreiGes.Name = "lblSteuerfreiGes" + Me.lblSteuerfreiGes.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & + "har-set: 1" + Me.lblSteuerfreiGes.Text = "999.999,99" + Me.lblSteuerfreiGes.Top = 0.1232284! + Me.lblSteuerfreiGes.Width = 1.554331! + ' + 'lblSteuerpflichtigGes + ' + Me.lblSteuerpflichtigGes.Height = 0.1574803! + Me.lblSteuerpflichtigGes.HyperLink = Nothing + Me.lblSteuerpflichtigGes.Left = 3.957481! + Me.lblSteuerpflichtigGes.Name = "lblSteuerpflichtigGes" + Me.lblSteuerpflichtigGes.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & + "har-set: 1" + Me.lblSteuerpflichtigGes.Text = "999.999,99" + Me.lblSteuerpflichtigGes.Top = 0.1232284! + Me.lblSteuerpflichtigGes.Width = 1.554331! + ' + 'lblSumme + ' + Me.lblSumme.Height = 0.1574803! + Me.lblSumme.HyperLink = Nothing + Me.lblSumme.Left = 5.51181! + Me.lblSumme.Name = "lblSumme" + Me.lblSumme.Style = "font-size: 9pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & + "r-set: 1" + Me.lblSumme.Text = "999.999,99" + Me.lblSumme.Top = 0.7165354! + Me.lblSumme.Width = 1.554331! + ' + 'Label46 + ' + Me.Label46.Height = 0.1574803! + Me.Label46.HyperLink = Nothing + Me.Label46.Left = 7.066142! + Me.Label46.Name = "Label46" + Me.Label46.Style = "font-size: 9pt; font-weight: normal; text-align: center; text-justify: auto; ddo-" & + "char-set: 1" + Me.Label46.Text = "EUR" + Me.Label46.Top = 0.7165354! + Me.Label46.Width = 0.3748035! + ' + 'Line1 + ' + Me.Line1.Height = 0! + Me.Line1.Left = 6.299212! + Me.Line1.LineWeight = 2.0! + Me.Line1.Name = "Line1" + Me.Line1.Top = 0.8937009! + Me.Line1.Width = 1.141733! + Me.Line1.X1 = 6.299212! + Me.Line1.X2 = 7.440945! + Me.Line1.Y1 = 0.8937009! + Me.Line1.Y2 = 0.8937009! + ' + 'Line5 + ' + Me.Line5.Height = 0! + Me.Line5.Left = 6.299212! + Me.Line5.LineWeight = 2.0! + Me.Line5.Name = "Line5" + Me.Line5.Top = 0.92126! + Me.Line5.Width = 1.141733! + Me.Line5.X1 = 6.299212! + Me.Line5.X2 = 7.440945! + Me.Line5.Y1 = 0.92126! + Me.Line5.Y2 = 0.92126! + ' + 'lblZWSumme + ' + Me.lblZWSumme.Height = 0.1574803! + Me.lblZWSumme.HyperLink = Nothing + Me.lblZWSumme.Left = 5.511811! + Me.lblZWSumme.Name = "lblZWSumme" + Me.lblZWSumme.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & + "har-set: 1" + Me.lblZWSumme.Text = "999.999,99" + Me.lblZWSumme.Top = 0.3555118! + Me.lblZWSumme.Visible = False + Me.lblZWSumme.Width = 1.554331! + ' + 'lblSteuerbetrag + ' + Me.lblSteuerbetrag.Height = 0.1574803! + Me.lblSteuerbetrag.HyperLink = Nothing + Me.lblSteuerbetrag.Left = 5.511809! + Me.lblSteuerbetrag.Name = "lblSteuerbetrag" + Me.lblSteuerbetrag.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & + "har-set: 1" + Me.lblSteuerbetrag.Text = "999.999,99" + Me.lblSteuerbetrag.Top = 0.5129921! + Me.lblSteuerbetrag.Width = 1.554331! + ' + 'lblSteuersatz + ' + Me.lblSteuersatz.Height = 0.1574803! + Me.lblSteuersatz.HyperLink = Nothing + Me.lblSteuersatz.Left = 3.962599! + Me.lblSteuersatz.Name = "lblSteuersatz" + Me.lblSteuersatz.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1" + Me.lblSteuersatz.Text = "20 % Mehrwertsteuer" + Me.lblSteuersatz.Top = 0.5129921! + Me.lblSteuersatz.Width = 1.549212! + ' + 'txtVermerk + ' + Me.txtVermerk.Height = 0.06181115! + Me.txtVermerk.Left = 0.01889764! + Me.txtVermerk.Name = "txtVermerk" + Me.txtVermerk.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & + "ar-set: 1" + Me.txtVermerk.Text = "Text" + Me.txtVermerk.Top = 1.179921! + Me.txtVermerk.Width = 7.422048! + ' + 'txtInfo + ' + Me.txtInfo.Height = 0.518504! + Me.txtInfo.Left = 0! + Me.txtInfo.Name = "txtInfo" + Me.txtInfo.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & + "ar-set: 1" + Me.txtInfo.Text = "ZusatzText" + Me.txtInfo.Top = 0.1980315! + Me.txtInfo.Width = 3.661417! + ' + 'lblAnlagenUeberschrift + ' + Me.lblAnlagenUeberschrift.Height = 0.1574803! + Me.lblAnlagenUeberschrift.HyperLink = Nothing + Me.lblAnlagenUeberschrift.Left = 0.03307087! + Me.lblAnlagenUeberschrift.Name = "lblAnlagenUeberschrift" + Me.lblAnlagenUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" & + "r-set: 1" + Me.lblAnlagenUeberschrift.Text = "Anlage:" + Me.lblAnlagenUeberschrift.Top = 1.359449! + Me.lblAnlagenUeberschrift.Width = 0.676378! + ' + 'txtAnlagen + ' + Me.txtAnlagen.Height = 0.1574803! + Me.txtAnlagen.Left = 0.7094489! + Me.txtAnlagen.Name = "txtAnlagen" + Me.txtAnlagen.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & + "ar-set: 1" + Me.txtAnlagen.Text = "ATC1812345678" + Me.txtAnlagen.Top = 1.359449! + Me.txtAnlagen.Width = 3.668504! + ' + 'Line6 + ' + Me.Line6.Height = 0.1035433! + Me.Line6.Left = 0.00511811! + Me.Line6.LineWeight = 1.0! + Me.Line6.Name = "Line6" + Me.Line6.Top = 0! + Me.Line6.Width = 0! + Me.Line6.X1 = 0.00511811! + Me.Line6.X2 = 0.00511811! + Me.Line6.Y1 = 0! + Me.Line6.Y2 = 0.1035433! + ' + 'Line7 + ' + Me.Line7.Height = 0.9464567! + Me.Line7.Left = 7.475197! + Me.Line7.LineWeight = 1.0! + Me.Line7.Name = "Line7" + Me.Line7.Top = 0.1035433! + Me.Line7.Width = 0! + Me.Line7.X1 = 7.475197! + Me.Line7.X2 = 7.475197! + Me.Line7.Y1 = 0.1035433! + Me.Line7.Y2 = 1.05! + ' + 'Line14 + ' + Me.Line14.Height = 0! + Me.Line14.Left = 3.858268! + Me.Line14.LineWeight = 1.0! + Me.Line14.Name = "Line14" + Me.Line14.Top = 1.05! + Me.Line14.Width = 3.619685! + Me.Line14.X1 = 3.858268! + Me.Line14.X2 = 7.477953! + Me.Line14.Y1 = 1.05! + Me.Line14.Y2 = 1.05! + ' + 'lblZwText + ' + Me.lblZwText.Height = 0.1574803! + Me.lblZwText.HyperLink = Nothing + Me.lblZwText.Left = 3.9626! + Me.lblZwText.Name = "lblZwText" + Me.lblZwText.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1" + Me.lblZwText.Text = "Zwischensumme" + Me.lblZwText.Top = 0.3555118! + Me.lblZwText.Visible = False + Me.lblZwText.Width = 1.549212! + ' + 'Line17 + ' + Me.Line17.Height = 0.1035433! + Me.Line17.Left = 7.475197! + Me.Line17.LineWeight = 1.0! + Me.Line17.Name = "Line17" + Me.Line17.Top = 0! + Me.Line17.Width = 0! + Me.Line17.X1 = 7.475197! + Me.Line17.X2 = 7.475197! + Me.Line17.Y1 = 0! + Me.Line17.Y2 = 0.1035433! + ' + 'txtHandlingATA + ' + Me.txtHandlingATA.Height = 0.1574803! + Me.txtHandlingATA.Left = 5.054331! + Me.txtHandlingATA.Name = "txtHandlingATA" + Me.txtHandlingATA.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & + "ar-set: 1" + Me.txtHandlingATA.Text = "ATC1812345678" + Me.txtHandlingATA.Top = 1.359449! + Me.txtHandlingATA.Width = 2.324409! + ' + 'lblHandlingATA + ' + Me.lblHandlingATA.Height = 0.1574803! + Me.lblHandlingATA.HyperLink = Nothing + Me.lblHandlingATA.Left = 4.377953! + Me.lblHandlingATA.Name = "lblHandlingATA" + Me.lblHandlingATA.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" & + "r-set: 1" + Me.lblHandlingATA.Text = "Handling:" + Me.lblHandlingATA.Top = 1.359449! + Me.lblHandlingATA.Width = 0.676378! + ' + 'TextBox1 + ' + Me.TextBox1.Height = 0.3790929! + Me.TextBox1.Left = 0.02913386! + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Style = "font-size: 9pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.TextBox1.Text = "Text ZZ" + Me.TextBox1.Top = 0.7165355! + Me.TextBox1.Width = 3.632284! + ' + 'GroupHeader4 + ' + Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblSteuerpflichtigUeberschrift, Me.lblLeistungUeberschrift, Me.lblAnzahlUeberschrift, Me.lblSteuerfreiUeberschrift, Me.Line4, Me.lblAbsenderUeberschrift, Me.lblAvisiererUeberschrift, Me.lblEmpfaengerUeberschrift, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAvisierer, Me.lblZollbelegNr, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.txtBeförderungsmittelUeberschrift, Me.txtBeförderungsmittel, Me.lblSendungsdatenUeberschrift, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16}) + Me.GroupHeader4.Height = 1.627275! + Me.GroupHeader4.KeepTogether = True + Me.GroupHeader4.Name = "GroupHeader4" + ' + 'lblSteuerpflichtigUeberschrift + ' + Me.lblSteuerpflichtigUeberschrift.Height = 0.1511808! + Me.lblSteuerpflichtigUeberschrift.HyperLink = Nothing + Me.lblSteuerpflichtigUeberschrift.Left = 3.957867! + Me.lblSteuerpflichtigUeberschrift.Name = "lblSteuerpflichtigUeberschrift" + Me.lblSteuerpflichtigUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & + "r-set: 1" + Me.lblSteuerpflichtigUeberschrift.Text = "Steuerpflichtig" + Me.lblSteuerpflichtigUeberschrift.Top = 1.415504! + Me.lblSteuerpflichtigUeberschrift.Width = 1.554331! + ' + 'lblLeistungUeberschrift + ' + Me.lblLeistungUeberschrift.Height = 0.1511808! + Me.lblLeistungUeberschrift.HyperLink = Nothing + Me.lblLeistungUeberschrift.Left = 0.01455834! + Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift" + Me.lblLeistungUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.lblLeistungUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.lblLeistungUeberschrift.Text = "Leistung" + Me.lblLeistungUeberschrift.Top = 1.415504! + Me.lblLeistungUeberschrift.Width = 3.366143! + ' + 'lblAnzahlUeberschrift + ' + Me.lblAnzahlUeberschrift.Height = 0.1511808! + Me.lblAnzahlUeberschrift.HyperLink = Nothing + Me.lblAnzahlUeberschrift.Left = 3.380701! + Me.lblAnzahlUeberschrift.Name = "lblAnzahlUeberschrift" + Me.lblAnzahlUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & + "r-set: 1" + Me.lblAnzahlUeberschrift.Text = "Anzahl" + Me.lblAnzahlUeberschrift.Top = 1.415504! + Me.lblAnzahlUeberschrift.Width = 0.5771656! + ' + 'lblSteuerfreiUeberschrift + ' + Me.lblSteuerfreiUeberschrift.Height = 0.1511807! + Me.lblSteuerfreiUeberschrift.HyperLink = Nothing + Me.lblSteuerfreiUeberschrift.Left = 5.512198! + Me.lblSteuerfreiUeberschrift.Name = "lblSteuerfreiUeberschrift" + Me.lblSteuerfreiUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.lblSteuerfreiUeberschrift.Text = "Steuerfrei" + Me.lblSteuerfreiUeberschrift.Top = 1.415504! + Me.lblSteuerfreiUeberschrift.Width = 1.554331! + ' + 'Line4 + ' + Me.Line4.Height = 0! + Me.Line4.Left = 0.005503932! + Me.Line4.LineWeight = 1.0! + Me.Line4.Name = "Line4" + Me.Line4.Top = 1.566685! + Me.Line4.Width = 7.475194! + Me.Line4.X1 = 0.005503932! + Me.Line4.X2 = 7.480698! + Me.Line4.Y1 = 1.566685! + Me.Line4.Y2 = 1.566685! + ' + 'lblAbsenderUeberschrift + ' + Me.lblAbsenderUeberschrift.Height = 0.1574803! + Me.lblAbsenderUeberschrift.HyperLink = Nothing + Me.lblAbsenderUeberschrift.Left = 0! + Me.lblAbsenderUeberschrift.Name = "lblAbsenderUeberschrift" + Me.lblAbsenderUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.lblAbsenderUeberschrift.Text = "Absender:" + Me.lblAbsenderUeberschrift.Top = 0.1732284! + Me.lblAbsenderUeberschrift.Width = 0.9366142! + ' + 'lblAvisiererUeberschrift + ' + Me.lblAvisiererUeberschrift.Height = 0.1574803! + Me.lblAvisiererUeberschrift.HyperLink = Nothing + Me.lblAvisiererUeberschrift.Left = 0! + Me.lblAvisiererUeberschrift.Name = "lblAvisiererUeberschrift" + Me.lblAvisiererUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.lblAvisiererUeberschrift.Text = "Avisierer:" + Me.lblAvisiererUeberschrift.Top = 0.46! + Me.lblAvisiererUeberschrift.Width = 0.9366142! + ' + 'lblEmpfaengerUeberschrift + ' + Me.lblEmpfaengerUeberschrift.Height = 0.1574803! + Me.lblEmpfaengerUeberschrift.HyperLink = Nothing + Me.lblEmpfaengerUeberschrift.Left = 3.596! + Me.lblEmpfaengerUeberschrift.Name = "lblEmpfaengerUeberschrift" + Me.lblEmpfaengerUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.lblEmpfaengerUeberschrift.Text = "Empfänger:" + Me.lblEmpfaengerUeberschrift.Top = 0.173! + Me.lblEmpfaengerUeberschrift.Width = 0.9366142! + ' + 'txtAbsender + ' + Me.txtAbsender.Height = 0.2720473! + Me.txtAbsender.Left = 0.9366142! + Me.txtAbsender.Name = "txtAbsender" + Me.txtAbsender.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.txtAbsender.Text = "VERAG Spedition AG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" + Me.txtAbsender.Top = 0.1732285! + Me.txtAbsender.Width = 2.659449! + ' + 'txtEmpfaenger + ' + Me.txtEmpfaenger.Height = 0.2720473! + Me.txtEmpfaenger.Left = 4.615614! + Me.txtEmpfaenger.Name = "txtEmpfaenger" + Me.txtEmpfaenger.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.txtEmpfaenger.Text = "VERAG Spedition AG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" + Me.txtEmpfaenger.Top = 0.173! + Me.txtEmpfaenger.Width = 2.659449! + ' + 'txtAvisierer + ' + Me.txtAvisierer.Height = 0.1570001! + Me.txtAvisierer.Left = 0.937! + Me.txtAvisierer.Name = "txtAvisierer" + Me.txtAvisierer.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.txtAvisierer.Text = "VERAG Spedition " + Me.txtAvisierer.Top = 0.46! + Me.txtAvisierer.Width = 2.659! + ' + 'lblZollbelegNr + ' + Me.lblZollbelegNr.Height = 0.1574803! + Me.lblZollbelegNr.HyperLink = Nothing + Me.lblZollbelegNr.Left = 0.0003858209! + Me.lblZollbelegNr.Name = "lblZollbelegNr" + Me.lblZollbelegNr.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.lblZollbelegNr.Text = "Zollbeleg-Nr.:" + Me.lblZollbelegNr.Top = 0.647! + Me.lblZollbelegNr.Width = 0.9366142! + ' + 'txtZollbelegNr + ' + Me.txtZollbelegNr.Height = 0.1574803! + Me.txtZollbelegNr.Left = 0.937! + Me.txtZollbelegNr.Name = "txtZollbelegNr" + Me.txtZollbelegNr.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.txtZollbelegNr.Text = "ATC1812345678" + Me.txtZollbelegNr.Top = 0.647! + Me.txtZollbelegNr.Width = 2.659449! + ' + 'lblWarenWertUeberschrift + ' + Me.lblWarenWertUeberschrift.Height = 0.1574803! + Me.lblWarenWertUeberschrift.HyperLink = Nothing + Me.lblWarenWertUeberschrift.Left = 0.0003858209! + Me.lblWarenWertUeberschrift.Name = "lblWarenWertUeberschrift" + Me.lblWarenWertUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.lblWarenWertUeberschrift.Text = "Warenwert:" + Me.lblWarenWertUeberschrift.Top = 0.8044803! + Me.lblWarenWertUeberschrift.Width = 0.9366142! + ' + 'txtWarenwert + ' + Me.txtWarenwert.Height = 0.1574803! + Me.txtWarenwert.Left = 0.937001! + Me.txtWarenwert.Name = "txtWarenwert" + Me.txtWarenwert.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.txtWarenwert.Text = "1.234,56 €" + Me.txtWarenwert.Top = 0.8044803! + Me.txtWarenwert.Width = 2.659449! + ' + 'txtGrenzeUeberschrift + ' + Me.txtGrenzeUeberschrift.Height = 0.1574803! + Me.txtGrenzeUeberschrift.HyperLink = Nothing + Me.txtGrenzeUeberschrift.Left = 3.596449! + Me.txtGrenzeUeberschrift.Name = "txtGrenzeUeberschrift" + Me.txtGrenzeUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.txtGrenzeUeberschrift.Text = "Ort der Leistung:" + Me.txtGrenzeUeberschrift.Top = 0.647! + Me.txtGrenzeUeberschrift.Width = 1.020079! + ' + 'txtGrenze + ' + Me.txtGrenze.Height = 0.1574803! + Me.txtGrenze.Left = 4.616528! + Me.txtGrenze.Name = "txtGrenze" + Me.txtGrenze.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.txtGrenze.Text = "Suben Autobahngrenze" + Me.txtGrenze.Top = 0.647! + Me.txtGrenze.Width = 2.853938! + ' + 'txtBeförderungsmittelUeberschrift + ' + Me.txtBeförderungsmittelUeberschrift.Height = 0.1574803! + Me.txtBeförderungsmittelUeberschrift.HyperLink = Nothing + Me.txtBeförderungsmittelUeberschrift.Left = 3.596449! + Me.txtBeförderungsmittelUeberschrift.Name = "txtBeförderungsmittelUeberschrift" + Me.txtBeförderungsmittelUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.txtBeförderungsmittelUeberschrift.Text = "Beförderungsmittel:" + Me.txtBeförderungsmittelUeberschrift.Top = 0.8044803! + Me.txtBeförderungsmittelUeberschrift.Width = 1.020079! + ' + 'txtBeförderungsmittel + ' + Me.txtBeförderungsmittel.Height = 0.1574803! + Me.txtBeförderungsmittel.Left = 4.616528! + Me.txtBeförderungsmittel.Name = "txtBeförderungsmittel" + Me.txtBeförderungsmittel.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.txtBeförderungsmittel.Text = "SD 456 FD" + Me.txtBeförderungsmittel.Top = 0.8044803! + Me.txtBeförderungsmittel.Width = 2.853938! + ' + 'lblSendungsdatenUeberschrift + ' + Me.lblSendungsdatenUeberschrift.Height = 0.1574803! + Me.lblSendungsdatenUeberschrift.HyperLink = Nothing + Me.lblSendungsdatenUeberschrift.Left = 0.0003858209! + Me.lblSendungsdatenUeberschrift.Name = "lblSendungsdatenUeberschrift" + Me.lblSendungsdatenUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.lblSendungsdatenUeberschrift.Text = "Sendungs-Daten:" + Me.lblSendungsdatenUeberschrift.Top = 1.026921! + Me.lblSendungsdatenUeberschrift.Width = 0.9366142! + ' + 'txtSendungsdaten + ' + Me.txtSendungsdaten.Height = 0.1574803! + Me.txtSendungsdaten.Left = 0.937001! + Me.txtSendungsdaten.Name = "txtSendungsdaten" + Me.txtSendungsdaten.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.txtSendungsdaten.Text = "1 Pk. Testartikel; 1.234 kg" + Me.txtSendungsdaten.Top = 1.026921! + Me.txtSendungsdaten.Width = 6.543701! + ' + 'Line12 + ' + Me.Line12.Height = 0.204331! + Me.Line12.Left = 0.005! + Me.Line12.LineWeight = 1.0! + Me.Line12.Name = "Line12" + Me.Line12.Top = 1.416! + Me.Line12.Width = 0! + Me.Line12.X1 = 0.005! + Me.Line12.X2 = 0.005! + Me.Line12.Y1 = 1.416! + Me.Line12.Y2 = 1.620331! + ' + 'Line13 + ' + Me.Line13.Height = 0.204331! + Me.Line13.Left = 7.478! + Me.Line13.LineWeight = 1.0! + Me.Line13.Name = "Line13" + Me.Line13.Top = 1.416! + Me.Line13.Width = 0! + Me.Line13.X1 = 7.478! + Me.Line13.X2 = 7.478! + Me.Line13.Y1 = 1.416! + Me.Line13.Y2 = 1.620331! + ' + 'Line16 + ' + Me.Line16.Height = 0! + Me.Line16.Left = 0.003141727! + Me.Line16.LineWeight = 1.0! + Me.Line16.Name = "Line16" + Me.Line16.Top = 1.415504! + Me.Line16.Width = 7.475195! + Me.Line16.X1 = 0.003141727! + Me.Line16.X2 = 7.478337! + Me.Line16.Y1 = 1.415504! + Me.Line16.Y2 = 1.415504! + ' + 'GroupFooter4 + ' + Me.GroupFooter4.Height = 0! + Me.GroupFooter4.Name = "GroupFooter4" + ' + 'rptRechnungDruck_MDM + ' + Me.MasterReport = False + Me.PageSettings.Margins.Bottom = 0.3937008! + Me.PageSettings.Margins.Left = 0.3937008! + Me.PageSettings.Margins.Right = 0.3937008! + Me.PageSettings.Margins.Top = 0.3937008! + Me.PageSettings.PaperHeight = 11.0! + Me.PageSettings.PaperWidth = 8.5! + Me.PrintWidth = 7.480316! + Me.Sections.Add(Me.ReportHeader1) + Me.Sections.Add(Me.PageHeader) + Me.Sections.Add(Me.GroupHeader4) + Me.Sections.Add(Me.Detail) + Me.Sections.Add(Me.GroupFooter4) + 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.lblLeistungNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSteuerfrei, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSteuerpflichtig, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblBankUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtBank1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtBank2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtDisclaimer, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtBank3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRgNrUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblKundenNrUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblKundenNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmaOrt, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmaStrasse, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmaTel, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmaFax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRgDatumUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAbfertigungsNrUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAbfertigungsNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAbfertigungsDatumUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAbfertigungsDatum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblLKWIdUebeschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblLKWId, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSachbearbeiterUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmenbuchUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmenbuch, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblUIDUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblUID, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblEORIUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblEORI, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRechnung_UID_Ueberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRechnung_UID, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRechnung_Steuernummer_Ueberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRechnung_Steuernummer, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtKdAuftragsNr_Ueberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtKdAuftragsNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRechnungAn, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRgNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSteuerfreiGes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label46, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblZWSumme, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSteuerbetrag, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSteuersatz, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtVermerk, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAnlagenUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAnlagen, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblZollbelegNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblWarenWertUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtWarenwert, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtGrenzeUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtBeförderungsmittelUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtBeförderungsmittel, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSendungsdatenUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtSendungsdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader + Private WithEvents lblKundenNrUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail + Public WithEvents lblUeberschriftRG_GS As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblKundenNr As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo + Public WithEvents lblLeistungNr As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblAnzahl As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line9 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter + Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader + Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents lblSteuerfreiUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblAnzahlUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblLeistungUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter + Private WithEvents lblSteuerpflichtigUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSteuerfrei As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSteuerfreiGes As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents lblAbfertigungsNrUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblAbfertigungsDatumUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblSachbearbeiterUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblFirmenbuchUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblUIDUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSendungsdatenUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblBankUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtDisclaimer As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblRgNr As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblRgDatum As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblAbfertigungsNr As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblAbfertigungsDatum As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblLKWId As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFirmenbuch As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblUID As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtAbsender As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtEmpfaenger As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtAvisierer As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtZollbelegNr As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtWarenwert As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtGrenze As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtBeförderungsmittel As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtSendungsdaten As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblSteuerpflichtig As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSteuerpflichtigGes As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSumme As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Label46 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblEORI As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblRechnung_UID As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblZWSumme As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSteuerbetrag As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSteuersatz As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtVermerk As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtBank1 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtBank2 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtInfo As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblAnlagenUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtAnlagen As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblRechnung_Steuernummer As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture + Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture + Public WithEvents txtLeistung As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblFirmaOrt As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFirmaStrasse As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFirmaTel As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFirmaFax As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFirmaEmail As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFirmaWeb As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblRechnung_UID_Ueberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblRechnung_Steuernummer_Ueberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblAbsenderUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblAvisiererUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblEmpfaengerUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtGrenzeUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line6 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line12 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line13 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line16 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents Line10 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents Line11 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents txtKdAuftragsNr As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtKdAuftragsNr_Ueberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSummeUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblRgNrUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblZwText As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblRgDatumUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Line8 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents Line7 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents Line14 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line17 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents txtHandlingATA As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblHandlingATA As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblWarenWertUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblRechnungAn As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblEORIUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblLKWIdUebeschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblZollbelegNr As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtBeförderungsmittelUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents txtBank3 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents SubReportt As GrapeCity.ActiveReports.SectionReportModel.SubReport +End Class diff --git a/SDL/Fakturierung/rptRechnungDruck_MDM.resx b/SDL/Fakturierung/rptRechnungDruck_MDM.resx new file mode 100644 index 00000000..48802e7d --- /dev/null +++ b/SDL/Fakturierung/rptRechnungDruck_MDM.resx @@ -0,0 +1,136 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + Wir arbeiten ausschließlich auf Grund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten, Spesen und Zinsen zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding oder Passau. Steuer- Zoll- und Tarifauskünfte sind unverbindlich. + + + + /9j/4AAQSkZJRgABAQEAAAAAAAD/2wBDAAYEBAQFBAYFBQYJBgUGCQsIBgYICwwKCgsKCgwQDAwMDAwMEAwODxAPDgwTExQUExMcGxsbHB8fHx8fHx8fHx//2wBDAQcHBw0MDRgQEBgaFREVGh8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx//wgARCAEFASwDAREAAhEBAxEB/8QAHAABAAIDAQEBAAAAAAAAAAAAAAQFAwYHAgEI/8QALxAAAQQCAQEHAwQDAQEAAAAAAQACAwQRBRIQIDBAITETBkEUFlAiMhVgQiM0Jf/EABoBAQADAQEBAAAAAAAAAAAAAAABAgMEBQb/xABEEQACAQIDBQQGBggFBAMAAAABAgMAESESBDFBUSITEGFxMiCBkUIjMzCx0ZIUBUDwocFSckM04WKCU3NQYLIk8cJj/8QAJRIAAQMDAwQDAQAAAAAAAAAAEQABIRBQMSBAEjBBUWFgcAKg/8QAKxMBAAICAQMDAwQDAQEAAAAAAQARITFBEFFhMHGBIJGhQPCxwVDR4fFg/9oADAMBAAIQAxAAAAHqgAAAAAAAAAAAAAAAAAAAAAAAAAAPJUWrUXeT0iXE32c50gAAAAAAAAAAAAAVUxrt66xtns+OmpdfPTb5epfa2t8delcPRYRMkAAAAAAAAAAAAwnPtaazpTZaztWGmtdmGrdvPNpaJesulvJ0zy+zLW3kmmUAAAAAAAAAAEc0eY0Drx2uqN0ZTImr3z9xNzje6x0o989l5tbrDTLW2IikwlAFBeMctjzkAAAAAADAcv0pr2+f3fGXpEi0Z6z8lf8APrsnNrYZ2i3i1yuPJiMZGNY1iuvGQjzGnax2/jvZVkAAAAAAcY3zoNKTtcpmlZN2UucNKjam48e8a1bjLS4xvkiQPJiMBGLQobxyHrpFmLKs9f5L3FZAAAAAGpWjjvTjY3pPvWVrXPKXS2ycm1btTY+bX5K+w0+gA+GIwGE+FoDwQpjkvXTpXNfYKSAAAABwrfOv1xsbxMvEjWuSJG2cW+xcu2QyS9hEW8TaW1rpx2Pm2xmMwQhyuDKAVFo5T1U7bx6AAAAComOC9ONnek+0S9K5tIy1nauHpnZ2g7Z54m1yvOpbRu/lhaV2vk3xn0vOfXGYSKSCzABwTuy73w6gAAADn16806MbK1Zt4la1y2idjpt3n9On+ly+Jj2WGd7nC86lrbHT4ga505bDzbYzARyLMbLEgQpck6s+0cmgAAA+VVnzXRW+9j47Molo0Por7tG7ZWvM5EqluZ9NMMotqyKzliem817GloxpG9aK8YJiTWb/ADnPDd87Ac46KXdJ2zKwAAEPytPHTWt5LzPRztdo5N1U0/Wgv6W7Vx6AcD7soMx0rn0nVDbcrezh/bnT2rvWN9pytzzopr9679hfpnPcU1o570V63y3AAA+Qofnd3rZ33bT6U1o4f253NJlw1rSvYOTTas7fDgndlCmM8T6JkT3Ti0qbRwruyyRP6F4NfRrWkca68p9Z73xa10xy/pp1vl0zAAAieXpHJnqZ5j6DjnXnrOlcifpiRbVt3Li0+nA+7KDMdt49basjNDCcD78sB2DkvtGduZdNNF2ps2dukc9+e716ry3kAAAFT5WkA2T1c/oKW8cf687Cs9m49PpyHrzpbx1Hl02rOeIdmcO0fEjyjuPFrNhRXjm/RSjvHkkGx52sqTgmOlc9/YAAB4yn4fdY9gEA4DrnO1yl6RZZXt+XfOZZZTPDLL3D0ehIYrRTdWGGWv650tNPEW6Hz6dFxsAAABW+PrA8vTYPrOb6ADjMxrHRjZXrJvW45OiXlfOZpZDKez2ej6fT4fYaf381DaY9WKk9/wCTeWAAAAYYVVU7g0zdlM+0Aa6jhO9J16WV6Z9K5rMlomYaWHJvIpbIez0fT1CBeNb6KVeufuKwqt3w36jlcAAAADHRRfL9Of6DC2vHvWPtw5Feula5yb1n3rIvXJaPd4sOPosOTbIfZW3i60PpZ696Ofy9Plso8TDhmz17xz65wAAAAAQzJlNT8f1TvrOaXDDjOb0KcQitX0ZSy557V3o43fna+6WlZa7j8l1ab9nyW/i7VXqZOiNe7OeIiEY637dz63cSAAAAAAPhT5TYbVh+VrW+fpsH0PPVfI9XM/puWPevSPmuvlP3Pm7b4PTmidb9vG883aN1V9J+oxypt8fVL1t47RhpfRIAAAAAAAA+EMmFVlMneuhzGhzWNrTPMe7RP5t5dLez6fEUHTh8pfY626vneaAAAAAAAAAAAAQjn966betTaPULXHTJDDZh0ptFZ3+lr+JAAAAAAAAAAAAAAENFRKMZC0LOJ+gAAAAAAAAAAAAAAAAAAAAAAAAAHhHM+7n3zk3xTGq9GUys32OmKYhXjLWfkxKrMO0ZonWd8rzLTJCdS3iYh2ixpbDMRLRNrMG0S6zKide2z9xNjS3uA8S8Ij2TKz5Ngxvr+1KHbP1CREwbRlhOraBetvneg1zyxMqs4Zi+y0oNs7bO9desmswrVE6tq+9fRaZ31/bPaOfWfWdd2zqdKz6Wj2r6ibzK9NpSPaLClp1bbXz6gAAAAAAAAAAAAAV16z6T6SAAAINq8+7OfcObYUe1LTO2s752NLbHhpBvWNaNt5teZ93PcZ2tM7e01160etLfO/hFpS2KXg2rn00jqxwWiRWfEvJDtWRE+4Q7xbZXj2j4jBLovH0a1tlS60j2j3E3Gd/CK69Y1os6XoNc9lw0m1tQ7ZzqW2fDTVt84V6+Ji2yvFtFnS2KWJG4c+2q75VelPEpFZzxPuFXpXyYbRPpaLaMExjmOo8HUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB//9oACAEBAAEFAv1Yua0T7jXQg/KdYvyrWr8p1qj+Rap6inhmb42zs6NZW924sgdb2MsWpiatjq/tne2hDlCJmddSdYlrussibO0+Klmihj2W7nkZVcwvraPL/wDnE21ust4kmKVrIuKpxMfYqwkWo5OSLUC9iZI1/h5544WXrgxNLLbmZdr04TfvyC1U2LIw1YVHVSWhLoIuMurmifS1LWo14lhEJ7XKGcSDrvZXxavS7Zl+v3888cEV/ZT2ZrVqS49rE1qARc93SnqJJldtMqxQRuhgr1Kwm64RCc1bG3vYZhu/kDE35ZOxbXfVruvq2Zqk+vvQ3a3ffINo67aY6RyYxNagOlOmHOPmq16ZbmYOlq1HuDGMY3qUUQslpY4Obt7kteKSC7zPILW7OahPr9rUvM7z5JsftKLQo2YTQgEFXkbFLUlifLDrXzzN10Qij09NvbKeQE5QP4v6FjCp6FOduy19jU29NtG363d7y6bmyjamhNCHXXw0posodS5oT7kLZlNsJnbEooop6ifzZ12tNtujobJr7Putva+110YTAmhBBMaXPfrKrlBEypW/uYuFm1Oata3BZYFurHO063c56zZOtLaa73lqb3vxIopypu7MA/8Ap918xn41I8JiagsqlNHFP70LRZte/LWfC2WranruM9eHY7G/YhMdWvOfIocQj5iDT+xZKKKcq87Be63ZxXqfHq5n2ncmZwfLrq2yePjWpCvazUUqo2US/tGLUwa7YVhp6ALtNry4a6kBY24isxb18K/tWJ+9c9sfyWeFkTBYq8QppIYI7PyqFpf8m2RX5HtEz5NdCqb2nYdPqLp2vX5XsBj45r/taXbfNxkEwmMwkgbVitNcvk1/37fTR3/s73W9/wC9UdDq5qX43p1+NacqKNscbiGja7KW/ZWo+OCxE/45qnN2+ok18mF8Z2kgl6bXZR0Kuj10uwuds+h9xiqTF0pAPTb3xSpeZOnom5f+QUftbxXx7YfdUllXv/ehXtuH2t5Uq10XltiRrR6MAdI0ANXyJjXala8kbBX79elBXgub69DDHDF2p3lq+6dzmhZK0AAdPkOw+7upks0afLPJ01V40boIIV7/AN5WpliGs9+Be/AvVTRNlhngkrTrT7qvahc5rR8i3EVhq+O0nWNhs9tWoRVqd/eWoIIa8XbmilEkck8jh6dNvYsQ0hrdiqGmuT3PbjXBi3GnsxXjrtgvj01o01do3jd/r76/r9gv6/YI67YKkC2mtnqK19tn49s4C+rZYSyyRHr70iqfF7cht7unr4db8fntSMY1je25waC5hTGNY3rfg9+mXzxyNlkTXvVaV+WyPCEr1zcg4oSOQkcvccvccvccuRXJSNbI1zNhM+5HHBDKTw9yVF8mPiuviMPc2Zhyf6DGOx8jo+xciemlNKilDgCgUCgUHLksrKysrKyr1lrpnzucuOEGPmlqV2Vq3cyRMeo6Ac9srGKOVr+xvaBuUGlRyYTSgmuIXN6hscVHK165LK5LkuSyp9hVhVjbWJgICjgB7l8U1/OTu5OXD3PKjNG54kYUCD1+T6f7eVqa5zUx4KBWVlVvQFfuByoq4kh2lsU352dtOoxQryAc5PcqFGXYW4II4Ie8nrMmMjmxMyCKeOEj+DTZjCkjjlj22mmoWXMlidVj9+x/WXw4OWuqstG1TdRgpAWHYX/SN9e+eL7v3S5qc/8AUcnuc5QwzWZ9Tq4tfW74gETUi98NaKFWnvD5ZYgfdHtCQPXyGlYFnSTa5k1ySuID+12o2QDtpsKUrawPCW7NJEHLOVy8mO4xyP8AfsTvjrR1Klm7NqdRX10PgiMiCrHEsBWahcoqcEY23xNrldmu+6HoSLl5QThzea5rmjJhsk7nqO2Ilrvjd666pSrVIfE2qVW0y58OVnU7SsvcTZMFlljl77E+7G1Mhv3HVPiV6VUNHr6Xj5adSZP+Pad6/F9MmfGtM0w6vXQoAD9We5rG17dtlm3fjrTS7JkdyDZ27GtpbuKKnb2kNeVm4rPq/wBxBaqx7D2qlff1Ja9XbRTTz7uAr4+979VsJIzutQKQk/IKqtbWCB7NxWfW/IavG3tIa8rdzWdV/IagVXbQz2dffpxa+vuYpZ9pcNOjDqb01envC3Ws3dd01jcwRTWN1Uhr/wB1EIBumyQazbE62HdwPls7yCC1y/ZvnzfY2/j9kUbTrUtaF00+/rNmZrrsEx+OSiantnV7MzPaf+N2prjdXYhbY1dONk96obNGD4+x7NVbd7O8q2IbQp27lSlKLFPbGvZmZdgmPxyUTU9s+vZmjtwSnVzRyfkcVC1Lo4dlZsWNpTNyjDtr8Fe1Rlq6C06xfEkEtW7ZpFlPczXWSa+Cb71lazY0VuSfaGtE/wDIvG36TLtZreLe4u1fuYY6ks+zsbmCKaxuqkNe5vLGfuov7OlYfMp5/OvtIZyzf1y5u0tHePc1ja9u2yzvKT44dTQMTd5adBQ0r5oLdqSJ23qz1KtSrrb1yvpLtiZm3tWTZZrtjUsPcWsrT7F292Fv3tjbnnh+P6Rtd1rT7erDFHJNY12xtWLVaa5LZpn2pdjp7MrFSrXdpFFs7lNuvL3TrfWbUVTXbCKlWfBLVuWaRZT3rJeTBI/5BVhmGrsU5ZqtP76nHY+6ngPuQ/Id8+b7G38fsijcfPZ+OUwRT2Nexf2s1G3QvyPFfcMMOwrVdlep19JSsQs29WyLI2Oyt2FJHJ+R265q7avUvQais2W7ttFTZ9vpq5C+PU7Dbeqozs3B9qLY6qtJLain2mtq14Zrsza80zP8N//aAAgBAgABBQL9XwuK4LgVxPj8IBei5JhysdMJ3kj4wDoX9GxdMdHI+hHjAFwyuATS3q5+EJUHpz1nuGpw8CAmjtOkTW5RRce2MLiFwQb0I78DtOd0LVGEXd0B1IyiO9HaITgi/C5r3D32UDlOHeDtvJHa49A3y7kFO8EJCicn2kG+ZbjpGPLAT2YTHqRvhR2B0eMjBTW4RRGVjyYxF2OwZPLuAnd0bBBgP7eSBPUuK9wr3CuR6ELz6Fqz14LguAXBFiz5dWBOPcSWOLone4H1cuZE1vRg6uHYHQuXIrkeoHQuXJA56OHUBOOO5mr4MMLmdQOhKaejh1HYPQdlvqj0AXp3FiXioJi89ho7JHUdD2y3o1vRxQCzjuZ4ARDVx2Asou6tKyndAVlZWVlHoCuSz0yi9ccou7lzw1cx2h1eO8BwstCY7PYce6tcsQHDuyOw5uO9aMDoe8jaGA2QDG7kO5wE+NFuO2GoN7Dj3hUkLg6FrmgStKBz1HblPTPSSwWvrEvHkEDnsE9+8nDgcxOy2V/ENsBxTZQUHZTncR9yzpZnMais+6Z3cBlAgiaqo4Pb6DwgYOWVYic5V43pykzmq79tgPIha7IKtV8qrXe1PKZCAex6D1WfDlgLiUCmADsEdorPjMrPXHTHTP6DlZWf1khALii3zLEGrguGFxRYi1cFJ6t9Hr20GrgvbQauC9tFqcPMsTRk8gizz4IMQYuC4JzfPggzoz1EnmF/qfUfy9Rlf7D1HqfQ+ak9R/EjCIyfUZQP7vUZQPmP48v3cU04PEIHLh5LOQCmJ3pn9w8kf4+Nacd0Cs+QYgxBix5EIBFq4Lj5IhMKc5MHm9D0Iyi4BPCaFyB6HHFo8gP3PTmL6tGFjC+jwicLjlO6MCc3KygUxf6n1BRwUF/qz1EnmP5FNOBnI+noi0FPKaVxA6f6g5BIyfIPKeVIU4+X0cVgFHyWf8O//9oACAEDAAEFAv1fKysrKz+gZXqsJw65TfH8ehf2Ah40lclyKIPUNXBYQb4wntBqJ6Y7nPgij2QOgKcgP0EILC4rj+ht7WemfPuh3h7XFei5IlA9HLKaU4Jp8WOhKCBX1cVjsce6HdYRWFjphcVxXFY647WVlZWVnsnucIrks9D3WFjs47A70FE9o+NaER2T4Ud2Ci7wuOxjwR6t73BRHYHdNR7oHvSsLKHe8e7yg5A9xlZ6jvQUVju2dgBO8uh7A8CUFjoR0AXA9GNyi3im+fUOXLPQ9QPBgonoE4JuEejHJ7gmrPbx4o9gdoLHjcLHax/juVlZQciVlcllcllck30PqFyWVlckSuS5LKBXJErCDlyXJclyXJArkuXRyLen1R9PqvoV9B0b6H1QK+qPp9en1x5ZRCyseXr0wnIL6HzX18aR3RWFyXJFyyh0yuSz59HBAJyavqsJpRWOn1JR9GoHoVnoEPNZQ6OQPTCcvqsIdPq5FqPoEfXC+vqspoRWen1Pr9Pq0JqaEB5oLzH+If/aAAgBAgIGPwL6DmxzSLWLLFiDW42APaRuHGEbGOyloUQyixxJWYscL1ZS2UTNkmzYhGzBk7Oj043Qy7ofrYeWRfaxLr3QoNQUKzRnQEU9KMJuPdZ23LvT0uX5pOUPCH5RZiKcyuVHfzvuT9qx9FizvRqBM1CpXZHQUEzUCZPfX0hCp0nVijUfTjoMnR6o6nv4j//aAAgBAwIGPwL+Ob//2gAIAQEBBj8C/wCrXJsONc8w8BjX9Q/6a8sv3P8AGtkv3at1cn8wIrNE4cdx/TrSygMPd30Sh6MX+4RzH+UVkGZot8klz9VEWRvVWYlTm91d3ZgKtJceFMun1BhmUXTdf2UolN3HmvWOH6UZJWCoNpNfDb8NAdh/qv4fwiujpYPxExxMsmOPGuprH6r/AMNAYIu4bKyaUWO9z+6rsbk7SaKdMFifPvt2BXF8wOUf5rYUAX6Eq+UnAX4GsrkdTeOzDZwrv4fo+d/UKOp1HlX5cXfRkfC+wcK6OiTM/vzHjWQybeGFZtQxMe7Htz3yR8eNfCkKkbS2NLdgysbKy0JpyXlIxRsQKXC2Q3W3bmTzCuDcPQndDlcWykcb1zYahPmL+8foDSyHKi7TV4tkfOx2Kq8KUkWRfKvoc7E+PYskpyxcN5pIUFnfli7u+gskmcqOZzR1MRvn2W2enfTL1YT/AJbkVz6TN/ob91f+xpLeBy/+VGFFZJCRgdntpZ4TZ1/aOFLNH/qXgeH05hjb/wBaE2w95uNEX83n9Xot11IAXMo3mu6tMMmSB+TiSaSFbZhazb7ndQbUl+oh/iwNZUGVeA9PMKuKtBpjPM2zC6jxovJC+Y7eQisRaupHzI3zI+NXiazjzRnaPpciH40/KvcN5qw9ESFc+XyjvptTqHCyt5VvgFptqQbnItfwFLHnblwBGG2gTdmBvmJ2/QY78OzLub6+3YKKyQqQe7Glkhc5DjDL+41mOEyYSr+/1/SSMMY4/hx+rb+30+p0hnGDA44jf6OJtfZSwXvK2xR2JpYLAA/EJ9IN6EsR81syfzDZUe5ZPhuPH/H6Oeb3gtl8Th6SqN5rluh4ijjcLix418ONmlOxKj1em8q/Oj/XhWaI+K7x2CMHCL66WfylRYNloo6WZR5hsrrxHLKn7a6UjfGT9o9Fk9Y9FAv+8P8Az+jhh/3Huf8AT6WZ9lsKJZxYbaZiTk9wVml8oB2cd1Zo8UPnTcaWVFyL7wHeKUw26R9/bQ1Mg6hcC1xsq1sOFYC1EHYaWZZeVd1sfREN+ci9u4+hLMfcUn7KRjsjvI36+J+iOU4VfVIW6WCHMRt8K+W332p52jPL5RmbE7hX9on35ftr+0T78ldXp5ZAbSIGbA1fIfvGs2T9pq3SFSRLpIiI2KgnNuo9PTIM20ZpK/tU+/JSq2nQqgsvNJWSOBAvDNJULvcXAawY/qewySuEQbSatpojJ/nbAezbWARPVf668y/dFc6I49YoJJ8BzszeX21FrYGXKts1zu3+guiQ4+eX9wrqOPjT8zdw3D6C26mi2G1W+YzeSryEWO4dg0yH4cHm73/w7Rm+TLyv+4+hqP8Akb6+yGWQnO6Bm5t5ra3362t9+ljXyoLD1UWOAGJosTaBflJ+/sXUaskI+KRjA27zWXpZf8wJvQN88D+Vt9+B7PwMxup+STu7u0yti5wjTiaOt1WMQa5v7zfYPoWMwy231cRkBverHseX+oeWMf5jVziTiTSJ/SXmk8B9tZlFoZuZfHeOwI5+NDyt3jce3Uf8jfX2XWKQqdhCtavky/deoCYpAM63JVuPZqCNuQ9iKdhIBoAbB2TE+7Zl8b9mnI29Rfr7DLMf5V3k91GaXl067eAH8I76WKMZUQWA9MWpRbzYVlfZVh29NT8GDlHe289nwyyX22wr4jM9tl8exJf6bcso7v8ACrjYezUf8jfX2aUFwD01391fMX218xfbWFPE2xwVPrp4JRZ0NuxY5GCalRZlOF+8VdjYcTQ0mmOZL3kfdhuHYstvhQcxPfuFXc5pT5IxtNfiNScmmH1cFpYolyouwfQZ8DHv41eFLoD5vQb8OjPM/KmUXtffX9tJ9xqjSaF0ivd2ZSMBXlFeUU508TPDJzLlBNr7RX9tJ9010dTGyPDgpYEXXd7OycjTyFS7WOU1/byfdNf28n3TXyJPumv7eT7pqEEWIQXHq7OfllHlkG2uVOsn8SfZXPC6nvUirHORw5q+Hp3P+k1m1TCGPeNrfZX4P8sUM4wz7Rf/AOxr8X+Zk82PTO0+PCgqjKo2AfQXNWJ21lUWHoSxDay4VlLt7W+2vOfaftrzH2msuY+015j7TXmPtNbTW2tv11t+utv11trbW2ttZX2VkdssSYClRSS7G5JJo15z7T9tec+002skQFi1oidwG/6Lp15stYbPRZgOWTnT94q3b3/SlieUYLVkrGkhjxeQ5V9dRwLsjW30WIx3GmefE+6O6slrBdlG20egwT5yc0f2euu+se3A1tNWfHhWHp8z3b+EYmjHCuRTtO+ruaw7G18g5V5YfHefpDl20WflttvTBQebG9baw7fx0A+DIfjLwbj6/TJ7MpHNw7ATytxpY0XMxF7mt6p90VZ2zyHbwqww7V08fl2yvwWkhjFkQWUfSrm3VmtsrNu40RmzG9X7CjjMjixBr4QMmnc/DIxI7jWWVSjbbGkiU5Wc2vTAx2CYl93ZKrGxUDK1dVpLyE2CjZStmCjbjV/e3GiH84ONP+ItyC4I30C0IVl37+xqyriT2LBAuaR/1ua6a4yHGWTifp7HGlVeWHawrkFqAsSnGsrYnbYV1N1qzDGm1g+JC20j3fGhJqWPUHy/4RTRzyiMSCwNFc1wNhG+k0hjVQ2yQce+n0xUsV2SDc1ENs3Go4gcoTzNxrbfsNDOdm01Zd++ikfzH8zd1dHTLmb3m3Dxqyc0zfMl3n/D9EY7Sx21arRcobz1ZV2ixvRm0HI2+E7PVwoJrAyyRgKA3Adnf2ZdjDd6BNXY0bLmkOyurqrwQnHHzn1bqEWnTIv1+P6Vk1EYkXvotoprf/nJ9tfE07EfxLzD9lY4VmG0VwrzVhia+FC7+AwoHUyCFf4RzN9lXjjzSf7r4t+n/FhR/ECv7ZR/LcV8k/eavkX8STXw9NGp8Kw/6sXbBVFzWn/MZZG/D6qVk6ZJyhdgrTxMpJ1DZVI3ePtr8J02aTpmQW323eOFa4yBwyhysuwDZy4b60wmSUqQFbUEcubxO2lhCPNOwuIoxc241NOAwOn+bCRZxU5EcyxLGWMo5fUp41pzFp5543S4bBiP5jUs7K0ccNgS28ncLUIGjkglYZo1kFsw7qnSNJHWMFXnVeVTUTOxZubE4nzVNHqNXJpoQilchO2wqR4NbJqbLzBzgO/HwrP0pTp75fxGXkvSRKrTzOMyxxi5txqaYBgdP82Eizio3MUohkw6xXlB4UsIR5p2FxFGLm3GppwGvp/mwkWcVGzxypDJsmK8t+FfhjHJDLbMokFripdRmk6SOQeqczX7qSF4pYGkxi6i2DVJOMWGC+JwpdRJrpV1LjMADyi+61PNqgWkgfpSZd/fUaNHJGkvypXWytTxJHJO0WMxjFwvjUOoxeKY2BXd40shglDSNkihy87WrUZIpF1EAu0LDm8aOo1mYZNspGDXJ8tqSOSKSDq/KaRbBqfTdKSSVLYIL3vjWax2Xy76MMKlpJyEwF7A7aZRq3lEQzJBbDDhX5brOi7GBvjpY5sLbvVSanoSRxGIhS4t/wDFfmOjaGQS87g5cDfga00YjYuMl0sb+ym1pheWCaMITGLlSLbvVX5lrTE0YnTLFERzG2+1dPKc/Q8lsb24VpNEkUgDxjruqkkDhQ02iglX8OyvldcpbjbvqF+nqyYsepOcFPDHbWp0LaaSSR2YxOoujBhvNRK6lW5sDgfNU00ukfURMigWTNjhxqbTxaN9KXjPOyZRw3eNJoho5G1SGww+GRe981HWvC0sU0YVulzFWFvsr8y1piaMTx5YoiOY232rTRiNi4yXSxv7KbWmF5YJowhMYuVItu9VfmWtMTRidAsURHMbb7V+VqI2JVkzrY4Yb608mU5BEQXthv31KixnqrqDIEIsSB41EkWkdU/rvKMuXw41JAMGOK+IxpdPJoZW1KDKCBym2+9S9f500odxwxrSaVdM8bRsryuw5QANx31qzIupyTNnibTbGvuatAkcMijr5mjbmK342qDpiT8Kb9doRd613wpVE0Pw+riT4njQ0qxOs+mbMVcWzYnAVp4I9NJFkcPM8gyhbcONaqQochiXK9sN2/8ATjA7FVJBuvdQXhh9D0+o8WN80Zsa/D6XVzPDF8+VnPsFPEkck7RYzGMXC+NQ6jF4pjYFd3jWm6MEsavJzBlxcD3VryzdfodTpX5fDL/FWs1GpOpsmfytZQP4f5q/JzC8gjdvebEjDzcamKK3Qgvmn9024bzUeaGVIpTljmZeU02n6b9EDKEAHHznuou2CqLmtP8AmMsjfh9VKydMk5QuwVPrU1MwbC0Ybl3Ck1B1EspkjF0drjHGmEfzpiI47bbtWp/L55DIyWdGY3w31q01Osk00a2yZWPAeNarVafVvq+mouJCTY7qXVTa6VJZBmQIbKL7MKmg1OM+mbIzcf1tWn0GmfpPPi8m8L3VE+n1LTxk/HSY7uIpmAzEC4XjUY1Xw80RYQKcAO/vqaCXVnSaaADy4FnNXbUiaRiFSdDuvxrNH+YPqGUG8TXHrxqVdXqLSdVrZrnD9tfmbxyucsmeJgT5Rjh6q0MWncrJLGZXKm3kX7a/K40cq+oYdQg2PJg1a1dTrn0wR/hgPb661l5W1GjgxjmbuFyL0dXPq5IlYnpRxGwFq12mnbqyaZc0Uh33wF/bWndfzLNqX5p4HNxY+6N1+zLpkZnl5SygnKPVSwpodTfa7ZNprVGRdTknbPE2n2G+5q0CRwyKOvmaNuYrfjatHMsbSLDLmcILm1JPkYRtp9pH7D31+aKY2DM8mUWNzhur8oiKuN0hAN1vb2Vq9AiFmiBfRuRgQd19l6gZo9S8sbqZy45B/KooymJ2imjCK6i4vhtowwqWknITAXsDtplGreURDMkFsMOFXKN1iqhksc1w3CoAcCI1uPVUcCFoYtOufrW988K02r6smru2SU2xC+q9aySbRvqEfLksmbd31qNLHpX0mZfMyZQTu2Uulm0MryxjKjJiptsxqafU4T6ls7Lw/W9afX6ZOq8GDx7yvdUSabTvp4wbzvKN3DsifKcnRIzWw376l1UmkOqgnXDKM2VvD1Uf/WWRjL1Pw0gzWTuHGodWumbTRQqQ5cWLHhU3XgGbrNbOuNvXX5hG6FEeVgARYZe6pDOpA069KPMLbW3Uyup6Gl6nRJGHMdx9da1tToX1Id/hkJf661TrA2l0MyZBE2GJ32ptH+HZmVvgzKudSL3sa14nUxayaMZIyCBYW3+oVpNLHoWg1EDgy6giww333/8AZ3//2gAIAQEDAT8h/wAswMW00RMrfd/iDcHmP++gB279/Mfs1+83PNDSf1zruUW/l2nux8eFqv3iCltrA98DPaCoR0PPm3tEeyNVH3SnYiKrGWnwK/xK4chGg7qldDUMsnZmIN/x9/1WYQulGA+HxXcflczjAOYe9weY4ZxYVT2fHtFWgtZTGZmQ+ONFozeFsye8GYdkPumGZDa7n5l0lXdo83Fy2AUvS/6SHHeffhGMDa3+nRpj5F7E359ttrHfzD6LqDQg8qHk/wB4NTnxE/MLjdFub431FnV9Uz7JW+Egf9QB2ONvZgyX3nD8AeB5oxHY+Gnx7MehDkrQcPiVB8n0Fbi0yUzQmL++w/oAphtIysSL/wDYr5g8tU/lhVRBOi2PupZVHiDANT239SnE6jBxt7XGNXnP5fibY0pXluvfpUSK56WSzCaSLBZIAbyNZrtDdf2ZRpfefwRdd6JgOcJyjCcci8MVPeObnXrqSHDgG14NEMd1S15TQhB1IPv2mtfdweCUTXLHtFKlVG6Y2di4abtbblUePMSUrF4XDRj7ytENBRn6BB0kbaQVqZTNuR7z3e0cPrapZ+Kh2/ux/M7Rwjgf0nDMSSvH+Lk8nqq1a7v/AOilIbmEfPL14S1Myso7LhFjp6UKqpUOSt0EKS9VK2V/hlFb52HnxD6Xop71anu8QzN/F1bRvgm2tjQ9wmRg2CINlb838zCiuHvwPHqGIs+Cnl8wR79YEOm0Q0TsL7wwO3B0EGUtdlWatnze9Bu3t0aCrc3lD46lekuzZkgd2M+/P0ERhZ7ZafxMt2f4D7empRpX2Z/Mfbl79aHRkSSPvC6oOT+mBWybhUVGoEwfc3FuNmzwnymY1N38HQlQH+eWX0ImOEO7WbidQy7v+mUsbW8YZ3wzcTub71x6us+O/Jv6fgy9PSLmi8D/AGzASsr0Alm9hQvL/ErF91Lk2msDjEoQtQWvDs8xNYzKX4mJ9sF9lZrOEeJdrpWvLhgQGBIKe39zBYP2IAoh2CpTSin5hKe03L4XtLOalusrAUXd/oT6FloAfNf2hdXefPHoigW4Ik2NxLprEdycUmg/YeY7bTuz5OWCmK9ftfMzUx0XBVt0kEaDef8AbEadraBH2uVJXVTNppSirOajzLFXQ34Wp3/3vmUq4HF5zn5m765JV9rcR9MTLlLpdj3jDthjZHlY0v2oOqV2Okub+2E/GJZjjbU+3XzKlvITPYw8fQTOFU9ub+YpUqAd/tl9BWZePvO9AYzRLVbFKq339piS3QyycTSb+zHTczdVPbLfwP0wMJdrWpRnHSGhs4jQ6L8tCotNJR4CIsSnCHd5ZgIAVNmcHYX2JRSXH9szBVf0+B/IiHcEJOu0jL7U11og/aTwcyza6vs/5Pt6FrVviPADLOxIcDVXOIsIutdAbXyLR9ty0PbscruIkvL/AIvliW9IYdH7TBZUzyU9/wDszHQtwnWg5nYxR4QqfuL+oYusBApuzoutbXvh6X4SeFpmhAA9jpuN+IA/uGpj0H5Kfx0oamg+EIlK2kez8r/sLXSPg+vL+eTxPM6gShl2uAAoNHWxtW9n9kdLp5wbb7QYAtDaffo5H8w8/LMBJYWJ2etGkGHLhBH/AIH/AHP/AAP+4IBVjpJ/EpwqffiEOE9zMR43wwzYkdOMu77ReU9pR92Uwan2dO556Jj4af3mYlj/ACh7HmW6JoTB4b+WGWNQfy930GlkacJoNobV12lkXh5OuoxplyY9iUtry/8ACYAjYNiWhvUAAKDWCf8AmE0MQsXYXpiCv2/tLpIzYvL4dF/BA4i7MT9t/wBT9z/1P3b/AFKv7f7R5wlMI93Q/r613h7kW0cWV+XTK5+zNZAQ94EfZmI8nWfdAhLYYuD+EIayGHk3C23aqf8AO8QK46NQHj0NMTVwCgnHvAlJ0H0IkRFxRsyapiCNGlMd+zn8wF9Dk/8ASfsA/M/cD+Zfv7z/ALndvuzu/wB/9p3f7/7Q7v7/AO0O8+7/ALh3n3f9zzPuy/dH9itIonszzs52d8bZfJQQ0e60RQ267saqB8TbCn9nMZMzOaKPK+kENBcl8+0JQdhnWBjRcqYfpwtZrjP900L4empSNJpmdNHZ9XKEH0/zlOj7Ef7itFHfmNF7docFKHmNZ899bfl9IfG/IGZ0ZrgBLPiFMxceYfQK+N8rWfgnE4GEe8TDImG4ovbEu396KVE8uYJfHY7hBJ0CBswJfsyppRrYz30TkN7c/eKsKOi+8Enn+nr1EEFkwTT35+BKORFQBQY3cAtWdbjgg038P5SrzKN4guPk6JBFDnLUZQMrgi2Qfclze+0KFsa8I+e8PjL2I42X+/uyo3IDA/tl1kHY67dQewcz78Eqh94h6t6MO0713jcAMIUxFZ7JXtEr4dTUbzVQYWwdrxAf8YyMaGOgUPa57d4CYQGNp1iKAUBa1cwXJUmIXY8wGOkYBw3ycwuYs7I5u/EMBdKxd9g5jdQGNIR9wczmMdDgynau8sKSg8jxLRCy7vmUJxbztLM2oOA5TgOYH+ej/WcHr0op2ZuSaX8Sy3tyyEcDA+YPuCqF+00RyVFFgLeOJo1+61Krw8w21uPyKcxgC7+cmyFHLa06cx4YUlt93dxR+alB279mFKM770QoLA5Zr8RDaXdbiRmOhtJp4jJMi0Yi7EcKyy7IL9wevup5xW2djsO36MEHTFOTlTBhjtAyp2uMcxdYKnITyRN5twn7/wCGooe1VcGO99+mwiNDTG65fMHaH5e0IOgTKFGLieV2OCEcJv8AqoBdGx+D/ZCSDutrutr+qR8WUyezsmSgcZD2Dn7xdqP/ALkYtZOzh/MA8GSE7sbGU7H3g3+kS43ur6/LRElvv/xEq++fwXb4/XmV7hpvvcv4WfvL+5bvj/nmLX3hVfu3AKAHY/yymWC9gLZdwWsE21r/AMmEF+KWM2SFoHwWgHHN2gVBGCvQLkHcdlRV7xZfunzJHSzQEOTS3ROKWvzKaTsy72dJj3hKLyJmLN4APFtNuJ8utQ5kzJLa6q7TOHmoupNndjljUyARxKLO7qY7JPoregh1NLfE73XxPmI2NWgIX2luicU4/MLn8bC915rmp82R2s0BC0y2R7Utfmf3BGgcteCKfuRfzLKJbbx3Fbw3ggRTsoHhFhigwXV1L9ruFhnWq1iHvxNEcoFOuB7x421eZ1Td54hNYwM+Vk03s2e6jTitRcq6MimQvWYk1jDS9UukNviVnN04xoO1aqaBX8cqbdxlGEHxtM3gcy/PfgLr3mzPLcga0ViW56radZOe0Z1jhVaFvnMsZNRTV5d5LgY+MN0qoByL4iEioMd3dLnfwNA42pjRbviBkc21AaNfkzacruLqctY01Oe5Gz7K90Sd53FTfag5lBdvEwn0RgDpKrMHYmxuxw5gnCXVwywriCyNS5ihe0PxcTmNXjTEn343QVhS9poF+xgyObaiEioMd3dLnfwNA42pjDJuxUyObxKsh4yDKlY+Y4j3YVeLpDzVDFDWHeVlG2ntScUGK6upfvVQgI71WoQvtmo/eU7LA9+8p7Vk9tdrxFpVIch1NJdSk+eJyzc0EByJQj7Bhr3ibslb4VZbLdrxCbnenNtd4Z5gnymLlAiICKzuGnH6540Ci8r5uENkIPj0eza4R4vtMB1rgEc01faE1jAz5WTTezZ7qNOK1G4jgAwbFyxqe2rCr3e2KVCa0ecdAvEfYHjNzeNRgcAtXbHae0w4fIItd7iDfSAUF/4xTLBewFsu4LWCba1/5DapaobcIUxXgtFpLBGgTQbkJ8XLaVOJQYXfciU6rKK3FFJgVYQS+YbXMxHjUOWCoiGLPHIPvlMhxh0v+GUgq2p3JnMYmsDaDR7zEqalzq7HDLKM7heEPGWrjdAgC1fysBGYBYmTeKXzUy/ALfWqeEdaPYYnuA8IrWmC5SxHIYTepajaTOXMw43paN3R2UajHesi2CW8fvMxJFkirPedwH/Bnkasw8cgULp4DoHcSiKMu2XUXE8ifa/1Et7A8p1NJdSk+eJyzc0EqeOoLDg9oJDjPKXPYPCPQGcgcKVn4hRXjQoVx+UsixJvPAXqBrRSE1Rj71Lrp1hbZwFZmzPLcga0ViW56radZOe0RcHAmFwvNXCQQKYRDhj2Z0urCrtCmOe823BWsx7FKyghZVrBaUr7R15fSIfkplFY0UcMF/iEh7SeUHzlMxwh2P8ApmLUc48gP9dEBrsuzvDhcqScqugG1e4bxzNh/qEsp/EgQBi6uPRztHwVVbqPIlJRWdmK7Rv9bQUi5b5+8KPsKD1cDi0y41pYF3T3XxKTUQbFSFrmX4aWlLAKq/uSn354ZGXkJiSAhtvK3/H/AMd//9oACAECAwE/If8ALjZeW6DJP1wuihD1pUYxZMfrgnfBOzAvqGz0WI/cfrALlcErgOOe7qfuicwGcJqW9AZlP6HuSmEOlV0A1uWbitxKFvrK3PJPdGGJco/QQQh1o10PPeUFz4kW/RugnXKeqehCHS4qIHBKHmXu4+sClSUvqCEIfQ9V/TUFV8dBzelUwWemQhCHRaOiSVuXEK3wRtulFu8NXQUYdSlvj0nXrTqWgh2pQhaxD2lmsB3uJgx9FlK+msfQLY6PRWty6uUVKbWWimU95nvDvQI+aF1tiO5fd/EBOZZuYPQLh3ynQTEIDD6OSXPoZNmLV2Kgj7n9+Zgb56UF9bD6NOiX9NV9K9S/Xc/W9lCj0EjFbP8AmC0h7Otz0qJcdKnrp0slkRXTf67TpZFDF+tq2z2lHwAg/RUdaOlx106HMqV0GDfSrpVl6VEdiDRuLfoLLpSrp2f19BzKwA64ZSEvHQKlJSUlJt0cgZSYlIHEFkyvB6JF6TXkzL+uTFfqLpAlmViO3UY+ppUPdlfSw+pQYdPgfoAUfSclcPQNwkzsg+oYQZQ7h2pZDbfWjK+t+qFShplpwYaY1CLvUAWa6qEJcGDLmYItQCWahGQQR4i+Ol8SX+hCrvmHwQwD8IYYqiqnd0CWK9Em2TcLIyS94EKx5cc9AAzbkgV6Au5aFKw4RYthKHLlXtOAkeixFrosW/0A/GqNoJY4cS7VjzEhgt7TPrShuKn9rmPlc95QxFpeowbFOPHiKFwvjxMmJs6/h0vo5YQO7UYW/wBIYKMB0GbIV6ItYW3L6X9UATOP6wSRfRpKhA1Gb/X39Av/ADAU8glo+IYXBBL1qo7nRFXXeWRqNlyEUaihe4KCRxLZbkqW8XFfBFXXeW8XHc6Iq67y3i4oXFaRAvcxkSaoqaxzFVES9RFrkm3E2OzNYiveKl9K5PEDhKCO8aKXzKWRloV3UoeCX+UBaFVkZjr+iURaKcgXUTK7h5GIV4UoeCFaFd1KFO0KCy94g+EQG5nIs3ZUHBqUu3ChrHeZX2gM94imsMQW4YS7cWHv+utX6VTGtkLiJeoi1yQ82k9irlVBU5EU92X8SufPQKeQS9KEuxRLvCAQEDWi4iBKiFAQTJphUriIMlQg0d5TarWE6S1cIy4OIgQBNwu8JkFFzRwsLEIiiczR4dCXMsXZCwax3mV9o9ncnZ5iIUqmJ90oLqb9krk8QOEqeE3YFveBQ1As01G2N3ELEguDRCpXMoZb6D+UxN0kRvxuaN3cz4eJo9oNY5h+9mUU1KgzcKbuIBWiILbsf/jv/9oACAEDAwE/If8AL06Kysp+vuMZ6NEuXCMtQ/WL0O6ana6DKgzBntB/VvQaajDkdbIw1nclegwf0K/XWyiBRAb+tlvRf6FRV9Pc6ae0c7kr1Bl+q9F+hVGbYX9uivruIPqMX6gP1PDo6j0n9EETAp0pVkB6PMtuWy3Mt9Ln02P0umWSxiiEsIU1AOfoKv6RrDmVlZRKQEpKSkohRKRCGJX1gQn0KB6BcgqGHmKei6j9D0D6RehFROi6rD0b4L1egdQ9X6D63odd+hZKj6V9I9XofWPRepZv0uz6GVA6pKh0SVKlSuqdFdK6LgeiFyvRPj1EuKe0IOh0HpUhs+pidb/VVsIYHqLb0JX1J11FSvcB+u4/QD1CDUQ6ivoY/UPotOhlmP0D1whBmC416qVLGuplylfU1O5HobQP0ZeK6EQtMJpM0ocxlZiThisQYinH0EcscQ/TrxXRJZldKi+lb/XFfQD0uVf+DVK/zIt33jSOdQaMwSmVqZE0gYXj1RXvKxrK1KymUqVhdgVCKiDeZgzKRhAX1MeYQ0a6aRa3G8MM2hpIJcWlLbKlNBEuhBnmFmOl4IN4qogVU1aUtsEuLSltiYIkigbxLiDOI0huhEpdxwImDLKWnQD9ds9IXMnDGEBfQ2i3uLqF+m+HQW77zknNFRMGo9zBAvcE5uWR5oljoLtLHtFUbbh8wbGNQjYJy2x77QOUuWT3dG1iUGmVTzHAnCf0gYY2CWMRt79GkWtzKdIbhQ3uaWJpWoIxUo3DmyWddYq1XASDNtdAbjXG+E5bIcvBBCoF33laK/8Ajv/aAAwDAQACEQMRAAAQkkkkkkkkkkkkkkkkkkkkkkkkkkkjGZ8kkkkkkkkkkkkkkwKeumEkkkkkkkkkkkkh9eNNTgkkkkkkkkkkkk21VXKPkkklkkkkkkkkFFBZBcgEA2F1kkkkkkkpfQtnFkgAg+ackkkkkmE1BZoEkgmAk3Okkkkkl4QXewnUsgQkkckkkkkMmccVADNyAEEklkkkkkskByPMQntAgskzkkkkzHeIbTG9c0F1kkNkkklqsDZkh470nMHcmkkkkBijW78Bfcnukn8fUkknuklZLkhYAmm4LIykkkjckNqVqnsDEjbMzkkkkkUkHY60GC2EjmukkkkkDEkm643AEkgjQUUkkkkzlknu5FegAidwbkkkkklyLkbUvcQl2XhWkkkkkkAKTjsVeRMmGA8kkkkkkizs9tB8jaMMnkkkkkkkkkmgfWxEE7bUkkkkkkkkkkkkxoy4JMkkkkkkkkkkkkkkn+5kkkkkkkkkkkkkkkkkkkkkkkkkkk+WtTGJq4+6XRzJwfHgT0ZTJH26kubJMGNkPfbEkkkkkkkkkkkkkkDkkkkbfBkxPxZEHIj9cnrCD07Pn/iel+l7s8/vn2AgMkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk//9oACAEBAwE/EP8ALETOwgPK4h9dzq12LytH+Wfkz/z0Jc+QzKobQfmAH5ndC1ZvvTj9cdshAK9AP5QGACDm13g9tECbGLhssXgRXTVVpRyLewiJS0ql0ZLUBw5vBAZ00AQ7gGLJ32bEqMy4MyCV9mJBEpA4FHKPeKDn5cqBEEbHSfqSCvb0D+3wRUCYWc7+7+pM24QF7svXGq1j86ho022Y9kBEhpqQqgo0R3x7Mw1Q7+YtRyqM91WI2hHKhE3ZuKGFthTECvyM2vdJo0OChdCq624h4Dl4kwtZ7BGKET3mcO5o+O0yn7DP09ZsYDPHDlirpwEjwAsL5ZjiVpKBrRC9qHLD2NT7NobJxxBy6jIS0FM1GjbSnsEgAoogQt+Y0KilSg5q1949LSS0vYqHz0XWJQ8Qqmtx66kxB07u+wxH48Zqn+cS7cuuPm30x5T5gUacN3N15Pouht7IYj8TOAATF5oD/wA3H6Bp5XKPAeXRKAEgwGxcv7ziCB+goN7uyrxCAMdoZVStEwmR7PeUAvTS+1sTY+xiYnENr9ufmHAwRCwX4GIjLitq2+zjxAuU0C+PgKa6No9YnaPjo0G917A94Mqil0olMmzb3gx8ou/lHbjzR8RUYBBnqNS/EupLPd7V5D/coDb1sx9rw8mfXO4Yql675P5Ys27VO03tAQFHMKiDUroBVoCr4Al7QMBQacFkFyS7PeWMRk+HqgwjhbZTH5KtIFgcw1R2fEGnQ3UDn4owKtoPPVLm+BULPiMTT64TkfDE+w5OR5H2lkCBkri8G3Y75jIFPscqKIDsThb3V/iIqwYrh9Il/tFTH8FBb59UGWH2cH8Ko8sUde7/ALDoZUAlNVBKxH/7R94psO0ebgGpgWbuuY7MtxGVLP3UpBBlTBUPwSnByiwzQMZZjwHFfXBMSCuL1DyzaJLVcvx/66Uc5Gfksb+SDYFBOXggHcZg4VY2VHCDfAlWVtIsYe8Xw2epYbYRvSPzMpULW3p6sTFcAFy8YaZrAbtYYDsOSMgYBQaA0ESmveOd6V9vFWBdF7Zm6JtJMvQrPQiag7vVk6rs5iIoFsGtXmmH7QgY3E7Jkgt3i9hgff6D6KaNpFvdX3R9V2RJ2/Cfn003MIp4XyNozLa5XK5X5ZWk0d2FRRBC5RkM7U/iAQKBtjRVvcmDA1rZe18BLl3wYOy+Z4lhHrG9NIr9mYDKI1m5vs86jVx8xaAlVZjs+CiPwthiVaUoixyFOVrn7EVhqiYndTI8MHCIguwuLtppj34jj/7CKuZ1cILxh+R9DL9cUzsW/i4ekZ6d2W8fhgAWRY0zRUZU1LghhcrJWH/URn68anwZuIOdbtS7aPmC3AZheZUYADKoLWQpBrmHOKtDCYbLJxD5E5w4TgsyTsjnIyDJp8o3RU2BoeEqeBzofYqVytXG0KYpCyobA3Kw8RIigwchje0fHMyMivPOr6BYFtPaHywmXiSyUsL5bj29FEgGVcEsFElLPcGXxAkus2wOtzTKMZhU/FsFv6IRYHzRQu0cRgUxOgMraIS4dmSAgUbyOUETc5i50pAtK2Cte6xSM0YkNMiRRCqyhW6GnCajmEK2qrfvOLPrtHWGrvCFLoUFtZn4RdGqARZCAjx7Qr72o8Acq9jMO6JLDrkLR5si4BpQPlrFnNE80ZvBe1/yjrJiIQ4CBez5lVmcaTVIGXjP0Xj0sNDPvnM7VFCVAUAy3zT7j6GH3IrAUlFF8mRMC8XcPIFzhcArCZ7NKkeOmcYt1gOz/suKB4INLJa8Ja0mT9+nwsESzI6foKaFncnOcuCNOGeOjVwXcAZS3ILlggt5wQSOiMC1fYJbSC2K0AYa7X4ItrR4gkqLWOdMDWSpX1hAYe6qPkRtSgwEXWYwyJhhaCx5jdXMsPJcthHFdcmqsaasXzzKGMoKwLYR8H2d0ACjX1lm6Y28xwC0cVbfeWBTRAhsgAU7aXT3OiSILPgfDZ7S81TKKLT7rGDp7Kw39j7oV9kQrWGsFNANDDdTEi7DgmT2LeRi0LvxDxseSugXvBukIg6Wke3Twby8NGVUB7wi/iEG6H8DCBDVV9ipz2G6p/gYI4BZoCjpVRWxrVK+FPxKHw1EfQAngX5PSgcWsY1n8x0QXUrLKuzsNvy4IJdmtD+V2v1qsy6vm6ckQYEOw2l2r2g6oih4bqGkGAaA65ltR2MF8lfBFxcspCCcDJeF7i32UuThTKrgiWRKhi2Rfh3oHz3hnjM8IWJ7nULV7kNhOrCDCLjoeonjqGtFiPIk99AihLfF3FaMK9FvOyoMYWkGQwjBZ4YCxNQ5HYZnDYMfugQGpdvyG4Xla7QAA4IzRS2aCB5t+2V5IXi78G7XxMS8CRDfPf8ArbiVg/P902m1fQG/eR7tuEi0u2ELKI2zaD2Hnqy5xjpRArV3zUBZUylivL3wjj4I8RLxHvCawAagwcT9hf1EZ/cqmWtNodmKFkmZn1l4miS38FdLUyngIhRHp+VdPjovzMViK83KABA5E6UUWhijdbi/h+Kh4A3CjyRfBcACORa7WI/cgBXrKHuESCTgNj+43DHjDlGzF+6r7RuJqC3xyFfj+IWoIu7wv8PNdoC6RATAAwegSTKLsuVWRRYaMIB4Az9B/H6IWFew7ylbHFklNJ7EqW4zyn8qIDJO8dyrgTjPKGUAex/HQxlG1Xd/5jG/efMIBhJNBjLXRh93NNeq2P7Nyn/Y/wC5WnGRrhBKY9TTexWUNV1REA1QGsGUOo7eYVZZ7MxguwD7FIJj+ZjfjGCBI0oqVwWS+x6VUp7lK4IWMVikTYQutx1bAlmz6cBGQFBVfBlKFOGFhXPEWWVYTC7nW/JBSxs8Zi/9lEp6BUZ6J5wM13HygmZoNroPMCKGh28oHdHC02sr/UFl9j+5SBCc5KF8G2Cjjb3D+QfSY1bYHYIwV8S1NJFb1t9gcR8sufYOr9/oOQqXIf0z3qJSanSIMIniOjK6eSAgNjzLcjLoHw/1F9qTP7EQVchkdyL0b8EOH56Xnid4ecHvcU8y5EvLe5gfLKkFofxgXxmObyZQ38or38W/mXWrg3Ndm5hcBfbi979S1ciRaviUv8lJr3eblcQmYUK5hoV6KpKa5hsjaTqtZ4Byuoabfb3SjejpjINrjZLm6fsQKzC7wNRiUQLuBmZ22B3VoisSaWVb2mYWBhWG4ggoBS2xY7xqH2CuC0ByY7QbLYnB5lc0AxPe/J74mKJ0FE8ktsHcoASEMJ2atp5YDI1eArPddr6qCgc+jkHyg8eAgAHmONExMHO5UgoojWQYihg0WmGKLQUKLYzEH0GsekSINaZxasLTlw8wJa1Ye0rJfmUH1StrCwzxUsQKJXmRsUcEIscd+8yJOvFRSYCf8jjU5CLU0rQ4jSCoqhG8lrIVdyAKPF4urmnTGmja7p2QwvQFgaeLKqqMnDRT5zKp3KGl1D/MaOSjkYePiOAMq+JUo5SPwxPlItL2BZUfYrsKpccmr+712g12Fn5lZyLB2nCuFzOK3Wa3Uf8AWt5nMXbsrq03atQUM5PCHmNdMlWL/kVmhuhVEuu37oDFe+5Kvr21VEcA6aI0G3eYjyOeLACgoxnyCRZhF7UqxjpHDyDVpug+5NGZ9zwZWv2kMVdM0beZZLval92VTMOIdBBAPmqLqMcq9oZ9+YOSg4wctRE9Ij8bV9onVKbQ9p4525eIuKoI6FnzTXyc/owDsET3gPLQ+2nQXFLgsppivaGOHNrvFdzELShnKKRMNxeVt63t757vsjOHoVGjw5EbloW35jJ2CbSI2IkomEtvK3eZigAPAHMeSeSU7y6CynRZNfnXj2CF1531BxQZVe0qCIDG5yavf7JVh93VKv5Xd/VN0BpX9zpPZhDVrbZfBvgyzqEpvrnKnyQVUjv+MoxPbFOz3Iox3lX2ZWsdbKSnPths8rB+kakD97cpQY6G7MUnywsoyqCPNkr4j9fVEtmVz5S4fkXn+AopH0iV2b9ojyLIftgoLK9AB9j/ACwm0l0snwEQLVSpSbWm0x+cbCjGynIKw1cquNVoNKFgGKhf8DOU4WNv5lulfg2JiSNgdO42oQ0D3XAPMBGYLmDcU04YiK/S8AGPXKCYwwBhJQhoL093FWQwrVLwF5vUXOMFTLVAWhaYgvQKtsrHYMN6zCC/vqhLdWiMImDnoxWKQxPOndRBjkX2hVG772TRy25+ybe0bvJaoGswixwiC2bamnCADKwmxXNiIphq5UKEUD3XANZjN2JRDVtw3T2SsYVVrJaBb2FTOrMxH1RBFxiGM0xa22Y0OZkA96NzGOBLug2d5kbiPRKOys9o21ICrsiwMsK4IXtaFgCpT3VO1waqsaJlIFiyQQoALReTIGUJouejQK1WWCM3DXcjAFrjEWu5RfOZo0F3NuABvlBJ2ImLcLzMGPdBobFX3iBCcANVKDcE+wTmfBuuze5QDJzSt5cDJ7xGBaCmIBVRShCx+vyAQGXN1yQHABw0JSwEWmeZbwhXXdecAbIzm+rHMFFXmyIyTSbFDwOfPiCtSmpDOCjRvLKlSVWxHBsaq5ci1a+UhHSomKOWDiUk++X/AJHBByWD3lVkMDPPtKVNsQrgDkt7blaK/wBWpZgslDiqbfo6NjDcQbvbtkoUNw947dZFhsShZ85jLEkhBsjgw34l90NqCzgo0byxnN9WOYKavOIjJNJsUPA58+IzNA2N5wKtHlj1Y6EyzsTmC1nBUlQFXOrhDFPCCEWsSd6qHF1FzAzt2wnnGszE3IeiFdlZ7xLvTHVYYVyL7xLgNiBEKmHlTlqEL2XXCioC1PB7J5GJmYDkE6zC32lBRXcBnXMsyTKWC6pb0PnUQWYZ1g3LDN7DHEzicyNKUZa+ccy+XqoAi+y2q7HwOYCGpciz2D+ux6lKWoFR+IiCiHaAM/b0fy+eXgcrzLpJ2YRUJqt826MiFABaLyZAyhNFz0aBWqywRm47nba8IB8O9wqtuo7td3m2r5j/ANRnINlPeuCokybUHCyMt3cKuqCB7qrQts/kRCNlKeKRgvxCXvsJuuW12vTqCbSXSyfARAtVKlJtabTH5y80xJkKAVne4mOoC1qLscDepZnSCCUkyIaJzUp/PVPWNVlr3iR5aooiA50SuBlU4UtnEcEtAeZhwsHFNFf3CesnBlQqjIL5Kdx46Rd2d+C32ZxVlzfc801ZFOwC75q40BMaQI3dFRQtGYsSOen+DUN2fOBDs+A0HF3HiD+gtKNub75uU0mHSBCtXyEQ+hu+LApYaLgi0ukFVZZeEVl4WiWKKH3Iyyc9PIzIVBbuvscUJX3iBITar9ASA8ckCQ9YTL+4V3atZRfwP7Uk52dls4OotOT2BBsclVXS7i9RpMCNB495gDpeLBna4HBFKEZdmPIJ1mFvtKCiu4DOuYbNpMkWZnj7xHNQDe2koXm1w21jBAksXiM63lSzHZV5hpMoLB3QSWs5bNQvfRRNhB70xNuZfGr14KWLlTolAMnNK3lwMnvEYFoKYgFVFKEQ2R96134XqHPJlAaDkRl4ACgQwWOOEMojAd9rN3TSTDVZDtx7DKDbHlevtEXxL1DE5cJUoou0PymNHLQLLKVwVzFqrV06/JK6M5umpQ4sUGqZlrVrWtA9HuDmoeRSuWrhKUhSFAA7nZxySwM00AC5KLat06vECUJEiwKOXt8EfVBdjGltbqsQ1YiFcdA3Y0i1O5avsAcZELW3CcNgyJgxW7uzPEAVV8IsTKZA4mF8YLqEu9nRQCGebyaxCXDK0lTQOc8w3EiAe6oNve5Nv8LRd1nV/wCJ/9oACAECAwE/EP8AL6Ih12BxEN/rkaIq1t/e4TbvxEe8A1UISRKxHQ2RS8a/VgsO63/EwWoAFGojxmZ707QAKIwNtdpcUucfxzDViz93Kchj9WyogCpaijtMxUpA+yL0RrcWsPtAXFJ3jt4e6Gbz1KiV9FxGK/H6CoBnlBkQdAaFS5YmUMi0ZYd4rxPEH1lcGW6hLqLW6hmmO6fXryw2CGEuVi45qEzN2c+0dFCGqW8RVa2+iSy0ShQwpgCmb31bWBxBUEMYlRq4ZCxv3hhee2KKhmL1g9AF19NwWmDUz2L1KiCugw68AJX0CdRi4ugl8PpVDL3x6Zth6hjCReIHdMNece0AcB3Quydo3Q6ecRSdztcKqOGd7KYIZelt9vTGYEIIIzmBEYFAMN8xFNodW3DB9tsLc/CdiEtMxV3BpuXyyfpvlx9FATC9/RMKqCMVyYvJ7kz+cvjOvjoVAYB/wQT/AMErV/gipv8AEAVcUbtC7bpQ214J+wQopk+CWbWfYlmqvt0RURnaHTOAs0WYZL6OdMIaPQVgwGtjKBNQc33lH7T412gFwO5vplHPX34+jR7dDoOtLbcC4R89L1QX7hjz0KqdUqg+gFwl1fMt0wM793vGChml4feX0xXTNcz3A6aTT10e3RLknmJe5NdDj7xi4j0WHQ5+3R3RKkbiLb9dlDPPceSI6Wp7vaUNxeuU5eiDuAa6Y7nro9ujX95aW7dKG4Is6MrNQInQYnliuNdIBFb6GM5zux/18QF7egNPL43HqTlqeUjCnMtlwXJyTzkyC30pMmp5yecnnJ5ybOml1G+IJpJfhEtpAdzGIgIrfoXCq1X7yhGbTO4pc/ShIBKQcPHSutSpUqV1YuK8ftfaIcAIiCUEVaNelfJTLv8A+e8N14mC6vnHb6qHpKFJTqOsZUZfpMqB3uLF6Ctv0hYtFPswTpNvKwMEvhM3/wBlORRavxz9BuD0F0ENC4QwJbGg8x+vqXNGQVblixYxweo/EmlLr4hbkInP75ldqcTeOz7RkD3XiveGEtc9eDoUOoSLIACuiXaHvmWo4JQWdmuH+ZXjgB4e/mfK/eLlVQwsuVEW31QBXAQe17ipfgJYCic0zftKHVawTXvHxaWWQz/g695qVUGs4+faF2mizUNEsbSPBZdGWWqqXUNACHgrh4/jvGqrAnJ2oPMe0Kwo/K8EQBLlaD94fTgV2/qBSLIFv3Xut7h2DTWKvv0KsMWy5WS9641ECLf/AKe9YjbRKWm+Oub5jiCjWVWcn75id7GOYE3Y0A3bliXeae8RjYcsvBGtkxSICFPDs8QzAd9HsarcCRTl3ld+3c7Qau3MeoIwJju/P4jXBR4gjUJkVORGq9EIj/pFCPgB0yqE1/X2mwiETDRF7v7x0WO+lBvh+gLYDiDuxBMEVd/qhToCwhpKjRbtFd4gGjoLf14iWlpaL/y4W0RZQpNx2HCK5yrqUfXGP7jWns5gOR3GAOHY8TYrXr/cyJA/uoMwVlYIPHExlQXjmAIPH8RKoWcxVAfZOG/BeYSqgcsAcOx4mVLo4vMByO4wJw7HibwUOLzM7CeIMoWnGIgCU3UoIrCp94CdIsgkiKbDZACS2r5izSF7F0DLeIssTuSnveO3vDCiU3XEJ2Ae8rNQ5DGUbapfMNxMMdoVUL2RIqVglqvGYxWAPPMEWDbLxK53iHuTDjMW+NMN1/yIxeXHKEQAKvvAUnj+IaAK+9SoRq97iSkf3+0dAgrnmCLBtl4lyvGYxWAPPMFWjbLxANfDAqvP/EKK4wjpQvFZlBFaXPvDPAVDYhsQ7wKGYp/0l7qQstXZeptK2VLVSjjjUsQNlFcwKrz/ANfrlqRbb9HLUPvArRaKgBJbV8xZpChYId9eZfnoX/3tC5TXv7+04IsP96lDfscxIaUmzmNOx+2veBbRFlCk3BQ9ysy40KeIObTLCYocQiGoVS/aOGg7xg0FysFnCKAFxUFsOt+6UI/pJgNDsxiqPKFHFSAyGqYpjA192EpMDHzqGDbGcQHXlEfqNbWLEoWSAA0af76XV4Ilz78Ctng/6S91ICmQ7kUHYub1eggWx48ywjvEUwSJit/LCqbLVw5DGUbapfMG2ZP8RX7zGSpVVeJXk5kooo8wJRV73HBQ94waCpeijlFRJcV0C5eYoDae02oaU7xDMJfaJTsNMuuNoIw22t+0UEdN/EMG0M5giQDdwvUdzTLVW24gtRg/+O//2gAIAQMDAT8Q/wAultiDqB3II6/XIN9E0cQJEzuKlpQ5iGmDL1nf6tZhh4LYjmFIw1PvKyq6CaM7y0tw7/VoMw78wRQtisXClrEro2eiDWGKoZnaVx46v0qiWH6GzUtxGMqKu5UbJ1CNG2NQty5T608TwT2RKQag36/D0DF6334RicItaid1wBr0ViMqUQD6rol5tiOYxhAV1ENmY6ilVcB9BfqSBVksPUeZZGPQOg11n6VqCPd0Z+49IWRZ9NYuIxjCBWu8TrEOCawZih80Fs6X07RvhcUmk3KlO/SPTPE26MYQ7GJZWZziANs0MSEnhEyDMqVKmYv6bzX0LBb6IQKLMwrFRgjPHPH+YnNTxxduodqIOiDQTx/liMJqIFESh0uIl5aXgMW7Po4JUehnOZZocxRXmNx04OtT9G3QUlJTrc9O5KyvpwdaCG230CCG8VMyGeqo6XMFPS467dKZTA30ddDfXXpv0WoCvHoBa4Pm+mxroKRV6VPXbpp9KU9LunH0GbgEByYHoKIOpnAWfQqJeLfXPiXjaz0S5eXlpbqDFS0plod0SYJbl9FVRL9vqD0bmX1BimJ04ENBtgsDME5PSNrvMuC/qOJVEmTJAPnpXptjgm52Jc2w9I3ca5gkEl6vodROgkSC5DE7WamUFx9aCYqjTBG2Bco9RA5iLaCMXAOIlNPURRIkSJKmJeiI10HLhlVR0Fob616/4hLloiKxqVLmXqihXolXUfBlF3RuqtcyoFDxGyc9oCjoifeUrO5jeyJsV0OUsa6gV+gX4IEcqsvPSgFzKaZJvbuO1tL4VXKGoQla8whZdc+Y22oYaV0rpgZnDgDRt6YV+kd30GIcwJbClvEeoCV9DguJtMfeHd+sZYYLGCyyPbFLMICv19Suikr/AC61mGDcKGg7wDuVLCggu/eAq2wZPaARpqoVFCxgvBDVUj5gZC8cxKFjLioQ2sTPA13hKtsGT2mpprvAVbYIntNSjTDopHzDNzXmEtUlyyYNarlLdiDIUlwhqlqEODKVdMojQ2S28AtIlw0o3LjcTmdxVLirW4nCQqFKjcShUDiWJKlFWS2HiAIOszGDiWB4d5VaLAguYNbH/kKw0dpkRcRuFicSpRVkShUDiWJElFXHrqJR8f7imc3EAF8yyINSrjPe1jwCVFsbdpUAO4BKuuajaHJzDEskTQBMxrPj/X64jTAr0aVXUFSlG4Q1S1CHBi4odynfdajtmOPp/wCQLVo5gLMNMNE1+8xazDBuFGBCysLLZNbtiUbcYoQjILBtlbEsOyPTFcHFNnNxcRvtalyLQibbe8JpaGG3MRY8wQNpcQI7jTiI5tYgtlPaFkykuo7PHQWDcOogtL27SoAdwuQaYC34htcYMoo41AApYcxsvWEjcTmdxVE+SavaKQYCC7QthtCkBBtlZGC7MemaoPKUc30Ro+JaKhmsXnUKVKEOmzmaScwivjEJlq1RozEdwWEwB7RnbCINoonP/wAd/9k= + + + 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/Fakturierung/rptRechnungDruck_MDM.vb b/SDL/Fakturierung/rptRechnungDruck_MDM.vb new file mode 100644 index 00000000..a58058e1 --- /dev/null +++ b/SDL/Fakturierung/rptRechnungDruck_MDM.vb @@ -0,0 +1,24 @@ +Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports.Document + +Public Class rptRechnungDruck_MDM + Public _LAN = "" + Sub New() + InitializeComponent() + End Sub + Sub New(_LAN) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me._LAN = _LAN + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + End Sub + Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart + If _LAN.replace("DE", "") <> "" Then + SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptRechnungDruck_MDM") + SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptRechnungDruck_MDM") + SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptRechnungDruck_MDM") + SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptRechnungDruck_MDM") + End If + End Sub + +End Class diff --git a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb new file mode 100644 index 00000000..69b9f9f4 --- /dev/null +++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb @@ -0,0 +1,318 @@ + +Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung + 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.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(rptRechnungMDM_AnlagenDruck_Zinsennachberechnung)) + Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() + Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.txtREnr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() + Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.txtReDat = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtZE = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtReBetrag = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtTage = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtZinsen = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtVZ = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblReNr = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label() + CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtReDat, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtZE, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtReBetrag, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtTage, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'PageHeader + ' + Me.PageHeader.Height = 0! + Me.PageHeader.Name = "PageHeader" + ' + 'Detail + ' + Me.Detail.CanGrow = False + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtREnr, Me.txtReDat, Me.txtZE, Me.txtReBetrag, Me.txtTage, Me.txtZinsen, Me.txtVZ}) + Me.Detail.Height = 0.1755249! + Me.Detail.KeepTogether = True + Me.Detail.Name = "Detail" + ' + 'txtREnr + ' + Me.txtREnr.Height = 0.1338583! + Me.txtREnr.Left = 0.005119062! + Me.txtREnr.Name = "txtREnr" + Me.txtREnr.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.txtREnr.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtREnr.Text = "-" + Me.txtREnr.Top = 0! + Me.txtREnr.Width = 1.562204! + ' + 'PageFooter + ' + Me.PageFooter.Height = 0! + Me.PageFooter.Name = "PageFooter" + ' + 'GroupHeader4 + ' + Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblReNr, Me.Label1, Me.Label2, Me.Label3, Me.Label4, Me.Label5, Me.Label6}) + Me.GroupHeader4.Height = 0.1433071! + Me.GroupHeader4.KeepTogether = True + Me.GroupHeader4.Name = "GroupHeader4" + ' + 'GroupFooter4 + ' + Me.GroupFooter4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line18}) + Me.GroupFooter4.Height = 0.1875001! + Me.GroupFooter4.Name = "GroupFooter4" + ' + 'Line18 + ' + Me.Line18.Height = 0.00004923344! + Me.Line18.Left = 0.03444719! + Me.Line18.LineColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer)) + Me.Line18.LineWeight = 1.0! + Me.Line18.Name = "Line18" + Me.Line18.Top = 0.0937008! + Me.Line18.Width = 7.323034! + Me.Line18.X1 = 0.03444719! + Me.Line18.X2 = 7.357481! + Me.Line18.Y1 = 0.09375003! + Me.Line18.Y2 = 0.0937008! + ' + 'txtReDat + ' + Me.txtReDat.Height = 0.1338583! + Me.txtReDat.Left = 1.567323! + Me.txtReDat.Name = "txtReDat" + Me.txtReDat.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.txtReDat.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtReDat.Text = "-" + Me.txtReDat.Top = 0! + Me.txtReDat.Width = 1.562204! + ' + 'txtZE + ' + Me.txtZE.Height = 0.1338583! + Me.txtZE.Left = 4.691732! + Me.txtZE.Name = "txtZE" + Me.txtZE.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.txtZE.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtZE.Text = "-" + Me.txtZE.Top = 0! + Me.txtZE.Width = 0.8539373! + ' + 'txtReBetrag + ' + Me.txtReBetrag.Height = 0.1338583! + Me.txtReBetrag.Left = 3.129528! + Me.txtReBetrag.Name = "txtReBetrag" + Me.txtReBetrag.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.txtReBetrag.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtReBetrag.Text = "-" + Me.txtReBetrag.Top = 0! + Me.txtReBetrag.Width = 1.562204! + ' + 'txtTage + ' + Me.txtTage.Height = 0.1338583! + Me.txtTage.Left = 5.54567! + Me.txtTage.Name = "txtTage" + Me.txtTage.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.txtTage.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtTage.Text = "-" + Me.txtTage.Top = 0! + Me.txtTage.Width = 0.6039373! + ' + 'txtZinsen + ' + Me.txtZinsen.Height = 0.1338583! + Me.txtZinsen.Left = 6.149607! + Me.txtZinsen.Name = "txtZinsen" + Me.txtZinsen.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.txtZinsen.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtZinsen.Text = "-" + Me.txtZinsen.Top = 0! + Me.txtZinsen.Width = 0.6039373! + ' + 'txtVZ + ' + Me.txtVZ.Height = 0.1338583! + Me.txtVZ.Left = 6.753544! + Me.txtVZ.Name = "txtVZ" + Me.txtVZ.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.txtVZ.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtVZ.Text = "-" + Me.txtVZ.Top = 0! + Me.txtVZ.Width = 0.6039373! + ' + 'lblReNr + ' + Me.lblReNr.Height = 0.1433071! + Me.lblReNr.HyperLink = Nothing + Me.lblReNr.Left = 0.005118132! + Me.lblReNr.Name = "lblReNr" + Me.lblReNr.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + "har-set: 0" + Me.lblReNr.Text = "RechnungsNr" + Me.lblReNr.Top = 0! + Me.lblReNr.Width = 1.562205! + ' + 'Label1 + ' + Me.Label1.Height = 0.1433071! + Me.Label1.HyperLink = Nothing + Me.Label1.Left = 1.567323! + Me.Label1.Name = "Label1" + Me.Label1.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + "har-set: 0" + Me.Label1.Text = "Rechnungsdatum" + Me.Label1.Top = 0! + Me.Label1.Width = 1.562205! + ' + 'Label2 + ' + Me.Label2.Height = 0.1433071! + Me.Label2.HyperLink = Nothing + Me.Label2.Left = 3.129528! + Me.Label2.Name = "Label2" + Me.Label2.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + "har-set: 0" + Me.Label2.Text = "Rechnungsbetrag" + Me.Label2.Top = 0! + Me.Label2.Width = 1.562205! + ' + 'Label3 + ' + Me.Label3.Height = 0.1433071! + Me.Label3.HyperLink = Nothing + Me.Label3.Left = 4.691732! + Me.Label3.Name = "Label3" + Me.Label3.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + "har-set: 0" + Me.Label3.Text = "Zahlungsdatum" + Me.Label3.Top = 0! + Me.Label3.Width = 0.8539371! + ' + 'Label4 + ' + Me.Label4.Height = 0.1433071! + Me.Label4.HyperLink = Nothing + Me.Label4.Left = 5.518111! + Me.Label4.Name = "Label4" + Me.Label4.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + "har-set: 0" + Me.Label4.Text = "Tage" + Me.Label4.Top = 0! + Me.Label4.Width = 0.6314961! + ' + 'Label5 + ' + Me.Label5.Height = 0.1433071! + Me.Label5.HyperLink = Nothing + Me.Label5.Left = 6.149607! + Me.Label5.Name = "Label5" + Me.Label5.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + "har-set: 0" + Me.Label5.Text = "Zinsen" + Me.Label5.Top = 0! + Me.Label5.Width = 0.6039373! + ' + 'Label6 + ' + Me.Label6.Height = 0.1433071! + Me.Label6.HyperLink = Nothing + Me.Label6.Left = 6.753544! + Me.Label6.Name = "Label6" + Me.Label6.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + "har-set: 0" + Me.Label6.Text = "Verzugszinsen" + Me.Label6.Top = 0! + Me.Label6.Width = 0.6039373! + ' + 'rptRechnungMDM_AnlagenDruck_Zinsennachberechnung + ' + Me.MasterReport = False + Me.PageSettings.Margins.Bottom = 0.3937008! + Me.PageSettings.Margins.Left = 0.3937008! + Me.PageSettings.Margins.Right = 0.3937008! + Me.PageSettings.Margins.Top = 0.3937008! + Me.PageSettings.PaperHeight = 11.0! + Me.PageSettings.PaperWidth = 8.5! + Me.PrintWidth = 7.452378! + Me.Sections.Add(Me.PageHeader) + Me.Sections.Add(Me.GroupHeader4) + Me.Sections.Add(Me.Detail) + Me.Sections.Add(Me.GroupFooter4) + Me.Sections.Add(Me.PageFooter) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & + "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & + "lic", "Heading2", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) + CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtReDat, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtZE, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtReBetrag, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtTage, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail + Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader + Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter + Public WithEvents txtREnr As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents Line18 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents txtReDat As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtZE As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtReBetrag As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtTage As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtZinsen As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtVZ As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents lblReNr As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label +End Class diff --git a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.resx b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.resx new file mode 100644 index 00000000..e8cbd0f3 --- /dev/null +++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 0, 0 + + + 0, 0 + + \ No newline at end of file diff --git a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb new file mode 100644 index 00000000..6c92a0f6 --- /dev/null +++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb @@ -0,0 +1,73 @@ +Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung + Dim _LAN = "" + Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me._LAN = _LAN + Me.RECHNUNG = RECHNUNG + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + End Sub + Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart + If _LAN.replace("DE", "") <> "" Then + SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptRechnungDruck_MDM") + SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptRechnungDruck_MDM") + End If + End Sub + + + Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format + If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing Then + txtREnr.Text = "" + txtReDat.Text = "" + txtReBetrag.Text = "" + + txtZE.Text = "" + txtTage.Text = "" + txtZinsen.Text = "" + txtVZ.Text = "" + + If Me.Fields.Item("clmnReNr") IsNot Nothing AndAlso Me.Fields.Item("clmnReNr").Value IsNot Nothing Then txtREnr.Text &= Me.Fields.Item("clmnReNr").Value.ToString + If Me.Fields.Item("clmnReDatum") IsNot Nothing AndAlso Me.Fields.Item("clmnReDatum").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnReDatum").Value) Then txtReDat.Text &= CDate(Me.Fields.Item("clmnReDatum").Value).ToShortDateString + If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= Me.Fields.Item("clmnReBetrag").Value.ToString() + + If Me.Fields.Item("clmnZE") IsNot Nothing AndAlso Me.Fields.Item("clmnZE").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnZE").Value) Then txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString + If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString + If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= Me.Fields.Item("clmnZinsen").Value.ToString() + If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString + + End If + End Sub + + Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart + If RECHNUNG Is Nothing Then Exit Sub + + Dim dt As New DataTable + dt.Columns.Add("clmnID") + dt.Columns.Add("clmnReNr") + dt.Columns.Add("clmnReDatum") + dt.Columns.Add("clmnAbfNr") + dt.Columns.Add("clmnReBetrag") + dt.Columns.Add("clmnZE") + dt.Columns.Add("clmnTage") + dt.Columns.Add("clmnZinsen") + dt.Columns.Add("clmnVZ") + + RECHNUNG.ORDER_POSITIONEN() + + For Each POS In RECHNUNG.POSITIONEN + + Dim dtTemp As DataTable + dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE from tblMDM_Zinsberechnung where RK_ID =" & POS.RK_ID & " and id = " & POS.NachzahlungsID, "FMZOLL") + + For Each rg As DataRow In dtTemp.Rows + dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ")) + Next + + Next + + Me.DataSource = dt + + End Sub +End Class diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 63a8b55d..883b2bf9 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -682,6 +682,18 @@ Form + + rptRechnungDruck_MDM.vb + + + Component + + + rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb + + + Component + rptSammelRechnungAnlagenDruck_ProvSum.vb @@ -3387,6 +3399,13 @@ frmSendEmail.vb + + rptRechnungDruck_MDM.vb + Designer + + + rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb + rptSammelRechnungAnlagenDruck_ProvSum.vb diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index ee9e5b2c..46bbd8aa 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -835,15 +835,16 @@ Public Class usrCntlBH ISNULL(op_debitor.c_zahlziel, '0/0/14') AS ZZ_in_OP, isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") AS Zinssatz_Kunde, ISNULL(fibu_konto.c_zahlziel, '0/0/14') AS ZZ_in_Debitor, - isnull(dbo.fibu_zahlziel.si_ntage,14) as ZZinTage , + case when isnull(dbo.fibu_zahlziel.si_ntage,14) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,14) end as ZZinTage, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung) as ReZielZahlungsdatum, DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) as ÃœberschreitungInTagen, - case when DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then + case when DATEDIFF(DAY, DATEADD(DAY, (select case when isnull(dbo.fibu_zahlziel.si_ntage,0) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,0) end + 0), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then - op_debitor.eur_bruttobetrag * isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") / 100 * DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360 + op_debitor.eur_bruttobetrag * isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") / 100 * DATEDIFF(DAY, DATEADD(DAY, (select case when isnull(dbo.fibu_zahlziel.si_ntage,0) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,0) end + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360 else 0 end as Zinsbetrag, + cast(0 as bit) as abgerechnet FROM op_debitor INNER JOIN fibu_konto ON (op_debitor.i_personenkonto = fibu_konto.i_konto) @@ -1050,7 +1051,7 @@ Public Class usrCntlBH RG.SteuerpflichtigerGesamtbetrag = 0 RG.SteuerfreierGesamtbetrag = 0 - RG.Status = 0 '<= Status während der Erfassung über die Maut/Diesel-Schnittstelle - Nach Abschluss der Datenübernahme Änderung auf 0 20231220 -> gleich auf 0 setzen! + RG.Status = 0 RG.[Vorkosten] = 0 RG.[Erlös] = 0 @@ -1069,12 +1070,22 @@ Public Class usrCntlBH Dim dt As New DataTable cMDMZinsberechnung.GET_NICHTABGERECHNETE_ZB(dt, KdNr) - + 'Dim zahlungsperiodeStart + 'Dim zahlungsperiodeEnde For Each r In dt.Rows + 'If r(0) AndAlso Not IsDBNull(r("zahlungsperiode_start")) AndAlso Not IsDBNull(r("zahlungsperiode_ende")) AndAlso IsDate(r("zahlungsperiode_start")) AndAlso IsDate(r("zahlungsperiode_ende")) Then + ' zahlungsperiodeStart = CDate(r("zahlungsperiode_start")) + ' zahlungsperiodeEnde = CDate(r("zahlungsperiode_ende")) + 'End If + + 'If CDate(zahlungsperiodeStart) < CDate(r("zahlungsperiode_start")) Then zahlungsperiodeStart = CDate(r("zahlungsperiode_start")) + 'If CDate(zahlungsperiodeEnde) > CDate(r("zahlungsperiode_ende")) Then zahlungsperiodeEnde = CDate(r("zahlungsperiode_ende")) + Dim NettoBetrag As Double = r("zinsbetrag") Dim BruttoBetrag As Double = r("zinsbetrag") + Dim id As Integer = r("id") Dim UstBetrag As Double = BruttoBetrag = NettoBetrag Dim LeistungsNr As Integer = 950 Dim LeistungsBezAdd As String = "" @@ -1086,7 +1097,7 @@ Public Class usrCntlBH End If - allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag, UstBetrag, LeistungsBezAdd) + allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag, UstBetrag, LeistungsBezAdd, id) Next @@ -1099,6 +1110,9 @@ Public Class usrCntlBH RG.Text = (cFakturierung.przRechnungstextTXT(RG, SPEDBUCH) & vbNewLine & cFakturierung.przRechnungstextZZ(RG)).Trim + 'SPEDBUCH.Vermerk = "NACHBERECHNUNG VON VERZUGSZINSEN" & vbNewLine & "Zahlungen von " & CDate(zahlungsperiodeStart).ToShortDateString & " bis " & CDate(zahlungsperiodeEnde).ToShortDateString + 'SPEDBUCH.SAVE() + If RG.SAVE Then RK_ID = RG.RK_ID Return True @@ -1115,7 +1129,7 @@ Public Class usrCntlBH - Function allPos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double, Optional UstBetrag As Double = 0, Optional leistungsBez As String = "") + Function allPos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double, Optional UstBetrag As Double = 0, Optional leistungsBez As String = "", Optional nachzahlungsID As Integer = -1) Try For Each o In OFFERTE.POSITIONEN @@ -1141,7 +1155,7 @@ Public Class usrCntlBH POS.SteuerfreierBetrag = BruttoBetrag POS.Preis = BruttoBetrag End If - + POS.NachzahlungsID = nachzahlungsID POS.BGebLeistungsNr = o.BGebLeistungsNr POS.BGebProzent = o.BGebProzent POS.BGebMinBetrag = o.BGebMinBetrag diff --git a/SDL/kunden/usrCntlOfferte.Designer.vb b/SDL/kunden/usrCntlOfferte.Designer.vb index af950f35..d7da90bb 100644 --- a/SDL/kunden/usrCntlOfferte.Designer.vb +++ b/SDL/kunden/usrCntlOfferte.Designer.vb @@ -23,8 +23,8 @@ Partial Class usrCntlOfferte Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.lblBesonderheiten = New System.Windows.Forms.Label() Me.rtbBesonderheiten = New System.Windows.Forms.RichTextBox() Me.lblOffert = New System.Windows.Forms.TextBox() @@ -67,6 +67,7 @@ Partial Class usrCntlOfferte Me.Button2 = New System.Windows.Forms.Button() Me.Panel1 = New System.Windows.Forms.Panel() Me.btnSaveBes = New System.Windows.Forms.Button() + Me.btnOffertPreisliste = New System.Windows.Forms.Button() CType(Me.dgvOfferteDetails, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvOfferte, System.ComponentModel.ISupportInitialize).BeginInit() Me.cntxtAddSdl.SuspendLayout() @@ -125,8 +126,8 @@ Partial Class usrCntlOfferte Me.dgvOfferteDetails.AllowUserToDeleteRows = False Me.dgvOfferteDetails.AllowUserToOrderColumns = True Me.dgvOfferteDetails.AllowUserToResizeRows = False - DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOfferteDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferteDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 Me.dgvOfferteDetails.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -145,8 +146,8 @@ Partial Class usrCntlOfferte Me.dgvOfferte.AllowUserToAddRows = False Me.dgvOfferte.AllowUserToDeleteRows = False Me.dgvOfferte.AllowUserToResizeRows = False - DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOfferte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 Me.dgvOfferte.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.dgvOfferte.BackgroundColor = System.Drawing.Color.White @@ -391,6 +392,7 @@ Partial Class usrCntlOfferte ' Me.pnlEdit.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.pnlEdit.Controls.Add(Me.btnOffertPreisliste) Me.pnlEdit.Controls.Add(Me.Button1) Me.pnlEdit.Controls.Add(Me.cbxAutoFakturierung) Me.pnlEdit.Controls.Add(Me.Label3) @@ -413,7 +415,7 @@ Partial Class usrCntlOfferte Me.Button1.ForeColor = System.Drawing.Color.Black Me.Button1.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(607, 0) + Me.Button1.Location = New System.Drawing.Point(617, 0) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(51, 36) Me.Button1.TabIndex = 33 @@ -661,6 +663,21 @@ Partial Class usrCntlOfferte Me.btnSaveBes.Tag = "" Me.btnSaveBes.UseVisualStyleBackColor = True ' + 'btnOffertPreisliste + ' + Me.btnOffertPreisliste.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnOffertPreisliste.BackgroundImage = Global.SDL.My.Resources.Resources.pdf + Me.btnOffertPreisliste.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnOffertPreisliste.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnOffertPreisliste.ForeColor = System.Drawing.Color.Black + Me.btnOffertPreisliste.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnOffertPreisliste.Location = New System.Drawing.Point(569, 0) + Me.btnOffertPreisliste.Name = "btnOffertPreisliste" + Me.btnOffertPreisliste.Size = New System.Drawing.Size(51, 36) + Me.btnOffertPreisliste.TabIndex = 34 + Me.btnOffertPreisliste.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnOffertPreisliste.UseVisualStyleBackColor = True + ' 'usrCntlOfferte ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -748,4 +765,5 @@ Partial Class usrCntlOfferte Friend WithEvents Button2 As Button Friend WithEvents Panel1 As Panel Friend WithEvents btnSaveBes As Button + Friend WithEvents btnOffertPreisliste As Button End Class diff --git a/SDL/kunden/usrCntlOfferte.vb b/SDL/kunden/usrCntlOfferte.vb index 3feb0dfc..f27a47c3 100644 --- a/SDL/kunden/usrCntlOfferte.vb +++ b/SDL/kunden/usrCntlOfferte.vb @@ -1039,5 +1039,13 @@ Public Class usrCntlOfferte + End Sub + + Private Sub btnOffertPreisliste_Click(sender As Object, e As EventArgs) Handles btnOffertPreisliste.Click + + 'dgvOfferteDetails + + + End Sub End Class diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 27738139..3a9dc2a4 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -1125,7 +1125,7 @@ Public Class frmMDMDatenverarbetiung Function genRGAtt_PLOSE(ploseParam As cPLOSE) As Boolean - Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_Fakturiert = 0 AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " ) AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' AND AdressenNr = 401280 group by [AdressenNr],PLOSEKundenNr ", "FMZOLL") + Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_Fakturiert = 0 AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " ) AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ", "FMZOLL") 'MsgBox("Keine Daten!""SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where AND plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ") If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then MsgBox("Keine Daten!") @@ -1202,7 +1202,7 @@ Public Class frmMDMDatenverarbetiung INNER JOIN (((Adressen INNER JOIN tblUTAImportNew ON Adressen.UTAKundenNr = tblUTAImportNew.Kundennummer) INNER JOIN Offertenpositionen ON Adressen.AdressenNr = Offertenpositionen.KundenNr) INNER JOIN tblUTALeistungen ON (tblUTALeistungen.VERAG_LeistungsNr = Offertenpositionen.LeistungsNr) AND (tblUTALeistungen.VERAG_OffertenNr = Offertenpositionen.OffertenNr) AND (tblUTAImportNew.Lieferland = tblUTALeistungen.Lieferland) AND (tblUTAImportNew.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart)) ON tblUTAFakturierwarenarten.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart - where isnull(charged,0) = 0 and cast([Rechnungsdatum] as date) = '" & DateTimePicker2.Text & "' and Adressen.AdressenNr not in(756150, 711104) and KundenNr = 401280 " & IIf(test, " and KundenNr = 402352 or KundenNr = 402421 ", "") & + where isnull(charged,0) = 0 and cast([Rechnungsdatum] as date) = '" & DateTimePicker2.Text & "' and Adressen.AdressenNr not in(756150, 711104) " & IIf(test, " and KundenNr = 402352 or KundenNr = 402421 ", "") & " group by Kundennummer, KundenNr, UTAExportCSV,Rechnungsdruck" Dim dt_Main As DataTable = SQL.loadDgvBySql_Param(SQLStr, "FMZOLL", 1200) @@ -1501,8 +1501,8 @@ Public Class frmMDMDatenverarbetiung Dim top = "" Dim sqlWhere = "" Select Case art - Case "IDS" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode<>740543" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 401280 ", "") - Case "IDS_AT" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode=740543" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 401280 ", "") + Case "IDS" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode<>740543" & IIf(Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 204055 ", "") + Case "IDS_AT" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode=740543" & IIf(Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 204055 ", "") Case Else MsgBox("falscher Typ!") : Return False diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMDMZinsberechnung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMDMZinsberechnung.vb index 3569b0f0..fdd21747 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMDMZinsberechnung.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMDMZinsberechnung.vb @@ -178,7 +178,7 @@ Public Class cMDMZinsberechnung Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT belegNr,belegDatum,buchungstext,zahlungsBetrag,zahlungDatum, ueberschreitungInTagen, zinssatz,zinsbetrag + Using cmd As New SqlCommand("SELECT id,belegNr,belegDatum,buchungstext,zahlungsBetrag,zahlungDatum, ueberschreitungInTagen, zinssatz,zinsbetrag, zahlungsperiode_start,zahlungsperiode_ende FROM tblMDM_Zinsberechnung diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb index cc3a2a59..77eb86ee 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb @@ -903,6 +903,7 @@ Public Class cRechnungsausgangPositionen Property BGebBgl As Object = Nothing Property BGebMinBetrag As Object = Nothing Property RePosZeitstempel As Object = Nothing + Property NachzahlungsID As Object = Nothing 'FROM [VERAG].[dbo].[RechnungsausgangPositionen] @@ -945,6 +946,7 @@ Public Class cRechnungsausgangPositionen list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebBgl", BGebBgl)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebMinBetrag", BGebMinBetrag)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RePosZeitstempel", RePosZeitstempel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NachzahlungsID", NachzahlungsID)) 'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("upsize_ts", XXXXXXXXXXXXX)) Return list