neu

SDL/Fakturierung/cFakturierung.vb

@@ -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)
 

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
 

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()  ??????????????

SDL/My 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

SDL/My 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>

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

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

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 Column1 As DataGridViewCheckBoxColumn
-    Friend WithEvents Button2 As Button
 End Class

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>

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

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.tbAvisoMail.SuspendLayout()
-        Me.TabPage7.SuspendLayout()
+        Me.tbKdSpez.SuspendLayout()
-        Me.TabPage2.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.lblVorkasse.AutoSize = True
-        Me.Label42.Location = New System.Drawing.Point(270, 267)
+        Me.lblVorkasse.Location = New System.Drawing.Point(270, 267)
-        Me.Label42.Name = "Label42"
+        Me.lblVorkasse.Name = "lblVorkasse"
-        Me.Label42.Size = New System.Drawing.Size(71, 13)
+        Me.lblVorkasse.Size = New System.Drawing.Size(71, 13)
-        Me.Label42.TabIndex = 225
+        Me.lblVorkasse.TabIndex = 225
-        Me.Label42.Text = "Vorauskasse:"
+        Me.lblVorkasse.Text = "Vorauskasse:"
-        Me.Label42.Visible = False
+        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.lblOffenePosten.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.lblOffenePosten.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.lblOffenePosten.Location = New System.Drawing.Point(7, 293)
-        Me.Label28.Name = "Label28"
+        Me.lblOffenePosten.Name = "lblOffenePosten"
-        Me.Label28.Size = New System.Drawing.Size(78, 13)
+        Me.lblOffenePosten.Size = New System.Drawing.Size(78, 13)
-        Me.Label28.TabIndex = 207
+        Me.lblOffenePosten.TabIndex = 207
-        Me.Label28.Text = "Offene Posten:"
+        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.lblBesonderheiten.AutoSize = True
-        Me.Label37.Location = New System.Drawing.Point(7, 16)
+        Me.lblBesonderheiten.Location = New System.Drawing.Point(7, 16)
-        Me.Label37.Name = "Label37"
+        Me.lblBesonderheiten.Name = "lblBesonderheiten"
-        Me.Label37.Size = New System.Drawing.Size(84, 13)
+        Me.lblBesonderheiten.Size = New System.Drawing.Size(84, 13)
-        Me.Label37.TabIndex = 23
+        Me.lblBesonderheiten.TabIndex = 23
-        Me.Label37.Text = "Besonderheiten:"
+        Me.lblBesonderheiten.Text = "Besonderheiten:"
         '
         'Label3
         '
@@ -1644,34 +1658,34 @@ Partial Class usrCntlKundenuebersicht
         '
         'tbKontakt
         '
