neu

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb

@@ -8,9 +8,12 @@ Public Class usrcntlPDFScanList
     Public Property _DATENSERVER_UOrdner1 As String = ""
     Public Property _DATENSERVER_UOrdner2 As String = ""
     Public Property _DATENSERVER_UOrdner3 As String = ""
+    Public Property _OPEN_ORIGINAL As Boolean = False
+
     Private Property _TEXT_PDF As String = "SONSTIGE"
     Private Property _MULTI_FILES As Boolean = True
 
+    Public Property _TYPE As String = "PDF"
     ' Public pdf_Path As String = ""
     Dim KdNr As Integer = -1
 
@@ -18,7 +21,7 @@ Public Class usrcntlPDFScanList
     ' Public ScanID As Integer = -1
     Public COLL_ID As Integer = -1
     'Dim DatenserverIDCollection As New cDatenserverIDCollectionList
-    Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER
+    Public DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER
 
 
     Public Event FileAdded(id As String, path As String, name As String)
@@ -82,7 +85,7 @@ Public Class usrcntlPDFScanList
     '       initPdf()
     '    End If
     '  End Sub
-    Sub initPdf()
+    Public Sub initPdf()
         MyListBox1.Items.Clear()
 
         KopierenZwischenablageToolStripMenuItem.Enabled = False
@@ -144,7 +147,7 @@ Public Class usrcntlPDFScanList
     End Sub
 
     Private Sub DateiHochladenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
-        If DS.uploadDataToDATENSERVERFileDialog_MULTI(, ".pdf", , "PDF") Then
+        If DS.uploadDataToDATENSERVERFileDialog_MULTI(, , , _TYPE) Then
             initPdf()
         End If
         'If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") <> "" Then
@@ -191,8 +194,18 @@ Public Class usrcntlPDFScanList
 
     Private Sub MyListBox1_DoubleClick(sender As Object, e As EventArgs) Handles MyListBox1.DoubleClick
         Try
+            If _OPEN_ORIGINAL Then
+                Dim collId = DirectCast(MyListBox1.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value
+                For Each i In DS.DATA_LIST.LIST
+                    If i.coll_id = collId Then
+                        Process.Start(i.coll_pfad)
+                        Exit Sub
+                    End If
+                Next
+            Else
+                DS.OPEN(DirectCast(MyListBox1.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value,, True)
+            End If
 
-            DS.OPEN(DirectCast(MyListBox1.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value,, True)
 
             '  VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung)