Kundenuebersicht etc.

2026-11-11 10:22:14 +01:00
parent 104287f89b
commit a5e1bd9672
15 changed files with 10729 additions and 2588 deletions
--- a/SDL/SDL.vbproj
+++ b/SDL/SDL.vbproj
@@ -1219,6 +1219,12 @@
    <Compile Include="kunden\usrcntlFiskaluebersicht.vb">
      <SubType>UserControl</SubType>
    </Compile>
+    <Compile Include="kunden\usrcntlKundeBearbeitenFull_SDL.Designer.vb">
+      <DependentUpon>usrcntlKundeBearbeitenFull_SDL.vb</DependentUpon>
+    </Compile>
+    <Compile Include="kunden\usrcntlKundeBearbeitenFull_SDL.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
    <Compile Include="kunden\usrCntlKundenBesonderheiten.Designer.vb">
      <DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon>
    </Compile>
@@ -3892,6 +3898,9 @@
    <EmbeddedResource Include="kunden\usrcntlFiskaluebersicht.resx">
      <DependentUpon>usrcntlFiskaluebersicht.vb</DependentUpon>
    </EmbeddedResource>
+    <EmbeddedResource Include="kunden\usrcntlKundeBearbeitenFull_SDL.resx">
+      <DependentUpon>usrcntlKundeBearbeitenFull_SDL.vb</DependentUpon>
+    </EmbeddedResource>
    <EmbeddedResource Include="kunden\usrCntlKundenBesonderheiten.resx">
      <DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon>
    </EmbeddedResource>
--- a/SDL/kunden/Berichte/rptKundeUebersicht.vb
+++ b/SDL/kunden/Berichte/rptKundeUebersicht.vb
@@ -1,6 +1,3 @@
-Imports GrapeCity.ActiveReports 
-Imports GrapeCity.ActiveReports.Document
-
 Public Class rptKundeUebersicht

    Dim Firma_ID = "1"
@@ -41,6 +38,9 @@ Public Class rptKundeUebersicht
            Case "ATILLA" : Me.picVERAG.Image = My.Resources.Atilla : Me.Label28.Text = "ATILLA Spedition"
            Case "UNISPED" : Me.picVERAG.Image = My.Resources.Unisped_logo : Me.Label28.Text = "UNISPED Speditions GmbH"
            Case Else
+                If Firma_ID = 19 Then
+                    Me.picVERAG.Image = My.Resources.VERAG_360 : Me.Label28.Text = "VERAG 360 GmbH"
+                End If
        End Select


--- a/SDL/kunden/frmKundenblatt.Designer.vb
+++ b/SDL/kunden/frmKundenblatt.Designer.vb
--- a/SDL/kunden/frmKundenblatt.vb
+++ b/SDL/kunden/frmKundenblatt.vb
@@ -8,7 +8,6 @@ Imports VERAG_PROG_ALLGEMEIN


 Public Class frmKundenblatt
-    '  Public superuser As Boolean = False
    Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
    Public kdNr As Integer
    Public FilialeNr As Integer = -1
@@ -16,24 +15,16 @@ Public Class frmKundenblatt
    Private bindingLKW As New BindingSource
    Private dataAdapterLKW As New SqlDataAdapter
    Dim lkwKzChange As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
-    ' Dim KUNDE As cKunde = Nothing
    Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
    Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
    Dim KUNDE_K_RE As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing
    Dim KUNDE_K_GF As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing

-    '  Public BERECHTIGUNEN As List(Of cBerechtigungen) = Nothing
-
-    '  Private dataAdapterFirma As New SqlDataAdapter
-    '  Private dataFirma As New DataTable
-    'Private bindingFirma As New BindingSource
    Public showEdit As Boolean = False
    Private bindingSDL As New BindingSource
    Private dataAdapterSDL As New SqlDataAdapter

-    'Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
-    ' Dim acd As List(Of cAutoCompleteData) = kundenSQL.getKundenShort()

    Private loaded As Boolean = False
    Dim gridReady As Boolean = True
@@ -120,9 +111,6 @@ Public Class frmKundenblatt
            cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez]  FROM [tblFirma] WHERE 1=1 " & where, True, "FMZOLL", True)
        End If

-        If FilialeNr > 0 Then
-            UsrcntlKundeBearbeitenFull1.Filiale = FilialeNr
-        End If

        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Bonität_Bearbeiten", "SDL") Then
            btnBonitaetBearbeiten.Visible = True
@@ -192,6 +180,10 @@ Public Class frmKundenblatt

        If isVerag360 Then
            ToolStripMenuItem5.Visible = False
+        Else
+            ToolStripMenuItem7.Visible = False
+            ToolStripMenuItem4.Visible = False
+            ToolStripMenuItem8.Visible = False
        End If

        loaded = True
@@ -263,7 +255,7 @@ Public Class frmKundenblatt
            lblBonitaet.Text = If(KUNDE.Bonität, "")

        Else
-            UsrcntlKundeBearbeitenFull1.Enabled = False
+            'UsrcntlKundeBearbeitenFull1.Enabled = False
            tbcntrMain.TabPages(2).Enabled = True
            initTABSDL_Firmendaten()

@@ -362,21 +354,62 @@ Public Class frmKundenblatt
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kundendaten_bearbeiten", Me) = 0 Then
            tbcntrMain.TabPages(1).Enabled = False
            ' cProgramFunctions.setAllReadOnly(Panel4)
+        Else
+            tbcntrMain.TabPages(1).Enabled = True

        End If
+
+        If Not cAllgemein.PROGID = 16 Then
+
+
+
+            Dim CNTL_KUNDE_FULL As New usrcntlKundeBearbeitenFull_SDL
+
+            With CNTL_KUNDE_FULL
+                .Dock = DockStyle.Fill
+                .Visible = True
+            End With
+            Panel4.Controls.Add(CNTL_KUNDE_FULL)
+
+            CNTL_KUNDE_FULL.Enabled = True
+            CNTL_KUNDE_FULL.init(kdNr, True)
+
+            'If IsNumeric(kdNr) AndAlso kdNr >= 0 Then
+
+            If FilialeNr > 0 Then
+                CNTL_KUNDE_FULL.cboFiliale.changeItem(FilialeNr)
+            End If
+            'End If
+
+
+
+        Else
+            Dim CNTL_KUNDE_FULL As New usrcntlKundeBearbeitenFull
+
+            With CNTL_KUNDE_FULL
+                .Dock = DockStyle.Fill
+                .Visible = True
+            End With
+
+            Panel4.Controls.Add(CNTL_KUNDE_FULL)
+
+            'If IsNumeric(kdNr) AndAlso kdNr >= 0 Then
+            CNTL_KUNDE_FULL.init(kdNr, False)
+            CNTL_KUNDE_FULL.Enabled = True
+
+            If FilialeNr > 0 Then
+                    CNTL_KUNDE_FULL.cboFiliale.changeItem(FilialeNr)
+                End If
+
+            'Else
+            ' CNTL_KUNDE_FULL.Enabled = False
+            'End If
+
+
+        End If
+
        tbcntrMain.TabPages(1).Enabled = True
-        UsrcntlKundeBearbeitenFull1.Enabled = True

-        '  If kdNr > 0 Then
-
-        'Dim usr As New usrcntlKundeBearbeitenFull(kdNr)
-
-        UsrcntlKundeBearbeitenFull1.init(kdNr, isVerag360)
-
-        If FilialeNr > 0 Then
-            UsrcntlKundeBearbeitenFull1.cboFiliale.changeItem(FilialeNr)
-        End If
-        'End If
    End Sub

    Sub initTABVERAGCard()
@@ -475,7 +508,6 @@ Public Class frmKundenblatt

        If kdNr > 0 Then
            rtbGespreachsbericht.Text = checkNullStr(KUNDE.Gesprächsbericht)
-            txtFIBUKuerzel.Text = checkNullStr(KUNDE_ERW.kde_BezFIBU)
            txtZinsbelastungNew.Text = checkNullStr(KUNDE_ERW.kde_zinssatz)
            txtZinsbelastungTolInTagen.Text = checkNullStr(KUNDE_ERW.kde_abwToleranzTage)

@@ -1537,40 +1569,40 @@ Public Class frmKundenblatt
            End If

            Select Case tmpSDLNr
-                    Case 100 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.IDSKundenNr 'IDS
-                    Case 200 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.ATKundenNr : btnBestelldateiErzeugen.Visible = True
-                    Case 212 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.UTAKundenNr 'UTA
-                    Case 101 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.WölflKundenNr 'WÖLFL
-                    Case 202 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.TELEPASS_Kd_Nr 'TELEPASS
-                    Case 214, 215, 216, 217, 218 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr 'PLOSE
+                Case 100 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.IDSKundenNr 'IDS
+                Case 200 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.ATKundenNr : btnBestelldateiErzeugen.Visible = True
+                Case 212 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.UTAKundenNr 'UTA
+                Case 101 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.WölflKundenNr 'WÖLFL
+                Case 202 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.TELEPASS_Kd_Nr 'TELEPASS
+                Case 214, 215, 216, 217, 218 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr 'PLOSE

-                    Case 201 : grpMautDE.Visible = True : Panel2.Visible = False 'MAUT DE
-                        txtMautDE_FlottenPIN.Text = PartnerKdNrFromFMZOLL.MautDE_FlottenPIN 'MAUT DE
-                        txtMautDEMasterPIN.Text = PartnerKdNrFromFMZOLL.MautDE_MasterPIN 'MAUT DE
-                        txtMautDE_BenutzerNr.Text = PartnerKdNrFromFMZOLL.MautDE_BenutzerNr 'MAUT DE
-                    Case 203, 204, 206, 207, 208, 209, 211, 205, 213 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr 'MSE 205??
-                    Case 210, 500 : Panel2.Visible = False
-                    Case Else : Panel2.Visible = False : Exit Sub
-                End Select
+                Case 201 : grpMautDE.Visible = True : Panel2.Visible = False 'MAUT DE
+                    txtMautDE_FlottenPIN.Text = PartnerKdNrFromFMZOLL.MautDE_FlottenPIN 'MAUT DE
+                    txtMautDEMasterPIN.Text = PartnerKdNrFromFMZOLL.MautDE_MasterPIN 'MAUT DE
+                    txtMautDE_BenutzerNr.Text = PartnerKdNrFromFMZOLL.MautDE_BenutzerNr 'MAUT DE
+                Case 203, 204, 206, 207, 208, 209, 211, 205, 213 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr 'MSE 205??
+                Case 210, 500 : Panel2.Visible = False
+                Case Else : Panel2.Visible = False : Exit Sub
+            End Select