-        Me.tbKontakt.Controls.Add(Me.TabPage10)
+        Me.tbKontakt.Controls.Add(Me.tbKontaktKontakt)
-        Me.tbKontakt.Controls.Add(Me.TabPage11)
+        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.tbKontaktKontakt.Controls.Add(Me.FlatButton1)
-        Me.TabPage10.Controls.Add(Me.PictureBox1)
+        Me.tbKontaktKontakt.Controls.Add(Me.PictureBox1)
-        Me.TabPage10.Controls.Add(Me.lblAnsprechpartner)
+        Me.tbKontaktKontakt.Controls.Add(Me.lblAnsprechpartner)
-        Me.TabPage10.Controls.Add(Me.lblMobil)
+        Me.tbKontaktKontakt.Controls.Add(Me.lblMobil)
-        Me.TabPage10.Controls.Add(Me.lblFax)
+        Me.tbKontaktKontakt.Controls.Add(Me.lblFax)
-        Me.TabPage10.Controls.Add(Me.lblEmail2)
+        Me.tbKontaktKontakt.Controls.Add(Me.lblEmail2)
-        Me.TabPage10.Controls.Add(Me.lblEmail)
+        Me.tbKontaktKontakt.Controls.Add(Me.lblEmail)
-        Me.TabPage10.Controls.Add(Me.PictureBox4)
+        Me.tbKontaktKontakt.Controls.Add(Me.PictureBox4)
-        Me.TabPage10.Controls.Add(Me.PictureBox2)
+        Me.tbKontaktKontakt.Controls.Add(Me.PictureBox2)
-        Me.TabPage10.Controls.Add(Me.lblTel)
+        Me.tbKontaktKontakt.Controls.Add(Me.lblTel)
-        Me.TabPage10.Controls.Add(Me.PictureBox3)
+        Me.tbKontaktKontakt.Controls.Add(Me.PictureBox3)
-        Me.TabPage10.Controls.Add(Me.PictureBox5)
+        Me.tbKontaktKontakt.Controls.Add(Me.PictureBox5)
-        Me.TabPage10.Location = New System.Drawing.Point(4, 22)
+        Me.tbKontaktKontakt.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage10.Name = "TabPage10"
+        Me.tbKontaktKontakt.Name = "tbKontaktKontakt"
-        Me.TabPage10.Size = New System.Drawing.Size(479, 164)
+        Me.tbKontaktKontakt.Size = New System.Drawing.Size(479, 164)
-        Me.TabPage10.TabIndex = 2
+        Me.tbKontaktKontakt.TabIndex = 2
-        Me.TabPage10.Text = "Kontakt"
+        Me.tbKontaktKontakt.Text = "Kontakt"
-        Me.TabPage10.UseVisualStyleBackColor = True
+        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.tbKontaktSpez.Controls.Add(Me.ucKundenKontakte)
-        Me.TabPage11.Location = New System.Drawing.Point(4, 22)
+        Me.tbKontaktSpez.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage11.Name = "TabPage11"
+        Me.tbKontaktSpez.Name = "tbKontaktSpez"
-        Me.TabPage11.Padding = New System.Windows.Forms.Padding(3)
+        Me.tbKontaktSpez.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage11.Size = New System.Drawing.Size(479, 164)
+        Me.tbKontaktSpez.Size = New System.Drawing.Size(479, 164)
-        Me.TabPage11.TabIndex = 3
+        Me.tbKontaktSpez.TabIndex = 3
-        Me.TabPage11.Text = "Spezifisch"
+        Me.tbKontaktSpez.Text = "Spezifisch"
-        Me.TabPage11.UseVisualStyleBackColor = True
+        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.tbVollmachten)
-        Me.tbcntrAllg.Controls.Add(Me.TabPage9)
+        Me.tbcntrAllg.Controls.Add(Me.tbGestellGarant)
-        Me.tbcntrAllg.Controls.Add(Me.TabPage6)
+        Me.tbcntrAllg.Controls.Add(Me.tbAvisoMail)
-        Me.tbcntrAllg.Controls.Add(Me.TabPage7)
+        Me.tbcntrAllg.Controls.Add(Me.tbKdSpez)
-        Me.tbcntrAllg.Controls.Add(Me.TabPage2)
+        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.tbVollmachten.Controls.Add(Me.dgvVollmachten)
-        Me.TabPage5.Location = New System.Drawing.Point(4, 22)
+        Me.tbVollmachten.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage5.Name = "TabPage5"
+        Me.tbVollmachten.Name = "tbVollmachten"
-        Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
+        Me.tbVollmachten.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage5.Size = New System.Drawing.Size(479, 164)
+        Me.tbVollmachten.Size = New System.Drawing.Size(479, 164)
-        Me.TabPage5.TabIndex = 0
+        Me.tbVollmachten.TabIndex = 0
-        Me.TabPage5.Text = "Vollmachten"
+        Me.tbVollmachten.Text = "Vollmachten"
-        Me.TabPage5.UseVisualStyleBackColor = True
+        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.tbGestellGarant.Controls.Add(Me.dgvGestGarantie)
-        Me.TabPage9.Controls.Add(Me.Panel2)
+        Me.tbGestellGarant.Controls.Add(Me.Panel2)
-        Me.TabPage9.Location = New System.Drawing.Point(4, 22)
+        Me.tbGestellGarant.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage9.Name = "TabPage9"
+        Me.tbGestellGarant.Name = "tbGestellGarant"
-        Me.TabPage9.Padding = New System.Windows.Forms.Padding(3)
+        Me.tbGestellGarant.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage9.Size = New System.Drawing.Size(479, 164)
+        Me.tbGestellGarant.Size = New System.Drawing.Size(479, 164)
-        Me.TabPage9.TabIndex = 4
+        Me.tbGestellGarant.TabIndex = 4
-        Me.TabPage9.Text = "Gestell.Garant."
+        Me.tbGestellGarant.Text = "Gestell.Garant."
-        Me.TabPage9.UseVisualStyleBackColor = True
+        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.tbAvisoMail.Controls.Add(Me.UsrCntlKundenAvisoMailBenachrichtigung1)
-        Me.TabPage6.Location = New System.Drawing.Point(4, 22)
+        Me.tbAvisoMail.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage6.Name = "TabPage6"
+        Me.tbAvisoMail.Name = "tbAvisoMail"
-        Me.TabPage6.Padding = New System.Windows.Forms.Padding(3)
+        Me.tbAvisoMail.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage6.Size = New System.Drawing.Size(479, 164)
+        Me.tbAvisoMail.Size = New System.Drawing.Size(479, 164)
-        Me.TabPage6.TabIndex = 1
+        Me.tbAvisoMail.TabIndex = 1
-        Me.TabPage6.Text = "Aviso E-Mails"
+        Me.tbAvisoMail.Text = "Aviso E-Mails"
-        Me.TabPage6.UseVisualStyleBackColor = True
+        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.tbKdSpez.Controls.Add(Me.Label14)
-        Me.TabPage7.Controls.Add(Me.txtInfoKdAtrNr)
+        Me.tbKdSpez.Controls.Add(Me.txtInfoKdAtrNr)
-        Me.TabPage7.Controls.Add(Me.Label43)
+        Me.tbKdSpez.Controls.Add(Me.Label43)
-        Me.TabPage7.Controls.Add(Me.cbxKdAuftragsNr)
+        Me.tbKdSpez.Controls.Add(Me.cbxKdAuftragsNr)
-        Me.TabPage7.Controls.Add(Me.RichTextBox1)
+        Me.tbKdSpez.Controls.Add(Me.RichTextBox1)
-        Me.TabPage7.Controls.Add(Me.Label31)
+        Me.tbKdSpez.Controls.Add(Me.Label31)
-        Me.TabPage7.Controls.Add(Me.rtbLKWFreigabeSenden)
+        Me.tbKdSpez.Controls.Add(Me.rtbLKWFreigabeSenden)
-        Me.TabPage7.Controls.Add(Me.Label10)
+        Me.tbKdSpez.Controls.Add(Me.Label10)
-        Me.TabPage7.Controls.Add(Me.txtFixeKdAtrNr)
+        Me.tbKdSpez.Controls.Add(Me.txtFixeKdAtrNr)
-        Me.TabPage7.Controls.Add(Me.FlatButton4)
+        Me.tbKdSpez.Controls.Add(Me.FlatButton4)
-        Me.TabPage7.Location = New System.Drawing.Point(4, 22)
+        Me.tbKdSpez.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage7.Name = "TabPage7"
+        Me.tbKdSpez.Name = "tbKdSpez"
-        Me.TabPage7.Size = New System.Drawing.Size(479, 164)
+        Me.tbKdSpez.Size = New System.Drawing.Size(479, 164)
-        Me.TabPage7.TabIndex = 2
+        Me.tbKdSpez.TabIndex = 2
-        Me.TabPage7.Text = "Kundenspezifisch"
+        Me.tbKdSpez.Text = "Kundenspezifisch"
-        Me.TabPage7.UseVisualStyleBackColor = True
+        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.tbSonstiges.Controls.Add(Me.Label6)
-        Me.TabPage2.Controls.Add(Me.lblSteuernummer)
+        Me.tbSonstiges.Controls.Add(Me.lblSteuernummer)
-        Me.TabPage2.Controls.Add(Me.lblAufZoll)
+        Me.tbSonstiges.Controls.Add(Me.lblAufZoll)
-        Me.TabPage2.Controls.Add(Me.Label9)
+        Me.tbSonstiges.Controls.Add(Me.Label9)
-        Me.TabPage2.Controls.Add(Me.lblAufEust)
+        Me.tbSonstiges.Controls.Add(Me.lblAufEust)
-        Me.TabPage2.Controls.Add(Me.Label8)
+        Me.tbSonstiges.Controls.Add(Me.Label8)
-        Me.TabPage2.Controls.Add(Me.lblZnv)
+        Me.tbSonstiges.Controls.Add(Me.lblZnv)
-        Me.TabPage2.Controls.Add(Me.Label7)
+        Me.tbSonstiges.Controls.Add(Me.Label7)
-        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.tbSonstiges.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage2.Name = "TabPage2"
+        Me.tbSonstiges.Name = "tbSonstiges"
-        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.tbSonstiges.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(479, 164)
+        Me.tbSonstiges.Size = New System.Drawing.Size(479, 164)
-        Me.TabPage2.TabIndex = 3
+        Me.tbSonstiges.TabIndex = 3
-        Me.TabPage2.Text = "Sonstiges"
+        Me.tbSonstiges.Text = "Sonstiges"
-        Me.TabPage2.UseVisualStyleBackColor = True
+        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.lblUIDNr.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.lblUIDNr.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.lblUIDNr.Location = New System.Drawing.Point(10, 16)
-        Me.Label4.Name = "Label4"
+        Me.lblUIDNr.Name = "lblUIDNr"
-        Me.Label4.Size = New System.Drawing.Size(57, 17)
+        Me.lblUIDNr.Size = New System.Drawing.Size(57, 17)
-        Me.Label4.TabIndex = 193
+        Me.lblUIDNr.TabIndex = 193
-        Me.Label4.Text = "UId-Nr.:"
+        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.lblEORINr.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.lblEORINr.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.lblEORINr.Location = New System.Drawing.Point(10, 37)
-        Me.Label5.Name = "Label5"
+        Me.lblEORINr.Name = "lblEORINr"
-        Me.Label5.Size = New System.Drawing.Size(69, 17)
+        Me.lblEORINr.Size = New System.Drawing.Size(69, 17)
-        Me.Label5.TabIndex = 193
+        Me.lblEORINr.TabIndex = 193
-        Me.Label5.Text = "EORI-Nr.:"
+        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.tbKontaktKontakt.ResumeLayout(False)
-        Me.TabPage10.PerformLayout()
+        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.tbAvisoMail.ResumeLayout(False)
-        Me.TabPage7.ResumeLayout(False)
+        Me.tbKdSpez.ResumeLayout(False)
-        Me.TabPage7.PerformLayout()
+        Me.tbKdSpez.PerformLayout()
-        Me.TabPage2.ResumeLayout(False)
+        Me.tbSonstiges.ResumeLayout(False)
-        Me.TabPage2.PerformLayout()
+        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

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>

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(tbAvisoMail)
-                    tbcntrAllg.TabPages.Remove(TabPage7)
+                    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

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb

