Kundenuebersicht etc.

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>

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
 
 

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
-        tbcntrMain.TabPages(1).Enabled = True
-        UsrcntlKundeBearbeitenFull1.Enabled = True
 
-        '  If kdNr > 0 Then
+        If Not cAllgemein.PROGID = 16 Then
 
-        'Dim usr As New usrcntlKundeBearbeitenFull(kdNr)
 
-        UsrcntlKundeBearbeitenFull1.init(kdNr, isVerag360)
+
+            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
-            UsrcntlKundeBearbeitenFull1.cboFiliale.changeItem(FilialeNr)
+                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
+
     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)
 
@@ -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
 

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

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
-        '
+        Me.btnSonstAendSpeichern.Visible = False
-        '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
         '
         '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.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.pdf_s
+        Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
-        Me.PictureBox1.Location = New System.Drawing.Point(290, 191)
+        Me.ucKundenKontakte.Name = "ucKundenKontakte"
-        Me.PictureBox1.Name = "PictureBox1"
+        Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
-        Me.PictureBox1.Size = New System.Drawing.Size(20, 20)
+        Me.ucKundenKontakte.TabIndex = 0
-        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        '
-        Me.PictureBox1.TabIndex = 150
+        'UsrCntlKundenBesonderheiten1
-        Me.PictureBox1.TabStop = False
+        '
+        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

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -1,7 +1,4 @@
-Imports com.sun.xml.internal.rngom
+Imports MDM_Worker
-Imports DAKOSY_Worker
-Imports MDM_Worker
-Imports Tamir.SharpSsh.jsch
 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

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>

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.dgvFirmen = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
-        Me.dgvEmailSettings = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.dgvEmailSettings = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
-        Me.Label7 = New System.Windows.Forms.Label()
         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)

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_ID").Width = 20
-            .Columns("Firma_Warenort").Width = 60
+
+            .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

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

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

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