Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

abrechnung, etc.
2026-07-30 16:40:54 +02:00 · 2026-07-30 16:40:50 +02:00
8 changed files with 626 additions and 584 deletions
--- a/SDL/Fakturierung/cAutomailversand.vb
+++ b/SDL/Fakturierung/cAutomailversand.vb
@@ -8,6 +8,7 @@ Public Class cAutomailversand
        Try
            Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
            Dim counterSent As Integer = 0
+            Dim zusätzlicheInfo As String = ""

            'BEI SAMMELRECHNUNG WIRD ZUERST INTERN DER STATUS AUF 2 GESETZT

@@ -147,7 +148,7 @@ Public Class cAutomailversand



-                If Not (MailTo = "" AndAlso MailtoCC = "" AndAlso MailtoBCC = "") Then
+                If Not (MailTo = "" And MailtoCC = "") Then

                    Dim Mailsubject As String = ""
                    Dim HTMLMail As String = ""
@@ -197,7 +198,9 @@ Public Class cAutomailversand

                Else

-                    MsgBox("Es konnte kein Email-Empfänger ermittelt werden!")
+                    If zusätzlicheInfo = "" Then
+                        zusätzlicheInfo = " (es konnte kein Email-Empfänger ermittelt werden!)"
+                    End If

                End If

@@ -206,7 +209,7 @@ Public Class cAutomailversand

            Next

-            showCounter = counterSent & " von " & dt.Rows.Count & " erfolgreich versendet!"
+            showCounter = counterSent & " von " & dt.Rows.Count & " erfolgreich versendet!" & zusätzlicheInfo

        Catch ex As System.Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL,,,,,, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", "mmdabrechnung@verag.ag"))
@@ -230,6 +233,7 @@ Public Class cAutomailversand

        Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
        Dim counterSent As Integer = 0
+        Dim zusätzlicheInfo As String = ""

        Dim SQL_RKID As String = ""

@@ -286,7 +290,7 @@ Public Class cAutomailversand
                    If Not clearBCC Then MailtoBCC = setAccountToSend(FirmaID)
                End If

-                If Not (MailTo = "" AndAlso MailtoCC = "" AndAlso MailtoBCC = "") Then
+                If Not (MailTo = "" And MailtoCC = "") Then


                    Dim pathRG As String
@@ -344,14 +348,17 @@ Public Class cAutomailversand
                    End If

                Else
-                    MsgBox("Es konnte kein Email-Empfänger ermittelt werden!")
+
+                    If zusätzlicheInfo = "" Then
+                        zusätzlicheInfo = " (es konnte kein Email-Empfänger ermittelt werden!)"
+                    End If

                End If


            Next

-            showCounter = counterSent & " von " & dt.Rows.Count & " erfolgreich versendet!"
+            showCounter = counterSent & " von " & dt.Rows.Count & " erfolgreich versendet!" & zusätzlicheInfo

        Catch ex As System.Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL,,, "d.breimaier@verag.ag",,, setAccountToSend(FirmaID))
@@ -1307,9 +1314,11 @@ Public Class cAutomailversand
        API.api_EMailCC = EMails_CC
        API.api_EMailBCC = EMails_BCC
        API.api_EMailSubject = EMail_subject
-        API.api_EMailText = EMail_HTML
        API.api_EMailAttCnt = AttCount

+        'den Base64 String entfernen, ansonten frisst sich die DB voll!
+        API.api_EMailText = System.Text.RegularExpressions.Regex.Replace(EMail_HTML, "<img[^>]*src=""data:image\/[^""]+""[^>]*>", "", System.Text.RegularExpressions.RegexOptions.IgnoreCase)
+
        If Mail IsNot Nothing Then

            API.UPDTAE_OK()
--- a/SDL/Fakturierung/frmAbrechnungsMaske.vb
+++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb
@@ -1032,27 +1032,31 @@ Public Class frmAbrechnungsMaske
            Dim fun As New cAutomailversand
            Dim ShowInfo As String = ""
            fun.sendMailEinzelrechnungen(cboFirma._value, Today(), cbxMailoeffnen.Checked, cboSachbearbeiter._value, ListOfRK_ID, cbxMailoeffnen.Checked, ShowInfo)
-            initDGV()
-
-            If printAfterSent Then
-
-                For Each row In ListOfRK_ID
-                    cFakturierung.doRechnungsDruck(row,,, 1,, cboPrinter.Text)
-
-                Next
-
-            End If
-
-            If cbxMailoeffnen.Checked Then
-                ShowInfo = ""
-            End If
-
-            If ShowInfo <> "" Then
+            If ShowInfo.Contains("Empfänger") Then
                MsgBox(ShowInfo)
            End If

+            initDGV()

-        End If
+                If printAfterSent Then
+
+                    For Each row In ListOfRK_ID
+                        cFakturierung.doRechnungsDruck(row,,, 1,, cboPrinter.Text)
+
+                    Next
+
+                End If
+
+                If cbxMailoeffnen.Checked Then
+                    ShowInfo = ""
+                End If
+
+                If ShowInfo <> "" Then
+                    MsgBox(ShowInfo)
+                End If
+
+
+            End If


    End Sub
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
@@ -3472,6 +3472,7 @@ Public Class usrCntlFaktAbrechnung
        setAutomailversand(True)

        saveMe()
+
    End Sub

    Private Sub setAutomailversand(showMessageBox As Boolean)
@@ -4133,7 +4134,7 @@ Nächste_Textzeile_lesen:
            If sender Is Button16 Then
                RG_DRUCK = 5
            End If
-
+            initRECHNUNG()
            Dim f As New frmFaktEmail(RECHNUNG, SPEDBUCH, If(cbxOriginalPrint.Visible, cbxOriginalPrint.Checked, Nothing), RG_DRUCK, RECHNUNG.Firma_ID)
            f.ShowDialog(Me)
            initRECHNUNG()
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("1.5.6.2")>
-<Assembly: AssemblyFileVersion("1.5.6.2")>
+<Assembly: AssemblyVersion("1.5.6.3")>
+<Assembly: AssemblyFileVersion("1.5.6.3")>
--- a/SDL/USTV/frmMDM_USTVAntrag.vb
+++ b/SDL/USTV/frmMDM_USTVAntrag.vb
@@ -2277,53 +2277,63 @@ Public Class frmMDM_USTVAntrag

        If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then

