201020

2020-10-20 09:03:00 +02:00
parent 75b12f314d
commit 00cd158bf0
54 changed files with 11763 additions and 323 deletions
--- a/SDL/kunden/frmNeuerKunde.vb
+++ b/SDL/kunden/frmNeuerKunde.vb
@@ -126,6 +126,10 @@
            KUNDE.EORITIN = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtEORI.Text)
            KUNDE.EORITIN_NL = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtEORINL.Text)

+
+            Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
+            KUNDE_ERW.kde_BesonderheitenNeu = 1
+
            Dim err = ""
            If Not ADRESSE.VALID(err) Then
                lblError.Text = err
@@ -142,6 +146,7 @@
                    lblError.Text = "FEHLER beim Eintragen in die Tabelle 'Kunden'!"
                    kdnr = -1 : Exit Sub
                End If
+                KUNDE_ERW.SAVE()
            Else
                lblError.Text = "FEHLER beim Eintragen in die Tabelle 'Adressen'!"
                kdnr = -1 : Exit Sub
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
@@ -22,16 +22,16 @@ Partial Class usrcntlKundeBearbeitenFull
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.tbcntrDetails = New System.Windows.Forms.TabControl()
        Me.tbAbfertigung = New System.Windows.Forms.TabPage()
        Me.cboFremdspedition = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -82,6 +82,8 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbFiskal = New System.Windows.Forms.TabPage()
        Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
        Me.tbVerrechnung = New System.Windows.Forms.TabPage()
+        Me.Label93 = New System.Windows.Forms.Label()
+        Me.txtDebKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.cbxAutoFakturierung = New System.Windows.Forms.CheckBox()
        Me.txtAbf_Zahlungsziel3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtAbf_Zahlungsziel2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -300,8 +302,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cbxFiBu = New System.Windows.Forms.CheckBox()
        Me.cbxFiBuLG = New System.Windows.Forms.CheckBox()
-        Me.Label93 = New System.Windows.Forms.Label()
-        Me.txtDebKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxVeranlagungskunde = New System.Windows.Forms.CheckBox()
        Me.tbcntrDetails.SuspendLayout()
        Me.tbAbfertigung.SuspendLayout()
        Me.tbcntrAbf.SuspendLayout()
@@ -962,6 +963,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'tbVerrechnung
        '
+        Me.tbVerrechnung.Controls.Add(Me.cbxVeranlagungskunde)
        Me.tbVerrechnung.Controls.Add(Me.Label93)
        Me.tbVerrechnung.Controls.Add(Me.txtDebKdNr)
        Me.tbVerrechnung.Controls.Add(Me.cbxAutoFakturierung)
@@ -1006,6 +1008,38 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbVerrechnung.Text = "Verrechnung"
        Me.tbVerrechnung.UseVisualStyleBackColor = True
        '
+        'Label93
+        '
+        Me.Label93.AutoSize = True
+        Me.Label93.Location = New System.Drawing.Point(12, 23)
+        Me.Label93.Name = "Label93"
+        Me.Label93.Size = New System.Drawing.Size(110, 13)
+        Me.Label93.TabIndex = 32
+        Me.Label93.Text = "Debitoren-KundenNr.:"
+        '
+        'txtDebKdNr
+        '
+        Me.txtDebKdNr._DateTimeOnly = False
+        Me.txtDebKdNr._numbersOnly = True
+        Me.txtDebKdNr._numbersOnlyKommastellen = ""
+        Me.txtDebKdNr._Prozent = False
+        Me.txtDebKdNr._ShortDateNew = False
+        Me.txtDebKdNr._ShortDateOnly = False
+        Me.txtDebKdNr._TimeOnly = False
+        Me.txtDebKdNr._value = ""
+        Me.txtDebKdNr._Waehrung = False
+        Me.txtDebKdNr._WaehrungZeichen = False
+        Me.txtDebKdNr.ForeColor = System.Drawing.Color.Red
+        Me.txtDebKdNr.Location = New System.Drawing.Point(125, 20)
+        Me.txtDebKdNr.MaxLength = 10
+        Me.txtDebKdNr.MaxLineLength = -1
+        Me.txtDebKdNr.MaxLines_Warning = ""
+        Me.txtDebKdNr.MaxLines_Warning_Label = Nothing
+        Me.txtDebKdNr.Name = "txtDebKdNr"
+        Me.txtDebKdNr.Size = New System.Drawing.Size(86, 20)
+        Me.txtDebKdNr.TabIndex = 33
+        Me.txtDebKdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
        'cbxAutoFakturierung
        '
        Me.cbxAutoFakturierung.AutoSize = True
