diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb
index ee78bb2e..e1273e87 100644
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -3355,7 +3355,12 @@ Public Class usrCntlKundenuebersicht
 
             Dim company As New cCreditSafeAPI.Company("", "", "", "", KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "", KUNDE.KundenNr)
 
-            cs.AddCompanyToPortfolio(company)
+            If Not KUNDE_ERW.kde_CSPortfolioAdded Then
+                cs.AddCompanyToPortfolio(company)
+                KUNDE_ERW.kde_CSPortfolioAdded = True
+                KUNDE_ERW.SAVE()
+            End If
+
 
             company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-30))
 
diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
index 02a2ef68..6dcd6952 100644
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
@@ -103,6 +103,7 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.tbFiskal = New System.Windows.Forms.TabPage()
         Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
         Me.tbVerrechnung = New System.Windows.Forms.TabPage()
+        Me.cbpKopfsammelrechnung = New System.Windows.Forms.CheckBox()
         Me.pnlverag360 = New System.Windows.Forms.Panel()
         Me.Label111 = New System.Windows.Forms.Label()
         Me.txtFR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -404,7 +405,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.cbxCS_Added = New System.Windows.Forms.CheckBox()
         Me.tbcntrDetails.SuspendLayout()
         Me.tbAbfertigung.SuspendLayout()
         Me.tbcntrAbf.SuspendLayout()
@@ -1193,6 +1194,17 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.tbVerrechnung.Text = "Verrechnung"
         Me.tbVerrechnung.UseVisualStyleBackColor = True
         '
+        '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
+        '
         'pnlverag360
         '
         Me.pnlverag360.Controls.Add(Me.Label111)
@@ -3733,6 +3745,7 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         'tbSonstiges
         '
+        Me.tbSonstiges.Controls.Add(Me.cbxCS_Added)
         Me.tbSonstiges.Controls.Add(Me.Label113)
         Me.tbSonstiges.Controls.Add(Me.Label112)
         Me.tbSonstiges.Controls.Add(Me.dgvIDS_Rabatte)
@@ -5516,16 +5529,14 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
         Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
         '
-        'cbpKopfsammelrechnung
+        'cbxCS_Added
         '
-        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
+        Me.cbxCS_Added.AutoSize = True
+        Me.cbxCS_Added.Location = New System.Drawing.Point(406, 9)
+        Me.cbxCS_Added.Name = "cbxCS_Added"
+        Me.cbxCS_Added.Size = New System.Drawing.Size(15, 14)
+        Me.cbxCS_Added.TabIndex = 37
+        Me.cbxCS_Added.UseVisualStyleBackColor = True
         '
         'usrcntlKundeBearbeitenFull
         '
@@ -5985,4 +5996,5 @@ Partial Class usrcntlKundeBearbeitenFull
     Friend WithEvents Label111 As Label
     Friend WithEvents cbxErstattungsart As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents cbpKopfsammelrechnung As CheckBox
+    Friend WithEvents cbxCS_Added As CheckBox
 End Class
diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb
index 9300cd39..667cadd0 100644
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb
@@ -212,6 +212,7 @@
         cbxVorauszahlung.Checked = loadValue(KUNDE_ERW.kde_VZ, False)
         txtVorauszahlung.Text = loadValue(KUNDE_ERW.kde_AnmerkungVZ, "")
         cbxFR.Checked = loadValue(KUNDE_ERW.kde_FR, False)
+        cbxCS_Added.Checked = loadValue(KUNDE_ERW.kde_CSPortfolioAdded, False)
         txtFR.Text = loadValue(KUNDE_ERW.kde_AnmerkungFR, "")
         cbpKopfsammelrechnung.Checked = KUNDE_ERW.kde_Kopfsammelrechnung
         txtAnmerkungAntraege.Text = loadValue(KUNDE_ERW.kde_AnmerkungAntrag, "")
@@ -714,6 +715,7 @@
 
         KUNDE_ERW.kde_txtVersicherungDeckungsquote = isLeerNothingDbl(txtVersicherungDeckungsquote._value)
         KUNDE_ERW.kde_txtVersicherungNichtVersicherbar = cbxNichtVersicherbar.Checked
+        KUNDE_ERW.kde_CSPortfolioAdded = cbxCS_Added.Checked
         KUNDE_ERW.kde_Versicherung_GemeldeterBetrag = isLeerNothingDbl(txtVersicherung_GemeldeterBetrag._value)
         KUNDE_ERW.kde_txtVersicherungEHNr = isLeerNothing(txtVers_EHNr._value)