neu

2020-12-16 10:02:49 +01:00
parent 3bc1c8a309
commit 1c8b5afac9
19 changed files with 2061 additions and 1893 deletions
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -281,7 +281,7 @@ Public Class cFakturierung
                    Else
                        Dim VK = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr)
                        If VK IsNot Nothing AndAlso CDbl(VK.vk_Betrag) > 0 Then
-                            If VK.vk_GeldEingetroffen Then ' Wenn 0 dann Fehler
+                            If VK.vk_GeldEingetroffen Then ' Wenn 0 dann Fehler 
                                If CDbl(VK.vk_Betrag) = CDbl(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag) Then
                                    strText = strText & "Der Rechnungsbetrag wurde bereits per Vorauszahlung beglichen." & vbCrLf
                                Else
@@ -628,7 +628,8 @@ Public Class cFakturierung

            Dim gsBetrTmp As Double = 0
            For Each r In RECHNUNG.POSITIONEN
-                dtDataSource.Rows.Add(r.LeistungsNr, r.LeistungsBez, r.Anzahl, r.SteuerpflichtigerBetrag, r.SteuerfreierBetrag, (If(r.Belegdaten, "") & " " & If(r.Aufschubfälligkeit, "")).ToString.Trim)
+                ' dtDataSource.Rows.Add(r.LeistungsNr, r.LeistungsBez, r.Anzahl, r.SteuerpflichtigerBetrag, r.SteuerfreierBetrag, (If(r.Belegdaten, "") & " " & If(r.Aufschubfälligkeit, "")).ToString.Trim)
+                dtDataSource.Rows.Add(r.LeistungsNr, r.LeistungsBez, r.Anzahl, r.SteuerpflichtigerBetrag, r.SteuerfreierBetrag, If(r.Belegdaten, "").ToString.Trim)
                gsBetrTmp += CDbl(r.SteuerpflichtigerBetrag + r.SteuerfreierBetrag)
            Next

@@ -710,9 +711,11 @@ Public Class cFakturierung
            If rpt.txtSendungsdaten.Text.Length > 200 Then rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Substring(0, 200)
            rpt.txtBeförderungsmittel.Text = If(RECHNUNG.LKW_Kennzeichen, "")

-            rpt.txtGrenze.Text = SQL.getValueTxtBySql("SELECT TOP 1 isnull([Grenzstelle],'')   FROM [Filialen]  where FilialenNr='" & RECHNUNG.FilialenNr & "'", "FMZOLL")
+            rpt.txtGrenze.Text = If(RECHNUNG.Grenze, "")
+            If rpt.txtGrenze.Text = String.Empty Then rpt.txtGrenze.Text = SQL.getValueTxtBySql("SELECT TOP 1 isnull([Grenzstelle],'')   FROM [Filialen]  where FilialenNr='" & RECHNUNG.FilialenNr & "'", "FMZOLL")
            If rpt.txtGrenze.Text = String.Empty Then rpt.txtGrenzeUeberschrift.Visible = False

+
            If If(RECHNUNG.RechnungsName_2, "") = "" Then
                rpt.lblRechnung_Name1.Text = ""
                rpt.lblRechnung_Name2.Text = If(RECHNUNG.RechnungsName_1, "")
@@ -1228,7 +1231,7 @@ Public Class cFakturierung

    Public Shared Function GET_SR_SQLDT(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Optional whereKdNr As String = "", Optional SB As String = "", Optional AvisoIds As List(Of Integer) = Nothing) As DataTable
        If whereKdNr <> "" Then whereKdNr = " AND RechnungsKundenNr IN(" & whereKdNr & ") "
-        Dim sqlStr = " SELECT Rechnungsausgang.RK_ID, Rechnungsausgang.Firma_ID, Rechnungsausgang.FilialenNr, Rechnungsausgang.RechnungsKundenNr, Rechnungsausgang.BelegartenNr, Rechnungsausgang.[Steuersatz %], Rechnungsausgang.Lastschrift, Rechnungsausgang.Währungscode, Rechnungsausgang.AvisoID, Rechnungsausgang.RechnungsNr, Rechnungsausgang.RechnungsDatum, Rechnungsausgang.DruckDatumZeit, Rechnungsausgang.Status, Rechnungsausgang.Sammelrechnung, Rechnungsausgang.Abfertigungsdatum, Rechnungsausgang.Buchungsjahr,Rechnungsausgang.AbfertigungsNr,Rechnungsausgang.SpeditionsbuchUnterNr
+        Dim sqlStr = " SELECT Rechnungsausgang.RK_ID, Rechnungsausgang.Firma_ID, Rechnungsausgang.FilialenNr, Rechnungsausgang.RechnungsKundenNr, Rechnungsausgang.BelegartenNr, Rechnungsausgang.[Steuersatz %], Rechnungsausgang.Lastschrift, Rechnungsausgang.Währungscode, Rechnungsausgang.AvisoID, Rechnungsausgang.RechnungsNr, Rechnungsausgang.RechnungsDatum, Rechnungsausgang.DruckDatumZeit, Rechnungsausgang.Status, Rechnungsausgang.Sammelrechnung, Rechnungsausgang.Abfertigungsdatum, Rechnungsausgang.Buchungsjahr,Rechnungsausgang.AbfertigungsNr,Rechnungsausgang.SpeditionsbuchUnterNr,[SteuerpflichtigerGesamtbetrag],[SteuerfreierGesamtbetrag]
 	                       From Rechnungsausgang
                            WHERE Rechnungsausgang.Status IN(0, 2) And Rechnungsausgang.Firma_ID = " & Firma_ID & " And Rechnungsausgang.Sammelrechnung = '" & SammelrechungArt & "' And CONVERT(DATE,Rechnungsausgang.Abfertigungsdatum,104) <= '" & DatumBis.ToShortDateString & "' " & whereKdNr & " 
                         " & If(SammelrechungArt = 7 And SB <> "", " AND Sachbearbeiter='" & SB & "' ", "") & "" & getWhereAvisoId(AvisoIds)
@@ -1243,6 +1246,16 @@ Public Class cFakturierung
        Return dt
    End Function

+
+    Public Shared Function CHECK_SR_SQLDT(dt As DataTable) As Boolean
+        For Each r In dt.Rows
+            If (CDbl(r("SteuerpflichtigerGesamtbetrag")) + CDbl(r("SteuerfreierGesamtbetrag"))) = 0 Then
+                Return False
+            End If
+        Next
+        Return True
+    End Function
+
    Public Shared Function getWhereAvisoId(ids As List(Of Integer)) As String
        If ids Is Nothing Then Return ""
        If ids.Count = 0 Then Return ""
@@ -1279,6 +1292,7 @@ Public Class cFakturierung
            Dim dt = GET_SR_SQLDT(Firma_ID, SammelrechungArt, DatumBis, whereKdNr, SB, AvisoIds) 'SQL.loadDgvBySql(sqlStr, "FMZOLL")
            If dt Is Nothing Then MsgBox("ERR01: Keine Daten") : Return True
            If dt.Rows.Count = 0 Then MsgBox("ERR02: Keine Daten") : Return True
+            If Not CHECK_SR_SQLDT(dt) Then MsgBox("ERR03: Es wurden Rechnungen mit einem 0-Betrag gefunden. Bitte prüfen Sie die Eingaben und starten Sie die Sammelabrechnung erneut.") : Return True

            Dim Buchungsjahr = cRKSV.getGJ(Rechnungsdatum) 'IIf(Rechnungsdatum.Month = 1, Rechnungsdatum.Year - 1, Rechnungsdatum.Year)

--- a/SDL/Fakturierung/frmAbrechnungsMaske.vb
+++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb
@@ -569,16 +569,16 @@ Public Class frmAbrechnungsMaske
    End Sub


-    Private Sub txtAbfertDat_TextChanged(sender As Object, e As EventArgs) Handles txtAbfertDat.Leave, txtAbfertDatBis.Leave
+    Private Sub txtAbfertDat_Leave(sender As Object, e As EventArgs) Handles txtAbfertDat.Leave, txtAbfertDatBis.Leave
        initBtns("")
    End Sub

-    Private Sub MyTextBox2_TextChanged(sender As Object, e As KeyEventArgs) Handles MyTextBox2.KeyDown, MyTextBox3.KeyDown, MyTextBox2.TextChanged ', MyTextBox2.TextChanged
+    Private Sub MyTextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles MyTextBox2.KeyDown, MyTextBox3.KeyDown
        If e.KeyCode = Keys.Return Then
            initBtns("")
        End If
    End Sub
-    Private Sub MyTextBox3_TextChanged(sender As Object, e As EventArgs) Handles MyTextBox2.Leave, MyTextBox3.Leave
+    Private Sub MyTextBox3_Leave(sender As Object, e As EventArgs) Handles MyTextBox2.Leave, MyTextBox3.Leave
        initBtns("")
    End Sub

