19 Commits

Author SHA1 Message Date
9e664377a9 ms 2022-06-27 12:39:53 +02:00
7f00521d6c MS 2022-06-23 13:13:50 +02:00
c854c407c5 MS Datei ueberspringen 2022-06-23 11:43:08 +02:00
8fd3d1794f MS Save Layout 2022-06-21 11:10:51 +02:00
4860713d17 MS 2022-06-17 12:09:36 +02:00
ff80b48521 MS 2022-06-14 15:47:14 +02:00
80d19d496f MS 2022-06-14 14:51:20 +02:00
d7a54bc71a MS 2022-06-01 11:33:07 +02:00
770450044b Ms 2022-05-31 10:29:28 +02:00
fb7e2df49f MS 2022-05-30 15:05:52 +02:00
36e645ed84 ms suchen 2022-05-18 11:42:01 +02:00
63736e83d3 MS Release 2022-05-17 17:00:50 +02:00
18095b5bef MS Admin ExcelExport, Debug 2022-04-13 14:29:33 +02:00
ad614b0e60 Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/ProcessManager 2022-04-07 17:04:38 +02:00
376111f208 MS 2022-04-07 17:04:35 +02:00
Jonathan Jenne
40841f308b Push it baby, push it real 2022-04-07 17:02:39 +02:00
Jonathan Jenne
61ca23373a Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/ProcessManager 2022-04-06 14:47:43 +02:00
Jonathan Jenne
03152a6d5f Fix Additional search ui, fix fallback sql for data searches 2022-04-06 14:47:14 +02:00
Jonathan Jenne
89dd39b081 Move Grid Fontsizedelta to frmMain 2022-04-06 12:07:50 +02:00
39 changed files with 2420 additions and 3809 deletions

View File

@@ -12,10 +12,10 @@
<applicationSettings>
<DD_ProcessManager.My.MySettings>
<setting name="UseAppConfigConString" serializeAs="String">
<value>True</value>
<value>False</value>
</setting>
<setting name="UserConfig_Prefix" serializeAs="String">
<value>PROD</value>
<value>TEST</value>
</setting>
</DD_ProcessManager.My.MySettings>
<DevExpress.LookAndFeel.Design.AppSettings>

View File

@@ -1,4 +1,7 @@
Imports Microsoft.VisualBasic.ApplicationServices
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.EDMI.API
Imports DigitalData.Modules.ZooFlow
Imports Microsoft.VisualBasic.ApplicationServices
Namespace My
' Für MyApplication sind folgende Ereignisse verfügbar:
@@ -8,6 +11,8 @@ Namespace My
' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgelöst, wenn die Anwendung bereits aktiv ist.
' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgelöst.
Partial Friend Class MyApplication
Private Sub MyApplication_UnhandledException(sender As Object, e As UnhandledExceptionEventArgs) Handles Me.UnhandledException
Dim oMessage = "Application encountered an unhandled error!" & vbNewLine & vbNewLine &
"The errormessage was:" & vbNewLine & e.Exception.Message & vbNewLine &
@@ -19,7 +24,7 @@ Namespace My
If DEBUG = True Then
Dim oLogMessage = LOGCONFIG.Logs.Last()
Dim oLogSplit As String() = oLogMessage.Split("|")
Dim oDBMessage = PrepareLogMessage(oLogMessage) & $" [Machinename: {Environment.MachineName}]"
Dim oDBMessage = PrepareLogMessage(oLogMessage) & $" [Machinename: {System.Environment.MachineName}]"
Dim oSQL = $"INSERT INTO [dbo].[TBPM_LOG_DEBUG] ([USERID], [LOGMSG], [ADDED_WHEN], DATE_STR) VALUES({USER_ID},'{oDBMessage}',GETDATE(),'{Now}')"
DatabaseFallback.ExecuteNonQueryECM(oSQL)
@@ -27,8 +32,9 @@ Namespace My
Catch ex As Exception
LOGGER.Error(ex)
End Try
MsgBox(oMessage, MsgBoxStyle.Critical, "Flow Task")
End Sub
End Class
End Namespace

View File

@@ -4,32 +4,35 @@ Imports PdfSharp.Pdf.IO
Imports PdfSharp.Drawing
Public Class ClassAnnotation
Public Shared Function Annotate_PDF(title As String, content As String, page As Integer, fromGui As Boolean, Optional ycorrect As Integer = 0, Optional sizecorrect As Integer = 0)
Try
Dim doc As PdfDocument = PdfReader.Open(CURRENT_DOC_PATH, PdfDocumentOpenMode.Modify)
Dim firstPage As PdfPage = doc.Pages(page)
If CURRENT_DOC_PATH.Length > 0 Then
Try
Dim doc As PdfDocument = PdfReader.Open(CURRENT_DOC_PATH, PdfDocumentOpenMode.Modify)
Dim firstPage As PdfPage = doc.Pages(page)
Dim gfx As XGraphics = XGraphics.FromPdfPage(firstPage)
Dim rect As XRect = gfx.Transformer.WorldToDefaultPage(New XRect(New XPoint(30, 60 + ycorrect), New XSize(60 + sizecorrect, 40 + sizecorrect)))
Dim gfx As XGraphics = XGraphics.FromPdfPage(firstPage)
Dim rect As XRect = gfx.Transformer.WorldToDefaultPage(New XRect(New XPoint(30, 60 + ycorrect), New XSize(60 + sizecorrect, 40 + sizecorrect)))
Dim annot As PdfTextAnnotation = New PdfTextAnnotation
Dim annot As PdfTextAnnotation = New PdfTextAnnotation
annot.Title = title
'annot.Subject = txtsubject.Text
annot.Contents = content
annot.Rectangle = New PdfRectangle(rect)
annot.Title = title
'annot.Subject = txtsubject.Text
annot.Contents = content
annot.Rectangle = New PdfRectangle(rect)
firstPage.Annotations.Add(annot)
doc.Save(CURRENT_DOC_PATH)
Return True
Catch ex As Exception
If fromGui = True Then
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Annotate pdf:")
End If
LOGGER.Error(ex)
LOGGER.Info("Unexpected error in Annotate pdf: " & ex.Message, False)
Return False
End Try
firstPage.Annotations.Add(annot)
doc.Save(CURRENT_DOC_PATH)
Return True
Catch ex As Exception
If fromGui = True Then
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Annotate pdf:")
End If
LOGGER.Error(ex)
LOGGER.Info("Unexpected error in Annotate pdf: " & ex.Message, False)
Return False
End Try
End If
End Function
End Class

View File

@@ -0,0 +1,5 @@
Public Class ClassConstants
Public Const OpModeFS_PWM = "PURE_WM"
Public Const OpModeFS_IDBWM = "IDB_WM"
Public Const OpModeFS_ZF = "ZOOFLOW"
End Class

View File

@@ -45,10 +45,6 @@ Public Class ClassInit
<STAThread()>
Public Sub InitUserConfig()
Try
'DataASorDB = New ClassDataASorDB
Dim oUserAppDataPath As String = Application.UserAppDataPath
Dim oLegacyAppDataPath As String = Application.UserAppDataPath
Dim oCommonAppDataPath = Application.CommonAppDataPath
@@ -76,47 +72,47 @@ Public Class ClassInit
CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, oUserAppDataPath, oCommonAppDataPath, oStartupPath)
LOGGER.Info("Config loaded")
Try
If CONFIG.Config.ConnectionStringTest <> String.Empty And CONFIG.Config.TestMode = True Then
LOGGER.Debug("Test Connection String loaded")
CONNECTION_STRING_ECM = DecryptConnectionString(CONFIG.Config.ConnectionStringTest)
Else
LOGGER.Debug("Connection String loaded")
CONNECTION_STRING_ECM = DecryptConnectionString(CONFIG.Config.ConnectionString)
End If
Catch ex As Exception
LOGGER.Error(ex, "Unexpected Error Getting CONFIG.TestMode or CONFIG.ConnectionStringTest")
End Try
If CONFIG.Config.ConnectionStringTest <> String.Empty And CONFIG.Config.TestMode = True Then
LOGGER.Debug("Test Connection String loaded")
CONNECTION_STRING_ECM = DecryptConnectionString(CONFIG.Config.ConnectionStringTest)
Else
LOGGER.Debug("Connection String loaded")
CONNECTION_STRING_ECM = DecryptConnectionString(CONFIG.Config.ConnectionString)
End If
Try
If CONFIG.Config.EDMIAppServer <> String.Empty Then
Try
LOGGER.Info($"Configuration EDMIAppServer [{CONFIG.Config.EDMIAppServer}] will be used...")
'If CONFIG.Config.ConnectionStringAppServer <> String.Empty Then
' LOGGER.Debug("ConnectionStringAppServer will be used")
' CONNECTION_STRING_APP_SERVER = DecryptConnectionString(CONFIG.Config.ConnectionStringAppServer)
' CONNECTION_STRING_READ = CONNECTION_STRING_APP_SERVER
'Else
' CONNECTION_STRING_READ = CONNECTION_STRING_ECM
'End If
_Client = New Client(LOGCONFIG, CONFIG.Config.EDMIAppServer)
If Not IsNothing(_Client) Then
If _Client.Connect() Then
EDMIAppServerActive = True
EDMIService.Client = _Client
EDMIService.Address = CONFIG.Config.EDMIAppServer
If CONFIG.Config.EDMIAppServer <> String.Empty Then
Try
'Dim oSplit() = CONFIG.Config.EDMIAppServer.ToString.Split(";")
'Dim oAppServer = oSplit(0)
'Dim oAppServerPort = 9000
'If oSplit.Length = 2 Then
' oAppServerPort = oSplit(1)
'End If
_Client = New Client(LOGCONFIG, CONFIG.Config.EDMIAppServer)
If Not IsNothing(_Client) Then
If _Client.Connect() Then
EDMIAppServerActive = True
LOGGER.Info($"EDMIAppServer [{CONFIG.Config.EDMIAppServer}] is active!")
Else
LOGGER.Warn($"#### !!! Could not Connect to APPServer [{CONFIG.Config.EDMIAppServer}]!!! ###")
LOGGER.Info($"EDMIAppServer [{CONFIG.Config.EDMIAppServer}] is active!")
Else
LOGGER.Warn($"#### !!! Could not Connect to APPServer [{CONFIG.Config.EDMIAppServer}]!!! ###")
End If
End If
End If
Catch ex As Exception
LOGGER.Warn($"Could not initialize the AppServer: {ex.Message}")
End Try
Catch ex As Exception
LOGGER.Warn($"Could not initialize the AppServer: {ex.Message}")
End Try
Else
LOGGER.Debug("EDMI Server Address not found. Skipping.")
End If
Catch ex As Exception
LOGGER.Error(ex, "Unexpected Error Getting CONFIG.EDMIAppServer")
End Try
Else
LOGGER.Debug("EDMI Server Address not found. Skipping.")
End If
INDEX_DMS_ERSTELLT = CONFIG.Config.IndexDmsErstellt
INDEX_DMS_ERSTELLT_ZEIT = CONFIG.Config.IndexDmsErstelltZeit
@@ -161,20 +157,32 @@ Public Class ClassInit
End Function
<STAThread()>
Public Function InitDatabase()
Public Function InitDatabase(GetCSFromAppServ As Boolean)
If GetCSFromAppServ = True Then
LOGGER.Info("Getting DatabaseInfo from ApplicationServer...")
End If
Dim Database_ECM As MSSQLServer = Nothing
Dim Database_IDB As MSSQLServer = Nothing
If CONNECTION_STRING_ECM = String.Empty Then
MsgBox("No Databaseconnection configured. (First Start or Appdata not accessible)" & vbNewLine & "Basic-Config will be loaded.", MsgBoxStyle.Information)
ERROR_STATE = "NO DB-CONNECTION"
frmKonfig.ShowDialog()
If GetCSFromAppServ = False Then
If CONNECTION_STRING_ECM = String.Empty Then
MsgBox("No Databaseconnection configured. (First Start or Appdata not accessible)" & vbNewLine & "Basic-Config will be loaded.", MsgBoxStyle.Information)
ERROR_STATE = "NO DB-CONNECTION"
frmKonfig.ShowDialog()
End If
End If
Database_ECM = New MSSQLServer(LOGCONFIG, CONNECTION_STRING_ECM)
Dim oCSECM As String
If GetCSFromAppServ = False Then
oCSECM = CONNECTION_STRING_ECM
Else
oCSECM = EDMIService.Client.ClientConfig.ConnectionStringECM
CONNECTION_STRING_ECM = oCSECM
End If
Database_ECM = New MSSQLServer(LOGCONFIG, oCSECM)
If Database_ECM.DBInitialized = True Then
'ClassDatabase.Init(CONNECTION_STRING_ECM)
dbECMInitialized = True
DatabaseECM = Database_ECM
Else
dbECMInitialized = False
End If
@@ -183,21 +191,27 @@ Public Class ClassInit
MsgBox("Error in InitDatabase. (Connection DD_ECM failed) More information in the logfile.", MsgBoxStyle.Critical)
Return False
End If
If CONNECTION_STRING_IDB <> String.Empty Then
LOGGER.Debug("IDB Connection String exists, initializing IDB Database")
Database_IDB = New MSSQLServer(LOGCONFIG, CONNECTION_STRING_IDB)
If GetCSFromAppServ = True Or (GetCSFromAppServ = False And CONNECTION_STRING_IDB <> String.Empty) Then
Dim oCSIDB As String
If GetCSFromAppServ = False Then
oCSIDB = CONNECTION_STRING_IDB
Else
oCSIDB = EDMIService.Client.ClientConfig.ConnectionStringIDB
End If
Database_IDB = New MSSQLServer(LOGCONFIG, oCSIDB)
If Database_IDB.DBInitialized = True Then
CONNECTION_STRING_IDB = oCSIDB
DatabaseIDB = Database_IDB
dbIDBInitialized = True
IDB_ACTIVE = True
LOGGER.Info("IDB is active via Config")
End If
Else
LOGGER.Debug("IDB Connection String does not exist!")
End If
' We initialize the Class in anycase.
' If there is no client, it will fall back to the db by itself
DatabaseFallback = New DatabaseWithFallback(LOGCONFIG, _Client, Database_ECM, Database_IDB)
@@ -321,6 +335,15 @@ Public Class ClassInit
USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")
User.IsAdmin = USER_IS_ADMIN
User.Surname = USER_SURNAME
User.GivenName = USER_PRENAME
User.Email = USER_EMAIL
User.UserName = USER_USERNAME
User.UserId = USER_ID
User.Language = USER_LANGUAGE
Try
USER_RIGHT_FILE_DELETE = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT_FILE_DEL")), False, DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT_FILE_DEL"))
@@ -467,7 +490,7 @@ Public Class ClassInit
.FilterExpression = "TYPE = 'DOC'",
.SortByColumn = "PROFILE_ID,TAB_INDEX"
})
BASEDATA_DT_PROFILE_SEARCHES_DOC = BASEDATA_DT_PROFILES_SEARCHES_DOC.Clone()
DT_FILTERED_PROFILE_SEARCHES_DOC = BASEDATA_DT_PROFILES_SEARCHES_DOC.Clone()
oStep = "TBPM_MAIN_VIEW_GROUPS"
oSql = "SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1"

View File

@@ -59,6 +59,11 @@ Public Class ClassParamRefresh
ElseIf oMode = "PM.DEBUG_LOG" Then
DEBUG = True
LOGCONFIG.Debug = True
ElseIf oMode.StartsWith("OPERATION_MODE_FS") Then
OPERATION_MODE_FS = oMode.Replace("OPERATION_MODE_FS=", "")
If OPERATION_MODE_FS = ClassConstants.OpModeFS_IDBWM Then
IDB_USES_WMFILESTORE = True
End If
ElseIf oMode = "PM.IDBWITHWMFS" Then
IDB_USES_WMFILESTORE = True
ElseIf oMode = "PM.NO_BASICCONF" Then
@@ -176,6 +181,7 @@ Public Class ClassParamRefresh
Dim oAfterReplace = oMode.Replace("PM.START_CW=", "")
Try
START_CW = True
LOGGER.Debug("PM.START_CW = True")
Dim oSplit As String() = oAfterReplace.Split("~")
START_CW_CAPTION = oSplit(0)
Try

View File

@@ -2,6 +2,7 @@
Imports System.Drawing.Design
Imports System.Windows.Forms.Design
Imports DD_ProcessManager.InputProperties
Imports DigitalData.GUIs.Common
Public Class ClassSQLEditor
Inherits UITypeEditor
@@ -16,11 +17,11 @@ Public Class ClassSQLEditor
If svc IsNot Nothing AndAlso SQLSTring IsNot Nothing Then
'CURRENT_DESIGN_TYPE = "INPUT_INDEX"
Using Form As New frmSQL_DESIGNER()
Form.SQLCommand = SQLSTring
If svc.ShowDialog(Form) = DialogResult.OK Then
Dim sql As New SQLValue(Form.SQLCommand)
CURRENT_SQL_CON = Form.ConnectionID
Using oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM)
oForm.SQLCommand = SQLSTring
If svc.ShowDialog(oForm) = DialogResult.OK Then
Dim sql As New SQLValue(oForm.SQLCommand)
CURRENT_SQL_CON = oForm.SQLConnection
value = sql
End If
End Using

View File

@@ -16,6 +16,7 @@
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<TargetFrameworkProfile>
</TargetFrameworkProfile>
<IsWebBootstrapper>false</IsWebBootstrapper>
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
@@ -28,7 +29,6 @@
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<IsWebBootstrapper>false</IsWebBootstrapper>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup>
@@ -163,6 +163,10 @@
<Reference Include="DigitalData.GUIs.Common">
<HintPath>..\..\..\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Base, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Modules.Base\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Config">
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference>
@@ -180,6 +184,10 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.ZooFlow, Version=1.1.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Modules.ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll</HintPath>
</Reference>
<Reference Include="DLLLicenseManager">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath>
</Reference>
@@ -252,6 +260,7 @@
<Compile Include="ApplicationEvents.vb" />
<Compile Include="ClassAnnotation.vb" />
<Compile Include="ClassConfig.vb" />
<Compile Include="ClassConstants.vb" />
<Compile Include="ClassControlCreator.vb" />
<Compile Include="ClassDragDrop.vb" />
<Compile Include="ClassFinalIndex.vb" />
@@ -477,12 +486,6 @@
<Compile Include="frmMain.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSQL_DESIGNER.Designer.vb">
<DependentUpon>frmSQL_DESIGNER.vb</DependentUpon>
</Compile>
<Compile Include="frmSQL_DESIGNER.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmUserKonfig_AddUsers.designer.vb">
<DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
</Compile>
@@ -510,6 +513,7 @@
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
@@ -651,9 +655,6 @@
<DependentUpon>frmMain.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmSQL_DESIGNER.resx">
<DependentUpon>frmSQL_DESIGNER.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmUserKonfig_AddUsers.resx">
<DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
</EmbeddedResource>

View File

@@ -6,6 +6,7 @@
Public IDB_ACTIVE As Boolean = False
Public EDMIAppServerActive As Boolean = False
Public OPERATION_MODE_FS As String = "PURE_WM"
Public IDB_USES_WMFILESTORE As Boolean = False
Public BASIC_CONF_VISIBLE As Boolean = True
Public IDB_DOC_DATA_SQL As String

View File

@@ -3,9 +3,15 @@ Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.EDMI.API
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.ZooFlow
Module ModuleRuntimeVariables
Public Property Database As DatabaseWithFallback
Public Property DatabaseECM As MSSQLServer
Public Property DatabaseIDB As MSSQLServer
Public Property EDMIService As New State.ServiceState
Public Property User As New State.UserState
' Diese Werte müssen später zur Laufzeit geladen werden
Public Property BASEDATA_DT_TBDD_CONNECTION As DataTable
Public Property BASEDATA_DT_TBDD_SQL_COMMANDS As DataTable
@@ -14,7 +20,7 @@ Module ModuleRuntimeVariables
Public Property BASEDATA_DT_CHARTS As DataTable
Public Property BASEDATA_DT_GUI_LANGUAGE_PHRASES As DataTable
Public Property BASEDATA_DT_PROFILES_SEARCHES_DOC As DataTable
Public Property BASEDATA_DT_PROFILE_SEARCHES_DOC As DataTable
Public Property DT_FILTERED_PROFILE_SEARCHES_DOC As DataTable
Public Property BASEDATA_DT_PROFILES_SEARCHES_SQL As DataTable
Public Property BASEDATA_DT_PROFILE_SEARCHES_SQL As DataTable
@@ -66,7 +72,7 @@ Module ModuleRuntimeVariables
Public Property USER_GHOST_MODE_USRNAME As String = ""
Public Property FORCE_LAYOUT_OVERVIEW As Boolean = False
Public Property SHOW_CHARTS As Boolean = False
Public Property SHOW_CHARTS As Boolean = True
Public Property SHOW_MASS_VALIDATOR As Boolean = True
Public Property WORKING_MODE As String = ""
Public Property MONITORING_ACTIVE As Boolean = False

View File

@@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-16"?>
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>frmMain</MainForm>

View File

@@ -8,10 +8,10 @@ Imports System.Runtime.InteropServices
' Die Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("Task Flow")>
<Assembly: AssemblyTitle("TaskFlow")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("Task Flow")>
<Assembly: AssemblyProduct("TaskFlow")>
<Assembly: AssemblyCopyright("Copyright © Digital Data 2022")>
<Assembly: AssemblyTrademark("2353")>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.3.5.3")>
<Assembly: AssemblyVersion("2.3.7.6")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

View File

@@ -291,7 +291,7 @@ Namespace My
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public ReadOnly Property UseAppConfigConString() As Boolean
Get
Return CType(Me("UseAppConfigConString"),Boolean)
@@ -300,7 +300,7 @@ Namespace My
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("PROD")> _
Global.System.Configuration.DefaultSettingValueAttribute("TEST")> _
Public ReadOnly Property UserConfig_Prefix() As String
Get
Return CType(Me("UserConfig_Prefix"),String)

View File

@@ -65,10 +65,10 @@
<Value Profile="(Default)">Normal</Value>
</Setting>
<Setting Name="UseAppConfigConString" Type="System.Boolean" Scope="Application">
<Value Profile="(Default)">True</Value>
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="UserConfig_Prefix" Type="System.String" Scope="Application">
<Value Profile="(Default)">PROD</Value>
<Value Profile="(Default)">TEST</Value>
</Setting>
</Settings>
</SettingsFile>

View File

@@ -1,11 +1,6 @@
DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

View File

@@ -1,19 +1,12 @@
DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraReports.UI.XtraReport, DevExpress.XtraReports.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.Snap.Extensions.SnapDockManager, DevExpress.Snap.v19.2.Extensions, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.Snap.SnapControl, DevExpress.Snap.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraPrinting.Preview.DocumentViewer, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v21.2.UI, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

View File

@@ -247,7 +247,7 @@
<value>58</value>
</data>
<data name="gridAssignedUsers.Size" type="System.Drawing.Size, System.Drawing">
<value>1062, 229</value>
<value>1062, 226</value>
</data>
<data name="gridAssignedUsers.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
@@ -415,7 +415,7 @@
<value>58</value>
</data>
<data name="gridAvailableUsers.Size" type="System.Drawing.Size, System.Drawing">
<value>1062, 201</value>
<value>1062, 199</value>
</data>
<data name="gridAvailableUsers.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
@@ -499,10 +499,10 @@
<value>1</value>
</data>
<data name="SplitContainer_Profilzuordnung2.Size" type="System.Drawing.Size, System.Drawing">
<value>1062, 484</value>
<value>1062, 479</value>
</data>
<data name="SplitContainer_Profilzuordnung2.SplitterDistance" type="System.Int32, mscorlib">
<value>254</value>
<value>251</value>
</data>
<data name="SplitContainer_Profilzuordnung2.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -565,7 +565,7 @@
<value>58</value>
</data>
<data name="gridAssignedGroups.Size" type="System.Drawing.Size, System.Drawing">
<value>1062, 199</value>
<value>1062, 196</value>
</data>
<data name="gridAssignedGroups.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
@@ -688,7 +688,7 @@
<value>58</value>
</data>
<data name="gridAvailableGroups.Size" type="System.Drawing.Size, System.Drawing">
<value>1062, 231</value>
<value>1062, 229</value>
</data>
<data name="gridAvailableGroups.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -775,10 +775,10 @@
<value>1</value>
</data>
<data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing">
<value>1062, 484</value>
<value>1062, 479</value>
</data>
<data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib">
<value>224</value>
<value>221</value>
</data>
<data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@@ -1843,7 +1843,7 @@
<value>246</value>
</data>
<data name="gridFinalIndex.Size" type="System.Drawing.Size, System.Drawing">
<value>714, 368</value>
<value>714, 363</value>
</data>
<data name="gridFinalIndex.TabIndex" type="System.Int32, mscorlib">
<value>93</value>
@@ -1870,7 +1870,7 @@
<value>714, 0</value>
</data>
<data name="PropertyGrid1.Size" type="System.Drawing.Size, System.Drawing">
<value>323, 368</value>
<value>323, 363</value>
</data>
<data name="PropertyGrid1.TabIndex" type="System.Int32, mscorlib">
<value>91</value>
@@ -1891,7 +1891,7 @@
<value>3, 23</value>
</data>
<data name="Panel5.Size" type="System.Drawing.Size, System.Drawing">
<value>1037, 368</value>
<value>1037, 363</value>
</data>
<data name="Panel5.TabIndex" type="System.Int32, mscorlib">
<value>94</value>
@@ -1948,7 +1948,7 @@
<value>3, 3, 3, 3</value>
</data>
<data name="TabPage11.Size" type="System.Drawing.Size, System.Drawing">
<value>1046, 382</value>
<value>1046, 377</value>
</data>
<data name="TabPage11.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -2134,7 +2134,7 @@
<value>3, 3, 3, 3</value>
</data>
<data name="TabPage12.Size" type="System.Drawing.Size, System.Drawing">
<value>1046, 385</value>
<value>1046, 380</value>
</data>
<data name="TabPage12.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@@ -2164,7 +2164,7 @@
<value>3, 3</value>
</data>
<data name="TabControl2.Size" type="System.Drawing.Size, System.Drawing">
<value>1054, 411</value>
<value>1054, 406</value>
</data>
<data name="TabControl2.TabIndex" type="System.Int32, mscorlib">
<value>92</value>
@@ -2188,7 +2188,7 @@
<value>3, 3, 3, 3</value>
</data>
<data name="TabPageAfterIndex.Size" type="System.Drawing.Size, System.Drawing">
<value>1060, 417</value>
<value>1060, 412</value>
</data>
<data name="TabPageAfterIndex.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@@ -2314,7 +2314,7 @@
<value>3, 3, 3, 3</value>
</data>
<data name="TabPage7.Size" type="System.Drawing.Size, System.Drawing">
<value>1068, 490</value>
<value>1068, 485</value>
</data>
<data name="TabPage7.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -2341,7 +2341,7 @@
<value>3, 3, 3, 3</value>
</data>
<data name="TabPage8.Size" type="System.Drawing.Size, System.Drawing">
<value>1068, 490</value>
<value>1068, 485</value>
</data>
<data name="TabPage8.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@@ -2368,7 +2368,7 @@
<value>3, 3</value>
</data>
<data name="TabControlProfilZuordnung.Size" type="System.Drawing.Size, System.Drawing">
<value>1076, 519</value>
<value>1076, 514</value>
</data>
<data name="TabControlProfilZuordnung.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@@ -2392,7 +2392,7 @@
<value>3, 3, 3, 3</value>
</data>
<data name="TabPage2.Size" type="System.Drawing.Size, System.Drawing">
<value>1082, 525</value>
<value>1082, 520</value>
</data>
<data name="TabPage2.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@@ -3549,7 +3549,7 @@ Top Kreditoren: </value>
<value>3, 3, 3, 3</value>
</data>
<data name="TabPage3.Size" type="System.Drawing.Size, System.Drawing">
<value>1082, 525</value>
<value>1082, 520</value>
</data>
<data name="TabPage3.TabIndex" type="System.Int32, mscorlib">
<value>2</value>

