Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

SDL/Fakturierung/cFakturierung.vb

@@ -3320,7 +3320,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
 
@@ -3827,7 +3827,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
 
 
@@ -3839,6 +3839,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
@@ -3864,8 +3867,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)
@@ -4038,6 +4044,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
@@ -4131,93 +4167,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), "")
 
@@ -4248,8 +4302,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)
@@ -4509,7 +4590,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
@@ -4591,6 +4672,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 = ""

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

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

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

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

SDL/Fakturierung/rptSammelRechnungAnlagenDruck_ProvSum.Designer.vb

@@ -0,0 +1,262 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+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
+    <System.Diagnostics.DebuggerStepThrough()>
+    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

SDL/Fakturierung/rptSammelRechnungAnlagenDruck_ProvSum.resx

@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+  <metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+</root>

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

SDL/SDL.vbproj

@@ -674,6 +674,12 @@
     <Compile Include="Fakturierung\frmSendEmail.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Fakturierung\rptSammelRechnungAnlagenDruck_ProvSum.Designer.vb">
+      <DependentUpon>rptSammelRechnungAnlagenDruck_ProvSum.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Fakturierung\rptSammelRechnungAnlagenDruck_ProvSum.vb">
+      <SubType>Component</SubType>
+    </Compile>
     <Compile Include="Fakturierung\rptSammelRechnungAnlagenDruck_MDM.Designer.vb">
       <DependentUpon>rptSammelRechnungAnlagenDruck_MDM.vb</DependentUpon>
     </Compile>
@@ -997,6 +1003,12 @@
     <Compile Include="seriendruck\usrCntlFakturierung.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="Speditionsbuch\frmProvisionisverguetung.Designer.vb">
+      <DependentUpon>frmProvisionisverguetung.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Speditionsbuch\frmProvisionisverguetung.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="USTV\frmUSTVoffeneAntraege.Designer.vb">
       <DependentUpon>frmUSTVoffeneAntraege.vb</DependentUpon>
     </Compile>
@@ -3364,6 +3376,9 @@
     <EmbeddedResource Include="Fakturierung\frmSendEmail.resx">
       <DependentUpon>frmSendEmail.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Fakturierung\rptSammelRechnungAnlagenDruck_ProvSum.resx">
+      <DependentUpon>rptSammelRechnungAnlagenDruck_ProvSum.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Fakturierung\rptSammelRechnungAnlagenDruck_MDM.resx">
       <DependentUpon>rptSammelRechnungAnlagenDruck_MDM.vb</DependentUpon>
     </EmbeddedResource>
@@ -3567,6 +3582,9 @@
     <EmbeddedResource Include="seriendruck\usrCntlFakturierung.resx">
       <DependentUpon>usrCntlFakturierung.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Speditionsbuch\frmProvisionisverguetung.resx">
+      <DependentUpon>frmProvisionisverguetung.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Speditionsbuch\rptSpeditionsberichtRg.resx">
       <DependentUpon>rptSpeditionsberichtRg.vb</DependentUpon>
     </EmbeddedResource>

SDL/Speditionsbuch/frmProvisionisverguetung.Designer.vb

@@ -0,0 +1,215 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmProvisionisverguetung
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    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.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    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

SDL/Speditionsbuch/frmProvisionisverguetung.resx

@@ -0,0 +1,980 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        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==
+</value>
+  </data>
+</root>

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

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

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

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()

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

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.cbxCSInsolvent = New System.Windows.Forms.CheckBox()
         Me.cbxCS_Added = New System.Windows.Forms.CheckBox()
         Me.Label113 = New System.Windows.Forms.Label()
@@ -419,6 +426,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()
@@ -1138,6 +1146,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)
@@ -1196,6 +1205,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
@@ -1209,6 +1315,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)
@@ -1217,9 +1324,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
@@ -1298,7 +1405,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 = ""
@@ -1313,7 +1420,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
@@ -1459,7 +1566,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
@@ -1470,7 +1577,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
@@ -1533,7 +1640,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
@@ -1543,7 +1650,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
@@ -1553,7 +1660,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
@@ -1563,7 +1670,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
@@ -1903,7 +2010,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
@@ -1924,9 +2031,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
@@ -1940,9 +2047,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
@@ -5617,6 +5724,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)
@@ -6025,4 +6134,10 @@ Partial Class usrcntlKundeBearbeitenFull
     Friend WithEvents cbxCS_Added As CheckBox
     Friend WithEvents cbxCSInsolvent As CheckBox
     Friend WithEvents btnBnkExcel As Button
+    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

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -380,6 +380,12 @@ Public Class usrcntlKundeBearbeitenFull
         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
@@ -748,6 +754,11 @@ Public Class usrcntlKundeBearbeitenFull
 
         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 -----
@@ -1046,7 +1057,7 @@ Public Class usrcntlKundeBearbeitenFull
         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

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)

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

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

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

VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb

@@ -97,6 +97,13 @@ Public Class cKundenErweitert
     Property kde_CSPortfolioAdded As Boolean = False
     Property kde_CSinsolventAm As Object = Nothing
 
+
+    Property kde_Provisionsverguetung As Boolean = False
+    Property kde_Provisionsverguetung_ProzentDL As Object = Nothing
+    Property kde_Provisionsverguetung_GSAnKdNr As Object = Nothing
+
+
+
     Dim SQL As New SQL
 
     Sub New(KundenNr)
@@ -196,6 +203,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))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CSinsolventAm", kde_CSinsolventAm))
 
         Return list

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()