@@ -2316,8 +2350,8 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
        Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
        Me.dgvUmsatzbericht.AllowUserToResizeRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
        Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
        Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25)
@@ -2414,8 +2448,8 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.dgvOffenePosten.AllowUserToDeleteRows = False
        Me.dgvOffenePosten.AllowUserToOrderColumns = True
        Me.dgvOffenePosten.AllowUserToResizeRows = False
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
        Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
        Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38)
@@ -2571,41 +2605,41 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.dgvKreditkarten.AllowUserToDeleteRows = False
        Me.dgvKreditkarten.AllowUserToOrderColumns = True
        Me.dgvKreditkarten.AllowUserToResizeRows = False
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
        Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle14
        Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle15
        Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20)
        Me.dgvKreditkarten.MultiSelect = False
        Me.dgvKreditkarten.Name = "dgvKreditkarten"
        Me.dgvKreditkarten.ReadOnly = True
-        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle16
        Me.dgvKreditkarten.RowHeadersVisible = False
-        DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle17
        Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
        Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312)
@@ -2743,8 +2777,8 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'dgvUstv_LaenderUndSteuernummern
        '
-        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
        Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
        Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94)
@@ -2957,8 +2991,8 @@ Partial Class usrcntlKundeBearbeitenFull
        'dgvSonst_IDSKunden
        '
        Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
-        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
        Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
        Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251)
@@ -3161,8 +3195,8 @@ Partial Class usrcntlKundeBearbeitenFull
        'DataGridView1
        '
        Me.DataGridView1.AllowUserToResizeRows = False
-        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
        Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.DataGridView1.Enabled = False
@@ -3990,37 +4024,16 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cbxFiBuLG.UseVisualStyleBackColor = True
        Me.cbxFiBuLG.Visible = False
        '
-        'Label93
+        'cbxVeranlagungskunde
        '
-        Me.Label93.AutoSize = True
-        Me.Label93.Location = New System.Drawing.Point(12, 23)
-        Me.Label93.Name = "Label93"
-        Me.Label93.Size = New System.Drawing.Size(110, 13)
-        Me.Label93.TabIndex = 32
-        Me.Label93.Text = "Debitoren-KundenNr.:"
-        '
-        'txtDebKdNr
-        '
-        Me.txtDebKdNr._DateTimeOnly = False
-        Me.txtDebKdNr._numbersOnly = True
-        Me.txtDebKdNr._numbersOnlyKommastellen = ""
-        Me.txtDebKdNr._Prozent = False
-        Me.txtDebKdNr._ShortDateNew = False
-        Me.txtDebKdNr._ShortDateOnly = False
-        Me.txtDebKdNr._TimeOnly = False
-        Me.txtDebKdNr._value = ""
-        Me.txtDebKdNr._Waehrung = False
-        Me.txtDebKdNr._WaehrungZeichen = False
-        Me.txtDebKdNr.ForeColor = System.Drawing.Color.Red
-        Me.txtDebKdNr.Location = New System.Drawing.Point(125, 20)
-        Me.txtDebKdNr.MaxLength = 10
-        Me.txtDebKdNr.MaxLineLength = -1
-        Me.txtDebKdNr.MaxLines_Warning = ""
-        Me.txtDebKdNr.MaxLines_Warning_Label = Nothing
-        Me.txtDebKdNr.Name = "txtDebKdNr"
-        Me.txtDebKdNr.Size = New System.Drawing.Size(86, 20)
-        Me.txtDebKdNr.TabIndex = 33
-        Me.txtDebKdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.cbxVeranlagungskunde.AutoSize = True
+        Me.cbxVeranlagungskunde.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxVeranlagungskunde.Location = New System.Drawing.Point(417, 198)
+        Me.cbxVeranlagungskunde.Name = "cbxVeranlagungskunde"
+        Me.cbxVeranlagungskunde.Size = New System.Drawing.Size(121, 17)
+        Me.cbxVeranlagungskunde.TabIndex = 34
+        Me.cbxVeranlagungskunde.Text = "Veranlagungskunde"
+        Me.cbxVeranlagungskunde.UseVisualStyleBackColor = True
        '
        'usrcntlKundeBearbeitenFull
        '
