snd

Aviso/frmSendungsdetailsNEU.vb

@@ -559,7 +559,7 @@ Public Class frmSendungsdetailsNEU
             End If
 
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATEZ_NCTS", Me) Then
-                Button20.Visible = True
+                btnATEZNew.Visible = True
             End If
 
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DIGICUST", Me) Then
@@ -4546,21 +4546,17 @@ Public Class frmSendungsdetailsNEU
         ' ContextMenuStrip2.Show(Cursor.Position)
         If dgvAnhang.SelectedRows.Count >= 1 Then
             Try
-                Dim files As New List(Of String) ' String() = New String() {"Sample1.pdf", "Sample2.pdf", "Sample3.pdf"}
+                Dim files As New List(Of String) '
                 Dim outputFile As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Merge.pdf", ".pdf", True,, "Merge") ' "result.pdf"
 
-                'Dim outl As New Outlook.Application
-                'Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
-                'Mail = outl.CreateItem(0)
 
                 For Each r As DataGridViewRow In dgvAnhang.SelectedRows
                     files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value))
                 Next
                 VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(files, outputFile)
-                'Dim doc As Spire.Pdf.PdfDocumentBase = Spire.Pdf.PdfDocument.MergeFiles(files.ToArray)
-                'doc.Save(outputFile, Spire.Pdf.FileFormat.PDF)
+
                 Process.Start(outputFile)
-                ' VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.OPEN_PATH()
+
             Catch ex As Exception
                 VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             End Try
@@ -6601,7 +6597,7 @@ Public Class frmSendungsdetailsNEU
 
     'End Sub
 
-    Private Sub Button20_Click_1(sender As Object, e As EventArgs) Handles Button20.Click
+    Private Sub Button20_Click_1(sender As Object, e As EventArgs) Handles btnATEZNew.Click
         SAVE_ME()
 
         Try