-            If UstCntlUSTV_AntragPosition1.cbxAPI IsNot Nothing AndAlso UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value IsNot Nothing Then
-
-                If UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value = -1 OrElse UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId_loeschbar Then 'nur Dokumente löschen, die nicht über Schnittstellen geladen wurden!
-
-                    If UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId < 0 OrElse UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId Is Nothing Then
-
-                        Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "MDM", "MDM_DATEN", "USTVA_" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID & "_" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_interneNr, "SONSTIGE", USTV_ANTRAG.UStVAn_KuNr)
-
-                        If DS IsNot Nothing AndAlso DS.da_id IsNot Nothing Then
-                            If DS.DELETE_COMPLETE() Then
-                                'löschen nicht vorhandenen Verweis!
-                                SQL.doSQL("update tblUStVPositionen set UStVPo_daId = NULL where UStVAn_ID = " & UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID & " and UStVPo_daId > 0 and isnull(UStVPo_daId, 0) not in (select da_id from tblDatenarchiv)  ", "FMZOLL")
-
-                            End If
-                        End If
-
-                    ElseIf UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId > 0 Then
-
-                        Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId)
-
-                        If DS IsNot Nothing AndAlso DS.da_id IsNot Nothing Then
-                            If DS.DELETE_COMPLETE() Then
-                                'löschen nicht vorhandenen Verweis!
-                                SQL.doSQL("update tblUStVPositionen set UStVPo_daId = NULL where UStVAn_ID = " & UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID & " and UStVPo_daId > 0 and isnull(UStVPo_daId, 0) not in (select da_id from tblDatenarchiv)  ", "FMZOLL")
-                            End If
-
-                        End If
-
-                    End If
-
-
+            If UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID > 0 Then
+                Dim POS As New cUStVPositionen(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ID)
+                If POS.UStVPo_VZ_RKID IsNot Nothing AndAlso Not IsDBNull(POS.UStVPo_VZ_RKID) AndAlso IsNumeric(POS.UStVPo_VZ_RKID) Then
+                    MsgBox("Diese Position kann nicht gelöscht werden, sie wurde bereits abgerechnet und es existiert bereits ein Beleg dazu!")
+                    Exit Sub
                End If

-                Dim Leistungsbezeichnung = ""
-                If UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value = 3 Then Leistungsbezeichnung = UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_Leistungsbezeichnung
-
-                If setArchiv(UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr, Leistungsbezeichnung) Then
-                    If UstCntlUSTV_AntragPosition1.UStV_POS.DELETE(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ID) Then
-                        reorderUSTVAPositions(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID)
-                    End If
-                    init()
-                End If
            End If

-            UstCntlUSTV_AntragPosition1.Enabled = False

-        End If
+                If UstCntlUSTV_AntragPosition1.cbxAPI IsNot Nothing AndAlso UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value IsNot Nothing Then
+
+                    If UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value = -1 OrElse UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId_loeschbar Then 'nur Dokumente löschen, die nicht über Schnittstellen geladen wurden!
+
+                        If UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId < 0 OrElse UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId Is Nothing Then
+
+                            Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "MDM", "MDM_DATEN", "USTVA_" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID & "_" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_interneNr, "SONSTIGE", USTV_ANTRAG.UStVAn_KuNr)
+
+                            If DS IsNot Nothing AndAlso DS.da_id IsNot Nothing Then
+                                If DS.DELETE_COMPLETE() Then
+                                    'löschen nicht vorhandenen Verweis!
+                                    SQL.doSQL("update tblUStVPositionen set UStVPo_daId = NULL where UStVAn_ID = " & UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID & " and UStVPo_daId > 0 and isnull(UStVPo_daId, 0) not in (select da_id from tblDatenarchiv)  ", "FMZOLL")
+
+                                End If
+                            End If
+
+                        ElseIf UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId > 0 Then
+
+                            Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId)
+
+                            If DS IsNot Nothing AndAlso DS.da_id IsNot Nothing Then
+                                If DS.DELETE_COMPLETE() Then
+                                    'löschen nicht vorhandenen Verweis!
+                                    SQL.doSQL("update tblUStVPositionen set UStVPo_daId = NULL where UStVAn_ID = " & UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID & " and UStVPo_daId > 0 and isnull(UStVPo_daId, 0) not in (select da_id from tblDatenarchiv)  ", "FMZOLL")
+                                End If
+
+                            End If
+
+                        End If
+
+
+                    End If
+
+                    Dim Leistungsbezeichnung = ""
+                    If UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value = 3 Then Leistungsbezeichnung = UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_Leistungsbezeichnung
+
+                    If setArchiv(UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr, Leistungsbezeichnung) Then
+                        If UstCntlUSTV_AntragPosition1.UStV_POS.DELETE(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ID) Then
+                            reorderUSTVAPositions(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID)
+                        End If
+                        init()
+                    End If
+                End If
+
+                UstCntlUSTV_AntragPosition1.Enabled = False
+
+            End If
    End Sub

    Private Sub btnMail_Click(sender As Object, e As EventArgs) Handles btnMail.Click
@@ -3386,6 +3396,18 @@ Public Class frmMDM_USTVAntrag

                If vbYes = MsgBox("Möchten Sie die markierten " & dgvUSTVPositionen.SelectedRows.Count & " Einträge wirklich löschen?", vbYesNoCancel) Then

+
+                    For Each r As DataGridViewRow In dgvUSTVPositionen.SelectedRows
+
+                        If r.Cells("UStVPo_VZ_RKID").Value IsNot Nothing AndAlso Not IsDBNull(r.Cells("UStVPo_VZ_RKID").Value) AndAlso IsNumeric(r.Cells("UStVPo_VZ_RKID").Value) Then
+                            MsgBox("Es wurde mind. eine Position markiert, die bereits abgerechnet wurden zu der bereits ein Beleg existiert!" & vbNewLine & "Position kann nicht gelöscht werden!")
+                            Exit Sub
+                        End If
+
+                    Next
+
+
+
                    For Each r As DataGridViewRow In dgvUSTVPositionen.SelectedRows

                        If r.Cells("UStVPo_Schnittstelle").Value IsNot Nothing AndAlso r.Cells("UStVPo_SchnittstellenNr").Value IsNot Nothing AndAlso IsNumeric(r.Cells("UStVPo_SchnittstellenNr").Value) Then
--- a/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb
+++ b/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb
@@ -24,9 +24,12 @@ Partial Class ustCntlUSTV_AntragPosition
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Me.tabDok = New System.Windows.Forms.TabPage()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
        Me.tbcntr = New System.Windows.Forms.TabControl()
        Me.tabVollmachten = New System.Windows.Forms.TabPage()
+        Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
        Me.tabFABest = New System.Windows.Forms.TabPage()
+        Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
        Me.Label8 = New System.Windows.Forms.Label()
        Me.Label7 = New System.Windows.Forms.Label()
        Me.Panel2 = New System.Windows.Forms.Panel()
@@ -47,37 +50,25 @@ Partial Class ustCntlUSTV_AntragPosition
        Me.lblSachbearbeiter = New System.Windows.Forms.Label()
        Me.pnl = New System.Windows.Forms.Panel()
        Me.btn_EUR_to_FW = New System.Windows.Forms.Button()
