Projektdateien hinzufügen.

This commit is contained in:
Jonathan Jenne
2022-06-15 09:44:55 +02:00
parent 48e21f5e6a
commit 82731625d9
404 changed files with 91819 additions and 0 deletions

View File

@@ -0,0 +1,59 @@
Public Class ClassExclusions
Public Property FileExclusionPath As String = IO.Path.Combine(My.Application.UserAppDataPath, "FileExclusions.xml")
Public Function Load() As Boolean
Dim rowresult As String = ""
Try
'if file doesn't exist, create the file with its default xml table
If Not IO.File.Exists(FileExclusionPath) Then
My.Application.Globix.DTEXCLUDE_FILES = CreateExclusionTable()
My.Application.Globix.DTEXCLUDE_FILES.WriteXml(FileExclusionPath)
End If
My.Application.Globix.DTEXCLUDE_FILES = GetTablefromXML(FileExclusionPath)
Return True
Catch ex As Exception
MsgBox("Error in ModuleUserSavings-LoadFileExclusion" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
Private Function CreateExclusionTable() As DataTable
Try
Dim oMyExclusions As New DataTable With {
.TableName = "TBEXCLUSION"
}
' Create two columns, ID and Name.
oMyExclusions.Columns.Add("FILE_CONTAIN", GetType(System.String))
Dim newRow As DataRow = oMyExclusions.NewRow()
newRow("FILE_CONTAIN") = "Thumbs"
oMyExclusions.Rows.Add(newRow)
Dim newRow1 As DataRow = oMyExclusions.NewRow()
newRow1("FILE_CONTAIN") = "\~$"
oMyExclusions.Rows.Add(newRow1)
Dim newRow2 As DataRow = oMyExclusions.NewRow()
newRow2("FILE_CONTAIN") = ".db"
oMyExclusions.Rows.Add(newRow2)
Dim newRow3 As DataRow = oMyExclusions.NewRow()
newRow3("FILE_CONTAIN") = "desktop.ini"
oMyExclusions.Rows.Add(newRow3)
oMyExclusions.AcceptChanges()
Return oMyExclusions
Catch ex As Exception
MsgBox("Error in CreateExclusionTable" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
Private Function GetTablefromXML(FileExclusionPath As String) As DataTable
Try
Dim DS As New DataSet
DS.ReadXml(FileExclusionPath)
Return DS.Tables(0)
Catch ex As Exception
MsgBox("Error in GetTablefromXML" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
End Class

View File

@@ -0,0 +1,193 @@
Option Explicit On
Imports System.Text.RegularExpressions
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Language
Imports DigitalData.Modules.Filesystem
Imports DigitalData.Modules.Messaging
Imports Limilabs.Mail
Imports DigitalData.GUIs.Common
Public Class ClassFilehandle
Inherits BaseClass
Private ReadOnly FileEx As File
Private ReadOnly Email As Email2
Private ReadOnly UserFiles As ClassUserFiles
Private ReadOnly TempFiles As New List(Of String)
Public Sub New(pLogConfig As LogConfig)
MyBase.New(pLogConfig)
Email = New Email2(pLogConfig)
FileEx = New File(pLogConfig)
UserFiles = New ClassUserFiles(pLogConfig)
End Sub
Public Sub ClearTempFiles()
For Each oFile In TempFiles
Try
IO.File.Delete(oFile)
Logger.Debug("Temp file [{0}] was deleted.", oFile)
Catch ex As Exception
Logger.Warn("Temp file [{0}] could not be deleted", oFile)
Logger.Error(ex)
End Try
Next
Email.Clear_TempFiles()
TempFiles.Clear()
End Sub
Public Function CheckDuplicateFiles(Filepath As String, ModuleTitle As String)
Dim oFileInfo As New IO.FileInfo(Filepath)
Dim oFilename As String = oFileInfo.Name
Dim oFileExists As Date = UserFiles.FileExistsinDropTable(Filepath)
If oFileExists.Equals(Date.MinValue) Then
Return True
Else
'Dim oResult As DialogResult
Dim oDate As String = oFileExists.ToString("d")
' Dim oBoxTitle = $"GLOBIX - {ModuleTitle}"
Dim ofrmDuplicate As New frmFileflow_Duplicate(oFilename, oDate)
'Dim oBoxOptions = MsgBoxStyle.Question Or MsgBoxStyle.YesNo
ofrmDuplicate.ShowDialog()
If ofrmDuplicate.DialogResult = DialogResult.Yes Then
Return True
End If
End If
Return False
End Function
Public Function Decide_FileHandle(pFilepath As String, pHandletype As String) As Boolean
Try
Dim oTempFilePath = pFilepath
Dim oInboxRegex As New Regex("\.INBOX\d+$")
If oInboxRegex.IsMatch(oTempFilePath) Then
Logger.Info("Renaming INBOX file to EML")
Try
Dim oInfo As New IO.FileInfo(oTempFilePath)
Logger.Info("Old Name: {0}", oInfo.Name)
Dim oNewName = $"{oInfo.Name}.eml"
Logger.Info("New Name: {0}", oNewName)
Dim oTempDirectory = IO.Path.GetTempPath()
Dim oNewPath = IO.Path.Combine(oTempDirectory, oNewName)
IO.File.Copy(oInfo.FullName, oNewPath)
TempFiles.Add(oNewPath)
oTempFilePath = oNewPath
Catch ex As Exception
Logger.Error(ex)
End Try
End If
If oTempFilePath.ToUpper.EndsWith(".MSG") Or oTempFilePath.ToUpper.EndsWith(".EML") Then
My.Application.Globix.CurrMessageID = ""
Dim oMail As IMail = Email.Load_Email(oTempFilePath)
If oMail.Attachments.Count > 0 Then
Dim oTitle As String
Dim oMessage As String
If My.Application.User.Language = "de-DE" Then
oTitle = "Nachfrage zur Indexierung:"
oMessage = "Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?"
Else
oTitle = "Question about Indexing:"
oMessage = "Attention: This Email contains Attachments!" & vbNewLine & "Do you want to extract the attachments and index them seperately?"
End If
Dim oResult As DialogResult
' Weird hack to force messagebox to be topmost
' https://stackoverflow.com/questions/1220882/keep-messagebox-show-on-top-of-other-application-using-c-sharp
oResult = MessageBox.Show(oMessage, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
If oResult = MsgBoxResult.Yes Then
Dim oIsFolderWatch = pHandletype.StartsWith("|FW")
Return Save_EmailAndAttachmentsToDisk(oTempFilePath, oIsFolderWatch)
End If
End If
End If
If oTempFilePath.ToUpper.EndsWith(".LNK") Then
Dim oMSG As String
If My.Application.User.Language = "de-DE" Then
oMSG = "Verknüpfungen können nicht abgelegt werden!"
Else
oMSG = "Shortcuts cannot be droppped!"
End If
MsgBox(oMSG, MsgBoxStyle.Information, "Index Load")
Return False
End If
Return UserFiles.Insert_GI_File(oTempFilePath, pHandletype)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Decide_FileHandle")
Return False
End Try
End Function
Private Function Save_EmailAndAttachmentsToDisk(pEmailFilePath As String, Optional pFolderWatch As Boolean = False) As Boolean
Try
Dim oMessageOnlyMarker As String = "|MSGONLY|"
Dim oExtractedAttachmentMarker As String = "|ATTMNTEXTRACTED|"
If pFolderWatch = True Then
oMessageOnlyMarker = "|FW_MSGONLY|"
oExtractedAttachmentMarker = "|FW_ATTMNTEXTRACTED|"
End If
Dim oSuccess As Boolean = False
Logger.Info("Converting file to Eml if needed: [{0}]", pEmailFilePath)
Dim oEmail As IMail = Email.Load_Email(pEmailFilePath)
If oEmail.MessageID IsNot Nothing Then
My.Application.Globix.CurrMessageID = oEmail.MessageID
Else
Logger.Info("Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!")
My.Application.Globix.CurrMessageID = Guid.NewGuid.ToString()
End If
Dim oEmailFilePathWithoutAttachments = Email.Remove_AttachmentsFromEmail(pEmailFilePath, "_excl_attachments")
TempFiles.Add(oEmailFilePathWithoutAttachments)
If UserFiles.Insert_GI_File(oEmailFilePathWithoutAttachments, oMessageOnlyMarker) = True Then
oSuccess = True
Dim oAttachments As List(Of String) = Email.Save_AttachmentsToDisk(pEmailFilePath)
Logger.Debug("Saved [{0}] attachments to disk.", oAttachments.Count)
For Each oAttachment In oAttachments
TempFiles.Add(oAttachment)
Logger.Debug("Saved attachment [{0}].", oAttachment)
oSuccess = UserFiles.Insert_GI_File(oAttachment, oExtractedAttachmentMarker)
If oSuccess = False Then
Logger.Warn("Saving attachment to disk failed: [{0}]", oAttachment)
Exit For
End If
Next
End If
Return oSuccess
Catch ex As Exception
Logger.Warn("Saving email to disk failed (Email_Decay)")
Logger.Error(ex)
Return False
End Try
End Function
End Class

View File

@@ -0,0 +1,184 @@
Imports System.IO
Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Logging
Public Class ClassFolderwatcher
Inherits BaseClass
Public Shared FWFolderWatcher As FileSystemWatcher
Public Shared FWScan As FileSystemWatcher
Private ReadOnly FileHandle As ClassFilehandle
Public Sub New(pLogConfig As LogConfig)
MyBase.New(pLogConfig)
FileHandle = New ClassFilehandle(pLogConfig)
End Sub
Public Function Restart_FolderWatch() As Boolean
If Directory.Exists(My.Application.Globix.CurrentFolderWatchPath) Then
Try
If FWFolderWatcher.EnableRaisingEvents = True Then
'Gestartet also Stoppen
FWFolderWatcher.EnableRaisingEvents = False
My.Application.Globix.Folderwatchstarted = False
FWFolderWatcher = StartFolderwatcherForPath(My.Application.Globix.CurrentFolderWatchPath)
My.Application.Globix.Folderwatchstarted = True
My.UIConfig.Globix.FolderWatchStarted = True
My.UIConfigManager.Save()
End If
Return True
Catch ex As Exception
Logger.Info($"Error in Restart_FolderWatch: {ex.Message}")
Logger.Error(ex.Message)
Return False
End Try
Else
Logger.Info($"Attention: Check the fodlerwatchinit-Module...My.Application.Globix.CurrentFolderWatchPath is not existing [{My.Application.Globix.CurrentFolderWatchPath}]")
Return False
End If
End Function
Public Sub Restart_FolderWatchSCAN()
Try
If FWScan.EnableRaisingEvents = True Then
'Gestartet also Stoppen
FWScan.EnableRaisingEvents = False
'FolderWatch neu instanzieren
FWScan = StartFolderwatcherForPath(My.Application.Globix.CURRENT_SCAN_FOLDERWATCH)
My.UIConfig.Globix.FolderWatchScanStarted = True
My.UIConfigManager.Save()
End If
Catch ex As Exception
Logger.Info($"Error in Restart_FolderWatchSCAN: {ex.Message}")
Logger.Error(ex.Message)
End Try
End Sub
Public Function StartStop_FolderWatch()
Try
If FWFolderWatcher Is Nothing Then 'OrElse FWFolderWatcher.EnableRaisingEvents = False
' Folderwatch neu instanzieren
FWFolderWatcher = StartFolderwatcherForPath(My.Application.Globix.CurrentFolderWatchPath)
My.Application.Globix.Folderwatchstarted = True
My.UIConfig.Globix.FolderWatchStarted = True
My.UIConfigManager.Save()
Logger.Info("Folderwatch successfully started!")
Return 1
End If
If FWFolderWatcher.EnableRaisingEvents = True Then
'Gestartet also Stoppen
FWFolderWatcher.EnableRaisingEvents = False
My.Application.Globix.Folderwatchstarted = False
Logger.Info("Folderwatch stopped!")
My.UIConfig.Globix.FolderWatchStarted = False
My.UIConfigManager.Save()
Return 0
End If
Catch ex As Exception
Logger.Error(ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Folder Watch")
End Try
End Function
Public Function StartStop_FolderWatchSCAN() As Integer
Try
If FWScan Is Nothing Then
FWScan = New FileSystemWatcher(My.Application.Globix.CURRENT_SCAN_FOLDERWATCH, "*.*")
Logger.Info(" >> FolderWatch Scan Gestartet")
FWScan.IncludeSubdirectories = False
FWScan.EnableRaisingEvents = True
AddHandler FWScan.Created, AddressOf OnCreated
My.UIConfig.Globix.FolderWatchScanStarted = True
My.UIConfigManager.Save()
Return 1
End If
If FWScan.EnableRaisingEvents = False Then
' Dim watcher As New FileSystemWatcher()
' watcher.Path = CURRENT_FOLDERWATCH
FWScan = New System.IO.FileSystemWatcher(My.Application.Globix.CURRENT_SCAN_FOLDERWATCH, "*.*")
Logger.Info(" >> FolderWatch Scan Gestartet")
FWScan.IncludeSubdirectories = False
FWScan.EnableRaisingEvents = True
AddHandler FWScan.Created, AddressOf OnCreated
My.UIConfig.Globix.FolderWatchScanStarted = True
My.UIConfigManager.Save()
Return 1
Else
'Gestartet also Stoppen
FWScan.EnableRaisingEvents = False
Logger.Info(" >> FolderWatch Scan gestoppt")
'SaveConfigValue("FWSCAN_started", "False")
My.UIConfig.Globix.FolderWatchScanStarted = False
My.UIConfigManager.Save()
Return 0
End If
Catch ex As Exception
Logger.Error(ex.Message)
MsgBox("Error in StartStop_FolderWatchSCAN:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return 99
End Try
End Function
Public Function Stop_FWSCAN()
If FWFolderWatcher.EnableRaisingEvents = True Then
'Gestartet also Stoppen
FWFolderWatcher.EnableRaisingEvents = False
My.Application.Globix.Folderwatchstarted = False
Logger.Info(" >> FolderWatch gestoppt")
'SaveConfigValue("my.Application.Globix.Folderwatchstarted", "False")
My.UIConfig.Globix.FolderWatchStarted = True
My.UIConfigManager.Save()
Return True
Else
Return False
End If
End Function
Private Function StartFolderwatcherForPath(pPath As String) As FileSystemWatcher
Logger.Debug("Folder Watcher starting up for Path [{0}]", pPath)
Dim oWatcher = New FileSystemWatcher(pPath, "*.*") With {
.IncludeSubdirectories = False,
.EnableRaisingEvents = True
}
AddHandler oWatcher.Created, AddressOf OnCreated
Logger.Debug("Folder Watcher started for Path [{0}]", pPath)
Return oWatcher
End Function
Private Sub OnCreated(source As Object, e As FileSystemEventArgs)
Try
If Not IsNothing(My.Application.Globix.DTEXCLUDE_FILES) Then
For Each row As DataRow In My.Application.Globix.DTEXCLUDE_FILES.Rows
Dim content As String = row.Item(0).ToString.ToLower
If e.FullPath.ToLower.Contains(content) Then
Exit Sub
End If
Next
End If
Dim handleType As String
If e.FullPath.ToLower.EndsWith(".msg") Then
handleType = "|FW_OUTLOOK_MESSAGE|"
Else
handleType = "|FW_SIMPLEINDEXER|"
End If
'Die Datei übergeben
Logger.Info(">> OnCreated-File:" & e.FullPath)
If FileHandle.Decide_FileHandle(e.FullPath, handleType) = True Then
My.Application.Globix.NEW_FILES = True
End If
Catch ex As Exception
Logger.Error(ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in folder_watch_Created")
End Try
End Sub
End Class

View File

@@ -0,0 +1,71 @@
Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Filesystem
Imports DigitalData.Modules.Logging
Imports System.IO
Imports File = DigitalData.Modules.Filesystem.File
Public Class ClassUserFiles
Inherits BaseClass
Private Property FILESYSTEM As File
Public Sub New(pLogConfig As LogConfig)
MyBase.New(pLogConfig)
FILESYSTEM = New File(pLogConfig)
End Sub
Public Function Insert_GI_File(filename As String, handleType As String) As Boolean
Try
filename = filename.Replace("'", "''")
Dim oHash As String = String.Empty
If IO.File.Exists(filename) Then
If (filename.ToUpper.EndsWith(".MSG") Or filename.ToUpper.EndsWith(".EML")) And (handleType = "|OUTLOOK_MESSAGE|" Or handleType = "|MSGONLY|") Then
oHash = FILESYSTEM.GetChecksumFromString(filename)
Else
oHash = FILESYSTEM.GetChecksum(filename)
End If
End If
Dim filename_only As String = Path.GetFileName(filename)
Dim ins As String = $"INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK, HANDLE_TYPE, FILENAME_ONLY, FILE_HASH) VALUES ('{filename}','{Environment.UserName}','{handleType}','{filename_only}', '{oHash}')"
Return My.DatabaseECM.ExecuteNonQuery(ins)
Catch ex As Exception
Return False
End Try
End Function
Public Function FileExistsinDropTable(Filename As String) As Date
Dim oSQL As String
Dim oHash As String
Dim oFilesystem As New DigitalData.Modules.Filesystem.File(My.LogConfig)
Try
My.Application.Globix.DOCUMENT_ID = 0
If Filename.Contains("'") Then
Filename = Filename.Replace("'", "''")
End If
Try
oHash = oFilesystem.GetChecksum(Filename)
Catch ex As Exception
oHash = ""
End Try
oSQL = $"SELECT A.* FROM TBIDB_FILE_OBJECT A INNER JOIN TBIDB_OBJECT B ON A.IDB_OBJ_ID = B.IDB_OBJ_ID
WHERE A.FILE_HASH = '{oHash}' AND B.DELETED = 0 ORDER BY A.ADDED_WHEN"
Dim oResult As DataTable = My.DatabaseIDB.GetDatatable(oSQL)
If oResult.Rows.Count = 0 Then
Return Nothing
Else
Dim oFirstRow As DataRow = oResult.Rows.Item(0)
My.Application.Globix.DOCUMENT_ID = oFirstRow.Item("IDB_OBJ_ID")
Return oFirstRow.Item("ADDED_WHEN")
End If
Catch ex As Exception
MsgBox("Error in FileExistsinDropTable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & oSQL, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
End Class

View File

@@ -0,0 +1,268 @@
Imports DevExpress.XtraEditors
Imports DigitalData.Controls.LookupGrid
Imports DigitalData.GUIs.ZooFlow.Globix.Models
Imports DigitalData.GUIs.GlobalIndexer.ControlCreator
Imports DigitalData.Modules.EDMI.API
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Base
Imports DigitalData.GUIs.Common
Public Class ClassValidator
Inherits BaseClass
Private ReadOnly Client As Client
Private ReadOnly ManualIndexes As List(Of ManualIndex)
Public Sub New(pLogConfig As LogConfig, pClient As Client, pManualIndexes As List(Of ManualIndex))
MyBase.New(pLogConfig)
Client = pClient
ManualIndexes = pManualIndexes
End Sub
Public Function GetControlMeta(pControl As Control) As ControlMeta
Dim oMeta As ControlMeta = Nothing
If TypeOf pControl.Tag Is ControlMeta Then
oMeta = DirectCast(pControl.Tag, ControlMeta)
End If
Return oMeta
End Function
Function ValidateControls(pPanel As Panel, pDocType As DocType) As Boolean
Try
Logger.Debug("Starting [ValidateControls]")
Dim result As Boolean = True
For Each oControl As Control In pPanel.Controls
Dim oMeta As ControlMeta = GetControlMeta(oControl)
' Labels do not need to validated
If TypeOf oControl Is Label Then
Continue For
End If
' ========================= TEXT BOX =========================
If oMeta.ControlType = "txt" Then
Dim oTextBox As DevExpress.XtraEditors.TextEdit = oControl
If oTextBox.Text = "" Then
Dim oIndexName = GetIndexName(oTextBox, "txt")
Dim oOptional = TestIsIndexOptional(pDocType, oIndexName)
If oOptional = False Then
ShowValidationMessage()
oTextBox.Focus()
Return False
End If
End If
End If
' ========================= LOOKUP =========================
If oMeta.ControlType = "cmbMulti" Then
Dim oLookup = DirectCast(oControl, LookupControl3)
Dim oValues As List(Of String) = oLookup.Properties.SelectedValues
If oValues.Count = 0 Then
Dim oIndexName = GetIndexName(oLookup, "cmbMulti")
Dim oOptional = TestIsIndexOptional(pDocType, oIndexName)
If oOptional = False Then
ShowValidationMessage()
oLookup.Focus()
Return False
End If
End If
End If
If oMeta.ControlType = "cmbSingle" Then
Dim cmbSingle As TextBox = oControl
If cmbSingle.Text = "" Then
Dim oIndexName = GetIndexName(cmbSingle, "cmbSingle")
Dim oOptional = TestIsIndexOptional(pDocType, oIndexName)
If oOptional = False Then
ShowValidationMessage()
cmbSingle.Focus()
Return False
End If
End If
End If
If oMeta.ControlType = "cmb" Then
Dim cmb As Windows.Forms.ComboBox = oControl
If cmb.Text = "" Then
Dim oIndexName = GetIndexName(cmb, "cmb")
Dim oOptional = TestIsIndexOptional(pDocType, oIndexName)
If oOptional = False Then
ShowValidationMessage()
cmb.Focus()
Return False
End If
End If
End If
' ========================= DATE PICKER =========================
If oMeta.ControlType = "dtp" Then
Dim dtp As DevExpress.XtraEditors.DateEdit = oControl
Dim oIndexName As String = GetIndexName(dtp, "dtp")
If dtp.Text = String.Empty Then
Dim oOptional = TestIsIndexOptional(pDocType, oIndexName)
If oOptional = False Then
ShowValidationMessage()
dtp.Focus()
Return False
End If
End If
End If
' ========================= CHECK BOX =========================
If oMeta.ControlType = "chk" Then
'TODO: Implement Itermediate state and then validation for checkbox
Dim chk As CheckEdit = oControl
'result = True
End If
Next
Return True
Catch ex As Exception
Logger.Warn("Unvorhergesehener Fehler in ValidateControls")
Logger.Error(ex.Message)
Return False
End Try
End Function
Function GetControlValues(pPanel As Panel) As List(Of UserAttributeValue)
Dim oAttributeValues As New List(Of UserAttributeValue)
For Each oControl As Control In pPanel.Controls
Dim oMeta As ControlMeta = GetControlMeta(oControl)
' Labels do not have values
If TypeOf oControl Is Label Then
Continue For
End If
' ========================= TEXTBOX =========================
If oMeta.ControlType = "txt" Then
Dim oTextBox As DevExpress.XtraEditors.TextEdit = oControl
Dim oIndexName = GetIndexName(oTextBox, "txt")
' TODO: What to do when value is emmpty? send an empty value or skip the control?
'If oTextBox.Text = "" Then
'End If
oAttributeValues.Add(New UserAttributeValue With {
.Name = oIndexName,
.Values = WrapIndexValue(oTextBox.Text),
.ControlName = oTextBox.Name
})
End If
' ========================= LOOKUP =========================
If oMeta.ControlType = "cmbMulti" Then
Dim oLookup = DirectCast(oControl, LookupControl3)
Dim oValues As List(Of String) = oLookup.Properties.SelectedValues
Dim oIndexName = GetIndexName(oLookup, "cmbMulti")
If oValues.Count = 0 Then
End If
oAttributeValues.Add(New UserAttributeValue With {
.Name = oIndexName,
.Values = WrapIndexValue(oValues),
.ControlName = oLookup.Name
})
End If
If oMeta.ControlType = "cmbSingle" Then
Dim cmbSingle As TextBox = oControl
Dim oIndexName = GetIndexName(cmbSingle, "cmbSingle")
If cmbSingle.Text = "" Then
End If
oAttributeValues.Add(New UserAttributeValue With {
.Name = oIndexName,
.Values = WrapIndexValue(cmbSingle.Text),
.ControlName = cmbSingle.Name
})
End If
If oMeta.ControlType = "cmb" Then
Dim cmb As ComboBox = oControl
Dim oIndexName = GetIndexName(cmb, "cmb")
If cmb.Text = "" Then
End If
oAttributeValues.Add(New UserAttributeValue With {
.Name = oIndexName,
.Values = WrapIndexValue(cmb.Text),
.ControlName = cmb.Name
})
End If
' ========================= DATE PICKER =========================
If oMeta.ControlType = "dtp" Then
Dim dtp As DevExpress.XtraEditors.DateEdit = oControl
Dim oIndexName As String = GetIndexName(dtp, "dtp")
oAttributeValues.Add(New UserAttributeValue With {
.Name = oIndexName,
.Values = WrapIndexValue(dtp.EditValue.ToString),
.ControlName = dtp.Name
})
End If
' ========================= CHECK BOX =========================
If oMeta.ControlType = "chk" Then
Dim chk As CheckEdit = oControl
Dim oIndexName As String = GetIndexName(chk, "chk")
oAttributeValues.Add(New UserAttributeValue With {
.Name = oIndexName,
.Values = WrapIndexValue(chk.Checked.ToString),
.ControlName = chk.Name
})
End If
Next
Return oAttributeValues
End Function
Private Function GetIndexName(pControl As Control, pPrefix As String) As String
Dim oIndexName = Replace(pControl.Name, pPrefix, "")
Return oIndexName
End Function
Private Function WrapIndexValue(pValue As String) As String()
Return New List(Of String) From {pValue}.ToArray
End Function
Private Function WrapIndexValue(pValues As List(Of String)) As String()
Return pValues.ToArray
End Function
Private Function TestIsIndexOptional(pDocType As DocType, pIndexName As String) As Boolean
Dim oIsOptional As Boolean = ManualIndexes.
Where(Function(index) index.DocTypeId = pDocType.Guid And index.Name = pIndexName).
Select(Function(index) index.IsOptional).
FirstOrDefault()
Return oIsOptional
End Function
Private Sub ShowValidationMessage()
'MsgBox(ClassConstants.TEXT_MISSING_INPUT, MsgBoxStyle.Exclamation, ClassConstants.TITLE_MISSING_INPUT)
Dim oMsgBox As New frmDialog(ClassConstants.TEXT_MISSING_INPUT, ClassConstants.TITLE_MISSING_INPUT, frmDialog.DialogType.Warning)
oMsgBox.ShowDialog()
End Sub
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,102 @@
<?xml version="1.0" encoding="utf-8"?>
<!--<autogenerated>
This code was generated by a tool.
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TableUISettings>
<TableUISetting Name="TBDD_DOKUMENTART">
<ColumnUISettings>
<ColumnUISetting Name="DUPLICATE_HANDLING">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="LANGUAGE">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="SEQUENCE">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="NumericUpDown" Type="System.Windows.Forms.NumericUpDown" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="ERSTELLTWANN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="GEAENDERTWANN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="IDB_OBJECT_STORE_ID">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="IDB_DOCTYPE_ID">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>
<TableUISetting Name="TBDD_INDEX_MAN">
<ColumnUISettings>
<ColumnUISetting Name="WD_INDEX">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="DATATYPE">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="SEQUENCE">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="NumericUpDown" Type="System.Windows.Forms.NumericUpDown" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="ADDED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="CHANGED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>
<TableUISetting Name="TBDD_INDEX_AUTOM">
<ColumnUISettings>
<ColumnUISetting Name="INDEXNAME">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="SEQUENCE">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="NumericUpDown" Type="System.Windows.Forms.NumericUpDown" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="ADDED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="CHANGED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>
</TableUISettings>
</DataSetUISetting>

View File

@@ -0,0 +1,699 @@
<?xml version="1.0" encoding="utf-8"?>
<xs:schema id="GlobixDataset" targetNamespace="http://tempuri.org/GlobixDataset.xsd" xmlns:mstns="http://tempuri.org/GlobixDataset.xsd" xmlns="http://tempuri.org/GlobixDataset.xsd" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:msprop="urn:schemas-microsoft-com:xml-msprop" attributeFormDefault="qualified" elementFormDefault="qualified">
<xs:annotation>
<xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
<DataSource DefaultConnectionIndex="1" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<Connections>
<Connection AppSettingsObjectName="Settings" AppSettingsPropertyName="ECMConnectionStringDEFAULT" IsAppSettingsProperty="true" Modifier="Assembly" Name="ECMConnectionStringDEFAULT (Settings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DigitalData.GUIs.ZooFlow.Settings.GlobalReference.Default.ECMConnectionStringDEFAULT" Provider="System.Data.SqlClient" />
<Connection AppSettingsObjectName="Settings" AppSettingsPropertyName="DD_ECMConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="DD_ECMConnectionString (Settings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DigitalData.GUIs.ZooFlow.Settings.GlobalReference.Default.DD_ECMConnectionString" Provider="System.Data.SqlClient" />
</Connections>
<Tables>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBDD_DOKUMENTARTTableAdapter" GeneratorDataComponentClassName="TBDD_DOKUMENTARTTableAdapter" Name="TBDD_DOKUMENTART" UserDataComponentName="TBDD_DOKUMENTARTTableAdapter">
<MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM.dbo.TBDD_DOKUMENTART" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM TBDD_DOKUMENTART
WHERE (GUID = @Original_GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBDD_DOKUMENTART
(BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJEKTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING,
IDB_DOCTYPE_ID)
VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQUENCE,@DUPLICATE_HANDLING,@IDB_DOCTYPE_ID);
SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="BEZEICHNUNG" ColumnName="BEZEICHNUNG" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@BEZEICHNUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="BEZEICHNUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="EINGANGSART_ID" ColumnName="EINGANGSART_ID" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@EINGANGSART_ID" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="EINGANGSART_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="KURZNAME" ColumnName="KURZNAME" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@KURZNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="KURZNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ZIEL_PFAD" ColumnName="ZIEL_PFAD" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@ZIEL_PFAD" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="ZIEL_PFAD" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BESCHREIBUNG" ColumnName="BESCHREIBUNG" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@BESCHREIBUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="BESCHREIBUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="AKTIV" ColumnName="AKTIV" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NAMENKONVENTION" ColumnName="NAMENKONVENTION" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@NAMENKONVENTION" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="NAMENKONVENTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ERSTELLTWER" ColumnName="ERSTELLTWER" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ERSTELLTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="OBJEKTTYP" ColumnName="OBJEKTTYP" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@OBJEKTTYP" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="OBJEKTTYP" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WINDREAM_DIRECT" ColumnName="WINDREAM_DIRECT" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@WINDREAM_DIRECT" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="WINDREAM_DIRECT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="FOLDER_FOR_INDEX" ColumnName="FOLDER_FOR_INDEX" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@FOLDER_FOR_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="FOLDER_FOR_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DUPLICATE_HANDLING" ColumnName="DUPLICATE_HANDLING" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@DUPLICATE_HANDLING" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="DUPLICATE_HANDLING" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="IDB_DOCTYPE_ID" ColumnName="IDB_DOCTYPE_ID" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@IDB_DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="IDB_DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION,
ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, IDB_OBJECT_STORE_ID, IDB_DOCTYPE_ID
FROM TBDD_DOKUMENTART
WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBDD_DOKUMENTART
SET BEZEICHNUNG = @BEZEICHNUNG, EINGANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BESCHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV,
NAMENKONVENTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP, WINDREAM_DIRECT = @WINDREAM_DIRECT, FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX,
SEQUENCE = @SEQUENCE, DUPLICATE_HANDLING = @DUPLICATE_HANDLING, IDB_DOCTYPE_ID = @IDB_DOCTYPE_ID
WHERE (GUID = @Original_GUID);
SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="BEZEICHNUNG" ColumnName="BEZEICHNUNG" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@BEZEICHNUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="BEZEICHNUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="EINGANGSART_ID" ColumnName="EINGANGSART_ID" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@EINGANGSART_ID" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="EINGANGSART_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="KURZNAME" ColumnName="KURZNAME" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@KURZNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="KURZNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ZIEL_PFAD" ColumnName="ZIEL_PFAD" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@ZIEL_PFAD" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="ZIEL_PFAD" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BESCHREIBUNG" ColumnName="BESCHREIBUNG" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@BESCHREIBUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="BESCHREIBUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="AKTIV" ColumnName="AKTIV" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NAMENKONVENTION" ColumnName="NAMENKONVENTION" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@NAMENKONVENTION" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="NAMENKONVENTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="GEANDERTWER" ColumnName="GEANDERTWER" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@GEANDERTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="GEANDERTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="OBJEKTTYP" ColumnName="OBJEKTTYP" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@OBJEKTTYP" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="OBJEKTTYP" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WINDREAM_DIRECT" ColumnName="WINDREAM_DIRECT" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@WINDREAM_DIRECT" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="WINDREAM_DIRECT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="FOLDER_FOR_INDEX" ColumnName="FOLDER_FOR_INDEX" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@FOLDER_FOR_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="FOLDER_FOR_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DUPLICATE_HANDLING" ColumnName="DUPLICATE_HANDLING" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@DUPLICATE_HANDLING" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="DUPLICATE_HANDLING" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="IDB_DOCTYPE_ID" ColumnName="IDB_DOCTYPE_ID" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@IDB_DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="IDB_DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</UpdateCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="BEZEICHNUNG" DataSetColumn="BEZEICHNUNG" />
<Mapping SourceColumn="OBJEKTTYP" DataSetColumn="OBJEKTTYP" />
<Mapping SourceColumn="EINGANGSART_ID" DataSetColumn="EINGANGSART_ID" />
<Mapping SourceColumn="KURZNAME" DataSetColumn="KURZNAME" />
<Mapping SourceColumn="ZIEL_PFAD" DataSetColumn="ZIEL_PFAD" />
<Mapping SourceColumn="BESCHREIBUNG" DataSetColumn="BESCHREIBUNG" />
<Mapping SourceColumn="WINDREAM_DIRECT" DataSetColumn="WINDREAM_DIRECT" />
<Mapping SourceColumn="FOLDER_FOR_INDEX" DataSetColumn="FOLDER_FOR_INDEX" />
<Mapping SourceColumn="DUPLICATE_HANDLING" DataSetColumn="DUPLICATE_HANDLING" />
<Mapping SourceColumn="AKTIV" DataSetColumn="AKTIV" />
<Mapping SourceColumn="LANGUAGE" DataSetColumn="LANGUAGE" />
<Mapping SourceColumn="SEQUENCE" DataSetColumn="SEQUENCE" />
<Mapping SourceColumn="NAMENKONVENTION" DataSetColumn="NAMENKONVENTION" />
<Mapping SourceColumn="ERSTELLTWER" DataSetColumn="ERSTELLTWER" />
<Mapping SourceColumn="ERSTELLTWANN" DataSetColumn="ERSTELLTWANN" />
<Mapping SourceColumn="GEANDERTWER" DataSetColumn="GEANDERTWER" />
<Mapping SourceColumn="GEAENDERTWANN" DataSetColumn="GEAENDERTWANN" />
<Mapping SourceColumn="IDB_OBJECT_STORE_ID" DataSetColumn="IDB_OBJECT_STORE_ID" />
<Mapping SourceColumn="IDB_DOCTYPE_ID" DataSetColumn="IDB_DOCTYPE_ID" />
</Mappings>
<Sources>
<DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM.dbo.TBDD_DOKUMENTART" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="FillAllDoctypes" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetDataDoctypes" GeneratorSourceName="FillAllDoctypes" GetMethodModifier="Public" GetMethodName="GetDataDoctypes" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataDoctypes" UserSourceName="FillAllDoctypes">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT TBDD_DOKUMENTART.GUID, TBDD_DOKUMENTART.BEZEICHNUNG, TBDD_DOKUMENTART.OBJEKTTYP, TBDD_DOKUMENTART.EINGANGSART_ID, TBDD_DOKUMENTART.KURZNAME, TBDD_DOKUMENTART.ZIEL_PFAD,
TBDD_DOKUMENTART.BESCHREIBUNG, TBDD_DOKUMENTART.WINDREAM_DIRECT, TBDD_DOKUMENTART.FOLDER_FOR_INDEX, TBDD_DOKUMENTART.DUPLICATE_HANDLING, TBDD_DOKUMENTART.AKTIV,
TBDD_DOKUMENTART.LANGUAGE, TBDD_DOKUMENTART.SEQUENCE, TBDD_DOKUMENTART.NAMENKONVENTION, TBDD_DOKUMENTART.ERSTELLTWER, TBDD_DOKUMENTART.ERSTELLTWANN,
TBDD_DOKUMENTART.GEANDERTWER, TBDD_DOKUMENTART.GEAENDERTWANN, TBDD_DOKUMENTART.IDB_OBJECT_STORE_ID, TBDD_DOKUMENTART.IDB_DOCTYPE_ID
FROM TBDD_DOKUMENTART INNER JOIN
TBDD_DOKUMENTART_MODULE ON TBDD_DOKUMENTART.GUID = TBDD_DOKUMENTART_MODULE.DOKART_ID INNER JOIN
TBDD_MODULES ON TBDD_DOKUMENTART_MODULE.MODULE_ID = TBDD_MODULES.GUID
WHERE (TBDD_MODULES.SHORT_NAME = 'GLOBIX')
ORDER BY TBDD_DOKUMENTART.BEZEICHNUNG</CommandText>
<Parameters />
</DbCommand>
</SelectCommand>
</DbSource>
</Sources>
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBDD_INDEX_MANTableAdapter" GeneratorDataComponentClassName="TBDD_INDEX_MANTableAdapter" Name="TBDD_INDEX_MAN" UserDataComponentName="TBDD_INDEX_MANTableAdapter">
<MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM.dbo.TBDD_INDEX_MAN" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>DELETE FROM TBDD_INDEX_MAN
WHERE (GUID = @Original_GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBDD_INDEX_MAN
(DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, MULTISELECT,
VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES)
VALUES (@DOK_ID,@NAME,@WD_INDEX,@COMMENT,@DATATYPE,
1,@DEFAULT_VALUE,@CONNECTION_ID,@SEQUENCE,@SQL_RESULT,@SQL_CHECK,@OPTIONAL,@SAVE_VALUE,@ACTIVE,@ADDED_WHO,@MULTISELECT,@VKT_ADD_ITEM,@VKT_PREVENT_MULTIPLE_VALUES);
SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="DOK_ID" ColumnName="DOK_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOK_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOK_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="WD_INDEX" ColumnName="WD_INDEX" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@WD_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="WD_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DATATYPE" ColumnName="DATATYPE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DATATYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DATATYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DEFAULT_VALUE" ColumnName="DEFAULT_VALUE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DEFAULT_VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DEFAULT_VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_RESULT" ColumnName="SQL_RESULT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_CHECK" ColumnName="SQL_CHECK" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_CHECK" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_CHECK" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="OPTIONAL" ColumnName="OPTIONAL" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@OPTIONAL" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="OPTIONAL" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SAVE_VALUE" ColumnName="SAVE_VALUE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SAVE_VALUE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SAVE_VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="MULTISELECT" ColumnName="MULTISELECT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@MULTISELECT" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="MULTISELECT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="VKT_ADD_ITEM" ColumnName="VKT_ADD_ITEM" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@VKT_ADD_ITEM" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="VKT_ADD_ITEM" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="VKT_PREVENT_MULTIPLE_VALUES" ColumnName="VKT_PREVENT_MULTIPLE_VALUES" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@VKT_PREVENT_MULTIPLE_VALUES" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="VKT_PREVENT_MULTIPLE_VALUES" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN,
CHANGED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES
FROM TBDD_INDEX_MAN
WHERE (DOK_ID = @DOKID)
ORDER BY SEQUENCE</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="DOKID" ColumnName="DOK_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOKID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOK_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBDD_INDEX_MAN
SET DOK_ID = @DOK_ID, NAME = @NAME, WD_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = 1, DEFAULT_VALUE = @DEFAULT_VALUE, CONNECTION_ID = @CONNECTION_ID,
SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = @SQL_CHECK, OPTIONAL = @OPTIONAL, SAVE_VALUE = @SAVE_VALUE, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO,
MULTISELECT = @MULTISELECT, VKT_ADD_ITEM = @VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIPLE_VALUES
WHERE (GUID = @Original_GUID);
SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES FROM TBDD_INDEX_MAN WHERE (GUID = @GUID) ORDER BY SEQUENCE</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="DOK_ID" ColumnName="DOK_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOK_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOK_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="WD_INDEX" ColumnName="WD_INDEX" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@WD_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="WD_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DATATYPE" ColumnName="DATATYPE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DATATYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DATATYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DEFAULT_VALUE" ColumnName="DEFAULT_VALUE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DEFAULT_VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DEFAULT_VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_RESULT" ColumnName="SQL_RESULT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_CHECK" ColumnName="SQL_CHECK" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_CHECK" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_CHECK" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="OPTIONAL" ColumnName="OPTIONAL" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@OPTIONAL" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="OPTIONAL" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SAVE_VALUE" ColumnName="SAVE_VALUE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SAVE_VALUE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SAVE_VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="MULTISELECT" ColumnName="MULTISELECT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@MULTISELECT" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="MULTISELECT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="VKT_ADD_ITEM" ColumnName="VKT_ADD_ITEM" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@VKT_ADD_ITEM" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="VKT_ADD_ITEM" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="VKT_PREVENT_MULTIPLE_VALUES" ColumnName="VKT_PREVENT_MULTIPLE_VALUES" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@VKT_PREVENT_MULTIPLE_VALUES" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="VKT_PREVENT_MULTIPLE_VALUES" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</UpdateCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="DOK_ID" DataSetColumn="DOK_ID" />
<Mapping SourceColumn="NAME" DataSetColumn="NAME" />
<Mapping SourceColumn="WD_INDEX" DataSetColumn="WD_INDEX" />
<Mapping SourceColumn="COMMENT" DataSetColumn="COMMENT" />
<Mapping SourceColumn="DATATYPE" DataSetColumn="DATATYPE" />
<Mapping SourceColumn="SUGGESTION" DataSetColumn="SUGGESTION" />
<Mapping SourceColumn="DEFAULT_VALUE" DataSetColumn="DEFAULT_VALUE" />
<Mapping SourceColumn="CONNECTION_ID" DataSetColumn="CONNECTION_ID" />
<Mapping SourceColumn="SEQUENCE" DataSetColumn="SEQUENCE" />
<Mapping SourceColumn="SQL_RESULT" DataSetColumn="SQL_RESULT" />
<Mapping SourceColumn="SQL_CHECK" DataSetColumn="SQL_CHECK" />
<Mapping SourceColumn="OPTIONAL" DataSetColumn="OPTIONAL" />
<Mapping SourceColumn="SAVE_VALUE" DataSetColumn="SAVE_VALUE" />
<Mapping SourceColumn="ACTIVE" DataSetColumn="ACTIVE" />
<Mapping SourceColumn="ADDED_WHO" DataSetColumn="ADDED_WHO" />
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
<Mapping SourceColumn="MULTISELECT" DataSetColumn="MULTISELECT" />
<Mapping SourceColumn="VKT_ADD_ITEM" DataSetColumn="VKT_ADD_ITEM" />
<Mapping SourceColumn="VKT_PREVENT_MULTIPLE_VALUES" DataSetColumn="VKT_PREVENT_MULTIPLE_VALUES" />
</Mappings>
<Sources />
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBDD_INDEX_AUTOMTableAdapter" GeneratorDataComponentClassName="TBDD_INDEX_AUTOMTableAdapter" Name="TBDD_INDEX_AUTOM" UserDataComponentName="TBDD_INDEX_AUTOMTableAdapter">
<MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>DELETE FROM TBDD_INDEX_AUTOM
WHERE (GUID = @Original_GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBDD_INDEX_AUTOM
(DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO)
VALUES (@DOCTYPE_ID,@ENTITY_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@SQL_RESULT,@SQL_ACTIVE,@COMMENT,@ACTIVE,@SEQUENCE,@ADDED_WHO);
SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="DOCTYPE_ID" ColumnName="DOCTYPE_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ENTITY_ID" ColumnName="ENTITY_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@ENTITY_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="ENTITY_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="INDEXNAME" ColumnName="INDEXNAME" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@INDEXNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="INDEXNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="VALUE" ColumnName="VALUE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_RESULT" ColumnName="SQL_RESULT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_ACTIVE" ColumnName="SQL_ACTIVE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SQL_ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SQL_ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(400)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="400" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="tinyint" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" Scale="0" Size="1" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
FROM TBDD_INDEX_AUTOM
WHERE (DOCTYPE_ID = @DOKID)
ORDER BY SEQUENCE</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="DOKID" ColumnName="DOCTYPE_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOKID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBDD_INDEX_AUTOM
SET DOCTYPE_ID = @DOCTYPE_ID, ENTITY_ID = @ENTITY_ID, INDEXNAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE,
COMMENT = @COMMENT, ACTIVE = @ACTIVE, SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO
WHERE (GUID = @Original_GUID);
SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID) ORDER BY SEQUENCE</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="DOCTYPE_ID" ColumnName="DOCTYPE_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ENTITY_ID" ColumnName="ENTITY_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@ENTITY_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="ENTITY_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="INDEXNAME" ColumnName="INDEXNAME" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@INDEXNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="INDEXNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="VALUE" ColumnName="VALUE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_RESULT" ColumnName="SQL_RESULT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_ACTIVE" ColumnName="SQL_ACTIVE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SQL_ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SQL_ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(400)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="400" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="tinyint" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" Scale="0" Size="1" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</UpdateCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="DOCTYPE_ID" DataSetColumn="DOCTYPE_ID" />
<Mapping SourceColumn="ENTITY_ID" DataSetColumn="ENTITY_ID" />
<Mapping SourceColumn="INDEXNAME" DataSetColumn="INDEXNAME" />
<Mapping SourceColumn="VALUE" DataSetColumn="VALUE" />
<Mapping SourceColumn="CONNECTION_ID" DataSetColumn="CONNECTION_ID" />
<Mapping SourceColumn="SQL_RESULT" DataSetColumn="SQL_RESULT" />
<Mapping SourceColumn="SQL_ACTIVE" DataSetColumn="SQL_ACTIVE" />
<Mapping SourceColumn="COMMENT" DataSetColumn="COMMENT" />
<Mapping SourceColumn="ACTIVE" DataSetColumn="ACTIVE" />
<Mapping SourceColumn="SEQUENCE" DataSetColumn="SEQUENCE" />
<Mapping SourceColumn="ADDED_WHO" DataSetColumn="ADDED_WHO" />
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
</Mappings>
<Sources />
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBGI_REGEX_DOCTYPETableAdapter" GeneratorDataComponentClassName="TBGI_REGEX_DOCTYPETableAdapter" Name="TBGI_REGEX_DOCTYPE" UserDataComponentName="TBGI_REGEX_DOCTYPETableAdapter">
<MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM.dbo.TBGI_REGEX_DOCTYPE" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM TBGI_REGEX_DOCTYPE
WHERE (GUID = @Original_GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO TBGI_REGEX_DOCTYPE
(REGEX, DOCTYPE_ID, ADDED_WHO)
VALUES (@REGEX,@DOCTYPE_ID,@ADDED_WHO);
SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBGI_REGEX_DOCTYPE WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="REGEX" ColumnName="REGEX" DataSourceName="" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@REGEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="REGEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DOCTYPE_ID" ColumnName="DOCTYPE_ID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
FROM TBGI_REGEX_DOCTYPE
WHERE (GUID = @DOCTYPEID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="DOCTYPEID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBGI_REGEX_DOCTYPE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOCTYPEID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE TBGI_REGEX_DOCTYPE
SET REGEX = @REGEX, DOCTYPE_ID = @DOCTYPE_ID, CHANGED_WHO = @CHANGED_WHO
WHERE (GUID = @Original_GUID);
SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBGI_REGEX_DOCTYPE WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="REGEX" ColumnName="REGEX" DataSourceName="" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@REGEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="REGEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DOCTYPE_ID" ColumnName="DOCTYPE_ID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</UpdateCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="REGEX" DataSetColumn="REGEX" />
<Mapping SourceColumn="DOCTYPE_ID" DataSetColumn="DOCTYPE_ID" />
<Mapping SourceColumn="ADDED_WHO" DataSetColumn="ADDED_WHO" />
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
</Mappings>
<Sources />
</TableAdapter>
</Tables>
<Sources />
</DataSource>
</xs:appinfo>
</xs:annotation>
<xs:element name="GlobixDataset" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="GlobixDataset" msprop:Generator_UserDSName="GlobixDataset">
<xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="TBTEMP_INDEXRESULTS" msprop:Generator_TableClassName="TBTEMP_INDEXRESULTSDataTable" msprop:Generator_TableVarName="tableTBTEMP_INDEXRESULTS" msprop:Generator_RowChangedName="TBTEMP_INDEXRESULTSRowChanged" msprop:Generator_TablePropName="TBTEMP_INDEXRESULTS" msprop:Generator_RowDeletingName="TBTEMP_INDEXRESULTSRowDeleting" msprop:Generator_RowChangingName="TBTEMP_INDEXRESULTSRowChanging" msprop:Generator_RowEvHandlerName="TBTEMP_INDEXRESULTSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBTEMP_INDEXRESULTSRowDeleted" msprop:Generator_RowClassName="TBTEMP_INDEXRESULTSRow" msprop:Generator_UserTableName="TBTEMP_INDEXRESULTS" msprop:Generator_RowEvArgName="TBTEMP_INDEXRESULTSRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="Indexname" msprop:Generator_ColumnVarNameInTable="columnIndexname" msprop:Generator_ColumnPropNameInRow="Indexname" msprop:Generator_ColumnPropNameInTable="IndexnameColumn" msprop:Generator_UserColumnName="Indexname" type="xs:string" minOccurs="0" />
<xs:element name="Value" msprop:Generator_ColumnVarNameInTable="columnValue" msprop:Generator_ColumnPropNameInRow="Value" msprop:Generator_ColumnPropNameInTable="ValueColumn" msprop:Generator_UserColumnName="Value" type="xs:string" minOccurs="0" />
<xs:element name="Dokumentart" msprop:Generator_ColumnVarNameInTable="columnDokumentart" msprop:Generator_ColumnPropNameInRow="Dokumentart" msprop:Generator_ColumnPropNameInTable="DokumentartColumn" msprop:Generator_UserColumnName="Dokumentart" type="xs:string" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBDD_DOKUMENTART" msprop:Generator_TableClassName="TBDD_DOKUMENTARTDataTable" msprop:Generator_TableVarName="tableTBDD_DOKUMENTART" msprop:Generator_TablePropName="TBDD_DOKUMENTART" msprop:Generator_RowDeletingName="TBDD_DOKUMENTARTRowDeleting" msprop:Generator_RowChangingName="TBDD_DOKUMENTARTRowChanging" msprop:Generator_RowEvHandlerName="TBDD_DOKUMENTARTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_DOKUMENTARTRowDeleted" msprop:Generator_UserTableName="TBDD_DOKUMENTART" msprop:Generator_RowChangedName="TBDD_DOKUMENTARTRowChanged" msprop:Generator_RowEvArgName="TBDD_DOKUMENTARTRowChangeEvent" msprop:Generator_RowClassName="TBDD_DOKUMENTARTRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="BEZEICHNUNG" msprop:Generator_ColumnVarNameInTable="columnBEZEICHNUNG" msprop:Generator_ColumnPropNameInRow="BEZEICHNUNG" msprop:Generator_ColumnPropNameInTable="BEZEICHNUNGColumn" msprop:Generator_UserColumnName="BEZEICHNUNG">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="OBJEKTTYP" msprop:Generator_ColumnVarNameInTable="columnOBJEKTTYP" msprop:Generator_ColumnPropNameInRow="OBJEKTTYP" msprop:Generator_ColumnPropNameInTable="OBJEKTTYPColumn" msprop:Generator_UserColumnName="OBJEKTTYP" default="IDB_DRIVEN">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="EINGANGSART_ID" msprop:Generator_ColumnVarNameInTable="columnEINGANGSART_ID" msprop:Generator_ColumnPropNameInRow="EINGANGSART_ID" msprop:Generator_ColumnPropNameInTable="EINGANGSART_IDColumn" msprop:Generator_UserColumnName="EINGANGSART_ID" type="xs:unsignedByte" />
<xs:element name="KURZNAME" msprop:Generator_ColumnVarNameInTable="columnKURZNAME" msprop:Generator_ColumnPropNameInRow="KURZNAME" msprop:Generator_ColumnPropNameInTable="KURZNAMEColumn" msprop:Generator_UserColumnName="KURZNAME" default="">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ZIEL_PFAD" msprop:Generator_ColumnVarNameInTable="columnZIEL_PFAD" msprop:Generator_ColumnPropNameInRow="ZIEL_PFAD" msprop:Generator_ColumnPropNameInTable="ZIEL_PFADColumn" msprop:Generator_UserColumnName="ZIEL_PFAD" default="IDB_STORE">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="250" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="BESCHREIBUNG" msprop:Generator_ColumnVarNameInTable="columnBESCHREIBUNG" msprop:Generator_ColumnPropNameInRow="BESCHREIBUNG" msprop:Generator_ColumnPropNameInTable="BESCHREIBUNGColumn" msprop:Generator_UserColumnName="BESCHREIBUNG" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="250" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="WINDREAM_DIRECT" msprop:Generator_ColumnVarNameInTable="columnWINDREAM_DIRECT" msprop:Generator_ColumnPropNameInRow="WINDREAM_DIRECT" msprop:Generator_ColumnPropNameInTable="WINDREAM_DIRECTColumn" msprop:Generator_UserColumnName="WINDREAM_DIRECT" type="xs:boolean" default="false" />
<xs:element name="FOLDER_FOR_INDEX" msprop:Generator_ColumnVarNameInTable="columnFOLDER_FOR_INDEX" msprop:Generator_ColumnPropNameInRow="FOLDER_FOR_INDEX" msprop:Generator_ColumnPropNameInTable="FOLDER_FOR_INDEXColumn" msprop:Generator_UserColumnName="FOLDER_FOR_INDEX">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="500" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="DUPLICATE_HANDLING" msprop:Generator_ColumnVarNameInTable="columnDUPLICATE_HANDLING" msprop:Generator_ColumnPropNameInRow="DUPLICATE_HANDLING" msprop:Generator_ColumnPropNameInTable="DUPLICATE_HANDLINGColumn" msprop:Generator_UserColumnName="DUPLICATE_HANDLING" default="Default">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="30" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="AKTIV" msprop:Generator_ColumnVarNameInTable="columnAKTIV" msprop:Generator_ColumnPropNameInRow="AKTIV" msprop:Generator_ColumnPropNameInTable="AKTIVColumn" msprop:Generator_UserColumnName="AKTIV" type="xs:boolean" default="false" />
<xs:element name="LANGUAGE" msprop:Generator_ColumnVarNameInTable="columnLANGUAGE" msprop:Generator_ColumnPropNameInRow="LANGUAGE" msprop:Generator_ColumnPropNameInTable="LANGUAGEColumn" msprop:Generator_UserColumnName="LANGUAGE" default="de-DE">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="5" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SEQUENCE" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE" msprop:Generator_ColumnPropNameInRow="SEQUENCE" msprop:Generator_ColumnPropNameInTable="SEQUENCEColumn" msprop:Generator_UserColumnName="SEQUENCE" type="xs:int" default="1" />
<xs:element name="NAMENKONVENTION" msprop:Generator_ColumnVarNameInTable="columnNAMENKONVENTION" msprop:Generator_ColumnPropNameInRow="NAMENKONVENTION" msprop:Generator_ColumnPropNameInTable="NAMENKONVENTIONColumn" msprop:Generator_UserColumnName="NAMENKONVENTION">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="500" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ERSTELLTWER" msprop:Generator_ColumnVarNameInTable="columnERSTELLTWER" msprop:Generator_ColumnPropNameInRow="ERSTELLTWER" msprop:Generator_ColumnPropNameInTable="ERSTELLTWERColumn" msprop:Generator_UserColumnName="ERSTELLTWER">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ERSTELLTWANN" msprop:Generator_ColumnVarNameInTable="columnERSTELLTWANN" msprop:Generator_ColumnPropNameInRow="ERSTELLTWANN" msprop:Generator_ColumnPropNameInTable="ERSTELLTWANNColumn" msprop:Generator_UserColumnName="ERSTELLTWANN" type="xs:dateTime" minOccurs="0" />
<xs:element name="GEANDERTWER" msprop:Generator_ColumnVarNameInTable="columnGEANDERTWER" msprop:Generator_ColumnPropNameInRow="GEANDERTWER" msprop:Generator_ColumnPropNameInTable="GEANDERTWERColumn" msprop:Generator_UserColumnName="GEANDERTWER" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="GEAENDERTWANN" msprop:Generator_ColumnVarNameInTable="columnGEAENDERTWANN" msprop:Generator_ColumnPropNameInRow="GEAENDERTWANN" msprop:Generator_ColumnPropNameInTable="GEAENDERTWANNColumn" msprop:Generator_UserColumnName="GEAENDERTWANN" type="xs:dateTime" minOccurs="0" />
<xs:element name="IDB_OBJECT_STORE_ID" msprop:Generator_ColumnVarNameInTable="columnIDB_OBJECT_STORE_ID" msprop:Generator_ColumnPropNameInRow="IDB_OBJECT_STORE_ID" msprop:Generator_ColumnPropNameInTable="IDB_OBJECT_STORE_IDColumn" msprop:Generator_UserColumnName="IDB_OBJECT_STORE_ID" type="xs:int" default="1" minOccurs="0" />
<xs:element name="IDB_DOCTYPE_ID" msprop:Generator_ColumnVarNameInTable="columnIDB_DOCTYPE_ID" msprop:Generator_ColumnPropNameInRow="IDB_DOCTYPE_ID" msprop:Generator_ColumnPropNameInTable="IDB_DOCTYPE_IDColumn" msprop:Generator_UserColumnName="IDB_DOCTYPE_ID" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBDD_INDEX_MAN" msprop:Generator_TableClassName="TBDD_INDEX_MANDataTable" msprop:Generator_TableVarName="tableTBDD_INDEX_MAN" msprop:Generator_RowChangedName="TBDD_INDEX_MANRowChanged" msprop:Generator_TablePropName="TBDD_INDEX_MAN" msprop:Generator_RowDeletingName="TBDD_INDEX_MANRowDeleting" msprop:Generator_RowChangingName="TBDD_INDEX_MANRowChanging" msprop:Generator_RowEvHandlerName="TBDD_INDEX_MANRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_INDEX_MANRowDeleted" msprop:Generator_RowClassName="TBDD_INDEX_MANRow" msprop:Generator_UserTableName="TBDD_INDEX_MAN" msprop:Generator_RowEvArgName="TBDD_INDEX_MANRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="DOK_ID" msprop:Generator_ColumnVarNameInTable="columnDOK_ID" msprop:Generator_ColumnPropNameInRow="DOK_ID" msprop:Generator_ColumnPropNameInTable="DOK_IDColumn" msprop:Generator_UserColumnName="DOK_ID" type="xs:int" />
<xs:element name="NAME" msprop:Generator_ColumnVarNameInTable="columnNAME" msprop:Generator_ColumnPropNameInRow="NAME" msprop:Generator_ColumnPropNameInTable="NAMEColumn" msprop:Generator_UserColumnName="NAME">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="WD_INDEX" msprop:Generator_ColumnVarNameInTable="columnWD_INDEX" msprop:Generator_ColumnPropNameInRow="WD_INDEX" msprop:Generator_ColumnPropNameInTable="WD_INDEXColumn" msprop:Generator_UserColumnName="WD_INDEX" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="COMMENT" msprop:Generator_ColumnVarNameInTable="columnCOMMENT" msprop:Generator_ColumnPropNameInRow="COMMENT" msprop:Generator_ColumnPropNameInTable="COMMENTColumn" msprop:Generator_UserColumnName="COMMENT" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="150" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="DATATYPE" msprop:Generator_ColumnVarNameInTable="columnDATATYPE" msprop:Generator_ColumnPropNameInRow="DATATYPE" msprop:Generator_ColumnPropNameInTable="DATATYPEColumn" msprop:Generator_UserColumnName="DATATYPE" default="VARCHAR" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SUGGESTION" msprop:Generator_ColumnVarNameInTable="columnSUGGESTION" msprop:Generator_ColumnPropNameInRow="SUGGESTION" msprop:Generator_ColumnPropNameInTable="SUGGESTIONColumn" msprop:Generator_UserColumnName="SUGGESTION" type="xs:boolean" default="false" />
<xs:element name="DEFAULT_VALUE" msprop:Generator_ColumnVarNameInTable="columnDEFAULT_VALUE" msprop:Generator_ColumnPropNameInRow="DEFAULT_VALUE" msprop:Generator_ColumnPropNameInTable="DEFAULT_VALUEColumn" msprop:Generator_UserColumnName="DEFAULT_VALUE" default="">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CONNECTION_ID" msprop:Generator_ColumnVarNameInTable="columnCONNECTION_ID" msprop:Generator_ColumnPropNameInRow="CONNECTION_ID" msprop:Generator_ColumnPropNameInTable="CONNECTION_IDColumn" msprop:Generator_UserColumnName="CONNECTION_ID" type="xs:short" default="1" minOccurs="0" />
<xs:element name="SEQUENCE" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE" msprop:Generator_ColumnPropNameInRow="SEQUENCE" msprop:Generator_ColumnPropNameInTable="SEQUENCEColumn" msprop:Generator_UserColumnName="SEQUENCE" type="xs:int" default="1" />
<xs:element name="SQL_RESULT" msprop:Generator_ColumnVarNameInTable="columnSQL_RESULT" msprop:Generator_ColumnPropNameInRow="SQL_RESULT" msprop:Generator_ColumnPropNameInTable="SQL_RESULTColumn" msprop:Generator_UserColumnName="SQL_RESULT" default="">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2000" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SQL_CHECK" msprop:Generator_ColumnVarNameInTable="columnSQL_CHECK" msprop:Generator_ColumnPropNameInRow="SQL_CHECK" msprop:Generator_ColumnPropNameInTable="SQL_CHECKColumn" msprop:Generator_UserColumnName="SQL_CHECK" default="">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2000" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="OPTIONAL" msprop:Generator_ColumnVarNameInTable="columnOPTIONAL" msprop:Generator_ColumnPropNameInRow="_OPTIONAL" msprop:Generator_ColumnPropNameInTable="OPTIONALColumn" msprop:Generator_UserColumnName="OPTIONAL" type="xs:boolean" default="false" />
<xs:element name="SAVE_VALUE" msprop:Generator_ColumnVarNameInTable="columnSAVE_VALUE" msprop:Generator_ColumnPropNameInRow="SAVE_VALUE" msprop:Generator_ColumnPropNameInTable="SAVE_VALUEColumn" msprop:Generator_UserColumnName="SAVE_VALUE" type="xs:boolean" default="true" />
<xs:element name="ACTIVE" msprop:Generator_ColumnVarNameInTable="columnACTIVE" msprop:Generator_ColumnPropNameInRow="ACTIVE" msprop:Generator_ColumnPropNameInTable="ACTIVEColumn" msprop:Generator_UserColumnName="ACTIVE" type="xs:boolean" default="false" />
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="MULTISELECT" msprop:Generator_ColumnVarNameInTable="columnMULTISELECT" msprop:Generator_ColumnPropNameInRow="MULTISELECT" msprop:Generator_ColumnPropNameInTable="MULTISELECTColumn" msprop:Generator_UserColumnName="MULTISELECT" type="xs:boolean" default="false" />
<xs:element name="VKT_ADD_ITEM" msprop:Generator_ColumnVarNameInTable="columnVKT_ADD_ITEM" msprop:Generator_ColumnPropNameInRow="VKT_ADD_ITEM" msprop:Generator_ColumnPropNameInTable="VKT_ADD_ITEMColumn" msprop:Generator_UserColumnName="VKT_ADD_ITEM" type="xs:boolean" default="false" />
<xs:element name="VKT_PREVENT_MULTIPLE_VALUES" msprop:Generator_ColumnVarNameInTable="columnVKT_PREVENT_MULTIPLE_VALUES" msprop:Generator_ColumnPropNameInRow="VKT_PREVENT_MULTIPLE_VALUES" msprop:Generator_ColumnPropNameInTable="VKT_PREVENT_MULTIPLE_VALUESColumn" msprop:Generator_UserColumnName="VKT_PREVENT_MULTIPLE_VALUES" type="xs:boolean" default="false" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBDD_INDEX_AUTOM" msprop:Generator_TableClassName="TBDD_INDEX_AUTOMDataTable" msprop:Generator_TableVarName="tableTBDD_INDEX_AUTOM" msprop:Generator_RowChangedName="TBDD_INDEX_AUTOMRowChanged" msprop:Generator_TablePropName="TBDD_INDEX_AUTOM" msprop:Generator_RowDeletingName="TBDD_INDEX_AUTOMRowDeleting" msprop:Generator_RowChangingName="TBDD_INDEX_AUTOMRowChanging" msprop:Generator_RowEvHandlerName="TBDD_INDEX_AUTOMRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_INDEX_AUTOMRowDeleted" msprop:Generator_RowClassName="TBDD_INDEX_AUTOMRow" msprop:Generator_UserTableName="TBDD_INDEX_AUTOM" msprop:Generator_RowEvArgName="TBDD_INDEX_AUTOMRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="DOCTYPE_ID" msprop:Generator_ColumnVarNameInTable="columnDOCTYPE_ID" msprop:Generator_ColumnPropNameInRow="DOCTYPE_ID" msprop:Generator_ColumnPropNameInTable="DOCTYPE_IDColumn" msprop:Generator_UserColumnName="DOCTYPE_ID" type="xs:int" />
<xs:element name="ENTITY_ID" msprop:Generator_ColumnVarNameInTable="columnENTITY_ID" msprop:Generator_ColumnPropNameInRow="ENTITY_ID" msprop:Generator_ColumnPropNameInTable="ENTITY_IDColumn" msprop:Generator_UserColumnName="ENTITY_ID" type="xs:int" default="0" />
<xs:element name="INDEXNAME" msprop:Generator_ColumnVarNameInTable="columnINDEXNAME" msprop:Generator_ColumnPropNameInRow="INDEXNAME" msprop:Generator_ColumnPropNameInTable="INDEXNAMEColumn" msprop:Generator_UserColumnName="INDEXNAME">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="VALUE" msprop:Generator_ColumnVarNameInTable="columnVALUE" msprop:Generator_ColumnPropNameInRow="VALUE" msprop:Generator_ColumnPropNameInTable="VALUEColumn" msprop:Generator_UserColumnName="VALUE" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2000" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CONNECTION_ID" msprop:Generator_ColumnVarNameInTable="columnCONNECTION_ID" msprop:Generator_ColumnPropNameInRow="CONNECTION_ID" msprop:Generator_ColumnPropNameInTable="CONNECTION_IDColumn" msprop:Generator_UserColumnName="CONNECTION_ID" type="xs:short" default="1" />
<xs:element name="SQL_RESULT" msprop:Generator_ColumnVarNameInTable="columnSQL_RESULT" msprop:Generator_ColumnPropNameInRow="SQL_RESULT" msprop:Generator_ColumnPropNameInTable="SQL_RESULTColumn" msprop:Generator_UserColumnName="SQL_RESULT" default="">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2000" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SQL_ACTIVE" msprop:Generator_ColumnVarNameInTable="columnSQL_ACTIVE" msprop:Generator_ColumnPropNameInRow="SQL_ACTIVE" msprop:Generator_ColumnPropNameInTable="SQL_ACTIVEColumn" msprop:Generator_UserColumnName="SQL_ACTIVE" type="xs:boolean" default="false" />
<xs:element name="COMMENT" msprop:Generator_ColumnVarNameInTable="columnCOMMENT" msprop:Generator_ColumnPropNameInRow="COMMENT" msprop:Generator_ColumnPropNameInTable="COMMENTColumn" msprop:Generator_UserColumnName="COMMENT" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="400" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ACTIVE" msprop:Generator_ColumnVarNameInTable="columnACTIVE" msprop:Generator_ColumnPropNameInRow="ACTIVE" msprop:Generator_ColumnPropNameInTable="ACTIVEColumn" msprop:Generator_UserColumnName="ACTIVE" type="xs:boolean" default="true" />
<xs:element name="SEQUENCE" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE" msprop:Generator_ColumnPropNameInRow="SEQUENCE" msprop:Generator_ColumnPropNameInTable="SEQUENCEColumn" msprop:Generator_UserColumnName="SEQUENCE" type="xs:unsignedByte" default="1" />
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBGI_REGEX_DOCTYPE" msprop:Generator_TableClassName="TBGI_REGEX_DOCTYPEDataTable" msprop:Generator_TableVarName="tableTBGI_REGEX_DOCTYPE" msprop:Generator_RowChangedName="TBGI_REGEX_DOCTYPERowChanged" msprop:Generator_TablePropName="TBGI_REGEX_DOCTYPE" msprop:Generator_RowDeletingName="TBGI_REGEX_DOCTYPERowDeleting" msprop:Generator_RowChangingName="TBGI_REGEX_DOCTYPERowChanging" msprop:Generator_RowEvHandlerName="TBGI_REGEX_DOCTYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBGI_REGEX_DOCTYPERowDeleted" msprop:Generator_RowClassName="TBGI_REGEX_DOCTYPERow" msprop:Generator_UserTableName="TBGI_REGEX_DOCTYPE" msprop:Generator_RowEvArgName="TBGI_REGEX_DOCTYPERowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="REGEX" msprop:Generator_ColumnVarNameInTable="columnREGEX" msprop:Generator_ColumnPropNameInRow="REGEX" msprop:Generator_ColumnPropNameInTable="REGEXColumn" msprop:Generator_UserColumnName="REGEX">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="500" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="DOCTYPE_ID" msprop:Generator_ColumnVarNameInTable="columnDOCTYPE_ID" msprop:Generator_ColumnPropNameInRow="DOCTYPE_ID" msprop:Generator_ColumnPropNameInTable="DOCTYPE_IDColumn" msprop:Generator_UserColumnName="DOCTYPE_ID" type="xs:int" minOccurs="0" />
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice>
</xs:complexType>
<xs:unique name="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBDD_DOKUMENTART" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
<xs:unique name="TBDD_INDEX_MAN_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBDD_INDEX_MAN" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
<xs:unique name="TBDD_INDEX_AUTOM_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBDD_INDEX_AUTOM" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
<xs:unique name="TBGI_REGEX_DOCTYPE_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBGI_REGEX_DOCTYPE" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
</xs:element>
<xs:annotation>
<xs:appinfo>
<msdata:Relationship name="FK_TBDD_INDEX_MAN_DAID" msdata:parent="TBDD_DOKUMENTART" msdata:child="TBDD_INDEX_MAN" msdata:parentkey="GUID" msdata:childkey="DOK_ID" msprop:Generator_UserChildTable="TBDD_INDEX_MAN" msprop:Generator_ChildPropName="GetTBDD_INDEX_MANRows" msprop:Generator_UserRelationName="FK_TBDD_INDEX_MAN_DAID" msprop:Generator_RelationVarName="relationFK_TBDD_INDEX_MAN_DAID" msprop:Generator_UserParentTable="TBDD_DOKUMENTART" msprop:Generator_ParentPropName="TBDD_DOKUMENTARTRow" />
<msdata:Relationship name="FK_TBDD_INDEX_AUTOM_DOCID" msdata:parent="TBDD_DOKUMENTART" msdata:child="TBDD_INDEX_AUTOM" msdata:parentkey="GUID" msdata:childkey="DOCTYPE_ID" msprop:Generator_UserChildTable="TBDD_INDEX_AUTOM" msprop:Generator_ChildPropName="GetTBDD_INDEX_AUTOMRows" msprop:Generator_UserRelationName="FK_TBDD_INDEX_AUTOM_DOCID" msprop:Generator_RelationVarName="relationFK_TBDD_INDEX_AUTOM_DOCID" msprop:Generator_UserParentTable="TBDD_DOKUMENTART" msprop:Generator_ParentPropName="TBDD_DOKUMENTARTRow" />
<msdata:Relationship name="FK_TBGI_REGEX_DOCTYPE_DTID" msdata:parent="TBDD_DOKUMENTART" msdata:child="TBGI_REGEX_DOCTYPE" msdata:parentkey="GUID" msdata:childkey="DOCTYPE_ID" msprop:Generator_UserChildTable="TBGI_REGEX_DOCTYPE" msprop:Generator_ChildPropName="GetTBGI_REGEX_DOCTYPERows" msprop:Generator_UserRelationName="FK_TBGI_REGEX_DOCTYPE_DTID" msprop:Generator_RelationVarName="relationFK_TBGI_REGEX_DOCTYPE_DTID" msprop:Generator_UserParentTable="TBDD_DOKUMENTART" msprop:Generator_ParentPropName="TBDD_DOKUMENTARTRow" />
</xs:appinfo>
</xs:annotation>
</xs:schema>

View File

@@ -0,0 +1,57 @@
<?xml version="1.0" encoding="utf-8"?>
<!--<autogenerated>
This code was generated by a tool to store the dataset designer's layout information.
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="7" X="262" Y="65" Height="324" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_INDEX_MAN" ZOrder="6" X="618" Y="255" Height="305" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="4" X="1037" Y="199" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBGI_REGEX_DOCTYPE" ZOrder="2" X="55" Y="500" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBTEMP_INDEXRESULTS" ZOrder="8" X="3" Y="202" Height="86" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="82" />
</Shapes>
<Connectors>
<Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="5" LineWidth="11">
<RoutePoints>
<Point>
<X>540</X>
<Y>303</Y>
</Point>
<Point>
<X>618</X>
<Y>303</Y>
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="3" LineWidth="11">
<RoutePoints>
<Point>
<X>540</X>
<Y>247</Y>
</Point>
<Point>
<X>1037</X>
<Y>247</Y>
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBGI_REGEX_DOCTYPE_DTID" ZOrder="1" LineWidth="11">
<RoutePoints>
<Point>
<X>279</X>
<Y>389</Y>
</Point>
<Point>
<X>279</X>
<Y>517</Y>
</Point>
<Point>
<X>213</X>
<Y>517</Y>
</Point>
</RoutePoints>
</Connector>
</Connectors>
</DiagramLayout>

View File

@@ -0,0 +1,13 @@
Namespace Globix.Models
Public Class DocType
Public Property Guid
Public Property Name
Public Property ObjectStore
Public Property IDB_DoctypeID As Integer
Public Property BusinessEntity
Public Overrides Function ToString() As String
Return Name
End Function
End Class
End Namespace

View File

@@ -0,0 +1,34 @@
Namespace Globix.Models
Public Class ManualIndex
Public Property Id As Integer
Public Property DocTypeName As String
Public Property DocTypeId As Integer
''' <summary>
''' WD_INDEX, Name of the Attribute
''' </summary>
Public Property Name As String
''' <summary>
''' INDEXNAME, Internal Name for Admin
''' </summary>
Public Property InternalName As String
''' <summary>
''' COMMENT, Caption in Index Form
''' </summary>
Public Property LabelCaption As String
Public Property DataType As String
Public Property Sequence As Integer
Public Property SQLSuggestion As String
Public Property SQLCommand As String
Public Property SQLConnection As Integer
Public Property DefaultValue As String
Public Property IsOptional As Boolean
Public Property IsMultiselect As Boolean
Public Property AllowAddingItems As Boolean
Public Property PreventMultleValue As Boolean
End Class
End Namespace

View File

@@ -0,0 +1,17 @@
Namespace Globix.Models
Public Class WorkFile
Public FilePath As String
Public Id As Integer
Public IsAttachment As Boolean = False
Public HotfolderFile As Boolean = False
Public Sub New(pId As Integer)
Id = pId
End Sub
Public Overrides Function ToString() As String
Return FilePath
End Function
End Class
End Namespace

View File

@@ -0,0 +1,26 @@
Imports System.IO
Namespace Globix
Public Class State
Public Property DTACTUAL_FILES As DataTable
Public Property TEMP_FILES As List(Of String) = New List(Of String)
Public Property CurrMessageID As String
Public Property CurrentFolderWatchPath As String
Public Property CURRENT_SCAN_FOLDERWATCH As String
Public Property CurrentWorkfile As Models.WorkFile
Public Property INDEXING_ACTIVE As Boolean = False
Public Property NEW_FILES As Boolean = False
Public Property ABORT_INDEXING As Boolean = False
Public Property CURRENT_ISATTACHMENT As Boolean = False
Public Property DeleteOriginalFile As Boolean = False
Public Property CURRENT_LASTDOCTYPE As String
Public Property MULTIINDEXING_ACTIVE As Boolean = False
Public Property Folderwatchstarted As Boolean = False
Public Property ScanFolderwatchstarted As Boolean = False
Public Property DTEXCLUDE_FILES As DataTable
Public Property DOCUMENT_ID As Long
End Class
End Namespace

View File

@@ -0,0 +1,216 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmFileflow_Duplicate
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFileflow_Duplicate))
Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton()
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
Me.LabelControlMessage = New DevExpress.XtraEditors.LabelControl()
Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
Me.SimpleButton5 = New DevExpress.XtraEditors.SimpleButton()
Me.SimpleButton4 = New DevExpress.XtraEditors.SimpleButton()
Me.SimpleButton3 = New DevExpress.XtraEditors.SimpleButton()
Me.GroupControl1 = New DevExpress.XtraEditors.GroupControl()
Me.PanelControl1 = New DevExpress.XtraEditors.PanelControl()
Me.pnlHeader = New DevExpress.XtraEditors.PanelControl()
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupControl1.SuspendLayout()
CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.PanelControl1.SuspendLayout()
CType(Me.pnlHeader, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'SimpleButton2
'
Me.SimpleButton2.Appearance.BackColor = System.Drawing.SystemColors.Control
Me.SimpleButton2.Appearance.BorderColor = System.Drawing.Color.Black
Me.SimpleButton2.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton2.Appearance.Options.UseBackColor = True
Me.SimpleButton2.Appearance.Options.UseBorderColor = True
Me.SimpleButton2.Appearance.Options.UseFont = True
Me.SimpleButton2.DialogResult = System.Windows.Forms.DialogResult.No
Me.SimpleButton2.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton2.Location = New System.Drawing.Point(562, 2)
Me.SimpleButton2.Name = "SimpleButton2"
Me.SimpleButton2.Size = New System.Drawing.Size(100, 41)
Me.SimpleButton2.TabIndex = 3
Me.SimpleButton2.Text = "Nein"
'
'SimpleButton1
'
Me.SimpleButton1.Appearance.BackColor = System.Drawing.SystemColors.Control
Me.SimpleButton1.Appearance.BorderColor = System.Drawing.Color.Black
Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton1.Appearance.Options.UseBackColor = True
Me.SimpleButton1.Appearance.Options.UseBorderColor = True
Me.SimpleButton1.Appearance.Options.UseFont = True
Me.SimpleButton1.DialogResult = System.Windows.Forms.DialogResult.Yes
Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton1.Location = New System.Drawing.Point(455, 2)
Me.SimpleButton1.Name = "SimpleButton1"
Me.SimpleButton1.Size = New System.Drawing.Size(101, 40)
Me.SimpleButton1.TabIndex = 2
Me.SimpleButton1.Text = "Ja"
'
'LabelControlMessage
'
Me.LabelControlMessage.Appearance.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelControlMessage.Appearance.ForeColor = System.Drawing.Color.Black
Me.LabelControlMessage.Appearance.Options.UseFont = True
Me.LabelControlMessage.Appearance.Options.UseForeColor = True
Me.LabelControlMessage.LineVisible = True
Me.LabelControlMessage.Location = New System.Drawing.Point(118, 46)
Me.LabelControlMessage.Name = "LabelControlMessage"
Me.LabelControlMessage.Size = New System.Drawing.Size(121, 17)
Me.LabelControlMessage.TabIndex = 1
Me.LabelControlMessage.Text = "msgfrom_LoadForm"
'
'PictureEdit1
'
Me.PictureEdit1.EditValue = CType(resources.GetObject("PictureEdit1.EditValue"), Object)
Me.PictureEdit1.Location = New System.Drawing.Point(12, 46)
Me.PictureEdit1.Name = "PictureEdit1"
Me.PictureEdit1.Properties.Appearance.BackColor = System.Drawing.Color.Transparent
Me.PictureEdit1.Properties.Appearance.Options.UseBackColor = True
Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
Me.PictureEdit1.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom
Me.PictureEdit1.Size = New System.Drawing.Size(100, 96)
Me.PictureEdit1.TabIndex = 0
'
'SimpleButton5
'
Me.SimpleButton5.Appearance.BackColor = System.Drawing.Color.WhiteSmoke
Me.SimpleButton5.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton5.Appearance.ForeColor = System.Drawing.Color.Black
Me.SimpleButton5.Appearance.Options.UseBackColor = True
Me.SimpleButton5.Appearance.Options.UseFont = True
Me.SimpleButton5.Appearance.Options.UseForeColor = True
Me.SimpleButton5.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton5.Location = New System.Drawing.Point(249, 85)
Me.SimpleButton5.Name = "SimpleButton5"
Me.SimpleButton5.Size = New System.Drawing.Size(143, 42)
Me.SimpleButton5.TabIndex = 6
Me.SimpleButton5.Text = "... nur von mir"
'
'SimpleButton4
'
Me.SimpleButton4.Appearance.BackColor = System.Drawing.Color.Wheat
Me.SimpleButton4.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton4.Appearance.ForeColor = System.Drawing.Color.Black
Me.SimpleButton4.Appearance.Options.UseBackColor = True
Me.SimpleButton4.Appearance.Options.UseFont = True
Me.SimpleButton4.Appearance.Options.UseForeColor = True
Me.SimpleButton4.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.bo_appointment1
Me.SimpleButton4.Location = New System.Drawing.Point(20, 85)
Me.SimpleButton4.Name = "SimpleButton4"
Me.SimpleButton4.Size = New System.Drawing.Size(223, 42)
Me.SimpleButton4.TabIndex = 5
Me.SimpleButton4.Text = "Alle Dateien von heute"
'
'SimpleButton3
'
Me.SimpleButton3.Appearance.BackColor = System.Drawing.Color.WhiteSmoke
Me.SimpleButton3.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton3.Appearance.ForeColor = System.Drawing.Color.Black
Me.SimpleButton3.Appearance.Options.UseBackColor = True
Me.SimpleButton3.Appearance.Options.UseFont = True
Me.SimpleButton3.Appearance.Options.UseForeColor = True
Me.SimpleButton3.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton3.Location = New System.Drawing.Point(20, 37)
Me.SimpleButton3.Name = "SimpleButton3"
Me.SimpleButton3.Size = New System.Drawing.Size(372, 42)
Me.SimpleButton3.TabIndex = 4
Me.SimpleButton3.Text = "Vorhandene Datei anzeigen"
'
'GroupControl1
'
Me.GroupControl1.Controls.Add(Me.SimpleButton3)
Me.GroupControl1.Controls.Add(Me.SimpleButton5)
Me.GroupControl1.Controls.Add(Me.SimpleButton4)
Me.GroupControl1.Location = New System.Drawing.Point(12, 185)
Me.GroupControl1.Name = "GroupControl1"
Me.GroupControl1.Size = New System.Drawing.Size(669, 138)
Me.GroupControl1.TabIndex = 7
Me.GroupControl1.Text = "Dateisuchen"
'
'PanelControl1
'
Me.PanelControl1.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(230, Byte), Integer), CType(CType(230, Byte), Integer), CType(CType(230, Byte), Integer))
Me.PanelControl1.Appearance.Options.UseBackColor = True
Me.PanelControl1.Controls.Add(Me.SimpleButton2)
Me.PanelControl1.Controls.Add(Me.SimpleButton1)
Me.PanelControl1.Location = New System.Drawing.Point(12, 133)
Me.PanelControl1.Name = "PanelControl1"
Me.PanelControl1.Size = New System.Drawing.Size(669, 46)
Me.PanelControl1.TabIndex = 8
'
'pnlHeader
'
Me.pnlHeader.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(19, Byte), Integer))
Me.pnlHeader.Appearance.Options.UseBackColor = True
Me.pnlHeader.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
Me.pnlHeader.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlHeader.Location = New System.Drawing.Point(0, 0)
Me.pnlHeader.Name = "pnlHeader"
Me.pnlHeader.Size = New System.Drawing.Size(686, 40)
Me.pnlHeader.TabIndex = 9
'
'frmFileflow_Duplicate
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 21.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(686, 335)
Me.Controls.Add(Me.pnlHeader)
Me.Controls.Add(Me.PanelControl1)
Me.Controls.Add(Me.GroupControl1)
Me.Controls.Add(Me.PictureEdit1)
Me.Controls.Add(Me.LabelControlMessage)
Me.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Name = "frmFileflow_Duplicate"
Me.Text = "frmGlobix_Duplicate"
Me.TopMost = True
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupControl1.ResumeLayout(False)
CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.PanelControl1.ResumeLayout(False)
CType(Me.pnlHeader, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents LabelControlMessage As DevExpress.XtraEditors.LabelControl
Friend WithEvents PictureEdit1 As DevExpress.XtraEditors.PictureEdit
Friend WithEvents SimpleButton5 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents SimpleButton4 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents SimpleButton3 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents GroupControl1 As DevExpress.XtraEditors.GroupControl
Friend WithEvents PanelControl1 As DevExpress.XtraEditors.PanelControl
Friend WithEvents pnlHeader As DevExpress.XtraEditors.PanelControl
End Class

View File

@@ -0,0 +1,231 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="SimpleButton2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANcBAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQo8L3N0
eWxlPg0KICA8cGF0aCBkPSJNMTYsMkM4LjMsMiwyLDguMywyLDE2czYuMywxNCwxNCwxNHMxNC02LjMs
MTQtMTRTMjMuNywyLDE2LDJ6IE0yMywyMGwtMywzbC00LTRsLTQsNGwtMy0zbDQtNGwtNC00bDMtM2w0
LDQgIGw0LTRsMywzbC00LDRMMjMsMjB6IiBjbGFzcz0iUmVkIiAvPg0KPC9zdmc+Cw==
</value>
</data>
<data name="SimpleButton1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHICAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkNoZWNrQ2lyY2xlZCI+DQogICAgPHBhdGggZD0iTTE2
LDRDOS40LDQsNCw5LjQsNCwxNmMwLDYuNiw1LjQsMTIsMTIsMTJzMTItNS40LDEyLTEyQzI4LDkuNCwy
Mi42LDQsMTYsNHogTTE0LDIybC02LTZsMi0ybDQsNGw4LThsMiwyICAgTDE0LDIyeiIgY2xhc3M9Ikdy
ZWVuIiAvPg0KICA8L2c+DQo8L3N2Zz4L
</value>
</data>
<data name="PictureEdit1.EditValue" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABkEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJBdHRlbnRpb24iPg0K
ICAgIDxwYXRoIGQ9Ik0xNS4xLDIuNUwyLjEsMjYuNUMxLjgsMjcuMiwyLjMsMjgsMy4xLDI4aDI1Ljlj
MC44LDAsMS4zLTAuOCwwLjktMS41TDE2LjksMi41ICAgQzE2LjUsMS44LDE1LjUsMS44LDE1LjEsMi41
eiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgICA8cGF0aCBkPSJNMTYsMjBjMS4xLDAsMiwwLjksMiwycy0w
LjksMi0yLDJzLTItMC45LTItMlMxNC45LDIwLDE2LDIweiBNMTQsMTBoNHY4aC00VjEweiIgY2xhc3M9
IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
</value>
</data>
<data name="SimpleButton5.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAL8FAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iTWVldGluZyI+DQogICAgPHJlY3Qg
eD0iMTAiIHk9IjE0IiB3aWR0aD0iNCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJSZWQi
IC8+DQogICAgPGcgY2xhc3M9InN0MCI+DQogICAgICA8cGF0aCBkPSJNMTQsMjRoLTR2LTRoNFYyNHog
TTIwLDIwaC00djRoNFYyMHogTTI2LDhoLTR2NGg0Vjh6IE0yMCwxNGgtNHY0aDRWMTR6IE0yMCw4aC00
djRoNFY4eiBNMTQsOGgtNHY0aDRWOHogICAgIE04LDhINHY0aDRWOHogTTgsMTRINHY0aDRWMTR6IE04
LDIwSDR2NGg0VjIweiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDwvZz4NCiAgICA8cGF0aCBkPSJNMTgu
NiwyNkgyVjZoMjZ2Ni40YzAuOSwwLjMsMS41LDAuOCwyLDEuM1YzYzAtMC42LTAuNC0xLTEtMUgxQzAu
NCwyLDAsMi40LDAsM3YyNGMwLDAuNiwwLjQsMSwxLDFoMTcuMSAgIEMxOC4xLDI3LjIsMTguMywyNi41
LDE4LjYsMjZ6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHBhdGggZD0iTTMyLDI5LjFWMzBIMjB2LTAu
OWMwLTQsMi4zLTMuMywzLjYtNC42YzAuNSwwLjgsMS4zLDEuNSwyLjQsMS41YzEuMSwwLDEuOS0wLjYs
Mi41LTEuNCAgIEMyOS44LDI1LjgsMzIsMjUuMSwzMiwyOS4xeiBNMjIuOSwyMC44djAuMWMwLjQsMS41
LDEuMywzLjEsMy4xLDMuMXMyLjgtMS42LDMuMi0zLjF2LTAuMWMwLjcsMCwwLjQtMC43LDAuNi0xczAu
My0wLjUsMC4yLTAuOSAgIGMtMC4xLTAuMy0wLjMtMC4yLTAuNC0wLjJjMS4yLTMuMS0wLjctMi45LTAu
Ny0yLjlTMjguNywxNCwyNS4yLDE0Yy0zLjIsMC0zLjYsMi41LTIuOSw0LjdjMCwwLjEtMC4yLDAuMS0w
LjMsMC4yICAgYy0wLjEsMC40LDAuMSwwLjYsMC4zLDAuOVMyMi4yLDIwLjgsMjIuOSwyMC44eiIgY2xh
c3M9IkJsdWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="SimpleButton3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOMCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlNpbmdsZVBhZ2VWaWV3Ij4NCiAgICA8cGF0aCBk
PSJNMjcsMEgzQzIuNCwwLDIsMC40LDIsMXYyOGMwLDAuNiwwLjQsMSwxLDFoMjRjMC42LDAsMS0wLjQs
MS0xVjFDMjgsMC40LDI3LjYsMCwyNywweiBNMjYsMjhINFYyaDIyVjI4eiIgY2xhc3M9IkJsYWNrIiAv
Pg0KICAgIDxwYXRoIGQ9Ik0yMiw4SDhWNmgxNFY4eiBNMjIsMTBIOHYyaDE0VjEweiBNMjIsMTRIOHYy
aDE0VjE0eiBNMjIsMThIOHYyaDE0VjE4eiBNMjIsMjJIOHYyaDE0VjIyeiIgY2xhc3M9IkJsdWUiIC8+
DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
</root>

View File

@@ -0,0 +1,64 @@
Imports System.Threading.Tasks
Imports DigitalData.Modules.ZooFlow
Public Class frmFileflow_Duplicate
Dim omessagetext As String
Private Search As Search.SearchRunner
Private Property Environment As Environment
Public Sub New(pFilename As String, pDate As String)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
If My.Application.User.Language = "de-DE" Then
omessagetext = $"Die Datei [{pFilename}] wurde bereits" & vbNewLine & "am [{pDate}] verarbeitet." & vbNewLine & "Wollen Sie die gleiche Datei noch einmal verarbeiten?"
Else
omessagetext = $"The file [{pFilename}] has already been processed at [{pDate}]. Do you want to process the same file again?"
End If
Environment = My.Application.GetEnvironment()
Search = New Search.SearchRunner(My.LogConfig, Environment, "FlowSearch") With {
.BaseSearchSQL = SQL_FLOW_SEARCH_BASE
}
End Sub
Private Async Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click
Await GetResult("DOCID")
End Sub
Private Async Function GetResult(oVariant As String) As Task
Dim oSql As String
Try
If oVariant = "DOCID" Then
oSql = My.Queries.Common.DOCRESULT_DocID(My.Application.Globix.DOCUMENT_ID)
ElseIf oVariant = "TODAY" Then
oSql = My.Queries.Common.DOCRESULT_TODAY
ElseIf oVariant = "TODAY_ME" Then
oSql = My.Queries.Common.DOCRESULT_TODAY_ME
End If
If oSql IsNot Nothing Then
Dim oResultDT = Await My.Database.GetDatatableIDBAsync(oSql)
If Not IsNothing(oResultDT) Then
Search.RunWithDataTable(oResultDT, "FileFlow Duplicate File")
End If
End If
Catch ex As Exception
MsgBox("Unexpected error in getResult: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Function
Private Async Sub SimpleButton4_Click(sender As Object, e As EventArgs) Handles SimpleButton4.Click
Await GetResult("TODAY")
End Sub
Private Async Sub SimpleButton5_Click(sender As Object, e As EventArgs) Handles SimpleButton5.Click
Await GetResult("TODAY_ME")
End Sub
Private Sub frmFileflow_Duplicate_Load(sender As Object, e As EventArgs) Handles Me.Load
LabelControlMessage.Text = omessagetext
End Sub
End Class

View File

@@ -0,0 +1,422 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmGlobixBasicConfig
Inherits DevExpress.XtraEditors.XtraForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGlobixBasicConfig))
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
Me.ToggleSwitchDropArea = New DevExpress.XtraEditors.ToggleSwitch()
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
Me.ToggleSwitchHotfolder = New DevExpress.XtraEditors.ToggleSwitch()
Me.ToggleSwitchScanfolder = New DevExpress.XtraEditors.ToggleSwitch()
Me.btnScanfolder = New DevExpress.XtraEditors.SimpleButton()
Me.TextEditScanfolder = New DevExpress.XtraEditors.TextEdit()
Me.btnHotfolder = New DevExpress.XtraEditors.SimpleButton()
Me.TextEditHotfolder = New DevExpress.XtraEditors.TextEdit()
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tsinfo = New System.Windows.Forms.ToolStripStatusLabel()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControl1.SuspendLayout()
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchDropArea.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchHotfolder.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchScanfolder.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEditScanfolder.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEditHotfolder.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit()
Me.StatusStrip1.SuspendLayout()
Me.SuspendLayout()
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'DataGridView1
'
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Aqua
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.DataGridView1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Location = New System.Drawing.Point(24, 171)
Me.DataGridView1.Name = "DataGridView1"
Me.DataGridView1.Size = New System.Drawing.Size(312, 453)
Me.DataGridView1.TabIndex = 7
'
'LayoutControl1
'
Me.LayoutControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LayoutControl1.Controls.Add(Me.PictureEdit1)
Me.LayoutControl1.Controls.Add(Me.ToggleSwitchDropArea)
Me.LayoutControl1.Controls.Add(Me.SimpleButton1)
Me.LayoutControl1.Controls.Add(Me.ToggleSwitchHotfolder)
Me.LayoutControl1.Controls.Add(Me.ToggleSwitchScanfolder)
Me.LayoutControl1.Controls.Add(Me.DataGridView1)
Me.LayoutControl1.Controls.Add(Me.btnScanfolder)
Me.LayoutControl1.Controls.Add(Me.TextEditScanfolder)
Me.LayoutControl1.Controls.Add(Me.btnHotfolder)
Me.LayoutControl1.Controls.Add(Me.TextEditHotfolder)
Me.LayoutControl1.Location = New System.Drawing.Point(0, -9)
Me.LayoutControl1.Name = "LayoutControl1"
Me.LayoutControl1.Root = Me.Root
Me.LayoutControl1.Size = New System.Drawing.Size(1030, 688)
Me.LayoutControl1.TabIndex = 17
Me.LayoutControl1.Text = "LayoutControl1"
'
'PictureEdit1
'
Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW_DROP3
Me.PictureEdit1.Location = New System.Drawing.Point(364, 194)
Me.PictureEdit1.Name = "PictureEdit1"
Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
Me.PictureEdit1.Size = New System.Drawing.Size(642, 430)
Me.PictureEdit1.StyleController = Me.LayoutControl1
Me.PictureEdit1.TabIndex = 11
'
'ToggleSwitchDropArea
'
Me.ToggleSwitchDropArea.Location = New System.Drawing.Point(364, 171)
Me.ToggleSwitchDropArea.Name = "ToggleSwitchDropArea"
Me.ToggleSwitchDropArea.Properties.OffText = "Progressiv"
Me.ToggleSwitchDropArea.Properties.OnText = "Gemässigt"
Me.ToggleSwitchDropArea.Size = New System.Drawing.Size(642, 19)
Me.ToggleSwitchDropArea.StyleController = Me.LayoutControl1
Me.ToggleSwitchDropArea.TabIndex = 10
'
'SimpleButton1
'
Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton1.Location = New System.Drawing.Point(12, 640)
Me.SimpleButton1.Name = "SimpleButton1"
Me.SimpleButton1.Size = New System.Drawing.Size(336, 36)
Me.SimpleButton1.StyleController = Me.LayoutControl1
Me.SimpleButton1.TabIndex = 8
Me.SimpleButton1.Text = "Speichern"
'
'ToggleSwitchHotfolder
'
Me.ToggleSwitchHotfolder.Location = New System.Drawing.Point(12, 52)
Me.ToggleSwitchHotfolder.Name = "ToggleSwitchHotfolder"
Me.ToggleSwitchHotfolder.Properties.OffText = "Überwachung starten"
Me.ToggleSwitchHotfolder.Properties.OnText = "Überwachung aktiv"
Me.ToggleSwitchHotfolder.Size = New System.Drawing.Size(1006, 19)
Me.ToggleSwitchHotfolder.StyleController = Me.LayoutControl1
Me.ToggleSwitchHotfolder.TabIndex = 3
'
'ToggleSwitchScanfolder
'
Me.ToggleSwitchScanfolder.Location = New System.Drawing.Point(12, 115)
Me.ToggleSwitchScanfolder.Name = "ToggleSwitchScanfolder"
Me.ToggleSwitchScanfolder.Properties.OffText = "Scanfolder überwachen"
Me.ToggleSwitchScanfolder.Properties.OnText = "Überwachung aktiv"
Me.ToggleSwitchScanfolder.Size = New System.Drawing.Size(1006, 19)
Me.ToggleSwitchScanfolder.StyleController = Me.LayoutControl1
Me.ToggleSwitchScanfolder.TabIndex = 6
'
'btnScanfolder
'
Me.btnScanfolder.Location = New System.Drawing.Point(963, 75)
Me.btnScanfolder.Name = "btnScanfolder"
Me.btnScanfolder.Size = New System.Drawing.Size(55, 22)
Me.btnScanfolder.StyleController = Me.LayoutControl1
Me.btnScanfolder.TabIndex = 5
Me.btnScanfolder.Text = "..."
'
'TextEditScanfolder
'
Me.TextEditScanfolder.Location = New System.Drawing.Point(104, 83)
Me.TextEditScanfolder.Name = "TextEditScanfolder"
Me.TextEditScanfolder.Size = New System.Drawing.Size(847, 20)
Me.TextEditScanfolder.StyleController = Me.LayoutControl1
Me.TextEditScanfolder.TabIndex = 4
'
'btnHotfolder
'
Me.btnHotfolder.Location = New System.Drawing.Point(963, 12)
Me.btnHotfolder.Name = "btnHotfolder"
Me.btnHotfolder.Size = New System.Drawing.Size(55, 22)
Me.btnHotfolder.StyleController = Me.LayoutControl1
Me.btnHotfolder.TabIndex = 2
Me.btnHotfolder.Text = "..."
'
'TextEditHotfolder
'
Me.TextEditHotfolder.Location = New System.Drawing.Point(104, 20)
Me.TextEditHotfolder.Name = "TextEditHotfolder"
Me.TextEditHotfolder.Size = New System.Drawing.Size(847, 20)
Me.TextEditHotfolder.StyleController = Me.LayoutControl1
Me.TextEditHotfolder.TabIndex = 0
'
'Root
'
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.EmptySpaceItem1, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem8, Me.LayoutControlGroup1, Me.LayoutControlGroup2})
Me.Root.Name = "Root"
Me.Root.Size = New System.Drawing.Size(1030, 688)
Me.Root.TextVisible = False
'
'LayoutControlItem1
'
Me.LayoutControlItem1.Control = Me.TextEditHotfolder
Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem1.Size = New System.Drawing.Size(951, 40)
Me.LayoutControlItem1.Text = "Ihr Hotfolder"
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(72, 13)
'
'EmptySpaceItem1
'
Me.EmptySpaceItem1.AllowHotTrack = False
Me.EmptySpaceItem1.Location = New System.Drawing.Point(340, 628)
Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
Me.EmptySpaceItem1.Size = New System.Drawing.Size(670, 40)
Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
'
'LayoutControlItem2
'
Me.LayoutControlItem2.Control = Me.btnHotfolder
Me.LayoutControlItem2.Location = New System.Drawing.Point(951, 0)
Me.LayoutControlItem2.Name = "LayoutControlItem2"
Me.LayoutControlItem2.Size = New System.Drawing.Size(59, 40)
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem2.TextVisible = False
'
'LayoutControlItem4
'
Me.LayoutControlItem4.Control = Me.TextEditScanfolder
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 63)
Me.LayoutControlItem4.Name = "LayoutControlItem4"
Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem4.Size = New System.Drawing.Size(951, 40)
Me.LayoutControlItem4.Text = "Ihr Scanfolder"
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(72, 13)
'
'LayoutControlItem5
'
Me.LayoutControlItem5.Control = Me.btnScanfolder
Me.LayoutControlItem5.Location = New System.Drawing.Point(951, 63)
Me.LayoutControlItem5.Name = "LayoutControlItem5"
Me.LayoutControlItem5.Size = New System.Drawing.Size(59, 40)
Me.LayoutControlItem5.Text = "..."
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem5.TextVisible = False
'
'LayoutControlItem6
'
Me.LayoutControlItem6.Control = Me.ToggleSwitchScanfolder
Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 103)
Me.LayoutControlItem6.Name = "LayoutControlItem6"
Me.LayoutControlItem6.Size = New System.Drawing.Size(1010, 23)
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem6.TextVisible = False
'
'LayoutControlItem7
'
Me.LayoutControlItem7.Control = Me.ToggleSwitchHotfolder
Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 40)
Me.LayoutControlItem7.Name = "LayoutControlItem7"
Me.LayoutControlItem7.Size = New System.Drawing.Size(1010, 23)
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem7.TextVisible = False
'
'LayoutControlItem8
'
Me.LayoutControlItem8.Control = Me.SimpleButton1
Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 628)
Me.LayoutControlItem8.Name = "LayoutControlItem8"
Me.LayoutControlItem8.Size = New System.Drawing.Size(340, 40)
Me.LayoutControlItem8.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem8.TextVisible = False
'
'LayoutControlGroup1
'
Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem3})
Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 126)
Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
Me.LayoutControlGroup1.Size = New System.Drawing.Size(340, 502)
Me.LayoutControlGroup1.Text = "Blacklist Folderwatch-Files"
'
'LayoutControlItem3
'
Me.LayoutControlItem3.AppearanceItemCaption.Options.UseTextOptions = True
Me.LayoutControlItem3.AppearanceItemCaption.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Center
Me.LayoutControlItem3.Control = Me.DataGridView1
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Size = New System.Drawing.Size(316, 457)
Me.LayoutControlItem3.Text = "Blacklist Folderwatchfiles"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem3.TextVisible = False
'
'LayoutControlGroup2
'
Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem11})
Me.LayoutControlGroup2.Location = New System.Drawing.Point(340, 126)
Me.LayoutControlGroup2.Name = "LayoutControlGroup2"
Me.LayoutControlGroup2.Size = New System.Drawing.Size(670, 502)
Me.LayoutControlGroup2.Text = "Darstellung Drop-Area"
'
'LayoutControlItem10
'
Me.LayoutControlItem10.Control = Me.ToggleSwitchDropArea
Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem10.Name = "LayoutControlItem10"
Me.LayoutControlItem10.Size = New System.Drawing.Size(646, 23)
Me.LayoutControlItem10.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem10.TextVisible = False
'
'LayoutControlItem11
'
Me.LayoutControlItem11.AppearanceItemCaption.Options.UseTextOptions = True
Me.LayoutControlItem11.AppearanceItemCaption.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Center
Me.LayoutControlItem11.Control = Me.PictureEdit1
Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 23)
Me.LayoutControlItem11.Name = "LayoutControlItem11"
Me.LayoutControlItem11.Size = New System.Drawing.Size(646, 434)
Me.LayoutControlItem11.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.AutoSize
Me.LayoutControlItem11.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem11.TextToControlDistance = 0
Me.LayoutControlItem11.TextVisible = False
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsinfo})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 674)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(1032, 22)
Me.StatusStrip1.TabIndex = 18
Me.StatusStrip1.Text = "StatusStrip1"
'
'tsinfo
'
Me.tsinfo.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.StatusAnnotations_Information_16xLG_color
Me.tsinfo.Name = "tsinfo"
Me.tsinfo.Size = New System.Drawing.Size(16, 17)
'
'frmGlobixBasicConfig
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1032, 696)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.LayoutControl1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.IconOptions.SvgImage = CType(resources.GetObject("frmGlobixBasicConfig.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmGlobixBasicConfig"
Me.Text = "Basiskonfiguration File Flow"
Me.TopMost = True
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.LayoutControl1.ResumeLayout(False)
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchDropArea.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchHotfolder.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchScanfolder.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEditScanfolder.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEditHotfolder.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents OpenFileDialog1 As OpenFileDialog
Friend WithEvents DataGridView1 As DataGridView
Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
Friend WithEvents ToggleSwitchHotfolder As DevExpress.XtraEditors.ToggleSwitch
Friend WithEvents ToggleSwitchScanfolder As DevExpress.XtraEditors.ToggleSwitch
Friend WithEvents btnScanfolder As DevExpress.XtraEditors.SimpleButton
Friend WithEvents TextEditScanfolder As DevExpress.XtraEditors.TextEdit
Friend WithEvents btnHotfolder As DevExpress.XtraEditors.SimpleButton
Friend WithEvents TextEditHotfolder As DevExpress.XtraEditors.TextEdit
Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents tsinfo As ToolStripStatusLabel
Friend WithEvents ToggleSwitchDropArea As DevExpress.XtraEditors.ToggleSwitch
Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents PictureEdit1 As DevExpress.XtraEditors.PictureEdit
Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup
Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup
End Class

View File

@@ -0,0 +1,179 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="SimpleButton1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMICAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzczNzM3NDt9Cgku
WWVsbG93e2ZpbGw6I0ZDQjAxQjt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5CbHVle2ZpbGw6IzM4
N0NCNzt9CgkuUmVke2ZpbGw6I0QwMjEyNzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tk
aXNwbGF5Om5vbmU7ZmlsbDojNzM3Mzc0O30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRoLTN2MTBI
OFY0SDVDNC40LDQsNCw0LjQsNCw1djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYsMCwxLTAuNCwxLTFW
NUMyOCw0LjQsMjcuNiw0LDI3LDR6IE0yNCwyNEg4di02ICBoMTZWMjR6IE0xMCw0djhoMTBWNEgxMHog
TTE0LDEwaC0yVjZoMlYxMHoiIGNsYXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs=
</value>
</data>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>159, 17</value>
</metadata>
<data name="frmGlobixBasicConfig.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPMFAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs
YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy
Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl
Pg0KICA8ZyBpZD0iVmlld1NldHRpbmdzXzFfIj4NCiAgICA8cGF0aCBkPSJNMzIsOVY3bC0yLjUtMC42
QzI5LjQsNiwyOS4yLDUuNiwyOSw1LjJsMS41LTIuMWwtMS42LTEuNkwyNi44LDNjLTAuNC0wLjItMC44
LTAuNC0xLjItMC41TDI1LDBoLTIgICBsLTAuNiwyLjVDMjIsMi42LDIxLjYsMi44LDIxLjIsM2wtMi0x
LjVsLTEuNywxLjdsMS41LDJjLTAuMiwwLjQtMC40LDAuOC0wLjUsMS4yTDE2LDd2MmwyLjUsMC42YzAu
MSwwLjQsMC4zLDAuOCwwLjUsMS4yICAgbC0xLjUsMi4xbDEuNiwxLjZsMi4xLTEuNWMwLjQsMC4yLDAu
OCwwLjQsMS4yLDAuNUwyMywxNmgybDAuNi0yLjVjMC40LTAuMSwwLjgtMC4zLDEuMi0wLjVsMi4xLDEu
NWwxLjYtMS42TDI5LDEwLjggICBjMC4yLTAuNCwwLjQtMC44LDAuNS0xLjJMMzIsOXogTTI0LDEwYy0x
LjEsMC0yLTAuOS0yLTJjMC0xLjEsMC45LTIsMi0yczIsMC45LDIsMkMyNiw5LjEsMjUuMSwxMCwyNCwx
MHogTTE4LDIxICAgYzAtMC4zLDAtMC42LTAuMS0wLjhsMi4xLTEuOGwtMC44LTEuOWwtMi43LDAuMmMt
MC4zLTAuNC0wLjctMC44LTEuMi0xLjJsMC4yLTIuN0wxMy42LDEybC0xLjgsMi4xQzExLjYsMTQsMTEu
MywxNCwxMSwxNCAgIHMtMC42LDAtMC44LDAuMUw4LjQsMTJsLTEuOSwwLjhsMC4yLDIuN2MtMC40LDAu
My0wLjgsMC43LTEuMiwxLjJsLTIuNy0wLjJMMiwxOC40bDIuMSwxLjhDNCwyMC40LDQsMjAuNyw0LDIx
czAsMC42LDAuMSwwLjggICBMMiwyMy42bDAuOCwxLjlsMi43LTAuMmMwLjMsMC40LDAuNywwLjgsMS4y
LDEuMmwtMC4yLDIuN0w4LjQsMzBsMS44LTIuMWMwLjMsMCwwLjUsMC4xLDAuOCwwLjFzMC42LDAsMC44
LTAuMWwxLjgsMi4xbDEuOS0wLjggICBsLTAuMi0yLjdjMC40LTAuMywwLjgtMC43LDEuMi0xLjJsMi43
LDAuMmwwLjgtMS45bC0yLjEtMS44QzE4LDIxLjYsMTgsMjEuMywxOCwyMXogTTExLDI0Yy0xLjcsMC0z
LTEuMy0zLTNzMS4zLTMsMy0zczMsMS4zLDMsMyAgIFMxMi43LDI0LDExLDI0eiIgY2xhc3M9IkJsYWNr
IiAvPg0KICA8L2c+DQo8L3N2Zz4L
</value>
</data>
</root>

View File

@@ -0,0 +1,215 @@
Imports DevExpress.XtraEditors
Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.Logging
Public Class frmGlobixBasicConfig
Private Logger As Logger
Private FormLoading As Boolean = False
Private FolderWatcher As ClassFolderwatcher
Private ReadOnly FileExclusions As New ClassExclusions()
Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub CheckFolder(pMypath As String, FOLDER_TYPE As String)
Try
If pMypath = "" Then
My.DatabaseECM.ExecuteNonQuery("DELETE FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & My.Application.User.UserId & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'")
If FOLDER_TYPE = "SCAN" Then
My.Application.Globix.CURRENT_SCAN_FOLDERWATCH = ""
My.UIConfig.Globix.FolderWatchScanStarted = False
My.UIConfigManager.Save()
Else
My.Application.Globix.Folderwatchstarted = False
'SaveConfigValue("FW_started", "False")
My.UIConfig.Globix.FolderWatchStarted = False
My.UIConfigManager.Save()
My.Application.Globix.CurrentFolderWatchPath = ""
End If
Exit Sub
End If
Try
If (Not System.IO.Directory.Exists(pMypath)) Then
System.IO.Directory.CreateDirectory(pMypath)
End If
Catch ex As Exception
Logger.Info(">> Unexpected error in CheckFolder: " & pMypath)
Logger.Error(ex.Message)
Logger.Info(" >> " & ex.Message)
Dim otext As String
If My.Application.User.Language = "de-DE" Then
otext = "Unexpected error in ECheckFolder: " & pMypath & vbNewLine & "Bitte überprüfen Sie die Rechte!" & vbNewLine & ex.Message
Else
otext = "Error in creating Hotfolder: " & pMypath & vbNewLine & "Please check the rights!" & vbNewLine & ex.Message
End If
MsgBox("No Match- There might be an error in the RegEx!", MsgBoxStyle.Exclamation)
Exit Sub
End Try
Dim folderwatch = My.DatabaseECM.GetScalarValue("SELECT COALESCE(MAX(GUID),999999) FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & My.Application.User.UserId & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'")
Dim oSql As String
If folderwatch = 999999 Then
oSql = "INSERT INTO TBGI_FOLDERWATCH_USER (USER_ID, FOLDER_PATH, FOLDER_TYPE, ADDED_WHO) VALUES (" & My.Application.User.UserId & ",'" & pMypath & "','" & FOLDER_TYPE & "','" & My.Application.User.UserName & "')"
Else
oSql = "UPDATE TBGI_FOLDERWATCH_USER SET FOLDER_PATH = '" & pMypath & "', CHANGED_WHO = '" & My.Application.User.UserName & "' where GUID = " & folderwatch
End If
If My.DatabaseECM.ExecuteNonQuery(oSql) Then
folderwatch = My.DatabaseECM.GetScalarValue("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & My.Application.User.UserId & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'")
If FOLDER_TYPE = "SCAN" Then
My.Application.Globix.CURRENT_SCAN_FOLDERWATCH = pMypath
Me.TextEditScanfolder.Text = My.Application.Globix.CURRENT_SCAN_FOLDERWATCH
Else
My.Application.Globix.CurrentFolderWatchPath = pMypath
Me.TextEditHotfolder.Text = My.Application.Globix.CurrentFolderWatchPath
End If
Else
Logger.Error($"Unexpected error in Adding Folder to TBGI_FOLDERWATCH_USER [{oSql}]")
End If
If My.Application.Globix.Folderwatchstarted = True And FOLDER_TYPE = "DEFAULT" Then
FolderWatcher.Restart_FolderWatch()
End If
If My.UIConfig.Globix.FolderWatchScanStarted = True And FOLDER_TYPE = "SCAN" Then
FolderWatcher.Restart_FolderWatchSCAN()
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in CheckFolder:")
End Try
End Sub
Private Sub frmGlobixBasicConfig_Load(sender As Object, e As EventArgs) Handles Me.Load
Logger = My.LogConfig.GetLogger()
FolderWatcher = New ClassFolderwatcher(My.LogConfig)
Try
FormLoading = True
If My.Application.Globix.Folderwatchstarted = True Then
ToggleSwitchHotfolder.IsOn = True
Else
ToggleSwitchHotfolder.IsOn = False
End If
If My.Application.Globix.ScanFolderwatchstarted = True Then
ToggleSwitchScanfolder.IsOn = True
Else
ToggleSwitchScanfolder.IsOn = False
End If
Me.TextEditHotfolder.Text = My.Application.Globix.CurrentFolderWatchPath
Me.TextEditScanfolder.Text = My.Application.Globix.CURRENT_SCAN_FOLDERWATCH
FormLoading = False
Me.DataGridView1.DataSource = My.Application.Globix.DTEXCLUDE_FILES
If My.Application.GlobixDropAreaStyle = "PROGRESSIVE" Then
Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW_DROP3
ToggleSwitchDropArea.IsOn = False
Else
Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW_DROP2
ToggleSwitchDropArea.IsOn = True
End If
Catch ex As Exception
End Try
End Sub
Sub CheckFWHF_State()
FolderWatcher.StartStop_FolderWatch()
End Sub
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
My.Application.Globix.DTEXCLUDE_FILES.AcceptChanges()
My.Application.Globix.DTEXCLUDE_FILES.WriteXml(FileExclusions.FileExclusionPath)
MsgBox("Changes saved.", MsgBoxStyle.Information)
End Sub
Private Sub btnScanfolder_Click(sender As Object, e As EventArgs) Handles btnScanfolder.Click
Dim fbdialog As New FolderBrowserDialog
If TextEditScanfolder.Text <> "" Then
fbdialog.SelectedPath = TextEditScanfolder.Text
End If
If fbdialog.ShowDialog() = DialogResult.OK Then
CheckFolder(fbdialog.SelectedPath, "SCAN")
End If
End Sub
Private Sub ToggleSwitchHotfolder_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchHotfolder.Toggled
Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch)
If FormLoading = True Then
Exit Sub
End If
If oToggle.IsOn Then
If My.Application.Globix.CurrentFolderWatchPath <> "" Then
CheckFWHF_State()
Else
ToggleSwitchHotfolder.IsOn = False
End If
Else
CheckFWHF_State()
End If
End Sub
Private Sub ToggleSwitch1_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchScanfolder.Toggled
Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch)
If FormLoading = True Then
Exit Sub
End If
If oToggle.IsOn Then
If My.Application.Globix.CURRENT_SCAN_FOLDERWATCH <> "" Then
FolderWatcher.StartStop_FolderWatchSCAN()
Else
ToggleSwitchScanfolder.IsOn = False
End If
Else
FolderWatcher.StartStop_FolderWatchSCAN()
End If
End Sub
Private Sub btnHotfolder_Click(sender As Object, e As EventArgs) Handles btnHotfolder.Click
Dim fbdialog As New FolderBrowserDialog
If TextEditHotfolder.Text <> "" Then
fbdialog.SelectedPath = TextEditHotfolder.Text
End If
If fbdialog.ShowDialog() = DialogResult.OK Then
CheckFolder(fbdialog.SelectedPath, "DEFAULT")
End If
End Sub
Private Sub ToggleSwitch1_Toggled_1(sender As Object, e As EventArgs) Handles ToggleSwitchDropArea.Toggled
Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch)
If oToggle.IsOn Then
Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW_DROP2
Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = 'ALTERNATIVE'
WHERE USR_ID = {My.Application.User.UserId} AND CAT_TITLE = '{ClassConstants.USER_CATALOG_GLOBIX_DROPAREA}'"
If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then
My.Application.GlobixDropAreaStyle = "ALTERNATIVE"
tsinfo.Text = "DropArea-Theme saved!"
End If
Else
Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW_DROP3
Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = 'PROGRESSIVE'
WHERE USR_ID = {My.Application.User.UserId} AND CAT_TITLE = '{ClassConstants.USER_CATALOG_GLOBIX_DROPAREA}'"
If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then
My.Application.GlobixDropAreaStyle = "PROGRESSIVE"
tsinfo.Text = "DropArea-Theme saved to progressive!"
End If
End If
End Sub
End Class

View File

@@ -0,0 +1,205 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmGlobixMissingInput
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.btnAccept = New System.Windows.Forms.Button()
Me.txtSearchtext = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtInput = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.lblMissingElementName = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'RibbonControl1
'
Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 1
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl1.Size = New System.Drawing.Size(607, 66)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "RibbonPage1"
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 389)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(607, 22)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'btnAccept
'
Me.btnAccept.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnAccept.Font = New System.Drawing.Font("Tahoma", 9.75!)
Me.btnAccept.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.action_add_16xLG
Me.btnAccept.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAccept.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnAccept.Location = New System.Drawing.Point(12, 348)
Me.btnAccept.Name = "btnAccept"
Me.btnAccept.Size = New System.Drawing.Size(583, 35)
Me.btnAccept.TabIndex = 9
Me.btnAccept.Text = "OK - Apply manual Input"
Me.btnAccept.UseVisualStyleBackColor = True
'
'txtSearchtext
'
Me.txtSearchtext.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtSearchtext.Location = New System.Drawing.Point(12, 204)
Me.txtSearchtext.Multiline = True
Me.txtSearchtext.Name = "txtSearchtext"
Me.txtSearchtext.ReadOnly = True
Me.txtSearchtext.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.txtSearchtext.Size = New System.Drawing.Size(580, 138)
Me.txtSearchtext.TabIndex = 13
Me.txtSearchtext.TabStop = False
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label3.Location = New System.Drawing.Point(9, 188)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(88, 13)
Me.Label3.TabIndex = 12
Me.Label3.Text = "Evaluation-Text:"
'
'txtInput
'
Me.txtInput.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtInput.Font = New System.Drawing.Font("Tahoma", 12.0!)
Me.txtInput.Location = New System.Drawing.Point(12, 145)
Me.txtInput.Name = "txtInput"
Me.txtInput.Size = New System.Drawing.Size(580, 27)
Me.txtInput.TabIndex = 7
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Tahoma", 9.75!)
Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label2.Location = New System.Drawing.Point(9, 126)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(193, 16)
Me.Label2.TabIndex = 11
Me.Label2.Text = "Please input the value manually:"
'
'lblMissingElementName
'
Me.lblMissingElementName.AutoSize = True
Me.lblMissingElementName.Font = New System.Drawing.Font("Tahoma", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle))
Me.lblMissingElementName.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.lblMissingElementName.Location = New System.Drawing.Point(274, 102)
Me.lblMissingElementName.Name = "lblMissingElementName"
Me.lblMissingElementName.Size = New System.Drawing.Size(50, 16)
Me.lblMissingElementName.TabIndex = 10
Me.lblMissingElementName.Text = "Label2"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.75!)
Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label1.Location = New System.Drawing.Point(9, 102)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(259, 16)
Me.Label1.TabIndex = 8
Me.Label1.Text = "No Content found for the following element:"
'
'frmGlobixMissingInput
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(607, 411)
Me.Controls.Add(Me.btnAccept)
Me.Controls.Add(Me.txtSearchtext)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtInput)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.lblMissingElementName)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmGlobixMissingInput"
Me.Ribbon = Me.RibbonControl1
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "Fehlende Eingabe"
Me.TopMost = True
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents btnAccept As Button
Friend WithEvents txtSearchtext As TextBox
Friend WithEvents Label3 As Label
Friend WithEvents txtInput As TextBox
Friend WithEvents Label2 As Label
Friend WithEvents lblMissingElementName As Label
Friend WithEvents Label1 As Label
End Class

View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

View File

@@ -0,0 +1,18 @@
Public Class frmGlobixMissingInput
Private Sub frmGlobixMissingInput_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.lblMissingElementName.Text = CURR_MISSING_PATTERN_NAME
Me.txtSearchtext.Text = CURR_MISSING_SEARCH_STRING
Me.txtInput.Text = ""
End Sub
Private Sub frmGlobixMissingInput_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Me.txtInput.Focus()
End Sub
Private Sub btnAccept_Click(sender As Object, e As EventArgs) Handles btnAccept.Click
If txtInput.Text <> String.Empty Then
CURR_MISSING_MANUAL_VALUE = txtInput.Text
Me.Close()
End If
End Sub
End Class

View File

@@ -0,0 +1,276 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmGlobixNameconvention
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGlobixNameconvention))
Me.Label1 = New System.Windows.Forms.Label()
Me.txtnamenKonv = New System.Windows.Forms.TextBox()
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
Me.btnAddIndexA = New System.Windows.Forms.Button()
Me.btnAddIndexM = New System.Windows.Forms.Button()
Me.cmbIndex_A = New System.Windows.Forms.ComboBox()
Me.cmbIndex_m = New System.Windows.Forms.ComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.btnAddDivers = New System.Windows.Forms.Button()
Me.cmbdivers = New System.Windows.Forms.ComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.btnAddDate = New System.Windows.Forms.Button()
Me.cmbDate = New System.Windows.Forms.ComboBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton()
Me.SimpleButton3 = New DevExpress.XtraEditors.SimpleButton()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(438, 51)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Definieren Sie hier die Namenskonvention zur ausgewählten Dokumentart." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sie haben" &
" die Möglichkeit den Dateinamen aus den unten aufgeführten" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Attributen und Textb" &
"austeinen zusammenzustellen."
'
'txtnamenKonv
'
Me.txtnamenKonv.Location = New System.Drawing.Point(15, 72)
Me.txtnamenKonv.Name = "txtnamenKonv"
Me.txtnamenKonv.Size = New System.Drawing.Size(499, 25)
Me.txtnamenKonv.TabIndex = 2
'
'SimpleButton1
'
Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton1.Appearance.Options.UseFont = True
Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton1.Location = New System.Drawing.Point(520, 72)
Me.SimpleButton1.Name = "SimpleButton1"
Me.SimpleButton1.Size = New System.Drawing.Size(41, 25)
Me.SimpleButton1.TabIndex = 4
'
'btnAddIndexA
'
Me.btnAddIndexA.Image = CType(resources.GetObject("btnAddIndexA.Image"), System.Drawing.Image)
Me.btnAddIndexA.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnAddIndexA.Location = New System.Drawing.Point(193, 168)
Me.btnAddIndexA.Name = "btnAddIndexA"
Me.btnAddIndexA.Size = New System.Drawing.Size(30, 23)
Me.btnAddIndexA.TabIndex = 5
Me.btnAddIndexA.UseVisualStyleBackColor = True
'
'btnAddIndexM
'
Me.btnAddIndexM.Image = CType(resources.GetObject("btnAddIndexM.Image"), System.Drawing.Image)
Me.btnAddIndexM.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnAddIndexM.Location = New System.Drawing.Point(193, 120)
Me.btnAddIndexM.Name = "btnAddIndexM"
Me.btnAddIndexM.Size = New System.Drawing.Size(30, 23)
Me.btnAddIndexM.TabIndex = 4
Me.btnAddIndexM.UseVisualStyleBackColor = True
'
'cmbIndex_A
'
Me.cmbIndex_A.DisplayMember = "INDEXNAME"
Me.cmbIndex_A.FormattingEnabled = True
Me.cmbIndex_A.Location = New System.Drawing.Point(15, 168)
Me.cmbIndex_A.Name = "cmbIndex_A"
Me.cmbIndex_A.Size = New System.Drawing.Size(172, 25)
Me.cmbIndex_A.TabIndex = 3
Me.cmbIndex_A.ValueMember = "GUID"
'
'cmbIndex_m
'
Me.cmbIndex_m.DisplayMember = "NAME"
Me.cmbIndex_m.FormattingEnabled = True
Me.cmbIndex_m.Location = New System.Drawing.Point(15, 120)
Me.cmbIndex_m.Name = "cmbIndex_m"
Me.cmbIndex_m.Size = New System.Drawing.Size(172, 25)
Me.cmbIndex_m.TabIndex = 2
Me.cmbIndex_m.ValueMember = "GUID"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label3.Location = New System.Drawing.Point(12, 148)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(129, 17)
Me.Label3.TabIndex = 1
Me.Label3.Text = "Automatischer Index:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label2.Location = New System.Drawing.Point(12, 100)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(104, 17)
Me.Label2.TabIndex = 0
Me.Label2.Text = "Manueller Index:"
'
'btnAddDivers
'
Me.btnAddDivers.Image = CType(resources.GetObject("btnAddDivers.Image"), System.Drawing.Image)
Me.btnAddDivers.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnAddDivers.Location = New System.Drawing.Point(193, 263)
Me.btnAddDivers.Name = "btnAddDivers"
Me.btnAddDivers.Size = New System.Drawing.Size(30, 23)
Me.btnAddDivers.TabIndex = 18
Me.btnAddDivers.UseVisualStyleBackColor = True
'
'cmbdivers
'
Me.cmbdivers.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.cmbdivers.FormattingEnabled = True
Me.cmbdivers.Items.AddRange(New Object() {"Username", "Usercode", "MACHINE", "DOMAIN"})
Me.cmbdivers.Location = New System.Drawing.Point(15, 265)
Me.cmbdivers.Name = "cmbdivers"
Me.cmbdivers.Size = New System.Drawing.Size(172, 23)
Me.cmbdivers.TabIndex = 17
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label4.Location = New System.Drawing.Point(12, 245)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(47, 17)
Me.Label4.TabIndex = 16
Me.Label4.Text = "Divers:"
'
'btnAddDate
'
Me.btnAddDate.Image = CType(resources.GetObject("btnAddDate.Image"), System.Drawing.Image)
Me.btnAddDate.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnAddDate.Location = New System.Drawing.Point(193, 214)
Me.btnAddDate.Name = "btnAddDate"
Me.btnAddDate.Size = New System.Drawing.Size(30, 23)
Me.btnAddDate.TabIndex = 15
Me.btnAddDate.UseVisualStyleBackColor = True
'
'cmbDate
'
Me.cmbDate.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.cmbDate.FormattingEnabled = True
Me.cmbDate.Items.AddRange(New Object() {"YY_MM_DD", "YYYY_MM_DD", "DD_MM_YY", "DD_MM_YYYY", "YYMMDD", "YYYYMMDD", "DDMMYY", "DDMMYYYY"})
Me.cmbDate.Location = New System.Drawing.Point(15, 216)
Me.cmbDate.Name = "cmbDate"
Me.cmbDate.Size = New System.Drawing.Size(172, 23)
Me.cmbDate.TabIndex = 14
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label20.Location = New System.Drawing.Point(12, 196)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(99, 17)
Me.Label20.TabIndex = 13
Me.Label20.Text = "Datum-Struktur:"
'
'Button2
'
Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image)
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Button2.Location = New System.Drawing.Point(351, 117)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(163, 29)
Me.Button2.TabIndex = 19
Me.Button2.Text = "OriginalName"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.UseVisualStyleBackColor = True
'
'SimpleButton2
'
Me.SimpleButton2.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton2.Location = New System.Drawing.Point(429, 254)
Me.SimpleButton2.Name = "SimpleButton2"
Me.SimpleButton2.Size = New System.Drawing.Size(123, 43)
Me.SimpleButton2.TabIndex = 22
Me.SimpleButton2.Text = "Übernehmen"
'
'SimpleButton3
'
Me.SimpleButton3.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton3.Location = New System.Drawing.Point(325, 254)
Me.SimpleButton3.Name = "SimpleButton3"
Me.SimpleButton3.Size = New System.Drawing.Size(98, 43)
Me.SimpleButton3.TabIndex = 23
Me.SimpleButton3.Text = "Abbruch"
'
'frmGlobixNameconvention
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(572, 307)
Me.Controls.Add(Me.SimpleButton3)
Me.Controls.Add(Me.SimpleButton2)
Me.Controls.Add(Me.btnAddIndexA)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.btnAddIndexM)
Me.Controls.Add(Me.btnAddDivers)
Me.Controls.Add(Me.cmbIndex_A)
Me.Controls.Add(Me.cmbIndex_m)
Me.Controls.Add(Me.cmbdivers)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.btnAddDate)
Me.Controls.Add(Me.cmbDate)
Me.Controls.Add(Me.Label20)
Me.Controls.Add(Me.SimpleButton1)
Me.Controls.Add(Me.txtnamenKonv)
Me.Controls.Add(Me.Label1)
Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.Name = "frmGlobixNameconvention"
Me.Text = "Assistent zur Namenskonvention"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents txtnamenKonv As TextBox
Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents btnAddIndexA As Button
Friend WithEvents btnAddIndexM As Button
Friend WithEvents cmbIndex_A As ComboBox
Friend WithEvents cmbIndex_m As ComboBox
Friend WithEvents Label3 As Label
Friend WithEvents Label2 As Label
Friend WithEvents btnAddDivers As Button
Friend WithEvents cmbdivers As ComboBox
Friend WithEvents Label4 As Label
Friend WithEvents btnAddDate As Button
Friend WithEvents cmbDate As ComboBox
Friend WithEvents Label20 As Label
Friend WithEvents Button2 As Button
Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents SimpleButton3 As DevExpress.XtraEditors.SimpleButton
End Class

View File

@@ -0,0 +1,219 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="SimpleButton1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAD0DAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs
YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy
Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRGVsZXRlIj4N
CiAgICA8Zz4NCiAgICAgIDxwYXRoIGQ9Ik0xOC44LDE2bDYuOS02LjljMC40LTAuNCwwLjQtMSwwLTEu
NGwtMS40LTEuNGMtMC40LTAuNC0xLTAuNC0xLjQsMEwxNiwxMy4yTDkuMSw2LjNjLTAuNC0wLjQtMS0w
LjQtMS40LDAgICAgTDYuMyw3LjdjLTAuNCwwLjQtMC40LDEsMCwxLjRsNi45LDYuOWwtNi45LDYuOWMt
MC40LDAuNC0wLjQsMSwwLDEuNGwxLjQsMS40YzAuNCwwLjQsMSwwLjQsMS40LDBsNi45LTYuOWw2Ljks
Ni45ICAgIGMwLjQsMC40LDEsMC40LDEuNCwwbDEuNC0xLjRjMC40LTAuNCwwLjQtMSwwLTEuNEwxOC44
LDE2eiIgY2xhc3M9IlJlZCIgLz4NCiAgICA8L2c+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnAddIndexA.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnAddIndexM.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnAddDivers.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnAddDate.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="Button2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="SimpleButton2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOsCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl
Pg0KICA8ZyBpZD0iRXhwb3J0Ij4NCiAgICA8cGF0aCBkPSJNMTAsMTJINlY2aDRWMTJ6IE0yMiwxMnY2
djljMCwwLjYtMC40LDEtMSwxSDFjLTAuNiwwLTEtMC40LTEtMVY3YzAtMC42LDAuNC0xLDEtMWgzdjho
MTR2LTJIMjJ6IE0xOCwxOEg0ICAgdjZoMTRWMTh6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHBvbHln
b24gcG9pbnRzPSIxNiwxMCAyNCwxMCAyNCwxNCAzMiw4IDI0LDIgMjQsNiAxNiw2ICAiIGNsYXNzPSJH
cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
</value>
</data>
<data name="SimpleButton3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoBAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJIZWFkZXJBbmRGb290ZXIiIHN0eWxlPSJlbmFibGUtYmFja2dy
b3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDoj
RDExQzFDO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRINUM0LjUsNCw0LDQuNSw0LDV2MjJjMCww
LjUsMC41LDEsMSwxaDIyYzAuNSwwLDEtMC41LDEtMVY1QzI4LDQuNSwyNy41LDQsMjcsNHogTTIyLDIw
bC0yLDJsLTQtNGwtNCw0ICBsLTItMmw0LTRsLTQtNGwyLTJsNCw0bDQtNGwyLDJsLTQsNEwyMiwyMHoi
IGNsYXNzPSJSZWQiIC8+DQo8L3N2Zz4L
</value>
</data>
</root>

View File

@@ -0,0 +1,85 @@
Public Class frmGlobixNameconvention
Public Property Nameconvention() As String
Get
Return txtnamenKonv.Text
End Get
Set(value As String)
txtnamenKonv.Text = value
End Set
End Property
Public Property DoctypeID As Integer
Private Sub InsertAtSelection(str As String)
Dim altePosition As Integer = txtnamenKonv.SelectionStart()
txtnamenKonv.Text = txtnamenKonv.Text.Insert(altePosition, str)
txtnamenKonv.SelectionStart = altePosition + str.Length
End Sub
Private Sub btnAddIndexM_Click(sender As Object, e As EventArgs) Handles btnAddIndexM.Click
If Not Me.cmbIndex_m.Text = "" Then
Dim text As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_MAN, cmbIndex_m.Text)
InsertAtSelection(text)
End If
End Sub
Private Sub btnAddIndexA_Click(sender As Object, e As EventArgs) Handles btnAddIndexA.Click
If Not Me.cmbIndex_A.Text = "" Then
Dim text As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_AUTO, cmbIndex_m.Text)
InsertAtSelection(text)
End If
End Sub
Private Sub frmGlobixNameconvention_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
Dim oSQL = $"SELECT * FROM TBDD_INDEX_MAN WHERE DOK_ID = {DoctypeID}"
Dim oDTMANINDEX As DataTable = My.DatabaseECM.GetDatatable(oSQL)
cmbIndex_m.DataSource = oDTMANINDEX
cmbIndex_m.DisplayMember = oDTMANINDEX.Columns("NAME").ColumnName
oSQL = $"SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = {DoctypeID}"
Dim oDTAUTOINDEX As DataTable = My.DatabaseECM.GetDatatable(oSQL)
If Not IsNothing(oDTAUTOINDEX) And oDTAUTOINDEX.Rows.Count > 0 Then
cmbIndex_A.DataSource = oDTAUTOINDEX
cmbIndex_A.DisplayMember = oDTMANINDEX.Columns("WD_INDEX").ColumnName
Else
cmbIndex_A.Enabled = False
btnAddIndexA.Enabled = False
End If
Catch ex As Exception
End Try
End Sub
Private Sub btnAddDate_Click(sender As Object, e As EventArgs) Handles btnAddDate.Click
If Not Me.cmbDate.Text = "" Then
'AREANLAGE-[%mARENR]-[%aKurzname]-I[%Version]
Dim text As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_INT, cmbDate.Text)
InsertAtSelection(text)
End If
End Sub
Private Sub btnAddDivers_Click(sender As Object, e As EventArgs) Handles btnAddDivers.Click
If Not Me.cmbdivers.Text = "" Then
Dim text As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_INT, cmbdivers.Text)
InsertAtSelection(text)
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim text As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_INT, "OFilename")
If Not txtnamenKonv.Text.Contains(text) Then
InsertAtSelection(text)
End If
End Sub
Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click
Me.Close()
End Sub
Private Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click
Me.Close()
End Sub
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
Me.txtnamenKonv.Text = String.Empty
End Sub
End Class

View File

@@ -0,0 +1,416 @@
Imports DevExpress.XtraEditors
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmGlobix_Index
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGlobix_Index))
Dim EditorButtonImageOptions1 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions()
Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject2 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject3 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
Me.SkipItem = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
Me.checkItemTopMost = New DevExpress.XtraBars.BarCheckItem()
Me.SourceDeleteItem = New DevExpress.XtraBars.BarCheckItem()
Me.checkItemPreselection = New DevExpress.XtraBars.BarCheckItem()
Me.PreviewItem = New DevExpress.XtraBars.BarCheckItem()
Me.labelFilePath = New DevExpress.XtraBars.BarStaticItem()
Me.labelError = New DevExpress.XtraBars.BarStaticItem()
Me.labelNotice = New DevExpress.XtraBars.BarStaticItem()
Me.chkMultiindexing = New DevExpress.XtraBars.BarCheckItem()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarHeaderItem1 = New DevExpress.XtraBars.BarHeaderItem()
Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.BarCheckItem2 = New DevExpress.XtraBars.BarCheckItem()
Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
Me.pnlIndex = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.cmbDocType = New DevExpress.XtraEditors.ComboBoxEdit()
Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
Me.GlobixDataset = New DigitalData.GUIs.ZooFlow.GlobixDataset()
Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components)
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl1.Panel1.SuspendLayout()
CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl1.Panel2.SuspendLayout()
Me.SplitContainerControl1.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.cmbDocType.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GlobixDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'RibbonControl1
'
Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem2, Me.BarButtonItem3, Me.SkipItem, Me.BarButtonItem5, Me.checkItemTopMost, Me.SourceDeleteItem, Me.checkItemPreselection, Me.PreviewItem, Me.labelFilePath, Me.labelError, Me.labelNotice, Me.chkMultiindexing, Me.BarButtonItem1, Me.BarHeaderItem1, Me.BarButtonItem4})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 17
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl1.Size = New System.Drawing.Size(1033, 67)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'BarButtonItem2
'
Me.BarButtonItem2.Caption = "Profilauswahl merken"
Me.BarButtonItem2.Id = 2
Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem2.Name = "BarButtonItem2"
'
'BarButtonItem3
'
Me.BarButtonItem3.Caption = "Dateivorschau aktiv"
Me.BarButtonItem3.Id = 3
Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem3.Name = "BarButtonItem3"
'
'SkipItem
'
Me.SkipItem.Caption = "Datei überspringen"
Me.SkipItem.Id = 4
Me.SkipItem.ImageOptions.SvgImage = CType(resources.GetObject("SkipItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SkipItem.Name = "SkipItem"
'
'BarButtonItem5
'
Me.BarButtonItem5.Caption = "Andere Fenster überdecken"
Me.BarButtonItem5.Id = 5
Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem5.Name = "BarButtonItem5"
'
'checkItemTopMost
'
Me.checkItemTopMost.Caption = "Andere Fenster überdecken"
Me.checkItemTopMost.Id = 6
Me.checkItemTopMost.ImageOptions.SvgImage = CType(resources.GetObject("checkItemTopMost.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.checkItemTopMost.Name = "checkItemTopMost"
'
'SourceDeleteItem
'
Me.SourceDeleteItem.Caption = "Ursprungsdatei löschen"
Me.SourceDeleteItem.Id = 7
Me.SourceDeleteItem.ImageOptions.SvgImage = CType(resources.GetObject("SourceDeleteItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SourceDeleteItem.Name = "SourceDeleteItem"
'
'checkItemPreselection
'
Me.checkItemPreselection.Caption = "Profilauswahl merken"
Me.checkItemPreselection.Id = 8
Me.checkItemPreselection.ImageOptions.SvgImage = CType(resources.GetObject("checkItemPreselection.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.checkItemPreselection.Name = "checkItemPreselection"
'
'PreviewItem
'
Me.PreviewItem.Caption = "Dateivorschau aktiv"
Me.PreviewItem.Id = 9
Me.PreviewItem.ImageOptions.SvgImage = CType(resources.GetObject("PreviewItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PreviewItem.Name = "PreviewItem"
'
'labelFilePath
'
Me.labelFilePath.Caption = "labelFilePath"
Me.labelFilePath.Id = 10
Me.labelFilePath.ImageOptions.SvgImage = CType(resources.GetObject("labelFilePath.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.labelFilePath.Name = "labelFilePath"
Me.labelFilePath.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
'
'labelError
'
Me.labelError.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right
Me.labelError.Caption = "labelError"
Me.labelError.Id = 11
Me.labelError.ImageOptions.SvgImage = CType(resources.GetObject("labelError.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.labelError.Name = "labelError"
Me.labelError.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
Me.labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
'
'labelNotice
'
Me.labelNotice.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right
Me.labelNotice.Caption = "labelNotice"
Me.labelNotice.Id = 12
Me.labelNotice.ImageOptions.SvgImage = CType(resources.GetObject("labelNotice.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.labelNotice.Name = "labelNotice"
Me.labelNotice.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
Me.labelNotice.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
'
'chkMultiindexing
'
Me.chkMultiindexing.Caption = "Multi Indexing"
Me.chkMultiindexing.Id = 13
Me.chkMultiindexing.ImageOptions.SvgImage = CType(resources.GetObject("chkMultiindexing.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.chkMultiindexing.ItemInMenuAppearance.Pressed.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.chkMultiindexing.ItemInMenuAppearance.Pressed.Options.UseBackColor = True
Me.chkMultiindexing.Name = "chkMultiindexing"
'
'BarButtonItem1
'
Me.BarButtonItem1.Caption = "fester text"
Me.BarButtonItem1.Id = 14
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1"
Me.BarButtonItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
'
'BarHeaderItem1
'
Me.BarHeaderItem1.Caption = "BarHeaderItem1"
Me.BarHeaderItem1.Id = 15
Me.BarHeaderItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarHeaderItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarHeaderItem1.Name = "BarHeaderItem1"
Me.BarHeaderItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
'
'BarButtonItem4
'
Me.BarButtonItem4.Caption = "BarButtonItem4"
Me.BarButtonItem4.Id = 16
Me.BarButtonItem4.Name = "BarButtonItem4"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Start"
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.SourceDeleteItem)
Me.RibbonPageGroup1.ItemLinks.Add(Me.checkItemPreselection)
Me.RibbonPageGroup1.ItemLinks.Add(Me.SkipItem)
Me.RibbonPageGroup1.ItemLinks.Add(Me.PreviewItem)
Me.RibbonPageGroup1.ItemLinks.Add(Me.chkMultiindexing)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem4)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Indexierung"
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroup2.ItemLinks.Add(Me.checkItemTopMost)
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "Fenster"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelFilePath)
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError)
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelNotice)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 634)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1033, 22)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'BarCheckItem2
'
Me.BarCheckItem2.Caption = "Ursprungsdatei löschen"
Me.BarCheckItem2.Id = 7
Me.BarCheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarCheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarCheckItem2.Name = "BarCheckItem2"
'
'SplitContainerControl1
'
Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 67)
Me.SplitContainerControl1.Name = "SplitContainerControl1"
'
'SplitContainerControl1.Panel1
'
Me.SplitContainerControl1.Panel1.Controls.Add(Me.pnlIndex)
Me.SplitContainerControl1.Panel1.Controls.Add(Me.Panel3)
Me.SplitContainerControl1.Panel1.Controls.Add(Me.Panel1)
Me.SplitContainerControl1.Panel1.Text = "Panel1"
'
'SplitContainerControl1.Panel2
'
Me.SplitContainerControl1.Panel2.Controls.Add(Me.DocumentViewer1)
Me.SplitContainerControl1.Panel2.Text = "Panel2"
Me.SplitContainerControl1.Size = New System.Drawing.Size(1033, 567)
Me.SplitContainerControl1.SplitterPosition = 522
Me.SplitContainerControl1.TabIndex = 2
'
'pnlIndex
'
Me.pnlIndex.BackColor = System.Drawing.Color.FromArgb(CType(CType(74, Byte), Integer), CType(CType(115, Byte), Integer), CType(CType(255, Byte), Integer))
Me.pnlIndex.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlIndex.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.pnlIndex.ForeColor = System.Drawing.SystemColors.ControlText
Me.pnlIndex.Location = New System.Drawing.Point(0, 33)
Me.pnlIndex.Name = "pnlIndex"
Me.pnlIndex.Size = New System.Drawing.Size(522, 459)
Me.pnlIndex.TabIndex = 3
'
'Panel3
'
Me.Panel3.Controls.Add(Me.SimpleButton1)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel3.Location = New System.Drawing.Point(0, 492)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(522, 75)
Me.Panel3.TabIndex = 2
'
'SimpleButton1
'
Me.SimpleButton1.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton1.Appearance.Options.UseBackColor = True
Me.SimpleButton1.Appearance.Options.UseFont = True
Me.SimpleButton1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SimpleButton1.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleRight
Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton1.Location = New System.Drawing.Point(0, 0)
Me.SimpleButton1.Name = "SimpleButton1"
Me.SimpleButton1.Size = New System.Drawing.Size(522, 75)
Me.SimpleButton1.TabIndex = 2
Me.SimpleButton1.Text = "Verarbeite Datei"
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.Silver
Me.Panel1.Controls.Add(Me.cmbDocType)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(522, 33)
Me.Panel1.TabIndex = 0
'
'cmbDocType
'
Me.cmbDocType.Dock = System.Windows.Forms.DockStyle.Top
Me.cmbDocType.Location = New System.Drawing.Point(0, 0)
Me.cmbDocType.MenuManager = Me.RibbonControl1
Me.cmbDocType.Name = "cmbDocType"
SerializableAppearanceObject1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
SerializableAppearanceObject1.Options.UseBackColor = True
Me.cmbDocType.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo, "", 20, True, True, False, EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, "", Nothing, Nothing, DevExpress.Utils.ToolTipAnchor.[Default])})
Me.cmbDocType.Properties.ButtonsStyle = DevExpress.XtraEditors.Controls.BorderStyles.UltraFlat
Me.cmbDocType.Properties.NullText = "Bitte wählen Sie ein Profil"
Me.cmbDocType.Properties.Padding = New System.Windows.Forms.Padding(5)
Me.cmbDocType.Size = New System.Drawing.Size(522, 30)
Me.cmbDocType.TabIndex = 4
'
'DocumentViewer1
'
Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.DocumentViewer1.FileLoaded = False
Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0)
Me.DocumentViewer1.Name = "DocumentViewer1"
Me.DocumentViewer1.Size = New System.Drawing.Size(501, 567)
Me.DocumentViewer1.TabIndex = 0
'
'GlobixDataset
'
Me.GlobixDataset.DataSetName = "GlobixDataset"
Me.GlobixDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'SvgImageCollection1
'
Me.SvgImageCollection1.Add("check", "image://svgimages/icon builder/actions_checkcircled.svg")
'
'frmGlobix_Index
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1033, 656)
Me.Controls.Add(Me.SplitContainerControl1)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_G_DevExpress
Me.Name = "frmGlobix_Index"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "FileFlow"
Me.TopMost = True
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl1.Panel1.ResumeLayout(False)
CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl1.Panel2.ResumeLayout(False)
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl1.ResumeLayout(False)
Me.Panel3.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
CType(Me.cmbDocType.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GlobixDataset, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents SkipItem As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents checkItemTopMost As DevExpress.XtraBars.BarCheckItem
Friend WithEvents SourceDeleteItem As DevExpress.XtraBars.BarCheckItem
Friend WithEvents checkItemPreselection As DevExpress.XtraBars.BarCheckItem
Friend WithEvents PreviewItem As DevExpress.XtraBars.BarCheckItem
Friend WithEvents BarCheckItem2 As DevExpress.XtraBars.BarCheckItem
Friend WithEvents labelFilePath As DevExpress.XtraBars.BarStaticItem
Friend WithEvents labelError As DevExpress.XtraBars.BarStaticItem
Friend WithEvents labelNotice As DevExpress.XtraBars.BarStaticItem
Friend WithEvents chkMultiindexing As DevExpress.XtraBars.BarCheckItem
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents Panel1 As Panel
Friend WithEvents DocumentViewer1 As Controls.DocumentViewer.DocumentViewer
Friend WithEvents BarHeaderItem1 As DevExpress.XtraBars.BarHeaderItem
Friend WithEvents pnlIndex As Panel
Friend WithEvents Panel3 As Panel
Friend WithEvents GlobixDataset As GlobixDataset
Friend WithEvents cmbDocType As DevExpress.XtraEditors.ComboBoxEdit
Friend WithEvents SimpleButton1 As SimpleButton
Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection
Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
End Class

View File

@@ -0,0 +1,546 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPcFAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku
QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC
MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSXRlbVR5cGVD
aGVja2VkIj4NCiAgICA8Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lk
dGg9IjEwIiBoZWlnaHQ9IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8
cmVjdCB4PSIyMCIgeT0iMjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNz
PSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMw
LDAuNSwwLjUsMSwxLDFoMTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHog
TTE0LDMwSDRWMjAgICAgIGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0i
TTE0LDEwLjhWMTRINFY0aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwx
aDEyYzAuNSwwLDEtMC41LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwv
Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lkdGg9IjEwIiBoZWlnaHQ9
IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0i
MjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJCbGFjayIgLz4NCiAg
ICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMwLDAuNSwwLjUsMSwxLDFo
MTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHogTTE0LDMwSDRWMjAgICAg
IGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE0LDEwLjhWMTRINFY0
aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwxaDEyYzAuNSwwLDEtMC41
LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwvZz4NCiAgICA8L2c+DQog
ICAgPHBvbHlnb24gcG9pbnRzPSI2LDUgNiw4IDEwLDEyIDE4LDQgMTgsMSAxMCw5ICAiIGNsYXNzPSJH
cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
</value>
</data>
<data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIsDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
Qmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9CgkuWWVsbG93e2ZpbGw6I0ZG
QjExNTt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iUHJldmlldyI+
DQogICAgPHBhdGggZD0iTTIxLjQsMjhIMThsMCwwbDAsMEg2VjRoMTR2NWMwLDAuNiwwLjQsMSwxLDFo
NXYxMy40bDIsMlY5bC03LTdINUM0LjQsMiw0LDIuNCw0LDN2MjZjMCwwLjYsMC40LDEsMSwxaDE4LjQg
ICBMMjEuNCwyOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICA8cGF0aCBkPSJNMTgsMTRjMy4zLDAsNiwy
LjcsNiw2YzAsMS4yLTAuNCwyLjMtMSwzLjNsNC42LDQuNmMwLjUsMC41LDAuNSwxLjMsMCwxLjdjLTAu
NSwwLjUtMS4zLDAuNS0xLjcsMEwyMS4zLDI1ICAgYy0wLjksMC42LTIuMSwxLTMuMywxYy0zLjMsMC02
LTIuNy02LTZDMTIsMTYuNywxNC43LDE0LDE4LDE0eiBNMTgsMjRjMi4yLDAsNC0xLjgsNC00cy0xLjgt
NC00LTRzLTQsMS44LTQsNFMxNS44LDI0LDE4LDI0eiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCjwv
c3ZnPgs=
</value>
</data>
<data name="SkipItem.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPYCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDI1
IDI1IiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl
ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiM2NDYzNjM7fS5jbHMtMntmaWxsOiNhNTI0MzE7fS5j
bHMtM3tmaWxsOm5vbmU7c3Ryb2tlOiM2NDYzNjM7c3Ryb2tlLXdpZHRoOjJweDt9PC9zdHlsZT4NCiAg
PC9kZWZzPg0KICA8cGF0aCBkPSJNMTguNjExNiwyMy41NDY0SDBWMy41OEgxOC42MTE2Wk0xLjk2Mzks
MjEuNTgyNkgxNi42NDc3VjUuNTQzM0gxLjk2MzlaIiBjbGFzcz0iY2xzLTEiIC8+DQogIDxwb2x5bGlu
ZSBwb2ludHM9IjIwLjIwNiAyMy41NDcgMjUgMTguNzUzIDIwLjIwNiAxMy45NTkiIGNsYXNzPSJjbHMt
MiIgLz4NCiAgPGxpbmUgeDE9IjQuMDQzOCIgeTE9IjEwLjE3MDkiIHgyPSIxNC41NjgiIHkyPSIxMC4x
NzA5IiBjbGFzcz0iY2xzLTMiIC8+DQogIDxsaW5lIHgxPSI0LjA0MzgiIHkxPSIxNC4wOTg2IiB4Mj0i
MTQuNTY4IiB5Mj0iMTQuMDk4NiIgY2xhc3M9ImNscy0zIiAvPg0KICA8bGluZSB4MT0iNC4wNDM4IiB5
MT0iMTguMDI2MyIgeDI9IjE0LjU2OCIgeTI9IjE4LjAyNjMiIGNsYXNzPSJjbHMtMyIgLz4NCiAgPHJl
Y3QgeD0iMTAuNDA1NiIgeT0iMS40NTMzIiB3aWR0aD0iMTMuNzQ3IiBoZWlnaHQ9IjYuMjE2NiIgcng9
IjAiIHJ5PSIwIiBjbGFzcz0iY2xzLTIiIC8+DQo8L3N2Zz4L
</value>
</data>
<data name="BarButtonItem5.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAEMEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl
Pg0KICA8ZyBpZD0iV2luZG93cyI+DQogICAgPHBhdGggZD0iTTE4LDE4LjFWMTZoMnYwLjlDMTkuMywx
Ny4yLDE4LjYsMTcuNiwxOCwxOC4xeiBNMTQuNywyNkgyVjE2SDB2MTFjMCwwLjUsMC41LDEsMSwxaDE1
LjEgICBDMTUuNSwyNy4zLDE1LjEsMjYuNiwxNC43LDI2eiBNMjQsMThjNS43LDAsOCw2LDgsNnMtMi4z
LDYtOCw2Yy01LjcsMC04LTYtOC02UzE4LjMsMTgsMjQsMTggTTI0LDIwYy0zLjMsMC01LjEsMi43LTUu
OCw0ICAgYzAuNywxLjMsMi41LDQsNS44LDRjMy4zLDAsNS4xLTIuNyw1LjgtNEMyOS4xLDIyLjcsMjcu
MywyMCwyNCwyMEwyNCwyMHogTTI0LDIyYy0xLjEsMC0yLDAuOS0yLDJzMC45LDIsMiwyYzEuMSwwLDIt
MC45LDItMiAgIFMyNS4xLDIyLDI0LDIyeiBNMjYsMTYuMlY4aDJ2OC45QzI3LjQsMTYuNiwyNi43LDE2
LjQsMjYsMTYuMnogTTEwLDhIOHYyaDJWOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICA8cGF0aCBkPSJN
MCwxNnYtNWMwLTAuNSwwLjUtMSwxLTFoMThjMC41LDAsMSwwLjUsMSwxdjVIMHogTTI4LDhWM2MwLTAu
NS0wLjUtMS0xLTFIOUM4LjUsMiw4LDIuNSw4LDN2NUgyOHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+
DQo8L3N2Zz4L
</value>
</data>
<data name="checkItemTopMost.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGgFAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDI1
IDI1IiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl
ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiM2NDYzNjM7fS5jbHMtMntmaWxsOiNhNTI0MzE7fTwv
c3R5bGU+DQogIDwvZGVmcz4NCiAgPHBhdGggZD0iTTE5LjQ0LDEzLjA4SDUuMzU1M1YxLjUyM0gxOS40
NFpNNy4xOTc3LDExLjE0ODJoMTAuNFYzLjQ1NDZINy4xOTc3WiIgY2xhc3M9ImNscy0xIiAvPg0KICA8
cGF0aCBkPSJNMTcuMDY4MiwyMy40NzdjLTQuMTE2NiwwLTcuMzI1NS00LjIxNTEtNy40Ni00LjM5NDhs
LS40NzE0LS42Mjg3LjQ3MTQtLjYyODhjLjEzNDktLjE4LDMuMzQzOC00LjM5NDMsNy40Ni00LjM5NDNz
Ny4zMjU1LDQuMjE0Niw3LjQ2LDQuMzk0M0wyNSwxOC40NTM1bC0uNDcxNC42Mjg3QzI0LjM5MzcsMTku
MjYxOSwyMS4xODQ4LDIzLjQ3NywxNy4wNjgyLDIzLjQ3N1ptLTUuNDkyMS01LjAyMzVjLjk2MjYsMS4w
NDY2LDMuMTAwOSwzLjAyODcsNS40OTIxLDMuMDI4N1MyMS41OTc3LDE5LjUsMjIuNTYsMTguNDUzNWMt
Ljk2MjYtMS4wNDYxLTMuMTAxLTMuMDI4My01LjQ5MjEtMy4wMjgzUzEyLjUzODcsMTcuNDA3NCwxMS41
NzYxLDE4LjQ1MzVaIiBjbGFzcz0iY2xzLTEiIC8+DQogIDxwYXRoIGQ9Ik0xOS42NTMsMTguNDUzNWEy
LjY5ODgsMi42OTg4LDAsMCwwLTIuNTg1My0yLjc5OTIsMi40MjUxLDIuNDI1MSwwLDAsMC0xLjM1OTUu
NDIyNSwxLjM1OSwxLjM1OSwwLDAsMSwuMjYzOS44MDYsMS4yNjEsMS4yNjEsMCwwLDEtMS4yMDczLDEu
MzA4MSwxLjEwMTcsMS4xMDE3LDAsMCwxLS4yNjctLjAzNDhjLS4wMDkyLjA5NzctLjAxNDYuMTk3MS0u
MDE0Ni4yOTc0YTIuNjk4MSwyLjY5ODEsMCwwLDAsMi41ODQ1LDIuNzk5MSwyLjY5ODcsMi42OTg3LDAs
MCwwLDIuNTg1My0yLjc5OTEiIGNsYXNzPSJjbHMtMSIgLz4NCiAgPHBhdGggZD0iTTkuNjA3OCwxOS4w
ODIybC0uNDcxNC0uNjI4Ny4yMjA5LS4yOTQ3SDEuODQyNHYtNy45NDZIMTIuMjQxOHY1LjA0MzRhMTAu
NjIyNywxMC42MjI3LDAsMCwxLDEuODQyNC0xLjExNDJWOC4yMThIMFYyMC4xNTM2SDEwLjU0MjhBMTIu
Mzc4MywxMi4zNzgzLDAsMCwxLDkuNjA3OCwxOS4wODIyWiIgY2xhc3M9ImNscy0xIiAvPg0KICA8cmVj
dCB4PSI1LjM1NTMiIHk9IjEuNTIzIiB3aWR0aD0iMTQuMDg0MiIgaGVpZ2h0PSI1Ljk2MjciIHJ4PSIw
IiByeT0iMCIgY2xhc3M9ImNscy0yIiAvPg0KICA8cmVjdCB4PSIwIiB5PSI4LjIxOCIgd2lkdGg9IjE0
LjA5OTQiIGhlaWdodD0iNS45NjI3IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJjbHMtMiIgLz4NCjwvc3Zn
Pgs=
</value>
</data>
<data name="SourceDeleteItem.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFkCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDI1
IDI1IiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl
ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiM2NDYzNjM7fS5jbHMtMntmaWxsOiNhNTI0MzE7fTwv
c3R5bGU+DQogIDwvZGVmcz4NCiAgPHBvbHlnb24gcG9pbnRzPSIxMi4wNjEgMjEuMjMgMy4zNTUgMjEu
MjMgMy4zNTUgMi43MyAxOS44NTUgMi43MyAxOS44NTUgMTMuMjk3IDIxLjg1NSAxMS4yNjIgMjEuODU1
IDAuNzMgMS4zNTUgMC43MyAxLjM1NSAyMy4yMyAxMC4wOTYgMjMuMjMgMTIuMDYxIDIxLjIzIiBjbGFz
cz0iY2xzLTEiIC8+DQogIDxwb2x5Z29uIHBvaW50cz0iMjMuNjQ1IDE1LjExMSAyMi4yMzEgMTMuNjk3
IDE4LjM1OCAxNy41NjkgMTQuNDg2IDEzLjY5NiAxMy4wNzEgMTUuMTEgMTYuOTQ0IDE4Ljk4MyAxMy4w
NzIgMjIuODU1IDE0LjQ4NiAyNC4yNjkgMTguMzU4IDIwLjM5NyAyMi4yMzEgMjQuMjcgMjMuNjQ1IDIy
Ljg1NiAxOS43NzIgMTguOTgzIDIzLjY0NSAxNS4xMTEiIGNsYXNzPSJjbHMtMiIgLz4NCjwvc3ZnPgs=
</value>
</data>
<data name="checkItemPreselection.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDI1
IDI1IiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl
ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiM2NDYzNjM7fS5jbHMtMntmaWxsOiNhNTI0MzE7fTwv
c3R5bGU+DQogIDwvZGVmcz4NCiAgPHBhdGggZD0iTTIyLjc1LDIzLjIzSDIuMjVWLjczaDIwLjVabS0x
OC41LTJoMTYuNVYyLjczSDQuMjVaIiBjbGFzcz0iY2xzLTEiIC8+DQogIDxwYXRoIGQ9Ik0xNy44NTg2
LDE4LjcxNjdoLTJhMy4zNTg5LDMuMzU4OSwwLDEsMC02LjcxNzgsMGgtMmE1LjM1ODksNS4zNTg5LDAs
MSwxLDEwLjcxNzgsMFoiIGNsYXNzPSJjbHMtMiIgLz4NCiAgPHBhdGggZD0iTTEyLjUsMTIuMzgyN2E0
LjA3LDQuMDcsMCwxLDEsMi44NzY5LTEuMTkxOUE0LjA0MzksNC4wNDM5LDAsMCwxLDEyLjUsMTIuMzgy
N1ptMC02LjEzOTFhMi4wNywyLjA3LDAsMCwwLTEuNDYzOSwzLjUzMzIsMi4xMjA1LDIuMTIwNSwwLDAs
MCwyLjkyNjgsMGgwQTIuMDcsMi4wNywwLDAsMCwxMi41LDYuMjQzNloiIGNsYXNzPSJjbHMtMiIgLz4N
Cjwvc3ZnPgs=
</value>
</data>
<data name="PreviewItem.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIUDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDI1
IDI1IiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl
ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiM2NDYzNjM7fS5jbHMtMntmaWxsOiNhNTI0MzE7fTwv
c3R5bGU+DQogIDwvZGVmcz4NCiAgPHBvbHlnb24gcG9pbnRzPSIyMC43MDcgMjMuMjMgMjAuNzA3IDIx
LjgzMSAxOS4wMDYgMjAuMTE5IDE5LjAwNiAyMS4yMyAxNy4yOTEgMjEuMjMgMTkuMjc4IDIzLjIzIDIw
LjcwNyAyMy4yMyIgY2xhc3M9ImNscy0xIiAvPg0KICA8cG9seWdvbiBwb2ludHM9IjE0LjQ3MyAyMS4y
MyA0Ljk3MyAyMS4yMyA0Ljk3MyAyLjczIDExLjk4OSAyLjczIDExLjk4OSA5LjQ0NyAxOS4wMDYgOS40
NDcgMTkuMDA2IDE3LjI4IDIwLjcwNyAxOC45OTMgMjAuNzA3IDkuNDQ3IDExLjk4OSAwLjczIDMuMjcy
IDAuNzMgMy4yNzIgMjMuMjMgMTYuNDU5IDIzLjIzIDE0LjQ3MyAyMS4yMyIgY2xhc3M9ImNscy0xIiAv
Pg0KICA8cmVjdCB4PSIxNy40Mjg0IiB5PSIxNy4yNzk5IiB3aWR0aD0iMS45OTk4IiBoZWlnaHQ9Ijcu
MzUyOSIgcng9IjAiIHJ5PSIwIiBjbGFzcz0iY2xzLTIiIHRyYW5zZm9ybT0idHJhbnNsYXRlKC05LjQx
NDQsIDE5LjA3Mikgcm90YXRlKC00NC44MDA5LCAwLCAwKSIgLz4NCiAgPHBhdGggZD0iTTEyLjg0MTYs
MjAuMzgwOWE0Ljk5NzgsNC45OTc4LDAsMSwxLDMuNTM1Ni0xLjQ2MjRBNC45ODQ3LDQuOTg0NywwLDAs
MSwxMi44NDE2LDIwLjM4MDlabTAtNy45OTYxYTIuOTk4MywyLjk5ODMsMCwxLDAsMi4xMjE2Ljg3NjlB
Mi45OSwyLjk5LDAsMCwwLDEyLjg0MTYsMTIuMzg0OFoiIGNsYXNzPSJjbHMtMiIgLz4NCjwvc3ZnPgs=
</value>
</data>
<data name="labelFilePath.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOMCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlNpbmdsZVBhZ2VWaWV3Ij4NCiAgICA8cGF0aCBk
PSJNMjcsMEgzQzIuNCwwLDIsMC40LDIsMXYyOGMwLDAuNiwwLjQsMSwxLDFoMjRjMC42LDAsMS0wLjQs
MS0xVjFDMjgsMC40LDI3LjYsMCwyNywweiBNMjYsMjhINFYyaDIyVjI4eiIgY2xhc3M9IkJsYWNrIiAv
Pg0KICAgIDxwYXRoIGQ9Ik0yMiw4SDhWNmgxNFY4eiBNMjIsMTBIOHYyaDE0VjEweiBNMjIsMTRIOHYy
aDE0VjE0eiBNMjIsMThIOHYyaDE0VjE4eiBNMjIsMjJIOHYyaDE0VjIyeiIgY2xhc3M9IkJsdWUiIC8+
DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="labelError.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABIDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSGlnaEltcG9ydGFuY2UiPg0KICAg
IDxwYXRoIGQ9Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMy
My43LDIsMTYsMnogTTE2LDI0Yy0xLjEsMC0yLTAuOS0yLTJzMC45LTIsMi0yczIsMC45LDIsMiAgIFMx
Ny4xLDI0LDE2LDI0eiBNMTgsMThoLTRWOGg0VjE4eiIgY2xhc3M9IlJlZCIgLz4NCiAgPC9nPg0KPC9z
dmc+Cw==
</value>
</data>
<data name="labelNotice.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9
Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs
MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs
NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg
PC9nPg0KPC9zdmc+Cw==
</value>
</data>
<data name="chkMultiindexing.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPcFAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku
QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC
MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSXRlbVR5cGVD
aGVja2VkIj4NCiAgICA8Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lk
dGg9IjEwIiBoZWlnaHQ9IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8
cmVjdCB4PSIyMCIgeT0iMjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNz
PSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMw
LDAuNSwwLjUsMSwxLDFoMTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHog
TTE0LDMwSDRWMjAgICAgIGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0i
TTE0LDEwLjhWMTRINFY0aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwx
aDEyYzAuNSwwLDEtMC41LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwv
Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lkdGg9IjEwIiBoZWlnaHQ9
IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0i
MjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJCbGFjayIgLz4NCiAg
ICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMwLDAuNSwwLjUsMSwxLDFo
MTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHogTTE0LDMwSDRWMjAgICAg
IGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE0LDEwLjhWMTRINFY0
aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwxaDEyYzAuNSwwLDEtMC41
LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwvZz4NCiAgICA8L2c+DQog
ICAgPHBvbHlnb24gcG9pbnRzPSI2LDUgNiw4IDEwLDEyIDE4LDQgMTgsMSAxMCw5ICAiIGNsYXNzPSJH
cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
</value>
</data>
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIgJAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDk0
LjEzNzcgNDguOTI1IiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8x
Ij4NCiAgPGRlZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiMxZDFkMWI7fS5jbHMtMntmaWxsOiNh
NTI0MzE7fS5jbHMtMywuY2xzLTR7ZmlsbDpub25lO3N0cm9rZTojMWQxZDFiO3N0cm9rZS13aWR0aDoy
cHg7fS5jbHMtM3tzdHJva2UtbWl0ZXJsaW1pdDoxMDt9PC9zdHlsZT4NCiAgPC9kZWZzPg0KICA8cGF0
aCBkPSJNNDYuNjU0OCwyNy4yMDY5aC0yLjU1OWwtMS40NDksNC45OTVoLS4wMjVsLTEuMzI3LTQuOTk1
aC0xLjcwNmwtMS4zMjgsNC45OTVoLS4wMjRsLTEuNDUtNC45OTVoLTIuNTU4bDIuODAyLDguNzcxaDIu
MzE0bDEuMDg1LTQuNjI5aC4wMjRsMS4wODQsNC42MjloMi4zMTVabS0xNC44NjIsNC4zODZhMi4yMDQ3
LDIuMjA0NywwLDEsMS00LjM4NSwwLDIuMjA0OCwyLjIwNDgsMCwxLDEsNC4zODUsMG0yLjQzNiwwYTQu
NjI5LDQuNjI5LDAsMSwwLTQuNjI5LDQuNjI5LDQuNTUxMSw0LjU1MTEsMCwwLDAsNC42MjktNC42Mjlt
LTkuNjIzLDIuMTkzaC0yLjgwMnYtNi41NzloLTIuNDM2djguNzcxaDQuOTk0Wk0xOC4zOTI4LDI5LjRs
LS4yNDQtMi4xOTNoLTUuMjM4djguNzcxaDIuNDM2di0zLjQxMWgyLjY4MXYtMi4wNzFoLTIuNjgxVjI5
LjRaIiBjbGFzcz0iY2xzLTEiIC8+DQogIDxwYXRoIGQ9Ik00Ni4wNDUsMjMuNjMzNUg0M3YtMS4yMTho
Mi42OHYtMi4wNzFINDN2LTEuMDk2aDMuMDQ1bC0uMjQ0LTIuMTkzSDQwLjU2M3Y4Ljc3MWg1LjIzOFpt
LTYuNjM5LDB2LTMuMTY3SDM1LjUwOGwtLjI0NCwxLjk0OUgzNi45N3YuNzMxYTIuMDc4LDIuMDc4LDAs
MCwxLTEuNzA2LjczMSwyLjIzMjcsMi4yMzI3LDAsMCwxLTIuMTkzLTIuNDM3LDIuMjUsMi4yNSwwLDAs
MSwyLjE5My0yLjQzNiwyLjU1LDIuNTUsMCwwLDEsMS45NDkuOTc1bDEuNDYyLTEuNzA2YTQuMDg4OCw0
LjA4ODgsMCwwLDAtMy40MTEtMS40NjIsNC40ODI5LDQuNDgyOSwwLDAsMC00LjYyOSw0LjY0Miw0LjQy
MzgsNC40MjM4LDAsMCwwLDQuMzg2LDQuNjE3LDQuNjkzNCw0LjY5MzQsMCwwLDAsNC4zODUtMi40Mzdt
LTEyLjI1My0xLjA5NkgyNS43MTVsLjcwNy0yLjQzN2guMDI0Wm0zLjU0NSwzLjI4OS0zLjA0Ni04Ljc3
MUgyNS4yMTZsLTMuMDQ1LDguNzcxaDIuNTU4bC40MTQtMS4zNGgyLjU4MmwuNDE1LDEuMzRabS04LjUy
Ny0yLjE5M0gxOS4zNjl2LTYuNTc4SDE2LjkzMnY4Ljc3MWg0Ljk5NVptLTguNzQ3LS43NjdhLjc4Njku
Nzg2OSwwLDAsMS0uNzY3Ljg3N2gtLjk2M1YyMS45OWguODUzYS44NzMuODczLDAsMCwxLC44NzcuODc3
bS0uMjE5LTMuMDdhLjcyODEuNzI4MSwwLDAsMS0uNzY4Ljc2N2gtLjc0M3YtMS41MzVoLjc0M2EuNzQy
NS43NDI1LDAsMCwxLC43NjguNzY4bTIuNzUzLDMuMzVhMi4zNTE2LDIuMzUxNiwwLDAsMC0xLjQzOC0y
LjEzMnYtLjAyNGExLjY1NTQsMS42NTU0LDAsMCwwLC45NTEtMS43NDJjMC0xLjI0My0xLjA5Ny0yLjE5
My0yLjY4LTIuMTkzSDkuMjU4djguNzcxaDMuODk4YTIuNjI1NSwyLjYyNTUsMCwwLDAsMi44MDItMi42
OG0tMTAuOTc2LS42MDlIMy41NDVsLjcwNi0yLjQzN2guMDI1Wm0zLjU0NSwzLjI4OS0zLjA0Ni04Ljc3
MUgzLjA0NUwwLDI1LjgyNjVIMi41NThsLjQxNC0xLjM0SDUuNTU1bC40MTQsMS4zNFoiIGNsYXNzPSJj
bHMtMiIgLz4NCiAgPHBvbHlnb24gcG9pbnRzPSI1Mi4zNzIgNDguOTI2IDk0LjEzOCAyNC40NjMgNTIu
MzcyIDAgNTIuMzcyIDQ4LjkyNiIgY2xhc3M9ImNscy0yIiAvPg0KICA8cGF0aCBkPSJNNTcuOTUxMSwy
MC45MzE4YTEzLjgxLDEzLjgxLDAsMCwwLDEuMzM3LDUuODMxLDExLjYyLDExLjYyLDAsMCwwLDYuMDE4
LDUuNzU4Yy4xMTYuMDUxLjIyNy41NTQuMzA5LjY0OGExLjY3NjgsMS42NzY4LDAsMCwwLDIuNTA0LjAx
MmMuMDkyLS4xMDQuMjE5LS42MTMuMzQ5LS42NjlhMTEuNjEzNCwxMS42MTM0LDAsMCwwLDUuNDU1LTQu
NzU1LDEzLjU0ODMsMTMuNTQ4MywwLDAsMCwxLjg2OS02LjgyNVoiIGNsYXNzPSJjbHMtMyIgLz4NCiAg
PHBhdGggZD0iTTc3LjEwNDgsMTguMDE4Yy0uMDA0LS41MTMtLjAxLS40MjMuMDA2LS45MTlhNS42MzA5
LDUuNjMwOSwwLDAsMC0uODc1LTMuMjg4LDYuNDExMiw2LjQxMTIsMCwwLDAtNS4xMTctMy4wMzljLS44
Ni0uMDczLTcuNjAyLS4wNDMtOC4zMzUtLjA0MWE3LjU0ODEsNy41NDgxLDAsMCwwLTIuMjUxLjMzOCw2
LjE4MjIsNi4xODIyLDAsMCwwLTQuNDEyLDUuNTc2Yy0uMDExLjY1Ni0uMDA4LjcxNy0uMDA2LDEuMzcz
WiIgY2xhc3M9ImNscy0zIiAvPg0KICA8cGF0aCBkPSJNNjcuMTEzNSw4Ljg2NzRzLS4xMTctNS4wOTgs
My4wMTEtNS41NjIiIGNsYXNzPSJjbHMtNCIgLz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarHeaderItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIgJAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDk0
LjEzNzcgNDguOTI1IiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8x
Ij4NCiAgPGRlZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiMxZDFkMWI7fS5jbHMtMntmaWxsOiNh
NTI0MzE7fS5jbHMtMywuY2xzLTR7ZmlsbDpub25lO3N0cm9rZTojMWQxZDFiO3N0cm9rZS13aWR0aDoy
cHg7fS5jbHMtM3tzdHJva2UtbWl0ZXJsaW1pdDoxMDt9PC9zdHlsZT4NCiAgPC9kZWZzPg0KICA8cGF0
aCBkPSJNNDYuNjU0OCwyNy4yMDY5aC0yLjU1OWwtMS40NDksNC45OTVoLS4wMjVsLTEuMzI3LTQuOTk1
aC0xLjcwNmwtMS4zMjgsNC45OTVoLS4wMjRsLTEuNDUtNC45OTVoLTIuNTU4bDIuODAyLDguNzcxaDIu
MzE0bDEuMDg1LTQuNjI5aC4wMjRsMS4wODQsNC42MjloMi4zMTVabS0xNC44NjIsNC4zODZhMi4yMDQ3
LDIuMjA0NywwLDEsMS00LjM4NSwwLDIuMjA0OCwyLjIwNDgsMCwxLDEsNC4zODUsMG0yLjQzNiwwYTQu
NjI5LDQuNjI5LDAsMSwwLTQuNjI5LDQuNjI5LDQuNTUxMSw0LjU1MTEsMCwwLDAsNC42MjktNC42Mjlt
LTkuNjIzLDIuMTkzaC0yLjgwMnYtNi41NzloLTIuNDM2djguNzcxaDQuOTk0Wk0xOC4zOTI4LDI5LjRs
LS4yNDQtMi4xOTNoLTUuMjM4djguNzcxaDIuNDM2di0zLjQxMWgyLjY4MXYtMi4wNzFoLTIuNjgxVjI5
LjRaIiBjbGFzcz0iY2xzLTEiIC8+DQogIDxwYXRoIGQ9Ik00Ni4wNDUsMjMuNjMzNUg0M3YtMS4yMTho
Mi42OHYtMi4wNzFINDN2LTEuMDk2aDMuMDQ1bC0uMjQ0LTIuMTkzSDQwLjU2M3Y4Ljc3MWg1LjIzOFpt
LTYuNjM5LDB2LTMuMTY3SDM1LjUwOGwtLjI0NCwxLjk0OUgzNi45N3YuNzMxYTIuMDc4LDIuMDc4LDAs
MCwxLTEuNzA2LjczMSwyLjIzMjcsMi4yMzI3LDAsMCwxLTIuMTkzLTIuNDM3LDIuMjUsMi4yNSwwLDAs
MSwyLjE5My0yLjQzNiwyLjU1LDIuNTUsMCwwLDEsMS45NDkuOTc1bDEuNDYyLTEuNzA2YTQuMDg4OCw0
LjA4ODgsMCwwLDAtMy40MTEtMS40NjIsNC40ODI5LDQuNDgyOSwwLDAsMC00LjYyOSw0LjY0Miw0LjQy
MzgsNC40MjM4LDAsMCwwLDQuMzg2LDQuNjE3LDQuNjkzNCw0LjY5MzQsMCwwLDAsNC4zODUtMi40Mzdt
LTEyLjI1My0xLjA5NkgyNS43MTVsLjcwNy0yLjQzN2guMDI0Wm0zLjU0NSwzLjI4OS0zLjA0Ni04Ljc3
MUgyNS4yMTZsLTMuMDQ1LDguNzcxaDIuNTU4bC40MTQtMS4zNGgyLjU4MmwuNDE1LDEuMzRabS04LjUy
Ny0yLjE5M0gxOS4zNjl2LTYuNTc4SDE2LjkzMnY4Ljc3MWg0Ljk5NVptLTguNzQ3LS43NjdhLjc4Njku
Nzg2OSwwLDAsMS0uNzY3Ljg3N2gtLjk2M1YyMS45OWguODUzYS44NzMuODczLDAsMCwxLC44NzcuODc3
bS0uMjE5LTMuMDdhLjcyODEuNzI4MSwwLDAsMS0uNzY4Ljc2N2gtLjc0M3YtMS41MzVoLjc0M2EuNzQy
NS43NDI1LDAsMCwxLC43NjguNzY4bTIuNzUzLDMuMzVhMi4zNTE2LDIuMzUxNiwwLDAsMC0xLjQzOC0y
LjEzMnYtLjAyNGExLjY1NTQsMS42NTU0LDAsMCwwLC45NTEtMS43NDJjMC0xLjI0My0xLjA5Ny0yLjE5
My0yLjY4LTIuMTkzSDkuMjU4djguNzcxaDMuODk4YTIuNjI1NSwyLjYyNTUsMCwwLDAsMi44MDItMi42
OG0tMTAuOTc2LS42MDlIMy41NDVsLjcwNi0yLjQzN2guMDI1Wm0zLjU0NSwzLjI4OS0zLjA0Ni04Ljc3
MUgzLjA0NUwwLDI1LjgyNjVIMi41NThsLjQxNC0xLjM0SDUuNTU1bC40MTQsMS4zNFoiIGNsYXNzPSJj
bHMtMiIgLz4NCiAgPHBvbHlnb24gcG9pbnRzPSI1Mi4zNzIgNDguOTI2IDk0LjEzOCAyNC40NjMgNTIu
MzcyIDAgNTIuMzcyIDQ4LjkyNiIgY2xhc3M9ImNscy0yIiAvPg0KICA8cGF0aCBkPSJNNTcuOTUxMSwy
MC45MzE4YTEzLjgxLDEzLjgxLDAsMCwwLDEuMzM3LDUuODMxLDExLjYyLDExLjYyLDAsMCwwLDYuMDE4
LDUuNzU4Yy4xMTYuMDUxLjIyNy41NTQuMzA5LjY0OGExLjY3NjgsMS42NzY4LDAsMCwwLDIuNTA0LjAx
MmMuMDkyLS4xMDQuMjE5LS42MTMuMzQ5LS42NjlhMTEuNjEzNCwxMS42MTM0LDAsMCwwLDUuNDU1LTQu
NzU1LDEzLjU0ODMsMTMuNTQ4MywwLDAsMCwxLjg2OS02LjgyNVoiIGNsYXNzPSJjbHMtMyIgLz4NCiAg
PHBhdGggZD0iTTc3LjEwNDgsMTguMDE4Yy0uMDA0LS41MTMtLjAxLS40MjMuMDA2LS45MTlhNS42MzA5
LDUuNjMwOSwwLDAsMC0uODc1LTMuMjg4LDYuNDExMiw2LjQxMTIsMCwwLDAtNS4xMTctMy4wMzljLS44
Ni0uMDczLTcuNjAyLS4wNDMtOC4zMzUtLjA0MWE3LjU0ODEsNy41NDgxLDAsMCwwLTIuMjUxLjMzOCw2
LjE4MjIsNi4xODIyLDAsMCwwLTQuNDEyLDUuNTc2Yy0uMDExLjY1Ni0uMDA4LjcxNy0uMDA2LDEuMzcz
WiIgY2xhc3M9ImNscy0zIiAvPg0KICA8cGF0aCBkPSJNNjcuMTEzNSw4Ljg2NzRzLS4xMTctNS4wOTgs
My4wMTEtNS41NjIiIGNsYXNzPSJjbHMtNCIgLz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarCheckItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPECAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl
Pg0KICA8ZyBpZD0iRGVsZXRlTGlzdCI+DQogICAgPHBhdGggZD0iTTYsMjZWNGgxOHYxMy4ybDItMlYz
YzAtMC42LTAuNC0xLTEtMUg1QzQuNCwyLDQsMi40LDQsM3YyNGMwLDAuNiwwLjQsMSwxLDFoOC4ybDIt
Mkg2eiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxwb2x5Z29uIHBvaW50cz0iMjgsMjAgMjYsMTggMjIs
MjIgMTgsMTggMTYsMjAgMjAsMjQgMTYsMjggMTgsMzAgMjIsMjYgMjYsMzAgMjgsMjggMjQsMjQgICIg
Y2xhc3M9IlJlZCIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
</value>
</data>
<data name="SimpleButton1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHgCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwv
c3R5bGU+DQogIDxwYXRoIGQ9Ik0xNiw2SDh2OGg4VjZ6IE0xMiwxMmgtMlY4aDJWMTJ6IiBjbGFzcz0i
QmxhY2siIC8+DQogIDxwYXRoIGQ9Ik0yMiw2djEwSDZWNkgzQzIuNCw2LDIsNi40LDIsN3YyMmMwLDAu
NiwwLjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjE4di0yVjdjMC0wLjYtMC40LTEtMS0xSDIyeiBN
MjIsMjZINiAgdi02aDE2VjI2eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8cGF0aCBkPSJNMjgsMkg3QzYu
NCwyLDYsMi40LDYsM3YxaDIydjIyaDFjMC42LDAsMS0wLjQsMS0xVjRWM2MwLTAuNi0wLjQtMS0xLTFI
Mjh6IiBjbGFzcz0iQmxhY2siIC8+DQo8L3N2Zz4L
</value>
</data>
<metadata name="GlobixDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="SvgImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>144, 17</value>
</metadata>
</root>

View File

@@ -0,0 +1,916 @@
Option Explicit On
Imports System.IO
Imports System.Text.RegularExpressions
Imports DevExpress.XtraEditors.Controls
Imports DigitalData.Controls.LookupGrid
Imports DigitalData.GUIs.GlobalIndexer
Imports DigitalData.GUIs.ZooFlow.Globix.Models
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.EDMI.API
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Imports DigitalData.Modules.EDMI.API.Constants.DatabaseType
Imports DigitalData.Modules.Language
Imports DigitalData.Modules.Language.Utils
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Patterns
Imports DevExpress.XtraEditors
Imports DevExpress.XtraSplashScreen
Imports DigitalData.GUIs.Common
Public Class frmGlobix_Index
#Region "+++++ Variablen ++++++"
Private ReadOnly LogConfig As LogConfig
Private ReadOnly Logger As Logger
Private Property CancelAttempts As Integer = 0
Private Const MAX_CANCEL_ATTEMPTS = 2
Private Const TEXT_MISSING_INPUT = "Bitte vervollständigen Sie die Eingaben!"
Private Property MultifileCount As Integer
Public Property FormLoaded As Boolean = False
Public Property DropType As String
Public Property ManualIndexes As List(Of ManualIndex)
Public Property DocTypes As List(Of DocType)
Public Property SelectedDocType As DocType
Private Property WindowLocation As ClassWindowLayout
Private Property Database As DatabaseWithFallback
Private Property Patterns2 As Patterns2
Private ReadOnly FormHelper As FormHelper
Private Property OverlayHandle As IOverlaySplashScreenHandle
Public Property oSuccess As Boolean = False
'Public Class ControlMeta
' Public Property IndexName As String
' Public Property IndexType As String
' Public Property MultipleValues As Boolean = False
'End Class
#End Region
Public Sub New(pLogConfig As LogConfig)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Logger = pLogConfig.GetLogger()
LogConfig = pLogConfig
Database = New DatabaseWithFallback(pLogConfig, My.Application.Service.Client, My.DatabaseECM, My.DatabaseIDB)
WindowLocation = New ClassWindowLayout(pLogConfig)
Patterns2 = New Patterns2(pLogConfig)
FormHelper = New FormHelper(pLogConfig, Me)
Localizer.Active = New LookupGridLocalizer()
End Sub
Private Sub frmGlobix_Index_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ColorizeInactiveIcon = DevExpress.Utils.DefaultBoolean.True
' Abbruchzähler zurücksetzen
CancelAttempts = 0
' Show Loading Overlay
OverlayHandle = SplashScreenManager.ShowOverlayForm(Me)
My.Application.Globix.INDEXING_ACTIVE = True
End Sub
Private Async Sub frmGlobix_Index_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Cursor = Cursors.Default
checkItemTopMost.Checked = My.UIConfig.Globix.TopMost
TopMost = My.UIConfig.Globix.TopMost
BringToFront()
Focus()
Try
DocumentViewer1.Init(LogConfig, My.Application.Settings.GdPictureKey)
Catch ex As Exception
Logger.Error(ex)
End Try
Try
Refresh_Dokart()
pnlIndex.Controls.Clear()
My.Application.Globix.CURRENT_ISATTACHMENT = False
Dim oSql = $"SELECT HANDLE_TYPE FROM TBGI_FILES_USER WHERE GUID = {My.Application.Globix.CurrentWorkfile.Id}"
DropType = Await My.Database.GetScalarValueECMAsync(oSql)
My.Application.Globix.DeleteOriginalFile = My.UIConfig.Globix.DeleteOriginalFile
SplitContainerControl1.SplitterPosition = My.UIConfig.Globix.SplitterDistanceViewer
SourceDeleteItem.Enabled = True
SourceDeleteItem.Checked = My.UIConfig.Globix.DeleteOriginalFile
If DropType Is Nothing Then
Logger.Debug("File with Id [{0}] was not found in TBGI_FILES_USER. Exiting.", My.Application.Globix.CurrentWorkfile.Id)
CancelAttempts = MAX_CANCEL_ATTEMPTS
Close()
Exit Sub
End If
SetDropType(DropType)
labelFilePath.Caption = My.Application.Globix.CurrentWorkfile.FilePath
WindowLocation.LoadFormLocationSize(Me)
SetFilePreview(My.UIConfig.Globix.FilePreview)
MultifileCount = Await My.Database.GetScalarValueECMAsync("SELECT COUNT(*) FROM TBGI_FILES_USER WHERE WORKED = 0 AND GUID <> " & My.Application.Globix.CurrentWorkfile.Id & " AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
My.Application.Globix.MULTIINDEXING_ACTIVE = False
If MultifileCount > 0 Then
If My.Application.User.Language = "de-DE" Then
chkMultiindexing.Caption = $"Alle nachfolgenden Dateien (#{MultifileCount}) identisch indexieren"
Else
chkMultiindexing.Caption = "All following files (#{MultifileCount}) will be indexed identically"
End If
chkMultiindexing.Checked = False
chkMultiindexing.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else
chkMultiindexing.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
If My.UIConfig.Globix.DeleteOriginalFile Then
SourceDeleteItem.Checked = True
End If
' Letzte Auswahl merken überschreibt die automatische selektion
If My.UIConfig.Globix.ProfilePreselection Then
checkItemPreselection.Checked = True
If My.Application.Globix.CURRENT_LASTDOCTYPE <> "" Then
Dim oFoundDocType = cmbDocType.Properties.Items.
Cast(Of DocType)().
Where(Function(dt) dt.Name = My.Application.Globix.CURRENT_LASTDOCTYPE).
FirstOrDefault()
If oFoundDocType IsNot Nothing Then
cmbDocType.SelectedItem = oFoundDocType
End If
End If
Else
oSql = "SELECT DISTINCT T1.DOCTYPE as DocType, T.* FROM TBGI_REGEX_DOCTYPE T, VWGI_DOCTYPE_USER T1 WHERE T.DOCTYPE_ID = T1.DOCTYPE_ID"
Dim oRegexDoctypeTable = Database.GetDatatable("DTTBGI_REGEX_DOCTYPE", oSql, ECM)
For Each oRoW As DataRow In oRegexDoctypeTable.Rows
Dim oOnlyFilename = Path.GetFileName(My.Application.Globix.CurrentWorkfile.FilePath)
If Regex.IsMatch(oOnlyFilename, oRoW.Item("Regex")) Then
Logger.Debug("There is a match on REGEX_DOCTYPE: [{0}]", oRoW.Item("DOCTYPE"))
Logger.Debug("Regex: [{0}], FileName: [{1}]", oRoW.Item("Regex"), oOnlyFilename)
Dim oFoundDocType = cmbDocType.Properties.Items.
Cast(Of DocType)().
Where(Function(dt) dt.Name = My.Application.Globix.CURRENT_LASTDOCTYPE).
FirstOrDefault()
If oFoundDocType IsNot Nothing Then
cmbDocType.SelectedItem = oFoundDocType
End If
Exit For
End If
Next
End If
Catch ex As Exception
Logger.Warn("Unexpected error DTTBGI_REGEX_DOCTYPE - ErrorMessage: " & vbNewLine & ex.Message)
Me.Visible = False
FormHelper.ShowErrorMessage(ex, "Laden des Formulars")
Me.Visible = True
Finally
SplashScreenManager.CloseOverlayForm(OverlayHandle)
FormLoaded = True
End Try
End Sub
Public Sub SetDropType(pDropType As String)
If pDropType Is Nothing Then
Logger.Debug("File with Id [{0}] was not found in TBGI_FILES_USER. Exiting.", My.Application.Globix.CurrentWorkfile.Id)
CancelAttempts = MAX_CANCEL_ATTEMPTS
Close()
Else
If pDropType.StartsWith("|FW") Then
' Eine Datei aus FolderWatch wird IMMER gelöscht, egal wie die Einstellung in der Config lautet
My.Application.Globix.DeleteOriginalFile = True
SourceDeleteItem.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
ElseIf pDropType.Contains("|OUTLOOK_MESSAGE|") Then
' Eine (DragDrop)-Outlook Nachricht wird NIE gelöscht, egal wie die Einstellung in der Config lautet
My.Application.Globix.DeleteOriginalFile = False
SourceDeleteItem.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
Else
SourceDeleteItem.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
End If
If pDropType = "|DROPFROMFSYSTEM|" Then
If My.Application.User.Language <> "de-DE" Then
Me.Text = "Storage-Flow of dropped file"
Else
Me.Text = "Ablage-Flow - Dropped File"
End If
ElseIf pDropType = "|OUTLOOK_MESSAGE|" Or pDropType = "|FW_MSGONLY|" Then
Select Case pDropType
Case "|FW_MSGONLY|"
Logger.Info(".msg-file from folderwatch")
If My.Application.User.Language <> "de-DE" Then
Me.Text = "Storage-Flow - msg-File (without Attachments) - from Folderwatch"
Else
Me.Text = "Ablage-Flow - msg-Datei (ohne Anhang) - aus Folderwatch"
End If
Case "|OUTLOOK_MESSAGE|"
Logger.Info(".msg-file through dragdrop")
If My.Application.User.Language <> "de-DE" Then
Me.Text = "Storage-Flow - msg-File (without Attachments)"
Else
Me.Text = "Ablage-Flow - msg-Datei (ohne Anhang)"
End If
End Select
ElseIf pDropType = "|MSGONLY|" Then
If My.Application.User.Language = "de-DE" Then
Me.Text = "Ablage-Flow der msg-Datei (ohne Anhang)"
Else
Me.Text = "Storage-Flow of msg-File (without Attachments)"
End If
ElseIf pDropType = "|ATTMNTEXTRACTED|" Or pDropType = "|OUTLOOK_ATTACHMENT|" Then
My.Application.Globix.CURRENT_ISATTACHMENT = True
If My.Application.User.Language = "de-DE" Then
Me.Text = "Ablage-Flow eines Email-Attachments"
Else
Me.Text = "Storage-Flow of email-Attachment"
End If
ElseIf pDropType = "|FW_SIMPLEINDEXER|" Then
If My.Application.User.Language = "de-DE" Then
Me.Text = "Ablage-Flow einer Folderwatch-Datei"
Else
Me.Text = "Storage-Flow of Folderwatch-File"
End If
End If
End If
End Sub
Private Sub SetFilePreview(ShowPreview As Boolean)
If ShowPreview Then
SplitContainerControl1.Collapsed = False
PreviewFile()
PreviewItem.Checked = True
Else
SplitContainerControl1.Collapsed = True
PreviewItem.Checked = False
End If
End Sub
Sub PreviewFile()
Try
DocumentViewer1.LoadFile(My.Application.Globix.CurrentWorkfile.FilePath)
Catch ex As Exception
Me.Visible = False
FormHelper.ShowErrorMessage(ex, "Laden der Vorschau")
Me.Visible = True
End Try
End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SourceDeleteItem.ItemClick
If SourceDeleteItem.Visibility <> DevExpress.XtraBars.BarItemVisibility.Never Then
My.Application.Globix.DeleteOriginalFile = SourceDeleteItem.Checked
My.UIConfig.Globix.DeleteOriginalFile = SourceDeleteItem.Checked
My.SystemConfigManager.Save()
End If
End Sub
Private Sub SkipItem_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SkipItem.ItemClick
My.Database.ExecuteNonQueryECM($"DELETE FROM TBGI_FILES_USER WHERE GUID = {My.Application.Globix.CurrentWorkfile.Id}")
CancelAttempts = MAX_CANCEL_ATTEMPTS
Close()
End Sub
Private Sub BarCheckItem3_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles chkMultiindexing.CheckedChanged
If chkMultiindexing.Checked Then
chkMultiindexing.Caption = "Active"
Else
chkMultiindexing.Caption = "Inactive"
End If
End Sub
Private Sub checkItemPreselection_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles checkItemPreselection.CheckedChanged
My.UIConfig.Globix.ProfilePreselection = checkItemPreselection.Checked
My.SystemConfigManager.Save()
End Sub
Sub Refresh_Dokart()
Try
Dim oDocTypes As New List(Of DocType)
Dim oSql = String.Format($"SELECT A.DOCTYPE_ID,A.USERNAME,DL.Doctype,A.OBJECT_ST_NAME, DL.Doctype_ID as IDBDoctype_ID,DL.LANG_CODE,A.SEQUENCE FROM VWGI_DOCTYPE_USER A INNER JOIN TBDD_DOKUMENTART DT ON A.DOCTYPE_ID = DT.GUID
INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_ID WHERE A.AKTIV = 1 AND A.USERNAME = '{My.Application.User.UserName}' AND DL.LANG_CODE = '{My.Application.User.Language}' ORDER BY A.SEQUENCE")
Dim oTable = Database.GetDatatable("VWGI_DOCTYPE_USER", oSql, ECM,
pSortByColumn:="SEQUENCE",
pFilterExpression:=$"AKTIV = 1 AND USERNAME = '{My.Application.User.UserName}' AND LANG_CODE = '{My.Application.User.Language}'")
For Each oRow As DataRow In oTable.Rows
Dim oDocType = New DocType With {
.Guid = oRow.Item("DOCTYPE_ID"),
.Name = oRow.Item("Doctype"),
.ObjectStore = oRow.Item("OBJECT_ST_NAME"),
.IDB_DoctypeID = oRow.Item("IDBDoctype_ID")
}
oDocTypes.Add(oDocType)
cmbDocType.Properties.Items.Add(oDocType)
Next
DocTypes = oDocTypes
Catch ex As Exception
Me.Visible = False
FormHelper.ShowErrorMessage(ex, "Laden des Profils")
Me.Visible = True
End Try
End Sub
Private Sub ComboBoxEdit1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbDocType.SelectedIndexChanged
If cmbDocType.SelectedIndex <> -1 And FormLoaded = True Then
Dim oSelectedItem As DocType = cmbDocType.SelectedItem
ClearNotice()
ClearError()
pnlIndex.Controls.Clear()
SelectedDocType = oSelectedItem
'My.Application.Globix.CURRENT_DOCTYPE_DuplicateHandling = My.Application.Globix.CURR_DT_DOCTYPE.Rows(0).Item("DUPLICATE_HANDLING").ToString
ManualIndexes = Refresh_IndexeMan(oSelectedItem.Guid)
LoadIndexe_Man(ManualIndexes)
End If
End Sub
Private Function Refresh_IndexeMan(dokartid As Integer) As List(Of ManualIndex)
Dim oSql
Try
oSql = $"SELECT
T1.BEZEICHNUNG AS DOKUMENTART, T.*
FROM TBDD_INDEX_MAN T,
TBDD_DOKUMENTART T1
WHERE T.DOK_ID = T1.GUID AND
T.DOK_ID = {dokartid}
ORDER BY T.SEQUENCE"
Dim oTable = My.Database.GetDatatable("VWDDINDEX_MAN", oSql, ECM,
pSortByColumn:="SEQUENCE",
pFilterExpression:=$"DOK_ID = {dokartid}")
Dim oManualIndexes As New List(Of ManualIndex)
For Each oRow As DataRow In oTable.Rows
Dim oIndex As New ManualIndex With {
.Id = oRow.ItemEx(Of Integer)("GUID"),
.DocTypeId = oRow.ItemEx(Of Integer)("DOK_ID"),
.DocTypeName = oRow.ItemEx(Of String)("DOKUMENTART"),
.Name = oRow.ItemEx(Of String)("WD_INDEX"),
.InternalName = oRow.ItemEx(Of String)("INDEXNAME"),
.LabelCaption = oRow.ItemEx(Of String)("COMMENT"),
.DataType = oRow.ItemEx(Of String)("DATATYPE"),
.Sequence = oRow.ItemEx("SEQUENCE", 0),
.SQLCommand = oRow.ItemEx("SQL_RESULT", String.Empty),
.SQLConnection = oRow.ItemEx("CONNECTION_ID", 0),
.SQLSuggestion = oRow.ItemEx("SUGGESTION", String.Empty),
.DefaultValue = oRow.ItemEx("DEFAULT_VALUE", String.Empty),
.IsOptional = oRow.ItemEx(Of Integer)("OPTIONAL", False),
.IsMultiselect = oRow.ItemEx("MULTISELECT", False)
}
oManualIndexes.Add(oIndex)
Next
Return oManualIndexes
Catch ex As Exception
Logger.Error(ex)
Me.Visible = False
FormHelper.ShowErrorMessage(ex, "Unexpected error in Refresh_IndexeMan:")
Me.Visible = True
Return Nothing
End Try
End Function
Private Sub LoadIndexe_Man(pManualIndexes As List(Of ManualIndex))
Try
Dim oScreen As New DigitalData.Modules.Windows.Screen()
Dim oDpiScale = oScreen.GetScreenScaling(Me)
Dim oControlCount As Integer = 1
Dim oLabelPosition As Integer = 11 * oDpiScale
Dim oControlPosition As Integer = 33 * oDpiScale
Dim oControls As New ControlCreator(LogConfig, pnlIndex, Me) With {
.OnControlChanged = AddressOf PrepareDependingControl,
.OnLookupData = AddressOf GetLookupData
}
pnlIndex.Visible = True
Logger.Info("Loading Indicies for Screen Scaling Factor [{0}]", oDpiScale)
If pManualIndexes Is Nothing OrElse pManualIndexes.Count = 0 Then
ShowError("Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDocType.Text & " definiert")
Logger.Info(" - Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDocType.Text & " definiert")
End If
For Each oIndex As ManualIndex In pManualIndexes
Dim MultiSelect As Boolean = oIndex.IsMultiselect
Dim AddNewItems As Boolean = oIndex.AllowAddingItems
Dim PreventDuplicates As Boolean = oIndex.PreventMultleValue
Dim oControlName As String = oIndex.Name
Dim oConnectionId = oIndex.SQLConnection
Dim oDataType = oIndex.DataType
If oDataType <> "BOOLEAN" Then
Dim oLabel = oControls.AddLabel(oControlName, oIndex.LabelCaption, oLabelPosition, oControlCount)
pnlIndex.Controls.Add(oLabel)
End If
'Dim oDefaultValue = Check_HistoryValues(oControlName, oIndex.DocTypeName)
'If oDefaultValue Is Nothing Then
' 'oDefaultValue = GetPlaceholderValue(oIndex.DefaultValue, My.Application.Globix.CURRENT_WORKFILE)
'End If
Dim oDefaultValue = GetPlaceholderValue(oIndex.DefaultValue, My.Application.Globix.CurrentWorkfile.FilePath)
Dim oControl As Control = Nothing
Dim oHasSqlCommand = (oConnectionId > 0 And oIndex.SQLCommand.Length > 0)
Dim oNeedsLookup As Boolean = oHasSqlCommand Or MultiSelect = True
Select Case oIndex.DataType
Case "BOOLEAN"
Dim oCheckbox = oControls.AddCheckBox(oControlName, oControlPosition, oDefaultValue, oIndex.LabelCaption)
oControl = oCheckbox
Case "INTEGER"
If oNeedsLookup Then
oControl = oControls.AddLookupControl(oControlName, oControlPosition, MultiSelect, oDataType, oIndex.SQLCommand, oConnectionId, oDefaultValue, AddNewItems, PreventDuplicates)
Else
oControl = oControls.AddTextBox(oControlName, oControlPosition, oDefaultValue, oDataType)
End If
Case "VARCHAR"
If oNeedsLookup Then
oControl = oControls.AddLookupControl(oControlName, oControlPosition, MultiSelect, oDataType, oIndex.SQLCommand, oConnectionId, oDefaultValue, AddNewItems, PreventDuplicates)
Else
oControl = oControls.AddTextBox(oControlName, oControlPosition, oDefaultValue, oDataType)
End If
Case "DATE"
oControl = oControls.AddDateTimePicker(oControlName, oControlPosition, oDataType)
Case Else
Dim omsg As String
If My.Application.User.Language = "de-DE" Then
omsg = "Bitte überprüfen Sie den Datentyp des hinterlegten Indexwertes!"
Else
omsg = "Please check Datatype of Indexvalue!"
End If
Me.Visible = False
Dim oResult = FormHelper.ShowWarningMessage(omsg, "Index Load")
Me.Visible = True
Logger.Warn("DataType [{0}] not implemented!", oIndex.DataType)
End Select
If Not IsNothing(oControl) Then
pnlIndex.Controls.Add(oControl)
End If
oControlCount += 1
oLabelPosition += 50 * oDpiScale
oControlPosition += 50 * oDpiScale
'make y as height in fom
Next
Dim oPanelHeight = oControlPosition - 30
If pnlIndex.Height < oPanelHeight Then
If (Height - 315) < oPanelHeight Then
Height = (Height - 315) + oPanelHeight
End If
pnlIndex.Height = oPanelHeight
End If
SendKeys.Send("{TAB}")
Catch ex As Exception
Logger.Error(ex)
Me.Visible = False
FormHelper.ShowErrorMessage(ex, "Unexpected error in LoadIndexe_Man:")
Me.Visible = True
End Try
End Sub
Private Sub PrepareDependingControl(pControl As Control)
If TypeOf pControl Is Label Then
Exit Sub
End If
Try
Dim oMeta = DirectCast(pControl.Tag, ControlCreator.ControlMeta)
Dim oIndexName As String = oMeta.IndexName
Dim oSQL = $"SELECT * FROM TBDD_INDEX_MAN WHERE SQL_RESULT LIKE '%{oIndexName}%' AND DOK_ID = {SelectedDocType.Guid}"
Dim oDatatable As DataTable = My.Database.GetDatatableECM(oSQL)
If Not IsNothing(oDatatable) Then
Logger.Debug("Found [{0}] depending controls for [{1}]", oDatatable.Rows.Count, pControl.Name)
For Each oRow As DataRow In oDatatable.Rows
Dim oControlName As String = NotNull(oRow.Item("NAME"), "")
Dim oConnectionId As Integer = NotNull(oRow.Item("CONNECTION_ID"), -1)
Dim oControlSql As String = NotNull(oRow.Item("SQL_RESULT"), "")
If oConnectionId = -1 Or oControlSql = String.Empty Then
Logger.Warn("Missing SQL Query or ConnectionId for Control [{0}]! Continuing.", oControlName)
Continue For
End If
oControlSql = Patterns2.ReplaceInternalValues(oControlSql)
oControlSql = Patterns2.ReplaceUserValues(oControlSql, My.Application.User)
oControlSql = Patterns2.ReplaceControlValues(oControlSql, pnlIndex)
Logger.Debug("Setting new value for [{0}]", oControlName)
SetDependingControlResult(oControlName, oControlSql, oConnectionId)
Next
End If
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Private Sub SetDependingControlResult(IndexName As String, pSqlCommand As String, SqlConnectionId As Integer)
Try
If pSqlCommand Is Nothing OrElse pSqlCommand = String.Empty Then
Logger.Warn("New Value for Index [{0}] could not be set. Supplied SQL is empty.")
Exit Sub
End If
Dim oDatatable As DataTable = My.Database.GetDatatable(pSqlCommand, SqlConnectionId)
Dim oFoundControl As Control = Nothing
For Each oControl As Control In pnlIndex.Controls
If TypeOf oControl Is Label Then
Continue For
End If
Dim oMeta = DirectCast(oControl.Tag, ControlCreator.ControlMeta)
Dim oIndex As String = oMeta.IndexName
If oIndex = IndexName Then
oFoundControl = oControl
Exit For
End If
Next
If oFoundControl Is Nothing Then
Logger.Warn("Depending Control for Index [{0}] not found!", IndexName)
End If
If oDatatable Is Nothing Then
Logger.Warn("Error in SQL Command: {0}", pSqlCommand)
End If
Select Case oFoundControl.GetType.Name
Case GetType(DevExpress.XtraEditors.TextEdit).Name
If oDatatable.Rows.Count > 0 Then
Dim oFirstRow As DataRow = oDatatable.Rows.Item(0)
If oFirstRow.ItemArray.Length > 0 Then
Dim oValue = oFirstRow.Item(0).ToString()
Logger.Debug("Setting Value for TextEdit [{0}]: [{1}]", oFoundControl.Name, oValue)
DirectCast(oFoundControl, DevExpress.XtraEditors.TextEdit).Text = oValue
End If
End If
Case GetType(LookupControl3).Name
Logger.Debug("Setting Value for LookupControl [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
DirectCast(oFoundControl, LookupControl3).Properties.DataSource = oDatatable
Case GetType(Windows.Forms.ComboBox).Name
Logger.Debug("Setting Value for Combobox [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
DirectCast(oFoundControl, Windows.Forms.ComboBox).DataSource = oDatatable
Case Else
Logger.Debug("Could not set depending control result for [{0}]", oFoundControl.GetType.Name)
End Select
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Private Function GetLookupData(pLookup As LookupControl3, pSQLCommand As String, pConnectionId As Integer)
Dim oConnectionString = Database.GetConnectionString(pConnectionId)
'Dim oConnectionString = GetConnectionString(pConnectionId)
oConnectionString = MSSQLServer.DecryptConnectionString(oConnectionString)
If oConnectionString IsNot Nothing And pSQLCommand.Length > 0 Then
Logger.Debug("Connection String (redacted): [{0}]", oConnectionString.Substring(0, 30))
If Patterns2.HasComplexPatterns(pSQLCommand) Then
Logger.Debug(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
Return Nothing
Else
pSQLCommand = Patterns2.ReplaceInternalValues(pSQLCommand)
pSQLCommand = Patterns2.ReplaceUserValues(pSQLCommand, My.Application.User)
Dim oDatatable = My.Database.GetDatatable(pSQLCommand, pConnectionId)
Return oDatatable
End If
Else
Logger.Warn("Connection String for control [{0}] is empty!", pLookup.Name)
Return Nothing
End If
End Function
Function GetPlaceholderValue(InputValue As String, FileName As String) As String
Dim oResult As String = InputValue
Dim oFileInfo As New FileInfo(FileName)
Dim oPatterns As New Modules.Patterns.Patterns2(My.LogConfig)
oResult = oPatterns.ReplaceInternalValues(oResult)
oResult = oPatterns.ReplaceFileValues(oResult, oFileInfo)
oResult = oPatterns.ReplaceUserValues(oResult, My.Application.User)
Return oResult
End Function
Sub ShowError(text As String)
labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
labelError.Caption = text
End Sub
Sub ClearError()
labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
labelError.Caption = String.Empty
End Sub
Sub ShowNotice(text As String)
labelNotice.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
labelNotice.Caption = text
End Sub
Sub ClearNotice()
labelNotice.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
labelNotice.Caption = String.Empty
End Sub
Private Sub frmGlobix_Index_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
If File.Exists(My.Application.Globix.CurrentWorkfile.FilePath) Then
Dim oMsg As String, oTitle As String
Select Case CancelAttempts
Case 0
If My.Application.User.Language = "de-DE" Then
oMsg = "Bitte indexieren Sie die Datei vollständig!" & vbNewLine & "(Abbruch 1 des Indexierungsvorgangs)"
oTitle = "Fehlende Eingaben"
Else
oMsg = "Please Index file completely" & vbNewLine & "(Abort 1 of Indexdialog)"
oTitle = "Missung Input"
End If
Me.TopMost = False
Me.Visible = False
Dim oResult = FormHelper.ShowWarningMessage(oMsg, oTitle)
Me.Visible = True
CancelAttempts += 1
e.Cancel = True
Case 1
If My.Application.User.Language = "de-DE" Then
oMsg = "Sie brechen nun zum zweiten Mal den Indexierungsvorgang ab!" & vbNewLine & "Wollen Sie die Indexierung aller Dateien abbrechen?"
oTitle = "Fehlende Eingaben"
Else
oMsg = "You abort the indexdialog for the 2nd time!" & vbNewLine & "Do You want to abort indexing?"
oTitle = "Missung Input"
End If
Me.Visible = False
Dim oResult = FormHelper.ShowQuestionMessage(oMsg, oTitle)
Me.Visible = True
If oResult = DialogResult.Yes Then
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 USER@WORK = '{My.Application.User.UserName}'"
Dim DT As DataTable = My.Database.GetDatatableECM(sql)
Dim anz = DT.Rows.Count
For Each Filerow As DataRow In DT.Rows
Dim filestring As String = Filerow.Item("FILENAME2WORK")
Dim handletype As String = Filerow.Item("HANDLE_TYPE")
If handletype = "|MSGONLY|" Or handletype = "|ATTMNTEXTRACTED|" Then
Try
System.IO.File.Delete(filestring)
Catch ex As Exception
End Try
ElseIf handletype.StartsWith("|FW") Then
containsfw_file = True
End If
Next
'Zuerst die Daten des Ablaufs löschen
If My.Database.ExecuteNonQueryECM($"DELETE FROM TBGI_FILES_USER WHERE USER@WORK = '{My.Application.User.UserName}'") = True Then
If containsfw_file = True Then
Me.Visible = False
If My.Application.User.Language = "de-DE" Then
FormHelper.ShowInfoMessage("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.", "Hinweis")
Else
FormHelper.ShowInfoMessage("The Indexingprocess contained (also) files from folderwatch!" & vbNewLine & "These files weren't deleted and will stay in the folderwatch-folder!" & vbNewLine & "Please move these files manually.", "Attention")
End If
Me.Visible = True
End If
End If
Catch ex As Exception
Logger.Error(ex)
Me.Visible = False
FormHelper.ShowErrorMessage(ex, "Unexpected Error in Abort Indexing")
Me.Visible = True
End Try
Try
My.Application.Globix.INDEXING_ACTIVE = False
DocumentViewer1.CloseDocument()
DocumentViewer1.Done()
WindowLocation.SaveFormLocationSize(Me)
My.Settings.Save()
Catch ex As Exception
Logger.Info(" - Unexpected error in Schliessen des Formulares - Fehler: " & vbNewLine & ex.Message)
Logger.Error(ex.Message)
Me.Visible = False
FormHelper.ShowErrorMessage(ex, "Unexpected error in FormClosing:")
Me.Visible = True
End Try
e.Cancel = False
Else
e.Cancel = True
End If
Case Else
Try
My.Application.Globix.INDEXING_ACTIVE = False
DocumentViewer1.CloseDocument()
DocumentViewer1.Done()
WindowLocation.SaveFormLocationSize(Me)
My.Settings.Save()
Catch ex As Exception
Logger.Warn(" - Unexpected error in Schliessen des Formulares2 - Fehler: " & vbNewLine & ex.Message)
Logger.Error(ex)
Me.Visible = False
FormHelper.ShowErrorMessage(ex, "Unexpected error in FormClosing2:")
Me.Visible = True
End Try
End Select
Else
My.Application.Globix.INDEXING_ACTIVE = False
End If
End Sub
Private Async Function GlobixFlowNew(pDocType As DocType) As Threading.Tasks.Task(Of Boolean)
Try
ClearError()
ClearNotice()
Cursor = Cursors.WaitCursor
Logger.Info("Validating user values")
Dim oValidator As New ClassValidator(My.LogConfig, My.Application.Service.Client, ManualIndexes)
If oValidator.ValidateControls(pnlIndex, pDocType) = False Then
Return False
End If
Logger.Info("Collecting user values")
Dim oValues = oValidator.GetControlValues(pnlIndex)
Logger.Info("Preparing method parameters")
Dim oFilePath As String = My.Application.Globix.CurrentWorkfile.FilePath
Dim oObjectStore As String = SelectedDocType.ObjectStore
Dim oIDBDoctypeId As Long = SelectedDocType.IDB_DoctypeID
Dim oObjectKind As String = "DOC"
Dim oProfileId As Integer = SelectedDocType.Guid
Dim oAttributes As List(Of UserAttributeValue) = oValues
Dim oOptions As New Options.ImportFileOptions
Logger.Debug("FilePath: [{0}]", oFilePath)
Logger.Debug("ObjectStore: [{0}]", oObjectStore)
Logger.Debug("ObjectKind: [{0}]", oObjectKind)
Logger.Debug("ProfileId: [{0}]", oProfileId)
Logger.Debug("IDB DoctypeId: [{0}]", oIDBDoctypeId)
Logger.Info("Running Import")
Dim oResult = Await My.Application.Service.Client.Globix_ImportFileAsync(
oFilePath, oProfileId, oAttributes, oObjectStore, oObjectKind, oIDBDoctypeId, oOptions)
Logger.Info("Import result: [{0}]", oResult.OK)
Logger.Info("Imported file got ObjectId [{0}]", oResult.ObjectId)
If oResult.OK Then
Return True
Else
Logger.Warn("Import failed with message: [{0}] and details [{1}]", oResult.ErrorMessage, oResult.ErrorDetails)
Dim oMsg As String, oTitle As String
If My.Application.User.Language = "de-DE" Then
oMsg = $"Die Datei wurde nicht verarbeitet.{vbNewLine}{vbNewLine}Fehler: {oResult.ErrorMessage}"
oTitle = "Achtung"
Else
oMsg = $"Unexpected Error in FileFlow{vbNewLine}{vbNewLine}Fehler: {oResult.ErrorMessage}"
oTitle = "Attention"
End If
FormHelper.ShowWarningMessage(oMsg, oTitle)
Return False
End If
Catch ex As Exception
Logger.Error(ex)
Me.TopMost = False
FormHelper.ShowErrorMessage(ex, Text)
Return False
Finally
Cursor = Cursors.Default
End Try
End Function
Private Async Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
Dim oDokart As DocType = cmbDocType.SelectedItem
If oDokart Is Nothing Then
Exit Sub
End If
Logger.Info("Importing file with DocumentType [{0}]", oDokart.Name)
Dim oResult = Await GlobixFlowNew(oDokart)
If oResult = True Then
oSuccess = True
Dim oDEL As String = "DELETE FROM TBGI_FILES_USER WHERE GUID = " & My.Application.Globix.CurrentWorkfile.Id
My.DatabaseECM.ExecuteNonQuery(oDEL)
DocumentViewer1.CloseDocument()
DocumentViewer1.Done()
CancelAttempts = MAX_CANCEL_ATTEMPTS
If My.Application.Globix.DeleteOriginalFile = True Or My.Application.Globix.CurrentWorkfile.HotfolderFile = True Then
Logger.Info("File [" & My.Application.Globix.CurrentWorkfile.FilePath & "] will be deleted...")
Try
System.IO.File.Delete(My.Application.Globix.CurrentWorkfile.FilePath)
Catch ex As Exception
Logger.Error(ex)
End Try
Logger.Info("File [" & My.Application.Globix.CurrentWorkfile.FilePath & "] has been deleted.")
End If
Close()
End If
End Sub
Private Sub PreviewItem_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles PreviewItem.CheckedChanged
If FormLoaded Then
SetFilePreview(PreviewItem.Checked)
End If
End Sub
Private Sub checkItemTopMost_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles checkItemTopMost.CheckedChanged
If FormLoaded Then
My.UIConfig.Globix.TopMost = checkItemTopMost.Checked
My.UIConfigManager.Save()
End If
End Sub
Private Function GetMessageBoxArgs() As XtraMessageBoxArgs
Dim oArgs As New XtraMessageBoxArgs With {
.LookAndFeel = LookAndFeel,
.Text = "Die Datei wurde erfolgreich verarbeitet!",
.Caption = Text,
.DoNotShowAgainCheckBoxVisible = True
}
AddHandler oArgs.Closed, AddressOf MessageboxClosed
AddHandler oArgs.Load, AddressOf MessageboxLoad
Return oArgs
End Function
Private Sub MessageboxClosed(sender As Object, e As XtraMessageBoxClosedArgs)
Dim oShowMessageBoxNextTime = e.Visible
My.UIConfig.Globix.ShowSuccessMessageBox = oShowMessageBoxNextTime
My.UIConfigManager.Save()
End Sub
Private Sub MessageboxLoad(sender As Object, e As XtraMessageBoxLoadArgs)
e.Visible = My.UIConfig.Globix.ShowSuccessMessageBox
End Sub
End Class

View File

@@ -0,0 +1,156 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmGlobix_IndexFileList
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGlobix_IndexFileList))
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.CheckedListBox1 = New System.Windows.Forms.CheckedListBox()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 5
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.Size = New System.Drawing.Size(617, 157)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'BarButtonItem1
'
Me.BarButtonItem1.Caption = "Alle auswählen"
Me.BarButtonItem1.Id = 1
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1"
Me.BarButtonItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
'BarButtonItem2
'
Me.BarButtonItem2.Caption = "Alle abwählen"
Me.BarButtonItem2.Id = 2
Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem2.Name = "BarButtonItem2"
Me.BarButtonItem2.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
'BarButtonItem3
'
Me.BarButtonItem3.Caption = "Starte Indexierung"
Me.BarButtonItem3.Id = 3
Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem3.Name = "BarButtonItem3"
'
'BarButtonItem4
'
Me.BarButtonItem4.Caption = "Abbrechen"
Me.BarButtonItem4.Id = 4
Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem4.Name = "BarButtonItem4"
Me.BarButtonItem4.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Start"
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem3)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem4)
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "Indexierung"
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Auswählen"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 375)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(617, 22)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'CheckedListBox1
'
Me.CheckedListBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.CheckedListBox1.FormattingEnabled = True
Me.CheckedListBox1.Location = New System.Drawing.Point(0, 157)
Me.CheckedListBox1.Name = "CheckedListBox1"
Me.CheckedListBox1.Size = New System.Drawing.Size(617, 218)
Me.CheckedListBox1.TabIndex = 2
'
'frmGlobix_IndexFileList
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(617, 397)
Me.Controls.Add(Me.CheckedListBox1)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.IconOptions.SvgImage = CType(resources.GetObject("frmGlobix_IndexFileList.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmGlobix_IndexFileList"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "Zu indexierende Dateien:"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents CheckedListBox1 As CheckedListBox
End Class

View File

@@ -0,0 +1,251 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJTZWN1cml0eV94NUZf
UGVybWlzc2lvbl94NUZfT2JqZWN0Ij4NCiAgICA8cG9seWdvbiBwb2ludHM9IjAsNCAyNCw0IDI0LDgg
MTQsMTggMTQsMjYgMTAsMzAgMTAsMTggMCw4ICAiIGNsYXNzPSJZZWxsb3ciIC8+DQogICAgPHBhdGgg
ZD0iTTI0LDE0Yy00LjQsMC04LDMuNi04LDhzMy42LDgsOCw4czgtMy42LDgtOFMyOC40LDE0LDI0LDE0
eiBNMjIuNSwyNkwxOSwyMi41bDEuNS0xLjVsMiwybDUtNWwxLjUsMS41ICAgTDIyLjUsMjZ6IiBjbGFz
cz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABcCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJfRmlsdGVyIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6bmV3
IDAgMCAzMiAzMiI+DQogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuWWVsbG93e2ZpbGw6I0ZGQjEx
NTt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cjwvc3R5bGU+DQogIDxwb2x5Z29uIHBvaW50cz0iNCwyIDI4
LDIgMjgsNiAxOCwxNiAxOCwyNiAxNCwzMCAxNCwxNiA0LDYgIiBjbGFzcz0iWWVsbG93IiAvPg0KICA8
cG9seWdvbiBwb2ludHM9IjMyLDIwIDMwLDE4IDI2LDIyIDIyLDE4IDIwLDIwIDI0LDI0IDIwLDI4IDIy
LDMwIDI2LDI2IDMwLDMwIDMyLDI4IDI4LDI0ICIgY2xhc3M9IlJlZCIgLz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANoCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iR2V0dGluZ1N0YXJ0ZWQiPg0KICAg
IDxwYXRoIGQ9Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMy
My43LDIsMTYsMnogTTEyLDIyVjEwbDEwLDZMMTIsMjJ6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N
Cjwvc3ZnPgs=
</value>
</data>
<data name="BarButtonItem4.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAM0DAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQ2xvc2UiPg0KICAgIDxwYXRoIGQ9
Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs
MnogTTIzLjcsMjEuN2MwLjQsMC40LDAuNCwxLDAsMS40bC0wLjYsMC42ICAgYy0wLjQsMC40LTEsMC40
LTEuNCwwTDE2LDE4bC01LjcsNS43Yy0wLjQsMC40LTEsMC40LTEuNCwwbC0wLjYtMC42Yy0wLjQtMC40
LTAuNC0xLDAtMS40TDE0LDE2bC01LjctNS43Yy0wLjQtMC40LTAuNC0xLDAtMS40ICAgbDAuNi0wLjZj
MC40LTAuNCwxLTAuNCwxLjQsMEwxNiwxNGw1LjctNS43YzAuNC0wLjQsMS0wLjQsMS40LDBsMC42LDAu
NmMwLjQsMC40LDAuNCwxLDAsMS40TDE4LDE2TDIzLjcsMjEuN3oiIGNsYXNzPSJSZWQiIC8+DQogIDwv
Zz4NCjwvc3ZnPgs=
</value>
</data>
<data name="frmGlobix_IndexFileList.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANYIAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGlzdE51bWJlcnMiIHN0eWxlPSJlbmFibGUtYmFja2dyb3VuZDpuZXcg
MCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDojRDExQzFDO30K
CS5CbGFja3tmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8cGF0aCBkPSJNMzAsOEgxMlY2aDE4Vjh6
IE0zMCwxOEgxMnYtMmgxOFYxOHogTTMwLDI4SDEydi0yaDE4VjI4eiIgY2xhc3M9IkJsYWNrIiAvPg0K
ICA8cGF0aCBkPSJNNiwydjhINFY1LjNsLTIsMFYzLjdsMC4yLDBjMC4yLDAsMC41LDAsMC43LTAuMWMw
LjMsMCwwLjUtMC4xLDAuNy0wLjNjMC4yLTAuMSwwLjQtMC4zLDAuNS0wLjUgIGMwLjEtMC4yLDAuMi0w
LjQsMC4zLTAuN2wwLTAuMUg2eiBNOCwyMHYtMS42SDQuNkM0LjcsMTguMiw0LjksMTguMSw1LDE4YzAu
Mi0wLjIsMC41LTAuNCwwLjctMC41YzAuMy0wLjIsMC41LTAuMywwLjgtMC41ICBjMC4zLTAuMiwwLjUt
MC40LDAuNy0wLjZjMC4yLTAuMiwwLjQtMC41LDAuNS0wLjhjMC4xLTAuMywwLjItMC42LDAuMi0xYzAt
MC40LTAuMS0wLjctMC4yLTEuMWMtMC4xLTAuMy0wLjQtMC42LTAuNi0wLjggIGMtMC4zLTAuMi0wLjUt
MC40LTAuOS0wLjVjLTAuMy0wLjEtMC43LTAuMi0xLTAuMmMtMC41LDAtMC45LDAuMS0xLjMsMC4yYy0w
LjQsMC4yLTAuNywwLjQtMC45LDAuN2MtMC4yLDAuMy0wLjQsMC42LTAuNSwxICBjLTAuMSwwLjQtMC4y
LDAuOC0wLjIsMS4zbDAsMC4xaDEuOHYtMC4xYzAtMC4yLDAtMC40LDAuMS0wLjZjMC0wLjIsMC4xLTAu
NCwwLjItMC41YzAuMS0wLjEsMC4yLTAuMywwLjMtMC40ICBjMC4xLTAuMSwwLjMtMC4xLDAuNS0wLjFj
MC4zLDAsMC41LDAuMSwwLjcsMC4zYzAuMiwwLjIsMC4zLDAuNCwwLjMsMC44YzAsMC4yLDAsMC40LTAu
MSwwLjVjLTAuMSwwLjItMC4yLDAuMy0wLjQsMC41ICBjLTAuMSwwLjEtMC4zLDAuMy0wLjUsMC40Yy0w
LjIsMC4xLTAuNCwwLjItMC41LDAuNEM0LjMsMTYuNiw0LDE2LjgsMy43LDE3Yy0wLjMsMC4yLTAuNiww
LjUtMC44LDAuN2MtMC4yLDAuMy0wLjQsMC42LTAuNSwwLjkgIGMtMC4xLDAuMy0wLjIsMC43LTAuMiwx
LjJWMjBIOHogTTYuMSwyOS44YzAuMy0wLjEsMC43LTAuMywwLjktMC41YzAuMy0wLjIsMC41LTAuNSww
LjYtMC44QzcuOSwyOC4yLDgsMjcuOCw4LDI3LjQgIGMwLTAuNS0wLjEtMC45LTAuNC0xLjJjLTAuMi0w
LjItMC40LTAuNC0wLjctMC41YzAuMi0wLjEsMC40LTAuMywwLjUtMC41YzAuMi0wLjMsMC4zLTAuNiww
LjMtMWMwLTAuNC0wLjEtMC43LTAuMi0xICBjLTAuMi0wLjMtMC40LTAuNS0wLjYtMC43Yy0wLjItMC4y
LTAuNS0wLjMtMC44LTAuNEM1LjcsMjIsNS40LDIyLDUuMSwyMmMtMC40LDAtMC44LDAuMS0xLjEsMC4y
Yy0wLjMsMC4xLTAuNiwwLjMtMC45LDAuNiAgYy0wLjIsMC4yLTAuNCwwLjUtMC42LDAuOWMtMC4xLDAu
My0wLjIsMC43LTAuMiwxLjFsMCwwLjFoMS43bDAtMC4xYzAtMC4zLDAuMS0wLjYsMC4zLTAuOWMwLjIt
MC4yLDAuNC0wLjMsMC44LTAuMyAgYzAuMiwwLDAuNSwwLjEsMC42LDAuMkM1LjksMjMuOSw2LDI0LjEs
NiwyNC40YzAsMC4yLDAsMC4zLTAuMSwwLjRDNS44LDI0LjksNS42LDI1LDUuNSwyNWMtMC4xLDAuMS0w
LjMsMC4xLTAuNSwwLjEgIGMtMC4xLDAtMC4yLDAtMC4zLDBjLTAuMSwwLTAuMiwwLTAuMiwwbC0wLjIs
MHYxLjRoMC4xYzAuMiwwLDAuNCwwLDAuNiwwYzAuMiwwLDAuNCwwLDAuNSwwLjFjMC4xLDAuMSwwLjMs
MC4xLDAuNCwwLjMgIGMwLjEsMC4xLDAuMSwwLjMsMC4xLDAuNmMwLDAuMy0wLjEsMC42LTAuMywwLjdj
LTAuMiwwLjItMC41LDAuMy0wLjgsMC4zYy0wLjIsMC0wLjQsMC0wLjUtMC4xYy0wLjEtMC4xLTAuMy0w
LjItMC40LTAuMyAgQzQuMSwyOCw0LDI3LjgsNCwyNy43Yy0wLjEtMC4yLTAuMS0wLjMtMC4xLTAuNWww
LTAuMUgyLjJsMCwwLjFjMCwwLjQsMC4xLDAuOSwwLjIsMS4yYzAuMSwwLjQsMC4zLDAuNywwLjYsMC45
ICBjMC4zLDAuMiwwLjYsMC40LDAuOSwwLjZDNC4yLDI5LjksNC42LDMwLDUuMSwzMEM1LjQsMzAsNS44
LDI5LjksNi4xLDI5Ljh6IiBjbGFzcz0iUmVkIiAvPg0KPC9zdmc+Cw==
</value>
</data>
</root>

View File

@@ -0,0 +1,17 @@
Public Class frmGlobix_IndexFileList
Private Sub frmGlobixIndexFileList_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
Dim oSQL = $"Select * From TBGI_FILES_USER Where WORKED = 0 And (UPPER([USER@WORK]) = UPPER('{My.Application.User.UserName}'))"
Dim oDT As DataTable = My.DatabaseECM.GetDatatable(oSQL)
If oDT.Rows.Count > 0 Then
CheckedListBox1.DataSource = oDT
CheckedListBox1.DisplayMember = oDT.Columns("FILENAME_ONLY").ColumnName
CheckedListBox1.ValueMember = oDT.Columns(0).ColumnName
End If
Catch ex As Exception
MsgBox("Unexpected error while loading data: " & ex.Message, vbCritical)
End Try
End Sub
End Class

View File

@@ -0,0 +1,223 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmGlobix_Result
Inherits DevExpress.XtraEditors.XtraForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGlobix_Result))
Me.LabelControl4 = New DevExpress.XtraEditors.LabelControl()
Me.LabelControl3 = New DevExpress.XtraEditors.LabelControl()
Me.LabelControl2 = New DevExpress.XtraEditors.LabelControl()
Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
Me.PictureEdit2 = New DevExpress.XtraEditors.PictureEdit()
Me.PictureEdit3 = New DevExpress.XtraEditors.PictureEdit()
Me.PictureEdit4 = New DevExpress.XtraEditors.PictureEdit()
Me.PictureEdit5 = New DevExpress.XtraEditors.PictureEdit()
Me.SimpleButton3 = New DevExpress.XtraEditors.SimpleButton()
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'LabelControl4
'
Me.LabelControl4.Appearance.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelControl4.Appearance.ForeColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
Me.LabelControl4.Appearance.Options.UseFont = True
Me.LabelControl4.Appearance.Options.UseForeColor = True
Me.LabelControl4.Appearance.Options.UseTextOptions = True
Me.LabelControl4.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near
Me.LabelControl4.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None
Me.LabelControl4.ImageOptions.Alignment = System.Drawing.ContentAlignment.MiddleLeft
Me.LabelControl4.Location = New System.Drawing.Point(106, 159)
Me.LabelControl4.Name = "LabelControl4"
Me.LabelControl4.Size = New System.Drawing.Size(374, 32)
Me.LabelControl4.TabIndex = 9
Me.LabelControl4.Text = "Virtuelle Ordner erzeugt"
'
'LabelControl3
'
Me.LabelControl3.Appearance.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelControl3.Appearance.ForeColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
Me.LabelControl3.Appearance.Options.UseFont = True
Me.LabelControl3.Appearance.Options.UseForeColor = True
Me.LabelControl3.Appearance.Options.UseTextOptions = True
Me.LabelControl3.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near
Me.LabelControl3.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None
Me.LabelControl3.ImageOptions.Alignment = System.Drawing.ContentAlignment.MiddleLeft
Me.LabelControl3.Location = New System.Drawing.Point(106, 121)
Me.LabelControl3.Name = "LabelControl3"
Me.LabelControl3.Size = New System.Drawing.Size(374, 32)
Me.LabelControl3.TabIndex = 8
Me.LabelControl3.Text = "Namenkonvention angewendet"
'
'LabelControl2
'
Me.LabelControl2.Appearance.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelControl2.Appearance.ForeColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
Me.LabelControl2.Appearance.Options.UseFont = True
Me.LabelControl2.Appearance.Options.UseForeColor = True
Me.LabelControl2.Appearance.Options.UseTextOptions = True
Me.LabelControl2.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near
Me.LabelControl2.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None
Me.LabelControl2.ImageOptions.Alignment = System.Drawing.ContentAlignment.MiddleLeft
Me.LabelControl2.Location = New System.Drawing.Point(106, 83)
Me.LabelControl2.Name = "LabelControl2"
Me.LabelControl2.Size = New System.Drawing.Size(374, 32)
Me.LabelControl2.TabIndex = 7
Me.LabelControl2.Text = "Automatische Attribute gefüllt"
'
'LabelControl1
'
Me.LabelControl1.Appearance.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelControl1.Appearance.ForeColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
Me.LabelControl1.Appearance.Options.UseFont = True
Me.LabelControl1.Appearance.Options.UseForeColor = True
Me.LabelControl1.Appearance.Options.UseTextOptions = True
Me.LabelControl1.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near
Me.LabelControl1.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None
Me.LabelControl1.ImageOptions.Alignment = System.Drawing.ContentAlignment.MiddleLeft
Me.LabelControl1.Location = New System.Drawing.Point(106, 45)
Me.LabelControl1.Name = "LabelControl1"
Me.LabelControl1.Size = New System.Drawing.Size(374, 32)
Me.LabelControl1.TabIndex = 6
Me.LabelControl1.Text = "Datei in ZooFlow importiert"
'
'PictureEdit1
'
Me.PictureEdit1.EditValue = CType(resources.GetObject("PictureEdit1.EditValue"), Object)
Me.PictureEdit1.Location = New System.Drawing.Point(515, 45)
Me.PictureEdit1.Name = "PictureEdit1"
Me.PictureEdit1.Properties.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
Me.PictureEdit1.Properties.Appearance.Options.UseBackColor = True
Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
Me.PictureEdit1.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom
Me.PictureEdit1.Size = New System.Drawing.Size(185, 146)
Me.PictureEdit1.TabIndex = 10
'
'PictureEdit2
'
Me.PictureEdit2.EditValue = CType(resources.GetObject("PictureEdit2.EditValue"), Object)
Me.PictureEdit2.Location = New System.Drawing.Point(52, 45)
Me.PictureEdit2.Name = "PictureEdit2"
Me.PictureEdit2.Properties.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
Me.PictureEdit2.Properties.Appearance.Options.UseBackColor = True
Me.PictureEdit2.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
Me.PictureEdit2.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom
Me.PictureEdit2.Size = New System.Drawing.Size(39, 32)
Me.PictureEdit2.TabIndex = 11
'
'PictureEdit3
'
Me.PictureEdit3.EditValue = CType(resources.GetObject("PictureEdit3.EditValue"), Object)
Me.PictureEdit3.Location = New System.Drawing.Point(52, 83)
Me.PictureEdit3.Name = "PictureEdit3"
Me.PictureEdit3.Properties.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
Me.PictureEdit3.Properties.Appearance.Options.UseBackColor = True
Me.PictureEdit3.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
Me.PictureEdit3.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom
Me.PictureEdit3.Size = New System.Drawing.Size(39, 32)
Me.PictureEdit3.TabIndex = 12
'
'PictureEdit4
'
Me.PictureEdit4.EditValue = CType(resources.GetObject("PictureEdit4.EditValue"), Object)
Me.PictureEdit4.Location = New System.Drawing.Point(52, 121)
Me.PictureEdit4.Name = "PictureEdit4"
Me.PictureEdit4.Properties.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
Me.PictureEdit4.Properties.Appearance.Options.UseBackColor = True
Me.PictureEdit4.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
Me.PictureEdit4.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom
Me.PictureEdit4.Size = New System.Drawing.Size(39, 32)
Me.PictureEdit4.TabIndex = 13
'
'PictureEdit5
'
Me.PictureEdit5.EditValue = CType(resources.GetObject("PictureEdit5.EditValue"), Object)
Me.PictureEdit5.Location = New System.Drawing.Point(52, 159)
Me.PictureEdit5.Name = "PictureEdit5"
Me.PictureEdit5.Properties.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
Me.PictureEdit5.Properties.Appearance.Options.UseBackColor = True
Me.PictureEdit5.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
Me.PictureEdit5.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom
Me.PictureEdit5.Size = New System.Drawing.Size(39, 32)
Me.PictureEdit5.TabIndex = 14
'
'SimpleButton3
'
Me.SimpleButton3.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
Me.SimpleButton3.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton3.Appearance.ForeColor = System.Drawing.Color.Black
Me.SimpleButton3.Appearance.Options.UseBackColor = True
Me.SimpleButton3.Appearance.Options.UseFont = True
Me.SimpleButton3.Appearance.Options.UseForeColor = True
Me.SimpleButton3.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton3.Location = New System.Drawing.Point(515, 197)
Me.SimpleButton3.Name = "SimpleButton3"
Me.SimpleButton3.Size = New System.Drawing.Size(185, 42)
Me.SimpleButton3.TabIndex = 4
Me.SimpleButton3.Text = "Datei anzeigen"
'
'frmGlobix_Result
'
Me.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
Me.Appearance.Options.UseBackColor = True
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(764, 252)
Me.Controls.Add(Me.SimpleButton3)
Me.Controls.Add(Me.PictureEdit5)
Me.Controls.Add(Me.PictureEdit4)
Me.Controls.Add(Me.PictureEdit3)
Me.Controls.Add(Me.PictureEdit2)
Me.Controls.Add(Me.PictureEdit1)
Me.Controls.Add(Me.LabelControl4)
Me.Controls.Add(Me.LabelControl3)
Me.Controls.Add(Me.LabelControl2)
Me.Controls.Add(Me.LabelControl1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "frmGlobix_Result"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmGlobix_Result"
Me.TopMost = True
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents LabelControl4 As DevExpress.XtraEditors.LabelControl
Friend WithEvents LabelControl3 As DevExpress.XtraEditors.LabelControl
Friend WithEvents LabelControl2 As DevExpress.XtraEditors.LabelControl
Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl
Friend WithEvents PictureEdit1 As DevExpress.XtraEditors.PictureEdit
Friend WithEvents PictureEdit2 As DevExpress.XtraEditors.PictureEdit
Friend WithEvents PictureEdit3 As DevExpress.XtraEditors.PictureEdit
Friend WithEvents PictureEdit4 As DevExpress.XtraEditors.PictureEdit
Friend WithEvents PictureEdit5 As DevExpress.XtraEditors.PictureEdit
Friend WithEvents SimpleButton3 As DevExpress.XtraEditors.SimpleButton
End Class

View File

@@ -0,0 +1,546 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureEdit1.EditValue" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
EwAACxMBAJqcGAAATUlJREFUeF7t3QvcbVO9//GdSwgnKtf+p07RhdLRSZIkt4PTiVQqt1NCinQ5KE51
yD3UvyS5hZBKosupgwrFkaROfxGVOqUoRO4hdP7f795r22uv/Xv2s9Z61hxzjDE/39fr/Xp5bc/zzLHm
HHOMueYcc4xZhJDss6isJH8vm8q2spvsK4fKcXKW/Id8Uy6TH8t1cqPcLnf1uU/+d4D/rf9n/Dv+Xf8N
/y3/Tf9tb8Pb+qR42y6Dy+IyuWwvEJfVZSaEEELIFHmSuGN/lewpR8hn5dtyjdwqj8pgh507l9ll92fw
Z/FnOlz8Gf1Z/Zn92QkhhJAqs4g8TTaR3eVIOU+ulnsl6jy7xPvA++Jc8b7xPtpYvM+87wghhJCs485q
NdlK9pcz5IcS3W7HcLzvvA+9L71PvW+9j7kwIIQQ0kqWkHXEz779/P0KoaNPx/va+9zjEHwMXiQ+JoQQ
QsjE4m+bz5Nd5WTxgLiHJeqY0J6/iI/NSeJj5WPGnQJCCCFDZ1nZQg4Wj3r3iPiow0H+fOx8DA8SH9Nl
hBBCCJmd5cXPlo+WK4Vv9/XysfUx9rH2mwg+9oQQQjqSpWRz8YjzH0mJr9hhMnzsXQdcF1wnXDcIIYRU
FD8P3kculAck6gyAP4vriOvKGkIIIaSweES4v9EdI7+UqLEHpuO64zrkusRbBoQQkmn8PPfN8mVhgh1M
muvUl+RNspwQQghpMSvIW+UC8WtgUcMNTJrr2vniOQhcBwkhhCTIU2QPuVgekaiBBlJxHbxIXCddNwkh
hEwwS8sO8nXhmz5y5brpOuq66jpLCCFkjHg52X8SLz3LNLsojeus667rMEsjE0LIEHmWeNnYmyRqWIHS
/E4OE9dtQgghffEUrbvIZfJXiRpRoHSu25fKzsIjAkJIp+MJeo4V5ttH19wprvtrCiGEdCKPl+3F34Si
hhHomu+KzwmfG4QQUl1WkUPkNokaQaDrfG74HPG5QgghxeeFcro8JFGjB2B+Pld8zvjcIYSQorKIvFou
kaiBAzAcn0M+l3xOEUJItvEzTI/mv16ixgzAeHxO+dxinAAhJKv4NT4vocq7+0CzfI75XPM5RwghrcWr
oh0kfqUpaqwANMPn3IeElQkJIUnjpXcPFt7fB9rlCwFfhPucJISQxvIk8WtKdPxAXnxO+qKcCwFCyESz
rBwgd0vU+ADIgy8EPiBMNUwImVGWkHfLrRI1NgDy5HPW567PYUIIGTpevtQLlvxGosYFQBl8DvtcZkli
Qsi02UKukagxAVCmn4jPbUIIWSDPlwskajwA1OF88SqchBAya2U5SR6RqMEAUBef6yfKSkII6WAWF88o
xsh+oJt87rsNcFtACOlINhfm6wdgbgs2EUJIxXmafFGiRgBAt7ltcBtBCKkovsW3n9wv0YkPAOY24n3C
YwFCKsj64leAopMdACJXy0uFEFJgvErYCfKoRCc4ACyM245PCSsOElJQtpU/SHRSA8Aofi9uUwghGWdF
OUeikxgAZsJti9sYQkhm2Un+KNGJCwCT4DZmOyGEZJBV5GsSnawA0AS3OW57CCEt5fVyh0QnKAA06XZh
bAAhieNRuWdIdFICQEpui3hTgJAE2VhulOhEBIA2uE1y20QIaSCPl6PlrxKdgADQJs8bcJS4rSKETCir
y1USnXQAkJMfyGpCCJlhdpR7JDrRACBHXmp4ByGEjJFl5HSJTi50l9/Dvk4uki/IsXKIeF33XeV1spls
IC+Q54hXeFtentjzBBnM0jL3/5t/5xmylnhOeP9N/21vw9vyNr1tl8Fl8ZKyzEOBQaeJ6xYhZMisKW7k
oxMK9bpPvHDTV+QYea+8Ubyg099KCSu0uYwuq8vssvszfEK+KtfKAxJ9dtTLbdkaQgiZJr5t5o4gOpFQ
h9/JhfIx2V1eIU+VLuRx4guEjcSf3fvA++ImifYV6nCvbC+EkCAeOXucRCcPyvSgePDmybKn+Fa6b6+T
ON43vnPgfeV95n3nfRjtW5TJbRxvCRDSFz9vZZR/2fwKlG9xf1reJmvLYkJmFu9D70vv01PE+5glrsvm
twR8F4iQzse3f2+T6ERBvvws+7viwXCbC9/s08X72vvc+/5SYVxBedzmue0jpLN5p/xFohMEefFxcmdz
gLjhWlJIHvGx8DHxsfEx4pwqw0PiNpCQTsXPwE6V6KRAPn4mftVtK1lWSBnxsfIx87HzMYyOLfLhRzuM
CyCdiJfQ/L5EJwLa5W+OF8u/CjOZ1RMfS89d4GPL3YE8XSErCyHVxpOq+BWw6ARAO/x60tnyBuE5fv3x
Mfb8BF8UH/uoTqAdbhvdRhJSXbYWGpw8eJpSL2G6jSwlpJvxsX+NnCmuE1FdQVqe9txtJSHVxLcfH5Go
wiMNv09+nmwrDOAjg3GdcN1wHWHugXa5rfRjOEKKzqLyKYkqOZrnpZP9qp7nr19OCBkmriuuM647LL/d
HredbkMJKS5ecMXzn0cVG83ys0S/I85APjLTuA4dJozdaYfb0GjxKkKyzQrCSP+0Hhbfvt1SFhFCJhnX
Kdct1zHXtagOohluS92mEpJ9VpcbJKrImDwvIvMh6cpiOqT9/B9xnWMBo3TcprptJSTbrCtM65vGd8Sv
7jHfPmkrrnuugx4rENVRTJbb1hcLIdllE7lLooqLyfDUoafLC4WQnOI66brpOhrVXUyG21i3tYRkE7+3
+meJKixm7k75sHgWRUJyjuvokcKXgebcL8wVQLLIjsI7/s34vewnvMJHSovr7P7iOhzVbcyMB2K67SWk
tewlvCc8eb+RtwsT9pDS49kGXZdvlKiuY3xue98hhCTPvhJVSozv1/I2YWUwUltcp123Xcejuo/x7S2E
JMv7JaqIGM9v5a1Cx09qj+v47uI6H50LGI/bZEIaj9//jSogRvdH8dU7t/pJ1+I677rvcyA6NzC6A4WQ
xuIpQaOKh9F45bUD5G+EkC7H58BB4lXwonMFo3EbTcjEc7hEFQ7D88jdE2QlIePHI8yfI68Qr2Dnwaj+
9vMx+Yx8RTxR0lXyE/EAtFvEr6bZfTJ4bPxvc/+/f9YDMf27PxD/Lf/N08Tb8La8TW/bZXBZeFNjZvE5
caIwzfDMua0mZGLhtv/MnS/PEzJ93Jm+SLaTD8jJcoH8VO6VaP/mwGVzGV1Wl9nPZd8o/ixcIAwXnyM+
V6L9i+HxOIBMJP8mUQXDcK6XzYUsmBXFs5q9U46XS6XmZ8L+bJfIx8XL7Xrq7KWFLJgtxOdOtB8xHLfd
hIyd90pUsTA9P+ffRxYXMmvWyrKNHCxfExaSmeNR8UIv54jHhXgfeV+ROeeOzyGfS9G+w/S8/wgZOX7G
GVUoLJwn5/Cc6F1uxL1IzEvEo7zdsfHK1+i8z7zvvA+9L7u86JPPpTOEScfGw2RBZKTsJJxso/uZeFBY
17KorC9+5u3n3zk/py+V96n3rfex97X3edeykfgci/YPpua2nGmDyVDxIhOMxB3NA+Lbt0tIV+JvZW+W
L8gdEu0XNMf7/PPiY9Clu00+xzzA7UGJ9gtibtO3EkKmjK+w3ZlFFQgxvyL2bKk9vgW9gfgVox8Jd4jy
4WPhY+Jj42PUhccFPud87kX7AzGv2Oo2npAFso4wGcfwfEvWz9YeJ7XG07a+SjymgeVdy+Fj5WP2z1Lz
9NI+93wO8shpeB5Q6ddSCXksq8utElUYLOhb8gypMR557VewTpU7Jfr8KIePoY+lj2mtb6T4XPQ5GX1+
LMgTXdXafpERs4L4NaSoomB+/qbhRXtq+9bvAWWbyUnC3Oz18rH1Md5UahtE6HPS5yZ3A4ZznSwvpMPx
JCRXSlRBML/L5JlSU/wtwHOH3yzRZ0a9fMwPldq+Cfoc9bkafWbM72JhBdKOxt8A/kOiioF5/iKejraW
b0w+4V8vvmXqSWiiz4zucB34prhO1NIZ+Fz1OetzN/rMmMdjRWoex0SmiG8FRhUC8/jRyIulhnjBmqPk
Nok+K+C64TriulJDPNXyryT6rJjHa72QDsXTQ0YVAfN45rFlpOQsIq8Wzz/Pa3sYluuK64zrjutQyfFy
w5+T6HNiDh9vzydBOhBPBvGIRBUBcwYR/YuUHK8854s8BndiplyH3iOlr2a4s0TLQGOOh2RjIRVnbWGU
7NS8lOsaUmpWEd/CZfEUTJrnFjhSXMdKjc9tj36PPh9mzfqTrCmkwni60N9JdOAxa9ZZUurSrJ7HwWM6
fBUffTZgUjwFr+ua61yJ8TnOI4Gp/Y90eSGzKrOkfF+iA9517jT3lBLjwVpnCo90kJrnlnfdK3XAoM95
LphjV0iX1jWpPp4JLDrQXec16deT0uJG13cs6PjRNtfBz0qJFwI+95kDI+Y+g1SQd0p0gLvue7KqlJSn
y2lCx4/c+I7Ap+VpUlLcBvgbb/SZum4vIQXHKz+xtO+C3FCVNOnJivJxYQlU5M511HXVU4yXErcFbhOi
z9NlnkjpFUIKjL8tMunL/PzNuaSrWo/d2F8Y1Y/SuM7uJ67DpcR3S7m7Nj/3Ie5LSEHxAI6rJDqgXeXX
mLw8agnx1JzbyW8k+ixAKVyHXZdLmW7Wy1+z9PX83JcwKLCgHC/RgeyqG2UtKSH/IDyTRG1cp18oJcRt
Ba9Mz+84IQVkR4kOYFf59ccSnkc+WT4l3IJErVy3Xcdd13OP2wxenZ6f+xaScZ4nzPQ3z1flCZJzfGt0
N7ldos8A1MZ1fVfJ/bGA2w63IdFn6CL3LSXPlFp1vHDN9RIduC7ye6y5L+HraTcvlaj8QO1c93PvUPyG
gOc5iMrfRe5jSl8krcp4XefogHXREZLztwsPqDlEmIkMXedzwOdCzoPM3Ja4TYnK30WfEZJRdpLoQHWN
l7XMfVpfr1F+rUTlB7rK54TPjZzjVRFZVnuOHYRkkGcJ74nPmfAo50EqS8lHhEF+QMznhs8Rnyu5xuvm
cw7P6XNWE9Ji/HyK9/3nzD62teSadYTxGcBwfK74nMk1bmt4fDdr1g9kcSEtxVfL0YHpkvtlc8kxHoT4
7+IpNaOyA4j5nPG5k+tA3i3EbU9U9i45SkgL2US6/jzKJ6D3Q455hjChDzAzPod8LuUYtz1dvwh4VDYW
kjBPlN9KdEC64h55ueSY7YVxGcBk+FzyOZVj3Aa5LYrK3RWe7tl9EkmUMyU6EF3hE259yS1LyykSlRnA
zPjc8jmWW9wWdf0i4AwhCfJ6iQ5AV/iWW47f/D2hyXUSlRnAZPgcy3HyILdJXX8csK2QBrOKdHnKWJ9g
OT5v8u1JpmAG0vC5luMjgU2lyxcBfxT3UaShfE2iHd8FftXPI29zil/D/KRE5QXQrGPF52BOcRvltioq
bxecJ6SBeOalaId3gSfeeLXklJXkMonKCyANn4MrSk7ZRro8WdBrhUwwruBdvfXvVx3fJDnFU5ayXjiQ
B5+LL5ac4hkDu/qa9s2ynJAJ5YsS7egueLfkFE83/IBEZQXQDp+TuU0F/q8SlbULThYygbxOoh3cBQdL
TtlfWAwEyJPPTa8smNNKoC5PVNba+VhsJGQG8W2UP0i0g2vnd35zOZE90Og0icoJIC9nyRMkh7gNO1Wi
ctbu55Lzwk7Z53iJdmzt/lMWkxziGa4ukqicAPL0fVlBcojbsvMlKmftDhcyRl4qnmc52qk18+qGy0gO
+T/yE4nKCSBvN8jqkkPcpnVx5VYv0/73QkaIrxi72PHcKH69Lod4OVJG+gNlu01eIjlkZXEbF5WzZr7w
yeWObhHZT6IdWTPPpb2W5BCv8sXMfkAd3Lbksmqo27gurhuwt5Ah8jTp2nSSnjTjnySHeMKhhyQqJ4Ay
+ZzeWnKI27quTRTkPs19G5km50q0A2v2LskhnryjyzN4ATXzuZ3LpGJu86Iy1uwcIQvJZhLtuJrlMmHE
nsI7/kDdfI77XM8hbvuiMtYsl0cx2cWDJH4q0U6r1eWyhLSd9widP9ANPtdzmGHUbd/3JCpjrdzHMSAw
yD4S7bBaeb7oVaXt7CtR+QDUzed+23Eb6LYwKl+tGBA4EK+hfJdEO6tGXi5zPWk775WofAC6wW1A21lf
urSE8J3iPo/0cpJEO6pW75C249v+UdkAdEsOjwP2kqhstTpOiLKmeLakaCfV6LPSdhjwB2AutwV7SNvx
GgZR+WrkPs99X+fTpTmiPQCk7Wl+dxE6fwD93CbsLG3GbeP1EpWvRu77Op0tJdoxNfLMes+VNrOt8J4/
gIjbBi+/3mbcRt4nUflq5D6wk1lErpFop9RoV2kznmOBGf4ALIzbiE2lzbitjMpWox+L+8LOxbeboh1S
I89u2Ga8sA9z+wMYhtsKtxltpkszwnoG1k7l8dKVVaG8ot6Tpa08U26RqGwAEPmDuO1oK24zuzI/wG/E
fWJn0pV5oB+VNm+nPUV+LlHZAGBh3Ha0+eXFbafb0KhstcllPZjG45Get0q0E2pztLSVpeQKicoFAMNw
G+K2pK24DY3KVRvfpW37DbEk+XeJdkBt/lvamuf/cXK2ROUCgFF4FTu3KW3EbagHykXlqs0Hpeo8Sbow
5a/Xfl5D2srBEpULAMZxuLQVt6VuU6Ny1cRTBC8v1aYrHVObs2rtJEz0A2CS3Ka4bWkrblOjctXGfWSV
8ZXN3RJ96Jp8S9q6XbauPCBRuQBgJty2tPV6oNtUt61RuWriO+RV3gU4SKIPXBO/P/t30kZWEr9yGJUL
ACbBbYzbmjbyDOnCfCYfkqqynHTh2X9bq/z5HdL/kqhMQCoX/u///u+sqSjMRFmHy2RxaSNuY6My1cRj
AZ4o1eRAiT5oTb4rbd3699KSUZmAFDxKez3ZIOr451L+QTz3+SnC3aqyHSttxNPmuq2NylQT95lVZFn5
k0QfshZ+NvZsaSM7SlQmIJX1ow5/YRQ/S/biVJfL4N9DGXaQNvIceVCiMtXiDnHfWXz2kegD1qStqzW/
HsMc/2jbP0Sd/DD8u/Ja6cq0rzVx29PWCqdduKu8txQdP5u+SaIPV4ufSRvzOC8tXVo7G3nyVK0j3wEY
pPhC4EgZ/PvI23Xitih1PEGQ296oTLXwY7Ki1wjYRaIPVgu/G7uRtJGTJSoTkNIdUYc+DsUXAZv0/i7K
cZK0kY2l9jlP3iJFxoM1av+Geoa0Ed8yjcoDpPZA1JmPS/EgQV8IsIhVWbaRNnKmROWphe+wuC8tLq+R
6APV4h5ZRVJnVbldojIBqf0h6shnSvFFAJNalcNtktum1HEbXPs4qFdLcan9VQ0PbkwdXwl2YTYslOPy
qAOfBMUXATf0toP8tTULau0Dzb8jRcUnbvRBavFTaWNwxr4SlQdoy0In/5kphTEBZWlj5LrbYt8qj8pT
C/epxeR0iT5ELfycMnXWltrffUV5zoo67klRvL7Fm3rbQv7cRrmtSh23yVF5auE+tYisLDVP+Xm+pM5S
4rsOUXmANn006rgnSfG3n9q/VNTEbZXbrNRx2xyVpwa+sHLfmn1qXvL3YVlTUucjEpUHaNveUac9aYov
ArqwJnwtjpbUcdvsNjoqTw2yXyrYkzPcIlHha+A591PHc6w/IlF5gLa9Ieqwm6B8sG+7yJvbrJdI6nxK
ovLUwH2r+9hss71EBa+BXzVZQVLGB5tb/8jZhlFn3QRlA7m7t13k71pJ3WHV/lqg+9hsU/OrfwdJ6hwi
UVmAXIy9DsA4FK9CN1gG5KuN29Zuq6Oy1MB9bJZ5nkQFroFXM1xOUsb7k/XTkTM/k5/xOgCjUDz19mA5
kC+3YanHTbmt9pr6UXlq0MY4tGlT85X5ByRlPJnGZRKVBcjFDVEn3STFY2KYJrgsl0rqCYJqHi/yCckq
Xg3qLokKW7o/yjKSMrtJVBYgJxdFnXTTlMP6yoAy7Cop47X03XZHZSmd+9o2VmCcMjtLVNAavFdS5ily
h0RlAXJyStRBN03ZrK8MKIPXCnDbljLvk6gsNXCfm01qHfz3B3mCpMwJEpUFyM2+UQfdNKX2qcZr5Vf0
Usbfkmt9LT2bwYDPllrXZH63pMwL5VGJygLkZsuog26a4guAK3plQDnctrmNSxm34VFZSuc+dzVpPR+W
qICl+50sKaniQTI0aihJ0lcA+yksjFWmyyXlgEC34TdJVJbS+TXxVrOo3CxR4Uq3h6RMzZMooU5tXgD4
bYDB8qAMqSez2VOicpTOfa/74NbySokKVjo/+085g5UXzrhRorIAOfIMlW1eADAOoFxu61IuFuS7ALdK
VJbSuQ9uLZ+TqFCl209SxvMMROUActXoMsDTUbgAKJtH6KfMARKVo3RnSSvxu/E1rs7lucb/RlLFr8bU
OocC6rV71DGnovgCgAGz5fJMfSlfC/S2auyv7pNW5gTYUaIClc6DGlPm4xKVA8hZ0imAI0qtE710xcck
ZY6XqByl20GS5+sSFaZknrd6ZUmVpwnz/aNErT3/n0thSuCyPShuA1PlOVLjXSP3xUnj2yl/kagwJTtD
UuY0icoB5KzVAYBzKVf2yoNynSop81WJylEy98VPlmSp9bWKF0mqPFcekagcQM4+GnXIqSnf6isTyvSw
uC1MlZdLVI7SJX1t/TsSFaJkXrEqZTx6MyoHkLsdog45NeUbfWVCuT4rKVPjnaOLJElWlBq/ub5OUqXW
Z1Hohg2iDjk1xY3eYNlQHvcnbhNT5fUSlaNk3odJ3qrYXaIClMxTRaacUelMicoB5M6TuKwTdcipKZ5W
drB8KFPK8VeLSY3TA3sZ+cZzoUQbL9mBkirPEp79o1THR51xG5Rr+sqFsnkswOqSKh+SqBwl+09pNMtL
baP/XfGeKqlyskTlAErwyqgzboPiBbsGy4dynSip4ja/ti9ifqXcfXRjebNEGy7ZuZIqq4rffY3KAZSg
9df/zOWQGmd26zK3jSnnYTlPonKUzH10Y3FnGW20ZJtLqhwlURmAEnxZcroAGCwfypdyJtYtJCpDyb4k
jeTxcq9EGy2VBzQtIinyRPE6A1E5gBJsF3XGbVC4AKhTyrVY3PbXtgrrPeK+euLxN+VogyU7WFJlb4nK
AJQii2//5rL0lQt1eY+kivuAqAwl+0eZeD4h0cZK9VdZTVLErxj+j0TlAErgiavWizrjNii1zkaKWbN+
JanuzLoPcF8QlaNUXmBu4vFBiTZWqu9KqrxGojIApchi8p+5lFP6yob6bCOp4r4gKkOpfikTzZoSbahk
b5FUqXHqZHSHG8jcbv/zCmDdLpZU2VWiMpRsousr1Pb82q+beFBeitR48YRueVPUEbdF4fl//XxbPtX0
wE+S2ua3+VeZWM6XaCOlSvnu/7ESlQEogb/9bxZ1xG1RXtkrG+rm16ZTxbPoRWUo1cRmBVxSaptwI9XC
P0vLXRKVASjBa6NOuE3KR/vKh3rdKotLiuwsURlK5T57Iq8DbiLRBkrlDtkXNSnixRmiMgAl8Hr72Tz7
N5dHant3G1Pzyn0pspzUNkur++4Z5wiJ/nipvBJfqnxPojIAJdgw6oTbpPD8v1u+KanyNYnKUKrDZcb5
kUR/vFSpXi/xKMxo+0AJDpGsvv2bclivfOiGR+UZkiL/IlEZSnWVzCheWcgHIPrjJbpPlpIU8ZzWURmA
3Hmd/aze+zfF3/79XHiwvKibL0ZTxFMQPyBRGUrkvtuPNsbOVhL94VJ9UVLEM//dLFEZgNxl983fFN+9
Gywr6ue21G1qitS2QqD78LHzEYn+aKneKClS4ypT6AZ/y85myt+5euW6UAbLi25ItWrr9hJtv1RHy9j5
gUR/tEQPSarJfz4jURmAnL1Wcv32v16vjOgmt6kp4j6ipkmBrpSxsqw8LNEfLdG3JUU8xoBlf1EaL66T
a+fvb/+nyWCZ0R0pX9++SKIylMh9+DIycmq7jZ1qicltJdo+kKtdZN2o882BskGvnOi2VBO41Tb1/ViP
Tw6V6I+VanVJEQ80jLYP5MZ3qjaSLL/5m7KOfF4Gy47uSTWI+1kSbb9UB8vI8Sxg0R8r0fWSIr7971cN
ozIAOfE5kW3HP5eyYa+8QMrXuG+QqAwlGnkypUWkpjnsj5EUYd1/lOB02STqcHOi+Nk/6/6jX6qJ3Gpa
xM19ufv0ofM8if5QqV4lKXKWRNsHcrGXZDfJT0Txs8vB8qPbUk3l/mqJtl8qL0s/dDwoKPojJRp7FOSI
8apVrPyHXHmGM99Oz/62v7mcwrN/DLpTFpOmU9tbcO7Th85JEv2REl0qKVLbqomoxzVSRMc/l8vbKzsw
aGNJkcsk2n6JTpSh8/8k+iMlOkBShDXKkaNzpcTO3+MUBj8LYJ6hNkUOlGj7JfqxDBVPtlDTTEh+hzhF
fiHR9oG2ePKcbN/vn4qyWa/8QOTnkiI1vYHiPv3xMm383m30B0r0ZxnqQ88wnmMg2j7Qli9LiZ3/ulLT
K8hoRop5XZYQ9yHR9kvkO2vT5q0S/XKJLpYUeYdE2wfa4EVzirrtP5fCnP8YhqeuTpFLJNp+iXaVaXOc
RL9cooMkRb4i0faB1DyByYZR55o7xd9Qanr/Gs3xHa4UcR8Sbb9E7tunzRUS/XKJ/Cyx6fiVFF7/Qy62
iTrXEijM+odhuc1N8TrglhJtv0SXy0KzqNwv0S+X5lFJsfzv+hJtH0jtECn11r+//XvGzsHPBEzlpdJ0
3Ie4L4m2X5p7ZaEzAtY0mO2nkiIflGj7QEpFzO0/FZe99zmAYb1fUuQ6ibZfomfKlNlaol8qkecQTxEP
uIq2D6S0ZdSxlkLx3YvBzwQszAWSIqdKtP0SLXRa/P0l+qUS7S5Nx8+gfFsl2j6Qiu92lf7tn/MIo3Kd
STEOwH1JtP0S7SdTxgstRL9UorWl6fDKEnKwUdSxlkLZoe+zAKPwvBFNx31JtO0SfUamzA8l+qXSPCRe
nKfp7CPR9oFU/ihFvvZnir/9e62Cwc8FDGNvaTruS9ynRNsvjfv4MB4dWMsbAFdJinxRou0DqZwWdayl
UHiLBjNxtqRILV+O75PHyQJ5ukS/UCKvZpgiN0q0fSCVraOOtRTKEX2fBRiV2+AUqWmF3L+VBbKpRD9c
ohTTRK4q0baBVLxcKYP/0HWrSNNxnxJtu0Thcspvk+iHS5RigohtJNo2kMpuUcdaCmWTvs8CjMttcdOp
6VGV1/tZIEdK9MMlSjED4MESbRtI4Q4p9tu/KR/rfRZgJlKs+eI+Jdp2idzXL5BzJfrh0vxWUuTrEm0f
SOHoqFMtheLb/7f2PgswE26LU+QmibZfmnNkgVwt0Q+XxjPzpUgtlQFlKv3df6b+xaS4LU6Rb0q0/dL8
WBaIXw+Ifrg0vq3YdFaUaNtACt+Q0m//ex73wc8FjGsFaTq1PLK6R+bLUyT6wRKFAxwmHC8zHG0bSGG9
qFMtiXJ83+cBZspvsTWdmqYEXk4eS01THYavOEw475Ro20DTil71by7Fa5MPfjZgXG6Tm477lmjbJXqB
PJatJPqhEoWTHEw4J0i0baBpb4g61NIofoth8LMB4/IdpabjviXadonmWxXwHRL9UGkekHCawwnnUom2
DzSp+Ff/5lIe7n0mYBLcJjcd9y3uY6Ltl2YPeSy1TMfpRUVSxAuwRNsHmvT+qDMtkXJn3+cCZsptcop4
6e1o+6U5TB5LLcsAf0WajgdPRNsGmuTVyNaJOtMSKbU0pMjHfAPbGspXJdp2ac6Qx3KxRD9UmmOk6awj
0baBJh0UdaSlUryOweBnBGbCbXPTcR8Tbbs0F8ljuVaiHyrNvtJ0tpNo20CTqvn2b8oufZ8NmIQ3StNx
HxNtuzTzPS6vZUpOd85N54MSbRtoytFSxeC/uRTPpeHHGh5Udbf4Ga6XdvVrjp6p7Moevy54iZwvnq78
LDlFTpZjp+GJW+byNzfr///HyYlyunh6VE+w5G15m972z+VXcrN4zILLO3hskA9PLtV0avkCeIvMzqLy
V4l+qDQvk6bzaYm2DTSlqs6/VD4OA3zL2avEbSm+o+HB1H5G7PENvqDhgiEtXxQ2Hfcx0bZL86i475+9
lnL0AyVKMQfABRJtG2iCv6VyAVAgxe9a+0JhJ/GdC159bJbb5qZT01wAK8vsGYGi/1mixaXpMHoZKVX1
7L/LlHVlL2ESpGa4bW467mOibZdoLZk9h3L0P0uT6j3QeyXaPjBpnt2Mb/+VUTz+oZbl13PitjlFapkH
ZhOZ9fq+fyhZiqu/J0q0bWDS/C1x3agDQfkUjx84RAaPO2bGbXTTqeUu8Btk9up50f8szXek6TxXom0D
k3ZY1HGgHorHB+zZO96YDLfRTcd9TbTt0rxdZr237x9K9jlpOi+XaNvAJPkWI7f+O8DHWbgImBy30U3n
CxJtuzT/JrPnBI7+Z2n8Xm/TqeVxCfLGt/8OUXwRUEs73LbXSdP5pETbLs2HZfZrRtH/LI2fpzUdj+CN
tg1Myq+Fb/8d42MuZ8tgfcBo3EY3nUMl2nZpvKz97PdTo/9Zmn2k6Rwo0baBSalivX+MTvFFwNW9eoDx
HCBNp5bpgN33z15BL/qfpdlVms7HJdo2MAn/IXz77zBlo15dwHg87XPT2U2ibZfmPJn1rb5/KFmKZz+f
kWjbwCSsH3UK6A7FdwHe16sPGN1p0nTc10TbLo37/tkLX0T/szSeXKPp1HK3BPnxQia89w9VAx4FzMCX
pem4r4m2XRovyT3rh33/ULL1pOl4pbBo28BMeNU5bv3jMa4PvbqB0biNbjovlWjbpXHfP+sXff9QshdJ
06nlYgl52SDqBNBdii8APKBtsK5g4WZ3ag3HfU207dL4i8fs146i/1ma1aTpsBAQJs2Dlvj2jwUor5Ra
5p1P5VppOqtLtO3S/Epm/anvH0r2NGk63mHRtoFxXCV0/piSwl2A0czu1BrO30m07dK476/mAmB5aTpc
jWOSNo8afWAuZcO++oLp3SpNx31NtO3ScAEwYmrZV2ifv9nx7R8L5Toi58hg/UFsdqfWcLgAyBAXACiF
37+l88dQlC179QbT4wJgeLP31SN9/1CyRaXp1LKv0B7folwnauiBiOK7APfLYF3Cgh6QprOURNsuzZ8l
/B8lSpFou8AomOwHI1M8TfRgXUIsRaLtlij8xxKlSLRdYFge0MWtf4xMOb5XhzC9FIm2W6LwH0uUItF2
gWF4fne+/WMsypm9eoTppUi03RKF/1iiFIm2C0znOOGbP8ameMKowXqFBd0jKRJtu0QMAhwhDALEqE4W
pvrF2BQPAvy8DNYtLCjFWwBVDQLkNcDhw2uAGMUhwjd/zIjrUK8+YXq3S9NhHoAMcQGQtyvk7eLGzNbv
+++mbSRHSsqZHPcSOn/MiOuQ8Px/eCmmAuYCIEMpLgCYCnh0fn1pE2m9M3QZZHfxKliD5ZyU34k/74ZR
GYBhKb5I3kEG6ximxgXA8Kq6AGAxoPx4utvNosatTcp28lUZLO9MfVl43o+JUHzBOljHsHDXSdOpajEg
lgMePiwHPLwPSra3wF02mdTxvFq2FW75YyJcl+ROGaxrWLgfStOpajngX/T9Q8leJE3HlSvaNuZ3kWS/
0p3yql55p/NQ8G92mbxL6PgxMa5PcrYM1jdML8UFgPuaaNul8aPQajq19aTpXCLRtjG/Ipa5VdzQDvN+
tQcRzp7Fr2fduf8d/V1gJhSPUxmsgxiO2+im81KJtl2a2RdLl/f9Q8k2k6bzFYm2jXnulmI6Rpe1V+6F
oaNHEorbsanuOGF6HofTdHyMom2XxncwZy9NGv3P0rxOms5nJNo25vl81LDlSvEFwMO9sk+FCwA0zvVM
WPRnZk6TpuO+Jtp2adz3V/OtdldpOh+XaNuYZ6+occuZMt3bHRtFvwdMksKt/5nzI72ms5tE2y7NeTLr
rL5/KNk+0nQOlGjbmGenqHHLmTLdYzDuAKBxyoV9dQ7j8avHTWdfibZdGvf9sxcqif5naTztatPx7G7R
tjHP7lHjljPlx33lj3ABgMYptbyS3Sa30U3nUIm2XZoTZNZhff9QsmOl6bxeom1jnhIvAK7qK3+ECwA0
TvlDX53DeFKMBfukRNsuzYdl1nv7/qFkn5Om83KJto15uAAAxqD4S8xg3cNo3EY3nS9ItO3S/JvMemvf
P5TsO9J0nivRtjEPFwDAGBTPNTFY9zAat9FNx31NtO3SeHG2am5re1rXpvNEibaNebgAAMbgeia1zMvS
FrfRTaeWKeHfILM27fuHknmlvhS5V6LtYw4uAIAxKdwFGJ/b5hSpZVVYr1o66wV9/1C6xaXpsCDQwnEB
AIzJdU2+0at3GE2Ku8DuY6Jtl2gtmbVK3z+U7m+l6Vwg0bYxBxcAwAwoXtdksA5iem6bm477mGjbJVpZ
Zi0mf+39Q+leJk3n0xJtG3NwAQDMgOLFpmqZnyUlt81Nx31MtO3SuM9fVGbnVol+qDTbSdPxOvfRtjEH
FwDADLnOCfMCjOb90nTcx0TbLs0t8liuleiHSuMpGptOLRWgKVwAABOgrN9XBzG9N0rTqWUa4GvksVws
0Q+V5hhpOutItG3MwQUAMAGud+LV7QbrI2Jum5uO+5ho26W5SB7LmRL9UGm8smHTWU6ibWMOLgCACXHd
66uHWDi3zU3nqxJtuzRnyGM5QqIfKs18tzUaTC3vgTaBCwBgQhQ/BmBA4PRSzQNTy2vgXgPosbxDoh8q
zQPyOGk6l0q0fXABAEyU619fXUTMbXLTcd/iPibafmn2kMeylUQ/VKIUcwF4GcVo2+ACAJgoxa8FfqtX
FxE7XppOTXMAvEoey9oS/VCJNpKm806Jtg0uAICJU1gpcOHcJjedjSXadok8A/BjeYpEP1Si3aTpbCbR
tsEFADBxSi0DtZviNrnp7C7Rtku0vMyX+yX6wdJ8TJrOihJtG1wAABPl+ifn9uoiYitI03HfEm27NPfI
Arlaoh8uzYWSIjdJtP2u4wIAmCBlg766iAW5LU6Rb0q0/dL8WBZILVeYv5UU+bpE2+86LgCACVE8uU0t
r2k3xW1xitType9LskCOkuiHS/REaTqHSLTtruMCAJgQhZlHp3ewNB33KdG2S3SkLJC3SfTDJXqpNJ1t
JNp213EBAEyA4kmAahmb1SS3xU2npnUZ3ioLZFOJfrhEe0rTWUmibXcdFwDADCmbyCW9+oeFc1vcdNyn
RNsukV9nXCBPl+iHS3SSpMjPJdp+l3EBAMyA4lfavtGre1g4t8Ep4j4l2n6JwsnyFpFabje5QU+Rz0i0
/S7jAgAYk+uanN2rd5ie2+AUma6NKMV9MuV0+T+U6JdK86AsLk3Hz1Ki7XcZFwDAGJT1hBH/o0kx8Zv7
kock2n5p3MdPmZpmm/p7aTprSLTtLuMCABiR65i8vVffMDy3wU2npqnyF3rHZH+JfqlEnrax6fhWyh0S
bb+ruAAARqTwut/o3PamWP21pimA95Mps7VEv1SiUyRFmBBoflwAACNw/ZJbe3UNw/uapMipEm2/RPOt
AjiY1SX6pRL9VFKkprsmk8AFADACpaZXzFJa6LfZCeY6ibZfomfKlFlUankT4FFJMSPgyyTafldxAQAM
yXVLft2rZxhNignf3Ie4L4m2X5p7xW/7LTTfl+iXS5RiicjF5C6Jtt9FXAAAQ3Ld6qtnGJ7bXLe9TWcL
ibZfostl2hwn0S+X6CBJka9ItP0u4gIAGJLrltTyDTOlL0uKuA+Jtl8i9+3TpqZ32y+WFHmHRNvvIi4A
gBEoPAIYXYrp3p2apmMeas6Eml5H8XiGx0vTqWnw5ExxAQCMQPlYX13DcNzmNp0l5M8Sbb9Evts0bZaU
hyX6AyXaQFLkFxJtv2u4AABGoGzeV9cwvVTz/28o0fZL9BcZ+svw/5Poj5ToAEmR/yvR9ruGCwBgBIrv
urLs7/A+IilyoETbL5H79KFT08pH35UU8fKd0fa7hgsAYETKiX31DQvntjZFLpNo+yVy/Ro6u0j0R0rk
Wx/LSNPxghG8DsgFADAyZcu++oap3SkpXv9bVmp6FO4+feg8X6I/UqqFTn84wZwh0fa7hAsAYESuY3JD
r75haqdLitQ0Lb6tKUPHswXdLdEfKtExkiK+0Ii23yVcAABjUN7VV+cQ+2dJkWMl2n6JfGd62hkAB/Mt
if5Yia6XFPEoyz9JVIau4AIAGIPimUt9i3uw/mEOt60pXut2/KZBVIYSfVNGzqES/bFSpXhv1DlNou13
BRcAwJiUI/rqHeaXaoXXZ0m0/VIdIiOntkEp75EU6fpgHi4AgDEp6/XVO8zP8/KnyL9KtP1SjbXfahsF
+W1JEb8NcLtEZegCLgCAMbmuya29eod53KamGP3vXCRRGUrkPnzst+B+INEfLdFDkmJ5YKemeRRGxQUA
MAPK8X11D3O4TU0R9xF+dTwqQ4mulLHzUYn+aKneKCnyjxJtvwu4AABmQNmur+5hjk0lRWrb90fL2NlK
oj9aqi9KiiwqN0tUhtpxAQDMgOL1SwbrYJe5LXWbmiLnSVSGUrkPHzvLS01rVd8nS0mKfFiiMtSOCwBg
BpR1++oexhzFPkb+Rh6QqAwlct+9nMwoP5Loj5dqG0mR50q0/dpxAQDMgLJDX93rOndiz5AU+ReJylAq
t2szTm3vpZ4pqfI9icpQMy4AgDG5rsmFvXqHMSexGTNfk6gMpTpcZpzaVrnztIhLSorsJlEZasYFADAm
hef/83u9pIhvlT8oURlKNZFVE91Z1rZW9eskRZaWrq0QyAUAMAbXM7miV+cwZz6EVFP/7ixRGUrlPnsJ
mUgukGgjpTpXUqWmRSWGwQUAMCLXMfFgt8G612UzeoVtxPynRGUolT/PxLK3RBsplW/1pJoU6HkSlaFW
XAAAI1D87vlre3UNc/xVniMp8iSpafIf83TGE4vXEo42UrK3SKp8R6Iy1IgLAGBIip/5+9v/YJ3ruksk
VXaVqAwlW0Mmmv+RaEOl+q6kymskKkONuAAAhqD4fX86/1iq17Ud9wVRGUr1S5l4PiHRxkrlW0yrSYp4
FqvaLqCmwgUAMASFEf+xX8kikiLuA9wXROUo1TEy8Wwu0cZKdrCkSm3jKKbCBQCwEIqX/PUz/9rerpqU
iT6/nibuA6IylMxr0Uw8fqXgXok2WKobJdWVpgcd3i1ROWrCBQAwBdclWb9Xr7Agt5GekjdF3Pa7D4jK
USr30Y29OunX56KNlqyRq6UpcpREZagJFwBAQNnQdalXpxDzGiqpUuNd7S9JY3mzRBstWco5AVaV2mab
GsQFADBA8bd+vvkvnNvGlSVValv5z9xHNxavDljb+5IPizvmVDlZonLUggsAYIDrUF99QuxESZWnitv+
qBylct/sPrrR1LhQxYGSKs+WRyQqRw24AAD6KB7097teXULMnfHqkiofkqgcJXPf3Hh2l2jjJfPJ6Vf1
UsUrEkblqAEXAEAf5aC+uoTYGZIqi8lNEpWjZF58rvGsKDV+g021QJDjKS69znVUjtJxAQD0uO7I1b16
hJj7k1TT/jpeYTAqR8m8D58iSVLj1LYpZwZ0zpKoHKXjAgDoURj4N73PSspcKVE5SnaRJMueEhWidC+S
VHmu1HgnhQsAoEfxdL+D9Qnz+Nm/28JUeblE5SjdHpIsvtVQ29sAlvI5lHOaROUoGRcAQI/CBcDCnSop
81WJylEy98VPlqT5hkSFKdlDkvI91KeJtxmVpVRcAAA9CvP9T83v/bsNTBW/gVXj2KuvS/LsKFFhSpdy
Jirn4xKVo1RcAAA9ChcAU3PblzKfkqgcpdtBkmcZqXExi5RzUTt+nFLTGgFcAAA9Co8AYndKslHrirdV
Y391n7gvbiWfk6hQpdtPUuYDEpWjRFwAAD2uO331CPPsLylzgETlKJ3fJmstr5SoUKX7g3j1w1RZSmpZ
lYoLAKDHdaevHmEOt3Vu81JlSblVorKUzn1wa/HseTdLVLDSJX2tQtleonKUhgsAoEfxNMCD9anr3Nal
TK2vrbvvTTmDbRgPmosKVzpPD+wrx1R5nFwhUVlKwgUA0OO601ePMGvW98RtXaq4Da9x2l87VFqPJ3H4
q0QFLN27JGXcWJT+mgoXAECP605fPeo6t20vlJR5t0RlKZ373NUki3ga3aiQpfNYgCdIynhJzKgspeAC
AOhRNuurR113vKSM2+5bJCpL6VJPXb/Q7CxRIWuwr6SMX1f5k0RlKQEXAECPcnpfPeqyOyTla3/O+yQq
Sw3c52YTv4d4l0QFLd0fJfV7lm+VqCwl4AIAEGVDqXXVz1ElWaq2L8uK2+6oLKVzX7u0ZJVjJSpsDfye
fsp4kMxlEpUld7tFjWHOlOv7yh/hAgAjcZ0Rr9A2WJe6yG1ZyoF/zgclKksNPiHZ5XkSFbYGviW/nKTM
86XEdQLeEzWIOVN+1Ff+CBcAGJriV/+27dWdrnMbtqakjNtqzzQYlacGqffn0LlUogLX4EOSOodJVJac
lXgB8OO+8kfWiX4PiChM/zvPIZI6B0lUlhpkNfhvMLVMZhO5V1IPYvFshNdJVJ5cvS9qFHOmTDcL47rR
7wGDFC/+4zXuB+tQF/1UUs6o6ng1V7fVUXlqkHoSpZHig13raxd2nKSObyc+IlF5cvT5qGHMleJntdM9
auERAKbleiKeQGyw/nSR26yXSOq4jY7KUwP3rakvqEbOwRIVvga+sm/j+ctHJSpPjryyYTEdpjLMehav
FV+IcSGAkOuGTDeYtEs+Iqnjtrnmuy/uW7OPb8GUOHhtWOdL6njhjJIeBRwQNZK5UdaRC3tlHoYvbi6R
98t24kZ/tujvoxt6deDXMlhfusq3/lMu9jM3bpuj8tTgQXHfWkTOkOhD1GILSZ21xZUgKk9uPOlH1gPn
FDfab5DBso/jV/Jl8ZKjHv3tCwsuDDpA8bv+dP7zuI1yW5U6W0pUnlp4Qqli4sYv+hC18BXu4pI6npUw
Kk+OvI+y7AAVj9J2Jz1Y5knzBEMny04y96KANwoq0DuWm0utk82Max9JnceL25uoPLVwfSsqta4PMFcb
FX0R+bZE5cnRz8VzoWdzIeCyyCYyWNZUPEjsNNlLfCEy+2IkKivypLjj9/EbPLZd9y1JPeGP47Y4Kk8t
viPF5TUSfZha+HnwKpI6T5XbJSpTrnxr3B3vBlGDmkJv+3a2DJavbR645LkIThGvQOmBib5jwIVBZpT1
5RwZPIZd5zZpVUkdt8H3SFSmWrxaiou/rdY+Krat5zIelR6VJ3dniQfQvUf8Lcqfo0lvEm/rSLlSojLl
7AbxnTSvoranZHU3pUu838V1yuM9Bo8T5uybNnKmROWphQd/uy8tMrtI9KFq4TWZN5I28mmJyoS63S++
sL5cPLbAdwv8GIELgwYoc8du1Px++Ux5nEsb2VjcBkdlqsVbpNh4cMZNEn2wWvxM/DlTxysU1j7wBcPz
qnNXizsqv93gTou5C8ak+KLKt/tLnI47JV+MtrEynSfEcdsblakWHi/URt8y0dQ+QMMOlDbyHPFYhKhM
gP1BrhA/t/aKnX4E40cjvnMwd1zEY6LOsCt6+8Cdvses1D6IeRI85e4a0kbc5kZlqsneUny8LrNX04s+
YC0ekGdLG/Fgy9pvgyGNW8V3lbx8qydI8hgXjz/wgi4e9e47C36D4rF5DvpFnWpOBssr/jy+IPq8+O4J
c/iPZkdpI25rS5kTZVyeS8V9ZxWpeXWmufyqRhuvwDiHS1QmIJW7o043J4rvhgyWG+NpY10UxwPiunB3
pq27yo3kSdKFW9XvkDayqHxTojIBwCT9l7T1bNptbFSmmtwpy0lV6cJgGr+P+nfSRp4sv5GoXAAwCR6Y
tpK0EbetNS/1O9eHpLq4g6p9wgZrazYs50Xi8QhRuQBgJty2vFjaiNtUt61RuWpylywvVeZQiT50bfaQ
tuJ3wxkUCGCS3Ka4bWkrblOjctWmiCV/x43HAvgKJ/rgNfFkLW29HuO4EkXlAoBxeKBxW3Fb6jY1KldN
/OzffWTV+XeJPnxtfiSerKKN+HYZ85UDmAS3JW091nQb+t8Slas2H5Tq4xnsbpNoB9TmaGkrS8n3JSoX
AAzDk0i5LWkrbkOjctXGc3C4b+xE3i3RTqiNp2fdVNrKCvILicoGAAvj5byfIm3Fbafb0KhstfEqoJ2J
3yG9UaIdURu/NtPmc53V5BaJygYAEbcZz5S24rfGal9HZi6/vl38nP+jZmeJdkaNzpU241d3uvD+LICZ
c1vh6Z7bjNvMqGw1cl/YuSwmXVrNbldpM/8oD0lUNgAwtxGbSZtxWxmVrUY/kWLX+59ptpRop9TIV9XP
lTbjxU8ekah8ALrNbcO20mbcRnbpbqX7wE7nfIl2TI2ulbZHevrqmomCAPRzm/AWaTNuG6+TqHw1ct/X
+awpXVqG87PSdrygBhcBAMxtQZuzl86N28aofDVyn+e+jyinSLSTapXDyfYeicoGoFvcFrSdLqzy1+9E
Ib2sIl1YLniuB2U9aTvvk6h8ALrhvdJ23Ba6TYzKVyNPh+8+j/RlH4l2Vq1ulhwqwb4SlQ9A3Xzut51V
xW1hVL5aua8jA/FECF16LdAul7bWC+iPbwEyJgDoBp/rOdz2d9vnNjAqY63cx/kVeBLE76pHO61mJ0sO
2Uu4CADq5nPcz9tziNu+qIw1a3Nq+CJynkQ7rmbufHOIXwNingCgTj63c5l1zm1eVMaafUnINHma/Fmi
HVgrn5j/JDnkNcKMgUBdfE5vIznEbV3XvmjcL+7byBDZT6KdWLN7ZC3JIZuIK2xUTgBluU98TucQt3Fu
66Jy1oyBfyNkcfEcydGOrJlXhVpJcshL5DaJygmgDD6HfS7nkJWlK6vA9rtKGPg3Yl4mXVkLut8PpO3p
gudmdblBonICyJvPXZ/DOcRtmjvCqJw184x/awsZIydItFNr9w3J5YpxBfm+ROUEkCefsz53c4jbsi6t
+dLvCCFjZjn5g0Q7tnaeHvlxkkOeIGdLVE4Aefm8+JzNIW7DTpWonLX7uSwlZAZ5nUQ7twsOklziE/lw
Ya4AIE8+Nw+TXL44OAdLVNba+VhsJGQCOUeindwF75acsqN0ad5uoAQPiM/NnNLlBcdymeCtinhk/O0S
7eja+UryTZJT1pXfSVReAGn5XPQ5mVPeLF29W/h78eNrMsHsINHO7gKPJH215BS/0vNfEpUXQBo+B3N5
dXhu3FZ1eUbR1wppIF+TaId3gW/xbSE5xQs4fUqi8gJo1nHiczCnuI3q8iPCLwtpKF4+9w6JdnwXeHa+
jSW3+O6MZxuLygxgsnyubS+5pesziP5RWOe/4bxeop3fFT7BXi65ZQ25TqIyA5gMn2M+13KL26SuTx++
rZAE+axEB6ArPJf2+pJblpbTJCozgJnxueVzLLe4Leri/P79zhCSKB5h+VuJDkRX+ITL8U6A49uTd0tU
bgCj8bmU4y1/Z0Ppeufv9Q2eKCRhNpWuT0rjW265rPI1mNWEKYSBmfE55HMpx7Bq6Jz1anIcl9WJfESi
g9IlPgE3lxzjOcAPkL9IVHYAMZ8zPndyXUXObU7XO387SkhL8SswXVxhapBfu9lacs2L5XqJyg5gfj5X
fM7kGrc1D0lU9i7xyq1eup60mGdJ159BmSfe+BfJNV4U46PS5QlCgIXxueFzJOcFZDwrKefwnHEZuT6a
6Vzc8UUHqWs8JuJdknNeKtdKVH6gq3xO+NzIOV6XpOvjruby3Ccko5wu0YHqIq9BndOKYINZQg4Vxgag
63wO+FzwOZFr3Ja4TYnK30WfEZJZlhGeM8/zaVlUcs6acplE5Qdq57rvcyDneJxV1+dd6ec+xn0NyTDP
l3slOnBd9FV5guQcf7t4q3R1tUd0j+v6bpLzXTrHbYfbkOgzdJH7ltwv2Dofr4kdHbyu8nvEK0juebJ4
YSG/Vxt9DqB0HjznOu66nnvcZjCPx/zct5ACcoJEB7CrPGviWlJC1pErJPocQKlcp18kJcRtxe8k+hxd
5ZUXSSHxgBrmB5jfXfLPUkJ8a9SjbH8j0WcBSuE67Gl8c7/dPzevErcV0WfpKvclOQ/SJEGeLrdJdEC7
yrcg3yGlZEnZX1hXAKVxnXXddR0uJe8U3vGfn/sQ9yWkwHiO5oclOrBddrJ4dG8pWVE+Lp7xMPo8QC5c
R11XSxh3MzduC/zWUPR5usyvaL5CSMHxVW10cLvue7KKlBRfiXtJVL6lIDf+ouG6Wdq3xVXFbUH0mbrO
fQepIKxRH7tJXiKl5blylvDGANrmi1HXxedIaVlP3AZEn6vrThVSSfwcjldaYl7UYw8pMW50PUkJdwSQ
muvcmVJix+/sKSzoE/MbGwz6qyy+3c2rLVNzR7q0lBgvCHWS0KChaX7G77q2upQYn+O+YxF9Nsya9T+y
spAKs7YwU+DUfiprSKnxRZ7X5+atAUya65TrVmnjZvrjc/s6iT4fZs36kzxPSMXZSrhlPDVfIOW8rPAw
WU72lV9J9BmBYd0grkuuUyVnZ7lPos+IOXcPNxHSgfiEjioB5vGKV6UverGIvFoukegzAlNxnXHdcR0q
OX8jn5PoM2IOL3H8ZiEdip/jRZUB8/xCPDVvDfEiHsfKnRJ9VsB1w3WklgVf1pVfSvRZMc+HhHQsXir3
6xJVCMzjyTA+ILkvLTxsfFdjV7lcos+L7nFdcJ0odRDsYHyu+pz1uRt9XsxzhpQyTTOZcHzCXylRxcD8
vHb5M6WmeFDUkfJ7iT4z6uVj7mPvOSVqis9Rn6vRZ8b8/JinpBlRSQPxNLMe6BNVEMzPAwTfJrVdMfsb
02biKZK9Vnv02VE+H1sfYx/rWu5ozY3PSZ+bvOU0HL8NsbwQMvudXhYOGt635RlSYxaXLcUzgTFeoHw+
hj6WW4iPbY3xuehzMvr8WNAtUmv7RcaMB7vdI1GFwYL8TcMrC9b8/My3B708qmd8Y4nUcvhY+Zj52NV8
i9fnns9BvvUPz/M51DKwmUw4G8kDElUcxL4jz5ba42+PG8gR8iPxq0PR/kB6PhY+Jj42PkaLSe3xFMQ+
96L9gZjbdrfxhEyZrYUlhEfj6VEPkC7Nn+0Z4fzu8Nlyh0T7Bc3xPv+C+BiUPDvfqPE5dqCwNPZo3KZ7
EjhCps1Owje80f1Murh+tgeUvUz86tUFwi3ZyfM+9b71Pva+rm0Q3zDxt1efY9H+wdTclrtNJ2To7CVR
ZcLC+WTzLIJdXlDDt6C9zPLeco6wCNXofived96H3pdduK0/VXwunS58KRmPx0kQMnLeK1GFwvQ82GYf
qXXk9ahxI/4aOVj+Q26WaL91zaPi13DPFT9G2kZYjW1OfO74HGJxq/F52ndCxs77JapYGM71srmQBeM5
KDaVd8rxcpnUPA/BH8UD144Rz7znqWprmX1v0vE543Mn2o8Yzr8JITPOQRJVMAzvG1LLHOtNxyvP+VWl
7cTPvD15zYXiyUtyHl/gsrmMflbvMrvs/gz+LKWvppcqXo72PyXavxie22xCJpbDJapoGJ5H4vqbrr/5
kvHjGcz8GpgHXG4rHq/ikeEfE4+/+Ir4m/ZV8hO5UTz5id+Ptz/L4LHxv839//5Z/45/13/DU6Z+SbyA
1mHi5/Ieff/P4ufzzxI6+JllJTlBeANp5txWEzLxcBEwGX6m6ee9ywohXY6X6/XFG8/5J8MXqIQ0lg9J
VPEwulvl3bKkENKluM77TorHRUTnBkbntpmQxuNnm1EFxHj8ytdbhZW5SO1xHXddd52PzgWMx4O1CUkW
v14SVUSM79eyu3AhQGqL67RX63Mdj+o+xudXJQlJHg++YnKOyXMj+XbhQoCUHk/d67r8G4nqOsbntpdJ
fkir2VEekaiCYmY8WY6fky4jhJQU11l/M/29RHUbM+O3Jdz2EtJ6vIAQqwg2x2u6e3RvlxZ9IWXGddRv
C7nORnUZM3e/uM0lJJtsIn6HOqqwmIyHxHOiv1AIySmuk66brqNR3cVkuI11W0tIdvGkKLdJVHExWZ6c
5rXS5UViSLtx3XMddF2M6igmy22rp48mJNusLl7cJKrAmDyvtOeJVFYVQlLkqeI6xyqP6bhNddtKSPZZ
Qb4vUUVGMzwoyCvK/aMsIoRMMq5TXqDHdYzpetNyW+o2lZBi8gT5qkQVGs3yPPaHyGpCyEziOuS65DoV
1TU0y22o21JCisui8imJKjaa5/eEvSjOLsJiNWTYuK54ueLvCvN8tMdtp9tQQoqOZw1kroB2PSjniVfP
Y+0BMhjXCdcN1xHXlagOIQ23lZ7/g5Bq4vdW75OowiMtr7x2hmwjSwnpZnzsXQdcF1iNLw/3Cu/4kyqz
ljByOC9ucM6WN8gThdQdH2Mfax9zH/uoTqAdbhvdRhJSbfy6Gm8I5OkvcrG8SxhAWE98LN8jPrY+xtGx
R7vcJjLTJ+lEvMjNqRKdCMjHz+RY2UqWFVJGfKx8zHzsfAyjY4t8nCIs/EU6F3/T5BtJGXycLpV/lw2F
gYT5xMfiFeJj42PEOVUGT5v8TiGks9lImD64PF78ya+J+R1xTz7E+IF08b72Pve+9zFgIa7yuM3zRRsh
nc/T5CqJThSU4VG5Vnw7822ytiwuZGbxPvS+9D71YzPvY+/r6BigDD8Qt3mEkF78DIxJg+ri98l9YXey
7CkvFe4UTB3vG+8j7yvvsx8K7+TX5TjheT8hU2RHYb6Auvl1pwvlY7K7+FaoF5jpQh4nfyv+zP7s3gfe
F7weWze3adsLIWSarCnXS3QioV5uJH8iX5FjxDNIvlHWF3eaJTxScBldVpfZZX+v+LN4TvdrhOf13XOd
rCGEkCGzjHiGsuiEQnf9UXxx6HfaPZnNJ8WD4fYRz1//OtlUNpAXyHPEz1uXF99it2hxFf/b3P/vufD9
O38nnpjFt+X9N/23vQ1vy9v0tl0Gl8VlctmiMqO7ThO3ZYSQMeJHAvdIdHIBQI48tbLbLkLIDLO68JYA
gBK4rWImTUImGI+c/YiwPCmAHLltOkoY5U9IQ9lEfivRCQgAbbhRNhZCSMPxIK0zJToRASAlD1Z2m0QI
SZjXyx0SnZQA0KTbZVshhLQUL6H5NYlOUABogtsclu8lJJPsJNwNANAkz/WwgxBCMsuKco5EJy4AzITb
FrcxhJCM4+dyt0h0EgPAKH4vPOsnpKB4VO4JwrwBAMbhZZePF0b4E1JovCiLF5iJTnAAiFwtbjsIIYXH
K7TtL/dLdLIDgLmN2E9KWHmSEDJCvMLbuRKd+AC67YviNoIQUnE2Fy/fGjUCALrFbcFmQgjpSHyLz+u6
e9nOqFEAUDef+24DuN1PSEezspwkj0jUSACoi8/1E8XnPiGEzFpLLpCowQBQh/Pl+UIIIQtkS7lGosYD
QJl8Tm8hhBCy0CwqO8tvJGpMAJTB57DPZZ/ThBAydJaQd8utEjUuAPLkc9bnrs9hQggZO8vKAcIbA0De
7pIPis9ZQgiZWJ4khwgXAkBe3PH73FxeCCGksbiROVjc6ESNEYA0fA4eJHT8hJCkcaPjxudOiRonAM3w
Oedzj5X6CCGtZhnZV26WqLECMBk3iWfv8zlHCCHZ5PGyq/xMosYLwHg8X/8u4nOMEEKyzSKyjVwiUWMG
YDg+h14tPqcIIaSovFBOl4ckauAAzM/nis8ZnzuEEFJ8VhG/pnSbRI0e0HU+N3yO+FwhhJDq4meYO8il
EjWCQNf4XNheeL5PCOlMniefFOYTQNf4Nb5jxecAIYR0Nn6lyW8PXCZ/lajBBErnuu06/hbhNT5CCBnI
s+QI8fvOUSMKlMZ1+TBx3SaEEDJNvHzpP8lZcp9EDSuQK9dZ113XYZbiJYSQMbO0eODg1+UvEjW4QNtc
N11HXVddZwkhhEwwT5E95GJ5RKKGGEjFdfAicZ103SSEEJIgK8hb5QLhzgBScV07X3YT10FCCCEtxisT
vknOlXslariBcblOnSOuY6zARwghmWYJ2VyOkV9K1KAD03HdcR1yXXKdIoQQUljWkr3Ft23/LFFjD7hu
uI64rjBBDyGEVBZ/k9tUPiw/lEcl6gxQPx971wHPO7GJ8C2fEEI6FI8d2EqOlh8IbxbU62G5Unysfcx9
7AkhhJDZWVa2kIPlm8I6BeXysfMxPEh8TH1sCSGEkKGyiPh5sNcqOEl+LLxymB8fEx+bE8THysfMx44Q
QgiZWPyseB3xe+DHyRVyv0QdEybP0+x6n3vf+xi8SHh+TwghpJX42+ZqsrXsL2fKj4QLg/F533kfel96
n/q5vfcx3+wJIYRkH3dWTxePMt9djpLz5GphkaM5+8D7wvvE+8b7yPvK+4yOnhBCSLV5kqwtr5I95XD5
rHxbrpFbpcRXFV1ml92fwZ/Fn8mfzZ/Rn/XvxZ+dEEIIIVPEy8muLL5Q2Ey2FT/73lcOlU+KO9ivyYVy
mXhA3HVyo9wuHhE/VzQZkv+t/2f8O/5d/w3/Lf9N/21vw9vyNr1tl8FlcZlcNpdxJWEJXEKyzqxZ/x/Z
GZosdPDg4wAAAABJRU5ErkJggg==
</value>
</data>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="PictureEdit2.EditValue" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACQCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkNoZWNrIj4NCiAgICA8cG9seWdvbiBwb2ludHM9IjI3
LDUgMTEsMjEgNSwxNSAyLDE4IDExLDI3IDMwLDggICIgY2xhc3M9IkdyZWVuIiAvPg0KICA8L2c+DQo8
L3N2Zz4L
</value>
</data>
<data name="PictureEdit3.EditValue" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACQCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkNoZWNrIj4NCiAgICA8cG9seWdvbiBwb2ludHM9IjI3
LDUgMTEsMjEgNSwxNSAyLDE4IDExLDI3IDMwLDggICIgY2xhc3M9IkdyZWVuIiAvPg0KICA8L2c+DQo8
L3N2Zz4L
</value>
</data>
<data name="PictureEdit4.EditValue" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACQCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkNoZWNrIj4NCiAgICA8cG9seWdvbiBwb2ludHM9IjI3
LDUgMTEsMjEgNSwxNSAyLDE4IDExLDI3IDMwLDggICIgY2xhc3M9IkdyZWVuIiAvPg0KICA8L2c+DQo8
L3N2Zz4L
</value>
</data>
<data name="PictureEdit5.EditValue" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACQCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkNoZWNrIj4NCiAgICA8cG9seWdvbiBwb2ludHM9IjI3
LDUgMTEsMjEgNSwxNSAyLDE4IDExLDI3IDMwLDggICIgY2xhc3M9IkdyZWVuIiAvPg0KICA8L2c+DQo8
L3N2Zz4L
</value>
</data>
<data name="SimpleButton3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOMCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlNpbmdsZVBhZ2VWaWV3Ij4NCiAgICA8cGF0aCBk
PSJNMjcsMEgzQzIuNCwwLDIsMC40LDIsMXYyOGMwLDAuNiwwLjQsMSwxLDFoMjRjMC42LDAsMS0wLjQs
MS0xVjFDMjgsMC40LDI3LjYsMCwyNywweiBNMjYsMjhINFYyaDIyVjI4eiIgY2xhc3M9IkJsYWNrIiAv
Pg0KICAgIDxwYXRoIGQ9Ik0yMiw4SDhWNmgxNFY4eiBNMjIsMTBIOHYyaDE0VjEweiBNMjIsMTRIOHYy
aDE0VjE0eiBNMjIsMThIOHYyaDE0VjE4eiBNMjIsMjJIOHYyaDE0VjIyeiIgY2xhc3M9IkJsdWUiIC8+
DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
</root>

View File

@@ -0,0 +1,46 @@
Imports System.Threading.Tasks
Imports DigitalData.Modules.ZooFlow
Public Class frmGlobix_Result
Private Search As Search.SearchRunner
Private Property Environment As Environment
Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Environment = My.Application.GetEnvironment()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Search = New Search.SearchRunner(My.LogConfig, Environment, "FlowSearch") With {
.BaseSearchSQL = SQL_FLOW_SEARCH_BASE
}
End Sub
Private Sub PictureEdit1_EditValueChanged(sender As Object, e As EventArgs) Handles PictureEdit1.EditValueChanged
Close()
End Sub
Private Async Function GetResult(oVariant As String) As Task
Dim oSql As String
Try
If oVariant = "DOCID" Then
oSql = My.Queries.Common.DOCRESULT_DocID(My.Application.Globix.DOCUMENT_ID)
ElseIf oVariant = "TODAY" Then
oSql = My.Queries.Common.DOCRESULT_TODAY
ElseIf oVariant = "TODAY_ME" Then
oSql = My.Queries.Common.DOCRESULT_TODAY_ME
End If
If oSql IsNot Nothing Then
Dim oResultDT = Await My.Database.GetDatatableIDBAsync(oSql)
If Not IsNothing(oResultDT) Then
Search.RunWithDataTable(oResultDT, "FileFlow Duplicate File")
End If
End If
Catch ex As Exception
MsgBox("Unexpected error in getResult: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Function
Private Async Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click
Await GetResult("DOCID")
End Sub
End Class