-                Select Case tmpSDLNr
-                    Case 202
-                        scanJaraVereinbarung.Visible = True
-                        '     scanJaraVertretung.Visible = True
-                        scanErstbestellung.Visible = True
-                    Case 203 : scanErstbestellung.Visible = True
-                    Case 209 : scanErstbestellung.Visible = True
-                    Case 215 : scanErstbestellung.Visible = True' PLOSE IT
-                    Case 214, 217, 218 : scanErstbestellung.Visible = True 'PLOSE Roadmaster
-                    Case 211
-                        '    scanErstbestellung.Visible = True
-                        scanMWSTAgreement.Visible = True
-                        ' Case 100 : scanErstbestellung.Visible = True
-                        '  Case 212 : scanErstbestellung.Visible = True
+            Select Case tmpSDLNr
+                Case 202
+                    scanJaraVereinbarung.Visible = True
+                    '     scanJaraVertretung.Visible = True
+                    scanErstbestellung.Visible = True
+                Case 203 : scanErstbestellung.Visible = True
+                Case 209 : scanErstbestellung.Visible = True
+                Case 215 : scanErstbestellung.Visible = True' PLOSE IT
+                Case 214, 217, 218 : scanErstbestellung.Visible = True 'PLOSE Roadmaster
+                Case 211
+                    '    scanErstbestellung.Visible = True
+                    scanMWSTAgreement.Visible = True
+                    ' Case 100 : scanErstbestellung.Visible = True
+                    '  Case 212 : scanErstbestellung.Visible = True

-                    Case Else : Exit Sub
-                End Select
-            End If
+                Case Else : Exit Sub
+            End Select
+        End If
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click, Button15.Click
@@ -2017,7 +2049,7 @@ Public Class frmKundenblatt
        End If
    End Sub

-    Private Sub UsrcntlKundeBearbeitenFull1_KD_SAVED(kdnrTMP As Object) Handles UsrcntlKundeBearbeitenFull1.KD_SAVED
+    Private Sub UsrcntlKundeBearbeitenFull1_KD_SAVED(kdnrTMP As Object)
        If Me.kdNr < 0 And kdnrTMP > 0 Then
            KdSearchBox1.KdNr = kdnrTMP
        End If
@@ -3010,7 +3042,7 @@ Public Class frmKundenblatt
    End Sub

    Private Sub btn_FIBU_speichern_Click(sender As Object, e As EventArgs) Handles btn_FIBU_speichern.Click
-        KUNDE_ERW.kde_BezFIBU = checkNullStr(txtFIBUKuerzel.Text)
+
        KUNDE_ERW.kde_abwToleranzTage = checkNullStr(txtZinsbelastungTolInTagen.Text)

        If Not String.IsNullOrWhiteSpace(txtZinsbelastungNew.Text) Then
@@ -3073,5 +3105,9 @@ Public Class frmKundenblatt
    Private Sub PictureBox5_Click(sender As Object, e As EventArgs)

    End Sub
+
+    Private Sub lblEmail_TextChanged(sender As Object, e As MouseEventArgs) Handles lblEmail2.MouseUp, lblEmail.MouseUp
+
+    End Sub
 End Class

--- a/SDL/kunden/frmOffertenBearbeiten.vb
+++ b/SDL/kunden/frmOffertenBearbeiten.vb
@@ -33,7 +33,13 @@ Public Class frmOffertenBearbeiten
        cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RO", "RO"))
        cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TR", "TR"))

-        cboFiliale.fillWithSQL("SELECT Filialen.FilialenNr FROM Filialen where Firma ='" & FIRMA_TMP & "' and Fil_Status = 'A' ORDER BY Filialen.FilialenNr", False, "FMZOLL", True)
+        Dim whereFiliale As String = ""
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID = 19 Then
+            whereFiliale = " AND Filialen.FilialenNr in (4817,4819,4821,4823,4824,4868)"
+        End If
+
+        cboFiliale.fillWithSQL("SELECT Filialen.FilialenNr FROM Filialen where Firma ='" & FIRMA_TMP & "' and Fil_Status = 'A' " & whereFiliale & " ORDER BY Filialen.FilialenNr", False, "FMZOLL", True)


        Dim where = ""
@@ -54,6 +60,15 @@ Public Class frmOffertenBearbeiten
                    cboSprache.Enabled = False
                End If
                If cboFiliale.Items.Count > 0 Then cboFiliale.changeItem("4803")
+
+                'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID = 19 Then
+
+                '    where = " WHERE  [Offertenstamm].[OffertenNr] IN (SELECT ao_OffertenNr FROM tblAbfertigungsartenFiliale inner join tblAbfertigungsartOffertenstamm on ao_Abfertigungsart=Abfertigungsart WHERE FilialenNr in (4817,4819,4821,4823,4824,4868)) "
+                'Else
+                '    where = " WHERE  [Offertenstamm].[OffertenNr] IN (SELECT ao_OffertenNr FROM tblAbfertigungsartenFiliale inner join tblAbfertigungsartOffertenstamm on ao_Abfertigungsart=Abfertigungsart WHERE FilialenNr not in (4817,4819,4821,4823,4824,4868)) "
+
+                'End If
+
            Case Else
                cboSprache.changeItem("DE")
                cboSprache.Enabled = False
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
@@ -22,6 +22,7 @@ Partial Class usrcntlKundeBearbeitenFull
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -60,10 +61,8 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cboFremdspedition = New System.Windows.Forms.ComboBox()
        Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox()
        Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox()
-        Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
        Me.tbcntrAbf = New System.Windows.Forms.TabControl()
        Me.TabPage4 = New System.Windows.Forms.TabPage()
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
        Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox()
        Me.Label18 = New System.Windows.Forms.Label()
        Me.TabPage3 = New System.Windows.Forms.TabPage()
@@ -77,7 +76,6 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cboAbfVerb_Abfertigungsverbot = New System.Windows.Forms.CheckBox()
        Me.txtAbfVerb_AbfertigungsverbotSeit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.tbAufschub = New System.Windows.Forms.TabPage()
-        Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
        Me.Label78 = New System.Windows.Forms.Label()
        Me.cbxAbf_ZollVM = New System.Windows.Forms.CheckBox()
@@ -102,8 +100,9 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.tbFiskal = New System.Windows.Forms.TabPage()
-        Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
        Me.tbVerrechnung = New System.Windows.Forms.TabPage()
+        Me.Label71 = New System.Windows.Forms.Label()
+        Me.cboSonst_Rechnungsdruck = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cbxHR_autoselect = New System.Windows.Forms.CheckBox()
        Me.cbxPDFMerge = New System.Windows.Forms.CheckBox()
        Me.cbxSammelrechnung_IM_EX = New System.Windows.Forms.CheckBox()
@@ -114,7 +113,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.btnAddKundeUID = New System.Windows.Forms.Button()
        Me.cboUSt_UstIdNrLand2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.txtUSt_UstIdNr2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.dgvKundenUID = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.dgvKundenUID = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.Label117 = New System.Windows.Forms.Label()
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.Label115 = New System.Windows.Forms.Label()
@@ -290,6 +289,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtUSt_GVAusgestelltAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtUSt_GVAngefordertAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.tbSonstiges = New System.Windows.Forms.TabPage()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
        Me.cbxIDSMautberichtNachOrt = New System.Windows.Forms.CheckBox()
        Me.txtSonst_weitereKdNrWOELFL = New System.Windows.Forms.TextBox()
        Me.lblIDS_Rabatte = New System.Windows.Forms.Label()
@@ -334,14 +334,12 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Label72 = New System.Windows.Forms.Label()
        Me.txtSonst_KdNrIDS = New System.Windows.Forms.TextBox()
        Me.Label70 = New System.Windows.Forms.Label()
-        Me.Label71 = New System.Windows.Forms.Label()
        Me.txtSumVerag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtSumPLOSE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtSumUTA = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtSumMSE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtSumIDS = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.btnSonstAendSpeichern = New VERAG_PROG_ALLGEMEIN.FlatButton()
-        Me.cboSonst_Rechnungsdruck = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.tbSchnittstellen = New System.Windows.Forms.TabPage()
        Me.txtVERAG_Schnittstellen_ID = New System.Windows.Forms.TextBox()
        Me.Label91 = New System.Windows.Forms.Label()
@@ -388,14 +386,14 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtAdresseZusatz = New System.Windows.Forms.TextBox()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.Label14 = New System.Windows.Forms.Label()
-        Me.txtPostfachOrt = New System.Windows.Forms.TextBox()
        Me.txtOrt = New System.Windows.Forms.TextBox()
        Me.Label12 = New System.Windows.Forms.Label()
-        Me.txtPostfachPlz = New System.Windows.Forms.TextBox()
        Me.txtPlz = New System.Windows.Forms.TextBox()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.txtStrasse = New System.Windows.Forms.TextBox()
+        Me.txtPostfachOrt = New System.Windows.Forms.TextBox()
+        Me.txtPostfachPlz = New System.Windows.Forms.TextBox()
+        Me.Label14 = New System.Windows.Forms.Label()
        Me.txtAnsprechpartnerAnrede = New System.Windows.Forms.TextBox()
        Me.Label20 = New System.Windows.Forms.Label()
        Me.txtMobil = New System.Windows.Forms.TextBox()
@@ -422,7 +420,6 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbKontakt = New System.Windows.Forms.TabControl()
        Me.TabPage10 = New System.Windows.Forms.TabPage()
        Me.TabPage11 = New System.Windows.Forms.TabPage()
-        Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
        Me.Label50 = New System.Windows.Forms.Label()
        Me.Label68 = New System.Windows.Forms.Label()
        Me.pnlNeukunde = New System.Windows.Forms.Panel()