+        Me.txtNettobetragEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtNettobetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label19 = New System.Windows.Forms.Label()
        Me.Label18 = New System.Windows.Forms.Label()
        Me.btnDel = New System.Windows.Forms.Button()
+        Me.cbxAntragsfilter = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
        Me.lblWarning = New System.Windows.Forms.Label()
        Me.btnLeistenderSave = New System.Windows.Forms.Button()
+        Me.sbLeistender = New VERAG_PROG_ALLGEMEIN.MySearchBox()
        Me.pnlAdresse = New System.Windows.Forms.Panel()
+        Me.txtStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label14 = New System.Windows.Forms.Label()
        Me.Label17 = New System.Windows.Forms.Label()
        Me.Label15 = New System.Windows.Forms.Label()
-        Me.Label16 = New System.Windows.Forms.Label()
-        Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.btnAPIUbload = New System.Windows.Forms.Button()
-        Me.Panel3 = New System.Windows.Forms.Panel()
-        Me.Panel4 = New System.Windows.Forms.Panel()
-        Me.TabControl1 = New System.Windows.Forms.TabControl()
-        Me.TabPage1 = New System.Windows.Forms.TabPage()
-        Me.cnS_KIUPLOAD = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
-        Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
-        Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
-        Me.UsrcntlPDFScanList1 = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
-        Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
-        Me.txtNettobetragEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtNettobetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.cbxAntragsfilter = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
-        Me.sbLeistender = New VERAG_PROG_ALLGEMEIN.MySearchBox()
-        Me.txtStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtLand = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtPLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtStrassenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label16 = New System.Windows.Forms.Label()
        Me.txtOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.cboSchnittstellennr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.txtRgNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -88,6 +79,15 @@ Partial Class ustCntlUSTV_AntragPosition
        Me.txtUSTBetragEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtUmrechnungskurs = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtUSTBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.btnAPIUbload = New System.Windows.Forms.Button()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.TabControl1 = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrcntlPDFScanList1 = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.cnS_KIUPLOAD = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.tabDok.SuspendLayout()
        Me.tbcntr.SuspendLayout()
        Me.tabVollmachten.SuspendLayout()
@@ -113,6 +113,27 @@ Partial Class ustCntlUSTV_AntragPosition
        Me.tabDok.Text = "Rechnungen"
        Me.tabDok.UseVisualStyleBackColor = True
        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges._OPEN_ORIGINAL = False
+        Me.scanSonstiges._TYPE = "PDF"
+        Me.scanSonstiges.AllowDrop = True
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 3)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 191)
+        Me.scanSonstiges.TabIndex = 0
+        '
        'tbcntr
        '
        Me.tbcntr.Controls.Add(Me.tabDok)
@@ -136,6 +157,27 @@ Partial Class ustCntlUSTV_AntragPosition
        Me.tabVollmachten.Text = "Vollmachten"
        Me.tabVollmachten.UseVisualStyleBackColor = True
        '
+        'scanUSTVVollmachten
+        '
+        Me.scanUSTVVollmachten._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanUSTVVollmachten._DATENSERVER_ORDNER = "MDM"
+        Me.scanUSTVVollmachten._DATENSERVER_UOrdner1 = ""
+        Me.scanUSTVVollmachten._DATENSERVER_UOrdner2 = ""
+        Me.scanUSTVVollmachten._DATENSERVER_UOrdner3 = ""
+        Me.scanUSTVVollmachten._OPEN_ORIGINAL = False
+        Me.scanUSTVVollmachten._TYPE = "PDF"
+        Me.scanUSTVVollmachten.AllowDrop = True
+        Me.scanUSTVVollmachten.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanUSTVVollmachten.BackColor = System.Drawing.Color.White
+        Me.scanUSTVVollmachten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanUSTVVollmachten.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanUSTVVollmachten.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.scanUSTVVollmachten.Location = New System.Drawing.Point(3, 3)
+        Me.scanUSTVVollmachten.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanUSTVVollmachten.Name = "scanUSTVVollmachten"
+        Me.scanUSTVVollmachten.Size = New System.Drawing.Size(250, 191)
+        Me.scanUSTVVollmachten.TabIndex = 1
+        '
        'tabFABest
        '
        Me.tabFABest.Controls.Add(Me.scanUSTVFABest)
@@ -146,6 +188,27 @@ Partial Class ustCntlUSTV_AntragPosition
        Me.tabFABest.Text = "FA_Bestätigung"
        Me.tabFABest.UseVisualStyleBackColor = True
        '
+        'scanUSTVFABest
+        '
+        Me.scanUSTVFABest._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanUSTVFABest._DATENSERVER_ORDNER = "MDM"
+        Me.scanUSTVFABest._DATENSERVER_UOrdner1 = ""
+        Me.scanUSTVFABest._DATENSERVER_UOrdner2 = ""
+        Me.scanUSTVFABest._DATENSERVER_UOrdner3 = ""
+        Me.scanUSTVFABest._OPEN_ORIGINAL = False
+        Me.scanUSTVFABest._TYPE = "PDF"
+        Me.scanUSTVFABest.AllowDrop = True
+        Me.scanUSTVFABest.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanUSTVFABest.BackColor = System.Drawing.Color.White
+        Me.scanUSTVFABest.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanUSTVFABest.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanUSTVFABest.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.scanUSTVFABest.Location = New System.Drawing.Point(0, 0)
+        Me.scanUSTVFABest.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanUSTVFABest.Name = "scanUSTVFABest"
+        Me.scanUSTVFABest.Size = New System.Drawing.Size(256, 197)
+        Me.scanUSTVFABest.TabIndex = 1
+        '
        'Label8
        '
        Me.Label8.AutoSize = True
@@ -389,291 +452,6 @@ Partial Class ustCntlUSTV_AntragPosition
        Me.btn_EUR_to_FW.UseVisualStyleBackColor = True
        Me.btn_EUR_to_FW.Visible = False
        '
