MDM, Auswertungen, Nacherfassung, Kundebearbeiten, Mahnlauf

2024-11-20 17:10:35 +01:00
parent 0fb0452990
commit 7435031346
11 changed files with 500 additions and 259 deletions
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
@@ -52,9 +52,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()
@@ -68,6 +70,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()
@@ -92,6 +95,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.cbxKapitalWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.Label103 = New System.Windows.Forms.Label()
@@ -240,6 +244,11 @@ 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.txtSumPLOSE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtSumUTA = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtSumMSE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtSumIDS = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label109 = New System.Windows.Forms.Label()
        Me.Label99 = New System.Windows.Forms.Label()
        Me.txtCreditsafe = New System.Windows.Forms.TextBox()
        Me.txtSonst_KdNrTOBB = New System.Windows.Forms.TextBox()
@@ -341,6 +350,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()
@@ -366,11 +376,9 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.ArchivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.DokumentHinzufügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.DokumentLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        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.Label110 = New System.Windows.Forms.Label()
+        Me.txtSonst_KdNrVerag = New System.Windows.Forms.TextBox()
+        Me.txtSumVerag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.tbcntrDetails.SuspendLayout()
        Me.tbAbfertigung.SuspendLayout()
        Me.tbcntrAbf.SuspendLayout()
@@ -552,6 +560,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)
@@ -586,6 +604,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)
@@ -754,6 +781,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)
@@ -1059,6 +1094,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.cbxKapitalWaehrung)
@@ -3429,6 +3473,14 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'tbSonstiges
        '
+        Me.tbSonstiges.Controls.Add(Me.txtSumVerag)
+        Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrVerag)
+        Me.tbSonstiges.Controls.Add(Me.Label110)
+        Me.tbSonstiges.Controls.Add(Me.txtSumPLOSE)
+        Me.tbSonstiges.Controls.Add(Me.txtSumUTA)
+        Me.tbSonstiges.Controls.Add(Me.txtSumMSE)
+        Me.tbSonstiges.Controls.Add(Me.txtSumIDS)
+        Me.tbSonstiges.Controls.Add(Me.Label109)
        Me.tbSonstiges.Controls.Add(Me.Label99)
        Me.tbSonstiges.Controls.Add(Me.txtCreditsafe)
        Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrTOBB)
@@ -3462,15 +3514,117 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbSonstiges.Text = "Sonstiges"
        Me.tbSonstiges.UseVisualStyleBackColor = True
        '