@@ -441,14 +438,18 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtERROR = New System.Windows.Forms.TextBox()
        Me.btnDatevExport = New System.Windows.Forms.Button()
        Me.Label98 = New System.Windows.Forms.Label()
-        Me.cnsBankverbindungen = New System.Windows.Forms.ContextMenuStrip()
+        Me.cnsBankverbindungen = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ArchivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.DokumentHinzufügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.DokumentLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
+        Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
+        Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
+        Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
        Me.tbcntrDetails.SuspendLayout()
        Me.tbAbfertigung.SuspendLayout()
        Me.tbcntrAbf.SuspendLayout()
@@ -477,6 +478,7 @@ Partial Class usrcntlKundeBearbeitenFull
        CType(Me.dgvMWST, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.dgvUstv_LaenderUndSteuernummern, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.tbSonstiges.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.TabControl1.SuspendLayout()
        Me.Standard.SuspendLayout()
@@ -498,7 +500,6 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.TabPage11.SuspendLayout()
        Me.pnlNeukunde.SuspendLayout()
        Me.cnsBankverbindungen.SuspendLayout()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'tbcntrDetails
@@ -637,23 +638,13 @@ Partial Class usrcntlKundeBearbeitenFull
        'cbxBesonderheitenNEU
        '
        Me.cbxBesonderheitenNEU.AutoSize = True
-        Me.cbxBesonderheitenNEU.Location = New System.Drawing.Point(333, 8)
+        Me.cbxBesonderheitenNEU.Location = New System.Drawing.Point(473, 8)
        Me.cbxBesonderheitenNEU.Name = "cbxBesonderheitenNEU"
        Me.cbxBesonderheitenNEU.Size = New System.Drawing.Size(126, 17)
        Me.cbxBesonderheitenNEU.TabIndex = 236
        Me.cbxBesonderheitenNEU.Text = "Besonderheiten NEU"
        Me.cbxBesonderheitenNEU.UseVisualStyleBackColor = True
        '
-        'UsrCntlKundenBesonderheiten1
-        '
-        Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
-        Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
-        Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
-        Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
-        Me.UsrCntlKundenBesonderheiten1.Visible = False
-        '
        'tbcntrAbf
        '
        Me.tbcntrAbf.Controls.Add(Me.TabPage4)
@@ -680,15 +671,6 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.TabPage4.Text = " Aviso / E-Mail Benachrichtigung"
        Me.TabPage4.UseVisualStyleBackColor = True
        '
-        'UsrCntlKundenAvisoMailBenachrichtigung1
-        '
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
-        '
        'rtbLKWFreigabeSenden
        '
        Me.rtbLKWFreigabeSenden.Location = New System.Drawing.Point(485, 33)
@@ -750,6 +732,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtAbfVerb_RechtsanwaltSeit.Size = New System.Drawing.Size(60, 20)
        Me.txtAbfVerb_RechtsanwaltSeit.TabIndex = 6
        Me.txtAbfVerb_RechtsanwaltSeit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.txtAbfVerb_RechtsanwaltSeit.Visible = False
        '
        'cboAbfVerb_Kreditlimit
        '
@@ -761,6 +744,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cboAbfVerb_Kreditlimit.TabIndex = 7
        Me.cboAbfVerb_Kreditlimit.Text = "Kreditlimit"
        Me.cboAbfVerb_Kreditlimit.UseVisualStyleBackColor = True
+        Me.cboAbfVerb_Kreditlimit.Visible = False
        '
        'rtbAbfVerb_Grund
        '
@@ -790,6 +774,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cboAbfVerb_Rechtsanwalt.TabIndex = 4
        Me.cboAbfVerb_Rechtsanwalt.Text = "Rechtsanwalt"
        Me.cboAbfVerb_Rechtsanwalt.UseVisualStyleBackColor = True
+        Me.cboAbfVerb_Rechtsanwalt.Visible = False
        '
        'Label63
        '
@@ -808,6 +793,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Label64.Size = New System.Drawing.Size(26, 13)
        Me.Label64.TabIndex = 5
        Me.Label64.Text = "seit:"
+        Me.Label64.Visible = False
        '
        'cboAbfVerb_Abfertigungsverbot
        '
@@ -857,14 +843,6 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbAufschub.Text = "Aufschubkonten"
        Me.tbAufschub.UseVisualStyleBackColor = True
        '
-        'usrCntlAufschubkonten
-        '
-        Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
-        Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
-        Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
-        Me.usrCntlAufschubkonten.TabIndex = 0
-        '
        'TabPage1
        '
        Me.TabPage1.Controls.Add(Me.Label78)
@@ -1019,6 +997,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.GroupBox7.TabIndex = 5
        Me.GroupBox7.TabStop = False
        Me.GroupBox7.Text = "Aviso"
+        Me.GroupBox7.Visible = False
        '
        'RadioButton7
        '
@@ -1117,12 +1096,13 @@ Partial Class usrcntlKundeBearbeitenFull
        'cbxAbf_EinmaligeAbfertigung
        '
        Me.cbxAbf_EinmaligeAbfertigung.AutoSize = True
-        Me.cbxAbf_EinmaligeAbfertigung.Location = New System.Drawing.Point(467, 5)
+        Me.cbxAbf_EinmaligeAbfertigung.Location = New System.Drawing.Point(572, 8)
        Me.cbxAbf_EinmaligeAbfertigung.Name = "cbxAbf_EinmaligeAbfertigung"
-        Me.cbxAbf_EinmaligeAbfertigung.Size = New System.Drawing.Size(128, 17)
+        Me.cbxAbf_EinmaligeAbfertigung.Size = New System.Drawing.Size(93, 17)
        Me.cbxAbf_EinmaligeAbfertigung.TabIndex = 1
-        Me.cbxAbf_EinmaligeAbfertigung.Text = "Einmalige Abfertigung"
+        Me.cbxAbf_EinmaligeAbfertigung.Text = "Einmalige Abf."
        Me.cbxAbf_EinmaligeAbfertigung.UseVisualStyleBackColor = True
+        Me.cbxAbf_EinmaligeAbfertigung.Visible = False
        '
        'Label41
        '
@@ -1170,17 +1150,10 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbFiskal.Text = "Fiskal"
        Me.tbFiskal.UseVisualStyleBackColor = True
        '
-        'UsrCntlKundeFiskaldaten1
-        '
-        Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
-        Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
-        Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495)
-        Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
-        '
        'tbVerrechnung
        '
+        Me.tbVerrechnung.Controls.Add(Me.Label71)
+        Me.tbVerrechnung.Controls.Add(Me.cboSonst_Rechnungsdruck)
        Me.tbVerrechnung.Controls.Add(Me.cbxHR_autoselect)
        Me.tbVerrechnung.Controls.Add(Me.cbxPDFMerge)
        Me.tbVerrechnung.Controls.Add(Me.cbxSammelrechnung_IM_EX)
@@ -1246,6 +1219,27 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbVerrechnung.Text = "Verrechnung"
        Me.tbVerrechnung.UseVisualStyleBackColor = True
        '
+        'Label71
+        '
+        Me.Label71.AutoSize = True
+        Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label71.Location = New System.Drawing.Point(12, 12)
+        Me.Label71.Name = "Label71"
+        Me.Label71.Size = New System.Drawing.Size(92, 13)
+        Me.Label71.TabIndex = 57
+        Me.Label71.Text = "Rechnungsdruck:"
+        '
+        'cboSonst_Rechnungsdruck
+        '
+        Me.cboSonst_Rechnungsdruck._allowedValuesFreiText = Nothing
+        Me.cboSonst_Rechnungsdruck._allowFreiText = False
+        Me.cboSonst_Rechnungsdruck._value = ""
+        Me.cboSonst_Rechnungsdruck.FormattingEnabled = True
+        Me.cboSonst_Rechnungsdruck.Location = New System.Drawing.Point(125, 5)
+        Me.cboSonst_Rechnungsdruck.Name = "cboSonst_Rechnungsdruck"
+        Me.cboSonst_Rechnungsdruck.Size = New System.Drawing.Size(85, 21)
+        Me.cboSonst_Rechnungsdruck.TabIndex = 58
+        '
        'cbxHR_autoselect
        '
        Me.cbxHR_autoselect.AutoSize = True
@@ -1399,7 +1393,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'Label117
        '
        Me.Label117.AutoSize = True
-        Me.Label117.Location = New System.Drawing.Point(191, 91)
+        Me.Label117.Location = New System.Drawing.Point(191, 111)
        Me.Label117.Name = "Label117"
        Me.Label117.Size = New System.Drawing.Size(30, 13)
        Me.Label117.TabIndex = 52
@@ -1473,6 +1467,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.kdProvDLProzentGSAn._displayFullName = False
        Me.kdProvDLProzentGSAn._displayWoelflKd = False
        Me.kdProvDLProzentGSAn._hideIfListEmpty = True
+        Me.kdProvDLProzentGSAn._hideMDMKd = False
        Me.kdProvDLProzentGSAn._loadKdData = False
        Me.kdProvDLProzentGSAn._searchName1 = True
        Me.kdProvDLProzentGSAn._UseFIRMA = ""
@@ -1709,7 +1704,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'Label101
        '
        Me.Label101.AutoSize = True
-        Me.Label101.Location = New System.Drawing.Point(191, 42)
+        Me.Label101.Location = New System.Drawing.Point(191, 62)
        Me.Label101.Name = "Label101"
        Me.Label101.Size = New System.Drawing.Size(95, 13)
        Me.Label101.TabIndex = 42
@@ -1781,7 +1776,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'Label93
        '
        Me.Label93.AutoSize = True
-        Me.Label93.Location = New System.Drawing.Point(12, 15)
+        Me.Label93.Location = New System.Drawing.Point(12, 35)
        Me.Label93.Name = "Label93"
        Me.Label93.Size = New System.Drawing.Size(110, 13)
        Me.Label93.TabIndex = 32
@@ -1819,6 +1814,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cbxDepot.TabIndex = 20
        Me.cbxDepot.Text = "Depot-Kunde*"
        Me.cbxDepot.UseVisualStyleBackColor = True
