neu

VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb

@@ -0,0 +1,124 @@
+Imports Therefore.API
+Public Class cTherefore
+
+
+    Shared Function saveFileTo_ImportFolder(Path As String, FilialeAbfertigungsNr As String, AvisoId As String)
+        Try
+            Dim SQL As New SQL
+
+            ' 1. Connect to the Therefore™ Server
+            Dim server As New TheServer
+            server.Connect(TheClientType.CustomApplication)
+
+            ' 2. Create a new Therefore™ Document
+            Dim doc As New TheDocument()
+
+            ' 3. Create temporary File
+            'Dim filename As String = ""
+            'doc.Create(filename)
+
+            ' 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)
+
+            ' 5. Add streams
+            'doc.AddStream("D:\\TestAll\\TestDocs\\Scsi.doc", "", 0)
+            'doc.AddStream("D:\\TestAll\\TestDocs\\TEST.xls", "", 0)
+            ' 6. Set index data
+            'Dim indexData As TheIndexData = doc.IndexData
+            'indexData("String") = FilialeAbfertigungsNr
+            'indexData("Eingabedatum") = Now.ToShortDateString
+            'indexData("LKW_ID") = AvisoId
+
+            '    MsgBox(doc.IndexData.Count)
+            ' 7. Archive the document 
+            '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 filename As String = ""
+            If docNo <= 0 Then
+                doc.Create(filename)
+
+                doc.AddStream(Path, "", 0)
+                Dim indexData As TheIndexData = doc.IndexData
+                indexData("String") = FilialeAbfertigungsNr
+                indexData("Eingabedatum") = Now.ToShortDateString
+                indexData("LKW_ID") = AvisoId
+
+                docNo = doc.Archive(server, 0)
+            Else
+                Dim folder = ""
+                Dim VerionNo As Integer
+                filename = doc.Retrieve(docNo, VerionNo, folder, server, False)
+
+                Dim user As String = ""
+                doc.CheckOut(server, False, user, VerionNo)
+
+                doc.AddStream(Path, "", 0)
+                doc.CheckIn(server)
+            End If
+
+
+
+            ' 8. Close Therefore™ document object
+            doc.Close()
+
+            ' 9. Delete the temporary file
+            System.IO.File.Delete(filename)
+
+            ' 10. Optional: Print a success message on the console
+            '   Console.WriteLine("Document successfully archived as " + docNo.ToString() + ".")
+            Return True
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Return False
+    End Function
+
+    'Shared Function saveFileTo_ImportFolder2(Path As String, FilialeAbfertigungsNr As Integer, AvisoId As Integer)
+    '    Try
+
+    '        ' 1. Connect to the Therefore™ Server
+    '        Dim server As New TheServer
+    '        server.Connect(TheClientType.CustomApplication)
+
+    '        ' 2. Create a new Therefore™ Document
+    '        Dim doc As New TheDocument()
+
+    '        ' 3. Create temporary File
+    '        Dim filename As String = ""
+    '        doc.Create(filename)
+
+    '        ' 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)
+
+    '        ' 5. Add streams
+    '        'doc.AddStream("D:\\TestAll\\TestDocs\\Scsi.doc", "", 0)
+    '        'doc.AddStream("D:\\TestAll\\TestDocs\\TEST.xls", "", 0)
+    '        doc.AddStream(Path, "", 0)
+    '        ' 6. Set index data
+
+    '        '    MsgBox(doc.IndexData.Count)
+    '        ' 7. Archive the document 
+    '        Dim docNo As Integer = doc.Archive(server, 0)
+    '        MsgBox(docNo)
+
+    '        ' 8. Close Therefore™ document object
+    '        doc.Close()
+
+    '        ' 9. Delete the temporary file
+    '        System.IO.File.Delete(filename)
+
+    '        ' 10. Optional: Print a success message on the console
+    '        '   Console.WriteLine("Document successfully archived as " + docNo.ToString() + ".")
+
+    '    Catch ex As Exception
+    '        MsgBox(ex.Message & ex.StackTrace)
+    '    End Try
+    'End Function
+End Class