View File

@@ -5,6 +5,7 @@ Imports DD_LIB_Standards
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.Grid
Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.Language.Utils
Public Class frmAdministration
@@ -228,9 +229,12 @@ Public Class frmAdministration
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnWMSuche.Click
If IDB_ACTIVE = True Then
CURRENT_DESIGN_TYPE = "IDB_SEARCH"
Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = Me.WD_SEARCHTextBox.Text}
Dim oResult = oForm.ShowDialog()
Me.WD_SEARCHTextBox.Text = oForm.SQLCommand
Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {.SQLCommand = Me.WD_SEARCHTextBox.Text, .SQLConnection = 1}
oForm.ShowDialog()
If oForm.DialogResult = DialogResult.OK Then
Me.WD_SEARCHTextBox.Text = oForm.SQLCommand
End If
Else
If Not Me.WD_SEARCHTextBox.Text = "" Then
Me.dlgWindreamsuche.FileName = Me.WD_SEARCHTextBox.Text
@@ -1201,10 +1205,13 @@ Public Class frmAdministration
Private Sub BarButtonItem13_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem13.ItemClick
Try
Dim oSQL = BASEDATA_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW")
Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oSQL}
Dim oResult = oForm.ShowDialog()
Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {
.SQLCommand = oSQL,
.SQLConnection = 1
}
oForm.ShowDialog()
If oResult = DialogResult.OK Then
If oForm.DialogResult = DialogResult.OK Then
DatabaseFallback.ExecuteNonQueryECM(String.Format("UPDATE TBPM_KONFIGURATION SET SQL_PROFILE_MAIN_VIEW = '{0}' WHERE GUID = 1", oForm.SQLCommand.Replace("'", "''")))
BASEDATA_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") = oForm.SQLCommand
End If
@@ -1344,10 +1351,10 @@ Public Class frmAdministration
Try
Dim oSQL = BASEDATA_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW")
CURRENT_DESIGN_TYPE = "SQL_OVERVIEW"
Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oSQL}
Dim oResult = oForm.ShowDialog()
Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {.SQLCommand = oSQL, .SQLConnection = 1}
oForm.ShowDialog()
If oResult = DialogResult.OK Then
If oForm.DialogResult = DialogResult.OK Then
DatabaseFallback.ExecuteNonQueryECM(String.Format("UPDATE TBPM_KONFIGURATION SET SQL_PROFILE_MAIN_VIEW = '{0}' WHERE GUID = 1", oForm.SQLCommand.Replace("'", "''")))
BASEDATA_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") = oForm.SQLCommand
End If
@@ -1364,10 +1371,12 @@ Public Class frmAdministration
CURRENT_DESIGN_TYPE = "SQL_PROFILE"
Dim oSQL = $"SELECT [SQL_VIEW] FROM TBPM_PROFILE WHERE GUID = {CURRENT_ProfilGUID}"
Dim oldSQL = DatabaseFallback.GetScalarValueECM(oSQL)
Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL}
Dim oResult = oForm.ShowDialog()
Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {
.SQLCommand = oldSQL,
.SQLConnection = 1}
oForm.ShowDialog()
If oResult = DialogResult.OK Then
If oForm.DialogResult = DialogResult.OK Then
If oldSQL <> oForm.SQLCommand Then
Dim oUpdate As String = $"Update TBPM_PROFILE SET CHANGED_WHO = '{USER_USERNAME}', SQL_VIEW = '{oForm.SQLCommand.Replace("'", "''")}' WHERE GUID = {CURRENT_ProfilGUID}"
If DatabaseFallback.ExecuteNonQueryECM(oUpdate) = True Then
@@ -1389,10 +1398,12 @@ Public Class frmAdministration
CURRENT_DESIGN_TYPE = "SQL_BTNFINISH"
Dim oSQL = $"SELECT SQL_BTN_FINISH FROM TBPM_PROFILE WHERE GUID = {CURRENT_ProfilGUID}"
Dim oldSQL = DatabaseFallback.GetScalarValueECM(oSQL) ', CONNECTION_STRING_ECM, "bbtnItemFinishSQL_ItemClick-get SQL_BTN_FINISH")
Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL}
Dim oResult = oForm.ShowDialog()
Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {
.SQLCommand = oldSQL,
.SQLConnection = 1}
oForm.ShowDialog()
If oResult = DialogResult.OK Then
If oForm.DialogResult = DialogResult.OK Then
If oldSQL <> oForm.SQLCommand Then
Dim oUpdate As String = $"Update TBPM_PROFILE SET CHANGED_WHO = '{USER_USERNAME}', SQL_BTN_FINISH = '{oForm.SQLCommand.Replace("'", "''")}' WHERE GUID = {CURRENT_ProfilGUID}"
If DatabaseFallback.ExecuteNonQueryECM(oUpdate) = True Then
@@ -1654,10 +1665,13 @@ Public Class frmAdministration
Private Sub Series2SQL_Click(sender As Object, e As EventArgs) Handles Series1SQL.Click, Series2SQL.Click, Series3SQL.Click, Series4SQL.Click
Dim obutton As Button = sender
Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = obutton.Tag}
Dim oResult = oForm.ShowDialog()
Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {
.SQLCommand = obutton.Tag,
.SQLConnection = 1
}
oForm.ShowDialog()
If oResult = DialogResult.OK Then
If oForm.DialogResult = DialogResult.OK Then
If oForm.SQLCommand <> obutton.Tag Then
obutton.Tag = oForm.SQLCommand.Replace(" '", "''")
End If

View File

@@ -1,4 +1,6 @@
Imports DigitalData.GUIs.Common
Public Class frmColumn_Detail
Private Class ComboboxItem
@@ -110,15 +112,16 @@ Public Class frmColumn_Detail
Dim oldSQL = SQL_COMMANDTextBox.Text
CURRENT_DESIGN_TYPE = "SQL_SOURCE_TABLE_COLUMN"
CURRENT_INDEX_ID = GUIDTextBox.Text
Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL}
oForm.TopMost = True
Dim oResult = oForm.ShowDialog()
oForm.BringToFront()
Dim oForm2 As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {
.SQLCommand = SQL_COMMANDTextBox.Text,
.SQLConnection = 1
}
oForm2.ShowDialog()
If oResult = DialogResult.OK Then
If oldSQL <> oForm.SQLCommand Then
Dim oUpdate As String = $"Update TBPM_CONTROL_TABLE SET CHANGED_WHO = '{USER_USERNAME}', SQL_COMMAND = '{oForm.SQLCommand.Replace("'", "''")}'
, CONNECTION_ID = {oForm.ConnectionID} WHERE GUID = {GUIDTextBox.Text}"
If oForm2.DialogResult = DialogResult.OK Then
If oldSQL <> oForm2.SQLCommand Then
Dim oUpdate As String = $"Update TBPM_CONTROL_TABLE SET CHANGED_WHO = '{USER_USERNAME}', SQL_COMMAND = '{oForm2.SQLCommand.Replace("'", "''")}'
, CONNECTION_ID = {oForm2.SQLConnection} WHERE GUID = {GUIDTextBox.Text}"
If DatabaseFallback.ExecuteNonQueryECM(oUpdate) = True Then
tslblAenderungen.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
tslblAenderungen.Caption = "Changes saved - " & Now
@@ -158,19 +161,20 @@ Public Class frmColumn_Detail
Dim oldSQL = SQL_COMMANDTextBox.Text
CURRENT_DESIGN_TYPE = "SQL_SOURCE_TABLE_COLUMN"
CURRENT_INDEX_ID = GUIDTextBox.Text
Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL}
oForm.TopMost = True
Dim oResult = oForm.ShowDialog()
oForm.BringToFront()
Dim oForm2 As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {
.SQLCommand = SQL_COMMANDTextBox.Text,
.SQLConnection = 1
}
oForm2.ShowDialog()
If oResult = DialogResult.OK Then
If oldSQL <> oForm.SQLCommand Then
Dim oUpdate As String = $"Update TBPM_CONTROL_TABLE SET CHANGED_WHO = '{USER_USERNAME}', SQL_COMMAND = '{oForm.SQLCommand.Replace("'", "''")}'
, CONNECTION_ID = {oForm.ConnectionID} WHERE GUID = {GUIDTextBox.Text}"
If oForm2.DialogResult = DialogResult.OK Then
If oldSQL <> oForm2.SQLCommand Then
Dim oUpdate As String = $"Update TBPM_CONTROL_TABLE SET CHANGED_WHO = '{USER_USERNAME}', SQL_COMMAND = '{oForm2.SQLCommand.Replace("'", "''")}'
, CONNECTION_ID = {oForm2.SQLConnection} WHERE GUID = {GUIDTextBox.Text}"
If DatabaseFallback.ExecuteNonQueryECM(oUpdate) = True Then
tslblAenderungen.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
tslblAenderungen.Caption = "Changes saved - " & Now
SQL_COMMANDTextBox.Text = oForm.SQLCommand
SQL_COMMANDTextBox.Text = oForm2.SQLCommand
End If
End If

View File

@@ -7,6 +7,7 @@ Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
Imports DigitalData.Controls.LookupGrid
Imports DigitalData.Modules.Language.Utils
Imports System.Drawing
Imports DigitalData.GUIs.Common
Public Class frmFormDesigner
Public ProfileId As Integer
@@ -1146,10 +1147,13 @@ Public Class frmFormDesigner
CURRENT_DESIGN_TYPE = "SQL_BTNFINISH"
Dim oSQL = $"SELECT SQL_BTN_FINISH FROM TBPM_PROFILE WHERE GUID = {ProfileId}"
Dim oldSQL = DatabaseFallback.GetScalarValueECM(oSQL)
Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL}
Dim oResult = oForm.ShowDialog()
Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {
.SQLCommand = oldSQL,
.SQLConnection = 1
}
oForm.ShowDialog()
If oResult = DialogResult.OK Then
If oForm.DialogResult = DialogResult.OK Then
If oldSQL <> oForm.SQLCommand Then
Dim oUpdate As String = $"Update TBPM_PROFILE SET CHANGED_WHO = '{USER_USERNAME}', SQL_BTN_FINISH = '{oForm.SQLCommand.Replace("'", "''")}' WHERE GUID = {CURRENT_ProfilGUID}"
If DatabaseFallback.ExecuteNonQueryECM(oUpdate) = True Then

View File

@@ -38,6 +38,7 @@ Public Class frmInvDashboard
Configure_Split_Containers(groupCount)
charts = New List(Of ChartControl) From {ChartTopLeft, ChartTopRight, ChartBottomLeft, ChartBottomRight}
If groupCount >= 1 Then
LOGGER.Debug($"ChartCreating...Found {groupCount} ChartKonfigs")
SplitContainerDashboard.Visible = True
RibbonPageGroup1.Visible = True
RibbonPageGroup1.Enabled = False
@@ -49,7 +50,7 @@ Public Class frmInvDashboard
LOGGER.Debug($"ChartCreating...No chart-Configuration!! BASEDATA_DT_CHARTS = 0")
Exit Sub
End If
If groupCount > 1 Then
If groupCount >= 1 Then
LOGGER.Debug($"ChartCreating...Found more than one charts [{groupCount}]")
For Each gRow As DataRow In oGroups
Dim oGroupIndex As Integer = oGroups.IndexOf(gRow)

View File

@@ -42,7 +42,6 @@ Partial Class frmKonfig
Me.txtActualConnection = New System.Windows.Forms.TextBox()
Me.txtServer = New System.Windows.Forms.TextBox()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
Me.Button4 = New System.Windows.Forms.Button()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtIntervall = New System.Windows.Forms.TextBox()
@@ -64,7 +63,6 @@ Partial Class frmKonfig
Me.TBPM_KONFIGURATIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter()
Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit()
Me.TabControl1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.TabPage3.SuspendLayout()
@@ -74,7 +72,6 @@ Partial Class frmKonfig
CType(Me.gvLogs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'OpenFileDialog1
@@ -196,8 +193,6 @@ Partial Class frmKonfig
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.ComboBoxEdit1)
Me.TabPage3.Controls.Add(Me.LabelControl1)
Me.TabPage3.Controls.Add(Me.Button4)
Me.TabPage3.Controls.Add(Me.Label7)
Me.TabPage3.Controls.Add(Me.txtIntervall)
@@ -212,13 +207,6 @@ Partial Class frmKonfig
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.UseVisualStyleBackColor = True
'
'LabelControl1
'
Me.LabelControl1.Appearance.Font = CType(resources.GetObject("LabelControl1.Appearance.Font"), System.Drawing.Font)
Me.LabelControl1.Appearance.Options.UseFont = True
resources.ApplyResources(Me.LabelControl1, "LabelControl1")
Me.LabelControl1.Name = "LabelControl1"
'
'Button4
'
resources.ApplyResources(Me.Button4, "Button4")
@@ -351,14 +339,6 @@ Partial Class frmKonfig
Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'ComboBoxEdit1
'
resources.ApplyResources(Me.ComboBoxEdit1, "ComboBoxEdit1")
Me.ComboBoxEdit1.Name = "ComboBoxEdit1"
Me.ComboBoxEdit1.Properties.Appearance.Font = CType(resources.GetObject("ComboBoxEdit1.Properties.Appearance.Font"), System.Drawing.Font)
Me.ComboBoxEdit1.Properties.Appearance.Options.UseFont = True
Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))})
'
'frmKonfig
'
resources.ApplyResources(Me, "$this")
@@ -377,7 +357,6 @@ Partial Class frmKonfig
CType(Me.gvLogs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -420,6 +399,4 @@ Partial Class frmKonfig
Friend WithEvents LogNachrichtenLeerenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SpeichereLogAlsToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SaveFileDialog1 As SaveFileDialog
Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl
Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.ComboBoxEdit
End Class

View File

@@ -507,61 +507,6 @@
<data name="&gt;&gt;TabPage2.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="ComboBoxEdit1.Location" type="System.Drawing.Point, System.Drawing">
<value>8, 225</value>
</data>
<data name="ComboBoxEdit1.Properties.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<assembly alias="DevExpress.Utils.v21.2" name="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="ComboBoxEdit1.Properties.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v21.2">
<value>Combo</value>
</data>
<data name="ComboBoxEdit1.Size" type="System.Drawing.Size, System.Drawing">
<value>146, 22</value>
</data>
<data name="ComboBoxEdit1.TabIndex" type="System.Int32, mscorlib">
<value>49</value>
</data>
<data name="&gt;&gt;ComboBoxEdit1.Name" xml:space="preserve">
<value>ComboBoxEdit1</value>
</data>
<data name="&gt;&gt;ComboBoxEdit1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;ComboBoxEdit1.Parent" xml:space="preserve">
<value>TabPage3</value>
</data>
<data name="&gt;&gt;ComboBoxEdit1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="LabelControl1.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="LabelControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>8, 203</value>
</data>
<data name="LabelControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>146, 16</value>
</data>
<data name="LabelControl1.TabIndex" type="System.Int32, mscorlib">
<value>48</value>
</data>
<data name="LabelControl1.Text" xml:space="preserve">
<value>Schriftgröße in Übersicht:</value>
</data>
<data name="&gt;&gt;LabelControl1.Name" xml:space="preserve">
<value>LabelControl1</value>
</data>
<data name="&gt;&gt;LabelControl1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;LabelControl1.Parent" xml:space="preserve">
<value>TabPage3</value>
</data>
<data name="&gt;&gt;LabelControl1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="Button4.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
@@ -587,7 +532,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;Button4.ZOrder" xml:space="preserve">
<value>2</value>
<value>0</value>
</data>
<data name="Label7.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@@ -614,7 +559,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;Label7.ZOrder" xml:space="preserve">
<value>3</value>
<value>1</value>
</data>
<data name="txtIntervall.Location" type="System.Drawing.Point, System.Drawing">
<value>8, 162</value>
@@ -638,7 +583,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;txtIntervall.ZOrder" xml:space="preserve">
<value>4</value>
<value>2</value>
</data>
<data name="Label6.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@@ -665,7 +610,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;Label6.ZOrder" xml:space="preserve">
<value>5</value>
<value>3</value>
</data>
<data name="btnopenlog.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
@@ -692,7 +637,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;btnopenlog.ZOrder" xml:space="preserve">
<value>6</value>
<value>4</value>
</data>
<data name="chkLogErrorsOnly.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@@ -719,7 +664,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;chkLogErrorsOnly.ZOrder" xml:space="preserve">
<value>7</value>
<value>5</value>
</data>
<data name="Button3.Location" type="System.Drawing.Point, System.Drawing">
<value>8, 64</value>
@@ -743,7 +688,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;Button3.ZOrder" xml:space="preserve">
<value>8</value>
<value>6</value>
</data>
<data name="LinkLabel1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@@ -770,7 +715,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;LinkLabel1.ZOrder" xml:space="preserve">
<value>9</value>
<value>7</value>
</data>
<data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
<value>438, 64</value>
@@ -794,7 +739,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;Button1.ZOrder" xml:space="preserve">
<value>10</value>
<value>8</value>
</data>
<data name="btnLogMail.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
@@ -824,7 +769,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;btnLogMail.ZOrder" xml:space="preserve">
<value>11</value>
<value>9</value>
</data>
<data name="TabPage3.Location" type="System.Drawing.Point, System.Drawing">
<value>4, 26</value>

View File

@@ -26,17 +26,7 @@ Public Class frmKonfig
txtIntervall.Text = CONFIG.Config.ReminderTimer
Dim oFontSettings = New List(Of FontSetting) From {
New FontSetting With {.Title = "Kleiner", .Value = -2},
New FontSetting With {.Title = "Normal", .Value = 0},
New FontSetting With {.Title = "Größer", .Value = 2}
}
ComboBoxEdit1.Properties.Items.Clear()
ComboBoxEdit1.Properties.Items.AddRange(oFontSettings)
ComboBoxEdit1.SelectedItem = oFontSettings.
Where(Function(item) item.Value = CONFIG.Config.GridFontSizeDelta).
FirstOrDefault()
Catch ex As Exception
@@ -45,15 +35,6 @@ Public Class frmKonfig
End Try
End Sub
Public Class FontSetting
Public Property Title As String
Public Property Value As Integer
Public Overrides Function ToString() As String
Return Title
End Function
End Class
Private Sub cmbDatenbank_Click(sender As System.Object, e As System.EventArgs) Handles cmbDatenbank.Click
Try
@@ -273,12 +254,4 @@ Public Class frmKonfig
MsgBox("Error in Export: " & ex.Message)
End Try
End Sub
Private Sub ComboBoxEdit1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBoxEdit1.SelectedValueChanged
Try
CONFIG.Config.GridFontSizeDelta = DirectCast(ComboBoxEdit1.EditValue, FontSetting).Value
CONFIG.Save()
Catch ex As Exception
End Try
End Sub
End Class

View File

@@ -80,7 +80,7 @@ Partial Class frmMain
Me.BarCheckItem2 = New DevExpress.XtraBars.BarCheckItem()
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItemExportExcel = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItemWFSingle = New DevExpress.XtraBars.BarButtonItem()
@@ -88,17 +88,22 @@ Partial Class frmMain
Me.BarButtonItemFileLink = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItemMassValidation = New DevExpress.XtraBars.BarButtonItem()
Me.BarCheckItemShowSearch = New DevExpress.XtraBars.BarCheckItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.barItemGridFontSize = New DevExpress.XtraBars.BarEditItem()
Me.cmbGridFontSize = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPageStart = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupBasicConf = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup7 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageTabelle = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup6 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage4 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageAktionen = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup8 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RepositoryItemTrackBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemTrackBar()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl()
Me.DocumentViewerBarManager1 = New DevExpress.XtraPrinting.Preview.DocumentViewerBarManager(Me.components)
@@ -174,6 +179,7 @@ Partial Class frmMain
Me.bwBasicData = New System.ComponentModel.BackgroundWorker()
Me.XtraSaveFileDialog1 = New DevExpress.XtraEditors.XtraSaveFileDialog(Me.components)
Me.TimerInactivity = New System.Windows.Forms.Timer(Me.components)
Me.bsiRowCount = New DevExpress.XtraBars.BarStaticItem()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -184,6 +190,8 @@ Partial Class frmMain
Me.ContextMenuNotifyIcon.SuspendLayout()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cmbGridFontSize, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemTrackBar1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DocumentViewerBarManager1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemProgressBar2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemZoomTrackBar1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -366,12 +374,12 @@ Partial Class frmMain
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.bbtnitDashboardInv, Me.bsiGeneralInfo, Me.bbtnitmGhostMode, Me.bsi_GhostMode, Me.BarButtonItemGhostMode, Me.SearchItem1, Me.SearchItem2, Me.BarStaticItemAppServer, Me.bbtniCW, Me.bsiInactivityCheck, Me.BarButtonItem2, Me.BarCheckItemAutofilter, Me.BarCheckItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItemWFSingle, Me.BarButtonItemWFGroup, Me.BarButtonItemFileLink, Me.BarButtonItemMassValidation, Me.BarCheckItemShowSearch})
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.bbtnitDashboardInv, Me.bsiGeneralInfo, Me.bbtnitmGhostMode, Me.bsi_GhostMode, Me.BarButtonItemGhostMode, Me.SearchItem1, Me.SearchItem2, Me.BarStaticItemAppServer, Me.bbtniCW, Me.bsiInactivityCheck, Me.BarButtonItem2, Me.BarCheckItemAutofilter, Me.BarCheckItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItemExportExcel, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItemWFSingle, Me.BarButtonItemWFGroup, Me.BarButtonItemFileLink, Me.BarButtonItemMassValidation, Me.BarCheckItemShowSearch, Me.barItemGridFontSize, Me.BarButtonItem8, Me.bsiRowCount})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 40
Me.RibbonControl1.MaxItemId = 44
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3, Me.RibbonPage4})
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar1})
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageStart, Me.RibbonPageTabelle, Me.RibbonPageAktionen})
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar1, Me.RepositoryItemTrackBar1, Me.cmbGridFontSize})
Me.RibbonControl1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.Office2013
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowToolbarCustomizeItem = False
@@ -639,12 +647,13 @@ Partial Class frmMain
Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem4.Name = "BarButtonItem4"
'
'BarButtonItem5
'BarButtonItemExportExcel
'
resources.ApplyResources(Me.BarButtonItem5, "BarButtonItem5")
Me.BarButtonItem5.Id = 32
Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem5.Name = "BarButtonItem5"
resources.ApplyResources(Me.BarButtonItemExportExcel, "BarButtonItemExportExcel")
Me.BarButtonItemExportExcel.Id = 32
Me.BarButtonItemExportExcel.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemExportExcel.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItemExportExcel.Name = "BarButtonItemExportExcel"
Me.BarButtonItemExportExcel.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
'
'BarButtonItem6
'
@@ -697,11 +706,31 @@ Partial Class frmMain
Me.BarCheckItemShowSearch.ImageOptions.SvgImage = CType(resources.GetObject("BarCheckItemShowSearch.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarCheckItemShowSearch.Name = "BarCheckItemShowSearch"
'
'RibbonPage1
'barItemGridFontSize
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroupBasicConf, Me.RibbonPageGroup7, Me.RibbonPageGroup4})
Me.RibbonPage1.Name = "RibbonPage1"
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
resources.ApplyResources(Me.barItemGridFontSize, "barItemGridFontSize")
Me.barItemGridFontSize.CaptionToEditorIndent = 0
Me.barItemGridFontSize.Edit = Me.cmbGridFontSize
Me.barItemGridFontSize.Id = 41
Me.barItemGridFontSize.Name = "barItemGridFontSize"
'
'cmbGridFontSize
'
resources.ApplyResources(Me.cmbGridFontSize, "cmbGridFontSize")
Me.cmbGridFontSize.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("cmbGridFontSize.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))})
Me.cmbGridFontSize.Name = "cmbGridFontSize"
'
'BarButtonItem8
'
resources.ApplyResources(Me.BarButtonItem8, "BarButtonItem8")
Me.BarButtonItem8.Id = 42
Me.BarButtonItem8.Name = "BarButtonItem8"
'
'RibbonPageStart
'
Me.RibbonPageStart.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroupBasicConf, Me.RibbonPageGroup7, Me.RibbonPageGroup4})
Me.RibbonPageStart.Name = "RibbonPageStart"
resources.ApplyResources(Me.RibbonPageStart, "RibbonPageStart")
'
'RibbonPageGroup1
'
@@ -751,11 +780,11 @@ Partial Class frmMain
resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4")
Me.RibbonPageGroup4.Visible = False
'
'RibbonPage3
'RibbonPageTabelle
'
Me.RibbonPage3.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup6})
Me.RibbonPage3.Name = "RibbonPage3"
resources.ApplyResources(Me.RibbonPage3, "RibbonPage3")
Me.RibbonPageTabelle.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup6, Me.RibbonPageGroup5})
Me.RibbonPageTabelle.Name = "RibbonPageTabelle"
resources.ApplyResources(Me.RibbonPageTabelle, "RibbonPageTabelle")
'
'RibbonPageGroup6
'
@@ -765,15 +794,21 @@ Partial Class frmMain
Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonItem4)
Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonItem3)
Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonItem6)
Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonItem5)
Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonItemExportExcel)
Me.RibbonPageGroup6.Name = "RibbonPageGroup6"
resources.ApplyResources(Me.RibbonPageGroup6, "RibbonPageGroup6")
'
'RibbonPage4
'RibbonPageGroup5
'
Me.RibbonPage4.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup8})
Me.RibbonPage4.Name = "RibbonPage4"
resources.ApplyResources(Me.RibbonPage4, "RibbonPage4")
Me.RibbonPageGroup5.ItemLinks.Add(Me.barItemGridFontSize)
Me.RibbonPageGroup5.Name = "RibbonPageGroup5"
resources.ApplyResources(Me.RibbonPageGroup5, "RibbonPageGroup5")
'
'RibbonPageAktionen
'
Me.RibbonPageAktionen.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup8})
Me.RibbonPageAktionen.Name = "RibbonPageAktionen"
resources.ApplyResources(Me.RibbonPageAktionen, "RibbonPageAktionen")
'
'RibbonPageGroup8
'
@@ -781,6 +816,15 @@ Partial Class frmMain
Me.RibbonPageGroup8.ItemLinks.Add(Me.BarButtonItemMassValidation)
Me.RibbonPageGroup8.Name = "RibbonPageGroup8"
'
'RepositoryItemTrackBar1
'
Me.RepositoryItemTrackBar1.LabelAppearance.Options.UseTextOptions = True
Me.RepositoryItemTrackBar1.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center
Me.RepositoryItemTrackBar1.Maximum = 1
Me.RepositoryItemTrackBar1.Minimum = -1
Me.RepositoryItemTrackBar1.Name = "RepositoryItemTrackBar1"
Me.RepositoryItemTrackBar1.ShowLabels = True
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiUser)
@@ -794,6 +838,7 @@ Partial Class frmMain
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDebug)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiMessage)
Me.RibbonStatusBar1.ItemLinks.Add(Me.BarEditItem1)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiRowCount)
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
@@ -1404,6 +1449,11 @@ Partial Class frmMain
'TimerInactivity
'
'
'bsiRowCount
'
Me.bsiRowCount.Id = 43
Me.bsiRowCount.Name = "bsiRowCount"
'
'frmMain
'
Me.Appearance.Options.UseFont = True
@@ -1432,6 +1482,8 @@ Partial Class frmMain
Me.ContextMenuNotifyIcon.ResumeLayout(False)
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cmbGridFontSize, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemTrackBar1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DocumentViewerBarManager1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemProgressBar2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemZoomTrackBar1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1462,7 +1514,7 @@ Partial Class frmMain
Friend WithEvents PopupErinnerungInaktivierenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AnzeigenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageStart 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
@@ -1576,19 +1628,25 @@ Partial Class frmMain
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarCheckItemAutofilter As DevExpress.XtraBars.BarCheckItem
Friend WithEvents BarCheckItem2 As DevExpress.XtraBars.BarCheckItem
Friend WithEvents RibbonPage3 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageTabelle As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup6 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItemExportExcel As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItemWFSingle As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup7 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents BarButtonItemWFGroup As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItemFileLink As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPage4 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageAktionen As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup8 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents BarButtonItemMassValidation As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarCheckItemShowSearch As DevExpress.XtraBars.BarCheckItem
Friend WithEvents barItemGridFontSize As DevExpress.XtraBars.BarEditItem
Friend WithEvents cmbGridFontSize As DevExpress.XtraEditors.Repository.RepositoryItemComboBox
Friend WithEvents RibbonPageGroup5 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RepositoryItemTrackBar1 As DevExpress.XtraEditors.Repository.RepositoryItemTrackBar
Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents bsiRowCount As DevExpress.XtraBars.BarStaticItem
End Class

