From 827c68ad49faeb73d992d4fa16d1fdeb72f57a8f Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 2 Oct 2025 09:10:07 +0200 Subject: [PATCH] Provisionsabrechnung --- SDL/Fakturierung/cFakturierung.vb | 231 +++-- .../frmRechnungenSuche.Designer.vb | 50 +- SDL/Fakturierung/frmRechnungenSuche.vb | 5 +- .../rptSammelRechnungAnlagenDruck.Designer.vb | 33 +- ...ptSammelRechnungAnlagenDruck_Leistungen.vb | 15 +- ...elRechnungAnlagenDruck_ProvSum.Designer.vb | 262 +++++ ...rptSammelRechnungAnlagenDruck_ProvSum.resx | 126 +++ .../rptSammelRechnungAnlagenDruck_ProvSum.vb | 40 + SDL/SDL.vbproj | 18 + .../frmProvisionisverguetung.Designer.vb | 215 ++++ .../frmProvisionisverguetung.resx | 980 ++++++++++++++++++ .../frmProvisionisverguetung.vb | 118 +++ SDL/kunden/frmKundenBesonderheiten_Add.vb | 5 +- SDL/kunden/frmOffertenBearbeiten.vb | 16 +- SDL/kunden/usrCntlKundenBesonderheiten.vb | 10 +- SDL/kunden/usrCntlOfferte.vb | 2 +- .../usrcntlKundeBearbeitenFull.Designer.vb | 164 ++- SDL/kunden/usrcntlKundeBearbeitenFull.vb | 13 +- .../MyTextBox.vb | 7 +- .../Classes/Berechtigungen/cBerechtignunen.vb | 84 ++ VERAG_PROG_ALLGEMEIN/Classes/SQL.vb | 2 +- VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb | 4 +- .../Classes/cKundenErweitert.vb | 7 +- VERAG_PROG_ALLGEMEIN/cAllgemein.vb | 3 +- 24 files changed, 2270 insertions(+), 140 deletions(-) create mode 100644 SDL/Fakturierung/rptSammelRechnungAnlagenDruck_ProvSum.Designer.vb create mode 100644 SDL/Fakturierung/rptSammelRechnungAnlagenDruck_ProvSum.resx create mode 100644 SDL/Fakturierung/rptSammelRechnungAnlagenDruck_ProvSum.vb create mode 100644 SDL/Speditionsbuch/frmProvisionisverguetung.Designer.vb create mode 100644 SDL/Speditionsbuch/frmProvisionisverguetung.resx create mode 100644 SDL/Speditionsbuch/frmProvisionisverguetung.vb diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 08297513..8de4bcc5 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -3303,7 +3303,7 @@ Public Class cFakturierung If dt Is Nothing Then MsgBox("ERR01: Keine Daten") : Return True If dt.Rows.Count = 0 Then MsgBox("ERR02: Keine Daten") : Return True If Not CHECK_SR_SQLDT(dt) Then MsgBox("ERR03: Es wurden Rechnungen mit einem 0-Betrag gefunden. Bitte prüfen Sie die Eingaben und starten Sie die Sammelabrechnung erneut.") : Return True - If Not CHECK_SR_GESSUM_SQLDT(dt) Then MsgBox("ERR04: Summe der REchnungen in Sammelrechnung ist '0'. Bitte prüfen Sie die Eingaben und starten Sie die Sammelabrechnung erneut.") : Return True + If Not CHECK_SR_GESSUM_SQLDT(dt) Then MsgBox("ERR04: Summe der Rechnungen in Sammelrechnung ist '0'. Bitte prüfen Sie die Eingaben und starten Sie die Sammelabrechnung erneut.") : Return True 'Rechnungsart prüfen, ob Sammelrechnung oder unvollständige SRG / If Not CHECK_SR_RU_RK_SQLDT(dt) Then MsgBox("ERR05: Bei Kopf-Sammelrechnung müssen Kopfdaten und unvollständige Rg-Einträge vorhanden sein. Bitte prüfen Sie die Eingaben und starten Sie die Sammelabrechnung erneut.") : Return True @@ -3810,7 +3810,7 @@ Public Class cFakturierung End Function - Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(RechnungsNr As Integer, DruckdatumUhrzeit As Date, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional VorschauID As String = "", Optional SammelrechnungsDT As DataTable = Nothing, Optional Sammelrechnungskopie As Boolean = False) As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean + Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(RechnungsNr As Integer, DruckdatumUhrzeit As Date, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional VorschauID As String = "", Optional SammelrechnungsDT As DataTable = Nothing, Optional Sammelrechnungskopie As Boolean = False, Optional RG_LIST As List(Of Integer) = Nothing, Optional Firma_ID As Integer = -1) As Boolean Try @@ -3822,6 +3822,9 @@ Public Class cFakturierung dt = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE Rechnungsausgang.Status In(2,3,4) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL") End If + ElseIf RG_LIST IsNot Nothing Then + ' MsgBox("Select * FROM Rechnungsausgang WHERE Firma_ID='" & Firma_ID & "' And RechnungsNr IN (" & String.Join(",", RG_LIST) & ") ORDER BY FilialenNr, AbfertigungsNr") + dt = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE Firma_ID='" & Firma_ID & "' And RechnungsNr IN (" & String.Join(",", RG_LIST) & ") ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL") Else dt = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE RechnungsNr is null AND VorschauID='" & VorschauID & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL") End If @@ -3847,8 +3850,11 @@ Public Class cFakturierung 'ORIGINAL Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr")) 'Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " _Rechnung_" & RechnungsNr & ".pdf" - Dim RG_Bezeichnung = "Rechnung_" & RechnungsNr & ".pdf" 'Rechnugnsdruck = Individuell für deise Rechnung, wird optional mitgegeben + Dim RG_Bezeichnung = "Rechnung_" & RechnungsNr & ".pdf" + If VorschauID = "PROVISIONSABRECHNUNG" Then + RG_Bezeichnung = "Provisionsabrechnung_" & Now.ToString("yyyyMMdd_HHmmss") & ".pdf" + End If If isMDMRechnungsdruck Then rpt = SammelRechnungAnlagenDruck_MDM(ROW, isMDMRechnungsdruck, dt, FIRMA, Rechnugnsdruck, KD_RG, RechnungsNr, VorschauID, Sammelrechnungskopie, RG_Bezeichnung, SammelrechnungsDT, tmpPath) @@ -4021,6 +4027,36 @@ Public Class cFakturierung If Row("RechnungsLandKz") IsNot DBNull.Value AndAlso Row("RechnungsLandKz") <> "" Then rpt.lblRechnungAn.Text &= cProgramFunctions.getLandBez_fromISO1Land(Row("RechnungsLandKz"), "", Row("RechnungSprache")).ToString.ToUpper + '--------PROVISIONSABRECHNUNG---------------------------------------- + Dim ADR_PROV As cAdressen = Nothing + Dim KD_ERW_PROV As cKundenErweitert = Nothing + If VorschauID = "PROVISIONSABRECHNUNG" Then + rpt.lblUeberschriftRG_GS.Text = "PROVISIONSABRECHNUNG" + rpt.lblSummeUeberschrift.Text = "Rechnungsbetrag:" + rpt.lblRgNrUeberschrift.Visible = False + rpt.lblRgNr.Visible = False + rpt.lblRgDatumUeberschrift.Text = "Datum:" + rpt.lblRgDatum.Text = Now.ToShortDateString + '-------- + Dim ProvisionAn = "" + KD_ERW_PROV = New cKundenErweitert(Row("RechnungsKundenNr")) + If KD_ERW_PROV IsNot Nothing AndAlso KD_ERW_PROV.kde_Provisionsverguetung Then + ADR_PROV = New cAdressen(KD_ERW_PROV.kde_Provisionsverguetung_GSAnKdNr) + If ADR_PROV Is Nothing Then Return Nothing + + ProvisionAn = If(ADR_PROV.Name_1, "") & vbNewLine + If If(ADR_PROV.Name_2, "") <> "" Then ProvisionAn &= ADR_PROV.Name_2 & vbNewLine + If If(ADR_PROV.Straße, "") <> "" Then ProvisionAn &= ADR_PROV.Straße & vbNewLine + If If(ADR_PROV.Ort, "") <> "" Then ProvisionAn &= ADR_PROV.Ort & vbNewLine + If If(ADR_PROV.LandKz, "") <> "" Then ProvisionAn &= cProgramFunctions.getLandBez_fromISO1Land(ADR_PROV.LandKz, "", Row("RechnungSprache")).ToString.ToUpper + + rpt.lblRechnungAn.Text = ProvisionAn & "" & vbNewLine & "-- Provisionsabrechnung für Kunde: --" & vbNewLine & rpt.lblRechnungAn.Text + rpt.lblRechnungAn.Height += 0.5 + Else + Return Nothing + End If + End If + '-------------------------------------------------------------- If isMDMRechnungsdruck Then @@ -4114,93 +4150,111 @@ Public Class cFakturierung End If + 'AddHandler rpt.ReportStart, Sub() + ' If VorschauID = "PROVISIONSABRECHNUNG" Then + ' Dim subRptProv = New rptSammelRechnungAnlagenDruck_ProvSum(rpt._LAN, VorschauID) + ' rpt.SubReport1.Report = subRptProv + ' rpt.SubReport1.Visible = True + ' End If + ' End Sub + AddHandler rpt.Detail.Format, Sub() - ' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString - ' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString + ' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString + ' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString - ' rpt.lblLeistungNr.Text = checkNull(rpt.Fields.Item("LeistungsNr").Value) - ' rpt.txtLeistung.Text = checkNull(rpt.Fields.Item("LeistungsBez").Value) - Dim RECHNUNG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(rpt.Fields.Item("RK_ID").Value) - If RECHNUNG IsNot Nothing Then - rpt.lblPosNr.Text = RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr & "/" & CDbl(If(RECHNUNG.SpeditionsbuchUnterNr, 0)).ToString("000") - rpt.lblDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString + ' rpt.lblLeistungNr.Text = checkNull(rpt.Fields.Item("LeistungsNr").Value) + ' rpt.txtLeistung.Text = checkNull(rpt.Fields.Item("LeistungsBez").Value) + Dim RECHNUNG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(rpt.Fields.Item("RK_ID").Value) + If RECHNUNG IsNot Nothing Then + rpt.lblPosNr.Text = RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr & "/" & CDbl(If(RECHNUNG.SpeditionsbuchUnterNr, 0)).ToString("000") + rpt.lblDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString - Dim AbfertigungsBez = SQL.getValueTxtBySql("SELECT TOP 1 isnull(Abfertigungsbezeichnung,'') FROM [Speditionsbuch] inner join Abfertigungsarten ON Abfertigungsarten.Abfertigungsart=Speditionsbuch.Abfertigungsart WHERE FilialenNr='" & RECHNUNG.FilialenNr & "' AND AbfertigungsNr='" & RECHNUNG.AbfertigungsNr & "' AND UnterNr='" & RECHNUNG.SpeditionsbuchUnterNr & "'", "FMZOLL") - AbfertigungsBez = AbfertigungsBez.Replace("ZA", "Zollabfertigung") - AbfertigungsBez = AbfertigungsBez.Replace("AE", "Ausfuhrabfertigung") - AbfertigungsBez = AbfertigungsBez.Replace("T1", "T1 Versandschein") - AbfertigungsBez = AbfertigungsBez.Replace("T2", "T2 Versandschein") - rpt.txtAbfertigungsart.Text = AbfertigungsBez + Dim AbfertigungsBez = SQL.getValueTxtBySql("SELECT TOP 1 isnull(Abfertigungsbezeichnung,'') FROM [Speditionsbuch] inner join Abfertigungsarten ON Abfertigungsarten.Abfertigungsart=Speditionsbuch.Abfertigungsart WHERE FilialenNr='" & RECHNUNG.FilialenNr & "' AND AbfertigungsNr='" & RECHNUNG.AbfertigungsNr & "' AND UnterNr='" & RECHNUNG.SpeditionsbuchUnterNr & "'", "FMZOLL") + AbfertigungsBez = AbfertigungsBez.Replace("ZA", "Zollabfertigung") + AbfertigungsBez = AbfertigungsBez.Replace("AE", "Ausfuhrabfertigung") + AbfertigungsBez = AbfertigungsBez.Replace("T1", "T1 Versandschein") + AbfertigungsBez = AbfertigungsBez.Replace("T2", "T2 Versandschein") + rpt.txtAbfertigungsart.Text = AbfertigungsBez - rpt.txtPackstuecke.Text = "" - If If(RECHNUNG.Packstücke_und_Warenbezeichnung, "") <> "" Then rpt.txtPackstuecke.Text = RECHNUNG.Packstücke_und_Warenbezeichnung.replace(vbNewLine, ", ") + rpt.txtPackstuecke.Text = "" + If If(RECHNUNG.Packstücke_und_Warenbezeichnung, "") <> "" Then rpt.txtPackstuecke.Text = RECHNUNG.Packstücke_und_Warenbezeichnung.replace(vbNewLine, ", ") - rpt.txtSendungsdetails.Text = "" - If RECHNUNG.AbsenderName_1 <> "" Then rpt.txtSendungsdetails.Text &= "Absender: " & RECHNUNG.AbsenderName_1 & " " & If(RECHNUNG.AbsenderName_2, "") & " " & If(RECHNUNG.AbsenderOrt, "") & vbNewLine - If RECHNUNG.EmpfängerName_1 <> "" Then rpt.txtSendungsdetails.Text &= "Empfänger: " & RECHNUNG.EmpfängerName_1 & " " & If(RECHNUNG.EmpfängerName_2, "") & " " & If(RECHNUNG.EmpfängerOrt, "") & vbNewLine - If RECHNUNG.LKW_Kennzeichen <> "" Then rpt.txtSendungsdetails.Text &= "LKW-Kennzeichen: " & RECHNUNG.LKW_Kennzeichen & vbNewLine - If RECHNUNG.BelegNr <> "" Then rpt.txtSendungsdetails.Text &= "Zollbeleg-Nr.: " & RECHNUNG.BelegNr & vbNewLine + rpt.txtSendungsdetails.Text = "" + If RECHNUNG.AbsenderName_1 <> "" Then rpt.txtSendungsdetails.Text &= "Absender: " & RECHNUNG.AbsenderName_1 & " " & If(RECHNUNG.AbsenderName_2, "") & " " & If(RECHNUNG.AbsenderOrt, "") & vbNewLine + If RECHNUNG.EmpfängerName_1 <> "" Then rpt.txtSendungsdetails.Text &= "Empfänger: " & RECHNUNG.EmpfängerName_1 & " " & If(RECHNUNG.EmpfängerName_2, "") & " " & If(RECHNUNG.EmpfängerOrt, "") & vbNewLine + If RECHNUNG.LKW_Kennzeichen <> "" Then rpt.txtSendungsdetails.Text &= "LKW-Kennzeichen: " & RECHNUNG.LKW_Kennzeichen & vbNewLine + If RECHNUNG.BelegNr <> "" Then rpt.txtSendungsdetails.Text &= "Zollbeleg-Nr.: " & RECHNUNG.BelegNr & vbNewLine - If If(RECHNUNG.Handling, "") <> "" Then - rpt.txtSendungsdetails.Text &= "Handling: " & RECHNUNG.Handling.ToString.Replace(vbNewLine, ", ").Replace(vbCr, ", ").Replace(vbLf, ", ") & vbNewLine - End If - If True Then 'ANLAGEN - Dim Anlagen = "" - If If(RECHNUNG.Anlage_1, "") <> "" Then Anlagen &= RECHNUNG.Anlage_1 & ", " - If If(RECHNUNG.Anlage_2, "") <> "" Then Anlagen &= RECHNUNG.Anlage_2 & ", " - If If(RECHNUNG.Anlage_3, "") <> "" Then Anlagen &= RECHNUNG.Anlage_3 & ", " - If If(RECHNUNG.Anlage_4, "") <> "" Then Anlagen &= RECHNUNG.Anlage_4 & ", " - If If(RECHNUNG.Anlage_5, "") <> "" Then Anlagen &= RECHNUNG.Anlage_5 & ", " - If If(RECHNUNG.Anlage_6, "") <> "" Then Anlagen &= RECHNUNG.Anlage_6 & ", " - If Anlagen.EndsWith(", ") Then Anlagen = Anlagen.Substring(0, Anlagen.Length - 2) - If Anlagen.Replace(" ", "").Trim <> "" Then rpt.txtSendungsdetails.Text &= "Anlagen: " & Anlagen - End If + If If(RECHNUNG.Handling, "") <> "" Then + rpt.txtSendungsdetails.Text &= "Handling: " & RECHNUNG.Handling.ToString.Replace(vbNewLine, ", ").Replace(vbCr, ", ").Replace(vbLf, ", ") & vbNewLine + End If + If True Then 'ANLAGEN + Dim Anlagen = "" + If If(RECHNUNG.Anlage_1, "") <> "" Then Anlagen &= RECHNUNG.Anlage_1 & ", " + If If(RECHNUNG.Anlage_2, "") <> "" Then Anlagen &= RECHNUNG.Anlage_2 & ", " + If If(RECHNUNG.Anlage_3, "") <> "" Then Anlagen &= RECHNUNG.Anlage_3 & ", " + If If(RECHNUNG.Anlage_4, "") <> "" Then Anlagen &= RECHNUNG.Anlage_4 & ", " + If If(RECHNUNG.Anlage_5, "") <> "" Then Anlagen &= RECHNUNG.Anlage_5 & ", " + If If(RECHNUNG.Anlage_6, "") <> "" Then Anlagen &= RECHNUNG.Anlage_6 & ", " + If Anlagen.EndsWith(", ") Then Anlagen = Anlagen.Substring(0, Anlagen.Length - 2) + If Anlagen.Replace(" ", "").Trim <> "" Then rpt.txtSendungsdetails.Text &= "Anlagen: " & Anlagen + End If - rpt.txtSendungsdetails.Text = rpt.txtSendungsdetails.Text.Trim - rpt.txtKdAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "") + rpt.txtSendungsdetails.Text = rpt.txtSendungsdetails.Text.Trim + rpt.txtKdAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "") - Dim stPfl As Double = 0 - Dim stFrei As Double = 0 + Dim stPfl As Double = 0 + Dim stFrei As Double = 0 - Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1) 'Bei Rechnung als Klasse ist der Betrag immer positiv! + Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1) 'Bei Rechnung als Klasse ist der Betrag immer positiv! - For Each p In RECHNUNG.POSITIONEN - stPfl += CDbl(p.SteuerpflichtigerBetrag) - Next - stPfl *= vorzeichen - rpt.lblSteuerpflichtig.Text = If(stPfl <> 0, CDbl(stPfl).ToString("N2", Globalization.CultureInfo.CurrentCulture), "") + For Each p In RECHNUNG.POSITIONEN + If VorschauID = "PROVISIONSABRECHNUNG" Then + 'Bei ProvAbr _> Nur Leistungen die als Provisionsabrechnung zählen! + If CBool(SQL.DLookup("Provisionsabrechnung", "Leistungen", "LeistungsNr='" & p.LeistungsNr & "'", "FMZOLL")) Then + stPfl += CDbl(p.SteuerpflichtigerBetrag) + stFrei += CDbl(p.SteuerfreierBetrag) + End If + Else + stPfl += CDbl(p.SteuerpflichtigerBetrag) + stFrei += CDbl(p.SteuerfreierBetrag) + End If - stFrei = CDbl(RECHNUNG.SteuerfreierGesamtbetrag) * vorzeichen - rpt.lblSteuerfrei.Text = If(stFrei <> 0, CDbl(stFrei).ToString("N2", Globalization.CultureInfo.CurrentCulture), "") + Next + stPfl *= vorzeichen + rpt.lblSteuerpflichtig.Text = If(stPfl <> 0, CDbl(stPfl).ToString("N2", Globalization.CultureInfo.CurrentCulture), "") - sumSteuerpflichtig += stPfl - sumSteuerfrei += stFrei + ' stFrei = CDbl(RECHNUNG.SteuerfreierGesamtbetrag) * vorzeichen + stFrei = stFrei * vorzeichen + rpt.lblSteuerfrei.Text = If(stFrei <> 0, CDbl(stFrei).ToString("N2", Globalization.CultureInfo.CurrentCulture), "") + + sumSteuerpflichtig += stPfl + sumSteuerfrei += stFrei - Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr) - If KUNDE_ERW.kde_FakturierungSR_Details OrElse isMDMRechnungsdruck Then - Dim subRpt = New rptSammelRechnungAnlagenDruck_Leistungen(rpt._LAN, RECHNUNG) + Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr) + If VorschauID = "PROVISIONSABRECHNUNG" Or KUNDE_ERW.kde_FakturierungSR_Details Or isMDMRechnungsdruck Then + Dim subRpt = New rptSammelRechnungAnlagenDruck_Leistungen(rpt._LAN, RECHNUNG, VorschauID) + rpt.SubReport.Report = subRpt + rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) + rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) - rpt.SubReport.Report = subRpt - rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) - rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) + 'txtPackstuecke.Top += SubReport.Height + 'txtKdAuftragsnummer.Top += SubReport.Height + 'txtSendungsdetails.Top += SubReport.Height + Else + rpt.SubReport.Report = Nothing + End If + ' rpt.Line10.AnchorBottom = True + ' rpt.Line10.Height = rpt.Detail.Height + End If - 'txtPackstuecke.Top += SubReport.Height - 'txtKdAuftragsnummer.Top += SubReport.Height - 'txtSendungsdetails.Top += SubReport.Height - Else - rpt.SubReport.Report = Nothing - End If - ' rpt.Line10.AnchorBottom = True - ' rpt.Line10.Height = rpt.Detail.Height - End If + End Sub - End Sub - - AddHandler rpt.ReportFooter1.Format, Sub() + AddHandler rpt.ReportFooter1.Format, Sub() rpt.lblSteuerpflichtigGes.Text = If(sumSteuerpflichtig <> 0, (sumSteuerpflichtig).ToString("N2", CultureInfo.CurrentCulture), "") rpt.lblSteuerfreiGes.Text = If(sumSteuerfrei <> 0, (sumSteuerfrei).ToString("N2", CultureInfo.CurrentCulture), "") @@ -4231,8 +4285,35 @@ Public Class cFakturierung rpt.lblZWSumme.Visible = False End If + + If VorschauID = "PROVISIONSABRECHNUNG" Then + Dim NettoGes = sumSteuerpflichtig + sumSteuerfrei + Dim ProvProzent As Double = KD_ERW_PROV.kde_Provisionsverguetung_ProzentDL + Dim ProvBetrag = NettoGes * ProvProzent + Dim subRptProv = New rptSammelRechnungAnlagenDruck_ProvSum(rpt._LAN, VorschauID) + subRptProv.lblNettoGes.Value = NettoGes.ToString("N2", CultureInfo.CurrentCulture) + subRptProv.lblProvProzent.Value = (ProvProzent * 100).ToString("N2", CultureInfo.CurrentCulture) + subRptProv.lblProvBetrag.Value = ProvBetrag.ToString("N2", CultureInfo.CurrentCulture) + subRptProv.lblProvBetragWaehr.Value = If(Row("Währungscode") IsNot DBNull.Value, CStr(Row("Währungscode")), "EUR") + + + rpt.SubReport1.Report = subRptProv + rpt.SubReport1.Visible = True + + 'DirectCast(rpt.SubReport1.Report, rptSammelRechnungAnlagenDruck_ProvSum).lblNettoGes.Value = NettoGes.ToString("N2", CultureInfo.CurrentCulture) + 'DirectCast(rpt.SubReport1.Report, rptSammelRechnungAnlagenDruck_ProvSum).lblProvProzent.Value = (ProvProzent * 100).ToString("N2", CultureInfo.CurrentCulture) + 'DirectCast(rpt.SubReport1.Report, rptSammelRechnungAnlagenDruck_ProvSum).lblProvBetrag.Value = ProvBetrag.ToString("N2", CultureInfo.CurrentCulture) + 'DirectCast(rpt.SubReport1.Report, rptSammelRechnungAnlagenDruck_ProvSum).lblProvBetragWaehr.Value = If(Row("Währungscode") IsNot DBNull.Value, CStr(Row("Währungscode")), "EUR") + + + 'rpt.SubReport1.Height = 100 ' nur falls nötig; sonst per Layout + Else + rpt.SubReport1.Report = Nothing + rpt.SubReport1.Visible = False + End If End Sub + tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) Dim pEx As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport rpt.Run(False) @@ -4492,7 +4573,7 @@ Public Class cFakturierung Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr) If KUNDE_ERW.kde_FakturierungSR_Details OrElse isMDMRechnungsdruck Then - Dim subRpt = New rptSammelRechnungAnlagenDruck_Leistungen(rpt._LAN, RECHNUNG) + Dim subRpt = New rptSammelRechnungAnlagenDruck_Leistungen(rpt._LAN, RECHNUNG, VorschauID) rpt.SubReport.Report = subRpt @@ -4574,6 +4655,14 @@ Public Class cFakturierung Return USRKURZNAME End Function + Shared Function getSBRgNameByMaId(Firma_id As Integer, MAID As Integer) As String + + If MAID <= 0 Then Return "" + Dim txt = SQL.getValueTxtBySql("SELECT top 1 CASE WHEN mit_geschlecht='w' THEN 'Frau ' ELSE (CASE WHEN mit_geschlecht='m' THEN 'Herr ' ELSE '' END ) END + mit_nname FROM [tblMitarbeiter] WHERE [mit_id]='" & MAID & "' ", "ADMIN") + Return txt + + End Function + Shared Function getSBRgName_FirmaPruef(Firma_id As Integer, USRKURZNAME As String) As String Dim firma = "" diff --git a/SDL/Fakturierung/frmRechnungenSuche.Designer.vb b/SDL/Fakturierung/frmRechnungenSuche.Designer.vb index a16b44c5..8e50eaa9 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.Designer.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.Designer.vb @@ -139,6 +139,7 @@ Partial Class frmRechnungenSuche Me.pnlTop = New System.Windows.Forms.Panel() Me.PictureBox5 = New System.Windows.Forms.PictureBox() Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Button8 = New System.Windows.Forms.Button() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer.Panel1.SuspendLayout() Me.SplitContainer.Panel2.SuspendLayout() @@ -1507,7 +1508,7 @@ Partial Class frmRechnungenSuche 'Label17 ' Me.Label17.AutoSize = True - Me.Label17.Location = New System.Drawing.Point(974, 5) + Me.Label17.Location = New System.Drawing.Point(1088, 5) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(30, 13) Me.Label17.TabIndex = 43 @@ -1529,7 +1530,7 @@ Partial Class frmRechnungenSuche Me.txtMaxSrch._WaehrungZeichen = True Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black - Me.txtMaxSrch.Location = New System.Drawing.Point(1010, 2) + Me.txtMaxSrch.Location = New System.Drawing.Point(1124, 2) Me.txtMaxSrch.MaxLineLength = -1 Me.txtMaxSrch.MaxLines_Warning = "" Me.txtMaxSrch.MaxLines_Warning_Label = Nothing @@ -1541,6 +1542,7 @@ Partial Class frmRechnungenSuche ' 'pnlBerichte ' + Me.pnlBerichte.Controls.Add(Me.Button8) Me.pnlBerichte.Controls.Add(Me.MenuStrip2) Me.pnlBerichte.Controls.Add(Me.Button3) Me.pnlBerichte.Controls.Add(Me.Button1) @@ -1549,9 +1551,9 @@ Partial Class frmRechnungenSuche Me.pnlBerichte.Controls.Add(Me.Label31) Me.pnlBerichte.Controls.Add(Me.MenuStrip1) Me.pnlBerichte.Dock = System.Windows.Forms.DockStyle.Left - Me.pnlBerichte.Location = New System.Drawing.Point(233, 0) + Me.pnlBerichte.Location = New System.Drawing.Point(161, 0) Me.pnlBerichte.Name = "pnlBerichte" - Me.pnlBerichte.Size = New System.Drawing.Size(747, 68) + Me.pnlBerichte.Size = New System.Drawing.Size(921, 68) Me.pnlBerichte.TabIndex = 6 ' 'MenuStrip2 @@ -1611,7 +1613,7 @@ Partial Class frmRechnungenSuche Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.Image = Global.SDL.My.Resources.Resources.statistik_small Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button3.Location = New System.Drawing.Point(583, 21) + Me.Button3.Location = New System.Drawing.Point(546, 19) Me.Button3.Margin = New System.Windows.Forms.Padding(0) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(153, 39) @@ -1626,7 +1628,7 @@ Partial Class frmRechnungenSuche Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.Image = Global.SDL.My.Resources.Resources.statistik_small Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(240, 22) + Me.Button1.Location = New System.Drawing.Point(213, 22) Me.Button1.Margin = New System.Windows.Forms.Padding(0) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(115, 39) @@ -1640,7 +1642,7 @@ Partial Class frmRechnungenSuche Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.Label10.AutoSize = True Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label10.Location = New System.Drawing.Point(162, 9) + Me.Label10.Location = New System.Drawing.Point(145, 13) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(50, 13) Me.Label10.TabIndex = 40 @@ -1654,7 +1656,7 @@ Partial Class frmRechnungenSuche Me.cboBerichtRgAbfArt.DropDownWidth = 250 Me.cboBerichtRgAbfArt.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cboBerichtRgAbfArt.FormattingEnabled = True - Me.cboBerichtRgAbfArt.Location = New System.Drawing.Point(162, 25) + Me.cboBerichtRgAbfArt.Location = New System.Drawing.Point(146, 29) Me.cboBerichtRgAbfArt.Name = "cboBerichtRgAbfArt" Me.cboBerichtRgAbfArt.Size = New System.Drawing.Size(50, 22) Me.cboBerichtRgAbfArt.TabIndex = 39 @@ -1675,7 +1677,7 @@ Partial Class frmRechnungenSuche Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.None Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20) Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1}) - Me.MenuStrip1.Location = New System.Drawing.Point(368, 23) + Me.MenuStrip1.Location = New System.Drawing.Point(343, 23) Me.MenuStrip1.Name = "MenuStrip1" Me.MenuStrip1.Padding = New System.Windows.Forms.Padding(5, 2, 0, 2) Me.MenuStrip1.Size = New System.Drawing.Size(182, 28) @@ -1697,21 +1699,21 @@ Partial Class frmRechnungenSuche ' Me.ToolStripMenuItem1.Image = CType(resources.GetObject("ToolStripMenuItem1.Image"), System.Drawing.Image) Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" - Me.ToolStripMenuItem1.Size = New System.Drawing.Size(372, 24) + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(376, 26) Me.ToolStripMenuItem1.Text = "TRANSFERRY/360 (Sammelrechnung auswählen)" ' 'EVOLOGSammelrechnungAuswählenToolStripMenuItem ' Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Image = CType(resources.GetObject("EVOLOGSammelrechnungAuswählenToolStripMenuItem.Image"), System.Drawing.Image) Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Name = "EVOLOGSammelrechnungAuswählenToolStripMenuItem" - Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Size = New System.Drawing.Size(372, 24) + Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Size = New System.Drawing.Size(376, 26) Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Text = "EVOLOG (Sammelrechnung auswählen)" ' 'ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem ' Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image) Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem" - Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(372, 24) + Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(376, 26) Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Friedrichshafen AG (Zeitraum auswählen)" Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Visible = False ' @@ -1721,7 +1723,7 @@ Partial Class frmRechnungenSuche Me.pnl.Dock = System.Windows.Forms.DockStyle.Left Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(233, 68) + Me.pnl.Size = New System.Drawing.Size(161, 68) Me.pnl.TabIndex = 5 ' 'btnPDF @@ -1760,7 +1762,7 @@ Partial Class frmRechnungenSuche Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnExcel.Location = New System.Drawing.Point(1117, 27) + Me.btnExcel.Location = New System.Drawing.Point(1235, 27) Me.btnExcel.Name = "btnExcel" Me.btnExcel.Size = New System.Drawing.Size(41, 34) Me.btnExcel.TabIndex = 3 @@ -1775,7 +1777,7 @@ Partial Class frmRechnungenSuche Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.FlatButton7.ForeColor = System.Drawing.Color.Black Me.FlatButton7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.FlatButton7.Location = New System.Drawing.Point(1164, 27) + Me.FlatButton7.Location = New System.Drawing.Point(1282, 27) Me.FlatButton7.Name = "FlatButton7" Me.FlatButton7.Size = New System.Drawing.Size(41, 34) Me.FlatButton7.TabIndex = 4 @@ -1783,7 +1785,7 @@ Partial Class frmRechnungenSuche ' 'lblErgebnis ' - Me.lblErgebnis.Location = New System.Drawing.Point(990, 4) + Me.lblErgebnis.Location = New System.Drawing.Point(1061, 42) Me.lblErgebnis.Name = "lblErgebnis" Me.lblErgebnis.Size = New System.Drawing.Size(168, 16) Me.lblErgebnis.TabIndex = 2 @@ -1863,6 +1865,21 @@ Partial Class frmRechnungenSuche Me.TestToolStripMenuItem.Size = New System.Drawing.Size(150, 19) Me.TestToolStripMenuItem.Text = "test" ' + 'Button8 + ' + Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button8.Image = Global.SDL.My.Resources.Resources.statistik_small + Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button8.Location = New System.Drawing.Point(738, 19) + Me.Button8.Margin = New System.Windows.Forms.Padding(0) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(159, 39) + Me.Button8.TabIndex = 46 + Me.Button8.Text = "Provisionsvergütungen..." + Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button8.UseVisualStyleBackColor = True + ' 'frmRechnungenSuche ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) @@ -2022,4 +2039,5 @@ Partial Class frmRechnungenSuche Friend WithEvents NachZollabfertigungspreisenToolStripMenuItem As ToolStripMenuItem Friend WithEvents NachRechnungslandToolStripMenuItem As ToolStripMenuItem Friend WithEvents NachLeistungsnummerToolStripMenuItem As ToolStripMenuItem + Friend WithEvents Button8 As Button End Class diff --git a/SDL/Fakturierung/frmRechnungenSuche.vb b/SDL/Fakturierung/frmRechnungenSuche.vb index 98c09063..c6dd7344 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.vb @@ -993,5 +993,8 @@ Public Class frmRechnungenSuche getJahrString = getJahrString.Substring(0, getJahrString.Length - 1) End Function - + Private Sub Button8_Click_1(sender As Object, e As EventArgs) Handles Button8.Click + Dim f As New frmProvisionisverguetung + f.Show(Me) + End Sub End Class \ No newline at end of file diff --git a/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb index 6524e39c..6968a029 100644 --- a/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb +++ b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb @@ -91,6 +91,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck Me.txtVermerk = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.SubReport1 = New GrapeCity.ActiveReports.SectionReportModel.SubReport() Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() Me.lblLeistungsdatumUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() @@ -367,14 +368,14 @@ Partial Public Class rptSammelRechnungAnlagenDruck 'txtBank2 ' Me.txtBank2.Height = 0.4181103! - Me.txtBank2.Left = 2.975197! + Me.txtBank2.Left = 2.951575! Me.txtBank2.Name = "txtBank2" Me.txtBank2.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & "ar-set: 1" Me.txtBank2.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L" & "455" Me.txtBank2.Top = 0.1173228! - Me.txtBank2.Width = 1.78622! + Me.txtBank2.Width = 1.9563! ' 'txtDisclaimer ' @@ -758,7 +759,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck ' 'lblRechnungAn ' - Me.lblRechnungAn.Height = 1.291339! + Me.lblRechnungAn.Height = 1.412993! Me.lblRechnungAn.HyperLink = Nothing Me.lblRechnungAn.Left = 0.514567! Me.lblRechnungAn.Name = "lblRechnungAn" @@ -784,8 +785,8 @@ Partial Public Class rptSammelRechnungAnlagenDruck ' 'ReportFooter1 ' - Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.Line9, Me.lblSummeUeberschrift, Me.lblSteuerfreiGes, Me.lblSteuerpflichtigGes, Me.lblSumme, Me.Label46, Me.Line1, Me.Line5, Me.lblZWSumme, Me.lblSteuerbetrag, Me.lblSteuersatz, Me.Line6, Me.Line7, Me.Line14, Me.lblZwText, Me.txtInfo, Me.txtVermerk, Me.Label1, Me.Label2}) - Me.ReportFooter1.Height = 1.315355! + Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.Line9, Me.lblSummeUeberschrift, Me.lblSteuerfreiGes, Me.lblSteuerpflichtigGes, Me.lblSumme, Me.Label46, Me.Line1, Me.Line5, Me.lblZWSumme, Me.lblSteuerbetrag, Me.lblSteuersatz, Me.Line6, Me.Line7, Me.Line14, Me.lblZwText, Me.txtInfo, Me.txtVermerk, Me.Label1, Me.Label2, Me.SubReport1}) + Me.ReportFooter1.Height = 1.565355! Me.ReportFooter1.KeepTogether = True Me.ReportFooter1.Name = "ReportFooter1" ' @@ -1006,7 +1007,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck Me.txtVermerk.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & "ar-set: 1" Me.txtVermerk.Text = "Text" - Me.txtVermerk.Top = 1.253543! + Me.txtVermerk.Top = 1.503543! Me.txtVermerk.Visible = False Me.txtVermerk.Width = 7.422049! ' @@ -1019,7 +1020,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck Me.Label1.Style = "font-size: 8pt; font-weight: normal; text-align: right; vertical-align: middle; d" & "do-char-set: 1" Me.Label1.Text = "Zahlungsziel" - Me.Label1.Top = 1.096063! + Me.Label1.Top = 1.253543! Me.Label1.Visible = False Me.Label1.Width = 0.8114166! ' @@ -1027,15 +1028,27 @@ Partial Public Class rptSammelRechnungAnlagenDruck ' Me.Label2.Height = 0.1574803! Me.Label2.HyperLink = Nothing - Me.Label2.Left = 4.907872! + Me.Label2.Left = 4.907875! Me.Label2.Name = "Label2" Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & "-char-set: 1" Me.Label2.Text = "10 Tage" - Me.Label2.Top = 1.096063! + Me.Label2.Top = 1.253543! Me.Label2.Visible = False Me.Label2.Width = 1.958268! ' + 'SubReport1 + ' + Me.SubReport1.CanShrink = False + Me.SubReport1.CloseBorder = False + Me.SubReport1.Height = 0.3779527! + Me.SubReport1.Left = 0! + Me.SubReport1.Name = "SubReport1" + Me.SubReport1.Report = Nothing + Me.SubReport1.ReportName = "SubReport1" + Me.SubReport1.Top = 1.061811! + Me.SubReport1.Width = 7.480315! + ' 'GroupHeader4 ' Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungsdatumUeberschrift, Me.lblSteuerpflichtigUeberschrift, Me.lblPosNrUeberschrift, Me.lblSendungUeberschrift, Me.lblSteuerfreiUeberschrift, Me.Line4, Me.Line12, Me.Line16, Me.Line15, Me.Line17, Me.lblDurchlaufposten, Me.lblSteuerplichtUeberschriftMDM}) @@ -1205,6 +1218,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck ' 'rptSammelRechnungAnlagenDruck ' + Me.MasterReport = False Me.PageSettings.Margins.Bottom = 0.3937008! Me.PageSettings.Margins.Left = 0.3937008! Me.PageSettings.Margins.Right = 0.3937008! @@ -1377,4 +1391,5 @@ Partial Public Class rptSammelRechnungAnlagenDruck Public WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblSteuerplichtUeberschriftMDM As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents SubReport1 As GrapeCity.ActiveReports.SectionReportModel.SubReport End Class diff --git a/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.vb b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.vb index 78f175c5..c98b0ada 100644 --- a/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.vb +++ b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.vb @@ -2,13 +2,16 @@ Imports GrapeCity.ActiveReports Imports GrapeCity.ActiveReports.Document Public Class rptSammelRechnungAnlagenDruck_Leistungen - dim _LAN = "" + Dim VorschauID = "" + Dim _LAN = "" Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing - Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, VorschauID As String) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() Me._LAN = _LAN Me.RECHNUNG = RECHNUNG + Me.VorschauID = VorschauID ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart @@ -51,7 +54,13 @@ Public Class rptSammelRechnungAnlagenDruck_Leistungen RECHNUNG.ORDER_POSITIONEN() For Each POS In RECHNUNG.POSITIONEN - dt.Rows.Add(POS.LeistungsBez, POS.SteuerfreierBetrag, POS.SteuerpflichtigerBetrag, POS.Anzahl, POS.LeistungsNr) + If VorschauID = "PROVISIONSABRECHNUNG" Then + If CBool(SQL.DLookup("Abfertigungskosten", "Leistungen", "LeistungsNr='" & POS.LeistungsNr & "'", "FMZOLL")) Then + dt.Rows.Add(POS.LeistungsBez, POS.SteuerfreierBetrag, POS.SteuerpflichtigerBetrag, POS.Anzahl, POS.LeistungsNr) + End If + Else + dt.Rows.Add(POS.LeistungsBez, POS.SteuerfreierBetrag, POS.SteuerpflichtigerBetrag, POS.Anzahl, POS.LeistungsNr) + End If Next Me.DataSource = dt diff --git a/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_ProvSum.Designer.vb b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_ProvSum.Designer.vb new file mode 100644 index 00000000..6f4c5f45 --- /dev/null +++ b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_ProvSum.Designer.vb @@ -0,0 +1,262 @@ + +Partial Public Class rptSammelRechnungAnlagenDruck_ProvSum + Inherits GrapeCity.ActiveReports.SectionReport + + 'Form overrides dispose to clean up the component list. + Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing Then + End If + MyBase.Dispose(disposing) + End Sub + + Private Sub InitializeComponent() + Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(rptSammelRechnungAnlagenDruck_ProvSum)) + Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() + Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblSummeUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblProvBetrag = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblProvBetragWaehr = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line5 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line14 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblProvProzent = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblProvProzentWaehr = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblNettoGes = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() + CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblProvBetrag, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblProvBetragWaehr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblProvProzent, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblProvProzentWaehr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblNettoGes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'Detail + ' + Me.Detail.CanGrow = False + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.lblSummeUeberschrift, Me.lblProvBetrag, Me.lblProvBetragWaehr, Me.Line1, Me.Line5, Me.Line7, Me.Line14, Me.Label1, Me.lblProvProzent, Me.lblProvProzentWaehr, Me.Label2, Me.lblNettoGes}) + Me.Detail.Height = 0.5833333! + Me.Detail.KeepTogether = True + Me.Detail.Name = "Detail" + ' + 'PageHeader + ' + Me.PageHeader.Height = 0! + Me.PageHeader.Name = "PageHeader" + ' + 'Line8 + ' + Me.Line8.Height = 0.5314959! + Me.Line8.Left = 3.858268! + Me.Line8.LineWeight = 1.0! + Me.Line8.Name = "Line8" + Me.Line8.Top = 0! + Me.Line8.Width = 0.000002622604! + Me.Line8.X1 = 3.858268! + Me.Line8.X2 = 3.85827! + Me.Line8.Y1 = 0! + Me.Line8.Y2 = 0.5314959! + ' + 'lblSummeUeberschrift + ' + Me.lblSummeUeberschrift.Height = 0.1574803! + Me.lblSummeUeberschrift.HyperLink = Nothing + Me.lblSummeUeberschrift.Left = 4.309451! + Me.lblSummeUeberschrift.Name = "lblSummeUeberschrift" + Me.lblSummeUeberschrift.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.lblSummeUeberschrift.Text = "Provisionsbetrag" + Me.lblSummeUeberschrift.Top = 0.3279527! + Me.lblSummeUeberschrift.Width = 1.549213! + ' + 'lblProvBetrag + ' + Me.lblProvBetrag.Height = 0.1574803! + Me.lblProvBetrag.HyperLink = Nothing + Me.lblProvBetrag.Left = 5.511811! + Me.lblProvBetrag.Name = "lblProvBetrag" + Me.lblProvBetrag.Style = "font-size: 9pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & + "r-set: 1" + Me.lblProvBetrag.Text = "999.999,99" + Me.lblProvBetrag.Top = 0.3279527! + Me.lblProvBetrag.Width = 1.554331! + ' + 'lblProvBetragWaehr + ' + Me.lblProvBetragWaehr.Height = 0.1574803! + Me.lblProvBetragWaehr.HyperLink = Nothing + Me.lblProvBetragWaehr.Left = 7.066141! + Me.lblProvBetragWaehr.Name = "lblProvBetragWaehr" + Me.lblProvBetragWaehr.Style = "font-size: 9pt; font-weight: normal; text-align: center; text-justify: auto; ddo-" & + "char-set: 1" + Me.lblProvBetragWaehr.Text = "EUR" + Me.lblProvBetragWaehr.Top = 0.3279527! + Me.lblProvBetragWaehr.Width = 0.3748035! + ' + 'Line1 + ' + Me.Line1.Height = 0! + Me.Line1.Left = 6.299214! + Me.Line1.LineWeight = 2.0! + Me.Line1.Name = "Line1" + Me.Line1.Top = 0.481496! + Me.Line1.Width = 1.141732! + Me.Line1.X1 = 6.299214! + Me.Line1.X2 = 7.440947! + Me.Line1.Y1 = 0.481496! + Me.Line1.Y2 = 0.481496! + ' + 'Line5 + ' + Me.Line5.Height = 0! + Me.Line5.Left = 6.299214! + Me.Line5.LineWeight = 2.0! + Me.Line5.Name = "Line5" + Me.Line5.Top = 0.5090551! + Me.Line5.Width = 1.141732! + Me.Line5.X1 = 6.299214! + Me.Line5.X2 = 7.440947! + Me.Line5.Y1 = 0.5090551! + Me.Line5.Y2 = 0.5090551! + ' + 'Line7 + ' + Me.Line7.Height = 0.5314959! + Me.Line7.Left = 7.480316! + Me.Line7.LineWeight = 1.0! + Me.Line7.Name = "Line7" + Me.Line7.Top = 0! + Me.Line7.Width = 0.0000009536743! + Me.Line7.X1 = 7.480317! + Me.Line7.X2 = 7.480316! + Me.Line7.Y1 = 0! + Me.Line7.Y2 = 0.5314959! + ' + 'Line14 + ' + Me.Line14.Height = 0.0000001788139! + Me.Line14.Left = 3.86063! + Me.Line14.LineWeight = 1.0! + Me.Line14.Name = "Line14" + Me.Line14.Top = 0.5314959! + Me.Line14.Width = 3.619685! + Me.Line14.X1 = 3.86063! + Me.Line14.X2 = 7.480316! + Me.Line14.Y1 = 0.5314961! + Me.Line14.Y2 = 0.5314959! + ' + 'Label1 + ' + Me.Label1.Height = 0.1574803! + Me.Label1.HyperLink = Nothing + Me.Label1.Left = 4.30945! + Me.Label1.Name = "Label1" + Me.Label1.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.Label1.Text = "Provision in % " + Me.Label1.Top = 0.1925197! + Me.Label1.Width = 1.549213! + ' + 'lblProvProzent + ' + Me.lblProvProzent.Height = 0.1574803! + Me.lblProvProzent.HyperLink = Nothing + Me.lblProvProzent.Left = 5.511808! + Me.lblProvProzent.Name = "lblProvProzent" + Me.lblProvProzent.Style = "font-size: 9pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & + "r-set: 1" + Me.lblProvProzent.Text = "999.999,99" + Me.lblProvProzent.Top = 0.1925197! + Me.lblProvProzent.Width = 1.554331! + ' + 'lblProvProzentWaehr + ' + Me.lblProvProzentWaehr.Height = 0.1574803! + Me.lblProvProzentWaehr.HyperLink = Nothing + Me.lblProvProzentWaehr.Left = 7.066136! + Me.lblProvProzentWaehr.Name = "lblProvProzentWaehr" + Me.lblProvProzentWaehr.Style = "font-size: 9pt; font-weight: normal; text-align: center; text-justify: auto; ddo-" & + "char-set: 1" + Me.lblProvProzentWaehr.Text = "%" + Me.lblProvProzentWaehr.Top = 0.1925197! + Me.lblProvProzentWaehr.Width = 0.3748035! + ' + 'Label2 + ' + Me.Label2.Height = 0.1574803! + Me.Label2.HyperLink = Nothing + Me.Label2.Left = 4.309451! + Me.Label2.Name = "Label2" + Me.Label2.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.Label2.Text = "Netto Gesamtbetrag" + Me.Label2.Top = 0.03503944! + Me.Label2.Width = 1.549213! + ' + 'lblNettoGes + ' + Me.lblNettoGes.Height = 0.1574803! + Me.lblNettoGes.HyperLink = Nothing + Me.lblNettoGes.Left = 5.511811! + Me.lblNettoGes.Name = "lblNettoGes" + Me.lblNettoGes.Style = "font-size: 9pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & + "r-set: 1" + Me.lblNettoGes.Text = "999.999,99" + Me.lblNettoGes.Top = 0.03503944! + Me.lblNettoGes.Width = 1.554331! + ' + 'PageFooter + ' + Me.PageFooter.Height = 0! + Me.PageFooter.Name = "PageFooter" + ' + 'rptSammelRechnungAnlagenDruck_ProvSum + ' + Me.MasterReport = False + Me.PageSettings.Margins.Bottom = 0.3937008! + Me.PageSettings.Margins.Left = 0.3937008! + Me.PageSettings.Margins.Right = 0.3937008! + Me.PageSettings.Margins.Top = 0.3937008! + Me.PageSettings.PaperHeight = 11.0! + Me.PageSettings.PaperWidth = 8.5! + Me.PrintWidth = 7.480317! + Me.Sections.Add(Me.PageHeader) + Me.Sections.Add(Me.Detail) + Me.Sections.Add(Me.PageFooter) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & + "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & + "lic", "Heading2", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) + CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblProvBetrag, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblProvBetragWaehr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblProvProzent, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblProvProzentWaehr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblNettoGes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail + Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader + Private WithEvents Line8 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents lblSummeUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblProvBetrag As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblProvBetragWaehr As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line7 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line14 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblProvProzent As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblProvProzentWaehr As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblNettoGes As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter +End Class diff --git a/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_ProvSum.resx b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_ProvSum.resx new file mode 100644 index 00000000..e8cbd0f3 --- /dev/null +++ b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_ProvSum.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 0, 0 + + + 0, 0 + + \ No newline at end of file diff --git a/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_ProvSum.vb b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_ProvSum.vb new file mode 100644 index 00000000..724a4c90 --- /dev/null +++ b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck_ProvSum.vb @@ -0,0 +1,40 @@ +Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports.Chart +Imports GrapeCity.ActiveReports.Document + +Public Class rptSammelRechnungAnlagenDruck_ProvSum + Dim VorschauID = "" + Dim _LAN = "" + + Sub New(_LAN As String, VorschauID As String) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me._LAN = _LAN + + Me.VorschauID = VorschauID + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + End Sub + Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart + 'If _LAN.replace("DE", "") <> "" Then + ' SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptRechnungDruck") + ' SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptRechnungDruck") + 'End If + + If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing Then + lblProvProzent.Text = "" + lblProvBetrag.Text = "" + + 'Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1) + + 'lblProvProzentWaehr.Text = "EUR" + 'lblProvBetragWaehr.Text = "EUR" + + 'lblProvProzentWaehr.Text = CDbl(ProvProzent).ToString("N2") & " %" + 'lblProvBetragWaehr.Text = CDbl(ProvBetrag).ToString("N2") + + End If + + End Sub + + +End Class diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 923adcd0..4689a93f 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -674,6 +674,12 @@ Form + + rptSammelRechnungAnlagenDruck_ProvSum.vb + + + Component + rptSammelRechnungAnlagenDruck_MDM.vb @@ -997,6 +1003,12 @@ UserControl + + frmProvisionisverguetung.vb + + + Form + frmUSTVoffeneAntraege.vb @@ -3364,6 +3376,9 @@ frmSendEmail.vb + + rptSammelRechnungAnlagenDruck_ProvSum.vb + rptSammelRechnungAnlagenDruck_MDM.vb @@ -3567,6 +3582,9 @@ usrCntlFakturierung.vb + + frmProvisionisverguetung.vb + rptSpeditionsberichtRg.vb diff --git a/SDL/Speditionsbuch/frmProvisionisverguetung.Designer.vb b/SDL/Speditionsbuch/frmProvisionisverguetung.Designer.vb new file mode 100644 index 00000000..c095d8ab --- /dev/null +++ b/SDL/Speditionsbuch/frmProvisionisverguetung.Designer.vb @@ -0,0 +1,215 @@ + _ +Partial Class frmProvisionisverguetung + 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 + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + '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() + Me.components = New System.ComponentModel.Container() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProvisionisverguetung)) + Me.cbxNurOffene = New System.Windows.Forms.CheckBox() + Me.Label23 = New System.Windows.Forms.Label() + Me.Label13 = New System.Windows.Forms.Label() + Me.lblAbfertigungsdatum = New System.Windows.Forms.Label() + Me.Button9 = New System.Windows.Forms.Button() + Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'cbxNurOffene + ' + Me.cbxNurOffene.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cbxNurOffene.AutoSize = True + Me.cbxNurOffene.Location = New System.Drawing.Point(904, 27) + Me.cbxNurOffene.Name = "cbxNurOffene" + Me.cbxNurOffene.Size = New System.Drawing.Size(122, 17) + Me.cbxNurOffene.TabIndex = 1 + Me.cbxNurOffene.Text = "Nur offene anzeigen" + Me.cbxNurOffene.UseVisualStyleBackColor = True + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(132, 31) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(23, 13) + Me.Label23.TabIndex = 18 + Me.Label23.Text = "bis:" + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(12, 31) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(28, 13) + Me.Label13.TabIndex = 19 + Me.Label13.Text = "von:" + ' + 'lblAbfertigungsdatum + ' + Me.lblAbfertigungsdatum.AutoSize = True + Me.lblAbfertigungsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAbfertigungsdatum.Location = New System.Drawing.Point(10, 9) + Me.lblAbfertigungsdatum.Name = "lblAbfertigungsdatum" + Me.lblAbfertigungsdatum.Size = New System.Drawing.Size(105, 13) + Me.lblAbfertigungsdatum.TabIndex = 20 + Me.lblAbfertigungsdatum.Text = "Rechnungsdatum" + ' + 'Button9 + ' + Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button9.Image = Global.SDL.My.Resources.Resources.statistik_small + Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button9.Location = New System.Drawing.Point(13, 534) + Me.Button9.Margin = New System.Windows.Forms.Padding(0) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(106, 41) + Me.Button9.TabIndex = 35 + Me.Button9.Text = "Auswertung" + Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button9.UseVisualStyleBackColor = True + ' + 'txtAbfertDat + ' + Me.txtAbfertDat._DateTimeOnly = False + Me.txtAbfertDat._numbersOnly = False + Me.txtAbfertDat._numbersOnlyKommastellen = "" + Me.txtAbfertDat._numbersOnlyTrennzeichen = True + Me.txtAbfertDat._Prozent = False + Me.txtAbfertDat._ShortDateNew = True + Me.txtAbfertDat._ShortDateOnly = False + Me.txtAbfertDat._TimeOnly = False + Me.txtAbfertDat._TimeOnly_Seconds = False + Me.txtAbfertDat._value = "" + Me.txtAbfertDat._Waehrung = False + Me.txtAbfertDat._WaehrungZeichen = True + Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black + Me.txtAbfertDat.Location = New System.Drawing.Point(41, 27) + Me.txtAbfertDat.MaxLength = 10 + Me.txtAbfertDat.MaxLineLength = -1 + Me.txtAbfertDat.MaxLines_Warning = "" + Me.txtAbfertDat.MaxLines_Warning_Label = Nothing + Me.txtAbfertDat.Name = "txtAbfertDat" + Me.txtAbfertDat.Size = New System.Drawing.Size(83, 20) + Me.txtAbfertDat.TabIndex = 14 + ' + 'txtAbfertDatBis + ' + Me.txtAbfertDatBis._DateTimeOnly = False + Me.txtAbfertDatBis._numbersOnly = False + Me.txtAbfertDatBis._numbersOnlyKommastellen = "" + Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True + Me.txtAbfertDatBis._Prozent = False + Me.txtAbfertDatBis._ShortDateNew = True + Me.txtAbfertDatBis._ShortDateOnly = False + Me.txtAbfertDatBis._TimeOnly = False + Me.txtAbfertDatBis._TimeOnly_Seconds = False + Me.txtAbfertDatBis._value = "" + Me.txtAbfertDatBis._Waehrung = False + Me.txtAbfertDatBis._WaehrungZeichen = True + Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black + Me.txtAbfertDatBis.Location = New System.Drawing.Point(161, 27) + Me.txtAbfertDatBis.MaxLength = 10 + Me.txtAbfertDatBis.MaxLineLength = -1 + Me.txtAbfertDatBis.MaxLines_Warning = "" + Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing + Me.txtAbfertDatBis.Name = "txtAbfertDatBis" + Me.txtAbfertDatBis.Size = New System.Drawing.Size(83, 20) + Me.txtAbfertDatBis.TabIndex = 16 + ' + 'MyDatagridview1 + ' + Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1 + Me.MyDatagridview1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.MyDatagridview1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.MyDatagridview1.DefaultCellStyle = DataGridViewCellStyle2 + Me.MyDatagridview1.Location = New System.Drawing.Point(13, 53) + Me.MyDatagridview1.Name = "MyDatagridview1" + Me.MyDatagridview1.ReadOnly = True + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.MyDatagridview1.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.MyDatagridview1.RowHeadersVisible = False + Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.MyDatagridview1.Size = New System.Drawing.Size(1013, 474) + Me.MyDatagridview1.TabIndex = 0 + ' + 'frmProvisionisverguetung + ' + 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(1038, 584) + Me.Controls.Add(Me.Button9) + Me.Controls.Add(Me.lblAbfertigungsdatum) + Me.Controls.Add(Me.txtAbfertDat) + Me.Controls.Add(Me.txtAbfertDatBis) + Me.Controls.Add(Me.Label23) + Me.Controls.Add(Me.Label13) + Me.Controls.Add(Me.cbxNurOffene) + Me.Controls.Add(Me.MyDatagridview1) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmProvisionisverguetung" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Provisionisvergütung" + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents cbxNurOffene As CheckBox + Friend WithEvents txtAbfertDat As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAbfertDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label23 As Label + Friend WithEvents Label13 As Label + Friend WithEvents lblAbfertigungsdatum As Label + Friend WithEvents Button9 As Button +End Class diff --git a/SDL/Speditionsbuch/frmProvisionisverguetung.resx b/SDL/Speditionsbuch/frmProvisionisverguetung.resx new file mode 100644 index 00000000..d584bd9e --- /dev/null +++ b/SDL/Speditionsbuch/frmProvisionisverguetung.resx @@ -0,0 +1,980 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/SDL/Speditionsbuch/frmProvisionisverguetung.vb b/SDL/Speditionsbuch/frmProvisionisverguetung.vb new file mode 100644 index 00000000..35c6a913 --- /dev/null +++ b/SDL/Speditionsbuch/frmProvisionisverguetung.vb @@ -0,0 +1,118 @@ +Imports com.sun.xml.internal.rngom +Imports javax.print.attribute.standard +Imports Org.BouncyCastle.Math +Imports VERAG_PROG_ALLGEMEIN + +Public Class frmProvisionisverguetung + + Dim loaded = False + Private Sub frmProvisionisverguetung_load(sender As Object, e As EventArgs) Handles Me.Load + txtAbfertDat._value = CDate("01." & Now.Month & "." & Now.Year).AddMonths(-1) + txtAbfertDatBis._value = CDate("01." & Now.Month & "." & Now.Year).AddDays(-1) + loaded = True + initDGV() + + + End Sub + + Sub initDGV() + If Not loaded Then Exit Sub + + With MyDatagridview1 + .Columns.Clear() + + If txtAbfertDat._value = "" Then Exit Sub + If txtAbfertDatBis._value = "" Then Exit Sub + + .SET_SQL("select Firma_ID,AdressenNr,Ordnungsbegriff,kde_Provisionsverguetung_GSAnKdNr GS_AnKdNr,(select Ordnungsbegriff from adressen where AdressenNr = kde_Provisionsverguetung_GSAnKdNr) GS_An, + kde_Provisionsverguetung_ProzentDL ProvProz,cast(min(Abfertigungsdatum)as date)MinAbfDat,cast(Max(Abfertigungsdatum)as date)MaxAbfDat, + count(DISTINCT RechnungsNr) Anzahl,sum(rp.SteuerfreierBetrag+rp.SteuerpflichtigerBetrag) Umsatz,sum(rp.SteuerfreierBetrag+rp.SteuerpflichtigerBetrag)*kde_Provisionsverguetung_ProzentDL Provision + -- Hier die Liste aller Rechnungsnummern mit Komma getrennt + ,STUFF(( + SELECT ',' + CAST(RA2.RechnungsNr as varchar(50)) + FROM Rechnungsausgang RA2 + INNER JOIN RechnungsausgangPositionen RP2 ON RA2.RK_ID = RP2.RK_ID + INNER JOIN Leistungen LG2 ON RP2.LeistungsNr = LG2.LeistungsNr + INNER JOIN Filialen FL2 ON RA2.FilialenNr = FL2.FilialenNr + WHERE RA2.RechnungsKundenNr = Adressen.AdressenNr + AND LG2.Provisionsabrechnung = 1 + AND FL2.Firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' + AND RA2.RechnungsDatum BETWEEN '" & CDate(txtAbfertDat._value).ToShortDateString & "' AND '" & CDate(txtAbfertDatBis._value).ToShortDateString & "' + GROUP BY RA2.RechnungsNr + FOR XML PATH(''), TYPE + ).value('.', 'NVARCHAR(MAX)'), 1, 1, '') AS RechnungsNrListe + -- Ende Liste aller Rechnungsnummern + FROM Adressen inner join Kunden on KundenNr=AdressenNr inner join tblKundenErweitert on KundenNr=kde_KundenNr + left join Rechnungsausgang RA on RechnungsKundenNr=AdressenNr + inner join RechnungsausgangPositionen RP on RA.RK_ID=RP.RK_ID + inner join Leistungen LG on rp.LeistungsNr= LG.LeistungsNr + inner join Filialen FL on RA.FilialenNr=FL.FilialenNr + where kde_Provisionsverguetung=1 + and LG.Provisionsabrechnung=1 + and kde_Provisionsverguetung_ProzentDL is not null + and FL.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' + and RechnungsDatum between '" & CDate(txtAbfertDat._value).ToShortDateString & "' AND '" & CDate(txtAbfertDatBis._value).ToShortDateString & "' + group by Firma_ID,AdressenNr,Ordnungsbegriff, kde_Provisionsverguetung_GSAnKdNr,kde_Provisionsverguetung_ProzentDL + order by GS_AnKdNr,Ordnungsbegriff + ", "FMZOLL") + .LOAD() + .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells + + .Columns("Firma_ID").Visible = False + .Columns("RechnungsNrListe").Visible = False + '.Columns("AdressenNr").Visible = False + End With + End Sub + + Private Sub txtAbfertDat_ValueChanged() Handles txtAbfertDat.ValueChanged, txtAbfertDatBis.ValueChanged + initDGV() + End Sub + + Private Sub cbxNurOffene_CheckedChanged(sender As Object, e As EventArgs) Handles cbxNurOffene.CheckedChanged + initDGV() + End Sub + + Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click + Try + Me.Cursor = Cursors.WaitCursor + If MyDatagridview1.SelectedRows.Count = 0 Then + MsgBox("Bitte zuerst einen oder mehrere Einträge auswählen!") + Exit Sub + End If + Dim PDF_LIST As New List(Of String) + For Each row In MyDatagridview1.SelectedRows + Dim adrNr = row.Cells("AdressenNr").Value + Dim gsAnKdNr = row.Cells("GS_AnKdNr").Value + Dim provProz = row.Cells("ProvProz").Value + Dim Firma_ID = row.Cells("Firma_ID").Value + + If row.Cells("RechnungsNrListe").Value Is DBNull.Value Then Exit Sub + If row.Cells("RechnungsNrListe").Value = "" Then Exit Sub + + Dim RechnungsNrListe = row.Cells("RechnungsNrListe").Value.ToString + ' In eine Liste von Integer umwandeln + Dim RG_LIST As List(Of Integer) = RechnungsNrListe.Split(","c).Where(Function(s) Not String.IsNullOrWhiteSpace(s)).Select(Function(s) Convert.ToInt32(s)).ToList() + If RG_LIST.Count > 0 Then + ' Provisionsabrechnung erstellen + Dim pathPDF_SammelBericht = "" 'DATENVERVER_OPTIONS.getTMPPath("\Provisionsabrechnung_" & Now.ToString("yyyyMMdd_HHmmss") & ".pdf", ".pdf") + cFakturierung.doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(-1, Now, 4, pathPDF_SammelBericht, "", "PROVISIONSABRECHNUNG", Nothing, Nothing, RG_LIST, Firma_ID) + MsgBox(pathPDF_SammelBericht) + If pathPDF_SammelBericht <> "" Then PDF_LIST.Add(pathPDF_SammelBericht) + End If + Next + If PDF_LIST.Count = 1 Then + Process.Start(PDF_LIST(0)) + ElseIf PDF_LIST.Count > 1 Then + Dim merge_pathPDF_SammelBericht = DATENVERVER_OPTIONS.getTMPPath("\Provisionsabrechnung_Merge_" & Now.ToString("yyyyMMdd_HHmmss") & ".pdf", ".pdf",, False) + If FormularManagerNEU.MergePdfFiles(PDF_LIST, merge_pathPDF_SammelBericht) Then + Process.Start(merge_pathPDF_SammelBericht) + End If + + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Me.Cursor = Cursors.Default + End Sub +End Class \ No newline at end of file diff --git a/SDL/kunden/frmKundenBesonderheiten_Add.vb b/SDL/kunden/frmKundenBesonderheiten_Add.vb index 296cef30..d698af92 100644 --- a/SDL/kunden/frmKundenBesonderheiten_Add.vb +++ b/SDL/kunden/frmKundenBesonderheiten_Add.vb @@ -57,7 +57,10 @@ End Sub Private Sub frmKundenBesonderheiten_Add_Load(sender As Object, e As EventArgs) Handles Me.Load - cboKategorie.fillWithSQL("SELECT [kdbkat_kategorie],[kdbkat_bezeichnung] FROM [tblKundenBesonderheiten_Kategorien] WHERE (isnull(kdbkat_Firma,'')='' OR kdbkat_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ) ", False, "FMZOLL", True) + 'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.BENUTZER_BERECHTIGUNGS_GRUPPEN_WHEREIN_SDL) + Dim sqlWhereBerechtigung = " (isnull([kdbkat_Berechtigungsgruppe],'')='' OR [kdbkat_Berechtigungsgruppe] IN " & VERAG_PROG_ALLGEMEIN.cAllgemein.BENUTZER_BERECHTIGUNGS_GRUPPEN_WHEREIN_SDL & " ) " + + cboKategorie.fillWithSQL("Select [kdbkat_kategorie],[kdbkat_bezeichnung] FROM [tblKundenBesonderheiten_Kategorien] WHERE 1=1 AND " & sqlWhereBerechtigung & " AND (isnull(kdbkat_Firma,'')='' OR kdbkat_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ) ", False, "FMZOLL", True) If KD_BESONSERHEITEN.hasEntry Then rtbText.Text = KD_BESONSERHEITEN.kdb_text diff --git a/SDL/kunden/frmOffertenBearbeiten.vb b/SDL/kunden/frmOffertenBearbeiten.vb index 6fdecbf3..5ccced66 100644 --- a/SDL/kunden/frmOffertenBearbeiten.vb +++ b/SDL/kunden/frmOffertenBearbeiten.vb @@ -4,6 +4,7 @@ Public Class frmOffertenBearbeiten Dim FIRMA_TMP = "" + Public cntOfferteLoad As Integer = 0 Public kdnr As Integer = -1 Dim SQL As New SQL @@ -42,7 +43,7 @@ Public Class frmOffertenBearbeiten cboSprache.Enabled = False cboSprache.changeItem("DE") where = " WHERE [Offertenstamm].[OffertenNr] IN (SELECT ao_OffertenNr FROM tblAbfertigungsartenFiliale inner join tblAbfertigungsartOffertenstamm on ao_Abfertigungsart=Abfertigungsart WHERE FilialenNr=5501 ) " - If cboFiliale.Items.Count > 0 Then cboFiliale.SelectedIndex = 0 + If cboFiliale.Items.Count > 0 Then cboFiliale.changeItem("5501") Case "VERAG" If KUNDE_ERW IsNot Nothing AndAlso KUNDE_ERW.kde_Fakturierung_Sprache IsNot Nothing AndAlso KUNDE_ERW.kde_Fakturierung_Sprache <> "" AndAlso KUNDE.FilialenNr = 8001 AndAlso (KUNDE.KundenNrZentrale <> 140000 And KUNDE.KundenNrZentrale <> 150000 And KUNDE.KundenNrZentrale <> 180000) Then cboSprache.changeItem(KUNDE_ERW.kde_Fakturierung_Sprache) @@ -52,7 +53,7 @@ Public Class frmOffertenBearbeiten cboSprache.changeItem("DE") cboSprache.Enabled = False End If - If cboFiliale.Items.Count > 4 Then cboFiliale.SelectedIndex = 3 Else + If cboFiliale.Items.Count > 0 Then cboFiliale.changeItem("4803") Case Else cboSprache.changeItem("DE") cboSprache.Enabled = False @@ -76,19 +77,18 @@ Public Class frmOffertenBearbeiten If cbx.Checked Then cbx.Enabled = False cbx.Text = r("OffertenNr") & " " & r("OffertenBez") FlowLayoutPanel.Controls.Add(cbx) + If CBool(r("vorhanden")) Then cntOfferteLoad += 1 Next - - - End Sub Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click If kdnr <= 0 Then MsgBox("Keine KundenNr gefunden!") : Exit Sub + Dim Neuanlage = False For Each c In FlowLayoutPanel.Controls If c.GetType Is GetType(VERAG_PROG_ALLGEMEIN.MyCheckBoxValue) Then ' MsgBox(c._value) @@ -99,6 +99,7 @@ Public Class frmOffertenBearbeiten o.LOAD_POSITIONEN() 'positionen Laden If o.POSITIONEN.Count = 0 Then 'wenn keine POS --> neues Offert o.RESET_STANDARTOFFERTEN_FIRMA(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, FIRMA_TMP, cboSprache.SelectedItem.ToString) '--> Standartofferten laden + Neuanlage = True End If @@ -110,6 +111,11 @@ Public Class frmOffertenBearbeiten End If End If Next + If cntOfferteLoad = 0 And Neuanlage Then + 'Es wurden 1 oder mehrere Offerten neu hinzugefügt, und es gab zuvor noch keine Offerten. + 'Autofakturierung setzen + SQL.doSQL("update [tblKundenErweitert] set AutoFakturierung = 1 where kde_KundenNr='" & kdnr & "'", "FMZOLL") + End If Me.Close() End Sub diff --git a/SDL/kunden/usrCntlKundenBesonderheiten.vb b/SDL/kunden/usrCntlKundenBesonderheiten.vb index 956ef2d4..1e73695e 100644 --- a/SDL/kunden/usrCntlKundenBesonderheiten.vb +++ b/SDL/kunden/usrCntlKundenBesonderheiten.vb @@ -33,7 +33,11 @@ Public Class usrCntlKundenBesonderheiten End Sub Private Sub usrCntlKundenBesonderheiten_Load(sender As Object, e As EventArgs) Handles Me.Load 'initDGV() - cboKategorie.fillWithSQL("SELECT [kdbkat_kategorie],[kdbkat_bezeichnung] FROM [tblKundenBesonderheiten_Kategorien] WHERE (isnull(kdbkat_Firma,'')='' OR kdbkat_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ) ", False, "FMZOLL", True) + ' cboKategorie.fillWithSQL("SELECT [kdbkat_kategorie],[kdbkat_bezeichnung] FROM [tblKundenBesonderheiten_Kategorien] WHERE (isnull(kdbkat_Firma,'')='' OR kdbkat_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ) ", False, "FMZOLL", True) + Dim sqlWhereBerechtigung = " (isnull([kdbkat_Berechtigungsgruppe],'')='' OR [kdbkat_Berechtigungsgruppe] IN " & VERAG_PROG_ALLGEMEIN.cAllgemein.BENUTZER_BERECHTIGUNGS_GRUPPEN_WHEREIN_SDL & " ) " + + cboKategorie.fillWithSQL("Select [kdbkat_kategorie],[kdbkat_bezeichnung] FROM [tblKundenBesonderheiten_Kategorien] WHERE 1=1 AND " & sqlWhereBerechtigung & " AND (isnull(kdbkat_Firma,'')='' OR kdbkat_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ) ", False, "FMZOLL", True) + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Besonderheiten_Bearbeiten", "SDL") Then showhideOptions(True) @@ -118,7 +122,9 @@ Public Class usrCntlKundenBesonderheiten If preferedKategorieOtherIN <> "" Then katIN = " AND kdb_kategorie IN(" & preferedKategorieOtherIN & ",'" & preferedKategorie & "') " End If - .DataSource = SQL.loadDgvBySql("Select kdb_id, kdb_AenderungAm,kdb_text,kdb_mitId,kdb_mitName,kdb_EingetragenAm,kdb_kategorie, kdb_hervorheben,kdb_history FROM [tblKundenBesonderheiten] where kdb_KundenNr=" & kdNr & " And kdb_visible=1 " & katIN & where & " " & order, "FMZOLL") + Dim sqlWhereBerechtigung = " AND (isnull([kdbkat_Berechtigungsgruppe],'')='' OR [kdbkat_Berechtigungsgruppe] IN " & VERAG_PROG_ALLGEMEIN.cAllgemein.BENUTZER_BERECHTIGUNGS_GRUPPEN_WHEREIN_SDL & " ) " + + .DataSource = SQL.loadDgvBySql("Select kdb_id, kdb_AenderungAm,kdb_text,kdb_mitId,kdb_mitName,kdb_EingetragenAm,kdb_kategorie, kdb_hervorheben,kdb_history FROM [tblKundenBesonderheiten] inner join tblKundenBesonderheiten_Kategorien ON kdbkat_kategorie=kdb_kategorie where kdb_KundenNr=" & kdNr & " And kdb_visible=1 " & katIN & where & sqlWhereBerechtigung & " " & order, "FMZOLL") If .Columns.Count = 0 Then dgvBesonderheiten.Columns.Clear() : Exit Sub .ClearSelection() diff --git a/SDL/kunden/usrCntlOfferte.vb b/SDL/kunden/usrCntlOfferte.vb index c622ee4d..8382af61 100644 --- a/SDL/kunden/usrCntlOfferte.vb +++ b/SDL/kunden/usrCntlOfferte.vb @@ -232,7 +232,7 @@ Public Class usrCntlOfferte Private Sub btnCreateOffert_Click(sender As Object, e As EventArgs) Handles btnCreateOffert.Click Dim f As New frmOffertenBearbeiten(kdNr) If f.ShowDialog() = DialogResult.OK Then - initDGVOfferte() + init(kdNr, isVerag360) ' initDGVOfferte() RaiseEvent OfferteChanged() dgvOfferteNew.Enabled = True isNew = True diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index 6dcd6952..3e41ae72 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -103,6 +103,12 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbFiskal = New System.Windows.Forms.TabPage() Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten() Me.tbVerrechnung = New System.Windows.Forms.TabPage() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Label115 = New System.Windows.Forms.Label() + Me.Label114 = New System.Windows.Forms.Label() + Me.txtProvDLProzent = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdProvDLProzentGSAn = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.cbxProvDL = New System.Windows.Forms.CheckBox() Me.cbpKopfsammelrechnung = New System.Windows.Forms.CheckBox() Me.pnlverag360 = New System.Windows.Forms.Panel() Me.Label111 = New System.Windows.Forms.Label() @@ -265,6 +271,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUSt_GVAusgestelltAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUSt_GVAngefordertAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.tbSonstiges = New System.Windows.Forms.TabPage() + Me.cbxCS_Added = New System.Windows.Forms.CheckBox() Me.Label113 = New System.Windows.Forms.Label() Me.Label112 = New System.Windows.Forms.Label() Me.dgvIDS_Rabatte = New System.Windows.Forms.DataGridView() @@ -405,7 +412,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.cbxCS_Added = New System.Windows.Forms.CheckBox() Me.tbcntrDetails.SuspendLayout() Me.tbAbfertigung.SuspendLayout() Me.tbcntrAbf.SuspendLayout() @@ -417,6 +423,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.GroupBox6.SuspendLayout() Me.tbFiskal.SuspendLayout() Me.tbVerrechnung.SuspendLayout() + Me.Panel2.SuspendLayout() Me.pnlverag360.SuspendLayout() Me.gbMWSTAntraege.SuspendLayout() Me.tbVersicherung.SuspendLayout() @@ -1136,6 +1143,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 'tbVerrechnung ' + Me.tbVerrechnung.Controls.Add(Me.Panel2) Me.tbVerrechnung.Controls.Add(Me.cbpKopfsammelrechnung) Me.tbVerrechnung.Controls.Add(Me.pnlverag360) Me.tbVerrechnung.Controls.Add(Me.cbxKapitalWaehrung) @@ -1194,6 +1202,103 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbVerrechnung.Text = "Verrechnung" Me.tbVerrechnung.UseVisualStyleBackColor = True ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke + Me.Panel2.Controls.Add(Me.Label115) + Me.Panel2.Controls.Add(Me.Label114) + Me.Panel2.Controls.Add(Me.txtProvDLProzent) + Me.Panel2.Controls.Add(Me.kdProvDLProzentGSAn) + Me.Panel2.Controls.Add(Me.cbxProvDL) + Me.Panel2.Location = New System.Drawing.Point(240, 288) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(186, 110) + Me.Panel2.TabIndex = 51 + ' + 'Label115 + ' + Me.Label115.AutoSize = True + Me.Label115.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label115.Location = New System.Drawing.Point(3, 54) + Me.Label115.Name = "Label115" + Me.Label115.Size = New System.Drawing.Size(70, 13) + Me.Label115.TabIndex = 31 + Me.Label115.Text = "Gutschrift an:" + ' + 'Label114 + ' + Me.Label114.AutoSize = True + Me.Label114.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label114.Location = New System.Drawing.Point(3, 32) + Me.Label114.Name = "Label114" + Me.Label114.Size = New System.Drawing.Size(112, 13) + Me.Label114.TabIndex = 29 + Me.Label114.Text = "Provision von Dienstl.:" + ' + 'txtProvDLProzent + ' + Me.txtProvDLProzent._DateTimeOnly = False + Me.txtProvDLProzent._numbersOnly = False + Me.txtProvDLProzent._numbersOnlyKommastellen = "" + Me.txtProvDLProzent._numbersOnlyTrennzeichen = True + Me.txtProvDLProzent._Prozent = True + Me.txtProvDLProzent._ShortDateNew = False + Me.txtProvDLProzent._ShortDateOnly = False + Me.txtProvDLProzent._TimeOnly = False + Me.txtProvDLProzent._TimeOnly_Seconds = False + Me.txtProvDLProzent._value = "0" + Me.txtProvDLProzent._Waehrung = False + Me.txtProvDLProzent._WaehrungZeichen = True + Me.txtProvDLProzent.ForeColor = System.Drawing.Color.Black + Me.txtProvDLProzent.Location = New System.Drawing.Point(117, 29) + Me.txtProvDLProzent.MaxLineLength = -1 + Me.txtProvDLProzent.MaxLines_Warning = "" + Me.txtProvDLProzent.MaxLines_Warning_Label = Nothing + Me.txtProvDLProzent.Name = "txtProvDLProzent" + Me.txtProvDLProzent.Size = New System.Drawing.Size(60, 20) + Me.txtProvDLProzent.TabIndex = 30 + Me.txtProvDLProzent.Text = "0,00 %" + Me.txtProvDLProzent.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'kdProvDLProzentGSAn + ' + Me.kdProvDLProzentGSAn._AlleFirmenCLUSTER = False + Me.kdProvDLProzentGSAn._AllowSetValue = True + Me.kdProvDLProzentGSAn._autoSizeGross = False + Me.kdProvDLProzentGSAn._display_Name1 = False + Me.kdProvDLProzentGSAn._displayAVISO_Email = False + Me.kdProvDLProzentGSAn._displayFullName = False + Me.kdProvDLProzentGSAn._displayWoelflKd = False + Me.kdProvDLProzentGSAn._hideIfListEmpty = True + Me.kdProvDLProzentGSAn._loadKdData = False + Me.kdProvDLProzentGSAn._searchName1 = True + Me.kdProvDLProzentGSAn._UseFIRMA = "" + Me.kdProvDLProzentGSAn._ValueKdAndName = True + Me.kdProvDLProzentGSAn.dgvpos = "LEFT" + Me.kdProvDLProzentGSAn.KdName = Nothing + Me.kdProvDLProzentGSAn.KdNr = "-1" + Me.kdProvDLProzentGSAn.kdNrField = Nothing + Me.kdProvDLProzentGSAn.KdNrNullInt = Nothing + Me.kdProvDLProzentGSAn.Location = New System.Drawing.Point(5, 69) + Me.kdProvDLProzentGSAn.Name = "kdProvDLProzentGSAn" + Me.kdProvDLProzentGSAn.nurAktive = True + Me.kdProvDLProzentGSAn.searchActive = True + Me.kdProvDLProzentGSAn.Size = New System.Drawing.Size(172, 20) + Me.kdProvDLProzentGSAn.TabIndex = 25 + Me.kdProvDLProzentGSAn.TIMER_SEARCH = True + Me.kdProvDLProzentGSAn.usrcntl = Nothing + ' + 'cbxProvDL + ' + Me.cbxProvDL.AutoSize = True + Me.cbxProvDL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxProvDL.Location = New System.Drawing.Point(3, 6) + Me.cbxProvDL.Name = "cbxProvDL" + Me.cbxProvDL.Size = New System.Drawing.Size(176, 17) + Me.cbxProvDL.TabIndex = 24 + Me.cbxProvDL.Text = "Provision Dienstleistungen" + Me.cbxProvDL.UseVisualStyleBackColor = True + ' 'cbpKopfsammelrechnung ' Me.cbpKopfsammelrechnung.AutoSize = True @@ -1207,6 +1312,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 'pnlverag360 ' + Me.pnlverag360.BackColor = System.Drawing.Color.WhiteSmoke Me.pnlverag360.Controls.Add(Me.Label111) Me.pnlverag360.Controls.Add(Me.txtFR) Me.pnlverag360.Controls.Add(Me.cbxErstattungsart) @@ -1215,9 +1321,9 @@ Partial Class usrcntlKundeBearbeitenFull Me.pnlverag360.Controls.Add(Me.gbMWSTAntraege) Me.pnlverag360.Controls.Add(Me.txtVorauszahlung) Me.pnlverag360.Controls.Add(Me.cbxVorauszahlung) - Me.pnlverag360.Location = New System.Drawing.Point(417, 288) + Me.pnlverag360.Location = New System.Drawing.Point(423, 288) Me.pnlverag360.Name = "pnlverag360" - Me.pnlverag360.Size = New System.Drawing.Size(252, 204) + Me.pnlverag360.Size = New System.Drawing.Size(246, 207) Me.pnlverag360.TabIndex = 49 ' 'Label111 @@ -1296,7 +1402,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtAnmerkungAntraege._Waehrung = False Me.txtAnmerkungAntraege._WaehrungZeichen = False Me.txtAnmerkungAntraege.ForeColor = System.Drawing.Color.Red - Me.txtAnmerkungAntraege.Location = New System.Drawing.Point(8, 89) + Me.txtAnmerkungAntraege.Location = New System.Drawing.Point(8, 90) Me.txtAnmerkungAntraege.MaxLength = 10 Me.txtAnmerkungAntraege.MaxLineLength = -1 Me.txtAnmerkungAntraege.MaxLines_Warning = "" @@ -1311,7 +1417,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.gbMWSTAntraege.Controls.Add(Me.rbHJ) Me.gbMWSTAntraege.Controls.Add(Me.rbQ) Me.gbMWSTAntraege.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.gbMWSTAntraege.Location = New System.Drawing.Point(4, 6) + Me.gbMWSTAntraege.Location = New System.Drawing.Point(4, 7) Me.gbMWSTAntraege.Name = "gbMWSTAntraege" Me.gbMWSTAntraege.Size = New System.Drawing.Size(199, 82) Me.gbMWSTAntraege.TabIndex = 46 @@ -1457,7 +1563,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.cbxAPITradeshift.AutoSize = True Me.cbxAPITradeshift.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxAPITradeshift.Location = New System.Drawing.Point(15, 411) + Me.cbxAPITradeshift.Location = New System.Drawing.Point(15, 417) Me.cbxAPITradeshift.Name = "cbxAPITradeshift" Me.cbxAPITradeshift.Size = New System.Drawing.Size(157, 17) Me.cbxAPITradeshift.TabIndex = 36 @@ -1468,7 +1574,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label94.AutoSize = True Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label94.Location = New System.Drawing.Point(12, 387) + Me.Label94.Location = New System.Drawing.Point(12, 393) Me.Label94.Name = "Label94" Me.Label94.Size = New System.Drawing.Size(168, 13) Me.Label94.TabIndex = 35 @@ -1531,7 +1637,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label34.AutoSize = True Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label34.Location = New System.Drawing.Point(12, 289) + Me.Label34.Location = New System.Drawing.Point(12, 295) Me.Label34.Name = "Label34" Me.Label34.Size = New System.Drawing.Size(224, 13) Me.Label34.TabIndex = 22 @@ -1541,7 +1647,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label32.AutoSize = True Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label32.Location = New System.Drawing.Point(12, 361) + Me.Label32.Location = New System.Drawing.Point(12, 367) Me.Label32.Name = "Label32" Me.Label32.Size = New System.Drawing.Size(97, 13) Me.Label32.TabIndex = 27 @@ -1551,7 +1657,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label30.AutoSize = True Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label30.Location = New System.Drawing.Point(12, 336) + Me.Label30.Location = New System.Drawing.Point(12, 342) Me.Label30.Name = "Label30" Me.Label30.Size = New System.Drawing.Size(53, 13) Me.Label30.TabIndex = 25 @@ -1561,7 +1667,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label31.AutoSize = True Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label31.Location = New System.Drawing.Point(12, 314) + Me.Label31.Location = New System.Drawing.Point(12, 320) Me.Label31.Name = "Label31" Me.Label31.Size = New System.Drawing.Size(81, 13) Me.Label31.TabIndex = 23 @@ -1901,7 +2007,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtProvAuftraggeber._Waehrung = False Me.txtProvAuftraggeber._WaehrungZeichen = True Me.txtProvAuftraggeber.ForeColor = System.Drawing.Color.Black - Me.txtProvAuftraggeber.Location = New System.Drawing.Point(125, 358) + Me.txtProvAuftraggeber.Location = New System.Drawing.Point(125, 364) Me.txtProvAuftraggeber.MaxLineLength = -1 Me.txtProvAuftraggeber.MaxLines_Warning = "" Me.txtProvAuftraggeber.MaxLines_Warning_Label = Nothing @@ -1922,9 +2028,9 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboProvisionStaffel.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboProvisionStaffel.ForeColor = System.Drawing.Color.Black Me.cboProvisionStaffel.FormattingEnabled = True - Me.cboProvisionStaffel.Location = New System.Drawing.Point(125, 333) + Me.cboProvisionStaffel.Location = New System.Drawing.Point(95, 339) Me.cboProvisionStaffel.Name = "cboProvisionStaffel" - Me.cboProvisionStaffel.Size = New System.Drawing.Size(145, 21) + Me.cboProvisionStaffel.Size = New System.Drawing.Size(129, 21) Me.cboProvisionStaffel.TabIndex = 26 ' 'cboProvisionStaffelArt @@ -1938,9 +2044,9 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboProvisionStaffelArt.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboProvisionStaffelArt.ForeColor = System.Drawing.Color.Black Me.cboProvisionStaffelArt.FormattingEnabled = True - Me.cboProvisionStaffelArt.Location = New System.Drawing.Point(125, 311) + Me.cboProvisionStaffelArt.Location = New System.Drawing.Point(95, 317) Me.cboProvisionStaffelArt.Name = "cboProvisionStaffelArt" - Me.cboProvisionStaffelArt.Size = New System.Drawing.Size(146, 21) + Me.cboProvisionStaffelArt.Size = New System.Drawing.Size(130, 21) Me.cboProvisionStaffelArt.TabIndex = 24 ' 'cboAbf_Waehrung @@ -3791,6 +3897,15 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbSonstiges.Text = "Sonstiges" Me.tbSonstiges.UseVisualStyleBackColor = True ' + 'cbxCS_Added + ' + Me.cbxCS_Added.AutoSize = True + Me.cbxCS_Added.Location = New System.Drawing.Point(406, 9) + Me.cbxCS_Added.Name = "cbxCS_Added" + Me.cbxCS_Added.Size = New System.Drawing.Size(15, 14) + Me.cbxCS_Added.TabIndex = 37 + Me.cbxCS_Added.UseVisualStyleBackColor = True + ' 'Label113 ' Me.Label113.AutoSize = True @@ -5529,15 +5644,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' - 'cbxCS_Added - ' - Me.cbxCS_Added.AutoSize = True - Me.cbxCS_Added.Location = New System.Drawing.Point(406, 9) - Me.cbxCS_Added.Name = "cbxCS_Added" - Me.cbxCS_Added.Size = New System.Drawing.Size(15, 14) - Me.cbxCS_Added.TabIndex = 37 - Me.cbxCS_Added.UseVisualStyleBackColor = True - ' 'usrcntlKundeBearbeitenFull ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -5591,6 +5697,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbFiskal.ResumeLayout(False) Me.tbVerrechnung.ResumeLayout(False) Me.tbVerrechnung.PerformLayout() + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() Me.pnlverag360.ResumeLayout(False) Me.pnlverag360.PerformLayout() Me.gbMWSTAntraege.ResumeLayout(False) @@ -5997,4 +6105,10 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents cbxErstattungsart As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cbpKopfsammelrechnung As CheckBox Friend WithEvents cbxCS_Added As CheckBox + Friend WithEvents Panel2 As Panel + Friend WithEvents Label114 As Label + Friend WithEvents txtProvDLProzent As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents kdProvDLProzentGSAn As VERAG_PROG_ALLGEMEIN.KdSearchBox + Friend WithEvents cbxProvDL As CheckBox + Friend WithEvents Label115 As Label End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index 4ef19144..da8de2a2 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -377,6 +377,12 @@ cbxUIDMehrfachverwendung.Checked = KUNDE_ERW.kde_UIDMehrfachverwendung cbxkeineMWSt.Checked = loadValue(KUNDE_ERW.kde_keineMWSt, False) + ' ----- Provision Dienstleistungen ----- + cbxProvDL.Checked = KUNDE_ERW.kde_Provisionsverguetung + txtProvDLProzent._value = loadValue(KUNDE_ERW.kde_Provisionsverguetung_ProzentDL, Nothing) + kdProvDLProzentGSAn.KdNr = If(KUNDE_ERW.kde_Provisionsverguetung_GSAnKdNr, -1) + + txtAbf_ZollVmVom.Enabled = cbxAbf_ZollVM.Checked txtAbf_LastschriftVon.Enabled = cbxAbf_Lastschrift.Checked @@ -744,6 +750,11 @@ KUNDE_ERW.kde_keineMWSt = cbxkeineMWSt.Checked + ' ----- Provision Dienstleistungen ----- + KUNDE_ERW.kde_Provisionsverguetung = cbxProvDL.Checked + KUNDE_ERW.kde_Provisionsverguetung_ProzentDL = isLeerNothingDbl(txtProvDLProzent._value) + KUNDE_ERW.kde_Provisionsverguetung_GSAnKdNr = If(kdProvDLProzentGSAn.KdNr_value > 0, kdProvDLProzentGSAn.KdNr_value, Nothing) + ' ----- Fremdsped ----- @@ -1042,7 +1053,7 @@ Else Me.tbcntrDetails.Controls.Remove(tbBankverbindungen) End If - + kdProvDLProzentGSAn.initKdBox(Me.FindForm) For Each c As Control In Me.tbcntrDetails.Controls If c.Name = "tbBank" Then diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyTextBox.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyTextBox.vb index fa447b42..af9b1b02 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyTextBox.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyTextBox.vb @@ -362,7 +362,12 @@ Public Class MyTextBox ' +2 = zwei Tage von heute weg If Me.Text <> "" AndAlso Not IsDate(Me.Text) AndAlso IsNumeric(Me.Text) Then - Me.Text = Now.AddDays(Int(Me.Text)).ToShortDateString + Try + Me.Text = Now.AddDays(Int(Me.Text)).ToShortDateString + Catch ex As Exception + sender.ForeColor = System.Drawing.Color.Red + Me._value = Propvalue + End Try End If If (Me.Text.Length >= 6 And Me.Text.Length <= 10) AndAlso IsDate(Me.Text.Replace(",", ".")) AndAlso CDate(Me.Text) > CDate("01.01.1900") Then 'MsgBox(Me.Text) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb b/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb index 46a83bb7..1bb1802e 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb @@ -114,4 +114,88 @@ End Try Return 99 End Function + + Public Shared Function GetBenutzerBerechtigungsBezeichnungen(prog_Id As Integer) As List(Of String) + Dim result As New List(Of String) + Console.WriteLine("=== Starte GetBenutzerBerechtigungsBezeichnungen für prog_Id=" & prog_Id & " ===") + + ' Basisprüfungen + If String.IsNullOrWhiteSpace(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) Then + Console.WriteLine("Abbruch: kein Benutzername gesetzt.") + Return result + End If + + Dim benutzerBer As cBerechtigungenBenutzerGruppenZuordnung_List = VERAG_PROG_ALLGEMEIN.cAllgemein.BENUTZER_BERECHTIGUNGS_GRUPPEN + If benutzerBer Is Nothing OrElse benutzerBer.LIST Is Nothing Then + Console.WriteLine("Abbruch: Benutzer hat keine Berechtigungsgruppen.") + Return result + End If + If BER_LIST Is Nothing OrElse BER_LIST.LIST Is Nothing Then + Console.WriteLine("Abbruch: BER_LIST nicht geladen.") + Return result + End If + + ' Benutzergruppen für das Programm vorbereiten + Dim userGruppen = benutzerBer.LIST.Where(Function(b) b.berbgz_progId = prog_Id).ToList() + Console.WriteLine("Benutzergruppen für prog_Id gefunden: " & userGruppen.Count) + + Dim seen As New HashSet(Of String)(StringComparer.OrdinalIgnoreCase) + + ' Alle Berechtigungsobjekte durchlaufen + For Each obj In BER_LIST.LIST + If obj Is Nothing OrElse obj.bero_progId <> prog_Id Then Continue For + + Dim bez As String = If(obj.bero_bezeichnung, "") + If bez = "" OrElse seen.Contains(bez) Then Continue For + + Console.WriteLine("Prüfe Berechtigung: " & bez) + + Dim effektiveStufe As Integer = 99 + + ' Gruppen/Firma/Niederlassung/Abteilung prüfen + For Each ll In obj.BER_OBJ_ZUORD + If ll.beroz_art = "G" AndAlso userGruppen.Any(Function(g) g.berbgz_bergrId = ll.beroz_bergrId) Then + Console.WriteLine($" -> Gruppe {ll.Bezeichnung} passt, Stufe={ll.beroz_berechtigungsstufe}") + If ll.beroz_berechtigungsstufe < effektiveStufe Then effektiveStufe = ll.beroz_berechtigungsstufe + ElseIf ll.beroz_art = "F" AndAlso ll.Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then + Console.WriteLine($" -> Firma {ll.Bezeichnung} passt, Stufe={ll.beroz_berechtigungsstufe}") + If ll.beroz_berechtigungsstufe < effektiveStufe Then effektiveStufe = ll.beroz_berechtigungsstufe + ElseIf ll.beroz_art = "N" AndAlso ll.Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG Then + Console.WriteLine($" -> Niederlassung {ll.Bezeichnung} passt, Stufe={ll.beroz_berechtigungsstufe}") + If ll.beroz_berechtigungsstufe < effektiveStufe Then effektiveStufe = ll.beroz_berechtigungsstufe + ElseIf ll.beroz_art = "A" AndAlso ll.Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG Then + Console.WriteLine($" -> Abteilung {ll.Bezeichnung} passt, Stufe={ll.beroz_berechtigungsstufe}") + If ll.beroz_berechtigungsstufe < effektiveStufe Then effektiveStufe = ll.beroz_berechtigungsstufe + End If + Next + + If effektiveStufe <> 99 Then + Console.WriteLine($" -> Hinzugefügt: {bez} (effektive Stufe={effektiveStufe})") + result.Add(bez) + seen.Add(bez) + Else + Console.WriteLine($" -> Keine Berechtigung für {bez}") + End If + Next + + result.Sort(StringComparer.OrdinalIgnoreCase) + Console.WriteLine("=== Fertig: " & result.Count & " Berechtigungen gefunden ===") + Return result + End Function + + Public Shared Function GetBenutzerBerechtigungsBezeichnungen_FormatWhereIn_SDL() As String + Dim BER As List(Of String) = GetBenutzerBerechtigungsBezeichnungen(7) '7=Prog_id von SDL 'VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID) sdl + Return FormatWhereIn(BER) + + End Function + Private Shared Function FormatWhereIn(berechtigungen As List(Of String)) As String + If berechtigungen Is Nothing OrElse berechtigungen.Count = 0 Then + Return "()" + End If + + ' Strings für SQL korrekt in Hochkommas packen, einfache Quotes escapen + Dim escaped = berechtigungen.Select(Function(b) "'" & b.Replace("'", "''") & "'") + Return "(" & String.Join(",", escaped) & ")" + End Function + End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb index d6062141..d52e527d 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb @@ -721,7 +721,7 @@ Public Class SQL Return o 'While Schleife wird hier verlassen Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "SQL:" & sql, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return Nothing diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb index 32fb37f1..7caa0ea9 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb @@ -1,5 +1,6 @@ Imports System.Data.SqlClient Imports System.Reflection +Imports DocumentFormat.OpenXml.Drawing.Diagrams Public Class cKunde Property KundenNr As Object = Nothing @@ -201,8 +202,9 @@ Public Class cKunde 'Prüfung Neuanlage: If If(FilialenNr Is Nothing, "", FilialenNr).ToString = "" Then ERROR_TXT = "Bitte geben Sie die zuständige Filiale an!" : Return False 'Es gibt alte Einträge ohne FilialenNr If checkEORI() Then ERROR_TXT = "Die EORI Nummer existiert bereits!" & vbNewLine & "Bitte prüfen, damit es zu keiner doppelten Erfassung des Kunden kommt." : Return False + If Abfertigungsverbot And (If(Abfertigungsverbot_Grund, "") = "" OrElse Abfertigungsverbot_seit Is Nothing) Then ERROR_TXT = "Wenn Abfertigungsverbot gesetzt, muss ein Grund und Datum angegeben werden!" : Return False End If - Return True + Return True End Function Function checkEORI() As Boolean If If(EORITIN, String.Empty) <> String.Empty Then diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb index 914bea2e..a0803b9a 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb @@ -102,7 +102,9 @@ Public Class cKundenErweitert Property kde_CSPortfolioAdded As Boolean = False - + Property kde_Provisionsverguetung As Boolean = False + Property kde_Provisionsverguetung_ProzentDL As Object = Nothing + Property kde_Provisionsverguetung_GSAnKdNr As Object = Nothing @@ -205,6 +207,9 @@ Public Class cKundenErweitert list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BezFIBU", kde_BezFIBU)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Kopfsammelrechnung", kde_Kopfsammelrechnung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CSPortfolioAdded", kde_CSPortfolioAdded)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Provisionsverguetung", kde_Provisionsverguetung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Provisionsverguetung_ProzentDL", kde_Provisionsverguetung_ProzentDL)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Provisionsverguetung_GSAnKdNr", kde_Provisionsverguetung_GSAnKdNr)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/cAllgemein.vb b/VERAG_PROG_ALLGEMEIN/cAllgemein.vb index d832fa7b..73d683d8 100644 --- a/VERAG_PROG_ALLGEMEIN/cAllgemein.vb +++ b/VERAG_PROG_ALLGEMEIN/cAllgemein.vb @@ -59,6 +59,7 @@ Public Class cAllgemein Public Shared AUTO_ABF_NR As Boolean = True Public Shared BENUTZER_BERECHTIGUNGS_GRUPPEN As cBerechtigungenBenutzerGruppenZuordnung_List = Nothing + Public Shared BENUTZER_BERECHTIGUNGS_GRUPPEN_WHEREIN_SDL As String = "('XXXXXXXX')" Public Shared PARAMS As cParameterList = Nothing Public Shared TRANSLATE As cTranslate_LIST = Nothing Public Shared TRANSLATE_AUTO As cTranslateAuto_LIST = Nothing @@ -160,7 +161,7 @@ Public Class cAllgemein Public Shared Sub LOAD_BER() BENUTZER_BERECHTIGUNGS_GRUPPEN = New cBerechtigungenBenutzerGruppenZuordnung_List(USRID) - + BENUTZER_BERECHTIGUNGS_GRUPPEN_WHEREIN_SDL = VERAG_PROG_ALLGEMEIN.cBerechtignunen.GetBenutzerBerechtigungsBezeichnungen_FormatWhereIn_SDL() End Sub Public Shared Sub LOAD_CHAT_EMOJIS()