Fremdrechnung_erw.

2025-04-25 14:13:52 +02:00
parent 07633f1986
commit f140798b09
5 changed files with 138 additions and 59 deletions
--- a/SDL/USTV/usrCntlUSTV.Designer.vb
+++ b/SDL/USTV/usrCntlUSTV.Designer.vb
@@ -28,6 +28,7 @@ Partial Class usrCntlUSTV
        Me.dgvUSTV = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.Label1 = New System.Windows.Forms.Label()
        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.btnWikiStatusmails = New System.Windows.Forms.Button()
        Me.lblVZhint = New System.Windows.Forms.Label()
        Me.lblVZKunde = New System.Windows.Forms.Label()
        Me.txtRisiko = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -71,7 +72,8 @@ Partial Class usrCntlUSTV
        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.btnWikiStatusmails = New System.Windows.Forms.Button()
+        Me.lblFR = New System.Windows.Forms.Label()
+        Me.lblFRhint = New System.Windows.Forms.Label()
        CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
        Me.Panel2.SuspendLayout()
@@ -119,6 +121,8 @@ Partial Class usrCntlUSTV
        'Panel1
        '
        Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.Panel1.Controls.Add(Me.lblFRhint)
+        Me.Panel1.Controls.Add(Me.lblFR)
        Me.Panel1.Controls.Add(Me.btnWikiStatusmails)
        Me.Panel1.Controls.Add(Me.lblVZhint)
        Me.Panel1.Controls.Add(Me.lblVZKunde)
@@ -157,10 +161,22 @@ Partial Class usrCntlUSTV
        Me.Panel1.Size = New System.Drawing.Size(1627, 108)
        Me.Panel1.TabIndex = 0
        '
+        'btnWikiStatusmails
+        '
+        Me.btnWikiStatusmails.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
+        Me.btnWikiStatusmails.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnWikiStatusmails.FlatAppearance.BorderSize = 0
+        Me.btnWikiStatusmails.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnWikiStatusmails.Location = New System.Drawing.Point(65, 6)
+        Me.btnWikiStatusmails.Name = "btnWikiStatusmails"
+        Me.btnWikiStatusmails.Size = New System.Drawing.Size(25, 20)
+        Me.btnWikiStatusmails.TabIndex = 71
+        Me.btnWikiStatusmails.UseVisualStyleBackColor = True
+        '
        'lblVZhint
        '
        Me.lblVZhint.AutoSize = True
-        Me.lblVZhint.Location = New System.Drawing.Point(4, 60)
+        Me.lblVZhint.Location = New System.Drawing.Point(90, 44)
        Me.lblVZhint.Name = "lblVZhint"
        Me.lblVZhint.Size = New System.Drawing.Size(0, 13)
        Me.lblVZhint.TabIndex = 58
@@ -170,7 +186,7 @@ Partial Class usrCntlUSTV
        Me.lblVZKunde.AutoSize = True
        Me.lblVZKunde.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblVZKunde.ForeColor = System.Drawing.Color.Red
-        Me.lblVZKunde.Location = New System.Drawing.Point(4, 39)
+        Me.lblVZKunde.Location = New System.Drawing.Point(4, 40)
        Me.lblVZKunde.Name = "lblVZKunde"
        Me.lblVZKunde.Size = New System.Drawing.Size(83, 16)
        Me.lblVZKunde.TabIndex = 57
@@ -784,17 +800,25 @@ Partial Class usrCntlUSTV
        Me.ContextMenuStrip3.Name = "ContextMenuStrip1"
        Me.ContextMenuStrip3.Size = New System.Drawing.Size(61, 4)
        '
-        'btnWikiStatusmails
+        'lblFR
        '