View File

@@ -125,7 +125,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAAXQBCAF0AQgBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CAAAAk1TRnQBSQFMAgEBAgEAAdQBCAHUAQgBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -282,7 +282,7 @@
</value>
</data>
<metadata name="cmsNavPane.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1012, 17</value>
<value>863, 17</value>
</metadata>
<data name="tsmiValidationProfil.Size" type="System.Drawing.Size, System.Drawing">
<value>219, 26</value>
@@ -471,13 +471,13 @@
<value>2</value>
</data>
<metadata name="bindsourcegrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>171, 56</value>
<value>17, 56</value>
</metadata>
<metadata name="NotifyIcon1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>490, 17</value>
</metadata>
<metadata name="ContextMenuNotifyIcon.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 56</value>
<value>250, 56</value>
</metadata>
<data name="PopupErinnerungInaktivierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>234, 22</value>
@@ -511,168 +511,96 @@
</data>
<data name="NotifyIcon1.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAMDAAAAEAIACoJQAAFgAAACgAAAAwAAAAYAAAAAEAIAAAAAAAgCUAABMLAAATCwAAAAAAAAAA
AAAxJKXfMSSl8jEkpe4uIqHuMCSk7lhC3e5eSOfuWELe7llD3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf7llD
3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf7llD3+5ZQ9/uW0Th7ldC3e43KK3uVkDa7l5G5e5YQ97uYEnp7j4v
uO4hF47uQDC77mBI6e5ZQ9/uWUPf7llD3+5YQt3uW0Xi7mBJ6u5fSOfuWUPf7lhC3u5ZQ9/uWUPf7llD
3+5ZQ9/uWUPf8llD398xJKX/MCOi/zIlqP84Kbz/LyKv/0Ewyf9oTvz/X0jm/19H5/9fR+f/X0fn/19H
5/9fR+f/X0fn/19H5/9fR+f/X0fn/19H5/9fR+f/X0fn/19H5/9fR+f/Xkfm/2hO8v9MOdP/Py7H/2ZN
9/9eR+X/ZUzx/1dB2f8rH6T/PS3D/2JK7P9gSOj/X0fn/19H5/9hSev/WELc/0w5zv9WQen/ZEv7/2FJ
6/9eR+X/X0fn/19I6P9aROH/WELe/1lD3/8xJKXuMiWp/zAjoP8pHov/KR6L/yEYfv9GM7//W0To/1A8
0P9RPdT/UT3U/1E91P9RPdT/UT3U/1E91P9RPdT/UT3U/1E91P9RPdT/UT3U/1E91P9RPdP/UT3T/11G
9f9PO8z/HBRu/z8vrf9ZQ+X/UT3U/1lD4/8tIY7/Jx2H/1VA3f9TPtX/UT3U/1E91P9WQdv/SDbK/ycd
kf8bFG//OSuk/1hC4P9SPtX/UT3U/1E90/9YQt3/WkTh/1lD3+4xJKXuOCm8/ykeiv8AAAD/AAAA/wAA
AP8CAQ//MSOs/zAjqf8sIZ7/LSGf/y0hn/8tIZ//LSGf/y0hn/8tIZ//LSGf/y0hn/8tIZ//LSGf/ywh
nf8tIZ//OCnD/yIZfP8AAAX/AAAA/ygekv8xJK7/LCCc/zUnuv8fFmT/AAAA/y0hn/8wJKr/LSGf/y0h
n/8sIJ3/MiWq/zYosf8GBBb/AAAA/yAYd/81J7n/LCCd/ygdmP9QPNP/YEjo/1lD3+4xJKXuNym6/yke
i/8AAAD/AAAA/wAAAP8AAAD/GhNb/zwsyv8wI6D/MCOk/zAjpP8wI6T/MCOk/zAjpP8wI6T/MCOk/zAj
pP8wI6T/MCOj/zAkpP88K8r/Ihlx/wAAAP8AAAD/KB2G/zorxP8vI6D/MCSk/zAkpP86KsT/DAkn/xoT
WP87K8f/LyOh/zAjpP8wI6T/LyOi/zkqwv8RDDr/AAAA/xkSVv87K8j/LyKg/ywgnv9RPdT/X0fn/1lD
3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AgII/zMmrP81J7L/MSSl/zEkpf8xJKX/MSSl/zEk
pf8xJKX/MSSl/zEkpf8xJKX/MCSi/z0szP8jGnf/AAAA/wAAAP8hGG7/PCzK/zAko/8xJKX/MSSl/zAk
o/83Kbv/KR6J/wsIJf83KLn/MiWo/zEkpf8xJKX/MSSn/zcpu/8NCSv/AAAA/w0KK/87K8f/MSSm/y0h
nv9RPdT/X0fn/1lD3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/xsUXP88LMr/MCOh/zEk
pf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8wI6D/OyvH/ykdif8AAAD/AAAA/x8Xav89Lc3/MSSm/zEk
pP8xJKX/MSSl/zEkpf8wI6L/OyvG/wsJJ/8ZE1b/PCzK/zAjof8xJKX/MSSk/zsrxf8WEEj/AAAA/wAA
AP8kGnr/Pi7T/y0hnv9RPdP/X0fn/1lD3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQD
D/80J7H/Myat/zEkpf8xJKX/MSSl/zEkpf8wJKT/MSSk/zEkpf87K8T/MCOh/wAAAP8AAAD/JBp3/zws
yv8xJKb/MCSj/zEkpf8xJKX/MSSl/zEkpf8xJKP/OirF/x4WZf8AAAD/Myas/zYotv8xJKP/MSSk/zco
uP8uIZn/AAAA/wAAAP8AAAH/Ihlz/zUnu/9RPdP/X0fn/1lD3+4xJKXuNym6/ykejP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8jGnb/OivE/zEko/8xJKP/MSSk/zQnsP86KsL/OirC/zkqv/81J7P/BwUW/wIB
Bf8qH4//QjHd/zkqwv86KsL/Nyi4/zIlp/8wI6L/MSSl/zEkpf8xJKX/Nii1/y8inf8AAAD/Dwsz/zws
yv8xJKT/MSSm/zAkov86KsT/Ixp4/wAAAP8AAAD/AAAA/yQbgv9ZQ+//Xkfk/1lD3+4xJKXuNym6/yke
jP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8QDDb/OSrA/zAjof83KLn/OirE/zEkp/8jGXX/FA5C/w4K
L/8DAgv/AAAA/wQDDf8PCzL/DAkq/xMOQf8gF2z/LCCT/zcpuv87K8b/NCaw/zAjov8xJKX/MiWp/zYn
tf8HBRj/AAAA/ykeif85KsD/MCSj/zEkpP8xJKX/OirD/y4imv8KByL/AAAA/wUDGP9YQen/X0jq/1lD
3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8BAQX/MSSl/z8v1f8uIpv/FQ9I/wQD
D/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/w0KLf8gF2z/MyWr/zsr
x/8zJq7/LyOf/zsrxf8WEEr/AAAA/w8LMf86K8P/MSSk/zEkpf8xJKT/MCOi/zssx/81J7T/BAMQ/wAA
AP9OO8b/Y0v4/1lD3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/KB2E/ycd
hP8AAAH/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/BgQT/x4WZv83KLf/OSq+/zwsyv8qH4//AAAA/wAAAP8tIZf/Nii2/zEkpf8xJKX/MSSl/zAj
n/89Lc3/HhZp/wAAAP9NOsH/Y0v4/1lD3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/BAMN/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8JBx//LCCS/zoqw/8gF2v/AAAA/wAAAP8dFV//OivD/zEk
pP8xJKX/MSSl/zEko/85KsD/JBp6/wAABf9UP97/YEjs/1lD3+4xJKXuNym6/ykejP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQACP8AAAD/AAAA/wAA
AP8ZD1L/Oi7E/zEkpP8wJKP/MSSk/zQnr/9BL9n/EQw7/xINQ/9bRPT/Xkfl/1lD3+4xJKXuNym6/yke
jP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8UWGH/GW50/xpydf8RS1b/AAAA/wAA
AP8AAAD/AAAA/wAAAP8FFRf/GWtz/xdmc/8bc3b/Cy81/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wg0
K/8acnP/FmZx/xZncf8nJoj/MRug/zMlq/86K8P/OSrB/zQmsP8ZE1b/CAYc/zEkr/9TP9v/X0fn/1lD
3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8y3fX/P////0L/
//8rvdn/AAAA/wAAAP8AAAD/AAAA/wAAAP8MNDn/Pf///zr///9E////G3eH/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/yGPm/9E////Of///zj///8pN5b/Mwyh/zcpuP8jGnb/EQ07/wAAAP8CAQT/LyKe/zQm
t/9QPND/X0fn/1lD3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8rvNT/Nuz//zj1//8loLv/AAAA/wAAAP8AAAD/AAAA/wAAAP8KLTH/NOT//zLa//86/f//F2Z0/wAA
AP8AAAD/Bhke/wUWGv8AAAD/AAAA/xx5hv86/P//MNv//zHd/P8sNZ7/Iwls/wwJKP8AAAD/AAAA/w0J
Lf82J7X/OCm8/ysfmf9RPdP/ZEvu/2BJ6u4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8rvdT/Nu3//zj2//8lobv/AAAA/wAAAP8AAAD/AAAA/wAAAP8KLTH/NOX//zLb
//86/f//F2Z0/wAAAP8AAAD/I5en/yGOm/8AAAD/AAAA/xx6hv86/P//Mtz//zXh//8VKlD/AAAA/wAA
AP8CAQf/HhZk/zkqwv81KLT/LiKf/zMmtf9aROb/WkTf/0Ixve4xJKXuNym6/ykejP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8rvdT/Nu3//zj2//8lobv/AAAA/wAAAP8AAAD/AAAA/wAA
AP8KLTH/NOX//zLb//86/f//F2Z0/wAAAP8AAAD/M+D8/zDU8f8AAAD/AAAA/xx6hv86/P//M93//zLg
/f8EIhf/BwIY/xsUXP8xJKX/OyvH/zEkpv81J7L/OivE/yYdgv81KJ//MyWt/ygdmO4xJKXuNym6/yke
jP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8rvdT/Nu3//zj2//8lobv/AAAA/wAA
AP8AAAD/AAAA/wAAAP8KLTH/NOX//zLb//86/f//F2d1/wAAAP8NPEH/Ofr//zj1//8LLjH/AAAA/xx7
h/86/P//Mt3//zDe+f8IJCb/Jwh7/z4t0P81J7T/MCOg/zorxP8yJar/FA9D/wAAAP8gF3f/Nii6/zIl
pu4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8rvdT/Nu3//zj2
//8lobv/AAAA/wAAAP8AAAD/AAAA/wAAAP8KLTH/NOb//zLb//86/f//F2Zz/wAAAP8ilan/Ovz//zv/
//8giJr/AAAA/xx6hv86/P//Mt3//zPg//8AHg3/FwFH/zgqvf8xJaf/PCzK/ykdiP8EAw7/AAAA/wAA
AP8qH4//Nym6/zEkpe4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8rvdT/Nu3//zn7//8jmbD/AAAA/wAAAP8AAAD/AAAA/wAAAP8KLTL/NOX//zLc//86/f//E1Jd/wAA
AP8z4Pz/NOL//zXn//8x1vP/AAAA/xhpc/86/P//Mt3//zPg//8BHg3/CAAT/zkqvv89Lc3/Hxdq/wAA
AP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEkpe4uIaDuNCe3/yYch/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8rvdT/Nu7//zTi//8swuP/IImY/x6Bjf8VV1v/AwwN/wAAAP8JJSr/NOP//zLb
//87/v//Dj1G/w04PP87////Mdf//zLY//86////DDQ5/xNSW/86/f//Mt3//zPg//8EIRj/AAAA/zws
yf8gFmj/AAAA/wAAAP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEkpe4zJqjuOCq8/yofj/8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8rvdT/Nu7//zDQ//8z4P//Ovz//zv///87/f//M+Dn/xJP
U/8BBAf/L872/zLZ//85+f//E1Nd/yGQof849v//Mdn//zLZ//85+P//H4mb/xRaX/85+f//Mt3//zPg
//8GIx//AgAC/xgSUv8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEkpe5cRePuX0jp/1E9
1P8qH5b/JBt7/xMNP/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8rvdT/Nu7//zDS//8z3f//N+///zTi
//8w0///Nu3//zn7//8ceon/I5e4/zHU//8z3v7/Ipao/y7K7P86+///IZCi/yKVqv85+v//LMHh/yKW
pv805P//M93//zPg//8IJCj/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEk
pe5ZQ97uY0rq/1hC3/83KMP/QTDf/0Qy5f8xJKT/Cwgn/wAAAP8AAAD/AAAA/wAAAP8rvdT/Nu7//zLb
//8uzO//KrXR/zDS8P848///MNP//zPg//815f//JJy4/yu74P8w0fz/Mdj7/zLa//86////Ci0x/w05
Pf87////Mtf//zLY//8w0///M9///zPg//8IJCf/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8pHoz/Nym6/zEkpe4xJKXuOyu8/zEkmP8OCzL/FxFN/x0VYP8vIpv/KR6J/wcEFf8AAAD/AAAA/wAA
AP8rvdT/Nu3//zn4//8knLX/AAAA/wUUFf8ehZH/N+///zHU//805P//KbHQ/yalxf8x0/v/M93//zXn
//8x1/X/AAAA/wEDAf8z4P3/NOP//zLb//8x1f//M9///zPg//8IJCf/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEkpe4uIqHuMya2/yQagv8AAAD/AAAA/wAAAP8AAAD/AgII/wMC
Cv8AAAD/AAAA/wAAAP8rvdT/Nu3//zj3//8loLn/AAAA/wAAAP8AAAD/MdPu/zTl//804v//KrjZ/ySf
vf8v0Pj/MdT//zv///8hj6L/AAAA/wAAAP8knLH/Ov7//zHT//8x1v//M9///zPg//8IJCf/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEkpe4xJKXuNym6/ykejP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8rvdT/Nu3//zn5//8knbb/AAAA/wAAAP8BBQT/Mtzy/zTi
//804v//KrfY/ySfvf8v0Pj/Mdf//zr6//8OO0D/AAAA/wAAAP8QR0//Ovz//zHU//8x1v//M9///zPg
//8IJCf/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEkpe4xJKXuNym6/yke
jP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8rvdT/Nu3//zjz//8lo77/Aw8R/ww1
OP8mpLP/Nu7//zDT//805f//KK/P/yakxP8w0vr/N/D//y3G5f8AAAD/AAAA/wAAAP8BBAP/L83s/zbq
//8x1v//M9///zPg//8IJCf/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEk
pe4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8qvdL/Nu7//zHW
//8x1Pz/MNL0/zbs//849P//L87//zTj//805f//I5i0/yu63v8w0f7/PP///xt5h/8AAAD/AAAA/wAA
AP8AAAD/HoST/zv///8w0///M9///zPg//8IJCf/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8pHoz/Nym6/zEkpe4xJKXuNym6/ygdi/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wEA
Av8svNf/Nu3//zDT//8y2f//NOP//zLZ//8x1///OPf//zn1//8acHz/IpS2/zHR/P8y2v//Nu3//wgm
KP8AAAD/AAAA/wAAAP8AAAD/CzA1/zj0//8x2P//M97//zPf//8IJCf/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEkpe4qHpruMSSy/yQbhP8AAAD/AAAA/wAAAP8CAgf/CQcf/xAM
N/8aE1f/IhRw/yQNdP8v1/D/N////zn6//85+///Ofv//zr7//837v//LsfO/w9AQv8CCw3/OPT//zr+
//9C////K7vV/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/y7H5P9B////Ov///zb///8JKiz/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEkpe5HNcTuUj7Y/0k3xf8lHIX/KR6M/ywg
lP8vIp3/NCaw/zkqvv86K8X/OCW6/y8dnP8uYrf/HG6G/xBeWv8XZXP/F2Vy/xRVYP8MNDL/AAAA/wAA
AP8EERT/GGt5/xhmc/8bdnb/Ci4z/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/ww0Of8adnH/FWNr/yJr
lv8BDwv/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEkpe5gSeruZUzv/1dB
3v8zJbT/Nie5/zYotv81J7L/MyWq/zEkpf8wJKP/MSWj/zAloP8tBYz/JgBx/wUABP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/FAA4/y8Bkf8EAA7/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEk
pe5ZQ9/uX0fn/1E91P8tIZ//MCOk/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSk/zEkpP8wJKD/NCew/zYn
tP8aElb/AQAC/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wEAA/8jGXT/OCm8/zkswv8oHoj/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8pHoz/OCq7/y4ioO5ZQ9/uX0fn/1E91P8tIZ//MCOk/zEkpf8xJKX/MSSl/zEkpP8wJKP/MSSl/zMl
qv82KLX/OCm9/z4uz/9DMeD/LCGV/wkHH/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/Ew4+/y8inv87K8f/MiWn/zAkov87LMf/Ixp2/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8kGoL/LiGt/zIlp+5ZQ9/uX0fn/1E91P8tIZ//MSOm/zMmrP81J7P/Nym6/zkq
wf86K8P/OCm9/zUnsv8uIpv/Jx2B/xsUW/8QDDj/DAkp/wQDDP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8BAQL/CAYc/xcRTv8qH4z/OSrA/zcpuv8wI6H/MSSl/zEkpP8xJKX/OivE/ysg
kv8RDTr/AgEG/wAAAP8AAAD/AAAA/wAAAP8vI5b/SzjX/1lD3u5gSeruZ03w/1hC4f80Jrf/Nie3/zMl
q/8uIpv/Kh6M/yEYcf8bFFv/Eg08/woHIv8BAQX/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wgGHP8mG33/Ixp1/yUbfP8tIZb/NCav/zorxf84Kbz/MSSl/zAko/8xJKX/MSSl/zEk
pf8xJKT/MCOi/zgpvP85Kr7/LiKa/yQaeP8hGG//Ixp2/ycdjf9VQNz/aE71/1xF5O5EM8DuSTfQ/zor
qv8PCzb/DQks/wcFGP8BAQT/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/Dgow/zYouP89Lc//OSrA/zgqv/82KLb/MyWr/zEko/8xJKT/MSSl/zEk
pf8xJKX/MSSl/zEkpf8xJKX/MSSl/zAko/8xJKb/NSe0/zkqwP85KsL/OCm//zIlsf9SPtb/Xkbl/1lD
3+4pHpruMCOx/yIZf/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8UD0T/OSrB/zcpuP8vI5//MSSk/zEkpP8xJKX/MSSl/zEk
pf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpP8xJKT/MCOj/y0h
n/9RPdT/X0fn/1lD3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/xoTWf87LMn/NSey/zAjof8xJKX/MSSl/zEk
pf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEk
pf8xJKX/MCOk/y0hn/9RPdT/X0fn/1lD3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/IRhw/z0tzf8zJa3/MCOi/zEk
pf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEk
pf8xJKX/MSSl/zEkpf8xJKX/MCOk/y0hn/9RPdT/X0fn/1lD3+4xJKXuNym6/ykei/8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8mHIL/PCzK/zEk
pv8wI6L/MCOk/zAjpP8wI6T/MCOk/zAjpP8wI6T/MCOk/zAjpP8wI6T/MCOk/zAjpP8wI6T/MCOk/zAj
pP8wI6T/MCOk/zAjpP8wI6T/MCOk/zAjpP8wI6T/LyKj/ywgnv9RPdT/X0fn/1lD3+4xJKXuOCm8/yke
iv8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAM/ygd
jv84KcT/LSGd/ywhnv8tIZ//LSGf/y0hn/8tIZ//LSGf/y0hn/8tIZ//LSGf/y0hn/8tIZ//LSGf/y0h
n/8tIZ//LSGf/y0hn/8tIZ//LSGf/y0hn/8tIZ//LSGf/y0hn/8tIZ//LCCe/ygdmP9QPNP/YEjo/1lD
3+4xJKXuMiWp/zAjoP8pHov/KR6L/ykejP8pHoz/KR6M/ykejP8pHoz/KR6M/ykejP8qHoz/Kx+N/yEX
f/8rIIz/Uz7U/1tE8P9QPdD/UT3U/1E91P9RPdT/UT3U/1E91P9RPdT/UT3U/1E91P9RPdT/UT3U/1E9
1P9RPdT/UT3U/1E91P9RPdT/UT3U/1E91P9RPdT/UT3U/1E91P9RPdT/UT3U/1E91P9RPdT/UT3U/1E9
0/9YQt3/WkTh/1lD3+4xJKX/MCOi/zIlqP83Kbv/Nym7/zcpuv83Kbr/Nym6/zcpuv83Kbr/Nym6/zcp
uv84Kbv/LyKu/zwswf9jSvv/Zk33/11H4/9fR+f/X0fn/19H5/9fR+f/X0fn/19H5/9fR+f/X0fn/19H
5/9fR+f/X0fn/19H5/9fR+f/X0fn/19H5/9fR+f/X0fn/19H5/9fR+f/X0fn/19H5/9fR+f/X0fn/19H
5/9fR+f/X0fn/19I6P9aROH/WELe/1lD3/8xJKXfMSSl8jEkpe4xJKXuMSSl7jEkpe4xJKXuMSSl7jEk
pe4xJKXuMSSl7jEkpe4sIJ3uOyyz7mBJ6e5fR+fuWELd7llD3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf7llD
3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf7llD
3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf8llD398AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAA=
AAABAAEAAAAAAAEAIADXFAAAFgAAAIlQTkcNChoKAAAADUlIRFIAAAEAAAABAAgGAAAAXHKoZgAAFJ5J
REFUeNrt3X1MVOeeB/Cv3CvZFJKOJEp3u10QxLCrgDLJjS6kAmlX+aNIXarhD66DjTW9GjJ9sb5Eb/Fq
qvZ14mobbaoYkpKqUcQ0oxej2ODi3mTQYSQxsCqkNXsHNjrkOuyu/MH+MXO8IzLDvJxznnPO8/0kRgSd
eY7J831+z3Oe58ysyclJmEFbgT0XQC6AivC3lN9tAEpEt4+k5AUQCH/dFfH7UP2gZ0h04+Ixy6gB0FZg
X4JQJ1d+vSi6TUQJGEMoDLoAdNUPem6JbtB0DBUAbQX2WgDKL3Z4spIxAO0A2usHPe2iG6MQHgDhkd4J
dnqShxIGLtGVgbAAaCuwOwA4AKwQ+R9AJNg1AC31g54WEW+uewCEO34zgBwRF0xkUMMAmvUOAt0CIDy/
d4EdnyiWYQBOvdYJNA+A8O27FrDUJ0rENQAOrW8npmn54m0F9mYA98HOT5SoFQDuh/uQZjSpAMKjfju4
QYdIDV4AtVpUA6pXAOFFvltg5ydSSwmAW+G+pSpVK4C2AnsLgPW6/bcQyedk/aDHodaLqRIAbQV2G0Il
P+f6RNq7htCUIJDqC6UcAOHO3wWW/ER68gKoSDUEUloDCG/jvQV2fiK9KesCS1J5kaQrgPAbd4H794lE
GkOoEriVzD9OKgDCZf8tcFcfkREMA1iSzHQg4SlAxJyfnZ/IGHIAdIX7ZkKSWQNoB+f8REZTglDfTEhC
ARC+z89bfUTGtCLcR+MWdwCEdyFxkw+Rsa1PZMdgXIuA4b39t8AVfyIziPvOQLwVQDvY+YnM4kWEjuDP
aMYACB9H5KIfkbmUxHOUOOYUIFz63xd9JUSUtPmxjhHPVAG0iG49EaWkJdYPowZA+Bl+vOVHZG4rwn15
WrEqAJfolhORKlzRfjBtAITvI3KrL5E15ETbGxCtAmgW3WIiUlXzdN98LgA4+hNZ0rRVwHQVgGPGlyIi
M3JM/cYz+wDCD/m4KbqVRKSZpZFbhKdWAE7RrSMiTTkj/zA1AGpFt46INFUb+YenARDeLMADP0TW9mLk
xqDICqA24ZciIjOqVb5gABDJp1b5Ig14uvrP8p9IDi8qnyegVAAVoltERLqqABgARLKqABgARLKqAIBZ
3y8ozQWf+kMko/lpAHJFt4KIhMhNA8t/IllVpPTx4ERkbqwAiOTFCoBIZmkAbKIbQURC2NLAT/0hklUJ
pwBEEmMAEEmMASCpzLwcvHamBa+daUFmHh8CLatZ3y8onUz9Zcgs0rNsKNzkwKINDc98v/94K+4cbcGT
hwHRTSQdMQAkkt+wFks/2ILZGRnT/nwiGMTNLw7jbusp0U0lnTAAJJBdWYbSbe/Blj8/rr8fuHsfvQe/
gv/qddFNJ40xACwsMy8Hpbu34uXy5Un9+wfdPejd+xke3xsWfSmkEQaABSnz/IXr1kQt9+M1EQxi4Iez
XB+wKAaAxeQ3rMXiTY14IXueqq877h/B7aMnuD5gMQwAi5hTWgz7zvcxt6RI0/cZ9frg+eRLPOrtE33J
pAIGgMmlZ9lgb96O3OrXdX3fIXcnPM0HOC0wOQaAiRXvcKoyz0+Wsj7Qt98l+r+CksQAMKFXVlejdGuT
6vP8ZI37R9D72SH8fN4tuimUIAaAiWTm5WDZp3s0n+cna9Trw42PPuZtQxNhAJhAepYNRR9uwcK33hTd
lLgMnD4H3+eHuT5gAgwAgyvc/DYWb1wvbJ6frIlgELe/PYk7R74T3RSKgQFgUNmVZVi2d5dh5vnJGveP
4MbufdxWbFAMAINJdfuuUXFbsTExAAwi2jFdq+GxY2NhABjATMd0rYbHjo2DASBQosd0rYbHjsVjAAiQ
mZeDIue7um/fNaohdyd8rm+4PiAAA0BHah7TtRoeOxaDAaATrY7pWg23FeuLAaAxvY7pWg2PHeuDAaAR
Ucd0EzHq9QGAocOJx4619WvRDbCqV4+5DNuxpt6GM/JtyNzq15Hxdy/hcp1DdFMsiR8MIpn+463oqKp5
5h783dZT6KiqQf/xVtHNI50xACTxoLsHF1auQd9+17Tl9JOHAfTtd+HCyjV40N0jurmkE04BLC7RzTaP
7w3jp8Yt0m9SkgUrAIuaCAZx0/U13Kvqktpp5796He5Vdbjp+hoTwaDoyyGNMAAsaOD0OXRU1ahyFv/O
ke/QUVWDgdPnRF8WaYABYCGjXh8urFwDz859qt42e/IwAM/Ofbiwcs3TW4dkDQwACxj3j+DKO024XOfQ
dD/943vDuFznwJV3mjDuHxF92aQCBoCJTQSD6D/eivPl1bqeqPNfvY7z5dXoP97K9QGTYwCY1JC7Ex1V
NUKfyd+334WOqhoMuTtF/3dQkhgAJjPq9eHiukb0NG03xPbYJw8D6GnajovrGrk+YELcB2ASRj8l96i3
D5frHDz1aDKsAEzi/o+XDNv5I91tPYX7P14S3QyKEwOASGIMACKJMQCIJMYAIJIYA4BIYgwAIokxAIgk
xgAgkhgDgEhiDAAiiTEAiCTGACCSGAOASGIMACKJMQCIJMYAIJIYA4BIYgwAIokxAIgkxgAgkhgDgEhi
DAAiiTEAiCTGADCJefYlyMzLEd2MGWXm5WCefYnoZlCcGAAayMzLQcZL2aq+5tySIqw624riHU7RlxdV
8Q4nVp1txdySIlVfN+OlbFOEnxnN+n5B6aToRlhFepYNhZscWLhuDWZnZGj2Pkb7mLBXVlejdGuTph8H
NhEMYuCHs7hztMUQn4loFQwAlejRCaYa9frg+eRLPOrtE3LNc0qLYd/5vuojfixGCz+zYwCkSEQnmGrI
3QlP8wHdRsb0LBvszduRW/26sGsWHX5WwQBIkhE6QaSJYBC3vz2JO0e+0/R9Cje/jcUb12s6xUmE3uFn
NQyAJBitE0Qa94/gxu598F+9rurrZleWYdneXYb82G9lfaBvv0t0U0yHAZAAI3eCqUa9Ptz46GM8vjec
0utk5uVg2ad7hE5x4qVV+FkZAyAOZuoEU/Ufb01q5Vy5o7FoQ4PoS0iYWuEnAwZADOlZNhR9uAUL33pT
dFNSMhEM4uYXh3G39VRcfz+/YS2WfrDFkFOcRAycPgff54e5PhADAyAKq3SCSIG799F78KuoJXJ2ZRlK
t70HW/580U1VTaLhJxsGwBRW7ARTPejuQe/ez56WyJl5OSjdvRUvly8X3TTNzBR+smIAhMnQCSIpK+cA
NN+5aCRTw0920geAmRe7KHnJLo5ajdQBkN+wFos3NZrith6pb9w/gttHT0i9PiBlAGRXlqFo80ZT3tYj
9Y16ffAd+VbK9QGpAiAzLwdFzncNs32XjGXI3Qmf6xup1gekCYDiHU6pFrsoObJtK7Z8AIg4pkvmJ8ux
41/9a9bfNotuhBbmlBaj/N8O4h9/W4/ZmcYc9YfcnRhoO4M5hQsN20atTASD8Bz4ChPj/wNbQb7o5jxn
dmYG/uFfqvDSin/Go/+8h//9L7/oJmnCsgGw0FFv2Ll+4O59/Pv2j3HnmxN41NeP++0/YvJXaZi3tER0
03TRf7wV15u24b//w4Nf3Jcxersfc/6pEH+TNUd0056T8VI2/u8vf4G/+4bopmiCzwTU0UQwiD/94SDc
q+qeWXF+8jCAvv0uXFi5Bg+6e0Q3UzMPuntwYeUa9O13PXP/3X/1Otyr6vCnPxzERDAouplS+bXoBsgi
no0nj+8N46fGLZbbjhzvNty7rafw849/5MYsHbEC0Nio1zftqBeLMiLedH1t6hFxIhjETdfXz1U8schS
DRkFA0Aj4/4RXHmnCZfrHEnfV75z5Dt0VNVg4PQ50ZeTsIHT59BRVZP0I8qUaujKO00Y94+IvhzLYgCo
TBn1zpdXq7Kz7MnDADw79+HCyjUY9fpEX96MlIrHs3OfKvvs/Vev43x5temrIaNiAKgo1VEvlsf3hnG5
zmHYEVGNiicWM1dDRsYAUMGo14eL6xpVG/ViUUbE/uOthhgRJ4JB9B9vVa3iiUWphi6uazRFNWQGDIAU
jPtH0P3hLlyuc+j+fPq+/S50VNVgyN0p7PqH3J3oqKrRfdvso94+XK5zoPvDXYashsyEAZCEyFFP5FbR
Jw8D6GnarvuIqFQ8PU3bhZ6n//m821DVkBkxABIkatSLRa8RUWTFE4sRqiGzYgDESVnkEj3qxfLzeTfc
NfWaLJQNnD4Hd029YQ/HKNWQURdJjYoBEKfgn/2meGDEk4cB/NJ5VfXX/aXzqmGDL5L/6nUE/2zNgzta
YAAQSYwBQCQxBgCRxBgARBJjABBJjAFAJDEGAJHEGABEEmMAEEmMAUAkMQYAkcQYAEQSYwAQSYwBQCQx
BgCRxBgARBJjABBJjAFAJDEGAJHEGABEEmMAEEmMAUAkMQYAkcQYAHGyLchD8Q4n0rNsopsSU3ZlGYo2
b1T9dYs2b0R2ZZnoy5tR8Q4nbAvyRDfDNBgAcZqdkYFFGxpQ3dGGV1ZXi27Oc9KzbFh+6ACqjh3C3JIi
1V9/bkkRqo4dwvJDBwwZgq+srsbqbjcWbWjA7IwM0c0xDQZAgl7Inofyz/fhtTMtmFNaLLo5AEKjXs2V
DuRWv675e+VWv46aKx0o3uEUfdkAgDmlxXjtTAvKP9+HF7LniW6O6TAAkjS3pAirfjghdEQUNeop1dDq
brewakipeFb9cEKTikcWDIAUKSNi4ea3dXvPzLwcQ4x6kdVQZl6Obu9buPlt3Soeq2MAqGB2RgaWOn+H
1d1uTRfK0rNssH+yC29cOmuoUW9uSRHeuHQW9k92aVoNZVeWYXW3G0udv+M8XyUMABW9kD0PVccOaTIi
KqPewrfeFH2ZUS18601NqiGl4qk6dojzfJUxADSg5ohotlFPzWrIqBWPlTAANKSMiPkNaxP+t5l5OXj1
xGHTjnpKNfTqicNJVUP5DWsNX/FYAQNAY7MzMvCb329D9cUzcY2I6Vk2FO9w4o1LZ/Fy+XLRzU/Zy+XL
8cals3FvosquLEP1xTP4ze+3maLiMTsGgE5s+fNnHBGVUW/RhgbRzVXdog0NMauhyIrHlj9fdHOlwQDQ
2XQjoiyj3nTVkNUqHrOZ9f2C0knRjdBK8Q4nFq5bY9hONe4fwUivV9r72UPuTswrLTHsGsdEMIiBH86i
b79LdFM0Y+kAAMIryc3bpe1klJwhdyc8zQfw5GFAdFM0ZfkAUMwpLYZ95/u8nUQxjXp98HzyJR719olu
ii6kCQBFfsNaLN7UaNiyk8QY94/g9tETuNt6SnRTdCVdAAChaUHhJoeh1wdIH8o8/87RFsuX+9ORMgAU
mXk5KN29VdrV54lgEACkDcEH3T3o3fsZHt8bFt0UYaQOAEV2ZRlKt70n1f3n/uOtuHO0BQBQuMlhyb0H
0QTu3kfvwa/gv3pddFOEYwBEyG9Yi6UfbLH0iBht1JOhGpoIBnHzi8PSzfNjYQBMoawPWG1EjHfUs2o1
pFQ8Ms7zY2EARJGZl4Nln+4x/W3DiWAQt789iTtHvkvo3xVufhuLN643fTU06vXhxkcfSz3Pj4UBMIPs
yjIs27vLlLcNB06fg+/zw0mPeulZNhR9uMWUJ/LG/SO4sXsf5/kzYADEyUwjotqjnpmqoWQrHlkxABJg
9BFR61HP6NVQqhWPjBgASTDatmK9D60Y7ZCVbNt31cQASMErq6tRurVJ6Igo6tCKEQ5ZjftH0PvZIfx8
3i2sDWbHAFCBiBHRKKOeiGpIhmO6emEAqESvEdGoo55e1dCQuxM+1ze8racSBoDKlA/nVHtENMOhFS0P
WY16ffAd+Za39VTGANCImseOzTbqZebloMj5rirVkKzHdPXCANBQqtuKzX5oJdVqiNt3tccA0EGiB22s
dmgl0UNWPKarHwaAjuI5aGPVUS+easjsFY8ZMQAEmG5ElGXUm64aslrFYyYMAEGUbcV//2qZlIdWlG3F
v/x0ndt3BWIAEEmMnwxEJDEGAJHE0gB4RTeCiITwpgEIiG4FEQkR4BSASGJpALpEN4KIhOhiBUAkMVYA
RPLqSgMwJLoVRCTE0KzJyUm0FdgDAF4U3Roi0s1Y/aDHpqwBdIluDRHpqgv4607ALtGtISJddQEMACJZ
dQHArMnJ0GFArgMQSWOsftBjA549DNQuulVEpIt25QsGAJF82pUvnk4BAE4DiCTwtPwHnn8eQLvo1hGR
ptoj/zA1AFyiW0dEmnJF/uGZAKgf9NwCcE10C4lIE9fCffyp6U4DtohuJRFpomXqN55ZBFS0FdiHAOSI
bi0RqWa4ftCTO/Wb0Z4H0Cy6tUSkqubpvjltBQCwCiCykGlHfyD2Y8GdoltNRKpwRvtB1AoAANoK7F0A
VohuPREl7Vr9oKci2g9neiagQ3TriSgljlg/jBkA9YOeIQB7RF8BESVlT7gPRxVzCqBoK7DfAlAi+mqI
KG7e+kHPkpn+UryPBa8FMCb6iogoLmOIc/oeVwCEywin6Ksiorg4p275jSbuDwapH/S0ADgp+sqIKKaT
4b4al7jWACLx1iCRYcW85TedZD4arBb8SHEio/Ei1DcTknAFAABtBXYbQk8V5Z0BIvGGASypH/QEEv2H
SX04aPiNHOCdASLRxgDUJtP5gSQDAHj68JAKhNKHiPQ3DKAi3hX/6SQ1BYjE6QCREF6EOn8glRdJugJQ
hBtQAT5KjEgv16BC5wdUqAAitRXYWwCsF/bfQmR9J+sHPQ61XizlCiBSuGGN4OIgkdrGADSq2fkBlSsA
RVuBPReh549zXYAodV6EVvqH1H5hTQJA0VZgbwbwsWZvQGR9e+oHPc1avbimAQA8rQZawO3DRIm4BsCh
xagfSfMAULQV2GsR+lQSPmiUKLphhE7ztevxZroFgKKtwO5A6BHFDAKivxoG0JzIST416B4AinAQOMCp
AcntGoAWvTu+QlgAKNoK7EsQethILfjR5CSHMYTukrlS2carBuEBECm8TqD8YhiQlSidvl2v+X08DBUA
kcKVQUXELwYCmckYQmdkugB0iR7pozFsAEwVvp2Yi1AYIOJ3G7jhiMTwAgiEv+6K+H1I69t3avl/OWHG
baPg47kAAAAASUVORK5CYII=
</value>
</data>
<data name="NotifyIcon1.Text" xml:space="preserve">
@@ -691,7 +619,7 @@
<value>525, 95</value>
</metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>305, 56</value>
<value>151, 56</value>
</metadata>
<data name="bbtniRefresh.Caption" xml:space="preserve">
<value>Aktualisieren</value>
@@ -1369,10 +1297,10 @@
IkdyZWVuIiAvPg0KPC9zdmc+Cw==
</value>
</data>
<data name="BarButtonItem5.Caption" xml:space="preserve">
<data name="BarButtonItemExportExcel.Caption" xml:space="preserve">
<value>Export Übersicht</value>
</data>
<data name="BarButtonItem5.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="BarButtonItemExportExcel.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
@@ -1705,6 +1633,21 @@
Cjwvc3ZnPgs=
</value>
</data>
<data name="barItemGridFontSize.Caption" xml:space="preserve">
<value>Schriftgröße</value>
</data>
<data name="cmbGridFontSize.AutoHeight" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="cmbGridFontSize.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v21.2">
<value>Combo</value>
</data>
<data name="barItemGridFontSize.EditWidth" type="System.Int32, mscorlib">
<value>100</value>
</data>
<data name="BarButtonItem8.Caption" xml:space="preserve">
<value>BarButtonItem8</value>
</data>
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
@@ -1726,16 +1669,19 @@
<data name="RibbonPageGroup4.Text" xml:space="preserve">
<value>Funktionen/App Start</value>
</data>
<data name="RibbonPage1.Text" xml:space="preserve">
<data name="RibbonPageStart.Text" xml:space="preserve">
<value>Start</value>
</data>
<data name="RibbonPageGroup6.Text" xml:space="preserve">
<value>Funktionen</value>
</data>
<data name="RibbonPage3.Text" xml:space="preserve">
<data name="RibbonPageGroup5.Text" xml:space="preserve">
<value>Workflow Tabelle</value>
</data>
<data name="RibbonPageTabelle.Text" xml:space="preserve">
<value>Tabelle</value>
</data>
<data name="RibbonPage4.Text" xml:space="preserve">
<data name="RibbonPageAktionen.Text" xml:space="preserve">
<value>Aktionen</value>
</data>
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
@@ -2333,10 +2279,10 @@
<data name="&gt;&gt;BarButtonItem4.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarButtonItem5.Name" xml:space="preserve">
<value>BarButtonItem5</value>
<data name="&gt;&gt;BarButtonItemExportExcel.Name" xml:space="preserve">
<value>BarButtonItemExportExcel</value>
</data>
<data name="&gt;&gt;BarButtonItem5.Type" xml:space="preserve">
<data name="&gt;&gt;BarButtonItemExportExcel.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarButtonItem6.Name" xml:space="preserve">
@@ -2381,10 +2327,28 @@
<data name="&gt;&gt;BarCheckItemShowSearch.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarCheckItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
<value>RibbonPage1</value>
<data name="&gt;&gt;barItemGridFontSize.Name" xml:space="preserve">
<value>barItemGridFontSize</value>
</data>
<data name="&gt;&gt;RibbonPage1.Type" xml:space="preserve">
<data name="&gt;&gt;barItemGridFontSize.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarEditItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;cmbGridFontSize.Name" xml:space="preserve">
<value>cmbGridFontSize</value>
</data>
<data name="&gt;&gt;cmbGridFontSize.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarButtonItem8.Name" xml:space="preserve">
<value>BarButtonItem8</value>
</data>
<data name="&gt;&gt;BarButtonItem8.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageStart.Name" xml:space="preserve">
<value>RibbonPageStart</value>
</data>
<data name="&gt;&gt;RibbonPageStart.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup1.Name" xml:space="preserve">
@@ -2423,10 +2387,10 @@
<data name="&gt;&gt;RibbonPageGroup4.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage3.Name" xml:space="preserve">
<value>RibbonPage3</value>
<data name="&gt;&gt;RibbonPageTabelle.Name" xml:space="preserve">
<value>RibbonPageTabelle</value>
</data>
<data name="&gt;&gt;RibbonPage3.Type" xml:space="preserve">
<data name="&gt;&gt;RibbonPageTabelle.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup6.Name" xml:space="preserve">
@@ -2435,10 +2399,16 @@
<data name="&gt;&gt;RibbonPageGroup6.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage4.Name" xml:space="preserve">
<value>RibbonPage4</value>
<data name="&gt;&gt;RibbonPageGroup5.Name" xml:space="preserve">
<value>RibbonPageGroup5</value>
</data>
<data name="&gt;&gt;RibbonPage4.Type" xml:space="preserve">
<data name="&gt;&gt;RibbonPageGroup5.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageAktionen.Name" xml:space="preserve">
<value>RibbonPageAktionen</value>
</data>
<data name="&gt;&gt;RibbonPageAktionen.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup8.Name" xml:space="preserve">
@@ -2447,6 +2417,12 @@
<data name="&gt;&gt;RibbonPageGroup8.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RepositoryItemTrackBar1.Name" xml:space="preserve">
<value>RepositoryItemTrackBar1</value>
</data>
<data name="&gt;&gt;RepositoryItemTrackBar1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.Repository.RepositoryItemTrackBar, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;DocumentViewerBarManager1.Name" xml:space="preserve">
<value>DocumentViewerBarManager1</value>
</data>
@@ -2867,6 +2843,12 @@
<data name="&gt;&gt;TimerInactivity.Type" xml:space="preserve">
<value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;bsiRowCount.Name" xml:space="preserve">
<value>bsiRowCount</value>
</data>
<data name="&gt;&gt;bsiRowCount.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmMain</value>
</data>
@@ -3226,19 +3208,19 @@
<value>RibbonPage2</value>
</data>
<metadata name="ApplicationMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>586, 56</value>
<value>432, 56</value>
</metadata>
<metadata name="bwSync.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>738, 56</value>
<value>584, 56</value>
</metadata>
<metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>831, 56</value>
<value>677, 56</value>
</metadata>
<data name="SaveFileDialog1.Filter" xml:space="preserve">
<value>PDF Files (*.pdf*)|*.pdf</value>
</data>
<metadata name="bwBasicData.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>968, 56</value>
<value>814, 56</value>
</metadata>
<metadata name="XtraSaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>235, 95</value>

