diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb
index 5f9050b9..e22adef5 100644
--- a/SDL/USTV/frmMDM_USTVAntrag.vb
+++ b/SDL/USTV/frmMDM_USTVAntrag.vb
@@ -64,8 +64,6 @@ Public Class frmMDM_USTVAntrag
         cbxLand.Visible = UStVAn_ID <= 0
 
 
-
-
         With dgvUSTVPositionen
             .ClearSelection()
 
@@ -1640,110 +1638,13 @@ Public Class frmMDM_USTVAntrag
         Try
             If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then
 
-
-
                 Dim pdf As String = ""
                 pdf = getPDF(dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_SchnittstellenNr").Value, dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_ReNr").Value, dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_ReDat").Value, dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_daId").Value, False)
 
-
                 If IO.File.Exists(pdf) Then
                     Process.Start(pdf)
                 End If
 
-                'Dim schnnittstellenNr = dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_SchnittstellenNr").Value
-                'Dim ReNr = dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_ReNr").Value
-                'Dim ReDat = dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_ReDat").Value
-
-                'Dim dsID
-
-                'If Not IsDBNull(dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_daId").Value) AndAlso IsNumeric(dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_daId").Value) AndAlso dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_daId").Value > 0 Then
-                '    dsID = dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_daId").Value
-                'Else
-                '    dsID = getDaID_OLD(schnnittstellenNr, ReDat, ReNr)
-
-                'End If
-
-                'Select Case schnnittstellenNr
-                '    Case 1
-                '        If dsID > 0 Then
-                '            Me.Cursor = Cursors.WaitCursor
-                '            cFakturierung.doRechnungsDruck_SRorER(dsID,, False, 3)
-                '        End If
-
-                '    Case 8
-
-                '        Me.Cursor = Cursors.WaitCursor
-                '        Dim ds As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dsID)
-
-                '        'If Not IsDBNull(dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_daId").Value) Then
-                '        '    ds.OPEN_SINGLE()
-                '        '    Exit Sub
-                '        'End If
-
-                '        Dim path_src As String = ds.OPEN_SINGLE(False)
-                '        If path_src = "" Then Exit Sub
-
-                '        Try
-
-                '            Dim fi As New System.IO.DirectoryInfo(path_src)
-                '            Dim pdfReader As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(path_src)
-
-                '            Dim TMP_Path_New = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(fi.Name, fi.Extension,, True, "IDS-Rechnungen")
-                '            Dim srcDoc As New itextsharp.text.Document()
-                '            Dim PdfCopyProvider As New itextsharp.text.pdf.PdfCopy(srcDoc, New FileStream(TMP_Path_New, System.IO.FileMode.Create))
-                '            PdfCopyProvider.SetFullCompression()
-                '            srcDoc.Open()
-                '            PdfReader.unethicalreading = True
-                '            Dim pages As New List(Of Integer)()
-
-                '            For page As Integer = 1 To pdfReader.NumberOfPages
-
-                '                Dim strategy As ITextExtractionStrategy = New SimpleTextExtractionStrategy()
-                '                Dim currentpagetext As String = PdfTextExtractor.GetTextFromPage(pdfReader, page, strategy)
-                '                Dim searchtext As String = ReNr
-                '                Dim impPage As itextsharp.text.pdf.PdfImportedPage = Nothing
-
-                '                If (currentpagetext.Contains(searchtext)) Then
-
-                '                    If page > pdfReader.NumberOfPages Then
-                '                        MsgBox("Seitenanzahl überschritten!")
-                '                        srcDoc.Close() : pdfReader.Close()
-                '                        Exit Sub
-                '                    End If
-                '                    Try
-
-                '                        impPage = PdfCopyProvider.GetImportedPage(pdfReader, page)
-                '                        ' ----- Ermitteln der Seitenauflösung und setzen für die neue Seite
-                '                        PdfCopyProvider.SetPageSize(New itextsharp.text.Rectangle(0.0F, 0.0F, impPage.Width, impPage.Height, pdfReader.GetPageRotation(page)))
-                '                        ' ----- PDF Seite in das neue Dokument einfügen
-                '                        If impPage IsNot Nothing Then PdfCopyProvider.AddPage(impPage)
-                '                    Catch ex As Exception
-                '                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
-                '                    End Try
-
-
-                '                End If
-
-                '            Next
-
-                '            srcDoc.Close()
-                '            pdfReader.Close()
-
-                '            If IO.File.Exists(TMP_Path_New) Then
-                '                Process.Start(TMP_Path_New)
-                '            End If
-
-
-                '        Catch ex As Exception
-                '            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
-                '        End Try
-                '    Case Else
-                '        If dsID > 0 Then
-                '            Me.Cursor = Cursors.WaitCursor
-                '            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dsID)
-                '            DS.OPEN_SINGLE()
-                '        End If
-                'End Select
             End If
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -1858,7 +1759,7 @@ Public Class frmMDM_USTVAntrag
 
         If dsID < 0 Then Return ""
 
-        'Anschfrift nummerierung:
+        'Anschrift Nummerierung:
         Dim x = 200
         Dim y = 10
         Dim width = 300
@@ -1866,9 +1767,6 @@ Public Class frmMDM_USTVAntrag
         Dim mSize = 10
         Dim mFont = ""
 
-
-
-
         Select Case schnnittstellenNr
             Case 1
                 If dsID > 0 Then
@@ -1987,8 +1885,6 @@ Public Class frmMDM_USTVAntrag
 
                     Else
 
-
-
                         Return DS.GET_TOP1_PATH
                     End If