-        'Label19
-        '
-        Me.Label19.AutoSize = True
-        Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
-        Me.Label19.Location = New System.Drawing.Point(291, 152)
-        Me.Label19.Name = "Label19"
-        Me.Label19.Size = New System.Drawing.Size(105, 15)
-        Me.Label19.TabIndex = 27
-        Me.Label19.Text = "Netto-Betrag EUR"
-        '
-        'Label18
-        '
-        Me.Label18.AutoSize = True
-        Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
-        Me.Label18.Location = New System.Drawing.Point(14, 152)
-        Me.Label18.Name = "Label18"
-        Me.Label18.Size = New System.Drawing.Size(79, 15)
-        Me.Label18.TabIndex = 26
-        Me.Label18.Text = "Netto-Betrag:"
-        '
-        'btnDel
-        '
-        Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del
-        Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnDel.Location = New System.Drawing.Point(834, 162)
-        Me.btnDel.Name = "btnDel"
-        Me.btnDel.Size = New System.Drawing.Size(36, 24)
-        Me.btnDel.TabIndex = 25
-        Me.btnDel.TextAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.btnDel.UseVisualStyleBackColor = True
-        Me.btnDel.Visible = False
-        '
-        'lblWarning
-        '
-        Me.lblWarning.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblWarning.ForeColor = System.Drawing.Color.Red
-        Me.lblWarning.Location = New System.Drawing.Point(294, 193)
-        Me.lblWarning.Name = "lblWarning"
-        Me.lblWarning.Size = New System.Drawing.Size(322, 39)
-        Me.lblWarning.TabIndex = 23
-        '
-        'btnLeistenderSave
-        '
-        Me.btnLeistenderSave.BackgroundImage = Global.SDL.My.Resources.Resources.save
-        Me.btnLeistenderSave.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.btnLeistenderSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnLeistenderSave.Location = New System.Drawing.Point(876, 162)
-        Me.btnLeistenderSave.Name = "btnLeistenderSave"
-        Me.btnLeistenderSave.Size = New System.Drawing.Size(36, 24)
-        Me.btnLeistenderSave.TabIndex = 16
-        Me.btnLeistenderSave.TextAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.btnLeistenderSave.UseVisualStyleBackColor = True
-        Me.btnLeistenderSave.Visible = False
-        '
-        'pnlAdresse
-        '
-        Me.pnlAdresse.AccessibleRole = System.Windows.Forms.AccessibleRole.WhiteSpace
-        Me.pnlAdresse.Controls.Add(Me.txtStrasse)
-        Me.pnlAdresse.Controls.Add(Me.txtUIDNr)
-        Me.pnlAdresse.Controls.Add(Me.Label14)
-        Me.pnlAdresse.Controls.Add(Me.Label17)
-        Me.pnlAdresse.Controls.Add(Me.Label15)
-        Me.pnlAdresse.Controls.Add(Me.txtLand)
-        Me.pnlAdresse.Controls.Add(Me.txtPLZ)
-        Me.pnlAdresse.Controls.Add(Me.txtStrassenNr)
-        Me.pnlAdresse.Controls.Add(Me.Label16)
-        Me.pnlAdresse.Controls.Add(Me.txtOrt)
-        Me.pnlAdresse.Location = New System.Drawing.Point(626, 76)
-        Me.pnlAdresse.Name = "pnlAdresse"
-        Me.pnlAdresse.Size = New System.Drawing.Size(287, 82)
-        Me.pnlAdresse.TabIndex = 14
-        '
-        'Label14
-        '
-        Me.Label14.AutoSize = True
-        Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
-        Me.Label14.Location = New System.Drawing.Point(4, 5)
-        Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(64, 15)
-        Me.Label14.TabIndex = 23
-        Me.Label14.Text = "Strasse/Nr"
-        '
-        'Label17
-        '
-        Me.Label17.AutoSize = True
-        Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
-        Me.Label17.Location = New System.Drawing.Point(129, 63)
-        Me.Label17.Name = "Label17"
-        Me.Label17.Size = New System.Drawing.Size(45, 15)
-        Me.Label17.TabIndex = 31
-        Me.Label17.Text = "UID-Nr"
-        '
-        'Label15
-        '
-        Me.Label15.AutoSize = True
-        Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
-        Me.Label15.Location = New System.Drawing.Point(8, 32)
-        Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(48, 15)
-        Me.Label15.TabIndex = 25
-        Me.Label15.Text = "PLZ/Ort"
-        '
-        'Label16
-        '
-        Me.Label16.AutoSize = True
-        Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
-        Me.Label16.Location = New System.Drawing.Point(8, 58)
-        Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(35, 15)
-        Me.Label16.TabIndex = 27
-        Me.Label16.Text = "Land"
-        '
-        'Panel1
-        '
-        Me.Panel1.Controls.Add(Me.btnAPIUbload)
-        Me.Panel1.Controls.Add(Me.btnBildAuf)
-        Me.Panel1.Controls.Add(Me.Button1)
-        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right
-        Me.Panel1.Location = New System.Drawing.Point(937, 30)
-        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(99, 239)
-        Me.Panel1.TabIndex = 2
-        '
-        'btnAPIUbload
-        '
-        Me.btnAPIUbload.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.btnAPIUbload.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnAPIUbload.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnAPIUbload.Location = New System.Drawing.Point(16, 186)
-        Me.btnAPIUbload.Name = "btnAPIUbload"
-        Me.btnAPIUbload.Size = New System.Drawing.Size(71, 24)
-        Me.btnAPIUbload.TabIndex = 25
-        Me.btnAPIUbload.Text = "API-Upload"
-        Me.btnAPIUbload.UseVisualStyleBackColor = True
-        '
-        'Panel3
-        '
-        Me.Panel3.Controls.Add(Me.tbcntr)
-        Me.Panel3.Controls.Add(Me.Panel4)
-        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Right
-        Me.Panel3.Location = New System.Drawing.Point(1036, 30)
-        Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(264, 239)
-        Me.Panel3.TabIndex = 25
-        '
-        'Panel4
-        '
-        Me.Panel4.Controls.Add(Me.TabControl1)
-        Me.Panel4.Controls.Add(Me.scanLieferschein)
-        Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top
-        Me.Panel4.Location = New System.Drawing.Point(0, 0)
-        Me.Panel4.Name = "Panel4"
-        Me.Panel4.Size = New System.Drawing.Size(264, 16)
-        Me.Panel4.TabIndex = 26
-        '
-        'TabControl1
-        '
-        Me.TabControl1.Controls.Add(Me.TabPage1)
-        Me.TabControl1.Location = New System.Drawing.Point(39, 49)
-        Me.TabControl1.Name = "TabControl1"
-        Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(278, 239)
-        Me.TabControl1.TabIndex = 3
-        '
-        'TabPage1
-        '
-        Me.TabPage1.Controls.Add(Me.UsrcntlPDFScanList1)
-        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage1.Name = "TabPage1"
-        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(270, 213)
-        Me.TabPage1.TabIndex = 1
-        Me.TabPage1.Text = "Dokumente"
-        Me.TabPage1.UseVisualStyleBackColor = True
-        '
-        'cnS_KIUPLOAD
-        '
-        Me.cnS_KIUPLOAD.Name = "ContextMenuStrip1"
-        Me.cnS_KIUPLOAD.Size = New System.Drawing.Size(61, 4)
-        '
-        'scanSonstiges
-        '
-        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
-        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
-        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
-        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
-        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
-        Me.scanSonstiges._OPEN_ORIGINAL = False
-        Me.scanSonstiges._TYPE = "PDF"
-        Me.scanSonstiges.AllowDrop = True
-        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
-        Me.scanSonstiges.BackColor = System.Drawing.Color.White
-        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.scanSonstiges.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.scanSonstiges.Location = New System.Drawing.Point(3, 3)
-        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
-        Me.scanSonstiges.Name = "scanSonstiges"
-        Me.scanSonstiges.Size = New System.Drawing.Size(250, 191)
-        Me.scanSonstiges.TabIndex = 0
-        '
-        'scanUSTVVollmachten
-        '
-        Me.scanUSTVVollmachten._DATENSERVER_KATEGORIE = "DOKUMENTE"
-        Me.scanUSTVVollmachten._DATENSERVER_ORDNER = "MDM"
-        Me.scanUSTVVollmachten._DATENSERVER_UOrdner1 = ""
-        Me.scanUSTVVollmachten._DATENSERVER_UOrdner2 = ""
-        Me.scanUSTVVollmachten._DATENSERVER_UOrdner3 = ""
-        Me.scanUSTVVollmachten._OPEN_ORIGINAL = False
-        Me.scanUSTVVollmachten._TYPE = "PDF"
-        Me.scanUSTVVollmachten.AllowDrop = True
-        Me.scanUSTVVollmachten.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
-        Me.scanUSTVVollmachten.BackColor = System.Drawing.Color.White
-        Me.scanUSTVVollmachten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.scanUSTVVollmachten.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.scanUSTVVollmachten.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.scanUSTVVollmachten.Location = New System.Drawing.Point(3, 3)
-        Me.scanUSTVVollmachten.Margin = New System.Windows.Forms.Padding(0)
-        Me.scanUSTVVollmachten.Name = "scanUSTVVollmachten"
-        Me.scanUSTVVollmachten.Size = New System.Drawing.Size(250, 191)
-        Me.scanUSTVVollmachten.TabIndex = 1
-        '
-        'scanUSTVFABest
-        '
-        Me.scanUSTVFABest._DATENSERVER_KATEGORIE = "DOKUMENTE"
-        Me.scanUSTVFABest._DATENSERVER_ORDNER = "MDM"
-        Me.scanUSTVFABest._DATENSERVER_UOrdner1 = ""
-        Me.scanUSTVFABest._DATENSERVER_UOrdner2 = ""
-        Me.scanUSTVFABest._DATENSERVER_UOrdner3 = ""
-        Me.scanUSTVFABest._OPEN_ORIGINAL = False
-        Me.scanUSTVFABest._TYPE = "PDF"
-        Me.scanUSTVFABest.AllowDrop = True
-        Me.scanUSTVFABest.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
-        Me.scanUSTVFABest.BackColor = System.Drawing.Color.White
-        Me.scanUSTVFABest.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.scanUSTVFABest.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.scanUSTVFABest.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.scanUSTVFABest.Location = New System.Drawing.Point(0, 0)
-        Me.scanUSTVFABest.Margin = New System.Windows.Forms.Padding(0)
-        Me.scanUSTVFABest.Name = "scanUSTVFABest"
-        Me.scanUSTVFABest.Size = New System.Drawing.Size(256, 197)
-        Me.scanUSTVFABest.TabIndex = 1
-        '
-        'UsrcntlPDFScanList1
-        '
-        Me.UsrcntlPDFScanList1._DATENSERVER_KATEGORIE = "DOKUMENTE"
-        Me.UsrcntlPDFScanList1._DATENSERVER_ORDNER = "MDM"
-        Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner1 = ""
-        Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner2 = ""
-        Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner3 = ""
-        Me.UsrcntlPDFScanList1._OPEN_ORIGINAL = False
-        Me.UsrcntlPDFScanList1._TYPE = "PDF"
-        Me.UsrcntlPDFScanList1.AllowDrop = True
-        Me.UsrcntlPDFScanList1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
-        Me.UsrcntlPDFScanList1.BackColor = System.Drawing.Color.White
-        Me.UsrcntlPDFScanList1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.UsrcntlPDFScanList1.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.UsrcntlPDFScanList1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrcntlPDFScanList1.Location = New System.Drawing.Point(3, 3)
-        Me.UsrcntlPDFScanList1.Margin = New System.Windows.Forms.Padding(0)
-        Me.UsrcntlPDFScanList1.Name = "UsrcntlPDFScanList1"
-        Me.UsrcntlPDFScanList1.Size = New System.Drawing.Size(264, 207)
-        Me.UsrcntlPDFScanList1.TabIndex = 0
-        '
-        'scanLieferschein
-        '
-        Me.scanLieferschein._ARCHIV = True
-        Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
-        Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
-        Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
-        Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
-        Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
-        Me.scanLieferschein._MULTI_FILES = True
-        Me.scanLieferschein._TEXT_PDF = "XX Vollmacht"
-        Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
-        Me.scanLieferschein.BackColor = System.Drawing.Color.White
-        Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
-        Me.scanLieferschein.Location = New System.Drawing.Point(146, 3)
-        Me.scanLieferschein.Name = "scanLieferschein"
-        Me.scanLieferschein.Size = New System.Drawing.Size(111, 34)
-        Me.scanLieferschein.TabIndex = 2
-        Me.scanLieferschein.Visible = False
-        '
        'txtNettobetragEUR
        '
        Me.txtNettobetragEUR._DateTimeOnly = False