@@ -19,6 +19,7 @@ Public Class MyComboBox
     End Sub
     Sub fillWithSQL(sqlstr As String, Optional showValueInText As Boolean = True, Optional conn As String = "SDL", Optional firstEmpty As Boolean = False, Optional clearList As Boolean = True)
         fillWithMyListItem((New SQL).loadCboBySqlWithListItem(sqlstr, showValueInText, conn), firstEmpty, clearList)
+        _TRANSLATE()
     End Sub
 
     Public Property _value As String
@@ -134,5 +135,45 @@ Public Class MyComboBox
 
         '  MsgBox(Me._value)
     End Sub
+
+
+    Public Sub _TRANSLATE()
+        Try
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "" Then Exit Sub
+        If VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "DE" Then Exit Sub
+
+        Dim lanTxtAll = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = Me.FindForm.Name And x.trs_control = Me.Name And x.trs_sprache = VERAG_PROG_ALLGEMEIN.cAllgemein._LAN)
+        If lanTxtAll.Count > 0 Then
+
+            Dim listItems(Me.Items.Count) As MyListItem
+            Me.Items.CopyTo(listItems, 0)
+
+                Me.Items.Clear()
+
+                For Each l In listItems
+                    If l IsNot Nothing Then
+
+                        Dim lanTxt = l.Text
+                        For Each txt In lanTxtAll
+                        If txt.trs_subControl IsNot DBNull.Value AndAlso txt.trs_subControl = l.Text Then
+                            lanTxt = txt.trs_text
+                        End If
+                    Next
+                    '   Dim lanTxt = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.Find(Function(x) x.trs_object = Me.FindForm.Name And x.trs_control = Me.Name And x.trs_sprache = VERAG_PROG_ALLGEMEIN.cAllgemein._LAN And (x.trs_subControl IsNot DBNull.Value AndAlso x.trs_subControl = l.Text))
+                    '  MsgBox(If(lanTxt Is Nothing, "noth " & Me.Name, lanTxt.trs_text))
+                    Me.Items.Add(New MyListItem(lanTxt, l.Value))
+
+                    End If
+                Next
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+    End Sub
+
+
+
 End Class
 

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyDatagridview.vb