+        'txtSumPLOSE
+        '
+        Me.txtSumPLOSE._DateTimeOnly = False
+        Me.txtSumPLOSE._numbersOnly = True
+        Me.txtSumPLOSE._numbersOnlyKommastellen = ""
+        Me.txtSumPLOSE._numbersOnlyTrennzeichen = True
+        Me.txtSumPLOSE._Prozent = False
+        Me.txtSumPLOSE._ShortDateNew = False
+        Me.txtSumPLOSE._ShortDateOnly = False
+        Me.txtSumPLOSE._TimeOnly = False
+        Me.txtSumPLOSE._TimeOnly_Seconds = False
+        Me.txtSumPLOSE._value = ""
+        Me.txtSumPLOSE._Waehrung = False
+        Me.txtSumPLOSE._WaehrungZeichen = True
+        Me.txtSumPLOSE.ForeColor = System.Drawing.Color.Black
+        Me.txtSumPLOSE.Location = New System.Drawing.Point(254, 182)
+        Me.txtSumPLOSE.MaxLineLength = -1
+        Me.txtSumPLOSE.MaxLines_Warning = ""
+        Me.txtSumPLOSE.MaxLines_Warning_Label = Nothing
+        Me.txtSumPLOSE.Name = "txtSumPLOSE"
+        Me.txtSumPLOSE.Size = New System.Drawing.Size(100, 20)
+        Me.txtSumPLOSE.TabIndex = 29
+        '
+        'txtSumUTA
+        '
+        Me.txtSumUTA._DateTimeOnly = False
+        Me.txtSumUTA._numbersOnly = True
+        Me.txtSumUTA._numbersOnlyKommastellen = ""
+        Me.txtSumUTA._numbersOnlyTrennzeichen = True
+        Me.txtSumUTA._Prozent = False
+        Me.txtSumUTA._ShortDateNew = False
+        Me.txtSumUTA._ShortDateOnly = False
+        Me.txtSumUTA._TimeOnly = False
+        Me.txtSumUTA._TimeOnly_Seconds = False
+        Me.txtSumUTA._value = ""
+        Me.txtSumUTA._Waehrung = False
+        Me.txtSumUTA._WaehrungZeichen = True
+        Me.txtSumUTA.ForeColor = System.Drawing.Color.Black
+        Me.txtSumUTA.Location = New System.Drawing.Point(254, 159)
+        Me.txtSumUTA.MaxLineLength = -1
+        Me.txtSumUTA.MaxLines_Warning = ""
+        Me.txtSumUTA.MaxLines_Warning_Label = Nothing
+        Me.txtSumUTA.Name = "txtSumUTA"
+        Me.txtSumUTA.Size = New System.Drawing.Size(100, 20)
+        Me.txtSumUTA.TabIndex = 28
+        '
+        'txtSumMSE
+        '
+        Me.txtSumMSE._DateTimeOnly = False
+        Me.txtSumMSE._numbersOnly = True
+        Me.txtSumMSE._numbersOnlyKommastellen = ""
+        Me.txtSumMSE._numbersOnlyTrennzeichen = True
+        Me.txtSumMSE._Prozent = False
+        Me.txtSumMSE._ShortDateNew = False
+        Me.txtSumMSE._ShortDateOnly = False
+        Me.txtSumMSE._TimeOnly = False
+        Me.txtSumMSE._TimeOnly_Seconds = False
+        Me.txtSumMSE._value = ""
+        Me.txtSumMSE._Waehrung = False
+        Me.txtSumMSE._WaehrungZeichen = True
+        Me.txtSumMSE.ForeColor = System.Drawing.Color.Black
+        Me.txtSumMSE.Location = New System.Drawing.Point(254, 104)
+        Me.txtSumMSE.MaxLineLength = -1
+        Me.txtSumMSE.MaxLines_Warning = ""
+        Me.txtSumMSE.MaxLines_Warning_Label = Nothing
+        Me.txtSumMSE.Name = "txtSumMSE"
+        Me.txtSumMSE.Size = New System.Drawing.Size(100, 20)
+        Me.txtSumMSE.TabIndex = 27
+        '
+        'txtSumIDS
+        '
+        Me.txtSumIDS._DateTimeOnly = False
+        Me.txtSumIDS._numbersOnly = True
+        Me.txtSumIDS._numbersOnlyKommastellen = ""
+        Me.txtSumIDS._numbersOnlyTrennzeichen = True
+        Me.txtSumIDS._Prozent = False
+        Me.txtSumIDS._ShortDateNew = False
+        Me.txtSumIDS._ShortDateOnly = False
+        Me.txtSumIDS._TimeOnly = False
+        Me.txtSumIDS._TimeOnly_Seconds = False
+        Me.txtSumIDS._value = ""
+        Me.txtSumIDS._Waehrung = False
+        Me.txtSumIDS._WaehrungZeichen = True
+        Me.txtSumIDS.ForeColor = System.Drawing.Color.Black
+        Me.txtSumIDS.Location = New System.Drawing.Point(254, 52)
+        Me.txtSumIDS.MaxLineLength = -1
+        Me.txtSumIDS.MaxLines_Warning = ""
+        Me.txtSumIDS.MaxLines_Warning_Label = Nothing
+        Me.txtSumIDS.Name = "txtSumIDS"
+        Me.txtSumIDS.Size = New System.Drawing.Size(100, 20)
+        Me.txtSumIDS.TabIndex = 26
+        '
+        'Label109
+        '
+        Me.Label109.AutoSize = True
+        Me.Label109.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label109.Location = New System.Drawing.Point(262, 9)
+        Me.Label109.Name = "Label109"
+        Me.Label109.Size = New System.Drawing.Size(94, 13)
+        Me.Label109.TabIndex = 25
+        Me.Label109.Text = "Vorschausummen:"
+        '
        'Label99
        '
        Me.Label99.AutoSize = True
        Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label99.Location = New System.Drawing.Point(6, 34)
        Me.Label99.Name = "Label99"