@@ -724,6 +502,39 @@ Partial Class ustCntlUSTV_AntragPosition
        Me.txtNettobetrag.Size = New System.Drawing.Size(154, 20)
        Me.txtNettobetrag.TabIndex = 28
        '
+        'Label19
+        '
+        Me.Label19.AutoSize = True
+        Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
+        Me.Label19.Location = New System.Drawing.Point(291, 152)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(105, 15)
+        Me.Label19.TabIndex = 27
+        Me.Label19.Text = "Netto-Betrag EUR"
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
+        Me.Label18.Location = New System.Drawing.Point(14, 152)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(79, 15)
+        Me.Label18.TabIndex = 26
+        Me.Label18.Text = "Netto-Betrag:"
+        '
+        'btnDel
+        '
+        Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del
+        Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnDel.Location = New System.Drawing.Point(834, 162)
+        Me.btnDel.Name = "btnDel"
+        Me.btnDel.Size = New System.Drawing.Size(36, 24)
+        Me.btnDel.TabIndex = 25
+        Me.btnDel.TextAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnDel.UseVisualStyleBackColor = True
+        Me.btnDel.Visible = False
+        '
        'cbxAntragsfilter
        '
        Me.cbxAntragsfilter._date = Nothing
@@ -738,6 +549,28 @@ Partial Class ustCntlUSTV_AntragPosition
        Me.cbxAntragsfilter.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.cbxAntragsfilter.UseVisualStyleBackColor = True
        '
