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

2025-08-28 15:33:33 +02:00
parent 62a0c6f6c2 21a1236ca5
commit c4eb70910e
11 changed files with 791 additions and 107 deletions
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -3,6 +3,7 @@ Imports System.Globalization
 Imports System.IO
 Imports System.Net
 Imports System.Web.UI.WebControls.Expressions
+Imports com.sun.org.apache.xpath.internal.operations
 Imports Microsoft.Office.Interop
 Imports s2industries.ZUGFeRD
 Imports VERAG_PROG_ALLGEMEIN
@@ -1201,6 +1202,13 @@ Public Class cFakturierung
                If vorschau = False And RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Nur bei Einzelrechnung möglich!") : Return False
            End If

+            If Not vorschau Then
+                Select Case RECHNUNG.Rechnungsart
+                    Case "RU" : MsgBox("Unvollständige Rechnungen können nur mit einem Rechnungskopf in der Sammelrechnung gedruckt werden! Siehe Rechnungsart.") : Return False
+                    Case "RK" : MsgBox("Ein Rechnungskopf kann nur mit zumindest einer unvollständigen Rechnung gedruckt werden! Siehe Rechnungsart.") : Return False
+                End Select
+            End If
+
            If RECHNUNG.POSITIONEN.Count = 0 Then MsgBox("Keine Daten vorhanden!") : Return False
            Dim dtDataSource As New DataTable

@@ -3163,15 +3171,15 @@ Public Class cFakturierung
        Dim whereAutoMailversand = ""
        If AUTOMailversand <> "" Then whereAutoMailversand = " AND isnull(Rechnungsausgang.Automailversand,0) = 1 "

-        Dim sqlStr = " SELECT Rechnungsausgang.RK_ID, Rechnungsausgang.Firma_ID, Rechnungsausgang.FilialenNr, Rechnungsausgang.RechnungsKundenNr, Rechnungsausgang.BelegartenNr, Rechnungsausgang.[Steuersatz %], Rechnungsausgang.Lastschrift, Rechnungsausgang.Währungscode, Rechnungsausgang.AvisoID, Rechnungsausgang.RechnungsNr, Rechnungsausgang.RechnungsDatum, Rechnungsausgang.DruckDatumZeit, Rechnungsausgang.Status, Rechnungsausgang.Sammelrechnung, Rechnungsausgang.Abfertigungsdatum, Rechnungsausgang.Buchungsjahr,Rechnungsausgang.AbfertigungsNr,Rechnungsausgang.SpeditionsbuchUnterNr,[SteuerpflichtigerGesamtbetrag],[SteuerfreierGesamtbetrag]
+        Dim sqlStr = " SELECT Rechnungsausgang.RK_ID, Rechnungsausgang.Firma_ID, Rechnungsausgang.FilialenNr, Rechnungsausgang.RechnungsKundenNr, Rechnungsausgang.BelegartenNr, Rechnungsausgang.[Steuersatz %], Rechnungsausgang.Lastschrift, Rechnungsausgang.Währungscode, Rechnungsausgang.AvisoID, Rechnungsausgang.RechnungsNr, Rechnungsausgang.RechnungsDatum, Rechnungsausgang.DruckDatumZeit, Rechnungsausgang.Status, Rechnungsausgang.Sammelrechnung, Rechnungsausgang.Abfertigungsdatum, Rechnungsausgang.Buchungsjahr,Rechnungsausgang.AbfertigungsNr,Rechnungsausgang.SpeditionsbuchUnterNr,[SteuerpflichtigerGesamtbetrag],[SteuerfreierGesamtbetrag],Rechnungsausgang.Rechnungsart 
 	                       From Rechnungsausgang
                            WHERE Rechnungsausgang.Status IN(0, 2) And Rechnungsausgang.Firma_ID = " & Firma_ID & " And Rechnungsausgang.Sammelrechnung = '" & SammelrechungArt & "' And Rechnungsausgang.FakturierungsGruppe = '" & FakturierungsGruppe & "' And CONVERT(DATE,Rechnungsausgang.Abfertigungsdatum,104) <= '" & DatumBis.ToShortDateString & "' " & whereKdNr & whereAbfArt & " 
                         " & If(SammelrechungArt = 7 And SB <> "", " AND Sachbearbeiter='" & SB & "' ", "") & "" & getWhereAvisoId(AvisoIds) & whereAutoMailversand
        'Rechnungsausgang.Status IN(0, 2) --> vorher nur 2, da Anlagen vor der SR gedruckt wurden...
        If SammelrechungArt = 7 Then