@@ -4375,4 +4388,5 @@ Partial Class usrcntlKundeBearbeitenFull
    Friend WithEvents cbxVerzolltBei As CheckBox
    Friend WithEvents Label93 As Label
    Friend WithEvents txtDebKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cbxVeranlagungskunde As CheckBox
 End Class
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb
@@ -54,7 +54,7 @@ Public Class usrcntlKundeBearbeitenFull
        End Select

        If ADRESSE.AdressenNr <= 0 Then
-
+            KUNDE_ERW.kde_BesonderheitenNeu = 1
            cboKundenkreis.Items.Clear()
            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then
                cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  500000-599999: EV - Kunden", "500000-599999"))
@@ -273,6 +273,7 @@ Public Class usrcntlKundeBearbeitenFull

        cbxDepot.Checked = KUNDE_ERW.Depot_Kunde
        cbxAutoFakturierung.Checked = KUNDE_ERW.AutoFakturierung
+        cbxVeranlagungskunde.Checked = KUNDE_ERW.Veranlagungskunde


        txtVERAG_Schnittstellen_ID.Text = If(KUNDE_ERW.kde_VERAG_INTERFACE_ID, "")
@@ -533,6 +534,7 @@ Public Class usrcntlKundeBearbeitenFull

        KUNDE_ERW.Depot_Kunde = cbxDepot.Checked
        KUNDE_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
+        KUNDE_ERW.Veranlagungskunde = cbxVeranlagungskunde.Checked
        KUNDE_ERW.kde_VERAG_INTERFACE_ID = isLeerNothing(txtVERAG_Schnittstellen_ID.Text)
        KUNDE_ERW.kde_BesonderheitenNeu = cbxBesonderheitenNEU.Checked

@@ -684,6 +686,7 @@ Public Class usrcntlKundeBearbeitenFull
                cboFiliale.changeItem("5601")
            Case "AMBAR"
                cboFiliale.changeItem("5701")
+                MsgBox("AMBAR")
            Case "ATILLA"
                cboFiliale.changeItem("4801")
            Case Else
@@ -1114,6 +1117,7 @@ Public Class usrcntlKundeBearbeitenFull
            Select Case cboKundenkreis._value
                Case "1000000-1099990" : cbxFiBu.Checked = True : cboFirma.changeItem("20") : cboFiliale.changeItem("5501")
                Case "2000000-2099990" : cbxFiBu.Checked = True : cboFirma.changeItem("21") : cboFiliale.changeItem("5601")
+                Case "3000000-3099990" : cbxFiBu.Checked = True : cboFirma.changeItem("24") : cboFiliale.changeItem("5701")
                Case "728000-799999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
                Case "30000-49999" : cbxFiBu.Checked = True : cboFirma.changeItem("11") : cboFiliale.changeItem("4803")
                Case "500000-599999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
@@ -1175,6 +1179,12 @@ Public Class usrcntlKundeBearbeitenFull
                        cboFirma._value = 20
                        selCheck = True
                    End If
+                Case "AMBAR"
+                    If cboFiliale._value = "5701" Then
+                        selCheck = False
+                        cboFirma._value = 24
+                        selCheck = True
+                    End If
                Case "FRONTOFFICE"
                    If cboFiliale._value = "5801" Then
                        selCheck = False