+        'lblWarning
+        '
+        Me.lblWarning.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblWarning.ForeColor = System.Drawing.Color.Red
+        Me.lblWarning.Location = New System.Drawing.Point(294, 193)
+        Me.lblWarning.Name = "lblWarning"
+        Me.lblWarning.Size = New System.Drawing.Size(322, 39)
+        Me.lblWarning.TabIndex = 23
+        '
+        'btnLeistenderSave
+        '
+        Me.btnLeistenderSave.BackgroundImage = Global.SDL.My.Resources.Resources.save
+        Me.btnLeistenderSave.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnLeistenderSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnLeistenderSave.Location = New System.Drawing.Point(876, 162)
+        Me.btnLeistenderSave.Name = "btnLeistenderSave"
+        Me.btnLeistenderSave.Size = New System.Drawing.Size(36, 24)
+        Me.btnLeistenderSave.TabIndex = 16
+        Me.btnLeistenderSave.TextAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnLeistenderSave.UseVisualStyleBackColor = True
+        Me.btnLeistenderSave.Visible = False
+        '
        'sbLeistender
        '
        Me.sbLeistender._allowFreitext = True
@@ -763,6 +596,24 @@ Partial Class ustCntlUSTV_AntragPosition
        Me.sbLeistender.TabIndex = 9
        Me.sbLeistender.usrcntl = Nothing
        '
+        'pnlAdresse
+        '
+        Me.pnlAdresse.AccessibleRole = System.Windows.Forms.AccessibleRole.WhiteSpace
+        Me.pnlAdresse.Controls.Add(Me.txtStrasse)
+        Me.pnlAdresse.Controls.Add(Me.txtUIDNr)
+        Me.pnlAdresse.Controls.Add(Me.Label14)
+        Me.pnlAdresse.Controls.Add(Me.Label17)
+        Me.pnlAdresse.Controls.Add(Me.Label15)
+        Me.pnlAdresse.Controls.Add(Me.txtLand)
+        Me.pnlAdresse.Controls.Add(Me.txtPLZ)
+        Me.pnlAdresse.Controls.Add(Me.txtStrassenNr)
+        Me.pnlAdresse.Controls.Add(Me.Label16)
+        Me.pnlAdresse.Controls.Add(Me.txtOrt)
+        Me.pnlAdresse.Location = New System.Drawing.Point(626, 76)
+        Me.pnlAdresse.Name = "pnlAdresse"
+        Me.pnlAdresse.Size = New System.Drawing.Size(287, 82)
+        Me.pnlAdresse.TabIndex = 14
+        '
        'txtStrasse
        '
        Me.txtStrasse._DateTimeOnly = False
@@ -811,6 +662,36 @@ Partial Class ustCntlUSTV_AntragPosition
        Me.txtUIDNr.Size = New System.Drawing.Size(106, 20)
        Me.txtUIDNr.TabIndex = 15
        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
+        Me.Label14.Location = New System.Drawing.Point(4, 5)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(64, 15)
+        Me.Label14.TabIndex = 23
+        Me.Label14.Text = "Strasse/Nr"
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
+        Me.Label17.Location = New System.Drawing.Point(129, 63)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(45, 15)
+        Me.Label17.TabIndex = 31
+        Me.Label17.Text = "UID-Nr"
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
+        Me.Label15.Location = New System.Drawing.Point(8, 32)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(48, 15)
+        Me.Label15.TabIndex = 25
+        Me.Label15.Text = "PLZ/Ort"
+        '
        'txtLand
        '
        Me.txtLand._DateTimeOnly = False
@@ -883,6 +764,16 @@ Partial Class ustCntlUSTV_AntragPosition
        Me.txtStrassenNr.Size = New System.Drawing.Size(45, 20)
        Me.txtStrassenNr.TabIndex = 11
        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
+        Me.Label16.Location = New System.Drawing.Point(8, 58)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(35, 15)
+        Me.Label16.TabIndex = 27
+        Me.Label16.Text = "Land"
+        '
        'txtOrt
        '
        Me.txtOrt._DateTimeOnly = False
@@ -1012,7 +903,7 @@ Partial Class ustCntlUSTV_AntragPosition
        Me.txtLeistungsbezeichnung._Waehrung = False
        Me.txtLeistungsbezeichnung._WaehrungZeichen = True
        Me.txtLeistungsbezeichnung.Location = New System.Drawing.Point(445, 49)
-        Me.txtLeistungsbezeichnung.MaxLength = 22
+        Me.txtLeistungsbezeichnung.MaxLength = 100
        Me.txtLeistungsbezeichnung.MaxLineLength = -1
        Me.txtLeistungsbezeichnung.MaxLines_Warning = ""
        Me.txtLeistungsbezeichnung.MaxLines_Warning_Label = Nothing
@@ -1092,6 +983,115 @@ Partial Class ustCntlUSTV_AntragPosition
        Me.txtUSTBetrag.Size = New System.Drawing.Size(154, 20)
        Me.txtUSTBetrag.TabIndex = 17
        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.btnAPIUbload)