-            sqlStr &= " ORDER BY Rechnungsausgang.AvisoID,Rechnungsausgang.Firma_ID,Rechnungsausgang.RechnungsKundenNr,Rechnungsausgang.FilialenNr, Rechnungsausgang.AbfertigungsNr,  Rechnungsausgang.BelegartenNr, Rechnungsausgang.[Steuersatz %], Rechnungsausgang.Lastschrift, Rechnungsausgang.Währungscode "
+            sqlStr &= " ORDER BY Rechnungsausgang.AvisoID,Rechnungsausgang.Firma_ID,Rechnungsausgang.RechnungsKundenNr,Rechnungsausgang.FilialenNr, Rechnungsausgang.AbfertigungsNr,  Rechnungsausgang.BelegartenNr, Rechnungsausgang.[Steuersatz %], Rechnungsausgang.Lastschrift, Rechnungsausgang.Währungscode, CASE Rechnungsausgang.Rechnungsart WHEN 'RK' THEN 1 WHEN 'RU' THEN 2 WHEN 'RG' THEN 3 ELSE 4 END "
        Else
-            sqlStr &= " ORDER BY Rechnungsausgang.Firma_ID, Rechnungsausgang.RechnungsKundenNr,Rechnungsausgang.FilialenNr,Rechnungsausgang.AbfertigungsNr,  Rechnungsausgang.BelegartenNr, Rechnungsausgang.[Steuersatz %], Rechnungsausgang.Lastschrift, Rechnungsausgang.Währungscode, Rechnungsausgang.AvisoID "
+            sqlStr &= " ORDER BY Rechnungsausgang.Firma_ID, Rechnungsausgang.RechnungsKundenNr,Rechnungsausgang.FilialenNr,Rechnungsausgang.AbfertigungsNr,  Rechnungsausgang.BelegartenNr, Rechnungsausgang.[Steuersatz %], Rechnungsausgang.Lastschrift, Rechnungsausgang.Währungscode, Rechnungsausgang.AvisoID, CASE Rechnungsausgang.Rechnungsart WHEN 'RK' THEN 1 WHEN 'RU' THEN 2 WHEN 'RG' THEN 3 ELSE 4 END "
        End If
        ' MsgBox(sqlStr)
        Dim dt = SQL.loadDgvBySql(sqlStr, "FMZOLL")
@@ -3181,13 +3189,46 @@ Public Class cFakturierung

    Public Shared Function CHECK_SR_SQLDT(dt As DataTable) As Boolean
        For Each r In dt.Rows
-            If (CDbl(r("SteuerpflichtigerGesamtbetrag")) + CDbl(r("SteuerfreierGesamtbetrag"))) = 0 Then
-                Return False
+            If r("Rechnungsart") <> "RU" Then 'Sofern es sich nicht um eine unvollständige RG handelt, muss der Steuerpflichtige Gesamtbetrag <> 0 sein.
+                If (CDbl(r("SteuerpflichtigerGesamtbetrag")) + CDbl(r("SteuerfreierGesamtbetrag"))) = 0 Then
+                    Return False
+                End If
            End If
        Next
        Return True
    End Function
+    Public Shared Function CHECK_SR_GESSUM_SQLDT(dt As DataTable) As Boolean
+        Dim sum As Double = 0
+        For Each r In dt.Rows
+            If r("Rechnungsart") <> "RU" Then 'Sofern es sich nicht um eine unvollständige RG handelt, muss der Steuerpflichtige Gesamtbetrag <> 0 sein.
+                sum += (CDbl(r("SteuerpflichtigerGesamtbetrag")) + CDbl(r("SteuerfreierGesamtbetrag")))
+            End If
+        Next
+        If sum = 0 Then Return False

+        Return True
+    End Function
+
+    Public Shared Function CHECK_SR_RU_RK_SQLDT(dt As DataTable) As Boolean
+        Dim sum As Double = 0
+        Dim RU_found = False
+        Dim RK_found = False
+        For Each r In dt.Rows
+            If r("Rechnungsart") = "RU" Then 'Sofern mind. eine unvollständige RG vorhanden ist, muss auch ein Kopfeintrag vorhanden sein
+                RU_found = True
+            End If
+            If r("Rechnungsart") = "RK" Then 'Sofern mind. eine unvollständige RG vorhanden ist, muss auch ein Kopfeintrag vorhanden sein
+                RK_found = True
+            End If
+        Next
+        MsgBox(RU_found)
+        MsgBox(RK_found)
+        MsgBox(RU_found And RK_found)
+        If RU_found And RK_found Then Return True
+        If Not RU_found And Not RK_found Then Return True
+
+        Return False
+    End Function
    Public Shared Function getWhereAvisoId(ids As List(Of Integer)) As String
        If ids Is Nothing Then Return ""
        If ids.Count = 0 Then Return ""