-        Me.Label99.Size = New System.Drawing.Size(68, 13)
+        Me.Label99.Size = New System.Drawing.Size(71, 13)
        Me.Label99.TabIndex = 24
-        Me.Label99.Text = "ID Creditsafe"
+        Me.Label99.Text = "ID Creditsafe:"
        '
        'txtCreditsafe
        '
@@ -3521,7 +3675,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.Label76.AutoSize = True
        Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label76.Location = New System.Drawing.Point(9, 235)
+        Me.Label76.Location = New System.Drawing.Point(4, 262)
        Me.Label76.Name = "Label76"
        Me.Label76.Size = New System.Drawing.Size(65, 13)
        Me.Label76.TabIndex = 17
@@ -3550,16 +3704,16 @@ Partial Class usrcntlKundeBearbeitenFull
        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
        Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle13
-        Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251)
+        Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 308)
        Me.dgvSonst_IDSKunden.MultiSelect = False
        Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden"
-        Me.dgvSonst_IDSKunden.Size = New System.Drawing.Size(657, 201)
+        Me.dgvSonst_IDSKunden.Size = New System.Drawing.Size(657, 144)
        Me.dgvSonst_IDSKunden.TabIndex = 18
        '
        'cbxSonst_CsvAsfinag
        '
        Me.cbxSonst_CsvAsfinag.AutoSize = True
-        Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(119, 230)
+        Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(114, 261)
        Me.cbxSonst_CsvAsfinag.Name = "cbxSonst_CsvAsfinag"
        Me.cbxSonst_CsvAsfinag.Size = New System.Drawing.Size(264, 17)
        Me.cbxSonst_CsvAsfinag.TabIndex = 15
@@ -3569,7 +3723,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'cbxSonst_CsvUTA
        '
        Me.cbxSonst_CsvUTA.AutoSize = True
-        Me.cbxSonst_CsvUTA.Location = New System.Drawing.Point(274, 156)
+        Me.cbxSonst_CsvUTA.Location = New System.Drawing.Point(429, 155)
        Me.cbxSonst_CsvUTA.Name = "cbxSonst_CsvUTA"
        Me.cbxSonst_CsvUTA.Size = New System.Drawing.Size(240, 17)
        Me.cbxSonst_CsvUTA.TabIndex = 14
@@ -3579,7 +3733,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'cbxSonst_CsvMSE
        '
        Me.cbxSonst_CsvMSE.AutoSize = True
-        Me.cbxSonst_CsvMSE.Location = New System.Drawing.Point(274, 104)
+        Me.cbxSonst_CsvMSE.Location = New System.Drawing.Point(429, 103)
        Me.cbxSonst_CsvMSE.Name = "cbxSonst_CsvMSE"
        Me.cbxSonst_CsvMSE.Size = New System.Drawing.Size(241, 17)
        Me.cbxSonst_CsvMSE.TabIndex = 9
@@ -3589,7 +3743,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'cbxSonst_CsvMautbericht
        '
        Me.cbxSonst_CsvMautbericht.AutoSize = True
-        Me.cbxSonst_CsvMautbericht.Location = New System.Drawing.Point(274, 8)
+        Me.cbxSonst_CsvMautbericht.Location = New System.Drawing.Point(429, 7)
        Me.cbxSonst_CsvMautbericht.Name = "cbxSonst_CsvMautbericht"
        Me.cbxSonst_CsvMautbericht.Size = New System.Drawing.Size(181, 17)
        Me.cbxSonst_CsvMautbericht.TabIndex = 2
@@ -4687,6 +4841,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
@@ -4967,49 +5129,47 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.DokumentLöschenToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
        Me.DokumentLöschenToolStripMenuItem.Text = "Dokument löschen"
        '
-        'ucKundenKontakte
+        'Label110
        '
-        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.Label110.AutoSize = True
+        Me.Label110.Enabled = False
+        Me.Label110.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label110.Location = New System.Drawing.Point(6, 233)
+        Me.Label110.Name = "Label110"
+        Me.Label110.Size = New System.Drawing.Size(82, 13)
+        Me.Label110.TabIndex = 30
+        Me.Label110.Text = "KdNr bei Verag:"
        '
-        'UsrCntlKundenBesonderheiten1
+        'txtSonst_KdNrVerag
        '