File diff suppressed because it is too large Load Diff

View File

@@ -1,447 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSQL_DESIGNER
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()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSQL_DESIGNER))
Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
Me.TBDD_CONNECTIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter()
Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.btnShowConnections = New System.Windows.Forms.Button()
Me.Label14 = New System.Windows.Forms.Label()
Me.cmbConnection = New System.Windows.Forms.ComboBox()
Me.SQL_COMMANDTextBox = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.dgvPlaceholders = New System.Windows.Forms.DataGridView()
Me.colPlaceholder = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.colReplace = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.btnTestSQL = New System.Windows.Forms.Button()
Me.lbIndexe = New System.Windows.Forms.Label()
Me.cmbIndexe = New System.Windows.Forms.ComboBox()
Me.btnAddIndex = New System.Windows.Forms.Button()
Me.btnSaveSQLCommand = New System.Windows.Forms.Button()
Me.lblSaveFinalIndex = New System.Windows.Forms.Label()
Me.btnAddControl = New System.Windows.Forms.Button()
Me.lblControls = New System.Windows.Forms.Label()
Me.cmbControls = New System.Windows.Forms.ComboBox()
Me.cmbStatic = New System.Windows.Forms.ComboBox()
Me.btnAddStatic = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.cmbUser = New System.Windows.Forms.ComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.btnAddUser = New System.Windows.Forms.Button()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'DD_DMSLiteDataSet
'
Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'TableAdapterManager
'
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.Connection = Nothing
Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing
Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing
Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing
Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing
Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Nothing
Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing
Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing
Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'TBDD_CONNECTIONTableAdapter
'
Me.TBDD_CONNECTIONTableAdapter.ClearBeforeFill = True
'
'TBDD_CONNECTIONBindingSource
'
Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION"
Me.TBDD_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet
'
'btnShowConnections
'
Me.btnShowConnections.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnShowConnections.Image = Global.DD_ProcessManager.My.Resources.Resources.database_go1
Me.btnShowConnections.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnShowConnections.Location = New System.Drawing.Point(220, 31)
Me.btnShowConnections.Name = "btnShowConnections"
Me.btnShowConnections.Size = New System.Drawing.Size(111, 24)
Me.btnShowConnections.TabIndex = 82
Me.btnShowConnections.Text = "Connections"
Me.btnShowConnections.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnShowConnections.UseVisualStyleBackColor = True
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label14.Location = New System.Drawing.Point(12, 9)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(76, 16)
Me.Label14.TabIndex = 81
Me.Label14.Text = "Connection:"
'
'cmbConnection
'
Me.cmbConnection.DataSource = Me.TBDD_CONNECTIONBindingSource
Me.cmbConnection.DisplayMember = "BEZEICHNUNG"
Me.cmbConnection.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbConnection.FormattingEnabled = True
Me.cmbConnection.Location = New System.Drawing.Point(12, 31)
Me.cmbConnection.Name = "cmbConnection"
Me.cmbConnection.Size = New System.Drawing.Size(200, 24)
Me.cmbConnection.TabIndex = 80
Me.cmbConnection.ValueMember = "GUID"
'
'SQL_COMMANDTextBox
'
Me.SQL_COMMANDTextBox.AcceptsReturn = True
Me.SQL_COMMANDTextBox.AcceptsTab = True
Me.SQL_COMMANDTextBox.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.SQL_COMMANDTextBox.Font = New System.Drawing.Font("Courier New", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SQL_COMMANDTextBox.Location = New System.Drawing.Point(15, 125)
Me.SQL_COMMANDTextBox.Multiline = True
Me.SQL_COMMANDTextBox.Name = "SQL_COMMANDTextBox"
Me.SQL_COMMANDTextBox.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.SQL_COMMANDTextBox.Size = New System.Drawing.Size(898, 167)
Me.SQL_COMMANDTextBox.TabIndex = 86
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(9, 109)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(81, 13)
Me.Label4.TabIndex = 85
Me.Label4.Text = "SQL-Command:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label1.Location = New System.Drawing.Point(13, 316)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(65, 15)
Me.Label1.TabIndex = 91
Me.Label1.Text = "Platzhalter:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label5.Location = New System.Drawing.Point(304, 316)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(55, 15)
Me.Label5.TabIndex = 90
Me.Label5.Text = "Ergebnis:"
'
'dgvPlaceholders
'
Me.dgvPlaceholders.AllowUserToAddRows = False
Me.dgvPlaceholders.AllowUserToDeleteRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan
Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace})
Me.dgvPlaceholders.Enabled = False
Me.dgvPlaceholders.Location = New System.Drawing.Point(15, 337)
Me.dgvPlaceholders.Name = "dgvPlaceholders"
Me.dgvPlaceholders.Size = New System.Drawing.Size(286, 133)
Me.dgvPlaceholders.TabIndex = 88
'
'colPlaceholder
'
Me.colPlaceholder.HeaderText = "Platzhalter"
Me.colPlaceholder.Name = "colPlaceholder"
Me.colPlaceholder.ReadOnly = True
'
'colReplace
'
Me.colReplace.HeaderText = "Ersetzung"
Me.colReplace.Name = "colReplace"
'
'btnTestSQL
'
Me.btnTestSQL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnTestSQL.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle))
Me.btnTestSQL.Image = CType(resources.GetObject("btnTestSQL.Image"), System.Drawing.Image)
Me.btnTestSQL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnTestSQL.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnTestSQL.Location = New System.Drawing.Point(745, 302)
Me.btnTestSQL.Name = "btnTestSQL"
Me.btnTestSQL.Size = New System.Drawing.Size(168, 29)
Me.btnTestSQL.TabIndex = 87
Me.btnTestSQL.Text = "Teste SQL-Command"
Me.btnTestSQL.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnTestSQL.UseVisualStyleBackColor = True
'
'lbIndexe
'
Me.lbIndexe.AutoSize = True
Me.lbIndexe.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbIndexe.Location = New System.Drawing.Point(678, 13)
Me.lbIndexe.Name = "lbIndexe"
Me.lbIndexe.Size = New System.Drawing.Size(203, 16)
Me.lbIndexe.TabIndex = 93
Me.lbIndexe.Text = "Index (zur Laufzeit ausgewertet):"
'
'cmbIndexe
'
Me.cmbIndexe.FormattingEnabled = True
Me.cmbIndexe.Location = New System.Drawing.Point(681, 32)
Me.cmbIndexe.Name = "cmbIndexe"
Me.cmbIndexe.Size = New System.Drawing.Size(194, 21)
Me.cmbIndexe.TabIndex = 92
'
'btnAddIndex
'
Me.btnAddIndex.Image = CType(resources.GetObject("btnAddIndex.Image"), System.Drawing.Image)
Me.btnAddIndex.Location = New System.Drawing.Point(881, 32)
Me.btnAddIndex.Name = "btnAddIndex"
Me.btnAddIndex.Size = New System.Drawing.Size(32, 23)
Me.btnAddIndex.TabIndex = 94
Me.btnAddIndex.UseVisualStyleBackColor = True
'
'btnSaveSQLCommand
'
Me.btnSaveSQLCommand.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSaveSQLCommand.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnSaveSQLCommand.Image = CType(resources.GetObject("btnSaveSQLCommand.Image"), System.Drawing.Image)
Me.btnSaveSQLCommand.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSaveSQLCommand.Location = New System.Drawing.Point(816, 658)
Me.btnSaveSQLCommand.Name = "btnSaveSQLCommand"
Me.btnSaveSQLCommand.Size = New System.Drawing.Size(95, 30)
Me.btnSaveSQLCommand.TabIndex = 95
Me.btnSaveSQLCommand.Text = "Speichern"
Me.btnSaveSQLCommand.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSaveSQLCommand.UseVisualStyleBackColor = True
'
'lblSaveFinalIndex
'
Me.lblSaveFinalIndex.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblSaveFinalIndex.AutoSize = True
Me.lblSaveFinalIndex.BackColor = System.Drawing.Color.Yellow
Me.lblSaveFinalIndex.Location = New System.Drawing.Point(304, 658)
Me.lblSaveFinalIndex.Name = "lblSaveFinalIndex"
Me.lblSaveFinalIndex.Size = New System.Drawing.Size(38, 13)
Me.lblSaveFinalIndex.TabIndex = 96
Me.lblSaveFinalIndex.Text = "Label4"
Me.lblSaveFinalIndex.Visible = False
'
'btnAddControl
'
Me.btnAddControl.Image = CType(resources.GetObject("btnAddControl.Image"), System.Drawing.Image)
Me.btnAddControl.Location = New System.Drawing.Point(643, 32)
Me.btnAddControl.Name = "btnAddControl"
Me.btnAddControl.Size = New System.Drawing.Size(32, 23)
Me.btnAddControl.TabIndex = 99
Me.btnAddControl.UseVisualStyleBackColor = True
'
'lblControls
'
Me.lblControls.AutoSize = True
Me.lblControls.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblControls.Location = New System.Drawing.Point(442, 13)
Me.lblControls.Name = "lblControls"
Me.lblControls.Size = New System.Drawing.Size(215, 16)
Me.lblControls.TabIndex = 98
Me.lblControls.Text = "Controls (zur Laufzeit ausgewertet):"
'
'cmbControls
'
Me.cmbControls.FormattingEnabled = True
Me.cmbControls.Location = New System.Drawing.Point(445, 31)
Me.cmbControls.Name = "cmbControls"
Me.cmbControls.Size = New System.Drawing.Size(194, 21)
Me.cmbControls.TabIndex = 97
'
'cmbStatic
'
Me.cmbStatic.FormattingEnabled = True
Me.cmbStatic.Items.AddRange(New Object() {"USERNAME", "MACHINE", "DOMAIN", "DATE"})
Me.cmbStatic.Location = New System.Drawing.Point(445, 86)
Me.cmbStatic.Name = "cmbStatic"
Me.cmbStatic.Size = New System.Drawing.Size(194, 21)
Me.cmbStatic.TabIndex = 97
'
'btnAddStatic
'
Me.btnAddStatic.Image = CType(resources.GetObject("btnAddStatic.Image"), System.Drawing.Image)
Me.btnAddStatic.Location = New System.Drawing.Point(643, 86)
Me.btnAddStatic.Name = "btnAddStatic"
Me.btnAddStatic.Size = New System.Drawing.Size(32, 23)
Me.btnAddStatic.TabIndex = 99
Me.btnAddStatic.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(442, 67)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(112, 16)
Me.Label2.TabIndex = 98
Me.Label2.Text = "Umgebungsdaten:"
'
'cmbUser
'
Me.cmbUser.FormattingEnabled = True
Me.cmbUser.Items.AddRange(New Object() {"PRENAME", "SURNAME", "SHORTNAME", "LANGUAGE", "EMAIL", "USER_ID", "PROFILE_ID", "PROFILE_TITLE"})
Me.cmbUser.Location = New System.Drawing.Point(681, 86)
Me.cmbUser.Name = "cmbUser"
Me.cmbUser.Size = New System.Drawing.Size(194, 21)
Me.cmbUser.TabIndex = 97
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(678, 67)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(118, 16)
Me.Label3.TabIndex = 98
Me.Label3.Text = "Anwendungsdaten:"
'
'btnAddUser
'
Me.btnAddUser.Image = CType(resources.GetObject("btnAddUser.Image"), System.Drawing.Image)
Me.btnAddUser.Location = New System.Drawing.Point(881, 84)
Me.btnAddUser.Name = "btnAddUser"
Me.btnAddUser.Size = New System.Drawing.Size(32, 23)
Me.btnAddUser.TabIndex = 99
Me.btnAddUser.UseVisualStyleBackColor = True
'
'GridControl1
'
Me.GridControl1.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.GridControl1.Location = New System.Drawing.Point(307, 337)
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(604, 318)
Me.GridControl1.TabIndex = 100
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'GridView1
'
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
'
'frmSQL_DESIGNER
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(921, 692)
Me.Controls.Add(Me.GridControl1)
Me.Controls.Add(Me.btnAddUser)
Me.Controls.Add(Me.btnAddStatic)
Me.Controls.Add(Me.btnAddControl)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.lblControls)
Me.Controls.Add(Me.cmbUser)
Me.Controls.Add(Me.cmbStatic)
Me.Controls.Add(Me.cmbControls)
Me.Controls.Add(Me.lblSaveFinalIndex)
Me.Controls.Add(Me.btnSaveSQLCommand)
Me.Controls.Add(Me.btnAddIndex)
Me.Controls.Add(Me.lbIndexe)
Me.Controls.Add(Me.cmbIndexe)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.dgvPlaceholders)
Me.Controls.Add(Me.btnTestSQL)
Me.Controls.Add(Me.SQL_COMMANDTextBox)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.btnShowConnections)
Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.cmbConnection)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MinimizeBox = False
Me.MinimumSize = New System.Drawing.Size(937, 392)
Me.Name = "frmSQL_DESIGNER"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "SQL - Designer"
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet
Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter
Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents btnShowConnections As System.Windows.Forms.Button
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents cmbConnection As System.Windows.Forms.ComboBox
Friend WithEvents SQL_COMMANDTextBox As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents dgvPlaceholders As System.Windows.Forms.DataGridView
Friend WithEvents colPlaceholder As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents colReplace As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents btnTestSQL As System.Windows.Forms.Button
Friend WithEvents lbIndexe As System.Windows.Forms.Label
Friend WithEvents cmbIndexe As System.Windows.Forms.ComboBox
Friend WithEvents btnAddIndex As System.Windows.Forms.Button
Friend WithEvents btnSaveSQLCommand As System.Windows.Forms.Button
Friend WithEvents lblSaveFinalIndex As System.Windows.Forms.Label
Friend WithEvents btnAddControl As Button
Friend WithEvents lblControls As Label
Friend WithEvents cmbControls As ComboBox
Friend WithEvents cmbStatic As ComboBox
Friend WithEvents btnAddStatic As Button
Friend WithEvents Label2 As Label
Friend WithEvents cmbUser As ComboBox
Friend WithEvents Label3 As Label
Friend WithEvents btnAddUser As Button
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
End Class