--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
@@ -263,8 +263,8 @@ Public Class usrCntlFaktAbrechnung
            cboWaehrung.changeItem(If(RECHNUNG.WährungsNr, 900))
            cboWaehrungUmrechnung.changeItem(If(RECHNUNG.Währungscode, "EUR"))
            txtSendungsdaten.Text = If(RECHNUNG.Packstücke_und_Warenbezeichnung, "")
+            txtGrenze.Text = If(RECHNUNG.Grenze, "")

-            '  txtGrenze.Text = If(RECHNUNG.ste, "")
            txtVermerk.Text = If(RECHNUNG.Vermerk, "")
            'txtRohmasse.Text = If(RECHNUNG.ro, "")
            txtBefoerderungsmittel.Text = If(RECHNUNG.LKW_Kennzeichen, "")
@@ -1133,12 +1133,13 @@ Public Class usrCntlFaktAbrechnung
            txtSteuerpflichtigerBetrag._value = steuerPflichtigerBetrag * vorzeichen
            txtSteuerBetrag._value = steuerBetrag * vorzeichen
            txtGesamtsumme._value = (steuerFreierBetrag + steuerPflichtigerBetrag + steuerBetrag) * vorzeichen
+
            ' txtSteuerFreierBetrag._value = steuerFreierBetrag
            '  txtSteuerpflichtigerBetrag._value = steuerPflichtigerBetrag

            ' RECHNUNG.SteuerpflichtigerGesamtbetrag = steuerPflichtigerBetrag
            ' RECHNUNG.SteuerfreierGesamtbetrag = steuerFreierBetrag
-
+            txtText.Text = cFakturierung.przRechnungstext(RECHNUNG) 'Das war vorher unter przBerechneRAPos

            '   przBerechneRAPos("")

@@ -1249,6 +1250,7 @@ Public Class usrCntlFaktAbrechnung
        RECHNUNG.POSITIONEN.RemoveAll(Function(p) p.Anzahl = 0 Or p.Preis = 0)

        initDGVRechnungenPositionen()
+
        'loaded = True
        loaded = loadedTmp

@@ -1408,6 +1410,25 @@ Public Class usrCntlFaktAbrechnung
        'RECHNUNG.EMailRechnungstext = SPEDBUCH.XXXXXXXX
        RECHNUNG.AvisoID = SPEDBUCH.AvisoID

+        If SPEDBUCH.Grenzstelle IsNot Nothing Then
+            If SPEDBUCH.Grenzstelle.Replace("???", "") = "" Then
+                If RECHNUNG.AvisoID IsNot Nothing Then
+                    Dim Zollstelle = SQL.DLookup("Zollstelle", "AVISO", "AvisoID='" & SPEDBUCH.AvisoID & "'", "AVISO")
+                    RECHNUNG.Grenze = SQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(Zollstelle, "") & "' ", "ATLAS")
+                End If
+            Else
+                Select Case SPEDBUCH.Grenzstelle
+                    Case "SUB" : RECHNUNG.Grenze = "Suben"
+                    Case "WAI" : RECHNUNG.Grenze = "Waidhaus"
+                    Case "SBG" : RECHNUNG.Grenze = "Bad Reichenhall"
+                    Case "NKD" : RECHNUNG.Grenze = "Nickelsdorf"
+                    Case "SFD" : RECHNUNG.Grenze = "Spielfeld"
+                End Select
+            End If
+        End If
+        If RECHNUNG.Grenze = String.Empty Then RECHNUNG.Grenze = SQL.getValueTxtBySql("SELECT TOP 1 isnull([Grenzstelle],'')   FROM [Filialen]  where FilialenNr='" & RECHNUNG.FilialenNr & "'", "FMZOLL")
+
+
        If SPEDBUCH.SendungID IsNot Nothing AndAlso IsNumeric(SPEDBUCH.SendungID) AndAlso SPEDBUCH.SendungID > 0 Then
            Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(SPEDBUCH.SendungID)
            SND.LOAD_HANDLING()
@@ -1677,6 +1698,7 @@ Public Class usrCntlFaktAbrechnung

        ' If RECHNUNG.Umrechnungskurs Is Nothing Then RECHNUNG.Umrechnungskurs = 1
        RECHNUNG.Packstücke_und_Warenbezeichnung = cProgramFunctions.isLeerNothing(txtSendungsdaten.Text) '!!!!
+        RECHNUNG.Grenze = cProgramFunctions.isLeerNothing(txtGrenze.Text) '!!!!
        RECHNUNG.Vermerk = txtVermerk.Text
        RECHNUNG.Anlage_1 = cProgramFunctions.isLeerNothing(cboAnlage1.Text) '!!!!
        RECHNUNG.Anlage_2 = cProgramFunctions.isLeerNothing(cboAnlage2.Text) '!!!!
@@ -1820,10 +1842,10 @@ Public Class usrCntlFaktAbrechnung



+        '  initDGVRechnungenPositionen()


-
-        txtText.Text = cFakturierung.przRechnungstext(RECHNUNG) ', zahlbar, MyRichTextBox2.Text)
+        'txtText.Text = cFakturierung.przRechnungstext(RECHNUNG) ', zahlbar, MyRichTextBox2.Text)

        ' przRechnungstext()
        'initDGVRechnungenPositionen()  ??????????????
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -1683,15 +1683,6 @@ Namespace My.Resources
            End Get
        End Property
        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die  ähnelt.
-        '''</summary>
-        Friend ReadOnly Property sdfs3sdfsdfsdf() As String
-            Get
-                Return ResourceManager.GetString("sdfs3sdfsdfsdf", resourceCulture)
-            End Get
-        End Property
-        
        '''<summary>
        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
        '''</summary>
@@ -2211,7 +2202,7 @@ Namespace My.Resources
        End Property
        
        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 1.1.8.3 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 1.1.8.4 ähnelt.
        '''</summary>
        Friend ReadOnly Property Version() As String
            Get
--- a/Project/Resources.resx
+++ b/Project/Resources.resx
@@ -638,7 +638,7 @@
    <value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
  <data name="Version" xml:space="preserve">
-    <value>1.1.8.3</value>
+    <value>1.1.8.4</value>
  </data>
  <data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -799,7 +799,4 @@
  <data name="Unisped_ZS_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\Unisped_ZS_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
-  <data name="sdfs3sdfsdfsdf" xml:space="preserve">
-    <value />
-  </data>
 </root>
--- a/SDL/Reports/Zoll/subrptKontrolleLKW_NCTSTR_Abrechnung.vb
+++ b/SDL/Reports/Zoll/subrptKontrolleLKW_NCTSTR_Abrechnung.vb
@@ -54,7 +54,6 @@ Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
        End Select


-
        GesSumme += "<EFBFBD> " & CDbl(Fields.Item("GESAMTBETRAG").Value)

        AnzT += 1
--- a/SDL/kunden/frmKundenblatt.Designer.vb
+++ b/SDL/kunden/frmKundenblatt.Designer.vb
@@ -1817,6 +1817,7 @@ Partial Class frmKundenblatt
        '
        Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
        Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
+        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
        Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
        Me.cntxtCntxtMDM.Text = "cntxtMDM"
        '
@@ -1904,6 +1905,7 @@ Partial Class frmKundenblatt
        Me.KdSearchBox1.searchActive = True
        Me.KdSearchBox1.Size = New System.Drawing.Size(1184, 34)
        Me.KdSearchBox1.TabIndex = 0
+        Me.KdSearchBox1.TIMER_SEARCH = True
        Me.KdSearchBox1.usrcntl = Nothing
        '
        'tbiLeistungen
--- a/SDL/kunden/frmLKW_AnhaengeDatenarchiv.Designer.vb
+++ b/SDL/kunden/frmLKW_AnhaengeDatenarchiv.Designer.vb
@@ -29,10 +29,13 @@ Partial Class frmLKW_AnhaengeDatenarchiv
        Me.clmnZulassung_docID = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.clmnCEMT_docID = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.clmnLeasing_docID = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnMiete_docID = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.clmnZulassung = New System.Windows.Forms.DataGridViewCheckBoxColumn()
        Me.clmnCEMT = New System.Windows.Forms.DataGridViewCheckBoxColumn()
        Me.clmnLeasing = New System.Windows.Forms.DataGridViewCheckBoxColumn()
+        Me.Column1 = New System.Windows.Forms.DataGridViewCheckBoxColumn()
        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.cbxMiete = New System.Windows.Forms.CheckBox()
        Me.cbxLeasing = New System.Windows.Forms.CheckBox()
        Me.cbxCEMT = New System.Windows.Forms.CheckBox()
        Me.cbxZulassung = New System.Windows.Forms.CheckBox()