@@ -134,6 +134,7 @@ Public Class MyDatagridview
     Public Sub LOAD(Optional showErr As Boolean = False, Optional ByRef errOccured As Boolean = False)
         If SQL_STR <> "" Then
             Me.DataSource = SQL.loadDgvBySql_Param(SQL_STR, CONN_ART, , SQL_PARAM, showErr, errOccured)
+            Me._TRANSLATE()
         End If
     End Sub
 
@@ -291,4 +292,28 @@ Public Class MyDatagridview
     End Function
 
 #End Region
+
+
+
+    Public Sub _TRANSLATE()
+        Try
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "" Then Exit Sub
+            If VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "DE" Then Exit Sub
+
+            Dim lanTxtAll = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = Me.FindForm.Name And x.trs_control = Me.Name And x.trs_sprache = VERAG_PROG_ALLGEMEIN.cAllgemein._LAN)
+            If lanTxtAll.Count > 0 Then
+                For Each txt In lanTxtAll
+                    If Me.Columns(txt.trs_subControl) IsNot Nothing Then
+                        Me.Columns(txt.trs_subControl).HeaderText = txt.trs_text
+                    End If
+                Next
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+    End Sub
+
+
 End Class

VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb

@@ -75,6 +75,7 @@ Public Class cMitarbeiter
     Property mit_MAVerzeichnis_Spitzname As Object = Nothing
 
     Property mit_foto_DocId As Object = Nothing
