Anhang ATILLA

Aviso/Anhänge/frmSendungAnhangImport.vb

@@ -14,6 +14,7 @@ Public Class frmSendungAnhangImport
 
     Public AvisoId As Integer
     Public SendungsId As Integer
+    Public LKWOnly As Boolean = False
     Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
     Dim CURRENT_INDEX As Integer
 
@@ -30,12 +31,13 @@ Public Class frmSendungAnhangImport
 
         'Dim f As New GroupDocs.Viewer
     End Sub
-    Sub New(AvisoId, SendungsId)
+    Sub New(AvisoId, SendungsId, Optional LKWOnly = False)
 
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
         Me.AvisoId = AvisoId
         Me.SendungsId = SendungsId
+        Me.LKWOnly = LKWOnly
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
 
         'Dim f As New GroupDocs.Viewer
@@ -207,7 +209,7 @@ Public Class frmSendungAnhangImport
                 '------------- 
                 '------------- PDFs extrahieren und auf den Datenserver laden + Eintrag in tblAvisoAnhaenger
                 '------------- 
-                Dim SendngsId As Integer = cboSendungen._value
+                Dim SendngsId As Integer = If(LKWOnly, -1, cboSendungen._value)
                 Dim TMP_Path_Old = u.FILE_PATH
                 Dim TMP_Path_New = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(u.FILE_NAME, fi.Extension,, True, "SendungsAnhaenge")
                 'If Not extractPagesFromPdf_Spire(u.FILE_PATH, TMP_Path_New, getPagesFromText()) Then Exit Sub
@@ -248,7 +250,12 @@ Public Class frmSendungAnhangImport
         Next
         '   initSendungen()
 
-        initFlpANH_LIST(flpnlSendungen, False)
+        If LKWOnly Then
+            initFlpANH_LIST()
+        Else
+            initFlpANH_LIST(flpnlSendungen, False)
+        End If
+
 
         If flpnlAviso.Controls.Count > 0 Then
             If Not setAvtiveById(flpnlAviso, CurrentPageNumber, pages, cntlID) Then
@@ -316,7 +323,7 @@ Public Class frmSendungAnhangImport
                 '------------- PDFs extrahieren und auf den Datenserver laden + Eintrag in tblAvisoAnhaenger
                 '------------- 
                 Dim TMP_Path_New = u.FILE_PATH
-                Dim SendngsId As Integer = cboSendungen._value
+                Dim SendngsId As Integer = If(LKWOnly, -1, cboSendungen._value)
                 'Hochladen in den Datenserver und anfügen in die Tbl Anhänge mit der SendungsId
                 ' saveToDS(u.FILE_NAME, TMP_Path_New, cboArt._value, u.FILE_TYPE,,, SendngsId)
 
@@ -1111,6 +1118,10 @@ Public Class frmSendungAnhangImport
 
         'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
 
+        If LKWOnly Then
+            pnlSendung.Enabled = False
+        End If
+
         cboArt._TRANSLATE()
 
         initSendungen()