@@ -53,11 +56,11 @@ Partial Class frmLKW_AnhaengeDatenarchiv
        Me.MyDatagridview1.AllowUserToResizeColumns = False
        Me.MyDatagridview1.AllowUserToResizeRows = False
        Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.MyDatagridview1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnLKW, Me.clmnZulassung_docID, Me.clmnCEMT_docID, Me.clmnLeasing_docID, Me.clmnZulassung, Me.clmnCEMT, Me.clmnLeasing})
+        Me.MyDatagridview1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnLKW, Me.clmnZulassung_docID, Me.clmnCEMT_docID, Me.clmnLeasing_docID, Me.clmnMiete_docID, Me.clmnZulassung, Me.clmnCEMT, Me.clmnLeasing, Me.Column1})
        Me.MyDatagridview1.Location = New System.Drawing.Point(13, 36)
        Me.MyDatagridview1.Name = "MyDatagridview1"
        Me.MyDatagridview1.ReadOnly = True
-        Me.MyDatagridview1.Size = New System.Drawing.Size(495, 383)
+        Me.MyDatagridview1.Size = New System.Drawing.Size(555, 383)
        Me.MyDatagridview1.TabIndex = 0
        '
        'clmnLKW
@@ -88,6 +91,13 @@ Partial Class frmLKW_AnhaengeDatenarchiv
        Me.clmnLeasing_docID.ReadOnly = True
        Me.clmnLeasing_docID.Visible = False
        '
+        'clmnMiete_docID
+        '
+        Me.clmnMiete_docID.HeaderText = "Column2"
+        Me.clmnMiete_docID.Name = "clmnMiete_docID"
+        Me.clmnMiete_docID.ReadOnly = True
+        Me.clmnMiete_docID.Visible = False
+        '
        'clmnZulassung
        '
        Me.clmnZulassung.HeaderText = "Zulassung"
@@ -111,17 +121,36 @@ Partial Class frmLKW_AnhaengeDatenarchiv
        Me.clmnLeasing.ReadOnly = True
        Me.clmnLeasing.Width = 60
        '
+        'Column1
+        '
+        Me.Column1.HeaderText = "Miete"
+        Me.Column1.Name = "Column1"
+        Me.Column1.ReadOnly = True
+        Me.Column1.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.Column1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
+        Me.Column1.Width = 60
+        '
        'MyPanel1
        '
+        Me.MyPanel1.Controls.Add(Me.cbxMiete)
        Me.MyPanel1.Controls.Add(Me.cbxLeasing)
        Me.MyPanel1.Controls.Add(Me.cbxCEMT)
        Me.MyPanel1.Controls.Add(Me.cbxZulassung)
        Me.MyPanel1.Controls.Add(Me.cbx)
        Me.MyPanel1.Location = New System.Drawing.Point(13, 12)
        Me.MyPanel1.Name = "MyPanel1"
-        Me.MyPanel1.Size = New System.Drawing.Size(495, 26)
+        Me.MyPanel1.Size = New System.Drawing.Size(555, 26)
        Me.MyPanel1.TabIndex = 1
        '
+        'cbxMiete
+        '
+        Me.cbxMiete.AutoSize = True
+        Me.cbxMiete.Location = New System.Drawing.Point(515, 4)
+        Me.cbxMiete.Name = "cbxMiete"
+        Me.cbxMiete.Size = New System.Drawing.Size(15, 14)
+        Me.cbxMiete.TabIndex = 4
+        Me.cbxMiete.UseVisualStyleBackColor = True
+        '
        'cbxLeasing
        '
        Me.cbxLeasing.AutoSize = True
@@ -210,7 +239,7 @@ Partial Class frmLKW_AnhaengeDatenarchiv
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(520, 503)
+        Me.ClientSize = New System.Drawing.Size(582, 503)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.CheckBox4)
        Me.Controls.Add(Me.Button1)
@@ -236,13 +265,16 @@ Partial Class frmLKW_AnhaengeDatenarchiv
    Friend WithEvents cbxZulassung As CheckBox
    Friend WithEvents Button3 As Button
    Friend WithEvents Button1 As Button
+    Friend WithEvents CheckBox4 As CheckBox
+    Friend WithEvents Button2 As Button
+    Friend WithEvents cbxMiete As CheckBox
    Friend WithEvents clmnLKW As DataGridViewTextBoxColumn
    Friend WithEvents clmnZulassung_docID As DataGridViewTextBoxColumn
    Friend WithEvents clmnCEMT_docID As DataGridViewTextBoxColumn
    Friend WithEvents clmnLeasing_docID As DataGridViewTextBoxColumn
+    Friend WithEvents clmnMiete_docID As DataGridViewTextBoxColumn
    Friend WithEvents clmnZulassung As DataGridViewCheckBoxColumn
    Friend WithEvents clmnCEMT As DataGridViewCheckBoxColumn
    Friend WithEvents clmnLeasing As DataGridViewCheckBoxColumn
-    Friend WithEvents CheckBox4 As CheckBox
-    Friend WithEvents Button2 As Button
+    Friend WithEvents Column1 As DataGridViewCheckBoxColumn
 End Class
--- a/SDL/kunden/frmLKW_AnhaengeDatenarchiv.resx
+++ b/SDL/kunden/frmLKW_AnhaengeDatenarchiv.resx
@@ -129,6 +129,9 @@
  <metadata name="clmnLeasing_docID.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>True</value>
  </metadata>
+  <metadata name="clmnMiete_docID.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
  <metadata name="clmnZulassung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>True</value>
  </metadata>
@@ -138,6 +141,9 @@
  <metadata name="clmnLeasing.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>True</value>
  </metadata>
+  <metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
--- a/SDL/kunden/frmLKW_AnhaengeDatenarchiv.vb
+++ b/SDL/kunden/frmLKW_AnhaengeDatenarchiv.vb
@@ -56,15 +56,17 @@ Public Class frmLKW_AnhaengeDatenarchiv
                Dim Zulassungsschein = ""
                Dim CEMT = ""
                Dim Leasing = ""
+                Dim Miete = ""
                For Each r In dt.Rows
                    If r("coll_pfad") IsNot DBNull.Value AndAlso r("coll_pfad") <> "" Then
                        If r("da_name") = "Zulassungsschein" Then Zulassungsschein = r("coll_pfad")
                        If r("da_name") = "CEMT" Then CEMT = r("coll_pfad")
                        If r("da_name") = "Leasing-Vertrag" Then Leasing = r("coll_pfad")
+                        If r("da_name") = "Miet-Vertrag" Then Miete = r("coll_pfad")
                    End If
                Next

-                MyDatagridview1.Rows.Add(l, Zulassungsschein, CEMT, Leasing, (Zulassungsschein <> ""), (CEMT <> ""), (Leasing <> ""))
+                MyDatagridview1.Rows.Add(l, Zulassungsschein, CEMT, Leasing, Miete, (Zulassungsschein <> ""), (CEMT <> ""), (Leasing <> ""), (Miete <> ""))
            Next
        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
@@ -98,6 +100,7 @@ Public Class frmLKW_AnhaengeDatenarchiv
            If cbxZulassung.Checked Then If r.Cells("clmnZulassung_docID").Value <> "" Then myList.Add(copyFileToTMP(r.Cells("clmnZulassung_docID").Value, r.Cells("clmnLKW").Value, "Zulassung", zielPfad)) '
            If cbxCEMT.Checked Then If r.Cells("clmnCEMT_docID").Value <> "" Then myList.Add(copyFileToTMP(r.Cells("clmnCEMT_docID").Value, r.Cells("clmnLKW").Value, "CEMT", zielPfad)) 'r.Cells("clmnCEMT_docID").Value)
            If cbxLeasing.Checked Then If r.Cells("clmnLeasing_docID").Value <> "" Then myList.Add(copyFileToTMP(r.Cells("clmnLeasing_docID").Value, r.Cells("clmnLKW").Value, "Leasing", zielPfad)) 'r.Cells("clmnLeasing_docID").Value)
+            If cbxMiete.Checked Then If r.Cells("clmnMiete_docID").Value <> "" Then myList.Add(copyFileToTMP(r.Cells("clmnMiete_docID").Value, r.Cells("clmnLKW").Value, "Miete", zielPfad)) 'r.Cells("clmnLeasing_docID").Value)
        Next
        'zusammenfassen
        If CheckBox4.Checked Then
--- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
@@ -37,7 +37,6 @@ Partial Class usrCntlKundenuebersicht
        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.cntxtAddSdl = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        'Me.CheckVatService1 = New SDL.eu.europa.ec.checkVatService()
        Me.btnExcel = New System.Windows.Forms.Button()
        Me.lblInaktiv = New System.Windows.Forms.Label()
        Me.Label30 = New System.Windows.Forms.Label()
@@ -72,6 +71,10 @@ Partial Class usrCntlKundenuebersicht
        Me.lblKdNr = New System.Windows.Forms.TextBox()
        Me.Label13 = New System.Windows.Forms.Label()
        Me.grpAbfertigung = New System.Windows.Forms.GroupBox()
