MS INtegration AppServer Init

GUIs.ZooFlow/Globix/frmGlobix_Index.vb

@@ -950,6 +950,8 @@ Public Class frmGlobix_Index
             Dim oExportSuccessful As Boolean = False
             'Variable Folder
             If DropType = "|DROPFROMFSYSTEM|" Or DropType = "|OUTLOOK_ATTACHMENT|" Or DropType = "|ATTMNTEXTRACTED|" Or DropType = "|FW_SIMPLEINDEXER|" Then
+                Move_File(My.Application.Globix.CURRENT_WORKFILE, My.Application.Globix.CURRENT_NEWFILENAME, My.Application.Globix.CURRENT_WORKFILE_EXTENSION, My.Application.Globix.FILE_DELIMITER)
+
                 ' oExportSuccessful = SINGLEFILE_2_WINDREAM(My.Application.Globix.CURR_D)
             ElseIf DropType = "|OUTLOOK_MESSAGE|" Or DropType = "|FW_MSGONLY|" Or DropType = "|MSGONLY|" Or DropType = "|FW_OUTLOOK_MESSAGE|" Then
                 ' oExportSuccessful = SINGLEFILE_2_WINDREAM(CURR_DOKART_OBJECTTYPE)
@@ -1020,7 +1022,82 @@ Public Class frmGlobix_Index
             Return False
         End Try
     End Function
-    Private Function 
+    Private Function ImportFile2IDB() As Boolean
+        Try
+            If Move_File(My.Application.Globix.CURRENT_WORKFILE, My.Application.Globix.CURRENT_NEWFILENAME, My.Application.Globix.CURRENT_WORKFILE_EXTENSION, My.Application.Globix.VERSION_DELIMITER) = True Then
+                Dim oEXEC As String = $"EXEC PRIDB_ADD_DOC_FROM_FOLDER '{My.Application.Globix.CURRENT_NEWFILENAME}','{My.Application.User.UserName}'"
+                Dim oDTRESULT As DataTable = My.DatabaseIDB.GetDatatable(oEXEC)
+                If IsNothing(oDTRESULT) Then
+                    Return False
+                Else
+                    If oDTRESULT.Rows.Count = 0 Then
+                        Return False
+                    Else
+                        My.Application.Globix.CURRENT_DOC_ID = oDTRESULT.Rows(0).Item(0)
+                        Return True
+                    End If
+                End If
+            End If
+
+
+        Catch ex As Exception
+            _Logger.Error(ex)
+        End Try
+    End Function
+    Function Move_File(Quelle As String, _NewFilename As String, extension As String, _versionTz As String) As Boolean
+        'Überprüfen ob File existiert
+        If File.Exists(_NewFilename) = False Then
+            My.Application.Globix.CURRENT_NEWFILENAME = _NewFilename
+        Else
+            'Versionieren
+            Dim version As Integer = 1
+            Dim Stammname As String = _NewFilename
+            Dim neuername As String = _NewFilename
+            Do While File.Exists(neuername)
+                version = version + 1
+                neuername = Stammname.Replace(extension, "") & _versionTz & version & extension
+                My.Application.Globix.CURRENT_NEWFILENAME = neuername
+            Loop
+        End If
+        'Die Datei wird nun verschoben
+        If My.Application.Globix.CURR_DELETE_ORIGIN = True Then
+            My.Computer.FileSystem.MoveFile(My.Application.Globix.CURRENT_WORKFILE, My.Application.Globix.CURRENT_NEWFILENAME)
+        Else
+            My.Computer.FileSystem.CopyFile(My.Application.Globix.CURRENT_WORKFILE, My.Application.Globix.CURRENT_NEWFILENAME)
+        End If
+
+        Dim Insert_String As String
+        Try
+            Dim tempCur_WF = My.Application.Globix.CURRENT_WORKFILE.Replace("'", "''")
+            Dim tempCur_New_FN = My.Application.Globix.CURRENT_NEWFILENAME.Replace("'", "''")
+            Insert_String = sql_history_INSERT_INTO & ",ADDED_WHO,ADDED_WHERE) VALUES ('" & tempCur_WF & "','" & tempCur_New_FN & "'" & sql_history_Index_Values & ",'" & Environment.UserDomainName & "\" & Environment.UserName & "','" & Environment.MachineName & "')"
+            If My.Database.ExecuteNonQuery(Insert_String) = True Then
+                If My.Application.Globix.CURRENT_MESSAGEID <> "" Then
+                    Dim oMax As String = "SELECT MAX(GUID) FROM TBGI_HISTORY"
+                    Dim oGUID = My.Database.GetScalarValue(oMax)
+                    Try
+                        If oGUID > 0 Then
+                            Dim oSql As String
+                            If My.Application.Globix.CURRENT_ISATTACHMENT = True Then
+                                oSql = "Update TBGI_HISTORY SET ATTACHMENT = 1, MSG_ID = '" & My.Application.Globix.CURRENT_MESSAGEID & "' WHERE GUID = " & oGUID
+                                My.Database.GetScalarValue(oSql)
+                            Else
+                                oSql = "Update TBGI_HISTORY SET ATTACHMENT = 0, MSG_ID = '" & My.Application.Globix.CURRENT_MESSAGEID & "' WHERE GUID = " & oGUID
+                                My.Database.GetScalarValue(oSql)
+                            End If
+                        End If
+                    Catch ex As Exception
+
+                    End Try
+                End If
+            End If
+            Return True
+        Catch ex As Exception
+            _Logger.Error(ex.Message)
+            _Logger.Warn(" - Unexpected error in Move_Rename - Insert_String: " & Insert_String)
+            Return False
+        End Try
+    End Function
     Private Function Write_Indizes()
         Try
             Dim indexierung_erfolgreich As Boolean = False