AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS diverses

Browse Source
This commit is contained in:
SchreiberM
2022-05-17 08:14:06 +02:00
parent 8f1ab41d64
commit c329f42cdd
23 changed files with 1467 additions and 148 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb
View File

@@ -41,6 +41,7 @@ Public Class frmGlobix_Index
Private Property Patterns2 As Patterns2
Private Property OverlayHandle As IOverlaySplashScreenHandle
Public Property oSuccess As Boolean = False
'Public Class ControlMeta
' Public Property IndexName As String
@@ -667,7 +668,7 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
Dim containsfw_file As Boolean = False
Try
My.Application.Globix.ABORT_INDEXING = True
Dim sql As String = $"SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND UPPER(USER@WORK) = UPPER('{My.Application.User.UserName}')"
Dim sql As String = $"SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND USER@WORK = '{My.Application.User.UserName}'"
Dim DT As DataTable = My.Database.GetDatatableECM(sql)
Dim anz = DT.Rows.Count
@@ -687,7 +688,7 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
End If
Next
'Zuerst die Daten des Ablaufs löschen
If My.Database.ExecuteNonQueryECM($"DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('{My.Application.User.UserName}')") = True Then
If My.Database.ExecuteNonQueryECM($"DELETE FROM TBGI_FILES_USER WHERE USER@WORK = '{My.Application.User.UserName}'") = True Then
If containsfw_file = True Then
If My.Application.User.Language = "de-DE" Then
MsgBox("Der Indexierungsprozess beinhaltete (auch) Dateien per Folderwatch!" & vbNewLine & "Diese Dateien wurden nicht gelöscht und verbleiben im Folderwatch-Verzeichnis!" & vbNewLine & "Bitte verschieben Sie die Dateien ggfls.", MsgBoxStyle.Information, "Achtung - Hinweis:")
@@ -810,8 +811,9 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
Logger.Info("Importing file with DocumentType [{0}]", oDokart.Name)
Dim oResult = Await GlobixFlowNew(oDokart)
If oResult = True Then
Dim oArgs = GetMessageBoxArgs()
Dim oMessageResult = XtraMessageBox.Show(oArgs)
oSuccess = True
' Dim oArgs = GetMessageBoxArgs()
' Dim oMessageResult = XtraMessageBox.Show(oArgs)
Dim oDEL As String = "DELETE FROM TBGI_FILES_USER WHERE GUID = " & My.Application.Globix.CurrentWorkfile.Id
My.DatabaseECM.ExecuteNonQuery(oDEL)