+        Me.txtVerzolltBei = New System.Windows.Forms.TextBox()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.lblAviso = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
        Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
        Me.rtbInfo = New System.Windows.Forms.RichTextBox()
        Me.lblAbfertigungsverbot = New System.Windows.Forms.Label()
@@ -79,7 +82,7 @@ Partial Class usrCntlKundenuebersicht
        Me.txtSammelrechnung = New System.Windows.Forms.TextBox()
        Me.Label12 = New System.Windows.Forms.Label()
        Me.txtVorauskasse = New System.Windows.Forms.TextBox()
-        Me.Label42 = New System.Windows.Forms.Label()
+        Me.lblVorkasse = New System.Windows.Forms.Label()
        Me.pnlVERAGSnspr = New System.Windows.Forms.Panel()
        Me.txtKundenbetreuerTeam = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.btnVeragAnspr = New VERAG_PROG_ALLGEMEIN.FlatButton()
@@ -97,18 +100,16 @@ Partial Class usrCntlKundenuebersicht
        Me.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label29 = New System.Windows.Forms.Label()
        Me.txtOffenePosten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.Label28 = New System.Windows.Forms.Label()
+        Me.lblOffenePosten = New System.Windows.Forms.Label()
        Me.cbxFiskalabfertigung = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
        Me.lblFisk = New System.Windows.Forms.Label()
        Me.lblKreditlimit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label1 = New System.Windows.Forms.Label()
-        Me.lblAviso = New System.Windows.Forms.TextBox()
        Me.txtAbf_ErsteAbfertigung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label41 = New System.Windows.Forms.Label()
        Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
        Me.lblNeutralisierung = New System.Windows.Forms.TextBox()
-        Me.Label37 = New System.Windows.Forms.Label()
+        Me.lblBesonderheiten = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.lblNoGespr = New System.Windows.Forms.Label()
        Me.lklGanzerText = New System.Windows.Forms.LinkLabel()
@@ -125,7 +126,7 @@ Partial Class usrCntlKundenuebersicht
        Me.Label46 = New System.Windows.Forms.Label()
        Me.grpAdresse = New System.Windows.Forms.GroupBox()
        Me.tbKontakt = New System.Windows.Forms.TabControl()
-        Me.TabPage10 = New System.Windows.Forms.TabPage()
+        Me.tbKontaktKontakt = New System.Windows.Forms.TabPage()
        Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
        Me.lblAnsprechpartner = New System.Windows.Forms.TextBox()
@@ -138,7 +139,7 @@ Partial Class usrCntlKundenuebersicht
        Me.lblTel = New System.Windows.Forms.TextBox()
        Me.PictureBox3 = New System.Windows.Forms.PictureBox()
        Me.PictureBox5 = New System.Windows.Forms.PictureBox()
-        Me.TabPage11 = New System.Windows.Forms.TabPage()
+        Me.tbKontaktSpez = New System.Windows.Forms.TabPage()
        Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
        Me.Label38 = New System.Windows.Forms.Label()
        Me.txtDebitorennr = New System.Windows.Forms.TextBox()
@@ -158,9 +159,9 @@ Partial Class usrCntlKundenuebersicht
        Me.Button3 = New System.Windows.Forms.Button()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.tbcntrAllg = New System.Windows.Forms.TabControl()
-        Me.TabPage5 = New System.Windows.Forms.TabPage()
+        Me.tbVollmachten = New System.Windows.Forms.TabPage()
        Me.dgvVollmachten = New System.Windows.Forms.DataGridView()
-        Me.TabPage9 = New System.Windows.Forms.TabPage()
+        Me.tbGestellGarant = New System.Windows.Forms.TabPage()
        Me.dgvGestGarantie = New System.Windows.Forms.DataGridView()
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.cbxGG = New System.Windows.Forms.CheckBox()
@@ -169,9 +170,9 @@ Partial Class usrCntlKundenuebersicht
        Me.Label11 = New System.Windows.Forms.Label()
        Me.Button8 = New System.Windows.Forms.Button()
        Me.Button9 = New System.Windows.Forms.Button()
-        Me.TabPage6 = New System.Windows.Forms.TabPage()
+        Me.tbAvisoMail = New System.Windows.Forms.TabPage()
        Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
-        Me.TabPage7 = New System.Windows.Forms.TabPage()
+        Me.tbKdSpez = New System.Windows.Forms.TabPage()
        Me.Label14 = New System.Windows.Forms.Label()
        Me.txtInfoKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label43 = New System.Windows.Forms.Label()
@@ -182,7 +183,7 @@ Partial Class usrCntlKundenuebersicht
        Me.Label10 = New System.Windows.Forms.Label()
        Me.txtFixeKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton()
-        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.tbSonstiges = New System.Windows.Forms.TabPage()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.lblSteuernummer = New System.Windows.Forms.TextBox()
        Me.lblAufZoll = New System.Windows.Forms.TextBox()
@@ -192,10 +193,10 @@ Partial Class usrCntlKundenuebersicht
        Me.lblZnv = New System.Windows.Forms.TextBox()
        Me.Label7 = New System.Windows.Forms.Label()
        Me.btncheckliste = New VERAG_PROG_ALLGEMEIN.FlatButton()
-        Me.Label4 = New System.Windows.Forms.Label()
+        Me.lblUIDNr = New System.Windows.Forms.Label()
        Me.lblUid = New System.Windows.Forms.TextBox()
        Me.lblEORI = New System.Windows.Forms.TextBox()
-        Me.Label5 = New System.Windows.Forms.Label()
+        Me.lblEORINr = New System.Windows.Forms.Label()
        Me.dgvAufschub = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.KtoId = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.Art = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -214,8 +215,6 @@ Partial Class usrCntlKundenuebersicht
        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
        Me.lblFirma = New System.Windows.Forms.Label()
-        Me.Label15 = New System.Windows.Forms.Label()
-        Me.txtVerzolltBei = New System.Windows.Forms.TextBox()
        Me.cntxtAddSdl.SuspendLayout()
        Me.tbWeitereKundenDetails.SuspendLayout()
        Me.TabPage4.SuspendLayout()
@@ -236,23 +235,23 @@ Partial Class usrCntlKundenuebersicht
        Me.Panel4.SuspendLayout()
        Me.grpAdresse.SuspendLayout()
        Me.tbKontakt.SuspendLayout()
-        Me.TabPage10.SuspendLayout()
+        Me.tbKontaktKontakt.SuspendLayout()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.TabPage11.SuspendLayout()
+        Me.tbKontaktSpez.SuspendLayout()
        Me.grpSonstiges.SuspendLayout()
        Me.tbcntrAllg.SuspendLayout()
