ATILLA Scan, QuickScan

Aviso/Anhänge/frmSendungAnhangImport.vb

@@ -1451,10 +1451,10 @@ Public Class frmSendungAnhangImport
         Return True
     End Function
 
-    Public Shared Function quickScan(AvisoId, Optional SendungsId = Nothing) As Boolean
+    Private Shared Function scantoAvisoDS(AvisoId, SendungsId, Art) As Boolean
         Try
             'If KdNr < 0 Then Exit Sub
-            Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("QuickScan")
+            Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan(Art)
             frmScan.DefaultFileName = "Scan" ' Me._TEXT_PDF
 
             If frmScan.ShowDialog() = DialogResult.OK Then
@@ -1479,6 +1479,14 @@ Public Class frmSendungAnhangImport
         Return False
     End Function
 
+    Public Shared Function quickScanWithMenue(AvisoId, Optional SendungsId = Nothing) As Boolean
+        Return scantoAvisoDS(AvisoId, SendungsId, "")
+    End Function
+
+    Public Shared Function quickScan(AvisoId, Optional SendungsId = Nothing) As Boolean
+        Return scantoAvisoDS(AvisoId, SendungsId, "QuickScan")
+    End Function
+
     Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
         BrowserLoaded = True
     End Sub