@@ -3224,18 +3265,12 @@ Public Class cFakturierung
            If SammelrechungArt = 7 And (AvisoIds IsNot Nothing AndAlso AvisoIds.Count = 0) Then Return False 'Prüfung, ob Daten vorhanden; Abbruch ZB wenn keine AvisoId

            Dim dt = GET_SR_SQLDT(Firma_ID, SammelrechungArt, DatumBis, whereKdNr, SB, AvisoIds, FakturierungsGruppe, Abfertigungsart) 'SQL.loadDgvBySql(sqlStr, "FMZOLL")
-            If dt Is Nothing Then
-                If showError Then MsgBox("ERR01: Keine Daten")
-                Return True
-            End If
-            If dt.Rows.Count = 0 Then
-                If showError Then MsgBox("ERR02: Keine Daten")
-                Return True
-            End If
-            If Not CHECK_SR_SQLDT(dt) Then
-                If showError 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
-            End If
+            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
+            '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

            Dim Buchungsjahr = cRKSV.getGJ(Rechnungsdatum, Firma_ID) 'IIf(Rechnungsdatum.Month = 1, Rechnungsdatum.Year - 1, Rechnungsdatum.Year)

--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb
@@ -286,6 +286,8 @@ Partial Class usrCntlFaktAbrechnung
        Me.GutschriftAnVeragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.VeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.VeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.cboRgArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label57 = New System.Windows.Forms.Label()
        Me.pnlTop.SuspendLayout()
        Me.Panel3.SuspendLayout()
        Me.Panel1.SuspendLayout()
@@ -2020,6 +2022,8 @@ Partial Class usrCntlFaktAbrechnung
        '
        Me.pnlRechnungAn.BackColor = System.Drawing.Color.PapayaWhip
        Me.pnlRechnungAn.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlRechnungAn.Controls.Add(Me.cboRgArt)
+        Me.pnlRechnungAn.Controls.Add(Me.Label57)
        Me.pnlRechnungAn.Controls.Add(Me.cboVorauskasse)
        Me.pnlRechnungAn.Controls.Add(Me.Label56)
        Me.pnlRechnungAn.Controls.Add(Me.txtRechnungAnZusatz)
@@ -2104,7 +2108,7 @@ Partial Class usrCntlFaktAbrechnung
        '
        Me.Button15.Enabled = False
        Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button15.Location = New System.Drawing.Point(518, 105)
+        Me.Button15.Location = New System.Drawing.Point(518, 85)
        Me.Button15.Name = "Button15"
        Me.Button15.Size = New System.Drawing.Size(57, 23)
        Me.Button15.TabIndex = 241
@@ -2177,7 +2181,7 @@ Partial Class usrCntlFaktAbrechnung
        Me.lblUIDOK.AutoSize = True
        Me.lblUIDOK.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
        Me.lblUIDOK.ForeColor = System.Drawing.Color.Green
-        Me.lblUIDOK.Location = New System.Drawing.Point(431, 131)
+        Me.lblUIDOK.Location = New System.Drawing.Point(431, 111)
        Me.lblUIDOK.Name = "lblUIDOK"
        Me.lblUIDOK.Size = New System.Drawing.Size(104, 13)
        Me.lblUIDOK.TabIndex = 21
@@ -2189,7 +2193,7 @@ Partial Class usrCntlFaktAbrechnung
        Me.lblUIDErr.AutoSize = True
        Me.lblUIDErr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
        Me.lblUIDErr.ForeColor = System.Drawing.Color.Red
-        Me.lblUIDErr.Location = New System.Drawing.Point(431, 131)
+        Me.lblUIDErr.Location = New System.Drawing.Point(431, 111)
        Me.lblUIDErr.Name = "lblUIDErr"
        Me.lblUIDErr.Size = New System.Drawing.Size(122, 13)
        Me.lblUIDErr.TabIndex = 8
@@ -2200,7 +2204,7 @@ Partial Class usrCntlFaktAbrechnung
        '
        Me.Button6.Enabled = False
        Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button6.Location = New System.Drawing.Point(434, 105)
+        Me.Button6.Location = New System.Drawing.Point(434, 85)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(85, 23)
        Me.Button6.TabIndex = 15
@@ -2504,7 +2508,7 @@ Partial Class usrCntlFaktAbrechnung
        'Label7
        '
        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label7.Location = New System.Drawing.Point(408, 85)