+    Property mit_sprache As String = "DE"
 
 
     Dim SQL As New SQL
@@ -179,6 +180,7 @@ Public Class cMitarbeiter
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_Spitzname", mit_MAVerzeichnis_Spitzname))
 
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_foto_DocId", mit_foto_DocId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_sprache", mit_sprache))
 
         Return list
     End Function
@@ -364,6 +366,7 @@ Public Class cMitarbeiter
                             If Not dr.Item("mit_foto_DocId") Is DBNull.Value Then Me.mit_foto_DocId = dr.Item("mit_foto_DocId")
                             If Not dr.Item("mit_MAVerzeichnis_Spitzname") Is DBNull.Value Then Me.mit_MAVerzeichnis_Spitzname = dr.Item("mit_MAVerzeichnis_Spitzname")
                             If Not dr.Item("mit_MAVerzeichnis_Motto") Is DBNull.Value Then Me.mit_MAVerzeichnis_Motto = dr.Item("mit_MAVerzeichnis_Motto")
+                            If Not dr.Item("mit_sprache") Is DBNull.Value Then Me.mit_sprache = dr.Item("mit_sprache")
 
 
 

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -102,6 +102,7 @@ Public Class cRechnungsausgang
     Property KdAuftragsNr As Object = Nothing
     Property Handling As Object = Nothing
     Property VorschauID As Object = Nothing
+    Property Grenze As Object = Nothing
 
 
 
@@ -240,6 +241,7 @@ Public Class cRechnungsausgang
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNr", KdAuftragsNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Handling", Handling))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VorschauID", VorschauID))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Grenze", Grenze))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/cAllgemein.vb

@@ -43,7 +43,7 @@ Public Class cAllgemein
     Public Shared BENUTZER_BERECHTIGUNGS_GRUPPEN As cBerechtigungenBenutzerGruppenZuordnung_List = Nothing
     Public Shared PARAMS As cParameterList = Nothing
     Public Shared TRANSLATE As cTranslate_LIST = Nothing
