Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

2025-12-19 09:11:17 +01:00
parent 29eb8afbe6 3aead83940
commit da90ef7420
29 changed files with 1249 additions and 384 deletions
--- a/SDL/kunden/frmKundenblatt.Designer.vb
+++ b/SDL/kunden/frmKundenblatt.Designer.vb
@@ -66,7 +66,6 @@ Partial Class frmKundenblatt
        Me.GroupBox5 = New System.Windows.Forms.GroupBox()
        Me.lblStat_Lkws = New System.Windows.Forms.Label()
        Me.dgvLeistungen = New System.Windows.Forms.DataGridView()
-        Me.PictureBox5 = New System.Windows.Forms.PictureBox()
        Me.lblAnsprechp = New System.Windows.Forms.TextBox()
        Me.txtEmailRE2 = New System.Windows.Forms.TextBox()
        Me.txtEmailRE = New System.Windows.Forms.TextBox()
@@ -221,6 +220,7 @@ Partial Class frmKundenblatt
        Me.tbRechnungen = New System.Windows.Forms.TabPage()
        Me.dgvRg = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.btnRgMail = New System.Windows.Forms.Button()
        Me.btnRgPdf = New System.Windows.Forms.Button()
        Me.btnMonat = New System.Windows.Forms.Button()
        Me.Button10 = New System.Windows.Forms.Button()
@@ -253,13 +253,13 @@ Partial Class frmKundenblatt
        Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem()
        Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem()
        Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Button8 = New System.Windows.Forms.Button()
        Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
        Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
        Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
        Me.UsrCntlKundenlogin1 = New SDL.usrCntlKundenlogin()
        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
        Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
-        Me.btnRgMail = New System.Windows.Forms.Button()
        Me.pnlInfo.SuspendLayout()
        Me.tbFirmendaten.SuspendLayout()
        Me.Panel4.SuspendLayout()
@@ -267,7 +267,6 @@ Partial Class frmKundenblatt
        Me.tbAllgemein.SuspendLayout()
        Me.GroupBox5.SuspendLayout()
        CType(Me.dgvLeistungen, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.picLogo, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.TabControl1.SuspendLayout()
@@ -386,6 +385,7 @@ Partial Class frmKundenblatt
        'tbAllgemein
        '
        Me.tbAllgemein.BackColor = System.Drawing.Color.White
+        Me.tbAllgemein.Controls.Add(Me.Button8)
        Me.tbAllgemein.Controls.Add(Me.txtKundeninfo)
        Me.tbAllgemein.Controls.Add(Me.txtRisiko)
        Me.tbAllgemein.Controls.Add(Me.Label20)
@@ -539,7 +539,6 @@ Partial Class frmKundenblatt
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.GroupBox5.Controls.Add(Me.lblStat_Lkws)
        Me.GroupBox5.Controls.Add(Me.dgvLeistungen)
-        Me.GroupBox5.Controls.Add(Me.PictureBox5)
        Me.GroupBox5.Location = New System.Drawing.Point(738, 501)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(543, 489)
@@ -596,17 +595,6 @@ Partial Class frmKundenblatt
        Me.dgvLeistungen.Size = New System.Drawing.Size(531, 429)
        Me.dgvLeistungen.TabIndex = 197
        '
-        'PictureBox5
-        '
-        Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
-        Me.PictureBox5.Image = Global.SDL.My.Resources.Resources.statistik
-        Me.PictureBox5.Location = New System.Drawing.Point(449, 9)
-        Me.PictureBox5.Name = "PictureBox5"
-        Me.PictureBox5.Size = New System.Drawing.Size(38, 39)
-        Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
-        Me.PictureBox5.TabIndex = 144
-        Me.PictureBox5.TabStop = False
-        '
        'lblAnsprechp
        '
        Me.lblAnsprechp.BackColor = System.Drawing.Color.White
@@ -1059,7 +1047,7 @@ Partial Class frmKundenblatt
        'Label17
        '
        Me.Label17.AutoSize = True
-        Me.Label17.Location = New System.Drawing.Point(660, 21)
+        Me.Label17.Location = New System.Drawing.Point(660, 101)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(66, 13)
        Me.Label17.TabIndex = 1
@@ -1086,7 +1074,7 @@ Partial Class frmKundenblatt
        DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
        Me.dgvOfferte.DefaultCellStyle = DataGridViewCellStyle17
-        Me.dgvOfferte.Location = New System.Drawing.Point(684, 37)
+        Me.dgvOfferte.Location = New System.Drawing.Point(684, 118)
        Me.dgvOfferte.Name = "dgvOfferte"
        Me.dgvOfferte.ReadOnly = True
        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
@@ -1097,7 +1085,7 @@ Partial Class frmKundenblatt
        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
        Me.dgvOfferte.RowHeadersDefaultCellStyle = DataGridViewCellStyle18
-        Me.dgvOfferte.Size = New System.Drawing.Size(42, 320)
+        Me.dgvOfferte.Size = New System.Drawing.Size(42, 239)
        Me.dgvOfferte.TabIndex = 12
        Me.dgvOfferte.Visible = False
        '
@@ -2817,6 +2805,20 @@ Partial Class frmKundenblatt
        Me.MyPanel1.Size = New System.Drawing.Size(1681, 60)
        Me.MyPanel1.TabIndex = 2
        '
+        'btnRgMail
+        '
+        Me.btnRgMail.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnRgMail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnRgMail.Image = Global.SDL.My.Resources.Resources.email_big1
+        Me.btnRgMail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnRgMail.Location = New System.Drawing.Point(1536, 0)
+        Me.btnRgMail.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
+        Me.btnRgMail.Name = "btnRgMail"
+        Me.btnRgMail.Size = New System.Drawing.Size(58, 57)
+        Me.btnRgMail.TabIndex = 213
+        Me.btnRgMail.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnRgMail.UseVisualStyleBackColor = True
+        '
        'btnRgPdf
        '
        Me.btnRgPdf.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -3027,7 +3029,7 @@ Partial Class frmKundenblatt
        '
        Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
        Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
-        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
+        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
        Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
        Me.cntxtCntxtMDM.Text = "cntxtMDM"
        '
@@ -3189,6 +3191,18 @@ Partial Class frmKundenblatt
        Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22)
        Me.tbiVERAGCard.Text = "VERAG Card"
        '