+        Me.cbxDepot.Visible = False
        '
        'Label34
        '
@@ -1863,7 +1859,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'Label47
        '
        Me.Label47.AutoSize = True
-        Me.Label47.Location = New System.Drawing.Point(191, 69)
+        Me.Label47.Location = New System.Drawing.Point(191, 89)
        Me.Label47.Name = "Label47"
        Me.Label47.Size = New System.Drawing.Size(30, 13)
        Me.Label47.TabIndex = 15
@@ -1872,7 +1868,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'Label46
        '
        Me.Label46.AutoSize = True
-        Me.Label46.Location = New System.Drawing.Point(12, 69)
+        Me.Label46.Location = New System.Drawing.Point(12, 89)
        Me.Label46.Name = "Label46"
        Me.Label46.Size = New System.Drawing.Size(69, 13)
        Me.Label46.TabIndex = 10
@@ -1881,7 +1877,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'Label45
        '
        Me.Label45.AutoSize = True
-        Me.Label45.Location = New System.Drawing.Point(12, 43)
+        Me.Label45.Location = New System.Drawing.Point(12, 63)
        Me.Label45.Name = "Label45"
        Me.Label45.Size = New System.Drawing.Size(108, 13)
        Me.Label45.TabIndex = 5
@@ -1910,7 +1906,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'Label44
        '
        Me.Label44.AutoSize = True
-        Me.Label44.Location = New System.Drawing.Point(12, 89)
+        Me.Label44.Location = New System.Drawing.Point(12, 109)
        Me.Label44.Name = "Label44"
        Me.Label44.Size = New System.Drawing.Size(88, 13)
        Me.Label44.TabIndex = 0
@@ -1929,7 +1925,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.cbxAbf_SvsRvs.AutoSize = True
        Me.cbxAbf_SvsRvs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxAbf_SvsRvs.Location = New System.Drawing.Point(289, 110)
+        Me.cbxAbf_SvsRvs.Location = New System.Drawing.Point(289, 130)
        Me.cbxAbf_SvsRvs.Name = "cbxAbf_SvsRvs"
        Me.cbxAbf_SvsRvs.Size = New System.Drawing.Size(74, 17)
        Me.cbxAbf_SvsRvs.TabIndex = 12
@@ -1940,7 +1936,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.cbxAbf_Rabattstaffel.AutoSize = True
        Me.cbxAbf_Rabattstaffel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxAbf_Rabattstaffel.Location = New System.Drawing.Point(289, 88)
+        Me.cbxAbf_Rabattstaffel.Location = New System.Drawing.Point(289, 108)
        Me.cbxAbf_Rabattstaffel.Name = "cbxAbf_Rabattstaffel"
        Me.cbxAbf_Rabattstaffel.Size = New System.Drawing.Size(86, 17)
        Me.cbxAbf_Rabattstaffel.TabIndex = 7
@@ -1951,7 +1947,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.cbxAbf_Vorkasse.AutoSize = True
        Me.cbxAbf_Vorkasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxAbf_Vorkasse.Location = New System.Drawing.Point(289, 66)
+        Me.cbxAbf_Vorkasse.Location = New System.Drawing.Point(289, 86)
        Me.cbxAbf_Vorkasse.Name = "cbxAbf_Vorkasse"
        Me.cbxAbf_Vorkasse.Size = New System.Drawing.Size(70, 17)
        Me.cbxAbf_Vorkasse.TabIndex = 2
@@ -2003,7 +1999,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtAbf_Vorlageprovision_Mindestbetrag._Waehrung = True
        Me.txtAbf_Vorlageprovision_Mindestbetrag._WaehrungZeichen = True
        Me.txtAbf_Vorlageprovision_Mindestbetrag.ForeColor = System.Drawing.Color.Red
-        Me.txtAbf_Vorlageprovision_Mindestbetrag.Location = New System.Drawing.Point(222, 87)
+        Me.txtAbf_Vorlageprovision_Mindestbetrag.Location = New System.Drawing.Point(222, 107)
        Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLength = 50
        Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLineLength = -1
        Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLines_Warning = ""
@@ -2069,7 +2065,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtAbwZZVL._Waehrung = False
        Me.txtAbwZZVL._WaehrungZeichen = True
        Me.txtAbwZZVL.ForeColor = System.Drawing.Color.Red
-        Me.txtAbwZZVL.Location = New System.Drawing.Point(289, 39)
+        Me.txtAbwZZVL.Location = New System.Drawing.Point(289, 59)
        Me.txtAbwZZVL.MaxLength = 10
        Me.txtAbwZZVL.MaxLineLength = -1
        Me.txtAbwZZVL.MaxLines_Warning = ""
@@ -2110,7 +2106,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtDebKdNr._Waehrung = False
        Me.txtDebKdNr._WaehrungZeichen = False
        Me.txtDebKdNr.ForeColor = System.Drawing.Color.Red
-        Me.txtDebKdNr.Location = New System.Drawing.Point(125, 12)
+        Me.txtDebKdNr.Location = New System.Drawing.Point(125, 32)
        Me.txtDebKdNr.MaxLength = 10
        Me.txtDebKdNr.MaxLineLength = -1
        Me.txtDebKdNr.MaxLines_Warning = ""
@@ -2340,7 +2336,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtAbf_BankspesenMindestbetrag._Waehrung = True
        Me.txtAbf_BankspesenMindestbetrag._WaehrungZeichen = True
        Me.txtAbf_BankspesenMindestbetrag.ForeColor = System.Drawing.Color.Red
-        Me.txtAbf_BankspesenMindestbetrag.Location = New System.Drawing.Point(222, 62)
+        Me.txtAbf_BankspesenMindestbetrag.Location = New System.Drawing.Point(222, 82)
        Me.txtAbf_BankspesenMindestbetrag.MaxLength = 50
        Me.txtAbf_BankspesenMindestbetrag.MaxLineLength = -1
        Me.txtAbf_BankspesenMindestbetrag.MaxLines_Warning = ""
@@ -2365,7 +2361,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtAbf_Bankspesen._Waehrung = False
        Me.txtAbf_Bankspesen._WaehrungZeichen = True
        Me.txtAbf_Bankspesen.ForeColor = System.Drawing.Color.Black
-        Me.txtAbf_Bankspesen.Location = New System.Drawing.Point(125, 66)
+        Me.txtAbf_Bankspesen.Location = New System.Drawing.Point(125, 86)
        Me.txtAbf_Bankspesen.MaxLength = 10
        Me.txtAbf_Bankspesen.MaxLineLength = -1
        Me.txtAbf_Bankspesen.MaxLines_Warning = ""
@@ -2391,7 +2387,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtAbf_Kreditaufwendungen._Waehrung = False
        Me.txtAbf_Kreditaufwendungen._WaehrungZeichen = True
        Me.txtAbf_Kreditaufwendungen.ForeColor = System.Drawing.Color.Black
-        Me.txtAbf_Kreditaufwendungen.Location = New System.Drawing.Point(125, 40)
+        Me.txtAbf_Kreditaufwendungen.Location = New System.Drawing.Point(125, 60)
        Me.txtAbf_Kreditaufwendungen.MaxLength = 10
        Me.txtAbf_Kreditaufwendungen.MaxLineLength = -1
        Me.txtAbf_Kreditaufwendungen.MaxLines_Warning = ""
@@ -2417,7 +2413,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtAbf_Vorlageprovision._Waehrung = False
        Me.txtAbf_Vorlageprovision._WaehrungZeichen = True
        Me.txtAbf_Vorlageprovision.ForeColor = System.Drawing.Color.Black
-        Me.txtAbf_Vorlageprovision.Location = New System.Drawing.Point(125, 88)
+        Me.txtAbf_Vorlageprovision.Location = New System.Drawing.Point(125, 108)
        Me.txtAbf_Vorlageprovision.MaxLength = 10
        Me.txtAbf_Vorlageprovision.MaxLineLength = -1
        Me.txtAbf_Vorlageprovision.MaxLines_Warning = ""
@@ -4200,14 +4196,12 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbSonstiges.Controls.Add(Me.Label72)
        Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrIDS)
        Me.tbSonstiges.Controls.Add(Me.Label70)
-        Me.tbSonstiges.Controls.Add(Me.Label71)
        Me.tbSonstiges.Controls.Add(Me.txtSumVerag)
        Me.tbSonstiges.Controls.Add(Me.txtSumPLOSE)
        Me.tbSonstiges.Controls.Add(Me.txtSumUTA)
        Me.tbSonstiges.Controls.Add(Me.txtSumMSE)
        Me.tbSonstiges.Controls.Add(Me.txtSumIDS)
        Me.tbSonstiges.Controls.Add(Me.btnSonstAendSpeichern)
-        Me.tbSonstiges.Controls.Add(Me.cboSonst_Rechnungsdruck)
        Me.tbSonstiges.Location = New System.Drawing.Point(4, 22)
        Me.tbSonstiges.Name = "tbSonstiges"
        Me.tbSonstiges.Padding = New System.Windows.Forms.Padding(3)
@@ -4216,6 +4210,18 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbSonstiges.Text = "Sonstiges"
        Me.tbSonstiges.UseVisualStyleBackColor = True
        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
+        Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.pdf_s
+        Me.PictureBox1.Location = New System.Drawing.Point(290, 191)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(20, 20)
+        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.PictureBox1.TabIndex = 150
+        Me.PictureBox1.TabStop = False
+        Me.PictureBox1.Visible = False
+        '
        'cbxIDSMautberichtNachOrt
        '
        Me.cbxIDSMautberichtNachOrt.AutoSize = True
@@ -4225,6 +4231,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cbxIDSMautberichtNachOrt.TabIndex = 149
        Me.cbxIDSMautberichtNachOrt.Text = "IDS-Mautbericht AT nach Ort"
        Me.cbxIDSMautberichtNachOrt.UseVisualStyleBackColor = True
+        Me.cbxIDSMautberichtNachOrt.Visible = False
        '
        'txtSonst_weitereKdNrWOELFL
        '