-        Me.btnWikiStatusmails.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
-        Me.btnWikiStatusmails.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.btnWikiStatusmails.FlatAppearance.BorderSize = 0
-        Me.btnWikiStatusmails.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnWikiStatusmails.Location = New System.Drawing.Point(65, 6)
-        Me.btnWikiStatusmails.Name = "btnWikiStatusmails"
-        Me.btnWikiStatusmails.Size = New System.Drawing.Size(25, 20)
-        Me.btnWikiStatusmails.TabIndex = 71
-        Me.btnWikiStatusmails.UseVisualStyleBackColor = True
+        Me.lblFR.AutoSize = True
+        Me.lblFR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblFR.ForeColor = System.Drawing.Color.Red
+        Me.lblFR.Location = New System.Drawing.Point(4, 60)
+        Me.lblFR.Name = "lblFR"
+        Me.lblFR.Size = New System.Drawing.Size(27, 16)
+        Me.lblFR.TabIndex = 72
+        Me.lblFR.Text = "FR"
+        Me.lblFR.Visible = False
+        '
+        'lblFRhint
+        '
+        Me.lblFRhint.AutoSize = True
+        Me.lblFRhint.Location = New System.Drawing.Point(31, 63)
+        Me.lblFRhint.Name = "lblFRhint"
+        Me.lblFRhint.Size = New System.Drawing.Size(0, 13)
+        Me.lblFRhint.TabIndex = 73
        '
        'usrCntlUSTV
        '
@@ -862,4 +886,6 @@ Partial Class usrCntlUSTV
    Friend WithEvents lblVZKunde As Label
    Friend WithEvents ContextMenuStrip3 As ContextMenuStrip
    Friend WithEvents btnWikiStatusmails As Button
+    Friend WithEvents lblFR As Label
+    Friend WithEvents lblFRhint As Label
 End Class
--- a/SDL/USTV/usrCntlUSTV.vb
+++ b/SDL/USTV/usrCntlUSTV.vb
@@ -1086,15 +1086,19 @@ Public Class usrCntlUSTV
            If KUNDE.Abfertigungsverbot Then Panel1.BackColor = Color.IndianRed
            If KUNDE_ERW.kde_AnmerkungVZ IsNot Nothing Then
                lblVZhint.Text = KUNDE_ERW.kde_AnmerkungVZ
+                lblFRhint.Text = KUNDE_ERW.kde_AnmerkungFR
            Else

            End If
            lblVZKunde.Visible = KUNDE_ERW.kde_VZ
+            lblFR.Visible = KUNDE_ERW.kde_FR

        Else

            lblVZKunde.Visible = False
+            lblFR.Visible = False
            lblVZhint.Text = ""
+            lblFRhint.Text = ""
            Panel1.BackColor = Color.FromArgb(240, 245, 255)
        End If

--- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
@@ -55,9 +55,11 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cboFremdspedition = New System.Windows.Forms.ComboBox()
        Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox()
        Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox()
+        Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
        Me.tbcntrAbf = New System.Windows.Forms.TabControl()
        Me.TabPage4 = New System.Windows.Forms.TabPage()
        Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel()
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
        Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox()
        Me.Label18 = New System.Windows.Forms.Label()
        Me.TabPage3 = New System.Windows.Forms.TabPage()
@@ -71,6 +73,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cboAbfVerb_Abfertigungsverbot = New System.Windows.Forms.CheckBox()
        Me.txtAbfVerb_AbfertigungsverbotSeit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.tbAufschub = New System.Windows.Forms.TabPage()
+        Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
        Me.Label78 = New System.Windows.Forms.Label()
        Me.cbxAbf_ZollVM = New System.Windows.Forms.CheckBox()
@@ -95,6 +98,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.tbFiskal = New System.Windows.Forms.TabPage()
+        Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
        Me.tbVerrechnung = New System.Windows.Forms.TabPage()
        Me.pnlverag360 = New System.Windows.Forms.Panel()
        Me.txtAnmerkungAntraege = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -363,6 +367,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbKontakt = New System.Windows.Forms.TabControl()
        Me.TabPage10 = New System.Windows.Forms.TabPage()
        Me.TabPage11 = New System.Windows.Forms.TabPage()
+        Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
        Me.Label50 = New System.Windows.Forms.Label()
        Me.Label68 = New System.Windows.Forms.Label()
        Me.pnlNeukunde = New System.Windows.Forms.Panel()