+        Me.Panel1.Controls.Add(Me.btnBildAuf)
+        Me.Panel1.Controls.Add(Me.Button1)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right
+        Me.Panel1.Location = New System.Drawing.Point(937, 30)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(99, 239)
+        Me.Panel1.TabIndex = 2
+        '
+        'btnAPIUbload
+        '
+        Me.btnAPIUbload.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnAPIUbload.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAPIUbload.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnAPIUbload.Location = New System.Drawing.Point(16, 186)
+        Me.btnAPIUbload.Name = "btnAPIUbload"
+        Me.btnAPIUbload.Size = New System.Drawing.Size(71, 24)
+        Me.btnAPIUbload.TabIndex = 25
+        Me.btnAPIUbload.Text = "API-Upload"
+        Me.btnAPIUbload.UseVisualStyleBackColor = True
+        '
+        'Panel3
+        '
+        Me.Panel3.Controls.Add(Me.tbcntr)
+        Me.Panel3.Controls.Add(Me.Panel4)
+        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Right
+        Me.Panel3.Location = New System.Drawing.Point(1036, 30)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(264, 239)
+        Me.Panel3.TabIndex = 25
+        '
+        'Panel4
+        '
+        Me.Panel4.Controls.Add(Me.TabControl1)
+        Me.Panel4.Controls.Add(Me.scanLieferschein)
+        Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel4.Location = New System.Drawing.Point(0, 0)
+        Me.Panel4.Name = "Panel4"
+        Me.Panel4.Size = New System.Drawing.Size(264, 16)
+        Me.Panel4.TabIndex = 26
+        '
+        'TabControl1
+        '
+        Me.TabControl1.Controls.Add(Me.TabPage1)
+        Me.TabControl1.Location = New System.Drawing.Point(39, 49)
+        Me.TabControl1.Name = "TabControl1"
+        Me.TabControl1.SelectedIndex = 0
+        Me.TabControl1.Size = New System.Drawing.Size(278, 239)
+        Me.TabControl1.TabIndex = 3
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrcntlPDFScanList1)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(270, 213)
+        Me.TabPage1.TabIndex = 1
+        Me.TabPage1.Text = "Dokumente"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrcntlPDFScanList1
+        '
+        Me.UsrcntlPDFScanList1._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.UsrcntlPDFScanList1._DATENSERVER_ORDNER = "MDM"
+        Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner1 = ""
+        Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner2 = ""
+        Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner3 = ""
+        Me.UsrcntlPDFScanList1._OPEN_ORIGINAL = False
+        Me.UsrcntlPDFScanList1._TYPE = "PDF"
+        Me.UsrcntlPDFScanList1.AllowDrop = True
+        Me.UsrcntlPDFScanList1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.UsrcntlPDFScanList1.BackColor = System.Drawing.Color.White
+        Me.UsrcntlPDFScanList1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.UsrcntlPDFScanList1.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.UsrcntlPDFScanList1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrcntlPDFScanList1.Location = New System.Drawing.Point(3, 3)
+        Me.UsrcntlPDFScanList1.Margin = New System.Windows.Forms.Padding(0)
+        Me.UsrcntlPDFScanList1.Name = "UsrcntlPDFScanList1"
+        Me.UsrcntlPDFScanList1.Size = New System.Drawing.Size(264, 207)
+        Me.UsrcntlPDFScanList1.TabIndex = 0
+        '
+        'scanLieferschein
+        '
+        Me.scanLieferschein._ARCHIV = True
+        Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
+        Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
+        Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
+        Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
+        Me.scanLieferschein._MULTI_FILES = True
+        Me.scanLieferschein._TEXT_PDF = "XX Vollmacht"
+        Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanLieferschein.BackColor = System.Drawing.Color.White
+        Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanLieferschein.Location = New System.Drawing.Point(146, 3)
+        Me.scanLieferschein.Name = "scanLieferschein"
+        Me.scanLieferschein.Size = New System.Drawing.Size(111, 34)
+        Me.scanLieferschein.TabIndex = 2
+        Me.scanLieferschein.Visible = False
+        '
+        'cnS_KIUPLOAD
+        '
+        Me.cnS_KIUPLOAD.Name = "ContextMenuStrip1"
+        Me.cnS_KIUPLOAD.Size = New System.Drawing.Size(61, 4)
+        '
        'ustCntlUSTV_AntragPosition
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
@@ -23,34 +23,34 @@ Partial Class usrcntlKundeBearbeitenFull
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle51 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle52 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle53 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle54 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle55 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle56 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.tbcntrDetails = New System.Windows.Forms.TabControl()
        Me.tbAbfertigung = New System.Windows.Forms.TabPage()
        Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox()
@@ -105,6 +105,8 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbFiskal = New System.Windows.Forms.TabPage()
        Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
        Me.tbVerrechnung = New System.Windows.Forms.TabPage()
+        Me.cbxHR_autoselect = New System.Windows.Forms.CheckBox()
+        Me.cbxPDFMerge = New System.Windows.Forms.CheckBox()
        Me.cbxSammelrechnung_IM_EX = New System.Windows.Forms.CheckBox()
        Me.pnlKundenUIDveranlagt = New System.Windows.Forms.Panel()
        Me.Label122 = New System.Windows.Forms.Label()
@@ -446,8 +448,6 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.cbxPDFMerge = New System.Windows.Forms.CheckBox()
-        Me.cbxHR_autoselect = New System.Windows.Forms.CheckBox()
        Me.tbcntrDetails.SuspendLayout()
        Me.tbAbfertigung.SuspendLayout()
        Me.tbcntrAbf.SuspendLayout()
@@ -1244,6 +1244,28 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbVerrechnung.Text = "Verrechnung"
        Me.tbVerrechnung.UseVisualStyleBackColor = True
        '
+        'cbxHR_autoselect
+        '
+        Me.cbxHR_autoselect.AutoSize = True
+        Me.cbxHR_autoselect.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxHR_autoselect.Location = New System.Drawing.Point(431, 264)
+        Me.cbxHR_autoselect.Name = "cbxHR_autoselect"
+        Me.cbxHR_autoselect.Size = New System.Drawing.Size(188, 17)
+        Me.cbxHR_autoselect.TabIndex = 56
+        Me.cbxHR_autoselect.Text = "Handelrechnung in RE auswählen"
+        Me.cbxHR_autoselect.UseVisualStyleBackColor = True
+        '
+        'cbxPDFMerge
+        '
+        Me.cbxPDFMerge.AutoSize = True
+        Me.cbxPDFMerge.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxPDFMerge.Location = New System.Drawing.Point(431, 244)
+        Me.cbxPDFMerge.Name = "cbxPDFMerge"
+        Me.cbxPDFMerge.Size = New System.Drawing.Size(183, 17)
+        Me.cbxPDFMerge.TabIndex = 55
+        Me.cbxPDFMerge.Text = "alle PDFs in RE zusammenführen"
+        Me.cbxPDFMerge.UseVisualStyleBackColor = True
+        '
        'cbxSammelrechnung_IM_EX
        '
        Me.cbxSammelrechnung_IM_EX.AutoSize = True
@@ -3492,8 +3514,8 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
        Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
        Me.dgvUmsatzbericht.AllowUserToResizeRows = False
-        DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
        Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
        Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25)
@@ -3592,8 +3614,8 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.dgvOffenePosten.AllowUserToDeleteRows = False
        Me.dgvOffenePosten.AllowUserToOrderColumns = True
        Me.dgvOffenePosten.AllowUserToResizeRows = False
-        DataGridViewCellStyle30.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle30
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
        Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
        Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38)
@@ -3768,40 +3790,40 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.dgvKreditkarten.AllowUserToDeleteRows = False
        Me.dgvKreditkarten.AllowUserToOrderColumns = True
        Me.dgvKreditkarten.AllowUserToResizeRows = False
-        DataGridViewCellStyle31.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle31
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
        Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle32.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle32.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle32.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle32.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle32.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle32.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle32
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
        Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle33.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle33.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle33.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle33.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle33.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle33
+        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5
        Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20)
        Me.dgvKreditkarten.MultiSelect = False
        Me.dgvKreditkarten.Name = "dgvKreditkarten"
-        DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle34
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
        Me.dgvKreditkarten.RowHeadersVisible = False
-        DataGridViewCellStyle35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle35
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7
        Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
        Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312)
@@ -3881,26 +3903,26 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'dgvMWST
        '
