58c077ef-da67-445a-8cc2-60008c49a79b ALLPLAN 11in true 8.5in 0.25cm true 0.4cm 2cm true 1.75cm 0cm 9.1cm 0.8cm true =Code.PrivacyText(Parameters!Country.Value, "title", "PRO interactive Report Datenschutz") Embedded ProEngineersLogo FitProportional 0cm 14.445973cm 3.590083cm 1.2cm 2.55cm 6cm 3.5cm 0.38cm true =Code.PrivacyText(Parameters!Country.Value, "date", "Datum") & ":" 2.55cm 9.5cm 8.5cm 0.38cm true =Code.PrivacyText(Parameters!Country.Value, "lastUpdated", "07.10.2026") Database =Code.CountrySymbol(Parameters!Country.Value) image/png FitProportional 9.25cm 1.85cm 0.7cm 0.45cm 3.75cm true 0.5cm d6258c62-e87b-48cd-b6b2-53f2abeb6398 21cm Hersteller System.String Artikelnummer System.String Bezeichnung System.String Kurztext System.String Langtext System.String Material System.String Etappe System.String Reference System.String ProduktdatenLink System.String Abrechnungseinheit System.String Stueckzahl215 System.Double Laenge220 System.Double Flaeche229 System.Double Volumen223 System.Double BauteilID System.String IFCID System.String KoordinateX System.String KoordinateY System.String KoordinateZ System.String Objektname System.String Abrechnungsart System.String Produkthersteller System.String Plugin_Objektname System.String PrivacyAttr_826System.StringPrivacyAttr_405System.StringPrivacyAttr_20System.StringPrivacyAttr_410System.StringPrivacyAttr_411System.StringPrivacyAttr_70System.StringPrivacyAttr_302System.StringPrivacyAttr_69System.StringPrivacyAttr_936System.StringPrivacyAttr_922System.StringPrivacyAttr_1989System.StringPrivacyAttr_837System.StringPrivacyAttr_838System.StringPrivacyAttr_923System.StringPrivacyAttr_1995System.StringPrivacyAttr_1994System.StringPrivacyAttr_1992System.StringPrivacyAttr_1993System.String DummyDataSource SELECT @1136@[Name=Hersteller], @241@[Name=Artikelnummer], @507@[Name=Bezeichnung], @215@[Name=Stueckzahl215], @220@[Name=Laenge220], @229@[Name=Flaeche229], @223@[Name=Volumen223], @202@[Name=Abrechnungseinheit], @207@[Name=Kurztext], @208@[Name=Langtext], @508@[Name=Material], @1312@[Name=Etappe], @18222@[Name=Reference], @1865@[Name=ProduktdatenLink], @10@[Name=BauteilID], @683@[Name=IFCID], @163@[Name=KoordinateX], @164@[Name=KoordinateY], @165@[Name=KoordinateZ], @498@[Name=Objektname], @120@[Name=Abrechnungsart], @708@[Name=Produkthersteller], @539@[Name=Plugin_Objektname], @826@[Name=PrivacyAttr_826], @405@[Name=PrivacyAttr_405], @20@[Name=PrivacyAttr_20], @410@[Name=PrivacyAttr_410], @411@[Name=PrivacyAttr_411], @70@[Name=PrivacyAttr_70], @302@[Name=PrivacyAttr_302], @69@[Name=PrivacyAttr_69], @936@[Name=PrivacyAttr_936], @922@[Name=PrivacyAttr_922], @1989@[Name=PrivacyAttr_1989], @837@[Name=PrivacyAttr_837], @838@[Name=PrivacyAttr_838], @923@[Name=PrivacyAttr_923], @1995@[Name=PrivacyAttr_1995], @1994@[Name=PrivacyAttr_1994], @1992@[Name=PrivacyAttr_1992], @1993@[Name=PrivacyAttr_1993] FROM [MODEL_DATA] AllplanReport Room 18.036056cm true=Code.PrivacyText(Parameters!Country.Value, "intro", "Datenübertragung aus PRO interactive Report an stueckliste.pro-eng.ch · Stand") & " " & Code.PrivacyText(Parameters!Country.Value, "lastUpdated", "07.10.2026")0.12cm0cm14.8cm0.48cmtrue=Code.PrivacyText(Parameters!Country.Value, "termsLink", "Nutzungsbedingungen öffnen")0.72cm0cm14.8cm0.42cmhttps://www.pro-eng.ch/nutzungsbedingungen.phpEmbeddedTermsQRFitProportional.10cm15.8cm2.0cm2.0cmhttps://www.pro-eng.ch/nutzungsbedingungen.phptrue=Code.PrivacySection(Parameters!Country.Value, 1, "heading", "1. Verantwortliche Stelle und Geltung")2.3cm0cm18.0cm0.48cmtrue=Code.PrivacySection(Parameters!Country.Value, 1, "text", "Pro Engineers AG, Bärengasse 1, 8750 Glarus, Schweiz, office@pro-eng.ch, +41 76 230 11 50. Diese Erklärung betrifft die Allplan-Vorlage PRO interactive Report und den Dienst stueckliste.pro-eng.ch. Sie ergänzt die allgemeine Datenschutzerklärung unter www.pro-eng.ch/datenschutz.php. Das Schweizer DSG gilt; die EU-DSGVO gilt zusätzlich, soweit ihr räumlicher Anwendungsbereich eröffnet ist.")2.88cm0cm18.0cm1.72cmtrue=Code.PrivacySection(Parameters!Country.Value, 2, "heading", "2. Herkunft und Kategorien der Daten")4.88cm0cm18.0cm0.48cmtrue=Code.PrivacySection(Parameters!Country.Value, 2, "text", "Die Daten stammen aus dem ausgewählten Allplan-Projekt, den Bauteilen und den Reportparametern. Erfasst werden Projekt- und Listenangaben, Namen, Geschäfts- und Lieferadressen, Telefonnummern, E-Mail-Adressen, Firmenlogo, Hersteller- und Artikeldaten, Freitexte, Mengen, Material, IFC-IDs und Koordinaten. Freitextfelder können von Nutzenden weitere personenbezogene oder vertrauliche Angaben enthalten; solche Angaben sollen nur eingetragen werden, wenn sie für den Report erforderlich sind.")5.46cm0cm18.0cm2.08cmtrue=Code.PrivacySection(Parameters!Country.Value, 3, "heading", "3. Übermittlung und Zweck")7.82cm0cm18.0cm0.48cmtrue=Code.PrivacySection(Parameters!Country.Value, 3, "text", "Die Vorlage sendet die ausgewählten Attributwerte zur serverseitigen Listenprüfung. Bei erfolgreicher Registrierung übermittelt sie den vollständigen Report als JSON und speichert ihn für die digitale Anzeige, Bearbeitung und Weitergabe. Weitere HTTPS-Abfragen holen Sprachtexte, Einstellungen, Versionsstand und Herstellerinformationen. Technische Verbindungsdaten entstehen beim Abruf. Scheitert die Registrierung, enthält der Offline-QR-Link Reportdaten im URL-Fragment; dieses Fragment wird beim bloßen HTTP-Aufruf nicht an den Webserver gesendet.")8.4cm0cm18.0cm2.08cmtrue=Code.PrivacySection(Parameters!Country.Value, 4, "heading", "4. Rechtsgrundlagen und berechtigte Interessen")10.760000000000002cm0cm18.0cm0.48cmtrue=Code.PrivacySection(Parameters!Country.Value, 4, "text", "Soweit die EU-DSGVO anwendbar ist, erfolgt die für die Bereitstellung des beauftragten Reportdienstes erforderliche Bearbeitung auf Grundlage von Art. 6 Abs. 1 lit. b DSGVO, sofern die betroffene Person Vertragspartei ist. Für den sicheren Betrieb, Fehleranalyse, Missbrauchsabwehr und die Bereitstellung für Geschäftskunden gilt Art. 6 Abs. 1 lit. f DSGVO; berechtigtes Interesse ist ein funktionsfähiger und sicherer Reportdienst. Gesetzliche Aufbewahrungspflichten können Art. 6 Abs. 1 lit. c DSGVO begründen. Eine Einwilligung ist für die hier beschriebene Kernfunktion keine vorausgesetzte Rechtsgrundlage. Nach Schweizer DSG gelten insbesondere Zweckbindung, Verhältnismäßigkeit und Transparenz.")11.340000000000002cm0cm18.0cm2.8cmtrue=Code.PrivacySection(Parameters!Country.Value, 5, "heading", "5. Empfänger und Weitergabe")14.420000000000002cm0cm18.0cm0.48cmtrue=Code.PrivacySection(Parameters!Country.Value, 5, "text", "Zugriff haben berechtigte Mitarbeitende und technische Dienstleister, soweit dies für Betrieb und Support nötig ist. Die allgemeine Website-Datenschutzerklärung nennt easyname als Hostinganbieter. Empfänger eines vom Nutzer weitergegebenen vollständigen Online-Links können den gespeicherten Report mit UUID und Zugriffstoken ohne zusätzliche Anmeldung lesen. Der Nutzer entscheidet, an wen er diesen Link weitergibt. Für konkrete Auftragsbearbeiter und den Standort des Reportdienstes sind die jeweils aktuellen Vertrags- und Hostingunterlagen maßgebend.")15.000000000000002cm0cm18.0cm2.08cmtrue=Code.PrivacySection(Parameters!Country.Value, 6, "heading", "6. Auslandsbekanntgabe")17.360000000000003cm0cm18.0cm0.48cmtrue=Code.PrivacySection(Parameters!Country.Value, 6, "text", "Ob beim konkreten Hosting, bei Backups oder bei Supportzugriffen eine Übermittlung außerhalb der Schweiz bzw. des EU/EWR stattfindet, muss anhand der aktuellen Dienstleisterverträge festgestellt werden. Falls eine solche Übermittlung erfolgt, sind das Empfängerland und die anwendbare Angemessenheitsentscheidung oder geeigneten Garantien nach Art. 16/17 DSG und Art. 44 ff. DSGVO mitzuteilen. Die allgemeine Datenschutzerklärung enthält Angaben zu möglichen Auslandübermittlungen.")17.94cm0cm18.0cm2.08cmtrue=Code.PrivacySection(Parameters!Country.Value, 7, "heading", "7. Speicherung und Löschung")21.25cm0cm18.0cm0.48cmtrue=Code.PrivacySection(Parameters!Country.Value, 7, "text", "Ein erfolgreich registrierter Report wird serverseitig als Archiv gespeichert. Im geprüften Reportdienst-Code ist keine feste automatische Löschfrist für diese Archive erkennbar. Löschfunktionen für Reports und zugehörige Verknüpfungen sind vorhanden; ohne Löschung kann der Report weiter abrufbar bleiben. Für Serverprotokolle, Sicherungskopien und etwaige gesetzliche Nachweise gelten die jeweils dokumentierten Aufbewahrungsfristen. Auskunft über die konkrete Speicherdauer oder eine Löschung kann über office@pro-eng.ch verlangt werden.")21.83cm0cm18.0cm2.08cmtrue=Code.PrivacySection(Parameters!Country.Value, 8, "heading", "8. Sicherheit und Zugriff")24.189999999999998cm0cm18.0cm0.48cmtrue=Code.PrivacySection(Parameters!Country.Value, 8, "text", "Die Übertragung der Vorlage erfolgt über HTTPS. Der Online-Link enthält ein zufälliges Zugriffstoken; behandeln Sie ihn wie vertrauliche Zugangsdaten. Der Server prüft das Datenformat und begrenzt Anfragen. Ein absoluter Schutz bei Internetübertragung kann nicht zugesichert werden. Nutzer sollen vor dem Erstellen des Reports prüfen, ob die ausgewählten Daten und der Empfängerkreis erforderlich sind.")24.769999999999996cm0cm18.0cm1.72cmtrue=Code.PrivacySection(Parameters!Country.Value, 9, "heading", "9. Rechte betroffener Personen")26.769999999999996cm0cm18.0cm0.48cmtrue=Code.PrivacySection(Parameters!Country.Value, 9, "text", "Betroffene Personen können nach Maßgabe des anwendbaren Rechts Auskunft, Berichtigung und Löschung verlangen. Soweit die EU-DSGVO gilt, kommen insbesondere Einschränkung, Widerspruch und Datenübertragbarkeit hinzu; eine auf Einwilligung beruhende Bearbeitung kann für die Zukunft widerrufen werden. Anfragen bitte an office@pro-eng.ch. Beschwerden können beim Eidgenössischen Datenschutz- und Öffentlichkeitsbeauftragten (EDÖB) beziehungsweise bei einer zuständigen EU-/EWR-Aufsichtsbehörde eingereicht werden.")27.349999999999994cm0cm18.0cm2.08cmtrue=Code.PrivacySection(Parameters!Country.Value, 10, "heading", "10. Bereitstellung und automatisierte Entscheidungen")29.709999999999994cm0cm18.0cm0.48cmtrue=Code.PrivacySection(Parameters!Country.Value, 10, "text", "Die für den Report erforderlichen Projektdaten müssen bereitgestellt werden, damit die digitale Registrierung und Anzeige funktionieren. Ohne diese Daten ist die Online-Funktion nicht oder nur eingeschränkt nutzbar. Die beschriebenen Vorgänge enthalten keine ausschließlich automatisierte Einzelentscheidung mit rechtlicher oder ähnlich erheblicher Wirkung und kein Profiling zu diesem Zweck.")30.289999999999992cm0cm18.0cm1.72cmtrue=Code.PrivacySection(Parameters!Country.Value, 11, "heading", "11. Dokumente und Rechtsquellen")32.28999999999999cm0cm18.0cm0.48cmtrue=Code.PrivacySection(Parameters!Country.Value, 11, "text", "Nutzungsbedingungen: Link und QR-Code oben und am Ende. Allgemeine Datenschutzerklärung: www.pro-eng.ch/datenschutz.php. Rechtsgrundlagen: Schweizer DSG Art. 19 und 25 sowie EU-DSGVO Art. 6, 13, 14 und 44 ff. Die nachfolgende Tabelle zeigt die in der Vorlage verwendeten Allplan-Attributnummern und die beim Öffnen dieses Reports verfügbaren Werte.")32.86999999999999cm0cm18.0cm1.36cmtrue=Code.PrivacyText(Parameters!Country.Value, "projectHeading", "Projekt- und Firmenattribute")44.50999999999999cm0cm18.0cm0.4cmtrue=Code.PrivacyText(Parameters!Country.Value, "attributeNumber", "Nr.")44.96999999999999cm0cm1.5cm0.42cmtrue=Code.PrivacyText(Parameters!Country.Value, "attributeName", "Attributbezeichnung")44.96999999999999cm1.5cm6.1cm0.42cmtrue=Code.PrivacyText(Parameters!Country.Value, "attributeValue", "Attributwerte exemplarisch")44.96999999999999cm7.6cm10.4cm0.42cmtrue82645.38999999999999cm0cm1.5cm0.42cmtrueBauvorhaben45.38999999999999cm1.5cm6.1cm0.42cmtrue=IIF(IsNothing(First(Fields!PrivacyAttr_826.Value, "AllplanReport")), "", CStr(First(Fields!PrivacyAttr_826.Value, "AllplanReport")))45.38999999999999cm7.6cm10.4cm0.42cmtrue40545.809999999999995cm0cm1.5cm0.42cmtrueProjektbezeichnung45.809999999999995cm1.5cm6.1cm0.42cmtrue=IIF(IsNothing(First(Fields!PrivacyAttr_405.Value, "AllplanReport")), "", CStr(First(Fields!PrivacyAttr_405.Value, "AllplanReport")))45.809999999999995cm7.6cm10.4cm0.42cmtrue93646.22999999999999cm0cm1.5cm0.42cmtrueProjektnummer46.22999999999999cm1.5cm6.1cm0.42cmtrue=IIF(IsNothing(First(Fields!PrivacyAttr_936.Value, "AllplanReport")), "", CStr(First(Fields!PrivacyAttr_936.Value, "AllplanReport")))46.22999999999999cm7.6cm10.4cm0.42cmtrue92246.64999999999999cm0cm1.5cm0.42cmtrueBauvorhaben Straße46.64999999999999cm1.5cm6.1cm0.42cmtrue=IIF(IsNothing(First(Fields!PrivacyAttr_922.Value, "AllplanReport")), "", CStr(First(Fields!PrivacyAttr_922.Value, "AllplanReport")))46.64999999999999cm7.6cm10.4cm0.42cmtrue92347.06999999999999cm0cm1.5cm0.42cmtrueBauvorhaben Ort47.06999999999999cm1.5cm6.1cm0.42cmtrue=IIF(IsNothing(First(Fields!PrivacyAttr_923.Value, "AllplanReport")), "", CStr(First(Fields!PrivacyAttr_923.Value, "AllplanReport")))47.06999999999999cm7.6cm10.4cm0.42cmtrue199447.489999999999995cm0cm1.5cm0.42cmtrueBauvorhaben Mobilnummer47.489999999999995cm1.5cm6.1cm0.42cmtrue=IIF(IsNothing(First(Fields!PrivacyAttr_1994.Value, "AllplanReport")), "", CStr(First(Fields!PrivacyAttr_1994.Value, "AllplanReport")))47.489999999999995cm7.6cm10.4cm0.42cmtrue199547.90999999999999cm0cm1.5cm0.42cmtrueBauvorhaben E-Mail47.90999999999999cm1.5cm6.1cm0.42cmtrue=IIF(IsNothing(First(Fields!PrivacyAttr_1995.Value, "AllplanReport")), "", CStr(First(Fields!PrivacyAttr_1995.Value, "AllplanReport")))47.90999999999999cm7.6cm10.4cm0.42cmtrue198948.32999999999999cm0cm1.5cm0.42cmtrueBauunternehmer48.32999999999999cm1.5cm6.1cm0.42cmtrue=IIF(IsNothing(First(Fields!PrivacyAttr_1989.Value, "AllplanReport")), "", CStr(First(Fields!PrivacyAttr_1989.Value, "AllplanReport")))48.32999999999999cm7.6cm10.4cm0.42cmtrue83748.74999999999999cm0cm1.5cm0.42cmtrueBauunternehmer Straße48.74999999999999cm1.5cm6.1cm0.42cmtrue=IIF(IsNothing(First(Fields!PrivacyAttr_837.Value, "AllplanReport")), "", CStr(First(Fields!PrivacyAttr_837.Value, "AllplanReport")))48.74999999999999cm7.6cm10.4cm0.42cmtrue83849.169999999999995cm0cm1.5cm0.42cmtrueBauunternehmer PLZ / Ort49.169999999999995cm1.5cm6.1cm0.42cmtrue=IIF(IsNothing(First(Fields!PrivacyAttr_838.Value, "AllplanReport")), "", CStr(First(Fields!PrivacyAttr_838.Value, "AllplanReport")))49.169999999999995cm7.6cm10.4cm0.42cmtrue199249.58999999999999cm0cm1.5cm0.42cmtrueBauunternehmer Mobilnummer49.58999999999999cm1.5cm6.1cm0.42cmtrue=IIF(IsNothing(First(Fields!PrivacyAttr_1992.Value, "AllplanReport")), "", CStr(First(Fields!PrivacyAttr_1992.Value, "AllplanReport")))49.58999999999999cm7.6cm10.4cm0.42cmtrue199350.00999999999999cm0cm1.5cm0.42cmtrueBauunternehmer E-Mail50.00999999999999cm1.5cm6.1cm0.42cmtrue=IIF(IsNothing(First(Fields!PrivacyAttr_1993.Value, "AllplanReport")), "", CStr(First(Fields!PrivacyAttr_1993.Value, "AllplanReport")))50.00999999999999cm7.6cm10.4cm0.42cmtrue2050.42999999999999cm0cm1.5cm0.42cmtrueBearbeiter50.42999999999999cm1.5cm6.1cm0.42cmtrue=IIF(IsNothing(First(Fields!PrivacyAttr_20.Value, "AllplanReport")), "", CStr(First(Fields!PrivacyAttr_20.Value, "AllplanReport")))50.42999999999999cm7.6cm10.4cm0.42cmtrue41050.849999999999994cm0cm1.5cm0.42cmtrueFirma50.849999999999994cm1.5cm6.1cm0.42cmtrue=IIF(IsNothing(First(Fields!PrivacyAttr_410.Value, "AllplanReport")), "", CStr(First(Fields!PrivacyAttr_410.Value, "AllplanReport")))50.849999999999994cm7.6cm10.4cm0.42cmtrue41151.26999999999999cm0cm1.5cm0.42cmtrueFirmenadresse51.26999999999999cm1.5cm6.1cm0.42cmtrue=IIF(IsNothing(First(Fields!PrivacyAttr_411.Value, "AllplanReport")), "", CStr(First(Fields!PrivacyAttr_411.Value, "AllplanReport")))51.26999999999999cm7.6cm10.4cm0.42cmtrue7051.68999999999999cm0cm1.5cm0.42cmtrueFirmenlogo51.68999999999999cm1.5cm6.1cm0.42cmtrue=IIF(Len(CStr(First(Fields!PrivacyAttr_70.Value, "AllplanReport"))) > 0, Code.PrivacyText(Parameters!Country.Value, "imagePresent", "Bild vorhanden"), "")51.68999999999999cm7.6cm10.4cm0.42cmtrue30252.10999999999999cm0cm1.5cm0.42cmtrueFirmentelefon52.10999999999999cm1.5cm6.1cm0.42cmtrue=IIF(IsNothing(First(Fields!PrivacyAttr_302.Value, "AllplanReport")), "", CStr(First(Fields!PrivacyAttr_302.Value, "AllplanReport")))52.10999999999999cm7.6cm10.4cm0.42cmtrue6952.529999999999994cm0cm1.5cm0.42cmtrueFirmen-E-Mail52.529999999999994cm1.5cm6.1cm0.42cmtrue=IIF(IsNothing(First(Fields!PrivacyAttr_69.Value, "AllplanReport")), "", CStr(First(Fields!PrivacyAttr_69.Value, "AllplanReport")))52.529999999999994cm7.6cm10.4cm0.42cmtrue28952.94999999999999cm0cm1.5cm0.42cmtrueLand52.94999999999999cm1.5cm6.1cm0.42cmtrue=IIF(IsNothing(Parameters!Country.Value), "", CStr(Parameters!Country.Value))52.94999999999999cm7.6cm10.4cm0.42cmtrue=Code.PrivacyText(Parameters!Country.Value, "objectHeading", "Bauteilattribute (einmalig)")55.52999999999999cm0cm18.0cm0.42cmtrue=Code.PrivacyText(Parameters!Country.Value, "objectNote", "Beispielwerte aus dem ersten ausgewählten Bauteil.")56.009999999999984cm0cm18.0cm0.36cmtrue=Code.PrivacyText(Parameters!Country.Value, "attributeNumber", "Nr.")56.44999999999999cm0cm1.5cm0.32cmtrue=Code.PrivacyText(Parameters!Country.Value, "attributeName", "Attributbezeichnung")56.44999999999999cm1.5cm6.1cm0.32cmtrue=Code.PrivacyText(Parameters!Country.Value, "attributeValue", "Attributwerte exemplarisch")56.44999999999999cm7.6cm10.4cm0.32cmtrue113656.76999999999999cm0cm1.5cm0.32cmtrueHersteller56.76999999999999cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!Hersteller.Value, "AllplanReport")), "", CStr(First(Fields!Hersteller.Value, "AllplanReport")))56.76999999999999cm7.6cm10.4cm0.32cmtrue24157.08999999999999cm0cm1.5cm0.32cmtrueArtikelnummer57.08999999999999cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!Artikelnummer.Value, "AllplanReport")), "", CStr(First(Fields!Artikelnummer.Value, "AllplanReport")))57.08999999999999cm7.6cm10.4cm0.32cmtrue50757.40999999999999cm0cm1.5cm0.32cmtrueBezeichnung57.40999999999999cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!Bezeichnung.Value, "AllplanReport")), "", CStr(First(Fields!Bezeichnung.Value, "AllplanReport")))57.40999999999999cm7.6cm10.4cm0.32cmtrue21557.72999999999999cm0cm1.5cm0.32cmtrueStückzahl57.72999999999999cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!Stueckzahl215.Value, "AllplanReport")), "", CStr(First(Fields!Stueckzahl215.Value, "AllplanReport")))57.72999999999999cm7.6cm10.4cm0.32cmtrue22058.04999999999999cm0cm1.5cm0.32cmtrueLänge58.04999999999999cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!Laenge220.Value, "AllplanReport")), "", CStr(First(Fields!Laenge220.Value, "AllplanReport")))58.04999999999999cm7.6cm10.4cm0.32cmtrue22958.36999999999999cm0cm1.5cm0.32cmtrueFläche58.36999999999999cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!Flaeche229.Value, "AllplanReport")), "", CStr(First(Fields!Flaeche229.Value, "AllplanReport")))58.36999999999999cm7.6cm10.4cm0.32cmtrue22358.68999999999999cm0cm1.5cm0.32cmtrueVolumen58.68999999999999cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!Volumen223.Value, "AllplanReport")), "", CStr(First(Fields!Volumen223.Value, "AllplanReport")))58.68999999999999cm7.6cm10.4cm0.32cmtrue20259.00999999999999cm0cm1.5cm0.32cmtrueAbrechnungseinheit59.00999999999999cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!Abrechnungseinheit.Value, "AllplanReport")), "", CStr(First(Fields!Abrechnungseinheit.Value, "AllplanReport")))59.00999999999999cm7.6cm10.4cm0.32cmtrue20759.32999999999999cm0cm1.5cm0.32cmtrueKurztext59.32999999999999cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!Kurztext.Value, "AllplanReport")), "", CStr(First(Fields!Kurztext.Value, "AllplanReport")))59.32999999999999cm7.6cm10.4cm0.32cmtrue20859.64999999999999cm0cm1.5cm0.32cmtrueLangtext59.64999999999999cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!Langtext.Value, "AllplanReport")), "", CStr(First(Fields!Langtext.Value, "AllplanReport")))59.64999999999999cm7.6cm10.4cm0.32cmtrue50859.96999999999999cm0cm1.5cm0.32cmtrueMaterial59.96999999999999cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!Material.Value, "AllplanReport")), "", CStr(First(Fields!Material.Value, "AllplanReport")))59.96999999999999cm7.6cm10.4cm0.32cmtrue131260.28999999999999cm0cm1.5cm0.32cmtrueEtappe60.28999999999999cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!Etappe.Value, "AllplanReport")), "", CStr(First(Fields!Etappe.Value, "AllplanReport")))60.28999999999999cm7.6cm10.4cm0.32cmtrue1822260.609999999999985cm0cm1.5cm0.32cmtrueReference60.609999999999985cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!Reference.Value, "AllplanReport")), "", CStr(First(Fields!Reference.Value, "AllplanReport")))60.609999999999985cm7.6cm10.4cm0.32cmtrue186560.92999999999999cm0cm1.5cm0.32cmtrueProduktdatenLink60.92999999999999cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!ProduktdatenLink.Value, "AllplanReport")), "", CStr(First(Fields!ProduktdatenLink.Value, "AllplanReport")))60.92999999999999cm7.6cm10.4cm0.32cmtrue1061.249999999999986cm0cm1.5cm0.32cmtrueBauteilID61.249999999999986cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!BauteilID.Value, "AllplanReport")), "", CStr(First(Fields!BauteilID.Value, "AllplanReport")))61.249999999999986cm7.6cm10.4cm0.32cmtrue68361.569999999999986cm0cm1.5cm0.32cmtrueIFC-ID61.569999999999986cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!IFCID.Value, "AllplanReport")), "", CStr(First(Fields!IFCID.Value, "AllplanReport")))61.569999999999986cm7.6cm10.4cm0.32cmtrue16361.889999999999986cm0cm1.5cm0.32cmtrueKoordinate X61.889999999999986cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!KoordinateX.Value, "AllplanReport")), "", CStr(First(Fields!KoordinateX.Value, "AllplanReport")))61.889999999999986cm7.6cm10.4cm0.32cmtrue16462.20999999999999cm0cm1.5cm0.32cmtrueKoordinate Y62.20999999999999cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!KoordinateY.Value, "AllplanReport")), "", CStr(First(Fields!KoordinateY.Value, "AllplanReport")))62.20999999999999cm7.6cm10.4cm0.32cmtrue16562.52999999999999cm0cm1.5cm0.32cmtrueKoordinate Z62.52999999999999cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!KoordinateZ.Value, "AllplanReport")), "", CStr(First(Fields!KoordinateZ.Value, "AllplanReport")))62.52999999999999cm7.6cm10.4cm0.32cmtrue49862.84999999999999cm0cm1.5cm0.32cmtrueObjektname62.84999999999999cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!Objektname.Value, "AllplanReport")), "", CStr(First(Fields!Objektname.Value, "AllplanReport")))62.84999999999999cm7.6cm10.4cm0.32cmtrue12063.16999999999999cm0cm1.5cm0.32cmtrueAbrechnungsart63.16999999999999cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!Abrechnungsart.Value, "AllplanReport")), "", CStr(First(Fields!Abrechnungsart.Value, "AllplanReport")))63.16999999999999cm7.6cm10.4cm0.32cmtrue70863.48999999999999cm0cm1.5cm0.32cmtrueProdukthersteller63.48999999999999cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!Produkthersteller.Value, "AllplanReport")), "", CStr(First(Fields!Produkthersteller.Value, "AllplanReport")))63.48999999999999cm7.6cm10.4cm0.32cmtrue53963.80999999999999cm0cm1.5cm0.32cmtruePlugin_Objektname63.80999999999999cm1.5cm6.1cm0.32cmtrue=IIF(IsNothing(First(Fields!Plugin_Objektname.Value, "AllplanReport")), "", CStr(First(Fields!Plugin_Objektname.Value, "AllplanReport")))63.80999999999999cm7.6cm10.4cm0.32cmtrue=Code.PrivacyText(Parameters!Country.Value, "termsHeading", "Nutzungsbedingungen")64.78cm0cm14.7cm0.42cmtrue=Code.PrivacyText(Parameters!Country.Value, "termsLink", "Nutzungsbedingungen öffnen")65.3cm0cm14.7cm0.42cmhttps://www.pro-eng.ch/nutzungsbedingungen.phptrue=Code.PrivacyText(Parameters!Country.Value, "termsNote", "QR-Code scannen oder Link anklicken.")65.78cm0cm14.7cm0.42cmEmbeddedTermsQRFitProportional64.78cm15.8cm2.0cm2.0cmhttps://www.pro-eng.ch/nutzungsbedingungen.php67.28cm de-DE true 1.000000cm 0cm 18cm 0cm Bärengasse 1 2.300000cm 0.038837cm 5.8cm 0.3cm true =Code.PrivacyText(Parameters!Country.Value, "page", "Seite") & " " & CStr(Globals!PageNumber) & " / " & CStr(Globals!TotalPages) 1.150000cm 12cm 6cm 0.34cm true Ersteller: Pro Engineers AG 1.500000cm 12cm 6cm 0.34cm true CH-8750 Glarus 2.630000cm 0.038837cm 5.8cm 0.3cm true Embedded WebSymbol FitProportional 7cm 1.170000cm 0.3cm 0.3cm www.pro-eng.ch 1.150000cm 7.45cm 4.3cm 0.34cm true Embedded MailSymbol FitProportional 7cm 1.520000cm 0.3cm 0.3cm office@pro-eng.ch 1.500000cm 7.45cm 4.3cm 0.34cm true Embedded MobilSymbol FitProportional 7cm 1.870000cm 0.3cm 0.3cm +41 76 230 1150 1.850000cm 7.45cm 4.3cm 0.34cm true Sie bauen mit System, dann planen Sie mit System. 3.030000cm 0cm 18cm 0.3cm true Embedded ProEngineersLogo FitProportional 0cm 1.100000cm 3.6cm 1.203315cm PRO interactive Report Datenschutz 0cm 0cm 11.5cm 0.43cm false 3.4cm true 0.4cm 29.7cm String false true false @289@ false SchweizSchweizCHCH – SchweizSchweiz DESchweiz DECH-DECH-DE – Schweiz DESchweiz FRSchweiz FRCH-FRCH-FR – Schweiz FRSchweiz ITSchweiz ITCH-ITCH-IT – Schweiz ITDeutschlandDeutschlandDEDE – DeutschlandÖsterreichÖsterreichATAT – ÖsterreichFrankreichFrankreichFRFR – FrankreichItalienItalienITIT – ItalienVereinigtes KönigreichVereinigtes KönigreichGBGB – Vereinigtes KönigreichBelgienBelgienBEBE – BelgienBelgien NLBelgien NLBE-NLBE-NL – Belgien NLBelgien FRBelgien FRBE-FRBE-FR – Belgien FRBelgien DEBelgien DEBE-DEBE-DE – Belgien DEBulgarienBulgarienBGBG – BulgarienZypernZypernCYCY – ZypernTschechienTschechienCZCZ – TschechienDänemarkDänemarkDKDK – DänemarkEstlandEstlandEEEE – EstlandSpanienSpanienESES – SpanienFinnlandFinnlandFIFI – FinnlandFinnland FIFinnland FIFI-FIFI-FI – Finnland FIFinnland SVFinnland SVFI-SVFI-SV – Finnland SVGriechenlandGriechenlandGRGR – GriechenlandKroatienKroatienHRHR – KroatienUngarnUngarnHUHU – UngarnIrlandIrlandIEIE – IrlandIslandIslandISIS – IslandLiechtensteinLiechtensteinLILI – LiechtensteinLitauenLitauenLTLT – LitauenLuxemburgLuxemburgLULU – LuxemburgLuxemburg LBLuxemburg LBLU-LBLU-LB – Luxemburg LBLuxemburg FRLuxemburg FRLU-FRLU-FR – Luxemburg FRLuxemburg DELuxemburg DELU-DELU-DE – Luxemburg DELettlandLettlandLVLV – LettlandMaltaMaltaMTMT – MaltaNiederlandeNiederlandeNLNL – NiederlandeNorwegenNorwegenNONO – NorwegenPolenPolenPLPL – PolenPortugalPortugalPTPT – PortugalRumänienRumänienRORO – RumänienSchwedenSchwedenSESE – SchwedenSlowenienSlowenienSISI – SlowenienSlowakeiSlowakeiSKSK – Slowakei image/png iVBORw0KGgoAAAANSUhEUgAAAsYAAADYCAYAAADoKyV3AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAAFxEAABcRAcom8z8AAIsuSURBVHhe7Z17fFXFufd/s8IlJBFBIICYIBcNKIJcxAu2BbFoFXpaL/S0PRVte6xChdZWa09VpO05pXJO+2oLVk+tQk8vothWwKO2XPQYrQhouBTCJWgQIQE0Ym5csub9Y55n1qzJ2slOsrOz9858/WD2XmvW2mtmnnnmmWc9MyN835dwOBwOh8PhcHRqqmtOoaKyFsOG9LRPdRo8+4DD4XA4HA6Ho/Px5PLtuOmBFzBz3mqU7Ttmn+4UOMPY4XA4HA6Ho5NTXXMKK/9eBgHgQFUNfr5ss52kU+AMY4fD4XA4HI5OTsm2w/i4/iQ4vnZzWSVKth21UmU+zjB2OBwOh8Ph6OT838YDEACkDKae/XrF1lCazoAzjB0Oh8PhcDg6Obv2fwBICQih/rLXePsHdtKMxhnGDofD4XA4HJ2cHQerIIWAAJRxTDz+zJYgUSdYx8wZxg6Hw+FwOBydmOqaUxCA+iclfOPcJtNrHNjLGYszjB0Oh8PhcDg6MXvfOaYNYykEstg5LCUkgF+bXuMMxxnGDofD4XA4HJ0Ziin2pYQw/oJCKzbvrcCW7Z1jhQpnGDscDofD4XB0YjikWAiBBvoL02ssBH79dOfwGjvD2OFwOBwOh6MTY6zQpgxDOiBolQoPwMZ9h1FxuD5ImKE4w9jhcDgcDoejM6MWMDa+K4+xLwR8QHmRATyxfFuQJkNxhrHD4XA4HA5HZ0aqSXf0EaCVKTwAWRx3DGDVhjIcqqyzr84onGHscDgcDofD0YkZNuR0vRKbuTIFADQIASElsshz/OTT240rMw9nGDscDofD4XB0YvJyu+jPko1j+p4FFVrRQEbjyg1lqMhgr7EzjB0Oh8PhcDg6OxQywZ5jfZiOscEoATyRwV5jZxg7HA6Hw+FwdHLGD+sfc8dnPs6e5JUbylB5OMJrHOsGaYQzjB0Oh8PhcDg6OT1zutqHgo0/6GsDh1YA+M3yCK+x7W5OQ5xh7HA4HA6Hw9HJOXfwGfYhvWyboDWNPXIKSwDPZWissTOMHQ6Hw+FwODo5wwb3puWMaTtodgDzcm20pjHIeJQAnlm9K7gBk+bhFM4wdjgcDofD4eiMGEbsgPwcvR00H24ArW9MxrE5Ac8DsPLv+1Bdcyq4CdI/nMIZxg6Hw+FwOBydEcOIHTakJ3pmd4VPh30AXQStSkEhFaHd8aTEx/Un8Ozq3cGxDMAZxg6Hw+FwOBwOXDQ8X4VJUDzxKakMxQZOwAay8fl3a3Y29hqnMc4wdjgcDofD4XBg7Mj+Ko6YjF42EmMZixLAx/UnsWJV5niNY+XV4XA4HA6Hw9GJGHO+8hjzJLvm8Cjs4g9rdqK6NjO8xs4wdjgcDofD4XBg+JCeGNgrN27jkCOOPzp+EitWRqxQkYbEm3eHw+FwOBwOR4ZzxYVn2Yci4Ql6zO/Xlhrf0hdnGDscDofD4XA4AABjzusf14pr0ljUwqNY45fW7bdSpR/OMHY4HA6Hw+FwAAAmXTwAudkR20NH4EEt2+bT51//eYudJO1whrHD4XA4HA6HQzNldIF9KBJexo13zHuvqibtvcbOMHY4HA6Hw+HojNjbN9P3seflWyeiyZISEAKC/wJ4LM29xs4wdjgcDofD4eiM2MHE9P3yi88EpFRxxMZud3qyHR2TvOGHsfHHwTT3GjvD2OFwOBwOh8Ohyc3pgikXnAWPjGPYNjQZwpINZPUFIOP5jy/uMFOnFc4wdjgcDofD4XCEGDuiPxqE0CESUkpkGcYwAAgykDmUAmRYlh6sQsm2ozpdOuEMY4fD4XA4HA5HiE9cojzGII+wFEKFVrAxbKX3EaxQIQA8vmKrOmHHMac4zjB2OBwOh8PhcITI75uNEWf2BsjQFQjCJWDau+Qt9qBCLDw6t6msUnmNRXoZx84wdjgcDofD4XCEEcAnxwbLtgkYscXkIdbHDINZpwXw+LNbwzuBpAHOMHY4HA6Hw+FwNOLyiYMAWq/Y9BALAFkAfF65QojQ9tCcftPeSlQcqTfOpD7OMHY4HA6Hw+FwNGLYkJ4Y2CtXrVfMccTG0mwQQq9ckWXEGXM4BQA8sZxijdMEZxg7HA6Hw+FwOCKZcG5/vV6xaTRyhASfk3zeNJwB/GXDPlQergsdS2WcYexwOBwOh8PhiOQTF50FGIawHU8cC8+YtPf48u326ZTFGcYOh8PhcDgcjkgmTRwAQK1V7APweQWKOGig61ZtKEN1zSn7dEoSb94cDofD4XA4HJ2QKaMGaYPYM7eGboYsY+OPFat22adTEmcYOxwOh8PhcDhiMnZkfzWhLs4wCsbnTUGkxO/XlqK6NvW9xs4wdjgcDofD4XDE5PKJg9QybUK0zDimpd0ahMDH9Sfx7MrddoqUwxnGDofD4XA4HI6Y9M/vgQG9ctUSbNaaxTEhQ9qnpdwEgOdeK7NTpRzOMHY4HA6Hw+FwNMnUcYXaAxyP8WgaxZL+HayqwUvr9ttJU4p48ka0wHXuSDG47pqpw5a8HklrOks+05dWiWKrLkoz4sxiZyiKlMMVuiPDGXNefqM1iptCkpFpt4zH/rzFOpJatMAwNgvDzqbTCR1KqPCjKkLQca5DOw19b4HApzeN93VHo2JsfN7R3gRlLoT6rKohzrow5TdT6y/OJqqmuziShZQsf82Ve3PnHY4UhMR20sQBkEDcMcZmuIU0jOQDVTUo2XbUOJtaCN/348shEGFcCUhJR2Io7HffLcfx+nr4vg9hdFwyWMHDkQCk70N4AhAe/IYGnHZaHs4qKOCzQV119jJXPVhMeTWpq61FeXlqv/LJFHrk9EBhQYFhXAR6RkrRqeVWUpxeLFTbD/s49pfvR21tbeiYoz0QKCgYhJzcXPuEhSnTrv9zpC93LFiPzWWV9uFIBK1j7EEJvRQCAmqFinHD+uPh+ZPtS1KC+AzjcJuOREpg//5ybN1Sgt1796KishL19ce1c04IQEBA7ajtSBSBGaFmigoo4WN6n3YaevY6A8OHDsHoMaNRWDg4dH2AUcmdTGuXl+/H7l27cODAe3j/0CFUVlaoMoxD7h1thNWBUc69Tj8dvXqejuFDh2L4OeeiaESRNaCJVTGxjmcgEqirr8POHTvx/vsHsGfvXhysPIQTx08YpeD0bbtDxct69+zCweh9+ukYPvwcnFt0Lvr27WtfoS6S8Q3OHY5UY9nyHXh09VZte7QEATXQb/A8dPF9LFvwGQwd0tNO1uHEZxg3wZEjR7B+3Vps37EDHx07Bt+XynshfQjhUcHRT1DQtmm4OdqGGmywMWucMGwEoQ1dgZ6n5eGC887DpyZPQd9+/YwLOgNBoRw5ehTr1qzBP3buRNWxj3QKPXijImtT43DERUjBRhjK2d26Y+SIEbj4ookoGjkiOGGiZdwQ/IwZ4AWGlC8lSt56G2++uQE7d++Oafg252V2JAgSNy155BWT5CXrn98fE8aNw2WTLkePHtn21Q5H2lGy7ShmL1oDP95YXClDO+VJAJ6UaBAC/zRxKO6ZM8FKH9b/HUGrDeOjR49i9apVeGvrFm14kdlLKdhVbF3IpEDmM4WwORAYdqahoD5xDan/jx09Btdccw369u0TURmZVkEqP0eOHMHzzz+Pt0reDowmCVqbUYX7qPLhaxztiVB6Uwux5wk1uOaq0fauhBQeevU8DZ+eeiUumzRJ38NMkxmGsEnQDouLi/G3NX9D1UfHAAF4EPC1tNLaopmW/ZTH6ufsATVVn5ASY0aPwbXTp6NvnzMyTLc6MpoIU+DSWcuRRYPA5jBXpRD0XYC2lxYCLy25Dnk5XRr9RkfSYsO4rq4Oq1etRPHf3wCUOgaE18hzQf2cVhT00TDRHInA0MeRSAl4vCC3IXi6fgBM/eSncOWnP43sHj2CBBlGbW0dnl6+HCXbtpIBTDIb0ehBcuqkNFkoaVThQKpuwFqCDQ1dT+rLgP75+KfPfg4jRhSptBloE7PXt3RnKf64/I/KIIbReM3GT4NgQddlXGGkKjyoJl2hyj+oGw5xk5DwhED3bt0w6dLLMH3GjPB9HI40Yu6C9dgUT5wx6bAGahKC32SRx9iTErdeOxqzvjDSvrJDaZFhXF5ejiee+A2qPq4Omw2sCAyFwLqZFQMQKG/6Ynx2JIRGnaV1rAlOP60nvnbLLSgoLLRPpT1vb96Mp555BidOnFCzZLU8GolMseTvcZSbI0FEya5xzhMCPtcb1HkPAhdPvAgzZ37BSJwZSClRX38cTy9fjre3lhiakoZsRvtmD2VglDndmnwCz7EKp+D590FdcJgFAAzI748v/vM/ozAD9a0j81n61D/w2PPb7MORcMiFlGpwKHkSHhmJA3vl4pmHrrUv61Cy5s+f/4B9MIriV4vxm6VPov7EycYmLXdiRmdmOiz4c3CM7mB3gI6WQxXhiYjYbRFv+QocP3Ecr7/xBk7LOQ2FhbyaRfrz9PLlWPXC/+JUQ0Mgs1Qu6u1F+FjouyN5NFX2/Gqa64jOSwDvHTiAkrdLMH7ceHTt2sW6MH3ZX16Ox3/zG+zZt9c+peAyiigrRweh6yRWJQTByLW1tdj89lvokZ0dNo6dtz+jKdl2FHl53dCtaxPRuWlgF9XUNuCvb75rH44kaBb0iVamYDk/Vn8S5w3qg4JBefqajqYJwzionWXLlmHty+uVIUErH+hGHhcqbaPkjQ44WoxQS1k18g8pybOPRqA0tUop8I+d/8DHVR/h/PPPtxMapFLLNb0y4Wd68sml2PjW5uC4pPKSKvxHSN91QhlAdU0NiouLce455+D000+3TweYRkcKGyDvlb+LxY89io+MSaGODIB1slDeM9ng4x87d+JkfR3OLaJJpSkqk462U/zGIXzrofX485o9uGzUIJzRu7udRJHKIkDdbPeuWfjDX3e1+VElxR8fPVqHz0w+2z7dYVjDFtO8UlletmwZ3iopUaaH9JURJrzAFmkOSf8jB3Hjc462IqVVlvp78wWsX8sCylCEwGtv/B3Lli4LJ+RE5jvclCAUgApAeWMWPvggtmzbosuBY5v4NQ4Q4WF3pB8khsdPHMcjv/pVsO60GXbBRL3GSjGKXy3G4kcfxfH64/YpR0bAylaFBklIrHn5FSxbutRIEiG7jvSFqnPvOx9CAqipP4nZC9dgTxnNGTDSpDykNvvn90DP7K722RbDlsSbZZWoOFxvn+4wLMM43FksW7oUb20p0bYHL79GC4TZySPxqAMy5/prIYjjekdz0KQ6IQAODhDx9/vStBE85UX1PA9vbS3BsmVsHBveNZ04zh9IBlZm/+e3v0VlZYU6rh/Xgy8leAFBQMWoOtIbVfVKI9UfP45HfrUE5eXljWQiMDZStwcqLy/HyudXof64M4ozHw6rUPL41tateHr5U3TK6aWMgqqTl65uAFBTdwL/8djfUV1zKpQmpbFUZ9GZvcMHWokkQ/SFtWX2qQ4jZqDLmr/9DW9t3RqqsdByXxJx1aaaoidowwTluWOd4EgAkuxWqTZf1N2/VLP8m0PQP0nXSPJkCABvlZTg1VdfNerZbBmpaWAsW7YUO3bv1vlRqDx5oEkxFA7kp2geHPEjAUD6qg14HuqPn8Ajv3oE9XV1lIDq2B7QpZhXrvzdd/HIr36F4ydOqEyJqPgoRzoT1se84ooHIQSE9PHahjdR/OqrRhpHRkHt2aNlykoPVmHhErW6V1pgmRNFhW03jH3QpFQAz722Tx1MAb0XaRiX7tiJVS+8EFhdehsJ9hWr/zdvdnFK+r8gAzn1+qX0hSxb3moR5EBWHau5U3k0XMP8xaMBDKDuu+LPf0bpztIgXMEwNlON4uJivLVlCxm+6j9ADRqUQ11tPKPkOPWe39EKyLgAaGtkAdSfOIGfP/ywOs9LFer0LNupU/91dXX4w1NPof7EcT1IDRqyI1NotPwjbdgiQeFdUuKZP/9ZvfFwZByXTxykPvBmF1Ji3bYDWPrUDitlethHA/o1tw1682QB8Ml2eb+qBq9tOJQSek8bxlwRtbV1ePK3y5Rn1zgphRdMuiOvb6OG3iSBByQeT6aj5Ujpqw0SpK+GMi3s/AWkWhIrdJ3EH5f/EbXsgdPnWlL37c/+8nI886c/KeniyS16QOZR7qBmxgoe6DkyAbXeLw3yyJ6sPFyJVc+tBKjOw0tGphZPP/00DlVU6KUtOfzMkfnYVS0g8cSTT6C2lvStI2MYNqQnTuveFT7pLO6ff/X8VhRvOBRKa8tFKjL87LZ7jCUZobyk28sbeI6InTK5NFrHeNnSpXhr6xb1hexghVLaZoUp86L5HPTq2ROn9zwdnudBSvUC2xnHCUKEhUhKoOJwJerr61s+8pKA8NTAhx3EfHzSJRfjhhtnWhekDg899BDeKS8PyoOeXa2k4kMKoXcKc2QYMjB+PQH4Rv1/e+68YDmsRoO+juftt97C0t/9T/igGsF1fO/gaHdUP6jqWde2BC675GLcmML61tE6fvlECf64vlTv/sYGYV52Vyy5ZyqGDelpX5KyVNecwlWzn7UPt5kXl1yHvNyOXXozZBjv3LETjz7+a21ZxDJ7gzPUqEMGtDp04egxGHPBBSgaORLZ2d2DNewc7US4Empr67Br505s2bYFb23ZYtnPrI6jarcxvDD9t+6Yh8GDCxv9VkdTXFysvMXGyhPCs1+hRz+ytqOlBISH/vn5mDBuLM46qxCFgwvRI4N3A0w1du4oxQcfHMHuPXuwc1epnoTGnlS9wxjVZTym49kFhZg3b559OGV4YMECHPv442AuhuF8UH84z1JNfiaXeCjvEsju3h0ji4ow+oLROKNvH7dxRBI5evQojhw+gt27d2HTW5tRdexYk/qWPWQmLON8oRAC37rjDhQOHmyldKQze/cdw03z/5feWob1V9HAXvjF/VcgN6djjcKWcOms5dHxuC3E7J7n33Ippk3u2L0UQobxQw89hHfLy/XsyUApKwcGJ1TB0vzKOsiRkBIXjhmLG264ATk5yqDgDs3REajKOXLkCFasWIGdu3exCoYvaVMQ+xILbThCYPBZZ2Het75lJ+lwFvxwAT766CNAiHBsFm3iEchgYHzoVkjpR557Dq67/gb07dvHaKKO9ocViKka1ZJ769auxauvv4a6+noVR8w7J+lqa056FTd96csYO26c4THWmsxKmQQMr3Xxq69ixZ//HBj9plwCRrnQN+P1qzqrthiefs21mHT5JH1cES5PRxKgIi/dWYoXXnyB3mCF3Uiq/s0BTlDvQouHOnb24ELMmxs1qHN1m5ZQtc394Xps3lOhWja3Z2rb/zRxKL43Z4J1Yery1e//FbveV8vQ8b8sWnlDxCml7DUHXT/5/EH4j7ttfZZcsubPv/8BQKD8nXfx4t9e0pWllLCRUvD/qAWbCloIZHfvjq/f8nVMnToFXbsG69s5o7iDMDrgnB49MGHCBAzol4/S0p041dCALDYim6sew4CuOnYM5404jzZRiOfiBGPkiT8Xv1qMzW+/HYzcuDVyp4PAKKbI6+B+QqBH92748he/hGunT0dOTg5d3AF567REl3fXrl1x7rnn4sIxY7B/fzmqPvoIEDDWxYm/fj6q+giXXHKJYRSzkCSZkGEu8MSTT+A4Gf3K1aC8whHFoXItRCjfF14wBrNn344hQ4dE6Fn7u6P9oAqjIu/bty8uueQSdM3Kwq49u43TvDqTrwd66rih18DiKfBRVRVGjhwZsWmNq9u0hKotq8HDupIDus36UPUtpMSO96twRtdsjDz3jNClqcqa4v14/8MaAGrgLoQItoCOQ1JNoxh0j3cPf4wvXFXU9O6A7Qzt1AGsf/llMopVQ1UTlvQBULMmF3GwGYQQQPdu3TD7G7ehaMS5ACyvnaNjCCla5dq/cOxYzL79dnTv1g0+wvHiMRHBaz8BgXXr1gQnko1+4KAjefW1YlIwZDIYwichISQgaYc7IX3tkYEABvTrh9u/cRsuHHthOOyiI/LWqYkubymVkTFv7jxceMEYZS+YA5s49cw7+8uNmf7Rv5UUtPwKvP3W26j66BgkeQ/ZG8yv27UBLPmzMoqlVG/wpn/mGsyadRN69OgReJsdHUCs7l9i6pVX4ttz5yE7W+1wxoMfcLiXUCup6xVyzFvRhPf169YFt3SkL0bznHZFIQadngNAGYJqarjSDx6ARU9vQsm2o8EFKUxRYe8ga2RnZNHya/GYtR7pLUll4dMAofiN9+2kSUU/+z928pIhbNhSCIXONr0OEsozpwxnie7duuP2225DgRHTFpfB5UgszXWMVCkFBYWYfdvtyO7WPV67QnXKJOw7S3fRsfivTjwqL+XvlqOispIMYF+FALEnBiTCQuVdLeWlxoESEtndumHu3HkoGDwYiAz36cj8OWDpkVmzbsKFF4wm20HoXTjjpaMNjKB5qg9vbHhDySJ5DaEdEUq82UAGhY6AVlkRQmD6Zz6DqVOvCNLrtyJObJNPLCFUxwsLC3H7N76B7G68/S/FH1IdSzqk5jgoPSsgtJGxo7TUvKmr33TFEpNbPz9GrU5BdQ6oNu4DyJISd/3i/4LNP1KY03K7hZY2E7Qkb6xW0QiOTqCyyJISDULg5TdpdYoOwgOAtzZvxvGTJ1RmuMOhCUzUgjUSpMgp3u/mm2a5iR4dStCBxodEYWEhZl5/o30iJmospF4BHj9xHG9vfqtxS08yUgJbt5QobzAEGRZsMKnX0Z4wOhLDqyYA3H7bbPToQZ1VZNmZFztSgZtmzcLZBQXK2+ZRnGZzkLr6h21gJBmycwAI1NbWUrx/IHrsCabU/IEcE4EfecQ552DqlVda7c/Q0VGi7OhQCgsHY+YNSt8q/WT2qcqIULHjZCCwXAug/sRxvLVpk76XHjA50ppPTynAWeQ15nkD3HSlEKipP4F5P+7YwXw8DOiXhwb6LEKD+PhRK0ZRj0tG9cvbD3TowMADgL179wBsBnDm6BWf5Nc/pNTV/9Wr6NGjLkDRiCLjdo7k01IDTtXh2PFjMfKcc+2TEQjAp1AEISAhsHvPbjtRklFhILvL9pJlIel1tK/kls4HISDq/4LSXfGpySgsLGjGipDNnHd0BP/ylZuQ3b0beVrjqx8pgRMnTqD83Y7dOIEfd9fOXaFYYXVSdSwK2iFUfdLnu3ftiq/MmhVcYxJfUTiSQmN9PHbcWIy9YDT3ngppTGSnt3IQqm8VtJsjpETZvjIeVbEZbd7akab8K3mNAVXPvhCh0IKdBz7AkidLUrq2+/fNQRZ95udUIWHxSymXAadn3Ve8oePCKZRhvO8d+3golk/SK2j9nc5de+21wUFHB9K6XvH662+wDzVCQAKeCpuRJDAHDx20kyUZld/y/e8Zh5TRbjQvXSqqnakOqEf37rhi6pXBdTFpXZk62pc+Z5yBSZdeBsRdQxTTCYnduzt6QKc4cGB/6O0F/9/0sygvEsuz8jDOmD4dPbKzdRpHqqJfD4S44caZyO7eHT6P6QSFerGnmCZXCq5/ofTanrJ9wahK6P850pxpUwpQ0It2j+PwAzIqeZD0P+tK8bd1HRtW0CRCrUBhHQripuPAjkXmORP/t7Hj8u0BwKHKCopton4Eyshgpa0m2lFG6dXk2AtGo2/fvua9HGlGn759MOKcc0IiLOiVLh+RAKQfyIYvfewr7ziBZUp3llqvFY2Hpq5GgrImKCMAJl1yiV5K0JGeBAOb5lWvoEmXAHDggDGQ6kD2lJWpDzp6orERpaDjUiK7e3dMmtSxSxg5WkDE24ycnB4YUVQEjqQIvzVgSWj8GvpQZYV1xJEpzPvyePWBwg98wygGabj//OMm7N13LHxhijCwvwoHAYI8MI1bQHxI0tvrth2wTyUNr7x8v7IbhKc8bmwB6QZKHkOpjggaDI8ePdq+lyMNGT1qNARtIa3qmNanhuH14JA4wQpf4siRI9adkkttbU18TU+Jsl6J4pJJl9spHCmMdrzJIPYyJ6cHRp5zboQJ0RiJIG7t6Icf2qc7hKqPqrTHsFlorsdIF7KWEUyePIXebBmj9SYQ1Abe29/xzgiHQfNVFxeTJg7A+KH5ehKessVU30tdF6rrjuPfH/07qms7LuY2Fvn9eqCLULrZnnSXiCKyt8pOFl5tba36JKWaeEerUvArHXWKl/YiY0kIFBU5RZ0JjBk7NojLhbHRAI3aNFrKlZX8wdEPEiP5LcF4Pfn+gfcjX1c2gmI3pZTo3fN09O2THutDOhRaBEMxuMCwYcP053iQAA4fPmwf7hCqjh2Lv+lQJzls6HD7jCMNGTy40AhTbH5kJCHgCYGPP/7YPuXoSJqvurj52vUXqKESGZbCMDKV2SWw42AVFv7yDfvSlKDBVwsxcJHYuzq2hbe3d8zbEjVxX1IN8JqaNFbREz8koExlVUnZ3bshu4fhQnekLTk5PdC9W1cAapkVXtVBSD/ceWtFoEIWfN9PqHKIC8Mw0rO7m4PedABAr169EqvRHMmFBkJSAoMGnWWfbQaBuuP19sEOIAhLigtaOr5wMG+RGu+FjlRlcOFgNRE4nrqUqi/2vKz4HAGOltHaIm3tdRGMGdUHn504JIjV5QUQoOrfp93k1m4/gKVP/UNflyrwahS0PpSKz02QrK5/q2PelHh1tTVqWTapZsIKBLMKOdJYgI0LZSwPyO8fFULlSFP69++vR6pqGSzfeN0XhYDw7JD5JEHtTXjKy90slAUhgAED+ttnHemEivGBEGpAlz4Ecnr0yAdKKGM1rQiEECg4iw3jFlzoSDGUHAgp9VvZ5uCwtr17doUcA44E0doibe11MZhzy1j0zO5qraSkBCDLMDr/e/XWDgsvaBIpkQUVXaBXDEqAcXzwo1ocqqyzD7c73nsHDtDmB6BX6qr9qgl4AMhzyN9D8pCAjDs6GNqBiWOEtFDzkkEwjFGSA+3GShrGb5EAygZ7Lmw0AsHj5vZgYyqZz+5IKFT/hYMH22eaROj1Yzui7gOteeTIEXorF2fPKtTbEaWgO+LZHYlD1bmEMng4ZK1plMz68SR1pC15OV3wpakj9AoNetMPwygGlNPyh4+/nnKT8diZ6gsV+gMoGW8rEsCW7cmfz+RJKeEJj/oLmtlv5Ed5BiVZFzQi0CfbnnFHB0PGgqpKej9AFayWjAqjaz8upZ4oIoxxLysuO0F1QpxPPto4X45UJ1zZ+/UWz/FAO4mh43WW9H14nnqRHjd6V7yOfXZHYlBdbXyhaEpKWiArjo6nldU1a+ZIDOiVC0EGJouHMOJ2hZQ4Vn8S3/9/qbUznlrNSm1vLaHsxEQgALyysSW6PjF4Qgj4vNqEeYa8hb6UAE3IY6O5g16iO9oV9U5AC7Qp2NRClULnY3Fo9YRiGDeAepC4HoEfXnnEHWmIVj4BNTU0aTge6K2XTAG3m/A80qkt6UDjTuhIVWx1GrcuUm/0HO3DipV7sPSpHVi6fAfmLliPuQvWY+HijeqY/vcPLF2+A8uWB8dKth1Fybaj2LKd/36APezFjbdqI7j/Xy9BA93CbPUsAZJ2idtfVYO5P1xrpOhgRLCNOWhX5EQgAby5p9I+3O7oFmer3pARQQaxPhd8dGQIeioI13UswY5xOHUhaU2753ZoImSxRWsS0/XZ3WkL8FShcbYcmUob6rpFbxccLeIPfyvFY89vxWOrt2JTWSXeLKvEqg1leOz5rfjv57eqc89vw2Ort+KR1cGx2YvWYPaiNfjGg+rv7Q/+DbPm/y8um7Uck256Cld940+Yu2A97l1UjGXLd+DFteXYsv2DZr28Y0b1wT9NHNqsuHgASg9V4aeLN9qnko75rD4ZyImU2GP1J5MeOuKGog6HI21gZ+uevXvtU00iAPTPz7cPOxyOTswvf3AF7rxxHKaMGoTc7l1Dnlp+s+OrmFN9jg1BaRlQHP4ghUB13QlsKqvEum0H8MjqrfjR0r/j9gf/hmmzn8XVt/4Jc3+4Hkuf2oGX1u1HmWX0ffOWC3Fa966hY7F4bkMZli3fYR9OKuzh5tUzErlcG5f93nc/sk+1K84wdjgcaYMQagJb6Z6Wbe/sS4kzznBrWDscjoAB+T1w/fTh+PFdk/DSY5/Hbx+4WhvKvBxoFoAG2oBDkiEoEUyQY0M6i84LKUMxwh4tuQYyuD4+fhKb9lTg0ee3YsGTr+Nf5v8vJs1ajnkLlLFcsvUI7vziBLqiaSSAR1ZvxV9p2+hEemrjheOKPSob/p4opBB4K8nrGTvD2OFwpBESf3/9dTWJrdkXjoGG9oSHMwcOtM86HA6HZtiQntpQLl46E0vumoovTi5C0cBeOkQgC/TqytiQwzcnzFEcsDYOzY07ePECSuMDeh3gDWWVeOz5rbhryStY8OTrcU1w98hb+8ATr2HvvmPxaMR2wzcMSvYgtxVB/zbscoaxw+FwRHLkyAdY+/J6gCYNN4e5Ccy5RUWJdWU4HI7MRaqY3zm3jMETC6fh2UUz8J0bxmHyqEFqchkZuT4ZuWxMmcursdEM8jr7QsAjg5e9q6D02lCmY1FzK2wkpxcCsxeuSXosrokHNWCQUKtSJNK4PFRV02x8diJJ5LM7HA5Hu1FbW4PHf/O4WjklzkVJ1JZEwOmnnYbCgsL4LnI4HA5LV/TP74EbZihv8gtLrsP8Wy7DlFGDlAeZPaQcXsEGouEZzuJwAzJ4Q8YXpfeM5XDj8bhyWgmguv5k0o3jkm1Hdb5DW1nHvU530+gBBoC9+5IXZ+wMY4fDkQZIPPPMszhUUQHheXploHiQAM4bObJRR+dwOFqAaYVlGi3MU15uF0ybUqCN5AduvhRXnD8IoJ3qQDHJbNwK4ycijS42oMmjHK/HVas0+q3q+pP491/9PfneVSGUUcxhJWQcJwQp0QDg7STGGcdT9g6Hw9GhLF26DG9teRsQ5I3R7xDj4+KLL7EPORyOFlCy/Sh+8ss3MY9WVCjecAg1tckzwNqNFuoSm7zcLvj0lAL8+O5JeHbRDHzrhnEY2Cs3HEdMq1owUXa4JINMCtEio5KNUDbmSg9VYe6P1ibFOK44XKs9FAKBgZ9Iw1LSYGN3+Yf2qXYjkc/vcDgcLacJ1++RI0fw0wcfxNtbtuhjQZdh70qkehdBf/nc2QWFKBxcaCVEjO7J4XDYVNecwuxFa7DyzX3YxJPEFr+C6769EgsXb8Tesha+vk+lphe/DdosHG7xzEPXYsldUzFj4tDAo8rZJiPZ/FnT89tSPLreDL0oPViFeUkwjg9WVutY6Aa07vmbg73tO9+rsk+1G84wdjgSRuKVQqcgIi6itrYOq557Dv/1s59R+IR6TQfahVMI6mBIa+qORbktVAI6ePVVV8eomwT2iA5HBpOX2wVFA3vBM9atFfTqftUbe/GVBS/gq997CStW7YnPGOsETW/MqD64Z84EvLjkOtx6zSjlRZZSe4OVNlNIqDdhoNhcNqCbgw1insjHk/eklNh5sP09x7vLPwjHErfA0x0PZgkcrKoxvrUvzjB2ONoMN9/EKoVOhRAo3VmK4uLXsGzpUvzg/nux5uWXUX+8Xk3k8NU0OuV9oT5D/1XlHpS+1N3O2QWFKBpRFJyNo7NxOByNufe2S3HOgF6hTRwE1KtuCWDnoSr859ObcfXsZ7FwyUYUbzhk3YGI1QRjHU9z8nK7YNYXzsMzD12LB265DAN65QJcdpxtMpgbaJAvKN64OXiQ4kHdw6P78ZbMpQerMPfH69rNOC7d/2HMsI9EVCeXEVOy7ajxrf0Qz/3lL3LNy+vt401ydkEh5s2bZx92pCkPPfQQ3tlfbh9uktu+fisZHB3DqpUr0VK5nfqpyZg+Y4Z9OLGQwcbU1tZh186d2P/efux75x3U1dcrD6gQbqtXQkAZt4HngdShBIQXHBcQkNKHEJ5ebcL0NnPRs9EMAD+459/Qt28fum/j+kk2pTtL8atfP2Yfbpaf/+d/2YccaUpr9G1SdFccVNeewr8tehWbyiqprQUrEUQxsFcuplx4Fm6cXoT8ftn26U5L8RsH8ccXSrGZypE9vebneJCgjUZIf7KR6pteTykxYtAZeOjeKcjL7WJe3iaqa07h6tnPwpdSG+KswX1aYaOtHmSfVvOQ9HnBzZdi2pQCO1nCcR5jhyORCKC2thZr/vY3LHzwQfzgvnux9Hf/g7WvvIx3ystxqLISyiTuYAstVZBkFPuGUSz94DgbyxLKGDaOSQqrkFAeKz7GURTTr/6MMor1PcyYC77C4XDES15OFzw8fzLuvHG8akHGjnDmAJV5v6oGv19fis9/5y+45Z6/4q/r9reb9zKdmHTxQPxi/mTMv+VSDDw9h10BLe4VBMg5AAS6kTzHbGD7QmDHgQ8SHnNcsv0IqWkjfpp+k+Oq2wp7wNnQP1hZbSdpF5xh7HAkiCOHD1MYwP1Y9b/Po6KygtwAyqOilJ7ysCiccaY0tw/PI+UOCU946rieya2MXXCJqd5AdyW8NSsb1RICI845B1OvvJIOU9qQom670nY4OivXTx+GZQ9crXeEU2pO6BUYGDaahRDYefBDzH/ydVw1+1ncu6g4dqhFOtJKVT5tcgGefng67rxxHE7L7gqwSrQTNgeXuVDzK9jT2kCnhRDY8f6HmPejtQlb5/j/3nwPMDQpa2T+zURhaurd5R8Y39oPZxg7HG2ktrYOTy9fjn//6UK8tXULBHk2gyZNnYP0lf5qpRLNSCQghQffV6ETEmpHO/V6kPW9CpwId7jkVQYg2e6FhBAeBuTn4ytfuckqZ2cIOxyJZNiQnvjNwmn48hQVUudLqdfw1RjeRM8wONZuO4C7F7+Cq77xJ/zyiRKU2cZauunINqqX66cPx4qfzcCXJhepsjI2+mgOH0GZa++9UeaMEAKlB6tw+0/WYMv2tsXq7tl3DC+X7Afod3z6KxJsVAqocB2P/n5ce9JO0i4kMg8OR6ejdGcpfvTvP8Jrb7wBYXiGlT2njL3AgPN0DFgb9WjmYBaE0oIAlZV5XnvaKRpClaVxqVBhFd27dcMd37wDPXJyXCE7HElg9s1jsOSuqTizd542ynzD68k7w9kbXoBWtfjj+lJ85YEXcMO81Vixag8qKus6ZdvNy+2CObeMwSN3T0XRoDPiLgLTiOOJkFzm9vkGADXHT+L2B9dgxao9xpn4qa45hZ88+nccO66MVPZOm+j+r41IGAMtIbCxrNJK0T44w9jhaCWrVq7Er379GOqPHyfvpjXKF8Y/AMrzSZ5QM12nx4j9FYAeXiitGHzkr+QdtsswO7s7br/tG8jJ6ZEInexwOOJkzKg+ePInV2HKqEG6KXtQxhE3RZ6kF2qaRkN9v6oGP3t6M667ayXmLliPl9Z3znjk0ef3wW9+8ml86VPnqgPsLKC/TYVZCCMuNwrT4PvZ05tx76JiVcaxLrCorjmFuT9eh50HgzWFo35PwDBoE4T9G+2JM4wdjnghxVRbW4tly5a1eFUMRwSmtmNvsHXQ1q/agUBeKEigf34+7vvBfSgsHBxK43A4kkNeThf8+K5JuP/mS9EzuxuNYCnuGIH+DL3u59UUTP8BgE1llVjwhIpHXri4iaXfYpFMK6qdmPPVC7HkrqnI69FNTT6jskyk0bZu2wFcf+dKlMQRWrFl+1Fcd+cq7DrwgQ6daHeMiZ28TOCW7e0fZ5zIMnY4MhshUFtbh1/88pd4u+TtJGmGzEeQj5i9wep/tEmHoYAFhVKY3mApBEYWFeGOb34TOTk9ghMOhyM5WHpw2pQCLPvRVRg3rD8EGTQNUPqTPYk8X4C/m6EXtkd05YYyfG/xK7j61j9hcVQ8chQZMjAeM6oPVvxsBi4amg9JBpuIKKNWIyWq60/i9kVrcO+DxSqMxaK65hR+ungjvvHgGtTUn4BPWzQnpYhZVihEhGON2xtnGDsccVJXdxwP/+JhVFZWqnjXpGiGDEcoD7FWdjSrWoQWYVPGMy/p5lE8cXa37rj2qs/g1ltvRU5Ojk4b0P4K1OHo9Jh6kJpc//we+MX8yfj2zPEhjzG3SL0yT4S3OMookQA+Pn4Sv6d45BvnrsLSp3ZEGnKZRl6uWiJvxsShELzLXYKMQ/bYewDWbT+AG+5aiZ8s3ojX3jyEiso6LH6iBDd8eyWe21CmQyZMj38yEMbv+gAqj9TaSRJOlAw6HA5Gx3cBTy//IyoPV8Jnj6YjIaiSDJcnRUjQF2U8e+RE9qXE2YMH484778SVn6Yl2SJxdeRwJBW2d+nr9dOH47fzr8aEofmhsArdtskTaIcI2C030AXq0/sf1eKx57fic3etxFfvUVtRp7WRHIelec+cCbh/1iUQtDZxIrzGgh0N9P0UgFUbynDXL17G5+5aid+vL8XHx0/q8wJUZwkyzJuD88p/PQDvV3xsJ0s4zjB2OJpCqPf7z69aibe3biE/Jq+v60gI0tx4gzCChPmjD4HBBQX4xtdvxby5c9G3b98gPYJXbEnS2Q6HIwZmcx42tCcenj8Z37lxPHpmdw2FTPCEZTZE+DptiBkhFxLBqgt83AOw42AVfvb0ZnzurpW4b1ExXlq3HzW1aTZpLzRaiM20Kwox/+ZL4EWsBNFauA6E4YmWZISa9cGfOd45GfDv6uJJklPKGcYORzOUlu7Cmldehs/72IuoNREcrYGDJnhTWcG6T6qjkMDpPXti0sUX4wff+x7mzfsWRoyM3opcL4XX/nrT4XC0kOumD8Nvf3Q1xg/NRxa9vte7ppFxFuxqSYaz1Zh9SXGm5LAAgCzDuF677QAWPPk6Pn272kTkpfX7UdOCVRc6lDj11lVTCjH/5ksTliVp7F7I5a0NYi5jo06ypERD/I+bEDh8RAqBg0dq7NMJxxnGDkcT1NbW4o/L/whJu7Ml6xVSZ0Gyt1gqP9LpPU/DkMGDcfklF+P6z30eP/i3f8P8++fjhhtnom+/fvblAa5eHI6UJ9+IPc7L7koDYGUgCwSjWsHGidGuBYAuFEqlDijj2DdCATidoBUXfvjE65g2+1nc+5+ZtdPetCkFmH/zpfbhVsGT21T8WuDy8alefDKKQQayL0SLNiBJBLxxjABw4Ej7bwstnvvLX2RLl506u6AQ8+bNsw870pSHHnoI7+wvtw83yW1fvxVFI6I9d8lg1cqVLV4ubeqnJmP6jBn24SZZtXIl1r78cqSHWEi165og/d2cJ3nkOedg2LBzcNZZZ6GgsNCtotAJKd1Zil/9+jH7cLP8/D//yz7kSFNao29bo7tSnZraU/jJ4jewbtsB0qHKSG6g1/ggA1fSP/ZQ6slfcbwaMj2hQkrk9eiOKaMH4RMXFWDSxAF28tiYD5BCvLS2HAuW/j04QAOFTPZ4jh+aj4fnT7YPJ5RMLj+HIz4sbyN7hWtra1H899chpQ8PaiUEwNx9jXfqoIXrKf5JWLbx2AtG4wf3/Btu/cZtmHrlVBSNKHJGscPh6NTk0rrHD875JHK6dwWECBnFMDyV/JcNZ+3hbAa1ehDpZyFQXXccKzfsw3dpO+qFizfipXXNbCSSokYxKOb4zhvHqS8UapCoFSs6M84wdjgE+SVIobAjYu2aNaivPw7hefClr1ZFkD7UTGoBIX3ailgdA51n78Tpp/XEt+fOw02zZqFv3z7h33Q4HA4HJk0cgD/9vxn40uSi0IQvGB5fPSmMPkfFH0dibUPN8xA82o76uQ1leODJ13HV7Svwg0WvRRvJcfxMR3L99OH47MShegCARK5z3ElxhrGjk2P4IrSiVX9fe/119dH3AaFUNk0Jo9G5p1ao8DwyrAMju39+f3zv7rtRWFjIP+RwOByOCHJzumDOLWOw5K6pOHdgL8DwDnsUA8vamb2ivDJFUwjTAy1lEJ9M39kQ94XAy9vew4InX8fVs5/FHQvW49lVe5tfAq75R0gKc26+EEVn9qY5G5TnOMrHEY0zjB2dHMsdQMqkuLgYdSeO61dwyvAlDzHFUigDmYxkupUE0L9fP9xxx1z06OHCJRwOhyNexozqg98snIbv3DAOOdnd4HHohDHZS4AcEHF4jEOmoRDaY8wGJJ/nlRZA3ta3yirxX09vwnV3rcQt97yExU+UYG/UjnvNP0JSyMvtgntvvViv8kGTXuxkjjhxhrHDwRjKZNu2bXSQ44hBHmLWhcEKFfoY7cb29a99PRRDrJJFjd6jjjkcDkfn5roZw/Hsz6ZjxsQh8Mg5wZPzWoqtZWXEOry8bi9vQNJgXLfrYBV+t24nbnrgBdwwbzUWLt6I4jcONg65sLF/uJ0ZOqQnbr3mAu1hd7QeZxg7Oj1SsnXLykTinfJ36RPPtFPfIH0yhKVaYki5LyAl4Alg5o0zG208wWnCBCa2w+FwOMLk5XbBPXMuwpLvTsWEIf0AIYJQiBaECXDIBWtc3lo4iiyoeytHR/Abaht6iYNVNXjujb24a8n/4arbV+DeRcVYsWoPKg9HhFx0gHo/eKQGPvdjLSgjRxhnGDs6PUKEldj+8vdQf/y4mUQbx0J4IU+Aspd9QAAFBQUYO/ZC4yImSkF1gNZ0OByONGPMBX3w8ANT8MDNl+K0Ht0BxDnxjqG0Hm9MQZOjQR5i00iWlF5QOoav47V9la9DYN22A/jZ8k34/HdX4oZ5q7H4iZIOWS+5orIOt9zzElZuKAuMupaUkSOEM4wdEXTuBlWu1xi1ykEEHmTlZFbKVXkXgE9d/olwek3nLk+HgWz5m4KWpXZkHBE7pndGpk0pwIqfTccXafUKxnQ7mJ95YwphfOaNKbg8vTiNIE5jp2UDWQI4+GE1fr++FHcvfgWTZi3HvB+uxzMr90THJieQZ1buwc33vYBdB6uAGG6YdEf1seTpT4In3K5nR2dEqFAAIWllBVId8cz6zRiMvH5w5AgpzubzL6Bij3t0746x48cnpdE60hUJeFlqmT/7VDw42eqEqHCt8I6bnVcO8nK74Ju3jMHSB67G+GH51F0ZE/M4bMJYcUKSoeOLYMJeizzOTdBAvyloDWFdT1Ji495K/PyZzfiXB17A9fNWY+HiN/HiuvLmV7qIk5JtRzF3wXr8/OlNqKo/CRiDAP6c9piefSHQBUBernpr0J44w9ihtjsWAvA8qLGvUieJUh5pgZHVQ5UVcdsgnGzw4MHqgxGn7HCE5UBANpxSHSiCSZ3NQzLVmdqjQyFpfXXhGbLk5GDYkJ54+P7JOrxCO3HUKKLR5Dr9jbyOiSrBLCn1hiMCQbiF2VY9KVFRVYO/bNiHHz35d3z+u8/hlntewhIKu2h2Ep9F5eE6/GTxRty+aA027q3QEwdBhrr5OVNgz/4pAEWFve3TCccZxp0eWodXSkhfwhfKOA5WjewsBPmtra1rkeYUAM4aNMjy6rTgBo4Mxhwo8ZrXoKX/zHSxkTLWVCFHpuMJWg3Hb9AOC8CNuxkOr7j12gv0MZ58Zg4jGmhinRQitDRbW5FCqAl7CIxuD5aHn0IteGjjCYFdB6vwWwq7uGr2s/jqPS9h2fIdKNl2NLjO4rUNh3Dfg8X4/HdXYuWGMpU/I14arG3oe0YYd0ZdiiTmKVm/40hZVMOSQkkeN97g5VRnQuW5pcsCSUj4DWqN46Dj6ozl54gNe4mVXCj5ilPKhIDvO+O4M6Jq3RhQsczEKTqdgbzcLpj1hfPw7KIZ+OzEIcoApnOqLwv6NQHDmE2Qjpa8zJu5HTN5ru105l+PnscHUHqwCo+s3orZi9Zg0qzlmPvAOixdvgMvrtuPhYvfxA3zVuOuxa9g7fYDyvimPkogMB7Bm57EO+JOEzg+nMvtwvPzrRSJxxnGDq0wANreuNNCpUAx13FBLfbcoiI6wB1XZiknR9sRAISXRZsLqF0T48XThpHD4Yiif34PfG/ORVh811SMH5qv2huFogR9nEIicTpakje6AcE9OebYTMPbW4MHPPQ9i55NG9UA3tx3GP+9eit++OTreG7DPhysqtEhIB55xdkwFnQvXwj1m3F3XumBziMxID/H+NY+OG3rACCpLXEsG1QoRWa1r/aBWu3+/fvtMw5HI84qGKTXRI2XcPfq6Eyw0RM2DYgWyFBnYsyoPnh4/mQ8OPuTGNQ7T8f/2qUYUaKtwwihEMYmIXx//u4bYQ8c1gF6Lm1U071MrzffUxvfxjkfFLZheMF1nHOGyIc5YMjL7ob++e2/o6wzjB14Z/9+I1ZJvaJRjc1O2TmQaKnWFKivT8xMY0dmk5OTE9POiYWUwP7y8pZd5MgIlC7ycM4559inEubxzFQmXTwAyx+6FvNvuRR52V0BY8UGJHByml7XmOqLJ+TxMTayssiA5XQCgfGaxc9GE+lMwxd0D3NinfnXjKn2hFDpjN9Kd0zP+0XD+4XOtRfOMO7kHDlyRH/WI1hzoGlYiUFTz7zXNRopkZOd3ULfnMSB99+3DrXsDo4MxhYFEXGsKYRQbyQaN0xHWhCuq3ca1WVzRNV7S67v3EybXIAVP5+BW6+5AHnZ3cxeLESsEpVQ+jzeIENeJcK+X+QqT6ZRa5+zjkWdt6/T36N+Kw0R9I/LfuzI/laK9iGqrB0ZiNLDVlOVQGlpqU6gm5IIGpYwYpYkeZMBiT79wtseZwxC4Mwzz6TXN3EqFwm8+67aQlqTIYrJ0Ub0m5eg7fXqeToQt3QpK3rP3r2GTLVANh0pQDBnYX95Ob3ujq/rFXRtTo4dV+nqvyXk5XTBrC+MxLIfXYVrJw5VLYgrxYxBNo4xguJ39eoTrvSThk9145Fx/ImLB9lJ2oX4Wqcj7VF9qtGcqcPeuHFj9HnTMyGCeGPWF337ZpJhTIY/Za53794tm8QgBOpOHMfbmzbpQ/Fe6shwtBwFbev0nj1bMMFTLZ34j507jGMtkE1HSiCE6uDXrV8HQDkZ4kJKeJ5AQWEBHXB13xYG5PfA9+dMwLMPzsCUC87S4QtgjzC3V9OxQUaxbziPEhWG4Wgacz7GxKH5yO/X/vHFcIZxJ0YI7NxRivL9+yFpwztb3fK8V7UKIx0TAmcXFIbSpT9KGarl1oDCwsEtdMqp8nm5+FX93TmMHZqQpxcYNmy43lo8PiROnDiB11i+dMdtt1hH6iJQX1eHf+wsVfUeZ9VJAZx9FhvFhFMubWZA/x748V2T8OjdUzFuaD6E5RGGXUXU5uKsNkeCaCCbQwL46vXBWtXtjTOMOzF/fu4vaJA+skjRanVLrV9CQkoKoKCTEsDwoUM5ZYYQ9hAUFBage3b3uDsv5t3y/SjdsbMlFrWj00AjLSlRcNZZNOCMT04kDU1Xrl5Nm8/wdfFd70gNnl6+HMdPHNff46l/AYGBAwfYhx0toQk9Pvr8PvjF/MlYcveVGDuU1sfl/tAIsWjguGHyXjrDKTlwC/mXyUUYM6qPdbb9cPXbyeB1iletXImKwxXwhAcfymWsX++Z+loAQvrKdqRTF4webSTIBFSGzTeUQwoHx213cLlISDz522Woq3MrVDgMdCiFGoBdOPZCQMo4X6fTdRI4fuIEVjzztJ3AkQa8vfktvL11KxlpgkJpmq9/CYlzhvMa6Xyw+escBnHo8THnn6EMZFoDGVAGsmCvJYdSUKiFchg52hsBYGCvXIw5LzmT7hhnGHcaVDMWwkNxcTHWvLxeHeUNPaytJTVSbUkKCr3qddppKBw82E6VEQRvvCVGnX++dTYaMluokxM4fuI4HvrFL1BXX28ndXRWSLCkDHrokeeeayRoAqlijPl14uYtJVjz17/aqRwpzP7ycjz1zNNG+IyElLxTZtN079YdF467MHzQhdG0G7wG8iN3BwaygPIe6/oSAp6xHJuj/fABHKyqwd2LX8ZV3/gTFj9RgorK9nc8OcO406As2+LiYjzz7LPqkITe0AO8U4/Wt/SZFDkfGjlyZOYrZSEw6fLL0b1bd/tMI6T+n+qsJIDKygo89PDD6rW3wwEAVtz5RRdNjOtVOoTajdL0T6168UWs+dvfQskcqcn+d8ux+NFfof7EcV3bygEh4npjcF5RUQx1G4fsOGITWaYBo89XBvKSu6bisxOHBINbOt/M5Y4EoQ1UIVBdfxK/W1+Kz921EncsWI+SbUfDiROIM4w7CbW1dXj66afxzLMrAp1qGb1hlHfD7rynXHFFVOKM5PJLL9WfVY7NgYOBUP90hyeVcfzwL3+B8vJyO7WjQ4mqwGQQbjNjx41Fz9NOM87SBNBGMsbx7/TKRqpB7KoXXsDSpUvDg6+oNz6ODmPN3/6Gn/3iIRw/ruKKtVElgjkb4Lo3keooAFw7fYYtOo5EEGeZjhnVB/fMuQjPLpqBGROHNlrizSTcrTY+72g7gozWzWWVmL1oDeYuWI+9+47ZydpM1he/+MUH9r37jn28SXqdfjouueQS+7AjBZDmKx/iteJi/PZ/fovdZWWA59GkAgFPJ1NhFNr4YyNPT8pTf8eOHo1LL72MrlFGYEexa9cutFRuh559Ns4tsuL1IuCsn1VQgNeKi3GqQS3Oo16neTrfwXeCwlE8z4OUErW1Nfj7G2+g4lAFBg0aFLEWqSP5RCzH1EF07doNO3bs4CYHIZTcQCjlzx2rkFDT70jWPE95kQ9VHsZrxcXokd0DhYVnpUSeOi+BPty5oxS/+8Pv8eYmtRRmk0jSG4ZOgfAgpI8xo8fgMh6cp4jMdjqoWvNyu+LyiWdi+qRhOL1rd5S+V4WTpxogjC2fg2vUusfcM/B5YUhJx/aemcPBD2vwp/V7cPj9Olx4fj66dUuMrzeJhrEThXaHjOLyd8uxr2wvXn31//D0imewueRtHD95QnulIDx4oNAJUsa+oMVqyEus9LVS2AIS3bp1w6ybZhnGXcfWZWINY1M2gwkWXbt1Q11NXfA7Qpkrghx3Qnj6daiQEsLzlFNPAp7nwafbHqqowKuvFuPdd/ah6sMqnDh+Erm5OejaVW1T6kgyVL8dbWgUFJyFN974O+rJo6ifxnAa8yBWy54AfAlk0eCroaEBO3b8A+tffgXvv/ceqmtqUFtbl2HrjKc2R44cwf7y97Bu7Ro8/cwKvP7G6/igqiouFak3UKJBtRSe1tFf/+pXlb41ZTUF5LZTYRV1Xm5XXDiqH66fOhxD+p2OXe98iNr6k2oNZCnVuruGUQyEt2f2KGTRdDw52s6uAx/iz2v2YGj/3igclNdmc1M895e/SJ6IFS9nFxRi3rx59uFm+fZ3vkOGl8K9akgkbOT61PFT+QouaGqIusc1ruTOl5CQ8KgjBinrKz/1SVw747PBRR3MqpUr9QTCeJn6qcmYPmOGfTiE0lfUqqREbV09Hlz0ID46dkzLriqrQHr1DHMuYvLwSS5DlYpPBNe5NpAcJHDbv96KohFRg6KOpXRnKX716/8OR5xGyo8STuEpw0la7diDgE9tX0j1ul7Jl5Ow9oXdCKp5c6M2VW3TKCOKVzzg+pr6yU9h+meb0LfOsEoZit84hKf+dwc27jsMGSM+VZLR3BDjvKN1+FSe3PQA4NZrL8CsmSODRObJOEluHQnVoNmr5kgARm8qoFaQIBstEAZBngkIpUv51Z1U1/M6xaxnVXiAUtFSCPTv1y+ljOL2gydIUdkIgZycHvjnmV/Q4SkSSoY9SiOgjGJ1mYovFp7yGghe8UPSSrRW43RtoP3h6lR0cIE3+nmJohFFmHTxxJAsCCG0UWy8ZFfHfZ/adiBMAgINZFgJCEjWs41/0JFwVK+r9S0buHEXfVBP7J4YkN8fU6dNs5JZN3RGccow6eIBePiBKfjV3VPxTxONNf6NOvNoVRnPxR4nFI9DVaisJYDHVm3BilV7g0TcVFpQ8Ek1jMk0U4aZa9cJgmqb1iEWbOCa5cuv/qWvulpzljulFRDwyQshpK/bdHa37vjXr3+dvrNktUDC0gLOj7G2qFF+I0aOwCUTJ5rJVGMU0NfStCl1na8MYh2qQoMVrhY2dUJ15GgXVLlzQbdCQyaSRvWt3iJcc+0MDOjf3xh8SRpU8XeVETWAJQniN0PkaxbsoZR+IIcdlM3OhKd9/dz+PVUHjeo6GsEySvXVvXt3fOmfv4ge2dlWQvOGrmJTkdHn98E9cybg2UUz8KXJRejZoxt8qi2uMZ/CKMhl4mgj7DHm9uFRv/uz5RsbT8qLs00i2YYxSEBIldunHK2CvZukpDmwVU+mI2g9YiF98kYFgiJowXJPsJoPBi4zb7gBffr0oe98x/gWp08fAivCnrjIzJx5I0botWd5cGEaXsrzo7x99j3YW6w8SdrD7Gh/BNWMNLunoL47HHor8bWvfQ3dunaDkFDypUMm+G2E0psACR3lgWYDaHmSJGOO5OAbbVmFU0mAJ1HGA6WTpHumX3MtCgqtLaAZfU+nPVKZ/vk9MOeWMXj65zPw3RvHYWCvXICMYc+svXhlxBET7TGmv+bb24eWbbaTx632k2oYk86nZ4vzCR1Nw04kCbWDHRkCamJYkAZCGAMS7d8EQPGIdBOzjm78/HUYO25cZAOOZUCmL83lR+ArX7kJ/fvlq3LiiYkUX6zKMxgwhMpX/w3WspVBQ3C0J1L941CioNCbq+/k0rdPH8y57TZ0694dAlJP3AT1n6r1KlT8sTqpklG7VQkD52JqZTEjCcImlEEMAbVpUpz6US3dpnTB9Z//PCZNmmSeNT4rHe5IH/JyuuD66cOx4qFr8eA3P4WLhuZD8ooV0sWIJwqPdifMssp0U1llq73GSTWMHe0DG7PhY2Glqk+btoFGda2B/Stww+c+j8tYSbsGDADIyemBuXfMxYB8tT2l5DhOQd4iQk1mlDruSSWmP9rgaRxz7GgHhN02UrXQJQoKCzH7ttvQvVu3YDAqVPtT8qWeXRnFgWwFZ+h8o/btaC+Uq4ELnOuMZExSM+fDPIBuVEESl158sWUUI4Vl1dFSJk0cgIfnT8aziz6Lf5kyAnk9uoUTmP1H6IQWo9DbBfMcE9m1JxB+Lvv5Qt/b4W2oDjvhMrLKSk/AE6ptcVkJAC+s36fTtgRnGGc62tsklRjpeDaKgwWtZIGgZd3w+c9j0uWXh+/jANg4/uY3tXEMUBkbnnvVQIO/XPSgEJWQwexwALp7KSwsxO23zUZ2d7PjVAKm22nofYROERhk9klHu6LbuYFa2EZNalbGswqxktKH53lcYQCAGz93HWbOnElXOt2QyQzo3wOzbx6NFx/9PBbN+SSmjBqkul0htAGoVs0PDELVRysdwEYfw98llHPGNF4TEcds3oN/1bcmEOrujWKo9fMmAim1kcrx2aodqftLI5wCUG1OpwGwaVdlq5qUM4wzHcObKSVP0gniYLlRAgI9unXHbf96q/JcJEqwMwgukh45Ofje3Xdj7OgxAEDLLFFIBRnHYANYGAaLDlXxlCJxRewwIQErLCzAd+78TjD4Ijnhbk/Q2x2zEwx3RJTOteH2R1qWgXFYeYhVe9e1J9QkZyGA7O7dMOtLX8alkyYZysC6kSNjuWziAPz4rkl4Ycl1eODmS3HewF4ASwAZhPbkMsHeUbqHR6EZbDgziVoWjnY3AFjUefUbS7dI81kRTDxvM8Z9sgA08OCAlqNkOHbbPld64INWNalElJ0jRWjkRzKUNp9R8kyRxnwewJCCAnz723cGa70mSrAzASoju0humnUTbrzuBnTv1lW/TjW7N57kKMDr53ECCltxRewwMQSsb9++uOObd+CyiRNJmIK4VUlJ2TiW/HYiLGSA59R7e0M+haAp84BFAFLXEXn0EHiW++f3x+233oYLx42jarWVAdelI9PJy+2CaVMK8PjCaXh20Qx854ZxKDqzN0Bxs8F7IkWDYfjpHfbYYIRSCIlq+Q0kidxdCREsDelbHmV+poRKLhngA3vlYtzQfPzL5CK8/uRMvLZ0Jl5dOhMvLrkO99+sdoeM6lKlECjecMg62jyJKj9HChB+wUHa2lC6Aryrm1LSymvRHTd+7jrMnTcP/fr1dY5ii8CAjS6Yyy67FPfddz9GnHOubpTC41devnqFGnLvsWe50TDG0WkxZMtogDk5PXDjjV/AbV//V/Q6vZdS1hQaxe2bUweyFITvxL0ygqPN6JI2DBTBOpj1r/SRnd0dn/7UZHzvrrtROLiQr1JEeP0daU4Lm2D//B64fsZw/IaM5PtuuRRXnj8IgGrPkjynbJCyR1eC3hBJqQbECWr77IkVxm961IfZxiOnSaTksgF+sKoGm/dW4C+vl4V+IC+3C55/ZW8o7ISfgf/evfgVPGOuaxwHSdwSGnjxpZfsQ472xOw1JWiNTWWkZXfrjk9Nuhw333wLhg4LFiW3vaKpSmK3hI5NUB66EPUfpmvXrhg/YTzOHjwERw4fRtVHH1EaSsTL40kJ4TW+3tH+TBg3PoW3STaEwW6AQnmPJ3/qk8jLOQ3vHzyA+uPHVTOmQa66XH0WUeuYO9oV8zW2esWsDGIheZt4H9nZ2Zj8iU9g1qybcd6oUdH1Qytc2CLgSGPaUJd5uV0xfMjpuGJSIb4wrQijh+QjPzcbR6rqUUPbUPPtlQqg+F76nAjMrkqQcS60kgmO688JFmCfvOa8esvJUw3o1bUHzjv3DADA3n3H8Is/lahnMwx5WF7fbWVHMO3is5GX29U4Gpvkbgn93e/YhxwJh0SE1iWWApA+xRZL4OzBgzFh3DiMHT8eOT162BcD5LhIoGy3C+21JXRsbGvW/B4+d+TIUaxftwbbd+xA1bFjhkJRnWQQc8gvWR3tzW1fT80toZuFx2Icvw6Btze/jQ1vvoEdu3cZ6SQ8z1M74+nGy92Fo70I3ghZZS0lIDwMyM/H+LHjMGnSZeiRk2NeGgNbzzgcjak8XIe3th3GW/+oxK79H6D0YBWklMjyBE7JdggFIBmXpvFLf7WBbqRJ1O9HajApMeLM3pBCoPT9DyGsmGrzGj6XJSW+PXM8rp8+3LhRbJxhnEmwTpXqdUfX7t0wML8/zhw4EOcMH45zR4xETo/skFCnK8k1jFvfWZWXl2P3rl3YW1aGD6uqcKiyAiBvXyjEwtGupK1hHBMlk2+/9Tbe21+Osnf24YMPPsRH1R8baSK7FUciMVRDdrfuGDCgP84cMBBnDhqEoqKiFH5L4UhJWtnVVNecQtk7x/DWtgrsLv8AO9+rwqGqmja3/tCEOjKKiwadgbzsrigq7I3LLzoLe/Z9iJc3v4eNZZUJNYqBwNiO+m4XFRvBAHDR0PzQcQlg3k3jMGxIT328KZJnGEuJ0tLdgFQejVbUvaNZBM7ocwb69ctUZUxNQUocOXoURw4fadFGI3369kXfvme0TvO0A0ePfoAjhw/bhx0JxPd9eFlZOOuss5Cba3rsTJ9CBmF0HOXl5airrbNTOBJI33790KePeq3rcKQSNbWnsKfsI1TXnsSefR8CCHxiALCn/AN8VHsyfBHo7ZQncFp2V5w7+AwMzM9D/345GDbkdOTldrGTayoq6/DCunew8rUyHKyqAUi7xow7to3eGLBhaxrp5nEAyMvuiimjz8InJxTgsosHGKlaR/IMYyb02qn5QnG0AFPQ4hS6zkMKyZurm6Si4+KCI6kjC+1A4/w62h3Xph2ZjK0yze/2OQBl+47h/zYcwPq39mP3waqQ51qQZ1c0vqwxHJ5hrITBxnHRwF4YV9Qfn5k8JG5PcLwkzzB2isPR2XEDlw4mQoNnEuZrRmccJw/Xrh2ZSILUZXXNKZRsP4I9+z7Epp0VeP+DGu1Rbg6efOcLgTN75WLCuf0x7rz+uHBUX+T3ozlSCXpOkyQYxsZTO2+xo0PoYHlznWVqkWn1ESs/sY472h9X9g5Hs5RsO2ofCiEEkN8vBwPyoxcKaC+SYBgrGpkmTnE4OoqOlr2O/v3ORqcpb9KynSa/KYQrc0cK08j+6ggS8RDx3COeNM2Q0AmETRE8J0WbOCXiSCpGlFOHyF5H/34nptOUN+Wz0+Q3hQiVuRlR6XB0PCmhEdr6EPEavPGkaYYkGcamohBOcSQUV5bx0dEdF/2+7IjfdkSSKXVh5iNT8pSO6LJPQM/scCSKFFQJLX6keIziFt80NkkyjO0c2d8drceVZcvpwDJz3rzUIVPqwsxHpuQpHXFl70hFUlAsW/xI8VwQT5o48cIehuDOMWc0S1YACTTPHQ6Hw+FwOByODsYzDWC907YE4NNyPzJkLtOxmEs2OxwOh8PhcDgcaYkXREUpsxjSV9vVAnrLWpWGDWL67HA4HA6Hw+FwZBCeAEdFSAgICOFBagOYUFYynTMWjncTPRwOh8PhcDgcGYInVTyF9hYDKoZY2b4i8A4L8iCDDGK3bqPD4XA4HA6HI4PwAMDn8AmaVKfDKpSrGBBkIgs1KU+CJ+A5HA6Hw+FwOByZgadDJHwfHoRyBhsrTgipJuRJqY5KGKEUDofD4XA4HA5HhiB27Nghd5eWak8wL8QWWpDNCpvofcYZmDRpkv7ucDgcDofD4XCkO8L3fTeDzuFwOBwOh8PR6UnSzncOh8PhcDgcDkdq4wxjh8PhcDgcDofDGcYOh8PhcDgcDofCGcYOh8PhcDgcDoczjB0Oh8PhcDgcDoUzjB0Oh8PhcDgcDmcYOxwOh8PhcDgcis6xjjHvWNIccabbW3YM1bUnAQAD8nPQP7+HncThaBV79x1Ddc1JCAHk5HTF8CE97SQOh8PhcDjaic5hGCeA1zYcwvMv78X6bQfQAMAzdgPMy+6GKaMH4ZrJQzH6/D72pYo4je42Q79TUVmHQ5W19tnGSEB4AkPP7om83C722c5JsuqKKNl2FP/7yj6sf3s/qutPAEJoGcvN7oapFxbg6k8MwZgLYshWkqmuOYWyd45B+jKucho29HTk5TjZShhJls+kkIl5SibpXn7p/vzJxJVVu9PYMI5R6MUbDmHPvg+xaWcFIIANeyrRRRjbRqcoAkADgCwAUkpIISDIqB0/NB8Pz59sXxKiZNtR/Oi//46DVTUQAHwpIYztsX3DSJYAxg/ph3tnX9KhXmQpgWXLd+Cx57fapxrB5fOru6ZizKgWGl6GrLCn8+3tlRBCPUP6EWTo6ilnh+pw0k1PqYGQtT06SAayqBwFycO4Yf3jkq3HV2zFpr0V+p4+xTcJehqQ3HpCYOyQfvj2zRMw9OzTQvdJNiXbjuK2RWtUm7JPRrDElq0YOkYjgYrDdXh1wwHsfrcK7x+txsEj1TjwUa1uu+mEJPk4BeDRu6fGHjwjumz27juGt7dX4q0dFfio9iR2H/gQHx0/mTZxcCzT/JcpXjrT+AYsfWoHfaI6jke4UgKuNH5uiQvP75+UAWHJtqOoqKzBwSM1pHQFPUmiylCiuu4USt85qttdVD/YVkyxb05vph0RbRr05vnVNw9gU2mFEh3S9YPyT8PYEfm47OIz08JZxX3/7neqUFNzQkmfEBBtlr1kEbRbQGDsqP4RhrFBde0prFi5G79fuxPVdcqTFdVxpzwRnakP4KIow9gQ4sVPlOD360u1lecLoRS7cT9B9xLG8bzsrvjOP0/AtCkFwX2TzNKnduDR57dGtcfGSIlHvndl0x22RUWlMlxe3vQeNpVVauPQByCsAUg6IEmuWaZtY27SrOW6foVhBOvc8TnK+/hh+Xj4/tgKfulTauASkh+iybYlJe6cOR7XTx9un0kaW7Yfxe0//VvcdWuXZSTU7kq2HcVvVmzFxrLKoJ1Z8sTlny6GIT+/B2BxPGVBFG84hJ//bhMOVtUAtmFJhklMOUkhfABZUsKn582i8rAN40mzlgd5TBfdQc/JbdjWfUUDe+GfrxoZX18Qw4AyYb27+tUy7DpYpevfHJzr/jkBZShpoO9Tu5OUR9MWaAsSJMvUv2YBeNWSi4yBddz2D/D4M1uwuawSMPsSKmceRPbK7oqvT78A18/oOF0fRU3tKbyw9h3d99uyxrKYDrqJ0e0XwK3XjIot1yXbjmLW91/EY89vRXX9SfiUaU9K+OmUaVJUbNyCBDCmuqATCxe/qYxiABACUgil3Om7iZBSlQcp/ur6k1jw5OtYuHhjKF2yiZlHA05jFE+TVFTWYeHijbjurpX42dObsamsUhuV3MDZeLHLKZXRdUiNvNGjGw3f7HwY9p5IkgHRRIEuXPwmHn1+q2pHhiwKaqDSlFXjuDog8LOnN3eobPHj2UXUJLGLA6BB+E8Wb8Rti9Zoo1hyJVjyxG+A0gU2lJopAk11zSnMXbAe31v8Cg5V1UCSTHBn45O8xXu/jiYLQAOVAX/W8mwgpQw6pEYNMEUx+kWzD2DDcefBKix44jV89Z6XULbvmHWxhZ1lo4JNvfufT2/GroNVaDCSsmxw+fEztBVB8usrIQy1w5jGQwvQAwkhgjLMVIRyiMz+6V+xuawSDVRPrOMlDQy4TzhWdwI/e2Yz5j6wDjU1p+y7JZ3qmlNY+tQOXPftoO8XpI9NWUu3ehQkyzwgF+wAtXlp3X7MXrQGh8hTAW6zhufD7LxTGWF48bjqGkzPbwRLntyClRv26e+CGjCPaG18atQ+pQMJ/MoNZVi4+E07uSL6pxNGvDpRG7Nx8NK6/bjpvhewckOZHmGBlZuhnJsyClMRsyPTnji75yb54dGwPkx/dTlS584DSZuly3fguQ37INgIoHR8LZchl6AkubLldeUbe/GTDjSOtUJsDh5QiNgyX11zCnN/tBarNpSFDCMuE5h/09Ab4ZlGfjPs2XcMN965Ug84dXsyBlxemuWfDV5BsfNZpgFs4LFRmWb6A5Q3hvPmUTsRQmDnwSrM/skavLR+v07XLEK1jcVPlOC6u1Zqvct9jd0X2Q6rRJZilsoIQHmSiTJ+qE+1jatM5KeL38Svnt8KcDug45xrT0rVjxg2C6TExn2H8c0frUV1BxrHe8uO4eZ/exH//fxWHKs/Ger3TH0kkF71KKDCgljXgtRPI/300vr9WPDk6/ZhSOrs2ejxTC9WCsMNzuyX9YjGa1yBJduO4vdrOdZNwcIK9hgbXnMW8Ab2KBvKwwfw3IZ9+MkvI4zjxj+dUOLtWzyokWojrOtfWqfk4li9Wo0j1BgMo5EbdDrIBsO5z6K8NMjo+rGVAB9jTxjH3TWQjNns3XcMj63aor4YhjhYltj4oXbmUzpO4xvXSCGwqqmBVyJpnBU9QG4OKQSUuym6TKtrTuHGO1ei9GCVfSosxIaMabkLzqYsPpWBQPONcu++Y5izcE2o4wHrXQT1ni5OCYb1C3u9G6L0DZ3X+ijd8mgYxGb/wDLrSYmPj5/Egt+8hpfWxWccV1TWYd6P1uJ/1pfq/ivL6IftErJ1U3Qptwz+Xcn9PTuADEdTWzGNRDtPmcKzq/biuQ37QoMmnVcpVbmajjcuX+oTdh+swr/956t8NqkUv3EIc366Fgfp7ZXpvOH8cF7Sqd8H58N0bNLxUN/20rr9eOAJZRRLUIURnmlEGZ7jVEcLoPHKWhuCEa3w8RVbGxmKHhtFhrBmUSF6rPi4gK3rJICVb+5LjgHTWqI6IaMI2ChGhJcCrKCt12xZadhIGuhflxgaP+ow17GkzoKVvC1DAPD087sCI4k6S2EMIgSMujBkib1RHl1j3uO5DUmQrcZZiZaZCATUqidRbY09xTzYYnRSCmFifDKsmAbjc6qi65AMmlhUVNZh9sK1qKay0GVghRcI0kPp1LZ0rsmob6RDGDICPPqcDpidqWCdR21XsF4w9YEQ+M8/bMTesqbDKvbuO4ab7nsBOw9WaY+qMAbndvnw+UTDz8/5Ee0QwqP76HbKQ0dTsu0o/uvpTUCs/Amh2zaXd+g01e+mskpjgmpyKNl2FHcveQUf158ADMeEKffa/ol49nSAbTdz0K51bkVlHX7+x426w+PXdya6MLRhmegm0j7wM5uNL6pjqaisw2aaSGbCisHMLQsHn28EGYyC/q3csK9D40KbpIlOqHjDIcx/8nWdRy4DXRY88YTuYaYzBwmpDj+vXc8mMUvJKD99fcRNVr2xNygfal+SjF1Ybc6UQZZXCfVb5nMEstXOxrFNEzJjo/JqHwUWLnkj0lNs54+/86t2Lpt0ki8/alBp8O+PvIGa+hONdY8gR4RxLN3aFow64wl4Ec1DY56zyyPV4PbO/3S9WH0jt2FIidrjJ3H3/3sl5qvxisP1uP0na0KDJI+8igLqHmY7gPEc7SUXkvLQnr+RiVTXnMIPH6P+k0MlrDTm91DbIBmSFH4EAI+t3oK9zcWqJ4iKyjp87+FX9PMIo+5NGeDPYYlPD8w2JA0drfP374+8oV7h0ajejJli7AbROEXqoRUSwa8hPT5psGdfle7ATKM35JlqbjBAyqvB8yCsSX4q5jiGcdzMbduLpuqwuuYUfvRr1ai53MxGwmXbhRq83YGnE/wqpb0o2XZUGQVSqjhRs30Z3iTGDMVgZWrGbvOzSjr33IZ9mLtgPWpqozvbEClQSSXbj2L91vfsw5Hw4/JfVl7tWV+JpqkB10vr9mMTTcYxjWcBin8zBkOx7pGqsN7g5/fUwch8cBrb4IuqZ4k4dHES0eF5ZMCGBo6kH3k1Dl9KHPqoFkuXbzfuEHDPf76CmuMnw/0WexXp3iKiP05XfKPuU6dGE8PS5dtx6KNa3Y6zjL4SlF/W4Xrgw+eNlT+4XIQQ+H9Llfc5hFlwrS1E67p/f+QNHDt+Utsx9m25/2fMtmpIf0rD+siWPw+0/BLPBBdU+CHFQ39ZgFnZNfVqMFVgoTNjNnUerJre+24VICV84/WlNAWTFR7lP0oxsUeki6kcDQUec0JeBxWlqZRsfvnkW/iIGga/CjTzLI34ag4LYGLdMxXxaSDD4THtQeXhWtWZUXiArWRgdw6WB17ADAEK5JNjDQW9artjQRyTNESElmsnoowaAPjNM41DlpqFOxOekJhChlFzcB2FDhCP/XmLkg3rNMuBoHKUVN+sp9Mh9xwqZD4vv7a0YQeErVfNtHwvUyd1ND7pfa0DqY/wSVbBMYxUl6wnf7++FBWVdaF7rVi1B7sOqX6Iy4GNI+6/Mg0OFYHdRtINq0FWVNbpla04JpvlBOwkIVluUIlUWsO20gNJvl5KbN53GC+tLTd+ySq41haicR0P1mGE+9m2grR0sDDabjqEuYHaZ1R/7AHA6vX7dOGHEhiVycrYt0Yy6YAnpZocxwrVUE4mrMTMuE/ujLW3jifYxeiUeUk386ytwFMprMJjIbaesaKyDitpsoCe/EP4RnlIlgPrFSkPnlIdnxQze3za66nfr6xuLBf81zJ0zLLWMYVkEKkERgqzzUqJXYeqMDeeGcyNxb9d8CLa2t59x9RAvAVoo4D0lD0QS1W4rUhDvygFpM6/tuEQDn5YrTsS3QGxnqK//CqV9ZOWizSAn91jfcGGgIWZH61/qdyk+qDvgeSJcLPwM0mqF9DnkOyz7NJzcz0/8XTYa/zfz9GmTIZsZ0mJkzxASBO9GjfsTafPaY0lkP/+yBshg5JlWBvA9Fcby4R+u6CPBNfzNY/9ZWvst4MJKMZH/6wmiXP4mjTkHGZWDSeq5HYbY9WZVEQYq6xxPoQgXbR+y/4ggXkVJWbDR1CDF1IGr45SHDZGOG+2kRfCmJ2oK5by67PBbK0+ARIS3flFTEoUjdtM02EVSSQQ9HBtPrN6V+i7NoTNmeOUL99o1NyA7cFAquLR8wtDgbUXLBch5UIGXoNRxhpe+g0kh+Rl4HOcWitVUlKlB6sw94dxGMdJQJDMmLy9/XDoe1OwgcTGFeuf0IAgheG2IkB1iHC89ebtFRCkU2DoKtOzxN5RD6refcvLltKQU0JwSBDlxW5nks5xfYd0KPdNrFMs/dvRcH2Y/UbU0/Hk7QY670mJVRvKdDt97Y1D+Jje0GldROXV1fIqtreuShbcnqXhUc8ESrYdxaaySjWAN+s8Qm5ZNzAhnWGdA9X9+1U1eGbl7tDxcMfSeoo3HNJL9fIt9VsbqRw0pu7lNg3W0xF5TGUaoAxkQXpXSkAcqqiRn//uSqWYjMTc8AQCReQBGDGwF3J7dFOJ0qAQRCgvEhxNIgGMKOyNObeM0WmXLd+BR1er3cikoejMsjGVX9HAXqHdh0wBMRE8CjQEjZkxcQjumXORddT60VbAO6vFg5ASi7/3aYw5/wx97Kv3vKQmRhmGG7gDMAwTjx6T88XlowcT+o4pjC3HUmLJ3Vc23vmuBdjbjeudCA0jUSs/w7DlZzmte1d8fFxNvjHLl89LOsbGknkt10HRwF54+L4rEr6taMm2o5i9aI19OJqIsrx3UTHWbTsQShaLvOyuKDqzty4D/isFe/nTQMIEIChya+5N4zB8SE99at6C9dhIaxZTUv3XPjagVy7O7JML0L3SIOeQAhA+yacA4AeGsb3raHNtzNav9vdUwCeDl/tLjXGM03A5LJrzSVw2cQAWLtmIlW+UATF0qolgeTgj1zqTnpjybMtFOjL3h+uxea+ayM99oVn33N9IQ455wM80JQNCSuT26IYVP5uh9LupHNvYJJY8WYLfraPNzWzIHtD9kXHc7HvSES7/f71mFMTbWw/L2x9cA2G+tjXK2DR0pBBYcvdUjGnB1sEpRxMCtPSpf+Cx57eFKtcU5NAlUuLFR67H3B+vQ+mBDwBSco0EBmFh4oZgNowZFw3B978ZYRy3gZYYxhLAI9ZWtZfNWq76MSP/goxi9lzya51/vfYC3DxzpHHHzKO5TtvGNoyXLd+BR1ZvbTTQstsd8+CcT+LxZ7eg9GCV8tIbr899SsOvH9k4YNnitxqStqR9+P4rkJeTOOO4JYaxD+DRu6eGthufu2A93iRvSmhAEoFdjplGSK4ivKmmrNx6zQWY9YUMbWcSuOzm5bp9NBqsmo4K8sItsQbzqcTcBeuxaW+F1pvsGDH1J5+79doLMGvmSMxdsB4b96o3CEzIiLYMqIySh4j+OF3Zsv0obn9wjTKKYfT/hh43nWRmH8A2gqnnud75LRG/nRBS4tZrRydcBubSYD0eQ33C0Hw8lIH6Wb+FlYa7nCsE3GEbr67SXnY5A5EZoREPFYpWxGbeucCEQF5uFzx87xQUDTojJDSNMEZYgr7DaAQdvc6xCB4pdAxc/6bhJQLPpE4bM+MORhq76ZhFze1OciL6nJfTFQ/fdwVGDOylB1WsLLNMJWopLlivnTs6rEIZMuFjOw98CI9lqbPDryVN48c4zSWU6SVVU3dK6VBDv9qw/AsRTHBLWUhHSsoThx6yzPOrWwDY9I9D6m9ZpWrrvCGOoX+5bQtq241LJ83JoAz9+pmtSl/TAM6scz6uY1pJj48c2At33jhO63nQX4+M6iijGELg92t3totuZ3nTn7mPIjw6LjOo3ky8Pfs+DGUYRqcLo4BYKaWyLkoEpiEYZcjYCpuN43MH9godbxYqSEH/mp2Q187l3qJ6zUTF3IHIGIooL7cLHrrvChSRbEkjtlRYA1iGj5nnSg/GOSEvSdRQiEhLRC5jsYyeqLbld4Ky2lP2kfoQYRDDMJhZJ6c8Rlv2yZCXMdqsnWfPC7+qtq8TnUAe0pWSbUex2QiNilnfVjv/1lfG4/rpwzGoVxAaY+oDadhl5vHq+pNYscqKNU4wsWRN6v9lHl513Uk9sonKIysk7pRjJkwH2um583K74OH7rsC5A3sHFmYsS5OD8Vu6znF0f5EZxCgqRyBbRQN7qabH2+qaEyIQyBt7FLqIQCkLADtaYhy7+kgsbSzPtDEG46WF5eEj2O0vbdQgPSi/dTQONcbqKyR7FY3z6s0L9cWx+hZHh/P4s1uDkDdjwiz3+1GMH9JPh5p9+8vj9XGuZf5rXq8Hy1Lisee34pC17J+jFRjNyuNXPj676M2ECI9m1XVqEkXatU0ZlbnEkZfbBb+8fwqKzuytDJIYng+fPActXuc4k4kuquSR4rLMxvGIgb10SBO/wdHQcY6/PGWEbkhKH7fnWKROmaTIY7SNWPIdR+Y4iR9bpaQfLcwHhxqZbzJTvgOiCZLcBrlv1YYSIQCc2e80AMBAw1voU1gNvzLnmGQlBy0sQEdSKNl2FG/urUQW6WBd94LWrjdXGzH+/mD2JfQJmDRxAMYNzdffTSSU7Jj3BsnWk89EbxbjaAFGvyee/ON2+ejqraGRrZlGH48xczJdEGQ0mPFZ44fl4+H7wysHxDthDQCKl860D6G65hTm/mgtSt//MLKcBC1fZJa1jOgrZkwcinvmTLCOxk9L87LEmnzXkslm7TEJZO6C9di8tyIUQ9ueCJZ1nmTahvJAxKSxttYHSLYWP/kWntuwTx8z26lgOTImewop0eB5aqY85a/ozN5tWq2iJZPvEJGXlpZlSDfx5ELTSEphDF0LSNlowlg8ZWFO1LL1dNoQ0W+Y+jOWTAl7ciq1Twlg5IBeyMuhFZI6CCGgYoJ5YEorkJS+/yE+pi2duV36hq7ndgoAd85Ur9HnLViPDWWVepIeKJ/8hkhPVo2YpJmy0DOPJ2Nv/Mj+uPyiQRhmrMwSSVSnmMpI4IZvrUblh9U4RXVjt31T/lmu/yliVaqSbUdx+6I1IVtL34sHVRH94opFMzAgv4d9uMXMXbBebe4RB3Y/12qM+l721A488ryaqJ4MuF/k9vbIXVODyXeh17JGJXCHqjsjo6LSiQYoYeLwBR+m1CaOvNwu+MX9V+DcM4POT4BmllL52RWuFaVBk2EVnQFS/slCsjgk8TdbSl5uF3xvzkWYMXGoVpA+nfPYqIfKA4u2LwQ8X6Xy6HvcnuMUwaP24UPlzeP2nAZwPLigsje9hfHgI1j/FrZR3MJ7dRjUln1DD8aLhLG5CUiHUzmUHqrCprLKDv23YW8lNu07jDfLKrG5rBKb91ZiY1klaupPamPG/JfFup7LRAhceH4+IIFxI/vr/pZlxqPruN65Dej2kOqQPn2TyuuxVVtw0wMv4Pp5q7Fs+Y7YOih11XAkf12/HwfJKOa6YqkVAIQVCiSlRM/srvjmLWPpCJ8AxozqgytGDdL1DFPfiXB8sikDS5/e3i42Tbsjw/Vtynsy4H0ppPGGJhiIGwlDMkkGcZaUOEWdLzf4dEAZwMZOLCSg9s4yiSQ3pwt+cd+UIC4UZBDH6MiE0YGadGbjWLbCiGgr7JlBoM9TknvmTMD0S4YBPOuZvVGGQcxl59Fxzg63gxbFHHcgZsdgDt5TuHpCsEz5eo5Gy56cDSOznpEuRhFjej6b0IOR8IpIhr5ujYHdXnCdmDHBpj7nQR23VcnPT06aQb1ylfdUAJMuGqRX/eFwCUnXskHMhjOSbDy0FjYGuXw4FOzQh9X41eqtuPnfXsRrG9SqHOnMY38q0QarueIEaGMWfuvRQLLrC4EvXTGi8TKapB7umDUOQLD5FMsZaw++v6kTn9tQhsojaRhrbKtE+m4fbi/YWWmudqPaFikqfhBW5PpCQ6GxZZ0uipkNg1AeaVTQngWvJ+SdaUzIi9Ep8oQqaShCZuWGMtz7YDGqY23/mKF4hhJNFjJC8aQq3589ATMuHgZYRqM5AORzgtursexilhlznMKyxXrGDJ2QlKd0QFKdeMYgvaUIqkdJBobP9Zzk9tFaeFCg668Fzy2N8D2+XhvYVtqOQJDu1nVhxICGapr7G+p0T5Hx+8VPF+kkw4f0xLgh/YIwKDamPC/wNKdIvuMli4w7zr8HVQY8WD9UVYO7Fr+S1g6gl9btx/sf1eq+wzc9urSmvIDq5wXJ7qBeubh++jnGXQwk0D+/B748pUjJPcmMLVOsF8xB42+Wp2mssZkxGc5T0mAbkbeEDo1ODUVuKl7+LkhZpVPjZIXCgsT7f7c3iVjnGADWbj/QoWvRdgS6808SPBrXBlfMykod7pkzATMmDg3JVtBi6TsZwx612ywKq+D0Hb3OcXNwfdgdQroYhaxsZUTdxAt7m8x8t/ZeHYHZoWdZTpfmMPPMRhV/TokmavUlkgyZSIzwsC5CYECvXFw/fXgoydduGK0/S/rHbzclgvy3pAw7kgYo+4Kf14cqM5ZfSW185YYy3LsoPR1Aj/15C2DUF/dbggeEht0kyMi99XOjY8/xoMK56cbz0bN7V/0m0G7z+reM8ly5oQwV6bhChZW5lgyeE4GpZyRPXI/RjEMIozEKBA00nWBjK5lPHs86x/w8sbxgoiUrCmQIiWwX3KGYHYvuaAgtF4n84SRwz5wJ+OzEofq77pQ5VpGNYpKjBsqf2bG2VLa4iJJVUma9mSTr99uENchtDdzRct0mW4e1BbPuBH3XRn4c8IBVf0/x9ikM4xd2n2kZhP98ZeAtZsaM6oMvTVbHQ/nmD8a2u+lgHPNAiEMpWJZB3lNAGUE+gHXbDmDh4jeCi9OAl9btx8GqGv3drLOoPob1wYInX8ekWcub/HfV7Gfx8XEVq873awqWhyeeTlOvMUO7xycSs61wOdp1ZaLltCl8ulBQw0caKKgo7Mwni7zcLvjNwmmYMXGoVvS+UZa6JI0y5dcufN4HsKuFBkw6KM5YSD9xr1K4s+JQILAs2wnTFPYc+whkyLdjOekzd1RtWedYysDIaXfIy8KvJ7n9gF8jpgns7WzTUlttubaD4DAIgF6pt5AsI4wEUrbr3JDWEup0RXhuBBuE9jP7AP63uMw6qphzyxi9Jj7Hq0bFFsfVeXcw0vCamuXC4SIqkUQXKpN1W9/DsuU7dLpU59fkLTYxdVR7Y8oV6/aVG8pQeTgNvcaMEfrXZrjf4xh3o25ivtmJt20Juokgj5MPoEszN04VuDOFEccbvC5P7vPfM2cCPkcGTBYt22ZilqfZgTYYFVt6sArzfrwu2oCxshNX5aYowjbs2gC/ygrFJSbo3qnCPXMm4J9otQppeSdgfOZ23LZ1jkWrjJzW4JMssA7y+PVsOsm3MXmqVTrTMgbZWEoLWAatQUG8zy+prnlwxN5Yrdc7Gt58g55Htz2GY6TpmRkPwM6DVVj6FBmBVoH88v4pOOfMM3TYH4cv6o49TWRAss6JUf+CBvG+obMeXb0VZfuO6bSpyovr9uOA4S3mPJny0N6wLJiyJ6XEjx+J8Lyng8AAANSCDwlxvtI9eI5c6I5N3D+uvsUzRv0eTx6gDivVYaMSxnIpHLPTVMG0F9+jV98+rfYRgjpO+6k8EhJJHcTO9z+MNmBCF6ZNK4hGJC7OiJWHGd+YDrLbUu6ZoybkmQM/ziUrTu6oWfbY4OA0pbFky4Q7udYYeS1ED2ap3YLaQzp5i9lb1mqJozoTLL/GK/lUR1BHzfq3NQMDQfovC0r2QOUQV+fV3hiGehYbJvYufTywo69mCfxuzU7V1qwK5ZWNrr1oCAS3U+rLtAy0oiyTjQCVEbUBbsuMz/YF1zP9/X9LNxmpUpP/Zm8xy6SVj0Q5dpqD55AA9CxCYNOeCpRsO0rH6Fy6KA3SE43so9Zi6k7jWFM0q1uEodhBn0U8F6YIWTRaEFaMk2qgTRdOe8FxodJSkg1kcLBxbBs4whhFNRlWIQHhea3qhFIG2bzwtgTurFhZqfrPMGRgHHPnycrAo7xLOs4l64s2rHOchMGFqdOFFovwICeVkSA5butg3LguXXQvuJ2x8Wjot3jx6Tr2hOkBbQp6TM3n0YM3DqUw8mxKQM3xk3hh7TvGkYC83C74/jcvwqI5n0Rej26q/RoTsRLlOGhvuB9rNOnd8CT7VH48EN6473BKTyLT3mJu21KiC+XPdMYlAz1YIpng8n58BW0oxYozlTGeT4D6qBboiVj4XCakh7RN1UzdNKtjuXHrkTGty5cu6MZGoyru6s1406RC9aJXFOBJUgCy+HmM12f6u6lYqQ5iGjDWbkxpiZJk+2ir4dcooUGenSjdoeLSYRVcjIaC0HnmzspQHPwdLYw5TgahwaIQaqWGBCjO9kYrZD7gt+6Zuc1zzG06ogf9nhe3t1PHp8LQi2RkJU47tB5zcMYyyrrag3pmYTg0zHSg63WscYwimTRxAFb8bAbunDkeA3vlqgFs0NxTHq6/U6xvuNyE8iRLy2HBjqAX1kUPGFKBx/+8Rdev+qN0kjD7mSQgyPGXJaUuNwH1XG+WVaJk+wdBwlTGeD5u44l4q+sZt5Y0sOTPTdGsYcyCLAxh5h9LF4+NLgRDIeX16IYRBb3NpMnBqOt75kzAjEuGqXhjMw3B5Q4WEnr+BiMMo/RgFe6IMGCEiKln0wIhE/P8LKdsELNXNNPhgRfYg0HHdYOnMmBl7kO1Dy6brGbWOeYOLGkYHlePOtJkdT5thUtpxJm9kZfX1TobHzywl+ZmRWmACKs8NUjwfYwd1t84GhsuO2Hocg9AbnZXjB+Wj/FDO/bfRfx5WD4mDOuPsUP64aLh/TGwVy5g9JHC6IcEyzLp89L3PwwSxSAvtwuunz4czzx0LZbOvxp33jAOV4wa1Oh5Uu3fhKH9MG5YPiZQWfXM7hpt1BuDdkkDqM07K6xEqcFf1+3HfiO2mHUnG8pJ1IqQpAsbaJDB9gFI1z/+TOPJgekA99uJgOVNe4zNN08xEE/8Ybt87HlyuTcFdUTfuOYCzPrCSPtsRrD0qR2IqyyI4qUz7UPRmBZuBAuXbMTKv+8Nee5MuFNoiqKBvfDwfVfotRFbmpcld03FmFF99PdJs5aHzjfFrWkgE3MXrMfGskrdUTdXnm0pD0TsId/W+mgtCxdvxHMbyrRc2XnnUTSHJkQZnLZslWz/AHMe/FuzZcjYeWlJWUoAr8XbztKQlpQFpETxsi/YRzOCkm1HMXvRGvuwxrecNOOH5ePh+4P2lWosW74Dj64O2js/fxQSwG/nX41hQ3vapzKOuQvWY1NZJdBUt2i8oY67j00iN8xbjYNVNaE69fntBj+7kYekYPyereNt/dscZh01h93PpSLLlu/AI6u3aoduc/3WkrumwgOCV/lNXaBHuY6W00z7uId2MRPWKzIeMWmvg+Whk8a5qLCKeOorUaOydEBXQzI9nR2Mimcfor9LKzbTHDkLRL8CbCRbUi0j1SKs5JFeowjiSZPuxJ3HiLrpLLABErTh4FwqYjePWEYxKE/VtSftw5mJtUwk93khyLBMxSo21y3WdWqG0BjzOhKN/g3rmK1L7XLTscZxkmlaRlorMIVOmF9hxMPn5nQLzfxuBCVsaKZxpxW25KQA/Orbo7AKEdUZGB0jx6l56gv8iF3MIuszBp2mz6XXTo2yS4rYj1LUac49cy7CdNohDxGz2TmUh8tEImj3fKz0/Q8xl5YJFCK87WlchDR3sMRVa2jtdSkDZ4DChUyFrPNmGQbBceOgw5FukJFi6ppG/RxIT5nfU4DqmlP4rz82Xi1DrwphTPDm0L1EIo0QANOZyUu/mmVqGtCbzFjjOGDbIuOwB1tm+A6f5zCUc4b0hm9fQIXqIxBQTxsMia3sDiEVa51WFPjsxcPgGWu1hpIYwm56+jj+EFKi9FAV5v54HWrqTujzTaFHUla1sqBkCpLLk8pKTypleBIIpRs29PTgXAbw/TkTMJ03mLGWk+JQCjMW35ykwOVWeuADzP3RWnxcfbJNk8AG9M5TH1opX3a7SDs4A8YOTzzQENz2rI5Ox4GnfeYdnRnWw6busAeFgm2NVuqH9uKZ1btRU3c81C59DvFhT6NUXmMREZLWGgxVoQxw8riznuB/7Gjg57E9Xb9uSaxxC9apb3sOk0GwGpPt3DXLl/tFABBvbTksb1+0Rs/2ZqEUNDrhgufzE4blY1xRftoUiYYkSQo1sUsIoH+/XFw1pVAnaWkcaHvFP/108UY898be8PqEhJSy0bI33Bh8I86J1/1sTrz5Wh2HRJqL46iaQwL4xjWjMOsL59mnUop5C9Zj494KVaaGbEcSEcvZoljQiNirlspWS+PC4mXh4jexcsM+3Tmx3Nhyxkio8uCBmASQ170raupPNFK+sbDzMm/BOmwsO6yVe3Pces0ooysQaAdnTNL4zBVnI79fD/2d25k5AAHpWsasn1uvuQBmsnQheF5SMJAhndFcjLGN3b5SjRa397uvxJjzz7APZxxzF6zHmzTXg405lggYrZyPtVcf21Kqa07h+jtXobpeOZykYRMxgWQHeRs/NN+4Sysxfof1ROnBj/Bx/QltgAtKx6tjsL4wdceiOZ/EZRMH8F1jsnDxm3iO+ojmSPV2CABLl+/AY6u2hPp8pYrCk/DY7n3k7ishfN+Xk2YtDyrVctezcWUKr2mIxepQUxoSpvFD8/GLNhgv7dloFy7eiJUbykLl3iClWtKN64heobD3jkerjHltLLgh28bLfYuKsXbbgVDaSLhhWsYmy0xKyAcNFASVkW94h2HKMZXfoF65WP7QtaFbpL1hbAjDwsUb8ZcNZbEHTlZdsh4wZawl9WvnZfETJfj9+tJQmnjgLPj0HE0OblIFq00+cvdUjD4/KIt7FxVj3bYDELx6iLEjpt2edVsLjqQ83KfwIJ/rUAB41dCfnd4wbsME1XTDlgmf5D7kYZUS44f3T5kJlmZ9cp/JsH7k9gk6P6EdZXTpU//AY89vA6gs2dupPdb8jEY5D+iVixVWvxbF0uU78CgZks1h/o7tKLHLqcMw9KbuBo3+w37OFQ/OUP3ap84fZLyqC2+GwZk2CyCtjWKoPMbbqXcIvFFDHOscc0yyR8dN7FjSKCSly8sNLyN14cj+8Qk1d9S8jiMfTpHylVDPpgd4RmgQI6CUiyTlMu7cBIzyUw1DNO6ZMwELbr40VL++8Zm9DsJo5w2k/H0eBMVZv2GJVJVw4flxypapsNijaiyL1NpQjqRitUm7SX5yQiGEuUYxrUlqtmd9idnhpQkNUM/tIVyH6ZQHR9sI6RYOEzTehrKzgs/7pGeKOmI51Qiqa0/hD2t2Asbz82c2irlvYYSU+PoN6u1OwpHArC+cp5cE1Eax+gJwGZOxymtEH6yqwUvr9pt3iuTyiwbFZRSD803PAKNM+FwqoB13li7lz+ZzDuyViwH9e6iynHxRoTayBHkszE5PimAN3SjDItUJVRAJiWcfTyVIJuNZ55iNPhs+1xyCOuNhQ2ipICqUq6ac3dioiQGXo12mpkLsKDgP0pBZs/GCFDNvGOAB+ORFBcbZDMHSAtOmFGD+zZfq01w2PiVhmdOdFx8neUGc7UdKieFmvLZQGxacSUq9OXT9kQ4ydVE66aBYTJo4ELk9uqnyJd3EAzRQfdjtkL/bx1MRXUdG3aWb17tDsEdQaUzIljAG2voYGS4wBuICwNWfClbT6UhWrNyNj4+rVUN4AAvKi2A9yIM9ysf4Yf1Db4YSCjWeb395vPpg7AzJz2C+eWI7QAB4jLexboJhQ3qif5z6OVQGRv2mEgKqDKKcuT5UefEb5RmXqbX/PVAnOWFovrKijVdeDN9YWIKQDnDFMTy64nOpzj2zJ2D6JcPUTFfrHOcrygCNt+ORAC4aZnhI6cK83C56g4jmiPVbthCmCqbBB9CC8vS56MzeccVhpR1cSUZlTZtSgPm3BMYxjHJhPWBjKr5Y9W4ysHcecnPU+scmWqnHiTCUF3uLo+Q+lYkycnNzu+BLV4xQeTHKPMswEjSWDrD1QarCeRPkCdR9iCM2cTg10gq2FwzHFCNI3/BnAJgwpF9KrOtcXXMKv1+rvMUwHASwbQtDNwHA165vJ2+xwaSJAzBhmLLbAGXbcMyxNBxmpr0Tr9f4ts+Pjku/ppOURj2rRzrJkxI53bvihhnn6OMAgHk3jQMiLjYLJ+S1TJOGaz4lK2R+tRBvDmwBsb+3N+Y6x1HwcfO5Qs9oDGKiOqRPjTvLPgQA+ObNFyIvm0IsqFO2nyHqflHpOgoOCzLLI8rgY+Z9eVxkpnR+yFsZJQO2rEURcWt9LMpwam+mTS7A/TdfEnouO3+mYo2kiUHyFWOjZWvSxAGNJqbw79ohQBJK6Zv1ltVMPaYSXH6xYrpnfWEkRg7spb/7rKdCqZTOTbZ8JAIzH2xY2HVs09r2lSqkSfeYHOiVfiz0xFOj3r92w2gjRcexYtVuVNcHa0xLBPqOn9k8Bop/T+j8kCaY+xVlt4GfIyJswLP6lni8xtMmF+CiIf1Cx0Itton2a9dlqmD3awzrp3+5coR24midNezsnrj1WprxzAcNZe4brxAEVMHEFvXURFdljEW4hbH4OFe8bwgWNwA2rJOJ2qiBltuiY9KqK3M060EpHK2UjJG6fd3lEwcZ3wLycrvg/q9dqoxi+00C3Y/vZSo3s1F2NPzcXIdR8CvsL00uUgotQrAboPIshdqu1OzsOb+cJqoBcpqIW+s48lDITBMdSaK5akoh5s8i49gKoQi1e6POzb9mfKDkvFPa6685l1I1For/+O7lwcCLTntUZ2b7M/HpObisUx4ptfdXTZKxEyh+8I1LcFp3VRZZhmeY8x+V06hjKYcRVwxDn+rXvAx9Zf3mIbgmnvaVakjZ9mds6/WpAnuDdV9k5c0zjmWZeriDqa4lb7GhZ/jNFag9I0Kn/9vtF1tH2o9hQ3piOr3Z5eeQ9EZNP7XVXx2oqsFfm/MaS+DeOZeE9LM+FaMefeMfogb2HYQ0dIjZr4GO+zRR8qaZwe69wbMLYNaNIzFj4lAVuE2H+abmJgASyoMTFfeaLngRAs3GnUDQ2ZuVq1c0sJV6kvjenAm47ZoL4BvPqSudjGCzQxVC7Z8OQP+V1Lg53a3XXID++cHyUTaTJg7ArdNHh64B6H48EVMGy8QwqaTU+bnNujTzIoTAuKH5mHPLGONomCyoPPOrKkApHPBEByMNd+4mXE+Cy4aNTLpfFqzwhSQbfVddUYgHZl0C0Gsls8y4Xs3Xnab8eWTYs+LhvMyYODSQLS4Ag7zcLnjwjk/qe4ZkhuQri+SVn4ENZ4/TpDo0kBL6s3HO+DxsSE/c+aUJkNYcD86hZyanm6RKx9MklH+9Kky0KOj6N/PJ8hZP++pwIpprPPUTcRlglEUmwH2HHvBahhr3XR6AaycObVIPJ5MVK5W3WJLMmTpR0rwUhvM2Y+JQDGiiP20P7rj5QuRldwO43yedrJ/OcgRmAXi0Oa+xAPL79QgcY0Y9Cq5Hox2yvHop2Dal1c4klQ9/HtQrF//+3cuNFHbbE+r1+cgBvXRHxArLp9nSrOR9S7hTlaYqyVZKgpR3g+ElA6XjYPaOrvhZXxiJB265LLQpixZWYwZq1DP6bHxQQyka2AvXT1cxNU0xa+ZIzLh4mH04MEwMI5kbjFl+HQ2Xk86/oTQkgBEDe+EnVsOwYe8ATKOF8s/55gZoyxXDsqW+0LVRMZdJNoqZaVcozzHXJ6Nl3hiQaf1gxv4aZVA0sBe+efOF+h6RAglgzKg+mE8rZDTSJxxLbE8GRseVUYuhgY/gTsssB6tMpk0uwAO3XKbf0kkjifkZhp5KC4wlJfUhq/6kVPnj4yxnaEH76lBiyHdzxLoslfRnm+FlsaTyNPLKNpLahKRjMyYOwffnTLCvTh6GYH1cHcQWC64Pen7OhymHrAe/OvN842hyyMvtgi9dUQSQI4Gfk3UkG61aR0uJ96NijSMa1qSJA7R+5nA2rjMp1WINMHS3aYCnBFwmVEe2/jite1f89FufQF5ueB5Mo74oL7cLfvPTafgcueclCYWgwtBCng7emui61tjnJG3Ryh0T51DQqz8Wio5m2hTVgZqdpm4EprFGsEB4RiczcmAvPHz/FY0EIhb3zJmAO28M4pm4HLgD06Nq+n27bDsSQR5NnX9DdscPzcdD9zVfDtpLbOQtlEc6L/RvmCfVd05vdnraWJAU9sKv6jqofU27ohAP3HwpTuuhPBBMA+XLN3QCoPLtsYzRM+dld8W9t17SbJky06YUYNGcT+pQAhhly3UmDaUmEK7DlMaIC84KmmnMBjJtSgHup9VC+DqzrTGhOkhxfEN+YCwLasN6BFHF01z7SnOEoR8AU1DSG5Zdz+ibsqg/FUZfe9s1F+CeOReFrk06LFMSePZ55S1mfeeTh9g3bAGVlupJCPzTxCGhzXsaC3H7cf30czCwd556Vm5bRnmDH4feeIuoWOMYbWraFYX4rzmfRE73rpCsj0H3N9ox1yeTCraS4AGM4cDJIj0zsFcufvn9qcGKXAam/RTie7Mn4DszxyMvWxUGC4A90k95Ip63geK/InQzBClxyQ0C6h5cUGwcRN23XbF+btqUAix74GoUDewVGCWWJ1R9MDx6xKcuKMDD912BvIjVApri+unDseSuqRjYK1e/bvepzASVTUSRdixUNhy3yY31tO5dces1F+AX8yfHZcDp10jcsZsee0MWWG6kb1WYVOk8UrIMG30QQq2Ywko32fJl8OkpBVh8z1QU0YQwH0EYkSAZa4B6Rl0edG7C0Hys+NmMFs8ov2ziACz7j89g/JB+qpwNI1xSqA7LGddhKijelhCq0SYaCrftgb1y4RudDb+l0+ViXZeKSHrbpjsafkNiybcgD5TGbFPxtK8UI6pviYJzIcljzjSKwU5TTAODDSoOBQSAscPy8bsHrsasL4xMGYGurj2FP/xtp34c00PskSzrN2bG27JbZlorUSSxCvNyu+DWz42GJA+pWZTS0JWC80MrVCx7aoeR0sCqi8smDsCyH12tJkxTGdjZ47bJxDQuk4juaw0bSAL47MQhePI/rsLwIT0b5RVNPrsArrt2GH7746vxxSkjcFqP7trIYqWVFh1TxEQ7IaiRWspVUsmZle6hsZbzDO9Y0oj4uWFDeuI3C6fh1mtHY9DpOaHK1xgdUdGZvfHg7E/gP+66LC5jMIoxo/rgmYeuxfxbLsOIAb20shPcKMzYplSA5JWNuoJeubj12guw9MekjOOFytHnZXD4O4LJI2DZkRKeR8e0dlVKFFJCeJ72gALBce1VSwGGk2zdf/MlKOiVG7QBIYIwKmNZoKKBvTD/lsvwUJwDjSjy+2bj4Qem4IFZl+Dcgb3hcXlaOofLKF08pgBZPi1g2JCeeOaha7Fg1iV6TVFPCJwiQ1O3txTHozbDugH819Kf0g928/S5zuNpX6kIvXmM5wkFosvDS5f+NQ5YT3JehRCYfP4gLLlrKn5x/2QMZY9dPAXW3kjg2dVq3WJh9P8e9aHsgPKg8sKD1FuvHY3+/bLtuyWVaVMKMGFYfx2TD6hnlGyzGHng8/+zthQ1taeCmzARdTGgfw88PH8yFt99pVreNwZ+CsmuZ4Tx5GV3xWcnDsWzi2bgnjkXBf1URF6F78c/9C7ZdhRvb6/AwaO1eP9wtX06dRGAIGUllZxD+hIjzu6DOTcHy8JUVNbhUGWtcV041tL+ngozZ02K3ziEt/9RgdJ3P9CK9sy+eRjYNxdXXzGkXRpuRWUdSrYfwcHKamzaWaE6bJE6vXbPnK44p/AMnJmfh6Fnnx752iQe5i5YH3yREvCsd5+mV0EA5xb0Dk0iaSRbzTBsyOmtNjDbg+INh7Bn34fYtLNCH2PZ+sTEQUHnlkAqKuvw9vYjOFT5MTbtrARIrHgwlnZIiXmzxrdKBvfuO4aS7Ydx8HA1dpV/mFb51+qAP9Bfc7vcvfuO4f8t3RQ7RK+Z9pUyUP5eXFeO1a+U2Wcbwfpy3r+MC71lCembNKeosDfycroBkBg7agBGn3dGpDGSKty7qBjHak4EB9i4QiCHNv/x3ctTQl+XbDuKx1dYW5HzM0sJ6QkIP2wcf+EzIzCpFWv3V9eeQsm2I9iz70PsLv8AH9Wc0B50X0oIu4/sAMaP6I+8nK4YPqR3i+y1/w8hnjaGdLMrGQAAAABJRU5ErkJggg== image/png iVBORw0KGgoAAAANSUhEUgAAAMAAAADACAYAAABS3GwHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAwgSURBVHhe7Z1PiBxlGsY9evTo0aNHTyJ4WS9LwEs86SGHIMi6ICh4MIccksMyIAtBEMaDIgGXgeD6H2YRQ8wlI4rOEpEJLEPbFcgQkqlCBMdMVVPLUz2dZN6vuuftnqrq+t73eeF366+r+nnet+r7V9WPPMJgMBgMBoPBiDkGWfnYzSz/C2mXwe3ycak9o+UY3N1/Jsnyk8MsPzfM8rUkKzaSrChJT0iLzWFWrI/9KU6jUKSHjDlikN17apjtvzFMi0+TLN8LBCdxkBZXUBS4gEmPGSKQ9Ek2Wk2yfCcQksRPmmdJOvow2c1PSO/dBvqTuEIkaTEIBCOGwUVutDq48+eTMidcBBI/SUcX2L0h6Obi7i9zxGQw8ck0qkKwfEcYpvtnqn5gzY8n5AGjFUxpy/yJNjAllmTFVvhDCZlGvpPsFi/JXIouUM3hjyNER9UtGpSPyrzqfeAWNp7DD38UIXORFpuDrHxC5lhvAyeLkw5+CCGLkuZZFItpVX+fA13SCvketlnInOtNDHf3X+X0JmmddHRB5t7SY7yFoeZkCWkBbLzrzVQpk58shbS4svQZonG3p+bkCOmE0arMyc5ivMDFPj9ZLtg2L3Oz9RhPdXK2h/SDTh/AweCDWxtIr8A6QVeLZRiBBydAyPLZan1miHt7SJ/BxVnmbGOBR9nkAQnpG60MijHfyn4/iYN8r/FXt1QPswQHIqSf4NU5MocXjuoxRs73k8hobGp0/AxveABCek1abMpcnjt49Sdxk5+UOT1X8OpflNt37pXr39+KjuvJ78Fvccdx7gJer/5InvMf/FC+eOar8ulTH0XPC29+Ub717rXy46u/VsUsf699FrwLeFr02rr1R/nPf/23fO6VS0ECWeLZ02tVMWzcSAMNzJIWV2Ruq8LDOzpxRXzn0nXziV/H2fe+c9NNmntd4OBdPsEXWeLqz3er7oFMDE+g8NHlk9pYY+7VYetPeX1+7abLq/403v/yRqCRMTZkjk+NatuD4b3+F//zvyAByEfVGEhqZQn1dmnL3R9c+aXx5AEYD0nNrKDuBlXv66/5gthBnx+zINJ0chhMl0rtLIA3Fcpcrw1MG8nGsYPZnudf/ywwm4RgbPTj9m+BhtGT5pnM9SDG257tLX7h1i6N1oLCefn819X8OfrJfQfnifM9zkLea29/G2hogSP/iGP8b4xhw5jBXPe8XR98fuXiT9EvGOFKvvrJLwvNeKHLKL8vdo4cB1h8zw+2NUhzZ3Hq7Lq5BSKsdGPhS/7WWZi8Cxz1WkVrm9/Q95/n6g/TLe+XmbcrGPsdUHLkM8PW3uk/z7Qn+s2Wk3/CPHcCe9Oi+Y7M+UNh7blfrdm4S1jr9kwDRa4dIKM7KNvHzsxXp8gPx4526hOzJ7KtZTDXLzWYBsYPsn3MzFwRlh+OGVzppJnTMDnvfQTamaFvNm8HbWNm6j/NHLzyMGgQKxjASTPrQHdAtvUA1gukFnWsXd4O2sbM1Iflqxfe1jSIFWzzlWbWYXK6TwG6fVKLOrCOINtGzW5+QuZ+FfiX7uDDEaPd9Yl1AtnWA1p9rI2Ppv7PmLVdoF4N1uJVHxaAcYO1eNWHBWDcYC1e9WEBGDdYi1d9WADGDdbiVR8WgHGDtXjVhwVg3GAtXvVhARg3WItXfVgAxg3W4lUfFoBxg7V41YcFYNxgLV71YQEYN1iLV31YAMYN1uJVHxaAcYO1eNWHBWDcYC1e9WEBGDdYi1d9WADGDdbiVR8WgHGDtXjVhwVg3GAtXvVhARg3WItXfVgAxg3W4lUfFoBxg7V41YcFYNxgLV71YQEYN1iLV31YAMYN1uJVHxaAcYO1eNWHBWDcYC1e9WEBGDdYi1d9WADGDdbiVR8WgHGDtXjVhwVg3GAtXvVhARg3WItXfVgAxg3W4lUfFoBxg7V41YcFYNxgLV71YQEYN1iLV31YAMYN1uJVHxaAcYO1eNWHBWDcYC1e9WEBGDdYi1d9WADGDdbiVR8WgHGDtXjVhwVg3GAtXvVhARg3WItXfVgAxg3W4lUfFoBxg7V41YcFYNxgLV71YQEYN1iLV31YAMYN1uJVHxaAcYO1eNWHBWDcYC1e9WEBGDdYi1d9WADGDdbiVR8WgHGDtXjVhwVg3GAtXvVhARg3WItXfVgAxg3W4lUfFoBxg7V41YcFYNxgLV71YQEYN1iLV31YAMYN1uJVHxaAcYO1eNWHBWDcYC1e9WEBGDdYi1d9WADGDdbiVR8WgHGDtXjVhwVg3GAtXvVhARg3WItXfVgAxg3W4lUfFoBxg7V41YcFYNxgLV71YQEYN1iLV31YAMYN1uJVHxaAcYO1eNWHBWDcYC1e9WEBGDdYi1d9WADGDdbiVR8WgHGDtXjVhwXQgcHXk9/L9e9vNcaP278Fxzguy9RnmbAAWjR440Zanjq7HhyjCf7693+Xn1+7GRxzUZahTx9gAbRk8NWf7wbf3Qb4XfLYi9C1Pn2BBdCSwS+e+Sr47jZ47pVLVRdLHn9eutanL7AAWjAYXR/5vW3y8dVfg3OYly716RMsgBYMXru8HXxvmzRxzl3q0ydYAC0Y3FX/f8L7X94IzmFeutSnT7AAWjB4+869qm8uv7st0OWS5zAvXerTJ1gALRmsPd5xOfved8GxF0F7vk3p0xdYAC0a/M6l6+Wzp9eCYzTFW+9eq+428riLsAx9+gALoGWDsWq7+skv1fc2BQoL4wx5rOOwLH2WzdQCGGT3npIfjhmtwSsXfwraekCrj6MCKJ+QH44ZbBuQZtaBboVs6wHcVaQWdeBzsm3U7BYvydyvwloBaKcmsXdHtvXA+Q9+CLSoA3cK2TZm0NWXuX8/5IdjZuvWH4GZdWDQ2tTAMiZeePOLQIs6sBtVto0ZNwUAtHPzWMmVbS2jvTuCNrZiLxP0dGTe348ky3dkg5j52z8uB4bWgauhp7vAa29/G2hQx/Ovfxa0jZ3B7fJxmff3I0mLK7JBzGhnOoC5wd4UtJMDoKlFt96Q5pnM+UORZKPVoFHEYNuwNHUWTeyy7DPozmi7haDJB3B6wobM+UMxzPbfqGkUNS+f/zowdhZW7wQYzM6T/HgCzVy3MB19KHP+UCS7+YmgUeTAeGnuUaBovtm8HXxXjOCqr+3zPwxWs+V3xc4w3T8jc/5QYIAgG1lgkQQAGARivhyrofJB9T4z2Yqx6FNq+N3mrv5HTYFOIkmLTdkwdrB9uM1NatYw2PcvkyzfGwzKR2W+B5Gkowth4/jp+qmtWMEdT2pngrS4InO9NpIsPxk0NgI2vknDyQMw9rHY9QHDLD8nc702Bln5GG4X8gussOh4wDoYL2D7iNTLCqr+/ySGWbEuv8ASWOCRCeAZbAi0nPzY4SBzfGZgz3T4JbbAg+UyETyCi4HVbs8DRisyx2cGRsuWu0ETMNc/70KZFbDQZX3le8Lg7v4zMsePjGGWr8kvsgoSYdE589jAajBWu+1f9e+zJXNbFZZng6aBRSRMA2IhSCZOzOBqjyffMBXsKPErsL1H5rY6LC6KacHi2cOrqrGBqzzOv+mH6eMi31Etfk0Lj3cBYodjXf0n4fkuQGLmmFf/SVh7XxDxQSNX/0l4mhEiBkiLzUau/pMYb5O2vy5AbDDXtgdtWHxajNgDvRWZu43EeHW42JAHJKQ3pMVg5lsfjhtVVygtBsGBCVk6+R7ebytztvEYv0SX4wHSN/KTMldbCy6QkX4x527PJgJP2IcnQki3DNPiU5mbnQUOLk+IkM5oer5/3qhmhrhVgiyFfGfmi267ioP/FdgKT5CQlkjzrJMZH23gQXp2h0gnoNvThyt/XVh9pxDpB7jI4mIr865Xgf9g4joBaZ4lTHUuGngI2dqfbZBlke9N/WO7PsfBtgnOEJFjgJmeHg12543xBrrRSvjDCJlN1d9vc2NblzG48+eT1v5+ibTGFv6nQuaQiajeOMfdpKSONM+wvWapK7tdBQuB3AeJn+Xnej+92UYcvIOUq8geSYuB28SXUY0RMFjmXcE2aZ7hn0hbeWbXSmDaC1cGDpqNUE2Fj1bMDmzbjGoadTc/gYI4eDULn0nuM2mxif+WqC5gWX6S3ZuWApuhcBudgJXCgyIhXbC7/+rD+qMLKz1iMBgMBqO/8X/VgVJhPKS9kAAAAABJRU5ErkJggg== image/png iVBORw0KGgoAAAANSUhEUgAAAMAAAADACAYAAABS3GwHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAz2SURBVHhe7Z1PiCVXFcazzDLLLLPMMiuN6EIXyoCbdpUsEgyCmIBgxIUjZDEBpUHEURDaRTSEmAyGaNQoI2Jog5AWQ2xJkB6Q4fkqkGaY6SqCYGe66vHkq9fVee/ceu/Vn3tvnXvrO/BDMnbVe++e890/59y6dc89NBqNRqPRaLSQbZLN73s/yz9L3DK5Nb9ftj3NsU3unD2cZPnONMuvTLP8WpIVB0lWzIkS0uJwmhXXF/4pnoBQpA9pLWyS3X1omp09PU2L15IsPzUanIRBWuxDFOjApI9pwhD0STbbS7L82GhIEj5pniXp7PnkJL8kfT9aw3wSPUSSFhOjwUjEoJOb7U1uf/SgjIlRGAI/SWdXOb0hmOZi9JcxEqUx8Mk6SiHEPCJM07PL5Tyw5scT8jGzXaS0ZfwEa0iJJVlxZP5QQtaRHycnxaMyloIzqNn8cYQ0o5wWTeb3yrhSbxjCFjl880cR0oq0OJxk8wdkjKk1fFl8aeOHENKVNM+CKKaV830udIkT8lNss5Axp8amJ2dPMr1JnJPOrsrYG9wWWxhqviwhDsDGOzWpUgY/GYS02B88Q7SY9tR8OUK8MNuTMenNFgUuzvnJsGDbvIxN57ZIdTLbQ3Tg9QEcLD64tYGoAnUCX8UyrMCNL0DI8Bw5zwxxbw/RDDpnGbPWDI+yyQ8kRBtOFsXIt3LeT8IgP7V+dEv5MIvxQYToBEfnyBjubOVjjMz3k8CwlhpdPMNrfgAhqkmLQxnLrY29PwmbfEfGdCtj70+Cps8owN6fxEHHUYBFLxIFabEvY7uR8YxOEgut6wLnZ/kYNyIkRFpXh/mUF4mMAxnja63c9sC9/iQyGm+X5vSHxEjjaVB5Xn/NDQgJGZxUKGO91pA2khcTEjxpnslYN2yx7ZnFLxInW1/EsXgbo3khITGwdR3Ac35I1Gw7VpGb30jMbH1mmGf6k7jJj2XMrxif+yWxs/HoFPnHhMTGxoqw/GNCYmPtm2bOjzw0LtDOzdt359f//gHxzLvJfw1fhMDah+XLA29rLtAGGv/Zn709f+Ty7+efeOwXZGC+9K3fzb/9k7fmr775n7Izkv5Sx0l+ScZ+aXhLt/HHSjj64H/zH7z0z/nnvvqK4QCih08/ca0Uw8GN1PChFta+Z0zjLlD0KD9+5V0GfoA889O/qZwmBSOAN9+7Uw6vsmFJOKDjwpRV+nZIghDAb996n71+RDz3+g3Dx0OhXgAv/PHfRgOS8MEaTvp6CFQLAD2/bDgSD1jPSZ/7Rq0AMOdHFkE2GokLpEul732iUgDI9nzxG78xGovEB9Z279z80IgBX6gUAIZG2VBNgXC+8uyfyvwz5pnELWhntHefQuTXv/8XIwZ8oU4AyBW3nfrg73df+IfqgssYQE++9+t/dcrYYcor7+cDdQLAtgbZOJt47JnrKgssYwaVehS+pK82MdQooEoAmPs36/1fvGi0IPabjJTlqewnpQ8ff+nCjxVDjOCqBNAm7fn5p15lz68cdE6PfOcPhu/WMURaVJUA2g6bX3jqV6Vo5H3I8Pz58FbrrSuYzsr7uEaVALqmPiEcToX00D6L9/FUCOsHeT+XqBEAAthsmOagt0GvI+9L/IE5PHpx6Zs2+PahGgGg8WRjdAHpUI4G/sEGt2YJjM1ce+OmcW+XqBEAtsnKxugKeqEhMgpjBImIr33vDcMHXUEdQX6GS9QIwPauT/RGQ2QVxgR66y5FrxUeX/1vVJfl57gkWgFUsFBmHyxUsQVCtnVrylrA6r9RAA5AL4X7y88k7UHaGeln2ca2oADWUdNbtAVzVY4G3UBiAQkG2aa2oQA28uL8Mz0zDSyetadLUUvyqS+/bPxbHRTAFr7787etZB0wh/VddAmR9kUtE6zDfvTL94x/r4MC2ELVQPj7vnlnjAa+Cy+hYKOoBZb9Jf+/OiiALSw3kC0nsXi2io2ilqzMd/GvD4IWQAWGaRsOG+qhDC3YKmrVdSh9/OuSKAQAbCzUxlw8s1HU2pRg6OtfV0QjAGArVTemrRS2ilrbkgo2/OuCqARQgdGgb7EGo0HsxTMbRS2MGk2ONrHpX5tEKQBgq2eLsXhma6Rs0za2/WuLaAVQYauX871N1xW21kptR0dX/u1L9AIAtrIb2+a52rFV1OqyPnLp3z6MQgDLn+Ey06EVG/WSvhkyH/7twqgEADAa9A0GgPOLZK5bI7aKWn1rJL7825bRCaDCVvFM61YKW9O+uqJWF3z7tymjFQDA1KDPmZYuvpMNkJbsO9XDCR02xT2Ef5swagEAWynBrotDm9hK/bpY7A/l322MXgAVttKDfRaKfcChAn3TvS4X+EP7dx0UwBIYDWz0oG0KRH2xNYLhO9vu9ZfR4N86KIAabBXP8JvkvW1iY9Ty8T2BJv8uQwGsAb3hN3/4V+Pz24ITrF30rDayWD5PzNDm3woKYAv4Xn0zKjbn1hqKWl3Q6l8KoAG2cup9sytoIxu9/hDZKq3+pQBagGP7+gZgl+KZLQHaKmp1Qat/KYCW2JiCgKbBaKOo1UV0ttHqXwqgI/ge8ru1BVVo5O/lvQH23mABLa9pi5Z3J2j1LwXQAxtpSIDXjOJ34ZkD/K+NwLe58LaBVv9SAD2xVYiyCdK3fRbbLtDqXwrAEjaKZ33xVdTqglb/UgAWsbUZrQs+t190Qat/KQAH2MjcNAVpWd9vVemCVv9SAI6wlbvfxFBFrS5o9S8F4Bj8Lhejge+tDH3R6l8KwAPopZHqlL+lCxqKWl3Q6l8KwCMoenUVAjJMWjM8TdDqXwpgALBIbioE9PhY5Gqo5vZBq38pgAFB2hSjAgIcv2sZ/Ps7Nz80rgkVrf6lAIgXtPqXAiBe0OpfCoB4Qat/KQDiBa3+pQCIF7T6lwIgXtDqXwqAeEGrfykA4gWt/qUAiBe0+pcCIF7Q6l8KgHhBq38pAOIFrf6lAIgXtPqXAiBe0Orf4ASAM3jktUQ/Tf07WgHgXB3ZGHXg2BF5LdFP05d0+37WWY0AcBambIw6cBKCvJboB+9Vlr6sAyOFvNYlagSAp6NkY9SBc3BCfzxwjDQ9Q3XdYcGuUCMA0PT4EBwiK68lemk6ugPfj4GqEkDTg6TQm3AUCIemp13j5dzyWteoEkDTTAHwvVgi3Wia3AB4l4G83jWqBIDjBGWjbALHi8h7ED1gOtN0WguGeJ+BKgGApuflVHAk0AkWs22CHwd/DTGtVScANJxsnG1ANCEeFxgj6PWbzvmXGeqEa3UCAF0aEGARhXwzqokQEvFDdbAX3nkmfdIE+G2I3h+oFAAOk+37OlISDkPM/StUCgAg1y8bisQHRmzpe5+oFQDQ9vI5Yhes3Yaa+lSoFgDouh4gusF6QcObLNULAKBAIhuQhAs2NGoIfhCEAMBzr98wGpKEh5Y311cEIwCAXH/bQhnRAQpdGiv3awUwye4+JP9YC2jIrjln4hdUg1Gt19TrL7NBAPMH5B9rA0UYpNFQSJENT4YDvT2e3EMqW2vgX3BSPCpjv7QQBLAMimfLVUniF/TyaH/s/Ze+0Qym+jL2L0z+MSGxQQGQUYOZjoz7C0uy/FheQEhMTG7N75dxf2FJWuzLCwiJhjTPZMyvWJLN9oyLCImHAxnzKzbNzp6uuYiQOEhnz8uYX7HkJL9kXERIJEzTs8sy5lcMCwR5ESGxsDEFWlmSFofyQkLCJz+dTOb3yng3LElnV82LCQmctNiXsV5rSZbvGBcTEjjTLL8iY73WJtn8PgwX8gaEhEyj+X9l06y4Lm9ASLjkxzLGNxr2TJs3ISRUZrsyxjcaVsucBpFYmNw5e1jG+FabZvk1eSNCAuRIxnYjYzaIxAC298jYbmwsipGwyY8bFb/WGUcBEjK9ev/KOAqQMOnZ+1em8bwgQrZhpfevjBkhEhRpcWil969ssU2adQESBq22PTQ1Pi1GQgCzFRm7VmxRHS4O5AcSooa0mGw89aGvlVOhtJgYH0zI4OSnON9Wxqx1Wxyiy/UA0Ua+I2PVmbFARnTRcrenDcMT9uYXIcQv07R4TcamN8OHyy9EiDds5/vbWpkZ4lYJMgj58caDbn3Z+XsFjswvSIgj0jzzkvFpaniQntMh4gVMezT0/HXGM4WIS9DJorOVcafK8A4m1gmIfQZIdXY1PITMl20QO+Sna19sp9nOt00wQ0R6gEyPosVuW1tsoJvtmj+MkM2U832XG9t82uT2Rw/y9UukIUd4T4WMoSisPHGOu0lJHWmeYXvNoJVdX0YhkAsQ+Fl+RX1604Wdn0HKKvIYSYvJaANfWrlGwGKZo0LcpHmGN5E6eWY3FkPaCz0DF82RUKbCZ7vRLmxdWplGPckvQRDnR7PwmWTNpMUh3i1RdmBZvsPpjSPDZigMoxWoFJ6LhPjg5OzJ5fbHFFb6iEaj0Wg0vfZ/nhFyVztWINIAAAAASUVORK5CYII= image/png iVBORw0KGgoAAAANSUhEUgAAAMAAAADACAYAAABS3GwHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAABR6SURBVHhe7Z1drB1VFcd55JFHHnnkkScgGo2KaZpgTH1REmgEDFLwA4gm1KTR8qBVIhACppJgCIFaQpEP0VSJWEDlKgavQkhJDB7vgdAQuDMxJhbunJsx/zl32tM1M+esNXvN7L1n1k5+aXJ79nyutff62nvOO8+aNWvWrFmzZs1azG2S5he8nWafMrpl8l5+IX321jpukw+2Lp+m2Z6NNDu4kWZHp+lsbZrOciMQktn6Rjo7Pn8/s2uhKPQdWhO0SfrRJRvp1q0byeypaZqdrjxwIw6S2QkoBQYw+o6tkQahn6bbh6dpdqryII34SbJ0mmw/NN3MdtN3P9oGexIjxDSZTSoPzBgwGOS2D0/e//BiKhOjaBD8abJ9j5k3BsxczP5URgbZTPCNJgpFGPKMsJFs7S/swJqbN4yzbB9CSJvKT7QNIbFpOjtZvVHDaCI7Nd2cXUVlKboGba7enGHwKMyiSX4+lavgG6aweQy/elOGISKZrU/S/CIqY8E2XCwuunIjhtGWJEujSKYV9r45ukYnZKdRZkFlLpi2sbm1z8KbRuck2/dQ2fPe5iUMNRdrGB2AwrtgQqUm/IYXktkJ7xGiudlTc3GG0Qvbh6lM9tbmCS6z+Q2/oGyeymbnbR7qtGiPEQa9LsCB82GlDUZQIE/QV7IMHnjlAgzDPyc7jwxZbY8RMhicqcyqNSxloyc0jNDoxClGvNXsfiMOstPqW7cUi1kqJzKMMMHWOVSGW7diGaPF+43IUAuNztfwVk9gGEGTzNapLIubjf5G3GR7qEyLmo3++hx/5d382bV38sNPvnGGYy9Mir+/Nv1v5feGAy6zgI3+ck6++79CkCHUd/zsr/n1dzyXf/qGx/NLr3k0v3Tvo/N/l7H3yJxrHin6of+Bn/45//GRvxfHXXszqZzTWEXLWcCSXquBQD747Jv5bXf/4aygnyPQNUIuAspA//ZooRilUtBrMgjJ7ASVbVazPTqrwEQpBX7XTb+oCOYZilG85u8dAYW49/HXbIZoQJwX2NnLp3KgMfLW+x/lD//mn/mN33++Ini9w1CsL+3/VaGk5k+cRZwdtlVes/yJF/+d337/y/nHrz1aEbJYgNJCeaHE9P5GxhqV8cZWlD2MuNYfAnPlLU9XhCk4rq75WwMw1+CYj1kR2OXSYzV/ohF8B6AI8BUQraL3P3TYZlCxX3/NAYbK0effGrzgUxCxgiKMaUbAToVU1msbwka08xB58fUP8msOHK8Ix5j4wrd+mT/z8tuVZzNIkiylsl5p87LnYSe/MP0fevhvFWHok09cfzT/zA2P51d89Vjx7ye/8ljlN33y9TtfGEXUaOWHOOZfY6x2HAqI7CyN33NghCLrKO3vplh9mWPwZY4h2oXro9c1JFb6AUPd5wejPpJX9KVLuazmb6soBUtib8Mhr80sr6Klci6CpNpgZ4NV2yoOsfgNtj5sXfqi+wDnbRrxVwEhhDDSY/YBlG+IvsHKNcND29MfJoVWIusy4eiKJJRk1G/Cp7+Cc2vcQzhkp6jMn9OGsu4XL03D5AFf+9GJ/PO3yexyZJDpNbmAwjd6jmV87Nqj+S13vVT5exsQKRtS3mDp1in0xzGCl6VhOiAyAvNJKnwY+ek1aSCdCfAMXn3rP4Uy0v+TAsccx6LXFCNLM8L0x7EBuxnFYPQFSsCIV9rteOkSEwo2f5ejJZSSnnMZiHqhH+7DdUZEFAsDAr2m2Gj80szOloeVDrGAl+wSQsQLRvRl8ZgSgYPj2Nbh5QLTTqLgeB6LNjzWD7gEBIbgHDculi82vK3pEAMYmVzi+1i9RUduHJP+bhlUebpCOiuhCG6xPxQCYVnJMRZBv6iVYDPbTWW/aPhKd+XHEQCBaBUz3xn1m1ZVSfyIruz+JiDU9BqawLOpi+tjtpLMJovErASN3xmLsQoUL7at2QOhpaN+CWxn+vsmmgSsayR1THDkaX+A2QBrjunvOeC+Y/QJBqMAEN42Ixgn5S+x/amJ0RcSEw0z3bJ4Pipi28yi6BNbdGgQCoCXKTFRFl9Yk8lToilYXaOpqDCJ2symsYVIB6EAkhdfwg3jSY5dhhl9AdOL68zi/ml/SttZFeaYz4FAQvQKIHEAS7ijlESgICi0vw8QwaLX1gRHYdsmEnEd9FghErUC/G79PbaAlkBQm5xdiiTrC7uZ9veBRGm50SqM5m12weAomG+iVQC8FGkSByO/JELDPb5v25/CNdugKNzn0UYJYnCKo1UAaU0L1+wpwexCj9HEKoeybySOu+TapZlnELo/EKUCIMtKH/Qy2sSoufFwjKIhvmCu3S71XWA+SqNDKNyjxwmF6BQAL0BS5gABxWhOj7MMCDT3HNqlzlpIBglpzRJmUu7zAXgH0gGoL6JTAEmUA0im+BLkBuhxmpAqV19goOA6w10/IwBTiB4jBKJSAIltC+AM0mNw4EZ/4CTTviHBLXnu+jmV9FUgKCEqBZA4YLBTueFOCreuZlUJhW9QoEavuQ74SG39GK6vAWA2caNOfRGNAmA9L32gy2hrmkBp6LGaCNWuLYFQc82gVSUhTUirb0NLkEWhABKn1PUhcys/8dJp3xDhjtBNFaIckASkx2tCknvogygUQFLu4JqU4oY/Q43+UGCm0Wuvw9VJ5SoacBmgtIlCASSjv2tJAjfGHaJDV4ckcNDWZyrPwzW3QpoFglcArkkCuLUtTcCepcdsQpJV9g3XRnet3ZGEqEOZBYJXAEnkx9Up5SaPQg9/UrjhUJh/tK8Eia8WyiwQtAJIRv+2sexFuEVkoYxeXLiKDfOP9pUi8ddcHG8tglYArkAC19Ef9GUq9I3EtHPxA4BkFtBQOFeCVQBJKl9j9Md0TI9bR6jFb6vgOvdt8yeLcCNPWudzIVgFkCS+NEZ/bvmztHoyFLgOKp477StFsijH1e9wJVgF4MaVXSM/JVyFg0NJ+8YA1zbX8m+4CudShqFBkArANUeAVjye+8JCr/9pglsXpDWgSPIPPn2qIBWAa0Nq2uNch9s10eYLriOs6Zhyl5T6zKoHqQBc80fzwXFfloa/4QuuXa41qHAHMs4WLV0RnAJIKhi19qPEOemxm9ASDh9wk4paSs6ddTTPKSU4BeCuNNKsxsSSQHr8OmLLAFN8mHnc2bzNqjQNglMA7iojjdh/CTfjrOUg+oL7VRnNRew+3qeE4BTAx4jBtVW1QoS+4JZEaIZ6uTO6ZkBDQlAKILH/NW1G7h5DGkkin/hI9kneqY+scFAKwI0da9r/gDvr+HhBmnCXe2qGQoEP34NLUArgyxbnRkdiWgPQBLfgj/ZzgZuF1vQ9uASlAL5scW6h2BAUgHuvtJ8L3Cy0D0c4KAXgLtzQtsW5QuHDSdOGe6+ai1W4YWZN34NLUArA3Y9H2xanx2+C9osRrr+jPdvR49cBZ5n265qgFIBrn2qOToAevw5tx9sXXAXQjLIB7swj3afUlWAUgFsBqi2IviIjvuBGZNpulNUE99sC2uddRTAKwK0b2XXz/Fu+Wjz2/L8q56jjym88WekbIzf+gCeI9x17vdLXBe558VsqG10SnQIYw0ZrfQeXYBQAmk8fhjE+TAGMUfPDR16tyEaXBKMADzxzsvIwjPFx290vVWSjS4JRgAMPrFUehjE+rjv4XEU2uiQYBbjr5/+oPAxjfNx06PcV2eiSYBTg2bV3Kg/DGB/ffeAvFdnokmAUwJxg49K9I44CcQumjIGy90jx72gVgJsI+9w3nyrWmWpxx4OvVM5Rx66bn6j0jZEv7v915d7qQDSG9nWBe96+F8UEowDcmhztPWS4NUhDqQXilpxrlyT4qkFaRTAKAOjDaEK7Lp8ev46hKAC3GlRbEEPdeCwoBfD1kOjx6/BRq94FXAXQXg/AXRivPbitIigF4E6T2pupcmvVab8Y4d6rpgJw/Ttt85ZDUArA3bhJe4dmrlD0PTp1AfdeXb8Uswh3TTBmJ9q3a4JSAO4HlzU3xQXcpZiao6IvuKYI7ecC99sLPj6WEZQCcPcF0nZIuXaxtu/hA3pPTdB+LnA3HtOe2TkEpQCSXZo1R2Ou79F3jFobbrJRexNgrtml7dtxCEoBAHeTKs2MIdf3QEKH9o0JHxuPcR1goOl3cAlOAbifKtL0A7g2quamsT7wsfEY99n62BMIBKcA3FFK0w/wsWmsD7i2uObGY1zz0se2iCA4BeCWRAAtp5R7Tu0tWfqGG+3SygLDp+Pu9aR1TinBKQDg+gGaowb36+bam3L1CVcYte6RG9b29W0AEKQCcP0Azcwhd+Mmre+S9Q236E9zluM+Ux8JsJIgFYCbOQRaUydX6TTt4z7hPlOYSbRvG7gKB3w+0yAVAHBNEq1oEHcPe80ISZ9wozFakS7u84T5o2VytSFYBeDG5rUeIHeE1IyR9wl3htPKxnL9ON/PM1gF4JZFAI1RmTtla9rIfcIt99DIxnJD2UAzodmGYBUAcEcRrVmAGyXR8jv6QvKhOo3QsuS9+Yr+lAStAFw7Emh8NpU7SsZWEsEdkTVmN+65gJa/4ULQCoBRnTtywWl2HU0g2PS4dfgM27WBa/9rfKOLO/oDjdnGlaAVAHBfHnD1BbglEVBKH4VbbeEuNXW1x7mJL6ChbBoErwCSWQC/cx1VuH6AhrPYB5JqTJcScwwI3NA1cH1PWgSvAEAyC7iaJ9ziLdfZpi8wqtNrr8O1uLDPd6RJFAogmQWAy8IVbsLIVWD6glsB6rIcURKyBiHNnlEoAJCMMJiK24ZF+zIZ+qJrkw6BB4njq1VqoUU0CgCBltiYLtMsdwmfzxoWDpKRua1TLxmYQCi2f0k0CgC49mxJ27Q+12wIbTSjcMtJ2t6HJOYPQvSbolIAwF3UAeA3tPmqvOTFhmwGcWfMNok93DfXvAIaeZouiE4BMIVKHGKYM9LpnbtCDLQRnj7gFvcBaWkHBFkyEAGXwESXRKcAQGp3wkmTjj7cxRyhRoO4u0C3uX6uiVji4o91TZQKAGHmZjdLINASJZBkNdtGULpCEjaWLiuVDj4wk0I2E6NUAIBNnrgvuUSyeEayoLutE9kVXOcX4DnS/k1wa6UWCW1woESrAEAaFQISJUByiPZvIpTwHhSX6/xKtnlp86xDjPpQolYAILVHAfpwzCFucRwIpbirixJy7oZai7Txu3wQvQK08QcA1yeQZDl9zwKS0Z9b0Sq1+ctjS0wrn0SvAAAPm2uvLwLbfZUQSHICvmcByUi9yjyBMrWZXSH8MW0dMwgFANL8QAlmj1Ujt2QW8PXyJZEfsKxWCv/HXR1HCTXe38RgFABA+CRCUII+y+p6JHa1L9tX4rAvm6nwDLlmFIXrU4REowJM0o8uoT+OAUn8noLkUZ1JJLGtQd/ZYWRy6TUso2nGk4RPKdJ8QigsUYD8IvrjWGgTsiuBSVRnxkiOqbEyjQuUk1u9CurCwPChpKUNq44ZDZuzq6jsFy1mBQASga0DZgK1kyW+ABSpD1NI4qhCMRfvCbOdy6gPYh35S2DqU9k/0+iPY6OtT1CCyNJiSbWkwAx0ve2HxDcBi5EfmIoSs66OGG1+yqAVACCZ1SZEughMjHLHBO6a4ZKuhESqjBB2jPjwF9pGeBZx3UEiFGDpULk/06Zpdop2iBHYuBI7uQkc4/DTb4gVSltY4F9Ir+HOI+siE64JnLfOR4qVyXv5hVTuz7RpMjtBO8QKRj9uifMqrtj3ROVvq9BSAgifVPivuPFY5W9tgALFkuFlkWQplflz2jTdPlzpFDmw6V38Ahdgg7s4xjCnfF078gwu1x4oa1Tmz2kb6datNZ2iB36BhknUhjajKCI3WrOXFMw2sWV32STbD1GZP6dNN7PdlU4DASYRd9VUFyB8uUoRIPhIqrUe9a+u+ZsAOMurrjFmNpKt/VTmz2lwEGinoQGbuk016Vkeqfkbn8/uO5ZffeB4/u17/1iYOPvvfzn/8vd+m++6We5naIGIkZbPEjJLQ6BlmyazddpxaMC29ekbhARs/bpykOGRnZ5M8vOpvFfaNNm+p9p5mDjZ2nuPVP8WETB32mwhEy3J7ASV9do2TbM9lc4DB3F2acKrIEIlgOBLt0UZAhtpdpDKem2bpPkFmC7oAcYAHEBJrU1MjFXwS1j2f9k20tlxeoAxgW09oAjSBFRowMdB5GvMgj8nO0VlfGlDzXT1IOMEMXGf4dM2oNQZC37G4dxy2D5EZXxpg7c8VjOoCQgTQoWtneaOQcINOYSQN6XyxeSDrcupjK9sG2l2lB7IOAvyCaiNd1lY4gJyGQhhYhG/jfRLOUllm9XGGA1qC/IKEESMwPAd4HCe6z+0iBbtZHVhx+N4OC6OD8WjC3eMZlDeQ2Wb3caQFOsSKAYcUADz6Ts/eTm//b4/FWbUdQefOwf8HUCRyj42sruSnWIlv5qazQJGzDiN/mWzWcCIE8fRv2wx7hdkGCqjf9ksImRERTJbVxn9yzYvk7a8gBEHorIHbhvqajFjWMBaobKr0ubZ4dkaPaFhBEMymyzd9cG1FaZQMptUTmwY3slOY39bKrPqbb6JrvkDRmhke6isdtYsQWaEhbDaU6NhhX31QgyjXzaS2VNUNntrODm9IMPoDe14v7QVkSErlTC8kJ1autFtX23nuwInqxdoGB2RZGkvER9uw0J6M4eMXoDZE8LIX9fGtKeQ0T8YZDHYUrkLquEbTJYnMPTxEOps27AIeSgf2zB8k51u/LBdyG2nbMIiRIYDiPQE5OxK27yAbvtQ9cYMYzmFvd9lYVufbfL+hxcP6fNLRqecxHcqqAwNohU7zlk1qVFHkqUor/Ga2e2rmSIYZ4Dgp9nB4MObXbSdPUgtizxGktlktIJPW+EjwFm2WWHYJFmKL5F2smZ3KA1hL4wM5jQPhCIUvn1osI5tl60Io25mu6EQO1uz2JrkkElm6/i2RDGApdkeM286aiiGwjRagkzhjpIYfbC5tW/x+cOEpe/ImjVr1qxZC7f9H9myG1/9cOC+AAAAAElFTkSuQmCC image/pngiVBORw0KGgoAAAANSUhEUgAAAZAAAAGQCAIAAAAP3aGbAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAC5vSURBVHhe7dRBkqSKsiXBt/9N/x6Xtg0QB78ECTosETsOpFT87/8+n8/nIf7nP3w+n8+v+n6wPp/PY3w/WJ/P5zG+H6zP5/MY3w/W5/N5jO8H6/P5PMb3g/X5fB7j+8H6fD6P8f1gfT6fx/h+sD6fz2N8P1ifz+cxvh+sz+fzGN8P1ufzeYzvB+vz+TzG94P1+Xwe4/vB+nw+j/H9YH0+n8f4frA+n89jfD9Yn8/nMb4frM/n8xjfD9bn83mM7wfr8/k8xveD9fl8HuP7wfp8Po/x/WB9Pp/HuPgH638v5rfY5O1iU2yKTbGZcneTt4vNlLtv4rc45+q5F/NbbPJ2sSk2xabYTLm7ydvFZsrdN/FbnHP13Iv5LTZ5u9gUm2JTbKbc3eTtYjPl7pv4Lc65eu7F/BabvF1sik2xKTZT7m7ydrGZcvdN/BbnXD33Yn6LTd4uNsWm2BSbKXc3ebvYTLn7Jn6Lc66eezG/xSZvF5tiU2yKzZS7m7xdbKbcfRO/xTlXz72Y32KTt4tNsSk2xWbK3U3eLjZT7r6J3+Kcq+dezG+xydvFptgUm2Iz5e4mbxebKXffxG9xztVzL+a32OTtYlNsik2xmXJ3k7eLzZS7b+K3OOfquRfzW2zydrEpNsWm2Ey5u8nbxWbK3TfxW5xz9dyL+S02ebvYFJtiU2ym3N3k7WIz5e6b+C3OuXruxfwWm7xdbIpNsSk2U+5u8naxmXL3TfwW51w9d4DNE/gOxabYFJtiU2ym3J1yd8rdYnM3n6/YPIHvUGzOuXruAJsn8B2KTbEpNsWm2Ey5O+XulLvF5m4+X7F5At+h2Jxz9dwBNk/gOxSbYlNsik2xmXJ3yt0pd4vN3Xy+YvMEvkOxOefquQNsnsB3KDbFptgUm2Iz5e6Uu1PuFpu7+XzF5gl8h2JzztVzB9g8ge9QbIpNsSk2xWbK3Sl3p9wtNnfz+YrNE/gOxeacq+cOsHkC36HYFJtiU2yKzZS7U+5OuVts7ubzFZsn8B2KzTlXzx1g8wS+Q7EpNsWm2BSbKXen3J1yt9jczecrNk/gOxSbc66eO8DmCXyHYlNsik2xKTZT7k65O+Vusbmbz1dsnsB3KDbnXD13gM0T+A7FptgUm2JTbKbcnXJ3yt1iczefr9g8ge9QbM65eu4AmyfwHYpNsSk2xabYTLk75e6Uu8Xmbj5fsXkC36HYnHP13AE2T+A7FJtiU2yKTbGZcnfK3Sl3i83dfL5i8wS+Q7E55+q5A2yewHcoNsWm2BSbYjPl7pS7U+4Wm7v5fMXmCXyHYnPO1XMH2BSbTd4uNsXmCXyHKXen3H0C36HYFJtis8nbxabYnHP13AE2xWaTt4tNsXkC32HK3Sl3n8B3KDbFpths8naxKTbnXD13gE2x2eTtYlNsnsB3mHJ3yt0n8B2KTbEpNpu8XWyKzTlXzx1gU2w2ebvYFJsn8B2m3J1y9wl8h2JTbIrNJm8Xm2JzztVzB9gUm03eLjbF5gl8hyl3p9x9At+h2BSbYrPJ28Wm2Jxz9dwBNsVmk7eLTbF5At9hyt0pd5/Adyg2xabYbPJ2sSk251w9d4BNsdnk7WJTbJ7Ad5hyd8rdJ/Adik2xKTabvF1sis05V88dYFNsNnm72BSbJ/AdptydcvcJfIdiU2yKzSZvF5tic87VcwfYFJtN3i42xeYJfIcpd6fcfQLfodgUm2KzydvFpticc/XcATbFZpO3i02xeQLfYcrdKXefwHcoNsWm2GzydrEpNudcPXeATbHZ5O1iU2yewHeYcnfK3SfwHYpNsSk2m7xdbIrNOVfPHWBTbDZ5u9gUmyfwHabcnXL3CXyHYlNsis0mbxebYnPO1XMH2BSbTd4uNsWm2GzydrG5m8835W6x2eTtYlNsNnm72BSbc66eO8Cm2GzydrEpNsVmk7eLzd18vil3i80mbxebYrPJ28Wm2Jxz9dwBNsVmk7eLTbEpNpu8XWzu5vNNuVtsNnm72BSbTd4uNsXmnKvnDrApNpu8XWyKTbHZ5O1iczefb8rdYrPJ28Wm2GzydrEpNudcPXeATbHZ5O1iU2yKzSZvF5u7+XxT7habTd4uNsVmk7eLTbE55+q5A2yKzSZvF5tiU2w2ebvY3M3nm3K32GzydrEpNpu8XWyKzTlXzx1gU2w2ebvYFJtis8nbxeZuPt+Uu8Vmk7eLTbHZ5O1iU2zOuXruAJtis8nbxabYFJtN3i42d/P5ptwtNpu8XWyKzSZvF5tic87VcwfYFJtN3i42xabYbPJ2sbmbzzflbrHZ5O1iU2w2ebvYFJtzrp47wKbYbPJ2sSk2xWaTt4vN3Xy+KXeLzSZvF5tis8nbxabYnHP13AE2xWaTt4tNsSk2m7xdbO7m8025W2w2ebvYFJtN3i42xeacq+cOsCk2m7xdbIpNsdnk7WJzN59vyt1is8nbxabYbPJ2sSk251w9d4BNsdnk7WJTbKbcLTZP4DtMuVtsNnm72BSbYrPJ28Wm2Jxz9dwBNsVmk7eLTbGZcrfYPIHvMOVusdnk7WJTbIrNJm8Xm2JzztVzB9gUm03eLjbFZsrdYvMEvsOUu8Vmk7eLTbEpNpu8XWyKzTlXzx1gU2w2ebvYFJspd4vNE/gOU+4Wm03eLjbFpths8naxKTbnXD13gE2x2eTtYlNsptwtNk/gO0y5W2w2ebvYFJtis8nbxabYnHP13AE2xWaTt4tNsZlyt9g8ge8w5W6x2eTtYlNsis0mbxebYnPO1XMH2BSbTd4uNsVmyt1i8wS+w5S7xWaTt4tNsSk2m7xdbIrNOVfPHWBTbDZ5u9gUmyl3i80T+A5T7habTd4uNsWm2GzydrEpNudcPXeATbHZ5O1iU2ym3C02T+A7TLlbbDZ5u9gUm2KzydvFpticc/XcATbFZpO3i02xmXK32DyB7zDlbrHZ5O1iU2yKzSZvF5tic87VcwfYFJtN3i42xWbK3WLzBL7DlLvFZpO3i02xKTabvF1sis05V88dYFNsNnm72BSbKXeLzRP4DlPuFptN3i42xabYbPJ2sSk251w9d4DNE/gOxabYTLlbbJ7Adyg2m7w95W6xeQLfodicc/XcATZP4DsUm2Iz5W6xeQLfodhs8vaUu8XmCXyHYnPO1XMH2DyB71Bsis2Uu8XmCXyHYrPJ21PuFpsn8B2KzTlXzx1g8wS+Q7EpNlPuFpsn8B2KzSZvT7lbbJ7Adyg251w9d4DNE/gOxabYTLlbbJ7Adyg2m7w95W6xeQLfodicc/XcATZP4DsUm2Iz5W6xeQLfodhs8vaUu8XmCXyHYnPO1XMH2DyB71Bsis2Uu8XmCXyHYrPJ21PuFpsn8B2KzTlXzx1g8wS+Q7EpNlPuFpsn8B2KzSZvT7lbbJ7Adyg251w9d4DNE/gOxabYTLlbbJ7Adyg2m7w95W6xeQLfodicc/XcATZP4DsUm2Iz5W6xeQLfodhs8vaUu8XmCXyHYnPO1XMH2DyB71Bsis2Uu8XmCXyHYrPJ21PuFpsn8B2KzTlXzx1g8wS+Q7EpNlPuFpsn8B2KzSZvT7lbbJ7Adyg251w992J+i2JTbIpNsSk2xabYFJtiU2yKTbEpNsWm2LyJ3+Kcq+dezG9RbIpNsSk2xabYFJtiU2yKTbEpNsWm2BSbN/FbnHP13Iv5LYpNsSk2xabYFJtiU2yKTbEpNsWm2BSbYvMmfotzrp57Mb9FsSk2xabYFJtiU2yKTbEpNsWm2BSbYlNs3sRvcc7Vcy/mtyg2xabYFJtiU2yKTbEpNsWm2BSbYlNsis2b+C3OuXruxfwWxabYFJtiU2yKTbEpNsWm2BSbYlNsik2xeRO/xTlXz72Y36LYFJtiU2yKTbEpNsWm2BSbYlNsik2xKTZv4rc45+q5F/NbFJtiU2yKTbEpNsWm2BSbYlNsik2xKTbF5k38FudcPfdifotiU2yKTbEpNsWm2BSbYlNsik2xKTbFpti8id/inKvnXsxvUWyKTbEpNsWm2BSbYlNsik2xKTbFptgUmzfxW5xz9dyL+S2KTbEpNsWm2BSbYlNsik2xKTbFptgUm2LzJn6Lc66eezG/RbEpNsWm2BSbYlNsik2xKTbFptgUm2JTbN7Eb3HOxXOf8/yDb/L23Xy+u/l8n7t9f5Kf43+aTd6+m893N5/vc7fvT/Jz/E+zydt38/nu5vN97vb9SX6O/2k2eftuPt/dfL7P3b4/yc/xP80mb9/N57ubz/e52/cn+Tn+p9nk7bv5fHfz+T53+/4kP8f/NJu8fTef724+3+du35/k5/ifZpO37+bz3c3n+9zt+5P8HP/TbPL23Xy+u/l8n7t9f5Kf43+aTd6+m893N5/vc7fvT/Jz/E+zydt38/nu5vN97vb9SX6O/2k2eftuPt/dfL7P3S7+k/gHfwLfodjczecrNm/it5hyd8rdYlNsik2xKTbFZt/FJ32hJ/Adis3dfL5i8yZ+iyl3p9wtNsWm2BSbYlNs9l180hd6At+h2NzN5ys2b+K3mHJ3yt1iU2yKTbEpNsVm38UnfaEn8B2Kzd18vmLzJn6LKXen3C02xabYFJtiU2z2XXzSF3oC36HY3M3nKzZv4reYcnfK3WJTbIpNsSk2xWbfxSd9oSfwHYrN3Xy+YvMmfospd6fcLTbFptgUm2JTbPZdfNIXegLfodjczecrNm/it5hyd8rdYlNsik2xKTbFZt/FJ32hJ/Adis3dfL5i8yZ+iyl3p9wtNsWm2BSbYlNs9l180hd6At+h2NzN5ys2b+K3mHJ3yt1iU2yKTbEpNsVm38UnfaEn8B2Kzd18vmLzJn6LKXen3C02xabYFJtiU2z2XXzSF3oC36HY3M3nKzZv4reYcnfK3WJTbIpNsSk2xWbfxSd9oSfwHYrN3Xy+YvMmfospd6fcLTbFptgUm2JTbPZdfNIX2uTtYjPlbrEpNlPuFptiU2yKzSZvT7k75W6xuZvPV2yKzb6LT/pCm7xdbKbcLTbFZsrdYlNsik2x2eTtKXen3C02d/P5ik2x2XfxSV9ok7eLzZS7xabYTLlbbIpNsSk2m7w95e6Uu8Xmbj5fsSk2+y4+6Qtt8naxmXK32BSbKXeLTbEpNsVmk7en3J1yt9jczecrNsVm38UnfaFN3i42U+4Wm2Iz5W6xKTbFpths8vaUu1PuFpu7+XzFptjsu/ikL7TJ28Vmyt1iU2ym3C02xabYFJtN3p5yd8rdYnM3n6/YFJt9F5/0hTZ5u9hMuVtsis2Uu8Wm2BSbYrPJ21PuTrlbbO7m8xWbYrPv4pO+0CZvF5spd4tNsZlyt9gUm2JTbDZ5e8rdKXeLzd18vmJTbPZdfNIX2uTtYjPlbrEpNlPuFptiU2yKzSZvT7k75W6xuZvPV2yKzb6LT/pCm7xdbKbcLTbFZsrdYlNsik2x2eTtKXen3C02d/P5ik2x2XfxSV9ok7eLzZS7xabYTLlbbIpNsSk2m7w95e6Uu8Xmbj5fsSk2+y4+6Qtt8naxmXK32BSbKXeLTbEpNsVmk7en3J1yt9jczecrNsVm3w0nj/DDFJtiU2yKzSZvF5tiU2zu5vMVm2KzydvFptgUm2Iz5e5v+NXHOsCm2BSbYrPJ28Wm2BSbu/l8xabYbPJ2sSk2xabYTLn7G371sQ6wKTbFpths8naxKTbF5m4+X7EpNpu8XWyKTbEpNlPu/oZffawDbIpNsSk2m7xdbIpNsbmbz1dsis0mbxebYlNsis2Uu7/hVx/rAJtiU2yKzSZvF5tiU2zu5vMVm2KzydvFptgUm2Iz5e5v+NXHOsCm2BSbYrPJ28Wm2BSbu/l8xabYbPJ2sSk2xabYTLn7G371sQ6wKTbFpths8naxKTbF5m4+X7EpNpu8XWyKTbEpNlPu/oZffawDbIpNsSk2m7xdbIpNsbmbz1dsis0mbxebYlNsis2Uu7/hVx/rAJtiU2yKzSZvF5tiU2zu5vMVm2KzydvFptgUm2Iz5e5v+NXHOsCm2BSbYrPJ28Wm2BSbu/l8xabYbPJ2sSk2xabYTLn7G371sQ6wKTbFpths8naxKTbF5m4+X7EpNpu8XWyKTbEpNlPu/oZffawDbIpNsSk2m7xdbIpNsbmbz1dsis0mbxebYlNsis2Uu7/hVx/rP+TtN/FbFJtiU2yKzWeH333K3WJzzsVzV/GlN3n7TfwWxabYFJti89nhd59yt9icc/HcVXzpTd5+E79FsSk2xabYfHb43afcLTbnXDx3FV96k7ffxG9RbIpNsSk2nx1+9yl3i805F89dxZfe5O038VsUm2JTbIrNZ4fffcrdYnPOxXNX8aU3eftN/BbFptgUm2Lz2eF3n3K32Jxz8dxVfOlN3n4Tv0WxKTbFpth8dvjdp9wtNudcPHcVX3qTt9/Eb1Fsik2xKTafHX73KXeLzTkXz13Fl97k7TfxWxSbYlNsis1nh999yt1ic87Fc1fxpTd5+038FsWm2BSbYvPZ4XefcrfYnHPx3FV86U3efhO/RbEpNsWm2Hx2+N2n3C0251w8dxVfepO338RvUWyKTbEpNp8dfvcpd4vNORfPHeELbfL2lLvFZsrdKXeLTbEpNlPuFpticzefb8rd97nhE/hH2OTtKXeLzZS7U+4Wm2JTbKbcLTbF5m4+35S773PDJ/CPsMnbU+4Wmyl3p9wtNsWm2Ey5W2yKzd18vil33+eGT+AfYZO3p9wtNlPuTrlbbIpNsZlyt9gUm7v5fFPuvs8Nn8A/wiZvT7lbbKbcnXK32BSbYjPlbrEpNnfz+abcfZ8bPoF/hE3ennK32Ey5O+VusSk2xWbK3WJTbO7m8025+z43fAL/CJu8PeVusZlyd8rdYlNsis2Uu8Wm2NzN55ty931u+AT+ETZ5e8rdYjPl7pS7xabYFJspd4tNsbmbzzfl7vvc8An8I2zy9pS7xWbK3Sl3i02xKTZT7habYnM3n2/K3fe54RP4R9jk7Sl3i82Uu1PuFptiU2ym3C02xeZuPt+Uu+9zwyfwj7DJ21PuFpspd6fcLTbFpthMuVtsis3dfL4pd9/nhk/gH2GTt6fcLTZT7k65W2yKTbGZcrfYFJu7+XxT7r7Pj34C/1DFpthMubvJ28Vmyt1iU2yKzSZvf/7l9yo2xWbfDSeP8MMUm2Iz5e4mbxebKXeLTbEpNpu8/fmX36vYFJt9N5w8wg9TbIrNlLubvF1sptwtNsWm2Gzy9udffq9iU2z23XDyCD9MsSk2U+5u8naxmXK32BSbYrPJ259/+b2KTbHZd8PJI/wwxabYTLm7ydvFZsrdYlNsis0mb3/+5fcqNsVm3w0nj/DDFJtiM+XuJm8Xmyl3i02xKTabvP35l9+r2BSbfTecPMIPU2yKzZS7m7xdbKbcLTbFpths8vbnX36vYlNs9t1w8gg/TLEpNlPubvJ2sZlyt9gUm2Kzyduff/m9ik2x2XfDySP8MMWm2Ey5u8nbxWbK3WJTbIrNJm9//uX3KjbFZt8NJ4/wwxSbYjPl7iZvF5spd4tNsSk2m7z9+Zffq9gUm303nDzCD1Nsis2Uu5u8XWym3C02xabYbPL2519+r2JTbPbdcPIIP0yxKTZT7m7ydrGZcrfYFJtis8nbn3/5vYpNsdl38UlfqNgUm2JTbN7EbzHl7iZvF5tiU2yKzSZvF5ticzef75yr5w6wKTbFpti8id9iyt1N3i42xabYFJtN3i42xeZuPt85V88dYFNsik2xeRO/xZS7m7xdbIpNsSk2m7xdbIrN3Xy+c66eO8Cm2BSbYvMmfospdzd5u9gUm2JTbDZ5u9gUm7v5fOdcPXeATbEpNsXmTfwWU+5u8naxKTbFpths8naxKTZ38/nOuXruAJtiU2yKzZv4Labc3eTtYlNsik2x2eTtYlNs7ubznXP13AE2xabYFJs38VtMubvJ28Wm2BSbYrPJ28Wm2NzN5zvn6rkDbIpNsSk2b+K3mHJ3k7eLTbEpNsVmk7eLTbG5m893ztVzB9gUm2JTbN7EbzHl7iZvF5tiU2yKzSZvF5ticzef75yr5w6wKTbFpti8id9iyt1N3i42xabYFJtN3i42xeZuPt85V88dYFNsik2xeRO/xZS7m7xdbIpNsSk2m7xdbIrN3Xy+c66eO8Cm2BSbYvMmfospdzd5u9gUm2JTbDZ5u9gUm7v5fOdcPfcf8vbdfL5is8nbxabYFJspd4vNlLtT7habTd6ecnfK3XOunvsPeftuPl+x2eTtYlNsis2Uu8Vmyt0pd4vNJm9PuTvl7jlXz/2HvH03n6/YbPJ2sSk2xWbK3WIz5e6Uu8Vmk7en3J1y95yr5/5D3r6bz1dsNnm72BSbYjPlbrGZcnfK3WKzydtT7k65e87Vc/8hb9/N5ys2m7xdbIpNsZlyt9hMuTvlbrHZ5O0pd6fcPefquf+Qt+/m8xWbTd4uNsWm2Ey5W2ym3J1yt9hs8vaUu1PunnP13H/I23fz+YrNJm8Xm2JTbKbcLTZT7k65W2w2eXvK3Sl3z7l67j/k7bv5fMVmk7eLTbEpNlPuFpspd6fcLTabvD3l7pS751w99x/y9t18vmKzydvFptgUmyl3i82Uu1PuFptN3p5yd8rdc66e+w95+24+X7HZ5O1iU2yKzZS7xWbK3Sl3i80mb0+5O+XuOVfP/Ye8fTefr9hs8naxKTbFZsrdYjPl7pS7xWaTt6fcnXL3nKvn/kPevpvPV2w2ebvYFJtiM+VusZlyd8rdYrPJ21PuTrl7zsVzR/hCU+4WmyfwHYpNsSk2T+A7bPL2lLvFpti8zw2fwD/ClLvF5gl8h2JTbIrNE/gOm7w95W6xKTbvc8Mn8I8w5W6xeQLfodgUm2LzBL7DJm9PuVtsis373PAJ/CNMuVtsnsB3KDbFptg8ge+wydtT7habYvM+N3wC/whT7habJ/Adik2xKTZP4Dts8vaUu8Wm2LzPDZ/AP8KUu8XmCXyHYlNsis0T+A6bvD3lbrEpNu9zwyfwjzDlbrF5At+h2BSbYvMEvsMmb0+5W2yKzfvc8An8I0y5W2yewHcoNsWm2DyB77DJ21PuFpti8z43fAL/CFPuFpsn8B2KTbEpNk/gO2zy9pS7xabYvM8Nn8A/wpS7xeYJfIdiU2yKzRP4Dpu8PeVusSk273PDJ/CPMOVusXkC36HYFJti8wS+wyZvT7lbbIrN+9zwCfwjTLlbbJ7Adyg2xabYPIHvsMnbU+4Wm2LzPhd/Aj/wX+F7/hW+Z7F5E7/FlLvFZpO3i82Uu+dcPfdH+Z5/he9ZbN7EbzHlbrHZ5O1iM+XuOVfP/VG+51/hexabN/FbTLlbbDZ5u9hMuXvO1XN/lO/5V/iexeZN/BZT7habTd4uNlPunnP13B/le/4VvmexeRO/xZS7xWaTt4vNlLvnXD33R/mef4XvWWzexG8x5W6x2eTtYjPl7jlXz/1Rvudf4XsWmzfxW0y5W2w2ebvYTLl7ztVzf5Tv+Vf4nsXmTfwWU+4Wm03eLjZT7p5z9dwf5Xv+Fb5nsXkTv8WUu8Vmk7eLzZS751w990f5nn+F71ls3sRvMeVusdnk7WIz5e45V8/9Ub7nX+F7Fps38VtMuVtsNnm72Ey5e87Vc3+U7/lX+J7F5k38FlPuFptN3i42U+6ec/XcATbFZsrdYrPJ28Wm2BSbN/FbPIHvUGyKzZS7xabYnHP13AE2xWbK3WKzydvFptgUmzfxWzyB71Bsis2Uu8Wm2Jxz9dwBNsVmyt1is8nbxabYFJs38Vs8ge9QbIrNlLvFpticc/XcATbFZsrdYrPJ28Wm2BSbN/FbPIHvUGyKzZS7xabYnHP13AE2xWbK3WKzydvFptgUmzfxWzyB71Bsis2Uu8Wm2Jxz9dwBNsVmyt1is8nbxabYFJs38Vs8ge9QbIrNlLvFpticc/XcATbFZsrdYrPJ28Wm2BSbN/FbPIHvUGyKzZS7xabYnHP13AE2xWbK3WKzydvFptgUmzfxWzyB71Bsis2Uu8Wm2Jxz9dwBNsVmyt1is8nbxabYFJs38Vs8ge9QbIrNlLvFpticc/XcATbFZsrdYrPJ28Wm2BSbN/FbPIHvUGyKzZS7xabYnHP13AE2xWbK3WKzydvFptgUmzfxWzyB71Bsis2Uu8Wm2Jxz9dwBNsVmyt1is8nbxabYFJs38Vs8ge9QbIrNlLvFpticc/XcATbFpthMuVtsptwtNlPuFpu7+XzFZsrdKXeLzSZvT7k75e45V88dYFNsis2Uu8Vmyt1iM+Vusbmbz1dsptydcrfYbPL2lLtT7p5z9dwBNsWm2Ey5W2ym3C02U+4Wm7v5fMVmyt0pd4vNJm9PuTvl7jlXzx1gU2yKzZS7xWbK3WIz5W6xuZvPV2ym3J1yt9hs8vaUu1PunnP13AE2xabYTLlbbKbcLTZT7habu/l8xWbK3Sl3i80mb0+5O+XuOVfPHWBTbIrNlLvFZsrdYjPlbrG5m89XbKbcnXK32Gzy9pS7U+6ec/XcATbFpthMuVtsptwtNlPuFpu7+XzFZsrdKXeLzSZvT7k75e45V88dYFNsis2Uu8Vmyt1iM+Vusbmbz1dsptydcrfYbPL2lLtT7p5z9dwBNsWm2Ey5W2ym3C02U+4Wm7v5fMVmyt0pd4vNJm9PuTvl7jlXzx1gU2yKzZS7xWbK3WIz5W6xuZvPV2ym3J1yt9hs8vaUu1PunnP13AE2xabYTLlbbKbcLTZT7habu/l8xWbK3Sl3i80mb0+5O+XuOVfPHWBTbIrNlLvFZsrdYjPlbrG5m89XbKbcnXK32Gzy9pS7U+6ec/XcATbF5q/wPafcLTbF5gl8h03e/vzL77Xv4pO+ULEpNn+F7znlbrEpNk/gO2zy9udffq99F5/0hYpNsfkrfM8pd4tNsXkC32GTtz//8nvtu/ikL1Rsis1f4XtOuVtsis0T+A6bvP35l99r38UnfaFiU2z+Ct9zyt1iU2yewHfY5O3Pv/xe+y4+6QsVm2LzV/ieU+4Wm2LzBL7DJm9//uX32nfxSV+o2BSbv8L3nHK32BSbJ/AdNnn78y+/176LT/pCxabY/BW+55S7xabYPIHvsMnbn3/5vfZdfNIXKjbF5q/wPafcLTbF5gl8h03e/vzL77Xv4pO+ULEpNn+F7znlbrEpNk/gO2zy9udffq99F5/0hYpNsfkrfM8pd4tNsXkC32GTtz//8nvtu/ikL1Rsis1f4XtOuVtsis0T+A6bvP35l99r3w0n38w/+CZvF5tiU2yKTbEpNsVmk7c3ebvYTLlbbPbdcPLN/INv8naxKTbFptgUm2JTbDZ5e5O3i82Uu8Vm3w0n38w/+CZvF5tiU2yKTbEpNsVmk7c3ebvYTLlbbPbdcPLN/INv8naxKTbFptgUm2JTbDZ5e5O3i82Uu8Vm3w0n38w/+CZvF5tiU2yKTbEpNsVmk7c3ebvYTLlbbPbdcPLN/INv8naxKTbFptgUm2JTbDZ5e5O3i82Uu8Vm3w0n38w/+CZvF5tiU2yKTbEpNsVmk7c3ebvYTLlbbPbdcPLN/INv8naxKTbFptgUm2JTbDZ5e5O3i82Uu8Vm3w0n38w/+CZvF5tiU2yKTbEpNsVmk7c3ebvYTLlbbPbdcPLN/INv8naxKTbFptgUm2JTbDZ5e5O3i82Uu8Vm3w0n38w/+CZvF5tiU2yKTbEpNsVmk7c3ebvYTLlbbPbdcPLN/INv8naxKTbFptgUm2JTbDZ5e5O3i82Uu8Vm38UnfaE38VsUm2JzN59vk7eLTbGZcrfYFJtiU2w2efs3XPxYvvSb+C2KTbG5m8+3ydvFpthMuVtsik2xKTabvP0bLn4sX/pN/BbFptjczefb5O1iU2ym3C02xabYFJtN3v4NFz+WL/0mfotiU2zu5vNt8naxKTZT7habYlNsis0mb/+Gix/Ll34Tv0WxKTZ38/k2ebvYFJspd4tNsSk2xWaTt3/DxY/lS7+J36LYFJu7+XybvF1sis2Uu8Wm2BSbYrPJ27/h4sfypd/Eb1Fsis3dfL5N3i42xWbK3WJTbIpNsdnk7d9w8WP50m/ityg2xeZuPt8mbxebYjPlbrEpNsWm2Gzy9m+4+LF86TfxWxSbYnM3n2+Tt4tNsZlyt9gUm2JTbDZ5+zdc/Fi+9Jv4LYpNsbmbz7fJ28Wm2Ey5W2yKTbEpNpu8/Rsufixf+k38FsWm2NzN59vk7WJTbKbcLTbFptgUm03e/g0XP5Yv/SZ+i2JTbO7m823ydrEpNlPuFptiU2yKzSZv/4aLH8uXLjZP4DsUm7v5fMXmbj7flLvFZsrdTd4uNsVmk7fPuXruAJsn8B2Kzd18vmJzN59vyt1iM+XuJm8Xm2KzydvnXD13gM0T+A7F5m4+X7G5m8835W6xmXJ3k7eLTbHZ5O1zrp47wOYJfIdiczefr9jczeebcrfYTLm7ydvFpths8vY5V88dYPMEvkOxuZvPV2zu5vNNuVtsptzd5O1iU2w2efucq+cOsHkC36HY3M3nKzZ38/mm3C02U+5u8naxKTabvH3O1XMH2DyB71Bs7ubzFZu7+XxT7habKXc3ebvYFJtN3j7n6rkDbJ7Adyg2d/P5is3dfL4pd4vNlLubvF1sis0mb59z9dwBNk/gOxSbu/l8xeZuPt+Uu8Vmyt1N3i42xWaTt8+5eu4AmyfwHYrN3Xy+YnM3n2/K3WIz5e4mbxebYrPJ2+dcPXeAzRP4DsXmbj5fsbmbzzflbrGZcneTt4tNsdnk7XOunjvA5gl8h2JzN5+v2NzN55tyt9hMubvJ28Wm2Gzy9jlXzx1gU2w2ebvYFJtiU2yKTbEpNsWm2Ey5W2w+//J7FZtN3j7n6rkDbIrNJm8Xm2JTbIpNsSk2xabYFJspd4vN519+r2KzydvnXD13gE2x2eTtYlNsik2xKTbFptgUm2Iz5W6x+fzL71VsNnn7nKvnDrApNpu8XWyKTbEpNsWm2BSbYlNsptwtNp9/+b2KzSZvn3P13AE2xWaTt4tNsSk2xabYFJtiU2yKzZS7xebzL79Xsdnk7XOunjvApths8naxKTbFptgUm2JTbIpNsZlyt9h8/uX3KjabvH3O1XMH2BSbTd4uNsWm2BSbYlNsik2xKTZT7habz7/8XsVmk7fPuXruAJtis8nbxabYFJtiU2yKTbEpNsVmyt1i8/mX36vYbPL2OVfPHWBTbDZ5u9gUm2JTbIpNsSk2xabYTLlbbD7/8nsVm03ePufquQNsis0mbxebYlNsik2xKTbFptgUmyl3i83nX36vYrPJ2+dcPXeATbHZ5O1iU2yKTbEpNsWm2BSbYjPlbrH5/MvvVWw2efucq+cOsCk2m7xdbIpNsSk2xabYFJtiU2ym3C02n3/5vYrNJm+fc/XcATbFZpO3i02xKTZ38/mm3C02xabYFJtiU2ym3C02xeZ9Lv4EfuBiU2w2ebvYFJticzefb8rdYlNsik2xKTbFZsrdYlNs3ufiT+AHLjbFZpO3i02xKTZ38/mm3C02xabYFJtiU2ym3C02xeZ9Lv4EfuBiU2w2ebvYFJticzefb8rdYlNsik2xKTbFZsrdYlNs3ufiT+AHLjbFZpO3i02xKTZ38/mm3C02xabYFJtiU2ym3C02xeZ9Lv4EfuBiU2w2ebvYFJticzefb8rdYlNsik2xKTbFZsrdYlNs3ufiT+AHLjbFZpO3i02xKTZ38/mm3C02xabYFJtiU2ym3C02xeZ9Lv4EfuBiU2w2ebvYFJticzefb8rdYlNsik2xKTbFZsrdYlNs3ufiT+AHLjbFZpO3i02xKTZ38/mm3C02xabYFJtiU2ym3C02xeZ9Lv4EfuBiU2w2ebvYFJticzefb8rdYlNsik2xKTbFZsrdYlNs3ufiT+AHLjbFZpO3i02xKTZ38/mm3C02xabYFJtiU2ym3C02xeZ9Lv4EfuBiU2w2ebvYFJticzefb8rdYlNsik2xKTbFZsrdYlNs3ufiT+AHLjbFZpO3i02xKTZT7habu/l8U+4Wm03e3uTtKXen3N138UlfqNgUm03eLjbFpthMuVts7ubzTblbbDZ5e5O3p9ydcnffxSd9oWJTbDZ5u9gUm2Iz5W6xuZvPN+Vusdnk7U3ennJ3yt19F5/0hYpNsdnk7WJTbIrNlLvF5m4+35S7xWaTtzd5e8rdKXf3XXzSFyo2xWaTt4tNsSk2U+4Wm7v5fFPuFptN3t7k7Sl3p9zdd/FJX6jYFJtN3i42xabYTLlbbO7m8025W2w2eXuTt6fcnXJ338UnfaFiU2w2ebvYFJtiM+VusbmbzzflbrHZ5O1N3p5yd8rdfRef9IWKTbHZ5O1iU2yKzZS7xeZuPt+Uu8Vmk7c3eXvK3Sl391180hcqNsVmk7eLTbEpNlPuFpu7+XxT7habTd7e5O0pd6fc3XfxSV+o2BSbTd4uNsWm2Ey5W2zu5vNNuVtsNnl7k7en3J1yd9/FJ32hYlNsNnm72BSbYjPlbrG5m8835W6x2eTtTd6ecnfK3X0Xn/SFik2x2eTtYlNsis2Uu8Xmbj7flLvFZpO3N3l7yt0pd/ddfNIXKjZP4DsUm2JTbIrN3Xy+KXeLzZS7U+7ezeebcrfYFJtzrp47wOYJfIdiU2yKTbG5m8835W6xmXJ3yt27+XxT7habYnPO1XMH2DyB71Bsik2xKTZ38/mm3C02U+5OuXs3n2/K3WJTbM65eu4AmyfwHYpNsSk2xeZuPt+Uu8Vmyt0pd+/m8025W2yKzTlXzx1g8wS+Q7EpNsWm2NzN55tyt9hMuTvl7t18vil3i02xOefquQNsnsB3KDbFptgUm7v5fFPuFpspd6fcvZvPN+VusSk251w9d4DNE/gOxabYFJticzefb8rdYjPl7pS7d/P5ptwtNsXmnKvnDrB5At+h2BSbYlNs7ubzTblbbKbcnXL3bj7flLvFpticc/XcATZP4DsUm2JTbIrN3Xy+KXeLzZS7U+7ezeebcrfYFJtzrp47wOYJfIdiU2yKTbG5m8835W6xmXJ3yt27+XxT7habYnPO1XMH2DyB71Bsik2xKTZ38/mm3C02U+5OuXs3n2/K3WJTbM65eu4AmyfwHYpNsSk2xeZuPt+Uu8Vmyt0pd+/m8025W2yKzTlXz72Y36LYFJtiU2yKzRP4DlPu3s3nKzabvP0bLn4sX/pN/BbFptgUm2JTbJ7Ad5hy924+X7HZ5O3fcPFj+dJv4rcoNsWm2BSbYvMEvsOUu3fz+YrNJm//hosfy5d+E79FsSk2xabYFJsn8B2m3L2bz1dsNnn7N1z8WL70m/gtik2xKTbFptg8ge8w5e7dfL5is8nbv+Hix/Kl38RvUWyKTbEpNsXmCXyHKXfv5vMVm03e/g0XP5Yv/SZ+i2JTbIpNsSk2T+A7TLl7N5+v2Gzy9m+4+LF86TfxWxSbYlNsik2xeQLfYcrdu/l8xWaTt3/DxY/lS7+J36LYFJtiU2yKzRP4DlPu3s3nKzabvP0bLn4sX/pN/BbFptgUm2JTbJ7Ad5hy924+X7HZ5O3fcPFj+dJv4rcoNsWm2BSbYvMEvsOUu3fz+YrNJm//hosfy5d+E79FsSk2xabYFJsn8B2m3L2bz1dsNnn7N/zoY30+n8//7/vB+nw+j/H9YH0+n8f4frA+n89jfD9Yn8/nMb4frM/n8xjfD9bn83mM7wfr8/k8xveD9fl8HuP7wfp8Po/x/WB9Pp/H+H6wPp/PY3w/WJ/P5zG+H6zP5/MY3w/W5/N5jO8H6/P5PMb3g/X5fB7j+8H6fD6P8f1gfT6fx/h+sD6fz2N8P1ifz+cxvh+sz+fzGN8P1ufzeYzvB+vz+TzG94P1+Xwe4/vB+nw+j/H/AO0HY8kYi0c6AAAAAElFTkSuQmCC ' Matrix placement and Reed-Solomon routines adapted from Project Nayuki: ' https://www.nayuki.io/page/qr-code-generator-library ' Copyright (c) Project Nayuki. MIT License. ' Permission is hereby granted, free of charge, to any person obtaining a copy ' of this software and associated documentation files (the "Software"), to deal ' in the Software without restriction, including without limitation the rights ' to use, copy, modify, merge, publish, distribute, sublicense, and/or sell ' copies of the Software, and to permit persons to whom the Software is ' furnished to do so, subject to the following conditions: ' The above copyright notice and this permission notice shall be included in ' all copies or substantial portions of the Software. ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR ' IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, ' FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE ' AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER ' LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, ' OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ' One value per report-code instance, shared by the footer and QR payload. Private ReadOnly automaticReportUuid As String = System.Guid.NewGuid().ToString("D") Public Function ReportUUID(ByVal supplied As Object) As String Dim value As String = System.Convert.ToString(supplied).Trim() If System.Text.RegularExpressions.Regex.IsMatch(value, "^[0-9a-fA-F]{8}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{12}$") Then Return value.ToLowerInvariant() End If Return automaticReportUuid End Function ' Supported area: EU-27, EFTA (CH/LI/NO/IS), and GB/UK. Formatting, not postal validation. Private Function CompanyPostalLine(ByVal line As String, ByVal requireCountry As Boolean) As Boolean Dim countries As String() = { "AT|AUT|A;\d{4}", "BE|BEL|B;\d{4}", "BG|BGR;\d{4}", "HR|HRV;\d{5}", "CY|CYP;\d{4}", "CZ|CZE;\d{3}[ \t]?\d{2}", "DK|DNK;\d{4}", "EE|EST;\d{5}", "FI|FIN;\d{5}", "FR|FRA|F;\d{5}", "DE|DEU|D;\d{5}", "GR|GRC|EL;\d{3}[ \t]?\d{2}", "HU|HUN|H;\d{4}", "IE|IRL;(?:[A-Z]\d{2}|D6W)[ \t]?[A-Z0-9]{4}", "IT|ITA|I;\d{5}", "LV|LVA;\d{4}", "LT|LTU;\d{5}", "LU|LUX|L;\d{4}", "MT|MLT;[A-Z]{3}[ \t]?\d{4}", "NL|NLD;\d{4}[ \t]?[A-Z]{2}", "PL|POL;\d{2}[- ]?\d{3}", "PT|PRT|P;\d{4}[- ]?\d{3}", "RO|ROU;\d{6}", "SK|SVK;\d{3}[ \t]?\d{2}", "SI|SVN|SLO;\d{4}", "ES|ESP|E;\d{5}", "SE|SWE|S;\d{3}[ \t]?\d{2}", "CH|CHE;\d{4}", "LI|LIE;\d{4}", "NO|NOR|N;\d{4}", "IS|ISL;\d{3}", "GB|GBR|UK;(?:GIR[ \t]?0AA|[A-Z]{1,2}\d[A-Z\d]?[ \t]?\d[A-Z]{2})" } Dim options As System.Text.RegularExpressions.RegexOptions = System.Text.RegularExpressions.RegexOptions.IgnoreCase Or System.Text.RegularExpressions.RegexOptions.CultureInvariant Dim patterns As New System.Collections.Generic.List(Of String)() For Each entry As String In countries Dim parts As String() = entry.Split(";"c) patterns.Add(parts(1)) Dim prefix As System.Text.RegularExpressions.Match = System.Text.RegularExpressions.Regex.Match(line, "^(?:" & parts(0) & ")(?:[ \t]*[-\u2013][ \t]*|[ \t]+|(?=\d))(?<rest>.+)$", options) If prefix.Success AndAlso CompanyPostalMatch(prefix.Groups("rest").Value, parts(1), options) Then Return True Next If requireCountry Then Return False Dim postal As String = "(?:" & String.Join("|", patterns.ToArray()) & ")" If CompanyPostalMatch(line, postal, options) Then Return True ' City before a country-prefixed code, e.g. Riga LV-1050. For Each entry As String In countries Dim parts As String() = entry.Split(";"c) If System.Text.RegularExpressions.Regex.IsMatch(line, "^\p{L}[\p{L}\p{M}0-9 .\u2019'()-]*[ \t]+(?:" & parts(0) & ")[ \t]*[-\u2013]?[ \t]*" & parts(1) & "$", options) Then Return True Next Return False End Function Private Function CompanyPostalMatch(ByVal value As String, ByVal postal As String, ByVal options As System.Text.RegularExpressions.RegexOptions) As Boolean Dim city As String = "\p{L}[\p{L}\p{M}0-9 .\u2019'()-]*" Return System.Text.RegularExpressions.Regex.IsMatch(value, "^(?:" & postal & ")[ \t]+" & city & "$", options) OrElse System.Text.RegularExpressions.Regex.IsMatch(value, "^" & city & "[ \t]+(?:" & postal & ")$", options) End Function Public Function CompanyAddress(ByVal supplied As Object) As String Dim value As String = System.Convert.ToString(supplied).Trim() If value.Length = 0 OrElse value.Contains(vbCr) OrElse value.Contains(vbLf) Then Return value For i As Integer = 1 To value.Length - 2 If ",;|".IndexOf(value(i)) >= 0 Then Dim tail As String = value.Substring(i + 1).Trim() If CompanyPostalLine(tail, False) Then Return value.Substring(0, i).Trim() & vbCrLf & tail End If Next ' Prefer explicit country boundaries to avoid separating compound postcodes. For pass As Integer = 0 To 1 For i As Integer = 1 To value.Length - 2 If Char.IsWhiteSpace(value(i)) Then Dim street As String = value.Substring(0, i).Trim() Dim tail As String = value.Substring(i + 1).Trim() Dim numbered As Boolean = System.Text.RegularExpressions.Regex.IsMatch(street, "\d[\w/-]*$") If (pass = 0 OrElse numbered) AndAlso CompanyPostalLine(tail, pass = 0) Then Return street & vbCrLf & tail End If Next Next Return value End Function Public Function CompanyAddressPart(ByVal supplied As Object, ByVal city As Boolean) As String Dim value As String = CompanyAddress(supplied).Replace(vbCrLf, vbLf).Replace(vbCr, vbLf) Dim split As Integer = value.IndexOf(vbLf) If split < 0 Then Return If(city, "", value) Return If(city, value.Substring(split + 1).Trim(), value.Substring(0, split).Trim()) End Function Private Function TextValue(ByVal value As Object) As String If value Is Nothing OrElse System.Convert.IsDBNull(value) Then Return "" Return System.Convert.ToString(value, System.Globalization.CultureInfo.InvariantCulture) End Function Private Function JsonString(ByVal value As Object) As String Dim result As New System.Text.StringBuilder() result.Append(ChrW(34)) For Each c As Char In TextValue(value) Dim n As Integer = AscW(c) And &HFFFF If n = 34 OrElse n = 92 Then result.Append(ChrW(92)).Append(c) ElseIf n < 32 Then result.Append(ChrW(92)).Append("u").Append(n.ToString("x4")) Else result.Append(c) End If Next result.Append(ChrW(34)) Return result.ToString() End Function Public Function FullLink(ByVal header As Object(), ByVal makers As Object(), ByVal numbers As Object(), ByVal descriptions As Object(), ByVal quantities As Object(), Optional ByVal stages As Object() = Nothing, Optional ByVal reportUuid As String = "", Optional ByVal shortTexts As Object() = Nothing, Optional ByVal longTexts As Object() = Nothing, Optional ByVal materials As Object() = Nothing, Optional ByVal units As Object() = Nothing, Optional ByVal componentIds As Object() = Nothing, Optional ByVal coordinatesX As Object() = Nothing, Optional ByVal coordinatesY As Object() = Nothing, Optional ByVal coordinatesZ As Object() = Nothing) As String Try If Not System.Text.RegularExpressions.Regex.IsMatch(reportUuid, "^[0-9a-fA-F]{8}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{12}$") Then Return "FEHLER: Bitte eine gueltige Report-UUID eingeben." Dim keys As String() = {"projectNumber", "projectName", "listNumber", "date", "siteName", "siteStreet", "siteCity", "sitePhone", "siteEmail", "contractorName", "contractorStreet", "contractorCity", "contractorPhone", "contractorEmail", "companyName", "companyStreet", "companyCity", "companyPhone", "companyEmail", "companyAddress"} Dim limits As Integer() = {80,200,80,40,200,200,200,80,254,200,200,200,80,254,200,500,500,80,254,1000} Dim json As New System.Text.StringBuilder("{""version"":1") json.Append(",""reportUuid"":").Append(JsonString(reportUuid.ToLowerInvariant())) For i As Integer = 0 To keys.Length - 1 Dim headerValue As Object = If(i < header.Length, header(i), "") If TextValue(headerValue).Length > limits(i) Then Return "FEHLER: Feld " & keys(i) & " ist zu lang für das Webformular." json.Append(",").Append(JsonString(keys(i))).Append(":").Append(JsonString(headerValue)) Next ' Match the report: manufacturer + article number; sum all component quantities. Dim rows As New System.Collections.Generic.List(Of String())() Dim components As New System.Collections.Generic.List(Of System.Text.StringBuilder)() Dim totals As New System.Collections.Generic.List(Of Decimal)() Dim positions As New System.Collections.Generic.Dictionary(Of String, Integer)(System.StringComparer.Ordinal) If makers IsNot Nothing Then For i As Integer = 0 To makers.Length - 1 Dim maker As String = TextValue(makers(i)) If maker.Trim().Length = 0 Then Continue For Dim stage As String = If(stages Is Nothing, "", TextValue(stages(i))).Trim() If stage.Length > 100 Then Return "FEHLER: Etappe ist zu lang (maximal 100 Zeichen)." Dim unit As String = If(units Is Nothing, "Stk", TextValue(units(i))).Trim() Dim number As String = TextValue(numbers(i)) Dim description As String = TextValue(descriptions(i)) If maker.Length > 100 OrElse number.Length > 100 OrElse description.Length > 300 Then Return "FEHLER: Ein Artikelwert ist zu lang für das Webformular." Dim amount As Decimal = 0D If quantities(i) IsNot Nothing AndAlso Not System.Convert.IsDBNull(quantities(i)) Then amount = System.Convert.ToDecimal(quantities(i), System.Globalization.CultureInfo.InvariantCulture) If amount < 0D Then Return "FEHLER: Negative Artikelmenge." Dim key As String = JsonString(maker) & ":" & JsonString(stage) & ":" & JsonString(number) & ":" & JsonString(unit) Dim index As Integer If positions.TryGetValue(key,index) Then totals(index) += amount Else index = rows.Count components.Add(New System.Text.StringBuilder()) positions.Add(key,rows.Count) rows.Add(New String() {maker,number,description,stage, If(shortTexts Is Nothing, "", TextValue(shortTexts(i))), If(longTexts Is Nothing, "", TextValue(longTexts(i))), If(materials Is Nothing, "", TextValue(materials(i))),unit}) totals.Add(amount) End If If componentIds IsNot Nothing Then Dim entries As System.Text.StringBuilder = components(index) If entries.Length > 0 Then entries.Append(",") entries.Append("{""id"":").Append(JsonString(componentIds(i))) entries.Append(",""idType"":""ifc""") entries.Append(",""x"":").Append(CoordinateJson(coordinatesX, i)) entries.Append(",""y"":").Append(CoordinateJson(coordinatesY, i)) entries.Append(",""z"":").Append(CoordinateJson(coordinatesZ, i)) entries.Append(",""coordinateUnit"":""m""") entries.Append(",""quantity"":").Append(JsonString(amount.ToString(System.Globalization.CultureInfo.InvariantCulture))) entries.Append(",""unit"":").Append(JsonString(unit)).Append("}") End If Next End If If rows.Count > 500 Then Return "FEHLER: Mehr als 500 Artikelpositionen." json.Append(",""articles"":[") Dim articleStart As Integer = json.Length Dim onlineArticles As New System.Text.StringBuilder() For i As Integer = 0 To rows.Count - 1 Dim rowStart As Integer = json.Length If i > 0 Then json.Append(",") json.Append("{""manufacturer"":").Append(JsonString(rows(i)(0))) json.Append(",""stage"":").Append(JsonString(rows(i)(3))) json.Append(",""articleNumber"":").Append(JsonString(rows(i)(1))) json.Append(",""description"":").Append(JsonString(rows(i)(2))) json.Append(",""unit"":").Append(JsonString(rows(i)(7))) json.Append(",""quantity"":").Append(JsonString(totals(i).ToString(System.Globalization.CultureInfo.InvariantCulture))).Append("}") onlineArticles.Append(json.ToString(rowStart, json.Length - rowStart - 1)) onlineArticles.Append(",""shortText"":").Append(JsonString(rows(i)(4))) onlineArticles.Append(",""longText"":").Append(JsonString(rows(i)(5))) onlineArticles.Append(",""material"":").Append(JsonString(rows(i)(6))) If componentIds IsNot Nothing Then onlineArticles.Append(",""components"":[").Append(components(i).ToString()).Append("]") onlineArticles.Append("}") Next Dim articleEnd As Integer = json.Length json.Append("],""editedBy"":").Append(JsonString(If(header.Length > 21, TextValue(header(21)), ""))) json.Append(",""country"":").Append(JsonString(If(header.Length > 22, TextValue(header(22)), ""))) json.Append(",""reportLanguage"":").Append(JsonString(ReportLanguage(If(header.Length > 22, header(22), "")))) json.Append(",""templateVersion"":").Append(JsonString(TemplateVersion())) json.Append(",""qrIntro"":").Append(JsonString(ReportText(If(header.Length > 22, header(22), ""), "qrIntro", "Scannen Sie den QR-Code, um diesen Report digital zu erfassen, zu speichern und zu versenden. Die UUID ordnet ihn eindeutig zu."))) json.Append(",""qrOutro"":").Append(JsonString(ReportText(If(header.Length > 22, header(22), ""), "qrOutro", "Report im Browser öffnen"))).Append("}") Dim raw As Byte() = System.Text.Encoding.UTF8.GetBytes(json.ToString()) Using output As New System.IO.MemoryStream() Using compressor As New System.IO.Compression.DeflateStream(output,System.IO.Compression.CompressionMode.Compress,True) compressor.Write(raw,0,raw.Length) End Using Return OnlineLink(json.ToString().Substring(0, articleStart) & onlineArticles.ToString() & json.ToString().Substring(articleEnd), "https://stueckliste.pro-eng.ch/?v=2#z=" & System.Convert.ToBase64String(output.ToArray()).TrimEnd("="c).Replace("+","-").Replace("/","_"), reportUuid, If(header.Length > 20, TextValue(header(20)), ""), If(header.Length > 21, TextValue(header(21)), "")) End Using Catch ex As System.Exception Return "FEHLER: QR-Daten konnten nicht erstellt werden: " & ex.Message End Try End Function Public Function QRReady(ByVal link As String) As Boolean Return (IsOnlineLink(link) OrElse link.StartsWith("https://stueckliste.pro-eng.ch/?v=2#z=")) AndAlso QRLength(link) <= 2331 End Function Public Function QRStatus(ByVal link As String) As String If link.StartsWith("FEHLER:") Then Return link If QRLength(link) > 2331 Then Return "Die vollständige Liste ist zu gross für einen einzelnen QR-Code (" & QRLength(link).ToString() & " / 2331 Bytes). Es wurden keine Daten abgeschnitten. Bitte eine kleinere Auswahl auswerten." Return "Enthält Projekt, Listen-Nr., Datum, Bauvorhaben, Bauunternehmer, Firma / Ersteller sowie Hersteller, Artikelnummern, Bezeichnungen und summierte Mengen." End Function Public Function QRLength(ByVal text As String) As Integer Return System.Text.Encoding.UTF8.GetByteCount(text) End Function Private Sub PutBits(ByVal data As Byte(), ByRef pos As Integer, ByVal value As Integer, ByVal count As Integer) For i As Integer = count - 1 To 0 Step -1 If ((value >> i) And 1) <> 0 Then data(pos \ 8) = CByte(CInt(data(pos \ 8)) Or (1 << (7 - pos Mod 8))) pos += 1 Next End Sub Private Function Multiply(ByVal a As Integer, ByVal b As Integer) As Integer Dim result As Integer = 0 For i As Integer = 7 To 0 Step -1 result = (result << 1) Xor ((result >> 7) * &H11D) result = result Xor (((b >> i) And 1) * a) Next Return result End Function Private Sub Mark(ByVal matrix As Boolean(,), ByVal reserved As Boolean(,), ByVal x As Integer, ByVal y As Integer, ByVal dark As Boolean) matrix(x,y) = dark reserved(x,y) = True End Sub Private Sub Finder(ByVal matrix As Boolean(,), ByVal reserved As Boolean(,), ByVal cx As Integer, ByVal cy As Integer) For dy As Integer = -4 To 4 For dx As Integer = -4 To 4 Dim x As Integer = cx + dx, y As Integer = cy + dy If x >= 0 AndAlso y >= 0 AndAlso x < matrix.GetLength(0) AndAlso y < matrix.GetLength(1) Then Dim distance As Integer = System.Math.Max(System.Math.Abs(dx), System.Math.Abs(dy)) Mark(matrix, reserved, x, y, distance <> 2 AndAlso distance <> 4) End If Next Next End Sub Private Function Alignment(ByVal version As Integer) As Integer() Select Case version Case 10 : Return New Integer() {6,28,50} Case 11 : Return New Integer() {6,30,54} Case 12 : Return New Integer() {6,32,58} Case 13 : Return New Integer() {6,34,62} Case 14 : Return New Integer() {6,26,46,66} Case 15 : Return New Integer() {6,26,48,70} Case 16 : Return New Integer() {6,26,50,74} Case 17 : Return New Integer() {6,30,54,78} Case 18 : Return New Integer() {6,30,56,82} Case 19 : Return New Integer() {6,30,58,86} Case 20 : Return New Integer() {6,34,62,90} Case 21 : Return New Integer() {6,28,50,72,94} Case 22 : Return New Integer() {6,26,50,74,98} Case 23 : Return New Integer() {6,30,54,78,102} Case 24 : Return New Integer() {6,28,54,80,106} Case 25 : Return New Integer() {6,32,58,84,110} Case 26 : Return New Integer() {6,30,58,86,114} Case 27 : Return New Integer() {6,34,62,90,118} Case 28 : Return New Integer() {6,26,50,74,98,122} Case 29 : Return New Integer() {6,30,54,78,102,126} Case 30 : Return New Integer() {6,26,52,78,104,130} Case 31 : Return New Integer() {6,30,56,82,108,134} Case 32 : Return New Integer() {6,34,60,86,112,138} Case 33 : Return New Integer() {6,30,58,86,114,142} Case 34 : Return New Integer() {6,34,62,90,118,146} Case 35 : Return New Integer() {6,30,54,78,102,126,150} Case 36 : Return New Integer() {6,24,50,76,102,128,154} Case 37 : Return New Integer() {6,28,54,80,106,132,158} Case 38 : Return New Integer() {6,32,58,84,110,136,162} Case 39 : Return New Integer() {6,26,54,82,110,138,166} Case 40 : Return New Integer() {6,30,58,86,114,142,170} End Select Throw New System.ArgumentException("QR version") End Function Public Function QRImage(ByVal text As String) As Byte() If Not QRReady(text) AndAlso text <> "https://stueckliste.pro-eng.ch/report-version.php?download=1" Then Return Nothing Dim input As Byte() = System.Text.Encoding.UTF8.GetBytes(text) Dim eccTable As Integer() = {-1,10,16,26,18,24,16,18,22,22,26,30,22,22,24,24,28,28,26,26,26,26,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28} Dim blockTable As Integer() = {-1,1,1,1,2,2,4,4,4,5,5,5,8,9,9,10,10,11,13,14,16,17,17,18,20,21,23,25,26,28,29,31,33,35,37,38,40,43,45,47,49} Dim capacity As Integer() = {0,16,28,44,64,86,108,124,154,182,216,254,290,334,365,415,453,507,563,627,669,714,782,860,914,1000,1062,1128,1193,1267,1373,1455,1541,1631,1725,1812,1914,1992,2102,2216,2334} Dim version As Integer = 10 While input.Length + 3 > capacity(version) version += 1 End While Dim size As Integer = 17 + version * 4 Dim data(capacity(version)-1) As Byte Dim pos As Integer = 0 PutBits(data,pos,4,4) PutBits(data,pos,input.Length,16) For Each b As Byte In input PutBits(data,pos,CInt(b),8) Next PutBits(data,pos,0,System.Math.Min(4,data.Length*8-pos)) While pos Mod 8 <> 0 PutBits(data,pos,0,1) End While Dim pad As Integer = &HEC While pos < data.Length*8 PutBits(data,pos,pad,8) : pad = pad Xor &HFD End While Dim ec As Integer = eccTable(version), count As Integer = blockTable(version) Dim rawCount As Integer = data.Length + ec * count Dim shortCount As Integer = count - rawCount Mod count Dim shortData As Integer = rawCount \ count - ec Dim divisor(ec-1) As Integer divisor(ec-1) = 1 Dim power As Integer = 1 For i As Integer = 0 To ec-1 For j As Integer = 0 To ec-1 divisor(j) = Multiply(divisor(j),power) If j < ec-1 Then divisor(j) = divisor(j) Xor divisor(j+1) Next power = Multiply(power,2) Next Dim chunks As New System.Collections.Generic.List(Of Byte())() Dim corrections As New System.Collections.Generic.List(Of Integer())() Dim offset As Integer = 0 For block As Integer = 0 To count-1 Dim length As Integer = shortData If block >= shortCount Then length += 1 Dim chunk(length-1) As Byte, correction(ec-1) As Integer System.Array.Copy(data,offset,chunk,0,length) : offset += length For Each b As Byte In chunk Dim factor As Integer = CInt(b) Xor correction(0) For j As Integer = 0 To ec-2 correction(j) = correction(j+1) Next correction(ec-1) = 0 For j As Integer = 0 To ec-1 correction(j) = correction(j) Xor Multiply(divisor(j),factor) Next Next chunks.Add(chunk) : corrections.Add(correction) Next Dim words(rawCount-1) As Byte pos = 0 For i As Integer = 0 To shortData For block As Integer = 0 To count-1 If i < chunks(block).Length Then words(pos) = chunks(block)(i) : pos += 1 End If Next Next For i As Integer = 0 To ec-1 For block As Integer = 0 To count-1 words(pos) = CByte(corrections(block)(i)) : pos += 1 Next Next Dim matrix(size-1,size-1) As Boolean, reserved(size-1,size-1) As Boolean For i As Integer = 0 To size-1 Mark(matrix,reserved,6,i,i Mod 2 = 0) Mark(matrix,reserved,i,6,i Mod 2 = 0) Next Finder(matrix,reserved,3,3) Finder(matrix,reserved,size-4,3) Finder(matrix,reserved,3,size-4) Dim centers As Integer() = Alignment(version) For a As Integer = 0 To centers.Length-1 For b As Integer = 0 To centers.Length-1 If (a=0 AndAlso b=0) OrElse (a=0 AndAlso b=centers.Length-1) OrElse (b=0 AndAlso a=centers.Length-1) Then Continue For For dy As Integer = -2 To 2 For dx As Integer = -2 To 2 Mark(matrix,reserved,centers(a)+dx,centers(b)+dy,System.Math.Max(System.Math.Abs(dx),System.Math.Abs(dy)) <> 1) Next Next Next Next ' M level format bits are 00; mask 0; BCH/XOR gives &H5412. Dim format As Integer = &H5412 For i As Integer = 0 To 5 Mark(matrix,reserved,8,i,((format >> i) And 1) <> 0) Next Mark(matrix,reserved,8,7,((format >> 6) And 1) <> 0) Mark(matrix,reserved,8,8,((format >> 7) And 1) <> 0) Mark(matrix,reserved,7,8,((format >> 8) And 1) <> 0) For i As Integer = 9 To 14 Mark(matrix,reserved,14-i,8,((format >> i) And 1) <> 0) Next For i As Integer = 0 To 7 Mark(matrix,reserved,size-1-i,8,((format >> i) And 1) <> 0) Next For i As Integer = 8 To 14 Mark(matrix,reserved,8,size-15+i,((format >> i) And 1) <> 0) Next Mark(matrix,reserved,8,size-8,True) Dim remainder As Integer = version For i As Integer = 0 To 11 remainder = (remainder << 1) Xor ((remainder >> 11) * &H1F25) Next Dim versionBits As Integer = (version << 12) Or remainder For i As Integer = 0 To 17 Dim a As Integer = size-11 + i Mod 3, b As Integer = i \ 3 Mark(matrix,reserved,a,b,((versionBits >> i) And 1) <> 0) Mark(matrix,reserved,b,a,((versionBits >> i) And 1) <> 0) Next pos = 0 Dim right As Integer = size-1 While right >= 1 If right = 6 Then right = 5 For vertical As Integer = 0 To size-1 Dim y As Integer = vertical If ((right+1) And 2) = 0 Then y = size-1-vertical For j As Integer = 0 To 1 Dim x As Integer = right-j If Not reserved(x,y) Then Dim dark As Boolean = False If pos < words.Length*8 Then dark = ((CInt(words(pos \ 8)) >> (7-pos Mod 8)) And 1) <> 0 pos += 1 End If matrix(x,y) = dark Xor ((x+y) Mod 2 = 0) End If Next Next right -= 2 End While Return MatrixBitmap(BestMask(matrix,reserved)) End Function Private Function MatrixBitmap(ByVal matrix As Boolean(,)) As Byte() ' 24-bit BMP, 4-module quiet zone, four pixels per module. Dim size As Integer = matrix.GetLength(0) Dim side As Integer = (size+8)*4 Dim stride As Integer = side*3 Using stream As New System.IO.MemoryStream() Using writer As New System.IO.BinaryWriter(stream) writer.Write(CByte(66)) : writer.Write(CByte(77)) writer.Write(CInt(54+side*stride)) : writer.Write(CInt(0)) : writer.Write(CInt(54)) writer.Write(CInt(40)) : writer.Write(side) : writer.Write(side) writer.Write(CShort(1)) : writer.Write(CShort(24)) writer.Write(CInt(0)) : writer.Write(CInt(side*stride)) writer.Write(CInt(0)) : writer.Write(CInt(0)) : writer.Write(CInt(0)) : writer.Write(CInt(0)) For py As Integer = side-1 To 0 Step -1 For px As Integer = 0 To side-1 Dim x As Integer = px \ 4 - 4, y As Integer = py \ 4 - 4 Dim shade As Byte = 255 If x >= 0 AndAlso y >= 0 AndAlso x < size AndAlso y < size Then If matrix(x,y) Then shade = 0 End If writer.Write(shade) : writer.Write(shade) : writer.Write(shade) Next Next writer.Flush() Return stream.ToArray() End Using End Using End Function Private Function MaskBit(ByVal mask As Integer, ByVal x As Integer, ByVal y As Integer) As Boolean Select Case mask Case 0 : Return (x+y) Mod 2=0 Case 1 : Return y Mod 2=0 Case 2 : Return x Mod 3=0 Case 3 : Return (x+y) Mod 3=0 Case 4 : Return (x\3+y\2) Mod 2=0 Case 5 : Return x*y Mod 2+x*y Mod 3=0 Case 6 : Return (x*y Mod 2+x*y Mod 3) Mod 2=0 Case Else : Return ((x+y) Mod 2+x*y Mod 3) Mod 2=0 End Select End Function Private Sub FormatMask(ByVal matrix As Boolean(,), ByVal reserved As Boolean(,), ByVal mask As Integer) Dim size As Integer=matrix.GetLength(0), remainder As Integer=mask For i As Integer=0 To 9 remainder=(remainder << 1) Xor ((remainder >> 9)*&H537) Next Dim bits As Integer=((mask << 10) Or remainder) Xor &H5412 For i As Integer=0 To 5 Mark(matrix,reserved,8,i,((bits >> i) And 1)<>0) Next Mark(matrix,reserved,8,7,((bits >> 6) And 1)<>0) Mark(matrix,reserved,8,8,((bits >> 7) And 1)<>0) Mark(matrix,reserved,7,8,((bits >> 8) And 1)<>0) For i As Integer=9 To 14 Mark(matrix,reserved,14-i,8,((bits >> i) And 1)<>0) Next For i As Integer=0 To 7 Mark(matrix,reserved,size-1-i,8,((bits >> i) And 1)<>0) Next For i As Integer=8 To 14 Mark(matrix,reserved,8,size-15+i,((bits >> i) And 1)<>0) Next End Sub Private Function Penalty(ByVal matrix As Boolean(,)) As Integer Dim size As Integer=matrix.GetLength(0), score As Integer=0, dark As Integer=0 For axis As Integer=0 To 1 For line As Integer=0 To size-1 Dim previous As Boolean=False, run As Integer=0, pattern As Integer=0 For p As Integer=0 To size-1 Dim value As Boolean=matrix(p,line) If axis=1 Then value=matrix(line,p) If p=0 OrElse value<>previous Then run=1 : previous=value Else run+=1 If run=5 Then score+=3 If run>5 Then score+=1 End If pattern=(pattern << 1) And 2047 If value Then pattern=pattern Or 1 If p>=10 AndAlso (pattern=1488 OrElse pattern=93) Then score+=40 Next Next Next For y As Integer=0 To size-1 For x As Integer=0 To size-1 If matrix(x,y) Then dark+=1 If x<size-1 AndAlso y<size-1 Then If matrix(x,y)=matrix(x+1,y) AndAlso matrix(x,y)=matrix(x,y+1) AndAlso matrix(x,y)=matrix(x+1,y+1) Then score+=3 End If Next Next score+=(System.Math.Abs(dark*20-size*size*10)\(size*size))*10 Return score End Function Private Function BestMask(ByVal matrix As Boolean(,), ByVal reserved As Boolean(,)) As Boolean(,) Dim size As Integer=matrix.GetLength(0), bestScore As Integer=Integer.MaxValue Dim best As Boolean(,)=matrix For mask As Integer=0 To 7 Dim candidate As Boolean(,)=DirectCast(matrix.Clone(),Boolean(,)) For y As Integer=0 To size-1 For x As Integer=0 To size-1 If Not reserved(x,y) Then candidate(x,y)=candidate(x,y) Xor MaskBit(0,x,y) Xor MaskBit(mask,x,y) Next Next FormatMask(candidate,reserved,mask) Dim score As Integer=Penalty(candidate) If score<bestScore Then bestScore=score : best=candidate End If Next Return best End Function Private footerLogoBytes As Byte() = Nothing Public Function FooterLogo(ByVal supplied As Object, ByVal fallback As String) As Byte() If footerLogoBytes IsNot Nothing Then Return footerLogoBytes Try Dim path As String = System.Convert.ToString(supplied).Trim() If path.Length > 0 Then If path.StartsWith("file:", System.StringComparison.OrdinalIgnoreCase) Then path = New System.Uri(path).LocalPath If System.IO.File.Exists(path) Then Using source As System.Drawing.Image = System.Drawing.Image.FromFile(path) Using output As New System.IO.MemoryStream() source.Save(output, System.Drawing.Imaging.ImageFormat.Png) footerLogoBytes = output.ToArray() End Using End Using End If End If Catch ' Unavailable or unsupported office logos use the embedded default. End Try If footerLogoBytes Is Nothing Then footerLogoBytes = System.Convert.FromBase64String(fallback) Return footerLogoBytes End Function Private onlineLinks As New System.Collections.Generic.Dictionary(Of String, String)() Private listControlResults As New System.Collections.Generic.Dictionary(Of String, Boolean)() Private listControlUnavailable As Boolean = False ' Nichtgeometrische Attributdaten werden anhand der serverseitigen Konstruktionskorrektur ueberprueft. Public Function ListControlCheck(ByVal attributes As Integer(), ByVal values As Object()) As Boolean Dim payload As New System.Text.StringBuilder() payload.Append("{""attributes"":[") For i As Integer = 0 To attributes.Length - 1 If i > 0 Then payload.Append(",") payload.Append(attributes(i).ToString(System.Globalization.CultureInfo.InvariantCulture)) Next payload.Append("],""values"":[") For i As Integer = 0 To attributes.Length - 1 If i > 0 Then payload.Append(",") If i >= values.Length OrElse values(i) Is Nothing OrElse System.Convert.IsDBNull(values(i)) Then payload.Append("null") Else payload.Append(JsonString(values(i))) End If Next payload.Append("]}") Dim key As String = payload.ToString() SyncLock listControlResults If listControlResults.ContainsKey(key) Then Return listControlResults(key) If listControlUnavailable Then Return True Try Dim doc As System.Xml.XmlDocument = SafeXml(OnlineRequest("report-listcontrol-evaluate.php", key, 4096)) Dim node As System.Xml.XmlElement = doc.DocumentElement If node Is Nothing OrElse node.Name <> "listcontrol" Then Throw New System.Exception("Invalid list control response") Dim value As String = node.GetAttribute("accepted") If value <> "0" AndAlso value <> "1" Then Throw New System.Exception("Invalid list control result") Dim accepted As Boolean = value = "1" listControlResults(key) = accepted Return accepted Catch ' Ohne Online-Pruefdaten bleibt die Liste unveraendert. listControlUnavailable = True Return True End Try End SyncLock End Function Private languageCatalogs As New System.Collections.Generic.Dictionary(Of String, System.Xml.XmlDocument)() Private Function LanguageCatalog(ByVal country As Object) As System.Xml.XmlDocument Dim key As String = System.Convert.ToString(country).Trim() If Not languageCatalogs.ContainsKey(key) Then Dim doc As System.Xml.XmlDocument = Nothing Try doc = SafeXml(OnlineRequest("report-languages.php?country=" & System.Uri.EscapeDataString(key), Nothing, 80000)) Catch End Try languageCatalogs(key) = doc End If Return languageCatalogs(key) End Function Public Function ReportLanguage(ByVal country As Object) As String Dim doc As System.Xml.XmlDocument = LanguageCatalog(country) If doc IsNot Nothing Then Dim node As System.Xml.XmlNode = doc.SelectSingleNode("/reportLanguage/language") If node IsNot Nothing Then Return node.InnerText End If Return "de" End Function Public Function ReportText(ByVal country As Object, ByVal key As String, ByVal fallback As String) As String Dim doc As System.Xml.XmlDocument = LanguageCatalog(country) If doc IsNot Nothing Then Dim node As System.Xml.XmlNode = doc.SelectSingleNode("/reportLanguage/texts/" & key) If node IsNot Nothing AndAlso node.InnerText.Length <= 350 Then Return node.InnerText End If Return fallback End Function Public Function CountrySymbol(ByVal country As Object) As Byte() Try Dim doc As System.Xml.XmlDocument = LanguageCatalog(country) If doc Is Nothing Then Return Nothing Dim node As System.Xml.XmlNode = doc.SelectSingleNode("/reportLanguage/symbol") If node Is Nothing OrElse node.InnerText.Length = 0 OrElse node.InnerText.Length > 40000 Then Return Nothing Return System.Convert.FromBase64String(node.InnerText) Catch Return Nothing End Try End Function Public Function TemplateVersion() As String Return "1.0.0.1" End Function Public Function HeaderEmpty(ByVal value As Object) As Boolean Return value Is Nothing OrElse System.Convert.IsDBNull(value) OrElse System.Convert.ToString(value).Trim().Length = 0 End Function Public Function HeaderText(ByVal value As Object, ByVal placeholder As String) As String If HeaderEmpty(value) Then Return placeholder Return System.Convert.ToString(value) End Function Private onlineProofs As New System.Collections.Generic.Dictionary(Of String, String)() Private manufacturerCatalogs As New System.Collections.Generic.Dictionary(Of String, System.Xml.XmlDocument)() Private reportSettings As System.Xml.XmlDocument = Nothing Private settingsAttempted As Boolean = False Public Function QrSetting(ByVal key As String, ByVal fallback As String) As String If Not settingsAttempted Then settingsAttempted = True Try reportSettings = SafeXml(OnlineRequest("report-settings.php", Nothing, 10000)) Catch End Try End If If reportSettings IsNot Nothing Then Dim node As System.Xml.XmlNode = reportSettings.SelectSingleNode("/settings/" & key) If node IsNot Nothing AndAlso node.InnerText.Length <= 350 Then Return node.InnerText End If Return fallback End Function Public Function CompanyLogoData(ByVal supplied As Object) As String Try Dim path As String = System.Convert.ToString(supplied).Trim() If path.StartsWith("file:", System.StringComparison.OrdinalIgnoreCase) Then path = New System.Uri(path).LocalPath If Not System.IO.File.Exists(path) Then Return "" Using source As System.Drawing.Image = System.Drawing.Image.FromFile(path) Dim factor As Double = System.Math.Min(1.0, 800.0 / System.Math.Max(source.Width, source.Height)) Using bitmap As New System.Drawing.Bitmap(System.Math.Max(1, CInt(source.Width * factor)), System.Math.Max(1, CInt(source.Height * factor))) Using graphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(bitmap) graphics.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic graphics.DrawImage(source, 0, 0, bitmap.Width, bitmap.Height) End Using Using output As New System.IO.MemoryStream() bitmap.Save(output, System.Drawing.Imaging.ImageFormat.Png) If output.Length <= 250000 Then Return System.Convert.ToBase64String(output.ToArray()) End Using End Using End Using Catch End Try Return "" End Function Private Shared runUuids As New System.Collections.Generic.Dictionary(Of String, String)() Public Function OnlineRunUUID(ByVal supplied As Object, ByVal started As System.DateTime, ByVal project As Object) As String Dim value As String = System.Convert.ToString(supplied).Trim() If System.Text.RegularExpressions.Regex.IsMatch(value, "^[a-f0-9]{8}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{12}$", System.Text.RegularExpressions.RegexOptions.IgnoreCase) Then Return value.ToLowerInvariant() Dim key As String = started.Ticks.ToString(System.Globalization.CultureInfo.InvariantCulture) & "|" & System.Convert.ToString(project) SyncLock runUuids If Not runUuids.ContainsKey(key) Then runUuids(key) = System.Guid.NewGuid().ToString("D") Return runUuids(key) End SyncLock End Function Private Function OnlineRequest(ByVal endpoint As String, ByVal payload As String, ByVal limit As Integer) As String Dim previous As System.Net.SecurityProtocolType = System.Net.ServicePointManager.SecurityProtocol Try System.Net.ServicePointManager.SecurityProtocol = previous Or CType(3072, System.Net.SecurityProtocolType) Catch End Try Try Dim request As System.Net.HttpWebRequest = DirectCast(System.Net.WebRequest.Create("https://stueckliste.pro-eng.ch/" & endpoint), System.Net.HttpWebRequest) request.Timeout = 5000 request.ReadWriteTimeout = 5000 request.AllowAutoRedirect = False request.UserAgent = "ProEngineers-Report/7.0" If payload IsNot Nothing Then request.Method = "POST" request.ContentType = "application/json; charset=utf-8" Dim body As Byte() = System.Text.Encoding.UTF8.GetBytes(payload) request.ContentLength = body.Length Using stream As System.IO.Stream = request.GetRequestStream() stream.Write(body, 0, body.Length) End Using End If Using response As System.Net.HttpWebResponse = DirectCast(request.GetResponse(), System.Net.HttpWebResponse) If response.StatusCode <> System.Net.HttpStatusCode.OK Then Throw New System.Exception("Unexpected server status") Using reader As New System.IO.StreamReader(response.GetResponseStream(), System.Text.Encoding.UTF8) Dim buffer(limit) As Char Dim count As Integer = reader.ReadBlock(buffer, 0, buffer.Length) If count > limit Then Throw New System.Exception("Server response too large") Return New String(buffer, 0, count) End Using End Using Finally Try System.Net.ServicePointManager.SecurityProtocol = previous Catch End Try End Try End Function Private Function SafeXml(ByVal text As String) As System.Xml.XmlDocument Dim settings As New System.Xml.XmlReaderSettings() settings.DtdProcessing = System.Xml.DtdProcessing.Prohibit settings.XmlResolver = Nothing Dim document As New System.Xml.XmlDocument() document.XmlResolver = Nothing Using input As New System.IO.StringReader(text) Using reader As System.Xml.XmlReader = System.Xml.XmlReader.Create(input, settings) document.Load(reader) End Using End Using Return document End Function Public Function IsOnlineLink(ByVal link As String) As Boolean Return System.Text.RegularExpressions.Regex.IsMatch(link, "^https://stueckliste\.pro-eng\.ch/#r=[a-f0-9]{32}\.[a-f0-9]{32}$") End Function Public Function OnlineLink(ByVal json As String, ByVal fallback As String, ByVal uuid As String, Optional ByVal logo As String = "", Optional ByVal editedBy As String = "") As String If MandatoryUpdate() Then Return "FEHLER: UPDATE_ERFORDERLICH" json = json.Substring(0, json.Length - 1) & ",""companyLogo"":" & JsonString(logo) & "}" SyncLock onlineLinks If onlineLinks.ContainsKey(json) Then Return onlineLinks(json) Dim result As String = fallback Try Dim doc As System.Xml.XmlDocument = SafeXml(OnlineRequest("report-online.php", json, 4096)) Dim reply As System.Xml.XmlElement = doc.DocumentElement Dim expected As String Using sha As System.Security.Cryptography.SHA256 = System.Security.Cryptography.SHA256.Create() expected = System.BitConverter.ToString(sha.ComputeHash(System.Text.Encoding.UTF8.GetBytes(json))).Replace("-", "").ToLowerInvariant() End Using Dim link As String = reply.SelectSingleNode("link").InnerText Dim signature As String = reply.SelectSingleNode("signature").InnerText If reply.Name <> "registration" OrElse reply.SelectSingleNode("uuid").InnerText <> uuid OrElse reply.SelectSingleNode("requestHash").InnerText <> expected OrElse Not IsOnlineLink(link) OrElse Not link.Contains(uuid.Replace("-", "") & ".") OrElse Not System.Text.RegularExpressions.Regex.IsMatch(signature, "^[a-f0-9]{64}$") Then Throw New System.Exception("Registration mismatch") result = link onlineProofs(link) = "Online registriert | Pruefcode: " & signature.Substring(0, 20).ToUpperInvariant() Catch ex As System.Net.WebException Dim response As System.Net.HttpWebResponse = TryCast(ex.Response, System.Net.HttpWebResponse) If response IsNot Nothing Then If CInt(response.StatusCode) = 426 Then result = "FEHLER: UPDATE_ERFORDERLICH" If response.StatusCode = System.Net.HttpStatusCode.Conflict Then result = "FEHLER: Diese UUID ist bereits mit anderen Daten registriert. Bitte einen neuen Report erstellen." response.Close() End If Catch ' Only confirmed storage gets a short online link. Otherwise retain all data. End Try onlineLinks(json) = result Return result End SyncLock End Function Public Function OnlineProof(ByVal link As String) As String If UpdateRequired(link) Then Return "Nicht online registriert" If onlineProofs.ContainsKey(link) Then Return onlineProofs(link) If link.StartsWith("FEHLER:") Then Return "Nicht registriert" Return "Offline-Uebertragung | nicht online bestaetigt" End Function Public Function UpdateRequired(ByVal link As String) As Boolean Return link = "FEHLER: UPDATE_ERFORDERLICH" End Function Public Function UpdateNotice() As String Return "Neue Version verfügbar" & vbCrLf & "Sie verwenden PRO interactive Report " & TemplateVersion() & ". Laden Sie den aktuellen PRO interactive Report herunter." End Function Private versionChecked As Boolean = False Private hasNewerVersion As Boolean = False Private requiresMajorUpdate As Boolean = False Private latestTemplateVersion As String = "" Public Function NewerVersionAvailable() As Boolean If Not versionChecked Then versionChecked = True Try Dim doc As System.Xml.XmlDocument = SafeXml(OnlineRequest("report-version.php?format=xml&version=" & TemplateVersion(), Nothing, 4096)) Dim latest As System.Version = Nothing If System.Version.TryParse(doc.SelectSingleNode("/reportVersion/current").InnerText, latest) Then hasNewerVersion = latest.CompareTo(New System.Version(TemplateVersion())) > 0 requiresMajorUpdate = latest.Major > (New System.Version(TemplateVersion())).Major latestTemplateVersion = latest.ToString() End If Catch ' Without a successful check no update claim is made. End Try End If Return hasNewerVersion End Function Public Function MandatoryUpdate() As Boolean Dim checked As Boolean = NewerVersionAvailable() Return requiresMajorUpdate End Function Public Function MandatoryUpdateText() As String Return "PRO interactive Report " & TemplateVersion() & " muss auf " & latestTemplateVersion & " aktualisiert werden. Bitte laden Sie den aktuellen PRO interactive Report herunter und erstellen Sie den Report erneut." End Function Private Function ManufacturerKey(ByVal name As Object) As String Return System.Convert.ToString(name).Trim().ToLowerInvariant().Replace(" ", "").Replace(ChrW(174), "").Replace("(r)", "") End Function Private Function OnlineManufacturer(ByVal name As Object, ByVal field As String, ByVal country As Object) As String Dim makerKey As String = ManufacturerKey(name) Dim key As String = makerKey & "|" & System.Convert.ToString(country).Trim().ToUpperInvariant() If Not manufacturerCatalogs.ContainsKey(key) Then manufacturerCatalogs(key) = Nothing Try manufacturerCatalogs(key) = SafeXml(OnlineRequest("manufacturer-catalog.php?name=" & System.Uri.EscapeDataString(System.Convert.ToString(name)) & "&country=" & System.Uri.EscapeDataString(System.Convert.ToString(country)), Nothing, 2000000)) Catch End Try End If Dim manufacturerCatalog As System.Xml.XmlDocument = manufacturerCatalogs(key) If manufacturerCatalog IsNot Nothing Then For Each item As System.Xml.XmlNode In manufacturerCatalog.SelectNodes("/manufacturers/manufacturer") If item.Attributes("key").Value = makerKey Then Dim node As System.Xml.XmlNode = item.SelectSingleNode(field) If node IsNot Nothing Then Return node.InnerText End If Next Return "" End If Return Nothing End Function Public Function ManufacturerText(ByVal name As Object, ByVal field As String, ByVal fallback As String, Optional ByVal country As Object = Nothing) As String Dim value As String = OnlineManufacturer(name, field, country) If value Is Nothing Then Return "" Return value End Function Private Function RawManufacturerLogo(ByVal name As Object, ByVal country As Object) As Byte() Dim value As String = OnlineManufacturer(name, "logo", country) If value IsNot Nothing Then If value.Length = 0 Then Return Nothing Try Dim bytes As Byte() = System.Convert.FromBase64String(value) Using stream As New System.IO.MemoryStream(bytes) Using check As System.Drawing.Image = System.Drawing.Image.FromStream(stream) If check.Width > 0 AndAlso check.Height > 0 Then Return bytes End Using End Using Catch End Try End If Return Nothing End Function Private alignedManufacturerLogos As New System.Collections.Generic.Dictionary(Of String, Byte())() Public Function ManufacturerLogo(ByVal name As Object, Optional ByVal country As Object = Nothing) As Byte() Dim key As String = ManufacturerKey(name) & "|" & System.Convert.ToString(country).Trim().ToUpperInvariant() If alignedManufacturerLogos.ContainsKey(key) Then Return alignedManufacturerLogos(key) Dim raw As Byte() = RawManufacturerLogo(name, country) If raw Is Nothing Then alignedManufacturerLogos(key) = Nothing Return Nothing End If ' Match the 2.3 x 0.48 cm RDLC frame; the cell supplies 2 mm right padding. Using input As New System.IO.MemoryStream(raw) Using original As System.Drawing.Image = System.Drawing.Image.FromStream(input) Using canvas As New System.Drawing.Bitmap(460, 96, System.Drawing.Imaging.PixelFormat.Format24bppRgb) Using graphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(canvas) graphics.Clear(System.Drawing.ColorTranslator.FromHtml("#ADC5E5")) graphics.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic Dim scale As Double = System.Math.Min(460.0 / original.Width, 96.0 / original.Height) Dim width As Integer = System.Math.Max(1, CInt(System.Math.Floor(original.Width * scale))) Dim height As Integer = System.Math.Max(1, CInt(System.Math.Floor(original.Height * scale))) graphics.DrawImage(original, 460 - width, (96 - height) \ 2, width, height) End Using Using output As New System.IO.MemoryStream() canvas.Save(output, System.Drawing.Imaging.ImageFormat.Png) alignedManufacturerLogos(key) = output.ToArray() End Using End Using End Using End Using Return alignedManufacturerLogos(key) End Function Public Function IsPieceUnit(ByVal value As Object) As Boolean Dim unit As String = System.Convert.ToString(value).Trim().TrimEnd("."c).ToLowerInvariant() Return unit = "stk" OrElse unit = "stck" OrElse unit = "st" OrElse unit = "stück" OrElse unit = "stueck" End Function Public Function ReportUnit(ByVal value As Object) As String Dim u As String = System.Convert.ToString(value).Trim().TrimEnd("."c).ToLowerInvariant() If IsPieceUnit(u) Then Return "Stk" If u = "m" OrElse u = "lfm" OrElse u = "lm" Then Return "m" If u = "m2" OrElse u = "m^2" OrElse u = "m" & ChrW(178) Then Return "m" & ChrW(178) If u = "m3" OrElse u = "m^3" OrElse u = "m" & ChrW(179) Then Return "m" & ChrW(179) Return "" End Function Private Function ReportNumber(ByVal value As Object) As Double If value Is Nothing OrElse System.Convert.IsDBNull(value) OrElse System.Convert.ToString(value).Trim() = "" Then Return 0 Return System.Convert.ToDouble(value, System.Globalization.CultureInfo.InvariantCulture) End Function Public Function ReportQuantity(ByVal unit As Object, ByVal pieces As Object, ByVal length As Object, ByVal area As Object, ByVal volume As Object) As Double Dim amount As Double = 0 Select Case ReportUnit(unit) Case "Stk" : amount = ReportNumber(pieces) Case "m" : amount = ReportNumber(length) Case "m" & ChrW(178) : amount = ReportNumber(area) Case "m" & ChrW(179) : amount = ReportNumber(volume) End Select If amount <> 0 Then Return amount Return 1 End Function Public Function ReportOutputUnit(ByVal unit As Object, ByVal pieces As Object, ByVal length As Object, ByVal area As Object, ByVal volume As Object) As String If ReportNumber(ReportSourceValue(unit,pieces,length,area,volume)) = 0 Then Return "Stk" Return ReportUnit(unit) End Function Public Function CoordinateMetres(ByVal value As Object) As String If value Is Nothing OrElse System.Convert.IsDBNull(value) OrElse System.Convert.ToString(value).Trim() = "" Then Return "(leer)" Dim millimetres As Double Dim raw As String = System.Convert.ToString(value, System.Globalization.CultureInfo.InvariantCulture).Trim() If Not System.Double.TryParse(raw, System.Globalization.NumberStyles.Float, System.Globalization.CultureInfo.InvariantCulture, millimetres) Then If Not System.Double.TryParse(raw, System.Globalization.NumberStyles.Float, System.Globalization.CultureInfo.GetCultureInfo("de-DE"), millimetres) Then Return "(ungueltig)" End If Return (millimetres / 1000.0).ToString("0.000", System.Globalization.CultureInfo.CurrentCulture) & " m" End Function Public Function ReportRaw(ByVal value As Object) As String If value Is Nothing OrElse System.Convert.IsDBNull(value) OrElse System.Convert.ToString(value).Trim() = "" Then Return "(leer)" Return System.Convert.ToString(value, System.Globalization.CultureInfo.InvariantCulture) End Function Public Function ReportSourceName(ByVal unit As Object) As String Select Case ReportUnit(unit) Case "Stk" : Return "215 Stueckzahl" Case "m" : Return "220 Laenge" Case "m" & ChrW(178) : Return "229 Flaeche" Case "m" & ChrW(179) : Return "223 Volumen" End Select Return "kein geometrischer Wert" End Function Public Function ReportSourceValue(ByVal unit As Object, ByVal pieces As Object, ByVal length As Object, ByVal area As Object, ByVal volume As Object) As Object Select Case ReportUnit(unit) Case "Stk" : Return pieces Case "m" : Return length Case "m" & ChrW(178) : Return area Case "m" & ChrW(179) : Return volume End Select Return Nothing End Function Private Function CoordinateJson(ByVal values As Object(), ByVal index As Integer) As String If values Is Nothing OrElse index >= values.Length Then Return "null" Dim raw As String = TextValue(values(index)).Trim() Dim mm As Double If Not System.Double.TryParse(raw, System.Globalization.NumberStyles.Float, System.Globalization.CultureInfo.InvariantCulture, mm) Then If Not System.Double.TryParse(raw, System.Globalization.NumberStyles.Float, System.Globalization.CultureInfo.GetCultureInfo("de-DE"), mm) Then Return "null" End If If System.Double.IsNaN(mm) OrElse System.Double.IsInfinity(mm) Then Return "null" Return (mm / 1000.0).ToString("R", System.Globalization.CultureInfo.InvariantCulture) End Function Private privacyCatalogs As New System.Collections.Generic.Dictionary(Of String, System.Xml.XmlDocument)() Private Function PrivacyCatalog(ByVal country As Object) As System.Xml.XmlDocument Dim key As String = System.Convert.ToString(country).Trim() If Not privacyCatalogs.ContainsKey(key) Then Dim doc As System.Xml.XmlDocument = Nothing Try doc = SafeXml(OnlineRequest("report-privacy-language.php?country=" & System.Uri.EscapeDataString(key), Nothing, 200000)) Catch End Try privacyCatalogs(key) = doc End If Return privacyCatalogs(key) End Function Public Function PrivacyText(ByVal country As Object, ByVal key As String, ByVal fallback As String) As String Try If Not System.Text.RegularExpressions.Regex.IsMatch(key, "^[A-Za-z][A-Za-z0-9]*$") Then Return fallback Dim doc As System.Xml.XmlDocument = PrivacyCatalog(country) If doc Is Nothing Then Return fallback Dim node As System.Xml.XmlNode = doc.SelectSingleNode("/reportPrivacy/labels/" & key) If node IsNot Nothing Then Return node.InnerText Catch End Try Return fallback End Function Public Function PrivacySection(ByVal country As Object, ByVal number As Integer, ByVal field As String, ByVal fallback As String) As String Try If number < 1 OrElse number > 20 OrElse (field <> "heading" AndAlso field <> "text") Then Return fallback Dim doc As System.Xml.XmlDocument = PrivacyCatalog(country) If doc Is Nothing Then Return fallback Dim node As System.Xml.XmlNode = doc.SelectSingleNode("/reportPrivacy/sections/section[@number='" & number.ToString() & "']/" & field) If node IsNot Nothing Then Return node.InnerText Catch End Try Return fallback End Function System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089