View File

@@ -1,313 +0,0 @@
<?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="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>255, 17</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1032, 17</value>
</metadata>
<metadata name="TBDD_CONNECTIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1205, 17</value>
</metadata>
<metadata name="colPlaceholder.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="colReplace.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnTestSQL.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAKhJREFUOE+dkb0RAiEQhSnFIgyMyckNLMI6zB0zS0FruBKugdMACFdWecoBw49v
5ku43W8eh7DWkmcxxhzFP2HB4bqnaZ7IS27OuU341BcW7E7bN5f7ebxNLGCG26QCENo0qQq01qSUIill
kaIAV+Dz0lJMJkhr89BjeRZZCeIfh8UamcDzfbphQRoIMITKYFhQoykogUUQ1n7pFYTxPBDUaAp6+EwL
8QKzYQ6as7QBdAAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnAddIndex.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="btnSaveSQLCommand.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFRJREFUOE9j+P//P0UYTHz79u0/Cfg9EBswAAGKAU5OTnD84f1HOEYWA9FtbW1w
Q8gyAIRhhpBtAAiD9BBlADJGVkNbA4jBowYMSgPIwXADyMf/GQC4A6rkpAjLjQAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnAddControl.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="btnAddStatic.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="btnAddUser.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="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAMAICAQAAEABADoAgAANgAAACAgAAABAAgAqAgAAB4DAAAgIAAAAQAgAKgQAADGCwAAKAAAACAA
AABAAAAAAQAEAAAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAP///////wAAAAAAAAAAD///
////////8AAAAAAAD//4d3d3d3d3j//wAAAAD/+Hd3d3d3d3d3d4//AAAA/3d3d3d3d3d3d3d3/wAAD/
d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3d3d3d/8AAP93d3d3d3d3d3d3d3f/AAD/d3d3d3d3d3d3d3d3
/wAA/3d3d3d3d3d3d3d3d/8AAP93d3d3d3d3d3d3d3f/AAD/d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3
d3d3d/8AAP93d3d3d3d3d3d3d3f/AAD/d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3d3d3d/8AAP93d3d3
d3d3d3d3d3f/AAD/d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3d3d3d/8AAP93d3d3d3d3d3d3d3f/AAD/
d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3d3d3d/8AAP93d3eI/////4h3d3f/AAD/d3f//////////3d3
/wAA/3eP///////////4d/8AAP93j///////////+Hf/AAD/d3f//////////3d3/wAAD/d3d4j/////
iHd3f/AAAA//h3d3d3d3d3d3eP/wAAAAD//4d3d3d3d3j//wAAAAAAAP///////////wAAAAAAAAAAD/
//////8AAAAAAP/AA//+AAB/+AAAH+AAAAfgAAAHwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA
AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA+AA
AAfgAAAH+AAAH/4AAH//wAP/KAAAACAAAABAAAAAAQAIAAAAAAAABAAAAAAAAAAAAAAAAQAAAAEAAAAA
AABCQkIATU1NAG9vbwB5eXkAhoaGAJGRkQCamZkApKOkALOzswDFxMUAycnJANDPzwDm5OUA6+vrAPHv
8AD29vYA+Pj4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//
/wAAAAAAAAAAAAAAEREQEBAQEBAQEBERAAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEBAQEBAQEBAQEBAA
AAAAAAAAAAAAAAAQEBAOCQYDAQEBAQEBAQIDBgkOEBAQAAAAAAAAAAAREBALBAEBAQEBAQEBAQEBAQEB
AQEECxAQEQAAAAAAABAQBQEBAQEBAQEBAQEBAQEBAQEBAQEBBRAQAAAAAAAQEAUBAQEBAQEBAQEBAQEB
AQEBAQEBAQEBBRAQAAAAABAQAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAAEBABAQEBAQEBAQEB
AQEBAQEBAQEBAQEBAQEQEAAAAAAQEAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBARAQAAAAABAQAQEBAQEB
AQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAAEBABAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEQEAAAAAAQEAEB
AQEBAQEBAQEBAQEBAQEBAQEBAQEBARAQAAAAABAQAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAA
EBABAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEQEAAAAAAQEAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBARAQ
AAAAABAQAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAAEBABAQEBAQEBAQEBAQEBAQEBAQEBAQEB
AQEQEAAAAAAQEAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBARAQAAAAABAQAQEBAQEBAQEBAQEBAQEBAQEB
AQEBAQEBEBAAAAAAEBABAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEQEAAAAAAQEAEBAQEBAQEBAQEBAQEB
AQEBAQEBAQEBARAQAAAAABAQAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAAEBABAQEBAQQICg0P
Dw8PDw8NCggEAQEBAQEQEAAAAAAQEAEBAgcNDw8PDw8PDw8PDw8PDw8NBwIBARAQAAAAABAOAQEMDw8P
Dw8PDw8PDw8PDw8PDw8PDAEBEBAAAAAAEA4BAQwPDw8PDw8PDw8PDw8PDw8PDw8MAQEQEAAAAAAQEAUB
AgcNDw8PDw8PDw8PDw8PDw8NBwIBBRAQAAAAAAAQDgUBAQEECAoNDw8PDw8PDQoIBAEBAQUOEAAAAAAA
ABEQEAsEAQEBAQEBAQEBAQEBAQEBAQQLEBARAAAAAAAAAAAQEBAOCQYDAQEBAQEBAQEDBgkOEBAQAAAA
AAAAAAAAAAAAEBAQEBAQEBAQEBAQEBAQEBAQAAAAAAAAAAAAAAAAAAAAAAARERAQEBAQEBAQEREAAAAA
AAAAAAAA/8AD//4AAH/4AAAf4AAAB+AAAAfAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA
AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAAD4AAAB+AA
AAf4AAAf/gAAf//AA/8oAAAAIAAAAEAAAAABACAAAAAAAIAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vYg9vb2cPb29p/29va/9vb2//b29v/29vb/9vb2//b2
9v/29vb/9vb2//b29v/29va/9vb2n/b29nD29vYgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29hD29vZw9vb23/b29v/29vb/9vb2//b29v/29vb/9vb2//b2
9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vbf9vb2cPb29hAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vZQ9vb27/b29v/29vb/6+vr/7Ozs/+RkZH/b29v/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9NTU3/b29v/5GRkf+zs7P/6+vr//b29v/29vb/9vb27/b2
9lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2n/b29v/29vb/ycnJ/3p6ev9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/enp6/8nJ
yf/29vb/9vb2//b29p8AAAAAAAAAAAAAAAAAAAAAAAAAAPb29nD29vb/9vb2/4aGhv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/4aGhv/29vb/9vb2//b29nAAAAAAAAAAAAAAAAAAAAAA9vb23/b29v+Ghob/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/4aGhv/29vb/9vb23wAAAAAAAAAAAAAAAAAAAAD29vb/9vb2/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAPb2
9v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v8AAAAAAAAAAAAA
AAAAAAAA9vb2//b29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2/wAA
AAAAAAAAAAAAAAAAAAD29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b2
9v/29vb/AAAAAAAAAAAAAAAAAAAAAPb29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2//b29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv/29vb/9vb2/wAAAAAAAAAAAAAAAAAAAAD29vb/9vb2/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAPb29v/29vb/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2//b2
9v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2/wAAAAAAAAAAAAAAAAAA
AAD29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v/29vb/AAAAAAAA
AAAAAAAAAAAAAPb29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b2
9v8AAAAAAAAAAAAAAAAAAAAA9vb2//b29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv/29vb/9vb2/wAAAAAAAAAAAAAAAAAAAAD29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAPb29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2//b29v9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2/wAAAAAAAAAAAAAAAAAAAAD29vb/9vb2/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAPb2
9v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv95eHj/pKOk/8XExf/m5OX/8e/w//Hv8P/x7/D/8e/w//Hv
8P/x7/D/5uTl/8XExf+ko6T/eXh4/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v8AAAAAAAAAAAAA
AAAAAAAA9vb2//b29v9CQkL/QkJC/01NTf+amZn/5uTl//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv
8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/5uTl/5qZmf9NTU3/QkJC/0JCQv/29vb/9vb2/wAA
AAAAAAAAAAAAAAAAAAD29vb/6+vr/0JCQv9CQkL/0M/P//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv
8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/9DPz/9CQkL/QkJC//b2
9v/29vb/AAAAAAAAAAAAAAAAAAAAAPb29v/r6+v/QkJC/0JCQv/Qz8//8e/w//Hv8P/x7/D/8e/w//Hv
8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/0M/P/0JC
Qv9CQkL/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb23/b29v+Ghob/QkJC/01NTf+amZn/5uTl//Hv
8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/5uTl/5qZ
mf9NTU3/QkJC/4aGhv/29vb/9vb23wAAAAAAAAAAAAAAAAAAAAD29vZw9vb2/+vr6/+Ghob/QkJC/0JC
Qv9CQkL/eXh4/6SjpP/FxMX/5uTl//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/+bk5f/FxMX/pKOk/3l4
eP9CQkL/QkJC/0JCQv+Ghob/6+vr//b29v/29vZwAAAAAAAAAAAAAAAAAAAAAAAAAAD29vaf9vb2//b2
9v/Jycn/enp6/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/QkJC/0JCQv96enr/ycnJ//b29v/29vb/9vb2nwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAD29vZQ9vb27/b29v/29vb/6+vr/7Ozs/+RkZH/b29v/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC
Qv9CQkL/b29v/5GRkf+zs7P/6+vr//b29v/29vb/9vb27/b29lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD29vYQ9vb2cPb29t/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2
9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb23/b29nD29vYQAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29iD29vZw9vb2n/b29r/29vb/9vb2//b2
9v/29vb/9vb2//b29v/29vb/9vb2//b29r/29vaf9vb2cPb29iAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAP8AAP/4AAAf8AAAD+AAAAfAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA
AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA
AAPgAAAH8AAAD/gAAB//AAD/
</value>
</data>
</root>

View File

@@ -1,299 +0,0 @@
Imports System.Text.RegularExpressions
Imports Oracle.ManagedDataAccess.Client
Imports DD_LIB_Standards
Public Class frmSQL_DESIGNER
Dim CurrentPosition As Integer = 0
Dim CurrentPlaceholders As New Placeholders()
Dim CurrentTableType As String
Dim AtPlaceholderPattern As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" '"\[%[0-9A-Za-z_-]{1,}\]"
Public Class Placeholders
Public Property RecordId As Integer
Public Property ParentRecordId As Integer
Public Property FormId As Integer
End Class
Public Property SQLCommand() As String
Get
Return SQL_COMMANDTextBox.Text
End Get
Set(value As String)
SQL_COMMANDTextBox.Text = value
End Set
End Property
Public Property ConnectionID As Integer
Private Sub TBPM_PROFILE_FINAL_INDEXINGBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
Validate()
TableAdapterManager.UpdateAll(Me.DD_DMSLiteDataSet)
End Sub
Private Sub frmSQL_FINAL_INDICES_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
lblSaveFinalIndex.Visible = False
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
If CURRENT_DESIGN_TYPE = "INPUT_INDEX" Then
CURRENT_DT_SQL_CONFIG_TABLE = DatabaseFallback.GetDatatableECM(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_UEBERPRUEFUNG,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_CONTROLS T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_CONTROL_ID)) ', "frmSQL_FINAL_INDICES_Load1")
ElseIf CURRENT_DESIGN_TYPE = "FINAL_INDEX" Then
CURRENT_DT_SQL_CONFIG_TABLE = DatabaseFallback.GetDatatableECM(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_COMMAND,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_FINAL_INDEXING T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0} ORDER BY T.SEQUENCE", CURRENT_INDEX_ID)) ', "frmSQL_FINAL_INDICES_Load2")
ElseIf CURRENT_DESIGN_TYPE = "SQL_SOURCE_TABLE_COLUMN" Then
CURRENT_DT_SQL_CONFIG_TABLE = DatabaseFallback.GetDatatableECM(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_COMMAND,'') AS 'SQL_COMMAND' FROM TBPM_CONTROL_TABLE T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_INDEX_ID)) ', "frmSQL_FINAL_INDICES_Load2")
End If
If CURRENT_DESIGN_TYPE = "SQL_OVERVIEW" Then
cmbConnection.Enabled = False
btnShowConnections.Enabled = False
Else
cmbConnection.Enabled = True
btnShowConnections.Enabled = True
End If
If (CURRENT_DESIGN_TYPE = "INPUT_INDEX") Or CURRENT_DESIGN_TYPE = "FINAL_INDEX" Or CURRENT_DESIGN_TYPE = "SQL_BTNFINISH" Or CURRENT_DESIGN_TYPE = "SQL_SOURCE_TABLE_COLUMN" Then
If Not IsNothing(CURRENT_DT_SQL_CONFIG_TABLE) Then
If CURRENT_DT_SQL_CONFIG_TABLE.Rows.Count = 1 Then
cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID")
cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING"))
End If
End If
Dim oSQL = String.Format("SELECT NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND CTRL_TYPE <> 'LBL' ORDER BY NAME", CURRENT_ProfilGUID)
Dim oDatatable As DataTable = DatabaseFallback.GetDatatableECM(oSQL) ', "frmSQL_FINAL_INDICES_Load3")
cmbControls.DataSource = oDatatable
cmbControls.DisplayMember = oDatatable.Columns(0).ColumnName
cmbControls.Visible = True
lblControls.Visible = True
btnAddControl.Visible = True
cmbIndexe.Items.Clear()
If IDB_ACTIVE = False Then
If MyIndicies IsNot Nothing Then
For Each index As String In MyIndicies
cmbIndexe.Items.Add(index)
Next
cmbIndexe.SelectedIndex = -1
End If
'cmbIndexe.Enabled = True
'lbIndexe.Enabled = True
'btnAddIndex.Enabled = True
Else
Dim oAttributes = IDBData.GetIndicesByBE(CURRENT_OBJECTTYPE)
If oAttributes IsNot Nothing Then
For Each oAttribute As String In oAttributes
cmbIndexe.Items.Add(oAttribute)
Next
cmbIndexe.SelectedIndex = -1
End If
'cmbIndexe.Enabled = False
'lbIndexe.Enabled = False
'btnAddIndex.Enabled = False
End If
Else
cmbControls.Visible = False
lblControls.Visible = False
btnAddControl.Visible = False
cmbIndexe.Visible = False
lbIndexe.Visible = False
btnAddIndex.Visible = False
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unexpected Error while loading form: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub SQL_COMMANDTextBox_TextChanged(sender As Object, e As EventArgs) Handles SQL_COMMANDTextBox.TextChanged, SQL_COMMANDTextBox.Click
CurrentPosition = SQL_COMMANDTextBox.SelectionStart
If SQL_COMMANDTextBox.Text.Trim().Count = 0 Then
dgvPlaceholders.Enabled = False
Else
dgvPlaceholders.Enabled = True
End If
CheckForPlaceholders()
End Sub
Private Sub CheckForPlaceholders()
Dim text As String = SQL_COMMANDTextBox.Text
dgvPlaceholders.Rows.Clear()
Dim patterns As List(Of clsPatterns.Pattern) = clsPatterns.GetAllPatterns(text)
For Each pattern In patterns
dgvPlaceholders.Rows.Add({pattern.ToString, ""})
Next
'Dim count As Integer = 0
'Dim text As String = Me.Value
'Dim atPlaceholderRegex = New Regex(AtPlaceholderPattern, RegexOptions.IgnoreCase)
'Dim matches As MatchCollection = atPlaceholderRegex.Matches(text)
'dgvPlaceholders.Rows.Clear()
'For Each match As Match In matches
' dgvPlaceholders.Rows.Add({match.Value, ""})
'Next
End Sub
Private Sub btnTestSQL_Click(sender As Object, e As EventArgs) Handles btnTestSQL.Click
Dim query As String = SQL_COMMANDTextBox.Text
For Each row As DataGridViewRow In dgvPlaceholders.Rows
Dim placeholder As String = row.Cells(0).Value
Dim replacement As String = row.Cells(1).Value
' Wenn Ersetzung ausgefüllt wurde, Platzhalter damit ersetzen
If Not String.IsNullOrEmpty(replacement) Then
Dim pattern As New clsPatterns.Pattern(placeholder)
query = clsPatterns.ReplacePattern(query, pattern.Type, replacement)
Else
MsgBox("Bitte geben Sie für den Platzhalter " & placeholder & " einen Wert an!", MsgBoxStyle.Exclamation, "Fehlende Platzhalter Ersetzung")
Exit Sub
End If
Next
Dim ds As DataSet = ExecuteWithConnection(cmbConnection.SelectedValue, query)
If ds IsNot Nothing Then
GridView1.Columns.Clear()
GridView1.PopulateColumns(ds.Tables(0))
GridControl1.DataSource = ds.Tables(0)
End If
End Sub
Private Function ExecuteWithConnection(connectionId As Integer, sql As String) As DataSet
Try
Dim connectionString As String
'connectionString = ClassDatabase.Get_ConnectionString(connectionId)
connectionString = DatabaseFallback.GetConnectionString(connectionId)
If connectionString <> "" Then
If (connectionString.StartsWith("Server=") And connectionString.Contains("Database=")) Or (connectionString.StartsWith("Data Source=") And connectionString.Contains("Initial Catalog=")) Then
Dim sqlConnection As SqlClient.SqlConnection
Dim sqlCommand As SqlClient.SqlCommand
Dim sqlAdapter As New SqlClient.SqlDataAdapter
Dim dataset As New DataSet
sqlConnection = New SqlClient.SqlConnection(connectionString)
sqlConnection.Open()
sqlCommand = New SqlClient.SqlCommand(sql, sqlConnection)
sqlAdapter.SelectCommand = sqlCommand
sqlAdapter.Fill(dataset)
Return dataset
ElseIf connectionString.Contains("dsn=") Then 'ODBC-Connection
Dim sqlConnection As Odbc.OdbcConnection
Dim sqlCommand As Odbc.OdbcCommand
Dim sqlAdapter As New Odbc.OdbcDataAdapter
Dim dataset As New DataSet
sqlConnection = New Odbc.OdbcConnection(connectionString)
sqlConnection.Open()
sqlCommand = New Odbc.OdbcCommand(sql, sqlConnection)
sqlAdapter.SelectCommand = sqlCommand
sqlAdapter.Fill(dataset)
Return dataset
Else
If DEBUG = True Then LOGGER.Info(" >> It's an Oracle-Connection (ExecuteWithConnection)", False)
Dim sqlConnection As OracleConnection
Dim sqlCommand As OracleCommand
Dim sqlAdapter As New OracleDataAdapter
Dim dataset As New DataSet
sqlConnection = New OracleConnection(connectionString)
sqlConnection.Open()
sqlCommand = New OracleCommand(sql, sqlConnection)
sqlAdapter.SelectCommand = sqlCommand
sqlAdapter.Fill(dataset)
Return dataset
End If
Else
MsgBox("Keine gültige ConnectionID", MsgBoxStyle.Exclamation)
End If
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info(" - Unvorhergesehener Fehler bei TestSQL - Fehler: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei TestSQL:")
Return Nothing
End Try
End Function
Private Sub btnSaveSQLCommand_Click(sender As Object, e As EventArgs) Handles btnSaveSQLCommand.Click
If CURRENT_DESIGN_TYPE = "FINAL_INDEX" Then
' SQL wird nicht hier, sondern in frmAdministration gespeichert
lblSaveFinalIndex.Visible = True
lblSaveFinalIndex.Text = "SQL für finalen Index wurde erfolgreich gespeichert! " & Now.ToString
End If
SQLCommand = SQL_COMMANDTextBox.Text
ConnectionID = cmbConnection.SelectedValue
CURRENT_CONN_ID = ConnectionID
End Sub
Private Sub btnAddControl_Click(sender As Object, e As EventArgs) Handles btnAddControl.Click
If cmbControls.SelectedIndex <> -1 Then
Dim value As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_CTRL, cmbControls.Text)
InsertAtSelection(value)
End If
End Sub
Private Sub btnAddStatic_Click(sender As Object, e As EventArgs) Handles btnAddStatic.Click
If cmbStatic.SelectedIndex <> -1 Then
Dim value As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_INT, cmbStatic.Text)
InsertAtSelection(value)
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAddIndex.Click
If cmbIndexe.SelectedIndex <> -1 Then
Dim oValue As String
If IDB_ACTIVE = False Then
oValue = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_WMI, cmbIndexe.Text)
Else
oValue = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_IDBA, cmbIndexe.Text)
End If
InsertAtSelection(oValue)
End If
End Sub
Private Sub btnAddUser_Click(sender As Object, e As EventArgs) Handles btnAddUser.Click
If cmbUser.SelectedIndex <> -1 Then
Dim value As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_USER, cmbUser.Text)
InsertAtSelection(value)
End If
End Sub
Private Sub InsertAtSelection(str As String)
Dim altePosition As Integer = SQL_COMMANDTextBox.SelectionStart()
SQL_COMMANDTextBox.Text = SQL_COMMANDTextBox.Text.Insert(altePosition, str)
SQL_COMMANDTextBox.SelectionStart = altePosition + str.Length
End Sub
Private Sub btnShowConnections_Click(sender As Object, e As EventArgs) Handles btnShowConnections.Click
frmConnection.ShowDialog()
End Sub
Private Sub cmbConnection_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbConnection.SelectedIndexChanged
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
End Sub
End Class

View File

