Fremdrechnung_erw.

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.lblFR.AutoSize = True
-        Me.btnWikiStatusmails.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.lblFR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnWikiStatusmails.FlatAppearance.BorderSize = 0
+        Me.lblFR.ForeColor = System.Drawing.Color.Red
-        Me.btnWikiStatusmails.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.lblFR.Location = New System.Drawing.Point(4, 60)
-        Me.btnWikiStatusmails.Location = New System.Drawing.Point(65, 6)
+        Me.lblFR.Name = "lblFR"
-        Me.btnWikiStatusmails.Name = "btnWikiStatusmails"
+        Me.lblFR.Size = New System.Drawing.Size(27, 16)
-        Me.btnWikiStatusmails.Size = New System.Drawing.Size(25, 20)
+        Me.lblFR.TabIndex = 72
-        Me.btnWikiStatusmails.TabIndex = 71
+        Me.lblFR.Text = "FR"
-        Me.btnWikiStatusmails.UseVisualStyleBackColor = True
+        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

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
 

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.txtFR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
+        Me.cbxFR = New System.Windows.Forms.CheckBox()
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
-        Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
-        Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
         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.txtFR._DateTimeOnly = False
-        Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
+        Me.txtFR._numbersOnly = False
-        Me.ucKundenKontakte.Name = "ucKundenKontakte"
+        Me.txtFR._numbersOnlyKommastellen = ""
-        Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
+        Me.txtFR._numbersOnlyTrennzeichen = False
-        Me.ucKundenKontakte.TabIndex = 0
+        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.cbxFR.AutoSize = True
-        Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.cbxFR.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
+        Me.cbxFR.Location = New System.Drawing.Point(8, 146)
-        Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
+        Me.cbxFR.Name = "cbxFR"
-        Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
+        Me.cbxFR.Size = New System.Drawing.Size(100, 17)
-        Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
+        Me.cbxFR.TabIndex = 50
-        Me.UsrCntlKundenBesonderheiten1.Visible = False
+        Me.cbxFR.Text = "Fremdrechnung"
-        '
+        Me.cbxFR.UseVisualStyleBackColor = True
-        '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
         '
         '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

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)

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