+        'Button8
+        '
+        Me.Button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button8.Image = Global.SDL.My.Resources.Resources.statistik2
+        Me.Button8.Location = New System.Drawing.Point(660, 6)
+        Me.Button8.Name = "Button8"
+        Me.Button8.Size = New System.Drawing.Size(66, 58)
+        Me.Button8.TabIndex = 203
+        Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button8.UseVisualStyleBackColor = True
+        '
        'UsrcntlKundeBearbeitenFull1
        '
        Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White
@@ -3247,20 +3261,6 @@ Partial Class frmKundenblatt
        Me.UsrCntlUSTV.Size = New System.Drawing.Size(1667, 964)
        Me.UsrCntlUSTV.TabIndex = 0
        '
-        'btnRgMail
-        '
-        Me.btnRgMail.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnRgMail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnRgMail.Image = Global.SDL.My.Resources.Resources.email_big1
-        Me.btnRgMail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnRgMail.Location = New System.Drawing.Point(1536, 0)
-        Me.btnRgMail.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
-        Me.btnRgMail.Name = "btnRgMail"
-        Me.btnRgMail.Size = New System.Drawing.Size(58, 57)
-        Me.btnRgMail.TabIndex = 213
-        Me.btnRgMail.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnRgMail.UseVisualStyleBackColor = True
-        '
        'frmKundenblatt
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3290,7 +3290,6 @@ Partial Class frmKundenblatt
        Me.GroupBox5.ResumeLayout(False)
        Me.GroupBox5.PerformLayout()
        CType(Me.dgvLeistungen, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.picLogo, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabControl1.ResumeLayout(False)
@@ -3373,7 +3372,6 @@ Partial Class frmKundenblatt
    Friend WithEvents tbLKW As System.Windows.Forms.TabPage
    Friend WithEvents pnlLKWRight As System.Windows.Forms.Panel
    Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
-    Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox
    Friend WithEvents lblStat_Lkws As System.Windows.Forms.Label
    Friend WithEvents Button4 As System.Windows.Forms.Button
    Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
@@ -3570,4 +3568,5 @@ Partial Class frmKundenblatt
    Friend WithEvents Label21 As Label
    Friend WithEvents txtKundeninfo As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents btnRgMail As Button
+    Friend WithEvents Button8 As Button
 End Class
--- a/SDL/kunden/frmKundenblatt.vb
+++ b/SDL/kunden/frmKundenblatt.vb
@@ -219,6 +219,9 @@ Public Class frmKundenblatt
                Dim path = DS.GET_TOP1_PATH 'cDATENSERVER.getTOP1Path("GRAFIK", "FIRMENLOGOS", kdNr)
                If path <> "" Then
                    picLogo.ImageLocation = path
+                    picLogo.SizeMode = PictureBoxSizeMode.Zoom
+                Else
+                    picLogo.ImageLocation = Nothing
                End If
            Catch ex As Exception

@@ -1692,6 +1695,8 @@ Public Class frmKundenblatt
        'Dim path = cDATENSERVER.uploadDataToDATENSERVERFileDialog("GRAFIK", "FIRMENLOGOS", kdNr, , , , "PIC")
        If path <> "" Then
            picLogo.ImageLocation = path
+        Else
+            picLogo.ImageLocation = Nothing
        End If


@@ -2882,5 +2887,21 @@ Public Class frmKundenblatt
    Private Sub btnRgMail_Click(sender As Object, e As EventArgs) Handles btnRgMail.Click

    End Sub
+
+    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
+
+        Dim rptKundeUebersicht As New SDL.rptKundeUebersicht(kdNr, 19)
+        Dim rpt As New frmPrintLayout
+        rpt.Text = ""
+
+        rpt.Viewer.LoadDocument(rptKundeUebersicht)
+
+        rpt.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
+        rpt.Show()
+    End Sub
+
+    Private Sub PictureBox5_Click(sender As Object, e As EventArgs) 
+
+    End Sub
 End Class

--- a/SDL/kunden/usrCntlOfferte.vb
+++ b/SDL/kunden/usrCntlOfferte.vb
@@ -133,7 +133,7 @@ Public Class usrCntlOfferte
                .Columns("BGebMinBetrag").Width = 60
                .Columns("BGebMinBetrag").HeaderText = "BGebMinBetr."
                .Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
-                .Columns("Eingegeben am").Visible = False
+                .Columns("Eingegeben am").Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_DATIEREN", "SDL")
                ' .Columns("Sachbearbeiter").Visible = False
                '  .Columns("Geändert am").Visible = False
                .Columns("PreisänderungProzent").Width = 70
@@ -613,8 +613,20 @@ Public Class usrCntlOfferte
                                c.ReadOnly = True

                            End If
+
+                            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_DATIEREN", "SDL") Then
+
+                                If (c.Name = "Eingegeben am") Then
+                                    If edit Then
+                                        c.ReadOnly = False
+                                        handleEditMode(edit)
+                                    End If
+                                End If
+
+                            End If
                        End If

+
                    Next
                    dgvOfferteDetails.AllowUserToDeleteRows = edit
                End If
@@ -1043,9 +1055,7 @@ Public Class usrCntlOfferte

    Private Sub btnOffertPreisliste_Click(sender As Object, e As EventArgs) Handles btnOffertPreisliste.Click

-        'dgvOfferteDetails
-
-
+        MsgBox("Noch nicht implementiert!")

    End Sub
 End Class
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
@@ -176,6 +176,10 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtAbf_Vorlageprovision = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtAbf_Zahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.tbVersicherung = New System.Windows.Forms.TabPage()
+        Me.Label121 = New System.Windows.Forms.Label()
+        Me.Label120 = New System.Windows.Forms.Label()
+        Me.txtSEG_vom = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtSEG_Summe = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.cbxBlanko = New System.Windows.Forms.CheckBox()
        Me.Label105 = New System.Windows.Forms.Label()
        Me.Label106 = New System.Windows.Forms.Label()
@@ -285,6 +289,11 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.dgvIDS_Standard = New System.Windows.Forms.DataGridView()
        Me.Kunden = New System.Windows.Forms.TabPage()
        Me.dgvIDS_Rabatte = New System.Windows.Forms.DataGridView()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.txtATEZ_GreenpulseID = New System.Windows.Forms.TextBox()
+        Me.Label118 = New System.Windows.Forms.Label()
+        Me.txtATEZ_LogicustID = New System.Windows.Forms.TextBox()
+        Me.Label119 = New System.Windows.Forms.Label()
        Me.cbxCSInsolvent = New System.Windows.Forms.CheckBox()
        Me.cbxCS_Added = New System.Windows.Forms.CheckBox()
        Me.Label113 = New System.Windows.Forms.Label()
@@ -428,11 +437,6 @@ 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.TabPage2 = New System.Windows.Forms.TabPage()
-        Me.txtATEZ_GreenpulseID = New System.Windows.Forms.TextBox()
-        Me.Label118 = New System.Windows.Forms.Label()
-        Me.txtATEZ_LogicustID = New System.Windows.Forms.TextBox()
-        Me.Label119 = New System.Windows.Forms.Label()
        Me.tbcntrDetails.SuspendLayout()
        Me.tbAbfertigung.SuspendLayout()
        Me.tbcntrAbf.SuspendLayout()
@@ -465,6 +469,7 @@ Partial Class usrcntlKundeBearbeitenFull
        CType(Me.dgvIDS_Standard, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Kunden.SuspendLayout()
        CType(Me.dgvIDS_Rabatte, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TabPage2.SuspendLayout()
        CType(Me.dgvSonst_IDSKunden, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.tbSchnittstellen.SuspendLayout()
        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -479,7 +484,6 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.TabPage11.SuspendLayout()
        Me.pnlNeukunde.SuspendLayout()
        Me.cnsBankverbindungen.SuspendLayout()
-        Me.TabPage2.SuspendLayout()
        Me.SuspendLayout()
        '
        'tbcntrDetails
@@ -2282,6 +2286,10 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'tbVersicherung
        '
+        Me.tbVersicherung.Controls.Add(Me.Label121)
+        Me.tbVersicherung.Controls.Add(Me.Label120)
+        Me.tbVersicherung.Controls.Add(Me.txtSEG_vom)
+        Me.tbVersicherung.Controls.Add(Me.txtSEG_Summe)
        Me.tbVersicherung.Controls.Add(Me.cbxBlanko)
        Me.tbVersicherung.Controls.Add(Me.Label105)
        Me.tbVersicherung.Controls.Add(Me.Label106)
@@ -2346,6 +2354,74 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbVersicherung.Text = "Versicherung"
        Me.tbVersicherung.UseVisualStyleBackColor = True
        '
+        'Label121
+        '
+        Me.Label121.AutoSize = True
+        Me.Label121.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label121.Location = New System.Drawing.Point(7, 78)
+        Me.Label121.Name = "Label121"
+        Me.Label121.Size = New System.Drawing.Size(32, 13)
+        Me.Label121.TabIndex = 59
+        Me.Label121.Text = "SEG:"
+        '
+        'Label120
+        '
+        Me.Label120.AutoSize = True
+        Me.Label120.Location = New System.Drawing.Point(305, 78)
+        Me.Label120.Name = "Label120"
+        Me.Label120.Size = New System.Drawing.Size(30, 13)
+        Me.Label120.TabIndex = 57
+        Me.Label120.Text = "vom:"
+        '
+        'txtSEG_vom
+        '
+        Me.txtSEG_vom._DateTimeOnly = False
+        Me.txtSEG_vom._numbersOnly = False
+        Me.txtSEG_vom._numbersOnlyKommastellen = ""
+        Me.txtSEG_vom._numbersOnlyTrennzeichen = True
+        Me.txtSEG_vom._Prozent = False
+        Me.txtSEG_vom._ShortDateNew = True
+        Me.txtSEG_vom._ShortDateOnly = False
+        Me.txtSEG_vom._TimeOnly = False
+        Me.txtSEG_vom._TimeOnly_Seconds = False
+        Me.txtSEG_vom._value = ""
+        Me.txtSEG_vom._Waehrung = False
+        Me.txtSEG_vom._WaehrungZeichen = True
+        Me.txtSEG_vom.ForeColor = System.Drawing.Color.Red
+        Me.txtSEG_vom.Location = New System.Drawing.Point(341, 75)
+        Me.txtSEG_vom.MaxLength = 10
+        Me.txtSEG_vom.MaxLineLength = -1
+        Me.txtSEG_vom.MaxLines_Warning = ""
+        Me.txtSEG_vom.MaxLines_Warning_Label = Nothing
+        Me.txtSEG_vom.Name = "txtSEG_vom"
+        Me.txtSEG_vom.Size = New System.Drawing.Size(60, 20)
+        Me.txtSEG_vom.TabIndex = 58
+        Me.txtSEG_vom.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'txtSEG_Summe
+        '
+        Me.txtSEG_Summe._DateTimeOnly = False
+        Me.txtSEG_Summe._numbersOnly = False
+        Me.txtSEG_Summe._numbersOnlyKommastellen = ""
+        Me.txtSEG_Summe._numbersOnlyTrennzeichen = True
+        Me.txtSEG_Summe._Prozent = False
+        Me.txtSEG_Summe._ShortDateNew = False
+        Me.txtSEG_Summe._ShortDateOnly = False
+        Me.txtSEG_Summe._TimeOnly = False
+        Me.txtSEG_Summe._TimeOnly_Seconds = False
+        Me.txtSEG_Summe._value = ""
+        Me.txtSEG_Summe._Waehrung = True
+        Me.txtSEG_Summe._WaehrungZeichen = True
+        Me.txtSEG_Summe.ForeColor = System.Drawing.Color.Red
+        Me.txtSEG_Summe.Location = New System.Drawing.Point(159, 75)
+        Me.txtSEG_Summe.MaxLineLength = -1
+        Me.txtSEG_Summe.MaxLines_Warning = ""
+        Me.txtSEG_Summe.MaxLines_Warning_Label = Nothing
+        Me.txtSEG_Summe.Name = "txtSEG_Summe"
+        Me.txtSEG_Summe.Size = New System.Drawing.Size(100, 20)
+        Me.txtSEG_Summe.TabIndex = 56
+        Me.txtSEG_Summe.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
        'cbxBlanko
        '
        Me.cbxBlanko.AutoSize = True
@@ -2396,7 +2472,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'Label81
        '
        Me.Label81.AutoSize = True
-        Me.Label81.Location = New System.Drawing.Point(419, 168)
+        Me.Label81.Location = New System.Drawing.Point(419, 181)
        Me.Label81.Name = "Label81"
        Me.Label81.Size = New System.Drawing.Size(98, 13)
        Me.Label81.TabIndex = 45
@@ -2405,7 +2481,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'Label82
        '
        Me.Label82.AutoSize = True
-        Me.Label82.Location = New System.Drawing.Point(311, 168)
+        Me.Label82.Location = New System.Drawing.Point(311, 181)
        Me.Label82.Name = "Label82"
        Me.Label82.Size = New System.Drawing.Size(24, 13)
        Me.Label82.TabIndex = 43
@@ -2414,7 +2490,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'cbxInkassoUebergeben
        '
        Me.cbxInkassoUebergeben.AutoSize = True
-        Me.cbxInkassoUebergeben.Location = New System.Drawing.Point(159, 167)
+        Me.cbxInkassoUebergeben.Location = New System.Drawing.Point(159, 180)
        Me.cbxInkassoUebergeben.Name = "cbxInkassoUebergeben"
        Me.cbxInkassoUebergeben.Size = New System.Drawing.Size(156, 17)
        Me.cbxInkassoUebergeben.TabIndex = 42
@@ -2434,7 +2510,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'Label35
        '
        Me.Label35.AutoSize = True
-        Me.Label35.Location = New System.Drawing.Point(419, 142)
+        Me.Label35.Location = New System.Drawing.Point(419, 155)
        Me.Label35.Name = "Label35"
        Me.Label35.Size = New System.Drawing.Size(22, 13)
        Me.Label35.TabIndex = 22
@@ -2443,7 +2519,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'Label27
        '
        Me.Label27.AutoSize = True
-        Me.Label27.Location = New System.Drawing.Point(419, 116)
+        Me.Label27.Location = New System.Drawing.Point(419, 129)
        Me.Label27.Name = "Label27"
        Me.Label27.Size = New System.Drawing.Size(98, 13)
        Me.Label27.TabIndex = 17
@@ -2452,7 +2528,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'Label24
        '
        Me.Label24.AutoSize = True
-        Me.Label24.Location = New System.Drawing.Point(419, 89)
+        Me.Label24.Location = New System.Drawing.Point(419, 102)
        Me.Label24.Name = "Label24"
        Me.Label24.Size = New System.Drawing.Size(55, 13)
        Me.Label24.TabIndex = 12
@@ -2462,7 +2538,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'cbxNichtVersicherbar
        '
        Me.cbxNichtVersicherbar.AutoSize = True
-        Me.cbxNichtVersicherbar.Location = New System.Drawing.Point(159, 39)
+        Me.cbxNichtVersicherbar.Location = New System.Drawing.Point(159, 30)
        Me.cbxNichtVersicherbar.Name = "cbxNichtVersicherbar"
        Me.cbxNichtVersicherbar.Size = New System.Drawing.Size(142, 17)
        Me.cbxNichtVersicherbar.TabIndex = 2
@@ -2472,7 +2548,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'Label17
        '
        Me.Label17.AutoSize = True
-        Me.Label17.Location = New System.Drawing.Point(419, 65)
+        Me.Label17.Location = New System.Drawing.Point(419, 54)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(86, 13)
        Me.Label17.TabIndex = 7
@@ -2481,7 +2557,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'Label8
        '
        Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(311, 142)
+        Me.Label8.Location = New System.Drawing.Point(311, 155)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(24, 13)
        Me.Label8.TabIndex = 20
@@ -2490,7 +2566,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'cbxAnerkVersFall
        '
        Me.cbxAnerkVersFall.AutoSize = True
-        Me.cbxAnerkVersFall.Location = New System.Drawing.Point(159, 141)
+        Me.cbxAnerkVersFall.Location = New System.Drawing.Point(159, 154)
        Me.cbxAnerkVersFall.Name = "cbxAnerkVersFall"
        Me.cbxAnerkVersFall.Size = New System.Drawing.Size(130, 17)
        Me.cbxAnerkVersFall.TabIndex = 19
@@ -2500,7 +2576,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'Label2
        '
        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(311, 116)
+        Me.Label2.Location = New System.Drawing.Point(311, 129)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(24, 13)
        Me.Label2.TabIndex = 15
@@ -2509,7 +2585,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'cbxVersicherungUebergeben
        '
        Me.cbxVersicherungUebergeben.AutoSize = True
-        Me.cbxVersicherungUebergeben.Location = New System.Drawing.Point(159, 115)
+        Me.cbxVersicherungUebergeben.Location = New System.Drawing.Point(159, 128)
        Me.cbxVersicherungUebergeben.Name = "cbxVersicherungUebergeben"
        Me.cbxVersicherungUebergeben.Size = New System.Drawing.Size(142, 17)
        Me.cbxVersicherungUebergeben.TabIndex = 14
@@ -2519,7 +2595,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'Label6
        '
        Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(305, 89)
+        Me.Label6.Location = New System.Drawing.Point(305, 102)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(30, 13)
        Me.Label6.TabIndex = 10
@@ -2528,7 +2604,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'cbxDeckungsstopp
        '
        Me.cbxDeckungsstopp.AutoSize = True
-        Me.cbxDeckungsstopp.Location = New System.Drawing.Point(159, 88)
+        Me.cbxDeckungsstopp.Location = New System.Drawing.Point(159, 101)
        Me.cbxDeckungsstopp.Name = "cbxDeckungsstopp"
        Me.cbxDeckungsstopp.Size = New System.Drawing.Size(101, 17)
        Me.cbxDeckungsstopp.TabIndex = 9
@@ -2573,7 +2649,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'Label55
        '
        Me.Label55.AutoSize = True
-        Me.Label55.Location = New System.Drawing.Point(305, 65)
+        Me.Label55.Location = New System.Drawing.Point(305, 54)
        Me.Label55.Name = "Label55"
        Me.Label55.Size = New System.Drawing.Size(30, 13)
        Me.Label55.TabIndex = 5
@@ -2622,7 +2698,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.Label54.AutoSize = True
        Me.Label54.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label54.Location = New System.Drawing.Point(7, 65)
+        Me.Label54.Location = New System.Drawing.Point(6, 58)
        Me.Label54.Name = "Label54"
        Me.Label54.Size = New System.Drawing.Size(110, 13)
        Me.Label54.TabIndex = 3
@@ -2762,7 +2838,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtInkasso_GemeldeterBetrag._Waehrung = True
        Me.txtInkasso_GemeldeterBetrag._WaehrungZeichen = True
        Me.txtInkasso_GemeldeterBetrag.ForeColor = System.Drawing.Color.Red
-        Me.txtInkasso_GemeldeterBetrag.Location = New System.Drawing.Point(523, 165)
+        Me.txtInkasso_GemeldeterBetrag.Location = New System.Drawing.Point(523, 178)
        Me.txtInkasso_GemeldeterBetrag.MaxLength = 10
        Me.txtInkasso_GemeldeterBetrag.MaxLineLength = -1
        Me.txtInkasso_GemeldeterBetrag.MaxLines_Warning = ""
@@ -2788,7 +2864,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtInkassoUebergebenAm._WaehrungZeichen = True
        Me.txtInkassoUebergebenAm.Enabled = False
        Me.txtInkassoUebergebenAm.ForeColor = System.Drawing.Color.Red
-        Me.txtInkassoUebergebenAm.Location = New System.Drawing.Point(341, 165)
+        Me.txtInkassoUebergebenAm.Location = New System.Drawing.Point(341, 178)
        Me.txtInkassoUebergebenAm.MaxLength = 10
        Me.txtInkassoUebergebenAm.MaxLineLength = -1
        Me.txtInkassoUebergebenAm.MaxLines_Warning = ""
@@ -2836,7 +2912,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtAnerkVersFallAb._Waehrung = False
        Me.txtAnerkVersFallAb._WaehrungZeichen = True
        Me.txtAnerkVersFallAb.ForeColor = System.Drawing.Color.Red
-        Me.txtAnerkVersFallAb.Location = New System.Drawing.Point(449, 139)
+        Me.txtAnerkVersFallAb.Location = New System.Drawing.Point(449, 152)
        Me.txtAnerkVersFallAb.MaxLength = 10
        Me.txtAnerkVersFallAb.MaxLineLength = -1
        Me.txtAnerkVersFallAb.MaxLines_Warning = ""
@@ -2861,7 +2937,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtVersicherung_GemeldeterBetrag._Waehrung = True
        Me.txtVersicherung_GemeldeterBetrag._WaehrungZeichen = True
        Me.txtVersicherung_GemeldeterBetrag.ForeColor = System.Drawing.Color.Red
-        Me.txtVersicherung_GemeldeterBetrag.Location = New System.Drawing.Point(523, 113)
+        Me.txtVersicherung_GemeldeterBetrag.Location = New System.Drawing.Point(523, 126)
        Me.txtVersicherung_GemeldeterBetrag.MaxLength = 10
        Me.txtVersicherung_GemeldeterBetrag.MaxLineLength = -1
        Me.txtVersicherung_GemeldeterBetrag.MaxLines_Warning = ""
@@ -2886,7 +2962,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtVersUebergebenOPSaldo._Waehrung = True
        Me.txtVersUebergebenOPSaldo._WaehrungZeichen = True
        Me.txtVersUebergebenOPSaldo.ForeColor = System.Drawing.Color.Red
-        Me.txtVersUebergebenOPSaldo.Location = New System.Drawing.Point(480, 86)
+        Me.txtVersUebergebenOPSaldo.Location = New System.Drawing.Point(480, 99)
        Me.txtVersUebergebenOPSaldo.MaxLength = 10
        Me.txtVersUebergebenOPSaldo.MaxLineLength = -1
        Me.txtVersUebergebenOPSaldo.MaxLines_Warning = ""
@@ -2912,7 +2988,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtVersicherungDeckungsquote._Waehrung = False
        Me.txtVersicherungDeckungsquote._WaehrungZeichen = True
        Me.txtVersicherungDeckungsquote.ForeColor = System.Drawing.Color.Red
-        Me.txtVersicherungDeckungsquote.Location = New System.Drawing.Point(523, 62)
+        Me.txtVersicherungDeckungsquote.Location = New System.Drawing.Point(523, 51)
        Me.txtVersicherungDeckungsquote.MaxLength = 10
        Me.txtVersicherungDeckungsquote.MaxLineLength = -1
        Me.txtVersicherungDeckungsquote.MaxLines_Warning = ""
@@ -2938,7 +3014,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtAnerkVersFallAm._WaehrungZeichen = True
        Me.txtAnerkVersFallAm.Enabled = False
        Me.txtAnerkVersFallAm.ForeColor = System.Drawing.Color.Red
-        Me.txtAnerkVersFallAm.Location = New System.Drawing.Point(341, 139)
+        Me.txtAnerkVersFallAm.Location = New System.Drawing.Point(341, 152)
        Me.txtAnerkVersFallAm.MaxLength = 10
        Me.txtAnerkVersFallAm.MaxLineLength = -1
        Me.txtAnerkVersFallAm.MaxLines_Warning = ""
@@ -2964,7 +3040,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtVersicherungUebergebenAm._WaehrungZeichen = True
        Me.txtVersicherungUebergebenAm.Enabled = False
        Me.txtVersicherungUebergebenAm.ForeColor = System.Drawing.Color.Red
-        Me.txtVersicherungUebergebenAm.Location = New System.Drawing.Point(341, 113)
+        Me.txtVersicherungUebergebenAm.Location = New System.Drawing.Point(341, 126)
        Me.txtVersicherungUebergebenAm.MaxLength = 10
        Me.txtVersicherungUebergebenAm.MaxLineLength = -1
        Me.txtVersicherungUebergebenAm.MaxLines_Warning = ""
@@ -2990,7 +3066,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtDeckungsstoppDatum._WaehrungZeichen = True
        Me.txtDeckungsstoppDatum.Enabled = False
        Me.txtDeckungsstoppDatum.ForeColor = System.Drawing.Color.Red
-        Me.txtDeckungsstoppDatum.Location = New System.Drawing.Point(341, 86)
+        Me.txtDeckungsstoppDatum.Location = New System.Drawing.Point(341, 99)
        Me.txtDeckungsstoppDatum.MaxLength = 10
        Me.txtDeckungsstoppDatum.MaxLineLength = -1
        Me.txtDeckungsstoppDatum.MaxLines_Warning = ""
@@ -3089,7 +3165,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtVers_VersicherungssummeVon._Waehrung = False
        Me.txtVers_VersicherungssummeVon._WaehrungZeichen = True
        Me.txtVers_VersicherungssummeVon.ForeColor = System.Drawing.Color.Red
-        Me.txtVers_VersicherungssummeVon.Location = New System.Drawing.Point(341, 62)
+        Me.txtVers_VersicherungssummeVon.Location = New System.Drawing.Point(341, 51)
        Me.txtVers_VersicherungssummeVon.MaxLength = 10
        Me.txtVers_VersicherungssummeVon.MaxLineLength = -1
        Me.txtVers_VersicherungssummeVon.MaxLines_Warning = ""
@@ -3187,7 +3263,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtVers_Versicherungssumme._Waehrung = True
        Me.txtVers_Versicherungssumme._WaehrungZeichen = True
        Me.txtVers_Versicherungssumme.ForeColor = System.Drawing.Color.Red
-        Me.txtVers_Versicherungssumme.Location = New System.Drawing.Point(159, 62)
+        Me.txtVers_Versicherungssumme.Location = New System.Drawing.Point(159, 51)
        Me.txtVers_Versicherungssumme.MaxLineLength = -1
        Me.txtVers_Versicherungssumme.MaxLines_Warning = ""
        Me.txtVers_Versicherungssumme.MaxLines_Warning_Label = Nothing
@@ -3981,7 +4057,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.lblIDS_Rabatte.AutoSize = True
        Me.lblIDS_Rabatte.Enabled = False
        Me.lblIDS_Rabatte.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblIDS_Rabatte.Location = New System.Drawing.Point(10, 273)
+        Me.lblIDS_Rabatte.Location = New System.Drawing.Point(10, 283)
        Me.lblIDS_Rabatte.Name = "lblIDS_Rabatte"
        Me.lblIDS_Rabatte.Size = New System.Drawing.Size(100, 13)
        Me.lblIDS_Rabatte.TabIndex = 147
@@ -3992,7 +4068,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
        Me.PictureBox7.Image = Global.SDL.My.Resources.Resources.Excel_logo
-        Me.PictureBox7.Location = New System.Drawing.Point(645, 273)
+        Me.PictureBox7.Location = New System.Drawing.Point(645, 284)
        Me.PictureBox7.Name = "PictureBox7"
        Me.PictureBox7.Size = New System.Drawing.Size(20, 20)
        Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -4013,10 +4089,10 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.TabControl1.Controls.Add(Me.Standard)
        Me.TabControl1.Controls.Add(Me.Kunden)
        Me.TabControl1.Controls.Add(Me.TabPage2)
-        Me.TabControl1.Location = New System.Drawing.Point(6, 288)
+        Me.TabControl1.Location = New System.Drawing.Point(6, 299)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(659, 201)
+        Me.TabControl1.Size = New System.Drawing.Size(659, 190)
        Me.TabControl1.TabIndex = 40
        '
        'Standard
@@ -4025,7 +4101,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Standard.Location = New System.Drawing.Point(4, 22)
        Me.Standard.Name = "Standard"
        Me.Standard.Padding = New System.Windows.Forms.Padding(3)
-        Me.Standard.Size = New System.Drawing.Size(651, 175)
+        Me.Standard.Size = New System.Drawing.Size(651, 164)
        Me.Standard.TabIndex = 0
        Me.Standard.Text = "Standardpreise"
        Me.Standard.UseVisualStyleBackColor = True
@@ -4058,7 +4134,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.dgvIDS_Standard.Dock = System.Windows.Forms.DockStyle.Fill
        Me.dgvIDS_Standard.Location = New System.Drawing.Point(3, 3)
        Me.dgvIDS_Standard.Name = "dgvIDS_Standard"
-        Me.dgvIDS_Standard.Size = New System.Drawing.Size(645, 169)
+        Me.dgvIDS_Standard.Size = New System.Drawing.Size(645, 158)
        Me.dgvIDS_Standard.TabIndex = 35
        '
        'Kunden
@@ -4103,6 +4179,54 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.dgvIDS_Rabatte.Size = New System.Drawing.Size(645, 169)
        Me.dgvIDS_Rabatte.TabIndex = 34
        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.txtATEZ_GreenpulseID)
+        Me.TabPage2.Controls.Add(Me.Label118)
+        Me.TabPage2.Controls.Add(Me.txtATEZ_LogicustID)
+        Me.TabPage2.Controls.Add(Me.Label119)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(651, 175)
+        Me.TabPage2.TabIndex = 2
+        Me.TabPage2.Text = "ATEZ KundenNr"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'txtATEZ_GreenpulseID
+        '
+        Me.txtATEZ_GreenpulseID.Location = New System.Drawing.Point(97, 43)
+        Me.txtATEZ_GreenpulseID.Name = "txtATEZ_GreenpulseID"
+        Me.txtATEZ_GreenpulseID.Size = New System.Drawing.Size(314, 20)
+        Me.txtATEZ_GreenpulseID.TabIndex = 17
+        '
+        'Label118
+        '
+        Me.Label118.AutoSize = True
+        Me.Label118.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label118.Location = New System.Drawing.Point(14, 46)
+        Me.Label118.Name = "Label118"
+        Me.Label118.Size = New System.Drawing.Size(78, 13)
+        Me.Label118.TabIndex = 16
+        Me.Label118.Text = "Greenpulse-ID:"
+        '
+        'txtATEZ_LogicustID
+        '
+        Me.txtATEZ_LogicustID.Location = New System.Drawing.Point(97, 14)
+        Me.txtATEZ_LogicustID.Name = "txtATEZ_LogicustID"
+        Me.txtATEZ_LogicustID.Size = New System.Drawing.Size(314, 20)
+        Me.txtATEZ_LogicustID.TabIndex = 15
+        '
+        'Label119
+        '
+        Me.Label119.AutoSize = True
+        Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label119.Location = New System.Drawing.Point(14, 17)
+        Me.Label119.Name = "Label119"
+        Me.Label119.Size = New System.Drawing.Size(64, 13)
+        Me.Label119.TabIndex = 14
+        Me.Label119.Text = "Logicust-ID:"
+        '
        'cbxCSInsolvent
        '
        Me.cbxCSInsolvent.AutoSize = True
@@ -4291,7 +4415,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 214)
        Me.dgvSonst_IDSKunden.MultiSelect = False
        Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden"
-        Me.dgvSonst_IDSKunden.Size = New System.Drawing.Size(657, 53)
+        Me.dgvSonst_IDSKunden.Size = New System.Drawing.Size(657, 68)
        Me.dgvSonst_IDSKunden.TabIndex = 18
        '
        'cbxSonst_CsvAsfinag
@@ -5859,54 +5983,6 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        '
-        'TabPage2
-        '
-        Me.TabPage2.Controls.Add(Me.txtATEZ_GreenpulseID)
-        Me.TabPage2.Controls.Add(Me.Label118)
-        Me.TabPage2.Controls.Add(Me.txtATEZ_LogicustID)
-        Me.TabPage2.Controls.Add(Me.Label119)
-        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage2.Name = "TabPage2"
-        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(651, 175)
-        Me.TabPage2.TabIndex = 2
-        Me.TabPage2.Text = "ATEZ KundenNr"
-        Me.TabPage2.UseVisualStyleBackColor = True
-        '
-        'txtATEZ_GreenpulseID
-        '
-        Me.txtATEZ_GreenpulseID.Location = New System.Drawing.Point(97, 43)
-        Me.txtATEZ_GreenpulseID.Name = "txtATEZ_GreenpulseID"
-        Me.txtATEZ_GreenpulseID.Size = New System.Drawing.Size(314, 20)
-        Me.txtATEZ_GreenpulseID.TabIndex = 17
-        '
-        'Label118
-        '
-        Me.Label118.AutoSize = True
-        Me.Label118.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label118.Location = New System.Drawing.Point(14, 46)
-        Me.Label118.Name = "Label118"
-        Me.Label118.Size = New System.Drawing.Size(78, 13)
-        Me.Label118.TabIndex = 16
-        Me.Label118.Text = "Greenpulse-ID:"
-        '
-        'txtATEZ_LogicustID
-        '
-        Me.txtATEZ_LogicustID.Location = New System.Drawing.Point(97, 14)
-        Me.txtATEZ_LogicustID.Name = "txtATEZ_LogicustID"
-        Me.txtATEZ_LogicustID.Size = New System.Drawing.Size(314, 20)
-        Me.txtATEZ_LogicustID.TabIndex = 15
-        '
-        'Label119
-        '
-        Me.Label119.AutoSize = True
-        Me.Label119.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label119.Location = New System.Drawing.Point(14, 17)
-        Me.Label119.Name = "Label119"
-        Me.Label119.Size = New System.Drawing.Size(64, 13)
-        Me.Label119.TabIndex = 14
-        Me.Label119.Text = "Logicust-ID:"
-        '
        'usrcntlKundeBearbeitenFull
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -5990,6 +6066,8 @@ Partial Class usrcntlKundeBearbeitenFull
        CType(Me.dgvIDS_Standard, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Kunden.ResumeLayout(False)
        CType(Me.dgvIDS_Rabatte, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TabPage2.ResumeLayout(False)
+        Me.TabPage2.PerformLayout()
        CType(Me.dgvSonst_IDSKunden, System.ComponentModel.ISupportInitialize).EndInit()
        Me.tbSchnittstellen.ResumeLayout(False)
        Me.tbSchnittstellen.PerformLayout()
@@ -6011,8 +6089,6 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.pnlNeukunde.ResumeLayout(False)
        Me.pnlNeukunde.PerformLayout()
        Me.cnsBankverbindungen.ResumeLayout(False)
-        Me.TabPage2.ResumeLayout(False)
-        Me.TabPage2.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -6399,4 +6475,8 @@ Partial Class usrcntlKundeBearbeitenFull
    Friend WithEvents Label118 As Label
    Friend WithEvents txtATEZ_LogicustID As TextBox
    Friend WithEvents Label119 As Label
+    Friend WithEvents Label121 As Label
+    Friend WithEvents Label120 As Label
+    Friend WithEvents txtSEG_vom As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtSEG_Summe As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb
@@ -275,6 +275,8 @@ Public Class usrcntlKundeBearbeitenFull
        txtVers_HermesRefNr.Text = loadValue(KUNDE.Referenznummer, "")
        txtVers_Versicherungssumme._value = loadValue(KUNDE.Versicherungssumme, "")
        txtVers_VersicherungssummeVon._value = loadValue(KUNDE.Entscheidung_vom, "")
+        txtSEG_Summe._value = loadValue(KUNDE_ERW.kde_SEG_Summe, "")
+        txtSEG_vom._value = loadValue(KUNDE_ERW.kde_SEG_Datum, "")
        txtVers_Antragssumme._value = loadValue(KUNDE.Antragssumme, "")
        txtVers_AntragssummeVon._value = loadValue(KUNDE.Antrag_vom, "")
        txtVers_Kreditlimit._value = loadValue(KUNDE.Kreditlimit, "")
@@ -703,8 +705,11 @@ Public Class usrcntlKundeBearbeitenFull
        'End If
        KUNDE.Versicherungssumme = isLeerNothingDbl(txtVers_Versicherungssumme._value)

-
        KUNDE.Entscheidung_vom = isLeerNothing(txtVers_VersicherungssummeVon._value)
+
+        KUNDE_ERW.kde_SEG_Summe = isLeerNothingDbl(txtSEG_Summe._value)
+        KUNDE_ERW.kde_SEG_Datum = isLeerNothing(txtSEG_vom._value)
+
        KUNDE.Antragssumme = isLeerNothingDbl(txtVers_Antragssumme._value)
        KUNDE.Antrag_vom = isLeerNothing(txtVers_AntragssummeVon._value)
        KUNDE.Kreditlimit = isLeerNothingDbl(txtVers_Kreditlimit._value)