@@ -87,18 +87,24 @@ Public NotInheritable Class frmSplash
System.Threading.Thread.Sleep(600)
bw.ReportProgress(CalcProgress(3), "Initialize Database")
If _Init.InitDatabase() = True Then
System.Threading.Thread.Sleep(600)
Dim EDMISERV_ONLINE As Boolean = False
If EDMIService.Client Is Nothing Then
EDMISERV_ONLINE = False
Else
If EDMIService.Client.IsOnline = True Then
EDMISERV_ONLINE = True
End If
End If
If _Init.InitDatabase(EDMISERV_ONLINE) = True Then
LOGGER.Debug("SPLASH: Database successfully intitialized!")
System.Threading.Thread.Sleep(500)
bw.ReportProgress(CalcProgress(4), "Initialize UserConfiguration")
_Init.InitBasics()
_Init.InitUserLogin()
_Init.InitBasics2()
'System.Threading.Thread.Sleep(600)
'bw.ReportProgress(CalcProgress(5), "Initialize windream-Settings")
'Init.InitWindream()
'System.Threading.Thread.Sleep(250)
End If

View File

@@ -93,9 +93,9 @@ Public Class frmUserKonfig_AddUsers
Dim u = group.GetMembers(True)
For Each user In u
If user.GetType().Name = "UserPrincipal" Then
users.Add(user)
For Each oUser In u
If User.GetType().Name = "UserPrincipal" Then
users.Add(oUser)
End If
Next
@@ -107,11 +107,11 @@ Public Class frmUserKonfig_AddUsers
Dim users As List(Of UserPrincipal) = GetUsersForGroup(group)
DT_ADD_USERS.Clear()
For Each user In users
For Each oUser In users
Dim newUserRow As DataRow = DT_ADD_USERS.NewRow
Try
Dim userldap As UserPrincipal = user
Dim userldap As UserPrincipal = oUser
Dim PRENAME As String = userldap.GivenName
Dim NAME As String = userldap.Surname
Dim USERNAME As String = userldap.SamAccountName
@@ -119,7 +119,7 @@ Public Class frmUserKonfig_AddUsers
newUserRow("Username") = userldap.SamAccountName
Catch ex As Exception
LOGGER.Error(ex)
newUserRow("Username") = user.ToString
newUserRow("Username") = User.ToString
End Try
Dim email As String = userldap.EmailAddress
newUserRow("Prename") = PRENAME

View File