@@ -388,11 +393,8 @@ 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.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
-        Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
-        Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
-        Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
+        Me.txtFR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxFR = New System.Windows.Forms.CheckBox()
        Me.tbcntrDetails.SuspendLayout()
        Me.tbAbfertigung.SuspendLayout()
        Me.tbcntrAbf.SuspendLayout()
@@ -577,6 +579,16 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cbxBesonderheitenNEU.Text = "Besonderheiten NEU"
        Me.cbxBesonderheitenNEU.UseVisualStyleBackColor = True
        '
+        'UsrCntlKundenBesonderheiten1
+        '
+        Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
+        Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
+        Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
+        Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
+        Me.UsrCntlKundenBesonderheiten1.Visible = False
+        '
        'tbcntrAbf
        '
        Me.tbcntrAbf.Controls.Add(Me.TabPage4)
@@ -611,6 +623,15 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.FlowLayoutPanel1.Size = New System.Drawing.Size(200, 100)
        Me.FlowLayoutPanel1.TabIndex = 7
        '
+        'UsrCntlKundenAvisoMailBenachrichtigung1
+        '
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
+        '
        'rtbLKWFreigabeSenden
        '
        Me.rtbLKWFreigabeSenden.Location = New System.Drawing.Point(485, 33)
@@ -779,6 +800,14 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbAufschub.Text = "Aufschubkonten"
        Me.tbAufschub.UseVisualStyleBackColor = True
        '
+        'usrCntlAufschubkonten
+        '
+        Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
+        Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
+        Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
+        Me.usrCntlAufschubkonten.TabIndex = 0
+        '
        'TabPage1
        '
        Me.TabPage1.Controls.Add(Me.Label78)
@@ -1084,6 +1113,15 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbFiskal.Text = "Fiskal"
        Me.tbFiskal.UseVisualStyleBackColor = True
        '
+        'UsrCntlKundeFiskaldaten1
+        '
+        Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
+        Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495)
+        Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
+        '
        'tbVerrechnung
        '
        Me.tbVerrechnung.Controls.Add(Me.pnlverag360)
@@ -1145,13 +1183,15 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'pnlverag360
        '
+        Me.pnlverag360.Controls.Add(Me.txtFR)
+        Me.pnlverag360.Controls.Add(Me.cbxFR)
        Me.pnlverag360.Controls.Add(Me.txtAnmerkungAntraege)
        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.Name = "pnlverag360"
-        Me.pnlverag360.Size = New System.Drawing.Size(252, 143)
+        Me.pnlverag360.Size = New System.Drawing.Size(252, 169)
        Me.pnlverag360.TabIndex = 49
        '
        'txtAnmerkungAntraege
@@ -5040,6 +5080,14 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.TabPage11.Text = "Spezifisch"
        Me.TabPage11.UseVisualStyleBackColor = True
        '
+        'ucKundenKontakte
+        '
+        Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
+        Me.ucKundenKontakte.Name = "ucKundenKontakte"
+        Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
+        Me.ucKundenKontakte.TabIndex = 0
+        '
        'Label50
        '
        Me.Label50.AutoSize = True
@@ -5320,49 +5368,40 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        '
-        'ucKundenKontakte
+        'txtFR
        '
-        Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
-        Me.ucKundenKontakte.Name = "ucKundenKontakte"
-        Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
-        Me.ucKundenKontakte.TabIndex = 0
+        Me.txtFR._DateTimeOnly = False
+        Me.txtFR._numbersOnly = False
+        Me.txtFR._numbersOnlyKommastellen = ""
+        Me.txtFR._numbersOnlyTrennzeichen = False
+        Me.txtFR._Prozent = False
+        Me.txtFR._ShortDateNew = False
+        Me.txtFR._ShortDateOnly = False
+        Me.txtFR._TimeOnly = False
+        Me.txtFR._TimeOnly_Seconds = False
+        Me.txtFR._value = ""
+        Me.txtFR._Waehrung = False
+        Me.txtFR._WaehrungZeichen = False
+        Me.txtFR.ForeColor = System.Drawing.Color.Red
+        Me.txtFR.Location = New System.Drawing.Point(110, 146)
+        Me.txtFR.MaxLength = 10
+        Me.txtFR.MaxLineLength = -1
+        Me.txtFR.MaxLines_Warning = ""
+        Me.txtFR.MaxLines_Warning_Label = Nothing
+        Me.txtFR.Name = "txtFR"
+        Me.txtFR.Size = New System.Drawing.Size(123, 20)
+        Me.txtFR.TabIndex = 51
        '
