neu

VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb

@@ -1,9 +1,20 @@
 Imports Therefore.API
 Public Class cTherefore
 
+    Shared Function saveFileTo_ImportFolder(Path As String, FilialeAbfertigungsNr As String, AvisoId As String, FirmaId As String, Optional deleteFileAfterImport As Boolean = False)
+        Select Case FirmaId
+            Case 7
+                Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Atilla ab Juni 2011",, deleteFileAfterImport)
+            Case 1, 11 ', 15,20
+                Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import an Jänner 2019", "Import ab Jänner 2019", deleteFileAfterImport)
+            Case Else
+                Return False
+        End Select
+    End Function
 
-    Shared Function saveFileTo_ImportFolder(Path As String, FilialeAbfertigungsNr As String, AvisoId As String)
+    Shared Function saveFileTo_ImportFolderCat(Path As String, FilialeAbfertigungsNr As String, AvisoId As String, Category As String, Optional Category2 As String = "", Optional deleteFileAfterImport As Boolean = False)
         Try
+            If Category2 = "" Then Category2 = Category
             Dim SQL As New SQL
 
             ' 1. Connect to the Therefore™ Server
@@ -20,7 +31,7 @@ Public Class cTherefore
             ' 4A. Set Therefore™ Category by Number
             '  doc.IndexData.SetCategory(5, server) 
             ' or 4B. Set Therefore™ Category by Name
-            doc.IndexData.SetCategory("Import ab Jänner 2019", server)
+            doc.IndexData.SetCategory(Category2, server)
 
             ' 5. Add streams
             'doc.AddStream("D:\\TestAll\\TestDocs\\Scsi.doc", "", 0)
@@ -36,8 +47,8 @@ Public Class cTherefore
             'Dim docNo As Integer = doc.Archive(server, 0)
             'Dim docNo As Integer = 0
             'Dim filenameNEW As String = doc.Retrieve(docNo, "", server)
-
-            Dim docNo As Integer = SQL.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat119] WHERE [String] LIKE '" & FilialeAbfertigungsNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON",,, -1)
+            Dim TableName = SQL.getValueTxtBySql("SELECT TOP 1 [TableName]   FROM [TheCategory] WHERE Title='" & Category & "'", "SCANCANON",,, "")
+            Dim docNo As Integer = SQL.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM  " & TableName & " WHERE [String] LIKE '" & FilialeAbfertigungsNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON",,, -1)
             Dim filename As String = ""
             If docNo <= 0 Then
                 doc.Create(filename)
@@ -67,7 +78,7 @@ Public Class cTherefore
             doc.Close()
 
             ' 9. Delete the temporary file
-            System.IO.File.Delete(filename)
+            If deleteFileAfterImport Then      System.IO.File.Delete(filename)
 
             ' 10. Optional: Print a success message on the console
             '   Console.WriteLine("Document successfully archived as " + docNo.ToString() + ".")