@@ -96,9 +96,10 @@ Partial Class frmValidator
Me.RepositoryItemComboBox3 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
Me.btnitemConversation_reload = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItemAttmt = New DevExpress.XtraBars.BarButtonItem()
Me.Attmt_bbtnitmShow = New DevExpress.XtraBars.BarButtonItem()
Me.barbtnitmExport = New DevExpress.XtraBars.BarButtonItem()
Me.ToggleSwitchItemLoadonClick = New DevExpress.XtraBars.BarToggleSwitchItem()
Me.Attmnt_bbtnitm_LoadonClick = New DevExpress.XtraBars.BarCheckItem()
Me.RibbonPageConversations = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroupConv1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -106,7 +107,7 @@ Partial Class frmValidator
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageFile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageCust = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupCustom = 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()
@@ -463,9 +464,9 @@ Partial Class frmValidator
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnitmSave, Me.BarButtonItem2, Me.BarLinkContainerItem1, Me.btnitemConversationEnd, Me.bbtnitem_ConversationNew, Me.BarLinkContainerItem2, Me.BarEditItem1, Me.BarEditItem2, Me.BarEditItem3, Me.btnitemConversation_reload, Me.BarButtonItem5, Me.BarButtonItemAttmt, Me.barbtnitmExport, Me.ToggleSwitchItemLoadonClick})
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnitmSave, Me.BarButtonItem2, Me.BarLinkContainerItem1, Me.btnitemConversationEnd, Me.bbtnitem_ConversationNew, Me.BarLinkContainerItem2, Me.BarEditItem1, Me.BarEditItem2, Me.BarEditItem3, Me.btnitemConversation_reload, Me.BarButtonItem5, Me.Attmt_bbtnitmShow, Me.barbtnitmExport, Me.ToggleSwitchItemLoadonClick, Me.Attmnt_bbtnitm_LoadonClick})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 31
Me.RibbonControl1.MaxItemId = 32
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageConversations})
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
@@ -683,13 +684,13 @@ Partial Class frmValidator
Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem5.Name = "BarButtonItem5"
'
'BarButtonItemAttmt
'Attmt_bbtnitmShow
'
resources.ApplyResources(Me.BarButtonItemAttmt, "BarButtonItemAttmt")
Me.BarButtonItemAttmt.Id = 27
Me.BarButtonItemAttmt.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemAttmt.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItemAttmt.Name = "BarButtonItemAttmt"
Me.BarButtonItemAttmt.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
resources.ApplyResources(Me.Attmt_bbtnitmShow, "Attmt_bbtnitmShow")
Me.Attmt_bbtnitmShow.Id = 27
Me.Attmt_bbtnitmShow.ImageOptions.SvgImage = CType(resources.GetObject("Attmt_bbtnitmShow.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.Attmt_bbtnitmShow.Name = "Attmt_bbtnitmShow"
Me.Attmt_bbtnitmShow.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
'
'barbtnitmExport
'
@@ -706,6 +707,21 @@ Partial Class frmValidator
Me.ToggleSwitchItemLoadonClick.ImageOptions.SvgImage = CType(resources.GetObject("ToggleSwitchItemLoadonClick.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.ToggleSwitchItemLoadonClick.Name = "ToggleSwitchItemLoadonClick"
'
'Attmnt_bbtnitm_LoadonClick
'
resources.ApplyResources(Me.Attmnt_bbtnitm_LoadonClick, "Attmnt_bbtnitm_LoadonClick")
Me.Attmnt_bbtnitm_LoadonClick.Id = 31
Me.Attmnt_bbtnitm_LoadonClick.ImageOptions.SvgImage = CType(resources.GetObject("Attmnt_bbtnitm_LoadonClick.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.Attmnt_bbtnitm_LoadonClick.ItemAppearance.Pressed.Font = CType(resources.GetObject("Attmnt_bbtnitm_LoadonClick.ItemAppearance.Pressed.Font"), System.Drawing.Font)
Me.Attmnt_bbtnitm_LoadonClick.ItemAppearance.Pressed.ForeColor = DevExpress.LookAndFeel.DXSkinColors.ForeColors.Information
Me.Attmnt_bbtnitm_LoadonClick.ItemAppearance.Pressed.Options.UseFont = True
Me.Attmnt_bbtnitm_LoadonClick.ItemAppearance.Pressed.Options.UseForeColor = True
Me.Attmnt_bbtnitm_LoadonClick.ItemInMenuAppearance.Pressed.Font = CType(resources.GetObject("Attmnt_bbtnitm_LoadonClick.ItemInMenuAppearance.Pressed.Font"), System.Drawing.Font)
Me.Attmnt_bbtnitm_LoadonClick.ItemInMenuAppearance.Pressed.ForeColor = DevExpress.LookAndFeel.DXSkinColors.ForeColors.Information
Me.Attmnt_bbtnitm_LoadonClick.ItemInMenuAppearance.Pressed.Options.UseFont = True
Me.Attmnt_bbtnitm_LoadonClick.ItemInMenuAppearance.Pressed.Options.UseForeColor = True
Me.Attmnt_bbtnitm_LoadonClick.Name = "Attmnt_bbtnitm_LoadonClick"
'
'RibbonPageConversations
'
Me.RibbonPageConversations.Name = "RibbonPageConversations"
@@ -733,7 +749,7 @@ Partial Class frmValidator
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageFile, Me.RibbonPageGroup3, Me.RibbonPageCust, Me.RibbonPageGroup2})
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageFile, Me.RibbonPageGroup3, Me.RibbonPageGroupCustom, Me.RibbonPageGroup2})
Me.RibbonPage1.Name = "RibbonPage1"
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
'
@@ -757,15 +773,15 @@ Partial Class frmValidator
Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
'
'RibbonPageCust
'RibbonPageGroupCustom
'
Me.RibbonPageCust.AllowTextClipping = False
Me.RibbonPageCust.ItemLinks.Add(Me.BarButtonItemAttmt)
Me.RibbonPageCust.ItemLinks.Add(Me.ToggleSwitchItemLoadonClick)
Me.RibbonPageCust.ItemLinks.Add(Me.barbtnitmExport)
Me.RibbonPageCust.Name = "RibbonPageCust"
resources.ApplyResources(Me.RibbonPageCust, "RibbonPageCust")
Me.RibbonPageCust.Visible = False
Me.RibbonPageGroupCustom.AllowTextClipping = False
Me.RibbonPageGroupCustom.ItemLinks.Add(Me.Attmt_bbtnitmShow)
Me.RibbonPageGroupCustom.ItemLinks.Add(Me.Attmnt_bbtnitm_LoadonClick)
Me.RibbonPageGroupCustom.ItemLinks.Add(Me.barbtnitmExport)
Me.RibbonPageGroupCustom.Name = "RibbonPageGroupCustom"
resources.ApplyResources(Me.RibbonPageGroupCustom, "RibbonPageGroupCustom")
Me.RibbonPageGroupCustom.Visible = False
'
'RibbonPageGroup2
'
@@ -916,9 +932,10 @@ Partial Class frmValidator
Friend WithEvents ChatControl1 As DigitalData.Controls.ChatControl.ChatControl
Friend WithEvents btnitemConversation_reload As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItemAttmt As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageCust As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents Attmt_bbtnitmShow As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroupCustom As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents barbtnitmExport As DevExpress.XtraBars.BarButtonItem
Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
Friend WithEvents ToggleSwitchItemLoadonClick As DevExpress.XtraBars.BarToggleSwitchItem
Friend WithEvents Attmnt_bbtnitm_LoadonClick As DevExpress.XtraBars.BarCheckItem
End Class

View File

@@ -319,7 +319,7 @@
<value>DocumentViewerValidator</value>
</data>
<data name="&gt;&gt;DocumentViewerValidator.Type" xml:space="preserve">
<value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.6.7.0, Culture=neutral, PublicKeyToken=null</value>
<value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.8.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;DocumentViewerValidator.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
@@ -932,10 +932,10 @@
ayIgLz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarButtonItemAttmt.Caption" xml:space="preserve">
<data name="Attmt_bbtnitmShow.Caption" xml:space="preserve">
<value>Anhänge</value>
</data>
<data name="BarButtonItemAttmt.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="Attmt_bbtnitmShow.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
@@ -999,6 +999,33 @@
Ny0zLjEsNy03VjEwSDIyeiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
</value>
</data>
<data name="Attmnt_bbtnitm_LoadonClick.Caption" xml:space="preserve">
<value>Suche nur auf Click laden</value>
</data>
<data name="Attmnt_bbtnitm_LoadonClick.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="Attmnt_bbtnitm_LoadonClick.ItemAppearance.Pressed.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Bold</value>
</data>
<data name="Attmnt_bbtnitm_LoadonClick.ItemInMenuAppearance.Pressed.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Bold</value>
</data>
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
@@ -1020,8 +1047,8 @@
<data name="RibbonPageGroup3.Text" xml:space="preserve">
<value>Aktionen</value>
</data>
<data name="RibbonPageCust.Text" xml:space="preserve">
<value>Custom PageGroup</value>
<data name="RibbonPageGroupCustom.Text" xml:space="preserve">
<value>Anhänge zu Beleg</value>
</data>
<data name="RibbonPageGroup2.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -1645,10 +1672,10 @@
<data name="&gt;&gt;BarButtonItem5.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarButtonItemAttmt.Name" xml:space="preserve">
<value>BarButtonItemAttmt</value>
<data name="&gt;&gt;Attmt_bbtnitmShow.Name" xml:space="preserve">
<value>Attmt_bbtnitmShow</value>
</data>
<data name="&gt;&gt;BarButtonItemAttmt.Type" xml:space="preserve">
<data name="&gt;&gt;Attmt_bbtnitmShow.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;barbtnitmExport.Name" xml:space="preserve">
@@ -1663,6 +1690,12 @@
<data name="&gt;&gt;ToggleSwitchItemLoadonClick.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarToggleSwitchItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;Attmnt_bbtnitm_LoadonClick.Name" xml:space="preserve">
<value>Attmnt_bbtnitm_LoadonClick</value>
</data>
<data name="&gt;&gt;Attmnt_bbtnitm_LoadonClick.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarCheckItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageConversations.Name" xml:space="preserve">
<value>RibbonPageConversations</value>
</data>
@@ -1705,10 +1738,10 @@
<data name="&gt;&gt;RibbonPageGroup3.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageCust.Name" xml:space="preserve">
<value>RibbonPageCust</value>
<data name="&gt;&gt;RibbonPageGroupCustom.Name" xml:space="preserve">
<value>RibbonPageGroupCustom</value>
</data>
<data name="&gt;&gt;RibbonPageCust.Type" xml:space="preserve">
<data name="&gt;&gt;RibbonPageGroupCustom.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup2.Name" xml:space="preserve">

View File

@@ -11,8 +11,13 @@ Imports DigitalData.Modules.Language.Utils
Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback
Imports DigitalData.Modules.EDMI.API.Constants
Imports DevExpress.XtraBars
Imports DigitalData.GUIs.Common.DocumentResultList
Imports DigitalData.Modules.ZooFlow
Imports DigitalData.Modules.ZooFlow.Constants
Imports DigitalData.GUIs.Common
Public Class frmValidator
Private Property Current_Document As DocumentResultList.Document = Nothing
''' <summary>
''' Contains all controls for the current profile
''' </summary>
@@ -73,8 +78,6 @@ Public Class frmValidator
Private Property _dependingColumn_in_action As Boolean = False
Private Property _SetControlValue_in_action As Boolean = False
Private Property DTConversations As DataTable
Private Property DTDYNAMIC_RIGHTS As DataTable
@@ -96,25 +99,57 @@ Public Class frmValidator
Private Property listChangedLookup As New List(Of String)
Private Property ControlHandleStarted As Boolean = False
Private Documentloader As Loader
Private Property OperationMode As OperationMode
Private ReadOnly Environment As Environment
Private AdditionalDocResultsExist As Boolean = False
Private AdditionalDataResultsExist As Boolean = False
Public Sub New()
Public Sub New(pEnvironment As Environment)
'MyBase.New
LOGGER.Debug("Initialize Components...")
InitializeComponent()
LOGGER.Debug("Initialize _frmValidatorSearch...")
Environment = pEnvironment
Try
_frmValidatorSearch = New frmValidatorSearch
LOGGER.Debug("Initialize _frmValidatorSearch...")
_frmValidatorSearch = New frmValidatorSearch(Me, Environment)
Catch ex As Exception
LOGGER.Error(ex)
End Try
End Sub
Private Function GetOperationMode() As OperationMode
Dim oOperationMode As OperationMode
If Environment.Service.Client Is Nothing Then
Return OperationMode.NoAppServer
End If
If Environment.Service.Client.IsOnline AndAlso Environment.Service.Client.ServerAddress <> String.Empty And IDB_USES_WMFILESTORE = False Then
oOperationMode = OperationMode.WithAppServer
Else
oOperationMode = OperationMode.NoAppServer
End If
If OPERATION_MODE_FS = ClassConstants.OpModeFS_ZF Then
oOperationMode = OperationMode.ZooFlow
End If
Return oOperationMode
End Function
Private Sub frmValidation_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Try
LOGGER.Debug("###frmValidation_Load###")
'DataASorDB = New ClassDataASorDB
' Operation mode is either guessed from service settings
' or explictly set from OperationModeOverride in Params
OperationMode = GetOperationMode()
Documentloader = New Loader(LOGCONFIG, OperationMode, Environment.Service.Client, Environment.User)
PMDelimiter = "~"
Override = False
@@ -127,8 +162,9 @@ Public Class frmValidator
'pdfxchange = False
'sumatra = False
FormLoaded = False
BarButtonItemAttmt.Visibility = BarItemVisibility.Never
ToggleSwitchItemLoadonClick.Visibility = BarItemVisibility.Never
Attmt_bbtnitmShow.Visibility = BarItemVisibility.Never
Attmnt_bbtnitm_LoadonClick.Visibility = BarItemVisibility.Never
Catch ex As Exception
LOGGER.Warn($"Error in frmValidation_load1: {ex.Message}")
End Try
@@ -208,7 +244,7 @@ Public Class frmValidator
PROFIL_VEKTORINDEX = oProfileRow.Item("PM_VEKTOR_INDEX")
PROFIL_LOGINDEX = oProfileRow.Item("LOG_INDEX")
CURRENT_PROFILE_LOG_INDEX = PROFIL_LOGINDEX
Me.Text = "FlowTask - " & oProfileRow.Item("TITLE")
Me.Text = ADDITIONAL_TITLE & " - " & oProfileRow.Item("TITLE")
TITLELabel1.Text = oProfileRow.Item("TITLE")
DESCRIPTIONLabel.Text = IIf(IsDBNull(oProfileRow.Item("DESCRIPTION")), "", oProfileRow.Item("DESCRIPTION"))
@@ -224,7 +260,6 @@ Public Class frmValidator
Move2Folder = IIf(IsDBNull(oProfileRow.Item("MOVE2Folder")), "", oProfileRow.Item("MOVE2Folder"))
Try
If finalProfile = True Then
Dim text As String = IIf(IsDBNull(oProfileRow.Item("FINAL_TEXT")), "", oProfileRow.Item("FINAL_TEXT") & (" (F2)"))
If text <> "" Then
btnSave.Text = text
@@ -458,8 +493,8 @@ Public Class frmValidator
LOGGER.Error(ex)
End Try
End If
CURRENT_DOC_ID = 0
CURRENT_DOC_GUID = 0
Reset_CurrentReferences()
Try
DocumentViewerValidator.CloseDocument()
DocumentViewerValidator.Done()
@@ -473,112 +508,132 @@ Public Class frmValidator
LOGGER.Error(ex)
End Try
End Sub
Public Sub Load_Additional_Searches()
Try
If BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Or BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then
Dim oDocResultCommand As String
Dim oDatatableDocResult As DataTable
Dim oDataResultCommand As String
Dim oDatatableDataResult As DataTable
If BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then
'Check whether DocData is there
Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID")
oDataResultCommand = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND")
oDataResultCommand = clsPatterns.ReplaceAllValues(oDataResultCommand, PanelValidatorControl, True)
'oDatatableDataResult = ClassDatabase.Return_Datatable_ConId(oDataResultCommand, oConID, "Load_Additional_Searches1")
oDatatableDataResult = DatabaseFallback.GetDatatable(New GetDatatableOptions(oDataResultCommand, DatabaseType.ECM) With {
.ConnectionId = oConID
})
End If
If BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then
'Check whether DocData is there
Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID")
oDocResultCommand = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND")
oDocResultCommand = clsPatterns.ReplaceAllValues(oDocResultCommand, PanelValidatorControl, True)
'oDatatableDocResult = ClassDatabase.Return_Datatable_ConId(oDocResultCommand, oConID, "Load_Additional_Searches2")
oDatatableDocResult = DatabaseFallback.GetDatatable(New GetDatatableOptions(oDocResultCommand, DatabaseType.ECM) With {
.ConnectionId = oConID
})
End If
Sub Reset_CurrentReferences()
LOGGER.Info("Attention: Reset_CurrentReferences....")
Dim oDataResultsExist As Boolean = False
Dim oDocResultsExist As Boolean = False
If Not IsNothing(DT_AdditionalSearches_Resultset_Docs) Then
DT_AdditionalSearches_Resultset_Docs.Clear()
End If
If BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then
If Not IsNothing(oDatatableDataResult) Then
If oDatatableDataResult.Rows.Count > 0 Then
oDataResultsExist = True
End If
End If
End Sub
End If
If BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then
If Not IsNothing(oDatatableDocResult) Then
If oDatatableDocResult.Rows.Count > 0 Then
oDocResultsExist = True
DT_AdditionalSearches_Resultset_Docs = oDatatableDocResult
End If
End If
End If
Public Function Test_Additional_Data_Searches_Exist() As Boolean
If BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then
Dim oDataResultCommand As String
Dim oDatatableDataResult As DataTable = Nothing
If oDataResultsExist = True Or oDocResultsExist = True Then
bbtniRefreshSearches.Visibility = BarItemVisibility.Always
If RibbonPageCustItm1 <> "" Then
BarButtonItemAttmt.Caption = RibbonPageCustItm1
BarButtonItemAttmt.Visibility = BarItemVisibility.Always
Dim toggleLink As BarToggleSwitchItem = TryCast(ToggleSwitchItemLoadonClick, BarToggleSwitchItem)
toggleLink.Checked = CONFIG.Config.ADDITIONAL_SEARCHES_LOAD_ONCLICK
ToggleSwitchItemLoadonClick.Visibility = BarItemVisibility.Always
End If
Try
If CONFIG.Config.ADDITIONAL_SEARCHES_LOAD_ONCLICK = False Then
_frmValidatorSearch.Show()
End If
Dim oPnl1Collapsed As Boolean = True
Dim oPnl2Collapsed As Boolean = True
If oDataResultsExist = True Then
oPnl1Collapsed = False
Else
oPnl1Collapsed = True
End If
If oDocResultsExist = True Then
oPnl2Collapsed = False
Else
oPnl2Collapsed = True
End If
_frmValidatorSearch.TabPreload(oPnl1Collapsed, oPnl2Collapsed, BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count, BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows.Count,
BASEDATA_DT_PROFILE_SEARCHES_SQL, BASEDATA_DT_PROFILE_SEARCHES_DOC)
If oDataResultsExist Then
_frmValidatorSearch._DTSQLSearches = BASEDATA_DT_PROFILE_SEARCHES_SQL
Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID")
Dim oCommand = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND")
oCommand = clsPatterns.ReplaceAllValues(oCommand, PanelValidatorControl, True)
_frmValidatorSearch.Refresh_Load_GridSQL(oConID, oCommand, 0, BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("TAB_TITLE"))
End If
If oDocResultsExist Then
_frmValidatorSearch._DTDocSearches = BASEDATA_DT_PROFILE_SEARCHES_DOC
Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID")
Dim oCommand = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND")
oCommand = clsPatterns.ReplaceAllValues(oCommand, PanelValidatorControl, True)
_frmValidatorSearch.RefreshTabDoc(oConID, oCommand, 0, BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("TAB_TITLE"))
End If
Catch ex As Exception
LOGGER.Error(ex)
End Try
Else
LOGGER.Debug("Not loading AdditionalSearches 1...!")
bbtniRefreshSearches.Visibility = BarItemVisibility.Never
End If
Else
LOGGER.Debug("Not loading AdditionalSearches 2...!")
bbtniRefreshSearches.Visibility = BarItemVisibility.Never
If BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then
'Check whether DocData is there
Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID")
oDataResultCommand = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND")
oDataResultCommand = clsPatterns.ReplaceAllValues(oDataResultCommand, PanelValidatorControl, True)
oDatatableDataResult = DatabaseFallback.GetDatatableWithConnection(oDataResultCommand, oConID)
End If
Dim oDataResultsExist As Boolean = False
If BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then
If Not IsNothing(oDatatableDataResult) Then
If oDatatableDataResult.Rows.Count > 0 Then
oDataResultsExist = True
End If
End If
End If
Return oDataResultsExist
Else
Return False
End If
End Function
Public Function Test_Additional_Doc_Searches_Exist() As Boolean
If DT_FILTERED_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then
Dim oDocResultCommand As String
Dim oDatatableDocResult As DataTable = Nothing
'Check whether DocData is there
Dim oConID = DT_FILTERED_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID")
oDocResultCommand = DT_FILTERED_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND")
oDocResultCommand = clsPatterns.ReplaceAllValues(oDocResultCommand, PanelValidatorControl, True)
oDatatableDocResult = DatabaseFallback.GetDatatableWithConnection(oDocResultCommand, oConID)
Dim oDocResultsExist As Boolean = False
If Not IsNothing(oDatatableDocResult) Then
If oDatatableDocResult.Rows.Count > 0 Then
oDocResultsExist = True
DT_AdditionalSearches_Resultset_Docs = oDatatableDocResult
End If
End If
Return oDocResultsExist
Else
Return False
End If
End Function
Public Sub Load_Additional_Searches(Preload As Boolean)
Try
AdditionalDocResultsExist = Test_Additional_Doc_Searches_Exist()
AdditionalDataResultsExist = Test_Additional_Data_Searches_Exist()
'If Test_Additional_Searches_Exist() Then
If AdditionalDataResultsExist = True Or AdditionalDocResultsExist = True Then
Try
Dim oPnl1Collapsed As Boolean = True
Dim oPnl2Collapsed As Boolean = True
If AdditionalDataResultsExist = True Then
oPnl1Collapsed = False
Else
oPnl1Collapsed = True
End If
oPnl2Collapsed = False
Dim oConID As Int16
Dim oCommand As String
Attmnt_bbtnitm_LoadonClick.Visibility = BarItemVisibility.Always
Attmt_bbtnitmShow.Visibility = BarItemVisibility.Always
If Preload = False Then
If AdditionalDocResultsExist Then
_frmValidatorSearch.TabPreload(oPnl1Collapsed, oPnl2Collapsed, BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count, DT_FILTERED_PROFILE_SEARCHES_DOC.Rows.Count,
BASEDATA_DT_PROFILE_SEARCHES_SQL, DT_FILTERED_PROFILE_SEARCHES_DOC)
_frmValidatorSearch._DTDocSearches = DT_FILTERED_PROFILE_SEARCHES_DOC
oConID = DT_FILTERED_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID")
oCommand = DT_FILTERED_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND")
oCommand = clsPatterns.ReplaceAllValues(oCommand, PanelValidatorControl, True)
_frmValidatorSearch.RefreshTabDoc(oConID, oCommand, 0, DT_FILTERED_PROFILE_SEARCHES_DOC.Rows(0).Item("TAB_TITLE"))
End If
If AdditionalDataResultsExist Then
_frmValidatorSearch._DTSQLSearches = BASEDATA_DT_PROFILE_SEARCHES_SQL
oConID = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID")
oCommand = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND")
oCommand = clsPatterns.ReplaceAllValues(oCommand, PanelValidatorControl, True)
_frmValidatorSearch.Refresh_Load_GridSQL(oConID, oCommand, 0, BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("TAB_TITLE"))
End If
End If
Catch ex As Exception
LOGGER.Error(ex)
End Try
bbtniRefreshSearches.Visibility = BarItemVisibility.Always
Else
LOGGER.Debug("AdditionlSearhes result = false!")
bbtniRefreshSearches.Visibility = BarItemVisibility.Never
Attmnt_bbtnitm_LoadonClick.Visibility = BarItemVisibility.Never
Attmt_bbtnitmShow.Visibility = BarItemVisibility.Never
End If
'Else
' LOGGER.Debug("Not loading AdditionalSearches 2...!")
' bbtniRefreshSearches.Visibility = BarItemVisibility.Never
'End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE)
End Try
@@ -2285,27 +2340,40 @@ Public Class frmValidator
Try
LOGGER.Debug("Get_Next_GUID...")
Dim oNewGUID As Integer
LOGGER.Debug("Old Document_Path: " & OLD_Document_Path)
Dim oBIT As Integer = 0
If PROFIL_sortbynewest = True Then
oBIT = 1
End If
Dim oSQL = $"EXEC PRPM_GET_NEXT_DOC_INFO {CURRENT_ProfilGUID},{CURRENT_DOC_ID},{USER_ID}"
'Dim oSQL = $"SELECT * from [dbo].[FNPM_GET_NEXT_DOC_INFO] ({CURRENT_ProfilGUID},{oBIT},{CURRENT_DOC_GUID},'{USER_USERNAME}')"
Dim oDT As DataTable = DatabaseFallback.GetDatatableECM(oSQL)
CURRENT_DOC_ID = 0
CURRENT_DOC_GUID = 0
If oDT.Rows.Count > 0 Then
oNewGUID = oDT.Rows(0).Item(0)
CURRENT_DOC_ID = oDT.Rows(0).Item(1)
Try
Amount_Docs2Validate = oDT.Rows(0).Item(2)
oNewGUID = oDT.Rows(0).Item(0)
Catch ex As Exception
LOGGER.Warn("Amount_Docs2Validate Error: " & ex.Message)
LOGGER.Warn($">> Attention: in GetNextGUID - Could not get the next GUID - SQL [{oSQL}]")
LOGGER.Warn($"ERRORMESSAGE [{ex.Message}]")
End Try
Try
CURRENT_DOC_ID = oDT.Rows(0).Item(1)
LOGGER.Debug($"Get_Next_GUID: CURRENT_DOC_ID [{CURRENT_DOC_ID}]...")
Catch ex As Exception
LOGGER.Warn($">> Attention: in GetNextGUID - Could not get the next DocID - SQL [{oSQL}]")
LOGGER.Warn($"ERRORMESSAGE [{ex.Message}]")
End Try
Try
Amount_Docs2Validate = oDT.Rows(0).Item(2)
LOGGER.Debug($"Get_Next_GUID: Amount_Docs2Validate [{Amount_Docs2Validate}]...")
Catch ex As Exception
Amount_Docs2Validate = 0
LOGGER.Warn("Amount_Docs2Validate Error: " & ex.Message)
End Try
Else
LOGGER.Info(" >> Attention: in GetNextGUID - Could not get a GUID(1)")
LOGGER.Info($">> Attention: GetNextGUID - Could not get the next GUID - SQL [{oSQL}]")
oNewGUID = 0
Return oNewGUID
End If
@@ -2371,7 +2439,7 @@ Public Class frmValidator
LOGGER.Debug($"Checking file 0 [{oResult}] exists?...")
WMDocPathWindows = String.Empty
If File.Exists(oResult) = False Then
If File.Exists(oResult) = False And OPERATION_MODE_FS <> ClassConstants.OpModeFS_ZF Then
DocPathWindows = oResult
LOGGER.Info($"GetWMDocPathWindows returned false [{oResult}] - trying with standard again...")
oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({CURRENT_DOC_GUID},1)"
@@ -2409,6 +2477,7 @@ Public Class frmValidator
oSQl = oSQl.Replace("@DOC_GUID", CURRENT_DOC_GUID)
oSQl = oSQl.Replace("@DOC_ID", CURRENT_DOC_ID)
oSQl = oSQl.Replace("@DocID", CURRENT_DOC_ID)
LOGGER.Debug($"Load_IDB_DOC_DATA SQL: {oSQl}")
IDB_DT_DOC_DATA = DatabaseFallback.GetDatatableECM(oSQl)
Catch ex As Exception
LOGGER.Error(ex)
@@ -2456,9 +2525,9 @@ Public Class frmValidator
ElseIf first = False Then
CURRENT_DOC_GUID = 0
End If
LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'")
LOGGER.Info("LoadNextDocument - Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'")
If CURRENT_DOC_GUID > 0 Then
If GetDocPathWindows(0) = False Then
If (OPERATION_MODE_FS = ClassConstants.OpModeFS_PWM Or OPERATION_MODE_FS = ClassConstants.OpModeFS_IDBWM) And GetDocPathWindows(0) = False Then
SetStatusLabel($"File not accessable: {DocPathWindows}", "DarkOrange")
MsgBox("The file can not be diplayed or is not accessable!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
End If
@@ -2468,15 +2537,21 @@ Public Class frmValidator
End If
Else
Load_IDB_DOC_DATA()
If IDB_DT_DOC_DATA.Rows.Count = 1 Then
LOGGER.Debug("Got one IDB DocData Result")
If IsNothing(IDB_DT_DOC_DATA) Then
LOGGER.Warn("ATTENTION: IDB-Data is nothing. Check the IDB_DOC_DATA_SQL Variable Source")
Exit Sub
Else
If IDB_DT_DOC_DATA.Rows.Count = 1 Then
LOGGER.Debug("Got one IDB DocData Result")
End If
End If
End If
'Beschriftung des Navigators
'lblNavigator_anzDok.Text = position & " of " & Anzahl_ValDoks & " files"
'lblNavigator_anzDok.Text = position & " Of " & Anzahl_ValDoks & " files"
'If WMDocPathWindows <> String.Empty Then
' >> >> >> >> >> >>##### Das Dokument in Bearbeitung nehmen ###########################
Dim sql = $"UPDATE TBPM_PROFILE_FILES SET IN_WORK = 1, IN_WORK_WHEN = GETDATE(), WORK_USER = '{USER_USERNAME}' WHERE GUID = {CURRENT_DOC_GUID}"
Dim sql = $"UPDATE TBPM_PROFILE_FILES Set IN_WORK = 1, IN_WORK_WHEN = GETDATE(), WORK_USER = '{USER_USERNAME}' WHERE GUID = {CURRENT_DOC_GUID}"
DatabaseFallback.ExecuteNonQueryECM(sql)
' ############ Infos eintragen #################
@@ -2485,7 +2560,12 @@ Public Class frmValidator
If USER_LANGUAGE <> "de-DE" Then
omsg = $"Remaining documents: {omsg}"
End If
bsiInformation.Caption = omsg
If Amount_Docs2Validate > 0 Then
bsiInformation.Caption = omsg
Else
bsiInformation.Caption = "Could not get the amount of remaining docs!"
End If
bsiDocID.Caption = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID
LOGGER.Debug("AllDocInfo created...")
@@ -2498,10 +2578,10 @@ Public Class frmValidator
If oErrMsgMissingInput = "" Then
If WMDocPathWindows <> String.Empty Then
If WMDocPathWindows <> String.Empty Or OPERATION_MODE_FS = ClassConstants.OpModeFS_ZF Then
load_viewer()
LOGGER.Debug("Viewer loaded!")
If WMDocPathWindows.ToLower.EndsWith(".pdf") = False Then
If Current_Document.Extension <> "pdf" Then
bbtniAnnotation.Visibility = BarItemVisibility.Never
End If
End If
@@ -2517,18 +2597,6 @@ Public Class frmValidator
LOGGER.Debug("Indexmask loaded")
'Nun im Vektoprindex loggen das das Profil geladen wurde
'If PROFIL_VEKTORINDEX <> "" Then
' Dim Profilstring = "DD-PM" & PMDelimiter & "Profil: '" & PROFIL_NAME & "'" & PMDelimiter & USER_NAME & PMDelimiter & Now.ToString
' If Indexiere_VektorfeldPM(Profilstring, PROFIL_VEKTORINDEX) = False Then
' If LogErrorsOnly = False Then LOGGER.Info(" >> Profilname erfolgreich in Vektorfeld PM geschrieben")
' 'Else
' ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
' ' My.Settings.Save()
' ' frmError.ShowDialog()
' ' _error = True
' End If
'End If
'Nun loggen das das Profil geladen wurde
If PROFIL_LOGINDEX <> "" Then
Dim oLogString = $"PMProfile loaded: [{CURRENT_ProfilGUID}-{CURRENT_ProfilName}]{PMDelimiter}{USER_USERNAME}{PMDelimiter}{Now.ToString}"
@@ -2587,7 +2655,27 @@ Public Class frmValidator
End Try
End Sub
Sub load_viewer()
DocumentViewerValidator.LoadFile(WMDocPathWindows)
' DocumentViewerValidator.LoadFile(WMDocPathWindows)
Try
Dim oDocument As DocumentResultList.Document = Nothing
' Load DocumentInfo
oDocument = Documentloader.Load(CURRENT_DOC_ID, WMDocPathWindows)
If oDocument Is Nothing Then
Exit Sub
End If
Current_Document = oDocument
Catch ex As Exception
LOGGER.Error(ex)
Exit Sub
End Try
' Load Document in Document Viewer
Dim oFileName = $"{CURRENT_DOC_ID}.{Current_Document.Extension}"
DocumentViewerValidator.LoadFile(oFileName, New MemoryStream(Current_Document.Contents))
DocumentViewerValidator.RightOnlyView(USER_RIGHT_VIEW_ONLY) 'war auskommentiert.....WARUM?
If USER_RIGHT_VIEW_ONLY = True Then
RibbonPageFile.Visible = False
@@ -3600,11 +3688,26 @@ Public Class frmValidator
RibbonPageGroup2.Visible = False
End If
'Flag setzen das Indexe geladen sind
_Indexe_Loaded = True
Load_Additional_Searches()
' Should the custom Ribbon group be displayed at all?
' Will be hidden later if not search results are found
If RibbonPageCustItm1 <> "" Then
Attmt_bbtnitmShow.Caption = RibbonPageCustItm1
Attmt_bbtnitmShow.Visibility = BarItemVisibility.Always
Attmnt_bbtnitm_LoadonClick.Checked = CONFIG.Config.ADDITIONAL_SEARCHES_LOAD_ONCLICK
Attmnt_bbtnitm_LoadonClick.Visibility = BarItemVisibility.Always
Else
Attmt_bbtnitmShow.Visibility = BarItemVisibility.Never
Attmnt_bbtnitm_LoadonClick.Visibility = BarItemVisibility.Never
End If
Load_Additional_Searches(True)
' If Searches should be loaded automatically, not only on click
If CONFIG.Config.ADDITIONAL_SEARCHES_LOAD_ONCLICK = False And (AdditionalDocResultsExist = True Or AdditionalDataResultsExist = True) Then
' _frmValidatorSearch?.Show()
Click_Additional_Searches()
End If
Else
MsgBox("Für dieses Profil wurde noch keine Eingabemaske definiert!" & vbNewLine & "Informieren Sie Ihren PM-Administrator!" & vbNewLine & "Das Fenster wird geschlossen!", MsgBoxStyle.Exclamation, "Achtung:")
Me.Close()
@@ -3649,11 +3752,10 @@ Public Class frmValidator
End Try
Try
If RibbonPageCustTitle <> "" Then
RibbonPageCust.Text = RibbonPageCustTitle
RibbonPageCust.Visible = True
RibbonPageGroupCustom.Text = RibbonPageCustTitle
RibbonPageGroupCustom.Visible = True
Else
RibbonPageCust.Visible = False
RibbonPageGroupCustom.Visible = False
End If
If Not IsNothing(WMDocPathWindows) Then
If ButtonExport2Folder_Caption <> "" And WMDocPathWindows <> "" Then
@@ -4079,11 +4181,11 @@ Public Class frmValidator
WORK_HISTORY_ENTRY = ""
End If
End If
Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, Environment.MachineName, WORK_HISTORY_ENTRY)
Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, System.Environment.MachineName, WORK_HISTORY_ENTRY)
DatabaseFallback.ExecuteNonQueryECM(ins)
Dim oFIsql As String
'Close_document_viewer()
If WMDocPathWindows.ToLower.EndsWith(".pdf") Then
If Current_Document.Extension = "pdf" Then
If Not IsNothing(WORK_HISTORY_ENTRY) Then
If CBool(CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_WORK_HISTORY_ENTRY")) = True Then
oFIsql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE GUID = (SELECT MAX(GUID) FROM TBPM_FILES_WORK_HISTORY WHERE PROFIL_ID = {0} AND DOC_ID = {1})", CURRENT_ProfilGUID, CURRENT_DOC_ID)
@@ -4113,7 +4215,7 @@ Public Class frmValidator
End If
'wenn Move2Folder aktiviert wurde
If Move2Folder <> "" Then
If Move2Folder <> "" And (OPERATION_MODE_FS = ClassConstants.OpModeFS_PWM Or OPERATION_MODE_FS = ClassConstants.OpModeFS_IDBWM) Then
idxerr_message = allgFunk.Move2Folder(WMDocPathWindows, Move2Folder, CURRENT_ProfilGUID, WINDREAM_ALLG)
If idxerr_message <> "" Then
errormessage = "Fehler bei Move2Folder:" & vbNewLine & idxerr_message
@@ -4123,9 +4225,7 @@ Public Class frmValidator
ItemWorked = False
End If
End If
'Validierungsfile löschen wenn vorhanden
'allgFunk.Delete_xffres(WMDocPathWindows, _windream)
'LOGGER.Debug("Delete_xffres ausgeführt")
End If
@@ -4163,7 +4263,9 @@ Public Class frmValidator
Else
LOGGER.Debug("Validation of document ended successfully!")
Dim oPROCSQL = $"EXEC PRPM_CHECK_NEXT_WF {CURRENT_DOC_GUID}"
DatabaseFallback.ExecuteNonQueryECM(oPROCSQL)
If DatabaseFallback.ExecuteNonQueryECM(oPROCSQL) = False Then
LOGGER.Warn($"Attention: Error executing proc {oPROCSQL}")
End If
End If
If CURRENT_JUMP_DOC_GUID <> 0 Then
@@ -4756,7 +4858,7 @@ Public Class frmValidator
Else
oObjectValue = GetVariableValuefromSource(oIndexName, oIDBTyp)
End If
If IsNothing(oObjectValue) Then
If IsNothing(oObjectValue) Or IsDBNull(oObjectValue) Then
oObjectValue = CDate("01.01.1900")
End If
'wenn Wert in Windream <> der Eingabe darf indexiert werden
@@ -4784,7 +4886,7 @@ Public Class frmValidator
Exit For
End If
Else
If IDBData.SetVariableValue(oIndexName, oObjectValue) = False Then
If IDBData.SetVariableValue(oIndexName, oMyInput) = False Then
oMissing = True
oErrMsgMissingInput = "Error indexing datepicker idb"
LOGGER.Warn(oErrMsgMissingInput)
@@ -5227,13 +5329,11 @@ Public Class frmValidator
End Sub
Sub Datei_ueberspringen()
Try
LOGGER.Debug("Dokument überspringen")
LOGGER.Debug("Skipping document....(Datei_ueberspringen)")
'Das Dokument freigeben
Free_File()
Dim oSQL = $"EXECUTE PRPM_FILES_NOT_INDEXED '{USER_USERNAME}',{CURRENT_ProfilGUID},'{WMDocPathWindows}',{CURRENT_DOC_GUID}"
DatabaseFallback.ExecuteNonQueryECM(oSQL)
LOGGER.Debug($"Skipped DocGUID {CURRENT_DOC_GUID}")
Load_Next_Document(False)
Catch ex As Exception
@@ -5469,11 +5569,12 @@ Public Class frmValidator
Sub Click_Additional_Searches()
Try
_frmValidatorSearch?.Close()
_frmValidatorSearch = New frmValidatorSearch
_frmValidatorSearch = New frmValidatorSearch(Me, Environment)
_frmValidatorSearch.Show()
Catch ex As Exception
LOGGER.Error(ex)
End Try
Load_Additional_Searches()
Load_Additional_Searches(False)
End Sub
Private Sub bbtniRefresh_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbtniRefresh.ItemClick
Reload_Controls("")
@@ -5488,12 +5589,8 @@ Public Class frmValidator
Private Sub bbtniNext_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbtniNext.ItemClick
If ForceGridValidation() = True Then
Reset_CurrentReferences()
Datei_ueberspringen()
Try
btnSave.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.ValidationButton")
Catch ex As Exception
End Try
End If
End Sub
@@ -5524,7 +5621,7 @@ Public Class frmValidator
If Check_UpdateIndexe() = True Then
SetStatusLabel($"Data saved", "LimeGreen")
LOGGER.Info("Workflowdata saved manually!")
Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, Environment.MachineName, "Manual Save via button")
Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, System.Environment.MachineName, "Manual Save via button")
DatabaseFallback.ExecuteNonQueryECM(ins)
Else
SetStatusLabel($"Error while saving data!", "Red")
@@ -5665,7 +5762,7 @@ Public Class frmValidator
MsgBox("Versioning not configured! (Reasons: RightManagement, Displaying)", MsgBoxStyle.Information)
End Sub
Private Sub BarButtonItem6_ItemClick_1(sender As Object, e As ItemClickEventArgs) Handles BarButtonItemAttmt.ItemClick
Private Sub BarButtonItem6_ItemClick_1(sender As Object, e As ItemClickEventArgs) Handles Attmt_bbtnitmShow.ItemClick
Click_Additional_Searches()
End Sub
@@ -5684,12 +5781,23 @@ Public Class frmValidator
$"EXEC dbo.PRPM_GETFILENAME_EXPORT {CURRENT_DOC_ID}, 1, @Outputfilename = @Filename OUTPUT;" & vbNewLine &
"SELECT @Filename"
Dim oExportFilename = DatabaseFallback.GetScalarValueECM(oSQLGetFilename)
If Not IsNothing(oExportFilename) Then
If IsDBNull(oExportFilename) Then
LOGGER.Info($"#### ATTENTION: oExportFilename is DBNULL - SQL: {oSQLGetFilename}")
oExportFilename = ""
End If
If oExportFilename <> String.Empty Then
oTargetPath = FolderBrowserDialog1.SelectedPath & "\" & oExportFilename & oExtension
File.Copy(WMDocPathWindows, oTargetPath)
oCount += 1
Else
MsgBox("Error encountered while extracting Export-Filename!" & vbNewLine & "Please inform Admin-Team!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)
End If
End If
oTargetPath = FolderBrowserDialog1.SelectedPath & "\" & oExportFilename & oExtension
File.Copy(WMDocPathWindows, oTargetPath)
oCount += 1
Dim oFileCount As Integer = 1
If Not IsNothing(DT_AdditionalSearches_Resultset_Docs) Then
For Each oFileRecord As DataRow In DT_AdditionalSearches_Resultset_Docs.Rows
Dim oFromFilename = oFileRecord.Item("FULL_FILENAME")
Dim oDocID = oFileRecord.Item("DocID")
@@ -5700,11 +5808,23 @@ Public Class frmValidator
"SELECT @Filename"
oExportFilename = DatabaseFallback.GetScalarValueECM(oSQLGetFilename)
oExtension = Path.GetExtension(oFromFilename)
If Not IsNothing(oExportFilename) Then
If IsDBNull(oExportFilename) Then
LOGGER.Info($"#### ATTENTION: oExportFilename is DBNULL - SQL: {oSQLGetFilename}")
oExportFilename = ""
End If
If oExportFilename <> String.Empty Then
oTargetPath = FolderBrowserDialog1.SelectedPath & "\" & oExportFilename & oExtension
File.Copy(oFromFilename, oTargetPath)
oCount += 1
Else
Dim omsg = $"Error encountered while extracting ATTACHMENT-Export-Filename DocID [{oDocID}]!"
LOGGER.Info($"#### ATTENTION: {omsg} SQL: {oSQLGetFilename}")
MsgBox(omsg & vbNewLine & "Please inform Admin-Team!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)
End If
End If
'oFilenameOnly = Path.GetFileName(oFromFilename)
oTargetPath = FolderBrowserDialog1.SelectedPath & "\" & oExportFilename & oExtension
File.Copy(oFromFilename, oTargetPath)
oCount += 1
End If
Next
End If
@@ -5725,12 +5845,12 @@ Public Class frmValidator
Private Sub ToggleSwitchItemLoadonClick_CheckedChanged(sender As Object, e As ItemClickEventArgs) Handles ToggleSwitchItemLoadonClick.CheckedChanged
Private Sub BarCheckItemLoadOnClick_CheckedChanged(sender As Object, e As ItemClickEventArgs) Handles Attmnt_bbtnitm_LoadonClick.CheckedChanged
If FormLoaded = False Then
Exit Sub
End If
Dim toggle As BarToggleSwitchItem = sender
CONFIG.Config.ADDITIONAL_SEARCHES_LOAD_ONCLICK = toggle.Checked
CONFIG.Config.ADDITIONAL_SEARCHES_LOAD_ONCLICK = Attmnt_bbtnitm_LoadonClick.Checked
CONFIG.Save()
End Sub
End Class

View File

@@ -84,7 +84,12 @@ Partial Class frmValidatorSearch
Me.ContextMenuStripSQL = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
Me.statlbl = New System.Windows.Forms.ToolStripStatusLabel()
CType(Me.SplitContainerControlDoc, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControlDoc.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControlDoc.Panel1.SuspendLayout()
CType(Me.SplitContainerControlDoc.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControlDoc.Panel2.SuspendLayout()
Me.SplitContainerControlDoc.SuspendLayout()
CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControlDocs.SuspendLayout()
@@ -135,10 +140,16 @@ Partial Class frmValidatorSearch
'
resources.ApplyResources(Me.SplitContainerControlDoc, "SplitContainerControlDoc")
Me.SplitContainerControlDoc.Name = "SplitContainerControlDoc"
resources.ApplyResources(Me.SplitContainerControlDoc.Panel1, "SplitContainerControlDoc.Panel1")
'
'SplitContainerControlDoc.Panel1
'
Me.SplitContainerControlDoc.Panel1.Controls.Add(Me.XtraTabControlDocs)
resources.ApplyResources(Me.SplitContainerControlDoc.Panel2, "SplitContainerControlDoc.Panel2")
resources.ApplyResources(Me.SplitContainerControlDoc.Panel1, "SplitContainerControlDoc.Panel1")
'
'SplitContainerControlDoc.Panel2
'
Me.SplitContainerControlDoc.Panel2.Controls.Add(Me.DocumentViewer1)
resources.ApplyResources(Me.SplitContainerControlDoc.Panel2, "SplitContainerControlDoc.Panel2")
Me.SplitContainerControlDoc.SplitterPosition = 351
'
'XtraTabControlDocs
@@ -150,25 +161,13 @@ Partial Class frmValidatorSearch
'
'XtraTabPageDoc1
'
resources.ApplyResources(Me.XtraTabPageDoc1, "XtraTabPageDoc1")
Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1)
Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1"
resources.ApplyResources(Me.XtraTabPageDoc1, "XtraTabPageDoc1")
'
'GridControlDocSearch1
'
resources.ApplyResources(Me.GridControlDocSearch1, "GridControlDocSearch1")
Me.GridControlDocSearch1.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch1.EmbeddedNavigator.AccessibleDescription")
Me.GridControlDocSearch1.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch1.EmbeddedNavigator.AccessibleName")
Me.GridControlDocSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlDocSearch1.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlDocSearch1.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlDocSearch1.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlDocSearch1.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlDocSearch1.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlDocSearch1.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlDocSearch1.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch1.EmbeddedNavigator.ToolTip")
Me.GridControlDocSearch1.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlDocSearch1.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch1.EmbeddedNavigator.ToolTipTitle")
GridLevelNode1.RelationName = "Level1"
Me.GridControlDocSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
Me.GridControlDocSearch1.MainView = Me.GridViewDocSearch1
@@ -181,7 +180,6 @@ Partial Class frmValidatorSearch
Me.GridViewDocSearch1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch1.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewDocSearch1, "GridViewDocSearch1")
Me.GridViewDocSearch1.GridControl = Me.GridControlDocSearch1
Me.GridViewDocSearch1.Name = "GridViewDocSearch1"
Me.GridViewDocSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -195,25 +193,13 @@ Partial Class frmValidatorSearch
'
'XtraTabPageDoc2
'
resources.ApplyResources(Me.XtraTabPageDoc2, "XtraTabPageDoc2")
Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2)
Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2"
resources.ApplyResources(Me.XtraTabPageDoc2, "XtraTabPageDoc2")
'
'GridControlDocSearch2
'
resources.ApplyResources(Me.GridControlDocSearch2, "GridControlDocSearch2")
Me.GridControlDocSearch2.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch2.EmbeddedNavigator.AccessibleDescription")
Me.GridControlDocSearch2.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch2.EmbeddedNavigator.AccessibleName")
Me.GridControlDocSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlDocSearch2.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlDocSearch2.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlDocSearch2.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlDocSearch2.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlDocSearch2.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlDocSearch2.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlDocSearch2.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch2.EmbeddedNavigator.ToolTip")
Me.GridControlDocSearch2.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlDocSearch2.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch2.EmbeddedNavigator.ToolTipTitle")
Me.GridControlDocSearch2.MainView = Me.GridViewDocSearch2
Me.GridControlDocSearch2.Name = "GridControlDocSearch2"
Me.GridControlDocSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch2})
@@ -224,7 +210,6 @@ Partial Class frmValidatorSearch
Me.GridViewDocSearch2.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch2.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewDocSearch2, "GridViewDocSearch2")
Me.GridViewDocSearch2.GridControl = Me.GridControlDocSearch2
Me.GridViewDocSearch2.Name = "GridViewDocSearch2"
Me.GridViewDocSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -238,25 +223,13 @@ Partial Class frmValidatorSearch
'
'XtraTabPageDoc3
'
resources.ApplyResources(Me.XtraTabPageDoc3, "XtraTabPageDoc3")
Me.XtraTabPageDoc3.Controls.Add(Me.GridControlDocSearch3)
Me.XtraTabPageDoc3.Name = "XtraTabPageDoc3"
resources.ApplyResources(Me.XtraTabPageDoc3, "XtraTabPageDoc3")
'
'GridControlDocSearch3
'
resources.ApplyResources(Me.GridControlDocSearch3, "GridControlDocSearch3")
Me.GridControlDocSearch3.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch3.EmbeddedNavigator.AccessibleDescription")
Me.GridControlDocSearch3.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch3.EmbeddedNavigator.AccessibleName")
Me.GridControlDocSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlDocSearch3.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlDocSearch3.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlDocSearch3.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlDocSearch3.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlDocSearch3.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlDocSearch3.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlDocSearch3.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch3.EmbeddedNavigator.ToolTip")
Me.GridControlDocSearch3.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlDocSearch3.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch3.EmbeddedNavigator.ToolTipTitle")
Me.GridControlDocSearch3.MainView = Me.GridViewDocSearch3
Me.GridControlDocSearch3.Name = "GridControlDocSearch3"
Me.GridControlDocSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch3})
@@ -267,7 +240,6 @@ Partial Class frmValidatorSearch
Me.GridViewDocSearch3.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch3.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewDocSearch3, "GridViewDocSearch3")
Me.GridViewDocSearch3.GridControl = Me.GridControlDocSearch3
Me.GridViewDocSearch3.Name = "GridViewDocSearch3"
Me.GridViewDocSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -281,25 +253,13 @@ Partial Class frmValidatorSearch
'
'XtraTabPageDoc4
'
resources.ApplyResources(Me.XtraTabPageDoc4, "XtraTabPageDoc4")
Me.XtraTabPageDoc4.Controls.Add(Me.GridControlDocSearch4)
Me.XtraTabPageDoc4.Name = "XtraTabPageDoc4"
resources.ApplyResources(Me.XtraTabPageDoc4, "XtraTabPageDoc4")
'
'GridControlDocSearch4
'
resources.ApplyResources(Me.GridControlDocSearch4, "GridControlDocSearch4")
Me.GridControlDocSearch4.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch4.EmbeddedNavigator.AccessibleDescription")
Me.GridControlDocSearch4.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch4.EmbeddedNavigator.AccessibleName")
Me.GridControlDocSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlDocSearch4.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlDocSearch4.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlDocSearch4.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlDocSearch4.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlDocSearch4.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlDocSearch4.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlDocSearch4.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch4.EmbeddedNavigator.ToolTip")
Me.GridControlDocSearch4.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlDocSearch4.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch4.EmbeddedNavigator.ToolTipTitle")
Me.GridControlDocSearch4.MainView = Me.GridViewDocSearch4
Me.GridControlDocSearch4.Name = "GridControlDocSearch4"
Me.GridControlDocSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch4})
@@ -310,7 +270,6 @@ Partial Class frmValidatorSearch
Me.GridViewDocSearch4.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch4.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewDocSearch4, "GridViewDocSearch4")
Me.GridViewDocSearch4.GridControl = Me.GridControlDocSearch4
Me.GridViewDocSearch4.Name = "GridViewDocSearch4"
Me.GridViewDocSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -324,25 +283,13 @@ Partial Class frmValidatorSearch
'
'XtraTabPageDoc5
'
resources.ApplyResources(Me.XtraTabPageDoc5, "XtraTabPageDoc5")
Me.XtraTabPageDoc5.Controls.Add(Me.GridControlDocSearch5)
Me.XtraTabPageDoc5.Name = "XtraTabPageDoc5"
resources.ApplyResources(Me.XtraTabPageDoc5, "XtraTabPageDoc5")
'
'GridControlDocSearch5
'
resources.ApplyResources(Me.GridControlDocSearch5, "GridControlDocSearch5")
Me.GridControlDocSearch5.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch5.EmbeddedNavigator.AccessibleDescription")
Me.GridControlDocSearch5.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch5.EmbeddedNavigator.AccessibleName")
Me.GridControlDocSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlDocSearch5.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlDocSearch5.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlDocSearch5.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlDocSearch5.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlDocSearch5.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlDocSearch5.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlDocSearch5.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch5.EmbeddedNavigator.ToolTip")
Me.GridControlDocSearch5.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlDocSearch5.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch5.EmbeddedNavigator.ToolTipTitle")
Me.GridControlDocSearch5.MainView = Me.GridViewDocSearch5
Me.GridControlDocSearch5.Name = "GridControlDocSearch5"
Me.GridControlDocSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch5})
@@ -353,7 +300,6 @@ Partial Class frmValidatorSearch
Me.GridViewDocSearch5.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch5.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewDocSearch5, "GridViewDocSearch5")
Me.GridViewDocSearch5.GridControl = Me.GridControlDocSearch5
Me.GridViewDocSearch5.Name = "GridViewDocSearch5"
Me.GridViewDocSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -373,19 +319,17 @@ Partial Class frmValidatorSearch
'
'SplitContainerSearches
'
resources.ApplyResources(Me.SplitContainerSearches, "SplitContainerSearches")
Me.SplitContainerSearches.DataBindings.Add(New System.Windows.Forms.Binding("SplitterDistance", Global.DD_ProcessManager.My.MySettings.Default, "frmValSearchSplitterDistance", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
resources.ApplyResources(Me.SplitContainerSearches, "SplitContainerSearches")
Me.SplitContainerSearches.Name = "SplitContainerSearches"
'
'SplitContainerSearches.Panel1
'
resources.ApplyResources(Me.SplitContainerSearches.Panel1, "SplitContainerSearches.Panel1")
Me.SplitContainerSearches.Panel1.Controls.Add(Me.XtraTabControlSQL)
Me.SplitContainerSearches.Panel1.Controls.Add(Me.StatusStrip1)
'
'SplitContainerSearches.Panel2
'
resources.ApplyResources(Me.SplitContainerSearches.Panel2, "SplitContainerSearches.Panel2")
Me.SplitContainerSearches.Panel2.Controls.Add(Me.SplitContainerControlDoc)
Me.SplitContainerSearches.Panel2.Controls.Add(Me.ToolStrip2)
Me.SplitContainerSearches.SplitterDistance = Global.DD_ProcessManager.My.MySettings.Default.frmValSearchSplitterDistance
@@ -399,25 +343,13 @@ Partial Class frmValidatorSearch
'
'XtraTabPageSearch1
'
resources.ApplyResources(Me.XtraTabPageSearch1, "XtraTabPageSearch1")
Me.XtraTabPageSearch1.Controls.Add(Me.GridControlSearch1)
Me.XtraTabPageSearch1.Name = "XtraTabPageSearch1"
resources.ApplyResources(Me.XtraTabPageSearch1, "XtraTabPageSearch1")
'
'GridControlSearch1
'
resources.ApplyResources(Me.GridControlSearch1, "GridControlSearch1")
Me.GridControlSearch1.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch1.EmbeddedNavigator.AccessibleDescription")
Me.GridControlSearch1.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch1.EmbeddedNavigator.AccessibleName")
Me.GridControlSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlSearch1.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlSearch1.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlSearch1.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlSearch1.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlSearch1.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlSearch1.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlSearch1.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch1.EmbeddedNavigator.ToolTip")
Me.GridControlSearch1.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlSearch1.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch1.EmbeddedNavigator.ToolTipTitle")
GridLevelNode2.RelationName = "Level1"
Me.GridControlSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
Me.GridControlSearch1.MainView = Me.GridViewSearch1
@@ -430,7 +362,6 @@ Partial Class frmValidatorSearch
Me.GridViewSearch1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch1.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewSearch1, "GridViewSearch1")
Me.GridViewSearch1.GridControl = Me.GridControlSearch1
Me.GridViewSearch1.Name = "GridViewSearch1"
Me.GridViewSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -444,25 +375,13 @@ Partial Class frmValidatorSearch
'
'XtraTabPageSearch2
'
resources.ApplyResources(Me.XtraTabPageSearch2, "XtraTabPageSearch2")
Me.XtraTabPageSearch2.Controls.Add(Me.GridControlSearch2)
Me.XtraTabPageSearch2.Name = "XtraTabPageSearch2"
resources.ApplyResources(Me.XtraTabPageSearch2, "XtraTabPageSearch2")
'
'GridControlSearch2
'
resources.ApplyResources(Me.GridControlSearch2, "GridControlSearch2")
Me.GridControlSearch2.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch2.EmbeddedNavigator.AccessibleDescription")
Me.GridControlSearch2.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch2.EmbeddedNavigator.AccessibleName")
Me.GridControlSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlSearch2.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlSearch2.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlSearch2.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlSearch2.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlSearch2.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlSearch2.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlSearch2.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch2.EmbeddedNavigator.ToolTip")
Me.GridControlSearch2.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlSearch2.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch2.EmbeddedNavigator.ToolTipTitle")
GridLevelNode3.RelationName = "Level1"
Me.GridControlSearch2.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3})
Me.GridControlSearch2.MainView = Me.GridViewSearch2
@@ -475,7 +394,6 @@ Partial Class frmValidatorSearch
Me.GridViewSearch2.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch2.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewSearch2, "GridViewSearch2")
Me.GridViewSearch2.GridControl = Me.GridControlSearch2
Me.GridViewSearch2.Name = "GridViewSearch2"
Me.GridViewSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -489,25 +407,13 @@ Partial Class frmValidatorSearch
'
'XtraTabPageSearch3
'
resources.ApplyResources(Me.XtraTabPageSearch3, "XtraTabPageSearch3")
Me.XtraTabPageSearch3.Controls.Add(Me.GridControlSearch3)
Me.XtraTabPageSearch3.Name = "XtraTabPageSearch3"
resources.ApplyResources(Me.XtraTabPageSearch3, "XtraTabPageSearch3")
'
'GridControlSearch3
'
resources.ApplyResources(Me.GridControlSearch3, "GridControlSearch3")
Me.GridControlSearch3.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch3.EmbeddedNavigator.AccessibleDescription")
Me.GridControlSearch3.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch3.EmbeddedNavigator.AccessibleName")
Me.GridControlSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlSearch3.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlSearch3.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlSearch3.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlSearch3.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlSearch3.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlSearch3.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlSearch3.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch3.EmbeddedNavigator.ToolTip")
Me.GridControlSearch3.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlSearch3.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch3.EmbeddedNavigator.ToolTipTitle")
GridLevelNode4.RelationName = "Level1"
Me.GridControlSearch3.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4})
Me.GridControlSearch3.MainView = Me.GridViewSearch3
@@ -520,7 +426,6 @@ Partial Class frmValidatorSearch
Me.GridViewSearch3.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch3.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewSearch3, "GridViewSearch3")
Me.GridViewSearch3.GridControl = Me.GridControlSearch3
Me.GridViewSearch3.Name = "GridViewSearch3"
Me.GridViewSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -534,25 +439,13 @@ Partial Class frmValidatorSearch
'
'XtraTabPageSearch4
'
resources.ApplyResources(Me.XtraTabPageSearch4, "XtraTabPageSearch4")
Me.XtraTabPageSearch4.Controls.Add(Me.GridControlSearch4)
Me.XtraTabPageSearch4.Name = "XtraTabPageSearch4"
resources.ApplyResources(Me.XtraTabPageSearch4, "XtraTabPageSearch4")
'
'GridControlSearch4
'
resources.ApplyResources(Me.GridControlSearch4, "GridControlSearch4")
Me.GridControlSearch4.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch4.EmbeddedNavigator.AccessibleDescription")
Me.GridControlSearch4.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch4.EmbeddedNavigator.AccessibleName")
Me.GridControlSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlSearch4.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlSearch4.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlSearch4.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlSearch4.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlSearch4.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlSearch4.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlSearch4.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch4.EmbeddedNavigator.ToolTip")
Me.GridControlSearch4.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlSearch4.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch4.EmbeddedNavigator.ToolTipTitle")
GridLevelNode5.RelationName = "Level1"
Me.GridControlSearch4.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode5})
Me.GridControlSearch4.MainView = Me.GridViewSearch4
@@ -565,7 +458,6 @@ Partial Class frmValidatorSearch
Me.GridViewSearch4.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch4.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewSearch4, "GridViewSearch4")
Me.GridViewSearch4.GridControl = Me.GridControlSearch4
Me.GridViewSearch4.Name = "GridViewSearch4"
Me.GridViewSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -579,25 +471,13 @@ Partial Class frmValidatorSearch
'
'XtraTabPageSearch5
'
resources.ApplyResources(Me.XtraTabPageSearch5, "XtraTabPageSearch5")
Me.XtraTabPageSearch5.Controls.Add(Me.GridControlSearch5)
Me.XtraTabPageSearch5.Name = "XtraTabPageSearch5"
resources.ApplyResources(Me.XtraTabPageSearch5, "XtraTabPageSearch5")
'
'GridControlSearch5
'
resources.ApplyResources(Me.GridControlSearch5, "GridControlSearch5")
Me.GridControlSearch5.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch5.EmbeddedNavigator.AccessibleDescription")
Me.GridControlSearch5.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch5.EmbeddedNavigator.AccessibleName")
Me.GridControlSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlSearch5.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlSearch5.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlSearch5.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlSearch5.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlSearch5.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlSearch5.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlSearch5.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch5.EmbeddedNavigator.ToolTip")
Me.GridControlSearch5.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlSearch5.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch5.EmbeddedNavigator.ToolTipTitle")
GridLevelNode6.RelationName = "Level1"
Me.GridControlSearch5.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode6})
Me.GridControlSearch5.MainView = Me.GridViewSearch5
@@ -610,7 +490,6 @@ Partial Class frmValidatorSearch
Me.GridViewSearch5.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch5.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewSearch5, "GridViewSearch5")
Me.GridViewSearch5.GridControl = Me.GridControlSearch5
Me.GridViewSearch5.Name = "GridViewSearch5"
Me.GridViewSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -624,14 +503,14 @@ Partial Class frmValidatorSearch
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsslblSQL, Me.statlbl})
resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsslblSQL})
Me.StatusStrip1.Name = "StatusStrip1"
'
'tsslblSQL
'
resources.ApplyResources(Me.tsslblSQL, "tsslblSQL")
Me.tsslblSQL.Name = "tsslblSQL"
resources.ApplyResources(Me.tsslblSQL, "tsslblSQL")
'
'ToolStrip2
'
@@ -641,52 +520,52 @@ Partial Class frmValidatorSearch
'
'tslblDocID
'
resources.ApplyResources(Me.tslblDocID, "tslblDocID")
Me.tslblDocID.Name = "tslblDocID"
resources.ApplyResources(Me.tslblDocID, "tslblDocID")
'
'tslblState
'
resources.ApplyResources(Me.tslblState, "tslblState")
Me.tslblState.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.tslblState.Name = "tslblState"
resources.ApplyResources(Me.tslblState, "tslblState")
'
'ToolStrip1
'
resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripDropDownButtonFile, Me.ToolStripButtonRefreshSearches})
resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
Me.ToolStrip1.Name = "ToolStrip1"
'
'ToolStripDropDownButtonFile
'
resources.ApplyResources(Me.ToolStripDropDownButtonFile, "ToolStripDropDownButtonFile")
Me.ToolStripDropDownButtonFile.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripDropDownButtonFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem1, Me.EigenschaftenToolStripMenuItem})
Me.ToolStripDropDownButtonFile.Image = Global.DD_ProcessManager.My.Resources.Resources.ID_FILE_PAGE_SETUP
resources.ApplyResources(Me.ToolStripDropDownButtonFile, "ToolStripDropDownButtonFile")
Me.ToolStripDropDownButtonFile.Name = "ToolStripDropDownButtonFile"
'
'DateiÖffnenToolStripMenuItem1
'
resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem1, "DateiÖffnenToolStripMenuItem1")
Me.DateiÖffnenToolStripMenuItem1.Image = Global.DD_ProcessManager.My.Resources.Resources.OpenFileDialog_692
Me.DateiÖffnenToolStripMenuItem1.Name = "DateiÖffnenToolStripMenuItem1"
resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem1, "DateiÖffnenToolStripMenuItem1")
'
'EigenschaftenToolStripMenuItem
'
resources.ApplyResources(Me.EigenschaftenToolStripMenuItem, "EigenschaftenToolStripMenuItem")
Me.EigenschaftenToolStripMenuItem.Image = Global.DD_ProcessManager.My.Resources.Resources.Properties
Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem"
resources.ApplyResources(Me.EigenschaftenToolStripMenuItem, "EigenschaftenToolStripMenuItem")
'
'ToolStripButtonRefreshSearches
'
resources.ApplyResources(Me.ToolStripButtonRefreshSearches, "ToolStripButtonRefreshSearches")
Me.ToolStripButtonRefreshSearches.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG
resources.ApplyResources(Me.ToolStripButtonRefreshSearches, "ToolStripButtonRefreshSearches")
Me.ToolStripButtonRefreshSearches.Name = "ToolStripButtonRefreshSearches"
'
'ContextMenuStripWMFile
'
resources.ApplyResources(Me.ContextMenuStripWMFile, "ContextMenuStripWMFile")
Me.ContextMenuStripWMFile.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EigenschaftenDateiToolStripMenuItem, Me.DateiÖffnenToolStripMenuItem, Me.ToolStripSeparator1, Me.ToolStripMenuItem1, Me.LayoutZurücksetzenToolStripMenuItem})
Me.ContextMenuStripWMFile.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStripWMFile, "ContextMenuStripWMFile")
'
'EigenschaftenDateiToolStripMenuItem
'
@@ -700,36 +579,42 @@ Partial Class frmValidatorSearch
'
'ToolStripSeparator1
'
resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
'
'ToolStripMenuItem1
'
resources.ApplyResources(Me.ToolStripMenuItem1, "ToolStripMenuItem1")
Me.ToolStripMenuItem1.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
resources.ApplyResources(Me.ToolStripMenuItem1, "ToolStripMenuItem1")
'
'LayoutZurücksetzenToolStripMenuItem
'
resources.ApplyResources(Me.LayoutZurücksetzenToolStripMenuItem, "LayoutZurücksetzenToolStripMenuItem")
Me.LayoutZurücksetzenToolStripMenuItem.Name = "LayoutZurücksetzenToolStripMenuItem"
resources.ApplyResources(Me.LayoutZurücksetzenToolStripMenuItem, "LayoutZurücksetzenToolStripMenuItem")
'
'ContextMenuStripSQL
'
resources.ApplyResources(Me.ContextMenuStripSQL, "ContextMenuStripSQL")
Me.ContextMenuStripSQL.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator2, Me.ToolStripMenuItem4})
Me.ContextMenuStripSQL.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStripSQL, "ContextMenuStripSQL")
'
'ToolStripSeparator2
'
resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2")
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2")
'
'ToolStripMenuItem4
'
resources.ApplyResources(Me.ToolStripMenuItem4, "ToolStripMenuItem4")
Me.ToolStripMenuItem4.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
resources.ApplyResources(Me.ToolStripMenuItem4, "ToolStripMenuItem4")
'
'statlbl
'
Me.statlbl.BackColor = System.Drawing.Color.Red
Me.statlbl.Name = "statlbl"
resources.ApplyResources(Me.statlbl, "statlbl")
'
'frmValidatorSearch
'
@@ -739,6 +624,10 @@ Partial Class frmValidatorSearch
Me.Controls.Add(Me.ToolStrip1)
Me.MinimizeBox = False
Me.Name = "frmValidatorSearch"
CType(Me.SplitContainerControlDoc.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControlDoc.Panel1.ResumeLayout(False)
CType(Me.SplitContainerControlDoc.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControlDoc.Panel2.ResumeLayout(False)
CType(Me.SplitContainerControlDoc, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControlDoc.ResumeLayout(False)
CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).EndInit()
@@ -848,4 +737,5 @@ Partial Class frmValidatorSearch
Friend WithEvents tsslblSQL As ToolStripStatusLabel
Friend WithEvents SplitContainerControlDoc As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer
Friend WithEvents statlbl As ToolStripStatusLabel
End Class

View File

@@ -117,371 +117,7 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="GridControlDocSearch1.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControlDocSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v21.2">
<value>Default</value>
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="GridControlDocSearch1.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<assembly alias="DevExpress.XtraEditors.v21.2" name="DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControlDocSearch1.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v21.2">
<value>Center</value>
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<assembly alias="DevExpress.Utils.v21.2" name="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControlDocSearch1.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v21.2">
<value>None</value>
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v21.2">
<value>Default</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v21.2">
<value>Center</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v21.2">
<value>None</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v21.2">
<value>Default</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v21.2">
<value>Center</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v21.2">
<value>None</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v21.2">
<value>Default</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v21.2">
<value>Center</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v21.2">
<value>None</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v21.2">
<value>Default</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v21.2">
<value>Center</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v21.2">
<value>None</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch1.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch1.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v21.2">
<value>Default</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch1.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v21.2">
<value>Center</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch1.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v21.2">
<value>None</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch2.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch2.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v21.2">
<value>Default</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch2.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v21.2">
<value>Center</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch2.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v21.2">
<value>None</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch3.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch3.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v21.2">
<value>Default</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch3.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v21.2">
<value>Center</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch3.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v21.2">
<value>None</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch4.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch4.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v21.2">
<value>Default</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch4.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v21.2">
<value>Center</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch4.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v21.2">
<value>None</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch5.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch5.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v21.2">
<value>Default</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch5.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v21.2">
<value>Center</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch5.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v21.2">
<value>None</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="ToolStripButtonRefreshSearches.Size" type="System.Drawing.Size, System.Drawing">
<value>115, 22</value>
</data>

File diff suppressed because it is too large Load Diff

View File

@@ -7,8 +7,12 @@ Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraTab
Imports DigitalData.GUIs.Common.DocumentResultList
Imports DigitalData.Modules.EDMI.API.Constants
Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback
Imports DigitalData.Modules.ZooFlow.Constants
Imports DigitalData.Modules.ZooFlow
Imports DigitalData.GUIs.Common
Public Class frmValidatorSearch
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
@@ -43,7 +47,35 @@ Public Class frmValidatorSearch
Private _frmValidator As frmValidator 'You need a reference to Form1
Private Shared BW_DocPath As String
Private Shared BW_DocID As Integer
Private Documentloader As Loader
Private Property OperationMode As OperationMode
Private ReadOnly Environment As Environment
Public Sub New(pfrmValidator As frmValidator, pEnvironment As Environment)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
_frmValidator = pfrmValidator
Environment = pEnvironment
End Sub
Private Function GetOperationMode() As OperationMode
Dim oOperationMode As OperationMode
If Environment.Service.Client Is Nothing Then
Return OperationMode.NoAppServer
End If
If Environment.Service.Client.IsOnline AndAlso Environment.Service.Client.ServerAddress <> String.Empty And IDB_USES_WMFILESTORE = False Then
oOperationMode = OperationMode.WithAppServer
Else
oOperationMode = OperationMode.NoAppServer
End If
If OPERATION_MODE_FS = ClassConstants.OpModeFS_ZF Then
oOperationMode = OperationMode.ZooFlow
End If
Return oOperationMode
End Function
Public Sub TabPreload(Panel1Collapsed As Boolean, Panel2Collapsed As Boolean, TabCountSQL As Integer, TabCountDoc As Integer, DTSQL As DataTable, DTDOC As DataTable)
Try
If Me.InvokeRequired() Then
@@ -375,6 +407,7 @@ Public Class frmValidatorSearch
Return MyGridView
Catch ex As Exception
LOGGER.Error(ex)
Return Nothing
End Try
End Function
Private Sub frmValidatorSearch_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
@@ -402,6 +435,11 @@ Public Class frmValidatorSearch
Catch ex As Exception
LOGGER.Warn("Error initializing DocViewDocsValdiatorSearch: " & ex.Message)
End Try
OperationMode = GetOperationMode()
Documentloader = New Loader(LOGCONFIG, OperationMode, Environment.Service.Client, Environment.User)
SplitContainerSearches.Panel1Collapsed = True
If My.Settings.frmValidatorSearchPosition.IsEmpty = False Then
If My.Settings.frmValidatorSearchPosition.X > 0 And My.Settings.frmValidatorSearchPosition.Y > 0 Then
@@ -412,7 +450,7 @@ Public Class frmValidatorSearch
Size = My.Settings.frmValidatorSearchSize
End If
SplitContainerSearches.SplitterDistance = My.Settings.frmValSearchSplitterDistance
_frmValidator = frmValidator
ToolStripDropDownButtonFile.Visible = False
End Sub
@@ -466,32 +504,48 @@ Public Class frmValidatorSearch
Next
End Sub
Sub Refresh_DocID(myGrid As GridView)
clsWMDocGrid.ActiveDocGrid = myGrid
clsWMDocGrid.ActiveDocGrid.EndSelection()
clsWMDocGrid.GetDocItems()
If ToolStripDropDownButtonFile.Visible = False Then
ToolStripDropDownButtonFile.Visible = True
End If
If clsWMDocGrid.SELECTED_DOC_ID <> 0 Then
Dim msg = "Doc-ID: " & clsWMDocGrid.SELECTED_DOC_ID.ToString
tslblDocID.Text = msg
ToolStripDropDownButtonFile.Enabled = True
If Not IsNothing(clsWMDocGrid.SELECTED_DOC_PATH) And Not IsNothing(DocumentViewer1) Then
If clsWMDocGrid.SELECTED_DOC_PATH <> "" Then
DocumentViewer1.LoadFile(clsWMDocGrid.SELECTED_DOC_PATH)
DocumentViewer1.RightViewOnly(USER_RIGHT_VIEW_ONLY)
If USER_RIGHT_VIEW_ONLY = True Then
ToolStripDropDownButtonFile.Visible = False
Else
ToolStripDropDownButtonFile.Visible = True
End If
End If
Try
clsWMDocGrid.ActiveDocGrid = myGrid
clsWMDocGrid.ActiveDocGrid.EndSelection()
clsWMDocGrid.GetDocItems()
If ToolStripDropDownButtonFile.Visible = False Then
ToolStripDropDownButtonFile.Visible = True
End If
If clsWMDocGrid.SELECTED_DOC_ID <> 0 Then
Dim msg = "DocID: " & clsWMDocGrid.SELECTED_DOC_ID.ToString
tslblDocID.Text = msg
ToolStripDropDownButtonFile.Enabled = True
Dim oDocument As DocumentResultList.Document = Nothing
' Load DocumentInfo
oDocument = Documentloader.Load(clsWMDocGrid.SELECTED_DOC_ID, clsWMDocGrid.SELECTED_DOC_PATH)
If Not IsNothing(DocumentViewer1) Then
' DocumentViewer1.LoadFile(clsWMDocGrid.SELECTED_DOC_PATH)
Dim oFileName = $"{clsWMDocGrid.SELECTED_DOC_ID}.{oDocument.Extension}"
If Not IsNothing(oDocument.Contents) Then
DocumentViewer1.LoadFile(oFileName, New MemoryStream(oDocument.Contents))
DocumentViewer1.RightViewOnly(USER_RIGHT_VIEW_ONLY)
If USER_RIGHT_VIEW_ONLY = True Then
ToolStripDropDownButtonFile.Visible = False
Else
ToolStripDropDownButtonFile.Visible = True
End If
Else
statlbl.Text = "odocument.content is nothing, Check Your log"
End If
End If
Else
tslblDocID.Text = "DocRow not selected"
ToolStripDropDownButtonFile.Enabled = False
End If
Catch ex As Exception
LOGGER.Error(ex)
End Try
Else
tslblDocID.Text = "DocRow not selected"
ToolStripDropDownButtonFile.Enabled = False
End If
End Sub
Private Sub GridViewDocSearch1_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewDocSearch1.FocusedRowChanged
Refresh_DocID(GridViewDocSearch1)
@@ -628,13 +682,13 @@ Public Class frmValidatorSearch
XtraTabControlSQL.SelectedTabPageIndex = 0
Refresh_Load_GridSQL(oConID, oCommand, 0, BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("TAB_TITLE"))
End If
If BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then
_DTDocSearches = BASEDATA_DT_PROFILE_SEARCHES_DOC
Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID")
Dim oCommand = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND")
If DT_FILTERED_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then
_DTDocSearches = DT_FILTERED_PROFILE_SEARCHES_DOC
Dim oConID = DT_FILTERED_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID")
Dim oCommand = DT_FILTERED_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND")
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.PanelValidatorControl, True)
XtraTabControlDocs.SelectedTabPageIndex = 0
RefreshTabDoc(oConID, oCommand, 0, BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("TAB_TITLE"))
RefreshTabDoc(oConID, oCommand, 0, DT_FILTERED_PROFILE_SEARCHES_DOC.Rows(0).Item("TAB_TITLE"))
End If
End Sub
@@ -647,10 +701,10 @@ Public Class frmValidatorSearch
End Sub
Sub ReLoad_Active_DocTab()
Dim oTabIndex = XtraTabControlDocs.SelectedTabPageIndex
Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("CONN_ID")
Dim oCommand = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("SQL_COMMAND")
Dim oConID = DT_FILTERED_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("CONN_ID")
Dim oCommand = DT_FILTERED_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("SQL_COMMAND")
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.PanelValidatorControl, True)
RefreshTabDoc(oConID, oCommand, oTabIndex, BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("TAB_TITLE"))
RefreshTabDoc(oConID, oCommand, oTabIndex, DT_FILTERED_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("TAB_TITLE"))
End Sub
Private Sub LayoutZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LayoutZurücksetzenToolStripMenuItem.Click