@@ -4232,6 +4239,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtSonst_weitereKdNrWOELFL.Name = "txtSonst_weitereKdNrWOELFL"
        Me.txtSonst_weitereKdNrWOELFL.Size = New System.Drawing.Size(50, 20)
        Me.txtSonst_weitereKdNrWOELFL.TabIndex = 148
+        Me.txtSonst_weitereKdNrWOELFL.Visible = False
        '
        'lblIDS_Rabatte
        '
@@ -4255,6 +4263,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
        Me.PictureBox7.TabIndex = 146
        Me.PictureBox7.TabStop = False
+        Me.PictureBox7.Visible = False
        '
        'cbx_IDS_inaktiveeinblenden
        '
@@ -4264,6 +4273,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cbx_IDS_inaktiveeinblenden.Size = New System.Drawing.Size(15, 14)
        Me.cbx_IDS_inaktiveeinblenden.TabIndex = 41
        Me.cbx_IDS_inaktiveeinblenden.UseVisualStyleBackColor = True
+        Me.cbx_IDS_inaktiveeinblenden.Visible = False
        '
        'TabControl1
        '
@@ -4275,6 +4285,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.TabControl1.SelectedIndex = 0
        Me.TabControl1.Size = New System.Drawing.Size(659, 190)
        Me.TabControl1.TabIndex = 40
+        Me.TabControl1.Visible = False
        '
        'Standard
        '
@@ -4411,7 +4422,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'cbxCSInsolvent
        '
        Me.cbxCSInsolvent.AutoSize = True
-        Me.cbxCSInsolvent.Location = New System.Drawing.Point(406, 26)
+        Me.cbxCSInsolvent.Location = New System.Drawing.Point(8, 26)
        Me.cbxCSInsolvent.Name = "cbxCSInsolvent"
        Me.cbxCSInsolvent.Size = New System.Drawing.Size(102, 17)
        Me.cbxCSInsolvent.TabIndex = 39
@@ -4421,7 +4432,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'cbxCS_Added
        '
        Me.cbxCS_Added.AutoSize = True
-        Me.cbxCS_Added.Location = New System.Drawing.Point(406, 9)
+        Me.cbxCS_Added.Location = New System.Drawing.Point(8, 9)
        Me.cbxCS_Added.Name = "cbxCS_Added"
        Me.cbxCS_Added.Size = New System.Drawing.Size(15, 14)
        Me.cbxCS_Added.TabIndex = 37
@@ -4448,6 +4459,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Label112.Size = New System.Drawing.Size(119, 13)
        Me.Label112.TabIndex = 35
        Me.Label112.Text = "CSV-Daten bereitstellen"
+        Me.Label112.Visible = False
        '
        'txtSonst_KdNrVerag
        '
@@ -4456,6 +4468,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtSonst_KdNrVerag.Name = "txtSonst_KdNrVerag"
        Me.txtSonst_KdNrVerag.Size = New System.Drawing.Size(106, 20)
        Me.txtSonst_KdNrVerag.TabIndex = 31
+        Me.txtSonst_KdNrVerag.Visible = False
        '
        'Label110
        '
@@ -4467,6 +4480,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Label110.Size = New System.Drawing.Size(82, 13)
        Me.Label110.TabIndex = 30
        Me.Label110.Text = "KdNr bei Verag:"
+        Me.Label110.Visible = False
        '
        'Label109
        '
@@ -4477,12 +4491,13 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Label109.Size = New System.Drawing.Size(94, 13)
        Me.Label109.TabIndex = 25
        Me.Label109.Text = "Vorschausummen:"
+        Me.Label109.Visible = False
        '
        'Label99
        '
        Me.Label99.AutoSize = True
        Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label99.Location = New System.Drawing.Point(427, 9)
+        Me.Label99.Location = New System.Drawing.Point(29, 9)
        Me.Label99.Name = "Label99"
        Me.Label99.Size = New System.Drawing.Size(71, 13)
        Me.Label99.TabIndex = 24
@@ -4490,7 +4505,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'txtCreditsafe
        '
-        Me.txtCreditsafe.Location = New System.Drawing.Point(540, 6)
+        Me.txtCreditsafe.Location = New System.Drawing.Point(142, 6)
        Me.txtCreditsafe.Name = "txtCreditsafe"
        Me.txtCreditsafe.Size = New System.Drawing.Size(122, 20)
        Me.txtCreditsafe.TabIndex = 23
@@ -4523,6 +4538,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtSonst_KdNrPLOSE.Name = "txtSonst_KdNrPLOSE"
        Me.txtSonst_KdNrPLOSE.Size = New System.Drawing.Size(106, 20)
        Me.txtSonst_KdNrPLOSE.TabIndex = 20
+        Me.txtSonst_KdNrPLOSE.Visible = False
        '
        'Label83
        '
@@ -4534,6 +4550,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Label83.Size = New System.Drawing.Size(89, 13)
        Me.Label83.TabIndex = 19
        Me.Label83.Text = "KdNr bei PLOSE:"
+        Me.Label83.Visible = False
        '
        'Label76
        '
@@ -4544,6 +4561,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Label76.Size = New System.Drawing.Size(65, 13)
        Me.Label76.TabIndex = 17
        Me.Label76.Text = "IDS-Kunden"
+        Me.Label76.Visible = False
        '
        'dgvSonst_IDSKunden
        '
@@ -4575,6 +4593,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden"
        Me.dgvSonst_IDSKunden.Size = New System.Drawing.Size(657, 68)
        Me.dgvSonst_IDSKunden.TabIndex = 18
+        Me.dgvSonst_IDSKunden.Visible = False
        '
        'cbxSonst_CsvAsfinag
        '
@@ -4585,6 +4604,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cbxSonst_CsvAsfinag.TabIndex = 15
        Me.cbxSonst_CsvAsfinag.Text = "AT-Abr."
        Me.cbxSonst_CsvAsfinag.UseVisualStyleBackColor = True
+        Me.cbxSonst_CsvAsfinag.Visible = False
        '
        'cbxSonst_CsvUTA
        '
@@ -4595,6 +4615,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cbxSonst_CsvUTA.TabIndex = 14
        Me.cbxSonst_CsvUTA.Text = "UTA-Abr. "
        Me.cbxSonst_CsvUTA.UseVisualStyleBackColor = True
+        Me.cbxSonst_CsvUTA.Visible = False
        '
        'cbxSonst_CsvMSE
        '
@@ -4605,6 +4626,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cbxSonst_CsvMSE.TabIndex = 9
        Me.cbxSonst_CsvMSE.Text = "MSE-Abr."
        Me.cbxSonst_CsvMSE.UseVisualStyleBackColor = True
+        Me.cbxSonst_CsvMSE.Visible = False
        '
        'cbxSonst_CsvMautbericht
        '
@@ -4615,6 +4637,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cbxSonst_CsvMautbericht.TabIndex = 2
        Me.cbxSonst_CsvMautbericht.Text = "CSV-Mautbericht"
        Me.cbxSonst_CsvMautbericht.UseVisualStyleBackColor = True
+        Me.cbxSonst_CsvMautbericht.Visible = False
        '
        'txtSonst_KdNrUTA
        '
@@ -4622,6 +4645,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtSonst_KdNrUTA.Name = "txtSonst_KdNrUTA"
        Me.txtSonst_KdNrUTA.Size = New System.Drawing.Size(106, 20)
        Me.txtSonst_KdNrUTA.TabIndex = 13
+        Me.txtSonst_KdNrUTA.Visible = False
        '
        'Label75
        '
@@ -4632,6 +4656,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Label75.Size = New System.Drawing.Size(76, 13)
        Me.Label75.TabIndex = 12
        Me.Label75.Text = "KdNr bei UTA:"
+        Me.Label75.Visible = False
        '
        'txtSonst_KdNrTelepass
        '
@@ -4639,6 +4664,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtSonst_KdNrTelepass.Name = "txtSonst_KdNrTelepass"
        Me.txtSonst_KdNrTelepass.Size = New System.Drawing.Size(122, 20)
        Me.txtSonst_KdNrTelepass.TabIndex = 11
+        Me.txtSonst_KdNrTelepass.Visible = False
        '
        'Label74
        '
@@ -4649,6 +4675,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Label74.Size = New System.Drawing.Size(109, 13)
        Me.Label74.TabIndex = 10
        Me.Label74.Text = "KdNr bei TELEPASS:"
+        Me.Label74.Visible = False
        '
        'txtSonst_KdNrMSE
        '
@@ -4656,6 +4683,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtSonst_KdNrMSE.Name = "txtSonst_KdNrMSE"
        Me.txtSonst_KdNrMSE.Size = New System.Drawing.Size(106, 20)
        Me.txtSonst_KdNrMSE.TabIndex = 8
+        Me.txtSonst_KdNrMSE.Visible = False
        '
        'Label73
        '
@@ -4666,6 +4694,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Label73.Size = New System.Drawing.Size(77, 13)
        Me.Label73.TabIndex = 7
        Me.Label73.Text = "KdNr bei MSE:"
+        Me.Label73.Visible = False
        '
        'txtSonst_KdNrWOELFL
        '
@@ -4673,6 +4702,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtSonst_KdNrWOELFL.Name = "txtSonst_KdNrWOELFL"
        Me.txtSonst_KdNrWOELFL.Size = New System.Drawing.Size(50, 20)
        Me.txtSonst_KdNrWOELFL.TabIndex = 6
+        Me.txtSonst_KdNrWOELFL.Visible = False
        '
        'Label72
        '
@@ -4683,6 +4713,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Label72.Size = New System.Drawing.Size(78, 13)
        Me.Label72.TabIndex = 5
        Me.Label72.Text = "KdNr bei Wölfl:"
+        Me.Label72.Visible = False
        '
        'txtSonst_KdNrIDS
        '
@@ -4705,16 +4736,6 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Label70.Text = "KdNr bei IDS:"
        Me.Label70.Visible = False
        '
-        'Label71
-        '
-        Me.Label71.AutoSize = True
-        Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label71.Location = New System.Drawing.Point(6, 9)
-        Me.Label71.Name = "Label71"
-        Me.Label71.Size = New System.Drawing.Size(92, 13)
-        Me.Label71.TabIndex = 0
-        Me.Label71.Text = "Rechnungsdruck:"
-        '
        'txtSumVerag
        '
        Me.txtSumVerag._DateTimeOnly = False