-    Public Shared _LAN As String = "" '"EN"
+    Public Shared _LAN As String = "DE" '"EN"
 
     Public Shared SESSION As New cSession
 
@@ -57,6 +57,7 @@ Public Class cAllgemein
         If MITARBEITER.LOAD(USRID) Then
             USR_NNAME = MITARBEITER.mit_nname
             USR_VNAME = MITARBEITER.mit_vname
+            _LAN = MITARBEITER.mit_sprache
 
             USR_HrFrNAME = ""
             Select Case MITARBEITER.mit_geschlecht
@@ -129,17 +130,57 @@ Public Class cAllgemein
         'o... Form
         's... SubContainer
         'c... Control
-
+        '  MsgBox(o.GetType.ToString & " - " & o.name)
         Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = o.Name And x.trs_sprache = lan)
         If TextTmp IsNot Nothing Then
             For Each TXT As cTranslate In TextTmp
                 Dim found = o.Controls.Find(TXT.trs_control, True)
+
+                '   MsgBox(TXT.trs_control)
                 If found IsNot Nothing AndAlso found.Count > 0 Then
+                    '   MsgBox("JA")
                     Dim obj As System.Windows.Forms.Control = found(0)
                     If obj IsNot Nothing Then
                         If (TypeOf obj Is System.Windows.Forms.Label) Then
                             DirectCast(obj, System.Windows.Forms.Label).Text = TXT.trs_text
                         End If
+                        If (TypeOf obj Is System.Windows.Forms.Button) Or (TypeOf obj Is VERAG_PROG_ALLGEMEIN.FlatButton) Then
+                            DirectCast(obj, System.Windows.Forms.Button).Text = TXT.trs_text
+                        End If
+                        If (TypeOf obj Is System.Windows.Forms.TabPage) Then
+                            DirectCast(obj, System.Windows.Forms.TabPage).Text = TXT.trs_text
+                        End If
+                        If (TypeOf obj Is System.Windows.Forms.RadioButton) Or (TypeOf obj Is VERAG_PROG_ALLGEMEIN.MyRadioButton) Then
+                            DirectCast(obj, System.Windows.Forms.RadioButton).Text = TXT.trs_text
+                        End If
+                        If (TypeOf obj Is System.Windows.Forms.GroupBox) Then
+                            DirectCast(obj, System.Windows.Forms.GroupBox).Text = TXT.trs_text
+                        End If
+                        'If (TypeOf obj Is System.Windows.Forms.TabControl) Then -->in Tabpage geregelt
+                        '    For Each tb As System.Windows.Forms.TabPage In DirectCast(obj, System.Windows.Forms.TabControl).TabPages
+                        '        If tb.Name = TXT.trs_subControl Then
+                        '            tb.Text = TXT.trs_text
+                        '        End If
+                        '    Next
+                        'End If
+
+                        If (TypeOf obj Is System.Windows.Forms.ComboBox) Or (TypeOf obj Is VERAG_PROG_ALLGEMEIN.MyComboBox) Then
+                            'DirectCast(obj, System.Windows.Forms.Label).Text = TXT.trs_text
+
+                        End If
+                        'If (TypeOf obj Is VERAG_PROG_ALLGEMEIN.MyComboBox) Then
+
+                        '    Dim cboItems = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = o.Name And x.trs_sprache = lan And x.trs_control = TXT.trs_control)
+
+                        '    For Each item As VERAG_PROG_ALLGEMEIN.MyListItem In DirectCast(obj, VERAG_PROG_ALLGEMEIN.MyComboBox).Items
+                        '        For Each sitem As cTranslate In cboItems
+                        '            If item.Text = sitem.trs_subControl Then
+                        '                Dim index = DirectCast(obj, VERAG_PROG_ALLGEMEIN.MyComboBox).Items(0).Equals
+                        '                DirectCast(DirectCast(obj, VERAG_PROG_ALLGEMEIN.MyComboBox).Items(item), VERAG_PROG_ALLGEMEIN.MyListItem).Text = sitem.trs_text
+                        '            End If
+                        '        Next
+                        '    Next
+                        'End If
                     End If
                 End If
             Next