From 69fac47769df8b15ac53b14548784ed65ba6e13c Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 12 Jan 2026 16:17:34 +0100 Subject: [PATCH 1/4] Leihgeld - Optische Anpassungen --- .../frmNacherfassungLeihgeld.Designer.vb | 106 +++++++++--------- SDL/kassenbuch/frmNacherfassungLeihgeld.vb | 4 +- 2 files changed, 55 insertions(+), 55 deletions(-) diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb index 69d74d17..a5093c67 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmNacherfassungLeihgeld Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,11 +20,11 @@ Partial Class frmNacherfassungLeihgeld 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ + Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNacherfassungLeihgeld)) Me.pnl = New System.Windows.Forms.Panel() - Me.btnWiki = New System.Windows.Forms.Button() + Me.btnWikiStatusmails = New System.Windows.Forms.Button() Me.txtDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btnNeueAbfertigungNrVergeben = New System.Windows.Forms.Button() Me.Label2 = New System.Windows.Forms.Label() @@ -71,7 +71,7 @@ Partial Class frmNacherfassungLeihgeld Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxOP_sofort_buchen = New System.Windows.Forms.CheckBox() Me.lblGesperrt = New System.Windows.Forms.Label() - Me.cbxProvAnMA = New System.Windows.Forms.CheckBox() + Me.cbxProvinMAKassa = New System.Windows.Forms.CheckBox() Me.pnl.SuspendLayout() Me.Panel1.SuspendLayout() Me.Panel2.SuspendLayout() @@ -81,7 +81,7 @@ Partial Class frmNacherfassungLeihgeld ' Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.pnl.Controls.Add(Me.btnWiki) + Me.pnl.Controls.Add(Me.btnWikiStatusmails) Me.pnl.Controls.Add(Me.txtDatum) Me.pnl.Controls.Add(Me.btnNeueAbfertigungNrVergeben) Me.pnl.Controls.Add(Me.Label2) @@ -93,21 +93,21 @@ Partial Class frmNacherfassungLeihgeld Me.pnl.Dock = System.Windows.Forms.DockStyle.Top Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(525, 94) + Me.pnl.Size = New System.Drawing.Size(441, 94) Me.pnl.TabIndex = 0 ' - 'btnWiki + 'btnWikiStatusmails ' - Me.btnWiki.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.btnWiki.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen - Me.btnWiki.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnWiki.FlatAppearance.BorderSize = 0 - Me.btnWiki.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnWiki.Location = New System.Drawing.Point(494, 3) - Me.btnWiki.Name = "btnWiki" - Me.btnWiki.Size = New System.Drawing.Size(25, 20) - Me.btnWiki.TabIndex = 215 - Me.btnWiki.UseVisualStyleBackColor = False + Me.btnWikiStatusmails.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.btnWikiStatusmails.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen + Me.btnWikiStatusmails.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnWikiStatusmails.FlatAppearance.BorderSize = 0 + Me.btnWikiStatusmails.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnWikiStatusmails.Location = New System.Drawing.Point(410, 3) + Me.btnWikiStatusmails.Name = "btnWikiStatusmails" + Me.btnWikiStatusmails.Size = New System.Drawing.Size(25, 20) + Me.btnWikiStatusmails.TabIndex = 215 + Me.btnWikiStatusmails.UseVisualStyleBackColor = False ' 'txtDatum ' @@ -139,7 +139,7 @@ Partial Class frmNacherfassungLeihgeld 'btnNeueAbfertigungNrVergeben ' Me.btnNeueAbfertigungNrVergeben.BackColor = System.Drawing.Color.Gainsboro - Me.btnNeueAbfertigungNrVergeben.Location = New System.Drawing.Point(365, 57) + Me.btnNeueAbfertigungNrVergeben.Location = New System.Drawing.Point(281, 57) Me.btnNeueAbfertigungNrVergeben.Name = "btnNeueAbfertigungNrVergeben" Me.btnNeueAbfertigungNrVergeben.Size = New System.Drawing.Size(145, 24) Me.btnNeueAbfertigungNrVergeben.TabIndex = 6 @@ -150,7 +150,7 @@ Partial Class frmNacherfassungLeihgeld ' Me.Label2.AutoSize = True Me.Label2.ForeColor = System.Drawing.Color.White - Me.Label2.Location = New System.Drawing.Point(362, 41) + Me.Label2.Location = New System.Drawing.Point(278, 41) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(103, 13) Me.Label2.TabIndex = 3 @@ -171,7 +171,7 @@ Partial Class frmNacherfassungLeihgeld Me.txtAbfertigungsnummer._Waehrung = False Me.txtAbfertigungsnummer._WaehrungZeichen = True Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(365, 57) + Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(281, 57) Me.txtAbfertigungsnummer.MaxLength = 8 Me.txtAbfertigungsnummer.MaxLineLength = -1 Me.txtAbfertigungsnummer.MaxLines_Warning = "" @@ -189,7 +189,7 @@ Partial Class frmNacherfassungLeihgeld Me.cboFiliale.Enabled = False Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(280, 56) + Me.cboFiliale.Location = New System.Drawing.Point(196, 56) Me.cboFiliale.Name = "cboFiliale" Me.cboFiliale.Size = New System.Drawing.Size(80, 24) Me.cboFiliale.TabIndex = 5 @@ -198,7 +198,7 @@ Partial Class frmNacherfassungLeihgeld ' Me.Label1.AutoSize = True Me.Label1.ForeColor = System.Drawing.Color.White - Me.Label1.Location = New System.Drawing.Point(277, 41) + Me.Label1.Location = New System.Drawing.Point(193, 41) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(33, 13) Me.Label1.TabIndex = 2 @@ -288,7 +288,7 @@ Partial Class frmNacherfassungLeihgeld Me.btnPrint.ForeColor = System.Drawing.Color.Black Me.btnPrint.Image = Global.SDL.My.Resources.Resources.printer2 Me.btnPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnPrint.Location = New System.Drawing.Point(375, 331) + Me.btnPrint.Location = New System.Drawing.Point(291, 331) Me.btnPrint.Name = "btnPrint" Me.btnPrint.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0) Me.btnPrint.Size = New System.Drawing.Size(136, 66) @@ -323,7 +323,7 @@ Partial Class frmNacherfassungLeihgeld Me.cboPrintAktendeckel.AutoSize = True Me.cboPrintAktendeckel.Checked = True Me.cboPrintAktendeckel.CheckState = System.Windows.Forms.CheckState.Checked - Me.cboPrintAktendeckel.Location = New System.Drawing.Point(375, 303) + Me.cboPrintAktendeckel.Location = New System.Drawing.Point(291, 313) Me.cboPrintAktendeckel.Name = "cboPrintAktendeckel" Me.cboPrintAktendeckel.Size = New System.Drawing.Size(128, 17) Me.cboPrintAktendeckel.TabIndex = 17 @@ -333,7 +333,7 @@ Partial Class frmNacherfassungLeihgeld 'Label8 ' Me.Label8.AutoSize = True - Me.Label8.Location = New System.Drawing.Point(80, 69) + Me.Label8.Location = New System.Drawing.Point(80, 83) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(87, 13) Me.Label8.TabIndex = 6 @@ -363,7 +363,7 @@ Partial Class frmNacherfassungLeihgeld 'Label10 ' Me.Label10.AutoSize = True - Me.Label10.Location = New System.Drawing.Point(17, 69) + Me.Label10.Location = New System.Drawing.Point(17, 83) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(45, 13) Me.Label10.TabIndex = 5 @@ -382,7 +382,7 @@ Partial Class frmNacherfassungLeihgeld ' Me.cbxProvisionAuftraggeber.AutoSize = True Me.cbxProvisionAuftraggeber.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxProvisionAuftraggeber.Location = New System.Drawing.Point(281, 13) + Me.cbxProvisionAuftraggeber.Location = New System.Drawing.Point(186, 13) Me.cbxProvisionAuftraggeber.Name = "cbxProvisionAuftraggeber" Me.cbxProvisionAuftraggeber.Size = New System.Drawing.Size(173, 17) Me.cbxProvisionAuftraggeber.TabIndex = 1 @@ -392,7 +392,7 @@ Partial Class frmNacherfassungLeihgeld 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke - Me.Panel1.Controls.Add(Me.cbxProvAnMA) + Me.Panel1.Controls.Add(Me.cbxProvinMAKassa) Me.Panel1.Controls.Add(Me.cbxProvision) Me.Panel1.Controls.Add(Me.txtAuftrProvision) Me.Panel1.Controls.Add(Me.cbxProvisionAuftraggeber) @@ -404,9 +404,9 @@ Partial Class frmNacherfassungLeihgeld Me.Panel1.Controls.Add(Me.txtProvisionProzent) Me.Panel1.Controls.Add(Me.cboProvisionStaffelArt) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel1.Location = New System.Drawing.Point(0, 404) + Me.Panel1.Location = New System.Drawing.Point(0, 400) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(525, 122) + Me.Panel1.Size = New System.Drawing.Size(441, 147) Me.Panel1.TabIndex = 20 ' 'txtAuftrProvision @@ -425,7 +425,7 @@ Partial Class frmNacherfassungLeihgeld Me.txtAuftrProvision._WaehrungZeichen = True Me.txtAuftrProvision.Enabled = False Me.txtAuftrProvision.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.txtAuftrProvision.Location = New System.Drawing.Point(460, 13) + Me.txtAuftrProvision.Location = New System.Drawing.Point(365, 11) Me.txtAuftrProvision.MaxLineLength = -1 Me.txtAuftrProvision.MaxLines_Warning = "" Me.txtAuftrProvision.MaxLines_Warning_Label = Nothing @@ -449,7 +449,7 @@ Partial Class frmNacherfassungLeihgeld Me.cboProvisionBetrag._WaehrungZeichen = True Me.cboProvisionBetrag.Enabled = False Me.cboProvisionBetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) - Me.cboProvisionBetrag.Location = New System.Drawing.Point(83, 85) + Me.cboProvisionBetrag.Location = New System.Drawing.Point(83, 99) Me.cboProvisionBetrag.MaxLineLength = -1 Me.cboProvisionBetrag.MaxLines_Warning = "" Me.cboProvisionBetrag.MaxLines_Warning_Label = Nothing @@ -464,7 +464,7 @@ Partial Class frmNacherfassungLeihgeld Me.cboProvisionStaffel._value = "" Me.cboProvisionStaffel.Enabled = False Me.cboProvisionStaffel.FormattingEnabled = True - Me.cboProvisionStaffel.Location = New System.Drawing.Point(176, 36) + Me.cboProvisionStaffel.Location = New System.Drawing.Point(176, 50) Me.cboProvisionStaffel.Name = "cboProvisionStaffel" Me.cboProvisionStaffel.Size = New System.Drawing.Size(251, 21) Me.cboProvisionStaffel.TabIndex = 4 @@ -485,7 +485,7 @@ Partial Class frmNacherfassungLeihgeld Me.txtProvisionProzent._WaehrungZeichen = True Me.txtProvisionProzent.Enabled = False Me.txtProvisionProzent.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.txtProvisionProzent.Location = New System.Drawing.Point(21, 85) + Me.txtProvisionProzent.Location = New System.Drawing.Point(21, 99) Me.txtProvisionProzent.MaxLineLength = -1 Me.txtProvisionProzent.MaxLines_Warning = "" Me.txtProvisionProzent.MaxLines_Warning_Label = Nothing @@ -500,7 +500,7 @@ Partial Class frmNacherfassungLeihgeld Me.cboProvisionStaffelArt._value = "" Me.cboProvisionStaffelArt.Enabled = False Me.cboProvisionStaffelArt.FormattingEnabled = True - Me.cboProvisionStaffelArt.Location = New System.Drawing.Point(21, 36) + Me.cboProvisionStaffelArt.Location = New System.Drawing.Point(21, 50) Me.cboProvisionStaffelArt.Name = "cboProvisionStaffelArt" Me.cboProvisionStaffelArt.Size = New System.Drawing.Size(156, 21) Me.cboProvisionStaffelArt.TabIndex = 3 @@ -511,7 +511,7 @@ Partial Class frmNacherfassungLeihgeld Me.Panel2.Controls.Add(Me.Label7) Me.Panel2.Controls.Add(Me.cboPrinter) Me.Panel2.Controls.Add(Me.cboPrinterProvisionBeleg) - Me.Panel2.Location = New System.Drawing.Point(297, 60) + Me.Panel2.Location = New System.Drawing.Point(210, 83) Me.Panel2.Name = "Panel2" Me.Panel2.Size = New System.Drawing.Size(228, 59) Me.Panel2.TabIndex = 21 @@ -654,7 +654,7 @@ Partial Class frmNacherfassungLeihgeld Me.ksFrachtführerKdNr.MaxLines_Warning_Label = Nothing Me.ksFrachtführerKdNr.Name = "ksFrachtführerKdNr" Me.ksFrachtführerKdNr.ReadOnly = True - Me.ksFrachtführerKdNr.Size = New System.Drawing.Size(222, 23) + Me.ksFrachtführerKdNr.Size = New System.Drawing.Size(138, 23) Me.ksFrachtführerKdNr.TabIndex = 3 ' 'txtPassnummer @@ -678,7 +678,7 @@ Partial Class frmNacherfassungLeihgeld Me.txtPassnummer.MaxLines_Warning = "" Me.txtPassnummer.MaxLines_Warning_Label = Nothing Me.txtPassnummer.Name = "txtPassnummer" - Me.txtPassnummer.Size = New System.Drawing.Size(222, 20) + Me.txtPassnummer.Size = New System.Drawing.Size(138, 20) Me.txtPassnummer.TabIndex = 9 ' 'txtAuftraggeber @@ -756,7 +756,7 @@ Partial Class frmNacherfassungLeihgeld Me.txtAuftraggeberKdNr.MaxLines_Warning_Label = Nothing Me.txtAuftraggeberKdNr.Name = "txtAuftraggeberKdNr" Me.txtAuftraggeberKdNr.ReadOnly = True - Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(222, 23) + Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(138, 23) Me.txtAuftraggeberKdNr.TabIndex = 13 ' 'MyTextBoxLKWKz @@ -810,7 +810,7 @@ Partial Class frmNacherfassungLeihgeld 'cbxOP_sofort_buchen ' Me.cbxOP_sofort_buchen.AutoSize = True - Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(375, 280) + Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(291, 290) Me.cbxOP_sofort_buchen.Name = "cbxOP_sofort_buchen" Me.cbxOP_sofort_buchen.Size = New System.Drawing.Size(145, 17) Me.cbxOP_sofort_buchen.TabIndex = 213 @@ -829,23 +829,23 @@ Partial Class frmNacherfassungLeihgeld Me.lblGesperrt.Text = "gesperrt!" Me.lblGesperrt.Visible = False ' - 'cbxProvAnMA + 'cbxProvinMAKassa ' - Me.cbxProvAnMA.AutoSize = True - Me.cbxProvAnMA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxProvAnMA.Location = New System.Drawing.Point(161, 13) - Me.cbxProvAnMA.Name = "cbxProvAnMA" - Me.cbxProvAnMA.Size = New System.Drawing.Size(119, 17) - Me.cbxProvAnMA.TabIndex = 22 - Me.cbxProvAnMA.Text = "In Mitarbeiter-Kassa" - Me.cbxProvAnMA.UseVisualStyleBackColor = True + Me.cbxProvinMAKassa.AutoSize = True + Me.cbxProvinMAKassa.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxProvinMAKassa.Location = New System.Drawing.Point(21, 31) + Me.cbxProvinMAKassa.Name = "cbxProvinMAKassa" + Me.cbxProvinMAKassa.Size = New System.Drawing.Size(138, 17) + Me.cbxProvinMAKassa.TabIndex = 22 + Me.cbxProvinMAKassa.Text = "in Mitarbeiter-Kassa" + Me.cbxProvinMAKassa.UseVisualStyleBackColor = True ' 'frmNacherfassungLeihgeld ' 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(525, 526) + Me.ClientSize = New System.Drawing.Size(441, 547) Me.Controls.Add(Me.lblGesperrt) Me.Controls.Add(Me.cbxOP_sofort_buchen) Me.Controls.Add(Me.txtOpLeihgeld) @@ -934,6 +934,6 @@ Partial Class frmNacherfassungLeihgeld Friend WithEvents Label44 As Label Public WithEvents cbxOP_sofort_buchen As CheckBox Friend WithEvents lblGesperrt As Label - Friend WithEvents btnWiki As Button - Friend WithEvents cbxProvAnMA As CheckBox + Friend WithEvents btnWikiStatusmails As Button + Friend WithEvents cbxProvinMAKassa As CheckBox End Class diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index 01602ade..1d171415 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -406,7 +406,7 @@ Public Class frmNacherfassungLeihgeld Dim barbetrag As Double = 0 Dim BelegNrProvision = 0 If cbxProvision.Checked Then - printProvision(barbetrag, BelegNrProvision, cbxProvAnMA.Checked) + printProvision(barbetrag, BelegNrProvision, cbxProvinMAKassa.Checked) End If @@ -1043,7 +1043,7 @@ Public Class frmNacherfassungLeihgeld txtAuftrProvision.Enabled = sender.checked End Sub - Private Sub btnWikis_Click(sender As Object, e As EventArgs) Handles btnWiki.Click + Private Sub btnWikis_Click(sender As Object, e As EventArgs) Handles btnWikiStatusmails.Click Dim webAddress As String = "https://wiki.verag.ag/software/aviso/howtos/Leihgeldkassa" Process.Start(webAddress) From bdea8abffa18c9edac2558736172a06e9d5934b4 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 13 Jan 2026 08:21:38 +0100 Subject: [PATCH 2/4] nacherfassung Leihgeld --- SDL/kassenbuch/frmNacherfassungLeihgeld.vb | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index 1d171415..3592e66f 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -313,11 +313,18 @@ Public Class frmNacherfassungLeihgeld Dim KundenKontoArchiv As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySql("SELECT isnull(c_archiv,'A') FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid = " & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "9", "7"), "FIBU") 'ATILLA MANDANT!' Select Case KundenKontoArchiv - Case "I" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden (799999)!") : Exit Sub 'inaktiv - Case "" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU nicht vorhanden, bitte andere KundenNr verwenden (799999)!") : Exit Sub 'nicht vorhanden + Case "I" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden (799999)!") : Me.Cursor = Cursors.Default : Exit Sub 'inaktiv + Case "" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU nicht vorhanden, bitte andere KundenNr verwenden (799999)!") : Me.Cursor = Cursors.Default : Exit Sub 'nicht vorhanden Case Else 'aktiv -> OK End Select + If BELEG.KundenNr > 0 Then + Dim kunden As New cKunde(BELEG.KundenNr) + If Not kunden.hasEntry Then + MsgBox("ACHTUNG, KundenNr existiert nicht!" & vbNewLine & "Der Kunde muss angelegt werden!") : Me.Cursor = Cursors.Default : Exit Sub + End If + End If + End If BELEG.POS.Clear() From eb1f0f7892e168712a18f5fa8a4034846fa0d58d Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 13 Jan 2026 16:08:46 +0100 Subject: [PATCH 3/4] cRKSV, Abrechnungmaske, Aufschibkonten, Nacherfassung, etc. --- SDL/Classes/cRKSV.vb | 295 +++++++++--------- SDL/Fakturierung/frmAbrechnungsMaske.vb | 35 +-- SDL/Fakturierung/frmRechnungenSuche.vb | 5 + SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 2 +- .../BelegReports/rptLeihgeldBeleg.Designer.vb | 63 ++-- .../BelegReports/rptLeihgeldBeleg.resx | 5 +- SDL/kassenbuch/frmBelegNeu.vb | 8 +- SDL/kassenbuch/frmNacherfassungLeihgeld.vb | 27 +- .../Classes/cAufschubKonten.vb | 43 ++- 9 files changed, 255 insertions(+), 228 deletions(-) diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index 50113ff7..8453e854 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -1337,6 +1337,23 @@ Public Class cRKSV ' rpt.lblKdNr.Text = IIf(BELEG.KundenNr > 0, BELEG.KundenNr, "") rpt.Label24.Text = "Auszahlungsbetrag" + + If PERSONAL.isLeihgeldkasse AndAlso BELEG.Niederlassung = "SUA" Then + Dim fontAtilla As New Font("Arial", 14, FontStyle.Bold) + + rpt.lblFahrer.Font = fontAtilla + rpt.lblFahrer2.Font = fontAtilla + rpt.lblLKWKz.Font = fontAtilla + rpt.lblPassnummer.Font = fontAtilla + rpt.Label12.Font = fontAtilla + rpt.Label15.Font = fontAtilla + rpt.Label14.Font = fontAtilla + + + End If + + + rpt.lblFahrer.Text = BELEG.Fahrer rpt.lblFahrer2.Text = BELEG.Fahrer rpt.lblLKWKz.Text = BELEG.LKW_Kennzeichen @@ -2529,7 +2546,7 @@ Public Class cRKSV End If If DefaultMandant = 9 Then - MsgBox("ACHTUNG, Daten werden in Mandant " & DefaultMandant & " eingespielt -> " & IIf(DefaultMandant = 9, "TESTMANDANT!", "PRODUKTIVMANDANT!")) + MsgBox("ACHTUNG, Daten werden in Mandant " & DefaultMandant & " eingespielt -> " & IIf(DefaultMandant = 9, "TEST-MANDANT!", "PRODUKTIV-MANDANT!")) End If Dim sql As New VERAG_PROG_ALLGEMEIN.SQL() @@ -2547,7 +2564,7 @@ Public Class cRKSV End If If rel_periode > periode Then - jahr -= 1 + 'jahr -= 1 warum nochmals??????? End If Dim betrag As Decimal = SumBelegPositionen(beleg) @@ -2608,143 +2625,6 @@ Public Class cRKSV Next - 'Set @dec_aktuellersaldo = (Select [FIBU2].dbo.fibu_konto.dec_aktuellersaldo FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @Schleifenkonto) - 'If @dec_aktuellersaldo Is NULL SET @dec_aktuellersaldo = 0 - - 'INSERT INTO [FIBU2].dbo.fibu_periodensaldo ( - '[FIBU2].dbo.fibu_periodensaldo.i_firm_refid, - '[FIBU2].dbo.fibu_periodensaldo.si_jahr, - '[FIBU2].dbo.fibu_periodensaldo.i_konto, - '[FIBU2].dbo.fibu_periodensaldo.i_perioden, - '[FIBU2].dbo.fibu_periodensaldo.dec_eroeff, - '[FIBU2].dbo.fibu_periodensaldo.dec_abschluss, - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_1, - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_1, - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_2, - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_2, - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_3, - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_3, - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_4, - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_4, - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_5, - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_5, - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_6, - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_6, - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_7, - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_7, - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_8, - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_8, - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_9, - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_9, - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_10, - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_10, - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_11, - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_11, - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_12, - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_12, - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_13, - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_13, - '[FIBU2].dbo.fibu_periodensaldo.eur_eroeff, - '[FIBU2].dbo.fibu_periodensaldo.eur_abschluss, - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_1, - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_1, - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_2, - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_2, - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_3, - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_3, - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_4, - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_4, - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_5, - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_5, - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_6, - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_6, - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_7, - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_7, - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_8, - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_8, - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_9, - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_9, - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_10, - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_10, - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_11, - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_11, - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_12, - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_12, - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_13, - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_13, - '[FIBU2].dbo.fibu_periodensaldo.i_buchungskreis) - - 'VALUES ( - '@MandantNr, - '@Jahr, - '@Schleifenkonto, - '0, - '@dec_aktuellersaldo, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '@dec_aktuellersaldo, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '0, - '1) - - - - - - - - - InsertBelegskopf_new(sql, mandant, jahr, periode, SafeIntToSql(i_beleg_refid), beleg.BelegDat.ToShortDateString, SafeString(beleg.BelegNr), 1, buchungstext, CType(betrag, Double), "EUR", Now(), VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, protokollId, BelegNrUID) @@ -2984,13 +2864,146 @@ Public Class cRKSV jahr & "," & konto & "," & "0," & - String.Join(",", Enumerable.Repeat("0", 32)) & "," & saldo & "," & - String.Join(",", Enumerable.Repeat("0", 26)) & "," & + String.Join(",", Enumerable.Repeat("0", 27)) & "," & + saldo & "," & + String.Join(",", Enumerable.Repeat("0", 27)) & "," & "1);" sql.doSQL(sqlStr, "FIBU") + + '--------------------------- ZUM VERGLEICH - SQL aus UM ---------------------------------------- + 'Set @dec_aktuellersaldo = (Select [FIBU2].dbo.fibu_konto.dec_aktuellersaldo FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @Schleifenkonto) + 'If @dec_aktuellersaldo Is NULL SET @dec_aktuellersaldo = 0 + + 'INSERT INTO [FIBU2].dbo.fibu_periodensaldo ( + '[FIBU2].dbo.fibu_periodensaldo.i_firm_refid, + '[FIBU2].dbo.fibu_periodensaldo.si_jahr, + '[FIBU2].dbo.fibu_periodensaldo.i_konto, + '[FIBU2].dbo.fibu_periodensaldo.i_perioden, + '[FIBU2].dbo.fibu_periodensaldo.dec_eroeff, + '[FIBU2].dbo.fibu_periodensaldo.dec_abschluss, + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_1, + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_1, + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_2, + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_2, + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_3, + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_3, + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_4, + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_4, + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_5, + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_5, + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_6, + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_6, + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_7, + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_7, + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_8, + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_8, + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_9, + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_9, + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_10, + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_10, + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_11, + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_11, + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_12, + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_12, + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_13, + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_13, + '[FIBU2].dbo.fibu_periodensaldo.eur_eroeff, + '[FIBU2].dbo.fibu_periodensaldo.eur_abschluss, + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_1, + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_1, + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_2, + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_2, + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_3, + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_3, + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_4, + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_4, + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_5, + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_5, + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_6, + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_6, + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_7, + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_7, + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_8, + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_8, + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_9, + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_9, + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_10, + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_10, + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_11, + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_11, + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_12, + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_12, + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_13, + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_13, + '[FIBU2].dbo.fibu_periodensaldo.i_buchungskreis) + + 'VALUES ( + '@MandantNr, + '@Jahr, + '@Schleifenkonto, + '0, + '@dec_aktuellersaldo, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '@dec_aktuellersaldo, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '0, + '1) + + End Sub Private Shared Sub createOP_new(mandant As Integer, Betrag As Double, BelegNrText As String, datumKurz As String, BelegNr As String, Buchungstext As String, Buchungsbetrag As Double, Waehrung As String, Personenkonto As Integer, Forderungskonto As Integer, i_op_refid As String, c_op_Typ As Char, Sprache As String, Zahlungsziel As String, Skonto As String, Skontodatum As String, Nettodatum As String, c_ustidnr As String, c_urbelegid As String) diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index 3f7d1fca..fc3dd1a2 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -8,6 +8,8 @@ Public Class frmAbrechnungsMaske Dim loaded = False + Dim FilialNrRestriction As Integer = -1 + Private Sub frmAbrechnungsMaske_Load(sender As Object, e As EventArgs) Handles Me.Load 'Größe anpassen: @@ -50,16 +52,6 @@ Public Class frmAbrechnungsMaske FirmaTmp = "VERAGIMEX" End If - 'If Not IsDBNull(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) AndAlso CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) = 19 Then - ' FirmaTmp = "VERAG360" - 'End If - - - - 'If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then - 'FirmaTmp = "AMBAR" - 'End If - cboSachbearbeiter.Items.Clear() Select Case FirmaTmp @@ -107,10 +99,11 @@ Public Class frmAbrechnungsMaske cboFirma.changeItem("24") cboSachbearbeiter.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma='AMBAR' and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True) - 'Case "VERAG360" - ' cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID=19", False, "FMZOLL") - ' cboFirma.changeItem("19") - ' MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where isnull(mit_firmaFMZoll,0)=19 and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True) + Case "ATILLA" + cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID=7", False, "FMZOLL") + cboFirma.changeItem("7") + cboSachbearbeiter.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where isnull(mit_firmaFMZoll,0)=7 and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True) + FilialNrRestriction = 4813 Case "VERAGIMEX" Dim whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE') " @@ -197,7 +190,7 @@ Public Class frmAbrechnungsMaske If cbxGutschriftenAnVerag.Checked AndAlso cboFirma._value <> "" AndAlso cboFirma._value = "24" Then sqlstr &= " SELECT R1.FilialenNr, R1.AbfertigungsNr, cast(R1.FilialenNr as varchar) + ' ' + cast(R1.AbfertigungsNr as varchar) as PosNr, R1.UnterNr, Firma_ID,R1.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr FROM Rechnungsausgang as R1 INNER JOIN Adressen ON AdressenNr=R1.RechnungsKundenNr inner Join Speditionsbuch on Speditionsbuch.FilialenNr = R1.FilialenNr And Speditionsbuch.AbfertigungsNr = R1.AbfertigungsNr and Speditionsbuch.UnterNr = R1.SpeditionsbuchUnterNr " sqlstr &= " WHERE 1=1 AND R1.Firma_ID=24 " - sqlstr &= getRGWhere(cboER_SR._value) + sqlstr &= getRGWhere(cboER_SR._value, FilialNrRestriction) sqlstr &= " and (SELECT COUNT(*) FROM Rechnungsausgang as R2 where" sqlstr &= " R1.FilialenNr=R2.FilialenNr and R1.AbfertigungsNr=R2.AbfertigungsNr and R1.SpeditionsbuchUnterNr=R2.SpeditionsbuchUnterNr AND (RechnungsKundenNr=3013401 OR RechnungsKundenNr = 3017683) and R2.[BelegartenNr]=71)=0" sqlstr &= " and Speditionsbuch.Abfertigungsart IN (1)" @@ -211,7 +204,7 @@ Public Class frmAbrechnungsMaske sqlstr &= " FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=Rechnungsausgang.RechnungsKundenNr" sqlstr &= " WHERE 1=1 " - sqlstr &= getRGWhere(cboER_SR._value) + sqlstr &= getRGWhere(cboER_SR._value, FilialNrRestriction) ' sqlstr &= " AND (SteuerpflichtigerGesamtbetrag<>0 OR SteuerfreierGesamtbetrag<>0)" sqlstr &= " ORDER BY FilialenNr, AbfertigungsNr, UnterNr " End If @@ -273,7 +266,7 @@ Public Class frmAbrechnungsMaske End With End Sub - Function getRGWhere(filterSR) + Function getRGWhere(filterSR As String, Optional filialenNr As Integer = -1) Dim sqlstr = "" Dim srchSB = "" ' "NÖBAUER ANJA" 'VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME srchSB = cboSachbearbeiter._value @@ -288,6 +281,10 @@ Public Class frmAbrechnungsMaske End Select + If filialenNr > 0 Then + sqlstr &= " AND Rechnungsausgang.FilialenNr = " & filialenNr + End If + If cbx.Checked Then 'sqlstr &= " AND Status = 0 " @@ -417,7 +414,7 @@ Public Class frmAbrechnungsMaske 'Exit Sub Dim PARAM_printZollbeleg = VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg") - Dim dt = SQL.loadDgvBySql("SELECT RK_ID,Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER") & orderBy, "FMZOLL") + Dim dt = SQL.loadDgvBySql("SELECT RK_ID,Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER", FilialNrRestriction) & orderBy, "FMZOLL") If dt IsNot Nothing Then If vbYes = MsgBox("Es werden " & dt.Rows.Count & " Rechnungen gedruckt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then @@ -441,7 +438,7 @@ Public Class frmAbrechnungsMaske Function print_Anlagen() As Boolean Dim erg = True - Dim dt = SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE Status=0 " & getRGWhere("SR") & " ORDER BY [BelegartenKz] DESC, FilialenNr, AbfertigungsNr, [RK_ID]", "FMZOLL") + Dim dt = SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE Status=0 " & getRGWhere("SR", FilialNrRestriction) & " ORDER BY [BelegartenKz] DESC, FilialenNr, AbfertigungsNr, [RK_ID]", "FMZOLL") If dt IsNot Nothing Then If vbYes = MsgBox("Es werden " & dt.Rows.Count & " Rechnungen gedruckt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then For Each r In dt.Rows diff --git a/SDL/Fakturierung/frmRechnungenSuche.vb b/SDL/Fakturierung/frmRechnungenSuche.vb index 35245d53..4fa0ddb2 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.vb @@ -254,6 +254,11 @@ Public Class frmRechnungenSuche Case "IMEX" cboFiliale.changeItem("5501") cboFiliale.Enabled = False + Case "ATILLA" + cboFiliale.changeItem("4813") + cboFiliale.Enabled = False + cboFirma.changeItem("7") + cboFirma.Enabled = False Case "VERAGIMEX" ' cboFiliale.changeItem("5501") End Select diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index a61ee201..5b34079e 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -525,7 +525,7 @@ Public Class usrCntlFaktAbrechnung GutschriftAnVeragToolStripMenuItem.Visible = False If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then - cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN(4801,4802, 4806) ORDER BY FilialenNr ", True, "FMZOLL", True) + cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN(4801,4802, 4813) ORDER BY FilialenNr ", True, "FMZOLL", True) Else cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) End If diff --git a/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.Designer.vb b/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.Designer.vb index 96a36b42..0be3f944 100644 --- a/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.Designer.vb +++ b/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.Designer.vb @@ -63,6 +63,7 @@ Partial Public Class rptLeihgeldBeleg Me.lblKbNr = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.txtFrachtfuhrer = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() Me.lblBetragSum = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblBetragSteuern = New GrapeCity.ActiveReports.SectionReportModel.Label() @@ -78,7 +79,6 @@ Partial Public Class rptLeihgeldBeleg Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.lblSachbearbeiter2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.lblFahrer2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() - Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label() CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit() @@ -118,6 +118,7 @@ Partial Public Class rptLeihgeldBeleg CType(Me.lblKbNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtFrachtfuhrer, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblBetragSum, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblBetragSteuern, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblGesamtbetrag, System.ComponentModel.ISupportInitialize).BeginInit() @@ -129,7 +130,6 @@ Partial Public Class rptLeihgeldBeleg CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSachbearbeiter2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblFahrer2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'PageHeader @@ -265,7 +265,7 @@ Partial Public Class rptLeihgeldBeleg 'ReportHeader1 ' Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblFirma_Details, Me.Label2, Me.Label3, Me.lblRgDatum, Me.lblRgNr, Me.Label25, Me.lblFirma_Name, Me.lblTitel, Me.lblUhrzeit, Me.lblSachbearbeiter, Me.Label26, Me.lblPosNr, Me.Label28, Me.Label11, Me.Label12, Me.lblFahrer, Me.lblFrachtf, Me.Label15, Me.lblLKWKz, Me.Label14, Me.lblPassnummer, Me.Label20, Me.lblUID, Me.Label10, Me.lblKdNr, Me.lblFirma, Me.Line5, Me.QR, Me.lblKbNr, Me.txtFrachtfuhrer, Me.Label7, Me.Label13}) - Me.ReportHeader1.Height = 4.490026! + Me.ReportHeader1.Height = 4.458776! Me.ReportHeader1.Name = "ReportHeader1" ' 'picVERAG @@ -444,18 +444,19 @@ Partial Public Class rptLeihgeldBeleg Me.Label12.Name = "Label12" Me.Label12.Style = "font-size: 10pt; font-weight: normal; text-align: left" Me.Label12.Text = "Fahrer:" - Me.Label12.Top = 3.414961! + Me.Label12.Top = 3.478741! Me.Label12.Width = 1.28937! ' 'lblFahrer ' + Me.lblFahrer.DataField = "" Me.lblFahrer.Height = 0.1968501! Me.lblFahrer.HyperLink = Nothing Me.lblFahrer.Left = 1.49252! Me.lblFahrer.Name = "lblFahrer" - Me.lblFahrer.Style = "font-size: 10pt; font-weight: normal; text-align: left" + Me.lblFahrer.Style = "color: Black; font-size: 12pt; font-weight: normal; text-align: left" Me.lblFahrer.Text = "-" - Me.lblFahrer.Top = 3.414961! + Me.lblFahrer.Top = 3.478741! Me.lblFahrer.Width = 3.756299! ' 'lblFrachtf @@ -477,18 +478,19 @@ Partial Public Class rptLeihgeldBeleg Me.Label15.Name = "Label15" Me.Label15.Style = "font-size: 10pt; font-weight: normal; text-align: left" Me.Label15.Text = "LKW-Kennzeichen:" - Me.Label15.Top = 3.21811! + Me.Label15.Top = 3.28189! Me.Label15.Width = 1.28937! ' 'lblLKWKz ' + Me.lblLKWKz.DataField = "" Me.lblLKWKz.Height = 0.1968501! Me.lblLKWKz.HyperLink = Nothing Me.lblLKWKz.Left = 1.49252! Me.lblLKWKz.Name = "lblLKWKz" - Me.lblLKWKz.Style = "font-size: 10pt; font-weight: normal; text-align: left" + Me.lblLKWKz.Style = "color: Black; font-size: 12pt; font-weight: normal; text-align: left" Me.lblLKWKz.Text = "-" - Me.lblLKWKz.Top = 3.21811! + Me.lblLKWKz.Top = 3.28189! Me.lblLKWKz.Width = 3.756299! ' 'Label14 @@ -499,18 +501,19 @@ Partial Public Class rptLeihgeldBeleg Me.Label14.Name = "Label14" Me.Label14.Style = "font-size: 10pt; font-weight: normal; text-align: left" Me.Label14.Text = "Passnummer:" - Me.Label14.Top = 3.611811! + Me.Label14.Top = 3.675591! Me.Label14.Width = 1.28937! ' 'lblPassnummer ' + Me.lblPassnummer.DataField = "" Me.lblPassnummer.Height = 0.1968501! Me.lblPassnummer.HyperLink = Nothing Me.lblPassnummer.Left = 1.49252! Me.lblPassnummer.Name = "lblPassnummer" - Me.lblPassnummer.Style = "font-size: 10pt; font-weight: normal; text-align: left" + Me.lblPassnummer.Style = "color: Black; font-size: 12pt; font-weight: normal; text-align: left" Me.lblPassnummer.Text = "-" - Me.lblPassnummer.Top = 3.611811! + Me.lblPassnummer.Top = 3.675591! Me.lblPassnummer.Width = 3.756299! ' 'Label20 @@ -586,7 +589,7 @@ Partial Public Class rptLeihgeldBeleg ' Me.QR.Height = 1.181102! Me.QR.HyperLink = Nothing - Me.QR.ImageData = Nothing + Me.QR.ImageBase64String = resources.GetString("QR.ImageBase64String") Me.QR.Left = 5.318898! Me.QR.Name = "QR" Me.QR.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom @@ -609,8 +612,9 @@ Partial Public Class rptLeihgeldBeleg Me.txtFrachtfuhrer.Height = 0.148031! Me.txtFrachtfuhrer.Left = 1.49252! Me.txtFrachtfuhrer.Name = "txtFrachtfuhrer" + Me.txtFrachtfuhrer.Style = "font-size: 12pt" Me.txtFrachtfuhrer.Text = Nothing - Me.txtFrachtfuhrer.Top = 3.0063! + Me.txtFrachtfuhrer.Top = 3.07008! Me.txtFrachtfuhrer.Width = 3.756299! ' 'Label7 @@ -621,9 +625,20 @@ Partial Public Class rptLeihgeldBeleg Me.Label7.Name = "Label7" Me.Label7.Style = "font-size: 10pt; font-weight: bold; text-align: left" Me.Label7.Text = "Frächter:" - Me.Label7.Top = 3.0063! + Me.Label7.Top = 3.07008! Me.Label7.Width = 1.28937! ' + 'Label13 + ' + Me.Label13.Height = 0.2! + Me.Label13.HyperLink = Nothing + Me.Label13.Left = 0.02047244! + Me.Label13.Name = "Label13" + Me.Label13.Style = "font-size: 12pt; font-weight: bold; text-align: left" + Me.Label13.Text = "GILT AUCH ALS RECHNUNG" + Me.Label13.Top = 1.197244! + Me.Label13.Width = 3.190945! + ' 'ReportFooter1 ' Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblBetragSum, Me.lblBetragSteuern, Me.lblGesamtbetrag, Me.lblTextSteuern, Me.Label24, Me.lblStorno, Me.Line1, Me.Label1, Me.Label8, Me.Label9, Me.Line2, Me.Line3, Me.lblSachbearbeiter2, Me.lblFahrer2}) @@ -720,7 +735,6 @@ Partial Public Class rptLeihgeldBeleg Me.Label1.HyperLink = Nothing Me.Label1.Left = 0! Me.Label1.Name = "Label1" - Me.Label1.ShrinkToFit = True Me.Label1.Style = "font-size: 10pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" & "-char-set: 1; ddo-shrink-to-fit: true" Me.Label1.Text = "Wir bestätigen, den o.g. Betrag von der Firma VERAG Spedition AG erhalten zu habe" & @@ -734,7 +748,6 @@ Partial Public Class rptLeihgeldBeleg Me.Label8.HyperLink = Nothing Me.Label8.Left = 0! Me.Label8.Name = "Label8" - Me.Label8.ShrinkToFit = True Me.Label8.Style = "font-size: 10pt; font-weight: bold; text-align: center; vertical-align: middle; d" & "do-char-set: 1; ddo-shrink-to-fit: true" Me.Label8.Text = "ausbezahlt von:" @@ -747,7 +760,6 @@ Partial Public Class rptLeihgeldBeleg Me.Label9.HyperLink = Nothing Me.Label9.Left = 3.518898! Me.Label9.Name = "Label9" - Me.Label9.ShrinkToFit = True Me.Label9.Style = "font-size: 10pt; font-weight: bold; text-align: center; vertical-align: middle; d" & "do-char-set: 1; ddo-shrink-to-fit: true" Me.Label9.Text = "Betrag erhalten:" @@ -786,7 +798,6 @@ Partial Public Class rptLeihgeldBeleg Me.lblSachbearbeiter2.HyperLink = Nothing Me.lblSachbearbeiter2.Left = 0! Me.lblSachbearbeiter2.Name = "lblSachbearbeiter2" - Me.lblSachbearbeiter2.ShrinkToFit = True Me.lblSachbearbeiter2.Style = "font-size: 10pt; font-weight: normal; text-align: center; text-justify: auto; ver" & "tical-align: top; ddo-char-set: 1; ddo-shrink-to-fit: true" Me.lblSachbearbeiter2.Text = "Maximilian Mustermann ( SUB ) ( 1234 )" @@ -799,24 +810,12 @@ Partial Public Class rptLeihgeldBeleg Me.lblFahrer2.HyperLink = Nothing Me.lblFahrer2.Left = 3.522048! Me.lblFahrer2.Name = "lblFahrer2" - Me.lblFahrer2.ShrinkToFit = True Me.lblFahrer2.Style = "font-size: 10pt; font-weight: normal; text-align: center; text-justify: auto; ver" & "tical-align: top; ddo-char-set: 1; ddo-shrink-to-fit: true" Me.lblFahrer2.Text = "Maximilian Mustermann ( SUB ) ( 1234 )" Me.lblFahrer2.Top = 3.062599! Me.lblFahrer2.Width = 2.635433! ' - 'Label13 - ' - Me.Label13.Height = 0.2! - Me.Label13.HyperLink = Nothing - Me.Label13.Left = 0.02047244! - Me.Label13.Name = "Label13" - Me.Label13.Style = "font-size: 12pt; font-weight: bold; text-align: left" - Me.Label13.Text = "GILT AUCH ALS RECHNUNG" - Me.Label13.Top = 1.197244! - Me.Label13.Width = 3.190945! - ' 'rptLeihgeldBeleg ' Me.MasterReport = False @@ -877,6 +876,7 @@ Partial Public Class rptLeihgeldBeleg CType(Me.lblKbNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtFrachtfuhrer, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblBetragSum, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblBetragSteuern, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblGesamtbetrag, System.ComponentModel.ISupportInitialize).EndInit() @@ -888,7 +888,6 @@ Partial Public Class rptLeihgeldBeleg CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSachbearbeiter2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblFahrer2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit() End Sub diff --git a/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.resx b/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.resx index 0829b1db..b453cf11 100644 --- a/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.resx +++ b/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.resx @@ -121,9 +121,12 @@ Wir arbeiten ausschließlich auf Grund der Allgemeinen Österreichischen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten, Spesen und Zinsen zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding - + iVBORw0KGgoAAAANSUhEUgAACToAAAGSCAYAAADJzuyaAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AACSnklEQVR4XuzdC7xtU93/8XM4DodTLiG3pEguFV2crkoX8qR6JEkXPd3The6l+6lUukl3Eql2RalUKt2kO0noIiJJiSQioePw/39/ltPac6/v3mfttccca8w5P71e79f/9R8Pe4z1m2MuY63xXXPM+3//7/8BAAAAAAAAAAAAAAAAQNFsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDbmNG/JUgAAAAAAAAAAgCZYUzaXnWR3eaq8UF4j75APy6flK3KK/FjOkt/KRXKJ/PNWN8j/QzY3yorahz9JXJNwjsR1+oXEdfuWnCCfk2PkQ/JeWSovlWfLvrKHPER2kDvIWuLmTee4PUEAAIAUbGNObvEDAAAAAAAAAACQ0aqyhewsT5JXyfvli3KaRCjmOnEBGmCy/8hf5TfyQ/m8fFAiDPcMiYDcPWRdcXOxFdyeIAAAQAq2MSe3+AEAAAAAAAAAAKjBJrKbHCARZDpRzpVl4kIrQJ3iyVLxJKkvy6ESTwfbRTYQN38bw+0JAgAApGAb66BFzU/ELeJQdb1sLAOLQqBQq8jZ4uYzeriv03mJuBoDaKZ4BLy711GW+NLVXT+gbaYeX/EriQ2HOGrkmxK/wj5aDpM3yyvk/+TRcn/ZWm4n7j4CgGEsEff+hDTifT2+w3C1B9BOCyWOl9tf4tixOI7sSnHvEUCJ/i4xbyMAFcfk3VncXC+S2ysEAABIwTbWQYuaB4tbqGFQfOgaWBQChYpH7bp5jL5DxNUOs0fQCWgXgk7NQNAJmJ14EsDF8jM5XuLz3UGyj8RGG2EoANOJo23c+wrSeZq42gNoh63kKRJHhJ0qcXyYey8AmizCT/F9SnxPejeZL+5+GDu3VwgAAJCCbayLFjbxK1i3MENVfDF+RxlYGAKFWVMuETeP0RObw+uIqx9mj6AT0C4EnZqBoBOQ3jVyphwrb5THy/aymrj7EED7PUbc+wXSiif2xRNe3DUA0DzxHfrT5RiJ+9vd90Db/U0+LXvLYnH3yli4fUIAAIAUbGNdtLC5p7iFGAbFh7OBhSFQmDeIm7/oi1/vu9phNASdgHYh6NQMBJ2AfG6UX8qREkesxBOgVhd3bwJojwXyW3HvC0jvxeKuA4DyxfvlLvJeOU/cPQ502Q3yNXmqxI+U3X2UjdsnBAAASME21kmLm+PELcBQtVy2lYHFIVCIjeRacfMXPZfKInH1w2gIOgHtQtCpGQg6AeMVmxVxnNXbZHe5rbh7FUBzPUvc/Y96xJE/txF3LQCUJ0Lfj5PPyJXi7msAg/4lR8vO4u6t2rk9QgAAgBRsY520uNlaIsTjFl6o+rwMLA6BQhwubt6i73niaofREXQC2oWgUzMQdALKEp+nI/j0OrmXzBd37wJohvhxDEfC5/dmcdcDQBlWkXhyUzzl8ipx9zGA4cWx2U+TrMe3uj1CAACAFGxj3bTAiQ8obrGFQXHc38ACERiz7YTA4swukHictqsfRkfQCWgXgk7NQNAJKNtlEj9CeLjEpqC7jwGUK0KL7t5GveIJ1RuKuyYAxifuy3hfvFjcvQtgbv4q8f1qllMI3P4gAABACraxblrg3EGuF7fQQtU3ZGCBCIzZieLmK/qeKK52mBuCTkC7EHRqBoJOQHPExsUHhB/MAM2wvlwt7n5G/eL90l0XAPk9QOJoumXi7lcAaUWY8LlS6w913f4gAABACrYxBy1yDhW3wMKgB8rAIhEYk/iluJun6PulcIRIPQg6Ae1C0KkZCDoBzXSGxObFbcTd2wDGL4I27v5FHhGouLO4awMgj/ie8RRx9yiA+v1aatt/cnuDAAAAKdjGHLTIiV+tXSNucYWq+LA3sEgExiCOwogQj5un6HukuPph7gg6Ae1C0KkZCDoBzRb38DtkI3H3OIDx2FJ4csn4TYi7PgDqFd+dnSruvgSQ38dlHXH368jc3iAAAEAKtjEXLXSWiltUYRDBCZRgP3HzE33fF1c7pEHQCWgXgk7NQNAJaIcb5HDZRNy9DiCvY8Xdq8jrZtlB3DUCkN728i1x9yOA8fqTJH26k9sXBAAASME25qKFzmK5QtyiClWnC0dhYZwWyZ/FzU/03U9c/ZAGQSegXQg6NQNBJ6BdrpODZW1x9zyA+t1H3P2J8fi6uOsEIJ3byUdlubj7EEAZ4h59gyTZi3L7ggAAACnYxpy02HmpuAUVBu0pA4tFIJPXipuX6PuyuNohHYJOQLsQdGoGgk5AO10uTxJ33wOo18ni7kuMz4PFXSsAcxffaV8m7t4DUKbjZE1x9/TQ3J4gAABACrYxJy124ikxF4tbTKHqHFlFBhaMQM02lGvEzUv0xK9dthNXP6RD0AloF4JOzUDQCWi3b8rm4u5/AOntIe5exHj9TNz1AjC6eIrTZ8TdcwDK93PZSNz9PRS3JwgAAJCCbczp1gXPs8QtpDBoP6ksFoEMPiRuPqLvE+Jqh7QIOgHtQtCpGQg6Ae13lTxO3HsAgHTix2u/FncfYvx4kjqQzoPkL+LuNQDNcYFsJu4+Xym3JwgAAJCCbczp1gXPAjlP3EIKVbGwXE0qC0agRncVzs+f2Q3Cr+DzIOgEtAtBp2Yg6AR0x2HC502gPs8Ud++hDPEk9VXFXTsAw4vvbvguEWiPkcNObk8QAAAgBduY06RFzz7iFlEYtL9Mrh1Qp6+Im4foO1Rc7ZAeQSegXQg6NQNBJ6BbTpLF4t4PAIxukfB0k/JFGM1dPwArF2Hpo8TdWwCaLcJOG4i796fl9gQBAABSsI05TVr0zJczxS2iUBVfjMUXZJPrB9ThIeLmIPqukfXF1Q/pEXQC2oWgUzMQdAK65xcy640MADN6tbj7DWW5WPjODZi9NeVb4u4rAO1wmsS97t4DLLcnCAAAkIJtzGnKwmd3cQsoDHqpTK0fkFKED2ODw80/9L1RXP1QD4JOQLsQdGoGgk5AN/1aCDsBadxO+O9pc7xc3HUE4K0tPxF3PwFolzj9IfYN3HvBALcnCAAAkIJtzMksfk4Rt4BC1RXCcQKo05PFzT30XS7ch3kRdALahaBTM7AxC3RX/PAhNi/dewOA4cVx5+4eQ5niO7d1xF1LAFW3kXjKi7uXALTT68S9Hwxwe4IAAAAp2MaczOLnAeIWTxjEk2RQlzXkInHzDn0Hiqsf6kPQCWgXgk7NQNAJ6LYfyGri3h8ArNydZJm4+wvlepu46wmgb6F8T9w9BKC9bpKHiHtfqHB7ggAAACnYxpzc4ke+Jm4BharYdFpPXA2BuXiVuDmHvj9KfKHj6of6EHQC2oWgUzMQdALwUXHvDwBW7jPi7iuU7d+ysbhrCqB3dNVx4u4fAO13qawr7v3hv9yeIAAAQAq2MSe3+JEd5GZxCyhUHSKuhsCo1hc2NFfuaeLqh3oRdALahaBTM7AuABCeK+49AsD07iXufkIzfETcdQWwZOnrxd03ALrjGHHvD//l9gQBAABSsI05ucXPrfjF23CuE35hhpQ+IG6uoe/Xsoq4+qFeBJ2AdiHo1AwEnQCE62Vbce8TALzviruf0Aw3ylbiri3QZY8WfqQMIOwm7n3iFm5PEAAAIAXbmJNb/NwqvkiILxTc4glVHxRXQ2C27iLLxM0z9D1GXP1QP4JOQLsQdGoGgk4AVvilrCbuvQJA1SPF3Udoljiay11foKviO3s+HwBY4UJZKO79wu4JAgAApGAbc3KLn0kOF7d4QlUEUzYXV0NgNr4obo6h7yfiaoc8CDoB7ULQqRnYyAAw2ZvFvVcA6IsnAJ8t7h5C88QRhO46A12zqvxM3H0CoLteLu49w+4JAgAApGAbc3KLn0niSLZ4PL5bPKFqpechAyvxIHFzC1U7i6sf8iDoBLQLQadmIOgEYLIbZEtx7xcAep4m7v5BM31b3HUGuub14u4RAN12lawnA+8bbk8QAAAgBduYk1v8TPFOcYsnVC2XbcTVEFiZ+XKauLmFvq+Lqx/yIegEtAtBp2Yg6ARgKtbFwPQWycXi7h0018PFXW+gK+4pN4q7PwDgEBl473B7ggAAACnYxpzc4meKSIKzuTKc48TVEFiZfcTNKfTdLDuIqx/yIegEtAtBp2ZgLQ7AeaS49wyg614p7p5Bs50u8SMxd82BtovjOPmBJICZXCPrSOX9w+0JAgAApGAbc5q68JkGj8UdXvy6xtUQmM5CuVDcfELfhLj6IS+CTkC7EHRqBoJOAJzY8GTTH6haV+L4FnfPoPn2FnfdgbZ7jrh7AgAme51U3j/cniAAAEAKtjGnqQufaSyWv4lbPKGKIwQwWy8XN5fQt0y2FFc/5EXQCWgXgk7NQNAJwHT2FPe+AXTVe8TdK2iH82SBuGsPtFUEOC8Xd08AwGR/l9Xlv+8hbk8QAAAgBduY0+RFz0ocKG7xhEEPEFdDYKo4GpJfm67ch8TVD/kRdALahaBTMxB0AjCdM8S9bwBddEe5Qdy9gvZ4rrjrD7TV+8TdCwDg7CP/fQ9xe4IAAAAp2MacJi96ViKO1/qTuMUTqk4RV0NgqkPFzSH0XSsbiasf8iPoBLQLQadmIOgEYCY7i3vvALrm0+LuEbTLX2WRuDkAtM3Gcr24ewEAnO/Jf99H3J4gAABACrYxp8mLniE8XdziCYN2FVdDYIU7SxzJ5uYP+g4WVz+MB0EnoF0IOjUDQScAMzle3HsH0CU7ys3i7hG0z6vFzQOgbQ4Tdw8AwEy2klveR9yeIAAAQAq2MacVC54hrSrniFs8oeo0mS+ujkD4vLi5g74rZB1x9cN4EHQC2oWgUzMQdAIwk+VyB3HvH0BXfEfc/YF2irXRuuLmAtAWmwtPcwIwijfILe8lbk8QAAAgBduY04oFzyzsJW7xhEF7iqshcH9xcwZVrxBXP4wPQSegXQg6NQNBJwAr8zpx7x9AFzxC3H2BdnuXuPkAtEXMcTf3AWBlzpJb3kvcniAAAEAKtjGnFQueWYinFP1c3AIKVb+RVcTVEd0V99BPxM0Z9P1ZFomrIcaHoBPQLgSdmoGgE4CVOU/c+wfQdvGdyy/F3Rdot3jSzabi5gXQdGvJVeLmPgAMY0uxe4IAAAAp2MacYrEzAn4tN7yniKshuuvx4uYKqp4lrn4YL4JOQLsQdGoGgk4AhrFE3HsI0GZPFXc/oBuOFDcvgKbbX9ycB4BhvVLsniAAAEAKtjGnWOyM6GRxCyhUXSALxNUQ3bNQzhc3V9B3rnDflImgE9AuBJ2agaATgGEcKu49BGir1eUicfcDumG5bCNufgBNFU+C/524OQ8Aw/qO2D1BAACAFGxjTrHYGdF9xS2gMOh54mqI7nmxuDmCqnjqlasfxo+gE9AuBJ2agaATgGHEj2zcewjQVi8Xdy+gW74obn4ATfUAcXMdAGbjBlnD7QkCAACkYBtz0mJnLmJzzC2iUPVnWSSuhuiOdeQf4uYI+n4u8es1V0OMH0EnoF0IOjUDQScAw9pO3PsI0Dbx+fpKcfcBuoejO9Emh4ub5wAwW49we4IAAAAp2MactNiZi/gS9WZxiyhURTjA1RDd8R5xcwNVDxdXP5SBoBPQLgSdmoGgE4BhHSTufQRom3eKuwfQTSeLmydA08SRnFeJm+cAMFtvd3uCAAAAKdjGnLTYmatPiltEoeoKWSyuhmi/LSQeF+vmBvpuOTscRSPoBLQLQadmIOgEYFjfFfc+ArTJHeR6cfcAums3cfMFaJLHi5vfADCK77o9QQAAgBRsY05a7MzVnWSZuIUUqt4groZov8+KmxOouo+4+qEcBJ2AdiHo1AwEnQAM6zpZKO69BGiLY8TNf3TbmcIx+Gi6Y8XNbwAYxTWyitsXBAAAmCvbmJMWOil8UNxCClWxSbWuuBqivXYSNx9Q9QVx9UNZCDoB7ULQqRkIOgGYjQeJey8B2uAecrO4uQ88Sdy8AZpgNbla3NwGgFFt5/YFAQAA5so25qSFTgoby7XiFlKoOkRcDdFePxI3F9C3XLYWVz+UhaAT0C4EnZqBoBOA2Xi9uPcSoA2+KW7eA+ECibCImztA6XYVN68BYC72c/uCAAAAc2Ubc9JCJ5W3i1tIoerfEsEwV0O0z+PEzQNUHSmufigPQSegXQg6NQNBJwCz8XVx7yVA0z1c3JwHJnuhuPkDlI4TEwDU4RC3LwgAADBXtjEnLXRSWUfYhBnOB8TVEO2yQM4TNwfQd71sKq6GKA9BJ6BdCDo1A2tsALNxmbj3EqDJ5ssvxM15YLJLZbG4eQSU7I/i5jQAzMVX3b4gAADAXNnGnLTQSekgcYspVC2TzcXVEO3xInHXH1XvElc/lImgE9AuBJ2agaATgNnihwRomyeJm+uAwxGeaJotxM1lAJirC92+IAAAwFzZxpy00ElpkcQvp9yCClVHi6sh2mFt+bu4a4++2LhdT1wNUSaCTkC7EHRqBoJOAGbrseLeT4AmWigXipvrgBNrp/XFzSegRE8XN5cBYK5uljXc3iAAAMBc2MactMhJ7QXiFlSoWi5bi6shmu8QcdcdVa8VVz+Ui6AT0C4EnZqBoBOA2XqDuPcToIn4DIJRHCpuPgElOkbcPAaAFLZxe4MAAABzYRtz0iIntfil3R/ELahQday4GqLZ4ljC68Vdc/TF09/WEldDlItNBqBdCDo1A0EnALM1Ie79BGiadeQKcfMcmMkNEt/PuHkFlOYicfMYAFLY3e0NAgAAzIVtzEmLnDrsJ25Bhap4bOg9xdUQzfVpcdcbVfH0N1c/lI2gE9AuBJ2agaATgNn6pbj3E6Bp3i5ujgPD+IS4eQWUZGNx8xcAUtnf7Q0CAADMhW3MSYucOqwivxa3qELV18TVEM10b4kAm7vW6LtAVhNXQ5SNoBPQLgSdmoGgE4DZulbc+wnQJJsKT0ue3nWmDVU3yfbi5hdQiseKm78Yr3j/iKfR/0K+Lh+Td8rr5cXydHmcPELuKzvKnWSLW91R4qmETbaurHg9Id5P40fbu8jusqf8nzxXDpJ3ycclvmf4kZwj/xBXX+T1drc3CAAAMBe2MSctcuryv+IWVRh0P3E1RPN8X9w1RtWTxdUP5SPoBLQLQadmIOgEYBSbiHtPAZriKHFzGz1PktiAd/839H1F3PwCSvEWcXMX9YvPWT+UI+WVspfcR+IpW6uKu16YvbVkG3mkPFtizn9BIgi1XNy1QVqfcnuDAAAAc2Ebc9Iip06niltYoeoUcfVDszxG3PVF1ZkST31zNUT5CDoNasOv9NBd8YWju9dRFoJOAEbBD2rQZHeTeJqGm9tYsvQMmS8PndSG6T1A3DwDShBPC3LzFmnF0y6/LQdLfIe7mbjrgbwWyj3kKXK4/E7c9cPcfNPtDQIAAMyFbcxJi5w6xWNM3cIKg+Ixt66GaIYFwgex4TxKXA3RDASdBkVYxNUKAFIh6FR1sUwN7aEZbidx7EUc7RHHXTxT4giQ2OD7q7jrjdE9Udx7CtAEJ4qb1+iZ/B0StVq5eGLL5PkFlOQycfMWc/dLeZM8UOK7W1d/lGcD2Vs+LVeKu7aYndPd3iAAAMBc2MactMip27fELa5QFU+/il/juRqifPuLu66o+oG4+qE5CDoNio1bVysASIWgU9VF4uqE5osjLQ6QWDO6a4/ZeYW4OgOl40dzM/uuTK5XPP2Ko39W7tEyuW5ACdYXN18xunPltbK5uJqjWVaXCO/z+WBuLnZ7gwAAAHNhG3PSIqdu9xa3uMKgPcXVEGW7jfxN3DVF1f3F1RDNQdBpEEEnAHUj6FRF0KkbtpTD5Hpx8wAr9wFxtQVKFj8AO13cnEZPfM82tW4fF/fPou9XwjH6KM2Dxc1XzN5JsqvwQ+L2iu+Vfyru+mNm17u9QQAAgLmwjTlpkZPD8eIWWKj6tfClS/PE2e7ueqLqK+Lqh2Yh6DSIoBOAuhF0qiLo1C0byzHi5gJmdpy4mgIle4K4+YyeY8XVbRP5t7h/B337iasfMC7PETdXMbwIvsTRdK6+aJ8Ish0o/xE3HzC9BW5/EAAAYFS2MSctcHLYVniM9nCeLK6GKNNmwq/MV+5m2V5cDdEsBJ0GEXQCUDeCTlUEnbopnn77D3FzAt7U462A0i2UC8TNZyxZuky2Ele78FZx/x76/igxz1z9gHF4n7i5ipWL72NfJPxouJvuK38XNzfgreP2BwEAAEZlG3PSAieXo8UtsFAVX+otEFdDlOcT4q4jquJX+K5+aB6CToMIOgGoG0GnKoJO3bW1xCa1mxcYFE8MdnUESnWAuLmMng+Jq9sKHKs/nBeLqx8wDt8UN08xsz/LPcXVFN2xjfDfveHd0e0PAgAAjMo25qQFTi6bC48UHc5zxdUQZdlB4klF7hqiL351ekdxNUTzEHQaRNAJQN0IOlURdOq2LeSv4uYGqqJOroZAiW4rPJlhetfKRuJqN9kLxf376It5tlhc/YDczhU3TzG9+JFwPGHf1RPdcy/h6NbhbO/2BwEAAEZlG3PSAienw8QtslB1sSwSV0OUI46CcNcPVXHfu/qhmQg6DSLoBKBuBJ2qCDohjqq4Udz8QF/84MDVDyjRweLmMXreIq5uU8UTws8T9zfQt1Rc/YDc4vg1N0fhxTHGMx3hiW56hrj5gqqd3P4gAADAqGxjTlrg5LSBxK/Q3EILVREmcDVEGR4l7rqhKu73uO9dDdFMBJ0GEXQCUDeCTlUEnRAIRQxnobj6ASXZRK4TN4fRewJRHEvnauc8TtzfQV98V7GhuPoBucT3ZW5+Ynq7iqsl8HVxcwZ9u7j9QQAAgFHZxpy0wMktfoXmFlqoulx4lHaZVpXfiLtuqOJXku1D0GkQQScAdSPoVEXQCWF1+YO4OYI+1ilogiPFzV/0HCiubjP5sbi/hb4PiKsdkMu9xc1NeIeKqyMQtpR4mqmbO+gh6AQAAJKyjTlpgZPb2nKFuMUWql4nroYYr2eLu16oivucsF77EHQaxAYigLoRdKoi6IQVni5ujqBvC3G1A0qxrSwXN3+xZOkfZZQns91f3N9DX2yI30lc/YAcePra8P4sa4mrI7DCEeLmD3oIOgEAgKRsY05a4IzDK8QttlAVm1psoJclgjuXirteqOL4xXYi6DSI92kAdSPoVEXQCSsskIvFzRP0bCeudkApvipu7qLnqeLqNozjxf1N9H1aXO2AHF4gbl5iUITbXQ2BybYWN3/Q8wi3PwgAADAq25iTFjjjsEguEbfgQtU7xNUQ4/FmcdcJVX+SUX51ivIRdBpE0AlA3Qg6VRF0wmRvEzdP0LOjuLoBJdhZ3LxFz1myirjaDeMuwjE+M7tZ7iGufkDdloqbl6g6XyLc7moITPUDcfMIS5bu6fYHAQAARmUbc9ICZ1yeK27BhaprZSNxNURem8i/xV0nVPFLq/Yi6DSIoBOAuhF0qiLohMm2ETdP0PNAcXUDxm2+nCpu3qJnd3G1m40Pivvb6Pu6uNoBdfuwuDmJqthDcPUDnP3FzSMQdAIAAInZxpy0wBmX+CXGBeIWXag6TFwNkdfHxV0fVP1W5vKrU5SNoNMggk4A6kbQqYqgE6bic+X0dhFXM2Dc9hY3Z9HzfXF1m60N5GpxfaDvweLqB9TpOHHzEX1XyZri6gc4m4qbS1iydDe3PwgAADAq25iTFjjjtK+4RReq4lHjm4urIfK4u9wk7vqgak9xNUQ7EHQaRNAJQN0IOlURdMJU/CBhegSdUKL44dvvxc1Z9CwRV7tRvE5cH+j7qbjaAXX6nrj5iL7DxdUOmEl8XnTzqet2cfuDAAAAo7KNOWmBM07x1JczxS28UHWUuBoij5PEXRdU/Uxc/dAeBJ0GEXQCUDeCTlUEnTDVfuLmCgg6oUwvFDdf0XO8uLqNapH8RVxf6PtfcfUD6vIrcXMRfQ8SVztgJp8VN5+6jqATAABIyjbmpAXOuO0hbuGFquVyF3E1RL12E3dNMOgh4mqI9iDoNIigE4C6EXSqIuiEqXYUN1ewZOnDxNUMGJfF8jdx8xW97362Fle7uXiGuP7Qd46sKq5+QB146szMLpP4kbSrHTCTA8XNqa4j6AQAAJKyjTlpgVOCH4lbfKHqWHH1Q33iAzW/sBrON8XVEO1C0GkQQScAdSPoVEXQCVOtIRwz7fFEJ5TmLeLmKnrqOqaJ7zaGE4EwVz+gDleIm4foOVpc3YCVeZS4OdV1BJ0AAEBStjEnLXBKsLO4xReqbpb4tbKrIerBrx6HE3PznuJqiHYh6DSIoBOAuhF0qiLoBIenIngEnVCSjeVacXMVS5ZeJ1EjV7sUdhfXL/oulgjPuvoBqV0vbh6iZx9xdQNWZjtxc6rrCDoBAICkbGNOWuCU4hviFmCo+qq4+iG9NeUScdcBVXH2uash2oeg0yCCTgDqRtCpiqATnFPFzZeu42hplOQIcfMUPW8TV7eUviuub/S9XFztgJTmi5t/6NtIXO2AlYnv9N2c6roHuP1BAACAUdnGnLTAKUU8DcYtwDDofuJqiLTeIK7+qLpRthJXQ7QPQadBBJ0A1I2gUxVBJzhfETdfuo4nAqMUd5Xl4uYpekdY5fhcEd+9xROZ3RjQk+taoNtijrn5h57zxNUNGNbV4uZWl+3g9gcBAABGZRtz0gKnJMeKW4Sh6vvi6od04ldDPFJ/OB8RV0O0E0GnQXwJDqBuBJ2qCDrBOUbcfOk6gk4oxZfEzVH0vExc3erwaXFjQN/B4moHpLKZuLmHns+IqxswrL+Jm1tdtoXbHwQAABiVbcxJC5ySxFNh+IXfcB4uroZIg0fqD+c62VhcDdFOBJ0GEXQCUDeCTlUEneB8SNx86TqCTijBA8XNT/RcLKuLq10d7ijXixsLeuKHb3zXgTptIW7uoSdn+BPtFJ8Z3dzqsg3c/iAAAMCobGNOWuCU5mPiFmKoOlVc/TB32wmBu+G8XVwN0V4EnQYRdAJQN4JOVQSd4Bwmbr503Zbi6gXk9BNx8xM9/yeubnV6t7ixoI+nV6NOBJ1mxg98MVe/Fje3umxNtz8IAAAwKtuYkxY4pYlH9/LLsuH8r7gaYm5OFFdvVF0pBDy6h6DTIO4DAHUj6FRF0AkOQSePJ5Jg3PYSNzfRExuxq4irXZ3iM8w/xI0JPTdKPHne1Q+YK4JOM9tUXN2AYb1F4mhr3MrtDQIAAMyFbcxJi5wSvVfchxxUnS3j+EKszeIXQ67WGPQqcTVEuxF0GkTQCUDdCDpVEXSCQ9DJWySuXkAOC+Q8cXMTPY8WV7scXipuTOj7nLjaAXN1N3FzDkuWXiOuZgBG4PYEAQAAUrCNObnFTwHWl6vFfdhB1b7iaojZi9DYmeLqjKpLhE2TbiLoNIigE4C6EXSqIugEh6DToGXiagXk8jxxcxM9PxRXt1wWyoXixoa+e4mrHzAXO4qbb1iy9CxxNQMwArcnCAAAkIJtzMktfgrxJnEfdlB1gcSvJF0NMTv7iasxBj1HXA3RfgSdBhF0AlA3gk5VBJ3gHCluvnTZ5eJqBeSwWC4VNzfRc39xtcspfjznxoa+b4urHTAXBJ2md4K4mgEYgdsTBAAASME25uQWP4WIL8WuEPeBB1XPFldDDC+eTvRncfVF1e+FcF13EXQaRNAJQN0IOlURdILzSXHzpcti3e5qBeTwRnHzEj1fFle33ObL6eLGiL6HiasfMCqCTtP7kLiaARiB2xMEAABIwTbm5BY/BWFDfTgXy+riaojhvFZcbTHoCeJqiG7gfXkQQScAdSPoVEXQCc5Xxc2XLovwgqsVULfby7Xi5iWWLF0u24qr3Tg8RNw40fdziVCYqx8wCoJO03u9uJoBGIHbEwQAAEjBNubkFj8FifBOhHjchx5URfjA1RArt6FcI66uqDpD+HKv2wg6DSLoBKBuBJ2qCDrB+bG4+dJlJ4mrFVC3D4ubk+j5uLi6jdPXxI0VfXuLqx0wCoJO03u+uJoBGIHbEwQAAEjBNubkFj+Feaa4Dz2o+pvEcX+uhpgZX8IOb1dxNUR3EHQaRNAJQN0IOlURdIJzjrj50mVHiqsVUKetJZ5Y5OYkliy9XjYVV7tx2k64bjM7TzjGH6kQdJrePuJqBmAEbk8QAAAgBduYk1v8FCa+RDhX3AcfVMXxa66GmN5dhS/zhvM9cTVEtxB0ApqBJz22C0GnKoJOcK4UN1+67M3iagXU6Xhx8xE97xJXtxJEONKNGX3PEVc7YLYIOk3v4eJqBmAEbk8QAAAgBduYk1v8FOgJ4j74oCo2wXiyyOx8RVwtMWiJuBqiWwg6Ac1A0KldCDpVEXTCVLcVN1e6jg155HY/cXMRPVdJyd/ZbCzXihs7ei6RReLqB8wGQafp7SCuZgBG4PYEAQAAUrCNObnFT4HmyxniPvyg6u3iaohBDxFXQwz6orgaonsIOgHNQNCpXQg6VRF0wlT3EDdXum53cfUC6vIjcXMRPa8UV7eSxJPg3NjR92pxtQNmg6DT9Eo83hNoLLcnCAAAkIJtzMktfgr1SHEfflAVv767vbgaoi/Cc78QV0NUxdF+24irI7qHoBPQDASd2oWgUxVBJ0y1p7i50nXbi6sXUIfHipuH6PmzNOFJQIvlMnGvAT08TR0pEHSaHvcXkJDbEwQAAEjBNubkFj8FO0XcByBUHSaufuh7qrjaYdBR4mqIbiLoBDQDQad2IehURdAJU71F3FzputuIqxeQ2gL5nbh5iJ5niqtdifYX9xrQ905xtQOGRdBpegSdgITcniAAAEAKtjEnt/gp2P3FfQBC1X9kc3E1xJKla0hskLnaoep6uYO4OqKbCDoBzUDQqV0IOlURdMJUXxc3V7rsYnG1AurwHHHzED3nSITBXO1KFGM9V9xrQU98V8LxWpgLgk7TW01czQCMwO0JAgAApGAbc3KLn8J9VdyHIFR9XFz9sGTpq8TVDIPeK66G6C6CTkAzEHRqF4JOVQSdMNWl4uZKl50krlZAamsK9+DM/ldc7UoWY3avBX1HiqsdMAyCTtNz9QIwIrcnCAAAkIJtzMktfgp3d7lZ3Ach9C2XrcTVsMvWFzYLhxN1inq5OqK7CDoBzUDQqV1Yu1QRdMJk9xA3T7ruUHH1AlJ7vbg5iJ6fiKtbE/xI3GtCT3zvdldxtQNWhqDT9Fy9uuYUcbUBUtjF7RMCAADMlm3MSQubJpoQt0hD1efE1a/LPiiuVhgUX1i7GqLbCDoBzUDQqV0IOlURdMJkPK3Ve6a4egEpbSDXiJuD6HmQuNo1wX3FvSb0HS+udsDKEHTyrhZXr64h6IQ6EXQCAABJ2MactLBponhS0TJxCzX0xZOv4hfOroZddBe5UVytUHWZLBZXR3QbQSegGQg6tQtBpyqCTpgsnpbi5knX3U9cvYCU+CHRzL4mrm5N8nlxrw19O4mrHTATgk5efO5x9eoagk6oE0EnAACQhG3MSQubpvqIuIUaqk4QV78u+qK4GmHQi8TVECDoBDQDQad2IehURdAJK2wrbo503U3CjxZQN36ANrP44dndxNWuSbYUrvPMThZXO2AmBJ08gk49BJ1QJ4JOAAAgCduYkxY2TbWxXC9usYYqfs3be1y8qw0GXSgLxdURIOgENANBp3Yh6FRF0AkrHCpujnTd2eLqBaT0BXHzDz2fEFe3Jnq/uNeIvt3E1Q6YDkEnj6BTD0En1ImgEwAASMI25qSFTZMdIm6xhqrviatfV8yX08TVBoOeKq6OQCDoBDQDQad2IehURdAJIX74cp24OdJ1HxNXMyCVOKrLzT30xI/yNhdXuyZaX1iLzOyXEt89ufoBDkEnj6BTD0En1ImgEwAASMI25qSFTZOtK3zZMpyHiqthF+wrriYYFL/+XkVcHYFA0AloBoJO7cJ6t4qgE8IR4uYH+OEC6scG7MzeK65uTXaQuNeKvvjuydUOcAg6eQSdevjvLOpE0AkAACRhG3PSwqbpXiduwYaqU8XVr+3iCLY4is3VBIMeLa6OwAoEnYBmIOjULgSdqgg64cFys7j5gSVLNxNXNyCF+Mzo5h164r/ZtxNXuyZbJH8W95rRc4GsJq5+wFQEnTyCTj0EnVAngk4AACAJ25iTFjZNt1guFbdoQ9VjxdWwzV4urhYY9CNxNQQmI+gENANBp3Yh6FRF0KnbIsTD57/p/U5c3YAUVpXfiJt76HmtuNq1wf+Je83oe4G42gFTEXTyCDr1EHRCnQg6AQCAJGxjTlrYtMEB4hZtqDpLunQs2XpylbhaYNADxdURmIygE9AMBJ3ahaBTFUGn7oqQ07ni5gV62nhkFsrxLHHzDj1/lXjykatdG8T3SXHcvXvt6Ikg7lri6gdMRtDJI+jUQ9AJdSLoBAAAkrCNOWlh0wZxPFlseLiFG6r2FVfDNnqfuBpg0NfE1RCYiqAT0AwEndqFoFMVQaduuq9wbNLKPVRc/YC5igDPJeLmHXqeI652bbKbuNeOvteLqx0wGUEnj6BTD0En1ImgEwAASMI25qSFTVs8XdzCDVXnywJxNWyTLWWZuBqg6ma5u7g6AlMRdAKagaBTuxB0qiLo1C3ryDtlubj5gL7LJY4Wc3UE5iqOZHPzDj3nSRe+awnfFlcD9MS6bX1xtQNWIOjkEXTqIeiEOhF0AgAASdjGnLSwaYt4hPY54hZvqIrHzbsatsnnxb12DPq0uBoCDkEnoBkIOrULQacqgk7dsKEcJFeImwcYdLi4WgJzFaEN/ls0s8eLq10b7SDxgylXB/RwjChWhqCTR9Cph6AT6kTQCQAAJGEbc9LCpk32FLd4Q9XFEsf9uRq2wf3FvW4Miqde3UlcHQGHoBPQDASd2oXN5SqCTu21qTxTviw3irv+mN4DxdUVmKvDxM059Jwm88XVrq0+Ka4W6LleNhdXOyAQdPIIOvUQdEKdCDoBAIAkbGNOWti0SXyxFF8wuQUcqtq6ARpz4CfiXjMGfUBcHYHpEHQCmoGgU7sQdKoi6NQ8cZxTHEF3O9lC7iaPlDh+/M1ygvxB3PXGcM4VV3tgru4sHAs/s4eIq12b3UEizOPqgZ5PiKsdEAg6eQSdegg6oU4EnQAAQBK2MSctbNrm4eIWcKi6TBaLq2GT7S3u9WLQtXJ7cXUEpkPQCWgGgk7tQtAJwMrwvo+6fE7cnEPPN8TVrQsOEVcT9Nwk24mrHUDQySPo1EPQCXUi6AQAAJKwjTlpYdNG3xO3iEPVa8TVr6niOL4LxL1WDHqLuDoCMyHoBDQDG97tQtAJwEyukduKe/8A5uI+4uYcem6WHcTVrgviSX1XiKsNeuKJha52AEEnj6BTD0En1ImgEwAASMI25qSFTRstEbeIQ1V8eIwvplwNm+jF4l4nBsWXkWyGYBQEnYBmIOjULgSdAMwknqri3juAueJHZDP7tLi6dQnfw6zcA8TVDt1G0Mkj6NRD0Al1IugEAACSsI05aWHTVl8Wt5BD1cHi6tc0Edj6h7jXiEEvE1dHYGUIOgHNQNCpXQg6AZhOHEe9vrj3DmAu/kfcnEPPMtlCXO26JJ6s/QdxNULPD8XVDt1G0Mkj6NRD0Al1IugEAACSsI05aWHTVnEOfjxG3C3m0BdfjG8groZN8h5xrw+DLpY1xNURWBmCTkAzEHRqF4JOAKbTlh+uoCyryK/EzTn0vE9c7bpoH3E1Qt8e4mqH7iLo5BF06iHohDoRdAIAAEnYxpy0sGmzY8Qt5lB1mLj6NcWd5D/iXhsGPVNcHYFhEHQCmoGgU7sQdALg/FUWi3vfAObi6eLmHHquEZ6k1jdfThNXK/ScLREgdPVDNxF08gg69RB0Qp0IOgEAgCRsY05a2LTZHSUeJ+4WdOi7XjYXV8Mm+Ky414VB58gCcXUEhkHQCWgGgk7tQtAJgPNEce8ZwFwskj+Lm3PoeYO42nXZzuJqhb79xNUO3UTQySPo1EPQCXUi6AQAAJKwjTlpYdN2HxC3oEPVx8TVr3Q7iXs98B4nro7AsAg6Ac1A0KldCDoBmOoEce8XwFy9WtycQ8+lwpPUvK+Iqxl6/igLxdUO3UPQySPo1EPQCXUi6AQAAJKwjTlpYdN2G8m14hZ16FsuW4mrYcl+JO71YFA8Sj4eKe/qCAyLoBPQDASd2oWgE4DJ4si6DcS9XwBzsZ7w35yZvUBc7bBk6TYS3y25uqHnQHG1Q/cQdPIIOvUQdEKdCDoBAIAkbGNOWth0wdvELepQFUfAufqVKp5O5F4HvIeKqyMwGwSdgGYg6NQubDoDWCFCBKzrUZf3ipt36LlAOAp+ZoeLqx16LheeCIZA0Mkj6NRD0Al1IugEAACSsI05aWHTBevIleIWdui7We4uroaliS8Xfy/udWDQt8TVEZgtgk5AMxB0aheCTgBWeJG49wlgrraQ/4ibd+jZR1zt0MdT1VduqbjaoVsIOnkEnXoIOqFOBJ0AAEAStjEnLWy64tXiFnaoOkFc/UoTX/C78cO7l7g6ArNF0AloBoJO7ULQCUCIp+249wgghQlx8w49vxCOgh/Om8TVED0RBOP4URB08gg69RB0Qp0IOgEAgCRsY05a2HTFIrlU3OIOVfcTV8NSrC1/Fzd2DDpOXB2BURB0ApqBoFO7EHQCcIQQskBd4ocx8YRnN/fQ83BxtcOgOJqN799m9n5xtUN3EHTyCDr1EHRCnQg6AQCAJGxjTlrYdMnzxS3uUPVdcfUrxSHixo1By+Uu4uoIjIKgE9AMBJ3ahaAT0G0fFUJOqFN8B+DmHnq+La5umN5zxdUSPcskjot0tUM3EHTyCDr1EHRCnQg6AQCAJGxjTlrYdMlCuUDcAg9Vu4ir4bjdUa4XN2YMil9+uzoCoyLoBDQDQad2IegEdNdSIeSEOu0mbu6h757iaofpLZBzxNUTPZ8WVzt0A0Enj6BTD0En1ImgEwAASMI25qSFTdc8RdwCD1WniqvfuMUXQW68GBSBsI3F1REYFUEnoBkIOrULQSege66Tp4p7TwBSWUXOEjcH0fNZcbXDyj1GXE3RE8dF3kNc7dB+BJ08gk49BJ1QJ4JOAAAgCduYkxY2XRNf5P1K3CIPVfGllKvhuNxb4osgN1YMeqe4OgJzQdAJaAaCTu1C0AnolvOEzW/ksJ+4OYieOF5sS3G1w3B+IK626DlRXN3QfgSdPIJOPQSdUCeCTgAAIAnbmJMWNl30WHGLPFSdKREMczUch++LGycGxRcD64irIzAXBJ2AZiDo1C4EnYDu+JCsKe69AEhpDfmTuHmIng+Kqx2Gt5O42qJvZ3G1Q7sRdPIIOvUQdEKdCDoBAIAkbGNOWth01U/FLfRQta+4+uXGI89n5yBxdQTmiqAT0AwEndqFoBPQfr+VB4p7DwDq8ApxcxE918qG4mqH2TlWXI3RE99Purqh3Qg6eQSdegg6oU4EnQAAQBK2MSctbLpqF3ELPVTFsQkLxNUwl+j/XHHjw6BLZZG4WgJzRdAJaAaCTu1C0Alor7/Li2Tcn7nQLevKVeLmJHreLK52mL07SxwD6OqMnv8VVzu0F0EnL94rXL26hqAT6kTQCQAAJGEbc9LCpstOErfYQ9UzxNUvl/3FjQte1MvVEUiBoBPQDASd2oWgE9A+V0g8hXWxuPseqNO7xc1L9Fwu3JtpvU9crdETT/VbRVzt0E4Enabn6tU1BJ1QJ4JOAAAgCduYkxY2XXYvcYs9VF0sC8XVsG63kb+JGxcGXSD8Ghx1IugENANBp3Yh6AS0x+8lnuBEiALjsrlcL25+oucAcbXD6G4nrGdmNu4fGSIvgk7TW0NczbqEoBPqRNAJAAAkYRtz0sKm674gbsGHqgPF1a9uB4sbD7wniqsjkApBJ6AZCDq1CxuDQLNFqORz8nCZL+4+B3L5lLh5CmC84keGBDy6g6DT9NYRV7MuIeiEOhF0AgAASdjGnLSw6bq7ynJxiz70XSpriathXTYTfmk6vDOFjRPUjaAT0AwEndqFoBPQPP+WE+QpwtObUIod5GZxcxbA+L1M3L2L9iHoNL3bi6tZlxB0Qp0IOgEAgCRsY05a2GDJ0qPELfpQdZC4+tXlGHHjgPdIcXUEUiLoBDQDQad2IegENMPZ8h6Jdfnq4u5nYJy+JW7uAijDFbK2uPsX7ULQaXpbiatZlxB0Qp0IOgEAgCRsY05a2GDJ0s3lBnELP/RdJbkeH8wvTWfn++LqCKRG0GnQHSXeG4GSsMHeLgSdgGa4Wr4sL5Stxd3PwLg8Qty8BVCWg8Xdw2gXgk7Tu6+4mnUJQSfUiaATAABIwjbmpIUNeg4Tt/BD1VvF1S+174rrH979xNURSI2g06AIlbhaAUAqBJ2AZvqDHCLxIw53bwO5xBHnvxQ3TwGU5VrZWNy9jPYg6DS9PcTVrEsIOqFOBJ0AAEAStjEnLWzQs77Elwlu8Ye+qFHUytUwlUeJ6xte/Grc1RGoA0GnQQSdANSNoBPQfOfKG4XNa4zDU8TNSwBl+rC4exntQdBpes8RV7MuIeiEOhF0AgAASdjGnLSwQd9ScYs/VMXTr1z9UlggvxHXLwbdJNuJqyVQB4JOgwg6AagbQSegPW6U4+Qh4u53ILWF8kdx8xFAmZbJVuLuabQDQafp5TpNoGQEnVAngk4AACAJ25iTFjbou61cIW4BiL7r5Q7iajhX8asd1ye8T4irI1AXgk6DCDoBqBtBJ6CdTpXdxd33QCovEzf/AJTtc+LuabQDQafpHSOuZl1C0Al1IugEAACSsI05aWGDqpeLWwCi6ghx9ZuLxXKpuP4w6AbZXFwtgboQdBpE0AlA3Qg6Ae32E3mwuPsfmItYp/5D3LwDUL57iru30XwEnab3M3E165L4jjz+G47R3F3c3EIPQScAAJCEbcxJCxtULZK/iFsEom+5pH6M9pvF9QXvfeLqCNSJoNOg+BLF1QoAUiHoBHTDhNxe3PsAMIp3iptrAJrhW+LubTQfQafpXSWuZsCwVhc3t9BD0AkAACRhG3PSwgaDOD5tOJ8RV79RbCL/FtcPBl0j64urJVAngk6DCDoBqBtBJ6A7YnPveTJf3PsBMKzNJI6dd/MMQHM8TNw9jmYj6DSzTcXVDRjWZeLmFgg6AQCARGxjTlrYYNACOV/cQhB9N8vdxNVwto4S1we8N4qrI1A3gk6DCDoBqBtBJ6B7vikbintPAIZxtLi5BaBZfi6EX9uHoNPMHiuubsCwThU3t0DQCQAAJGIbc9LCBt6+4haCqDpBXP1mI87NjtCU+/sYdLnEWe2ulkDdCDoNIugEoG4EnYBuukTuL+59AZgJn7GBdnm8uHsdzUXQaWZvFVc3YFifFze3QNAJAAAkYhtz0sIGXvxa6kxxi0FULRFXw2GdJO7vwjtQXB2BHAg6DSLoBKBuBJ2A7lomTxX33gBM5+vi5hOAZjpX4unz7n5HMxF0mtkp4uoGDOtj4uYWCDoBAIBEbGNOWthgev8jbjGIqm+Lq98wdhP3N+FdJAvF1RLIgaDTIIJOAOpG0AnAK8S9PwBTPUzcHALQbM8Rd8+jmbYWd53Rc4MsElc7YBjvEje3QNAJAAAkYhtz0sIGM/uhuAUhqnYRV7+ZrCK/Evf34D1NXC2BXAg6DSLoBKBuBJ0AhIPEvUcAK8STqX8hbv4AaLY4zpTgR3tsIe46o28PcbUDhnGouHkFgk4AACAR25iTFjaY2YPELQhR9VNx9ZvJs8T9LXi/lgiHuVoCuRB0GkTQCUDdCDoBWOGl4t4ngLCvuHkDoB1eJe7eR/MQdFq5I8TVDhjGx8XNKxB0AgAAidjGnLSwwcp9XdyiEFWz+aXNmhK/RnN/B95jxdUSyImg0yCCTgDqRtAJwAo3y+PFvVeg2+KI8z+ImzcA2uEq4fNnOxB0WrnLZTVx9QNW5jhx8woEnQAAQCK2MSctbLByO0p8oewWhug7U+JR+a6GU71B3N+A9xNxdQRyI+g0iC+aAdSNoBOAyf4t9xD3foHuOlDcfAHQLu8U9x6AZllP3PVF1aPF1Q9YmR+Im1Mg6AQAABKxjTlpYYPhfE7cwhBVTxRXv8k2kmvF/fvwHiyulkBuBJ0GEXQCUDeCTgCm+r0sFveege5ZW64QN1cAtMv1som49wI0x+riri+qviaufsDKXCZuToGgEwAASMQ25qSFDYazlSwXtzhE37myQFwNV/iYuH8XXhyd6OoIjANBp0EEnQDUjaATACc+V7n3DHTP28TNEQDtxPt/O9wo7vqiL05Y2FJc/YDpbCpuPqGHoBMAAEjCNuakhQ2Gd4S4xSGqni6ufmF7ITA2vPhAv4O4WgLjQNBpEEEnAHUj6ARgOg8X976B7ojNvHjCi5sfANopvlfbWtx7AprjSnHXF1VHiasfMJ2niptL6CHoBAAAkrCNOWlhg+HxBeJwLpaF4mp4orh/B95nxNURGBeCToMIOgGoG0EnANM5T1YT996BbogNYDc3ALTb8eLeE9AcF4m7tqiKYN9dxNUQcI4VN5fQQ9AJAAAkYRtz0sIGs/NucQtEVB0gU2sXvzZ2/yy8ZcLjmVEagk6DCDoBqBtBJwAzebG49w60H09MBrptJ3HvDWiGs8VdVwz6urgaAlPdRq4TN4/QQ9AJAAAkYRtz0sIGs7O+sNm0cpfKmrKibqvImeL+WXgfkslzDygBQadBBJ0A1I21J4CZxGevNcS9f6DdviZuTgDohu+Je29AM3xf3HWF9zhxdQQme6m4+YM+gk4AACAJ25iTFjaYvTeKWySi6iBZUbP/u7UNw7lWNpbJ8w4oAUGnQQSdANSNoBOAldlf3PsH2uvB4uYCgG7ZVdx7BMrH8Vqz83fhu1LMZC2JHwC4+YM+gk4AACAJ25iTFjaYvcVyubiFIvqulAgALJI/39qG4Rwsbu4B40bQaRBBJwB1I+gEYGX+JKuKew9B+8yXn4ubCwC65ZcS7wnuvQJle7+4a4rp/VAWiqsn8HZx8wZVBJ0AAEAStjEnLWwwGjb7h/MWee2UNszsH0JwAqXivW8Q9yuAuhF0AjCMR4l7D0H7PEHcHADQTU8U916Bsr1G3PXEzI4Wwn2Y6n6yXNycQRVBJwAAkIRtzEkLG4wmfj1ysbjFIvriCLZrprRhZq8QN+eAEhB0GkTQCUDdCDoBGMZx4t5D0C6ryQXi5gCAbor3hAXi3jNQrmeJu55YuY8KYSessKlwmsTwCDoBAIAkbGNOWthgdM8Qt1gERhUfyuKoPzffgBIQdBpE0AlA3Qg6ARjGDcK6pP1eJO76A+i2F4h7z0C5HinuWmI4x8rq4mqL7thAfi1ujsAj6AQAAJKwjTlpYYPRxa+lfiduwQiM4tni5hpQCoJOg9hQBFA3gk4AhrWfuPcRtMNt5HJx1x5At10qa4l770CZ7iLuWmJ4Z8iW4uqL9otrz97M7BF0AgAASdjGnLSwwdw8XtyCEZitc4VHjaN0BJ0GEXQCUDeCTgCG9Slx7yNoh7eKu+4AEF4n7r0DZVooN4m7lhjev+UVwneq3bKXXCluTmBmBJ0AAEAStjEnLWwwN3Ee+C/ELRqB2YjQnJtjQEkIOg0i6ASgbgSdAAwrnugRn1HdewmabWOJzVx33QEgxJrxduLeQ1CmP4m7lpi9cyTCL6yD2m1TiWML3RzAcAg6AQCAJGxjTlrYYO52E7doBIZ1uvBBHE1A0GkQQScAdSPoBGA27ibuvQTNdqS46w0Ak71X3HsIyvR9cdcRo/uNPEvWEFdzNNMm8m65Xtx1x/AIOgEAgCRsY05a2CCNU8QtHIFhPFzcvAJKQ9BpEEEnAHUj6FR1scR7L8q2kWwhd5cHyR7yFHm1fFC+KGfJDeKuM0b3dHHvJWiubWW5uOsNAJNFCGBzce8lKM/HxF1HzF18hvqoPFBWEVd/lC2OI4wfmMcTnJaJu86YPYJOAAAgCduYkxY2SON+4haOwMp8V9ycAkpE0GlQbOa6WgFAKgSdqi4SVyc006qytewjH5Jfy83irj2Gc5i4WqO5ThB3rQHAOVrcewnKc4C4a4i0/iqHy+NkbXHXAmVYV54sn5WrxF1PzA1BJwAAkIRtzEkLG6TDl48YxX3EzSegRASdBhF0AlA3gk5VBJ3aL46miDXHz8XNAcwsjsFxdUUzxRPR3HUGgOnEE+C2E/eegrI8RNw1RH1ukl/IB+RJEoF7nvg0Hgslnv76XPm4nCP84KF+BJ0AAEAStjEnLWyQzt2ExThm4wvi5hJQKoJOgwg6AagbQacqgk7d8gD5pri5AO9ycbVE88yXn4q7zgAwk/gxpntfQVni+wR3/ZDXtfIz+YTEMcvx5KedJI5ijv8Wu2uH4awl28iu8gw5ROL96TzhWN7xIOgEAACSsI05aWGDtD4tbgEJTBUf5u4qbh4BpSLoBLTX08Xd9xg/gk5VBJ266ZFyibg5gUGri6sjmuXx4q4vAAzj/uLeW1CWP4m7fijDMonPHz+RYyWeBPVWeYU8R54gu8l9ZUfZUra4VTylNMJsK5T85KjVZPJYw3qy4rXE64rXFz9C2EX2lDh6+lnySnmHHCHxo97vyW+Eo+fKdE+3TwgAADBbtjEnLWyQViz64wOQW0QCkx0pbg4BJSPoBLQXQadyEXSqIujUXbeXOGrEzQtU3VlcDdEcC+T34q4vAAzjB+LeX1CWL4m7fgBQhx3dPiEAAMBs2cactLBBeh8Wt4gEVrheNhU3f4CSEXQC2ougU7kIOlURdOq2teXX4uYG+h4krn5ojheIu7YAMBt7iHuPQTleLu7aAUAdtnP7hAAAALNlG3PSwgbpbSzXiVtIAuHd4uYOUDqCTkB7EXQqF0GnKoJOiKcVXSNufqAnjjxztUMzLJbLxF1bAJiNs6Xk47LQO/LMXTsAqMNGbp8QAABgtmxjTlrYoB6HiFtIArFZGWecu3kDlI6gE9BeBJ3KRdCpiqATwgHi5gd6eE9vtqXirisAjOKp4t5rUIbVhB/MAshlodsnBAAAmC3bmJMWNqjHOsKmFJzXiZszQBMQdALai03xcrGmrCLohLBAzhM3R7Bk6XPE1Q3l20iuFXddAWAUF8pCce85KMP3xV07AEjpX26PEAAAYBS2MSctblCf14hbUKK7LpW1xM0XoAkIOgHtRdCpXASdqgg6YYVniJsj6K3ZXM1Qvo+Ku6YAMBcHinvPQRleLe66AUBKF7g9QgAAgFHYxpy0uEF9ItASwRa3qEQ3vUDcXAGagqAT0F4EncpF0KmKoBNWWFO4P7yDxNUMZburLBd3TQFgLi6XxeLeezB+dxd33QAgpe+5PUIAAIBR2MactLhBvV4kblGJ7rlAeFQ4mo6gE9BeBJ3KRZCjiqATJjtK3DzpuqXi6oWyfUnc9QSAFN4k7r0HZbhY3HUDgFQ+7vYIAQAARmEbc9LiBvWKYMsfxS0s0S1PFjdHgCYh6AS0F0GnchF0qiLohMn2FjdPuo6gU/M8QNy1BIBU/iXri3sPwvhxdCmAur3e7RECAACMwjbmpMUN6vc0cQtLdMeZsoq4+QE0CUEnoL0IOpWLoFMVQSdMto7cLG6udBlBp+b5sbhrCQApvV/cexDG7xHirhkApPJ4t0cIAAAwCtuYkxY3qF8EXH4rbnGJbniUuLkBNA1BJ6C9CDqVi6BTFUEnTBVHRLu50mUEnZplT3HXEQBSWyZbiHsvwnjF98eXiLtuAJDCVm6PEAAAYBS2MSctbpAHX1x21w/EzQmgiQg6Ae1F0KlcBJ2qCDphqi+KmytdRtCpORbIueKuIwDU4VPi3o8wfu8Wd80AYK7i+NL5bo8QAABgFLYxJy1ukMd8OVXcIhPt9gBxcwJoIoJOQHsRdCoXQacqgk6Y6mBxc6XLCDo1x/PEXUMAqEsc+Xp3ce9JGK8dxV0zAJirH7n9QQAAgFHZxpy0wEE+DxO3yER7fUXcXACaiqAT0F4EncpF0KmKoBOmer64udJlBJ2aYbFcKu4aAkCdThT3voTx+7m4awYAc3Gw2x8EAAAYlW3MSQsc5PUdcQtNtE/8Qm57cfMAaCqCTkB7EXQqF0GnKoJOmIpjwgcRdGqGN4i7fgCQw87i3pswXk8Vd70AYC4e4fYHAQAARmUbc9ICB3ntJG6hifb5pLg5ADQZQSegvQg6lYugUxVBJ0z1YHFzpcsIOpVvQ/mXuOuHQX+VjWUdYBrry4Xi5g+8n4h7f8J4LRSe9gcgpf/Imm5/EAAAYFS2MSctcJDfl8QtONEey+SO4q4/0GQEnYD2IuhULoJOVQSdMNWO4uZKlxF0Kt+HxF07eKxTMIy9xM0fTO+x4mqJ8XqjuOsFAKP4ptsbBAAAmAvbmJMWOchvO1kubtGJdjhM3LUHmo6gE9BebCCWi6BTFUEnTLWDuLnSZQSdynYXuVHctcOg02UVcbUEpjpF3DyC91vh/ipPPKWMzwAAUnmO2xsEAACYC9uYkxY5GI9jxC060XzXygbirjvQdASdgPYi6FQuNjmqCDphqi3EzZUuI+hUtuPFXTd4DxBXR8CJp/zdLG4uweNzQJniv+XuegHAbMR/Ezd0e4MAAABzYRtz0iIH47G5xPFmbvGJZmNTAW1G0AloLzY4ykXQqYqgE6Yi6DSIzyTluq+4awbvc+LqCMzkSHHzCd7Fsrq4WmJ8bitXiLtmADCsb7h9QQAAgLmyjTlpoYPxeb+4xSeaK76AuI246w20AUEnoL0IOpWLoFMVQSdMRdBpEEGncv1Q3DXDoOvkDuLqCMzk9nKNuHkF72XiaonxeqW46wUAw3q82xcEAACYK9uYkxY6GJ/44iWOOXMLUDRThEDctQbagqAT0F4EncpF0KmKoBOmIug0iKBTmR4j7nrBYx5jLl4tbl7Bix/urS2ulhifhXKuuGsGACtzmazm9gUBAADmyjbmpIUOxuut4hahaJ541Hd8AeGuM9AWBJ2A9iLoVC6CTlUEnTAVQadBBETKs0B+K+56YdCfZU1xtQSGEUexXShufsGL7yhdLTFeu4q7XgCwMq93e4IAAAAp2MactNjBeK0j/xC3EEWzsEGMLiDoBLQX/x0rF0GnKoJOmIqg0yCCTuV5trhrBe9J4uoIzMZe4uYXvHjq/Ebiaonx+oK4awYA04kjXNdxe4IAAAAp2MactNjB+L1K3GIUzRG/zF1F3PUF2oSgE9BeBJ3KRdCpiqATpiLoNIigU1niyUR/FXetMOinMl9cLYHZOkXcPIP3YXF1xHhtLPxQFsBsHCJ2TxAAACAF25hTLHYwdovkUnELUjTDnuKuLdA2BJ2A9iLoVC6CTlUEnTAVQadBBJ3K8npx1wmDbpYl4uoIjGJHiXnl5hsGLZOtxNUS4/V4cdcMAKaKYOS6YvcEAQAAUrCNOcViB0XYX9yiFOX7mbhrCrQRQSegvQg6lYugUxVBJ0xF0GkQQadyrC9Xi7tOGHSMuDoCc3GkuPkG77Pi6ojx+6S4awYAk71IbnnfcHuCAAAAKdjGnFYseDB2C+QCcQtTlG0XcdcUaCOCTkB7EXQqF0GnKoJOmIqg0yCCTuX4gLhrhEHXyibi6gjMxe3lGnHzDoPiCVj3FFdLjNdthe+PAczkNxJ7Tbe8b7g9QQAAgBRsY04rFjwowpPFLU5Rrm+Ku5ZAWxF0AtqLoFO5CDpVEXTCVASdBhF0KsOWEsdAuWuEQa8RV0cghVeLm3fwviWujhi/u0kEQ911A9Bty+U+8t/3DLcnCAAAkIJtzGnyogdjt4qcLW6RivLwCzd0EUEnoL0IOpWLoFMVQSdMRdBpEEGnMhwn7vpg0B9lDXF1BFJYXS4UN//gPVRcLTF+e4u7ZgC67W1Seb9we4IAAAAp2Macpi58MHaPEbdIRXk+J+4aAm1G0AloL4JO5SLoVEXQCVMRdBpE0Gn8dhJ3beDFpr2rI5DSXuLmH7zTZL64WmL83iruugHopnjPXiiV9wq3JwgAAJCCbcxp6sIHRfiJuMUqynGjbCXu+gFtRtAJaC+CTuUi6FRF0AlTEXQaRNBp/L4v7tpg0CniagjUIeabm4fwHi+ujhi/CKEdLe66AeiWv8lmMvBe4fYEAQAAUrCNObnFD8buIeIWrCjHR8VdO6DtCDoB7UXQqVwEnaoIOmEqgk6DCDqN1x7irgsGxZHwO4qrI1CHmG8x79x8xKBzZYG4WmL8VpUTxF07AN2wTKY9atTtCQIAAKRgG3Nyix8U4SRxC1eM33WysbjrBrQdQSegvQg6lYugUxVBJ0xF0GkQQafxWUV+Le66YNAR4uoI1OlIcfMR3rPF1RFlWCQni7t2ANotgrv7intvuIXbEwQAAEjBNubkFj8owj3FLV4xfm8Xd82ALiDoBLQXQadyEXSqIuiEqQg6DSLoND7PFHdNMOhq2VBcHYE63V6uETcvMegvEmEaV0uUYU0h7AR0z4Hi3hP+y+0JAgAApGAbc3KLHxTjOHELWIzPVbKOuOsFdAFBJ6C9CDqVi6BTFUEnTEXQaRBBp/GIIEAEAtw1waBXiqsjkMOrxc1LeK8SV0eUI8JOnBAAdMdKQ07B7QkCAACkYBtzcosfFGNrWS5uIYvx4IsddB1BJ6C9CDqVi6BTFUEnTEXQaRBBp/F4jbjrgUG/l4Xi6gjksLpcKG5+YhA//GuGeF/9nLhrCKAdbpJ4gqh7Dxjg9gQBAABSsI05ucUPivJxcQta5HeJ8KhudB1BJ6C9CDqVi6BTFUEnTEXQaRBBp/zWF96vh/dYcXUEctpL3PyE9w5xdURZ5stbxF1DAM0Wx64+Wty9b7k9QQAAgBRsY05u8YOibC7Xi1vYIq/nirtGQJcQdALai6BTudg4ryLohKkIOg0i6JTfoeKuBQZ9W1wNgXE4Rdw8xaD4fnJjcXVEeZ4sN4i7lgCa5wLZTtz9Pi23JwgAAJCCbczJLX5QHL4wHb94rP4CcdcH6BKCTkB7EXQqF0GnKoJOmIqg0yCCTnndSZaJuxaoiuP5txdXR2AcdpSbxc1XDPqYuDqiTPeXi8VdSwDNcayMdHyo2xMEAABIwTbm5BY/KE48Av9f4ha5yGMfcdcG6BqCTkB7EXQqF0GnKoJOmIqg0yCCTnl9Rtx1wKAPi6shME5HipuvGBRhxa3F1RFlWk++LO56AihbHFW3n7h7eyhuTxAAACAF25iTW/ygSPFFtVvson5nSJxv764L0DUEnYD2IuhULoJOVQSdMBVBp0EEnfK5t7hrgEFXSmy4uzoC43R7ic1kN28x6Avi6ohyxfeaL5R/i7umAMoT77Wbibunh+b2BAEAAFKwjTm5xQ+KdBu5QtyiF/XaVdw1AbqIoBPQXgSdykXQqYqgE6Yi6DSIoFM+3xN3DTDoQHE1BErwanHzFt59xNURZYujVr8t7poCKMP5sru4e3jW3J4gAABACrYxJ7f4QbFeJm7xi/qcLO5aAF1F0AloL4JO5SLoVEXQCVMRdBpE0CmP/xFXfwz6nSwQV0egBKvLheLmLwZFyNPVEeWLpzvFZ7+/ibu2AMbjz/IcSbpecnuCAAAAKdjGnNziB8VaJBeLWwijHkvEXQugqwg6Ae1F0KlcBJ2qCDphKoJOgwg61W8VOVtc/THokeLqCJRkL3HzFx5PQG+228o75Hpx1xdAHn+UAyT2fty9OiduTxAAACAF25iTW/ygaM8WtyBGel8Udw2ALiPoBLQXQadyEXSqIuiEqQg6DSLoVL+nias9Bn1dXA2BEv1A3DzGoDMkng7k6ojmiHXUMbJc3HUGUI9T5QlS6xMv3Z4gAABACrYxJ7f4QdFi4ft7cYtjpBMf7rcVdw2ALiPoBLQXQadyEXSqIuiEqQg6DSLoVC+etjy8ZXJXcXUESnQvuVncfMagfcTVEc2zlRwh8b7trjWAubtSPig7iLsPk3N7ggAAACnYxpzc4gfFiy8R3EIZ6RwlrvZA1xF0AtqLoFO5CDpVEXTCVASdBhF0qtcrxdUdgw4VV0OgZEeLm88YdIHU+jQSZHcHebtcLu6aA5idOB4yTo54oqwh7r6rjdsTBAAASME25uQWPyhePBb6THELZ8xdfPjYXFztga4j6AS0F0GnchF0qiLohKkIOg0i6FSf9YT35eH8XdYRV0egZBvJv8TNawx6vrg6otlWlzim9cfirjuA6V0lx8m+sljcPZaF2xMEAABIwTbm5BY/aITdxS2iMXfvFVdzAASdgDYj6FQuNtSrCDphKoJOgwg61Sc+L7qaY9DzxNUQaILXiJvXGHSprCmujmiHO8vr5TxxcwDoupvkF/IOeZCsKu5eys7tCQIAAKRgG3Nyix80xg/ELawxuthIXF9cvQEQdALajKBTuQg6VRF0wlQEnQYRdKrHHeUGcTVH1a+kmE0+YARxvNAfxc1vDHqduDqife4hcb1Pk5vFzQeg7W6Un8t75NGytrj7ZezcniAAAEAKtjEnt/hBYzxQ3EIbo3uDuFoD6CHoBLQXQadyEXSqIuiEqQg6DSLoVI9Pi6s3Bj1UXA2BJnmCuPmNQbFevZ24OqK94pjHp8rH5QJxcwNounha0+9kQg6Q+0kc7ejuieK4PUEAAIAUbGNObvGDRvmauAU4Zu8yGeuZ2UADEHQC2ougU7kIOlURdMJUBJ0GEXRKb0fhyRXD+ZK4GgJN9ENx8xyD4skmrobojs3kiXKIfEeuFDdXgBLFOu9P8m15nzxD7i2LxM33RnB7ggAAACnYxpzc4geNEr8eWAdJrCWuxgD6eM8B2muhuPse4xePwXfXrKtuK65O6K5VxM2VLosjl1ytMDrWwcNjTYE24d4f3m3E1RDdFoH0/5H44dxH5GT5sxAexjjEEcTnyknyMXmNPF7iSMZGB5qm4/YEAQAAUrCNObnFDwAAAAAAAAAAQA1WkwhB7SxPkQicfFg+L6dIHBX2d3FhFWCqq+R8OVVOlCMknnD6PHm03EfiqEU3F1vN7QkCAACkYBtzcosfAAAAAAAAAACAMVogt5e7yn1lN9lHniuvlDfLYXK4HCNflm9IhKXOkLPktxLHX4fLJI4GD8vFhWZQj5tkRe3/JiuuSVyfuE4/lnji1wnyOYnrGdf27fJq2V+eLHvIg2R7ifBShObc3IG4PUEAAIAUbCMAAAAAAAAAAAAAAAAAlMQ2AgAAAAAAAAAAAAAAAEBJbCMAAAAAAAAAAAAAAAAAlMQ2AgAAAAAAAAAAAAAAAEBJbCMAAAAAAAAAAAAAAAAAlMQ2AgAAAAAAAAAAAAAAAEBJbCMAAAAAAAAAAAAAAAAAlMQ2AgAAAAAAAAAAAAAAAEBJbCMAAAAAAAAAAAAAAAAAlMQ2AgAAAAAAAAAAAAAAAEBJbCMAAAAAAAAAAAAAAAAAlMQ2AgAAAAAAAAAAAAAAAEBJbCMAAAAAAAAAAAAAAAAAlMQ2AgAAAAAAAAAAAAAAAEBJbCMAAAAAAAAAAAAAAAAAlMQ2AgAAAAAAAAAAAAAAAEBJbCMAAAAAAAAAAAAAAAAAlMQ2AgAAAAAAAAAAAAAAAEBJbCMAAAAAAAAAAAAAAAAAlMQ2AgAAAAAAAAAAAAAAAEBJbCMAAAAAAAAAAAAAAAAAlMQ2AgAAAAAAAAAAAAAAAEBJbCMAAAAAAAAAAAAAAAAAlMQ2AgAAAAAAAAAAAAAAAEBJbCMAAAAAAAAAAAAAAAAAlMQ2AgAAAAAAAAAAAAAAAEBJbCMAAAAAAAAAAAAAAAAAlMQ2AgAAAAAAAAAAAAAAAEBJbCMAAAAAAAAAAAAAAAAAlMQ2AgAAAAAAAAAAAAAAAEBJbCMAAAAAAAAAAAAAAAAAlMQ2AgAAAAAAAAAAAAAAAEBJbCMAAAAAAAAAAAAAAAAAlMQ2AgAAAAAAAAAAAAAAAEBJbCMAAAAAAAAAAAAAAAAAlMQ2AgAAAACAqnlLlua2sTxEniWvkw/IZ+XbcoqcJmdN8TM5Wb4kR8u75aXyBFki64jrCwAAAOW5rdxbniivkkMl1oNflx/L1LXgTyTWid+Q+OdiLfhKebI8UFgLYmjuM1GXTExMAHVbR+4j+8gr5d0S//uqnCJnGdH+fTlejpC3yYtkD7mrLBTX16y4ewIASmIbAQAAAABAlfvyP6GNZG95j8Sm1b/k/9XkEomw1Nvk0XI7cWNqu2Nk6uZgCX4psUEZ4jp9QT4usbH5JnmB/K/Epuftxb22NvmcuDp12ddkDXH1yuVEcWPLKTbzvyMnyCclwqARCt1f4h7ZUdYVN3701Hl/fUhcn3WI8IcbA3p+KhGedrWrQ1vm1TgskPtJBJMitH6huLXcXP1FTpKD5RGyprjxdEWutcYu4vrPIX484cY0ilveU9znpbZx4Y/CvUZcMKYuS8WNA97a8kiJun1D/iz/rwY3yW/lU3KA7CDzxY1pWu6eAICS2EYAAAAAAFA1z28azMU9JIIrp4vbhMrlZomnQy2Ve4oba9usJteJq0fT3CBnSgQ9XiEPl7ZsWMbrWCbudXddbEy7muWwgbgxlepK+aEcLs+THWRVca+tS3LcXzFXXN+pnSquf/S9WFztUmvTvMplbdlPjpdrxL3musU1+74cIDlDcSXIudY4Q1YRN466RajNjWlUL3Gfl9rGhT8Kdl9ZLi74UpffiBsL+u4uEWz6ieS+PpP9TT4tT5A1xI21wt0TAFAS2wgAAAAAAKrm+U2D2bqNPFdio8NtGpTgHHmNbCjuNbRBPC3Bvfa2+I/Ekxoi1BFH3rgaNEE8+cC9vq5bLovF1SyHPcWNq0niqXlflefLZuJeZ9vVfX+dL67f1AhEDmcncfVLrS3zqm4RdnmkxFOb4r/Z7rWOy03yPXmKRDDcjb9Ncq81/k/cOOoWQTY3nlHd131eahsX/ihUBFfOFRdwqdt64sbUZXeSCDf9QVzNxu1qOVqWiBv/Ldw9AQAlsY0AAAAAAKBqnt80GNY6Ek9M+qe4zYISxZOCjpJtxL2mJosnH7nX3Eb/lo/KluJqUbLXi3tNXfcLcfXKJY7YdONqqniqXWwAP11WF/ea26ju++sT4vpN7aHi+kfftRJHorn6pVb3vDpaXL9NsUheKH8Q9/pKE0fcxTF6sY51r6cNcq81oqYxD9xY6pL6Sabxtxa4z0tt48IfhXq3uEBLDo8RN6auiaPhHiUniatTqX4sj5WBo+3cPQEAJbGNAAAAAACgap7fOFiZOB7pJdKkgNNU8fSYj8um4l5jE50g7rW2WVzHD8l64mpSongqlXstXfdecfXKpc3HhF0ub5QmPwltWHXfX88U129qbxDXP/riWrva1aEt8yq1hXKgXCbudZXuKonAUxvDoONYa0S4yo2lLqmfZHqy+6zURlODH4W6n9wkLsSSw7vEjasrVpF9JY7xc/VpitPkQfLf1+buCQAoiW0EAAAAAABV8/zGwUx2kNPFbRA0URz19CKJ41bc622K+XKFuNfYBX+XvcTVpiQRErxG3Gvoujg6ztUshzgm7EZx42qTeI94ueR6Ck5uOe6vrcX1ndq3xfWPvlyhijbNq5T2kKY8wWll4ujAXcW9ziYa11oj1tQbiRtTHVI/yfQt7rNSG00OfRRqnEfWrXCquLF1wa5ytri6NFX873Zi7wkAKIltBAAAAAAAVfP8xsF04liSZeI2B5ruh7KJuNfdBNuKe11d82GJJ0y4GpXgnuLGjfE+latrx4T9Wh4grhZNVvf99Tdx/aYWIYU4ls2NAX07i6tfavcS138queZVKhFk+bK419J0H5Hcx6/VYZxrjY+JG1MdUs/D3dxnpTaKsEfhxnlk3QrLZE1x42urzeUEcfVog8tkD3dPAEBJbCMAAAAAAKia5zcOpoqnnXxG3KZAm8RmYwQeXA1K91xxr6mLfiBri6vTuMURP27MXfcbcfXKJY51c+Nqs5vkYGnT053qvr++KK7f1O4jrn/03SBriKtfam2ZVynEk/f+Ie51tEUEQZv4hK3JxrnWiCOF7yZuXKnF0zzdGEYR/01c7D4rtdGED7mUYtxH1k32UHFjbJv58gK5Vlwd2ubNMt/dGwBQAtsIAAAAAACq5vmNg8kiMHKKuE2BNoonVj1BXC1K9ilxr6erzpYSw06fFzferounaLh65dLlY8IiGLi+uLo0Td3310vF9ZvaS8T1j754CqOrXR3aMq/mYjU5TNz42+gqaWrwPYx7rXGSuHGltI24vkd1hvuc1FYTPuxSghKOrJvsDeLG2SYbykniXn+bfUEWufsDAMbNNgIAAAAAgKp5fvNghQiKnCFuQ6DN4lfdTxdXk1JdKO61dNmpkuuJH8O6VNxYu25fcfXKgWPCliz9o8SmsatPk9R9f+0krt/UjhfXP/riaWSudnVoy7wa1TryXXFjb7MIvu8lrialK2GtsZu4saXybHH9jur97nNSW034wEsJSjiybrJvixtnWzxILhH32rvgZFnT3SMAME62EQAAAAAAVM3zmwdhoZwsbjOgCyLs9FhxtSnNJuJeA5YsPVpczcZhS3FjRG8Ou5rlcG9xY+qaOAJoB3E1aoK6768Iw+U65i+OUXVjQN8jxdUutTbNq1FsJr8TN/YuaNJacIVS1hq/klXEjTGFY8T1O6q93eektprwoZdxK+nIuhXiKLcF4sbbdM+QZeJed5d8XVZ19wkAjIttBAAAAAAAVfP85kE4StxGQJdcJzuKq09Jnihu/OgpZZPy/8SNr+suEFevXF4sblxdFMc13V1cnUpX9/0VT7Rx/aa2tbj+0bdcFourX2ptmVej2EriaW9u3F0ST3baWVyNSlTSWiOeuuTGmML54voc1Ubuc1JbTfjgyziVdmTdZPcRN+Yme6u419pVh7r7BADGxTYCAAAAAICqeX7zII7qcJsAXRQbKXGEn6tTKT4obuzouUjiCWWudjkdKW58XfcJcfXK5QvixtVVl8idxNWqZHXfX0vF9Zvas8T1j77TxdWuDnXPqzeJ63fc7ih/ETfmLvqHbCGuVqUpaa0RR+jVEUrcSFx/ozrffUZqswkffhmn0o6sm+yl4sbcRPPlI+JeZ9c9xd0rADAOthEAAAAAAFTNG9w8WEfiCCO3EVC3+NX8lRLBlAgYxf8b///rxf3zuYw7iLEyZ4obN/r2F1e7nM4VN7aue7q4euVymbhxpRBHPp21Er+VeK+L48riPdD9ndx+I7memJNK3ffXw8X1mxqByJV7j7ja1aEt82o2bi/xpD033pyulghbrVgPjmttusJpspq4mpWktLXGm8WNcy72FtfXqD7hPiO12YQPwYzLznKzuPBJCb4obtxNEyGnj4p7jeNwhVwk58tf5F/i/rlc/imbuvsFAHKzjQAAAAAAoGre4ObBW8VtAqR2s5wqb5FHSjxBZFVxYwqx8XZ/eaYcI38S93fr8lBx4xq328pN4sacQvxtF86YTgQ7YkMyXCH/Efd3cztbXP1y2UDcuFKKmrtrUro7i6tZDnE0k6tlChFaWiSu35msL/eUp8i7JN4n46gu10edviRufCWq+/6K+q8lru/UdpIIr7p7JYV4Ypd7jan8U1y/Ke0qrnaptWleDSsCjmeIG2+dItT+GXmGxD0wXdAyns64pewph8gvxf29uuR6stuocqw1Zuvfsqm48Y7qMHF9jepZ7jNSm034IMw4rCkRdHHBk1JcLm7sTfNBca8vhwvkA/Ik2U7iqEI3xlVlS3mcxFO+zhH39+ryFXe/AEButhEAAAAAAFTNq24cRGjmWnGbAKnExt7hcleZ2v9sPVAi9JTjKSjx1JVVxI1jnHYXN95UYsPd9TsbsWEZ13s3OUDimsUTGlx/dbqbuPHlEJuybkwp3Vtc35hePE3K1TKFn4nrcxTryXPkF+L6qkv06cZTmrrvr5+L67eJPiTuNabyDnH9NtHjxL3GVEqbV/PlK+LGWpcfy//KTEH3ldlOjpAbxfWRUoS3IyDrxlGCHGuNUaR+MmocX+n6GdVd3WekNpvwIZNxOExc4KQ024gbf1O8WtzrqtP1Esfk3VvcmIa1kxwnro867OLuGQDIyTYCAAAAAICqedWNg/glvdsASCWO07iPTO13ruKJMN8S12dK+4nrf5wOFjfWVD4ort8UtpX4+zk2J8NLxI0jh/eKG1Mq/5K5bBR31VHi6plCPI3J9TlXj5A4Ws71mVoEX7cQN46S1H1/HSqu3yaKJyK515jKo8T120Rdm1dxxJgbZx3i6Y+pj+3bXnI84enL4vovQd1zdlTxFNcdxI15tiI8n/Iph5e7z0dtN+EDJbmVfmTdZM8W9xqaIJ6O5F5TnT4uG4sbz6hivsSToVx/Kf3M3TMAkJNtBAAAAAAAVfOqmwd1hoXiCT5xpMbUPlOJJxHEkSKu71ROFNf3OJ0ibqyp7COu35TiSUR/Edd/Sp8T138Op4kbUypx77p+MbPzxNUzhceK6zOFBRJBKtdvak04wq7u+2svcf02zdpS51GnEWZYR1zfTdSleRWho7h+bpypfVTWEDeOuVpTviqu35TieFHX/7jVPWfn4nvixjxbEfZ1f39UX3Kfj9puwgdJcqrjyLrfm7ZUPinudZQujon7l7jXVIe/yIPFjSWF9eQ0cX2nxFOdAIyVbQQAAAAAAFXz+hsHcSzbNeI2AVJ4jEzury5vEtf/qGLj74/ydYmj8lyf47JQrhM37lQ2Ftd3anEUzN/EjSGVM8T1XbfYeE359AHnDeL6xvQ2FFfLVOK4OddvSk+VOoMrKzxEXP8lyHF/xVxxfTdN3Ued/kpcv03UpXl1O/mruDGmFO9VcXytG0NKiySOBXRjSGVCXN/jlGPOztWjxY19NlL/qOGl7vNR2034EElOqY+sO0X2ndKW0oXiXkfJVpdfiXs9dfixrC9uLCmtLWeLG0Mqn3X3DQDkYhsBAAAAAEDVvP7GwV1v/cK/LqvL5P7qEk92+qa4Mcwkjk+Lo/Xi6SVxHNxTJH6xHxtHrp8S3E/ca0nlD+L6rcse4saRyp/E9Vu3h4kbT0q7iOsb04unqbhapvBbcX3W4UXixpDSyeL6LkHd91c89cv120RvE/caU/mIuH6bqO55FesN1+84fEbcGFN7vrj+6xDh6RvEjSOF/0gExFzf45JjrTFX50g8kdCNf1jfEfe3R7WT+3zUdhM+QJJL6iPrlkk8uejOk9rqsIm411OqQ8W9jjp8VRaJG0cd7iLXiRtLCv+R9dy9AwA52EYAAAAAAFA1r79xUPcGSc4nF9xJlokbx/VylnxW3igRdtheVhP3t0r2SnGvMZVPiuu3Tj8TN5YU/imuz7rFPHPjSSXmesmBvFIdKq6eKRwurs+6fF7cOFLaSVzf41b3/fVxcf020Q/EvcZUniSu3ybqyrzaVdz4UouQneu/TnW+x4f9xfU7LnXP2VTmEniLkNS14v7uKOJvLXCfj9puwodHcqjjyLq3y4q/f8WtbXWIJ0ZNfi0l20luEvc6UvueLBQ3jjq9Vtx4Unmqu3cAIAfbCAAAAAAAqub1Nw8eL24TIJXnyOT+6hZBg1PlGIlAUBydd2eJI/rcP99EXxFX61SeLa7fOr1V3FhSuFJcn3X7trjxpBLz3PWLmdV5tFEcKef6rMumknLz1/mYuL7Hre776+ni+m2aOOq0zifchDuI67uJujCvIuAdT5Zy40vpx7KquDHUKULvcfywG1MK3xLX77jUPWdTuVxuK+41rMx9xP3NUX3XfTbqggkfHMkh9ZF1f5QIT634+yeJ++dS+JBMfi2lWkXOFPcaUvudxFFybhx1i+v+D3HjSmHC3TsAkINtBAAAAAAAVfP6mwd1B52uEY7XSieO6PuHuFqnso24vut0oLixpHC+uD7rFJu7dQdQ3iWub0xvLVkurp4pbCGu3zrV/fSSq2WRuL7HJcf9FUdgub6b5gHiXl8q4zoatA5dmVfxZB03tpRi7ReBI9d/DqeJG1cKERxcQ1y/uaWes3Gcs2tP5e3iXsfKvFjc3xvVUvfZqAsmfHCkbqmPrAuPksl9HCzun0vhbJncV6meIW78qcXRcduIG0Mu7xY3thR+6O4dAMjBNgIAAAAAgKp5/c2D3W790r9un5AdZXLfmL3txNU3lb+L67dudT7R6fvi+qxT6qcPOI8V1zem9whxtUzhL+L6rNuW4saT0h7i+h6Xuu+vy8T120SvFvcaU/mMuH6bqAvzKkKLl4obX0ovE9d/LnWuKcKDxPWbW+o5+wap82lYcYz05uJey0yOE/f3RvUI99moCyZ8aKROdRxZd7xM7eex4v7ZFCKktY5M7bMkcYTcxeLGn9oLxI0hp3uLG9ts/UvOkXgi2JHyBrmLu3cAIAfbCAAAAAAAqub1Nw/i6QJuE6AuZ8vbJJ4yEcenTB4LVu554uqaypfF9Vu3OOLGjSeFD4jrs04vETeWlG4nrm9Mb6m4WqZwrLg+czhT3JhSGcc9NJO6768viOu3ib4m7jWmsr+4fpuoC/Mqx9Ocfi9xZKLrP5e9xI0tlaij6ze31HM2nkp49JS21CbEvZaZXCTub40inuq42H026oIJHxqp0wfEBUxGFcGUzWRqPxuL++dTmfoEqdLsL27cqZ0mcUSeG0NO8+Xv4sa4wo0SRxz+UD4j75Dnyx5yD1nX3SMAME62EQAAAAAAVM3rbx6sIv8UtxlQt+sknrZzsOwpo/zKu2s+La6WqbxcXL91ur+4saSyr7h+63S8uLGk8ltx/WJm3xVXzxReKK7PHA4RN6ZUIqDq+h2Xuu+vOCbJ9ds0cdTpleJeYyp3E9d3E7V9XsV8iBCSG1tKe4vrP6e7ixtbKoeJ6ze3lHM21uQxRzaSf93aVpd4EpV7Pc7G4v7GqE53n4u6YsKHRuryUHEBlLl4qbi+wiXi/p0UDhHXZwki9JP6qVnTub+4MYzDUXK6fEneLy+XfeR+sokMBLLcPQEAJbGNAAAAAACgal51E+GL4jYDxiE2ZSOM8B55imwvq8rUMXfVH8XVLZUl4vqty20kQjtuLCncJOuL67tOcUSRG08qh4vrF9NbINeKq2cK9xDXbw6PFzemVOIJGKuL63sc6r6/7i2u36aJ/36615dK/Pc6wtKu7yZq+7zaVdy4UjpHSpgT8d99N75Uvimu39xSztnTZcXffc2tbXX5oUx+HTN5nLi/Mar3uc9FXTE1+FGjxRJP03FhmVGdJQvE9RdOEPfvpfBjcX2WYHdxY07tq+L6bwx3TwBASWwjAAAAAAComlfdRIhf37vNgFJcL6fJR2Q/2VqmvoYu2FRcfVL5t0QYxPVdh7XlZHFjSeU74vqu013EjSWlv8pZhYkjstYQV5MS7CSulinEU/HGubm/rbhxpXQvcX3nVvf9FWG4toRr41g59xpTOVFcv03UhXkVx2u6saUUAXXXd25xNLIbXyrx3zzXb06p5+wRsuJvx3/L6w7WR4Bp8uuZzjvF/fuj2st9LuoKF/6oyYfFhWVGdbPEk3pcXyu8Tty/m8J/ZA1x/Y7b58WNObWdxfXfGO6eAICS2EYAAAAAAFA1r7qJEOGWi8VtCJTqCvmGHCT3ky489SmOYHO1SOV74vqtQzw5qq1H6DxD3Fi6IJ4Y4mpSgpeKG3MK8V7k+sxlLXHjSmnYTem61X1/fVtcv000Ie41phL//XX9NlHd8+pb4vrNZbHU+US7cLksFNf/OLgxpnKBuD5zSj1nIxg5+e8/Udw/l0qsASOQNrlP5wfi/v1Rbeg+F3WFC3/UoI4j644Q19dku4n7d1N5sLh+x2ltuV7ceFP6pbj+G8XdEwBQEtsIAAAAAACq5g1uJMSTktyGQFNcLfF0iRfLncW9xqb7kLjXnsqbxfWbynx5kBwnN4sbQ0qxEZnzCVUrHCVuPG0X13QdcTUpQZ1HdMYxP67PnOLJd25sqRwgrt/c6r6/3iCu3ya6SNxrTOWB4vptorbPq73EjSuld4nrexzqDn/GkXGu35xSz9l46uHkvx9rth+L+2dTOVAm9zlVrOHiaaPu3x3Fee4zUZe48EdidRxZd7msK66/ydYT9++n8lpx/Y7TvuLGmtoB4vpvFHdPAEBJbCMAAAAAAKiaN7iZEBsa3xe3MdBEv5G3yT3Fvd4miqNS3GtN5RHi+h1FzKeNJTbC4ykBx8ifxfVbl3jagRtb3c4TN562O0dcPUrxN3HjTmFncX3mdKW4saWyVFy/udV9fz1UXL9Ns5m415fKDbK6uL6bqO3z6uPixpXS3cX1PQ4biBtjKnFcqes3p5Rz9kZx9/N9pM5g+j9kpoB0HJnq/r1RHeU+E3WJC38klvrIurCfuL6c88X9jRROEtfnOH1a3FhTukk2FNd/o7h7AgBKYhsBAAAAAEDVPL+hsInEr9Td5kCTRegpnkZyG3GvuwnWlpvEvb5UIqgSYapR/UHiCSJxrGDdY12ZX8oq4mpZpw3FjacLjhRXkxJsLW7MKfxH1hDXb06xYezGl0oJT2up+/6Kzf41xfXdNHUfdfojcf02URfmVfz32Y0tlTiGzPU7LncTN85Uxh10Sj1nzxDXT4iguvt3UnmPuH7D88X9O6N6hvtM1CUu/JFQHUfWfV/mi+vPOVbc30nhallVXL/jcqm4sab0I3F9N467JwCgJLYRAAAAAABUzfMbCiGOrviXuA2CpouNqXgqSYSG3Gsv2e7iXhMGLZd4CoGrY90eL25MXfBMcTUpwbPEjTmFONrH9Zlb3e/bh4nrN6e6769TxfXbRB8W9xpTeYe4fpuo7fNqI3HjSqmkY+tC3WumP4nrN5fUczaORnb9hPgRxLXi/r0UIix8J3F9f0rcvzOqu7jPRF3iwh+J1HFk3TLZVlx/03m5uL+Vyj3F9TsOW4obY2qvEtf/sO4hZzXAGbK9u28AIBfbCAAAAAAAqub5DYUVHiRXi9skaIPLJYIPcbyae/0limP43GvBoNeLq2EO7xM3pi7YVlxNSvAJcWNO4RBxfea0mrixpTTTUzdyqfv+KuE1pnK2uNeYyv+I67eJ2j6vHi1uXClFsMj1PS7xFE83zlTiSaGu31xSz9kni+tnhTeI+/dS+by4flMezxdPrLWfibpkwgdRUqjjyLq3ietrJg8W97dSOVBcv+PwJHFjTG07cf0PK2rm/m6J3ufuGwDIxTYCAAAAAICq+LJ/Je4hcQyZ2yxoi29JPOnAvf7S/EDca0DVF2UcR9atcLq4cbVdHJtWcnDwfHHjTmEPcX3mFE/DcGNLKZ6G5/rOqe77a09x/TZNPLXwZnGvMYX42018MuJ02j6vXiNuXKnEUxQXi+t7XA4XN9ZUThbXby6p5+ydxfWzwiK5WNy/m8r9ZXKf64r750Z1vNjPRF0y4YMoc1XHkXV/kEXi+pvJWnKTuL+ZwufF9TsObxc3xpQuEtf3bNR5nGBqe7v7BgBysY0AAAAAAKAqvuwfwnryJXEbBm3xVxnXMWfDWijXixs/+mLjcU1xNcwhNnpjw9eNre2+Ia4mJajz2KYIfMRmrOs3p4eKG19KB4rrO5cc99cG4vpumnjaknt9qcTToly/TdSFeXW0uHGlcpa4fsfpNHFjTSWOVHP95pB6zv5NXD9TPUncv5/KT2VyYHpXcf/cqF4s9jNRl0z4IMpc1HFkXfgfcf0N47fi/mYKl4nrcxy+JG6MKcX/XN+zcbG4v12iDdx9AwC52EYAAAAAAFAVX/bPwt5S9y+5x+laeZi4116C+JW7Gzf6TpJxhpzCI8SNrQteJ64mJYj3LzfmFH4trs/cXiZufCk9UVzfudR9f50rrt8meru415jKh8X120RdmFcRAnZjS+Uz4vodl1gL1B1ee7O4vnNIPWdPENfPVBFCijCS+xup7CMr+ot1hftnRnVvsZ+JumTCB1Hm4mPiAiNz8QVxfQ3rE+L+bipbies3t1+KG19K+4vre1ibifu7Jfqtu2cAICfbCAAAAAAAquLL/lmKYyteIvEEJLeB0HTXyL3EvfZxe5W4MaPnfbKquNrlFEd7ufF1QclBwcPEjTmFj4rrM7cIGrjxpXRfcX3nUvf99TFx/TbRD8W9xlT2FddvE3VhXv1O3NhSiaPxXL/jkiN0PM7gZ+o5+2px/ThLxP2NVC6UeIpp9PXlW9tSiB803LJOdJ+JumTCh1FGtZu4wMhcXCObiutvWC8U97dTeYa4fnP7u7jxpXQ3cX0P64ni/m6JDnf3DADkZBsBAAAAAEBVfNk/otiAiE3O78hN4jYUmupPcjtxr3ucvipuvF0XobvHiKvZOHxX3DjbLt4H4igdV5MS/ELcuFN4srg+c4qnbOQIoN5WXP+51H1/PU1cv00T/42+QdxrTGUzcX03URfmVRxN5saWShxp5vodlwg/u3GmtK24vnNIPWd3FtfPdCbE/Z1UXi7RzyWT2ubq23LL+N1noi6Z8GGUUdxW6jiS7CXi+puNncT97VSOFtdvbjeLG18qN8pq4voe1vvF/e0S7evuGQDIyTYCAAAAAICqFV/4z9GG8nw5RW4Ut7nQNJ8S91rHJUIMV4oba1f9R94ja4ur2TgskHhigBtv250priYliABWnUcYbS6u35x2FDe2lP4oru9cctxfdxbXd9M8UNzrS+Uicf02UVfm1T/FjS2VXcT1Oy7xVCA3zlSuklXE9V231HM21u7xxFbX13Qi6HiduL+XQszXu09pm6s3yi3jd5+JumTCh1FGcaS4sMhcnCkLxPU3G6tLhHRcHymcL67fnNYRN7aUzhXX92z8XNzfLtFG7p4BgJxsIwAAAAAAqFrxhX9C8bSPx8kRcoG4jYam2EncaxyH7cWNsYuul/dLCeGSqWLOuDF3wUfE1aQEu4obcwrxBDjXZ25vFze+lOIJHq7vXOq+v+KJWK7fJjpI3GtMZdxzIaW6j+EqZV65saV0V3H9jkMcQezGmNKJ4vrOIfV74c/F9bMydR/5+BvTNhf/PV7XfSbqkgkfRpmtOo6si6cT3Vdcf6M4XVw/qWwkrt9cNhA3rpROENf3sNaU5eL+dmnOc/cLAORmGwEAAAAAQNWKL/xrtLHsIx+QODqqSU98OkHcaxqH/cWNsUv+LLGptr64GpXgZeLGntJZhfpfcTUpwVvE1TKFz4jrM6d4qsjF4saX0vPE9Z9L3ffXceL6baIIYbjXmEr8N8n120RdmVfxFEQ3vlS2ENfvOMSa040xpQPF9Z1D6jkb9XL9rMya8hdxf7M08VTHGO8tY3efibpkwgdSZqOuI+s+Kq6/UR0urp9U9hbXby5biBtXSvHULtf3sB4i7u+W6OPufgGA3GwjAAAAAACoWvGFf0ary33kOXK4nC51b76NKjZFNhL3OnKLp2e4MbZdHM0Sm8SPkVXF1aYkXxL3OlL5nbh+MbOTxdUzhRICH48WN7bU7iCu/1zqvr8OENdv00Twre6jTuMpg67vJurKvPqHuPGlsq64fnOLdeYV4saY0jiPI0w9Z58krp9hPEXc3yzNqfLfcbvPRF0y4QMps1HHkXUhjoM7K6G/iusnlfeLq08u64sbV0rvEdf3sF4j7u+W6KnufgGA3GwjAAAAAAComvyl/xitJnHMyIrw0y/lJnEbFbk9W9yYc7tI3Pja5gb5qbxLIrwRG5auHqW6XNzrSuVj4vrF9BbIdeLqmcLdxPWb04/EjS2leCKf6zunuu+ve4rrt2liTrrXl0qEqOaL67uJujKv6l5HrCOu39yeKW58KZ0hru9cUs/ZuTyNK94LThP3d0vyHvnvuN1noi6Z8IGUYdVxZF1T/VJcjXJZJG5cKS0V1/ewThT3d0u0mbtfACA32wgAAAAAAKomf+lfmMWyq7xJvifjeurTp8SNL6fNxI0tlThO0B1FllL8kv4U+YrEE5qOkggzvUqeLg+XO0o8icTVoAnuKq6+KT1NXN+Y3n3F1TKFCHyMe84+TNzYUnupuP5zqfv+ulqa8NS4YdR91OnXxPXbRF2aVxEid2NMZXNx/eb2K3HjS+kl4vrOIfWcjaPnXD+z8QBxf7ske8p/x+w+E3XJhA+kDKOuI+ua6iaJmrha5RJjcGNLZS5PdJov/xD3d0tzobtXAGAcbCMAAAAAAKia/KV/4daSOL4snmhzjbhNjDrEhpkbT077ihtbKvE0GNcvZudZ4uqb0p3E9Y3pvVxcLVM4UVyfucSTNOJJS25sKUXQdH1xY8il7vvrJHH9NtFnxL3GVF4trt8m6tK8+ry4MaYST+Z0/ea0u7ixpRRPnlxPXP85pJ6zx4rrZ7Y+J+7vl2ID+e943WeiLpnwoZRh1HVkXZPtLq5WudR9PN9nxfU7jLuI+5slOsbdKwAwDrYRAAAAAABUTf7Sv0HWlJfJteI2M1K6StwYcvqwuLGl8g5x/WJ2PiGuvqlcIq5fzOzL4uqZwkHi+swlR7gulPBku7rvr9eJ67eJ/iTuNaYST29x/TZRl+bVm8WNMZXHies3lwh+/lzc2FI6Wlz/uaSesy8U189sxRO9rhfXx7idK5Xxus9EXTLhQykrw5F13sHi6pXLKeLGlcqvxPU7jHii0zFyViL/FDfGFJ7u7hUAGAfbCAAAAAAAqqZ+8T/JhnI3eaTEcVmxof9+iWPH4glAv5eNxf27uewk8ct6t6mRkus7p7PFjSuV/xHXL2bnfHH1TSXVUxe65u/i6pnCOAMfG8k/xY0rte3FjSGnuu+vh4jrt2nuIO71pRL/zV0oru8m6tK8eqK4MabyFnH95hJBKzeulG6WbcX1n0vqObuDuH5GEXPA9TFuR0plrO4zUZdM+FDKTNYRjqzzfiCuZrkcIW5cqdws64nrO6fFcoW4MaawhbtXAGAcbCMAAAAAAF02b8nS1WRTWSJxDNzzZKkcLl+V0+QvskzcRsFU8VSlysbBGHxA3NhScv3msrbExpobVwrxt6MP1zeGF6ETV9+UXiSub0xvG3G1TGGcgY94csnXxY0rtS+KG0NOdd9f8d+8ReL6bponiXuNqfxQXL9N1LV5tZm4cabyA3H95rC61B1aC3E8m+s/l9RzNsKyq4jraxRxzPRfxfU1Tv8nlbG6z0ldMuGDJDOJp/K4cAgmJm6QheLqlsMB4saV0vPE9Z3TW8WNLYU/u/sEAMbFNgIAAAAA0DXzehsYsVF9ubgv/+fiYhn3kx32FTe2VK4R128u8bQlN65U4mlRrl/MzhPE1TellE9d6IrniKtlCuMMfLxN3JhSu1HuIm4MOdV9f/1MXL9N9BFxrzGVt4vrt4m6OK/OEzfWFG6SCOK4fusWR/C6MaUU74dbies/l9Rz9hvi+pmLp4vra5y2lMo43WemLpnwQZLp7CEuHIK+B4qrXQ73FDemlM6ROIbO9Z/DNhKBMje2FCbcfQIA42IbAQAAAADomnm9TRn3pX8qcaRdZfMgs7qDQH8U128usansxpXKh8X1i9mJYx1dfVO5WlI+daErPimunimMI/ART3J6s7jx1OFQcePIre77613i+m2iX4l7jam06ajTLs6rGJMbayrjOL4ujliu88mXK7xbXP85pZ6zrxHXz1zEWuUX4vobh0tlYJzuM1OXTPgwiRNH1l0iLhyCvoPE1S+HVeRyceNK6Zni+q/b6nK6uDGl8mx3nwDAuNhGAAAAAAC6aF69x3n8R+4rA5sImbxe3LhS+aa4fnOJp8a4caUST8Ry/WJ2zhBX31TGPQ+b6g/i6plC7sDHOvIFcWOpw59ksbix5Fb3/fVYcf02TcyROgMf8cSeNh112sV5dQ9xY03lX7KJuL7rEK8ngsBuLCnFE0xvI24MOaWeszuL62euHiSuv3E4TgbG6D4vdcmED5Q4HFk3nBPF1S+XI8WNK6UrZXNx/dclniL1KXHjSWkrd58AwLjYRgAAAAAAumjekqXvE/flfyp/l3EcqxWb8H8RN6ZU4ukpru8c4ljAG8SNK5VNxfWN4cU8jACAq28qdTx1oe02FlfLFCJMkivwEU/H2E/iqRRuLHWJp6S48eSW4/66nbi+m+ZR4l5fKmeJ67eJujyvThM33lS+LauK6zule0msP90YUttN3BhySj1nY325hri+UoiAkes3twNkYHzu81KXTPhQyVQcWTe8qySerOTqmMPO4saV2i9lbXFjSC3q+VFx40jpMnePAMA42UYAAAAAALpoXi+E5L78Tyl+xf9EGdhMqMnq8nVxY0npweL6z+EB4saUyriP5WuL2AB19U2prqcutNk+4mqZwtni+kxpLXmm/FbcGOoU4Vg3pnGo+/6K+rp+m+gd4l5jKh8S128TdXlePUHcmFP6jKwmrv8Uniz/Ftd3aqXM+9Rz9sfi+kllC6k7rD+Me8rA+NznpS6Z8MGSyTiybvbuIa6WOcSTj34tblyp/VTWFzeOVCJM9VVx/ad2rLtHAGCcbCMAAAAAAF01b8nSH4jbAEjtq7KdDGwqJLS91H3kTLhI5osbQw6vFjeuVD4trl/MzlvE1TeVOB6yzqcutNUHxNUzhbo2vm8vT5fPyzXi+q7bqRJBUje+caj7/jpcXL9N9CNxrzGVNh112uV5FU+Ji6dzuXGnFEfv3lncGEa1ueQ8wjPWmqW8H6aes4eI6yelusOXKxP/HbVPF3OflbpkwodLJuPIutl7obha5vJ/4sZVh4vlkeLGMVd7yZ/F9VuH/d09AgDjZBsBAAAAAOiqeUuWPlrcJkAd4lineNpSPDUgnkoysMEwojim5BhZLq7f1JaKG0cuJ4obVyrPE9cvZudkcfVNpe6nLrTVL8XVM4W5BD7iSMrYrL+f7CVvkOPlAnF95fRXiSP/3LjHpe7766ni+m2aCGNw1Onwuj6vHiZu3KldL/GEuLkGnnaUj8kycf3U4XK5o7jxjEPqObuHuH5Suo1cJq7/HE4SNy77WalLJnzAZIW6jqz7l5w1RleKG1cqx4qrZy6rym/Fja0up8ijZTVxYxrW6rKPnCqunzpt4+4RABgn2wgAAAAAQJfNW7L0O+I2AuoUT6M5ReJX3U+TB8kmMrDpMEX8M/HPxtNNPirni/v7dbla1hc3thziiQtXihtbKtuK6xvDWyDXiatvKjEP4ukbTXOAuJrlEJurN4mrZwrniXvNTjwZLlwl/xT390oQ73lxzKmr57jkuL/ieCXXd9M8UNzrS6VNR50yr3omxI29LqfJwRLB+wg+TXe0XYRB7yERKI0n88X7p/t7dYrQYElHxqaes/GDhHXE9ZVaHMHqxpDD68WNyX5O6pIJHzYJdR5ZF08ccn3m8mZx40ol6ub6zenh4sZWt79LBL1eIA+WDSWO03NjDOvJLvIiOU6uEvd36xbjnu/uEQAYJ9sIAAAAAECXzVuy9G5yo7jNgHGITf9LJTZQI8h08a1tdT+VYhgvlYGNkYziWrlxpXKFjPNYvraIp/K4+mLJ0r+Iq1kOu4sbE7zYQC9pU3+Fuu+vcc7R1A4S9xpTadNRp8yrnnUlxupeQy7x1KQIMsUT7WIsEbh0/1xOEZJ9vLiajUvqOfsrcf3UIYL7dT5hcSa7iBuT/ZzUJRM+fBLqOrIunvwzU/Alh7qeVDXZncT1ndNR4saW243yV7lIficXyOVyg7h/fhyOd/cHAIybbQQAAAAAoOvmLVn6OnGbAej7mawqAxsjGe0vbmypfEVcv5idV4irL5YsPVZczXKIp4a4MWFQBAtKDDmFuu+vcc7R1OK4WPcaU2nTUafMq74I0OQ8Dq50EXJ6irhajVPqOfsRcf3U5cHixlGnmNdrihuP/YzUJRM+IFNXEGiZbCeuz5w2Eje+lJ4mru+cFsu54saHqhe5+wMAxs02AgAAAADQdfN6v6yue0O0yf4um8vApkhmnxE3vlRi08z1i9k5QVx9sWTpi8TVLIc4LtONCVXxRL37iKthCeq+v14ort+mif+ux9GI7jWmsp24vpuIeVW1n7jX0TURcnqWuBqNW+o5G8cCun7q9CVxY6lL/GjBjeMW7jNSl0wMhmNuJ5eKC4PM1dvE9TkOF4sbYypHius3t23kanFjRN/d3f0BAONmGwEAAAAAwC1hp9vKmeI2Brosjm96gAxsiIzBn8SNMZV4ioPrF8OLo/8iGOfqiyVL7y6ubnVbKHEvuzGhL/4bUEKoczo57q8dxPXdNHGvudeXyj+kLUedMq+8OK7XvZauiKf/7C2uNuNWx5zdTFxfdbqz/EfceOrwLnHjuIX7fNQlE4PBmM+IC4LM1YWySFyf4/AlceNMJZ6k5Podh53lOnHjxMTElbKKuz8AYNxsIwAAAAAA6Jm3ZOkG8itxmwNdFMGIh8nAZsgY3EHcGFOJ17qauL4xvG3E1RdLll4p8ZQZV7e6RYjPjQl9h8sa4upXirrvr3/KuOZoas8X9xpT+aq4fpuo7nkVR0E2dV69RNxrarvLJY5WczUpQeo5e5G4fnJ4p7gx1eGx4sZwC/fZqEsmqoGYPcUFQVJ4lEztb5wOEjfOlDYQ1/c4PEwIO3knuHsDAEpgGwEAAAAAQN+8JUvXlpPFbRB0SfxS/v4ysBEyJk8SN85Uvi+uX8zOc8TVF0uWfkVczXJ4pbgxYcnSy2QvcXUrTd331zfE9dtEnxX3GlN5lbh+m4h5NbM40ux6ca+tjc6QLcTVohSp5+yEuH5yiCfK/k3cuFK7nbgx3MJ9LuqSiX4QJo6su0xcEGSujpfJfZVgV3FjTelx4voel3tLXccSNtlL3L0BACWwjQAAAAAAoGpe78k+75WbxW0UtN3pUtom10fEjTWVt4rrF7PzSXH1xZKlrxBXsxwiZOXG1GXx/n60zLjxW5i676/XiOu3iS4W9xpTKSkIPFfMq5XbSeKpP+71tcn7JI46dTUoSeo5+zxx/eSSIyR+jri+/8t9JuqSiX4Ipq4j6/4lm8nkvkqwtrjxpnSouL7HaRP5sbjxNlW8nrdOaZuNe7l7AwBKYBsBAAAAAEDVpC/9Hyp/Erdh0EY3ycFS4hFudR8puJu4fjE7fxBXXyxZukRczeo2X64QN6au+qmM63rMRd33187i+m2azcW9vlTi6T5NCIMMi3k1nHXl8+JeY9OdL026Tqnn7Hbi+sllVal7nXuEuL7/y30m6pKJXvilziPrXiqTgzYlOV/cmFM5XVy/47ZAXif/ETfuJnmfLJS7TWqbjatlVXdvAEAJbCMAAAAAAKia8sX/bSTCP9eJ2zhoi1Ol1I3/daTOp2tFwGuxuL4xvI3F1RdLll4rC8TVrW7bihtTF50pjxFXp9LVfX/9R9YQ13fTPFnca0zlB+L6bSLm1eztLZeIe71N8295rTTpGqWes/+QCAS7vnJ6mLjxpbKfuH7/y30m6pKJeo+sO0siVDM1aFOKup5itcJyWSyu7xJsIz8TN/bSXSy7yYrXMl/+Ju6fncmJ7r4AgFLYRgAAAAAAUOW+/JdN5aMST3JwGwhNFcf7xOZHCZs803mUuLGncoa4fjE7TxRXXyxZ+m1xNcshjuRxY+qSk2V3Kfl9bmXqvr9+Iq7fJor/VrvXmMrbxPXbRMyr0awIwUeI1b3u0kUA7TCJ0JB7fSVLPWfjaFfXzzicIG6MKdxJXJ//5T4TdclEfWGfm+V+siKIUqJ42pQbe0q7iuu7FBEQerJcKG78pVkm75bbyNTXcqy4f2cmr3D3BQCUwjYCAAAAAIAq9+X/JBvIm+RScRsJTRHhnnjqxbieMjMb7xD3GlJ5v7h+MTsfFFdfLFn6enE1y+HT4sbUdvEefajEE61cXZqm7vvrEHH9NtGvxb3GVCI05/ptIubV3NxeIvDUlONBr5RYU20i7vU0Qeo5+0px/YzDVrJM3Djn4i/i+qtwn4m6YqLeI+uOkKlBlNI8UNzYU3qzuL5LE8e/HSClBp4i4HS4bC5u/GF/cf/uTO7r7g0AKIVtBAAAAAAAVe7Lf2NVic3Oz0pTftH/N4kNovuJe02l+pG415NKHEPj+sXsxLFgrr5YsvQh4mqWwx/FjamNzpd4SkkcARTv0a4eTVX3/fVocf02zbpS91Gna4vru4mYV2kskufLaeLqME4xZ78vT5UYpxt/k6Ses6Wtid8tbpxzcay4vircZ6IumKj3yLrLZV2ZGkQpzVpyk7jXkMrJ4vou1SoSAbgYdzyVy72mnK6QQ2WmgNMKdxH3N6ZzrSxw9wcAlMI2AgAAAACAKvfl/0qsLrtJPBnod+I2GcYhNnt/Ie+Upm78xxOn6j4ucCNxfWN4a0lsprr6dt0Nsoa4utUt5rYbU9NFTc+VEyWeTrKPNPEIpmHVfX/FfyvWE9d300QA2b3GVM4S128TMa/qsaUcJLH+Gtd/F/8t8f64v2wobpxNlHrOXicLxfU1LuvI38WNd1QvFNdXhftM1AUTExPvmBT4SG0/mRpCKdWvxL2GVP4tq4rru3SbyMvlVMkZeoqafUWeIPGkKTe26fxF3N90TnL3BgCUxDYCAAAAAIAq9+X/LN1O9pA4zuQEiaeM1L3ZtVwukC/I6+RR0pYNxrdIbC7X4Zvi+sTsxVMIXI27bkJcvXI5QmIcv5eLZulP8s8RRBDJvU+F+L9N/mfjKKXo67cSwYBT5GvyOYkn0MWxf7FZ/wR5gDT5yKW5qPP+iv9OuT6bKJ5Y8w1xrzOFcR5DWQfmVb3i6V/xVKv3yA8l3u/c++Jc/UG+JK+WB0oE8N142iDlnD1GXB/j9gxx4x3V9uL6qXCfibpgYmJiRzmrBp+T+TI1gFKqg8W9jlTeKK7fpllP4klPH5Qz5Dpx4aFR/Et+JO+VR8jq4sYwjPif68M5yN0bAFAS2wgAAAAAAKrcl/8JxBNdtpVHyrPljfIB+bTEr+5jc/+nMnVz4nSJ/1uITcOjJDZ5XiPPlHhS051lNXH9AgAAoAzx9LlHyLPktfJhiZD6dyXWerHum7wOjKPaov0r8imJp3S+TB4vO8picf0As+I+E3XJhA+LACsTT6mKo+L2kgPlEPmUfEtOkdNkRdjrF7e2nSQRhHunHCCPk7tKHJfn+hjF3jI5aDaTndw9AQAlsY0AAAAAAAAAAAAAAAAAUBLbCAAAAAAAAAAAAAAAAAAlsY0AAAAAAAAAAAAAAAAAUBLbCAAAAAAAAAAAAAAAAAAlsY0AAAAAAAAAAAAAAAAAUBLbCAAAAAAAAAAAAAAAAAAlsY0AAAAAAAAAAAAAAAAAUBLbCAAAAAAAAAAAAAAAAAAlsY0AAAAAAAAAAAAAAAAAUBLbCAAAAAAAAAAAAAAAAAAlsY0A/n87ckgAAAwDQWz+TXcGXsCBgJAAAAAAAAAAAFAyEwAAAAAAAAAAoGQmAAAAAAAAAABAyUwAAAAAAAAAAICSmQAAAAAAAAAAACUzAQAAAAAAAAAASmYCAAAAAAAAAACUzAQAAAAAAAAAACiZCQAAAAAAAAAAUDITAAAAAAAAAACgZCYAAAAAAAAAAEDHvQ/5yAybAfB9AQAAAABJRU5ErkJggg== + + + 0, 0 diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb index ebfe935d..d2a6429e 100644 --- a/SDL/kassenbuch/frmBelegNeu.vb +++ b/SDL/kassenbuch/frmBelegNeu.vb @@ -328,7 +328,13 @@ Public Class frmBelegNeu If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then ' btnNeueAbfNr.Visible = True - cboFiliale.changeItem(4801) + + If PERSONAL.isLeihgeldkasse Then + cboFiliale.changeItem(4806) + Else + cboFiliale.changeItem(4801) + End If + ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then ' btnNeueAbfNr.Visible = True cboFiliale.changeItem(5501) diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index 3592e66f..8c2bac3e 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -77,8 +77,8 @@ Public Class frmNacherfassungLeihgeld stammfiliale = "5501" cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN (5501) ORDER BY FilialenNr ", False, "FMZOLL", True) Case "ATILLA" - stammfiliale = "4806" - cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN (4806) ORDER BY FilialenNr ", False, "FMZOLL", True) + stammfiliale = "4813" + cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN (4813) ORDER BY FilialenNr ", False, "FMZOLL", True) cbxOP_sofort_buchen.Checked = PERSONAL_LG.automFIBUBuchung Case Else @@ -313,8 +313,8 @@ Public Class frmNacherfassungLeihgeld Dim KundenKontoArchiv As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySql("SELECT isnull(c_archiv,'A') FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid = " & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "9", "7"), "FIBU") 'ATILLA MANDANT!' Select Case KundenKontoArchiv - Case "I" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden (799999)!") : Me.Cursor = Cursors.Default : Exit Sub 'inaktiv - Case "" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU nicht vorhanden, bitte andere KundenNr verwenden (799999)!") : Me.Cursor = Cursors.Default : Exit Sub 'nicht vorhanden + Case "I" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU INAKTIV, bitte andere KundenNr verwenden (799999)!") : Me.Cursor = Cursors.Default : Exit Sub 'inaktiv + Case "" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU NICHT vorhanden, bitte andere KundenNr verwenden (799999)!") : Me.Cursor = Cursors.Default : Exit Sub 'nicht vorhanden Case Else 'aktiv -> OK End Select @@ -454,16 +454,14 @@ Public Class frmNacherfassungLeihgeld If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" AndAlso spedBuchExisting Then - 'create Rechnung für ATILLA Dim verarbOK As Boolean = True Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(BELEG.FilialenNr, BELEG.AbfertigungsNr) Dim RK_ID As Integer = -1 - If Not gen_RECHNUNG_BySPEDBUCH(BELEG.KundenNr, SPEDBUCH, RK_ID, cbxOP_sofort_buchen.Checked, summeBRUTTO, summeNETTO) Then verarbOK = False + If Not gen_RECHNUNG_BySPEDBUCH(BELEG.KundenNr, SPEDBUCH, RK_ID, cbxOP_sofort_buchen.Checked, summeBRUTTO, summeNETTO, BELEG) Then verarbOK = False If RK_ID > 0 Then Dim RECHNUNG As New cRechnungsausgang(RK_ID) - 'rechnungsNr vergeben, aber nicht gedruckt! If Not cFakturierung.doRechnungsDruck(RECHNUNG, Today(),, 4) Then verarbOK = False If RECHNUNG.[DruckDatumZeit] IsNot Nothing Then RECHNUNG.[DruckDatumZeit] = Nothing @@ -477,9 +475,9 @@ Public Class frmNacherfassungLeihgeld MsgBox("Fehler bei Rechnungserstellung!") End If - End If - End If + + End If End If @@ -496,7 +494,7 @@ Public Class frmNacherfassungLeihgeld End Try End Sub - Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ByRef RK_ID As Integer, ByRef trdin As Boolean, ByRef summeBRUTTO As Double, ByRef summeNETTO As Double) + Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ByRef RK_ID As Integer, ByRef trdin As Boolean, ByRef summeBRUTTO As Double, ByRef summeNETTO As Double, ByRef BARBELEG As EABeleg) Try If KdNr = "" Then Return False @@ -594,7 +592,7 @@ Public Class frmNacherfassungLeihgeld RG.LOAD_OFFERT_POSITIONEN() ' --> OFFERTE MIT ANZAHL >0 und Preis >0 - allPos(RG, OFFERTE, 110, summeBRUTTO, summeNETTO, (summeBRUTTO - summeNETTO)) + allPos(RG, OFFERTE, 110, summeBRUTTO, summeNETTO, (summeBRUTTO - summeNETTO), " (" & BARBELEG.LKW_Kennzeichen & " " & BARBELEG.Fahrer & ")") Dim dtSt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RG.Steuerschlüssel & "'", "FMZOLL") If dtSt IsNot Nothing AndAlso dtSt.Rows.Count > 0 Then @@ -619,7 +617,7 @@ Public Class frmNacherfassungLeihgeld End Function - Function allPos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double, Optional UstBetrag As Double = 0) + Function allPos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double, Optional UstBetrag As Double = 0, Optional leistungsBez As String = "") Try For Each o In OFFERTE.POSITIONEN @@ -628,13 +626,11 @@ Public Class frmNacherfassungLeihgeld Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen() Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr) POS.LeistungsNr = o.LeistungsNr - POS.LeistungsBez = o.LeistungsBez + POS.LeistungsBez = IIf(leistungsBez <> "", leistungsBez, o.LeistungsBez) POS.BerechnungsartNr = o.BerechnungsartNr - 'POS.Preis = BruttoBetrag POS.Anzahl = 1 POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig - 'Berrechnunggebühr wird immer vom übergebenen Betrag abzüglich UST berechnet (Nettobetrag), außer bei UTA! POS.BGebBgl = NettoBetrag - UstBetrag @@ -645,7 +641,6 @@ Public Class frmNacherfassungLeihgeld POS.SteuerfreierBetrag = BruttoBetrag POS.Preis = BruttoBetrag End If - 'POS.NachzahlungsID = nachzahlungsID 'nix gut POS.BGebLeistungsNr = o.BGebLeistungsNr POS.BGebProzent = o.BGebProzent POS.BGebMinBetrag = o.BGebMinBetrag diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb index da09402f..c656dcae 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb @@ -2,6 +2,7 @@ Imports System.Data.SqlClient Imports System.Reflection +Imports jdk.nashorn.internal.objects.annotations Public Class cAufschubKonten Property brgakto_id As Integer @@ -173,7 +174,7 @@ Public Class cAufschubKonten Return SQL.doSQL("Update [tblBrgAufschubKonten] Set brgakto_gs_aktSaldo = CAST(REPLACE('" & brgakto_gs_aktSaldo & "' ,',','.')AS decimal(18,2)) WHERE brgakto_gs_standort = '" & brgakto_gs_standort & "'", "ADMIN") End Function - Public Function CalcSaldo(Optional dtDate As DataTable = Nothing, Optional Stichtag As Date? = Nothing) As String + Public Function CalcSaldo(Optional dtDate As DataTable = Nothing, Optional Stichtag As Date? = Nothing, Optional showMessage As Boolean = False) As String Dim StichtagSQLGesamtsicherheit = "" @@ -186,23 +187,31 @@ Public Class cAufschubKonten + Dim SaldoString As String = - "select + " SELECT + SUM(Betrag) AS GesamtSicherheitsSaldo + FROM ( + SELECT + CASE + WHEN gs_art = 'OPEN' THEN gs_sicherheitsbetrag * -1 + WHEN gs_art = 'CLOSE' THEN gs_sicherheitsbetrag + END AS Betrag + FROM tblGesamtsicherheit + WHERE gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & " AND ISNULL(gs_ReferenzAenderung,0) = 0 - (select SUM( - case - when gs_art = 'Open' then (gs_sicherheitsbetrag * -1) - when gs_art = 'Close' then gs_sicherheitsbetrag - end) - - as SicherheitsSaldoGS from [tblGesamtsicherheit] Where gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & ")+ + UNION ALL - (select SUM( - case - when gsp_art = 'Open' then (gsp_sicherheitsbetrag * -1) - when gsp_art = 'Close' then gsp_sicherheitsbetrag - end) - as SicherheitsSaldoPositionen from [tblGesamtsicherheitsPositionen] Where gsp_gsid IN (select gs_gsId from [tblGesamtsicherheit] where gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & " And ISNULL(gs_ReferenzAenderung,0) = 0 )" & StichtagSQLGesamtsicherheitsPositionen & ")" + SELECT + CASE + WHEN gsp_art = 'OPEN' THEN gsp_sicherheitsbetrag * -1 + WHEN gsp_art = 'CLOSE' THEN gsp_sicherheitsbetrag + END + FROM tblGesamtsicherheitsPositionen + WHERE gsp_gsnr IN ( + SELECT gs_gsnr + FROM tblGesamtsicherheit + WHERE gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & " AND ISNULL(gs_ReferenzAenderung,0) = 0 )) x;" Dim dt As New DataTable Dim mrn As Double = 0 @@ -214,7 +223,7 @@ Public Class cAufschubKonten If Stichtag.HasValue Then brgakto_gs_aktSaldo = getReferenzbetrag(Stichtag.Value) 'aktueller Referenzbetrag + Verwahrungsausgänge - Verwahrungseingänge zum Stichtag!!! -> nicht updaten, nur INFO!!!! brgakto_gs_aktSaldo += mrn - MsgBox("Saldo zum Stichtag " & Stichtag.Value & ":" & vbNewLine & brgakto_gs_aktSaldo.ToString("N2")) + If showMessage Then MsgBox("Saldo zum Stichtag " & Stichtag.Value & ":" & vbNewLine & brgakto_gs_aktSaldo.ToString("N2")) Else brgakto_gs_aktSaldo = getReferenzbetrag(Today) 'aktueller Referenzbetrag + Verwahrungsausgänge - Verwahrungseingänge.... brgakto_gs_aktSaldo += mrn @@ -233,7 +242,7 @@ Public Class cAufschubKonten Try - Return SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]='" & brgakto_id & "' and brgarefb_gs_aktiv = 1 And cast([brgarefb_gueltig_ab] as Date) <= '" & nowDate & "' order by [brgarefb_gueltig_ab] desc", "ADMIN",,,,) + Return SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]=" & brgakto_id & " and brgarefb_gs_aktiv = 1 And cast([brgarefb_gueltig_ab] as Date) <= '" & nowDate & "' order by [brgarefb_gueltig_ab] desc", "ADMIN",,,,) Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) From cd45295d63d6b9c2ae04d233e7fe10dc127c46ba Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 13 Jan 2026 16:37:10 +0100 Subject: [PATCH 4/4] Leihgeld, etc. --- SDL/Classes/cRKSV.vb | 5 +- .../BelegReports/rptLeihgeldBeleg.Designer.vb | 59 ++++++++++--------- SDL/kassenbuch/frmBelegNeu.vb | 2 +- SDL/kassenbuch/frmNacherfassungLeihgeld.vb | 3 +- 4 files changed, 35 insertions(+), 34 deletions(-) diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index 8453e854..cc136193 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -1339,15 +1339,16 @@ Public Class cRKSV If PERSONAL.isLeihgeldkasse AndAlso BELEG.Niederlassung = "SUA" Then - Dim fontAtilla As New Font("Arial", 14, FontStyle.Bold) + Dim fontAtilla As New Font("Arial", 12, FontStyle.Bold) rpt.lblFahrer.Font = fontAtilla - rpt.lblFahrer2.Font = fontAtilla + rpt.txtFrachtfuhrer.Font = fontAtilla rpt.lblLKWKz.Font = fontAtilla rpt.lblPassnummer.Font = fontAtilla rpt.Label12.Font = fontAtilla rpt.Label15.Font = fontAtilla rpt.Label14.Font = fontAtilla + rpt.Label7.Font = fontAtilla End If diff --git a/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.Designer.vb b/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.Designer.vb index 0be3f944..3afe615f 100644 --- a/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.Designer.vb +++ b/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.Designer.vb @@ -440,24 +440,24 @@ Partial Public Class rptLeihgeldBeleg ' Me.Label12.Height = 0.1968501! Me.Label12.HyperLink = Nothing - Me.Label12.Left = 0.01732284! + Me.Label12.Left = 0.01023622! Me.Label12.Name = "Label12" Me.Label12.Style = "font-size: 10pt; font-weight: normal; text-align: left" Me.Label12.Text = "Fahrer:" - Me.Label12.Top = 3.478741! - Me.Label12.Width = 1.28937! + Me.Label12.Top = 3.572441! + Me.Label12.Width = 1.76811! ' 'lblFahrer ' Me.lblFahrer.DataField = "" Me.lblFahrer.Height = 0.1968501! Me.lblFahrer.HyperLink = Nothing - Me.lblFahrer.Left = 1.49252! + Me.lblFahrer.Left = 1.833465! Me.lblFahrer.Name = "lblFahrer" Me.lblFahrer.Style = "color: Black; font-size: 12pt; font-weight: normal; text-align: left" Me.lblFahrer.Text = "-" - Me.lblFahrer.Top = 3.478741! - Me.lblFahrer.Width = 3.756299! + Me.lblFahrer.Top = 3.572441! + Me.lblFahrer.Width = 3.408268! ' 'lblFrachtf ' @@ -472,49 +472,50 @@ Partial Public Class rptLeihgeldBeleg ' 'Label15 ' + Me.Label15.DataField = "" Me.Label15.Height = 0.1968501! Me.Label15.HyperLink = Nothing - Me.Label15.Left = 0.01732286! + Me.Label15.Left = 0.01023625! Me.Label15.Name = "Label15" - Me.Label15.Style = "font-size: 10pt; font-weight: normal; text-align: left" + Me.Label15.Style = "color: Black; font-size: 10pt; font-weight: normal; text-align: left" Me.Label15.Text = "LKW-Kennzeichen:" - Me.Label15.Top = 3.28189! - Me.Label15.Width = 1.28937! + Me.Label15.Top = 3.323622! + Me.Label15.Width = 1.76811! ' 'lblLKWKz ' Me.lblLKWKz.DataField = "" Me.lblLKWKz.Height = 0.1968501! Me.lblLKWKz.HyperLink = Nothing - Me.lblLKWKz.Left = 1.49252! + Me.lblLKWKz.Left = 1.833465! Me.lblLKWKz.Name = "lblLKWKz" Me.lblLKWKz.Style = "color: Black; font-size: 12pt; font-weight: normal; text-align: left" Me.lblLKWKz.Text = "-" - Me.lblLKWKz.Top = 3.28189! - Me.lblLKWKz.Width = 3.756299! + Me.lblLKWKz.Top = 3.323622! + Me.lblLKWKz.Width = 3.408268! ' 'Label14 ' Me.Label14.Height = 0.1968501! Me.Label14.HyperLink = Nothing - Me.Label14.Left = 0.01732284! + Me.Label14.Left = 0! Me.Label14.Name = "Label14" Me.Label14.Style = "font-size: 10pt; font-weight: normal; text-align: left" Me.Label14.Text = "Passnummer:" - Me.Label14.Top = 3.675591! - Me.Label14.Width = 1.28937! + Me.Label14.Top = 3.852756! + Me.Label14.Width = 1.76811! ' 'lblPassnummer ' Me.lblPassnummer.DataField = "" Me.lblPassnummer.Height = 0.1968501! Me.lblPassnummer.HyperLink = Nothing - Me.lblPassnummer.Left = 1.49252! + Me.lblPassnummer.Left = 1.823228! Me.lblPassnummer.Name = "lblPassnummer" Me.lblPassnummer.Style = "color: Black; font-size: 12pt; font-weight: normal; text-align: left" Me.lblPassnummer.Text = "-" - Me.lblPassnummer.Top = 3.675591! - Me.lblPassnummer.Width = 3.756299! + Me.lblPassnummer.Top = 3.852756! + Me.lblPassnummer.Width = 3.408268! ' 'Label20 ' @@ -525,13 +526,13 @@ Partial Public Class rptLeihgeldBeleg Me.Label20.Style = "font-size: 10pt; font-weight: normal; text-align: left" Me.Label20.Text = "UID-Nr.:" Me.Label20.Top = 2.726772! - Me.Label20.Width = 1.28937! + Me.Label20.Width = 1.609055! ' 'lblUID ' Me.lblUID.Height = 0.1968501! Me.lblUID.HyperLink = Nothing - Me.lblUID.Left = 1.49252! + Me.lblUID.Left = 1.788583! Me.lblUID.Name = "lblUID" Me.lblUID.Style = "font-size: 10pt; font-weight: normal; text-align: left" Me.lblUID.Text = "-" @@ -609,24 +610,24 @@ Partial Public Class rptLeihgeldBeleg ' 'txtFrachtfuhrer ' - Me.txtFrachtfuhrer.Height = 0.148031! - Me.txtFrachtfuhrer.Left = 1.49252! + Me.txtFrachtfuhrer.Height = 0.2000005! + Me.txtFrachtfuhrer.Left = 1.788583! Me.txtFrachtfuhrer.Name = "txtFrachtfuhrer" Me.txtFrachtfuhrer.Style = "font-size: 12pt" Me.txtFrachtfuhrer.Text = Nothing - Me.txtFrachtfuhrer.Top = 3.07008! - Me.txtFrachtfuhrer.Width = 3.756299! + Me.txtFrachtfuhrer.Top = 3.018111! + Me.txtFrachtfuhrer.Width = 3.991339! ' 'Label7 ' - Me.Label7.Height = 0.148031! + Me.Label7.Height = 0.2000005! Me.Label7.HyperLink = Nothing Me.Label7.Left = 0.02047244! Me.Label7.Name = "Label7" Me.Label7.Style = "font-size: 10pt; font-weight: bold; text-align: left" Me.Label7.Text = "Frächter:" - Me.Label7.Top = 3.07008! - Me.Label7.Width = 1.28937! + Me.Label7.Top = 3.018111! + Me.Label7.Width = 1.76811! ' 'Label13 ' @@ -946,7 +947,7 @@ Partial Public Class rptLeihgeldBeleg Public WithEvents lblFahrer2 As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents lblKbNr As GrapeCity.ActiveReports.SectionReportModel.Label - Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents txtFrachtfuhrer As GrapeCity.ActiveReports.SectionReportModel.TextBox Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblKdNr As GrapeCity.ActiveReports.SectionReportModel.Label diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb index d2a6429e..373cbb04 100644 --- a/SDL/kassenbuch/frmBelegNeu.vb +++ b/SDL/kassenbuch/frmBelegNeu.vb @@ -330,7 +330,7 @@ Public Class frmBelegNeu ' btnNeueAbfNr.Visible = True If PERSONAL.isLeihgeldkasse Then - cboFiliale.changeItem(4806) + cboFiliale.changeItem(4813) Else cboFiliale.changeItem(4801) End If diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index 8c2bac3e..d15b8a30 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -591,8 +591,7 @@ Public Class frmNacherfassungLeihgeld Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True) RG.LOAD_OFFERT_POSITIONEN() ' --> OFFERTE MIT ANZAHL >0 und Preis >0 - - allPos(RG, OFFERTE, 110, summeBRUTTO, summeNETTO, (summeBRUTTO - summeNETTO), " (" & BARBELEG.LKW_Kennzeichen & " " & BARBELEG.Fahrer & ")") + allPos(RG, OFFERTE, 110, summeBRUTTO, summeNETTO, (summeBRUTTO - summeNETTO), "Leihgeldauszahlung (" & BARBELEG.LKW_Kennzeichen & " " & BARBELEG.Fahrer & ")") Dim dtSt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RG.Steuerschlüssel & "'", "FMZOLL") If dtSt IsNot Nothing AndAlso dtSt.Rows.Count > 0 Then