@@ -4737,6 +4758,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtSumVerag.Name = "txtSumVerag"
        Me.txtSumVerag.Size = New System.Drawing.Size(100, 20)
        Me.txtSumVerag.TabIndex = 32
+        Me.txtSumVerag.Visible = False
        '
        'txtSumPLOSE
        '
@@ -4760,6 +4782,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtSumPLOSE.Name = "txtSumPLOSE"
        Me.txtSumPLOSE.Size = New System.Drawing.Size(100, 20)
        Me.txtSumPLOSE.TabIndex = 29
+        Me.txtSumPLOSE.Visible = False
        '
        'txtSumUTA
        '
@@ -4783,6 +4806,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtSumUTA.Name = "txtSumUTA"
        Me.txtSumUTA.Size = New System.Drawing.Size(100, 20)
        Me.txtSumUTA.TabIndex = 28
+        Me.txtSumUTA.Visible = False
        '
        'txtSumMSE
        '
@@ -4806,6 +4830,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtSumMSE.Name = "txtSumMSE"
        Me.txtSumMSE.Size = New System.Drawing.Size(100, 20)
        Me.txtSumMSE.TabIndex = 27
+        Me.txtSumMSE.Visible = False
        '
        'txtSumIDS
        '
@@ -4829,6 +4854,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtSumIDS.Name = "txtSumIDS"
        Me.txtSumIDS.Size = New System.Drawing.Size(100, 20)
        Me.txtSumIDS.TabIndex = 26
+        Me.txtSumIDS.Visible = False
        '
        'btnSonstAendSpeichern
        '
@@ -4845,17 +4871,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.btnSonstAendSpeichern.Text = "Änderungen speichern"
        Me.btnSonstAendSpeichern.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnSonstAendSpeichern.UseVisualStyleBackColor = True
-        '
-        'cboSonst_Rechnungsdruck
-        '
-        Me.cboSonst_Rechnungsdruck._allowedValuesFreiText = Nothing
-        Me.cboSonst_Rechnungsdruck._allowFreiText = False
-        Me.cboSonst_Rechnungsdruck._value = ""
-        Me.cboSonst_Rechnungsdruck.FormattingEnabled = True
-        Me.cboSonst_Rechnungsdruck.Location = New System.Drawing.Point(119, 6)
-        Me.cboSonst_Rechnungsdruck.Name = "cboSonst_Rechnungsdruck"
-        Me.cboSonst_Rechnungsdruck.Size = New System.Drawing.Size(110, 21)
-        Me.cboSonst_Rechnungsdruck.TabIndex = 1
+        Me.btnSonstAendSpeichern.Visible = False
        '
        'tbSchnittstellen
        '
@@ -5103,7 +5119,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.GroupBox3.Location = New System.Drawing.Point(3, 3)
        Me.GroupBox3.Name = "GroupBox3"
-        Me.GroupBox3.Size = New System.Drawing.Size(453, 207)
+        Me.GroupBox3.Size = New System.Drawing.Size(453, 227)
        Me.GroupBox3.TabIndex = 0
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "Firma"
@@ -5499,20 +5515,20 @@ Partial Class usrcntlKundeBearbeitenFull
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.cbxLandKz)
-        Me.GroupBox1.Controls.Add(Me.Label14)
-        Me.GroupBox1.Controls.Add(Me.txtPostfachOrt)
        Me.GroupBox1.Controls.Add(Me.txtOrt)
        Me.GroupBox1.Controls.Add(Me.Label100)
        Me.GroupBox1.Controls.Add(Me.Label12)
-        Me.GroupBox1.Controls.Add(Me.txtPostfachPlz)
        Me.GroupBox1.Controls.Add(Me.txtAdresseZusatz)
        Me.GroupBox1.Controls.Add(Me.txtPlz)
        Me.GroupBox1.Controls.Add(Me.Label4)
        Me.GroupBox1.Controls.Add(Me.txtStrasse)
+        Me.GroupBox1.Controls.Add(Me.txtPostfachOrt)
+        Me.GroupBox1.Controls.Add(Me.txtPostfachPlz)
+        Me.GroupBox1.Controls.Add(Me.Label14)
        Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.GroupBox1.Location = New System.Drawing.Point(3, 217)
+        Me.GroupBox1.Location = New System.Drawing.Point(3, 236)
        Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Size = New System.Drawing.Size(453, 139)
+        Me.GroupBox1.Size = New System.Drawing.Size(453, 120)
        Me.GroupBox1.TabIndex = 1
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Adresse"
@@ -5533,25 +5549,6 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cbxLandKz.Size = New System.Drawing.Size(50, 21)
        Me.cbxLandKz.TabIndex = 3
        '
-        'Label14
-        '
-        Me.Label14.AutoSize = True
-        Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label14.Location = New System.Drawing.Point(6, 99)
-        Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(100, 13)
-        Me.Label14.TabIndex = 6
-        Me.Label14.Text = "Postfach PLZ / Ort:"
-        '
-        'txtPostfachOrt
-        '
-        Me.txtPostfachOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtPostfachOrt.Location = New System.Drawing.Point(243, 96)
-        Me.txtPostfachOrt.MaxLength = 40
-        Me.txtPostfachOrt.Name = "txtPostfachOrt"
-        Me.txtPostfachOrt.Size = New System.Drawing.Size(201, 20)
-        Me.txtPostfachOrt.TabIndex = 8
-        '
        'txtOrt
        '
        Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -5571,15 +5568,6 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Label12.TabIndex = 2
        Me.Label12.Text = "Land / PLZ / Ort:"
        '
-        'txtPostfachPlz
-        '
-        Me.txtPostfachPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtPostfachPlz.Location = New System.Drawing.Point(110, 96)
-        Me.txtPostfachPlz.MaxLength = 7
-        Me.txtPostfachPlz.Name = "txtPostfachPlz"
-        Me.txtPostfachPlz.Size = New System.Drawing.Size(127, 20)
-        Me.txtPostfachPlz.TabIndex = 7
-        '
        'txtPlz
        '
        Me.txtPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -5593,7 +5581,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.Label4.AutoSize = True
        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.Location = New System.Drawing.Point(6, 25)
+        Me.Label4.Location = New System.Drawing.Point(6, 24)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(41, 13)
        Me.Label4.TabIndex = 0
@@ -5602,12 +5590,43 @@ Partial Class usrcntlKundeBearbeitenFull
        'txtStrasse
        '
        Me.txtStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtStrasse.Location = New System.Drawing.Point(110, 22)
+        Me.txtStrasse.Location = New System.Drawing.Point(110, 21)
        Me.txtStrasse.MaxLength = 40
        Me.txtStrasse.Name = "txtStrasse"
        Me.txtStrasse.Size = New System.Drawing.Size(334, 20)
        Me.txtStrasse.TabIndex = 1
        '
+        'txtPostfachOrt
+        '
+        Me.txtPostfachOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtPostfachOrt.Location = New System.Drawing.Point(243, 72)
+        Me.txtPostfachOrt.MaxLength = 40
+        Me.txtPostfachOrt.Name = "txtPostfachOrt"
+        Me.txtPostfachOrt.Size = New System.Drawing.Size(201, 20)
+        Me.txtPostfachOrt.TabIndex = 8
+        Me.txtPostfachOrt.Visible = False
+        '
+        'txtPostfachPlz
+        '
+        Me.txtPostfachPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtPostfachPlz.Location = New System.Drawing.Point(110, 72)
+        Me.txtPostfachPlz.MaxLength = 7
+        Me.txtPostfachPlz.Name = "txtPostfachPlz"
+        Me.txtPostfachPlz.Size = New System.Drawing.Size(127, 20)
+        Me.txtPostfachPlz.TabIndex = 7
+        Me.txtPostfachPlz.Visible = False
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label14.Location = New System.Drawing.Point(6, 75)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(100, 13)
+        Me.Label14.TabIndex = 6
+        Me.Label14.Text = "Postfach PLZ / Ort:"
+        Me.Label14.Visible = False
+        '
        'txtAnsprechpartnerAnrede
        '
        Me.txtAnsprechpartnerAnrede.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -5621,7 +5640,7 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.Label20.AutoSize = True
        Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label20.Location = New System.Drawing.Point(3, 66)
+        Me.Label20.Location = New System.Drawing.Point(2, 43)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(67, 13)
        Me.Label20.TabIndex = 4
@@ -5630,7 +5649,7 @@ Partial Class usrcntlKundeBearbeitenFull
        'txtMobil
        '
        Me.txtMobil.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtMobil.Location = New System.Drawing.Point(107, 63)
+        Me.txtMobil.Location = New System.Drawing.Point(107, 40)
        Me.txtMobil.MaxLength = 50
        Me.txtMobil.Name = "txtMobil"
        Me.txtMobil.Size = New System.Drawing.Size(333, 20)
@@ -5697,16 +5716,16 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.Label7.AutoSize = True
        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label7.Location = New System.Drawing.Point(3, 40)
+        Me.Label7.Location = New System.Drawing.Point(3, 71)
        Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(27, 13)
+        Me.Label7.Size = New System.Drawing.Size(76, 13)
        Me.Label7.TabIndex = 2
-        Me.Label7.Text = "Fax:"
+        Me.Label7.Text = "Mobiltelefon 2:"
        '
        'txtFax
        '
        Me.txtFax.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtFax.Location = New System.Drawing.Point(107, 37)
+        Me.txtFax.Location = New System.Drawing.Point(107, 68)
        Me.txtFax.MaxLength = 20
        Me.txtFax.Name = "txtFax"
        Me.txtFax.Size = New System.Drawing.Size(333, 20)
@@ -5877,14 +5896,6 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.TabPage11.Text = "Spezifisch"
        Me.TabPage11.UseVisualStyleBackColor = True
        '
-        'ucKundenKontakte
-        '
-        Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
-        Me.ucKundenKontakte.Name = "ucKundenKontakte"
-        Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
-        Me.ucKundenKontakte.TabIndex = 0
-        '
        'Label50
        '
        Me.Label50.AutoSize = True