-        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
+        Me.txtSonst_KdNrVerag.Location = New System.Drawing.Point(119, 231)
+        Me.txtSonst_KdNrVerag.MaxLength = 20
+        Me.txtSonst_KdNrVerag.Name = "txtSonst_KdNrVerag"
+        Me.txtSonst_KdNrVerag.Size = New System.Drawing.Size(122, 20)
+        Me.txtSonst_KdNrVerag.TabIndex = 31
        '
-        'UsrCntlKundenAvisoMailBenachrichtigung1
+        'txtSumVerag
        '
-        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.txtSumVerag._DateTimeOnly = False
+        Me.txtSumVerag._numbersOnly = True
+        Me.txtSumVerag._numbersOnlyKommastellen = ""
+        Me.txtSumVerag._numbersOnlyTrennzeichen = True
+        Me.txtSumVerag._Prozent = False
+        Me.txtSumVerag._ShortDateNew = False
+        Me.txtSumVerag._ShortDateOnly = False
+        Me.txtSumVerag._TimeOnly = False
+        Me.txtSumVerag._TimeOnly_Seconds = False
+        Me.txtSumVerag._value = ""
+        Me.txtSumVerag._Waehrung = False
+        Me.txtSumVerag._WaehrungZeichen = True
+        Me.txtSumVerag.ForeColor = System.Drawing.Color.Black
+        Me.txtSumVerag.Location = New System.Drawing.Point(254, 230)
+        Me.txtSumVerag.MaxLineLength = -1
+        Me.txtSumVerag.MaxLines_Warning = ""
+        Me.txtSumVerag.MaxLines_Warning_Label = Nothing
+        Me.txtSumVerag.Name = "txtSumVerag"
+        Me.txtSumVerag.Size = New System.Drawing.Size(100, 20)
+        Me.txtSumVerag.TabIndex = 32
        '
        'usrcntlKundeBearbeitenFull
        '
@@ -5435,4 +5595,12 @@ Partial Class usrcntlKundeBearbeitenFull
    Friend WithEvents ArchivierenToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents DokumentLöschenToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents DokumentHinzufügenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents txtSumPLOSE As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtSumUTA As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtSumMSE As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtSumIDS As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label109 As Label
+    Friend WithEvents txtSumVerag As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtSonst_KdNrVerag As TextBox
+    Friend WithEvents Label110 As Label
 End Class
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb
@@ -336,6 +336,14 @@ Public Class usrcntlKundeBearbeitenFull
        txtUSt_GVAusgestelltAm._value = loadValue(ADRESSE.UStV_GVAusDat, "")
        initUStID()

+        ' ----- Vorschausummen -----
+
+        txtSumIDS._value = loadValue(KUNDE.UStV_SummeVorschaubetragEUR_IDS, 0)
+        txtSumPLOSE._value = loadValue(KUNDE_ERW.kde_UStV_SummeVorschaubetragEUR_PLOSE, 0)
+        txtSumMSE._value = loadValue(KUNDE.UStV_SummeVorschaubetragEUR_MSE, 0)
+        txtSumUTA._value = loadValue(KUNDE.UStV_SummeVorschaubetragEUR_UTA, 0)
+        txtSumVerag._value = loadValue(KUNDE.UStV_SummeVorschaubetragEUR_VERAG, 0)
+
        ' ----- Sonstiges -----
        cboSonst_Rechnungsdruck._value = loadValue(ADRESSE.Rechnungsdruck, "")
        txtSonst_KdNrIDS.Text = loadValue(ADRESSE.IDSKundenNr, "")
@@ -345,6 +353,7 @@ Public Class usrcntlKundeBearbeitenFull
        txtSonst_KdNrPLOSE.Text = loadValue(ADRESSE.PLOSEKundenNr, "")
        txtSonst_KdNrUTA.Text = loadValue(ADRESSE.UTAKundenNr, "")
        txtSonst_KdNrTOBB.Text = loadValue(KUNDE_ERW.kde_TOBB_KundenNr, "")
+        txtSonst_KdNrVerag.Text = loadValue(KUNDE.KundenNr, "")

        cbxSonst_CsvAsfinag.Checked = loadValue(ADRESSE.ASFINAGExportCSV, False)
        cbxSonst_CsvMautbericht.Checked = loadValue(ADRESSE.ExportMautberichtCSV, False)