+        Me.Label7.Location = New System.Drawing.Point(408, 65)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(167, 13)
        Me.Label7.TabIndex = 16
@@ -4031,6 +4035,27 @@ Partial Class usrCntlFaktAbrechnung
        Me.VeragCSToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
        Me.VeragCSToolStripMenuItem.Text = "Verag CS"
        '
+        'cboRgArt
+        '
+        Me.cboRgArt._allowedValuesFreiText = Nothing
+        Me.cboRgArt._allowFreiText = False
+        Me.cboRgArt._value = ""
+        Me.cboRgArt.FormattingEnabled = True
+        Me.cboRgArt.Location = New System.Drawing.Point(478, 127)
+        Me.cboRgArt.Name = "cboRgArt"
+        Me.cboRgArt.Size = New System.Drawing.Size(97, 21)
+        Me.cboRgArt.TabIndex = 246
+        '
+        'Label57
+        '
+        Me.Label57.AutoSize = True
+        Me.Label57.Location = New System.Drawing.Point(431, 130)
+        Me.Label57.Name = "Label57"
+        Me.Label57.Size = New System.Drawing.Size(42, 13)
+        Me.Label57.TabIndex = 245
+        Me.Label57.Text = "RG-Art:"
+        Me.Label57.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
        'usrCntlFaktAbrechnung
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4323,4 +4348,6 @@ Partial Class usrCntlFaktAbrechnung
    Friend WithEvents VeragCSToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents lblOFgesperrt As Label
    Friend WithEvents cboVorauskasse As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cboRgArt As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label57 As Label
 End Class
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
@@ -295,6 +295,9 @@ Public Class usrCntlFaktAbrechnung

            txtErfassungsnummer.Text = If(RECHNUNG.ErfassungsNr, "")
            cboRechnungNotiz.Text = If(RECHNUNG.Notiz, "")
+
+            initRgArt()
+            cboRgArt._value = RECHNUNG.Rechnungsart
            'txtRohmasse.Text = If(RECHNUNG., "")

            cboAnlage1.Text = If(RECHNUNG.Anlage_1, "")
@@ -555,6 +558,16 @@ Public Class usrCntlFaktAbrechnung
        If FirmaTmp = "VERAG360" Then cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rumänisch", "RO"))
        cboRechnungSprache.changeItem(0)

+        cboRgArt.Items.Clear()
+        If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.Abfertigungsart = 100 Then
+            cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RG-Kopf", "RK"))
+        Else
+            cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG"))
+            cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", "RU"))
+        End If
+        cboRgArt.changeItem(0)
+
+
        'cboSteuerschlüssel.fillWithSQL("SELECT tblSteuersätze.Nr, tblSteuersätze.Beschreibung FROM tblSteuersätze ORDER BY tblSteuersätze.Nr; ", False, "FMZOLL", True)
        cboSteuerschlüssel.fillWithSQL("SELECT [Steuerschlüssel],isnull([AuswahlSteuerbezeichnung],'') as Steuerbezeichnung FROM [Steuertabelle] ORDER BY [Steuerschlüssel]", False, "FMZOLL", True)

@@ -1020,6 +1033,8 @@ Public Class usrCntlFaktAbrechnung
            Case Else
        End Select

+        initRgArt()
+
        initKdAtrNr()
        initPkSt()
    End Sub
@@ -1774,6 +1789,9 @@ Public Class usrCntlFaktAbrechnung
            End If
        End If

+        initRgArt()
+
+
        initDGVAnhaenge()

        cboRechnungAn.Focus()
@@ -1784,7 +1802,33 @@ Public Class usrCntlFaktAbrechnung
        initFirma() ' wegen EV-VZ
    End Sub

+    Sub initRgArt()
+        cboRgArt.Items.Clear()
+        If SPEDBUCH IsNot Nothing Then

+            If SPEDBUCH.Abfertigungsart = 100 Then
+                cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RG-Kopf", "RK"))
+            Else
+                cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG"))
+                cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", "RU"))
+            End If
+        Else
+            cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RG-Kopf", "RK"))
+            cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG"))
+            cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", "RU"))
+        End If
+
+        cboRgArt.SelectedIndex = 0
+        If txtkdNrRechnungAn.Text <> "" Then
+            Dim KDE As New cKundenErweitert(txtkdNrRechnungAn.Text)
+            If KDE IsNot Nothing Then
+
+                If KDE.kde_Kopfsammelrechnung Then
+                    If cboRgArt.Items.Count > 1 Then cboRgArt.changeItem("RU")
+                End If
+            End If
+        End If
+    End Sub
    Sub initDGVAnhaenge()
        With dgvAnhaenge