@@ -6165,16 +6176,49 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        '
-        'PictureBox1
+        'ucKundenKontakte
        '
-        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
-        Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.pdf_s
-        Me.PictureBox1.Location = New System.Drawing.Point(290, 191)
-        Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(20, 20)
-        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
-        Me.PictureBox1.TabIndex = 150
-        Me.PictureBox1.TabStop = False
+        Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
+        Me.ucKundenKontakte.Name = "ucKundenKontakte"
+        Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
+        Me.ucKundenKontakte.TabIndex = 0
+        '
+        'UsrCntlKundenBesonderheiten1
+        '
+        Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
+        Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
+        Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
+        Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
+        Me.UsrCntlKundenBesonderheiten1.Visible = False
+        '
+        'UsrCntlKundenAvisoMailBenachrichtigung1
+        '
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
+        '
+        'usrCntlAufschubkonten
+        '
+        Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
+        Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
+        Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
+        Me.usrCntlAufschubkonten.TabIndex = 0
+        '
+        'UsrCntlKundeFiskaldaten1
+        '
+        Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
+        Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495)
+        Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
        '
        'usrcntlKundeBearbeitenFull
        '
@@ -6256,6 +6300,7 @@ Partial Class usrcntlKundeBearbeitenFull
        CType(Me.dgvUstv_LaenderUndSteuernummern, System.ComponentModel.ISupportInitialize).EndInit()
        Me.tbSonstiges.ResumeLayout(False)
        Me.tbSonstiges.PerformLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabControl1.ResumeLayout(False)
        Me.Standard.ResumeLayout(False)
@@ -6285,7 +6330,6 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.pnlNeukunde.ResumeLayout(False)
        Me.pnlNeukunde.PerformLayout()
        Me.cnsBankverbindungen.ResumeLayout(False)
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -6400,8 +6444,6 @@ Partial Class usrcntlKundeBearbeitenFull
    Friend WithEvents Label72 As System.Windows.Forms.Label
    Friend WithEvents txtSonst_KdNrIDS As System.Windows.Forms.TextBox
    Friend WithEvents Label70 As System.Windows.Forms.Label
-    Friend WithEvents Label71 As System.Windows.Forms.Label
-    Friend WithEvents cboSonst_Rechnungsdruck As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents txtUStIDGeprueftAm As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label5 As System.Windows.Forms.Label
@@ -6689,4 +6731,6 @@ Partial Class usrcntlKundeBearbeitenFull
    Friend WithEvents cbxHR_autoselect As CheckBox
    Friend WithEvents cbxIDSMautberichtNachOrt As CheckBox
    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents Label71 As Label
+    Friend WithEvents cboSonst_Rechnungsdruck As VERAG_PROG_ALLGEMEIN.MyComboBox
 End Class
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb
@@ -1,7 +1,4 @@
-Imports com.sun.xml.internal.rngom
-Imports DAKOSY_Worker
-Imports MDM_Worker
-Imports Tamir.SharpSsh.jsch
+Imports MDM_Worker
 Imports VERAG_PROG_ALLGEMEIN

 Public Class usrcntlKundeBearbeitenFull
@@ -126,6 +123,7 @@ Public Class usrcntlKundeBearbeitenFull
        cbxBetreuer.Visible = isVerag360
        cbxVorauszahlung.Visible = isVerag360
        cbxAbf_Vorkasse.Visible = Not isVerag360
+        Label116.Visible = isVerag360


        usrCntlAufschubkonten.initMe(kdnr)
@@ -1035,7 +1033,7 @@ Public Class usrcntlKundeBearbeitenFull

        cboSonst_Rechnungsdruck.Items.Clear()
        cboSonst_Rechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Formular", "0"))
-        cboSonst_Rechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Fax", "1"))
+        'cboSonst_Rechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Fax", "1")) 'Gibts nicht mehr!
        cboSonst_Rechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E-Mail", "2"))
        cboSonst_Rechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Mail+Kopie", "5"))

@@ -1129,9 +1127,13 @@ Public Class usrcntlKundeBearbeitenFull
    Private Sub usrcntlKundeBearbeitenFull_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.tbcntrDetails.Controls.Remove(tbUmsatz)
        Me.tbcntrDetails.Controls.Remove(tbOP)
+        Me.tbcntrDetails.Controls.Remove(tbSchnittstellen)
+        Me.tbcntrDetails.Controls.Remove(tbBank)
+        Me.tbcntrDetails.Controls.Remove(tbZahlungsinfo)
+        Me.tbcntrDetails.Controls.Remove(tbUmsatzsteuer)
        If isVerag360 Then
            Me.tbcntrDetails.Controls.Remove(tbFiskal)
-            Me.tbcntrDetails.Controls.Remove(tbSchnittstellen)
+
        Else
            Me.tbcntrDetails.Controls.Remove(tbBankverbindungen)
        End If
@@ -3079,4 +3081,6 @@ Public Class usrcntlKundeBearbeitenFull


    End Sub
+
+
 End Class
--- a/SDL/kunden/usrcntlKundeBearbeitenFull_SDL.Designer.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull_SDL.Designer.vb
--- a/SDL/kunden/usrcntlKundeBearbeitenFull_SDL.resx
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull_SDL.resx
@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="cnsBankverbindungen.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>
--- a/SDL/kunden/usrcntlKundeBearbeitenFull_SDL.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull_SDL.vb
--- a/VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.Designer.vb
@@ -22,11 +22,11 @@ Partial Class frmFirmenuebersicht
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFirmenuebersicht))
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.pnloptions = New System.Windows.Forms.Panel()
+        Me.Label7 = New System.Windows.Forms.Label()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.lblMail2 = New System.Windows.Forms.Label()
@@ -49,9 +49,8 @@ Partial Class frmFirmenuebersicht
        Me.Label5 = New System.Windows.Forms.Label()
        Me.pnlTop = New System.Windows.Forms.Panel()
        Me.Label4 = New System.Windows.Forms.Label()
-        Me.dgvFirmen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.dgvEmailSettings = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.Label7 = New System.Windows.Forms.Label()
+        Me.dgvFirmen = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.dgvEmailSettings = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
        Me.Panel1.SuspendLayout()
        Me.pnloptions.SuspendLayout()
        Me.Panel2.SuspendLayout()
@@ -72,7 +71,7 @@ Partial Class frmFirmenuebersicht
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel1.Location = New System.Drawing.Point(0, 0)
        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(1503, 789)
+        Me.Panel1.Size = New System.Drawing.Size(1533, 789)
        Me.Panel1.TabIndex = 4
        '
        'pnloptions
@@ -84,9 +83,19 @@ Partial Class frmFirmenuebersicht
        Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.pnloptions.Location = New System.Drawing.Point(0, 632)
        Me.pnloptions.Name = "pnloptions"
-        Me.pnloptions.Size = New System.Drawing.Size(1503, 157)
+        Me.pnloptions.Size = New System.Drawing.Size(1533, 157)
        Me.pnloptions.TabIndex = 12
        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label7.Location = New System.Drawing.Point(1068, 11)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(174, 13)
+        Me.Label7.TabIndex = 41
+        Me.Label7.Text = "Mail-Exchange-Einstellungen:"
+        '
        'Button2
        '
        Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -128,7 +137,7 @@ Partial Class frmFirmenuebersicht
        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel2.Location = New System.Drawing.Point(0, 0)
        Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(1503, 118)
+        Me.Panel2.Size = New System.Drawing.Size(1533, 118)
        Me.Panel2.TabIndex = 11
        '
        'lblMail2
@@ -314,7 +323,7 @@ Partial Class frmFirmenuebersicht
        Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
        Me.pnlTop.Location = New System.Drawing.Point(0, 0)
        Me.pnlTop.Name = "pnlTop"
-        Me.pnlTop.Size = New System.Drawing.Size(1503, 41)
+        Me.pnlTop.Size = New System.Drawing.Size(1533, 41)
        Me.pnlTop.TabIndex = 6
        '
        'Label4
@@ -335,6 +344,8 @@ Partial Class frmFirmenuebersicht
        Me.dgvFirmen.AllowUserToDeleteRows = False
        Me.dgvFirmen.AllowUserToOrderColumns = True
        Me.dgvFirmen.AllowUserToResizeRows = False
+        Me.dgvFirmen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.dgvFirmen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
@@ -344,11 +355,10 @@ Partial Class frmFirmenuebersicht
        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.ControlText
        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
        Me.dgvFirmen.DefaultCellStyle = DataGridViewCellStyle1
-        Me.dgvFirmen.Dock = System.Windows.Forms.DockStyle.Fill
        Me.dgvFirmen.Location = New System.Drawing.Point(0, 118)
        Me.dgvFirmen.Name = "dgvFirmen"
        Me.dgvFirmen.RowHeadersVisible = False
-        Me.dgvFirmen.Size = New System.Drawing.Size(1503, 514)
+        Me.dgvFirmen.Size = New System.Drawing.Size(1530, 514)
        Me.dgvFirmen.TabIndex = 10
        '
        'dgvEmailSettings
@@ -356,31 +366,23 @@ Partial Class frmFirmenuebersicht
        Me.dgvEmailSettings.AKTUALISIERUNGS_INTERVALL = -1
        Me.dgvEmailSettings.AllowUserToAddRows = False
        Me.dgvEmailSettings.AllowUserToDeleteRows = False
+        Me.dgvEmailSettings.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.dgvEmailSettings.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvEmailSettings.Location = New System.Drawing.Point(1071, 27)
        Me.dgvEmailSettings.Name = "dgvEmailSettings"
        Me.dgvEmailSettings.ReadOnly = True
        Me.dgvEmailSettings.RowHeadersVisible = False
        Me.dgvEmailSettings.ShowEditingIcon = False
-        Me.dgvEmailSettings.Size = New System.Drawing.Size(429, 127)
+        Me.dgvEmailSettings.Size = New System.Drawing.Size(459, 127)
        Me.dgvEmailSettings.TabIndex = 2
        '
-        'Label7
-        '
-        Me.Label7.AutoSize = True
-        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label7.Location = New System.Drawing.Point(1068, 11)
-        Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(174, 13)
-        Me.Label7.TabIndex = 41
-        Me.Label7.Text = "Mail-Exchange-Einstellungen:"
-        '
        'frmFirmenuebersicht
        '
        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(1503, 789)