-        Me.TabPage5.SuspendLayout()
+        Me.tbVollmachten.SuspendLayout()
        CType(Me.dgvVollmachten, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.TabPage9.SuspendLayout()
+        Me.tbGestellGarant.SuspendLayout()
        CType(Me.dgvGestGarantie, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel2.SuspendLayout()
-        Me.TabPage6.SuspendLayout()
-        Me.TabPage7.SuspendLayout()
-        Me.TabPage2.SuspendLayout()
+        Me.tbAvisoMail.SuspendLayout()
+        Me.tbKdSpez.SuspendLayout()
+        Me.tbSonstiges.SuspendLayout()
        CType(Me.dgvAufschub, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.ContextMenuStrip3.SuspendLayout()
@@ -271,12 +270,6 @@ Partial Class usrCntlKundenuebersicht
        Me.DToolStripMenuItem.Size = New System.Drawing.Size(81, 22)
        Me.DToolStripMenuItem.Text = "d"
        '
-        'CheckVatService1
-        '
-        'Me.CheckVatService1.Credentials = Nothing
-        'Me.CheckVatService1.Url = "http://ec.europa.eu/taxation_customs/vies/services/checkVatService"
-        'Me.CheckVatService1.UseDefaultCredentials = False
-        '
        'btnExcel
        '
        Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo
@@ -788,7 +781,7 @@ Partial Class usrCntlKundenuebersicht
        Me.grpAbfertigung.Controls.Add(Me.txtSammelrechnung)
        Me.grpAbfertigung.Controls.Add(Me.Label12)
        Me.grpAbfertigung.Controls.Add(Me.txtVorauskasse)
-        Me.grpAbfertigung.Controls.Add(Me.Label42)
+        Me.grpAbfertigung.Controls.Add(Me.lblVorkasse)
        Me.grpAbfertigung.Controls.Add(Me.pnlVERAGSnspr)
        Me.grpAbfertigung.Controls.Add(Me.btnPunkt2Save)
        Me.grpAbfertigung.Controls.Add(Me.Button7)
@@ -801,7 +794,7 @@ Partial Class usrCntlKundenuebersicht
        Me.grpAbfertigung.Controls.Add(Me.txtUmsatzJahr)
        Me.grpAbfertigung.Controls.Add(Me.Label29)
        Me.grpAbfertigung.Controls.Add(Me.txtOffenePosten)
-        Me.grpAbfertigung.Controls.Add(Me.Label28)
+        Me.grpAbfertigung.Controls.Add(Me.lblOffenePosten)
        Me.grpAbfertigung.Controls.Add(Me.cbxFiskalabfertigung)
        Me.grpAbfertigung.Controls.Add(Me.lblFisk)
        Me.grpAbfertigung.Controls.Add(Me.lblKreditlimit)
@@ -810,7 +803,7 @@ Partial Class usrCntlKundenuebersicht
        Me.grpAbfertigung.Controls.Add(Me.Label41)
        Me.grpAbfertigung.Controls.Add(Me.rtbAbf_Besonderheiten)
        Me.grpAbfertigung.Controls.Add(Me.lblNeutralisierung)
-        Me.grpAbfertigung.Controls.Add(Me.Label37)
+        Me.grpAbfertigung.Controls.Add(Me.lblBesonderheiten)
        Me.grpAbfertigung.Controls.Add(Me.Label3)
        Me.grpAbfertigung.Controls.Add(Me.lblNoGespr)
        Me.grpAbfertigung.Controls.Add(Me.lklGanzerText)
@@ -823,6 +816,50 @@ Partial Class usrCntlKundenuebersicht
        Me.grpAbfertigung.TabStop = False
        Me.grpAbfertigung.Text = "Abfertigung"
        '
+        'txtVerzolltBei
+        '
+        Me.txtVerzolltBei.BackColor = System.Drawing.Color.White
+        Me.txtVerzolltBei.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtVerzolltBei.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtVerzolltBei.ForeColor = System.Drawing.Color.Black
+        Me.txtVerzolltBei.Location = New System.Drawing.Point(358, 235)
+        Me.txtVerzolltBei.Name = "txtVerzolltBei"
+        Me.txtVerzolltBei.ReadOnly = True
+        Me.txtVerzolltBei.Size = New System.Drawing.Size(177, 13)
+        Me.txtVerzolltBei.TabIndex = 236
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Location = New System.Drawing.Point(270, 235)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(61, 13)
+        Me.Label15.TabIndex = 235
+        Me.Label15.Text = "Verzollt bei:"
+        '
+        'lblAviso
+        '
+        Me.lblAviso.BackColor = System.Drawing.Color.White
+        Me.lblAviso.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.lblAviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblAviso.ForeColor = System.Drawing.Color.Black
+        Me.lblAviso.Location = New System.Drawing.Point(293, 176)
+        Me.lblAviso.Name = "lblAviso"
+        Me.lblAviso.ReadOnly = True
+        Me.lblAviso.Size = New System.Drawing.Size(127, 13)
+        Me.lblAviso.TabIndex = 185
+        Me.lblAviso.Visible = False
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(205, 176)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(36, 13)
+        Me.Label2.TabIndex = 184
+        Me.Label2.Text = "Aviso:"
+        Me.Label2.Visible = False
+        '
        'UsrCntlKundenBesonderheiten1
        '
        Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
@@ -905,15 +942,15 @@ Partial Class usrCntlKundenuebersicht
        Me.txtVorauskasse.TabIndex = 226
        Me.txtVorauskasse.Visible = False
        '
-        'Label42
+        'lblVorkasse
        '
-        Me.Label42.AutoSize = True
-        Me.Label42.Location = New System.Drawing.Point(270, 267)
-        Me.Label42.Name = "Label42"
-        Me.Label42.Size = New System.Drawing.Size(71, 13)
-        Me.Label42.TabIndex = 225
-        Me.Label42.Text = "Vorauskasse:"
-        Me.Label42.Visible = False
+        Me.lblVorkasse.AutoSize = True
+        Me.lblVorkasse.Location = New System.Drawing.Point(270, 267)
+        Me.lblVorkasse.Name = "lblVorkasse"
+        Me.lblVorkasse.Size = New System.Drawing.Size(71, 13)
+        Me.lblVorkasse.TabIndex = 225
+        Me.lblVorkasse.Text = "Vorauskasse:"
+        Me.lblVorkasse.Visible = False
        '
        'pnlVERAGSnspr
        '
@@ -1230,15 +1267,15 @@ Partial Class usrCntlKundenuebersicht
        Me.txtOffenePosten.TabIndex = 208
        Me.txtOffenePosten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
-        'Label28
+        'lblOffenePosten
        '
-        Me.Label28.AutoSize = True
-        Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label28.Location = New System.Drawing.Point(7, 293)
-        Me.Label28.Name = "Label28"
-        Me.Label28.Size = New System.Drawing.Size(78, 13)
-        Me.Label28.TabIndex = 207
-        Me.Label28.Text = "Offene Posten:"
+        Me.lblOffenePosten.AutoSize = True
+        Me.lblOffenePosten.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblOffenePosten.Location = New System.Drawing.Point(7, 293)
+        Me.lblOffenePosten.Name = "lblOffenePosten"
+        Me.lblOffenePosten.Size = New System.Drawing.Size(78, 13)
+        Me.lblOffenePosten.TabIndex = 207
+        Me.lblOffenePosten.Text = "Offene Posten:"
        '
        'cbxFiskalabfertigung
        '
@@ -1303,19 +1340,6 @@ Partial Class usrCntlKundenuebersicht
        Me.Label1.TabIndex = 189
        Me.Label1.Text = "Kreditlimit:"
        '
-        'lblAviso
-        '
-        Me.lblAviso.BackColor = System.Drawing.Color.White
-        Me.lblAviso.BorderStyle = System.Windows.Forms.BorderStyle.None
-        Me.lblAviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblAviso.ForeColor = System.Drawing.Color.Black
-        Me.lblAviso.Location = New System.Drawing.Point(293, 176)
-        Me.lblAviso.Name = "lblAviso"
-        Me.lblAviso.ReadOnly = True
-        Me.lblAviso.Size = New System.Drawing.Size(127, 13)
-        Me.lblAviso.TabIndex = 185
-        Me.lblAviso.Visible = False
-        '
        'txtAbf_ErsteAbfertigung
        '
        Me.txtAbf_ErsteAbfertigung._DateTimeOnly = False
@@ -1343,16 +1367,6 @@ Partial Class usrCntlKundenuebersicht
        Me.txtAbf_ErsteAbfertigung.TabIndex = 38
        Me.txtAbf_ErsteAbfertigung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(205, 176)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(36, 13)
-        Me.Label2.TabIndex = 184
-        Me.Label2.Text = "Aviso:"
-        Me.Label2.Visible = False
-        '
        'Label41
        '
        Me.Label41.AutoSize = True
@@ -1389,14 +1403,14 @@ Partial Class usrCntlKundenuebersicht
        Me.lblNeutralisierung.Size = New System.Drawing.Size(127, 13)
        Me.lblNeutralisierung.TabIndex = 183
        '
-        'Label37
+        'lblBesonderheiten
        '
-        Me.Label37.AutoSize = True
-        Me.Label37.Location = New System.Drawing.Point(7, 16)
-        Me.Label37.Name = "Label37"
-        Me.Label37.Size = New System.Drawing.Size(84, 13)
-        Me.Label37.TabIndex = 23
-        Me.Label37.Text = "Besonderheiten:"
+        Me.lblBesonderheiten.AutoSize = True
+        Me.lblBesonderheiten.Location = New System.Drawing.Point(7, 16)
+        Me.lblBesonderheiten.Name = "lblBesonderheiten"
+        Me.lblBesonderheiten.Size = New System.Drawing.Size(84, 13)
+        Me.lblBesonderheiten.TabIndex = 23
+        Me.lblBesonderheiten.Text = "Besonderheiten:"
        '
        'Label3
        '
@@ -1644,34 +1658,34 @@ Partial Class usrCntlKundenuebersicht
        '
        'tbKontakt
        '
-        Me.tbKontakt.Controls.Add(Me.TabPage10)
-        Me.tbKontakt.Controls.Add(Me.TabPage11)
+        Me.tbKontakt.Controls.Add(Me.tbKontaktKontakt)
+        Me.tbKontakt.Controls.Add(Me.tbKontaktSpez)
        Me.tbKontakt.Location = New System.Drawing.Point(6, 152)
        Me.tbKontakt.Name = "tbKontakt"
        Me.tbKontakt.SelectedIndex = 0
        Me.tbKontakt.Size = New System.Drawing.Size(487, 190)
        Me.tbKontakt.TabIndex = 213
        '
-        'TabPage10
+        'tbKontaktKontakt
        '
-        Me.TabPage10.Controls.Add(Me.FlatButton1)
-        Me.TabPage10.Controls.Add(Me.PictureBox1)
-        Me.TabPage10.Controls.Add(Me.lblAnsprechpartner)
-        Me.TabPage10.Controls.Add(Me.lblMobil)
-        Me.TabPage10.Controls.Add(Me.lblFax)
-        Me.TabPage10.Controls.Add(Me.lblEmail2)
-        Me.TabPage10.Controls.Add(Me.lblEmail)
-        Me.TabPage10.Controls.Add(Me.PictureBox4)
-        Me.TabPage10.Controls.Add(Me.PictureBox2)
-        Me.TabPage10.Controls.Add(Me.lblTel)
-        Me.TabPage10.Controls.Add(Me.PictureBox3)
-        Me.TabPage10.Controls.Add(Me.PictureBox5)
-        Me.TabPage10.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage10.Name = "TabPage10"
-        Me.TabPage10.Size = New System.Drawing.Size(479, 164)
-        Me.TabPage10.TabIndex = 2
-        Me.TabPage10.Text = "Kontakt"
-        Me.TabPage10.UseVisualStyleBackColor = True
+        Me.tbKontaktKontakt.Controls.Add(Me.FlatButton1)
+        Me.tbKontaktKontakt.Controls.Add(Me.PictureBox1)
+        Me.tbKontaktKontakt.Controls.Add(Me.lblAnsprechpartner)
+        Me.tbKontaktKontakt.Controls.Add(Me.lblMobil)
+        Me.tbKontaktKontakt.Controls.Add(Me.lblFax)
+        Me.tbKontaktKontakt.Controls.Add(Me.lblEmail2)
+        Me.tbKontaktKontakt.Controls.Add(Me.lblEmail)
+        Me.tbKontaktKontakt.Controls.Add(Me.PictureBox4)
+        Me.tbKontaktKontakt.Controls.Add(Me.PictureBox2)
+        Me.tbKontaktKontakt.Controls.Add(Me.lblTel)
+        Me.tbKontaktKontakt.Controls.Add(Me.PictureBox3)
+        Me.tbKontaktKontakt.Controls.Add(Me.PictureBox5)
+        Me.tbKontaktKontakt.Location = New System.Drawing.Point(4, 22)
+        Me.tbKontaktKontakt.Name = "tbKontaktKontakt"
+        Me.tbKontaktKontakt.Size = New System.Drawing.Size(479, 164)
+        Me.tbKontaktKontakt.TabIndex = 2
+        Me.tbKontaktKontakt.Text = "Kontakt"
+        Me.tbKontaktKontakt.UseVisualStyleBackColor = True
        '
        'FlatButton1
        '
@@ -1820,16 +1834,16 @@ Partial Class usrCntlKundenuebersicht
        Me.PictureBox5.TabIndex = 180
        Me.PictureBox5.TabStop = False
        '
-        'TabPage11
+        'tbKontaktSpez
        '
-        Me.TabPage11.Controls.Add(Me.ucKundenKontakte)
-        Me.TabPage11.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage11.Name = "TabPage11"
-        Me.TabPage11.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage11.Size = New System.Drawing.Size(479, 164)
-        Me.TabPage11.TabIndex = 3
-        Me.TabPage11.Text = "Spezifisch"
-        Me.TabPage11.UseVisualStyleBackColor = True
+        Me.tbKontaktSpez.Controls.Add(Me.ucKundenKontakte)
+        Me.tbKontaktSpez.Location = New System.Drawing.Point(4, 22)
+        Me.tbKontaktSpez.Name = "tbKontaktSpez"
+        Me.tbKontaktSpez.Padding = New System.Windows.Forms.Padding(3)
+        Me.tbKontaktSpez.Size = New System.Drawing.Size(479, 164)
+        Me.tbKontaktSpez.TabIndex = 3
+        Me.tbKontaktSpez.Text = "Spezifisch"
+        Me.tbKontaktSpez.UseVisualStyleBackColor = True
        '
        'ucKundenKontakte
        '
@@ -1966,10 +1980,10 @@ Partial Class usrCntlKundenuebersicht
        Me.grpSonstiges.Controls.Add(Me.Button1)
        Me.grpSonstiges.Controls.Add(Me.tbcntrAllg)
        Me.grpSonstiges.Controls.Add(Me.btncheckliste)
-        Me.grpSonstiges.Controls.Add(Me.Label4)
+        Me.grpSonstiges.Controls.Add(Me.lblUIDNr)
        Me.grpSonstiges.Controls.Add(Me.lblUid)
        Me.grpSonstiges.Controls.Add(Me.lblEORI)
-        Me.grpSonstiges.Controls.Add(Me.Label5)
+        Me.grpSonstiges.Controls.Add(Me.lblEORINr)
        Me.grpSonstiges.Controls.Add(Me.dgvAufschub)
        Me.grpSonstiges.Location = New System.Drawing.Point(3, 362)
        Me.grpSonstiges.Name = "grpSonstiges"
@@ -2055,27 +2069,27 @@ Partial Class usrCntlKundenuebersicht
        '
        'tbcntrAllg
        '
-        Me.tbcntrAllg.Controls.Add(Me.TabPage5)
-        Me.tbcntrAllg.Controls.Add(Me.TabPage9)
-        Me.tbcntrAllg.Controls.Add(Me.TabPage6)
-        Me.tbcntrAllg.Controls.Add(Me.TabPage7)
-        Me.tbcntrAllg.Controls.Add(Me.TabPage2)
+        Me.tbcntrAllg.Controls.Add(Me.tbVollmachten)
+        Me.tbcntrAllg.Controls.Add(Me.tbGestellGarant)
+        Me.tbcntrAllg.Controls.Add(Me.tbAvisoMail)
+        Me.tbcntrAllg.Controls.Add(Me.tbKdSpez)
+        Me.tbcntrAllg.Controls.Add(Me.tbSonstiges)
        Me.tbcntrAllg.Location = New System.Drawing.Point(6, 142)
        Me.tbcntrAllg.Name = "tbcntrAllg"
        Me.tbcntrAllg.SelectedIndex = 0
        Me.tbcntrAllg.Size = New System.Drawing.Size(487, 190)
        Me.tbcntrAllg.TabIndex = 205
        '
-        'TabPage5
+        'tbVollmachten
        '
-        Me.TabPage5.Controls.Add(Me.dgvVollmachten)
-        Me.TabPage5.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage5.Name = "TabPage5"
-        Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage5.Size = New System.Drawing.Size(479, 164)
-        Me.TabPage5.TabIndex = 0
-        Me.TabPage5.Text = "Vollmachten"
-        Me.TabPage5.UseVisualStyleBackColor = True
+        Me.tbVollmachten.Controls.Add(Me.dgvVollmachten)
+        Me.tbVollmachten.Location = New System.Drawing.Point(4, 22)
+        Me.tbVollmachten.Name = "tbVollmachten"
+        Me.tbVollmachten.Padding = New System.Windows.Forms.Padding(3)
+        Me.tbVollmachten.Size = New System.Drawing.Size(479, 164)
+        Me.tbVollmachten.TabIndex = 0
+        Me.tbVollmachten.Text = "Vollmachten"
+        Me.tbVollmachten.UseVisualStyleBackColor = True
        '
        'dgvVollmachten
        '
@@ -2097,17 +2111,17 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvVollmachten.Size = New System.Drawing.Size(473, 158)
        Me.dgvVollmachten.TabIndex = 4
        '
-        'TabPage9
+        'tbGestellGarant
        '
-        Me.TabPage9.Controls.Add(Me.dgvGestGarantie)
-        Me.TabPage9.Controls.Add(Me.Panel2)
-        Me.TabPage9.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage9.Name = "TabPage9"
-        Me.TabPage9.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage9.Size = New System.Drawing.Size(479, 164)
-        Me.TabPage9.TabIndex = 4
-        Me.TabPage9.Text = "Gestell.Garant."
-        Me.TabPage9.UseVisualStyleBackColor = True
+        Me.tbGestellGarant.Controls.Add(Me.dgvGestGarantie)
+        Me.tbGestellGarant.Controls.Add(Me.Panel2)
+        Me.tbGestellGarant.Location = New System.Drawing.Point(4, 22)
+        Me.tbGestellGarant.Name = "tbGestellGarant"
+        Me.tbGestellGarant.Padding = New System.Windows.Forms.Padding(3)
+        Me.tbGestellGarant.Size = New System.Drawing.Size(479, 164)
+        Me.tbGestellGarant.TabIndex = 4
+        Me.tbGestellGarant.Text = "Gestell.Garant."
+        Me.tbGestellGarant.UseVisualStyleBackColor = True
        '
        'dgvGestGarantie
        '
@@ -2239,16 +2253,16 @@ Partial Class usrCntlKundenuebersicht
        Me.Button9.UseVisualStyleBackColor = True
        Me.Button9.Visible = False
        '
-        'TabPage6
+        'tbAvisoMail
        '
-        Me.TabPage6.Controls.Add(Me.UsrCntlKundenAvisoMailBenachrichtigung1)
-        Me.TabPage6.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage6.Name = "TabPage6"
-        Me.TabPage6.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage6.Size = New System.Drawing.Size(479, 164)
-        Me.TabPage6.TabIndex = 1
-        Me.TabPage6.Text = "Aviso E-Mails"
-        Me.TabPage6.UseVisualStyleBackColor = True
+        Me.tbAvisoMail.Controls.Add(Me.UsrCntlKundenAvisoMailBenachrichtigung1)
+        Me.tbAvisoMail.Location = New System.Drawing.Point(4, 22)
+        Me.tbAvisoMail.Name = "tbAvisoMail"
+        Me.tbAvisoMail.Padding = New System.Windows.Forms.Padding(3)
+        Me.tbAvisoMail.Size = New System.Drawing.Size(479, 164)
+        Me.tbAvisoMail.TabIndex = 1
+        Me.tbAvisoMail.Text = "Aviso E-Mails"
+        Me.tbAvisoMail.UseVisualStyleBackColor = True
        '
        'UsrCntlKundenAvisoMailBenachrichtigung1
        '
@@ -2259,24 +2273,24 @@ Partial Class usrCntlKundenuebersicht
        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158)
        Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0
        '
-        'TabPage7
+        'tbKdSpez
        '
-        Me.TabPage7.Controls.Add(Me.Label14)
-        Me.TabPage7.Controls.Add(Me.txtInfoKdAtrNr)
-        Me.TabPage7.Controls.Add(Me.Label43)
-        Me.TabPage7.Controls.Add(Me.cbxKdAuftragsNr)
-        Me.TabPage7.Controls.Add(Me.RichTextBox1)
-        Me.TabPage7.Controls.Add(Me.Label31)
-        Me.TabPage7.Controls.Add(Me.rtbLKWFreigabeSenden)
-        Me.TabPage7.Controls.Add(Me.Label10)
-        Me.TabPage7.Controls.Add(Me.txtFixeKdAtrNr)
-        Me.TabPage7.Controls.Add(Me.FlatButton4)
-        Me.TabPage7.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage7.Name = "TabPage7"
-        Me.TabPage7.Size = New System.Drawing.Size(479, 164)
-        Me.TabPage7.TabIndex = 2
-        Me.TabPage7.Text = "Kundenspezifisch"
-        Me.TabPage7.UseVisualStyleBackColor = True
+        Me.tbKdSpez.Controls.Add(Me.Label14)
+        Me.tbKdSpez.Controls.Add(Me.txtInfoKdAtrNr)
+        Me.tbKdSpez.Controls.Add(Me.Label43)
+        Me.tbKdSpez.Controls.Add(Me.cbxKdAuftragsNr)
+        Me.tbKdSpez.Controls.Add(Me.RichTextBox1)
+        Me.tbKdSpez.Controls.Add(Me.Label31)
+        Me.tbKdSpez.Controls.Add(Me.rtbLKWFreigabeSenden)
+        Me.tbKdSpez.Controls.Add(Me.Label10)
+        Me.tbKdSpez.Controls.Add(Me.txtFixeKdAtrNr)
+        Me.tbKdSpez.Controls.Add(Me.FlatButton4)
+        Me.tbKdSpez.Location = New System.Drawing.Point(4, 22)
+        Me.tbKdSpez.Name = "tbKdSpez"
+        Me.tbKdSpez.Size = New System.Drawing.Size(479, 164)
+        Me.tbKdSpez.TabIndex = 2
+        Me.tbKdSpez.Text = "Kundenspezifisch"
+        Me.tbKdSpez.UseVisualStyleBackColor = True
        '
        'Label14
        '
@@ -2405,23 +2419,23 @@ Partial Class usrCntlKundenuebersicht
        Me.FlatButton4.Text = "Speichern"
        Me.FlatButton4.UseVisualStyleBackColor = True
        '
-        'TabPage2
+        'tbSonstiges
        '
-        Me.TabPage2.Controls.Add(Me.Label6)
-        Me.TabPage2.Controls.Add(Me.lblSteuernummer)
-        Me.TabPage2.Controls.Add(Me.lblAufZoll)
-        Me.TabPage2.Controls.Add(Me.Label9)
-        Me.TabPage2.Controls.Add(Me.lblAufEust)
-        Me.TabPage2.Controls.Add(Me.Label8)
-        Me.TabPage2.Controls.Add(Me.lblZnv)
-        Me.TabPage2.Controls.Add(Me.Label7)
-        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(479, 164)
-        Me.TabPage2.TabIndex = 3
-        Me.TabPage2.Text = "Sonstiges"
-        Me.TabPage2.UseVisualStyleBackColor = True
+        Me.tbSonstiges.Controls.Add(Me.Label6)
+        Me.tbSonstiges.Controls.Add(Me.lblSteuernummer)
+        Me.tbSonstiges.Controls.Add(Me.lblAufZoll)
+        Me.tbSonstiges.Controls.Add(Me.Label9)
+        Me.tbSonstiges.Controls.Add(Me.lblAufEust)
+        Me.tbSonstiges.Controls.Add(Me.Label8)
+        Me.tbSonstiges.Controls.Add(Me.lblZnv)
+        Me.tbSonstiges.Controls.Add(Me.Label7)
+        Me.tbSonstiges.Location = New System.Drawing.Point(4, 22)
+        Me.tbSonstiges.Name = "tbSonstiges"
+        Me.tbSonstiges.Padding = New System.Windows.Forms.Padding(3)
+        Me.tbSonstiges.Size = New System.Drawing.Size(479, 164)
+        Me.tbSonstiges.TabIndex = 3
+        Me.tbSonstiges.Text = "Sonstiges"
+        Me.tbSonstiges.UseVisualStyleBackColor = True
        '
        'Label6
        '
@@ -2529,15 +2543,15 @@ Partial Class usrCntlKundenuebersicht
        Me.btncheckliste.TextAlign = System.Drawing.ContentAlignment.BottomCenter
        Me.btncheckliste.UseVisualStyleBackColor = True
        '
-        'Label4
+        'lblUIDNr
        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.Location = New System.Drawing.Point(10, 16)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(57, 17)
-        Me.Label4.TabIndex = 193
-        Me.Label4.Text = "UId-Nr.:"
+        Me.lblUIDNr.AutoSize = True
+        Me.lblUIDNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblUIDNr.Location = New System.Drawing.Point(10, 16)
+        Me.lblUIDNr.Name = "lblUIDNr"
+        Me.lblUIDNr.Size = New System.Drawing.Size(57, 17)
+        Me.lblUIDNr.TabIndex = 193
+        Me.lblUIDNr.Text = "UId-Nr.:"
        '
        'lblUid
        '
@@ -2563,15 +2577,15 @@ Partial Class usrCntlKundenuebersicht
        Me.lblEORI.TabIndex = 197
        Me.lblEORI.Text = "AT000000000000000"
        '
-        'Label5
+        'lblEORINr
        '
-        Me.Label5.AutoSize = True
-        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label5.Location = New System.Drawing.Point(10, 37)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(69, 17)
-        Me.Label5.TabIndex = 193
-        Me.Label5.Text = "EORI-Nr.:"
+        Me.lblEORINr.AutoSize = True
+        Me.lblEORINr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblEORINr.Location = New System.Drawing.Point(10, 37)
+        Me.lblEORINr.Name = "lblEORINr"
+        Me.lblEORINr.Size = New System.Drawing.Size(69, 17)
+        Me.lblEORINr.TabIndex = 193
+        Me.lblEORINr.Text = "EORI-Nr.:"
        '
        'dgvAufschub
        '
@@ -2730,27 +2744,6 @@ Partial Class usrCntlKundenuebersicht
        Me.lblFirma.Text = "VERAG"
        Me.lblFirma.Visible = False
        '
-        'Label15
-        '
-        Me.Label15.AutoSize = True
-        Me.Label15.Location = New System.Drawing.Point(270, 235)
-        Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(61, 13)
-        Me.Label15.TabIndex = 235
-        Me.Label15.Text = "Verzollt bei:"
-        '
-        'txtVerzolltBei
-        '
-        Me.txtVerzolltBei.BackColor = System.Drawing.Color.White
-        Me.txtVerzolltBei.BorderStyle = System.Windows.Forms.BorderStyle.None
-        Me.txtVerzolltBei.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtVerzolltBei.ForeColor = System.Drawing.Color.Black
-        Me.txtVerzolltBei.Location = New System.Drawing.Point(358, 235)
-        Me.txtVerzolltBei.Name = "txtVerzolltBei"
-        Me.txtVerzolltBei.ReadOnly = True
-        Me.txtVerzolltBei.Size = New System.Drawing.Size(177, 13)
-        Me.txtVerzolltBei.TabIndex = 236
-        '
        'usrCntlKundenuebersicht
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2797,28 +2790,28 @@ Partial Class usrCntlKundenuebersicht
        Me.grpAdresse.ResumeLayout(False)
        Me.grpAdresse.PerformLayout()
        Me.tbKontakt.ResumeLayout(False)
-        Me.TabPage10.ResumeLayout(False)
-        Me.TabPage10.PerformLayout()
+        Me.tbKontaktKontakt.ResumeLayout(False)
+        Me.tbKontaktKontakt.PerformLayout()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.TabPage11.ResumeLayout(False)
+        Me.tbKontaktSpez.ResumeLayout(False)
        Me.grpSonstiges.ResumeLayout(False)
        Me.grpSonstiges.PerformLayout()
        Me.tbcntrAllg.ResumeLayout(False)
-        Me.TabPage5.ResumeLayout(False)
+        Me.tbVollmachten.ResumeLayout(False)
        CType(Me.dgvVollmachten, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.TabPage9.ResumeLayout(False)
+        Me.tbGestellGarant.ResumeLayout(False)
        CType(Me.dgvGestGarantie, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel2.ResumeLayout(False)
        Me.Panel2.PerformLayout()
-        Me.TabPage6.ResumeLayout(False)
-        Me.TabPage7.ResumeLayout(False)
-        Me.TabPage7.PerformLayout()
-        Me.TabPage2.ResumeLayout(False)
-        Me.TabPage2.PerformLayout()
+        Me.tbAvisoMail.ResumeLayout(False)
+        Me.tbKdSpez.ResumeLayout(False)
+        Me.tbKdSpez.PerformLayout()
+        Me.tbSonstiges.ResumeLayout(False)
+        Me.tbSonstiges.PerformLayout()
        CType(Me.dgvAufschub, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ContextMenuStrip1.ResumeLayout(False)
        Me.ContextMenuStrip3.ResumeLayout(False)
@@ -2868,7 +2861,7 @@ Partial Class usrCntlKundenuebersicht
    Friend WithEvents txtSammelrechnung As TextBox
    Friend WithEvents Label12 As Label
    Friend WithEvents txtVorauskasse As TextBox
-    Friend WithEvents Label42 As Label
+    Friend WithEvents lblVorkasse As Label
    Friend WithEvents pnlVERAGSnspr As Panel
    Friend WithEvents txtKundenbetreuerTeam As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents btnVeragAnspr As VERAG_PROG_ALLGEMEIN.FlatButton
@@ -2886,7 +2879,7 @@ Partial Class usrCntlKundenuebersicht
    Friend WithEvents txtUmsatzJahr As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label29 As Label
    Friend WithEvents txtOffenePosten As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents Label28 As Label
+    Friend WithEvents lblOffenePosten As Label
    Friend WithEvents cbxFiskalabfertigung As VERAG_PROG_ALLGEMEIN.MyCheckbox
    Friend WithEvents lblFisk As Label
    Friend WithEvents lblKreditlimit As VERAG_PROG_ALLGEMEIN.MyTextBox
@@ -2897,7 +2890,7 @@ Partial Class usrCntlKundenuebersicht
    Friend WithEvents Label41 As Label
    Friend WithEvents rtbAbf_Besonderheiten As RichTextBox
    Friend WithEvents lblNeutralisierung As TextBox
-    Friend WithEvents Label37 As Label
+    Friend WithEvents lblBesonderheiten As Label
    Friend WithEvents Label3 As Label
    Friend WithEvents lblNoGespr As Label
    Friend WithEvents lklGanzerText As LinkLabel
@@ -2914,7 +2907,7 @@ Partial Class usrCntlKundenuebersicht
    Friend WithEvents Label46 As Label
    Friend WithEvents grpAdresse As GroupBox
    Friend WithEvents tbKontakt As TabControl
-    Friend WithEvents TabPage10 As TabPage
+    Friend WithEvents tbKontaktKontakt As TabPage
    Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
    Friend WithEvents PictureBox1 As PictureBox
    Friend WithEvents lblAnsprechpartner As TextBox
@@ -2927,7 +2920,7 @@ Partial Class usrCntlKundenuebersicht
    Friend WithEvents lblTel As TextBox
    Friend WithEvents PictureBox3 As PictureBox
    Friend WithEvents PictureBox5 As PictureBox
-    Friend WithEvents TabPage11 As TabPage
+    Friend WithEvents tbKontaktSpez As TabPage
    Friend WithEvents ucKundenKontakte As usrCntlKundenKontakte
    Friend WithEvents Label38 As Label
    Friend WithEvents txtDebitorennr As TextBox
@@ -2945,9 +2938,9 @@ Partial Class usrCntlKundenuebersicht
    Friend WithEvents Button3 As Button
    Friend WithEvents Button1 As Button
    Friend WithEvents tbcntrAllg As TabControl
-    Friend WithEvents TabPage5 As TabPage
+    Friend WithEvents tbVollmachten As TabPage
    Friend WithEvents dgvVollmachten As DataGridView
-    Friend WithEvents TabPage9 As TabPage
+    Friend WithEvents tbGestellGarant As TabPage
    Friend WithEvents dgvGestGarantie As DataGridView
    Friend WithEvents Panel2 As Panel
    Friend WithEvents cbxGG As CheckBox
@@ -2956,9 +2949,9 @@ Partial Class usrCntlKundenuebersicht
    Friend WithEvents Label11 As Label
    Friend WithEvents Button8 As Button
    Friend WithEvents Button9 As Button
-    Friend WithEvents TabPage6 As TabPage
+    Friend WithEvents tbAvisoMail As TabPage
    Friend WithEvents UsrCntlKundenAvisoMailBenachrichtigung1 As usrCntlKundenAvisoMailBenachrichtigung
-    Friend WithEvents TabPage7 As TabPage
+    Friend WithEvents tbKdSpez As TabPage
    Friend WithEvents Label43 As Label
    Friend WithEvents cbxKdAuftragsNr As CheckBox
    Friend WithEvents RichTextBox1 As RichTextBox
@@ -2967,7 +2960,7 @@ Partial Class usrCntlKundenuebersicht
    Friend WithEvents Label10 As Label
    Friend WithEvents txtFixeKdAtrNr As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents FlatButton4 As VERAG_PROG_ALLGEMEIN.FlatButton
-    Friend WithEvents TabPage2 As TabPage
+    Friend WithEvents tbSonstiges As TabPage
    Friend WithEvents Label6 As Label
    Friend WithEvents lblSteuernummer As TextBox
    Friend WithEvents lblAufZoll As TextBox
@@ -2977,10 +2970,10 @@ Partial Class usrCntlKundenuebersicht
    Friend WithEvents lblZnv As TextBox
    Friend WithEvents Label7 As Label
    Friend WithEvents btncheckliste As VERAG_PROG_ALLGEMEIN.FlatButton
-    Friend WithEvents Label4 As Label
+    Friend WithEvents lblUIDNr As Label
    Friend WithEvents lblUid As TextBox
    Friend WithEvents lblEORI As TextBox
-    Friend WithEvents Label5 As Label
+    Friend WithEvents lblEORINr As Label
    Friend WithEvents dgvAufschub As VERAG_PROG_ALLGEMEIN.MyDatagridview
    Friend WithEvents KtoId As DataGridViewTextBoxColumn
    Friend WithEvents Art As DataGridViewTextBoxColumn
--- a/SDL/kunden/usrCntlKundenuebersicht.resx
+++ b/SDL/kunden/usrCntlKundenuebersicht.resx
@@ -120,9 +120,6 @@
  <metadata name="cntxtAddSdl.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
-  <metadata name="CheckVatService1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>135, 17</value>
-  </metadata>
  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
  <data name="Button4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -156,7 +156,7 @@ Public Class usrCntlKundenuebersicht

            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Vorauskasse_anzeigen", "SDL") Then
                txtVorauskasse.Visible = True
-                Label42.Visible = True
+                lblVorkasse.Visible = True
            End If
            If True Then 'VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Verwaltung", "SDL") Then
                btnThereforeKundeninfo.Visible = True
@@ -173,8 +173,8 @@ Public Class usrCntlKundenuebersicht

                    tbWeitereKundenDetails.TabPages.Remove(TabPage3)
                    tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
-                    tbcntrAllg.TabPages.Remove(TabPage6)
-                    tbcntrAllg.TabPages.Remove(TabPage7)
+                    tbcntrAllg.TabPages.Remove(tbAvisoMail)
+                    tbcntrAllg.TabPages.Remove(tbKdSpez)
                Catch ex As Exception

                End Try
@@ -220,7 +220,7 @@ Public Class usrCntlKundenuebersicht
                Button4.Visible = True
            End If

-
+            VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
        Catch ex As Exception
            '  MsgBox(ex.Message & ex.StackTrace)
        End Try
@@ -1950,7 +1950,7 @@ Public Class usrCntlKundenuebersicht
    End Sub

    Private Sub tbKontakt_TabIndexChanged(sender As Object, e As EventArgs) Handles tbKontakt.SelectedIndexChanged
-        If tbKontakt.SelectedTab Is TabPage11 Then
+        If tbKontakt.SelectedTab Is tbKontaktSpez Then
            initKdKontakSpeziell()
        End If
    End Sub