This commit is contained in:
2022-05-20 11:26:03 +02:00
parent 90e31c01b5
commit a0f99ba5a4
21 changed files with 432 additions and 228 deletions

View File

@@ -16,6 +16,7 @@ Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Patterns
Imports DevExpress.XtraEditors
Imports DevExpress.XtraSplashScreen
Imports DigitalData.GUIs.Common
Public Class frmGlobix_Index
#Region "+++++ Variablen ++++++"
@@ -469,7 +470,7 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
Else
omsg = "Please check Datatype of Indexvalue!"
End If
Dim oMsgBox As New Dialog1(omsg, "", True)
Dim oMsgBox As New frmDialog(omsg, "", True)
oMsgBox.ShowDialog()
Logger.Warn("DataType [{0}] not implemented!", oIndex.DataType)
End Select
@@ -658,8 +659,8 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
Else
oMsg = "Please Index file completely" & vbNewLine & "(Abort 1 of Indexdialog)"
End If
Dim oMsgBox As New Dialog1(oMsg, "", False)
oMsgBox.Cancel_Button.Visible = False
Dim oMsgBox As New frmDialog(oMsg, "", False)
oMsgBox.CancelButtonInvisible()
oMsgBox.ShowDialog()
CancelAttempts += 1
e.Cancel = True
@@ -670,8 +671,9 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
Else
oMsg = "You abort the indexdialog for the 2nd time!" & vbNewLine & "Do You want to abort indexing?"
End If
Dim oMsgBox As New Dialog1(oMsg, "", False)
oMsgBox.Cancel_Button.Visible = True
Dim oMsgBox As New frmDialog(oMsg, "", False)
oMsgBox.CancelButtonVisible()
If oMsgBox.DialogResult = DialogResult.Yes Then
Dim containsfw_file As Boolean = False
Try