+        Me.ClientSize = New System.Drawing.Size(1533, 789)
        Me.Controls.Add(Me.pnlTop)
        Me.Controls.Add(Me.Panel1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
--- a/VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.vb
+++ b/VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.vb
@@ -28,9 +28,9 @@ Public Class frmFirmenuebersicht

            sqlstr &= " Select [Firma_ID] ,[Firma_Bez],[Firma_Straße],[Firma_PLZ],[Firma_Ort],[Firma_LandKz] as Land,replace([Firma_Telefon],'Tel. ','') as Firma_Telefon ,replace([Firma_Telefax],'Fax ','') as Firma_Telefax ,Replace([Firma_UID],'UID: ', '') as Firma_UID ,Replace([Firma_EORI],'EORI: ', '') as Firma_EORI,
            [Firma_Bankverbindung1],Replace([Firma_IBAN1],'IBAN: ', '') as Firma_IBAN1, Replace([Firma_BIC1],'BIC: ', '') as Firma_BIC1,[Firma_Bankverbindung2],[Firma_IBAN2],[Firma_BIC2],[Firma_E-Mail],
-            [Firma_Webadresse],[Firmengruppe],[Firma_Warenort],[Firma_E_Mail_Mahnungen],[Firma_E_Mail_Fakturierung],[Firma_Steuernummer] ,Replace([Firma_Firmenbuch],'Firmenbuch: ', '') as Firma_Firmenbuch,[Firma_Logo],[Firma_Logo_Erweitert]  from tblFirma "
+            [Firma_Webadresse],[Firmengruppe],[Firma_Warenort],[Firma_E_Mail_Mahnungen],[Firma_E_Mail_Fakturierung],[Firma_Steuernummer] ,Replace([Firma_Firmenbuch],'Firmenbuch: ', '') as Firma_Firmenbuch,[Firma_Logo],[Firma_Logo_Erweitert], [Firma_enableUIDPruefung] as [UID-Prüfung]  from tblFirma "

-            Dim sqlstr_Mailsettings As String = "  select mail_username as 'user',mail_password as PW, mail_host as Host, mail_port as Port,mail_kindOfMail, mail_firmaID  from tblMailSettings"
+            Dim sqlstr_Mailsettings As String = "  select mail_username as 'user',mail_password as PW, mail_host as Host, mail_port as Port,mail_kindOfMail as kindOfMail, mail_firmaID  from tblMailSettings"

            dt = SQL.loadDgvBySql(sqlstr_Mailsettings, "ADMIN")

@@ -70,20 +70,25 @@ Public Class frmFirmenuebersicht
            .Columns("Firma_E_Mail_Mahnungen").Visible = False
            .Columns("Firma_E_Mail_Fakturierung").Visible = False

-            .Columns("Firma_ID").Width = 30
-            .Columns("Firma_Warenort").Width = 60
+            .Columns("Firma_ID").Width = 20
+
+            .Columns("Firma_Warenort").Width = 50
            .Columns("Firma_PLZ").Width = 60
            .Columns("Land").Width = 40
            .Columns("Firma_Bez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

+            .Columns("UID-Prüfung").Width = 75
+
+
            If Not dgvFirmen.Columns.Contains("EmailEinstellungen") Then
                Dim col As New DataGridViewCheckBoxColumn()

                col.Name = "EmailEinstellungen"
-                col.HeaderText = "E-Mail-Settings"
+                col.HeaderText = "EMail-Settings"
                col.ReadOnly = True

                dgvFirmen.Columns.Add(col)
+                .Columns("EmailEinstellungen").Width = 75
            End If

            For Each col As DataGridViewColumn In dgvFirmen.Columns
@@ -153,6 +158,7 @@ Public Class frmFirmenuebersicht
                If rows.Length > 0 Then
                    dgvEmailSettings.DataSource = rows.CopyToDataTable()
                    dgvEmailSettings.Columns("mail_firmaID").Visible = False
+                    dgvEmailSettings.Columns("user").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
                Else
                    dgvEmailSettings.DataSource = Nothing
                End If
--- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenSicherheiten.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenSicherheiten.vb
@@ -26,6 +26,7 @@ Public Class cKundenSicherheiten

    Public Property sc_cbam_jahr As Integer? = Nothing
    Public Property sc_cbam_quartal As Integer? = Nothing
+    Public Property sc_updated As DateTime? = Nothing


    Public hasEntry As Boolean = False
--- a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
@@ -144,10 +144,10 @@ Public Class cUIDPruefung
    End Function


-    Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 3000) As DataTable
+    Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 3000, Optional olderThanCurrentMonth As Boolean = False) As DataTable
        Dim dt As DataTable = Nothing

-        dt = get_zupruefendeKunden(MaxEintraege, datum,, True)
+        dt = get_zupruefendeKunden(MaxEintraege, datum,, True, olderThanCurrentMonth)

        If dt IsNot Nothing Then
            If dt.Rows.Count = 0 Then Return Nothing
@@ -302,19 +302,29 @@ Public Class cUIDPruefung
        Return dt
    End Function

-    Public Shared Function get_zupruefendeKunden(MaxEintraege As Integer, Optional datum As Object = Nothing, Optional Firma As String = "", Optional Validierungspruefung As Boolean = False) As DataTable
+    Public Shared Function get_zupruefendeKunden(MaxEintraege As Integer, Optional datum As Object = Nothing, Optional Firma As String = "", Optional Validierungspruefung As Boolean = False, Optional olderThanCurrentMonth As Boolean = False) As DataTable

        Dim dt As DataTable = Nothing
        If datum = Nothing Then datum = CDate("15." & Now.ToString("MM.yyyy")).AddMonths(-1)

        Dim where = ""

+        Dim WhereDateOrMonthCondition As String = "UstIdGeprüft <= '" & datum.ToShortDateString & "'"
+        Dim WhereDateOrMonthConditionVeranlagung As String = "VAUID.UstIdGeprüft <= '" & datum.ToShortDateString & "'"
+
+        If olderThanCurrentMonth Then
+            WhereDateOrMonthCondition = "Month(UstIdGeprüft) <" & Now().Month & " and Year(UstIdGeprüft) <=" & Now().Year
+            WhereDateOrMonthConditionVeranlagung = "Month(VAUID.UstIdGeprüft) <" & Now().Month & " and Year(VAUID.UstIdGeprüft) <=" & Now().Year
+        End If
+
+
+
        If Firma = "" Then
            Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
        End If

        Select Case Firma
-            Case "AMBAR" : where = " And Filialen.FilialenNr  IN (5701) "
+            Case " AMBAR" : where = " And Filialen.FilialenNr  IN (5701) "
            Case "IMEX" : where = " And Filialen.FilialenNr  IN (5501) "
            Case "ATILLA" : where = " And Filialen.FilialenNr IN (4801) "
            Case "VERAG 360 GmbH" : where = " And Filialen.FilialenNr IN (8001) "
@@ -343,7 +353,7 @@ Public Class cUIDPruefung
        ELSE 'Nein'
    END AS istEUVAT, 'UID' as typ " &
          "  From [Adressen] inner Join kunden On KundenNr=AdressenNr  inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr " &
-          "  where (UstIdGeprüft <= '" & datum.ToShortDateString & "' OR UstIdGeprüft is null) and (isnull(Adressen.UstIdKz,'') <> '' and isnull(Adressen.UstIdNr,'') <> '') " &
+          "  where ( " & WhereDateOrMonthCondition & " OR UstIdGeprüft is null) and (isnull(Adressen.UstIdKz,'') <> '' and isnull(Adressen.UstIdNr,'') <> '') " &
          "  And Auswahl='A' " & where

        Dim SQLUID_Veranlagungskunden As String = "SELECT VAUID.KdNr,[Ordnungsbegriff] as Firma, VAUID.UstIdGeprüft, VAUID.UstIdKz,VAUID.UstIdNr, CASE WHEN UPPER(VAUID.UstIdKz) IN (
@@ -354,7 +364,7 @@ Public Class cUIDPruefung
        inner Join [Adressen] On AdressenNr=VAUID.KdNr 
        inner Join kunden On KundenNr=VAUID.KdNr  
        inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr 
-        where (VAUID.UstIdGeprüft <= '" & datum.ToShortDateString & "' OR VAUID.UstIdGeprüft is null) and (isnull(VAUID.UstIdKz,'') <> '' and isnull(VAUID.UstIdNr,'') <> '')  AND Filialen.firma='VERAG' " & where.Replace("Adressen.", "VAUID.")
+        where (" & WhereDateOrMonthConditionVeranlagung & " OR VAUID.UstIdGeprüft is null) and (isnull(VAUID.UstIdKz,'') <> '' and isnull(VAUID.UstIdNr,'') <> '')  AND Filialen.firma='VERAG' " & where.Replace("Adressen.", "VAUID.")

        dt = SQL.loadDgvBySql(SQLUID & " UNION ALL " & SQLUID_Veranlagungskunden & " ORDER BY Ordnungsbegriff", "FMZOLL")

--- a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb
+++ b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb
@@ -895,6 +895,7 @@ Public Class cVERAG_CustomsDeclarations
            Dim Kunde_Sicherheit As New cKundenSicherheiten(KUNDE.KundenNr, cbamQquarter, cbamYear)
            If Kunde_Sicherheit.hasEntry Then

+                Kunde_Sicherheit.sc_updated = Now()
                Kunde_Sicherheit.sc_Betrag = gesamtBetrag
                Kunde_Sicherheit.SAVE()
            Else
@@ -906,6 +907,7 @@ Public Class cVERAG_CustomsDeclarations
                Kunde_Sicherheit.sc_gueltigBis = New Date(2027, 12, 31)
                Kunde_Sicherheit.sc_datum = Today()
                Kunde_Sicherheit.sc_Mitarbeiter = "AUTO"
+                Kunde_Sicherheit.sc_MitarbeiterId = -1
                Kunde_Sicherheit.sc_dsId = -1
                Kunde_Sicherheit.SAVE()
            End If