From 9a1300ba9287cd36ec18225f86dd3272ca3de09b Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 23 May 2025 15:15:09 +0200 Subject: [PATCH] Mahnlauf, FaktMail, EORI-Antrag NEU, Offerte, CBAM, MDM-USTVAntrag --- .../frmAbrechnungsMaskeEinzeln.vb | 7 +- SDL/Fakturierung/frmFaktEmail.vb | 48 +- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 242 ++++-- .../FormulareBaukasten/usrcntlEORI_Antrag.vb | 1 + SDL/Formulare/KDFormulare/frmFormulare.vb | 139 +-- .../usrCntlSpeditionsBuchSuche.vb | 362 ++++---- SDL/USTV/frmMDM_USTVAntrag.Designer.vb | 101 ++- SDL/USTV/frmMDM_USTVAntrag.resx | 349 +++++++- SDL/USTV/frmMDM_USTVAntrag.vb | 121 ++- SDL/USTV/usrCntlUSTV.Designer.vb | 73 +- SDL/USTV/usrCntlUSTV.resx | 809 ++++++++++++++++++ SDL/USTV/usrCntlUSTV.vb | 25 +- SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb | 204 +++-- SDL/buchhaltung/frmBU_Mahnlauf.vb | 79 +- SDL/kunden/frmKundenUebersichtZOLL.vb | 6 +- SDL/kunden/usrCntlCBAM.vb | 2 +- SDL/kunden/usrCntlOfferte.vb | 47 +- SDL/mdm/frmMDMDatenverarbetiung.vb | 4 +- .../Classes/USTV/cUSTVAntrag.vb | 6 + 19 files changed, 2106 insertions(+), 519 deletions(-) diff --git a/SDL/Fakturierung/frmAbrechnungsMaskeEinzeln.vb b/SDL/Fakturierung/frmAbrechnungsMaskeEinzeln.vb index a57b8483..6bf40f59 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaskeEinzeln.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaskeEinzeln.vb @@ -4,8 +4,9 @@ Dim AbfertigungsNr As Integer = -1 Dim RK_ID As Integer = -1 Dim BelegKZ As String = "AR" + Dim isVZ As Boolean = False - Sub New(FilialenNr, AbfertigungsNr, Optional BelegKZ = "AR") + Sub New(FilialenNr, AbfertigungsNr, Optional BelegKZ = "AR", Optional VZ = False) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() @@ -13,6 +14,7 @@ If FilialenNr IsNot Nothing AndAlso IsNumeric(FilialenNr) Then Me.FilialenNr = FilialenNr If AbfertigungsNr IsNot Nothing AndAlso IsNumeric(AbfertigungsNr) Then Me.AbfertigungsNr = AbfertigungsNr If BelegKZ IsNot Nothing AndAlso BelegKZ <> "" Then Me.BelegKZ = BelegKZ + Me.isVZ = VZ ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub @@ -44,7 +46,7 @@ UsrCntlFaktAbrechnung1.cboFiliale.changeItem(FilialenNr) UsrCntlFaktAbrechnung1.txtAbfertigungsnummer.Text = AbfertigungsNr UsrCntlFaktAbrechnung1.cboSpedBuchUnterNr.Focus() - + UsrCntlFaktAbrechnung1.isVZ = isVZ UsrCntlFaktAbrechnung1.btnDatenLaden.PerformClick() Select Case BelegKZ @@ -53,6 +55,7 @@ End Select + ElseIf RK_ID > 0 Then 'Dim dt As DataTable = SQL.loadDgvBySql("select top(1) FilialenNr, AbfertigungsNr from Rechnungsausgang where RK_ID = " & RK_ID, "FMZOLL") diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index c37bc0a2..0ff2dfcd 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -1,4 +1,5 @@ -Imports GrapeCity.DataVisualization.TypeScript +Imports System.Web.UI.WebControls.Expressions +Imports GrapeCity.DataVisualization.TypeScript Imports Microsoft.Office.Interop Imports VERAG_PROG_ALLGEMEIN @@ -536,7 +537,7 @@ Public Class frmFaktEmail If RECHNUNG.Status <> 0 OrElse vbYes = MsgBox("Möchten Sie das PDF als Mail-Anhang erstellen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnung gilt somit als gedruckt und kann nicht mehr bearbeitet werden.", vbYesNoCancel) Then - abfNr = " Pos-Nr.: " & RECHNUNG.FilialenNr & "-" & RECHNUNG.AbfertigungsNr & "-" & RECHNUNG.SpeditionsbuchUnterNr + abfNr = " Pos-Nr.: " & RECHNUNG.FilialenNr & "-" & RECHNUNG.AbfertigungsNr & "-" & RECHNUNG.SpeditionsbuchUnterNr @@ -645,14 +646,14 @@ Public Class frmFaktEmail Mail.Display() - If RECHNUNG.FilialenNr = 4817 And Firma_ID = 19 Then + If RECHNUNG.FilialenNr = 4817 And RECHNUNG.Firma_ID = 19 And RECHNUNG.DruckDatumZeit IsNot Nothing Then Dim SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr, RECHNUNG.UnterNr) If SPEDBUCH.hasEntry AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115) Then Dim USTV_ANTRAG As New cUSTVAntrag(RECHNUNG.ErfassungsNr) - Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, 1) + Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.UnterNr) If Not ANTR_ERSTATTUNG.hasEntry Then ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr @@ -661,14 +662,47 @@ Public Class frmFaktEmail ANTR_ERSTATTUNG.UStVEr_USteuerbetragEUR = RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag ANTR_ERSTATTUNG.SAVE() End If + + + Dim hasVZ As Boolean = False + For Each pos In USTV_ANTRAG.POSITIONEN + If pos.UStVPo_VZ AndAlso (IsDBNull(pos.UStVPo_VZ_RKID) Or pos.UStVPo_VZ_RKID Is Nothing) Then 'VZ die noch nicht abgerechnet wurde! + hasVZ = True + Exit For + End If + Next + + If hasVZ Then + Dim SQL As New SQL + + For Each pos As cUStVPositionen In USTV_ANTRAG.POSITIONEN + + If Not IsDBNull(pos.UStVPo_VZ) AndAlso pos.UStVPo_VZ AndAlso (IsDBNull(pos.UStVPo_VZ_RKID) Or pos.UStVPo_VZ_RKID Is Nothing) Then + pos.UStVPo_VZ_RKID = RECHNUNG.RK_ID + pos.SAVE() + End If + + Next + + Dim count_nichtAbgerVZ As Integer = -1 + count_nichtAbgerVZ = CInt(SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblUStVPositionen] WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " and [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) = 0", "FMZOLL")) + If count_nichtAbgerVZ = 0 Then + SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] IN (SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) = 0 AND [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " )", "FMZOLL") + End If + + + + End If + + End If End If - '------------------------------------------------------------------------------------------ - ' STB /FA - send_StbFAMail(RECHNUNG.RechnungsKundenNr, " Rg-Nr.: " & RechnungsNr & abfNr, RECHNUNG.RechnungsNr) + '------------------------------------------------------------------------------------------ + ' STB /FA + send_StbFAMail(RECHNUNG.RechnungsKundenNr, " Rg-Nr.: " & RechnungsNr & abfNr, RECHNUNG.RechnungsNr) '------------------------------------------------------------------------------------------ Catch ex As Exception diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index fc4b2c0f..446248c6 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -24,6 +24,7 @@ Public Class usrCntlFaktAbrechnung Dim vorherige_RK_ID = 0 Dim nachstehende_RK_ID = 0 Dim veragKunde As Integer = -1 + Public isVZ As Boolean = False ' Public VALUE_CHANGED = True ' Eigenschaft, ob das Formular gespeichert ist oder verändert wurde @@ -1180,6 +1181,14 @@ Public Class usrCntlFaktAbrechnung Sub initDGVOfferteDetailsUebersicht(kdNr, OffertenNr) + Dim addFieldsBoolean As Boolean = True + + Dim addFields As String = "" + + If addFieldsBoolean Then + addFields = ", Land, RMC, Fremd, VZ" + End If + With dgvOfferteDetailsUebersicht If Not IsNumeric(kdNr) OrElse kdNr < 0 Then .Columns.Clear() @@ -1210,14 +1219,24 @@ Public Class usrCntlFaktAbrechnung c = New DataGridViewTextBoxColumn() : c.Name = "BerechnungsartPosInkludiert" : .Columns.Add(c) c = New DataGridViewTextBoxColumn() : c.Name = "ReverseCharge" : .Columns.Add(c) + If addFieldsBoolean Then - Dim dt As DataTable = SQL.loadDgvBySql(" SELECT [Offertenpositionen].[LeistungsNr],[Offertenpositionen].[LeistungsBez],[Anzahl],[Preis],[Offertenpositionen].[BerechnungsartNr],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],Steuerpflichtig, ReverseCharge/*,[Geändert am],[Sachbearbeiter]*/,BerechnungsartPosInkludiert " & + c = New DataGridViewTextBoxColumn() : c.Name = "Land" : .Columns.Add(c) + c = New DataGridViewTextBoxColumn() : c.Name = "RMC" : .Columns.Add(c) + c = New DataGridViewTextBoxColumn() : c.Name = "Fremd" : .Columns.Add(c) + c = New DataGridViewTextBoxColumn() : c.Name = "VZ" : .Columns.Add(c) + + End If + + + + Dim dt As DataTable = SQL.loadDgvBySql(" SELECT [Offertenpositionen].[LeistungsNr],[Offertenpositionen].[LeistungsBez],[Anzahl],[Preis],[Offertenpositionen].[BerechnungsartNr],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],Steuerpflichtig, ReverseCharge/*,[Geändert am],[Sachbearbeiter]*/,BerechnungsartPosInkludiert " & addFields & " FROM [Offertenpositionen] INNER JOIN [Leistungen] ON leistungen.LeistungsNr=Offertenpositionen.LeistungsNr " & " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL") - 'If .ColumnCount = 0 Then Exit Sub - .Columns("LeistungsNr").Width = 30 + 'If .ColumnCount = 0 Then Exit Sub + .Columns("LeistungsNr").Width = 30 .Columns("LeistungsNr").HeaderText = "Nr" .Columns("LeistungsBez").MinimumWidth = 180 .Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill @@ -1271,6 +1290,12 @@ Public Class usrCntlFaktAbrechnung ' .Columns("Geändert am").Visible = False '.Columns("Sachbearbeiter").Visible = False + If addFieldsBoolean Then + + + + End If + .Columns("IndexZkteing").Visible = False @@ -1286,14 +1311,14 @@ Public Class usrCntlFaktAbrechnung steuerpflichtigTMP = (RECHNUNG.ForceSteuerschlüssel > 0) End If - If True Then + If addFieldsBoolean Then dgvOfferteDetailsUebersicht.Rows.Add(r("LeistungsNr"), r("LeistungsBez"), r("Anzahl"), r("Preis"), r("BerechnungsartNr"), r("BGebLeistungsNr"), r("BGebProzent"), r("BGebMinBetrag"), steuerpflichtigTMP, - DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, r("BerechnungsartPosInkludiert"), r("ReverseCharge")) + DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, r("BerechnungsartPosInkludiert"), r("ReverseCharge"), r("Land"), r("RMC"), r("Fremd"), r("VZ")) Else dgvOfferteDetailsUebersicht.Rows.Add(r("LeistungsNr"), r("LeistungsBez"), r("Anzahl"), r("Preis"), r("BerechnungsartNr"), DBNull.Value, DBNull.Value, DBNull.Value, steuerpflichtigTMP, - DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, r("BerechnungsartPosInkludiert")) + DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, r("BerechnungsartPosInkludiert"), r("ReverseCharge")) End If @@ -1444,9 +1469,9 @@ Public Class usrCntlFaktAbrechnung POS.Anzahl = If(r.Cells("Anzahl").Value Is DBNull.Value, 0, r.Cells("Anzahl").Value) '-----------------------MWST-Abrechnung! + Kompat. zu FM-Zoll - If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 Then + If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso RECHNUNG.DruckDatumZeit Is Nothing Then Dim isRC As Boolean = If(r.Cells("ReverseCharge").Value IsNot DBNull.Value, r.Cells("ReverseCharge").Value, False) - setMWSTABRfromSPEDinPOS(r, POS, landNr, landBez, antrag) + setMWSTABRfromSPEDinPOS(r, POS, landNr, landBez, antrag, isVZ) End If '-----------------------MWST-Abrechnung! + Kompat. zu FM-Zoll @@ -1741,7 +1766,7 @@ Public Class usrCntlFaktAbrechnung End If RECHNUNG.LOAD_ANHAENGE() - If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ANHAENGE IsNot Nothing Then + If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ANHAENGE IsNot Nothing And Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then '----------------------------- 'ANHÄNGE OHNE AVISO-BEZUG LADEN: '----------------------------- @@ -1796,7 +1821,7 @@ Public Class usrCntlFaktAbrechnung If DAID <> "" AndAlso IsNumeric(DAID) Then Dim daidno As Integer = CInt(DAID) Dim ds As New cDATENSERVER(daidno) - .Rows.Add(1, nameLief, ds.da_name, ds.da_id, -1) + .Rows.Add(-1, nameLief, ds.da_name, ds.da_id, -1) End If Next @@ -2570,10 +2595,13 @@ Public Class usrCntlFaktAbrechnung ' POS.BGebLeistungsNr = BGebLeistungsNr RE.POSITIONEN.Add(POS) + End If POS.Preis += Betrag + 'End If + If POS.Steuerpflichtig Then POS.SteuerpflichtigerBetrag += Betrag Else @@ -4485,22 +4513,49 @@ Nächste_Textzeile_lesen: Private Sub setMWSTABRfromSPEDinPOS(r As DataGridViewRow, POS As cRechnungsausgangPositionen, LandNr As String, LandBez As String, Optional antrag As cUSTVAntrag = Nothing, Optional isVZ As Boolean = False) - If SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10 Then + If SPEDBUCH IsNot Nothing AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10) Then - Dim LeistungsBez = r.Cells("LeistungsBez").Value - If LeistungsBez <> "" Then - Dim isMWST As Boolean = False - Dim kdNr = IIf(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, kdFirmaRechnungAn.KdNr) - Dim isRMC = IIf(kdNr = 150000 AndAlso antrag.UStVAn_AntragArt = "MWST", True, False) - Dim sumRMC As Double = 0 - Dim sumFremdBeleg As Double = 0 - If antrag IsNot Nothing AndAlso LandBez <> "" AndAlso antrag.UStVAn_AntragArt <> "" Then + Dim OFFERT_LAND = "" + Dim OFFERT_VZ = False + Dim OFFERT_RMC = False + Dim OFFERT_FREMD = False + Dim OFFERT_LeistungsBez = r.Cells("LeistungsBez").Value - If antrag.UStVAn_AntragArt <> "MWST" Then isRMC = False + If Not IsDBNull(r.Cells("Land").Value) AndAlso r.Cells("Land").Value IsNot Nothing AndAlso r.Cells("Land").Value <> "" Then + OFFERT_LAND = r.Cells("Land").Value + End If - Dim LandISO2 = "" + If Not IsDBNull(r.Cells("VZ").Value) AndAlso r.Cells("VZ").Value IsNot Nothing Then + OFFERT_VZ = r.Cells("VZ").Value + End If + + If Not IsDBNull(r.Cells("RMC").Value) AndAlso r.Cells("RMC").Value IsNot Nothing Then + OFFERT_RMC = r.Cells("RMC").Value + End If + + If Not IsDBNull(r.Cells("Fremd").Value) AndAlso r.Cells("Fremd").Value IsNot Nothing Then + OFFERT_FREMD = r.Cells("Fremd").Value + End If + + If OFFERT_LeistungsBez <> "" AndAlso OFFERT_LAND <> "" Then + + If (isVZ = OFFERT_VZ) Then + + Dim isMWST As Boolean = False + Dim kdNr = IIf(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, kdFirmaRechnungAn.KdNr) + Dim isRMCKunde = IIf(kdNr = 150000 AndAlso antrag.UStVAn_AntragArt = "MWST", True, False) + + Dim sumRMC As Double = 0 + Dim sumFremdBeleg As Double = 0 + Dim sumBelegVZ As Double = 0 + + If antrag IsNot Nothing AndAlso LandBez <> "" AndAlso antrag.UStVAn_AntragArt <> "" Then + + If antrag.UStVAn_AntragArt <> "MWST" Then isRMCKunde = False + + Dim LandISO2 = "" If LandBez.Length = 2 Then LandISO2 = LandBez @@ -4511,115 +4566,138 @@ Nächste_Textzeile_lesen: End If - If LeistungsBez.ToString.Contains(LandISO2) AndAlso LeistungsBez.ToString.ToLower.StartsWith(antrag.UStVAn_AntragArt.ToString.ToLower) AndAlso IIf(isVZ, LeistungsBez.ToString.Contains("VZ"), Not LeistungsBez.ToString.Contains("VZ")) Then + If OFFERT_LAND = LandISO2 AndAlso OFFERT_LeistungsBez.ToString.ToLower.StartsWith(antrag.UStVAn_AntragArt.ToString.ToLower) Then 'wenn RMC, dann ebenfalls unterscheiden! - If isRMC Then + If isRMCKunde Then + If (OFFERT_FREMD Or OFFERT_RMC) Then - 'aus AntragsPOS die + 'aus AntragsPOS die - For Each ANTR_POS As cUStVPositionen In antrag.POSITIONEN + For Each ANTR_POS As cUStVPositionen In antrag.POSITIONEN - If ANTR_POS.UStVPo_Leistender.ToString.ToUpper.StartsWith("RMC") Then - sumRMC += ANTR_POS.UStVPo_USteuerbetragEUR - Else - sumFremdBeleg += ANTR_POS.UStVPo_USteuerbetragEUR + If ANTR_POS.UStVPo_Leistender.ToString.ToUpper.StartsWith("RMC") Then + If isVZ Then + If ANTR_POS.UStVPo_VZ AndAlso (IsDBNull(ANTR_POS.UStVPo_VZ_RKID) Or ANTR_POS.UStVPo_VZ_RKID Is Nothing) Then sumRMC += ANTR_POS.UStVPo_USteuerbetragEUR + Else + If ANTR_POS.UStVPo_VZ_RKID Is Nothing AndAlso (IsDBNull(ANTR_POS.UStVPo_VZ) OrElse Not ANTR_POS.UStVPo_VZ) Then sumRMC += ANTR_POS.UStVPo_USteuerbetragEUR + End If + + Else + If isVZ Then + If ANTR_POS.UStVPo_VZ AndAlso (IsDBNull(ANTR_POS.UStVPo_VZ_RKID) Or ANTR_POS.UStVPo_VZ_RKID Is Nothing) Then sumFremdBeleg += ANTR_POS.UStVPo_USteuerbetragEUR + Else + If ANTR_POS.UStVPo_VZ_RKID Is Nothing AndAlso (IsDBNull(ANTR_POS.UStVPo_VZ) OrElse Not ANTR_POS.UStVPo_VZ) Then sumFremdBeleg += ANTR_POS.UStVPo_USteuerbetragEUR + End If + + End If + + Next + + 'SPEDBUCH.Abfertigungsart = 114 -> EU + 'SPEDBUCH.Abfertigungsart = 115 -> DL Drittland + + Dim BEZ_LAND_RMC As String = "" + Select Case SPEDBUCH.Abfertigungsart + Case 114 : BEZ_LAND_RMC = IIf(isVZ, "00", "00-00") + Case 115 : BEZ_LAND_RMC = IIf(isVZ, "DL", "DL-00") + End Select + + + If (OFFERT_RMC Or OFFERT_FREMD) AndAlso OFFERT_VZ = isVZ AndAlso OFFERT_LeistungsBez.ToString.Contains(BEZ_LAND_RMC) Then + isMWST = True + GoTo mwst End If - Next + End If + Else - 'SPEDBUCH.Abfertigungsart = 114 -> EU - 'SPEDBUCH.Abfertigungsart = 115 -> DL Drittland + If isVZ AndAlso OFFERT_VZ Then - Dim BEZ_LAND_RMC As String = "" - Select Case SPEDBUCH.Abfertigungsart - Case 114 : BEZ_LAND_RMC = "00-" - Case 115 : BEZ_LAND_RMC = "DL-00" - End Select + For Each ANTR_POS As cUStVPositionen In antrag.POSITIONEN + If ANTR_POS.UStVPo_VZ AndAlso (IsDBNull(ANTR_POS.UStVPo_VZ_RKID) Or ANTR_POS.UStVPo_VZ_RKID Is Nothing) Then sumBelegVZ += ANTR_POS.UStVPo_USteuerbetragEUR + + Next - If LeistungsBez.ToString.Contains("RMC-RG") AndAlso LeistungsBez.ToString.Contains(BEZ_LAND_RMC) Then isMWST = True GoTo mwst - ElseIf LeistungsBez.ToString.Contains("FREMD-RG") AndAlso LeistungsBez.ToString.Contains(BEZ_LAND_RMC) Then + + ElseIf Not isVZ AndAlso Not OFFERT_VZ Then + + For Each ANTR_POS As cUStVPositionen In antrag.POSITIONEN + + If ANTR_POS.UStVPo_VZ_RKID Is Nothing AndAlso (IsDBNull(ANTR_POS.UStVPo_VZ) OrElse Not ANTR_POS.UStVPo_VZ) Then sumFremdBeleg += ANTR_POS.UStVPo_USteuerbetragEUR + + Next + isMWST = True GoTo mwst End If - Else - isMWST = True - GoTo mwst End If End If End If - - If LandBez <> "" AndAlso LandNr <> "" Then - If SPEDBUCH.Packstücke.ToString.Replace("Mehrwertsteuerrückerstattung " & LandNr, "MWSt-Rückerstattung " & LandBez).StartsWith(LeistungsBez.ToString) AndAlso LeistungsBez.ToString.StartsWith("MWSt-Rückerstattung") Then - isMWST = True - GoTo mwst - End If - - - Else - If SPEDBUCH.Packstücke.ToString().Replace("Mehrwertsteuerrückerstattung ", "MWSt-Rückerstattung ").StartsWith(LeistungsBez.ToString) AndAlso LeistungsBez.ToString.StartsWith("MWSt-Rückerstattung") Then - isMWST = True - GoTo mwst - End If - End If mwst: - If isMWST Then - POS.Anzahl = 1 + If isMWST Then + POS.Anzahl = 1 - If antrag IsNot Nothing AndAlso antrag.UStVAn_ID > 0 Then + If antrag IsNot Nothing AndAlso antrag.UStVAn_ID > 0 Then - If POS.Preis = 0 Then + If POS.Preis = 0 Then - Dim GesamtUSteuerEUR As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0") - Dim GesamtErstattungEUR As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetragEUR),0)", "tblUStVErstattung", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0") + If isRMCKunde Then + If OFFERT_RMC AndAlso sumRMC <> 0 Then + POS.Preis = sumRMC * -1 + ElseIf OFFERT_FREMD AndAlso sumFremdBeleg <> 0 Then + POS.Preis = sumFremdBeleg * -1 + End If + + Else + If sumBelegVZ <> 0 Then + POS.Preis = sumBelegVZ * -1 + Else + + Dim GesamtUSteuerEUR As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0") + Dim GesamtErstattungEUR As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetragEUR),0)", "tblUStVErstattung", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0") + Dim DiffernezbetragEUR As Double = GesamtUSteuerEUR - GesamtErstattungEUR + + If DiffernezbetragEUR <> 0 Then + POS.Preis = DiffernezbetragEUR * -1 + End If + + End If - If isRMC Then - If LeistungsBez.ToString.Contains("RMC-RG") AndAlso sumRMC <> 0 Then - POS.Preis = sumRMC * -1 - ElseIf LeistungsBez.ToString.Contains("FREMD-RG") AndAlso sumFremdBeleg <> 0 Then - POS.Preis = sumFremdBeleg * -1 End If - Else - - Dim DiffernezbetragEUR As Double = GesamtUSteuerEUR - GesamtErstattungEUR - If DiffernezbetragEUR <> 0 Then - POS.Preis = DiffernezbetragEUR * -1 - End If - - End If End If - End If + If r.Cells("BGebLeistungsNr").Value IsNot Nothing AndAlso Not IsDBNull(r.Cells("BGebLeistungsNr").Value) AndAlso r.Cells("BGebProzent").Value IsNot Nothing AndAlso Not IsDBNull(r.Cells("BGebProzent").Value) Then - If r.Cells("BGebLeistungsNr").Value IsNot Nothing AndAlso Not IsDBNull(r.Cells("BGebLeistungsNr").Value) AndAlso r.Cells("BGebProzent").Value IsNot Nothing AndAlso Not IsDBNull(r.Cells("BGebProzent").Value) Then + Dim OffertNr As Integer = IIf(IsNumeric(RECHNUNG.OffertenNr), RECHNUNG.OffertenNr, (SPEDBUCH.Abfertigungsart - 100)) + If OffertNr < 0 Then OffertNr = 15 - Dim OffertNr As Integer = IIf(IsNumeric(RECHNUNG.OffertenNr), RECHNUNG.OffertenNr, (SPEDBUCH.Abfertigungsart - 100)) - If OffertNr < 0 Then OffertNr = 15 + Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(IIf(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, kdFirmaRechnungAn.KdNr), OffertNr, True) + Call prBearbGeb(POS, OFFERTE, RECHNUNG, r.Cells("BGebLeistungsNr").Value, r.Cells("BGebProzent").Value, POS.Preis * If(RECHNUNG.Vorzeichen = "-", -1, 1)) - Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(IIf(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, kdFirmaRechnungAn.KdNr), OffertNr, True) - Call prBearbGeb(POS, OFFERTE, RECHNUNG, r.Cells("BGebLeistungsNr").Value, r.Cells("BGebProzent").Value, POS.Preis * If(RECHNUNG.Vorzeichen = "-", -1, 1)) + End If End If - End If End If End If + End Sub End Class \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.vb index f8893244..e48b2d26 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.vb @@ -117,6 +117,7 @@ gebDatum.Visible = True lblHerrFrau.Text = "Vor - Nachname:" cbxGebDatu.Visible = True + cbxGebDatu.Checked = False Else Label2.Text = "UID-Nr:" diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index ed894625..2487835c 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -5174,13 +5174,14 @@ Public Class FormularManagerNEU Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) Dim top = 0 - If usrCntl.cboPrivatperson.Checked Then top = -2 + If usrCntl.cboPrivatperson.Checked Then top = 0 Select Case usrCntl.cboSprache._value Case "EN" + 'Für EN gibts noch kein 'neues' Formular!!!!! Select Case usrCntl.cbxAntragsart._value @@ -5227,87 +5228,111 @@ Public Class FormularManagerNEU - - Select Case usrCntl.cbxAntragsart._value - - Case "Neuzugang" - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 138, 43 + top, 6, 6, "bold", 16, , itextsharp.text.Element.ALIGN_CENTER)) - - - Case "Änderung" - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 138, 50 + top, 6, 6, "bold", 16, , itextsharp.text.Element.ALIGN_CENTER)) - - Case "Beendigung" - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 138, 57 + top, 6, 6, "bold", 16, , itextsharp.text.Element.ALIGN_CENTER)) - - End Select - If usrCntl.cboPrivatperson.Checked Then - If usrCntl.DateTimePicker1 IsNot Nothing AndAlso IsDate((usrCntl.DateTimePicker1.Value)) Then - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Day, 135, 82 + top, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Month, 145, 82 + top, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Year, 157, 82 + top, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT)) - End If + Select Case usrCntl.cbxAntragsart._value + + '#Page1 + + Case "Neuzugang" + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Neuzugang", 20, 112 + top, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + Case "Änderung" + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Änderung", 20, 112 + top, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + Case "Beendigung" + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Beendigung", 20, 112 + top, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + End Select + + + '#Page1 If usrCntl.gebDatum IsNot Nothing AndAlso IsDate((usrCntl.gebDatum.Value)) AndAlso usrCntl.cbxGebDatu.Checked Then - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.gebDatum.Value).Day, 25, 133, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.gebDatum.Value).Month, 35, 133, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.gebDatum.Value).Year, 47, 133, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT)) + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.gebDatum.Value).ToShortDateString, 20, 185 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.gebDatum.Value).Day, 25, 133, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT)) + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.gebDatum.Value).Month, 35, 133, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT)) + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.gebDatum.Value).Year, 47, 133, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT)) End If - - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 25, 84 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - - 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 25, 103, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - 'Splittung von Vor und Nachname If usrCntl.txtHerrFrau.Text <> "" Then - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text.Substring(0, usrCntl.txtHerrFrau.Text.IndexOf(" ")).Trim, 25, 96, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text.Substring(usrCntl.txtHerrFrau.Text.IndexOf(" "), usrCntl.txtHerrFrau.TextLength - usrCntl.txtHerrFrau.Text.IndexOf(" ")).Trim(), 25, 113, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text.Substring(0, usrCntl.txtHerrFrau.Text.IndexOf(" ")).Trim, 20, 155 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text.Substring(usrCntl.txtHerrFrau.Text.IndexOf(" "), usrCntl.txtHerrFrau.TextLength - usrCntl.txtHerrFrau.Text.IndexOf(" ")).Trim(), 20, 171 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) End If + '#Page1 - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtOrt.Text, 25, 158, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 25, 166, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.MyTextBox2.Text, 25, 177, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLand.Text, 25, 147, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPLZ.Text, 45, 147, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + If usrCntl.DateTimePicker1 IsNot Nothing AndAlso IsDate((usrCntl.DateTimePicker1.Value)) Then + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).ToShortDateString, 20, 141, 50, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Day, 20, 155, 10, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Month, 25, 155, 10, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Year, 30, 155, 10, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + End If - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 25, 226, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 25, 210, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 20, 127 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 20, 175 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 25, 110 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 25, 184, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtOrt.Text, 20, 238 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 20, 254 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLand.Text, 20, 210 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPLZ.Text, 20, 224 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.MyTextBox2.Text, 20, 267 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + '#Page2 + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 20, 63 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 20, 76 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, 20, 219, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2)) Else + Select Case usrCntl.cbxAntragsart._value + + '#Page1 + + Case "Neuzugang" + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Neuzugang", 20, 125 + top, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + Case "Änderung" + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Änderung", 20, 125 + top, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + Case "Beendigung" + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Beendigung", 20, 125 + top, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + End Select + + '#Page1 + If usrCntl.DateTimePicker1 IsNot Nothing AndAlso IsDate((usrCntl.DateTimePicker1.Value)) Then - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Day, 135, 82, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Month, 145, 82, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Year, 157, 82, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT)) + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).ToShortDateString, 20, 155, 50, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Day, 20, 155, 10, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Month, 25, 155, 10, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Year, 30, 155, 10, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) End If - - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 25, 84, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 25, 103, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 20, 140, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 20, 175, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 25, 110, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + '#Page2 + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtOrt.Text, 20, 60, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 20, 75, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLand.Text, 20, 30, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPLZ.Text, 20, 45, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 20, 158, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 20, 143, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.MyTextBox2.Text, 20, 90, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtOrt.Text, 25, 216, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 25, 226, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.MyTextBox2.Text, 25, 238, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLand.Text, 25, 205, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPLZ.Text, 45, 205, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + '#Page3 - - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 25, 191, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 25, 173, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 25, 184, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 20, 212, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 3)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, 20, 196, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 3)) End If diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb index 3f878356..ff790c3b 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb @@ -1613,192 +1613,210 @@ Public Class usrCntlSpeditionsBuchSuche ' MsgBox(sqlstr) Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", , getSpedbuchList()) - Dim print As New frmPrintLayout - print.Text = "Handling / Front-Office" - - Dim rpt As New rptSpeditionsbericht_HandlingAussenstellen + Dim header = "Handling / Front-Office " Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Label28.Text = "IMEX Customs Service GmbH" - Case "ATILLA" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "ATILLA Spedition" - Case "AMBAR" : rpt.picVERAG.Image = My.Resources.ambar_simple : rpt.Label28.Text = "AMBAR Logistc Services GmbH" : print.Text = "Handling / AMBAR Bad Reichenhall" + Case "IMEX" : header &= "IMEX Customs Service GmbH" + Case "ATILLA" : header &= "ATILLA Spedition" + Case "AMBAR" : header = "AMBAR Logistc Services GmbH - Handling / AMBAR Bad Reichenhall" Case Else End Select - rpt.DataSource = dt + If vbYes = MsgBox("Möchten Sie den Bericht ZUSÄTZLICH als Excel exportieren?", vbYesNoCancel) Then - If CheckBox1.Checked Then - rpt.GroupHeader1.DataField = "Abfertigungsart" 'Gruppierung - End If - - If rpt.DataSource.rows.count = 0 Then - rpt.Dispose() : print.Dispose() - MsgBox("Keine Daten vorhanden!") - Return "" - End If - - - - Dim sum = 0 - rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME - 'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung - - Dim defaultHandlingPreis As Double = 15 - - Dim HandlingList As VERAG_PROG_ALLGEMEIN.cHandlingssaetzeInternLIST = Nothing - If Handlingssatz <> "" Then - HandlingList = New VERAG_PROG_ALLGEMEIN.cHandlingssaetzeInternLIST(Handlingssatz) - End If - - 'Dim cnt As Integer = 0 - rpt.lblDat.Text = Now.ToLongDateString - 'Dim sumRg As Double = 0 - 'Dim gesSumAnz As Double = 0 - 'Dim gesSumBar As Double = 0 - 'Dim gesSumRg As Double = 0 - 'Dim gesgesSumAnz As Double = 0 - 'Dim gesgesSumBar As Double = 0 - 'Dim gesgesSumRg As Double = 0 - 'Dim SumAnzLKW As Double = 0 - 'Dim gesSumAnzLKW As Double = 0 - 'Dim gesgesSumAnzLKW As Double = 0 - - - Dim gesAnz As Double = 0 - Dim gesBar As Double = 0 - Dim geshandling As Double = 0 - Dim geszukassBAR As Double = 0 - - Dim sumAnz As Double = 0 - Dim sumBar As Double = 0 - Dim sumhandling As Double = 0 - Dim sumzukassBAR As Double = 0 - - - - Dim sumAbfBez = "" - Dim gesFilBez = "" - - ' Dim gesgesAbfBez = "" - Dim SumText = "" - AddHandler rpt.Detail.Format, Sub() - ' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString - ' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString - - rpt.lblPosNr.Text = rpt.Fields.Item("FilialenNr").Value & " " & rpt.Fields.Item("AbfertigungsNr").Value & " " & rpt.Fields.Item("UnterNr").Value - rpt.lblAbfDatum.Text = rpt.Fields.Item("Abfertigungsdatum").Value - - rpt.lblEndEmpfKdNr.Text = checkNull(rpt.Fields.Item("EmpfängerKundenNr").Value) - rpt.lblEndEmpf.Text = checkNull(rpt.Fields.Item("Empfänger").Value) - - Dim bar As Double = 0 - Dim handling As Double = 0 - Dim zukassBAR As Double = 0 - ' Dim rg As Double = 0 - Dim anz As Double = 0 - - - If IsNumeric(checkNull(rpt.Fields.Item("Barzahlungsbetrag").Value)) Then bar = CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value()) - If IsNumeric(checkNull(rpt.Fields.Item("HandlingZuKassieren").Value)) Then zukassBAR = CDbl(rpt.Fields.Item("HandlingZuKassieren").Value()) - ' If IsNumeric(checkNull(rpt.Fields.Item("Rechnungsbetrag").Value)) Then rg = CDbl(rpt.Fields.Item("Rechnungsbetrag").Value()) - If IsNumeric(checkNull(rpt.Fields.Item("Abfertigungsanzahl").Value)) Then anz = CDbl(rpt.Fields.Item("Abfertigungsanzahl").Value) - Dim Abfertigungsart = checkNull(rpt.Fields.Item("Abfertigungsart").Value) - handling = getHandlingKostByListe(Abfertigungsart, defaultHandlingPreis, HandlingList) * anz - - ' rpt.lblLKWNr.Text = checkNull(rpt.Fields.Item("LKW Kennzeichen").Value) - rpt.lblAnzahl.Text = checkNull(rpt.Fields.Item("Abfertigungsanzahl").Value) - rpt.lblAbfertigungsart.Text = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value) - ' rpt.lblAbs.Text = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value) - - rpt.lblBarzahlungsbetrag.Text = CDbl(bar).ToString("C2") - rpt.lblzuKassierenHandling.Text = CDbl(zukassBAR).ToString("C2") - rpt.lblHandlingsgebuehr.Text = CDbl(handling).ToString("C2") - 'sumBar += CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value) - - sumAbfBez = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value) - - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "AMBAR" - rpt.lblBarzahlungsbetrag.Visible = False - rpt.lblzuKassierenHandling.Visible = False - End Select - - sumAnz += anz - sumBar += bar - sumhandling += handling - sumzukassBAR += zukassBAR - - gesAnz += anz - gesBar += bar - geshandling += handling - geszukassBAR += zukassBAR - - End Sub - - Dim bezeichnung = "" - AddHandler rpt.ReportFooter1.Format, Sub() - rpt.lblGesGesSumAnzahl.Text = sumAnz.ToString("N0") - rpt.lblSumBarzahlungsbetrag.Text = sumBar.ToString("N2") - rpt.lblSumzuKassierenHandling.Text = sumzukassBAR.ToString("N2") - rpt.lblSumHandlingsgebuehr.Text = sumhandling.ToString("N2") - - rpt.txtUebersicht.Text = SumText - - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "AMBAR" - rpt.lblSumBarzahlungsbetrag.Visible = False - rpt.lblSumzuKassierenHandling.Visible = False - End Select - - End Sub - AddHandler rpt.GroupHeader1.Format, Sub() - - rpt.lblAbfArtUeberschrift.Text = checkNull(rpt.Fields.Item("Abfertigungsart").Value) & " - " & checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value) - bezeichnung = rpt.lblAbfArtUeberschrift.Text - - gesAnz = 0 - gesBar = 0 - geshandling = 0 - geszukassBAR = 0 - - End Sub - AddHandler rpt.GroupFooter1.Format, Sub() - rpt.lblGesSumAnzahl.Text = gesAnz.ToString("N0") - rpt.lblGesBarzahlungsbetrag.Text = gesBar.ToString("N2") - rpt.lblGeszuKassierenHandling.Text = geszukassBAR.ToString("N2") - rpt.lblGesHandlingsgebuehr.Text = geshandling.ToString("N2") - SumText &= gesAnz.ToString("N0") & vbTab & bezeichnung & vbNewLine - - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "AMBAR" - rpt.lblGesBarzahlungsbetrag.Visible = False - rpt.lblGeszuKassierenHandling.Visible = False - End Select - End Sub - If showDok Then - print.Viewer.LoadDocument(rpt) - print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous - print.Show() - Else - - Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("HandlingFO.pdf", ".pdf", True, False) - Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport - rpt.Run(False) - p.NeverEmbedFonts = "" - p.Export(rpt.Document, tmpPath) - - rpt.Dispose() - Return tmpPath + cProgramFunctions.genExcelFromDT_NEW(dt,,, header) End If + Dim print As New frmPrintLayout + print.Text = "Handling / Front-Office" + + Dim rpt As New rptSpeditionsbericht_HandlingAussenstellen + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Label28.Text = "IMEX Customs Service GmbH" + Case "ATILLA" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "ATILLA Spedition" + Case "AMBAR" : rpt.picVERAG.Image = My.Resources.ambar_simple : rpt.Label28.Text = "AMBAR Logistc Services GmbH" : print.Text = "Handling / AMBAR Bad Reichenhall" + + Case Else + End Select + + rpt.DataSource = dt - End If - Return "" + If CheckBox1.Checked Then + rpt.GroupHeader1.DataField = "Abfertigungsart" 'Gruppierung + End If + + If rpt.DataSource.rows.count = 0 Then + rpt.Dispose() : print.Dispose() + MsgBox("Keine Daten vorhanden!") + Return "" + End If + + + + Dim sum = 0 + rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + 'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung + + Dim defaultHandlingPreis As Double = 15 + + Dim HandlingList As VERAG_PROG_ALLGEMEIN.cHandlingssaetzeInternLIST = Nothing + If Handlingssatz <> "" Then + HandlingList = New VERAG_PROG_ALLGEMEIN.cHandlingssaetzeInternLIST(Handlingssatz) + End If + + 'Dim cnt As Integer = 0 + rpt.lblDat.Text = Now.ToLongDateString + 'Dim sumRg As Double = 0 + 'Dim gesSumAnz As Double = 0 + 'Dim gesSumBar As Double = 0 + 'Dim gesSumRg As Double = 0 + 'Dim gesgesSumAnz As Double = 0 + 'Dim gesgesSumBar As Double = 0 + 'Dim gesgesSumRg As Double = 0 + 'Dim SumAnzLKW As Double = 0 + 'Dim gesSumAnzLKW As Double = 0 + 'Dim gesgesSumAnzLKW As Double = 0 + + + Dim gesAnz As Double = 0 + Dim gesBar As Double = 0 + Dim geshandling As Double = 0 + Dim geszukassBAR As Double = 0 + + Dim sumAnz As Double = 0 + Dim sumBar As Double = 0 + Dim sumhandling As Double = 0 + Dim sumzukassBAR As Double = 0 + + + + Dim sumAbfBez = "" + Dim gesFilBez = "" + + ' Dim gesgesAbfBez = "" + Dim SumText = "" + AddHandler rpt.Detail.Format, Sub() + ' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString + ' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString + + rpt.lblPosNr.Text = rpt.Fields.Item("FilialenNr").Value & " " & rpt.Fields.Item("AbfertigungsNr").Value & " " & rpt.Fields.Item("UnterNr").Value + rpt.lblAbfDatum.Text = rpt.Fields.Item("Abfertigungsdatum").Value + + rpt.lblEndEmpfKdNr.Text = checkNull(rpt.Fields.Item("EmpfängerKundenNr").Value) + rpt.lblEndEmpf.Text = checkNull(rpt.Fields.Item("Empfänger").Value) + + Dim bar As Double = 0 + Dim handling As Double = 0 + Dim zukassBAR As Double = 0 + ' Dim rg As Double = 0 + Dim anz As Double = 0 + + + If IsNumeric(checkNull(rpt.Fields.Item("Barzahlungsbetrag").Value)) Then bar = CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value()) + If IsNumeric(checkNull(rpt.Fields.Item("HandlingZuKassieren").Value)) Then zukassBAR = CDbl(rpt.Fields.Item("HandlingZuKassieren").Value()) + ' If IsNumeric(checkNull(rpt.Fields.Item("Rechnungsbetrag").Value)) Then rg = CDbl(rpt.Fields.Item("Rechnungsbetrag").Value()) + If IsNumeric(checkNull(rpt.Fields.Item("Abfertigungsanzahl").Value)) Then anz = CDbl(rpt.Fields.Item("Abfertigungsanzahl").Value) + Dim Abfertigungsart = checkNull(rpt.Fields.Item("Abfertigungsart").Value) + handling = getHandlingKostByListe(Abfertigungsart, defaultHandlingPreis, HandlingList) * anz + + ' rpt.lblLKWNr.Text = checkNull(rpt.Fields.Item("LKW Kennzeichen").Value) + rpt.lblAnzahl.Text = checkNull(rpt.Fields.Item("Abfertigungsanzahl").Value) + rpt.lblAbfertigungsart.Text = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value) + ' rpt.lblAbs.Text = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value) + + rpt.lblBarzahlungsbetrag.Text = CDbl(bar).ToString("C2") + rpt.lblzuKassierenHandling.Text = CDbl(zukassBAR).ToString("C2") + rpt.lblHandlingsgebuehr.Text = CDbl(handling).ToString("C2") + 'sumBar += CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value) + + sumAbfBez = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value) + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "AMBAR" + rpt.lblBarzahlungsbetrag.Visible = False + rpt.lblzuKassierenHandling.Visible = False + End Select + + sumAnz += anz + sumBar += bar + sumhandling += handling + sumzukassBAR += zukassBAR + + gesAnz += anz + gesBar += bar + geshandling += handling + geszukassBAR += zukassBAR + + End Sub + + Dim bezeichnung = "" + AddHandler rpt.ReportFooter1.Format, Sub() + rpt.lblGesGesSumAnzahl.Text = sumAnz.ToString("N0") + rpt.lblSumBarzahlungsbetrag.Text = sumBar.ToString("N2") + rpt.lblSumzuKassierenHandling.Text = sumzukassBAR.ToString("N2") + rpt.lblSumHandlingsgebuehr.Text = sumhandling.ToString("N2") + + rpt.txtUebersicht.Text = SumText + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "AMBAR" + rpt.lblSumBarzahlungsbetrag.Visible = False + rpt.lblSumzuKassierenHandling.Visible = False + End Select + + End Sub + AddHandler rpt.GroupHeader1.Format, Sub() + + rpt.lblAbfArtUeberschrift.Text = checkNull(rpt.Fields.Item("Abfertigungsart").Value) & " - " & checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value) + bezeichnung = rpt.lblAbfArtUeberschrift.Text + + gesAnz = 0 + gesBar = 0 + geshandling = 0 + geszukassBAR = 0 + + End Sub + AddHandler rpt.GroupFooter1.Format, Sub() + rpt.lblGesSumAnzahl.Text = gesAnz.ToString("N0") + rpt.lblGesBarzahlungsbetrag.Text = gesBar.ToString("N2") + rpt.lblGeszuKassierenHandling.Text = geszukassBAR.ToString("N2") + rpt.lblGesHandlingsgebuehr.Text = geshandling.ToString("N2") + SumText &= gesAnz.ToString("N0") & vbTab & bezeichnung & vbNewLine + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "AMBAR" + rpt.lblGesBarzahlungsbetrag.Visible = False + rpt.lblGeszuKassierenHandling.Visible = False + End Select + End Sub + If showDok Then + print.Viewer.LoadDocument(rpt) + print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous + print.Show() + Else + + Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("HandlingFO.pdf", ".pdf", True, False) + Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + rpt.Run(False) + p.NeverEmbedFonts = "" + p.Export(rpt.Document, tmpPath) + + rpt.Dispose() + Return tmpPath + + End If + + + + + End If + Return "" End Function Function getHandlingKostByListe(AbfertigungsArt As Integer, defaultHandlingPreis As Double, HandlingList As VERAG_PROG_ALLGEMEIN.cHandlingssaetzeInternLIST) As Double diff --git a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb index 8d57723e..9739d472 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb @@ -23,9 +23,9 @@ Partial Class frmMDM_USTVAntrag Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag)) + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.pnlBottom = New System.Windows.Forms.Panel() Me.pb_Beleg = New System.Windows.Forms.PictureBox() Me.Button5 = New System.Windows.Forms.Button() @@ -112,7 +112,6 @@ Partial Class frmMDM_USTVAntrag Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.pnlAntragsPosDetails = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel() - Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition() Me.Panel4 = New System.Windows.Forms.Panel() Me.cbxKIUploaddelete = New System.Windows.Forms.CheckBox() Me.scanUSTVA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() @@ -123,13 +122,18 @@ Partial Class frmMDM_USTVAntrag Me.Panel3 = New System.Windows.Forms.Panel() Me.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.pnlErstattungsdetails = New System.Windows.Forms.Panel() - Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition() Me.Panel1 = New System.Windows.Forms.Panel() Me.Button2 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cnS_KIUPLOAD = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.cns_vorauszahlen = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition() + Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition() + Me.VorauszahlungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnlBottom.SuspendLayout() CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit() @@ -152,6 +156,7 @@ Partial Class frmMDM_USTVAntrag CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlErstattungsdetails.SuspendLayout() Me.Panel1.SuspendLayout() + Me.cns_vorauszahlen.SuspendLayout() Me.SuspendLayout() ' 'pnlBottom @@ -178,7 +183,7 @@ Partial Class frmMDM_USTVAntrag ' 'pb_Beleg ' - Me.pb_Beleg.Image = Global.SDL.My.Resources.Resources.pdf + Me.pb_Beleg.Image = CType(resources.GetObject("pb_Beleg.Image"), System.Drawing.Image) Me.pb_Beleg.Location = New System.Drawing.Point(899, 60) Me.pb_Beleg.Name = "pb_Beleg" Me.pb_Beleg.Size = New System.Drawing.Size(35, 35) @@ -237,7 +242,7 @@ Partial Class frmMDM_USTVAntrag ' 'picExcel ' - Me.picExcel.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.picExcel.Image = CType(resources.GetObject("picExcel.Image"), System.Drawing.Image) Me.picExcel.Location = New System.Drawing.Point(1158, 17) Me.picExcel.Name = "picExcel" Me.picExcel.Size = New System.Drawing.Size(35, 35) @@ -259,7 +264,7 @@ Partial Class frmMDM_USTVAntrag ' 'picPDF ' - Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf + Me.picPDF.Image = CType(resources.GetObject("picPDF.Image"), System.Drawing.Image) Me.picPDF.Location = New System.Drawing.Point(1211, 17) Me.picPDF.Name = "picPDF" Me.picPDF.Size = New System.Drawing.Size(35, 35) @@ -284,7 +289,7 @@ Partial Class frmMDM_USTVAntrag Me.btnAntrageeinarbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnAntrageeinarbeiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) Me.btnAntrageeinarbeiten.ForeColor = System.Drawing.Color.Black - Me.btnAntrageeinarbeiten.Image = Global.SDL.My.Resources.Resources.plus + Me.btnAntrageeinarbeiten.Image = CType(resources.GetObject("btnAntrageeinarbeiten.Image"), System.Drawing.Image) Me.btnAntrageeinarbeiten.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnAntrageeinarbeiten.Location = New System.Drawing.Point(12, 29) Me.btnAntrageeinarbeiten.Name = "btnAntrageeinarbeiten" @@ -1455,8 +1460,8 @@ Partial Class frmMDM_USTVAntrag Me.dgvUSTVPositionen.AKTUALISIERUNGS_INTERVALL = 500 Me.dgvUSTVPositionen.AllowUserToAddRows = False Me.dgvUSTVPositionen.AllowUserToDeleteRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUSTVPositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUSTVPositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 Me.dgvUSTVPositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -1492,14 +1497,6 @@ Partial Class frmMDM_USTVAntrag Me.Panel2.Size = New System.Drawing.Size(1438, 263) Me.Panel2.TabIndex = 1 ' - 'UstCntlUSTV_AntragPosition1 - ' - Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0) - Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1" - Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261) - Me.UstCntlUSTV_AntragPosition1.TabIndex = 0 - ' 'Panel4 ' Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke @@ -1551,7 +1548,7 @@ Partial Class frmMDM_USTVAntrag ' Me.btnPDFauslesen.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnPDFauslesen.ForeColor = System.Drawing.Color.Black - Me.btnPDFauslesen.Image = Global.SDL.My.Resources.Resources.pdf_s + Me.btnPDFauslesen.Image = CType(resources.GetObject("btnPDFauslesen.Image"), System.Drawing.Image) Me.btnPDFauslesen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnPDFauslesen.Location = New System.Drawing.Point(4, 186) Me.btnPDFauslesen.Name = "btnPDFauslesen" @@ -1565,7 +1562,7 @@ Partial Class frmMDM_USTVAntrag ' Me.btnEintragloeschen.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnEintragloeschen.ForeColor = System.Drawing.Color.Black - Me.btnEintragloeschen.Image = Global.SDL.My.Resources.Resources.del + Me.btnEintragloeschen.Image = CType(resources.GetObject("btnEintragloeschen.Image"), System.Drawing.Image) Me.btnEintragloeschen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnEintragloeschen.Location = New System.Drawing.Point(6, 50) Me.btnEintragloeschen.Name = "btnEintragloeschen" @@ -1579,7 +1576,7 @@ Partial Class frmMDM_USTVAntrag ' Me.btnNeuerEintrag.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnNeuerEintrag.ForeColor = System.Drawing.Color.Black - Me.btnNeuerEintrag.Image = Global.SDL.My.Resources.Resources.plus + Me.btnNeuerEintrag.Image = CType(resources.GetObject("btnNeuerEintrag.Image"), System.Drawing.Image) Me.btnNeuerEintrag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnNeuerEintrag.Location = New System.Drawing.Point(6, 5) Me.btnNeuerEintrag.Name = "btnNeuerEintrag" @@ -1617,8 +1614,8 @@ Partial Class frmMDM_USTVAntrag Me.dgvErstattungspositionen.AKTUALISIERUNGS_INTERVALL = 500 Me.dgvErstattungspositionen.AllowUserToAddRows = False Me.dgvErstattungspositionen.AllowUserToDeleteRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvErstattungspositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvErstattungspositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 Me.dgvErstattungspositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -1645,14 +1642,6 @@ Partial Class frmMDM_USTVAntrag Me.pnlErstattungsdetails.Size = New System.Drawing.Size(1436, 261) Me.pnlErstattungsdetails.TabIndex = 0 ' - 'UstCntlUSTV_AntragErstattungen1 - ' - Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0) - Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1" - Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259) - Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2 - ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke @@ -1669,7 +1658,7 @@ Partial Class frmMDM_USTVAntrag ' Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button2.ForeColor = System.Drawing.Color.Black - Me.Button2.Image = Global.SDL.My.Resources.Resources.del + Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image) Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button2.Location = New System.Drawing.Point(6, 50) Me.Button2.Name = "Button2" @@ -1683,7 +1672,7 @@ Partial Class frmMDM_USTVAntrag ' Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.ForeColor = System.Drawing.Color.Black - Me.Button3.Image = Global.SDL.My.Resources.Resources.plus + Me.Button3.Image = CType(resources.GetObject("Button3.Image"), System.Drawing.Image) Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button3.Location = New System.Drawing.Point(6, 5) Me.Button3.Name = "Button3" @@ -1708,6 +1697,47 @@ Partial Class frmMDM_USTVAntrag Me.cnS_KIUPLOAD.Name = "ContextMenuStrip1" Me.cnS_KIUPLOAD.Size = New System.Drawing.Size(61, 4) ' + 'cns_vorauszahlen + ' + Me.cns_vorauszahlen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VorauszahlungToolStripMenuItem}) + Me.cns_vorauszahlen.Name = "cns_vorauszahlen" + Me.cns_vorauszahlen.Size = New System.Drawing.Size(181, 48) + ' + 'UstCntlUSTV_AntragPosition1 + ' + Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0) + Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1" + Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261) + Me.UstCntlUSTV_AntragPosition1.TabIndex = 0 + ' + 'UstCntlUSTV_AntragErstattungen1 + ' + Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0) + Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1" + Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259) + Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2 + ' + 'VorauszahlungToolStripMenuItem + ' + Me.VorauszahlungToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AktivierenToolStripMenuItem, Me.DeaktivierenToolStripMenuItem}) + Me.VorauszahlungToolStripMenuItem.Name = "VorauszahlungToolStripMenuItem" + Me.VorauszahlungToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.VorauszahlungToolStripMenuItem.Text = "Vorauszahlung" + ' + 'AktivierenToolStripMenuItem + ' + Me.AktivierenToolStripMenuItem.Name = "AktivierenToolStripMenuItem" + Me.AktivierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.AktivierenToolStripMenuItem.Text = "aktivieren" + ' + 'DeaktivierenToolStripMenuItem + ' + Me.DeaktivierenToolStripMenuItem.Name = "DeaktivierenToolStripMenuItem" + Me.DeaktivierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.DeaktivierenToolStripMenuItem.Text = "deaktivieren" + ' 'frmMDM_USTVAntrag ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1750,6 +1780,7 @@ Partial Class frmMDM_USTVAntrag CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlErstattungsdetails.ResumeLayout(False) Me.Panel1.ResumeLayout(False) + Me.cns_vorauszahlen.ResumeLayout(False) Me.ResumeLayout(False) End Sub @@ -1858,4 +1889,8 @@ Partial Class frmMDM_USTVAntrag Friend WithEvents Label17 As Label Friend WithEvents txtRZ As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents cbxRGretour As CheckBox + Friend WithEvents cns_vorauszahlen As ContextMenuStrip + Friend WithEvents VorauszahlungToolStripMenuItem As ToolStripMenuItem + Friend WithEvents AktivierenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents DeaktivierenToolStripMenuItem As ToolStripMenuItem End Class diff --git a/SDL/USTV/frmMDM_USTVAntrag.resx b/SDL/USTV/frmMDM_USTVAntrag.resx index 3b80769c..ecb64fe2 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.resx +++ b/SDL/USTV/frmMDM_USTVAntrag.resx @@ -117,6 +117,351 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAOpklEQVRoQ9VaCVhUR7otsJul + G5PnJDoGoQEVjcZlcFwwsrqhgeiLmozGJb5581yeExzNi6MmGgNRURZBgrKqGBWjPtwiGTVjRDFklFUI + KM2+ddPdQNPdLN3c5sxXRdMDDUZUJvPe+b7z3arqqrr/uf/96977VxPyDBAKhS9PmTLFc9KkSbMmTpz4 + 5guQjafzuLi4eA4dOtTO9Fz9BQDGZ4K7p6cfAOgAtHAcY6te34ttfVDb0QFtt2NreztadDq0cRxqZTJs + 37493vR8/UF3IWaEEB4hxPoJtCKEWNKO02fO/G+VXo8yqRTi6mrG4poaI0tMWNrF2lqUmbCkuhpF5eXI + LypCaXU1dDodYmNi7hns6TeMQmz5/MnZY8aU5Y8eXfU3JydxupOjOM3BUZzq4CD+q0gkvm5vJ06xsxP/ + 77Bhj685Ockz3NyQ5uqK76dPx41pU3Ft6m9xacoUnHdxQdLkyTg5aTLiJ05E9IQ3EPnGGwgbNw4HX38d + +8aORcCYMdjt7Iydo0Zh28iR2OrkBP/XXsNWBxG+PnECKp0OcXFxt0yN/TkYhThZWPhi2jTAx6eTc+YC + s2cDXl6ApwfgPRv4zW+AX/0KjUIh8ghBvqUl8oYOwz0zc/yVEHxLCC4TgitmZviGz8cZMzMcJQSRhOAg + IThECL4kBCGEIIgQfEEIPjfwI0LwHiGIi4xEyq1baG1tRURExA1Tg58EoxBHHm8ZJk0C/PzQvvjfofX1 + RevChdD4+KBp3jzUz5iB+qVLoU5IgDY9HZpLl1Di6op8W1vU7NqFxsuXofnhHioDA5D66+H4hhA8WPgW + igICULR3LyoSEpC2aBG+IgRJgwfjlFCIRCsrHLOwQCKPx0R+QAjiIyNx5eZNZGRk0DBEYGDgt6ZG94V/ + COHzl+qpkPnzoV24EK3z5qF57lyoZ8+B0tsLdY6OUO7YwSbnGho6j0olxG+9hbbSUlbXyeXs2N7QgGsW + Fni4eTOrd6EgLBRRhCBRaIMEgQBxVlaItrBADI+HAwYhJ44exc20NKSnp6O9vZ2N++KLL57qme4eWaKd + OBGYNw+tPj5MhGbOHDR5e6PByxMSBwcod+9mE5c4OuKx3QhWloSGokOlgjQxkXnh4fLlrF0cHIyfPvqI + lc+98goTcFIgwJkhQ5BoI2RCYi2tcLSbkDWE4KvYWKTev4979+6xsSqVih337NmTYmp8dxiFOPB4S5on + vAHMmQ3N/HlQz5nNRDR6eUHh4YEakQgNn3zCJq1dtw5Sg3eqduyEXqWCPDmZxUkKIdAUFECZl4dCg/CK + pCRUnjuHG3PmII5edaEQCdbWiLW0xFE+HzGDeCxmqJBTcXFIy8zE3bt32ViKpqYmdgwMDLxuKqALPYQ0 + jR8PztsbTXPnQmkQUe/hAZmbO6rs7FC/7WPj5BT1p88gx8mJleUXLzIh1wiB6mEeE5K/fXuP/ukbN7Jg + 7xISYxQyiAlZbRCSnpuLH3/8scfYLuzbt6/PmDEKEfF4S+rHjUObhwcavb1R7+nJPCFzc4Nk1iyU29pC + YfCCIjISYk9PZPB4yB41irXVxMfha0KQ7urK6uJDYXi4ZQsrX7K1RQI1UiDAVy+/jOMCAeKtqBALHOHz + ET1oEPYbhJyJj0dmQQGLkerqapSUlKCsrAxSqRSNjY1svvj4+F5ijELsebwl0tdfR7ObG+SenkyAdNYs + SN58EzUzZ6Jk+HDIPtnJJipdsAAZhCDL3h45Li7oaG9Hm0QC2cWLhusGXLaxQb5B+CV7eybkK6EQJ18a + jGPdAj2Kx+spJCEBj6uqcPv2bRw4cADr16/Hxo0bsWXLFnz66acIDw9HQUFBL88YhdjxeEuqnJ2hcnND + nacXJO7uqHVzQ82sWaia+SZKRo9G7dq1aMvMROnixXjoIEKOszOyx4+H4tw5cAoFoNOh7tx53B47FkmE + IGf9Oihu3cJVkQhJfD7OvvQSTtvYsKA/bmWJeEOgJ5ibI5gQrKJL87Fj7O3g/v37OH36NA4ePIigoCAE + BARg586dTBBlUlIS3n///cReQkQ83rKGsWPBzZgBletMKKdPR+O0aWiYOhXyqb+FbMYM1IwZg1KhEOJR + o5A7ehSyHB1x384Ot83N8Z0h0C8QguRBg/DNkCE4Y2GBWOoJS0sk8vmIG2SOo2aErWARhCCMECaAPiB3 + EYLlBiEVMhny8vKYV65evYrk5GRcuHAB58+fx7lz55iI2NhYnD17FhMmTFjeQ4gtj/d2ppMTHjo5It1B + hB9EItwTiXDX3h6p9vb43s4O39na4i+vDcfVXw/HhVdfxdlXXsGpIUNwbPBgxAgEiBIIECEUIkQgRJBA + gEBLS+zm8bCTz8c2Hg9/IgSbbYTwHzYU6/l8/J4QrDV44neE4H36VpCUBGlTE0pLS5Gbm4sHDx6weKGk + CwAlXZqpSBo//v7+p3sIMSPETmBm9p7AzGyTgRu7aP0PbiCEfDBh9OikU/HxOHLoEL4MDTUysjtDQnE4 + JASHQ0NxODQEEcHBiIyKQvi+fdi/9D2EffYZIqK+RHhICMIOHsSh4GCcSUxEfl4e5HI5C+6KigpmrFgs + ZiwuLmak5UePHoHjOOzatetSDyGEkEGEEHPDGy590zUlbbegHafNnPlHJX0wymQoqq1lFHdjcRclEpQY + WCqVolKvx/1tO5Gx+3MUpHyLCpUKZRIJY7lUCkljIxNRr1BAoVBAJpMxQRKJpAdra2tRU1PDFpLAwMDL + pkL6DQ8Pjz/QSbRaLZqbm/tF+s2ilsshXvtfaJYr0KJSQaNS9eij0WjYk1ypVLKllrKhoaEX6+vrGSmC + goKeX4i7u/t6OklLSws7cX+o0etR/7gIj9b8J5okUqiUSqibm3v1o0/x/pIiODj4+YW4ubltoJPQq2g6 + +ZOo0mrRWF2NR/+xDoqsbMizc6DmuF79jP37uBimpAgJCXl+Ie7u7kwI/WZQq9X9oqalBc0dHSja8CEq + I4+g7sZNtAK9+j0L/yVC1BoNtACK//Q/yHOfi7q/3EDb/xUhbW1tLED7S/p1UROXgHRCIL99hwkz7fMs + pAgNDX1+IR4eHkwITRTQgO8vqeFNeT8hx34UVOJiVjft8yykCAsL+9cIUZeVI/PfhqPxh3TmoRa6NPfR + tz8cMCH0U5TGSb9oOLE0JgF3CUH5ts4349a2tt59+8kBE0JfEWic9Ischw4AhbO8UbljNwrfWgRVZhb0 + NNZaW3v37wcpDh069MsKoQYrU+8g+zURM6Dq80AUuHmzsvYZ5unOAROip6lPrfapbNPS6ACKl/4O4sXL + WJl656HDaNTuDeoUo9P1Gvc0UoSHhz+/EE9PTyako6ODBfzTSI1uKSlFzlBbqLOyWZ2i+WEeMs0FaLh0 + hdXb9XrotNpe459EioiIiF9IiCE3Vbz0PRQtZLlv6Lh25gEKZcp1ZBJL1MWfYHUqkkrn6K1rwnaO6yF0 + wIRQ0JXr50jR8lMBcl61RUtBYecYnY4ZRY2jaCuvQJGXD8r/sBHahs4EAxOkVqNNJoNWqQSnp1HWCVoe + cCE04J/Ijs6bqGiBL0pXfcDKXbcVG6vTobngEVqKSyCPPYYHhCDPfiSKPOejyHsBaj/fy1ixbhPKVnzA + jrLoOHCGxYPi8OHD/3whFE03biJ3hAP0hleKlsLHUH57HfLjJyENjUAdfYEM/5LVNQ/zoM7IQuUftyDf + fjQez/SC9EAoNFnZ0NbJmOi6iCio7qR1nX7ghNCVqy92XfmCiVNQs+szVlal3kXT9ZtoSrmO5qwc6Aw5 + 5L6g1+pQf/I0qv0/QvXWP0MWEYXG5EvQZGShXaU2zv9CQry8vIxCaMB3Z3fU7T+IwvGTWVknk0Pf3Nzj + dwo6wnQO03k4+hnwtwdQf58KyZ690KSlG3+LjIwceCFdJ+1o59BeV4e8YSOg6XYbPMnon6VxdCd00jro + JFJjfcCFULRkZEF5sfOZUOw9D9WbOrcVTAV0H9e97UntpvWuNoqIiIhkatMLC+lCU/Jl1Hy4lZXlwWF4 + PN7FtAsDjR+ao+pKHnQhNTWVsTto8oEm5bqe4n3h2LFjbO9kQISorlxDqc/brKy5cw8Fw52gq+5M15iC + 5qnoeePj43u0L1u2DO+++26PNpptHDFihDF53RdOnDjxHbXphYW0yxUonecHPX14FRSiYKiIiXkSaOqT + nnfPnj2sTq92SkoKvL298Ylh/2Xfvn0sEUfzWu7u7jhy5IjRWzRVRPPANEFHcfz48YHxSOPZ86j5cAvU + 39+BeOosaG71vD1MsXXrVvj5+WHdunWsvnnzZjg7O0MkEtHbBFFRUXBwdMCiRYuQk5ODGTNmYP78+bC3 + t0dVVRVLaC9cuJB5kCIxMfEbatMLC6FozcmFLCQculpJ9+Y+sXjxYpZlX7NmDcvrTpkyhX3tUQ8tWLAA + vn6+rN+GDRuYsUuWLGH1TZs2Yfr06fDz9WOZ+pEjR7LUaXp6+m2aIR0QIf0FTXeOGTMGa9euxbhx49he + h69vp+EhISFwcXExxsmOHTuYJ1atXsXqVCj1ChUWHR2N/fv3s/ZTp05doTb9okLoVsAkunMM4J133mFX + md5CNEboccXyFaw9LS0NK1asYDEzduxYZGVlMU/6+/uz26qystI454s+RzZ2s6/fiImJoV90rEyDngqj + WwTUSLorRcvZ2dkswOlVpymfbX/ehtWrV+Pjjzv3L+leiY+PD1sAKKKjo5/fI66urr+nr9E0I15RUcH1 + h+Xl5VxlZSVXX1/PlZaWcgqFgqupqeHUajVXXFzM2uvq6rjW1lYuPz+f/a5QKPQajYYTi8WcTCbjGhsb + Oa1WyxUWFnK5ubnsrTQgIOBratPzCKFbD45mZmZvm5mZrTJw5dNICFlpaWnJSMt8Pp+Vzc3NVwqFwpVW + Vlasjf42ePDglRYWFmwc7UN/t7a2Zr/R/jY2Nqusra1XE0LeJYS40G2P5xFC91Hov4joUUD/vvVP5s+d + g2+whW8U0lX4/86/A3PgFZRgzK1HAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH + DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp + bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE + sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs + AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4 + JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR + 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd + li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF + ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX + wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF + hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55 + 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ + VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB + 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC + qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE + j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I + 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9 + rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG + fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp + B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ + yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC + YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln + yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v + vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp + vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L + Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA + bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z + llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW + ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s + xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6 + eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw + YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR + XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm + WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl + xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2 + dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8 + V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za + Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v + Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb + PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/ + 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h + /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr + XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS + fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ + tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ + 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEgAACxIB0t1+/AAAB4JJREFUSEu9lntM1FcW + x0+yNWpdBURGEJ0ZXtVqZX0hFJAB5gVILVbQTRCQ1wwDw7wYGMSCgiI+IoivtbpBwOLqqnUXq30YlVrX + bXAFu6Ua2ShG0jVoq1ZFwQffzb3zhG22/+0vOZnf3Nz8Pjn3nPs9X1qx10yqpnWU27iOEuo0pG6qpMKP + qyljXxkpt6hozdF6qvxkN2XuW0OymiwqO1I33tBUPTNhsypTUpVuydhTOi5jTynNL08mQUEkiQwyEhql + JDLKSGiQ8vDKj6AZlkTa+WULEQOqmytJ3VRFS+q1ZDq8hdYc304FTRsosTZ/jKll89zcP1YslW/K3hi8 + Oul4WMXvu98pThwQF0oxMScU49Ln0ERVKPnqY8jPpPh1YNaBctIdqqG85vWTFdtUipQ9ppKEWs3e8PWp + l2aUJj4IMsdhilYCL00ED7echZikCoN3XiQC9cp7PgVRNC53PnnkhVlDHUbueaH83V0dyuONjNnkV6Sg + Q5dOEUXUpJUvqFrRPfPD94dEZjkm66PgWRABz/xweOsk8NZGYaouBkK9FNN0sZhWGAuhNhpTNFEIMsRh + 9pqkrgCzsj3IHN8eVBw//NcWgUVx7f5FivaCpg16EhiiWgWGKHgbYyA0yyEqkkNcJIfIJIfQKIOIhV7K + gUJdLISFMRBqY+CWtQBBxji8ev0a9mfw5Qs8Gxxw/Lc/T5734+DFVlDqjNPkZ1E2+JUoIWZRrITIrHAA + OYyFwRVozdA9OwTTjfG42deLu4/uo+deL4aGhjjgVl8vfnh4D7fv/4CH/T/ztbbr7RiVGdxAfpa4BnGJ + gsPExQqIRwINUgeQHakVGAORNha++RK8mT0fb+bMB8W7YdeZQzjW/gVIOR5js+eBkrwhqc7gwM+//Rpj + s+cyoLKBZ8cztAKn6KN5iE1yiI0yuOWGYPSqOfDVRkOkk3Igi6kF0ZiUH8GDlk7BR+eO4MSVs6D3J1vX + VgRAuUXFgZ+5Au1HKipWIKAkHp4F4fitKgRCoxReBRGYZXkPi7fmYXrxYvjkR/Ej9cheiLeMcbhy63tc + //ct/vvjk4d49OwJrtzqQlfvv9DRcw037/Vy4MnO8yxr65HagQJ9FAJLE/gH2q5fBq2cAV9dNB4/f8o/ + 5pETAoEmgmfHulRUKEVSnRYf7NAjvCIFn3a24WJ3B8LLk7G0XofI9SthOVLLgaevXrBnyGpoBU4zy0Er + p+PbOzf4Js/8CKTtLeXvuoM1oGUix5H66WQcyo6PlghAcwgbW/eh8eu/gGaTdS2UEGSOt9bwnxdtwBJn + DVmmo7KCEVGdxjcduHAC3/V24+lAP0alvwNBfiRvmmnaGK4ygQYlr8356+042dmGOz/dRd/PP6K14xzO + fv8NTl29gH/0dPFvseyH19ClSyk1CGe+u8Q3sievYS0oWQyxQeboUoEqAv56ObZ+2oDtXzRj7bEd6Lx9 + HTfu9qDiaD3qPm9G1Yk9OPzNZ/wbp65+Za/h8HsYWBIPSp6K5buMfOPAy0G45S7EBNXCYdfCXyeHj2YR + SDYWJB0NCiBUHN+J/W3HQH5kXZtFXKmcRzqiaRiQqQ2lvsWPxP5omzaAkkUQG+QOoJc6HP56BbaecmbY + cfsabty9jbWuGf79lDXDTpYhr6ET6FcSB0p/G3Hb8vimui8/xs2+O3g68AxjMn7HxdsubZ65YQg02mp4 + rR0nO847anjSUcOvcPmWs4ZjsmxNYwf6mmIxOisY9x8/4JtouRilf7a2tbFlM+iDac4uLfzlLm1iXRps + 69IwQlDxyC61S1uJEhM0oYjcmIafnjxC899aQUu8MGv1Ei7QTJgn54VjkjqcA335PYy13sP6/3UPt3Eg + u4c8Q7FLDZnSsKbx0Uvgpl4IoUmGSZpwhJSnIGWHEbMsS+CtWcSBHjkjlKbHpjT9T3Clx0Vp+uxKw67F + iC5lv2w8TdZFWbW0SMkFfFz2PPwmfTYfxGKdzKalsVxL3dShcFeHgt7zwh/OHsYnl8+AFk/k65QshLQm + iwNZrW01dCrNyGkxfB7GOsYTu/jCAibeMfAplMBHJwGliLD//DH8teMcaNlUvk6p05G4TeMA/pe0jQSK + TFagkI8nV2A0JmQtwAxTAh4/e4oXr17i2Qvn4GXvL1+9xPMXg441Pg9XBTeQwCAZPvHNbOIr+GiyA39p + ALtlhfCJ3z/43AkaHOBXyPV5PTRknfisCVOnn6bwjczTLHfxNBI+nphws6PyLnR6GleLwT2NMQ7BZUld + AUVxVh8zwssM8zQmRbuWeZrMAx9SYUsNqZuruGtL3m0sSajN2/suc22WxAeB5niba4uEQBMJd+7a3uXd + GmiwubacBeThcGrW8FA7/7+REUz+dte2fG8RqZoqeTBfavzTZio7tp3yG9fT4lrNGGPLprk5+8uXyhy+ + dEX3rGG+dC5NVIXZfKmchMyXGmQkMti9qYy88iPpbbsvZUDmunMa13LnrWpcR9qD1ZT+0WpSbMmlsqN1 + tO74Tlq1r4w779WHa8frGqtnxm/KzZRUplnSd1vGpe8qoXnly0igXfTrQKZg/8/4D84DciO4yFz1AAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAOpklEQVRoQ9VaCVhUR7otsJul + G5PnJDoGoQEVjcZlcFwwsrqhgeiLmozGJb5581yeExzNi6MmGgNRURZBgrKqGBWjPtwiGTVjRDFklFUI + KM2+ddPdQNPdLN3c5sxXRdMDDUZUJvPe+b7z3arqqrr/uf/96977VxPyDBAKhS9PmTLFc9KkSbMmTpz4 + 5guQjafzuLi4eA4dOtTO9Fz9BQDGZ4K7p6cfAOgAtHAcY6te34ttfVDb0QFtt2NreztadDq0cRxqZTJs + 37493vR8/UF3IWaEEB4hxPoJtCKEWNKO02fO/G+VXo8yqRTi6mrG4poaI0tMWNrF2lqUmbCkuhpF5eXI + LypCaXU1dDodYmNi7hns6TeMQmz5/MnZY8aU5Y8eXfU3JydxupOjOM3BUZzq4CD+q0gkvm5vJ06xsxP/ + 77Bhj685Ockz3NyQ5uqK76dPx41pU3Ft6m9xacoUnHdxQdLkyTg5aTLiJ05E9IQ3EPnGGwgbNw4HX38d + +8aORcCYMdjt7Iydo0Zh28iR2OrkBP/XXsNWBxG+PnECKp0OcXFxt0yN/TkYhThZWPhi2jTAx6eTc+YC + s2cDXl6ApwfgPRv4zW+AX/0KjUIh8ghBvqUl8oYOwz0zc/yVEHxLCC4TgitmZviGz8cZMzMcJQSRhOAg + IThECL4kBCGEIIgQfEEIPjfwI0LwHiGIi4xEyq1baG1tRURExA1Tg58EoxBHHm8ZJk0C/PzQvvjfofX1 + RevChdD4+KBp3jzUz5iB+qVLoU5IgDY9HZpLl1Di6op8W1vU7NqFxsuXofnhHioDA5D66+H4hhA8WPgW + igICULR3LyoSEpC2aBG+IgRJgwfjlFCIRCsrHLOwQCKPx0R+QAjiIyNx5eZNZGRk0DBEYGDgt6ZG94V/ + COHzl+qpkPnzoV24EK3z5qF57lyoZ8+B0tsLdY6OUO7YwSbnGho6j0olxG+9hbbSUlbXyeXs2N7QgGsW + Fni4eTOrd6EgLBRRhCBRaIMEgQBxVlaItrBADI+HAwYhJ44exc20NKSnp6O9vZ2N++KLL57qme4eWaKd + OBGYNw+tPj5MhGbOHDR5e6PByxMSBwcod+9mE5c4OuKx3QhWloSGokOlgjQxkXnh4fLlrF0cHIyfPvqI + lc+98goTcFIgwJkhQ5BoI2RCYi2tcLSbkDWE4KvYWKTev4979+6xsSqVih337NmTYmp8dxiFOPB4S5on + vAHMmQ3N/HlQz5nNRDR6eUHh4YEakQgNn3zCJq1dtw5Sg3eqduyEXqWCPDmZxUkKIdAUFECZl4dCg/CK + pCRUnjuHG3PmII5edaEQCdbWiLW0xFE+HzGDeCxmqJBTcXFIy8zE3bt32ViKpqYmdgwMDLxuKqALPYQ0 + jR8PztsbTXPnQmkQUe/hAZmbO6rs7FC/7WPj5BT1p88gx8mJleUXLzIh1wiB6mEeE5K/fXuP/ukbN7Jg + 7xISYxQyiAlZbRCSnpuLH3/8scfYLuzbt6/PmDEKEfF4S+rHjUObhwcavb1R7+nJPCFzc4Nk1iyU29pC + YfCCIjISYk9PZPB4yB41irXVxMfha0KQ7urK6uJDYXi4ZQsrX7K1RQI1UiDAVy+/jOMCAeKtqBALHOHz + ET1oEPYbhJyJj0dmQQGLkerqapSUlKCsrAxSqRSNjY1svvj4+F5ijELsebwl0tdfR7ObG+SenkyAdNYs + SN58EzUzZ6Jk+HDIPtnJJipdsAAZhCDL3h45Li7oaG9Hm0QC2cWLhusGXLaxQb5B+CV7eybkK6EQJ18a + jGPdAj2Kx+spJCEBj6uqcPv2bRw4cADr16/Hxo0bsWXLFnz66acIDw9HQUFBL88YhdjxeEuqnJ2hcnND + nacXJO7uqHVzQ82sWaia+SZKRo9G7dq1aMvMROnixXjoIEKOszOyx4+H4tw5cAoFoNOh7tx53B47FkmE + IGf9Oihu3cJVkQhJfD7OvvQSTtvYsKA/bmWJeEOgJ5ibI5gQrKJL87Fj7O3g/v37OH36NA4ePIigoCAE + BARg586dTBBlUlIS3n///cReQkQ83rKGsWPBzZgBletMKKdPR+O0aWiYOhXyqb+FbMYM1IwZg1KhEOJR + o5A7ehSyHB1x384Ot83N8Z0h0C8QguRBg/DNkCE4Y2GBWOoJS0sk8vmIG2SOo2aErWARhCCMECaAPiB3 + EYLlBiEVMhny8vKYV65evYrk5GRcuHAB58+fx7lz55iI2NhYnD17FhMmTFjeQ4gtj/d2ppMTHjo5It1B + hB9EItwTiXDX3h6p9vb43s4O39na4i+vDcfVXw/HhVdfxdlXXsGpIUNwbPBgxAgEiBIIECEUIkQgRJBA + gEBLS+zm8bCTz8c2Hg9/IgSbbYTwHzYU6/l8/J4QrDV44neE4H36VpCUBGlTE0pLS5Gbm4sHDx6weKGk + CwAlXZqpSBo//v7+p3sIMSPETmBm9p7AzGyTgRu7aP0PbiCEfDBh9OikU/HxOHLoEL4MDTUysjtDQnE4 + JASHQ0NxODQEEcHBiIyKQvi+fdi/9D2EffYZIqK+RHhICMIOHsSh4GCcSUxEfl4e5HI5C+6KigpmrFgs + ZiwuLmak5UePHoHjOOzatetSDyGEkEGEEHPDGy590zUlbbegHafNnPlHJX0wymQoqq1lFHdjcRclEpQY + WCqVolKvx/1tO5Gx+3MUpHyLCpUKZRIJY7lUCkljIxNRr1BAoVBAJpMxQRKJpAdra2tRU1PDFpLAwMDL + pkL6DQ8Pjz/QSbRaLZqbm/tF+s2ilsshXvtfaJYr0KJSQaNS9eij0WjYk1ypVLKllrKhoaEX6+vrGSmC + goKeX4i7u/t6OklLSws7cX+o0etR/7gIj9b8J5okUqiUSqibm3v1o0/x/pIiODj4+YW4ubltoJPQq2g6 + +ZOo0mrRWF2NR/+xDoqsbMizc6DmuF79jP37uBimpAgJCXl+Ie7u7kwI/WZQq9X9oqalBc0dHSja8CEq + I4+g7sZNtAK9+j0L/yVC1BoNtACK//Q/yHOfi7q/3EDb/xUhbW1tLED7S/p1UROXgHRCIL99hwkz7fMs + pAgNDX1+IR4eHkwITRTQgO8vqeFNeT8hx34UVOJiVjft8yykCAsL+9cIUZeVI/PfhqPxh3TmoRa6NPfR + tz8cMCH0U5TGSb9oOLE0JgF3CUH5ts4349a2tt59+8kBE0JfEWic9Ischw4AhbO8UbljNwrfWgRVZhb0 + NNZaW3v37wcpDh069MsKoQYrU+8g+zURM6Dq80AUuHmzsvYZ5unOAROip6lPrfapbNPS6ACKl/4O4sXL + WJl656HDaNTuDeoUo9P1Gvc0UoSHhz+/EE9PTyako6ODBfzTSI1uKSlFzlBbqLOyWZ2i+WEeMs0FaLh0 + hdXb9XrotNpe459EioiIiF9IiCE3Vbz0PRQtZLlv6Lh25gEKZcp1ZBJL1MWfYHUqkkrn6K1rwnaO6yF0 + wIRQ0JXr50jR8lMBcl61RUtBYecYnY4ZRY2jaCuvQJGXD8r/sBHahs4EAxOkVqNNJoNWqQSnp1HWCVoe + cCE04J/Ijs6bqGiBL0pXfcDKXbcVG6vTobngEVqKSyCPPYYHhCDPfiSKPOejyHsBaj/fy1ixbhPKVnzA + jrLoOHCGxYPi8OHD/3whFE03biJ3hAP0hleKlsLHUH57HfLjJyENjUAdfYEM/5LVNQ/zoM7IQuUftyDf + fjQez/SC9EAoNFnZ0NbJmOi6iCio7qR1nX7ghNCVqy92XfmCiVNQs+szVlal3kXT9ZtoSrmO5qwc6Aw5 + 5L6g1+pQf/I0qv0/QvXWP0MWEYXG5EvQZGShXaU2zv9CQry8vIxCaMB3Z3fU7T+IwvGTWVknk0Pf3Nzj + dwo6wnQO03k4+hnwtwdQf58KyZ690KSlG3+LjIwceCFdJ+1o59BeV4e8YSOg6XYbPMnon6VxdCd00jro + JFJjfcCFULRkZEF5sfOZUOw9D9WbOrcVTAV0H9e97UntpvWuNoqIiIhkatMLC+lCU/Jl1Hy4lZXlwWF4 + PN7FtAsDjR+ao+pKHnQhNTWVsTto8oEm5bqe4n3h2LFjbO9kQISorlxDqc/brKy5cw8Fw52gq+5M15iC + 5qnoeePj43u0L1u2DO+++26PNpptHDFihDF53RdOnDjxHbXphYW0yxUonecHPX14FRSiYKiIiXkSaOqT + nnfPnj2sTq92SkoKvL298Ylh/2Xfvn0sEUfzWu7u7jhy5IjRWzRVRPPANEFHcfz48YHxSOPZ86j5cAvU + 39+BeOosaG71vD1MsXXrVvj5+WHdunWsvnnzZjg7O0MkEtHbBFFRUXBwdMCiRYuQk5ODGTNmYP78+bC3 + t0dVVRVLaC9cuJB5kCIxMfEbatMLC6FozcmFLCQculpJ9+Y+sXjxYpZlX7NmDcvrTpkyhX3tUQ8tWLAA + vn6+rN+GDRuYsUuWLGH1TZs2Yfr06fDz9WOZ+pEjR7LUaXp6+m2aIR0QIf0FTXeOGTMGa9euxbhx49he + h69vp+EhISFwcXExxsmOHTuYJ1atXsXqVCj1ChUWHR2N/fv3s/ZTp05doTb9okLoVsAkunMM4J133mFX + md5CNEboccXyFaw9LS0NK1asYDEzduxYZGVlMU/6+/uz26qystI454s+RzZ2s6/fiImJoV90rEyDngqj + WwTUSLorRcvZ2dkswOlVpymfbX/ehtWrV+Pjjzv3L+leiY+PD1sAKKKjo5/fI66urr+nr9E0I15RUcH1 + h+Xl5VxlZSVXX1/PlZaWcgqFgqupqeHUajVXXFzM2uvq6rjW1lYuPz+f/a5QKPQajYYTi8WcTCbjGhsb + Oa1WyxUWFnK5ubnsrTQgIOBratPzCKFbD45mZmZvm5mZrTJw5dNICFlpaWnJSMt8Pp+Vzc3NVwqFwpVW + Vlasjf42ePDglRYWFmwc7UN/t7a2Zr/R/jY2Nqusra1XE0LeJYS40G2P5xFC91Hov4joUUD/vvVP5s+d + g2+whW8U0lX4/86/A3PgFZRgzK1HAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAVUlEQVRIS+3NMQ4AIAhDUe9/ + AK+Lg4u2xBAjLHZ4DgT8zcxaJRpkm08PswPcJQp6MKLgRkEPRq6DeJxCwef+CkbRJwvcJQp6MKLgRkEP + Ru6ClWiQbQBdFNKRDs1C8gAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH + DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp + bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE + sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs + AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4 + JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR + 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd + li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF + ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX + wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF + hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55 + 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ + VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB + 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC + qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE + j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I + 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9 + rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG + fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp + B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ + yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC + YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln + yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v + vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp + vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L + Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA + bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z + llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW + ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s + xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6 + eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw + YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR + XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm + WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl + xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2 + dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8 + V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za + Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v + Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb + PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/ + 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h + /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr + XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS + fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ + tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ + 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEgAACxIB0t1+/AAABM1JREFUOE9dU3tM01cU + PjDIeGjymyTMQDFz6MwGIWJJKNBNrXGG+MfiNDPGqIMCnfjPGNMUjQlla9PiLEJnE17hJSDWKoKKrQUH + OFcYNjhfCKaIggg+ECwtLbTf8vsB9fElX+65557z5Zx77qUgHx8KpnkEEFHqhg2xlwcHW5q6uuoazeba + Zoultun69drLFkut4fbt2qu9vef1zc0qWW4uc/LkSdJoNFRWVkZbt24lgUBAlBMente5du2dc19+9Zcu + NPRKT0JC//iuXXgskeBOSgo6RCJcE4th3LMHTTt2oGLLFuhVKrT39HSqVKqAgoICKi8vfyvYGB19BSmp + wPr1wL69mGtowPCBAxhWKnE3IwP/bNqE3rw8lDEMjhPhMBEkAgGeuVwwd3VdUigUH5eWlr4VrFm58iy+ + 34bRL1bjmVgM2927mO1/gP58FSxiMVg8M5lQ/9lKlBFxojkiEe49f86dDQwMtGu12oDk5OQFwcjPL2D7 + driiooHsbNiqa9DHi4CttRXDajVeVFbCsns3qohQSwQ1EeTbtsH88CG0Wi30ej27Nm/cuNGXz+cTqcPC + 9GN8PixRUbgZE+NpCwnBGSJcEIlQER2NfD8//L5kCY6ylZEPdhMhd+dOPHr5EpWVlSgqKkJLSwukUumJ + 5OTkSPrEx2fNp0TfMkTfENEqkTDp6IP792CsqUFLQwMMFy/BaDSiuVCDixUVaG5rw3+9vZi22TA1NYVX + r15xrZtMJoNMJttA/kTkt/BsyNeX0rKzv+Mi3oHH6YT9sgHusXFu7/Z4ODGbzQa73c75jEajTi6XCyiI + iAKJiLd8Oa1es4Yy0tNT2IAZhwNTk5NcIpsypDqGpzo9Z0++fo03b954ycJgMMwLstWtCguj+MRECufx + KDU19Uc2wOVyYXp6mmttDsDT4lI8/VPL2Zx/ge9WqFAoBBQRFkaChATix8VReHg4icViTnBubg4OhwMO + p5NLGP5NAWv6fs6eAeCw27nzmRl2944g+3bYcbPk8XiUlpbGCXo8Hi6YrcjW/S9G/1Bj4uw5jBVqOAEW + 7gUuCiqVyrdiHwqycLpc3DqqUGKi8QJnj+TK8eTnbEy1XsP0/T7MWAc5v6mtTZefny+gdevWecm2vHiH + i7B1/o2Rw0cxOzYOm6UX9r4HeFF9Co/TMzHyqxTjx08AT4Zx7WaP7phaLaC4uDgvV6xYQWkLd8jCPTmF + kaxDmL5hnnd43IB7sUl2crOYvd8HOBwwdXaeUR3Lj39fMCKC0vf/ND/lG2aMZksxUX2Ky7XcuoV7fX14 + NDSE9vZ2ON1udJjNsDsc3Hl3d/f5+vr6pPcEI3g8yvglax/YHyBTYKKm3lvMkSNHIJFIoNFosHffXu/K + /ufT9adRUlLSKJFIviahUOhlZGQkHTx4aP5tfIDi4mJkZmZyAiqlCtIcKWR5MkgyJNDpdOjo6DBkZWWJ + uEEsMiAggDZv3vzDTYvF0d7dNWhsbbWarl61NjU1Wauqqqx1dXVWuVxuLSwstJaXl1sLThRYtVrtoNFo + dBYVFZWIxWL+4i/2IjAw8KOgoKBlwcHByxiGYZYuXcqEhIQwUVFRTExMDCMUCpn4+HgmNjaWSUxMZJKS + kpjQ0NAQPz+/QH9/f9//AVN1wJJj0CczAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAByUlEQVRIS72VMWsVQRSFn0Zt + EkwTUJEUJ2COfyB/IEUsYqFpxcZOglr4FxJJYycIERSrWNhZprARa0FM7M0B0QQrISjmycAsLGfuvtnw + jMXXnJlzP9h9e99gOBwO/idF0CDitGf/giJoEDEt4oLn41IECRFXRTwX8amvVMSp3HvhZ22KQMQVEW9F + DDO9pOkViNjMnZd+3uClSRFPRfxqCatSEZdEPBLxvdUJpV78bKKqVMRlEVvB/VDq5eaRdFFIRayJ+Bnc + bXjTKcwDNoJSIc0/kFci/gR3Go5E7I8UHkP6JMidAxErVWFPaRrmWZsvIu6JON9L2FPaxa6Iaz6vKhxD + upoWgc/qJczS18HQiG0Ry6P2cBFEiHgYDI944F2nCEw0L+KZiB/B8Ig9/06dImjJzmWZD61RLIeqUMSM + iHXbjcehU1oEImbzBvEhzocgq0oj4WMRh8EA506PTyZJL9aEXnI+irgtYirfr0lVE94KSg3fRNwIOl3S + 9L/6fqQwD7gZlL+KuO+7sSLdEbFQFQbS9C6W/I7Tkv7OW2dRxJn2naJkAxrpXT/rIkvfiZjzs0QROOmd + iTjr+ShEXBcx4XmiCE6aIjhp/gK29ssXlF9vLwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAVUlEQVRIS+3NMQ4AIAhDUe9/ + AK+Lg4u2xBAjLHZ4DgT8zcxaJRpkm08PswPcJQp6MKLgRkEPRq6DeJxCwef+CkbRJwvcJQp6MKLgRkEP + Ru6ClWiQbQBdFNKRDs1C8gAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAByUlEQVRIS72VMWsVQRSFn0Zt + EkwTUJEUJ2COfyB/IEUsYqFpxcZOglr4FxJJYycIERSrWNhZprARa0FM7M0B0QQrISjmycAsLGfuvtnw + jMXXnJlzP9h9e99gOBwO/idF0CDitGf/giJoEDEt4oLn41IECRFXRTwX8amvVMSp3HvhZ22KQMQVEW9F + DDO9pOkViNjMnZd+3uClSRFPRfxqCatSEZdEPBLxvdUJpV78bKKqVMRlEVvB/VDq5eaRdFFIRayJ+Bnc + bXjTKcwDNoJSIc0/kFci/gR3Go5E7I8UHkP6JMidAxErVWFPaRrmWZsvIu6JON9L2FPaxa6Iaz6vKhxD + upoWgc/qJczS18HQiG0Ry6P2cBFEiHgYDI944F2nCEw0L+KZiB/B8Ig9/06dImjJzmWZD61RLIeqUMSM + iHXbjcehU1oEImbzBvEhzocgq0oj4WMRh8EA506PTyZJL9aEXnI+irgtYirfr0lVE94KSg3fRNwIOl3S + 9L/6fqQwD7gZlL+KuO+7sSLdEbFQFQbS9C6W/I7Tkv7OW2dRxJn2naJkAxrpXT/rIkvfiZjzs0QROOmd + iTjr+ShEXBcx4XmiCE6aIjhp/gK29ssXlF9vLwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAVUlEQVRIS+3NMQ4AIAhDUe9/ + AK+Lg4u2xBAjLHZ4DgT8zcxaJRpkm08PswPcJQp6MKLgRkEPRq6DeJxCwef+CkbRJwvcJQp6MKLgRkEP + Ru6ClWiQbQBdFNKRDs1C8gAAAABJRU5ErkJggg== + + 17, 17 @@ -126,7 +471,9 @@ 330, 17 - + + 464, 17 + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index aefd4bf2..b558345c 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -78,7 +78,7 @@ Public Class frmMDM_USTVAntrag ' left join [tblUStVLeistender] as leist on leist.UStV_Leistender = [tblUStVPositionen].[UStVPo_Leistender] ' where UStVAn_ID='" & UStVAn_ID & "' ORDER BY UStVPo_ID", "FMZOLL") - .SET_SQL("SELECT [UStVAn_ID] ,[UStVPo_ID] ,[UStVPo_ReDat],[UStVPo_ReNr],[UStVPo_Leistungsbezeichnung],[UStVPo_Leistender],leist.[UstV_Leistender_Strasse] + ' ' + leist.[UstV_Leistender_StrasseNr] as [UstV_Leistender_Strasse],leist.[UstV_Leistender_PLZ],leist.[UstV_Leistender_Stadt],leist.[UstV_Leistender_Land],leist.[UstV_Leistender_UstNr],[UStVPo_USteuerbetrag],[UStVPo_Schnittstelle],[UStVPo_SchnittstellenNr],[UStVPo_Umrechnungskurs],[UStVPo_USteuerbetragEUR],[UStVPo_Sachbearbeiter], [UStVPo_daId], [UStVPo_daId_loeschbar] + .SET_SQL("SELECT [UStVAn_ID] ,[UStVPo_ID] ,[UStVPo_ReDat],[UStVPo_ReNr],[UStVPo_Leistungsbezeichnung],[UStVPo_Leistender],leist.[UstV_Leistender_Strasse] + ' ' + leist.[UstV_Leistender_StrasseNr] as [UstV_Leistender_Strasse],leist.[UstV_Leistender_PLZ],leist.[UstV_Leistender_Stadt],leist.[UstV_Leistender_Land],leist.[UstV_Leistender_UstNr],[UStVPo_USteuerbetrag],[UStVPo_Schnittstelle],[UStVPo_SchnittstellenNr],[UStVPo_Umrechnungskurs],[UStVPo_USteuerbetragEUR],[UStVPo_Sachbearbeiter], [UStVPo_daId], [UStVPo_daId_loeschbar] ,[UStVPo_VZ],[UStVPo_VZ_RKID] ,cast(case when isnull([UStVPo_VZ_RKID],0) = 0 then 0 else 1 end as bit) as VZabrechnet FROM [tblUStVPositionen] LEFT JOIN [tblUStVLeistender] as leist ON ([tblUStVPositionen].[UStVPo_LeistenderId] > 0 @@ -105,7 +105,7 @@ Public Class frmMDM_USTVAntrag .Columns("UStVPo_ReDat").Width = 80 .Columns("UStVPo_ReNr").HeaderText = "Rechnungs-Nr" - .Columns("UStVPo_ReNr").Width = 180 + .Columns("UStVPo_ReNr").Width = 120 .Columns("UStVPo_USteuerbetrag").HeaderText = "USt-Betrag" .Columns("UStVPo_USteuerbetrag").Width = 110 @@ -114,10 +114,10 @@ Public Class frmMDM_USTVAntrag .Columns("UStVPo_Leistungsbezeichnung").HeaderText = "Leistungsbezeichnung" - .Columns("UStVPo_Leistungsbezeichnung").Width = 150 + .Columns("UStVPo_Leistungsbezeichnung").Width = 120 .Columns("UStVPo_Leistender").HeaderText = "Leistender" - .Columns("UStVPo_Leistender").Width = 100 + .Columns("UStVPo_Leistender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("UstV_Leistender_Strasse").HeaderText = "Strasse" .Columns("UstV_Leistender_Strasse").Width = 50 @@ -129,18 +129,24 @@ Public Class frmMDM_USTVAntrag .Columns("UstV_Leistender_Land").Width = 50 .Columns("UstV_Leistender_Stadt").HeaderText = "Stadt" - .Columns("UstV_Leistender_Stadt").Width = 100 + .Columns("UstV_Leistender_Stadt").Width = 80 .Columns("UstV_Leistender_UstNr").HeaderText = "UID-Nr" - .Columns("UstV_Leistender_UstNr").Width = 150 + .Columns("UstV_Leistender_UstNr").Width = 100 .Columns("UStVPo_Schnittstelle").HeaderText = "API" .Columns("UStVPo_Schnittstelle").Width = 30 + .Columns("UStVPo_VZ").HeaderText = "VZ" + .Columns("UStVPo_VZ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("UStVPo_VZ").Width = 40 + .Columns("UStVPo_SchnittstellenNr").HeaderText = "API-Nr" .Columns("UStVPo_SchnittstellenNr").Width = 40 + .Columns("VZabrechnet").HeaderText = "abger." + .Columns("VZabrechnet").Width = 40 .Columns("UStVPo_Umrechnungskurs").HeaderText = "Umrechnungskurs" .Columns("UStVPo_Umrechnungskurs").Width = 60 @@ -157,7 +163,7 @@ Public Class frmMDM_USTVAntrag .Columns("UStVPo_Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("UStVPo_daId").Visible = False - + .Columns("UStVPo_VZ_RKID").Visible = False .Columns("UStVPo_daId_loeschbar").Visible = False @@ -3018,8 +3024,16 @@ Public Class frmMDM_USTVAntrag f.Show(Me) Else + Dim hasVZ As Boolean = False + For Each pos In USTV_ANTRAG.POSITIONEN + If pos.UStVPo_VZ AndAlso (IsDBNull(pos.UStVPo_VZ_RKID) Or pos.UStVPo_VZ_RKID Is Nothing) Then 'VZ die noch nicht abgerechnet wurde! + hasVZ = True + Exit For + End If + Next - Dim f As New SDL.frmAbrechnungsMaskeEinzeln(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, IIf(USTV_ANTRAG.UStVAn_ErstattungsbetragEUR >= 0, "AG", "AR")) + + Dim f As New SDL.frmAbrechnungsMaskeEinzeln(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, IIf(USTV_ANTRAG.UStVAn_ErstattungsbetragEUR >= 0, "AG", "AR"), hasVZ) f.Show(Me) End If @@ -3134,8 +3148,9 @@ Public Class frmMDM_USTVAntrag If posTabisSelected Then For i As Integer = 0 To dgvUSTVPositionen.SelectedRows.Count - 1 - countSumme += CDbl(dgvUSTVPositionen.SelectedRows(i).Cells("UStVPo_USteuerbetragEUR").Value) - + If Not IsDBNull(dgvUSTVPositionen.SelectedRows(i).Cells("UStVPo_USteuerbetragEUR").Value) AndAlso IsNumeric(dgvUSTVPositionen.SelectedRows(i).Cells("UStVPo_USteuerbetragEUR").Value) Then + countSumme += CDbl(dgvUSTVPositionen.SelectedRows(i).Cells("UStVPo_USteuerbetragEUR").Value) + End If Next End If @@ -3166,6 +3181,92 @@ Public Class frmMDM_USTVAntrag End Sub + + + Private Sub dgvUSTVPositionen_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvUSTVPositionen.CellMouseClick + + If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt + If e.ColumnIndex < 0 Then Exit Sub + + DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True + If e.Button = MouseButtons.Right Then + + If sender Is dgvUSTVPositionen Then + If dgvUSTVPositionen.SelectedRows.Count > 0 Then + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) OrElse VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + cns_vorauszahlen.Show(Cursor.Position) + End If + End If + + End If + + + + End If + + End Sub + + Private Sub AktivierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AktivierenToolStripMenuItem.Click + + If vbYes = MsgBox("Möchten Sie die Vorauszahlung der markierten Positionen setzen?", vbYesNoCancel) Then + + For Each r As DataGridViewRow In dgvUSTVPositionen.SelectedRows + + If IsDBNull(r.Cells("UStVPo_VZ_RKID").Value) OrElse r.Cells("UStVPo_VZ_RKID").Value Is Nothing Then + + Dim USTV_POS = New VERAG_PROG_ALLGEMEIN.cUStVPositionen(UStVAn_ID, r.Cells("UStVPo_ID").Value) + + If IsDBNull(USTV_POS.UStVPo_VZ) OrElse USTV_POS.UStVPo_VZ = False Then + USTV_POS.UStVPo_VZ = True + USTV_POS.SAVE() + End If + + End If + + + Next + + SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 1 WHERE [UStVAn_ID] IN (SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) = 0)", "FMZOLL") + + init() + End If + + End Sub + + Private Sub DeaktivierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeaktivierenToolStripMenuItem.Click + + If vbYes = MsgBox("Möchten Sie die Vorauszahlung der markierten Positionen deaktiveren?", vbYesNoCancel) Then + + For Each r As DataGridViewRow In dgvUSTVPositionen.SelectedRows + + If IsDBNull(r.Cells("UStVPo_VZ_RKID").Value) OrElse r.Cells("UStVPo_VZ_RKID").Value Is Nothing Then 'nur noch nicht abgerech. dürfen gesetzt werden! + + Dim USTV_POS = New VERAG_PROG_ALLGEMEIN.cUStVPositionen(UStVAn_ID, r.Cells("UStVPo_ID").Value) + + If IsDBNull(USTV_POS.UStVPo_VZ) OrElse USTV_POS.UStVPo_VZ = True Then + USTV_POS.UStVPo_VZ = False + USTV_POS.SAVE() + End If + End If + + Next + + 'würde prüfung nochmals für alle machen, performance allerdings nicht gut.... + 'SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] IN (SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZDatetime],0) = 0 )") + + + + Dim count_nichtAbgerVZ As Integer = -1 + count_nichtAbgerVZ = CInt(SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblUStVPositionen] WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " and [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) = 0", "FMZOLL")) + If count_nichtAbgerVZ = 0 Then + SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] =" & USTV_ANTRAG.UStVAn_ID, "FMZOLL") + End If + + init() + End If + + End Sub + Private Sub initScanUSTVA() If USTV_ANTRAG IsNot Nothing Then scanUSTVA.INIT(USTV_ANTRAG.UStVAn_KuNr, "MDM", "USTVA_KI_" & USTV_ANTRAG.UStVAn_ID) diff --git a/SDL/USTV/usrCntlUSTV.Designer.vb b/SDL/USTV/usrCntlUSTV.Designer.vb index 5b3a48cb..459acccc 100644 --- a/SDL/USTV/usrCntlUSTV.Designer.vb +++ b/SDL/USTV/usrCntlUSTV.Designer.vb @@ -24,10 +24,14 @@ Partial Class usrCntlUSTV Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlUSTV)) Me.pnlFilter = New System.Windows.Forms.Panel() Me.dgvUSTV = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Label1 = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() + Me.cbxVZnichtabgerechnet = New System.Windows.Forms.CheckBox() + Me.lblFRhint = New System.Windows.Forms.Label() + Me.lblFR = New System.Windows.Forms.Label() Me.btnWikiStatusmails = New System.Windows.Forms.Button() Me.lblVZhint = New System.Windows.Forms.Label() Me.lblVZKunde = New System.Windows.Forms.Label() @@ -72,8 +76,6 @@ Partial Class usrCntlUSTV Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.lblFR = New System.Windows.Forms.Label() - Me.lblFRhint = New System.Windows.Forms.Label() CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.Panel2.SuspendLayout() @@ -121,6 +123,7 @@ Partial Class usrCntlUSTV 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.Panel1.Controls.Add(Me.cbxVZnichtabgerechnet) Me.Panel1.Controls.Add(Me.lblFRhint) Me.Panel1.Controls.Add(Me.lblFR) Me.Panel1.Controls.Add(Me.btnWikiStatusmails) @@ -161,9 +164,42 @@ Partial Class usrCntlUSTV Me.Panel1.Size = New System.Drawing.Size(1627, 108) Me.Panel1.TabIndex = 0 ' + 'cbxVZnichtabgerechnet + ' + Me.cbxVZnichtabgerechnet.AutoSize = True + Me.cbxVZnichtabgerechnet.Checked = True + Me.cbxVZnichtabgerechnet.CheckState = System.Windows.Forms.CheckState.Indeterminate + Me.cbxVZnichtabgerechnet.Location = New System.Drawing.Point(668, 35) + Me.cbxVZnichtabgerechnet.Name = "cbxVZnichtabgerechnet" + Me.cbxVZnichtabgerechnet.Size = New System.Drawing.Size(129, 17) + Me.cbxVZnichtabgerechnet.TabIndex = 74 + Me.cbxVZnichtabgerechnet.Text = "VZ nicht abgerechnet" + Me.cbxVZnichtabgerechnet.ThreeState = True + Me.cbxVZnichtabgerechnet.UseVisualStyleBackColor = True + ' + 'lblFRhint + ' + Me.lblFRhint.AutoSize = True + Me.lblFRhint.Location = New System.Drawing.Point(31, 63) + Me.lblFRhint.Name = "lblFRhint" + Me.lblFRhint.Size = New System.Drawing.Size(0, 13) + Me.lblFRhint.TabIndex = 73 + ' + 'lblFR + ' + Me.lblFR.AutoSize = True + Me.lblFR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblFR.ForeColor = System.Drawing.Color.Red + Me.lblFR.Location = New System.Drawing.Point(4, 60) + Me.lblFR.Name = "lblFR" + Me.lblFR.Size = New System.Drawing.Size(27, 16) + Me.lblFR.TabIndex = 72 + Me.lblFR.Text = "FR" + Me.lblFR.Visible = False + ' 'btnWikiStatusmails ' - Me.btnWikiStatusmails.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen + Me.btnWikiStatusmails.BackgroundImage = CType(resources.GetObject("btnWikiStatusmails.BackgroundImage"), System.Drawing.Image) Me.btnWikiStatusmails.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnWikiStatusmails.FlatAppearance.BorderSize = 0 Me.btnWikiStatusmails.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -634,7 +670,7 @@ Partial Class usrCntlUSTV Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.ForeColor = System.Drawing.Color.Black - Me.Button1.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image) Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button1.Location = New System.Drawing.Point(1510, 6) Me.Button1.Name = "Button1" @@ -649,7 +685,7 @@ Partial Class usrCntlUSTV Me.btnNeuerUSTVA.Enabled = False Me.btnNeuerUSTVA.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnNeuerUSTVA.ForeColor = System.Drawing.Color.Black - Me.btnNeuerUSTVA.Image = Global.SDL.My.Resources.Resources.plus + Me.btnNeuerUSTVA.Image = CType(resources.GetObject("btnNeuerUSTVA.Image"), System.Drawing.Image) Me.btnNeuerUSTVA.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnNeuerUSTVA.Location = New System.Drawing.Point(7, 6) Me.btnNeuerUSTVA.Name = "btnNeuerUSTVA" @@ -664,7 +700,7 @@ Partial Class usrCntlUSTV Me.btnUSTVAloeschen.Enabled = False Me.btnUSTVAloeschen.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnUSTVAloeschen.ForeColor = System.Drawing.Color.Black - Me.btnUSTVAloeschen.Image = Global.SDL.My.Resources.Resources.del + Me.btnUSTVAloeschen.Image = CType(resources.GetObject("btnUSTVAloeschen.Image"), System.Drawing.Image) Me.btnUSTVAloeschen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnUSTVAloeschen.Location = New System.Drawing.Point(88, 7) Me.btnUSTVAloeschen.Name = "btnUSTVAloeschen" @@ -747,7 +783,7 @@ Partial Class usrCntlUSTV Me.btnPLOSEAlle.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnPLOSEAlle.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) Me.btnPLOSEAlle.ForeColor = System.Drawing.Color.Black - Me.btnPLOSEAlle.Image = Global.SDL.My.Resources.Resources.plus + Me.btnPLOSEAlle.Image = CType(resources.GetObject("btnPLOSEAlle.Image"), System.Drawing.Image) Me.btnPLOSEAlle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnPLOSEAlle.Location = New System.Drawing.Point(367, 8) Me.btnPLOSEAlle.Name = "btnPLOSEAlle" @@ -761,7 +797,7 @@ Partial Class usrCntlUSTV ' Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button5.Image = Global.SDL.My.Resources.Resources.kunden + Me.Button5.Image = CType(resources.GetObject("Button5.Image"), System.Drawing.Image) Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button5.Location = New System.Drawing.Point(1386, 5) Me.Button5.Name = "Button5" @@ -800,26 +836,6 @@ Partial Class usrCntlUSTV Me.ContextMenuStrip3.Name = "ContextMenuStrip1" Me.ContextMenuStrip3.Size = New System.Drawing.Size(61, 4) ' - 'lblFR - ' - Me.lblFR.AutoSize = True - Me.lblFR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblFR.ForeColor = System.Drawing.Color.Red - Me.lblFR.Location = New System.Drawing.Point(4, 60) - Me.lblFR.Name = "lblFR" - Me.lblFR.Size = New System.Drawing.Size(27, 16) - Me.lblFR.TabIndex = 72 - Me.lblFR.Text = "FR" - Me.lblFR.Visible = False - ' - 'lblFRhint - ' - Me.lblFRhint.AutoSize = True - Me.lblFRhint.Location = New System.Drawing.Point(31, 63) - Me.lblFRhint.Name = "lblFRhint" - Me.lblFRhint.Size = New System.Drawing.Size(0, 13) - Me.lblFRhint.TabIndex = 73 - ' 'usrCntlUSTV ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -888,4 +904,5 @@ Partial Class usrCntlUSTV Friend WithEvents btnWikiStatusmails As Button Friend WithEvents lblFR As Label Friend WithEvents lblFRhint As Label + Friend WithEvents cbxVZnichtabgerechnet As CheckBox End Class diff --git a/SDL/USTV/usrCntlUSTV.resx b/SDL/USTV/usrCntlUSTV.resx index 06e50070..d2174a39 100644 --- a/SDL/USTV/usrCntlUSTV.resx +++ b/SDL/USTV/usrCntlUSTV.resx @@ -117,6 +117,815 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + iVBORw0KGgoAAAANSUhEUgAAASwAAAEsCAYAAAB5fY51AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAHdElNRQfWAxQCBR2NnaN4AACMI0lEQVR4Xu2dB5QcxbX353s8+zlnG4MROyuySbbBNuCEidpZ + JUAi5yQEAiNyEhJI2plVTijnLJTjKmehnHPOOecApr5za7pmqm/dqq7umV2tpL7n/M/zQ7sTurt+e++/ + blVFImGEEUYYYYQRRhhhhBFGGGGEEUYYYYQRRhhhhBFGGGGEEUYYYYQRRhhhhBFGGGGEEUYYYYQRRhhh + hBFGGGGEEUYYYYQRRhhhhBFGGGGEEUYYYYQRRhhhhBFGGGGEEUYYYYQRRhhhhBFGGGFc4FH2nsRPL8+P + ly1bvsFVl+fHbwGVLZf4e9n8+D2ycvML/pH691jB1fx37kn8FL9eGGGEEYbvuLpCo1+VLRf/c25+vGpu + LP5ubiz+RTQvPigai0+NxuLLo7H4rpxY/OtoLM4ykfMau5zXnBqNJQbDe/H3zI9Xhc9wZV7Br/HnCyOM + MC7AuOK+emVy8hJ50fz4+9FYQa9oLL4oGosfwWApBTrmfLbe0Vjig5xyBTH47Pj7hBFGGOdJQKaSm19Q + MScv0TAai0+OxuIHCDCca4LvMCU3P94omldQOczGwgjjHI0r7o9fmZMXfz6aH+8UjcVXE4P9fNXqaF68 + K3x38NbwdQkjjDBKQVx/Z50fRWOJStFYvE00lthADOQLVRuda1IJrhG+bmGEEUYJxeX3J64Hgzoai0+I + xuKnicFaLMrNByXYFRUK2RUVGrArKxSyKys24LqqEqghu6ZyI66rKzVkV1dsyK6Cf3N+5soKDfjvls1P + 8NfCr1+Mgms0Aa4ZXDt8PcMII4wsR7RCwbXRWLy2M7OGB2TG4iAqn+BgubZyI/avF9uyxz/qy95rNoo1 + 6D6VdRw8h/Uft5SNmbmGzVq6ha3etJdt3nmQ7TlwjOvYidPs5KmvXYL/Jv4dfhZ+B3537My1rP/4pazj + 4LmsYfep7L1mReyJj/uyO19sx657oDEHH4ANPhP+nFnSymgsXufyvILf4+scRhhhBAzuR+XHP47G4ouJ + QRdIyQypAbu6UgN22zNfsGdqfck+bz+e9Ri5kE2et4Gt2rSXHTl2SoFPSenI8VMcbJPnb2A9Ry1kdTtM + ZM/V6c/uePYLdnXlRhyoWQbZktxY4hPoE8PXP4wwwvCIy6o2+X5OXvwJmAWLxuLfEgPMXvlxnqlcU7kh + i9XozLOlDoPmsMnz1rOtuw8psCjtgs8MIOs4ZC77oEURy/9PV3btg434d4Tvqnx//5qSGyt4Cu4Bvi9h + hBGGFGVjiRujsXjzaKxgPzGQrAWD9+aHm/ESC0q5cbPXst37jyqDP6s6fZZ06mu2e/8xNmHOOta4xzT2 + dK1+7I+PNmdXVixUros/JQ7m5Mdb5parfxO+T2GEceFGnTr/k5Nf8GBOfnyaOmjsBOURlEnl/9OVFXad + wqYt3Fg8JR2GRSkVlJTTF21iDbtNZZVqdudlZG75jErIWdB9H6n65UX49oURxgURl1ao84NoXqJ6Tn58 + LTFAPAWQur5KY/ZKwWDWd8xitnnHQRUwmYgAwbkqMPv7jV3CXk0MYTdVbZoJvNbn5idev/i+hj/E9zOM + MM7LcLrO6+fE4nuJAWEUtAFc92Bj9tLnA9nACUv5zJsCmqAiBvr5qL0Hj7FBE5ezavUHs+urNGFlA8Gr + YD/cwyvua/gbfH/DCOO8iMvub/KLaCxekJMfP6oOAL1yuSfVgD36fm+eSWXNiyIG84Wm3QeOsS/HLWWP + f9yXt1Hga2+hY9G8eOJ3DxT8Et/vMMI4JwO2UoF+n2gsfoh44LUqm1/I/vxkS1bQaSJbsWG3CpwgIgZt + qKRWbtzDEl2nsL8+3Zr3ouH74aEj0byCz6KV6/wM3/8wwjgnAqbFYXcBvzN+MMP36Ae92ZBJy9nhTI1z + YmCGMguu+bApK9gTH/Xl3fn4/njoQE5e4qOwJSKMcypy8wqqRGPxzcQDrRUsY6mRGMq7wBXw+BUxEEP5 + 15zlW9l/Go3gnff4fnkI7v1jkQj7f/jZCCOMUhM5efE/RvPik4gHmBSY6Dc/0ox93n4CW7tlnwoePyIG + XKjsaN3W/ax+50nsj4+18NVhD60q8Ezg5ySMMM5qwMyfs5XLf/FDSyo/wW56uAmr33Ei277nsAofPyIG + WKji0fY9R7jP9YdHm/tZuP1feDbCGcUwSkU4S2j2EA+qIpjx+/1DTdhn7cazLbsyWBZDDKZQJaetuw6x + +p0msRsfbmYPrrz4vty8xNP4+QkjjBKJaLl4NBqLj1IeTI3AB/nki7Fs4/YDKoBsRQyeUGdPm3YcZLXb + jWc3VG2i3G+DxuRUqJuLn6cwwiieqFPnf6Kxgjds+6lgTds7TUdm5lERgyVU6dH6bfvZhy1Gs6srW/dy + wT71NcOlPmEUa+TG6uU4p8fgB1BR2fKF7OH3e7E5y7aqALIVMThKWoeOnuTbzcxYvJmNnL6a9RmzhLUb + BHtYTWOftBnH3mlWxGo0GM71Qt1B7Nk6A9nTtQdwwf+G/wb/9nqD4ezdZkWsVptxrFGP6az9oLms75gl + bNSM1fy1YTsZeC/8/ueS5q3YxvcP4ztHEM8EVm4sPh0ydfychRFGxhHNTzxq0/yZG0vwje+gj+rEqTMq + hGxEDIbi1IlTySxh3Ky1rP2gOeyT1uPY858PYrH/dGd3PNeO3fG8Xn/jap/UC5mr/Js92It1B7Nabcez + DoPnsXGz17H125wymvjspU1wz4dNXcnurtbBdkbxcG5+4kn8vIURRqC4Mq/OT3Ji8R7Eg6bougcasYbd + p7ADR06oELIRMQCKQ7AGcdK8DaxVv5msWsEQdtcrndjtz7XjMgHKBkp/x3pRpw4a4Z9L6t5Xu7Dq8aGs + df/ZbPL8jcl1lMR3Ky06eOQka9prOru+SlPlOaFV0Cs8YDaMjCKaV3ibzaEO8Je0yrs92dJ1u1QI2Yh4 + 4LOpfYeOszEz17L6nSezxz7qx+54vi27/TmQHlAmONEwwuBJ6h9ZkvK6L3VgT9Tqz9sMxs5ay/YfOq58 + 79Kg5et3s8c+7MMtAvzcENqUU77gdvwchhGGZ8DWL9FY/BTxULl008PNWKchc9nxkwHKP+IBz4agxFu6 + dhfrNGQeq1Z/CIdLElB6SPHSzgpOHkB6qQQlve+/Xu7EXk0MZ12GLWBL1zlrL4lrczYEz0a34fPZnx5v + rjw/hM7kxBKv4ecxjDDIiN5Z53vRWKIz8SC5BP03sBc6eD8KiGxEPNiZCCC1YNUO1rjndFahZg8JUCZI + aQBFwMkbSh3ZP016OaDw60iC91Q/R/IzPvhOb9as91ds4eodxXK9g2jD9gPshc8GWm1pkxOLd4c90/Dz + GUYYqeC9VXmJ+fjhwYI9qdoPml0qsqola3eypr1msEpv92S3P2sBKQpQKUgRgEIwwNBQACPpX1kWfn0T + 2OTPXOX9Pqx5n5nJkp24hiUpeGY6D53Hbqhq420lFoY9W2GQkZNf/9/Qjaw+NGlBVlXutU5s4Srnr7Yf + EQ9vUMEmdL1HL2aPf9yP3YYgxUFlAykrQJnhhIECZRlXNW/dqRH+OVLifbgMQCMgBu0WfccuYXsPnl3P + a/GanXxLa1imhZ8ztwr2X16u/t34eQ3jAg5YMuF1GCmk8Z+2GRdsBpB4YIMIdnKo1WY8H5wYVDibwuWe + FlI6QGnhREMJg0erVyyFf08j/DkwyPD3EN8PZh3rtJ/I5izfplznkhLMJMIRZhYHZpyJxuLP4uc2jAsu + 2P9zDiY1HqV1Y9WmbNCEZSqIvEQ8pH4FByoMmbwilU0poDJkU+lyTw8pClBK1uQFphRoOqf072JU+n30 + cLOG2Esd2TO1B/LeqaPHTyvXvyQ0dPIKdvOj3oZ8Tn7883DLmgs0rq9a57vRvHhX/FBg3VWtA0/fFRh5 + iXgw/QhKls7D5rHyb3b3BBWe4cPZlD9I2cBJhYii6qru8in8+1z4fUiY0SCjACZfgwfe6c26jVjI20Dw + /Shugb9WrkZnz7MVoScQnl38PIdxHsc1FQt/HI3FJ+CHQVbZ/AQ/7AH2/VZg5CXigbTVrv1HWbM+M9i/ + q3WyAJUHpCRQYUhZAcoLTgqIuvjTq0j43z2FwIY/H4aYEWDp7Ov+17uxVl/OKvHmVHi/V+NDvHu28uKT + oKEZP9dhnIdxeX7859FYfKbyEMiwqpDg5/v5ngUkHkJbwV/11v1nsX9XS/pTGYFKA6k0qDSQMgHKC0wO + dO4uIZkhZwYZBTAKXgCu9oPnsgOHTyj3q7gEz1zTntNtDsWYAweb4Oc7jPMoYBO1aCy+gLj5KcGR7r2K + Fqkw8hLx8NnoxMkzbODE5Sz/P90Cg8oum/IBKVfm5BdMXdN6Lal7MpR4HddrK+/rBTIPgBngVfmdXmzI + lJXJtaHEPSwOwTmKv6/iuW3N4tyK9S/Gz3kY50GUqVh4aTQWX0Hc9JRgu2I48lyBkUnEw2armUu2sCdr + fZklUFGQ6qiBlDpoTYDCUJDBgeFytuQGGgEx/L0CwAsWhM+G3TeIe1kcmjx/A7v1yZbKc4q06or76pXB + z3sY53A4m+2tJ252Sv98oa1/c514yGwEO1Z+2GoMu+3ZNghW7vYEI6j8ZlOaTEqBlAInB1AEJBTV6Mru + rdGthES8vxZiXgDTwYsoG1/uxD5tO4Ft231Yua/FITDj736lk5cZv/Hy/HhZ/NyHcQ6GA6uNxE3mgmbQ + e6t39L/Ehni4vATLZyDVv7u62VCXZ/2CgCpzSJkBBbBQAaLqPqHXsyDi9Wmpn9cfwFR4Yc8LrjFsvTNA + tLoQ9zqbgl1q89/o5tVkujmE1jkeV+YVXpaTH19L3NwUrPJqdOYZjwIkk4iHyktrtuxjL9UbTGdVuj4q + ovQjQUVkU16QUgBlKO9UKEhQwmDh6m6l+5Hwv5vlfk/8uWRB5oe/kw5gVvCSwPVagxH8VB18v7OtrbsP + s8pv9eSz1/g5TiuxAZ55PA7COAeCn2QTiy9Xb6oDq1iCVX67O9u574gKJJOIh8kkmPXpMHgu+8dL7T2y + Klz+4Vk/G1BR2ZQuk9JnUXjA03DCAHHA80YJiXh/DDL8+VMAI74zCS/p2pnABVld1xELk7PKxDOQLUHL + yyMfwFY1JmjFV8Ozj8dDGKU4ksfDJxYSNzMJq/w4e+T93sk+GwwknYgHyEuQyr9Yd5B1VmUs/2xBhbMp + DCkik9KVeDo4eYOpByuH9Z+AQq8Dr62+nxfInO9BfEeqhMTwMmVdMrheLRzONu08qDwH2RQ0FD/9aX+P + TCu+JGx5OEfi+jvr/MjUZwWweuyDPsluZgwlnYgHx0sjpq3y7KlyZVXFDCo8KClIUYDSw8k/jPJ8Cv++ + Vl4w0wAMf38SXtqsiwYXeFtFX61Rnodsav+hE+zZ2v29Mq1Z4Q6mpTz4chtDBzvsDPrw+72LFVb7D59g + H30x1mdW5S7/ZJ+KNtP1oJIHF1Xy4UFKQgoP+De6e8LJBZs3exavbKCWgpj6XWzghX0vJevyABcsrC7O + hlOA1lOffslyzdCaEC7jKcVhWhsImVXlt3rwrVkUKOlEPCgmrdy4hz30Xu8UrPxnVdkAlepN4cGIIUVl + UTpA2YApZlJNS+Hfk4TfzwpkOoDZwMuQdaXLRRVcT3zSn63evFd5TrIl+MP7yAe9jdDKzY/3jIQLpktf + RGOJD/DNSt20WILFXu/Cduz1YbATD4hJcATWnUQJ6OqrorIqQ/mXBpU062cAFR5YLkilQKWDlAegMBww + SDBwavZKKT9Dya+lvI8XyAwAU0pIDK8sgAveG/bTP0U8M9nQzn1H2QNv9zSe0JPc5SGMUhPOcfHaLWLu + rd6JbQYzFENJJ+LB0OnYidN8W+K/GkpAV1+Vn6wqCKiQN6VkU7aQsoKTB5DeKgbh96BgZoIYBTACXuas + yz+4WvSbWWyziNCWU/7NbtDWoDz7jr6FMYLHTRhnIfhOoYbN9/7xfFt/TaHEA6ETlJdwyIPJrzLNALqz + Kq/yzwwqbKKbsikMKSqLsoYTAkr5lHp7620k/O+kkq+P3xd/Lh3E7OClz7rc4HJnXVqPy7mPbzQaycu4 + 4si2YEb6nlc6Ks+/pNM5efG78PgJowQD1lBFY/E9xM3h+uNjzfjpMQqUdCIeBJ3gQIGq73v4VagEpGYA + ldk/JatyHvyMQRUMUjo4kWDCAHq7N6uQJeHXpQGnh5gLYAHhZVsuUuAS2dZTtQewTTsOcmhlG1zLN+xm + f3mylTIOUoItwMOTps9OODOCc5Sb4uiayg34ScYKlHQiHgCd4HSa+2t0VWAl/CpTCWj2qojyLwUqNOtn + ApVXNqWFlBegaDhhuKTVh1V4x6yKjvB/VwSvpby+BmjWANPDKxi4JGhJ4MJlImwUCOtWiwNacEDu9aZd + HvIS8y+r2uT7eDyFUcyRG0t0VG6GI9gArfvIBSqUdCJuvE5waOc/X+qgLwGdWUBTCejtVXmVf/5AhbMp + G0i5AGWEkwqfkpIbaD4BZgMvnHUZwOU32yr3ejc2Ye6GYoFW3zGLPfbTSnTG4ymMYoyc/IIX1JuQFLQv + NOg2VYWSTsQN16n/+KUcUFpYaUtAZKxbZ1VZABXOpqhyzwAp33B6N61K7/bNquTXVt4XQwxlZEHgpc26 + kEnvB1xytnX3a13YkMkrU9DKJria9Z7hsXNpohoeV2EUQ5SNFd5qOpH5+c8G8Jk7BUyUiButU49RC32Y + 62pWpRjrXllVlkClzaYwpAyAwlCQwYShQuq9tCpbSv4d5fUImUDmDTAVXqasKyi4kmUiMuVf7cyPHcs2 + tGBGsnp8iGnm8HRu+cK/4PEVRhYDlt2Ydl+4u1oHtnv/URVMlIibrBMsXv7rMxawsi4B0zNHtlmV3Ecl + m+m+QIUh5YDKBSldBsXhpAGUEUb9siT8ut5AowBGlZBemZc806gHFy4V3e0QXtkWLJ6WoZUNcMFa2bzX + uyjjRNJ6ON8Aj7MwshQm3wqO4lq8xvKAU+Lm6sRhZZNZmWClLQH9ZVXWoHIGmHU2RUFKl0ER4FDg8n4/ + 9kAxCV5beT8KZPhzExmYF7xUcBHlog5cAbKtriMWZB1asAHgHx/THyGWE4t3x+MsjCxEbl5BFXyxhWDl + OvhLCpgoETdVJygDfcFK07KgLQG9siqi/AsGKiqboiGlDnQDnAigqPqS60HQBz7l/G5S+HVV6SBGAYyE + l1Q2kllXAHBRZaIp28LlYTagNWTKCnZVRYMJnxd/BI+3MDKIy8rX+x0c2a1caL7sJs4+bjVGBRMl4mbq + NHDCMnbbczSsRNuCayZQMddpv8pUAnpmVdKgoEo/GVSmbMoTUhpAYUDIUFJgU0IywYwCmD28DF6XJbhS + /hYBLV22BRo6xW3EZwNan3WYYFq+cyA3Vi8Hj7swAgU/nVm7A8N9r3ayPz6euJGUxs9Zp8wG4h4re3Nd + XwJmK6vKCqgISGEA2MLpIdCHsvpnQc5rEe+HpYOYF7yCgwuZ84GzrfRzMXn+xqxC6+DRk6xCTVi+o44h + R5Mjder8Dx59YfiMaCz+CnFxua59oDFbsGq7CiZKxE2ktGDldvYv1GdlCyutua7ASgaVCqt0VmUGlWqm + e4AqEKRUIKhgwnBJqwrWR5ZCv4dfV4EZ8flMAPMDL325mAZXZtmWWiLmvdmDLZKaS7MBLmhWvaFKU2Uc + CeXmxWvg8ReGj0iWgvFD+MLyi5ufYG0GzFLBRIm4eZRgb+77a3SxKAM1sJLMdRu/KgUqGVaGrCr7oPIH + KR2gvGE0IEPh13NDDX8ekY3hz28NLwtwyRmXbM5T4DJmW1SJ6EDrgff68CVgGFiZQKvT0Hmm/qwj4ZFh + GUQ0Fh9CXFSuJz/uZ3cyM3HTKPG9hT7sm1VYKX6VoQSkvCoqq9KVfzagMmdT6uA2AgrDw4FLVVkfZ1nS + a2thpsBLn4FhePkDF862HHChMtFvtpWCllMiPvf5IL4pJAZWUGjBYbAvfj5QGU9CubH4CDwOw7AI06zg + jQ83TZ5UguGERdwwSgC+V+JDSViJ2UArWBHmuo1f5TerygRUOLvAg5iClAooBCcMFkcPuzSQ1ieO8H93 + Kfka+PUxyEiIWcNLn3X5A5ch2zJ6Wyq0ktlWF1azaRF/RjGwgkILsrZbHm+hjCtJj+HxGIYhLs+P/zwa + i+8gLiRfetNh8BwVTljEjdIJ9rMqCViRfhWClXdW5RdU3tmUN6QkQDmQeLLOYFajcRH7pP0klug+nbX4 + cg7rNGwh6zt+ORs0eRUbNm0NK5q1jmvCvI2p/z1kyio2ePIqNmDiCtZt1GLWeuA81rDXV+yzjlPYu63G + sxcLhrNHBMRMkmCmAMyBmAIwC3iZsi7Z5/ICl7tM1GRbBmjhErHVl7MUWGUCLej5MuwJvzs8xMJH5OQV + tCAuItcDb/ewW3pD3CRKRTNWs9ud9gUKVsk+q6CwIrIqDis0Cxgoq5JA9Y4dqHAvlBekAAjVEiNZ7Y5T + 2BcD57KBk1aySfM3skVrdrG1W/f71AFrLVu/h01ZuJkNnLyKtR08n0Px2bpDOchkWUPMlYHp4WXKuqwy + Ltnf8pFt2ZSIoHGz1ymwCgotyNge+6iPMr4ktcHjMgwiLr8/cX1OLP41cQHZtZUb2h0nT9wgSqs27U2d + bKOHVXs7WBlnAnV+lb4EDJJV6Uo/PBBlUAlIVf24P6tWOJLV6zKNdR25mI2fu4Et37CHrVHAY5IKn2xp + zZb97KulW1m/CStYosdX7MX4CPZIrUFmiFHwcmVfFLxswIU9LotsS+NtKSWiAVrla/bkB/JiWAWF1rL1 + u01b0XxTNpa4EY/PMFBEY/ExxMXjx3Q37DZFhRMWcWMogZFZhW/AZ4aVaArNNqxcfpWrBDRkVRpQybN+ + OlDhsg8G8pvNxrBmfWexoVNXs8Vrd3M4CakwSmvdtgNs085DbPveI2z3gWNs36ET7OCRk+zIsVPOREhy + K+DTZ5I68/U3qf/N/+3UGW7+Hj1xmh06epLfCzhvDw4KhROON2w/qAALCwA2acEm1mbQPPZms7FJeHGZ + AYbB5YIXzrp8gosqE7XZls8SUTxPT9cZxPsOMayCQqt5nxmGhtLERDw+w5CibKygvHrRkvr7823Yfq/j + uYgbolOtNuMkWLUtGVhp/Cq6BNRnVWT5pyn9kqBKDsDXGhZxQI2csYYtg+xpSxpQFKQATACQXfuP8UEC + pfiZM9+w//73v4H07bffKsI/I/T1N99wqB0+epJDcfOuw/zzYHAJzVy6jbXsP5c9X384ezQFLzfAvOAl + Z1024Eqva0T+lkW2pS0RLaBVv/MUBVRBoQVHkd1VrYMy3lLKK6iMx2kYkUjkllvafScai69RLhjfkC/B + BtisFSRuCCU45JRuDFVhxZfbZBNWvktAOquiyz/3wHq89mD2WacprNeYpWzuyh1JQAkpkDrAtuw6zOEA + Wc/J02cUiAQRBpRJ+Hexvvnmv+z4ydM8G9u865ACLdCqzfvYgEkrWc3mYzm4POGFy0ZLcMnmPOVvmbwt + rSHv8rXM0BrtnMSjE37mTRo6eQW7ooKuN6tg3ZV5Lf4Pj9cLPqKxxH/Ui5VUlXd68L+2CqACwAr2076n + eielFHTvFEqY7GSfVRZh5VEC2pZ/YE436DmDjZixhq3cuNcNKQlU67YmsycY/JA5QUaDAaHTN998w/X1 + 11+zM2fOpHT69GmuU6dOcYn/Xyfxe/A6QuK18XtSgoEJmR9kXxhcAOEhU1azGk1Gs0c/TYKLgpc767IB + F51tyWWiKduiS0T/0Kr0Tm+2ZdchBVSBoHXqa/bkJ/2UcSeUkxd/G4/XCzourVDnB9FYfBe+UKArKxSy + Ocu2qoAKACvwV6rVH6zAyrt9gYKVx2ygDlYmv4oqAZWsyj37B4MGBljbwfNUOEmCAbx55yF+0s/RE6dS + YDABQoYSAOjkyZOKBJxkYTAFkfxaAmT488k6cfIML13Xo7Jx9Zb9vNXiOSgVAVwUvIisKyi4TNmWZ4lI + mPFiBpGC1ptNRmn7s/xCa/7K7ezaBxsp48/RnnDfLCmieQXvEReJ78TwVuMRKqCwiBtACZYlBIGVyK6K + D1a2JaCaVcHgwXASAs8HDo+FEu/0mTMKpGRYwf8VWRKA6MSJE+z48eP8/8oqCVgJ4dcWgs+pAxgY/JA1 + rt/mNu4XrN7Janecyh77dDCXDK4UvGzBZV0mqtDSlogBodVj1CIFUlh4HOj0QasxLJqvjkNQTl7iIzxu + L8gAcvPjh4iLdM0DjdjqTXtVQAWA1dot+1KHR+hMdhVW6VIwGKxsZgL9l4DyX3Zo2pQhBRkGnAZ85NhJ + V4lFCQa+gNOxY8e4AFJCJlhRwMLAkSWXjpTwz+ughd8ffoaC15kzX3M/Dhv14G89U2+YG1xK1uUXXKZs + y65ExGa8LbRib/bg9xxDKgiwIAu/8ZFmyjh0dKDsPYmf4vF7wUVuLPEJcXG4PmhRpAIqAKxOnPqavVIA + B556m+wUrMSuCxnDyjQTSMCKnAF0BoWY/Vu9eV8KVrAlLoYSBSiA0dGjR1MSsPIDLAwSDBpbUGHh3/eC + lgAu/HcANAYXeJ8wmcDB5cBr2uIt7NWGReyx2kloUVkXDS7scaEykYCWKdvygpbItrygVbNJEX/OMaiC + QKtOO+O+WXXw+L2gIlq5zs+iscRB4sKw3z/U2Hu9IHHBKcFupLgUVBY0a2cE3bsuqMttsggrYwmYHgyi + nwr+wncduSgFLJiilgEFAxgGsgDUkSNHuGxghYGFIYEhgiGDQeRH+LW8oCV/TgpccC1gcTtAS2jR2l3s + /dYT+UwqB5cELwVccqkozyp6ZVsWJSKGls6M94IWtekfFh4XlOAE6T88ql1nePiCXrIDdTFxUbh3Vav1 + WBVQAWC1bfdhdk/1zta+lbF9wQpWhGdFzARqzXWPElD8NRd/3TsOXZia+ZOBBQP58OHDKQlY2QIrk+wK + AyiI8Gvi98QAlT8rfH74GVwqwmzohh0HU9BasWkve49DawgHVwpeBnDpy0TvbAuXiG5fyzHjA0Kr8rt9 + eCMvhhQWHh+U6neepM2yoCLC4/iCCOfkZnKB8/VVGrPNOw6qkPIJK9DHrdMNoqpvRZvsrhnBYoRVugT0 + hpVrOY2z1g8GSsdhC1O9VDKwAEDZAhaGgwlWJmDJ7QtC+GeCQgsDS3wH+D0ZWqdOn0k1oYKggfatFuPY + 43UAWmZwybOKSpnokW3poOXytTKEVj2PhlJbaEG7xJ/0uznsuiBPjs7NSzxNXAy+G8Pn7SeokAoArLnL + t6U62ZV+Kw/fiuy1KhZY6fwqugRMwcoZKDbAsoGVLbAwNDBUMHR0oMLCv0NBC7+3DlgytEDw7yLb4l7e + 19/wHjQBrcXrdrPXm4xhTwC0JHDJpaJszlNlopJtkdAiwKVASy4RvaCVfO4EtEALVu1QAIWFxwklOIw4 + V7ObQ25ewUt4PJ/nwfdpX44vBOjGKk3Y1l2HVEj5hBX05TxTe4C5FPTwrUwmuw2suGflA1a0X+UuAfn6 + N7HH1CcDJWAdyAhYOliZgJUtWJnAhd9DBywMLfn7wPeD/yb7ezCLKMx40JwVO9gL8ZEcWiS4rMpENdsS + 9y9V1mcILfF86aBVvXA4n2TCkMLC4wULrJQ/Pd5SGZ+OlsMYxqP6vI1ofuJ+4iJwfeJ1Ag5xcSkNnrSC + LAW9fSvKZEewcraISS1k1sGqpn9YpUClwMpZrCvBCgYL7EElpuyh6zvbwMJQ8AMsDCNb4dfRAQtDywQs + 8R3h9cU1Og0rH3YeSkFryNTV7MnPhrInQJbgMmVbGFpGXytb0KrRjY2cvloBFCU8ZrDqdpyk7cvKzUtU + wOP6vI1oXsFofAFAV1dqwNZsNvRdEReVEmQasTe6aUtBrW+FTHbTjCDedSHPtdwmO7CiSkA+SyV2I6g1 + iHUavqjEgIVhERRW8Pnwf7MFFoaWH2AJydA6cfI0W789bcQ37jObQ4sGl+NveWVbBLToEtESWsLTws2l + DrDw1jQPf9iP756BAUUJjx1ZMEt//UO67WcukJ0cLs+Pl43G4t+qFyDOqhcMUSHlE1agtgPneJaCnr6V + AVaiFDTBSrQu+IYV8qtEVsVh5QwIASsYKJ1GnB1gYYh4wUp8Lkr4Z72gpQOWH2jJ7w/b26RmDjfuZa80 + GJWCFgeXAy0OLotsiy4Rg0IrbcS7+rQ00BKlYZfh6inSlPDYwarZeKQyTh19m1uu8Bo8vs+7iMbiBcSX + Z1eUL2QzFm9WQeUTWLBW7m6njYGElQCWjW9lgJXotTLBSvRZZQorUQJiWMFA6ewDWDawCgIsDBcMHwwo + Svh3MLR0wMLQsgEWfH/4d/n9t+05koJWn3HL2VOfD2NPfZ6GlgwuV5mogVY620LQSpWIxQutyu/25r1n + GFCU8BiSNXvZVnZNZfrU6JxYvAEe3+dV3Hlnnf/VtTI8/H4vFVI+YQVq2W9mlkpBb5PdDSt5RjADWCnm + ugyqgakSBAYIDBQvYBVHdmUCFoYOBpNJ+HcxCHXQCgIsELyOeO90aXiQN+HWbDHOgdYw9qQEric+02db + 7hKR8LUUM94ftNSOeHWXB9nP6jBkngInnfA4kvX0p/2V8epoN7Qn4XF+3gRsBkZ8ad7KAEfDK6DyCSz4 + i3KvKbsylYKe/Va0yW6ClWgK9Qcr2VynsyrxVx0GShcAlpMZlBSwdLDCwMJAspEJWtkGFkj+nLDbAwAL + BGsOn66bBJZ3tmVRIpYAtLAJD+cagp+L4UQJjyVZw6eu4hUQHregnFj8ITzOz5uAM8/wFwbd+ngLbhIq + oPIBK1C3EQvcawWpBlGLUlCFFWGyk71WFKySwLKGlcZcx7BKGsBDWJeRi1OlzMGzDCwMGwwjEF7rh/8d + Q6u4gQU/J94XmkpFlrVy0z72UmIUh5YOXH5KRJ0Z7wdaeBmPduZQMuH7jF2iwEknPJ6EYLePO55vo4xb + R2PwOD8vokzFwkthY3viC7PPTI2ixAWkBMsuKr/dU10rSDaIepeC4kguK5Nd9FohWInlNlmFlTNTBQME + BktpBRaGEAaVCVolCSy4LvLnhZ0uBLRaDJjLnqk3nD1dFySDSy4RJXBpSsRsQItee0i0OyA/64lPB3ru + mWUDrcJuU5Vx6+i/ZSskLsfj/ZwP3Y6iV1ZowJau1ZyEQ1w4nYZPW6UvBTmwzKUg1cLg7VsR7QsIVsnl + NsUDKxCccFPSwJIBJcMIb3mMhUGlgxbO1LIBLROw5Czr6PFTHFigKQu3cGBxKdBC3pYfaH2SZWhpTHix + fGfMTP3xYFh4XAmt2LCHb/eExy8oJ1bwFh7v53zkxuLT8RcFVXm3pwqqAMB66tP+nka7/1LQ3rdKzuQ4 + sBK+lbM2MKuwkqbYYaCUBLAADjKcMIi8hIMCmAwsDK1sAEuGFgYWSH5vaCYFYIE3WL3RaPasgJaUbXmX + iNmFFl4wLfdoeflZ1RPDFTCZhMeW0JOffKmM36QKZuPxfk7HFffVK0P1XuXGEqxX0SIVVD5hJdYMktmV + 71JQbWGw9a1MM4LFASsOrFHZB5YMKZwJYRhhcfjAzxqAJQKDq6SAJUNLXBt4DfHesPGfyLIKe85kz9Yf + wYWhRZeI2YdW8nQeexOe8rNgx1UMJpPwGAPBQTBl6V0cvs2pUDcXj/tzNiBlJL4ku/aBRnwLXwVWPoH1 + WYeJ6ezKwmj3ahC16rfS+FYUrMTaQNzBbjUb6JSAKVhJM1UwWLqOWpI1YMGgpSCFxY/fOnaKn0e4c/8x + tnX3Eb4DwsYdh1zatPMw27z7MNux7yjbd/gEP4cQTr7BkQLdWQCWgBb8u3hvOF9RAKvfxJXsOQdYMrSS + 4EIlIvK1hBlvhJbO00oBy4GWHxOeKA0b9JiuQMkkPMZAcG6kdkfS/Pj7eNyfswEpo/IFY3H2bO3+Kqh8 + wgpaGeD0ZvvsSi0F1QZRUyko+Va+TfYswerzJKxA3YoAWEmTOAiwYFADCOB3MJhEtgSmLQBn+96jbOPO + Q2zDjrQwpFLaqRMcJXacHT91BnPLBa2SBpZcFsLCaAEsWBT9XMFI9lxBGlqmElH4WoGghTvijdDy52dV + fKe3dYuDCVrV40OUcQzKjcXn4XF/TgbMIOjKwX5jFquw8gmsfmOXGLIrG6PdYlbQxrc6C7CCgdKtaGkg + YMHA1mVTcOTXkeOneGkEWZIMKApS63ccYis372eL1u1hc1buZDOX72DzV+9iSzfsZWu2HiCgldSuA8fZ + 11LGJWdaZwNY8Jri+sH2MwJaNZqOTUGLyrYwtEhfS2p78AMtys9STHgbP+uNHmzwZO9dSb2ABZsKlNX0 + ZMGyOzz+z7nIzY+/jL8Y6LoHGrPd+49mBCvQ07UHeLcxUEY7VQqK7EpTCnr6VlqTPfnw+YUV9qtgIAhQ + JTWcdXeABQPLBlg6UEEmBa0hkP3gLEqG1PKN+9jYuRtZ16KlrHG/ueyTjtPY683Gs1ebjON6rSnWePZe + mymscb95bNDUNRxskGUJQSkJ91EAC3S2gCX7WKK9AVSn8zT2fHwke55Dy51tYWiRvpYELT+ZlnhuKGil + THgbP8vJsl4tHKFAyUt4vO05eIzd/GhzZTxz5SWq4/F/zkU0lhisfLFYnL34+UAVVj6BtWzdLleTqP82 + BlwKSg2iPkpByrdKw0o12eXtYXSwEpmVDlYwzQ4DBYAlBpYJWDB4YfCLfxeggvIHFv8CODCkQADDifM3 + s3bDFrGPO0xNgYkG1PiUaoCaqXqz5UTWedRSJ/NKQwv2cJLN+7MBLPh5cX3AatjgXNeWA+axF+KjtNBK + lYhZgRbhZ2ET3tPPUktD8TzD4boYSibhMQeq0WCYMp5B0BiOx/85Fc7x84eVL5YfZz1HLswIViBYN4iz + K+82Bm+j3WtW0Nu3QiZ7McEKBkr30TKwkjtrysDCoBKCru49B+lsau22g6xo1gbWrP889p8WEwyQkgBF + wAn0erMJaTVP6+MO09isFTt4yZk054/w8pDKskoKWPDfxfWB7m7Y/x3Ua+xy9kJiVBpa8TS0UiWi1ox3 + Q8vO09JDi/KzlP4sQ2nYYch8BUpewuMODnWhysKc/PjRc/pY+5z8+v/GXwp0ZcUG/JzATIFV5b0+ZHYl + rxfUtjFQRrumQdSuFPTwrUT7ghFW6dYFLaycQQEDBAZKDw2wYOAKM10WzPBBuYMhBZq5fDvrMHwxq9ly + IqveeKwbUilQ6TMoCkxYb0h6t/VkF7T2HDxBZlklBSz43+I6wenYAljDZqxlLwKwELRS2VYgaJlbHlwz + h5mWhpIB/+zngxUg2Ugedxu2HWC/1+yTlRsrvBdz4JyJaKwgjr8Q6P7XOmUMq0VrdlpnV3Ibg9dODKrR + blkKErDS+lZi1wUNrITBrodVcoDAQOkxehkJLKyTp5NHuWNIQTY1bPo6VrvzdA4pBVQomyIhZYDSGy0m + GvVZ16+4aS+gBfutlySwsMcnrtfxk3DCDlyjg2zsnI3sxcIi9mKiKAktGVwKtGRfS4WWe/aQghbtZ+mh + 5b80XLZ+twIkL+HxV/mtnsq45sDKjzfCHDhnIhqLL8ZfCFSv48SMgdW09wyP7MrdJOrZ0U4Z7VQpaJgV + hP26sW+lwErKrjKFFQwUL2Cddk5AxqAC87vP+JXs3daTPEGFsykMqTScVED9B6ulqsHT1rJNuw5zHTp2 + SikLSwpYoBTgT51JXSvw8F4CYAl5QctlxvuDlrcJr/ezvEpDkWW1HTRXAZKN5PHXqMd0ZVxz5ceXYQ6c + E5Fbsf7FVDvDFRUK2cS56zMG1oPv9koDK0B2JbcxGI121CDqVQr69a1cawM/c0pBS1jBQOkxhgYWDHQw + 07FHtXrLftZ73ApufqdBlYaVDlR6SGng5ILSJK43NUr0mpMCFjSiCmDxFotiABZVDmJggccnrtn0JVvZ + yw1Gc2ilwBUQWuk+LdQRL3Z5sPGzlCzLuzSUs6ynPxukwMhG8vibtnATu1qzsd9l5ev9DvOg1EduXkEV + /EVA11dpqm4lQwDJJFiISfVd+c2u5DYGZScGKruyLAWVfisbWLl8q+TDzWGVMthVWMFAgTYDgBXMaAlg + QQ/Vlt3uWT8o/QZMWsXebpXOqOSsyheoKEhJcMJAerOVWe+1nZoC1ra9R13AkmHlF1gUrEzAgkkKClhf + Ld3GgcWh1cAHtDTloexniZlDU49W2s8KUBpSWdabPdnqzfsUINlIjEFY6XDLE5pTdfITj2IelPqIxuLN + lC8Si7NH3u+dcXYF+14p5aCv7IpuY0jBypVdIaM9aClI+la2sEoa7BhWMFD6jF/BYQVeC0CKwwuVf6Nn + b2DvtZnMXiFAlYaVHlQ4m3JDSg+nmilNVvWFWwBUABbMFsrGe1BYBQGWriSctGALq9YwCSz/0HK3PIj7 + S0HL1s+yLg0NBnzfsUsVGNlIHofP1h6gjG9QbqygFeZBqY9oLD4HfxFQosvkjGAFejUxTMmu5L6rwNkV + 6mjXGu1BS0GNyZ6GlVwKesMKBsp7rSelZrOSSoNq7sqdrKDHTPZKozHeWZUOVJIvJWdSFKRccEJAestD + 4KlBPxbobAELm+7QKAvXccycjaxawzFJaDngCgItd0e898wh5Wf5KQ1pAz75jL/bcqwCI1uJcdisz1fK + +E4qsRDzoFTHpRXq/CAnFv8afxHo3SiasTojYMF6qH++1IHMruiudv/ZlVIKmox2qhT0aGHwNtnT0+Mm + WMFAgQEDjY2rNu9PgWrFpn28PeHVxmPZK41kUGFYoaxKLv1IUBkg5QWn1lNcehuJZ1e7jrCte/QlYUkC + C9oaRHf/8BnrOPST0BoTCFrp0lCFlmLCa/wsr9KQzLKo0vDNnvy/HTxqdxQYlhiL4+esZ1dVakAAK/7N + NRULf4y5UGojJy9+F/El2NWVGqq7MxBQMmn87HX0flceXe2ZZFd6o91/KUj5VpnAihvBDYpYjabjWKLX + LNa471ze7AkDzA0rtZ9Kn1VpQKWBlA5OGEo61e0+i8MKhE13ClbFBSz4NwGsw8dOJtc87jjEvpy0il9L + Di0HXGloJc34zKFl9rO8SkOyoVQx4N1tDlMWbFJgZCMxFnftO8puqNpUGeegc6ofKzeW+AR/AdB9r6L+ + KwJIXmrQbaqv7CrZ1W6eGfRrtMulYCq7si4Fad9KmRF0HnLopvaCFfdWGo5OZgAcVBpYGbIqv6CyAlSb + pN7hmqpV34mruXcFOnDkpKutgQKWDlaZAgt+RwALdqcQi7TbDFnIr2NwaHnMHNr4WYZZw6AGfMsvZysw + spUYj7p+rGgsXgdzodRGNC8+lPgCrGbjERkDC3YW9ZtdyV3t5uxKbRKVsyvaaCcaRKl+K1QKGk12CVY8 + u/ILK61fZc6qgoCKBpQKJa62Sb0r6YP209iyjftSwDp1xt046gdYOljZAgteTwALmmwFsOp2+yp1PeHa + 0tDSl4c8y9JAizLhFT+LKg0NC6Rts6wgi6ExsD7+Ypwyzh0VYS6U2ojGEhuIL8Da9J+VEbBgQSoAytzK + gLMrdc0gmV1R3pVHdkUb7RaloMG3SpnsEqyeLyZYUVmV7FGRoCIgpWRQCEpJTSPVc9zKFKx27EuXg7Lh + XhLlILQ0wHsJYMGmhLAwGzxBsZ4ya9AyloYOtMjS0I8B751llX+7Fz8aDsPIVjAmOw+bz3LpXUi3YS6U + yih7T+KnZMNo+ULuPwWFFWj6ok1kOWibXcld7Wp2pfGuMjTataUgASutb5VNWFlkVfag0kFKglK7aew9 + jWp3nclWbz2YAhZsFIjLQROssgkskIAVrA4QO0nAvl5wDcX1rN7EP7Rs/axUU6mmNKQbSn0Y8ESWNWvZ + NgVEtoIxOWXBRu5N4/EOuuz+Jr/AfCh1UbZc4u/4g4OuqtSQbdx+ICNgtR0wB7UypMtBpZVBk12lgJXF + 7Eo22r1mBclSUPGtKJM9i7ByZgBdWVWq/DODypVNEZDCUJL1frvp7P32aU1cuJVt2X2ECzbzy1Z2FQRY + 8HNpw/0UX9cIwBo6fZ2zjjIAtMTaQ08T3qM0NDWUGrOsfp5ZVtcRCxUQ+dGWXYfYDVU12ybnFfwL86HU + BWzipXxwOCz1iRYZlYOgGg2GK9mVzmynWxnUNYOZZ1eq0a5tEDWVgpYmu2hehJ4gGCQmg12Y6y6/iioB + NVmVN6j0kJLBRKnr6BUpWEErw2nJu8pmdmULLJd/5ey0Cmref34S+A60YJZVXx5KzaWa0pA04T1KQysD + PmCW9f4X4xQI+RGMy7+/0E4Z76DcvHgNzIdSF9H8gtb4g4Oe+LhvRrAC3Vejq/e6QV0rA8qu5HLQd3ZF + tTFoS0E6uyJ9K5FdaWAFs1FBYeXyq5QSUJ9VyaAyZ1MqlEAfgDoIzeBqOmAhz14EsA4fO61kVxhWGFgy + rEzA0sFKBhb8bwGrr7/+hjevAqxg88K3vpjEr6EMrVSmJaAlZg9Fc6kHtLyaSuUsKwktPwa8vyyr6odf + KhDyIxiXL9YdrIx3UE5+oj3mQ6mLaCw+FX9wUO224zMC1uadh3ya7QFaGbxmBn1mV7LRnoZVGlj+fKvM + YUUb6xKsdB6VDCqPTCoNqCScZH3YYQZr2G8+W7v9ENuy5wjX3kPqHlgYVBhWGFiZloPwGgJYsA6Tr2vc + eZhNXLCFXzuenQaAFtXuEKg0pAz4IFmWZsYQ9q/HIPKjRFfNqdB58a8wH0pd5MTiW5UPHouzzkPnZQSs + yfM3GstBnF35amVwrRnMbnYlG+3+S0Hat0rCKr3chvKsjLCiSkAqq7IEFQUpgNOHHd0q7DuPm+xb9hzl + 2rn/ON9LXi4FMai8YIWBFaQclHdkhZlKsRC7/fAlyawUQUvxtFLQSt4X0s8qpPwsd2lIzhpSBrzvLMs8 + Yzhj8RYFQn7Ua/Ri3XmFOzEfSlVcX7XOd6Ox+H/xBy9bPpGeISRgZKMuw+fre6+81g3aZFdEOegru6La + GLSloCa70pSClMmeMayoElBT/mlB5Qmpr9hHjpoMWOiC1Y79x1xbIkNXOwaVDbBssysdsOTsCnZjFbCC + tY1vt57Mr51faCkmvEVpKGdZVGlIG/BEm4NFliWvMYRnv8+YYAuhhZIzheQSHXZZ1Sbfx5woNXHF/fEr + 8QcGXVmxkK3YsDsjYNVuN8GqHLQy25VGUf2ODK7sipoZ1GZX7jYGVymoZFc+S0EDrMRsoC2slBLQJ6jc + kEoD6qNOaX0xdAnfVRTMddD2fcdcO4sGhZUfYFH+lexdgXYfPJ4C1peTVvNrxv0+BC1xnSloUSa8V2no + acAHybKUGUOd+d6bFXb3d8gq1urNe9nvH2ysjHtQTn7hdZgTpSZg/RD+wCDY6AsWLWcCrFcKhlr3XuHs + KpDZrulqzzy7UhtElVIQ9VuRvpWzkJmClZgNNMLKowT0AyoKUh9zzWRdx6zkGZWAFWRWGFY2JrtfWJmA + JbIreA8BK9idIbmeMdks+knH6clWDwQtcX1paJn8LIvS0MOAN2dZGi9LWmNI7uTwVm/2TosxCoT8CPZh + u/FhurUhJy+RhzlRaiI3r+Al/IFBdzzbOiNYgR54p5d3OajpvTKVg7atDIGyK2cHUU+j3aIUpHyr5ELm + TGEll4Bur8rtUWlAhSHVeSbXJ51nsmFfbUiBCiQOTvWCFQZVEGB5lYPwMwJWMDMIp1qLBdgDp6xJLuwW + e3vZQIsoDRU/y2dp6G5zyCzLMrU4PPNZsIMpZP27Wgdl3HOV5rMKdYdOpDbtI0Bko6PHT/OsKpNy0GS2 + K9kVB1YSVvKODHJXu3Fm0DO7oo12bSlIwEpkV6kZQdwUGgBWKVBJLQoiq9KBSmRSMqg+6zabTVm8zQUr + mA38poRghYGFy0GQbLTDNiu8237XEbZswz72fvtp/FpR0Eq2hqT72ji0iNLQ7WdpSkMyy1INeM8sS5kx + dHe/yzs5UOY7TDTBIboYQn70jGYzv5xYvAHmRKmJaCzRGX9g0FtNnEXPBIxstH7rfuvZQZxdkZ3tQc12 + tGYw+9mVaVZQwEotBRWTXfRZ6WClmOseWZUOVA6kBKg+6TKTFfSZxxas3euCFezAAIAywQoDygQrL2B5 + ZVfymkHYWRR6wcTyoFZDFvFrxHegQNBK7k1vY8KrpaEya4i64LOSZRFrDE3meyrLeqs327jjoAIhP/q4 + 9Vhl3DvqhjlRaiIaiw8hPjCLd56UEbBmL9ta4uWgy2w3tDL4zq6oNga/pSDhW7lN9mRGIFoXrDMrbVbl + 9qhERsUh5YDqky6zWLOBi9iqLQfY1r1HuWB/9qMnTqdOmQYBJLwAlQmsMLBwZgWvKWB15uuvk6WgA6uJ + C7by6yKukwIt5zANGxPeT2moZFlEm4NtlqWUhZoWB1wWzl+1Q4GQH8EpVnjcOyq9uzZAoxjxgZO7NBAg + stXYWevQNsjFWA7qsiuX2S52ZMDZlb7vym92JRvtZClo5Vups4F+YUWBKp1RzeKq1WUWaz1sKVu/43AK + VjATCMfPY1hhIJmEQeUXVhhY8PsCViCYFRSwWrphH/uk04zU9UlBy7l+cC1t/SyyNKQM+CBZlqH73bbF + gTLfg27mJ9R52AJl3CdVMBtzotRENBZfrX7gOOszerECIT8aOHG5VTnoaha1KQc12ZUvs93Y1Z6N7Mqi + FNTASpSCvmGFSkBspouMCkBVq+ss1nHUcrYJtjd2YAUNobA2UIYVeEYYSDphSOlg5QUsE6zAtxJLg6Dl + okHfec6So/QOFDK0klmWAVp+S8NMsyzU/Z6p+T5i+hoFQn40aNIKlkuM/WisYB3mRKmJnFh8L/7AsFfO + qOmrFQj5Eey5o2tnCNosisvBSjbloEcrQ+DsytJod5eCqm9lMtm9YSX7VapXlS7/0qACdR+7im3enQQV + KDkT6IYVeEYYSpQwoDKBlQws+FkZVslj0JKwAsFCbHE9KGgppSE24VNZlgotGwM+oyzL2OIgzHe6LIRn + XgCrd4bNo7C/OzSI4/EfjcUPYU6UjqhT53+oLvcryifYjEWbFQj5UfM+Xxm2ksFrB4uhHPRltmuyK2pm + 0Dq7Ms0KEr6VAqsksPzDyp1VcVA5sPq062zWd9LapLHOYXWM7T6YnAmUYYVB5AdSfmCFgaWD1bGTp/ln + 5msZdx9ho2ZvSl0HGlp2fpbXrGGgLEszY0ju5EC0OJjMd1wWth88j506DecxqjCy0exl29hVFelu91tu + afcdjIuzHs7GfcqHhZOel6/frUDIj+p2nOTdzmAoB1PAymI5iLMrl9mu6WrPVnblVQpSM4K+YYW8qjSo + krDqM2mNA6tjXKJtAftVGD5+hUFlAysBLAyrEyfPcLiK5UFTl2zn3xu+vwlafOtnGVo+S8OMsyzNJn++ + zHePsrBx76/49tQYRLZatWkvu6ZyI2X8cwbc1/A3mBdnPeB4avxB+YetWMg27jigQMiPPvxirKd/ld1y + 0K/Zbm5lILvavbIrxWjXzAra+FZOB7sKK9mzsoHVbK5eE1anYLVt7zG27/BJvog5m7DCkMoYVqfO8FnL + ZHZ1lM1csZN/PwEsuBYqtJx96C38LN2soSvLkgx4+yxLUxYaWhxM5nu6J8tdFtbrPDUjYMFGftc8QAOr + bIXE5ZgXZz3gQ+EPCoJ1hJt2HFQg5EfvNCvS+1dSO0N6KxnD2sFMykHCbJeBZTLbyewqNTOYeXZFl4KS + b+UXVshY57DqNpt1G5tcagOgErDCM4ECLhhCtsKQ8gMrELwGzqwErEAL1u5hdbrP5t8XvrsOWnDNPP2s + bGVZHjOGuCyUzfcUsAjz3bYsrN1hsgOsYNACYF33YBNl/HOVi0cxL856lC3f4Crlg8LWyBUbsH0HjysQ + 8qOaTUch/ypYO4OfZtGg5SDOrlLAMnS1Zyu78i4FvWGl86sAVh1GLecGu4DVXsispDIQZgIxZGzBhX8H + C4NKByzI7GRYwT7x8FkFrBav38vq9ZzLv6v43hS04Fr5LQ2zkmUR3e8m8z0rZeE7fVit9pMyAtb+wyfY + 7x+iF0CXjSVuxLw46wEfCn/QbAHr1cRw1b8K2M6Ay0FTs6i/clCfXSWBJXZkSK8ZVPquvLIrymhHs4Jy + KUj5VqKDPdW6QGRW2K+q3W02azpgEVu/83AaVsiz0sEqG8KQ0sFKXswMguUmHFbODObCdXtZ/V5z+XcU + 3zcNreT14NBSSsNphtJQ6oInDHi7LEv0ZYmycBS5kwPOskzmO10W0rOFMAbeazUuCayAZSEA6/oq9KGq + pRJYueUTN+MPCoKdGmAtIIaQH6WAFdC/cu/bTmzUF7AcxNmVDCxbs13JrpSZQf/ZlVwKqr6V2hTqBav6 + veax5Zv2p2CVnA1Mty4ArAREMGwyFYYUBSv4/+W1gaAjxwWsksCat2YPz6x4OwZveHWg1cmBlpNlwbWh + TXhNaRgkyzLMGJrKQpf57qMny6YsdAPLP7Tgj4PuFOhoXuFtmBdnPXSn5QCwMID86tk6A2n/SgJWJv4V + LgdlYGW9HJTNdo+udrvsChntRClI+VbpplDVYJdhVaf7HDZzxa4UrKApFHY3oGCVTWjh1/QDq4NHT6U+ + L2j2qt0cVslJAwGsWfw7U9Ai/SyqNEQGvO8sC3W/m8z3bJWFGFgiy3q9cVFGwALpgAVswLw461GswPos + CaxM+q+wf4XLwco+mkUDlYNGs12XXbmX4JDZFWW0e5aCRFMo8qwAVrW7zWEjZm1KDXxYbgMPJi4DMVCC + wgv/LiUZVvA7MqhAMAkgw2ra0h2sbs+5/LvAd4Lvls6yZGgRfpaSZblLQ9mA986yDH1ZHuZ7sLJQbSLl + PpZUFsIzn01g3ag57qtUAiu3XP2b8AcVwIJ0EUPIj14tHK7vv5KAlbl/pW9nMDWL+ikHTWa7NrtSZgaD + ZFdSKaiY7DSsWg1dyo1qMfiPnTzjmg0UAMFQKQ5hvwrDCjYFhFJ12740rEbN2cw+6zGXZ4kgL2i5/Cyi + NAyUZWlmDG3Ndz9lIfaxeJal+Fh0e4OrJAzgY8Hkhi7DKp0locZ0vxpM90MZmu4ArID+lRtY/vwrXA6a + /Cs/5aDRbJfWDMpd7RllV1QpSPpWydlAGNif95jLFq/flxr8+48kWwXk1gVcmhWXMKxw2wKc1AxLgjis + 9iV9qy+nrGOf95zLgYWhBd/RDS1kwhOlYcZZlgys1BpDL/M9eFmIfSxTWQhj4P1W4xGw/EGLm+4P0cAq + laa7bj/3bADrraZF9sDi/pUDrAD+lZ92hmQ5KIBlWQ4qne26ctAru0Izg3J2RRntmlJQhdVsVrv7HDZ4 + +oYUrHY4vpUABLQOYIgUB7jwawtYCWiC4PmAzwflKsBq0+4jrMuYVaxur3ns854gN7Tgu/EsC0PLUBq6 + sizJgFezLM2MoZRlWZWFhPlOl4W4idTOx6LaG2q3d/qwMgDW7x+i+7BKJbD0jaMN2OadmTWOvtt8tGq4 + uxpGA/hXMrCs/Cu7ctDULBqoHNRlV9TMoEfPlZxdKSa7BKu6veayddvTLQxQCqZKrzNneCc5BgkWho8f + 4dfSwQq61wWsQGu3H2athy9j9XrP58Cyg5amNCSzrHRpSGZZHjOGuCyUzXc/ZSH2sUxloa2P9VnHKRkB + C842vE7Th5Ubq5eDeXHWo0zFwkvxBxXAyrTT/aMvxqEN+3wY7hbrB/36V7gcdK0d9CgHldlBqRyUt5DB + Zruuq91/dkWXgsK3ggH95dR1KViJFgYhAIq8bQuGik4YSlj457EwrMAzScIqqRWbD7Bmg5ey+n0WcGDp + oFWnh8nPcs8aBs6y5O53rfmuLwv9zBZq1xZa+VjpfqyCrtPcwPLpY0Gn+7UPnktLc3SLnysWsuVwxBcB + IlvV6zQp64Y796+kvduz6V/htYP+Zwe9ysEA2RVltKNSUPg8MPgFsAAMcikow8ovtIIKG+wYVos37GeN + By5hBX0XcGDpoPWZgFbKz3KXhkqW5RjwvrwsC/PdqiyUZwtt1hZiYNn4WNJe7016z8wIWKs372PXatYS + XplX8GvMi1IQ7P9pt5dZnNn2Mi36zsxCh7tjuFuuH8TA8utf4XLQ1CzquxzUZVfUzCCZXRGzgs4ghplB + ASswsmVQYFBhYdBkS/JnEGUgB9b+42z+2r2s4YDFLN53ISvgoqGVzLLm0aUhmjW0yrIMM4bZKguxj2Uq + C/36WNh47zB0AQEse2jNWb6NXVWpoQIrUKncXgZCt4Ff0YzMNvDrMnyBneEuAytTw92i/yoT/wqXg67Z + QbkcbCGVg4TZLu91pZ0ZRNmVarQnYQXl0rCZG1PAOnwsvS4Psitxnh8GFRYGThCJ15KbQk+d+ZrtPHAi + BayF6/axRgMXs0S/RSzebyGXC1opYMnQUkvD4FmW6H73KAudU3ZwWaidLcyqj6Xpx0LA6jtuWUbAmjBX + t4Ff4iDmRKmJaCy+Sv3AcdZv7BIFQn4E2696Aytgh7vRcDevH/TrX7nbGfyVgyazPUh2hY12GLwwkFOt + DLxJNF0OAkQEsGygFRRe8u/KC5lFn5WAFS8DBy1lhV8uYgmQgJbItJwsi4KWXBrKBnxGWVaGZSH2sfy0 + N5iBhdcV0sb7qK/WZASsIVNWKuM+qVK8RbLuEIq2A2YrEPKjcbPXZT5DaDTcBbAMhns2/SvNzgwZlYO6 + 7IqaGSSMdhjAib4LnNNujrGdUjkIM4MyrIKAy68AXnIpCH1gAlartx1izYYsZQ36L2aFIA9oqaWhyLIc + aHllWZrud5P57qcsxE2kxeJjeRjvUxZuUoHFoaXCiVLXEefmIRTkMV+F3aYoEPIjqI/VI72yMUOYvFmu + GULCv7IDll3/lZd/ZWoW9S4HpexKKgdTfVfyzCAy2mEAdxq9IpVd7edbxyRhATN0hw8fVmBVnOByHyN/ + hu3gpeAJ3hTavmgVazhgCWsAMkLL7WeRpSEy4NUZQ9z97r8sxMByNZH69LHE8+UbWJqF0KLjfcHqnSqs + fACreZ+Zyrh3NApzotSE7iDVd5qNUiDkR+u3HXC1NCgzhDKwSMOdmCHM2HDPnn+ltjPYzw6aykFTdiV7 + V8KIHgTNok4DpuxfQdsBAMsLWtkCF86udh88mQTWgRNs5NytrNHApazhwCWe0JL9LHLWMGCWlUlZiH0s + V3uDvBg6gI+VifG+aechFVY+gFWr7Xhl3DsqvQep5uYX1Cc+MHvso74KhPwItqf5d/UuemAV5wxhynAf + pPpXNusHjf1XPv0rv+Wgoasde1eQcUxctD0FLLmdASAigGUDrUzBJbcxwOcAox20evth1mTwMtZo0FIE + rcUKtOTS0DVr6OVlEd3vGFhylqUtC+Um0oA+Fu7H8gaW28dKAcsx3nXAAh07cUaFlQ9gvfD5QGXcJ5Uo + xJwoNZGbV/CS+oHj7J8vtFMg5EdwQap80NcNLNMMYWoPLA/D3WqG0GC4y8CyMtz1/Vde/hUuB2Vg4dnB + ZDmoM9vxzGBy0AKwYM8oASzZcAcAycDyAy4bgOGflcvB/UdOpYA16KtNHFhgtoN00NKWhrKXxaFlmDEk + zXdzWYh9LFNZqPhY2n6sbBrv9EzhC/WHqaBKAcsOWve91lkZ91x5ieqYE6UmcmOF9yofOBbnDWUHj5xU + QGQruCA1GowwzBBmoaXBdoaQ9K/sDHcv/8oKWJpmUT/lIM6uINOAjGPJhn0pYMGCYgENDKqg0LKV3Mqw + 62ASVlv2HGMthi3nwBLQUjItpTSUWh00XpYoh6ksC5eFptlCVxNpEGB5GO/pXUg1wJJ9LC2w6JnCD1tP + UEHlA1iHjp5kf3i0uTLuQTl5iTzMiVITugXQV1VqwFZs3KOAyFZwUeCoLyOwArQ0uGcI1S2R7Q13DKws + GO6p/it7/0re8woDC5eDstkOmQYM3pVbDqaAdcaBBsDj0KFDXBhWxQEuyLgErETfFWjxxgOs6ZDlrOkQ + B1guaGn8LCLL0s4Yyua7RVmIgWXnY2XReLedKTQu0UkCqzHV5e4DWGu27GPXaxY+5+QXXoc5UWri+qp1 + vkt2u1coZBPnrldAZCu4KF1HLDQAi5gh1C16tm1pyNIMIWm4S8DChrvWv3KAxctBGVg2/pUzO6gvB5NG + 9LodhzmsYCGxgIYMLC9oZQNesuF+8nTav5qzZi9rNhSAJUFrkAOtgTK0nNJQzrIILwtnWar5rp8tNPpY + RmAJ411kWUQDqS2wgswUKsBK+lhk06gPYE1btJnve4fHPeiyqk2+jzlRqiInFt+KP3Q0P866j1iggMhW + cFGmLtjkuS2yFlhkSwOx6JnYw52cIUwBy8cMoWK4C2BlZri7/SvRzpD2r2zLQRi8G3cdUYAFPVgysGyh + FQRe8PMysGAZjgDW9BW7WbOhK1LQkktDxc8isixcFmrNd8LH4lmW3ETqw8fyZ7xn0vGeBhaeKSRbGyRg + zVy6TQWVC1oqpGT1G7dM0+Ue34n5UOoiGotPJT44+7zDRAVEtoKLAqvBfTWNWvZgwQJQ7QyhDli2LQ2W + M4SvycAy+VdK/1Xm/pUoBwWwxFYtAhogDBYhbJ5nQ/IMIQeW42EBsJpLwMLQwlkWPWNImO+oLPTrY6W3 + nLHrx+LAknws65lCT2AFb23YtueICikfwGrYY7oy3h3NwHwodRHNL2hNfHD29KdfKiCylbgw5Wv28N00 + SvZg+dilIQUsyz3c9TOEAliZzxD6NdxJ/6pHGljJ3qT5WmCdLQGwuOl+EIC1hzUfBsCSoUVkWcjLwn1Z + dFmIZwuD+VgZG+/KTKG6RMcbWMJ4T04SeQHridqDVUBhEZCS9UrBUGW8c+XF22E+lLqAaUzlg8fi7Lan + vlBAZCtxYWo2GWUGFtmDRQDLtgdLAyylpcEKWKilwXaGMIjhTvpXorvd3SwqsisYvKIcLF3AOsmhtWrb + YQ4sDC2cZfkpCwP5WLplOhhYraf4B5bsY9m2NmiBhXqxNMCq1c45QNUkAlKy4IAYPN5BuXnxGpgPpS5y + yhfcjj846JoHGgXeyE9cmI5D5ivAsu9yt28a9btLg5hipoFFryE0zhCmNuzzMUOoNdzp/ivsX8EAloF1 + 9MRpfnjIsZNYZ3gzp6dOqQIA2Yj//Mkz7NCx0w6wTrJ1O4+wFsNXJqGlybLcM4Zu8x2XhXi20NXeoPhY + Fsa750whsaGfNbBEawMBLOteLBpYPUcvUQGFRUBKCHYavekRuqUhmlfwL8yHUhfXVCz8cTQW/xZ/eNh5 + NOhMobg4MxZvUbvcswAsvI97doDlrwcrUEuDcYYQb4Ns9q9g8M5auTsFrGR5mNxzSiw6Tiu5TAYkTHFF + B0/wzEgABwuW21CSf2btjiOp/z1i7lYOrBbDktDiWZbkZaXaHHBZ+GWyLMTAsvaxNA2kCrCsZwr1wMIz + hcUBLN48KgFrzortKqCwCFAJTV+0Wbtx32X3N/kF5kOpjGgssQF/eJgp7DhkngIjG4mLAxvdA6gyXZaj + NI0G6XL32FbGdw+Waw8seg2heYZQ7XD3Y7jD4G02eIkDrPRuniZgKZDyA6tDGkk/t0YCVssRq1hLAJaT + ZfkpC0kfyxZYsvFuO1NoBJa0ptADWGRrgwlYxuZRdV8smC2Ehm4FUFgEqIR6Fi3me97h8Q7dApgLpTai + efGh+AuA3ms+WoGRl/AFerHekFIJLG2Xuy9gaVoarICFWhosZwiFfwWDFwZyw/6L2NCZm9jkJTvY2Pnb + 2LgFaY1fuD2pRdvZBNDiHWwi1042aUlak5fu4poCWgbazaYuB+1h00ArPLR8D1uw/gAbu3AHGzp7K2s1 + chVrBcAakQZWEloOsOSyUJ4ttPKxfABLnik0AYtYU0gCS+7FCgAs3DxqBpa6PKdm87EqnCgZerHqtJ+o + jHNQbiw+AnOh1EZOXuIj/AVA+W90VYDkJXyBGvea4RtYVJe7GViZLMvx0eVu2zRq24Mlb9jnc4ZQAAsG + MwxqGNwwyGGww6AHTwggADAArwjgAJAQLQaQ8QBEoGQDqEBGBJD5YuRq9sWo1az1qDWsTdEa1mb0WtYW + NGYtazdmnUvw3+Df4GfgZ+F34HfhNZLAWqWUhV4+ljew0Ewh0fGuB5ZobfAGFu7FUppHzwKw2gyap8KJ + kgFYVd7ro4xzR7UxF0ptRMvH7yS+ALvugcZs576jCpRMwhdo0rwN2QdWVtcR2gPLusvdCKxMWhrSM4Qk + sABWBLCSbQRJSCRhJQELYCWANTIJrNYALIBV0Ro3rMauY+0dwf92QQuAVSQBa2QSWEpZKPtYg8RODgSw + HB9LDywxU6gCC7c2qL1YBmB5No/67HbnwLJYnmMBrOmLt6hwoqQB1u4Dx9jNmjWEsK4Yc6HUxqUV6vwg + Jxb/Gn8JWKIzdtZaBUom4Yt04MgJvtDZCliGdYR+gaVflpMNYAXvcn8/28Dqu4Cb0zKwoLRKAyuZXYHJ + 7RtYo5PAaucAKwmr9Y5EpuUGFvyuEViSj5VeqqOfKcwGsHAvFm4eLVZg+VhPSAMrOVMIntbBoxb+lQFY + k+dvZNfQS3K+uf7OOj/CXCjVAVujEl+ENe45XYGSSfgigWo2LTICy2bh8wUHLHmHUaIHq9iAxcvB1a5y + UIZVh3FJydByl4XJktIfsMRM4bkDLLyRX3ED69P2Fv1XHsD6YsBs8KqUMR7NS8zHPCj1Ec1LNFW+SCzO + nqrlr+MdXyQQzEyEwCrdwALPqcSBpbQ2hMDSAWvAxBUqmHTSAOvl+nSHe05+vCXmQamP3LyCKviLgKDm + hf1zMJh0whcJtGrTXiOwkiVhCKwgJWGbEcvZTN6PdZwt3bg/qU0HuJZxHWTLN0vacpCt4DqU1NZDbKWk + VVsP8y51ru2H2ertR9za4Qj9d2hxgHaGGSv3sHaj19gBKywJrYG1dusBFUw6EcCCLbRve6aNMr658hOP + Yh6U+oDTXnUNpNMWblLApBO+UEKPfdLfA1gXhoeVTdO9Q9FKdx+W0n/lyNQ0aujBMvZfYaHfbVO0mgYW + Mt0xsELTHQNrAKvecJQKJZMIYM1atlXbMJpzf/1LMA/OiYjG4ovwlwEVdpuqgEknfKGEvug/2xtYtrOE + F2xbgxtYSzbuVxpHFVh5ASsFrewCa/yinWFbQ5baGjqPWKRCySQCWC37zSL9q5xYfCnmwDkT0VhBHH8h + UIU3uylg0glfKKEl63ZZA6s4GkeNwCrFjaNiQFJ9WGJZDoAK9nQ/feYMO3Pm67MmOBhBhpaucVQLLNvG + UQSs871xdMXGvSqUTCKA9ciHfZVxDcrNjzfCHDhnAhY/4i8EgoXQG7YfUOBECV8oWU/VHnjWgFU8ne5Z + XJqjARbudJeX5mzZczQFLNhp9GwrvVvDSTZz1V5XOSgvgAZYyZ3u58zSnAyBBc+dPbCSVUONRkUqkLyE + xt3mnYe0C54vL1f/bsyBcyZuuaXdd6Kx+CH8pcrmJ1jfMfbH1+MLJtR20FwLYDmLnyVgGRc/BwQWh1Ym + wHItfqaB5bX42X14qn9gyfthyeCAXUdLSi5gnUwDC8x3XA5qZwgHqouf01slX9iLn7sXLVaB5CU07gZP + XsmuKF+owConP370yrwW/4c5cE5FNC8+CH8x0KvxoQqYdMIXTGj5hj1Z2a2h1G0vY7tbQ5a3l6GABUdu + 7du3T9H+/fuLRbAFMwmsFUlg4exKWw4SM4TG7WWM2ySfP9vLrN68TwWSl9C4e7vpKGU8OxqGx/85F7mx + +IvEF2M3P9KM7T14TIETJXzBZFWLD7MEVoAN/IIcoqoAK9gGfklgldwGfrDHuR9gFRe4aGAldxzVZVem + ctDsX7lnCFVgnV8b+L3TarwKIxtJ423foRPs1idbKeOZqzSfQWgbV9xXrwzV3gBl4aCJyxU4UcKQkjVw + 4oo0sM7SFsl2wEqWhSlgBdkiWQJWoC2SXc2j6kxhEGBlG14ysGATP7xFMp1d6YFF+lcKsC6MLZJHzlir + wshG0ngbOX01X2KHxzNXuXgUj/9zMqKx+Czly8XirFr9wQqcKGFIyYI9sgBGOmDhQygq4UMobIGVxUMo + FGDJvVgmYAU8hAK3Nuh8LB2w9u7dy4UBZRIGka0wsPghFBxYu9HMoJpd2ZaD1v6VboZQBtY5cgjF058N + YQds9r6iJI23mo3pcjAnVjAXj/tzNqKxeE38BUE3VG3Gdu333r0BQwor0W2aCqyAx3xZASvV2uABrEyP + +XKA5asXy+dMoe6YLwpYfqEVRAqwnN6urB/zpfOvCMPd1wyhr6ZRDKziO+arZf85Kohs5YyzPQePs1ue + +EIZx6DcWPxdPO7P2bgyr/Ay6oDV3PIJ1n/8UgVQWBhQWAtW7TADy3iQqgQsDq3MDlLVAks+SNUFLMtu + d8vWBtrHMhjvUlm4Yac3sIobXjpgTVsOwEKloEV25V0O6g6g8GG4W88QYmBlsI7Q50GqS9btVkFkI6kH + a+iUVbpy8NvzphwUkZMfn0Z8UfbEJ/0UQGFhQFGqXjjc86h6GlhieQ4CVqCj6pMPkq9ud5+9WNbGe0fV + eFd8LFQWysASbQYmYBUHuPTA2uWCFTUzqMuuTLODpg53k3+FDXc7YOlnCH0Dy7QsRwZWrUHsvS8mqCCy + lQSsl+oNVsavo1l4vJ/zEY0VvEF8UXZN5UZsxYY9CqT8Aqvoq7XpmUINsJTmURewRFlIAMv3esIs9GIR + M4WZGO82ZaEAFkgA69SpUwqgTMIA8is3sE4jYLlhpZSChuzK6tRnD//K2nDPdIaQ7MEK3jQ6Yd5GFUS2 + coAF7RDXV2mqjF9HNfF4P+cDFkRSm/qBGnisLcRwogTHUj356cAsbjGTefMo2Yvlo7XBzngnFkHLPhZx + eo5cFspbzeiAtWfPHi4MJz/CYJIl/9zBgwdJYE1dvssOVmhmUGe2u2cHdeUgbhj151/5ApYyQ2jR0mDR + g/VaoyKeqSogspUDrBaatYNg9YDlg8f7eRE5sfhw4guzO55pbdxyBsNJp75jl2p6sXwuzwnSPJpha4PW + x/JtvOt8LHW2EJeFXsDKBri8pAXWsl0pz0r1rVAp6JoZ1GdXptlBuRy09q+INYT2hrthhtB3S0O6B2vI + lNUqhPzo9NfsyLFT7K5q9GGp0Vi8CI/z8yZy8wsqEl+YlS1fyEZMW6WAyi+woMXhgff6EMDy3+1OzhRy + YPlsbbCaKTQb7358LF9lITLfbYFVnPDSAmvpLsmzMvhWuBTUZle6ZlH/5aCdf0Xv0uAy3APPENItDc/W + G2Z3jJdJp79m42avY1dVbKCMW1BOfsGDeJyfN3HnnXX+N5oX346/NMhrJ1IMJ506DJlnAFYWe7EkH8sL + WNnzsTwaSA1loXu2kDbfN+w8zLbt9QesbMMLA0tsZTN16c4UrEQZaIKVqxT0yK5SZns3KbsiZgfdW8r4 + 678yLcnxbbhbzhD2GL1UBZBfwc6iBUOU8epoF6wXxuP8vIrcvHg94ouzqys3ZPNXbldA5RdY+w4dZw+8 + 11dtbbDtxQrc2oCNd7ttZjLxsazKQh9NpDpg7d69W4GTjTCMbHTgwIHUex+TgDUFgAWgMpSBblhp+q4k + 70rOrmzNdqtyUO6/IoCl+FcehjvepcFmhvC5+sN5xaEAyI9Of8MWrd3Frn+oiTJeufLiCTy+z7vIqVA3 + l+rJAtVsPFIBlV9ggboMX6gCy6q14Ut9a4NmptDeeNesKbTxsYh+LNuykGwidZnv6SwrBay9KrCEMJSy + LQVYcMr0/uMcWKmsSjLYU7ASvhWaFUyXgvTMoJxdpdcOEmZ7gHIwE/8qU8O977jlKoD86vQ37KPW45Vx + 6ujbsrGCq/H4Pi8jmlcwmrgAnOTrtu5XYOUXWLAE4bFaA0pmplBnvFss0aF9LO9+LKUslJbpyFmWe7sZ + Q5bleFk2wCpucKnASu5yOmVJElgkrERmhX2rPklYkaWgJruyNdtty0Gl/0q3LXKG/pUMrFcajmKHjp5S + AeRTG3ccZH94tIUyTh1NwOP6vI1ofuJ+4gJwJbpMUWDlF1igEdNX+waWlY+VqfFOlIVePpZtWejaH8vL + fEdeFpSGfoBVXPDSAWvykh0cVPawokpBZLST3pV7KY6V2Z5BOejHvzIBSzbcx83ZoMAniJr2mQkHSihj + 1FE5PK7P42D/T7ff+5+eaMl27D2SMbBOnPqa1Wg4kjDeM5wpJMpC1ceSOt4JHwvvjaX1sXyUhdomUoss + S/RlBQUWFoaQH7mAdcINLAEqBVbCs9LASl8K6mcGVbNdwErfLGqaHTSVg3T/VTD/6qO2E5PjhQCQH8Ea + 39ufa6uMT0fLYQzjUX1eR25e4mniQvDmtEY91MNWMZBsBGsM898qeePd28fyWxZKs4UeWZarLKSyLNRI + KpeG6zXA2rVrFxcGUxDJcML/BoIdG0hgLd7h8qv4DqI+YKWUglTfVWpm0MO7MpjtSjkozw7atDMQ/VdG + /woteg68ZhCpVf85vN0Ij09njL6Ix/N5H9dXrfPdaCy+A18M0C2Pt2Rbdx/OCrTqdZ7i23jHS3Sy4mP5 + LAtNs4VyE6mV+S5lWXRpmMyy1u84zLYagJVNcOmkA9akxTuUEhDPBrphpfpWVCkod7W7ZgZJ78ouu8pG + ORjEv2rad7YCniCCCucOfXa1A8YuHs8XRMCWFMQFYbn5CZboqi7XwTCy0fa9R1iVD7+09rG8Ot69NvOT + faxUWWjRj+UqCw2zhXrz3TvLUvuy3KWhLbCKE1wYWHA2IhyKAcBSQNV3gQQrx2D3gJV7VtBktAfMrrJR + DhL+lXieKGCBf/VifATbtf+YAp8gatZ3Jt9gE49LPjZjiU/wOL5gouw9iZ9GY/ED+KKA/vBYC7Zpx8GM + gQUaOnVVClh4iU7x+VhZLgsNWRYvC6ksK9VISpSGKMuCgZsE1lEOLRtgYWH4BJECLOd8xEmLt2tAlW5d + 0JWBJt9KlILefVce2ZWH2e5qFjWUg37aGWT/avSs9ew0AR+/2rLrMPur7kTnWPzQ5fnxn+NxfEFFTl7i + I+LCsGgswep1nJQVYMHvvttiLNHx7t4uWetjWWw1o+3HylJZaGe+01lWqjR0ZVkqtNLAOhoIWJQwkLwE + i6EpYE1ctD0JKsmrkktA0brgBSvVt6JLQbmr3S678jbbs1EO4j3cQZ91mppcpEwAyK8a95rBKxx1PPIj + 6D/F4/eCi+vvrPOjaCy+R7k4sTg/+2z9tnRfFgaRH8E5iNABbzbesY/lcRK0RVmIgaXMFlo0kVqb78SM + Yao0pLIsURo60NIBa+fOnVwYRsUhGljHOLBIUEkloC2s5AZRUymo9l0FzK5cZrtHOSjPDlqUg8/WH842 + 7zqUlewKKppbn26tjMOkCvZfmVfnJ3j8XpCRm1/wjnqBkjOGtdqMy0qWBeo1ZkkgH8tUForZmWyWhbos + K1UWGrIsV18WYcBrodVlpiewZGHQZEsqsJIbCk5wgCWDSs2qbGBF+Vb6UjCVXRn6rrTZlYXZHnR2UJSD + Ayev4rDKBrAKukwx9F0lPsDj9oKNSyvU+UE0Ft+pXqQ4u/aBRmzh6p1ZARacJPxOi7EKsPz4WMVdFsrm + u5xlpc13fZal9mVpSkPNrOH6HYfY1j12wCoueGmBtXAbCSoqq7KClWhhQL4VVQomgSW62oNkVwaz3Uez + KC4HP+s8jY+JbABr6frd7MaHmynjz9Hui+9r+EM8bi/oyM1PvE5cKK5navdnJ09lDiwQmIpVP+qv3bnB + 5GOZykLhJ1BlITlbqGzqh7Is2XzXZFnKjCHRl2UqDYWfJaCVAtYef8DCwhDyIzewTqW2uwFgyaWfNqsS + R3V5wEr1raTsSoGVKbvSzAx6ZVdGs100i+rLwRfjI/kMeDZgBePqlfgwZdxJOv92FM00nGPtVxIXi11Z + oQE/Dy0bwAKNm7Oe9LHoLZPRukKfZWEqyyLKQpssi25xIGYMDQa8Whqq0AIPZx0BrLMpGVjjObD0oHJl + Vah1gXtWtrAylIKpNYOWfVdkdmVptnuVg1MWbk7BKlNgwXiA3VLwuHO05pw/fr64IqdcQYy4YFz3vtop + tSspBpB/fcMKu083+liBy0LLJlKd+a7LsnQzhuksy2TA06Uh9rM27TpSaoE1adF2PaicrMpVAqLZQAwr + k8megpVHKZjuas8ku9Kb7bpm0Zb952YNVoePnWIVa/ZQxltaiUp4nIYhBWy5ql605JFgrfvPyhqwYEeH + l+PDfbc3mMpC7WyhV5blmO+6LEv2spTSkMqyLEpDClpbHFiBTp46zU6d9hacqpMWnLKTPR0+djK1VAgk + 1gKSoHKyKgpWfDbQE1aUbyXNCiqlYDFkV4TZjtcOwnHzsBNDtoDVedgC7RKcaKxgLB6fYaCIVii4NhqL + n1EvXpzdWLUpW7lxLwGgADrzDVu7ZT+r+uGXPtob9GWhqYk061mW0v2uNpOaZg0xtIQJP3/NnhS0Vm89 + mIJXSs4MolvHUt3x2daqrQdT/3vIVxuV0k/xqki/SpoN1JaBNKwU30pTCvrqu6KyK0uz/YX4SLZhx0EX + rDIB1pot+9kfH2+pjDMQHBhzRX79G/D4DIOIaCzeHF9Aoac/7Z88BQQDyLeSN23C3A0Zl4W+zfdsZ1ma + 0tA1a2gBreYDF3JgCSnAKmFwLdu4P/W/6/We5wtU2YKV4ltpjHZdV3tm2ZW7HJy2aEvWYAW7mVQrGKqM + L6HcWPwLPC7D0ARfsqPZ+71s+QTrNXoxASC/St+8doPnZVAWoj2yvLKsggBZFtWXJbIsTWlI+lkKtNKe + jRi8Db+czyYv3sZWbTnAM64FoLWy9rKFoHXeWoS1HrTPQns5pKYs3s5Gz93M6vVKwopDCpd+cvmnLQGD + wirpW9mXgsWQXTnlYPeipQqsMgHWgIkr2JUVdaVgfNcFvwTHb+SUjz9AXEiuPz/Vim3aeZCAkE85Nw8y + to/aTKBnCw1ZlqkszFqWpXS/u9sctKWhxs8SJrwJWkrLg9P2IPq1UusPUwunnR0fpG2Xk3KyICkz8qM0 + oNKQIjMqQ1Yl/Kpkn1V2YeVVCqa3kAmQXUlme0H3GTwjwrAKCizYCeVvz7dTxpVQbizxMB6PYVhENJYY + iC+mUPWCIbw3S4GQL6VvIhxeUS0xwlgWkmsLjeZ7JlmWpvvdpjTUNJTqoUUb8fIMYhJcErQIcCXhlQaX + G14IYg7I3FCShQAlQcoEKiqrSjWFamYDSVhJJrvJt/Iy2lPZlaur3T67eqfVBLb/8EkFVEFhBZNWNZsW + KeMppbz4UDwOw7CMMhULL43GEgeVixqLsysqFLLuIxcSEPIj983ctPMQe6rOYKkszMx8lzvfrbMsqi/L + ybKMBrxUGpr8LDtouc14Y7aFwUXBC0FMBzP87/j3SUhhUMlZlVQCig52X7Cy9q3U7EqGVdDs6rXGY3g2 + hEGVCbD6jV/GrtScMRiNxQ+ft6c4l1Tk5hW8RFxYrpsebsaWb9hDgMiH0A1dtn4Pe+Tj/tosC5eFxZNl + SWsMtQa8VBoaG0ozg5Y+26LApYeXUjp6yv278mvKHpUOVGpWle5gDworyreiS0HVaFe72s3Z1UuFo9jK + TfsUSGUCq9Wb97FbnmiljKOU8hLV8fgLw3fA/u8FY5WL6+jBd3vyhlIFRNZSb+y0RZu56c6B5Wm+F2OW + ZTDgk9Byl4YmP0sLLcWIT0PLVSLK2ZYGXBS8FIARINOBScmkKEiRoNJnVVmBFWoQpWYFvYx2XVe70Kzl + 2xVIZQIsaBB9/OMvlfGTVmLiBbdPe3FFzv31L4nmxfepFzm5O2lhN9gPCIPIh4gbPHLGGvbgB3bmu67F + wTPLovqy0E4OZGlIzBrSflZwaLnNeDXbIsHleFwKvBDA7OV+DTekDKCSsyqiBCRhJQx2A6yobnacXfkp + BansChpFx83dqAAqE1iBmvWdZWoQ3X/FffXK4HEXRgZhmjW8qlJDVvTVGhVE1lJvMGjgpJVqWZj1LEvq + fkc7ObgMeKU0pKCF/CwbaBEtD+K4MDXb8gaXDl4kxAzCv0dCyhJUVFYVFFaUyW6aFVRKQWS04672ETPW + KoDCws+pl6DX8LoHGyvjRig3r6AKHm9hZCGiefF2+GIL3fpkS7ZiY1A/S73JQr3HLKXN92LIsmCVfrDS + 0GDC+4QW5WvJ2ZYeXDS80gDTQ0wRB1MSTgqgCEilSz89qFxZFWoK5bASs4EWsDL5VlQpSGVXaVilsyt5 + byud8PPppdVb9rE7ntNueQzqgsdZGFkK2JMnGouvJi46V8W3urN9h04QQLIQcbOFAFrYfFezrKT5rs2y + qL4skwGf2n6GKg1paCkmvBZakhEvNZdSJaIu21LApYMXATDfcl7HBSlPUOGsivarig9W/kpBG1j5BRas + l334w77KOBHKyY+vhR1/8TgLI4uRU6H+n6Kx+Al88bny46xmk5EBF0irN1wWlIfJDCtIlkV0v/sqDYlZ + Q+xnCRM+ILQoX4vOtszgouGVBJhQCmQapX8WvwaGlAoqOHjDnFWpJSCHFWSelrAymeyKb+VRCgKwRny1 + TgETJfxMGnX6a/ZR6/H6/dlj8VNlY4W34vEVRjFENFbwHHEDuKA/q/WA2QSQLIRvOtKIGWs4rPRZloeX + 5cqy/JWGpJ+l68/yAy1NiahmWyq4cKlIwcsMMQ8Rr5N8ffV95YxKBpU2q3L5VU5TaEawonwrNbuSS0H4 + v2PnmA32oMDqPHwhu7qSdo8rlpNf8AIeV2EUY0RjBW3xTRC65oFGbMDE5SqQPKXeeCzYOO3RWgPNWRbV + l0WsMbQrDSk/K90FbzbhvaGl+FqaEtEMLjXr4vBKAYyGmJ2c3ydePwkq9+egQOXyqpQSUO5gt4HVeJ7N + esHKqxR8ucEo9tXSbQqUdMLPoUnDp69hv6/SRBkXQrmxREc8nsIo5uAnR+fFv8I3Q+imh5uz2cu2EVDy + EPEAYMH+18/WHWqfZVka8FRpaPKzPKHlkWmJZTzGEtEDXLLHlYIXkXlhcZgRwj+HhTOpNKQoUJmzKncJ + 6O6z8oSVmBH09K3UUvD1pmPZCkNTKBZ+/kyav2on+4v25BvYNqZgbriD6FkKWEYAG+TjmyL09+fbslWb + /O6fpT4ElOBopdcaFVlmWQFKQ01DqQ5aaT/LDlpUtqWUiNbg0sMrBTECPp4i4KSFlAWolKyKKgGlPitc + BgpYpdoXdLAy+Fbvt5nEtu1J78VuI/zs6bR263529yudlHEgaU/ZConL8TgKowQjp3zB7dFY/DRxc7hi + b3Tj67FUMOmkPgg67T98gn3SbpKUZdFrDH2XhpqG0kyhJfq0OLjEMh4ZWgHBlTbnJXh5AMyvktsVuyGF + syle+nmAisqqlBKQ6LMKAivsWxV0/4rP3GEgmYSfOZ3gQIoH3+2tPP+STufkxe/C4yeMsxA5efEnorH4 + t8RN4mcbVnm/N9ux9wgBJ53UB0In2Jqmw9AF6SwL7eRgNuDNs4ZmaDleibbdQZ49RL6WgJahRJS9LS24 + KHiZAIYlQKQACUsClAIpdzZFgsoiqzLBKmWwB4CVyK56jF6m3SLGJPy8Udq1/xh7pvZA/qzj59/RtzBG + 8LgJ4ywGHPRI3CiusvkJ9mStL9nuA8cIOFFSHwovTZq/kT1ZZ3DWSkO9n2UPLTF7aGPG68AlZ1tGcOng + 5QBMhZi3KDgl5c6k/IEKwyoNqlQJSMFKGOxaWNEm+yuNRrPpi7cqILIRfsYo7T14nL1cMMyw7AYUHoJa + KiOaX9BavVkOtMon2PN1B/EyTgUUJfXh8BJ4CDUaF2kNeKo0pJbtaP0sC2hhIz6ZbZmhpQOXrkx0gcsA + ryTANBDzJRpQGFLu0s8LVDirQuZ6FmD1QZtJbMN2dQ92G+Fni9LBIydZjYYjeSsPft6FcmLx7nichFFa + ouqXF+XE4uPwTRO6onwhezUxnN9oFVCEiIfES+BRNO49U8myqNKQmjXU+lnZhpa2RMRlohtcNvAiAUbA + TCv88xhQFKSwR+WASi7/7LIqDaxE64IlrFoPnq+cbuNH+LnCOnTsFHur+RjT3lagCTCbjodJGKUo4Nj7 + 3Fh8OnHzktCqUMheK7SFlvqg2Gr83A3smbpDfZSGxQQt1BGv9bU8si0juHTwQhDzBBkFJgQnGlIqqOSM + yjOrIkpAYa77hdVrjceyKQvVwyL8CD9LWACrd1uMZVeZYTUzXHZzjgQcYgH9JsRNdKDVgEPrgE15SDww + toLZyY/aTrQrDR0/y9OEzxhaHtmWCVzY41LgpQJMCzEfkl9LBhSGlC2obLOqJKyS15BfTw+DvV7XGWz7 + 3qMKgPwIP0NY8If2neZjPGCVWAhjAI+LMEpxXJlX8OtoLL5EvZkCWgn2Qt0h3LRUIJWlLAt04tQZ1m/8 + cg4mpTTUQMtkwvuDlsaM98i2TODCWRcFLxJgBMiMwr+HAUVBCntUUN5qQEV5Va4SUIFV8ppSsIJ/Gzx1 + TaBZQD+wgoX9rzcaya6sYIJVfDk8+3g8hHEORDTW4LewIp24qVwws/LUpwPYzn1HCVBlJ8sSAvP1k/aT + 9dAiS8Og0ELLeCRoeWVb3uDSZV0IXgTEaKC5hX8Ow0kHKZxNaUEl91ZZloCu5TYIVvW7f8U27dTvu+5H + +JmRBTPcL8eHmg32/PjacE/2czxgJ8VoLL4e39wUtPIT7JEP+no0l6oPUBDBLhIjZ6xlz9YdRvpZxQ2t + dIlIZ1u24KLgRQMsCTESZJYSv+96TQwoKpvSgkqfVblKQORXcVg51xau8WtNxvCFy/BsYPAEEX5WZEFT + 6LOfD2ZXlNfuvADaGC0Xj+LnP4xzMGA5QjQWX0PcZC5ouKtYswffpF+FVXahBYKMrmGvmSS0TCa8b2gp + JWJyEFLZVlBw6eDlAhgJMguh38evr2RSKUgFAZWpBHTDquWAeWzXgWMKdIIKPx+y1m07wB75oB+L6reJ + Aa3Pua9uLn7uwziHg+8Lnx9fRtzslP7xQjs2y7RgmnigMtHitbvYB60nGkz4zKCl+FqabMvd/mAAlwW8 + UgBDvlfmSr8ufj/+ORCkZI9KAZVc/hFZla4E/KzzdLZsw14FOJkIPxOy5q3awe6p3ll5Tt0qWHnpPe/D + +sD/jUQiF0Uikf+JRCLhYRLnQ1xaoc6vonmJ+epNT+sPj7VkI6avVmGV5SxLCMrEUV+tYy8VjgwGLU3L + g5JtSSUiZcir2RYFLjrr8gKYC2I+hF8DQwq/fxpS3qCiyj85q5Jh9WaL8fxgiGyVf0L4WZA1ZtZ6464L + DqwWXXrLywCr70UiEdiBAXquvhOC69wPuHFwA//30lte/lU0Fp+h3vy0YMP+DkPm0TuXEg9XNgTT1b3G + LGXP1x+RMbSobEspEeVsywAueXkPBxcFLxPAhDBwbJXKnghAWUCKg0r+PmT5h7wqB1Q1mo5l/SetyqgB + VCd8/1M6/TXrPnIxu+Hhpspz6VJe/Tm/uKESnHQDvVY/jEQi3yfAJbKuEFznSMCNghsGNw5uINzI//vx + tQ/8Miev/njlIZAEU8fvtxhDLOUhHrIsCqauu41awp6vP9wALcmIdzWXOuCioJWQS0Q623KViRhcyOPS + wcsEsKzIBSg9pORZPw4pDagor6pGk7Gsz/gV2iPiMxW+50KwSqJ2u4nGnUKTsKo35Re/+yvMBv4sEon8 + JBKJ/FgC1w8ceIXgOocilVHJoHL+AsEN/eFPf3rjz3PK1e2uPAyy8uPsoff6EGa8+rBlU/BQHzh8kh9M + 8GrDImtomXwtOtuyAZfb49LBiwMsBS8VYi6Y6aAm/Rv+PRlOekgR2ZRU+ulAJbKqt1tNYMOmr2UHjxYP + qITw/QaBuf7EJwNMe7Bz5dxXp88PflXm0kgk8stIJPKLSCTycwdc0CgaguscCwEquCkYVHDz4EbCDYUb + C3+Zflbmvk/r6bamEbrtmTZs3Oz1JQ4t0LGTZ9i4uRvYe19MoKEVpESUsy1UJrrA5SoV6awrCS8aYBxi + JMh8injdtNTPo2RTHqCq1XEqm7xgM98qCMMl28L3GTRp/ib2jxfaK88d0rdl7vm4YSTyg0vgAKlIJPKb + SCTyKwJcVMaFS8XQ4yoFIUAlsioZVHDTZFDBXyO4wXCjf3nZv997ORor0G4CCIJ94pv2/oodOX662P0s + IfygL1q7m7XsP5c9V3+4axmP3tfyzrZswaVkXRp4eQEsU2HjXAcpL1DB77QbupAtXb9HudbFJXx/j544 + zb4YMJddb9h/nSsvfuayf9b8TyQSgTIQsiuA1m8N4ILnG4MLe1zyrGIYJRi68k+ASmRVAlTwVwhuKtxg + uNGwjOE3l95RrVJOXsE+5WGRBE2mj33UTyoR1Ycw28IPPQi8juEz1rL3Wk+koWUoEYOAywZeJoBhJYFG + SwckShhQXpACQTZVNGt9sZd9svA9Ba3deoA9W2eQxz5W3Fw/ePGfn3sEOnMikQjMCILR/jsCXPAcy+AS + ZaIAl6lMDLOtEgpsqpuyKgEqnlUJUDk3G276pb+8vvxfcsrVXaQ8NEh/eqIl+3LcMmcWUX0Ysy08AGSt + 3LSPdS9ayv7TbKxHiRgEXJLH5cq6TPByQ4zyv/wqnT1pAEVBSgLVe60ncxN99Zb9yvUrbuF7Cc/L4Mkr + 2V+f8WpZiLOc++su/dmV//4XLNiIRCLQGAqd7AJckG3J4BLZlgCXqUyUsy3Z2wqzrWIMuQRUTHWLrEqA + Cm423HR4AMr8308uu7LMvbX64IcHC/YhqtmkiB8oUBLQAuHBIAvguWzDHtataAk/lcWUbSllogW4XFmX + LvNyAKaHWOZyw0kPqXe+mMR6jVvBT6fJdv+UrfD927HvKPug1Th2ldcsYCzOytzzycDv/vA3N0Uikasj + kchVDrTKSuAS2RZVJpqyrdDbKuHQGetyCSh7VXCzRFYFN9GVVTl/pTisnL9e8DDkXvrP/3zg5WuB/vZc + WzZo0gp28lTxe1ogPCgoAbxWbd7PZxk/7zItdRy6Z7aFweWY857wUgCGIIZgZi38+w6cKEC90nAMi/eY + yYZMW8vWbD1w1iAlJN8zuB/Dp69m/3qpg/L8qCo4fenfanweiUR+H4lErotEItdGIpFrHGhdaZFt2Xpb + uhIxhFYWwy+sdCWgyKoErOCmC1jBXzF4KK78zc2PPBjNq7tZfajcgp6tVwqG8qlpDJjiEB4cXgLPa/qS + razDsIV8214TuPip0wq4iKwrBS8NwCSIuUGmgxr+NwQmCU5CtTpMY51HLWFfLdtWop6Ul+R7tWHHQfZG + o1HsqkrGLWG4csrV3frLGyo/GYlEboxEIjfA8ZsOuAS0INsS0BLZls7bkkvEEFpnIYoDVnCTBazg5gtY + wV8zeDiu+cGvyt5a5u6PB+GHi9KfHm/Fuo5YyI4cP6VAJtvCg8SP9h0+weas2MF6j1vO6nWdzqo1LEqD + yzPrSsNLAZiUgWkhFlA1mo5j8Z6zWL+JK9m8VTuLrakzU4n7c/T4ab5y4S9Pt1GeE0qX3f3BiO/9vMw/ + IpHIHyKRyM2RSATKQQCXgBZkWwJauEQMoVUKw49nlRVYOQ8JPCzXX/KX59+K5tU/jB80LJj1qfRWTzZ+ + zvqkKU/AJlvCgyWo4HNu2X2YzVy2jS9FaTVwPl/oC14YBS4XvKSykQSYko25oYYF6/bqdpvB2gxZwAZO + Wc1mLd/Otu4+wj8j/tylSan7cvobNnnBJlbl/b7GvatSyis4cvFfnvs4Eon8ORKJ3BKJRP4UiUT+WAqg + FRrxGYRpNhDDytazsoaV89Dc9JMyf7n/8nvrzFEeOkJXV27IahSOYCvh5GkCNtkUHjzZ1OHjp9mGHYfY + gjW72LTFW1nRrA1swKRVrFvRUtZ68ALWsM9s1rD3bFbYcyb7vMt0ro/aTWEftZ/CPu86g6uw1yzWqM9s + 1rjvHNZ2yEJ+Rh/AaPTsDWz6km1s4ZrdbOOOQ7zHDb//uSBxH9Zs2c/eajaar0XFzwOly+/9dMGPy9xS + ORKJ/DUSifylBKDlx4gPO+MDBlUKerUu6GYDKYM95VlJsALPQMAKvAR4aODh+WPkO9+59bd3vFqYk1dw + DD+AlG5+uDkr7D4tuUEgAZtsCQ+iUCUjuPYwU9ykz0z2p8daKvefUk6s4MQlt1drFvnf/4US8I5IJHK7 + T2jpPC0vI16ePaSW9IgsC8ZX2KcVMOTsKtNSUMAKbiifDXRuNNx0+GslYAV/xQSs4EGBhwa8BXiI4GG6 + 9ce/+1P5Mvd8PA0/jKTyE3x5T7O+M/nukRg22RQeUKGKR3CtYSPG1oPmsb+/2M5rg72Uytzz0awf/e7m + hyORyD8jkQgA628OtG6ToHWrBC3Z0xJGvNfsoa7lwbY0DDviA0a2siuqFJSzK2Mp6Dw08NcOHiB4mOCv + IDxYt/3mz8/WyilXbz9+MCnllk+wO55vy9oMnMuPF8ewyZbw4AqVXe05cJx1HLqQ/evlDnz1A77PlHLy + 6h789Z+erB+JRO6KRCJ3RiIRaAgFYP3dgRZkWQJa8HzBcyayLHj+RJYF0LItDcMsq4RDACsT74oy2jPK + rhxYwYMFD9kd//fzK/Iu+9c7g3Ji8W/wg0oJTqH+54sdWPvB89keOLWHgE42hAdaqMy099AJ1nnEInb3 + K51YWRtDHZQX//Z3/3xr5Hd/kfNQJBK5xwHWvx1o4SxLLg2DZFlejaWUAR96WVmMTMtBpZNdbg715V2l + gZXKrgSwnL+S//hZ2X8+f/k9nyxUHlqNYEYRmgkh4+Id8wR0MhUedKH8C8r4jkMXsLte6cLPtMT3Uacy + d3+85Ce5/3wtEoncH4lE7nOAdbcELDnLEsCC50p4WXKWZetlyU2lAljwxxqXhfLyHduyMASWR1CtDF59 + V6kFzQHMdl/loPOAwV9HDiznAbzzV3985NPLy32+DT/AWuUn2K1PtmKfdZzMlm9I7h6QbeFBGMpbsE4z + 3m0a++szbVhuPnHfNMq57/Ndv7zpoXqRSCQWiUTyJGDd6wBLLgshy/JbFlIzhl7mO7V0RwBLXm8Ytjhk + ELbAkhc2lwSw4IHCwIIHjwMLHsj//b8f3n/xX19um1Ou3iH8QJt0Q9Vm7I1GI3kvz7ETZxTwZCo8KEO5 + BXtiTVu8hbcn3PxoC+X+GFWu3pHf/vXFbhd9/6dQ/pUvRmB5+VjZBpbcSBqGIShgySVhtjMsuSQUwJJL + QqsMy3kg4cG857s/+GWlS2+v3jWnXL2jygNuECyQLfd6V9Zu8Dy+vAODJ1PhgXqha9POQ6zz8EWswls9 + 2dWVGyn3w6SccvWP/fa2l/t894e/ejwSiVSMRCIVIpFIPgEsURJmarzbZlhUSRgEWGGGZRm6htFMPCzZ + dBfAkk13Ww8rZbpLwIK/lvAggkfBgeX8Vb3/uz+95KFLbq/eKyev/gn8wJsEZyb+4bHm7I3Go9iY2ev5 + ukAMn0yEB+6FJDj4Y8Lcjezt5mPYnx5vwa81vv4m5eTVP/nb26v1/85Pfvt0JBJ5IBKJVHKABdmVAFY5 + B1jwHPj1sKh+LK81hpSHla3WhtDD8gg8Syi3NQhgwUX2O0sod7gLYMFNN80SwkODZwnh4YIHDZeF8ECK + LAseVPjrCg9t3nd/UeaRS+54pWdOubq+SkUQbGlzx3Nt2cdtxrMJ8zby01wwgDIRHtDnow4fO8W3Q67d + YRL7x4vt2VUVvbd6wcopV/fIb//6Uv/v/azMc5FIBMo/gBV0rIvsSi4HAVi4HITnQ5SDfnqxRDkozxKK + clA3Sxik4120NcizhGFbg2XgPizZx6L6sOSyMNMud6osNM4UmrIs5+GFhzj/ou/+6MHf3PpUq8vvq2Nv + zku6qmID9vcX27Pa7Sexopnr+F5LGEBBhQf5ua6d+46xsXM2sLqdpvDeKc9TaTS6/P46O3/9xyc7XvS9 + nzwViUSqOLB60IEVzq4ErIJmV14zhF7loJd/JfdhiexK7sOi/KsQWBahKwsz7cXyyrLgoRBZlmy+iyxL + Z77LXpYMLZFlwUMMf33hoS4fueiiSr+8oVL9Mnd/bDyV2iSA1y1PtmIv1hvCuo5YxBat2cVOnMqOYY8H + /7mgE6e+ZkvW7WY9ipayavFh/EBSm+1ddLrsro9W/eL6Ck0iF130aCQSgS51L1jJpaDOu/Iy2+E5E95V + NrOrsAerBMKUZfmZLfTqxwraQKorDV0GvBZayTKi0o/K/Om1S//22jAoOfCgsRX4MDdUacruqt6Jvd2s + iPUoWsLmrNjO94vCMPIrDIbSooNHT7F5K3eyXmOXsfdajmX31ujCbqzazLcnJSunXN2jl9xefdQPL/3D + O5FIBEAF+6pXLQZY2ZSCOu+KWpajM9up/is/2VUYPsKvl6VbohO0NJQNeFto6TItpTyUoAUPfuWLvvuj + h39140ONL7vrw8VeR5B5CQbt9Q81Ybc905Y9V3cwa9pnJhsyZRVbsHon23sosy57DI6SEBw0u3DNLjZs + 2hrW/MvZ7KX6Q9kdz7XjkLZdz2fQt2Xu+mD5L298oNVF3/nhM5FI5DEHVJBVCVgBqCjPylQGFgesbEpB + P0tyQu8qy2FTGnoZ8HDzvNYV2kLLtjyUPS14cAW0UkY8yrZgEMBfbRgQD/zgN9dVv/jPz/W4/J5aG4gB + FkiwT9MNVZuyPz/9BXvgnT7swy/Gsw5DF7BRX61jC1fv4jtLQD8SBpSNMGCCCN4b9sCC0nb0rPWs0/CF + 7OPWE9hD7/dltz3bht30cDNfHedeKnNPrc0X//m5ft+/+Jo3I5EItCYAqET5Z8qqcPuCbLDjZTimFobi + hpWN0R7ODBZDePVl2fhZJmj5LQ9N/Vki2xLQokpEnG3Bgy9nWwJcMFAe+tGlN79+8V9f6HP5PbU24UGX + DcFWz3BG3h8fa8n+9kI79siH/XhZ2bj3V6zbqMU8M5s4byMvMVds3Mu27DrM9h8+wVstYPYNw0sI/g1+ + BnYJhd+B34UdTyfO38SGTl3NuhctZo37zGTvNB/DHv3oSz6ZcMsTrXjWBJ8Jf85sqMy9tbb+5i/P9f/h + b2+Aku8JCVQ4o9KBCs8EUiWgbjaQMthtPKuShlVYCmYhMoGWTXnox4jHs4e4RPTKtihvywQuKEUceN30 + xm9ufabbZXd9sDiaV3AGD8jiEhylDrNs1z3UhN30cHN20yPN2R8fb8n+9EQrLjC4YX0k6C/PtOH/DeDz + x8db8c7xmx9pwX5fpSm7ulIjz2PZs6q8gjOX/fu9pb+55aleP/ztTe8iSAmPSlf62YAKty3AfRag0pWA + ul4r3M2ODXaTZxXCqhSGDC2b8hB7WjojHs8ewoMhbz2DS0SvbEvnbenARWVcisclgwsG10Xf+8mTP782 + Fr/k7zVGX35f7Z3KYL1Adfl9dXZd8rdXx/3s6vsbXfS9Hz9vASmRTcmgkj0qClQ4o6LKP5FVyaDCXew4 + q8IlIN5CRp4NxM2htp5VCKsSDJOnZerRghsooIVbHrxKRJxt2XhbXuDCjabY47LOupxBV/UHv77utV// + 4eEvLv37G+PL3PvplkyN+3NE315+76fbL/n765N+dfND7b7/K+5HUYCygRQ20/HMHzbUTRkVBSpc/lE9 + Vl5ZFS4BceuCaTZQZ7CHnlUxBzV7iFse/JSIXtkW5W1RTaZe4KJKRXlG0QZeOPPSAuw7P770+Z9fl5+4 + 5LZqg8rc9eHSnHJ1PQ/TKO2C1o8yd32w7Le3VRv+s2vzGn3nR5dUc+CEAQVwsgEUBSnTrJ+cTVGgwqWf + CVS4/KO8KngOBahssipcAurWCYazgWchbEtEr2yL8rb8govKuEwely7rygReOoClIPa9X+S+/PNr7q93 + 8Z+f6XHpP9+cArOQOeXqWe1TX5KCz3T53bU2XvqP/0y7+NZnev/86vvi//fznFcdKAkwmeBEAUqXReFy + zy+k8Mwf9qgwqHBGpQMVLv8orwqvD/TKqsIS8CyHbbaFvS3cZErNJHqBS1cqmsx5KusKCi8dwHAGhiGm + gOw7P/z1Mz++/C/v/eKGio3A1L/kb68V/e5fb88sc9eHy8rc++nmnPs/358Vkz+v4EzO/Z8fgNcsc9eH + y3/3z7dnXXLHa6N/c+vTPaCr/MeX//XD7/z44hcQkDCUKDDJcMIlng5Q2YaU3KIgQCVnUxSo5NLPL6hw + +UcZ62FWVUoDe1tyk6muTDSBS5dx4d4tbM7rZhWprMsPvEwAozIwGWJyJkaBTMBMBzShqhd97+dP/uA3 + 11T//m+vr/HD393y1o+jt38A+tlV937+i2vuqwuC/+389w9/XOaWd75/8e9f/8Gvr37tO9/7GexuIMCD + ASSDSIgCEoYSVdphOOEMygSobEAKl31UiwIFKlz6mUCFTXWq/IPnXwZV6FWVwjCViV7g0pWKIuvC4NJl + XfBQmrIuL3h5AYzKwEwQ8wIZhplcXspQw3CTJaBiI/y7MoR0MMLZkoASBSacOclwwoASfwxMgAoKKdts + CoMKe1ReGRUFqtBUP4dClIk2GRdVKppaIXRZF4YXlXXJ8MoGwExZmJyJUSDDMMNAExJQkOGGIZeJ8GvK + 7yd/DgpIOGOiwOQFp0wAZQMpOZsyQUqe9dOZ6RhUuPQLQXUeBAUunceFsy4MLirrsoGXrmzUZV86gFEl + pAwxOROjQEZlZAJmQhhqMtgw4LAEVLyEf08GEAYRhpEQBSUdmOTMSYYTLvF0gPKTRenKPVtI4bJPgErO + pihQhaXfeRY6c57KujC4qKwrW/AyAYzKwEwQ8wIZhhkFNJyhyRKQoEAXVPg18XvKIJI9JgEkDCUvMMmZ + E4aTnwyqJCBlU/ZhUIVxnoWuXLTNujKBlxfAdBkYzsJkiMmZGAUyE8yEMNRksMlww5CjJIMFC/+sLPwe + 8vvLn0uGkZAMJSpjksGky5wwnDCgxB8XE6CKA1JhNhVGKjC8TFmXX3hlAjCvLEznhVElJYYZBTQMNSEB + AgpyGHZBhF9Lhg+GkJwh6YCEoeQFJjlz8sqeggIqW5DC2VTYQ3WBB9UW4QUvPwATDy8FMKqENEFMzsQo + kGGY6YAmQ40CGwYcBbpsCb8H/gzis+lgJKSDkheYTHDCJZ4OUH6yqKCQCrOpMJTAmZctwGR4mQBGlZBe + EJMzMQpkVEYmYGYCmgw1GWwy3DDksGTo2Qq/BgUfGUACQkLy56eAhKEkZ0wUmHSZE4YTzqBENq0DVCZZ + lOhGDyEVhnXYwssEMF0GhrMwE8TkcpIqKTHMdECjoCaDTYYbhpwsGRiZCr+2DB8MIRlEGEY6IGEoeYFJ + zpy84IQBJf5YmQDlBakQUGFkLWwApsvAcBYm/gILiJkyMQpkVEaGYUYBTYYaBTYMOAw6SjJEvIR/VxZ+ + T/yZxGelYKQDEoYSlTHpfCcTnKjsKSigQkiFUSJhAhjOwuAB9oKYnIlR2RiVkQmY6YBGQU0Gmww3GXAU + 6HTQy0T4dWXwYADJEJJBhGGkAxKGkpwxUWAyZU4YTrjECwEVRqkPDDAMMfEg60pJuZykSkobmMlAM0FN + BpsMNww5WTIgdJKBQoFFJ/xeMnwwhGQQUTDCQLKBEgUmuazzA6fQKA/jnA3xF1UHMV05KUBGZWQYZjqg + yVCTwSbDTQc4DDosGRhBhV+TAo8MHwwhCkQCRl5AwlCSMyYKTHJZhzMnGU4hoMI4L0NATC4nBciojIzK + ynBm5gU1GWwy3GTAUaCjgJdt4feSwYMBJENIBhEFIwwkGyjJGRPOmsLZuzDCkELOyEww8wIalaWZ4IYh + J0sGApYMDlvh18DC748/o/z55e+FQSRgpAOSDZRCMIURRsAQAwj7ZCaoyWCT4SYDDkNOBh2WDIhsCb8H + BR4ZPhhCFIh0MJKBFEIpjDBKQchgM8FNBhwFOgp4OsnwMAn/HhZ+bxk8GEAyhISPFIIojDAugBADXJYM + AAE+WTIs/Ai/Dn4fDJ0QPhdw/H+3AJAOM2RpvQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH + DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp + bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE + sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs + AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4 + JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR + 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd + li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF + ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX + wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF + hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55 + 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ + VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB + 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC + qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE + j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I + 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9 + rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG + fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp + B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ + yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC + YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln + yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v + vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp + vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L + Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA + bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z + llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW + ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s + xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6 + eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw + YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR + XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm + WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl + xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2 + dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8 + V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za + Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v + Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb + PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/ + 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h + /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr + XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS + fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ + tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ + 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEgAACxIB0t1+/AAAB4JJREFUSEu9lntM1FcW + x0+yNWpdBURGEJ0ZXtVqZX0hFJAB5gVILVbQTRCQ1wwDw7wYGMSCgiI+IoivtbpBwOLqqnUXq30YlVrX + bXAFu6Ua2ShG0jVoq1ZFwQffzb3zhG22/+0vOZnf3Nz8Pjn3nPs9X1qx10yqpnWU27iOEuo0pG6qpMKP + qyljXxkpt6hozdF6qvxkN2XuW0OymiwqO1I33tBUPTNhsypTUpVuydhTOi5jTynNL08mQUEkiQwyEhql + JDLKSGiQ8vDKj6AZlkTa+WULEQOqmytJ3VRFS+q1ZDq8hdYc304FTRsosTZ/jKll89zcP1YslW/K3hi8 + Oul4WMXvu98pThwQF0oxMScU49Ln0ERVKPnqY8jPpPh1YNaBctIdqqG85vWTFdtUipQ9ppKEWs3e8PWp + l2aUJj4IMsdhilYCL00ED7echZikCoN3XiQC9cp7PgVRNC53PnnkhVlDHUbueaH83V0dyuONjNnkV6Sg + Q5dOEUXUpJUvqFrRPfPD94dEZjkm66PgWRABz/xweOsk8NZGYaouBkK9FNN0sZhWGAuhNhpTNFEIMsRh + 9pqkrgCzsj3IHN8eVBw//NcWgUVx7f5FivaCpg16EhiiWgWGKHgbYyA0yyEqkkNcJIfIJIfQKIOIhV7K + gUJdLISFMRBqY+CWtQBBxji8ev0a9mfw5Qs8Gxxw/Lc/T5734+DFVlDqjNPkZ1E2+JUoIWZRrITIrHAA + OYyFwRVozdA9OwTTjfG42deLu4/uo+deL4aGhjjgVl8vfnh4D7fv/4CH/T/ztbbr7RiVGdxAfpa4BnGJ + gsPExQqIRwINUgeQHakVGAORNha++RK8mT0fb+bMB8W7YdeZQzjW/gVIOR5js+eBkrwhqc7gwM+//Rpj + s+cyoLKBZ8cztAKn6KN5iE1yiI0yuOWGYPSqOfDVRkOkk3Igi6kF0ZiUH8GDlk7BR+eO4MSVs6D3J1vX + VgRAuUXFgZ+5Au1HKipWIKAkHp4F4fitKgRCoxReBRGYZXkPi7fmYXrxYvjkR/Ej9cheiLeMcbhy63tc + //ct/vvjk4d49OwJrtzqQlfvv9DRcw037/Vy4MnO8yxr65HagQJ9FAJLE/gH2q5fBq2cAV9dNB4/f8o/ + 5pETAoEmgmfHulRUKEVSnRYf7NAjvCIFn3a24WJ3B8LLk7G0XofI9SthOVLLgaevXrBnyGpoBU4zy0Er + p+PbOzf4Js/8CKTtLeXvuoM1oGUix5H66WQcyo6PlghAcwgbW/eh8eu/gGaTdS2UEGSOt9bwnxdtwBJn + DVmmo7KCEVGdxjcduHAC3/V24+lAP0alvwNBfiRvmmnaGK4ygQYlr8356+042dmGOz/dRd/PP6K14xzO + fv8NTl29gH/0dPFvseyH19ClSyk1CGe+u8Q3sievYS0oWQyxQeboUoEqAv56ObZ+2oDtXzRj7bEd6Lx9 + HTfu9qDiaD3qPm9G1Yk9OPzNZ/wbp65+Za/h8HsYWBIPSp6K5buMfOPAy0G45S7EBNXCYdfCXyeHj2YR + SDYWJB0NCiBUHN+J/W3HQH5kXZtFXKmcRzqiaRiQqQ2lvsWPxP5omzaAkkUQG+QOoJc6HP56BbaecmbY + cfsabty9jbWuGf79lDXDTpYhr6ET6FcSB0p/G3Hb8vimui8/xs2+O3g68AxjMn7HxdsubZ65YQg02mp4 + rR0nO847anjSUcOvcPmWs4ZjsmxNYwf6mmIxOisY9x8/4JtouRilf7a2tbFlM+iDac4uLfzlLm1iXRps + 69IwQlDxyC61S1uJEhM0oYjcmIafnjxC899aQUu8MGv1Ei7QTJgn54VjkjqcA335PYy13sP6/3UPt3Eg + u4c8Q7FLDZnSsKbx0Uvgpl4IoUmGSZpwhJSnIGWHEbMsS+CtWcSBHjkjlKbHpjT9T3Clx0Vp+uxKw67F + iC5lv2w8TdZFWbW0SMkFfFz2PPwmfTYfxGKdzKalsVxL3dShcFeHgt7zwh/OHsYnl8+AFk/k65QshLQm + iwNZrW01dCrNyGkxfB7GOsYTu/jCAibeMfAplMBHJwGliLD//DH8teMcaNlUvk6p05G4TeMA/pe0jQSK + TFagkI8nV2A0JmQtwAxTAh4/e4oXr17i2Qvn4GXvL1+9xPMXg441Pg9XBTeQwCAZPvHNbOIr+GiyA39p + ALtlhfCJ3z/43AkaHOBXyPV5PTRknfisCVOnn6bwjczTLHfxNBI+nphws6PyLnR6GleLwT2NMQ7BZUld + AUVxVh8zwssM8zQmRbuWeZrMAx9SYUsNqZuruGtL3m0sSajN2/suc22WxAeB5niba4uEQBMJd+7a3uXd + GmiwubacBeThcGrW8FA7/7+REUz+dte2fG8RqZoqeTBfavzTZio7tp3yG9fT4lrNGGPLprk5+8uXyhy+ + dEX3rGG+dC5NVIXZfKmchMyXGmQkMti9qYy88iPpbbsvZUDmunMa13LnrWpcR9qD1ZT+0WpSbMmlsqN1 + tO74Tlq1r4w779WHa8frGqtnxm/KzZRUplnSd1vGpe8qoXnly0igXfTrQKZg/8/4D84DciO4yFz1AAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAVUlEQVRIS+3NMQ4AIAhDUe9/ + AK+Lg4u2xBAjLHZ4DgT8zcxaJRpkm08PswPcJQp6MKLgRkEPRq6DeJxCwef+CkbRJwvcJQp6MKLgRkEP + Ru6ClWiQbQBdFNKRDs1C8gAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAByUlEQVRIS72VMWsVQRSFn0Zt + EkwTUJEUJ2COfyB/IEUsYqFpxcZOglr4FxJJYycIERSrWNhZprARa0FM7M0B0QQrISjmycAsLGfuvtnw + jMXXnJlzP9h9e99gOBwO/idF0CDitGf/giJoEDEt4oLn41IECRFXRTwX8amvVMSp3HvhZ22KQMQVEW9F + DDO9pOkViNjMnZd+3uClSRFPRfxqCatSEZdEPBLxvdUJpV78bKKqVMRlEVvB/VDq5eaRdFFIRayJ+Bnc + bXjTKcwDNoJSIc0/kFci/gR3Go5E7I8UHkP6JMidAxErVWFPaRrmWZsvIu6JON9L2FPaxa6Iaz6vKhxD + upoWgc/qJczS18HQiG0Ry6P2cBFEiHgYDI944F2nCEw0L+KZiB/B8Ig9/06dImjJzmWZD61RLIeqUMSM + iHXbjcehU1oEImbzBvEhzocgq0oj4WMRh8EA506PTyZJL9aEXnI+irgtYirfr0lVE94KSg3fRNwIOl3S + 9L/6fqQwD7gZlL+KuO+7sSLdEbFQFQbS9C6W/I7Tkv7OW2dRxJn2naJkAxrpXT/rIkvfiZjzs0QROOmd + iTjr+ShEXBcx4XmiCE6aIjhp/gK29ssXlF9vLwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAVUlEQVRIS+3NMQ4AIAhDUe9/ + AK+Lg4u2xBAjLHZ4DgT8zcxaJRpkm08PswPcJQp6MKLgRkEPRq6DeJxCwef+CkbRJwvcJQp6MKLgRkEP + Ru6ClWiQbQBdFNKRDs1C8gAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAAC0AAAAtCAYAAAA6GuKaAAAABGdBTUEAALGPC/xhBQAAFAxJREFUaEPV + mXdQVNm2h5czIkiTGrpJ3U3O2XAVDGNCRXSMCOoYMM2IoJjDoCIoCMYxOxhGVEwopjFnQWUQFFGQIFGa + pummA0FEBn6vzmm8c9+bV7fq1X3/uKu+2uusXX32t9de3fwBAaCvjb8lvgb+lvga+Fvia4AObI2ng1/Y + Fk+HOmFilq1/Pf+SsJkS4jbT1i1xtD0hnnYkxLMxQ2J8HG2J20y7EzdT6oFEOrc/gc7uT6CUvVsoefeW + rod3xdsm7Yr3P7YnYdrZpF0hD84lDc64mGR19dgurVP7EujU/q10Yl8iHd+TwPJbJ0ycvFfD8U7Ik69H + Xnw98mYwZeCQJ4/DxszM4MXnkAefQzbc7sTl6BDPkEOmhhwyN+QQ35BDPAMNxnrdyd64OwV7GlOQB5cm + uXMp0NmAO8rZcMX3nrzLQb0sXk/3E1QtGGpXkRDinb19imfqvP6C4OFORnojXI1pmIsxfedgRIMdjWiQ + gxENctTEw5y5NNiJS4MdNZAnXyP1RZCRZp4ZaWZmY2adzyFbbncy5ugQ31CPlTb7F2kTfV32QIx0kIcx + hXgaM/LaIx0MVo51M6qe7mv559yBVlgw2AbLAuyx4wfPjqS5Pm1rRtsXj3Y3mT3Imdd9oAuffB1MqJ9j + Jw4m5Nf53N+Jx8YDHHnESvkwleysaE8z/U5hPeplrkc+phqYNabSjLQpI22g29XckKPDM+B04xnodmGk + jTg6ZG3ESHNpmrcxTXQ3mjy1t1nhtF6m7TP9BJjuJ0JofxHCh9lhwwQXHJ7fA/tCvTum97XM8ba3sPFy + FJGbrSWLaydudpbkbi8gbycrcre1ZGEFGWGGf7ZKp3QPM33yMdPX3ASfQ3aMtF53a3NjwxUic/5Va0vz + pyIL08eWJkZH+QacEUZ63clUX5uGOxjSdB9jwyBP46SlAfafIofbYlan9I9DbLBwqC3Wj3NG0k+9cHJp + P6wY7dQ22NEk0tfOuKuvHVNhHvW1ZarMo34OfPKz55GvvSbHrJMXj0Pu/6yyRvZLuzBr7IH4euRpyulm + a8IZa2rCfeXk6NDu4+2FHj494OHuDgd7ewgsLFq4eroH9XW6mXtbcmimj7HT/H4WN+KD3dpjxzpjpb8t + IobagGmRiGF2WBnogIQpbvhlhgci/W0wxoP3vIdAn+Nurkce5hxyN+eQB3PTAn3yEeqTh0VnzoJD5Gai + S24mnXImuqwsc4gvaG6A08XdVL+XjaVZiVAohLu7O/z8/NC3b1/4+PjA3t4eIpEIfL5JkwGn+24nU11O + iBd3YPhAwYsjob06SndOREZiEJaMcsWMvgLM9BUifIg1Nox1xm9ze2PtKHuM9zSpc+brCJx4OuRkokOO + zMzTIUdjbXJgMNEm5848ORvrkhuPw4q7sAfQJXeeHrmxaMRdTDgGtmbGF+1sbSAQCODm5sZK9+nTBx4e + HrCzs4O5uTmMjY07DPX1y4VG3aeNdjYMXD1U+DZz8xhIz0Sg8c5GyG5EI//kUrw+FoF3yRGoSomAOHku + TocPQHBPc9VIZ0OHAGdDGu5oQCOcDGmkkxGNZGZHQxrBYsBCrkwrmOqRO/8LjKhGmJXm65ErX8/T0ty0 + wdbWlmkDuLq6ol+/fmylPT09weQ7pcE1MmrlG+geGWyrH/LLBMe3JQemQ3UrGi3P9+BzThLaXh1Fa9Z+ + NGfshOpuLGSXluNBdCBCfS1UI50MHQOcDCnA2YCG2TPok7+DPis+3MGAhcmTK0+XRSOpiVmYqvOYqnPI + kac30Upg2erfwwXT/Fzh6+2Kfn6+GNDPDz16+MD+r0rDyMjoTxMDzuX+tgYzk0N9squOzu5oeLAFn3KO + oO1tCtryz+Bz7jG0/HEADQ8TILu8ErlbxyNsoEDWW6hr1VvIoV4CXephqUs9LXXZuGfnMxtb6hK5cXXI + natN7lwd8uDqkJuRNnkYM7E2uRvpsNib6K10tRW2J80ehqzN03FqZQgWThyKYb4+GOHXAy52NvBwsIah + oRG4XG4H10D/obeVyfTEiW73ig7+0K66E4OPWYfQ+joZra+P49Oro2h+vhequ5tQd2k5Xm0Zg9m+FoXf + 2esbD3Y0oP62+iz9mNlOMw+w0zDIwUAj7cYKarPCrgxcHXLhdsZG2mRvwomd0Nuho+iXeag/vwGKK1tQ + mLIRlxLDsXdJCHZHBmNNyFCEDvPBQFerDp6hXpa9GTdonJf56XsbAtsU19ehMeMXtGQfwcecI2h+cRAN + 6TuguBUNyblwnA3zxXfWnBM+Zto6PuY65GWmTd6deJnpkKepDnmb6ZCPhTZ5m+sQ2RvqkJ2hNtka/IUD + I8pU2FAT23K7b/x5TI8OafIyqH5PRPOTX/EpMxmNz46j/tFhyG7vQdXZjSj6dTEuLAro8BEaZQqM9b7r + Y8Nbc3S+b704bTmU9+PR+Gw3Gp/vgfrpL1Dcj4fs2lpITszFxjHOTT3NtP2duV27uHC1yJmrRU5cLXIx + ZuKuLC7GXcmDp1kjS30tstDTIjOOBnO9bixmTK4zb2XUfcHJ0H7t0uTlUN/+BR8zfsOnrBS0Zp9FS1YK + mp8chuJKAqSnViHz53EdIV7m93gGuh6+Dua8NQGOF4uOzPssvxkN1YOtUKbvhOJhIuS3YlCbugSvEsYh + 2Jt33onb1YwV7RR2MupKTobfkJN+F83M7UpuxpqDkFBgoUFoSaLO2EpoSUJLc3ZmcrYiywnJM/u0Vh0K + g/L6djQ9OYKPz0+gJfMUmjNPoOHubsgvbUbNb8vxdPWY9ll9rK/zTUwcBjmZUVh/4ciXcaOra39fi/p7 + cZDfjUPdjQ0Qpy5B+ZHQ9t1TPPN9hTqDXIy1uriaaBGDiymHfJytqc+AvtQ7cBQ5DR5M5u7uZOroSKZO + TkRCkZBFIBSQyEpEVtZWZG1jzcYia9GX9eH93W0+5W6dBfmlOKgfHEBT+hE0ph9F45PDUN/aCVlqDMr2 + /YT9PwxotxYKrtrbWNlEDXem30N97O6H9SqpTAnvqL0WhbqbGyFOW4GqUwvwZuvYlqTpXotW+Nt0W9jf + giIG29CPgd40ds5smrZxE4VEx9LAsAhyChhNZu6eZOrmzkKWlpYsFhYW/y4e4Gwr+pi6eDTqzq1H/Y3t + UN3fB/XDQ1De3g0ZU+UTK/F260wsHu79p7mlINXJ2cly0YyJdOtgbI/Hy4eUvtk5sePDuUWoTl2CD6fD + UXJgKjLXDGq+s2PxpnXzJvMm+blSRNhMmrpiBY0Jj6Ap0TE0KWoDDVgQrpH28CK+q5tGmpESCATszGKp + EWZyX8QFAkEPOythQ9QEX1QfW4a6S/GQ39iB+lu7IL++DZJz61CVFIFnUeMx0se+zVIgTOnh68efuXip + UfqrvP0vT25qer0zpKPkyGyUJv+I4qRZyNs6Fs9iJ7QXvLhbvSZh2+zewwN0QtZE0eQVqyhwwUJWmqn0 + gLAIcg4cQ+aeXmTKSLu6MT0tJJFQRCKhkIQMAs1sJbIikUjExiKRyEEkFChG93ZGRuxU1Jxdjzrmi3c1 + AZLz6yE+sRIle+bh15kD4GAt+Ozg6npi9Pwf3X/cvnPh08LishpxRUfh5USUn1+O6rTVKD8TidcH5+P1 + 1UMQS8U4+fDxs2UHDk2ZE59gEbxqTZfvwyNoanQMTdm4ib5buJicRo0hcy9vMnP3IFMXVyLP3v8g9569 + yKtPH+o7bBh5+/mRrb09WYlEZG1lxWJlZcW3sLAsd7ERIi7IF6VJi1BzPhrVZ9bhQ/IKVB2NxOO14zDQ + WQSBSNTmP3ly3u7bdy+mvMory6iqblO0tEBSXYyiR8dRfWktSi+uw9uHpyGVivFeqUZGlbjten5B0fH0 + p+fWJZ9YMj5yqRUjHfylp79IMz3NVHrQuIn03dgJ5B88haatXkNTfo6igLlzqdeQIWTn6MDegEgk1BUK + hXf79/fDtnnjkB09Ce9/jUDl8RUoPRCG13EhuLZwOH6KjISHl1fH8thNbS9rpW3vlaqON3VylKvV+NjW + BrFMjPzMa3iXfRdypRzKlhbky+pRqlChQqXueC2Ttd0pfl934N6DB1HnUteHbt/ZZ+CCCG2nkYGa9nBx + Jb6zC9HwKdNoaFAIBUyfRaEbY2hW/BaaFBVF3y9ZQsPnzKHeI0aQnb2DVv/vBsWm3bqJJ2f2IjdmMrJj + JiE7ZjKyNozDi5+/R0bsHDwvLMG2fftx4vx5KFtboW5tZWTwh6QWkuYmfGxpwY1fk5Bx/jw+/vknKhoa + UCCvh7ihCepPn6Bo+YQKtRrpH6rb094VqXemP303ZdfeDW7jJpox0vwv0v4hU1lGzQil0GiN9OQN62n8 + qlU0ZnEkBa9fR5OWRPJvZWVnvautQ9GTayjdH4bivfORl/gD3m6bjpLdc/HmaAyq1I14VSVGsVgC9SeN + dJW6AXcqq/BWocKt5JNYzzfHpgGDcPvhI+TU1aGgvh41jU1obG1F0+c2qFpaUKZUIU8mw8Wiko5VN+40 + fLdiTaxT4Biu/VB/chwximhoUDCNmPoDBfwwk5WenZBIIRujafzKlV2/X7rUbOG+fWPi7t69XSSr/7NQ + Kscfz++jOGUDZOejIDm1CuLjyyE7vhSnk7ahXKFGoawej8orcft9KUrq69nKXS4uxeE3hfhp3EQk6hhi + mZ0TNicdxb2KD2ylaxoboWptRcPnz2zL1DY3Q9r8Efnyehx5+RozklPK/MIi/HpOm049p80gtpcZ6VFM + e0TH0JzERN1pmzYJFx48tGDnk4yCE++KPl0oLEG5QoWXYikuPbiJgvObobq0EarLMVBdWAdF8lJsT9qF + J2VVKK9XIbO6FqfeleBUYRHSiotx830Zfq+oxL554fi5uyHiPHri+pXrqFA3sodibkPapBFlhMVNTZA2 + N6O6sREvaqWIe/j445Aly8b1CAr+xmfiJKKhk0PYagfOmt1l/pZEQdSZc+F7Mp5mpBQUfUwrLcfN8krc + K61ETnUtnlZUIz3zIUovxEF9JRbqK5ugurAeiuNLcCVlDx6WViGrUowX1TW4W/kBV8sqkVJcguTCQpwu + LsaxkFBEc4yxw9oF52O3oEylRqlKhWKlElUNDShXN+C9Wo33KjUrLmluRqFCiZMFhe0jIiLnmtjadeum + p0c0Ytp0CvhhBk34KYwfe/pc7Lm3hfIbZZW4X/kB6VU1yKyWsjIZFWK8EEuRk/0IVakxUKVFQ5W2QSN9 + ejXSf9uMLLEUT8qrkVFRjSxxLZ6Ja3HvgxgXyypwsqQUBy6kIc7zH9jKs8ah+QuRJ6lFoVKJPLkcRUol + ChRK5CvqkSuToVStZr+oZWo1LpWWYfyqNVE6+vp6xIwJP4VRyKLILpFbt/un5b798LhS3JFZLUGOpA65 + tTJkV0vxxwcJXknq8KpWhhd/3MOHs+uhOB8FZWoUVJdjoUhdj+zDa5EprsWrmjpkfahFtliKl5I6vJDU + IV0swa3Kapwtfo/tMfGIN7HG7ikz8PR9Kd4plXgjl6OgXoGXcjly5XKki8V4JZOhQKFgpe9UV2Pi0qW7 + tDkcCyL6hjz6+lHwwnCtuN+S5zytqunIqalDnlSOPGk9y2uJDG+kcuTX1bMSfzy7CXHKWigurIfqUgzb + Jqorm/DmyGo8qazGW+YztXK8rpWx5ErrkcMcvlaGB9U1SLl1D5tFjogfF4T7b/ORq1DgjUKBcpUaGbVS + VvZ2ZSWeSyR4I5OjsqERTyoqPw6bPHnlt1pajPS31FWrG1k5OnZfvXXbCmYDRvhNp3CuRIa8Wo1wfp0C + ubV1yHp+GzVn1kFxcSOUF6PZvlZf2ojC4z+z7VMkV+JtHXNoRrwTtghy5EhluP4yF5t9+iAhYCzu5LzE + +4YGVDY0QNzYiAxpLSv9SCzGM6mU+dn7fCMz8/2sRYu3cU1NvYhIl20PZugZGPBWbIrfnS9jNqxnK8u0 + xl/SChTXK1EoU+Jl9kNUn4+BMi0G8jNrobq6hZUuTt2K9woVqlSNKJYr2YMywq9qpOz73tTVI6+uHo8K + irA7cDw2DwvA9cw/OmpaWjrknz61y1pa2p7V17dmSSTNqTkv5Sv3H3g6PCgo2srefmB3TVtoE1GXL85d + 9Q2N7H7euuNEgeyvzdIrxWx/Mhsyf2arlA2oVKjwqugN3l3dDWXqOtQejoDiYgxUF9cj89ltVrhG3YQy + hYo96IvqWqRXVCNXonkPQ0ZhyccZAYHpA0Q2p8YEhxwMDg3dNiYoKGqQv3+YW+/ekwT2DgMMTEyctbS1 + ed98++1/E/3X0aWrlhZ/9OTgn54Wldbm1crbc8RS3CoqR+YHCd7JFChTNOCDuhHV6ibkSqS48fQesk7H + 4+3ecBQcW42nj9PwtKoGNQ1NkDQ2o0qlZj/3/IMEt4srkFMjZQ7R8Vos/XTs4qW7XB7PmYi6/U+R/+vo + qqWlxR84dNjU39IuP777Or/mQvZr5Z384o95NdLPZXJFe5WqoUPc0IhKZQP7y5D6phAnsnORll+IrGoJ + SuuVkDQ0ddSoGzsq6lXtBZK6tvSS8pa0nLyGR/lF0ptZOaURq9bs0NPTE3Ze9f/L+IZ5mb6hocir9z9G + B4ZMW7lw7bq98Xv2pR46cer+2SvXsq7eu5d34/GTgssPnxSdvvugJPn2vfdn7z8qufzgUfHVBw8Lrt29 + n3f+2u8vjp4+83DnoV8vL4vZlBQ0Z150vyFDp5maW7gRkU7nPv/Z8Pf3/3d86+/vbzBq1CjhxKAgt1mh + oX0XhIUNWbho0ciIyCVjwiOXfL946bLvF0ZEjJozb/6QmbNm+QUFB3sGBgZajRgxguvv79/1f3nnfwwV + FhZ+dfztP0dfA39LfA38LfE18LfE18B/ARuUH8mUSd9EAAAAAElFTkSuQmCC + + 17, 17 diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb index d756c64c..8493d0f4 100644 --- a/SDL/USTV/usrCntlUSTV.vb +++ b/SDL/USTV/usrCntlUSTV.vb @@ -43,10 +43,10 @@ Public Class usrCntlUSTV End If End If - .SET_SQL("SELECT " & topMax & " [UStVAn_ID],UStVAn_AntragArt,[UStVAn_KuNr],[UStVAn_Name],[UStVAn_LandKz],LandKz as Land_Antrag , UStVAn_BezugsNr, [UStVAn_ReDatVon], [UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],([UStVAn_USteuerbetrag] - [UStVAn_Erstattungsbetrag]) as UStVAn_Differenzbetrag,[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],([UStVAn_USteuerbetragEUR] - [UStVAn_ErstattungsbetragEUR]) as UStVAn_DifferenzbetragEUR,[UStVAn_VZBetrag],[UStVAn_VZDatum],[UStVAn_Sachbearbeiter] - FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr - where 1=1 " & getWhere() & " - order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon] ) desc,LandKz,[UStVAn_ReDatVon] desc", "FMZOLL") + .SET_SQL("SELECT " & topMax & " [tblUStVAntrag].[UStVAn_ID],UStVAn_AntragArt,[UStVAn_KuNr],[UStVAn_Name],[UStVAn_LandKz],LandKz as Land_Antrag , UStVAn_BezugsNr, [UStVAn_ReDatVon], [UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],([UStVAn_USteuerbetrag] - [UStVAn_Erstattungsbetrag]) as UStVAn_Differenzbetrag,[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],([UStVAn_USteuerbetragEUR] - [UStVAn_ErstattungsbetragEUR]) as UStVAn_DifferenzbetragEUR,[UStVAn_VZBetrag],[UStVAn_VZDatum],UStVAn_VZoffen ,[UStVAn_Sachbearbeiter] + FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr + where 1=1 " & getWhere() & " + order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon] ) desc,LandKz,[UStVAn_ReDatVon] desc", "FMZOLL") .LOAD() loaded = True @@ -145,6 +145,10 @@ Public Class usrCntlUSTV .Columns("UStVAn_VZBetrag").DefaultCellStyle.Format = "N2" .Columns("UStVAn_VZBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight + .Columns("UStVAn_VZoffen").HeaderText = "VZ nicht abgerechnet" + .Columns("UStVAn_VZoffen").Width = 100 + .Columns("UStVAn_VZoffen").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("UStVAn_Sachbearbeiter").HeaderText = "Sachbearbeiter" .Columns("UStVAn_Sachbearbeiter").MinimumWidth = 150 .Columns("UStVAn_Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill @@ -255,6 +259,14 @@ Public Class usrCntlUSTV Case CheckState.Indeterminate End Select + Select Case cbxVZnichtabgerechnet.CheckState + Case CheckState.Checked + whereStr &= " AND isnull(UStVAn_VZoffen,0) <> 0" + Case CheckState.Unchecked + whereStr &= " AND isnull(UStVAn_VZoffen,0) = 0 " + Case CheckState.Indeterminate + End Select + If KdSearchBox1.KdNr > 0 Then whereStr &= " AND UStVAn_KuNr=" & KdSearchBox1.KdNr & " " Return whereStr End Function @@ -1303,4 +1315,9 @@ Public Class usrCntlUSTV Process.Start(webAddress) End Sub + + Private Sub cbxVZnichtabgerechnet_CheckStateChanged(sender As Object, e As EventArgs) Handles cbxVZnichtabgerechnet.CheckStateChanged + If loaded = False Then Exit Sub + init() + End Sub End Class diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb b/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb index b05bca20..943dd969 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb @@ -25,6 +25,8 @@ Partial Class frmBU_Mahnlauf Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBU_Mahnlauf)) Me.Panel1 = New System.Windows.Forms.Panel() + Me.cbxKontotyp = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtZahlEingaenge = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxZahlungseingaenge = New System.Windows.Forms.CheckBox() Me.cbxNurFaellig = New System.Windows.Forms.CheckBox() Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() @@ -41,6 +43,10 @@ Partial Class frmBU_Mahnlauf Me.Panel2 = New System.Windows.Forms.Panel() Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel3 = New System.Windows.Forms.Panel() + Me.Label9 = New System.Windows.Forms.Label() + Me.cbxMahnsperre = New System.Windows.Forms.CheckBox() + Me.btnMail_Intern = New System.Windows.Forms.Button() + Me.Button7 = New System.Windows.Forms.Button() Me.btnKunde = New System.Windows.Forms.Button() Me.cbxMahnstufeErh = New System.Windows.Forms.CheckBox() Me.Label8 = New System.Windows.Forms.Label() @@ -56,10 +62,6 @@ Partial Class frmBU_Mahnlauf Me.Button2 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtZahlEingaenge = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Button7 = New System.Windows.Forms.Button() - Me.btnMail_Intern = New System.Windows.Forms.Button() - Me.cbxKontotyp = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Panel1.SuspendLayout() Me.pnlTop.SuspendLayout() Me.Panel2.SuspendLayout() @@ -86,14 +88,54 @@ Partial Class frmBU_Mahnlauf Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(1287, 127) + Me.Panel1.Size = New System.Drawing.Size(1427, 127) Me.Panel1.TabIndex = 0 ' + 'cbxKontotyp + ' + Me.cbxKontotyp._allowedValuesFreiText = Nothing + Me.cbxKontotyp._allowFreiText = False + Me.cbxKontotyp._value = "" + Me.cbxKontotyp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cbxKontotyp.FormattingEnabled = True + Me.cbxKontotyp.Location = New System.Drawing.Point(529, 96) + Me.cbxKontotyp.Name = "cbxKontotyp" + Me.cbxKontotyp.Size = New System.Drawing.Size(97, 21) + Me.cbxKontotyp.TabIndex = 48 + Me.cbxKontotyp.Visible = False + ' + 'txtZahlEingaenge + ' + Me.txtZahlEingaenge._DateTimeOnly = False + Me.txtZahlEingaenge._numbersOnly = False + Me.txtZahlEingaenge._numbersOnlyKommastellen = "" + Me.txtZahlEingaenge._numbersOnlyTrennzeichen = True + Me.txtZahlEingaenge._Prozent = False + Me.txtZahlEingaenge._ShortDateNew = True + Me.txtZahlEingaenge._ShortDateOnly = False + Me.txtZahlEingaenge._TimeOnly = False + Me.txtZahlEingaenge._TimeOnly_Seconds = False + Me.txtZahlEingaenge._value = "" + Me.txtZahlEingaenge._Waehrung = False + Me.txtZahlEingaenge._WaehrungZeichen = False + Me.txtZahlEingaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtZahlEingaenge.ForeColor = System.Drawing.Color.Black + Me.txtZahlEingaenge.Location = New System.Drawing.Point(675, 78) + Me.txtZahlEingaenge.MaxLength = 10 + Me.txtZahlEingaenge.MaxLineLength = -1 + Me.txtZahlEingaenge.MaxLines_Warning = "" + Me.txtZahlEingaenge.MaxLines_Warning_Label = Nothing + Me.txtZahlEingaenge.Name = "txtZahlEingaenge" + Me.txtZahlEingaenge.Size = New System.Drawing.Size(88, 20) + Me.txtZahlEingaenge.TabIndex = 47 + Me.txtZahlEingaenge.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.txtZahlEingaenge.Visible = False + ' 'cbxZahlungseingaenge ' Me.cbxZahlungseingaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cbxZahlungseingaenge.AutoSize = True - Me.cbxZahlungseingaenge.Location = New System.Drawing.Point(568, 87) + Me.cbxZahlungseingaenge.Location = New System.Drawing.Point(529, 80) Me.cbxZahlungseingaenge.Name = "cbxZahlungseingaenge" Me.cbxZahlungseingaenge.Size = New System.Drawing.Size(140, 17) Me.cbxZahlungseingaenge.TabIndex = 39 @@ -106,7 +148,7 @@ Partial Class frmBU_Mahnlauf Me.cbxNurFaellig.AutoSize = True Me.cbxNurFaellig.Checked = True Me.cbxNurFaellig.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxNurFaellig.Location = New System.Drawing.Point(568, 63) + Me.cbxNurFaellig.Location = New System.Drawing.Point(529, 56) Me.cbxNurFaellig.Name = "cbxNurFaellig" Me.cbxNurFaellig.Size = New System.Drawing.Size(94, 17) Me.cbxNurFaellig.TabIndex = 38 @@ -177,7 +219,7 @@ Partial Class frmBU_Mahnlauf Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnSuche.Image = Global.SDL.My.Resources.Resources.search Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnSuche.Location = New System.Drawing.Point(1092, 56) + Me.btnSuche.Location = New System.Drawing.Point(1232, 56) Me.btnSuche.Name = "btnSuche" Me.btnSuche.Size = New System.Drawing.Size(162, 52) Me.btnSuche.TabIndex = 29 @@ -245,7 +287,7 @@ Partial Class frmBU_Mahnlauf Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top Me.pnlTop.Location = New System.Drawing.Point(0, 0) Me.pnlTop.Name = "pnlTop" - Me.pnlTop.Size = New System.Drawing.Size(1287, 48) + Me.pnlTop.Size = New System.Drawing.Size(1427, 48) Me.pnlTop.TabIndex = 4 ' 'Label4 @@ -265,7 +307,7 @@ Partial Class frmBU_Mahnlauf Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel2.Location = New System.Drawing.Point(0, 127) Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(1287, 572) + Me.Panel2.Size = New System.Drawing.Size(1427, 562) Me.Panel2.TabIndex = 1 ' 'MyDatagridview1 @@ -281,11 +323,13 @@ Partial Class frmBU_Mahnlauf Me.MyDatagridview1.ReadOnly = True Me.MyDatagridview1.RowHeadersVisible = False Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.MyDatagridview1.Size = New System.Drawing.Size(1287, 572) + Me.MyDatagridview1.Size = New System.Drawing.Size(1427, 562) Me.MyDatagridview1.TabIndex = 0 ' 'Panel3 ' + Me.Panel3.Controls.Add(Me.Label9) + Me.Panel3.Controls.Add(Me.cbxMahnsperre) Me.Panel3.Controls.Add(Me.btnMail_Intern) Me.Panel3.Controls.Add(Me.Button7) Me.Panel3.Controls.Add(Me.btnKunde) @@ -304,11 +348,58 @@ Partial Class frmBU_Mahnlauf Me.Panel3.Controls.Add(Me.Button1) Me.Panel3.Controls.Add(Me.MyTextBox2) Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel3.Location = New System.Drawing.Point(0, 699) + Me.Panel3.Location = New System.Drawing.Point(0, 689) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(1287, 147) + Me.Panel3.Size = New System.Drawing.Size(1427, 166) Me.Panel3.TabIndex = 1 ' + 'Label9 + ' + Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(1109, 144) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(234, 13) + Me.Label9.TabIndex = 50 + Me.Label9.Text = "* Kunden mit Mahnsperre werden nicht gemahnt" + ' + 'cbxMahnsperre + ' + Me.cbxMahnsperre.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cbxMahnsperre.AutoSize = True + Me.cbxMahnsperre.Checked = True + Me.cbxMahnsperre.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxMahnsperre.Location = New System.Drawing.Point(1337, 11) + Me.cbxMahnsperre.Name = "cbxMahnsperre" + Me.cbxMahnsperre.Size = New System.Drawing.Size(86, 17) + Me.cbxMahnsperre.TabIndex = 49 + Me.cbxMahnsperre.Text = "Mahnsperre*" + Me.cbxMahnsperre.UseVisualStyleBackColor = True + ' + 'btnMail_Intern + ' + Me.btnMail_Intern.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnMail_Intern.BackgroundImage = Global.SDL.My.Resources.Resources.email_big1 + Me.btnMail_Intern.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnMail_Intern.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMail_Intern.Location = New System.Drawing.Point(1353, 83) + Me.btnMail_Intern.Name = "btnMail_Intern" + Me.btnMail_Intern.Size = New System.Drawing.Size(41, 34) + Me.btnMail_Intern.TabIndex = 48 + Me.btnMail_Intern.UseVisualStyleBackColor = True + ' + 'Button7 + ' + Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button7.Location = New System.Drawing.Point(38, 113) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(123, 23) + Me.Button7.TabIndex = 47 + Me.Button7.Text = "OP-Liste aktualisieren" + Me.Button7.UseVisualStyleBackColor = True + ' 'btnKunde ' Me.btnKunde.Enabled = False @@ -330,7 +421,7 @@ Partial Class frmBU_Mahnlauf Me.cbxMahnstufeErh.AutoSize = True Me.cbxMahnstufeErh.Checked = True Me.cbxMahnstufeErh.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxMahnstufeErh.Location = New System.Drawing.Point(1080, 11) + Me.cbxMahnstufeErh.Location = New System.Drawing.Point(1216, 11) Me.cbxMahnstufeErh.Name = "cbxMahnstufeErh" Me.cbxMahnstufeErh.Size = New System.Drawing.Size(118, 17) Me.cbxMahnstufeErh.TabIndex = 44 @@ -341,7 +432,7 @@ Partial Class frmBU_Mahnlauf ' Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label8.AutoSize = True - Me.Label8.Location = New System.Drawing.Point(969, 121) + Me.Label8.Location = New System.Drawing.Point(1109, 121) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(81, 13) Me.Label8.TabIndex = 42 @@ -353,7 +444,7 @@ Partial Class frmBU_Mahnlauf Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button6.Location = New System.Drawing.Point(972, 81) + Me.Button6.Location = New System.Drawing.Point(1112, 81) Me.Button6.Name = "Button6" Me.Button6.Size = New System.Drawing.Size(222, 38) Me.Button6.TabIndex = 40 @@ -366,7 +457,7 @@ Partial Class frmBU_Mahnlauf Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnExcel.Location = New System.Drawing.Point(1213, 30) + Me.btnExcel.Location = New System.Drawing.Point(1353, 30) Me.btnExcel.Name = "btnExcel" Me.btnExcel.Size = New System.Drawing.Size(41, 34) Me.btnExcel.TabIndex = 39 @@ -403,9 +494,9 @@ Partial Class frmBU_Mahnlauf Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label6.Location = New System.Drawing.Point(183, 12) Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(168, 13) + Me.Label6.Size = New System.Drawing.Size(267, 13) Me.Label6.TabIndex = 34 - Me.Label6.Text = "Ohne Erhöhung des Mahnzählers:" + Me.Label6.Text = "Ohne Erhöhung des Mahnzählers (markierte Elemente):" ' 'Button4 ' @@ -425,7 +516,7 @@ Partial Class frmBU_Mahnlauf ' Me.CheckBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.CheckBox1.AutoSize = True - Me.CheckBox1.Location = New System.Drawing.Point(745, 119) + Me.CheckBox1.Location = New System.Drawing.Point(628, 113) Me.CheckBox1.Name = "CheckBox1" Me.CheckBox1.Size = New System.Drawing.Size(147, 17) Me.CheckBox1.TabIndex = 33 @@ -438,7 +529,7 @@ Partial Class frmBU_Mahnlauf Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label3.AutoSize = True Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label3.Location = New System.Drawing.Point(969, 14) + Me.Label3.Location = New System.Drawing.Point(1109, 14) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(101, 13) Me.Label3.TabIndex = 30 @@ -463,7 +554,7 @@ Partial Class frmBU_Mahnlauf Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button2.Image = Global.SDL.My.Resources.Resources.mahn Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button2.Location = New System.Drawing.Point(972, 30) + Me.Button2.Location = New System.Drawing.Point(1112, 30) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(222, 45) Me.Button2.TabIndex = 31 @@ -499,7 +590,7 @@ Partial Class frmBU_Mahnlauf Me.MyTextBox2._WaehrungZeichen = False Me.MyTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.MyTextBox2.ForeColor = System.Drawing.Color.Black - Me.MyTextBox2.Location = New System.Drawing.Point(1056, 118) + Me.MyTextBox2.Location = New System.Drawing.Point(1196, 118) Me.MyTextBox2.MaxLength = 10 Me.MyTextBox2.MaxLineLength = -1 Me.MyTextBox2.MaxLines_Warning = "" @@ -509,75 +600,12 @@ Partial Class frmBU_Mahnlauf Me.MyTextBox2.TabIndex = 39 Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'txtZahlEingaenge - ' - Me.txtZahlEingaenge._DateTimeOnly = False - Me.txtZahlEingaenge._numbersOnly = False - Me.txtZahlEingaenge._numbersOnlyKommastellen = "" - Me.txtZahlEingaenge._numbersOnlyTrennzeichen = True - Me.txtZahlEingaenge._Prozent = False - Me.txtZahlEingaenge._ShortDateNew = True - Me.txtZahlEingaenge._ShortDateOnly = False - Me.txtZahlEingaenge._TimeOnly = False - Me.txtZahlEingaenge._TimeOnly_Seconds = False - Me.txtZahlEingaenge._value = "" - Me.txtZahlEingaenge._Waehrung = False - Me.txtZahlEingaenge._WaehrungZeichen = False - Me.txtZahlEingaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtZahlEingaenge.ForeColor = System.Drawing.Color.Black - Me.txtZahlEingaenge.Location = New System.Drawing.Point(714, 85) - Me.txtZahlEingaenge.MaxLength = 10 - Me.txtZahlEingaenge.MaxLineLength = -1 - Me.txtZahlEingaenge.MaxLines_Warning = "" - Me.txtZahlEingaenge.MaxLines_Warning_Label = Nothing - Me.txtZahlEingaenge.Name = "txtZahlEingaenge" - Me.txtZahlEingaenge.Size = New System.Drawing.Size(88, 20) - Me.txtZahlEingaenge.TabIndex = 47 - Me.txtZahlEingaenge.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.txtZahlEingaenge.Visible = False - ' - 'Button7 - ' - Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button7.Location = New System.Drawing.Point(38, 113) - Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(123, 23) - Me.Button7.TabIndex = 47 - Me.Button7.Text = "OP-Liste aktualisieren" - Me.Button7.UseVisualStyleBackColor = True - ' - 'btnMail_Intern - ' - Me.btnMail_Intern.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnMail_Intern.BackgroundImage = Global.SDL.My.Resources.Resources.email_big1 - Me.btnMail_Intern.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnMail_Intern.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnMail_Intern.Location = New System.Drawing.Point(1213, 83) - Me.btnMail_Intern.Name = "btnMail_Intern" - Me.btnMail_Intern.Size = New System.Drawing.Size(41, 34) - Me.btnMail_Intern.TabIndex = 48 - Me.btnMail_Intern.UseVisualStyleBackColor = True - ' - 'cbxKontotyp - ' - Me.cbxKontotyp._allowedValuesFreiText = Nothing - Me.cbxKontotyp._allowFreiText = False - Me.cbxKontotyp._value = "" - Me.cbxKontotyp.FormattingEnabled = True - Me.cbxKontotyp.Location = New System.Drawing.Point(568, 103) - Me.cbxKontotyp.Name = "cbxKontotyp" - Me.cbxKontotyp.Size = New System.Drawing.Size(97, 21) - Me.cbxKontotyp.TabIndex = 48 - Me.cbxKontotyp.Visible = False - ' 'frmBU_Mahnlauf ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(1287, 846) + Me.ClientSize = New System.Drawing.Size(1427, 855) Me.Controls.Add(Me.Panel2) Me.Controls.Add(Me.Panel3) Me.Controls.Add(Me.Panel1) @@ -633,4 +661,6 @@ Partial Class frmBU_Mahnlauf Friend WithEvents Button7 As Button Friend WithEvents btnMail_Intern As Button Friend WithEvents cbxKontotyp As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxMahnsperre As CheckBox + Friend WithEvents Label9 As Label End Class diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index c9965219..08ec626d 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -35,20 +35,20 @@ Public Class frmBU_Mahnlauf "isnull(( SELECT TOP 1 [kkd_Email] FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] where kkd_kkaId=10 and kkd_KundenNr=i_personenkonto ) ,'') Email," & " isnull(( SELECT TOP 1 Vorkasse FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].Kunden where KundenNr=i_personenkonto ) ,'') VK,KTO.c_zahlziel as Zahlungsziel, " & "count(*) Anzahl, sum(eur_bruttobetrag+eur_zahlung) Ausstand ,min(op.d_netto) Faelligkeit,max(si_mahnstufe) Mahnstufe, cast(MAX(d_mahnung)as date) Mahndatum" & - If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto(1) ", "") & " " & If(KdNr > 0, " AND i_personenkonto ='" & KdNr & "'", "") & " " & If(KdTxt <> "", " AND KTO.c_name LIKE '" & KdTxt.Replace("*", "%") & "'", "") & " - group by i_personenkonto ,KTO.c_name,KTO.c_landid,KTO.c_ort,KTO.c_plz,KTO.c_email, KTO.c_zahlziel + group by i_personenkonto ,KTO.c_name,KTO.c_landid,KTO.c_ort,KTO.c_plz,KTO.c_email, KTO.c_zahlziel, isnull(si_mahnung,0) HAVING sum(eur_bruttobetrag+eur_zahlung)>'" & MyTextBox1._value & "' " & If(MyComboBox1._value > 0, " and max(si_mahnstufe)>='" & MyComboBox1._value & "'", "") & " ORDER BY KTO.c_name" Dim sqlStringVerag360 = "SELECT i_personenkonto Konto,KTO.c_name, KTO.c_landid Land,Kunden.Abfertigungsverbot as AV,max(KTO.dec_aktuellersaldo) as Saldo,/*KTO.c_plz + ' ' + KTO.c_ort Ort,isnull(KTO.c_email,'') Email, */ " & - "sum(eur_bruttobetrag+eur_zahlung) as Ausstand,cast(min (OWNFIELD_Belegdatum)as date) as 'ältesteRg',/*min(op.d_netto) Faelligkeit,*/max(si_mahnstufe) as MS,max(Kunden.UStV_Summe3470BetragEUR) as '3470',max(Kunden.UStV_SummeVZBetragEUR) as V, max(KTO.dec_wert3) as Risiko,sum(case when OP.c_typ = 'g' then isnull(OP.eur_bruttobetrag, 0) + isnull(OP.eur_zahlung, 0) else 0 end) as Gutschrift, cast(MAX(d_mahnung)as date) Mahndatum, + "sum(eur_bruttobetrag+eur_zahlung) as Ausstand,cast(min (OWNFIELD_Belegdatum)as date) as 'ältesteRg',/*min(op.d_netto) Faelligkeit,*/max(si_mahnstufe) as MS,max(Kunden.UStV_Summe3470BetragEUR) as '3470',max(Kunden.Versicherungssumme) as V, max(KTO.dec_wert3) as Risiko,sum(case when OP.c_typ = 'g' then isnull(OP.eur_bruttobetrag, 0) + isnull(OP.eur_zahlung, 0) else 0 end) as Gutschrift, cast(MAX(d_mahnung)as date) Mahndatum, case when max(si_mahnstufe) = 1 Then 'telefonisch' when max(si_mahnstufe) = 2 Then 'Freitag' @@ -57,7 +57,7 @@ Public Class frmBU_Mahnlauf when max(si_mahnstufe) >= 5 Then 'gesperrt' else '-' End as Sperre " & If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto(1) ", "") & " " & If(KdNr > 0, " AND i_personenkonto ='" & KdNr & "'", "") & " " & If(KdTxt <> "", " AND KTO.c_name LIKE '" & KdTxt.Replace("*", "%") & "'", "") & " - group by i_personenkonto ,KTO.c_name,KTO.c_landid,KTO.c_ort,KTO.c_plz,[tblKundenKontakt].kkd_Email, Kunden.Abfertigungsverbot + group by i_personenkonto ,KTO.c_name,KTO.c_landid,KTO.c_ort,KTO.c_plz,[tblKundenKontakt].kkd_Email, Kunden.Abfertigungsverbot, isnull(si_mahnung,0) HAVING sum(eur_bruttobetrag+eur_zahlung)>'" & MyTextBox1._value & "' " & If(MyComboBox1._value > 0, " and max(si_mahnstufe)>='" & MyComboBox1._value & "'", "") & " ORDER BY KTO.c_name" @@ -124,6 +124,8 @@ Public Class frmBU_Mahnlauf .Columns("c_name").AutoSizeMode = DataGridViewAutoSizeColumnsMode.Fill .Columns("Land").Width = 40 + .Columns("mahnbar").Width = 50 + If Firma_ID = 19 Then @@ -1331,33 +1333,41 @@ Public Class frmBU_Mahnlauf fProgBar.Show(Me) fProgBar.Refresh() For Each r As DataGridViewRow In MyDatagridview1.SelectedRows - Dim Konto = r.Cells("Konto").Value - Dim FirmaId = cboFirma._value - If isFaelligAndMahnlauf(Konto, FirmaId) And isMahnlauf_Betrag(Konto, FirmaId) Then - Dim Path = "" - Select Case AUSGABE - Case "PDF" - If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId) - If doMahnung(4, Konto, FirmaId, "ZE", Path, srchPrinter) Then - PDF_LIST.Add(Path) - End If - Case "MAIL" - If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId) - doMahnung(2, Konto, FirmaId, "ZE",, srchPrinter) - Case "MAIL_SEND" - If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId) - doMahnung(5, Konto, FirmaId, "ZE",, srchPrinter) - Case "PRINT" - If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId) - doMahnung(0, Konto, FirmaId, "ZE",, srchPrinter) - End Select + + Dim mahnsperre = r.Cells("mahnbar").Value + + If Not cbxMahnsperre.Checked Or (cbxMahnsperre.Checked And Not mahnsperre) Then + + Dim Konto = r.Cells("Konto").Value + Dim FirmaId = cboFirma._value + + If isFaelligAndMahnlauf(Konto, FirmaId) And isMahnlauf_Betrag(Konto, FirmaId) Then + Dim Path = "" + Select Case AUSGABE + Case "PDF" + If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId) + If doMahnung(4, Konto, FirmaId, "ZE", Path, srchPrinter) Then + PDF_LIST.Add(Path) + End If + Case "MAIL" + If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId) + doMahnung(2, Konto, FirmaId, "ZE",, srchPrinter) + Case "MAIL_SEND" + If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId) + doMahnung(5, Konto, FirmaId, "ZE",, srchPrinter) + Case "PRINT" + If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId) + doMahnung(0, Konto, FirmaId, "ZE",, srchPrinter) + End Select + End If + cnt += 1 + fProgBar.progBar.Value = cnt / gesAnz * 100 + fProgBar.lblAnzahl.Text = cnt & "/" & gesAnz + 'Pasuse?? + fProgBar.Refresh() End If - cnt += 1 - fProgBar.progBar.Value = cnt / gesAnz * 100 - fProgBar.lblAnzahl.Text = cnt & "/" & gesAnz - 'Pasuse?? - fProgBar.Refresh() + Next If PDF_LIST.Count > 0 Then 'Nur bei PDF @@ -1461,6 +1471,13 @@ Public Class frmBU_Mahnlauf btnMail_Intern.Visible = False End If + Button2.Enabled = Not cbxZahlungseingaenge.Checked + Button4.Enabled = Not cbxZahlungseingaenge.Checked + Button5.Enabled = Not cbxZahlungseingaenge.Checked + Button6.Enabled = Not cbxZahlungseingaenge.Checked + + btnSuche.PerformClick() + End Sub Private Sub cboFirma_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedValueChanged @@ -1553,4 +1570,6 @@ Public Class frmBU_Mahnlauf Me.Cursor = Cursors.Default End Sub + + End Class \ No newline at end of file diff --git a/SDL/kunden/frmKundenUebersichtZOLL.vb b/SDL/kunden/frmKundenUebersichtZOLL.vb index eb46180b..d96c6cf8 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.vb +++ b/SDL/kunden/frmKundenUebersichtZOLL.vb @@ -365,7 +365,11 @@ Public Class frmKundenUebersichtZOLL End If mnueFiskaluebersicht.Enabled = False - UsrCntlOfferte1.init(-1) + + Dim isVerag360 As Boolean = False + If Not IsDBNull(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) AndAlso CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) = 19 Then isVerag360 = True + + UsrCntlOfferte1.init(-1, isVerag360) End If Else End If diff --git a/SDL/kunden/usrCntlCBAM.vb b/SDL/kunden/usrCntlCBAM.vb index 32247e9f..e6d0072b 100644 --- a/SDL/kunden/usrCntlCBAM.vb +++ b/SDL/kunden/usrCntlCBAM.vb @@ -428,7 +428,7 @@ ,max(Eigenmasse) Eigenmasse ,max([VersendungsLand]) VersendungsLand ,'DE' Bestimmungsland - ,max([Rechnungsbetrag])Rechnungspreis + ,max([DV1Rechnungsbetrag])Rechnungspreis ,max([Rechnungswährung]) Rechnungswaehrung ,isnull(max(Empfänger_CN_EORI),'') as EmpfängerEORI ,isnull(max(CN_Name), '') as Empfänger diff --git a/SDL/kunden/usrCntlOfferte.vb b/SDL/kunden/usrCntlOfferte.vb index 642a1370..f243d6c8 100644 --- a/SDL/kunden/usrCntlOfferte.vb +++ b/SDL/kunden/usrCntlOfferte.vb @@ -74,10 +74,12 @@ Public Class usrCntlOfferte With dgvOfferteDetails '.Columns.Clear() + Dim SQLAddFields As String = "" + Dim addedFields As Boolean = addFieldsOffert(OffertenNr, SQLAddFields) Try OFFERTEBind = New cEasyBinding(BIND_DB) - OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " & + OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr" & SQLAddFields & " FROM [Offertenpositionen] " & " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr, Preis DESC", "Offertenpositionen") For Each c As DataColumn In OFFERTEBind.bindingdataTable.Columns @@ -147,6 +149,17 @@ Public Class usrCntlOfferte ' .Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill ' .Columns("OffertenBez").HeaderText = "Bezeichnung" + If addedFields AndAlso .Columns.Contains("Land") Then + .Columns("Land").Width = 70 + .Columns("Land").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("VZ").Width = 40 + .Columns("VZ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("RMC").Width = 40 + .Columns("RMC").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("Fremd").Width = 40 + .Columns("Fremd").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + End If + loaded = True End With @@ -555,7 +568,7 @@ Public Class usrCntlOfferte For Each c As DataGridViewColumn In .Columns If isVerag360 Then - If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr" Or c.Name = "BerechnungsartPosInkludiert" Or c.Name = "BGebLeistungsNr" Or c.Name = "BGebProzent" Or c.Name = "BGebMinBetrag") Then + If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr" Or c.Name = "BerechnungsartPosInkludiert" Or c.Name = "BGebLeistungsNr" Or c.Name = "BGebProzent" Or c.Name = "BGebMinBetrag" Or c.Name = "Land" Or c.Name = "VZ" Or c.Name = "RMC" Or c.Name = "Fremd") Then If edit Then c.ReadOnly = False handleEditMode(edit) @@ -602,11 +615,19 @@ Public Class usrCntlOfferte loaded = False DGVHasChaged = False + Dim addFields As String = "" + + Dim OffNR As Integer = -1 + + OffNR = CInt(SQL.getValueTxtBySql("SELECT TOP(1) OffertenNr from tblOffertenArchiv where OfID = " & OffertenId, "FMZOLL")) + + Dim addedFields As Boolean = addFieldsOffert(OffNR, addFields) + With dgvOfferteDetails .Columns.Clear() OFFERTEBind = New cEasyBinding(BIND_DB) - OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " & + OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " & addFields & " FROM [tblOffertenpositionenArchiv] " & " WHERE OfId='" & OffertenId & "' ORDER BY LeistungsNr, Preis DESC", "tblOffertenpositionenArchiv") @@ -656,6 +677,17 @@ Public Class usrCntlOfferte .Columns("Preisänderung").HeaderText = "PreisNeu" .Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + If addedFields Then + .Columns("Land").Width = 70 + .Columns("VZ").Width = 40 + .Columns("VZ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("RMC").Width = 40 + .Columns("RMC").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("Fremd").Width = 40 + .Columns("Fremd").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + End If + + loaded = True End With Catch ex As Exception @@ -951,5 +983,14 @@ Public Class usrCntlOfferte Me.Cursor = Cursors.Default End Sub + Private Function addFieldsOffert(ByRef OffertenNr As Integer, ByRef fields As String) + + If OffertenNr = 14 Or OffertenNr = 15 Or OffertenNr = 31 Then + fields = ", Land, VZ, RMC, Fremd " + Return True + End If + Return False + + End Function End Class diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 87e06885..0ae6d90e 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -4107,7 +4107,9 @@ Public Class frmMDMDatenverarbetiung and ( Offertenpositionen.OffertenNr=17 or Offertenpositionen.OffertenNr=21) where cast(tblIDSTransactionsNew.YearMonthDay As Date) = '" & DateTimePicker2.Text & "' and tblIDSTransactionsNew.KdNrVERAG = " & kundenNr & " and Offertenpositionen.LeistungsNr is null Group by Leistungen.LeistungsNr, Leistungen.LeistungsBez,tblIDSTransactionsNew.KdNrVERAG, Offertenpositionen.LeistungsNr, Offertenpositionen.LeistungsBez ) as t1" Dim fehlendeLeistungsNr As Integer = CInt((New SQL).getValueTxtBySql(sqlStringfehlendeLeistungsNr, "FMZOLL")) - If fehlendeLeistungsNr > 0 Then counter += fehlendeLeistungsNr + If fehlendeLeistungsNr > 0 Then + counter += fehlendeLeistungsNr + End If End If Next diff --git a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb index 4875d34a..c3e0335d 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb @@ -58,6 +58,7 @@ Public Class cUSTVAntrag Property UStVAn_StatusText As Object = Nothing Property UStVAn_AntragArt As Object = Nothing Property UStVAn_RGRetour As Object = Nothing + Property UStVAn_VZoffen As Object = Nothing Property POSITIONEN As New List(Of cUStVPositionen) '= Nothing @@ -127,6 +128,7 @@ Public Class cUSTVAntrag list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_StatusText", UStVAn_StatusText)) ' DATETIME Default (getdate()) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_AntragArt", UStVAn_AntragArt)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_RGRetour", UStVAn_RGRetour)) ' DATETIME Default (getdate()) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_VZoffen", UStVAn_VZoffen)) ' Return list @@ -319,6 +321,8 @@ Public Class cUStVPositionen Property UStVPo_daId As Object = Nothing Property UStVPo_daId_loeschbar As Boolean = True Property UStVPo_LeistenderId As Integer ' + Property UStVPo_VZ As Boolean = True + Property UStVPo_VZ_RKID As Object = Nothing ' Dim SQL As New SQL @@ -433,6 +437,8 @@ Public Class cUStVPositionen list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_daId", UStVPo_daId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_daId_loeschbar", UStVPo_daId_loeschbar)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_LeistenderId", UStVPo_LeistenderId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_VZ", UStVPo_VZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_VZ_RKID", UStVPo_VZ_RKID)) Return list End Function