-        'UsrCntlKundenBesonderheiten1
+        'cbxFR
        '
-        Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
-        Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
-        Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
-        Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
-        Me.UsrCntlKundenBesonderheiten1.Visible = False
-        '
-        'UsrCntlKundenAvisoMailBenachrichtigung1
-        '
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
-        '
-        'usrCntlAufschubkonten
-        '
-        Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
-        Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
-        Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
-        Me.usrCntlAufschubkonten.TabIndex = 0
-        '
-        'UsrCntlKundeFiskaldaten1
-        '
-        Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
-        Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
-        Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495)
-        Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
+        Me.cbxFR.AutoSize = True
+        Me.cbxFR.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxFR.Location = New System.Drawing.Point(8, 146)
+        Me.cbxFR.Name = "cbxFR"
+        Me.cbxFR.Size = New System.Drawing.Size(100, 17)
+        Me.cbxFR.TabIndex = 50
+        Me.cbxFR.Text = "Fremdrechnung"
+        Me.cbxFR.UseVisualStyleBackColor = True
        '
        'usrcntlKundeBearbeitenFull
        '
@@ -5812,4 +5851,6 @@ Partial Class usrcntlKundeBearbeitenFull
    Friend WithEvents txtAnmerkungAntraege As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents dgvMWST As DataGridView
    Friend WithEvents btnMWSTspeichern As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents txtFR As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cbxFR As CheckBox
 End Class
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb
@@ -203,6 +203,8 @@
        txtHandelsregisterNr.Text = loadValue(KUNDE_ERW.kde_HRNr, "")
        cbxVorauszahlung.Checked = loadValue(KUNDE_ERW.kde_VZ, False)
        txtVorauszahlung.Text = loadValue(KUNDE_ERW.kde_AnmerkungVZ, "")
+        cbxFR.Checked = loadValue(KUNDE_ERW.kde_FR, False)
+        txtFR.Text = loadValue(KUNDE_ERW.kde_AnmerkungFR, "")
        txtAnmerkungAntraege.Text = loadValue(KUNDE_ERW.kde_AnmerkungAntrag, "")

        txtEORI.Text = If(KUNDE.EORITIN, "")
@@ -621,6 +623,8 @@
        KUNDE_ERW.kde_VZ = cbxVorauszahlung.Checked
        KUNDE_ERW.kde_AnmerkungVZ = txtVorauszahlung.Text
        KUNDE_ERW.kde_AnmerkungAntrag = txtAnmerkungAntraege.Text
+        KUNDE_ERW.kde_FR = cbxFR.Checked
+        KUNDE_ERW.kde_AnmerkungFR = txtFR.Text

        If isLeerNothing(txtGruendungsDatum.Text) IsNot Nothing AndAlso IsDate(txtGruendungsDatum.Text) Then
            KUNDE_ERW.kde_GruendungsDatum = CDate(txtGruendungsDatum.Text)
--- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
@@ -91,6 +91,8 @@ Public Class cKundenErweitert
    Property kde_MWStAbrechnung As String = "Q"
    Property kde_AnmerkungVZ As Object = Nothing
    Property kde_VZ As Boolean = False
+    Property kde_AnmerkungFR As Object = Nothing
+    Property kde_FR As Boolean = False
    Property kde_AnmerkungAntrag As Object = Nothing


@@ -186,6 +188,8 @@ Public Class cKundenErweitert
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AnmerkungVZ", kde_AnmerkungVZ))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_VZ", kde_VZ))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AnmerkungAntrag", kde_AnmerkungAntrag))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AnmerkungFR", kde_AnmerkungFR))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_FR", kde_FR))

        Return list
    End Function