-        DataGridViewCellStyle36.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle36
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
        Me.dgvMWST.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle37.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle37.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle37.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle37
+        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
        Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle38.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle38.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle38.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle38.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle38.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle38.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle38.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle38
+        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle10
        Me.dgvMWST.Location = New System.Drawing.Point(9, 359)
        Me.dgvMWST.Name = "dgvMWST"
        Me.dgvMWST.Size = New System.Drawing.Size(171, 125)
@@ -3959,26 +3981,26 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'dgvUstv_LaenderUndSteuernummern
        '
-        DataGridViewCellStyle39.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle39
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
        Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle40.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle40.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle40.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle40.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle40.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle40
+        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
        Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle41.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle41.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle41.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle41.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle41.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle41
+        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle13
        Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94)
        Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern"
        Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 259)
@@ -4256,26 +4278,26 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.dgvIDS_Standard.AllowUserToAddRows = False
        Me.dgvIDS_Standard.AllowUserToDeleteRows = False
        Me.dgvIDS_Standard.AllowUserToResizeRows = False
-        DataGridViewCellStyle42.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvIDS_Standard.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle42
+        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvIDS_Standard.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
        Me.dgvIDS_Standard.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle43.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvIDS_Standard.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle43
+        DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvIDS_Standard.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
        Me.dgvIDS_Standard.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle44.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle44.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle44.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle44.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle44.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvIDS_Standard.DefaultCellStyle = DataGridViewCellStyle44
+        DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvIDS_Standard.DefaultCellStyle = DataGridViewCellStyle16
        Me.dgvIDS_Standard.Dock = System.Windows.Forms.DockStyle.Fill
        Me.dgvIDS_Standard.Location = New System.Drawing.Point(3, 3)
        Me.dgvIDS_Standard.Name = "dgvIDS_Standard"
@@ -4298,26 +4320,26 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.dgvIDS_Rabatte.AllowUserToAddRows = False
        Me.dgvIDS_Rabatte.AllowUserToDeleteRows = False
        Me.dgvIDS_Rabatte.AllowUserToResizeRows = False
-        DataGridViewCellStyle45.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle45
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
        Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle46.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle46.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle46
+        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18
        Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle47.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle47.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle47.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle47
+        DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle19
        Me.dgvIDS_Rabatte.Dock = System.Windows.Forms.DockStyle.Fill
        Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(3, 3)
        Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte"
@@ -4514,26 +4536,26 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.dgvSonst_IDSKunden.AllowUserToAddRows = False
        Me.dgvSonst_IDSKunden.AllowUserToDeleteRows = False
        Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
-        DataGridViewCellStyle48.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle48
+        DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
        Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle49.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle49.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle49
+        DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle21
        Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle50.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle50.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle50.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle50.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle50.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle50
+        DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle22
        Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 214)
        Me.dgvSonst_IDSKunden.MultiSelect = False
        Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden"
@@ -4867,26 +4889,26 @@ Partial Class usrcntlKundeBearbeitenFull
        'DataGridView1
        '
        Me.DataGridView1.AllowUserToResizeRows = False
-        DataGridViewCellStyle51.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle51
+        DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
        Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle52.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle52.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle52.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle52.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle52.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle52.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle52
+        DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle24
        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle53.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle53.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle53.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle53.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle53.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle53.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle53.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle53
+        DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle25
        Me.DataGridView1.Enabled = False
        Me.DataGridView1.Location = New System.Drawing.Point(6, 111)
        Me.DataGridView1.MultiSelect = False
@@ -4953,26 +4975,26 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        Me.dgvBankverbindungen.AllowUserToDeleteRows = False
        Me.dgvBankverbindungen.AllowUserToResizeRows = False
-        DataGridViewCellStyle54.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle54
+        DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26
        Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle55.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle55.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle55.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle55.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle55.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle55.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle55
+        DataGridViewCellStyle27.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle27.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle27.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle27.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle27.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle27.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle27
        Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle56.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle56.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle56.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle56.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle56.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle56.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle56
+        DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle28.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle28
        Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40)
        Me.dgvBankverbindungen.MultiSelect = False
        Me.dgvBankverbindungen.Name = "dgvBankverbindungen"
@@ -5349,6 +5371,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.txtUSt_UstIdNrGeprueftAm.MaxLines_Warning = ""
        Me.txtUSt_UstIdNrGeprueftAm.MaxLines_Warning_Label = Nothing
        Me.txtUSt_UstIdNrGeprueftAm.Name = "txtUSt_UstIdNrGeprueftAm"
+        Me.txtUSt_UstIdNrGeprueftAm.ReadOnly = True
        Me.txtUSt_UstIdNrGeprueftAm.Size = New System.Drawing.Size(73, 20)
        Me.txtUSt_UstIdNrGeprueftAm.TabIndex = 9
        Me.txtUSt_UstIdNrGeprueftAm.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
@@ -6128,28 +6151,6 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        '
-        'cbxPDFMerge
-        '
-        Me.cbxPDFMerge.AutoSize = True
-        Me.cbxPDFMerge.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxPDFMerge.Location = New System.Drawing.Point(431, 244)
-        Me.cbxPDFMerge.Name = "cbxPDFMerge"
-        Me.cbxPDFMerge.Size = New System.Drawing.Size(183, 17)
-        Me.cbxPDFMerge.TabIndex = 55
-        Me.cbxPDFMerge.Text = "alle PDFs in RE zusammenführen"
-        Me.cbxPDFMerge.UseVisualStyleBackColor = True
-        '
-        'cbxHR_autoselect
-        '
-        Me.cbxHR_autoselect.AutoSize = True
-        Me.cbxHR_autoselect.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxHR_autoselect.Location = New System.Drawing.Point(431, 264)
-        Me.cbxHR_autoselect.Name = "cbxHR_autoselect"
-        Me.cbxHR_autoselect.Size = New System.Drawing.Size(188, 17)
-        Me.cbxHR_autoselect.TabIndex = 56
-        Me.cbxHR_autoselect.Text = "Handelrechnung in RE auswählen"
-        Me.cbxHR_autoselect.UseVisualStyleBackColor = True
-        '
        'usrcntlKundeBearbeitenFull
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb
@@ -73,6 +73,11 @@ Public Class usrcntlKundeBearbeitenFull
            Button6.Enabled = False
        End If

+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
+            txtUSt_UstIdNrGeprueftAm.ReadOnly = False
+        End If
+
        cboFiliale.changeItem(loadValue(KUNDE.FilialenNr, "")) 'zuerst Filiale, dmait Kundennummernkreis später den Wert überschreiben kann!

        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Author	SHA1	Message	Date
d.breimaier	dcf0640180	Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024	2026-07-30 16:40:54 +02:00
d.breimaier	13e277e305	abrechnung, etc.	2026-07-30 16:40:50 +02:00