@@ -2355,6 +2399,7 @@ Public Class usrCntlFaktAbrechnung
        RECHNUNG.RefAbfertigungsNr = cProgramFunctions.isLeerNothing(txtAbfertigungsnummerRef.Text) '????????
        RECHNUNG.RefUnterNr = cProgramFunctions.isLeerNothing(txtUnterNrRef.Text) '????????
        RECHNUNG.Notiz = cProgramFunctions.isLeerNothing(cboRechnungNotiz.Text)
+        RECHNUNG.Rechnungsart = cProgramFunctions.isLeerNothing(cboRgArt._value)
        ' RECHNUNG.Zucker_MRN_Nr = cProgramFunctions.isLeerNothing(XXXXXXXXX.text)
        ' RECHNUNG.Zucker_MRN_Datum = cProgramFunctions.isLeerNothing(XXXXXXXXX.text)
        ' RECHNUNG.Zucker_Aufschub = cProgramFunctions.isLeerNothing(XXXXXXXXX.text)
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
@@ -404,6 +404,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.cbpKopfsammelrechnung = New System.Windows.Forms.CheckBox()
        Me.tbcntrDetails.SuspendLayout()
        Me.tbAbfertigung.SuspendLayout()
        Me.tbcntrAbf.SuspendLayout()
@@ -1134,6 +1135,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'tbVerrechnung
        '
+        Me.tbVerrechnung.Controls.Add(Me.cbpKopfsammelrechnung)
        Me.tbVerrechnung.Controls.Add(Me.pnlverag360)
        Me.tbVerrechnung.Controls.Add(Me.cbxKapitalWaehrung)
        Me.tbVerrechnung.Controls.Add(Me.Label103)
@@ -1201,7 +1203,7 @@ 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, 247)
+        Me.pnlverag360.Location = New System.Drawing.Point(417, 288)
        Me.pnlverag360.Name = "pnlverag360"
        Me.pnlverag360.Size = New System.Drawing.Size(252, 204)
        Me.pnlverag360.TabIndex = 49
@@ -5514,6 +5516,17 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        '
+        'cbpKopfsammelrechnung
+        '
+        Me.cbpKopfsammelrechnung.AutoSize = True
+        Me.cbpKopfsammelrechnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbpKopfsammelrechnung.Location = New System.Drawing.Point(417, 244)
+        Me.cbpKopfsammelrechnung.Name = "cbpKopfsammelrechnung"
+        Me.cbpKopfsammelrechnung.Size = New System.Drawing.Size(202, 30)
+        Me.cbpKopfsammelrechnung.TabIndex = 50
+        Me.cbpKopfsammelrechnung.Text = "Kopf-Sammelrechnung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Abr. mit unvollst. Rg+ Kopfrechnung)"
+        Me.cbpKopfsammelrechnung.UseVisualStyleBackColor = True
+        '
        'usrcntlKundeBearbeitenFull
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -5971,4 +5984,5 @@ Partial Class usrcntlKundeBearbeitenFull
    Friend WithEvents Label112 As Label
    Friend WithEvents Label111 As Label
    Friend WithEvents cbxErstattungsart As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cbpKopfsammelrechnung As CheckBox
 End Class
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb
@@ -213,6 +213,7 @@
        txtVorauszahlung.Text = loadValue(KUNDE_ERW.kde_AnmerkungVZ, "")
        cbxFR.Checked = loadValue(KUNDE_ERW.kde_FR, False)
        txtFR.Text = loadValue(KUNDE_ERW.kde_AnmerkungFR, "")
+        cbpKopfsammelrechnung.Checked = KUNDE_ERW.kde_Kopfsammelrechnung
        txtAnmerkungAntraege.Text = loadValue(KUNDE_ERW.kde_AnmerkungAntrag, "")

        txtEORI.Text = If(KUNDE.EORITIN, "")
@@ -633,6 +634,7 @@
        KUNDE_ERW.kde_AnmerkungAntrag = txtAnmerkungAntraege.Text
        KUNDE_ERW.kde_FR = cbxFR.Checked
        KUNDE_ERW.kde_AnmerkungFR = txtFR.Text
+        KUNDE_ERW.kde_Kopfsammelrechnung = cbpKopfsammelrechnung.Checked

        If isLeerNothing(txtGruendungsDatum.Text) IsNot Nothing AndAlso IsDate(txtGruendungsDatum.Text) Then
            KUNDE_ERW.kde_GruendungsDatum = CDate(txtGruendungsDatum.Text)