AppStd/ZooFlow
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: AppStd:20407ff861346722105566861404436e329709a6
Branches Tags
AppStd:master
..
compare: AppStd:master
Branches Tags
AppStd:master

8 Commits
20407ff861 ... master

Author SHA1 Message Date
Jonathan Jenne
5cafdfc6f6 merge 2022-07-26 15:56:49 +02:00
Digital Data - Marlon Schreiber
9241752a89 MS FolderImport 2022-07-14 15:17:27 +02:00
Jonathan Jenne
234ce3d784 Add ListSearches 2022-07-05 08:41:41 +02:00
Digital Data - Marlon Schreiber
284b5a6363 MS 2022-07-04 13:55:29 +02:00
Digital Data - Marlon Schreiber
efbd9c55a5 MS Duplicate 2022-07-04 13:54:16 +02:00
Jonathan Jenne
0c26b56c84 Implement refreshing search from DocumentResultList 2022-06-15 16:36:18 +02:00
Jonathan Jenne
930b2e4900 clean up init 2022-06-15 16:35:10 +02:00
Jonathan Jenne
034b8ad4fa add MailLicense.xml 2022-06-15 14:06:56 +02:00
35 changed files with 2385 additions and 455 deletions
Expand all files Collapse all files

2
ZooFlow/Administration/IDB/frmAdmin_IDBObjectStore.vb
View File

@@ -8,7 +8,7 @@ Public Class frmAdmin_IDBObjectStore
Public Property HasChanges As Boolean Implements IAdminForm.HasChanges Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
Private FormHelper As FormHelper Private ReadOnly FormHelper As FormHelper
Public Property IsInsert As Boolean Implements IAdminForm.IsInsert Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
Dim oStorePath As String = String.Empty Dim oStorePath As String = String.Empty

54
ZooFlow/App.config
View File

@@ -21,10 +21,10 @@
</DigitalData.GUIs.ZooFlow.Settings> </DigitalData.GUIs.ZooFlow.Settings>
<DevExpress.LookAndFeel.Design.AppSettings> <DevExpress.LookAndFeel.Design.AppSettings>
<setting name="DefaultAppSkin" serializeAs="String"> <setting name="DefaultAppSkin" serializeAs="String">
<value>Skin/Office 2019 Colorful</value> <value></value>
</setting> </setting>
<setting name="DefaultPalette" serializeAs="String"> <setting name="DefaultPalette" serializeAs="String">
<value>Custom/Digital Data Palette</value> <value>Custom/Digital Data</value>
</setting> </setting>
<setting name="TouchUI" serializeAs="String"> <setting name="TouchUI" serializeAs="String">
<value></value> <value></value>
@@ -36,7 +36,7 @@
<value></value> <value></value>
</setting> </setting>
<setting name="DirectX" serializeAs="String"> <setting name="DirectX" serializeAs="String">
<value></value> <value>True</value>
</setting> </setting>
<setting name="RegisterUserSkins" serializeAs="String"> <setting name="RegisterUserSkins" serializeAs="String">
<value></value> <value></value>
@@ -81,6 +81,30 @@
<SvgColor Name="Gray" Value="169,168,168" /> <SvgColor Name="Gray" Value="169,168,168" />
<SvgColor Name="White" Value="255,255,255" /> <SvgColor Name="White" Value="255,255,255" />
</SvgPalette> </SvgPalette>
<SvgPalette Name="Digital Data 2">
<SvgColor Name="Paint" Value="248,248,248" />
<SvgColor Name="Paint High" Value="255,255,255" />
<SvgColor Name="Paint Shadow" Value="255,214,49" />
<SvgColor Name="Paint Deep Shadow" Value="230,230,230" />
<SvgColor Name="Brush" Value="72,70,68" />
<SvgColor Name="Brush High" Value="72,70,68" />
<SvgColor Name="Brush Light" Value="119,119,119" />
<SvgColor Name="Brush Major" Value="171,171,171" />
<SvgColor Name="Brush Minor" Value="210,210,210" />
<SvgColor Name="Accent Paint" Value="165,36,49" />
<SvgColor Name="Accent Paint Dark" Value="165,36,49" />
<SvgColor Name="Accent Paint Light" Value="250,220,221" />
<SvgColor Name="Accent Paint Lighter" Value="251,233,234" />
<SvgColor Name="Accent Brush" Value="255,255,255" />
<SvgColor Name="Accent Brush Light" Value="218,175,176" />
<SvgColor Name="Red" Value="237,61,59" />
<SvgColor Name="Green" Value="48,144,72" />
<SvgColor Name="Blue" Value="30,139,205" />
<SvgColor Name="Yellow" Value="251,152,59" />
<SvgColor Name="Black" Value="87,87,85" />
<SvgColor Name="Gray" Value="169,168,168" />
<SvgColor Name="White" Value="255,255,255" />
</SvgPalette>
</Skin> </Skin>
<Skin Name="Basic"> <Skin Name="Basic">
<SvgPalette Name="Digital Data"> <SvgPalette Name="Digital Data">
@@ -107,6 +131,30 @@
<SvgColor Name="Gray" Value="191,191,194" /> <SvgColor Name="Gray" Value="191,191,194" />
<SvgColor Name="White" Value="255,255,255" /> <SvgColor Name="White" Value="255,255,255" />
</SvgPalette> </SvgPalette>
<SvgPalette Name="Digital Data 2">
<SvgColor Name="Paint" Value="240,240,240" />
<SvgColor Name="Paint High" Value="255,255,255" />
<SvgColor Name="Paint Shadow" Value="255,214,49" />
<SvgColor Name="Paint Deep Shadow" Value="210,210,210" />
<SvgColor Name="Brush" Value="40,40,40" />
<SvgColor Name="Brush High" Value="40,40,40" />
<SvgColor Name="Brush Light" Value="120,120,120" />
<SvgColor Name="Brush Major" Value="160,160,160" />
<SvgColor Name="Brush Minor" Value="200,200,200" />
<SvgColor Name="Accent Paint" Value="165,36,49" />
<SvgColor Name="Accent Paint Dark" Value="133,28,38" />
<SvgColor Name="Accent Paint Light" Value="255,236,161" />
<SvgColor Name="Accent Paint Lighter" Value="255,244,203" />
<SvgColor Name="Accent Brush" Value="255,255,255" />
<SvgColor Name="Accent Brush Light" Value="255,236,161" />
<SvgColor Name="Red" Value="208,49,68" />
<SvgColor Name="Green" Value="56,152,83" />
<SvgColor Name="Blue" Value="78,138,200" />
<SvgColor Name="Yellow" Value="241,151,63" />
<SvgColor Name="Black" Value="108,109,117" />
<SvgColor Name="Gray" Value="191,191,194" />
<SvgColor Name="White" Value="255,255,255" />
</SvgPalette>
</Skin> </Skin>
</CustomPaletteCollection> </CustomPaletteCollection>
</value> </value>

85
ZooFlow/ClassInit.vb
View File

@@ -35,9 +35,8 @@ Public Class ClassInit
_Loader = New ClassInitLoader(LogConfig) _Loader = New ClassInitLoader(LogConfig)
' === Init Schritte definieren ' === Init Schritte definieren
_Loader.AddStep("Initializing Base", AddressOf InitializeBase, True) _Loader.AddStep("Initializing Service", AddressOf InitializeService, True)
_Loader.AddStep("Initializing EDMI Service", AddressOf InitializeService, True) _Loader.AddStep("Initializing Database", AddressOf InitializeDatabase, True)
_Loader.AddStep("Initializing Database", AddressOf InitializeDatabaseWithFallback, True)
_Loader.AddStep("Initializing User", AddressOf InitializeUser, True) _Loader.AddStep("Initializing User", AddressOf InitializeUser, True)
_Loader.AddStep("Initializing BasicCatalogues", AddressOf InitializeBasicsfromDB, True) _Loader.AddStep("Initializing BasicCatalogues", AddressOf InitializeBasicsfromDB, True)
_Loader.AddStep("Initializing Language", AddressOf InitializeLanguage, False) _Loader.AddStep("Initializing Language", AddressOf InitializeLanguage, False)
@@ -83,60 +82,6 @@ Public Class ClassInit
#Region "=== Init Steps ===" #Region "=== Init Steps ==="
Private Sub InitializeBase(MyApplication As My.MyApplication)
End Sub
Private Sub InitializeDatabase(MyApplication As My.MyApplication)
'Dim oConnectionString = MSSQLServer.DecryptConnectionString(My.SystemConfig.ConnectionString)
'My.DatabaseECM = New MSSQLServer(My.LogConfig, oConnectionString)
'If My.DatabaseECM.DBInitialized = False Then
' Logger.Warn("Could not initialize DD_ECM-Database!")
' Throw New InitException("Could not initialize ECM-Database!")
'Else
' Dim oSQl = "SELECT * FROM TBDD_CONNECTION WHERE BEZEICHNUNG = 'IDB' AND AKTIV = 1"
' Dim oDatatable As DataTable = My.DatabaseECM.GetDatatable(oSQl)
' If IsNothing(oDatatable) OrElse oDatatable.Rows.Count = 0 Then
' Dim oForm As New frmSQLConfig(My.LogConfig) With {.FormTitle = "IDB Datenbank"}
' Dim oResult = oForm.ShowDialog()
' If oResult = DialogResult.OK Then
' Dim oConnectionStringSaved = SaveConnectionString(oForm.ConnectionString)
' If oConnectionStringSaved = False Then
' Throw New InitException("Fehler beim Laden der IDB Verbindungsdaten!")
' End If
' oDatatable = My.Database.GetDatatableECM(oSQl)
' End If
' End If
' If oDatatable.Rows.Count > 1 Then
' Logger.Warn("Multiple IDB connection entries in TBDD_CONNECTION found!")
' Throw New InitException("Fehler beim Laden der IDB Verbindungsdaten!")
' End If
' Dim oDataRow As DataRow = oDatatable.Rows.Item(0)
' Dim oConString = My.DatabaseECM.GetConnectionString(
' oDataRow.Item("SERVER").ToString,
' oDataRow.Item("DATENBANK").ToString,
' oDataRow.Item("USERNAME").ToString,
' oDataRow.Item("PASSWORD").ToString
' )
' Dim oDecryptedConnectionString = MSSQLServer.DecryptConnectionString(oConString)
' My.DatabaseIDB = New MSSQLServer(My.LogConfig, oDecryptedConnectionString)
'End If
'If My.DatabaseIDB.DBInitialized = False Then
' Logger.Warn("Could not initialize IDB-Database!")
' Throw New InitException("Could not initialize IDB-Database!")
'End If
End Sub
Private Sub InitializeService(MyApplication As My.MyApplication) Private Sub InitializeService(MyApplication As My.MyApplication)
Try Try
If My.SystemConfig.AppServerConfig = String.Empty Then If My.SystemConfig.AppServerConfig = String.Empty Then
@@ -172,7 +117,8 @@ Public Class ClassInit
Throw New InitException("Error in InitializeService", ex) Throw New InitException("Error in InitializeService", ex)
End Try End Try
End Sub End Sub
Private Sub InitializeDatabaseWithFallback(MyApplication As My.MyApplication)
Private Sub InitializeDatabase(MyApplication As My.MyApplication)
Try Try
Logger.Debug("Loading client config..") Logger.Debug("Loading client config..")
Dim oClientConfig = My.Application.Service.Client.ClientConfig Dim oClientConfig = My.Application.Service.Client.ClientConfig
@@ -192,6 +138,7 @@ Public Class ClassInit
Throw New InitException("Error in InitializeDatabaseWithFallback!", ex) Throw New InitException("Error in InitializeDatabaseWithFallback!", ex)
End Try End Try
End Sub End Sub
Private Sub InitializeUser(MyApplication As My.MyApplication) Private Sub InitializeUser(MyApplication As My.MyApplication)
Try Try
Dim oSql As String = My.Queries.Common.FNDD_MODULE_INIT(Environment.UserName) Dim oSql As String = My.Queries.Common.FNDD_MODULE_INIT(Environment.UserName)
@@ -348,28 +295,6 @@ Public Class ClassInit
#End Region #End Region
Private Function SetupDatabase() As Boolean
'If My.SystemConfig.ConnectionString = String.Empty Then
' Dim oConnectionString = My.SystemConfig.ConnectionString
' Dim oForm As New frmSQLConfig(My.LogConfig) With {
' .ConnectionString = oConnectionString,
' .FormTitle = "ECM Datenbank"
' }
' Dim oResult = oForm.ShowDialog()
' If oResult = DialogResult.OK Then
' My.SystemConfig.ConnectionString = oForm.ConnectionString
' My.SystemConfigManager.Save()
' Return True
' Else
' Return False
' End If
'End If
Return True
End Function
Private Function SaveConnectionString(pConnectionString As String) As Boolean Private Function SaveConnectionString(pConnectionString As String) As Boolean
Try Try
Dim oBuilder As New SqlConnectionStringBuilder(pConnectionString) Dim oBuilder As New SqlConnectionStringBuilder(pConnectionString)

23
ZooFlow/MailLicense.xml Normal file
View File

@@ -0,0 +1,23 @@
<?xml version="1.0" encoding="utf-8"?>
<License>
<Id>4dc5ef40-f1a9-468b-994c-b7ed600ad878</Id>
<ProductName>Mail.dll</ProductName>
<SubscriptionUntil>2022-07-29</SubscriptionUntil>
<RegisteredTo>Digital Data GmbH</RegisteredTo>
<LicenseType>single developer</LicenseType>
<BuyerName>Digital Data GmbH</BuyerName>
<Signature xmlns="http://www.w3.org/2000/09/xmldsig#">
<SignedInfo>
<CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" />
<SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" />
<Reference URI="">
<Transforms>
<Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" />
</Transforms>
<DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<DigestValue>75MRtl4ipYelIZYlpT8O7QDX9Zc=</DigestValue>
</Reference>
</SignedInfo>
<SignatureValue>Raxfkz6DfQVs/sMvH+F2nH0eHXD8FoUFSdP3t7AgBUdpABJQx86srlyuMSEhXPlc1THCqPouEVob4RsWnd9OXvTiPPSOUSK9zuNG6uz93KLAhpSD5PraAgBCF4jwZArlAp7aCNfZpHqQ3w6TRHS+CfravUU0AHHG3MZ1ZcRkGuo=</SignatureValue>
</Signature>
</License>

76
ZooFlow/Modules/Globix/frmFileflow_Duplicate.Designer.vb generated
View File

@@ -30,25 +30,22 @@ Partial Class frmFileflow_Duplicate
Me.SimpleButton5 = New DevExpress.XtraEditors.SimpleButton() Me.SimpleButton5 = New DevExpress.XtraEditors.SimpleButton()
Me.SimpleButton4 = New DevExpress.XtraEditors.SimpleButton() Me.SimpleButton4 = New DevExpress.XtraEditors.SimpleButton()
Me.SimpleButton3 = New DevExpress.XtraEditors.SimpleButton() Me.SimpleButton3 = New DevExpress.XtraEditors.SimpleButton()
Me.GroupControl1 = New DevExpress.XtraEditors.GroupControl()
Me.pnlHeader = New DevExpress.XtraEditors.PanelControl() Me.pnlHeader = New DevExpress.XtraEditors.PanelControl()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupControl1.SuspendLayout()
CType(Me.pnlHeader, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pnlHeader, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'SimpleButton2 'SimpleButton2
' '
Me.SimpleButton2.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
Me.SimpleButton2.Appearance.BorderColor = System.Drawing.Color.Black Me.SimpleButton2.Appearance.BorderColor = System.Drawing.Color.Black
Me.SimpleButton2.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.SimpleButton2.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton2.Appearance.Options.UseBackColor = True
Me.SimpleButton2.Appearance.Options.UseBorderColor = True Me.SimpleButton2.Appearance.Options.UseBorderColor = True
Me.SimpleButton2.Appearance.Options.UseFont = True Me.SimpleButton2.Appearance.Options.UseFont = True
Me.SimpleButton2.DialogResult = System.Windows.Forms.DialogResult.No Me.SimpleButton2.DialogResult = System.Windows.Forms.DialogResult.No
Me.SimpleButton2.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.SimpleButton2.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton2.Location = New System.Drawing.Point(581, 139) Me.SimpleButton2.Location = New System.Drawing.Point(225, 102)
Me.SimpleButton2.Name = "SimpleButton2" Me.SimpleButton2.Name = "SimpleButton2"
Me.SimpleButton2.Size = New System.Drawing.Size(100, 41) Me.SimpleButton2.Size = New System.Drawing.Size(100, 41)
Me.SimpleButton2.TabIndex = 3 Me.SimpleButton2.TabIndex = 3
@@ -56,15 +53,13 @@ Partial Class frmFileflow_Duplicate
' '
'SimpleButton1 'SimpleButton1
' '
Me.SimpleButton1.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
Me.SimpleButton1.Appearance.BorderColor = System.Drawing.Color.Black Me.SimpleButton1.Appearance.BorderColor = System.Drawing.Color.Black
Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton1.Appearance.Options.UseBackColor = True
Me.SimpleButton1.Appearance.Options.UseBorderColor = True Me.SimpleButton1.Appearance.Options.UseBorderColor = True
Me.SimpleButton1.Appearance.Options.UseFont = True Me.SimpleButton1.Appearance.Options.UseFont = True
Me.SimpleButton1.DialogResult = System.Windows.Forms.DialogResult.Yes Me.SimpleButton1.DialogResult = System.Windows.Forms.DialogResult.Yes
Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton1.Location = New System.Drawing.Point(464, 139) Me.SimpleButton1.Location = New System.Drawing.Point(118, 102)
Me.SimpleButton1.Name = "SimpleButton1" Me.SimpleButton1.Name = "SimpleButton1"
Me.SimpleButton1.Size = New System.Drawing.Size(101, 40) Me.SimpleButton1.Size = New System.Drawing.Size(101, 40)
Me.SimpleButton1.TabIndex = 2 Me.SimpleButton1.TabIndex = 2
@@ -97,14 +92,12 @@ Partial Class frmFileflow_Duplicate
' '
'SimpleButton5 'SimpleButton5
' '
Me.SimpleButton5.Appearance.BackColor = System.Drawing.Color.WhiteSmoke Me.SimpleButton5.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton5.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton5.Appearance.ForeColor = System.Drawing.Color.Black Me.SimpleButton5.Appearance.ForeColor = System.Drawing.Color.Black
Me.SimpleButton5.Appearance.Options.UseBackColor = True
Me.SimpleButton5.Appearance.Options.UseFont = True Me.SimpleButton5.Appearance.Options.UseFont = True
Me.SimpleButton5.Appearance.Options.UseForeColor = True Me.SimpleButton5.Appearance.Options.UseForeColor = True
Me.SimpleButton5.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.SimpleButton5.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton5.Location = New System.Drawing.Point(249, 85) Me.SimpleButton5.Location = New System.Drawing.Point(247, 72)
Me.SimpleButton5.Name = "SimpleButton5" Me.SimpleButton5.Name = "SimpleButton5"
Me.SimpleButton5.Size = New System.Drawing.Size(143, 42) Me.SimpleButton5.Size = New System.Drawing.Size(143, 42)
Me.SimpleButton5.TabIndex = 6 Me.SimpleButton5.TabIndex = 6
@@ -112,14 +105,12 @@ Partial Class frmFileflow_Duplicate
' '
'SimpleButton4 'SimpleButton4
' '
Me.SimpleButton4.Appearance.BackColor = System.Drawing.Color.Wheat Me.SimpleButton4.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton4.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton4.Appearance.ForeColor = System.Drawing.Color.Black Me.SimpleButton4.Appearance.ForeColor = System.Drawing.Color.Black
Me.SimpleButton4.Appearance.Options.UseBackColor = True
Me.SimpleButton4.Appearance.Options.UseFont = True Me.SimpleButton4.Appearance.Options.UseFont = True
Me.SimpleButton4.Appearance.Options.UseForeColor = True Me.SimpleButton4.Appearance.Options.UseForeColor = True
Me.SimpleButton4.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.bo_appointment1 Me.SimpleButton4.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.bo_appointment1
Me.SimpleButton4.Location = New System.Drawing.Point(20, 85) Me.SimpleButton4.Location = New System.Drawing.Point(18, 72)
Me.SimpleButton4.Name = "SimpleButton4" Me.SimpleButton4.Name = "SimpleButton4"
Me.SimpleButton4.Size = New System.Drawing.Size(223, 42) Me.SimpleButton4.Size = New System.Drawing.Size(223, 42)
Me.SimpleButton4.TabIndex = 5 Me.SimpleButton4.TabIndex = 5
@@ -127,35 +118,17 @@ Partial Class frmFileflow_Duplicate
' '
'SimpleButton3 'SimpleButton3
' '
Me.SimpleButton3.Appearance.BackColor = System.Drawing.Color.WhiteSmoke Me.SimpleButton3.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton3.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton3.Appearance.ForeColor = System.Drawing.Color.Black Me.SimpleButton3.Appearance.ForeColor = System.Drawing.Color.Black
Me.SimpleButton3.Appearance.Options.UseBackColor = True
Me.SimpleButton3.Appearance.Options.UseFont = True Me.SimpleButton3.Appearance.Options.UseFont = True
Me.SimpleButton3.Appearance.Options.UseForeColor = True Me.SimpleButton3.Appearance.Options.UseForeColor = True
Me.SimpleButton3.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.SimpleButton3.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton3.Location = New System.Drawing.Point(20, 37) Me.SimpleButton3.Location = New System.Drawing.Point(18, 24)
Me.SimpleButton3.Name = "SimpleButton3" Me.SimpleButton3.Name = "SimpleButton3"
Me.SimpleButton3.Size = New System.Drawing.Size(372, 42) Me.SimpleButton3.Size = New System.Drawing.Size(372, 42)
Me.SimpleButton3.TabIndex = 4 Me.SimpleButton3.TabIndex = 4
Me.SimpleButton3.Text = "Vorhandene Datei anzeigen" Me.SimpleButton3.Text = "Vorhandene Datei anzeigen"
' '
'GroupControl1
'
Me.GroupControl1.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
Me.GroupControl1.Appearance.Options.UseBackColor = True
Me.GroupControl1.AppearanceCaption.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
Me.GroupControl1.AppearanceCaption.Options.UseBackColor = True
Me.GroupControl1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
Me.GroupControl1.Controls.Add(Me.SimpleButton3)
Me.GroupControl1.Controls.Add(Me.SimpleButton5)
Me.GroupControl1.Controls.Add(Me.SimpleButton4)
Me.GroupControl1.Location = New System.Drawing.Point(12, 185)
Me.GroupControl1.Name = "GroupControl1"
Me.GroupControl1.Size = New System.Drawing.Size(669, 138)
Me.GroupControl1.TabIndex = 7
Me.GroupControl1.Text = "Dateisuchen"
'
'pnlHeader 'pnlHeader
' '
Me.pnlHeader.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) Me.pnlHeader.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
@@ -164,19 +137,31 @@ Partial Class frmFileflow_Duplicate
Me.pnlHeader.Dock = System.Windows.Forms.DockStyle.Top Me.pnlHeader.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlHeader.Location = New System.Drawing.Point(0, 0) Me.pnlHeader.Location = New System.Drawing.Point(0, 0)
Me.pnlHeader.Name = "pnlHeader" Me.pnlHeader.Name = "pnlHeader"
Me.pnlHeader.Size = New System.Drawing.Size(686, 40) Me.pnlHeader.Size = New System.Drawing.Size(609, 40)
Me.pnlHeader.TabIndex = 9 Me.pnlHeader.TabIndex = 9
' '
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.SimpleButton3)
Me.GroupBox1.Controls.Add(Me.SimpleButton4)
Me.GroupBox1.Controls.Add(Me.SimpleButton5)
Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(12, 149)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(429, 126)
Me.GroupBox1.TabIndex = 10
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Dateisuchen"
'
'frmFileflow_Duplicate 'frmFileflow_Duplicate
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 21.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 21.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer)) Me.ClientSize = New System.Drawing.Size(609, 286)
Me.ClientSize = New System.Drawing.Size(686, 335) Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.SimpleButton2) Me.Controls.Add(Me.SimpleButton2)
Me.Controls.Add(Me.pnlHeader) Me.Controls.Add(Me.pnlHeader)
Me.Controls.Add(Me.SimpleButton1) Me.Controls.Add(Me.SimpleButton1)
Me.Controls.Add(Me.GroupControl1)
Me.Controls.Add(Me.PictureEdit1) Me.Controls.Add(Me.PictureEdit1)
Me.Controls.Add(Me.LabelControlMessage) Me.Controls.Add(Me.LabelControlMessage)
Me.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -186,9 +171,8 @@ Partial Class frmFileflow_Duplicate
Me.Text = "frmGlobix_Duplicate" Me.Text = "frmGlobix_Duplicate"
Me.TopMost = True Me.TopMost = True
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupControl1.ResumeLayout(False)
CType(Me.pnlHeader, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pnlHeader, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -200,6 +184,6 @@ Partial Class frmFileflow_Duplicate
Friend WithEvents SimpleButton5 As DevExpress.XtraEditors.SimpleButton Friend WithEvents SimpleButton5 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents SimpleButton4 As DevExpress.XtraEditors.SimpleButton Friend WithEvents SimpleButton4 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents SimpleButton3 As DevExpress.XtraEditors.SimpleButton Friend WithEvents SimpleButton3 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents GroupControl1 As DevExpress.XtraEditors.GroupControl
Friend WithEvents pnlHeader As DevExpress.XtraEditors.PanelControl Friend WithEvents pnlHeader As DevExpress.XtraEditors.PanelControl
Friend WithEvents GroupBox1 As GroupBox
End Class End Class

25
ZooFlow/Modules/Globix/frmFileflow_Duplicate.resx
View File

@@ -155,25 +155,18 @@
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABkEAAAC77u/ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHECAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg Y2U9InByZXNlcnZlIiBpZD0iTXVsdGlwbGVfRG9jdW1lbnRzIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z bmQ6bmV3IDAgMCAzMiAzMiI+DQogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmxhY2t7ZmlsbDoj
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD NzI3MjcyO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTMxLDhoLTVWNWMwLTAuNS0wLjUtMS0xLTFoLTVW
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh MWMwLTAuNS0wLjUtMS0xLTFIMUMwLjUsMCwwLDAuNSwwLDF2MjJjMCwwLjUsMC41LDEsMSwxaDV2M2Mw
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk LDAuNSwwLjUsMSwxLDEgIGg1djNjMCwwLjUsMC41LDEsMSwxaDE4YzAuNSwwLDEtMC41LDEtMVY5QzMy
aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp LDguNSwzMS41LDgsMzEsOHogTTYsNXYxN0gyVjJoMTZ2Mkg3QzYuNSw0LDYsNC41LDYsNXogTTEyLDl2
c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41 MTdIOFY2aDE2djJIMTMgIEMxMi41LDgsMTIsOC41LDEyLDl6IE0zMCwzMEgxNFYxMGgxNlYzMHoiIGNs
O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7 YXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs=
ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJBdHRlbnRpb24iPg0K
ICAgIDxwYXRoIGQ9Ik0xNS4xLDIuNUwyLjEsMjYuNUMxLjgsMjcuMiwyLjMsMjgsMy4xLDI4aDI1Ljlj
MC44LDAsMS4zLTAuOCwwLjktMS41TDE2LjksMi41ICAgQzE2LjUsMS44LDE1LjUsMS44LDE1LjEsMi41
eiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgICA8cGF0aCBkPSJNMTYsMjBjMS4xLDAsMiwwLjksMiwycy0w
LjksMi0yLDJzLTItMC45LTItMlMxNC45LDIwLDE2LDIweiBNMTQsMTBoNHY4aC00VjEweiIgY2xhc3M9
IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
</value> </value>
</data> </data>
<data name="SimpleButton5.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="SimpleButton5.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">

2
ZooFlow/Modules/Globix/frmFileflow_Duplicate.vb
View File

@@ -12,7 +12,7 @@ Public Class frmFileflow_Duplicate
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
If My.Application.User.Language = "de-DE" Then If My.Application.User.Language = "de-DE" Then
omessagetext = $"Die Datei [{pFilename}] wurde bereits" & vbNewLine & "am [{pDate}] verarbeitet." & vbNewLine & "Wollen Sie die gleiche Datei noch einmal verarbeiten?" omessagetext = $"Die Datei [{pFilename}] wurde bereits am [{pDate}] verarbeitet." & vbNewLine & "Wollen Sie die gleiche Datei noch einmal verarbeiten?"
Else Else
omessagetext = $"The file [{pFilename}] has already been processed at [{pDate}]. Do you want to process the same file again?" omessagetext = $"The file [{pFilename}] has already been processed at [{pDate}]. Do you want to process the same file again?"
End If End If

32
ZooFlow/Modules/Globix/frmGlobix_Index.Designer.vb generated
View File

@@ -46,7 +46,6 @@ Partial Class frmGlobix_Index
Me.chkMultiindexing = New DevExpress.XtraBars.BarCheckItem() Me.chkMultiindexing = New DevExpress.XtraBars.BarCheckItem()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarHeaderItem1 = New DevExpress.XtraBars.BarHeaderItem() Me.BarHeaderItem1 = New DevExpress.XtraBars.BarHeaderItem()
Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -78,16 +77,17 @@ Partial Class frmGlobix_Index
' '
'RibbonControl1 'RibbonControl1
' '
Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green
Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem2, Me.BarButtonItem3, Me.SkipItem, Me.BarButtonItem5, Me.checkItemTopMost, Me.SourceDeleteItem, Me.checkItemPreselection, Me.PreviewItem, Me.labelFilePath, Me.labelError, Me.labelNotice, Me.chkMultiindexing, Me.BarButtonItem1, Me.BarHeaderItem1, Me.BarButtonItem4}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem2, Me.BarButtonItem3, Me.SkipItem, Me.BarButtonItem5, Me.checkItemTopMost, Me.SourceDeleteItem, Me.checkItemPreselection, Me.PreviewItem, Me.labelFilePath, Me.labelError, Me.labelNotice, Me.chkMultiindexing, Me.BarButtonItem1, Me.BarHeaderItem1})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 17 Me.RibbonControl1.MaxItemId = 17
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl1.Size = New System.Drawing.Size(1033, 67) Me.RibbonControl1.Size = New System.Drawing.Size(1033, 63)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
' '
'BarButtonItem2 'BarButtonItem2
@@ -199,12 +199,6 @@ Partial Class frmGlobix_Index
Me.BarHeaderItem1.Name = "BarHeaderItem1" Me.BarHeaderItem1.Name = "BarHeaderItem1"
Me.BarHeaderItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large Me.BarHeaderItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
' '
'BarButtonItem4
'
Me.BarButtonItem4.Caption = "BarButtonItem4"
Me.BarButtonItem4.Id = 16
Me.BarButtonItem4.Name = "BarButtonItem4"
'
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
@@ -218,7 +212,6 @@ Partial Class frmGlobix_Index
Me.RibbonPageGroup1.ItemLinks.Add(Me.SkipItem) Me.RibbonPageGroup1.ItemLinks.Add(Me.SkipItem)
Me.RibbonPageGroup1.ItemLinks.Add(Me.PreviewItem) Me.RibbonPageGroup1.ItemLinks.Add(Me.PreviewItem)
Me.RibbonPageGroup1.ItemLinks.Add(Me.chkMultiindexing) Me.RibbonPageGroup1.ItemLinks.Add(Me.chkMultiindexing)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem4)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Indexierung" Me.RibbonPageGroup1.Text = "Indexierung"
' '
@@ -234,10 +227,10 @@ Partial Class frmGlobix_Index
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelFilePath) Me.RibbonStatusBar1.ItemLinks.Add(Me.labelFilePath)
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError) Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError)
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelNotice) Me.RibbonStatusBar1.ItemLinks.Add(Me.labelNotice)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 634) Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 632)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1033, 22) Me.RibbonStatusBar1.Size = New System.Drawing.Size(1033, 24)
' '
'RibbonPage2 'RibbonPage2
' '
@@ -255,7 +248,7 @@ Partial Class frmGlobix_Index
' '
Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 67) Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 63)
Me.SplitContainerControl1.Name = "SplitContainerControl1" Me.SplitContainerControl1.Name = "SplitContainerControl1"
' '
'SplitContainerControl1.Panel1 'SplitContainerControl1.Panel1
@@ -269,37 +262,35 @@ Partial Class frmGlobix_Index
' '
Me.SplitContainerControl1.Panel2.Controls.Add(Me.DocumentViewer1) Me.SplitContainerControl1.Panel2.Controls.Add(Me.DocumentViewer1)
Me.SplitContainerControl1.Panel2.Text = "Panel2" Me.SplitContainerControl1.Panel2.Text = "Panel2"
Me.SplitContainerControl1.Size = New System.Drawing.Size(1033, 567) Me.SplitContainerControl1.Size = New System.Drawing.Size(1033, 569)
Me.SplitContainerControl1.SplitterPosition = 522 Me.SplitContainerControl1.SplitterPosition = 522
Me.SplitContainerControl1.TabIndex = 2 Me.SplitContainerControl1.TabIndex = 2
' '
'pnlIndex 'pnlIndex
' '
Me.pnlIndex.BackColor = System.Drawing.Color.FromArgb(CType(CType(74, Byte), Integer), CType(CType(115, Byte), Integer), CType(CType(255, Byte), Integer))
Me.pnlIndex.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlIndex.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlIndex.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.pnlIndex.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.pnlIndex.ForeColor = System.Drawing.SystemColors.ControlText Me.pnlIndex.ForeColor = System.Drawing.SystemColors.ControlText
Me.pnlIndex.Location = New System.Drawing.Point(0, 33) Me.pnlIndex.Location = New System.Drawing.Point(0, 33)
Me.pnlIndex.Name = "pnlIndex" Me.pnlIndex.Name = "pnlIndex"
Me.pnlIndex.Size = New System.Drawing.Size(522, 459) Me.pnlIndex.Size = New System.Drawing.Size(522, 461)
Me.pnlIndex.TabIndex = 3 Me.pnlIndex.TabIndex = 3
' '
'Panel3 'Panel3
' '
Me.Panel3.Controls.Add(Me.SimpleButton1) Me.Panel3.Controls.Add(Me.SimpleButton1)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel3.Location = New System.Drawing.Point(0, 492) Me.Panel3.Location = New System.Drawing.Point(0, 494)
Me.Panel3.Name = "Panel3" Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(522, 75) Me.Panel3.Size = New System.Drawing.Size(522, 75)
Me.Panel3.TabIndex = 2 Me.Panel3.TabIndex = 2
' '
'SimpleButton1 'SimpleButton1
' '
Me.SimpleButton1.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton1.Appearance.Options.UseBackColor = True
Me.SimpleButton1.Appearance.Options.UseFont = True Me.SimpleButton1.Appearance.Options.UseFont = True
Me.SimpleButton1.Dock = System.Windows.Forms.DockStyle.Fill Me.SimpleButton1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SimpleButton1.ImageOptions.ImageToTextAlignment = DevExpress.XtraEditors.ImageAlignToText.RightCenter
Me.SimpleButton1.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleRight Me.SimpleButton1.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleRight
Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton1.Location = New System.Drawing.Point(0, 0) Me.SimpleButton1.Location = New System.Drawing.Point(0, 0)
@@ -339,7 +330,7 @@ Partial Class frmGlobix_Index
Me.DocumentViewer1.FileLoaded = False Me.DocumentViewer1.FileLoaded = False
Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0) Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0)
Me.DocumentViewer1.Name = "DocumentViewer1" Me.DocumentViewer1.Name = "DocumentViewer1"
Me.DocumentViewer1.Size = New System.Drawing.Size(501, 567) Me.DocumentViewer1.Size = New System.Drawing.Size(501, 569)
Me.DocumentViewer1.TabIndex = 0 Me.DocumentViewer1.TabIndex = 0
' '
'GlobixDataset 'GlobixDataset
@@ -412,5 +403,4 @@ Partial Class frmGlobix_Index
Friend WithEvents cmbDocType As DevExpress.XtraEditors.ComboBoxEdit Friend WithEvents cmbDocType As DevExpress.XtraEditors.ComboBoxEdit
Friend WithEvents SimpleButton1 As SimpleButton Friend WithEvents SimpleButton1 As SimpleButton
Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection
Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
End Class End Class

4
ZooFlow/Modules/Globix/frmGlobix_Index.vb
View File

@@ -387,7 +387,7 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
.SQLConnection = oRow.ItemEx("CONNECTION_ID", 0), .SQLConnection = oRow.ItemEx("CONNECTION_ID", 0),
.SQLSuggestion = oRow.ItemEx("SUGGESTION", String.Empty), .SQLSuggestion = oRow.ItemEx("SUGGESTION", String.Empty),
.DefaultValue = oRow.ItemEx("DEFAULT_VALUE", String.Empty), .DefaultValue = oRow.ItemEx("DEFAULT_VALUE", String.Empty),
.IsOptional = oRow.ItemEx(Of Integer)("OPTIONAL", False), .IsOptional = oRow.ItemEx("OPTIONAL", False),
.IsMultiselect = oRow.ItemEx("MULTISELECT", False) .IsMultiselect = oRow.ItemEx("MULTISELECT", False)
} }
@@ -911,6 +911,4 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
Private Sub MessageboxLoad(sender As Object, e As XtraMessageBoxLoadArgs) Private Sub MessageboxLoad(sender As Object, e As XtraMessageBoxLoadArgs)
e.Visible = My.UIConfig.Globix.ShowSuccessMessageBox e.Visible = My.UIConfig.Globix.ShowSuccessMessageBox
End Sub End Sub
End Class End Class

1
ZooFlow/Modules/Globix/frmGlobix_Result.Designer.vb generated
View File

@@ -200,7 +200,6 @@ Partial Class frmGlobix_Result
Me.Name = "frmGlobix_Result" Me.Name = "frmGlobix_Result"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmGlobix_Result" Me.Text = "frmGlobix_Result"
Me.TopMost = True
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit()

7
ZooFlow/Modules/Globix/frmGlobix_Result.vb
View File

@@ -14,9 +14,6 @@ Public Class frmGlobix_Result
} }
End Sub End Sub
Private Sub PictureEdit1_EditValueChanged(sender As Object, e As EventArgs) Handles PictureEdit1.EditValueChanged
Close()
End Sub
Private Async Function GetResult(oVariant As String) As Task Private Async Function GetResult(oVariant As String) As Task
Dim oSql As String Dim oSql As String
Try Try
@@ -43,4 +40,8 @@ Public Class frmGlobix_Result
Private Async Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click Private Async Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click
Await GetResult("DOCID") Await GetResult("DOCID")
End Sub End Sub
Private Sub PictureEdit1_Click(sender As Object, e As EventArgs) Handles PictureEdit1.Click
Close()
End Sub
End Class End Class

644
ZooFlow/Modules/frmFolderImport.Designer.vb generated Normal file
View File

@@ -0,0 +1,644 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmFolderImport
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFolderImport))
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem()
Me.RepositoryItemProgressBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemProgressBar()
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.txtFolderbrowser = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
Me.cmbDoctype = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtRegex = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.btnMoveTo = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtMoveTo = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.NumSplitIndex = New System.Windows.Forms.NumericUpDown()
Me.txtSplitCharacter = New System.Windows.Forms.TextBox()
Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
Me.cmbAttribute = New System.Windows.Forms.ComboBox()
Me.LabelControl2 = New DevExpress.XtraEditors.LabelControl()
Me.NumericUpDownLimit = New System.Windows.Forms.NumericUpDown()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtTitle = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.cmbProfile = New System.Windows.Forms.ComboBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.txtAddedWho = New System.Windows.Forms.TextBox()
Me.txtAddedWhen = New System.Windows.Forms.TextBox()
Me.txtChangedWho = New System.Windows.Forms.TextBox()
Me.txtChangedWhen = New System.Windows.Forms.TextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.txtProfilID = New System.Windows.Forms.TextBox()
Me.GridControlSplit = New DevExpress.XtraGrid.GridControl()
Me.GridViewSplit = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageSplit = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
CType(Me.NumSplitIndex, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.NumericUpDownLimit, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlSplit, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewSplit, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout()
Me.XtraTabPageSplit.SuspendLayout()
Me.SuspendLayout()
'
'RibbonControl1
'
Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarEditItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 8
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.Size = New System.Drawing.Size(894, 158)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'BarButtonItem1
'
Me.BarButtonItem1.Caption = "Importiere Dateien"
Me.BarButtonItem1.Id = 1
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'BarButtonItem2
'
Me.BarButtonItem2.Caption = "Verarbeitung"
Me.BarButtonItem2.Id = 2
Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem2.Name = "BarButtonItem2"
'
'BarEditItem1
'
Me.BarEditItem1.Caption = "Fortschritt Import"
Me.BarEditItem1.Edit = Me.RepositoryItemProgressBar1
Me.BarEditItem1.EditWidth = 130
Me.BarEditItem1.Id = 3
Me.BarEditItem1.Name = "BarEditItem1"
Me.BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
'
'RepositoryItemProgressBar1
'
Me.RepositoryItemProgressBar1.Name = "RepositoryItemProgressBar1"
Me.RepositoryItemProgressBar1.Step = 1
'
'BarButtonItem3
'
Me.BarButtonItem3.Caption = "Speichern"
Me.BarButtonItem3.Id = 4
Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem3.Name = "BarButtonItem3"
'
'BarButtonItem4
'
Me.BarButtonItem4.Caption = "Hinzufügen"
Me.BarButtonItem4.Id = 5
Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem4.Name = "BarButtonItem4"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroup4})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Start"
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Verarbeiten"
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "Prüfen..."
'
'RibbonPageGroup3
'
Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem3)
Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem4)
Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
Me.RibbonPageGroup3.Text = "Aktionen"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.BarEditItem1)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 660)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(894, 24)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'txtFolderbrowser
'
Me.txtFolderbrowser.Location = New System.Drawing.Point(15, 285)
Me.txtFolderbrowser.Name = "txtFolderbrowser"
Me.txtFolderbrowser.Size = New System.Drawing.Size(729, 22)
Me.txtFolderbrowser.TabIndex = 2
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 269)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(95, 13)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Pfad mit Dateien:"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(750, 284)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(38, 23)
Me.Button1.TabIndex = 4
Me.Button1.Text = "..."
Me.Button1.UseVisualStyleBackColor = True
'
'cmbDoctype
'
Me.cmbDoctype.FormattingEnabled = True
Me.cmbDoctype.Location = New System.Drawing.Point(382, 244)
Me.cmbDoctype.Name = "cmbDoctype"
Me.cmbDoctype.Size = New System.Drawing.Size(278, 21)
Me.cmbDoctype.TabIndex = 7
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(379, 228)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(75, 13)
Me.Label2.TabIndex = 8
Me.Label2.Text = "Dokumentart"
'
'txtRegex
'
Me.txtRegex.Location = New System.Drawing.Point(15, 367)
Me.txtRegex.Name = "txtRegex"
Me.txtRegex.Size = New System.Drawing.Size(281, 22)
Me.txtRegex.TabIndex = 9
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(12, 351)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(106, 13)
Me.Label3.TabIndex = 10
Me.Label3.Text = "Regex Dateinamen:"
'
'btnMoveTo
'
Me.btnMoveTo.Location = New System.Drawing.Point(750, 324)
Me.btnMoveTo.Name = "btnMoveTo"
Me.btnMoveTo.Size = New System.Drawing.Size(38, 23)
Me.btnMoveTo.TabIndex = 15
Me.btnMoveTo.Text = "..."
Me.btnMoveTo.UseVisualStyleBackColor = True
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(12, 310)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(144, 13)
Me.Label4.TabIndex = 14
Me.Label4.Text = "Sicherungsort nach Erfolg:"
'
'txtMoveTo
'
Me.txtMoveTo.Location = New System.Drawing.Point(15, 326)
Me.txtMoveTo.Name = "txtMoveTo"
Me.txtMoveTo.Size = New System.Drawing.Size(729, 22)
Me.txtMoveTo.TabIndex = 13
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(6, 18)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(83, 13)
Me.Label5.TabIndex = 16
Me.Label5.Text = "Split-Character"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(95, 18)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(49, 13)
Me.Label6.TabIndex = 17
Me.Label6.Text = "Position"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.NumSplitIndex)
Me.GroupBox1.Controls.Add(Me.txtSplitCharacter)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Location = New System.Drawing.Point(509, 445)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(163, 66)
Me.GroupBox1.TabIndex = 19
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Splitdefinition"
'
'NumSplitIndex
'
Me.NumSplitIndex.Location = New System.Drawing.Point(98, 35)
Me.NumSplitIndex.Maximum = New Decimal(New Integer() {10, 0, 0, 0})
Me.NumSplitIndex.Name = "NumSplitIndex"
Me.NumSplitIndex.Size = New System.Drawing.Size(46, 22)
Me.NumSplitIndex.TabIndex = 18
'
'txtSplitCharacter
'
Me.txtSplitCharacter.Location = New System.Drawing.Point(9, 34)
Me.txtSplitCharacter.Name = "txtSplitCharacter"
Me.txtSplitCharacter.Size = New System.Drawing.Size(27, 22)
Me.txtSplitCharacter.TabIndex = 17
Me.txtSplitCharacter.Text = "-"
'
'LabelControl1
'
Me.LabelControl1.Location = New System.Drawing.Point(661, 428)
Me.LabelControl1.Name = "LabelControl1"
Me.LabelControl1.Size = New System.Drawing.Size(105, 13)
Me.LabelControl1.TabIndex = 20
Me.LabelControl1.Text = "Deskriptives Attribut"
'
'cmbAttribute
'
Me.cmbAttribute.FormattingEnabled = True
Me.cmbAttribute.Location = New System.Drawing.Point(661, 445)
Me.cmbAttribute.Name = "cmbAttribute"
Me.cmbAttribute.Size = New System.Drawing.Size(233, 21)
Me.cmbAttribute.TabIndex = 21
'
'LabelControl2
'
Me.LabelControl2.Location = New System.Drawing.Point(299, 351)
Me.LabelControl2.Name = "LabelControl2"
Me.LabelControl2.Size = New System.Drawing.Size(77, 13)
Me.LabelControl2.TabIndex = 22
Me.LabelControl2.Text = "Limit FileCount"
'
'NumericUpDownLimit
'
Me.NumericUpDownLimit.Location = New System.Drawing.Point(299, 367)
Me.NumericUpDownLimit.Name = "NumericUpDownLimit"
Me.NumericUpDownLimit.Size = New System.Drawing.Size(74, 22)
Me.NumericUpDownLimit.TabIndex = 23
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(12, 228)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(29, 13)
Me.Label7.TabIndex = 26
Me.Label7.Text = "Titel"
'
'txtTitle
'
Me.txtTitle.Location = New System.Drawing.Point(15, 244)
Me.txtTitle.Name = "txtTitle"
Me.txtTitle.Size = New System.Drawing.Size(361, 22)
Me.txtTitle.TabIndex = 27
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(12, 161)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(131, 17)
Me.Label8.TabIndex = 28
Me.Label8.Text = "Ausgewähltes Profil"
'
'cmbProfile
'
Me.cmbProfile.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbProfile.FormattingEnabled = True
Me.cmbProfile.Location = New System.Drawing.Point(15, 181)
Me.cmbProfile.Name = "cmbProfile"
Me.cmbProfile.Size = New System.Drawing.Size(361, 25)
Me.cmbProfile.TabIndex = 29
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(12, 392)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(64, 13)
Me.Label9.TabIndex = 30
Me.Label9.Text = "Erstellt wer"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(162, 392)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(74, 13)
Me.Label10.TabIndex = 31
Me.Label10.Text = "Erstellt wann"
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(330, 392)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(77, 13)
Me.Label11.TabIndex = 32
Me.Label11.Text = "Geändert wer"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(477, 392)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(87, 13)
Me.Label12.TabIndex = 33
Me.Label12.Text = "Geändert wann"
'
'txtAddedWho
'
Me.txtAddedWho.Enabled = False
Me.txtAddedWho.Location = New System.Drawing.Point(15, 408)
Me.txtAddedWho.Name = "txtAddedWho"
Me.txtAddedWho.Size = New System.Drawing.Size(144, 22)
Me.txtAddedWho.TabIndex = 34
'
'txtAddedWhen
'
Me.txtAddedWhen.Enabled = False
Me.txtAddedWhen.Location = New System.Drawing.Point(165, 408)
Me.txtAddedWhen.Name = "txtAddedWhen"
Me.txtAddedWhen.Size = New System.Drawing.Size(144, 22)
Me.txtAddedWhen.TabIndex = 35
'
'txtChangedWho
'
Me.txtChangedWho.Enabled = False
Me.txtChangedWho.Location = New System.Drawing.Point(330, 408)
Me.txtChangedWho.Name = "txtChangedWho"
Me.txtChangedWho.Size = New System.Drawing.Size(144, 22)
Me.txtChangedWho.TabIndex = 36
'
'txtChangedWhen
'
Me.txtChangedWhen.Enabled = False
Me.txtChangedWhen.Location = New System.Drawing.Point(480, 408)
Me.txtChangedWhen.Name = "txtChangedWhen"
Me.txtChangedWhen.Size = New System.Drawing.Size(144, 22)
Me.txtChangedWhen.TabIndex = 37
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(666, 228)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(45, 13)
Me.Label13.TabIndex = 40
Me.Label13.Text = "ProfilID"
'
'txtProfilID
'
Me.txtProfilID.Enabled = False
Me.txtProfilID.Location = New System.Drawing.Point(669, 244)
Me.txtProfilID.Name = "txtProfilID"
Me.txtProfilID.Size = New System.Drawing.Size(55, 22)
Me.txtProfilID.TabIndex = 41
'
'GridControlSplit
'
Me.GridControlSplit.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlSplit.Location = New System.Drawing.Point(0, 0)
Me.GridControlSplit.MainView = Me.GridViewSplit
Me.GridControlSplit.MenuManager = Me.RibbonControl1
Me.GridControlSplit.Name = "GridControlSplit"
Me.GridControlSplit.Size = New System.Drawing.Size(487, 179)
Me.GridControlSplit.TabIndex = 42
Me.GridControlSplit.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSplit})
'
'GridViewSplit
'
Me.GridViewSplit.GridControl = Me.GridControlSplit
Me.GridViewSplit.Name = "GridViewSplit"
Me.GridViewSplit.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewSplit.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewSplit.OptionsBehavior.AllowFixedGroups = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewSplit.OptionsBehavior.Editable = False
Me.GridViewSplit.OptionsView.ShowGroupPanel = False
'
'XtraTabControl1
'
Me.XtraTabControl1.Location = New System.Drawing.Point(15, 436)
Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageSplit
Me.XtraTabControl1.Size = New System.Drawing.Size(489, 204)
Me.XtraTabControl1.TabIndex = 43
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageSplit, Me.XtraTabPage2})
'
'XtraTabPageSplit
'
Me.XtraTabPageSplit.Controls.Add(Me.GridControlSplit)
Me.XtraTabPageSplit.Name = "XtraTabPageSplit"
Me.XtraTabPageSplit.Size = New System.Drawing.Size(487, 179)
Me.XtraTabPageSplit.Text = "Trennen nach Satzzeichen"
'
'XtraTabPage2
'
Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(487, 179)
Me.XtraTabPage2.Text = "Weiteres"
'
'RibbonPageGroup4
'
Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem6)
Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem5)
Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
Me.RibbonPageGroup4.Text = "Split-Funktionen"
'
'BarButtonItem5
'
Me.BarButtonItem5.Caption = "Löschen"
Me.BarButtonItem5.Id = 6
Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem5.Name = "BarButtonItem5"
'
'BarButtonItem6
'
Me.BarButtonItem6.Caption = "Hinzufügen"
Me.BarButtonItem6.Id = 7
Me.BarButtonItem6.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem6.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem6.Name = "BarButtonItem6"
'
'frmFolderImport
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(894, 684)
Me.Controls.Add(Me.XtraTabControl1)
Me.Controls.Add(Me.txtProfilID)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.txtChangedWhen)
Me.Controls.Add(Me.txtChangedWho)
Me.Controls.Add(Me.txtAddedWhen)
Me.Controls.Add(Me.txtAddedWho)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.cmbProfile)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.txtTitle)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.NumericUpDownLimit)
Me.Controls.Add(Me.LabelControl2)
Me.Controls.Add(Me.cmbAttribute)
Me.Controls.Add(Me.LabelControl1)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.btnMoveTo)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.txtMoveTo)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtRegex)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.cmbDoctype)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtFolderbrowser)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.Name = "frmFolderImport"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "frmFolderImport"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.NumSplitIndex, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.NumericUpDownLimit, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControlSplit, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewSplit, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl1.ResumeLayout(False)
Me.XtraTabPageSplit.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents txtFolderbrowser As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents Button1 As Button
Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
Friend WithEvents cmbDoctype As ComboBox
Friend WithEvents Label2 As Label
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents txtRegex As TextBox
Friend WithEvents Label3 As Label
Friend WithEvents btnMoveTo As Button
Friend WithEvents Label4 As Label
Friend WithEvents txtMoveTo As TextBox
Friend WithEvents Label5 As Label
Friend WithEvents Label6 As Label
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents NumSplitIndex As NumericUpDown
Friend WithEvents txtSplitCharacter As TextBox
Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl
Friend WithEvents cmbAttribute As ComboBox
Friend WithEvents LabelControl2 As DevExpress.XtraEditors.LabelControl
Friend WithEvents NumericUpDownLimit As NumericUpDown
Friend WithEvents BarEditItem1 As DevExpress.XtraBars.BarEditItem
Friend WithEvents RepositoryItemProgressBar1 As DevExpress.XtraEditors.Repository.RepositoryItemProgressBar
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents Label7 As Label
Friend WithEvents txtTitle As TextBox
Friend WithEvents Label8 As Label
Friend WithEvents cmbProfile As ComboBox
Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents Label9 As Label
Friend WithEvents Label10 As Label
Friend WithEvents Label11 As Label
Friend WithEvents Label12 As Label
Friend WithEvents txtAddedWho As TextBox
Friend WithEvents txtAddedWhen As TextBox
Friend WithEvents txtChangedWho As TextBox
Friend WithEvents txtChangedWhen As TextBox
Friend WithEvents Label13 As Label
Friend WithEvents txtProfilID As TextBox
Friend WithEvents GridControlSplit As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewSplit As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPageSplit As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
End Class

249
ZooFlow/Modules/frmFolderImport.resx Normal file
View File

@@ -0,0 +1,249 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPgBAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iUmVhcHBseSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
LkdyZWVue2ZpbGw6IzAzOUMyMzt9Cjwvc3R5bGU+DQogIDxwb2x5Z29uIHBvaW50cz0iNCwyIDI4LDIg
MjgsNiAxOCwxNiAxOCwyNiAxNCwzMCAxNCwxNiA0LDYgIiBjbGFzcz0iWWVsbG93IiAvPg0KICA8cG9s
eWdvbiBwb2ludHM9IjI2LDI2IDI2LDE0IDI0LDE0IDI0LDI2IDIwLDI2IDI1LDMxIDMwLDI2ICIgY2xh
c3M9IkdyZWVuIiAvPg0KPC9zdmc+Cw==
</value>
</data>
<data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPcFAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku
QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC
MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSXRlbVR5cGVD
aGVja2VkIj4NCiAgICA8Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lk
dGg9IjEwIiBoZWlnaHQ9IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8
cmVjdCB4PSIyMCIgeT0iMjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNz
PSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMw
LDAuNSwwLjUsMSwxLDFoMTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHog
TTE0LDMwSDRWMjAgICAgIGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0i
TTE0LDEwLjhWMTRINFY0aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwx
aDEyYzAuNSwwLDEtMC41LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwv
Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lkdGg9IjEwIiBoZWlnaHQ9
IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0i
MjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJCbGFjayIgLz4NCiAg
ICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMwLDAuNSwwLjUsMSwxLDFo
MTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHogTTE0LDMwSDRWMjAgICAg
IGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE0LDEwLjhWMTRINFY0
aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwxaDEyYzAuNSwwLDEtMC41
LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwvZz4NCiAgICA8L2c+DQog
ICAgPHBvbHlnb24gcG9pbnRzPSI2LDUgNiw4IDEwLDEyIDE4LDQgMTgsMSAxMCw5ICAiIGNsYXNzPSJH
cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
</value>
</data>
<data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMICAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzczNzM3NDt9Cgku
WWVsbG93e2ZpbGw6I0ZDQjAxQjt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5CbHVle2ZpbGw6IzM4
N0NCNzt9CgkuUmVke2ZpbGw6I0QwMjEyNzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tk
aXNwbGF5Om5vbmU7ZmlsbDojNzM3Mzc0O30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRoLTN2MTBI
OFY0SDVDNC40LDQsNCw0LjQsNCw1djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYsMCwxLTAuNCwxLTFW
NUMyOCw0LjQsMjcuNiw0LDI3LDR6IE0yNCwyNEg4di02ICBoMTZWMjR6IE0xMCw0djhoMTBWNEgxMHog
TTE0LDEwaC0yVjZoMlYxMHoiIGNsYXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarButtonItem4.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKcCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZCI+DQogICAgPHBhdGggZD0iTTI3LDE0aC05VjVj
MC0wLjUtMC41LTEtMS0xaC0yYy0wLjUsMC0xLDAuNS0xLDF2OUg1Yy0wLjUsMC0xLDAuNS0xLDF2MmMw
LDAuNSwwLjUsMSwxLDFoOXY5ICAgYzAsMC41LDAuNSwxLDEsMWgyYzAuNSwwLDEtMC41LDEtMXYtOWg5
YzAuNSwwLDEtMC41LDEtMXYtMkMyOCwxNC41LDI3LjUsMTQsMjcsMTR6IiBjbGFzcz0iR3JlZW4iIC8+
DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarButtonItem5.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkRlbGV0ZUNpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0x
Niw0QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHog
TTIzLjEsMjAuMmwtMi44LDIuOEwxNiwxOC44bC00LjIsNC4yICAgbC0yLjgtMi44bDQuMi00LjJsLTQu
Mi00LjJsMi44LTIuOGw0LjIsNC4ybDQuMi00LjJsMi44LDIuOEwxOC44LDE2TDIzLjEsMjAuMnoiIGNs
YXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarButtonItem6.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKcCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZCI+DQogICAgPHBhdGggZD0iTTI3LDE0aC05VjVj
MC0wLjUtMC41LTEtMS0xaC0yYy0wLjUsMC0xLDAuNS0xLDF2OUg1Yy0wLjUsMC0xLDAuNS0xLDF2MmMw
LDAuNSwwLjUsMSwxLDFoOXY5ICAgYzAsMC41LDAuNSwxLDEsMWgyYzAuNSwwLDEtMC41LDEtMXYtOWg5
YzAuNSwwLDEtMC41LDEtMXYtMkMyOCwxNC41LDI3LjUsMTQsMjcsMTR6IiBjbGFzcz0iR3JlZW4iIC8+
DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

284
ZooFlow/Modules/frmFolderImport.vb Normal file
View File

@@ -0,0 +1,284 @@
Imports System.IO
Imports System.Text.RegularExpressions
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.ZooFlow
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Public Class frmFolderImport
Private Logger As Logger
Private Property Environment As Environment
Private oFileList As List(Of String)
Private oDoctype_DT As DataTable
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
txtFolderbrowser.Text = FolderBrowserDialog1.SelectedPath
End If
End Sub
Private Sub frmFolderImport_Load(sender As Object, e As EventArgs) Handles Me.Load
Logger = My.LogConfig.GetLogger()
Environment = My.Application.GetEnvironment()
Try
Dim oSQL = "SELECT DISTINCT [DOCTYPE_ID] ,[Doctype] FROM [IDB].[dbo].[VWIDB_DOCTYPE_BUSINESS_ENTITY] where LANG_CODE = 'de-DE'"
oDoctype_DT = My.DatabaseIDB.GetDatatable(oSQL)
If Not IsNothing(oDoctype_DT) Then
cmbDoctype.DataSource = oDoctype_DT
cmbDoctype.ValueMember = oDoctype_DT.Columns(0).ColumnName
cmbDoctype.DisplayMember = oDoctype_DT.Columns(1).ColumnName
End If
oSQL = "select AttributeID,Attribute From VWIDB_ATTRIBUTE_LANG where LANG_CODE = 'de-DE'"
Dim oAttribute_DT As DataTable = My.DatabaseIDB.GetDatatable(oSQL)
If Not IsNothing(oAttribute_DT) Then
cmbAttribute.DataSource = oAttribute_DT
cmbAttribute.ValueMember = oAttribute_DT.Columns(0).ColumnName
cmbAttribute.DisplayMember = oAttribute_DT.Columns(1).ColumnName
End If
Refresh_Profiles()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Refresh_Profiles()
Dim oSQL = "select GUID,TITLE From TBFOLDERIMPORT_PROFILE"
Dim oDTProfiles As DataTable = My.DatabaseECM.GetDatatable(oSQL)
If Not IsNothing(oDTProfiles) Then
cmbProfile.DataSource = oDTProfiles
cmbProfile.ValueMember = oDTProfiles.Columns(0).ColumnName
cmbProfile.DisplayMember = oDTProfiles.Columns(1).ColumnName
End If
End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
Dim oTempFileList As List(Of String) = FnGetFileList(txtFolderbrowser.Text, txtRegex.Text)
Try
Dim oMsg = $"Es sollen [{oTempFileList.Count}] Dateien verarbeitet werden!"
MsgBox(oMsg, MsgBoxStyle.Information)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Function FnGetFileList(pFolder As String, pRegex As String) As List(Of String)
Try
Dim oTempFileList As New List(Of String)
Dim di As New DirectoryInfo(pFolder)
' Get a reference to each file in that directory.
Dim fiArr As FileInfo() = di.GetFiles()
' Display the names of the files.
Dim fri As FileInfo
Dim oMatchCount As Integer = 0
Dim oMatch As Boolean = False
For Each fri In fiArr
oMatch = True
If txtRegex.Text <> String.Empty Then
Dim regex As Regex = New Regex(pRegex)
' Step 2: call Match on Regex.
Dim match As Match = regex.Match(fri.Name)
' Step 3: test the Success bool.
' ... If we have Success, write the Value.
If match.Success Then
Else
oMatch = False
End If
End If
If oMatch = True Then
oMatchCount += 1
oTempFileList.Add(fri.FullName)
If NumericUpDownLimit.Value <> 0 Then
If NumericUpDownLimit.Value = oMatchCount Then
Logger.Info($"There is a limit for working files [{NumericUpDownLimit.Value}]! Exiting...")
Exit For
End If
End If
End If
Next fri
Return oTempFileList
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Function
Private Sub btnMoveTo_Click(sender As Object, e As EventArgs) Handles btnMoveTo.Click
If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
txtMoveTo.Text = FolderBrowserDialog1.SelectedPath
End If
End Sub
Private Async Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
Dim oTempFileList As List(Of String) = FnGetFileList(txtFolderbrowser.Text, txtRegex.Text)
If oTempFileList.Count > 0 Then
RepositoryItemProgressBar1.Maximum = oTempFileList.Count
Cursor = Cursors.WaitCursor
If cmbDoctype.SelectedIndex <> -1 And cmbAttribute.SelectedIndex <> -1 Then
BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Dim oCount As Integer = 0
Logger.Info($"WORK_TEMPFILELIST()...[{oTempFileList.Count}] files shall be worked!")
Dim oCountResult As Integer = 0
For Each oFile As String In oTempFileList
Dim oResult As Boolean = False
Try
Logger.Debug($"=== ForEachFile {oCount} =======================================")
Logger.Debug($"...Working on file [{oFile}]")
Dim oFilenameOnly = Path.GetFileName(oFile)
Dim oSplit() As String = oFilenameOnly.Split(txtSplitCharacter.Text)
Dim oSplitString As String = oSplit(NumSplitIndex.Value)
Logger.Debug($"...oSplitString [{oSplitString}]")
If Await StreamFile(oFile, cmbDoctype.SelectedValue, cmbAttribute.Text, oSplitString) = True Then
Logger.Info($"...File successfully worked!")
If txtMoveTo.Text <> String.Empty Then
Try
oResult = MoveFile(oFile, txtMoveTo.Text)
Catch ex As Exception
End Try
Else
oResult = False
End If
Else
oResult = False
End If
If oResult = True Then
oCountResult += 1
End If
Catch ex As Exception
Logger.Warn($"Error working on fileimport for file [{oFile}]")
Logger.Warn($"Error: [{ex.Message}]")
Logger.Error(ex)
End Try
oCount += 1
BarEditItem1.EditValue = oCount
Next
Dim oMSG = $"FileImport finished for [{oCountResult}] of [{oTempFileList.Count }] files!"
Logger.Info(oMSG)
Cursor = Cursors.Default
MsgBox(oMSG, MsgBoxStyle.Information)
BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
End If
End Sub
Private Async Function StreamFile(oFilename As String, pDoctypeID As Integer, pDescriptiveAttribute As String, pDescrValue As String) As Threading.Tasks.Task(Of Boolean)
Try
Dim oResponse As ImportFileResponse = Await My.Application.Service.Client.ImportFileAsync(
oFilename,
New List(Of UserAttributeValue) From {
New UserAttributeValue With {
.Name = pDescriptiveAttribute,
.Values = New List(Of String) From {pDescrValue}.ToArray
}
},
"WORK",
"DOC",
pDoctypeID
)
If oResponse.OK Then
Logger.Info($"File [{oFilename}] successfully imported!")
Return True
Else
Logger.Warn($"## ATTENTION: File [{oFilename}] was not imported! ##")
Return False
End If
Catch ex As Exception
Return False
End Try
End Function
Private Function MoveFile(pFile As String, pPathMove2 As String) As Boolean
Try
Dim oFilename = Path.GetFileName(pFile)
Dim oCombined = String.Concat(pPathMove2, "\", oFilename)
File.Move(pFile, oCombined)
Logger.Info($"...and moved to [{oCombined}]")
Return True
Catch ex As Exception
Logger.Error(ex)
Return False
End Try
End Function
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
Dim oSaveUpdate = $"EXEC PRIDBFOLDERIMPORT_PROFILE '{txtTitle.Text}','{txtFolderbrowser.Text}','{txtRegex.Text}',{NumericUpDownLimit.Value}, {cmbDoctype.SelectedValue},'{txtMoveTo.Text}','', '{My.Application.User.UserName}','{txtProfilID.Text}'"
Dim oProfile = txtTitle.Text
Dim oDT As DataTable
oDT = My.DatabaseECM.GetDatatable(oSaveUpdate)
If Not IsNothing(oDT) Then
Refresh_Profiles()
cmbDoctype.SelectedIndex = cmbProfile.FindStringExact(oProfile)
End If
End Sub
Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
txtFolderbrowser.Text = ""
txtTitle.Text = ""
txtRegex.Text = ""
NumericUpDownLimit.Value = 0
txtMoveTo.Text = ""
cmbDoctype.SelectedIndex = -1
End Sub
Private Sub cmbProfile_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbProfile.SelectedIndexChanged
If cmbProfile.SelectedIndex <> -1 Then
If IsNumeric(cmbProfile.SelectedValue) Then
Dim oSQL = $"SELECT * FROM TBFOLDERIMPORT_PROFILE WHERE GUID = {cmbProfile.SelectedValue}"
Dim oDT As DataTable
oDT = My.DatabaseECM.GetDatatable(oSQL)
If Not IsNothing(oDT) Then
txtProfilID.Text = oDT.Rows(0).Item("GUID")
txtFolderbrowser.Text = oDT.Rows(0).Item("IMPORT_PATH")
txtTitle.Text = oDT.Rows(0).Item("TITLE")
txtRegex.Text = oDT.Rows(0).Item("REGEX_FILENAME")
NumericUpDownLimit.Value = oDT.Rows(0).Item("LIMIT_FILECOUNT")
txtMoveTo.Text = oDT.Rows(0).Item("ARCHIVE_PATH")
Dim oDoctype As String
For Each oRow As DataRow In oDoctype_DT.Rows
If oRow.Item(0) = oDT.Rows(0).Item("DOCTYPE_ID") Then
oDoctype = oRow.Item(1)
Exit For
End If
Next
Dim o1 = cmbDoctype.FindStringExact(oDoctype)
cmbDoctype.SelectedIndex = o1
txtAddedWho.Text = oDT.Rows(0).Item("ADDED_WHO")
txtAddedWhen.Text = oDT.Rows(0).Item("ADDED_WHEN")
txtChangedWho.Text = IIf(IsDBNull(oDT.Rows(0).Item("CHANGED_WHO")), "", oDT.Rows(0).Item("CHANGED_WHO"))
txtChangedWhen.Text = IIf(IsDBNull(oDT.Rows(0).Item("CHANGED_WHEN")), "", oDT.Rows(0).Item("CHANGED_WHEN"))
Dim oSQLSplit = $"SELECT GUID as ID,PRAEFIX as Praefix,SPLIT_CHARACTER Character, SPLIT_POS as SplitPos,SUFFIX as Suffix FROM TBFOLDERIMPORT_STEP_ATTRIBUTE_SPLIT WHERE PROFILE_ID = {oDT.Rows(0).Item("GUID")}"
Dim oDT_Split As DataTable
oDT_Split = My.DatabaseECM.GetDatatable(oSQL)
GridControlSplit.DataSource = oDT_Split
Else
txtProfilID.Text = ""
End If
End If
End If
End Sub
Private Sub GridControlSplit_MouseClick(sender As Object, e As MouseEventArgs) Handles GridControlSplit.MouseClick
RibbonPageGroup4.Visible = True
RibbonPageGroup3.Enabled = False
End Sub
Private Sub GridControlSplit_Leave(sender As Object, e As EventArgs) Handles GridControlSplit.Leave
RibbonPageGroup4.Visible = False
RibbonPageGroup3.Enabled = True
End Sub
End Class

40
ZooFlow/My Project/Resources.Designer.vb generated
View File

@@ -500,6 +500,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property actions_deletecircled7() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("actions_deletecircled7", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary> '''</summary>
@@ -990,6 +1000,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property delete2() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("delete2", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary> '''</summary>
@@ -1340,6 +1360,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property menu() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("menu", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary> '''</summary>
@@ -1490,6 +1520,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property save10() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("save10", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary> '''</summary>

40
ZooFlow/My Project/Resources.resx
View File

@@ -244,6 +244,9 @@
<data name="del2" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="del2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\del2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="delete2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\delete2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="Flow" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Flow" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Flow.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Flow.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -289,6 +292,9 @@
<data name="deletetable" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="deletetable" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\deletetable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\deletetable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="actions_check3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_check3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="3_PERSON_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="3_PERSON_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\3_PERSON_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\3_PERSON_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -313,15 +319,12 @@
<data name="actions_check4" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="actions_check4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_check5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\actions_check5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="actions_check3" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="save10" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_check3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\save10.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="save5" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="save5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\save5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="updatedataextract" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\updatedataextract.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="previousview" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="previousview" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\previousview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\previousview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
@@ -352,8 +355,8 @@
<data name="singlepageview" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="singlepageview" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="documentproperties" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="ZooFlow_G_DevExpress" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\documentproperties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\ZooFlow_G_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="1_LOGO_ZOO_FLOW" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="1_LOGO_ZOO_FLOW" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1_LOGO_ZOO_FLOW.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\1_LOGO_ZOO_FLOW.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -376,9 +379,6 @@
<data name="new4" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="new4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\new4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\new4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="ZooFlow_G_DevExpress" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow_G_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="save6" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="save6" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\save6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
@@ -454,6 +454,9 @@
<data name="definednameuseinformula1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="definednameuseinformula1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\definednameuseinformula1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\definednameuseinformula1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="menu" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\menu.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="CW_GEFUNDEN_klein" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="CW_GEFUNDEN_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CW_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\CW_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -538,12 +541,15 @@
<data name="actions_deletecircled5" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="actions_deletecircled5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_deletecircled5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\actions_deletecircled5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="4_GLOBIX_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="updatedataextract" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\4_GLOBIX_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\updatedataextract.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="ZOOFLOW_DRAG_PROGRESSIVE" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="ZOOFLOW_DRAG_PROGRESSIVE" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZOOFLOW_DRAG_PROGRESSIVE.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\ZOOFLOW_DRAG_PROGRESSIVE.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="documentproperties" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\documentproperties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="Compare_RefreshScriptPreview" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Compare_RefreshScriptPreview" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Compare_RefreshScriptPreview.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Compare_RefreshScriptPreview.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -574,6 +580,9 @@
<data name="ZooFlow_Sidebar_TOP" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="ZooFlow_Sidebar_TOP" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow_Sidebar_TOP.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\ZooFlow_Sidebar_TOP.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="columnheaders" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\columnheaders.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="definednameuseinformula2" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="definednameuseinformula2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\definednameuseinformula2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\definednameuseinformula2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
@@ -634,6 +643,9 @@
<data name="save8" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="save8" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save8.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\save8.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="4_GLOBIX_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\4_GLOBIX_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="servermode" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="servermode" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\servermode.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\servermode.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
@@ -661,7 +673,7 @@
<data name="del3" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="del3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\del3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="columnheaders" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="actions_deletecircled7" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\columnheaders.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\actions_deletecircled7.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
</root> </root>

18
ZooFlow/My Project/licenses.licx
View File

@@ -1,12 +1,14 @@
DevExpress.XtraEditors.DateEdit, 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.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.PictureEdit, 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.XtraTreeList.TreeList, DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.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.XtraLayout.LayoutControl, DevExpress.XtraLayout.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.ComboBoxEdit, 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.XtraGrid.GridControl, DevExpress.XtraGrid.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.ImageComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.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.PictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.DateEdit, 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
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.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.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

15
ZooFlow/Resources/actions_deletecircled7.svg Normal file
View File

@@ -0,0 +1,15 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Blue{fill:#1177D7;}
.Yellow{fill:#FFB115;}
.Black{fill:#727272;}
.Green{fill:#039C23;}
.Red{fill:#D11C1C;}
.st0{opacity:0.75;}
.st1{opacity:0.5;}
</style>
<g id="DeleteCircled">
<path d="M16,4C9.4,4,4,9.4,4,16s5.4,12,12,12s12-5.4,12-12S22.6,4,16,4z M23.1,20.2l-2.8,2.8L16,18.8l-4.2,4.2 l-2.8-2.8l4.2-4.2l-4.2-4.2l2.8-2.8l4.2,4.2l4.2-4.2l2.8,2.8L18.8,16L23.1,20.2z" class="Red" />
</g>
</svg>

18
ZooFlow/Resources/delete2.svg Normal file
View File

@@ -0,0 +1,18 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Red{fill:#D11C1C;}
.Black{fill:#727272;}
.Blue{fill:#1177D7;}
.Green{fill:#039C23;}
.Yellow{fill:#FFB115;}
.White{fill:#FFFFFF;}
.st0{opacity:0.5;}
.st1{opacity:0.75;}
</style>
<g id="Delete">
<g>
<path d="M18.8,16l6.9-6.9c0.4-0.4,0.4-1,0-1.4l-1.4-1.4c-0.4-0.4-1-0.4-1.4,0L16,13.2L9.1,6.3c-0.4-0.4-1-0.4-1.4,0 L6.3,7.7c-0.4,0.4-0.4,1,0,1.4l6.9,6.9l-6.9,6.9c-0.4,0.4-0.4,1,0,1.4l1.4,1.4c0.4,0.4,1,0.4,1.4,0l6.9-6.9l6.9,6.9 c0.4,0.4,1,0.4,1.4,0l1.4-1.4c0.4-0.4,0.4-1,0-1.4L18.8,16z" class="Red" />
</g>
</g>
</svg>

16
ZooFlow/Resources/menu.svg Normal file
View File

@@ -0,0 +1,16 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Yellow{fill:#FFB115;}
.Red{fill:#D11C1C;}
.Blue{fill:#1177D7;}
.Green{fill:#039C23;}
.Black{fill:#727272;}
.White{fill:#FFFFFF;}
.st0{opacity:0.75;}
</style>
<g id="Menu">
<path d="M2,10V3c0-0.5,0.5-1,1-1h26c0.5,0,1,0.5,1,1v7H2z M9,12c-1.7,0-3,1.3-3,3s1.3,3,3,3s3-1.3,3-3S10.7,12,9,12z M9,20c-1.7,0-3,1.3-3,3s1.3,3,3,3s3-1.3,3-3S10.7,20,9,20z" class="Blue" />
<path d="M30,10v19c0,0.5-0.5,1-1,1H3c-0.5,0-1-0.5-1-1V10h2v18h24V10H30z M24,14H14v2h10V14z M24,22H14v2h10V22z" class="Black" />
</g>
</svg>

16
ZooFlow/Resources/save10.svg Normal file
View File

@@ -0,0 +1,16 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Black{fill:#737374;}
.Yellow{fill:#FCB01B;}
.Green{fill:#129C49;}
.Blue{fill:#387CB7;}
.Red{fill:#D02127;}
.White{fill:#FFFFFF;}
.st0{opacity:0.5;}
.st1{opacity:0.75;}
.st2{opacity:0.25;}
.st3{display:none;fill:#737374;}
</style>
<path d="M27,4h-3v10H8V4H5C4.4,4,4,4.4,4,5v22c0,0.6,0.4,1,1,1h22c0.6,0,1-0.4,1-1V5C28,4.4,27.6,4,27,4z M24,24H8v-6 h16V24z M10,4v8h10V4H10z M14,10h-2V6h2V10z" class="Black" />
</svg>

7
ZooFlow/Search/SavedSearch.vb
View File

@@ -19,7 +19,6 @@ Namespace SavedSearch
Public Class PredefinedDateSearch Public Class PredefinedDateSearch
Inherits SavedSearch Inherits SavedSearch
'Public Property Image As SvgImage
Public Overrides Property GroupText As String = "Vordefiniert" Public Overrides Property GroupText As String = "Vordefiniert"
Public Property DateConstraint As Search.SearchRunner.DateConstraint Public Property DateConstraint As Search.SearchRunner.DateConstraint
@@ -28,10 +27,12 @@ Namespace SavedSearch
Public Class CustomSearch Public Class CustomSearch
Inherits SavedSearch Inherits SavedSearch
'Public Property Image As SvgImage
Public Overrides Property GroupText As String = "Eigene" Public Overrides Property GroupText As String = "Eigene"
Public Tokens As New List(Of Search.SearchToken.Token) Public Property Guid As Integer
Public Property IsSystem As Boolean = False
Public Property Tokens As New List(Of Search.SearchToken.Token)
End Class End Class
<XmlInclude(GetType(Search.SearchToken.Token))> <XmlInclude(GetType(Search.SearchToken.Token))>

56
ZooFlow/Search/SearchLoader.vb
View File

@@ -69,23 +69,59 @@ Namespace Search
End Function End Function
Public Function LoadCustomSearches() As List(Of SavedSearch.SavedSearch) Public Function LoadCustomSearches() As List(Of SavedSearch.SavedSearch)
Dim oSearches As New List(Of SavedSearch.SavedSearch) Try
Dim oSQL As String = $" Dim oSearches As New List(Of SavedSearch.SavedSearch)
Dim oSQL As String = $"
SELECT DEF.* SELECT DEF.*
FROM [TBIDB_SEARCH_DEFINITION] DEF FROM [TBIDB_SEARCH_DEFINITION] DEF
JOIN [TBIDB_SEARCH_DEF_RELATIONS] REL ON REL.SEARCH_ID = DEF.GUID JOIN [TBIDB_SEARCH_DEF_RELATIONS] REL ON REL.SEARCH_ID = DEF.GUID
WHERE REL.USR_ID = {UserState.UserId} WHERE REL.USR_ID = {UserState.UserId}
" "
Dim oTable = Database.GetDatatable(oSQL) Dim oTable = Database.GetDatatable(oSQL)
For Each oRow As DataRow In oTable.Rows For Each oRow As DataRow In oTable.Rows
Dim oBase64 = oRow.Item("XML_VALUE") Dim oBase64 = oRow.Item("XML_VALUE")
Dim oBuffer = System.Convert.FromBase64String(oBase64) Dim oBuffer = System.Convert.FromBase64String(oBase64)
Dim oSearch = DeserializeSearch(oBuffer) Dim oSearch = DeserializeSearch(oBuffer)
oSearches.Add(oSearch) oSearch.Guid = oRow.ItemEx("GUID", 0)
Next oSearch.IsSystem = oRow.ItemEx("SYS_SEARCH", False)
oSearches.Add(oSearch)
Next
Return oSearches Return oSearches
Catch ex As Exception
Logger.Error(ex)
Return New List(Of SavedSearch.SavedSearch)
End Try
End Function
Public Function SaveSearch(pSearch As SavedSearch.CustomSearch) As Boolean
Try
Dim oBuffer = SerializeSearch(pSearch)
Dim oBase64 = System.Convert.ToBase64String(oBuffer)
Dim oSQL = $"UPDATE [TBIDB_SEARCH_DEFINITION] SET
TITLE = '{pSearch.Name}',
DESCRIPTION = '{pSearch.Description}',
XML_FILE = '{oBase64}',
CHANGE_WHO = '{UserState.UserName}'
WHERE GUID = {pSearch.Guid}"
Return Database.ExecuteNonQuery(oSQL)
Catch ex As Exception
Logger.Error(ex)
Return False
End Try
End Function
Public Function DeleteSearch(pSearch As SavedSearch.CustomSearch) As Boolean
Try
Dim oSQL = $"DELETE FROM [TBIDB_SEARCH_DEFINITION] WHERE GUID = {pSearch.Guid}"
Return Database.ExecuteNonQuery(oSQL)
Catch ex As Exception
Logger.Error(ex)
Return False
End Try
End Function End Function
Public Function LoadPredefinedSearches() As List(Of SavedSearch.SavedSearch) Public Function LoadPredefinedSearches() As List(Of SavedSearch.SavedSearch)

145
ZooFlow/Search/SearchRunner.vb
View File

@@ -40,28 +40,40 @@ Namespace Search
Public Event NeedsNewSavedSearch As EventHandler Public Event NeedsNewSavedSearch As EventHandler
Public Event Closed As EventHandler(Of Integer) Public Event Closed As EventHandler(Of Integer)
Private Property _ActiveDateConstraint As String = String.Empty 'Private Property _ActiveDateConstraint As String = String.Empty
Public ReadOnly Property ActiveDateConstraint As String 'Public ReadOnly Property ActiveDateConstraint As String
' Get
' Return _ActiveDateConstraint
' End Get
'End Property
'Private _ActiveSearchTokens As New List(Of SearchToken.Token)
'Private _ActiveDateAttribute As String = SEARCH_FACT_DATE_DEFAULT
'Private _ActiveTokenOperator As TokenOperator = TokenOperator.And
'Public ReadOnly Property ActiveDateAttribute As String
' Get
' Return _ActiveDateAttribute
' End Get
'End Property
'Public ReadOnly Property ActiveTokens As List(Of SearchToken.Token)
' Get
' Return _ActiveSearchTokens
' End Get
'End Property
Private _ActiveParams As New SearchParameters
Public ReadOnly Property ActiveSearchParameters As SearchParameters
Get Get
Return _ActiveDateConstraint Return _ActiveParams
End Get End Get
End Property End Property
Private _ActiveSearchTokens As New List(Of SearchToken.Token) Public Property LastOpenedForm As Common.IResultForm
Private _ActiveDateAttribute As String = SEARCH_FACT_DATE_DEFAULT
Private _ActiveTokenOperator As TokenOperator = TokenOperator.And
Public ReadOnly Property ActiveDateAttribute As String
Get
Return _ActiveDateAttribute
End Get
End Property
Public ReadOnly Property ActiveTokens As List(Of SearchToken.Token)
Get
Return _ActiveSearchTokens
End Get
End Property
Public Property BaseSearchSQL As String Public Property BaseSearchSQL As String
Public Property ExplicitDate As Boolean = False Public Property ExplicitDate As Boolean = False
@@ -122,10 +134,7 @@ Namespace Search
End Function End Function
Public Async Function RunWithTokens(pTokens As IEnumerable(Of Search.SearchToken.Token), pDateFrom As Date, pDateTo As Date, pSearchTitle As String) As Task(Of SearchResult) Public Async Function RunWithTokens(pTokens As IEnumerable(Of Search.SearchToken.Token), pDateFrom As Date, pDateTo As Date, pSearchTitle As String) As Task(Of SearchResult)
If pTokens.Count = 0 And If pTokens.Count = 0 And pDateFrom = Date.MinValue And pDateTo = Date.MinValue And _ActiveParams.DateConstraint = String.Empty Then
pDateFrom = Date.MinValue And
pDateTo = Date.MinValue And
_ActiveDateConstraint = String.Empty Then
Return New SearchResult(0) Return New SearchResult(0)
End If End If
@@ -136,33 +145,38 @@ Namespace Search
}) })
End Function End Function
Private Async Function ExecuteSearch(pTokens As List(Of SearchToken.Token), pSearchTerm As String, pDateConstraint As String) As Task(Of Boolean)
Dim oSQL = String.Empty
'Public Async Function RunWithSearchTerm(pSearchTerm As String, pDateFrom As Date, pDateTo As Date) As Task(Of SearchResult) _ActiveParams.DateConstraint = pDateConstraint
' Return Await RunWithSearchTerm(pSearchTerm, pDateFrom, pDateTo, Nothing, Nothing)
'End Function If pTokens IsNot Nothing AndAlso pTokens.Count > 0 Then
_ActiveParams.SearchTokens = pTokens
_ActiveParams.SearchString = String.Empty
Await InsertSearchTokens(pTokens)
oSQL = $"EXEC PRIDB_SEARCH_GET_TOKEN_RESULT_DOCS {UserId}, '{pDateConstraint}', '{UserLanguage}'"
ElseIf pSearchTerm IsNot Nothing Then
_ActiveParams.SearchTokens.Clear()
_ActiveParams.SearchString = pSearchTerm
oSQL = $"EXEC PRIDB_SEARCH_GET_TEXT_RESULTS {UserId},'{pSearchTerm}','{pDateConstraint}', '{UserLanguage}'"
Else
_ActiveParams.SearchTokens.Clear()
_ActiveParams.SearchString = String.Empty
oSQL = $"EXEC PRIDB_SEARCH_GET_TEXT_RESULTS {UserId},'{String.Empty}','{pDateConstraint}', '{UserLanguage}'"
End If
Return Await My.Database.ExecuteNonQueryIDBAsync(oSQL)
End Function
Private Async Function RunWithSearchOptions(pOptions As SearchOptions) As Task(Of SearchResult) Private Async Function RunWithSearchOptions(pOptions As SearchOptions) As Task(Of SearchResult)
Dim oDateConstraint = Await GetDateConstraint(pOptions.DateFrom, pOptions.DateTo) Dim oDateConstraint = Await GetDateConstraint(pOptions.DateFrom, pOptions.DateTo)
Dim oWindowTitle = GetResultWindowString(pOptions.SearchString, pOptions.SearchTitle) Dim oWindowTitle = GetResultWindowString(pOptions.SearchString, pOptions.SearchTitle)
Dim oParams = GetParams(oWindowTitle) Dim oParams = GetParams(oWindowTitle)
Dim oTokens = pOptions.SearchTokens
Dim oSearchTerm = pOptions.SearchString
Dim oSQL = String.Empty If Await ExecuteSearch(pOptions.SearchTokens, pOptions.SearchString, oDateConstraint) = True Then
If oTokens IsNot Nothing AndAlso oTokens.Count > 0 Then
_ActiveSearchTokens = oTokens
Await InsertSearchTokens(oTokens)
oSQL = $"EXEC PRIDB_SEARCH_GET_TOKEN_RESULT_DOCS {UserId}, '{oDateConstraint}', '{UserLanguage}'"
ElseIf oSearchTerm IsNot Nothing Then
_ActiveSearchTokens.Clear()
oSQL = $"EXEC PRIDB_SEARCH_GET_TEXT_RESULTS {UserId},'{pOptions.SearchString}','{oDateConstraint}', '{UserLanguage}'"
Else
_ActiveSearchTokens.Clear()
oSQL = $"EXEC PRIDB_SEARCH_GET_TEXT_RESULTS {UserId},'{String.Empty}','{oDateConstraint}', '{UserLanguage}'"
End If
If Await My.Database.ExecuteNonQueryIDBAsync(oSQL) = True Then
Dim oDTDocResult = Await My.Database.GetDatatableIDBAsync(BaseSearchSQL) Dim oDTDocResult = Await My.Database.GetDatatableIDBAsync(BaseSearchSQL)
If oDTDocResult Is Nothing Then If oDTDocResult Is Nothing Then
@@ -182,6 +196,7 @@ Namespace Search
Dim oForm As New frmDocumentResultList(My.LogConfig, Environment, oParams) Dim oForm As New frmDocumentResultList(My.LogConfig, Environment, oParams)
AddEventHandlers(oForm) AddEventHandlers(oForm)
LastOpenedForm = oForm
oForm.Show() oForm.Show()
Return New SearchResult(oRowCount) Return New SearchResult(oRowCount)
@@ -195,9 +210,25 @@ Namespace Search
End If End If
End Function End Function
Public Async Function RunLastSearch() As Task(Of DocumentResultList.DocumentResult)
Try
If Await ExecuteSearch(_ActiveParams.SearchTokens, _ActiveParams.SearchString, _ActiveParams.DateConstraint) Then
Dim oResult = Await My.Database.GetDatatableIDBAsync(BaseSearchSQL)
Return New DocumentResultList.DocumentResult() With {
.Title = SearchId,
.Datatable = oResult
}
Else
Return Nothing
End If
Catch ex As Exception
Logger.Error(ex)
Return Nothing
End Try
End Function
Private Sub AddEventHandlers(pForm As frmDocumentResultList) Private Sub AddEventHandlers(pForm As frmDocumentResultList)
' TODO: Implement
'AddHandler pForm.NeedsRefresh, AddressOf Form_NeedsRefresh
AddHandler pForm.FormClosed, AddressOf Form_Closed AddHandler pForm.FormClosed, AddressOf Form_Closed
' Only setup event if it is actually used ' Only setup event if it is actually used
@@ -220,7 +251,7 @@ Namespace Search
End Sub End Sub
Private Async Function GetDateConstraint(pDateFrom As Date, pDateTo As Date) As Task(Of String) Private Async Function GetDateConstraint(pDateFrom As Date, pDateTo As Date) As Task(Of String)
Dim oSimpleDateConstraint = $"{_ActiveDateAttribute}~{_ActiveDateConstraint}" Dim oSimpleDateConstraint = $"{_ActiveParams.DateAttribute}~{_ActiveParams.DateConstraint}"
Dim oExplicitConstraint = Await MaybeSetExplicitDateConstraint(pDateFrom, pDateTo) Dim oExplicitConstraint = Await MaybeSetExplicitDateConstraint(pDateFrom, pDateTo)
If IsNothing(oExplicitConstraint) Then If IsNothing(oExplicitConstraint) Then
@@ -246,7 +277,7 @@ Namespace Search
Dim oOperatorString Dim oOperatorString
Select Case _ActiveTokenOperator Select Case _ActiveParams.TokenOperator
Case TokenOperator.Or Case TokenOperator.Or
oOperatorString = "OR" oOperatorString = "OR"
Case Else Case Else
@@ -277,7 +308,7 @@ Namespace Search
End If End If
Dim oProc = $"EXEC PRIDB_SEARCH_ADD_USR_DATE {UserId},'{pDateFrom}','{oDateTo}'" Dim oProc = $"EXEC PRIDB_SEARCH_ADD_USR_DATE {UserId},'{pDateFrom}','{oDateTo}'"
If Await My.Database.ExecuteNonQueryIDBAsync(oProc) = True Then If Await My.Database.ExecuteNonQueryIDBAsync(oProc) = True Then
Return $"{_ActiveDateAttribute}~DATEPART" Return $"{_ActiveParams.DateAttribute}~DATEPART"
Else Else
Return Nothing Return Nothing
End If End If
@@ -332,19 +363,19 @@ Namespace Search
End Function End Function
Public Sub SetDateConstraint() Public Sub SetDateConstraint()
_ActiveDateConstraint = String.Empty _ActiveParams.DateConstraint = String.Empty
End Sub End Sub
Public Sub SetDateConstraint(pConstraintName As String) Public Sub SetDateConstraint(pConstraintName As String)
_ActiveDateConstraint = pConstraintName _ActiveParams.DateConstraint = pConstraintName
End Sub End Sub
Public Sub SetDateConstraint(pConstraint As DateConstraint) Public Sub SetDateConstraint(pConstraint As DateConstraint)
_ActiveDateConstraint = DateConstraintToConstant(pConstraint) _ActiveParams.DateConstraint = DateConstraintToConstant(pConstraint)
End Sub End Sub
Public Sub SetTokenOperator(pOperator As TokenOperator) Public Sub SetTokenOperator(pOperator As TokenOperator)
_ActiveTokenOperator = pOperator _ActiveParams.DateConstraint = pOperator
End Sub End Sub
Public Function DateConstraintToConstant(pConstraint As DateConstraint) As String Public Function DateConstraintToConstant(pConstraint As DateConstraint) As String
@@ -402,13 +433,21 @@ Namespace Search
End Function End Function
Public Sub SetDateAttribute(pAttributeName As String) Public Sub SetDateAttribute(pAttributeName As String)
_ActiveDateAttribute = pAttributeName _ActiveParams.DateAttribute = pAttributeName
End Sub End Sub
Public Sub SetDateAttribute() Public Sub SetDateAttribute()
_ActiveDateAttribute = SEARCH_FACT_DATE_DEFAULT _ActiveParams.DateAttribute = SEARCH_FACT_DATE_DEFAULT
End Sub End Sub
Public Class SearchParameters
Public SearchTokens As New List(Of Search.SearchToken.Token)
Public TokenOperator As TokenOperator
Public SearchString As String
Public DateConstraint As String
Public DateAttribute As String
End Class
Public Class SearchOptions Public Class SearchOptions
Public SearchTitle As String Public SearchTitle As String

345
ZooFlow/Search/frmListSearches.Designer.vb generated Normal file
View File

@@ -0,0 +1,345 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmListSearches
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.btnSave = New DevExpress.XtraBars.BarButtonItem()
Me.btnDelete = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.GridControlSearches = New DevExpress.XtraGrid.GridControl()
Me.GridViewSearches = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colName = New DevExpress.XtraGrid.Columns.GridColumn()
Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
Me.peSearchImage = New DevExpress.XtraEditors.PictureEdit()
Me.txtDescription = New DevExpress.XtraEditors.TextEdit()
Me.txtTitle = New DevExpress.XtraEditors.TextEdit()
Me.cmbImages = New DevExpress.XtraEditors.ImageComboBoxEdit()
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlSearches, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewSearches, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl1.Panel1.SuspendLayout()
CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl1.SuspendLayout()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControl1.SuspendLayout()
CType(Me.peSearchImage.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDescription.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTitle.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cmbImages.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'RibbonControl1
'
Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.btnSave, Me.btnDelete})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 3
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.Size = New System.Drawing.Size(1049, 158)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'btnSave
'
Me.btnSave.Caption = "Speichern"
Me.btnSave.Id = 1
Me.btnSave.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save10
Me.btnSave.Name = "btnSave"
'
'btnDelete
'
Me.btnDelete.Caption = "Löschen"
Me.btnDelete.Id = 2
Me.btnDelete.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_deletecircled7
Me.btnDelete.Name = "btnDelete"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Start"
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.btnSave)
Me.RibbonPageGroup1.ItemLinks.Add(Me.btnDelete)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Suche"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 711)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1049, 24)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'GridControlSearches
'
Me.GridControlSearches.Dock = System.Windows.Forms.DockStyle.Left
Me.GridControlSearches.Location = New System.Drawing.Point(0, 158)
Me.GridControlSearches.MainView = Me.GridViewSearches
Me.GridControlSearches.MenuManager = Me.RibbonControl1
Me.GridControlSearches.Name = "GridControlSearches"
Me.GridControlSearches.Size = New System.Drawing.Size(324, 553)
Me.GridControlSearches.TabIndex = 2
Me.GridControlSearches.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearches})
'
'GridViewSearches
'
Me.GridViewSearches.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName})
Me.GridViewSearches.GridControl = Me.GridControlSearches
Me.GridViewSearches.Name = "GridViewSearches"
'
'colName
'
Me.colName.Caption = "Name"
Me.colName.FieldName = "Name"
Me.colName.Name = "colName"
Me.colName.Visible = True
Me.colName.VisibleIndex = 0
'
'SplitContainerControl1
'
Me.SplitContainerControl1.Collapsed = True
Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerControl1.Location = New System.Drawing.Point(324, 158)
Me.SplitContainerControl1.Name = "SplitContainerControl1"
'
'SplitContainerControl1.Panel1
'
Me.SplitContainerControl1.Panel1.Controls.Add(Me.LayoutControl1)
Me.SplitContainerControl1.Panel1.Text = "Panel1"
'
'SplitContainerControl1.Panel2
'
Me.SplitContainerControl1.Panel2.Text = "Panel2"
Me.SplitContainerControl1.Size = New System.Drawing.Size(725, 553)
Me.SplitContainerControl1.SplitterPosition = 529
Me.SplitContainerControl1.TabIndex = 3
'
'LayoutControl1
'
Me.LayoutControl1.Controls.Add(Me.peSearchImage)
Me.LayoutControl1.Controls.Add(Me.txtDescription)
Me.LayoutControl1.Controls.Add(Me.txtTitle)
Me.LayoutControl1.Controls.Add(Me.cmbImages)
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.LayoutControl1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControl1.Name = "LayoutControl1"
Me.LayoutControl1.Root = Me.Root
Me.LayoutControl1.Size = New System.Drawing.Size(715, 553)
Me.LayoutControl1.TabIndex = 0
Me.LayoutControl1.Text = "LayoutControl1"
'
'peSearchImage
'
Me.peSearchImage.Location = New System.Drawing.Point(570, 12)
Me.peSearchImage.MenuManager = Me.RibbonControl1
Me.peSearchImage.Name = "peSearchImage"
Me.peSearchImage.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
Me.peSearchImage.Size = New System.Drawing.Size(133, 126)
Me.peSearchImage.StyleController = Me.LayoutControl1
Me.peSearchImage.TabIndex = 4
'
'txtDescription
'
Me.txtDescription.Location = New System.Drawing.Point(102, 60)
Me.txtDescription.MenuManager = Me.RibbonControl1
Me.txtDescription.Name = "txtDescription"
Me.txtDescription.Size = New System.Drawing.Size(456, 20)
Me.txtDescription.StyleController = Me.LayoutControl1
Me.txtDescription.TabIndex = 5
'
'txtTitle
'
Me.txtTitle.Location = New System.Drawing.Point(102, 20)
Me.txtTitle.MenuManager = Me.RibbonControl1
Me.txtTitle.Name = "txtTitle"
Me.txtTitle.Size = New System.Drawing.Size(456, 20)
Me.txtTitle.StyleController = Me.LayoutControl1
Me.txtTitle.TabIndex = 6
'
'cmbImages
'
Me.cmbImages.Location = New System.Drawing.Point(102, 100)
Me.cmbImages.MenuManager = Me.RibbonControl1
Me.cmbImages.Name = "cmbImages"
Me.cmbImages.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.cmbImages.Size = New System.Drawing.Size(456, 20)
Me.cmbImages.StyleController = Me.LayoutControl1
Me.cmbImages.TabIndex = 7
'
'Root
'
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2, Me.LayoutControlItem3, Me.EmptySpaceItem1, Me.LayoutControlItem4, Me.LayoutControlItem1, Me.EmptySpaceItem2})
Me.Root.Name = "Root"
Me.Root.Size = New System.Drawing.Size(715, 553)
Me.Root.TextVisible = False
'
'LayoutControlItem2
'
Me.LayoutControlItem2.Control = Me.txtDescription
Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 40)
Me.LayoutControlItem2.Name = "LayoutControlItem2"
Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem2.Size = New System.Drawing.Size(558, 40)
Me.LayoutControlItem2.Text = "Beschreibung"
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(70, 13)
'
'LayoutControlItem3
'
Me.LayoutControlItem3.Control = Me.txtTitle
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem3.Size = New System.Drawing.Size(558, 40)
Me.LayoutControlItem3.Text = "Name"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(70, 13)
'
'EmptySpaceItem1
'
Me.EmptySpaceItem1.AllowHotTrack = False
Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 120)
Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
Me.EmptySpaceItem1.Size = New System.Drawing.Size(558, 10)
Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
'
'LayoutControlItem4
'
Me.LayoutControlItem4.Control = Me.cmbImages
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 80)
Me.LayoutControlItem4.Name = "LayoutControlItem4"
Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem4.Size = New System.Drawing.Size(558, 40)
Me.LayoutControlItem4.Text = "Icon"
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(70, 13)
'
'LayoutControlItem1
'
Me.LayoutControlItem1.Control = Me.peSearchImage
Me.LayoutControlItem1.Location = New System.Drawing.Point(558, 0)
Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Size = New System.Drawing.Size(137, 130)
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem1.TextVisible = False
'
'EmptySpaceItem2
'
Me.EmptySpaceItem2.AllowHotTrack = False
Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 130)
Me.EmptySpaceItem2.Name = "EmptySpaceItem2"
Me.EmptySpaceItem2.Size = New System.Drawing.Size(695, 403)
Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0)
'
'frmListSearches
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1049, 735)
Me.Controls.Add(Me.SplitContainerControl1)
Me.Controls.Add(Me.GridControlSearches)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.Name = "frmListSearches"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "frmListSearches"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControlSearches, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewSearches, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl1.Panel1.ResumeLayout(False)
CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl1.ResumeLayout(False)
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.LayoutControl1.ResumeLayout(False)
CType(Me.peSearchImage.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDescription.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTitle.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cmbImages.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents GridControlSearches As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewSearches As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents peSearchImage As DevExpress.XtraEditors.PictureEdit
Friend WithEvents txtDescription As DevExpress.XtraEditors.TextEdit
Friend WithEvents txtTitle As DevExpress.XtraEditors.TextEdit
Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
Friend WithEvents EmptySpaceItem2 As DevExpress.XtraLayout.EmptySpaceItem
Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents cmbImages As DevExpress.XtraEditors.ImageComboBoxEdit
Friend WithEvents btnSave As DevExpress.XtraBars.BarButtonItem
Friend WithEvents btnDelete As DevExpress.XtraBars.BarButtonItem
End Class

120
ZooFlow/Search/frmListSearches.resx Normal file
View File

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

74
ZooFlow/Search/frmListSearches.vb Normal file
View File

@@ -0,0 +1,74 @@
Imports DevExpress.Utils
Imports DevExpress.Utils.Svg
Imports DevExpress.XtraGrid
Imports DigitalData.GUIs.ZooFlow.Search
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging
Public Class frmListSearches
Private ReadOnly LogConfig As LogConfig
Private ReadOnly Logger As Logger
Private ReadOnly Database As MSSQLServer
Private SearchLoader As SearchLoader
Private Searches As List(Of SavedSearch.SavedSearch)
Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
LogConfig = pLogConfig
Logger = pLogConfig.GetLogger
Database = pDatabase
End Sub
Private Sub frmListSearches_Load(sender As Object, e As EventArgs) Handles MyBase.Load
SearchLoader = New SearchLoader(My.LogConfig, My.DatabaseIDB, My.Application.User, frmSearchFlow.SvgImageCollection1)
Searches = SearchLoader.LoadCustomSearches()
GridControlSearches.DataSource = Searches
GridViewSearches.FocusedRowHandle = GridControl.InvalidRowHandle
Dim oImages = frmEditSearch.Images
For Each oImage As SvgImageInfo In oImages.ImageInfos
Dim oItem = New DevExpress.XtraEditors.Controls.ImageComboBoxItem(oImage.Name, oImage.Bitmap)
cmbImages.Properties.Items.Add(oItem)
Next
End Sub
Private Sub GridViewSearches_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewSearches.FocusedRowChanged
Dim oSearch As SavedSearch.CustomSearch = GridViewSearches.GetRow(GridViewSearches.FocusedRowHandle)
If oSearch IsNot Nothing Then
txtTitle.EditValue = oSearch.Name
txtDescription.EditValue = oSearch.Description
peSearchImage.EditValue = oSearch.Image
btnDelete.Enabled = True
btnSave.Enabled = True
Else
btnDelete.Enabled = False
btnSave.Enabled = False
End If
End Sub
Private Sub cmbImages_SelectedValueChanged(sender As Object, e As EventArgs) Handles cmbImages.SelectedValueChanged
Dim oImage As SvgBitmap = cmbImages.EditValue
peSearchImage.EditValue = oImage.SvgImage
End Sub
Private Sub btnSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnSave.ItemClick
Dim oSearch As SavedSearch.CustomSearch = GridViewSearches.GetRow(GridViewSearches.FocusedRowHandle)
If oSearch IsNot Nothing Then
oSearch.Name = txtTitle.EditValue
oSearch.Description = txtDescription.EditValue
oSearch.Image = peSearchImage.EditValue
SearchLoader.SaveSearch(oSearch)
End If
End Sub
Private Sub btnDelete_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnDelete.ItemClick
End Sub
End Class

169
ZooFlow/Search/frmSearchFlow.Designer.vb generated
View File

@@ -23,19 +23,19 @@ Partial Class frmSearchFlow
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim ItemTemplate2 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate() Dim ItemTemplate1 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate()
Dim TableColumnDefinition5 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() Dim TableColumnDefinition1 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TableColumnDefinition6 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() Dim TableColumnDefinition2 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TileViewItemElement6 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() Dim TileViewItemElement1 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim TileViewItemElement7 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() Dim TileViewItemElement2 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim TableRowDefinition4 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() Dim TableRowDefinition1 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TableColumnDefinition7 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() Dim TableColumnDefinition3 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TableColumnDefinition8 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() Dim TableColumnDefinition4 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TableRowDefinition5 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() Dim TableRowDefinition2 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TableRowDefinition6 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() Dim TableRowDefinition3 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TileViewItemElement8 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() Dim TileViewItemElement3 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim TileViewItemElement9 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() Dim TileViewItemElement4 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim TileViewItemElement10 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() Dim TileViewItemElement5 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Me.colName = New DevExpress.XtraGrid.Columns.TileViewColumn() Me.colName = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.colImage = New DevExpress.XtraGrid.Columns.TileViewColumn() Me.colImage = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.colDescription = New DevExpress.XtraGrid.Columns.TileViewColumn() Me.colDescription = New DevExpress.XtraGrid.Columns.TileViewColumn()
@@ -56,10 +56,12 @@ Partial Class frmSearchFlow
Me.BarEditItem2 = New DevExpress.XtraBars.BarEditItem() Me.BarEditItem2 = New DevExpress.XtraBars.BarEditItem()
Me.RepositoryItemTrackBar2 = New DevExpress.XtraEditors.Repository.RepositoryItemTrackBar() Me.RepositoryItemTrackBar2 = New DevExpress.XtraEditors.Repository.RepositoryItemTrackBar()
Me.BarCheckItem1 = New DevExpress.XtraBars.BarCheckItem() Me.BarCheckItem1 = New DevExpress.XtraBars.BarCheckItem()
Me.btnEditMySearches = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RepositoryItemMarqueeProgressBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemMarqueeProgressBar() Me.RepositoryItemMarqueeProgressBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemMarqueeProgressBar()
@@ -148,9 +150,9 @@ Partial Class frmSearchFlow
' '
Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.lblResults, Me.chkOperatorAnd, Me.chkOperatorOr, Me.chkDatefilter2, Me.BarCheckItem4, Me.chkSearchEverywhere, Me.BarButtonItem1, Me.BarButtonItem2, Me.btnSaveSearch, Me.chkGridVertical, Me.chkGridHorizontal, Me.BarEditItem1, Me.BarEditItem2, Me.BarCheckItem1}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.lblResults, Me.chkOperatorAnd, Me.chkOperatorOr, Me.chkDatefilter2, Me.BarCheckItem4, Me.chkSearchEverywhere, Me.BarButtonItem1, Me.BarButtonItem2, Me.btnSaveSearch, Me.chkGridVertical, Me.chkGridHorizontal, Me.BarEditItem1, Me.BarEditItem2, Me.BarCheckItem1, Me.btnEditMySearches})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 30 Me.RibbonControl1.MaxItemId = 31
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3})
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemMarqueeProgressBar1, Me.RepositoryItemTrackBar1, Me.RepositoryItemTrackBar2}) Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemMarqueeProgressBar1, Me.RepositoryItemTrackBar1, Me.RepositoryItemTrackBar2})
@@ -158,7 +160,7 @@ Partial Class frmSearchFlow
Me.RibbonControl1.ShowDisplayOptionsMenuButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowDisplayOptionsMenuButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Show Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Show
Me.RibbonControl1.ShowToolbarCustomizeItem = False Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.Size = New System.Drawing.Size(954, 160) Me.RibbonControl1.Size = New System.Drawing.Size(954, 158)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
' '
@@ -265,7 +267,7 @@ Partial Class frmSearchFlow
' '
'BarEditItem2 'BarEditItem2
' '
Me.BarEditItem2.Caption = "BarEditItem2" Me.BarEditItem2.Caption = "Spalten"
Me.BarEditItem2.Edit = Me.RepositoryItemTrackBar2 Me.BarEditItem2.Edit = Me.RepositoryItemTrackBar2
Me.BarEditItem2.Id = 27 Me.BarEditItem2.Id = 27
Me.BarEditItem2.Name = "BarEditItem2" Me.BarEditItem2.Name = "BarEditItem2"
@@ -284,9 +286,16 @@ Partial Class frmSearchFlow
Me.BarCheckItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.columnheaders Me.BarCheckItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.columnheaders
Me.BarCheckItem1.Name = "BarCheckItem1" Me.BarCheckItem1.Name = "BarCheckItem1"
' '
'btnEditMySearches
'
Me.btnEditMySearches.Caption = "Meine Suchen bearbeiten"
Me.btnEditMySearches.Id = 30
Me.btnEditMySearches.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.menu
Me.btnEditMySearches.Name = "btnEditMySearches"
'
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup5}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup5, Me.RibbonPageGroup4})
Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Suche" Me.RibbonPage1.Text = "Suche"
' '
@@ -313,6 +322,12 @@ Partial Class frmSearchFlow
Me.RibbonPageGroup5.Name = "RibbonPageGroup5" Me.RibbonPageGroup5.Name = "RibbonPageGroup5"
Me.RibbonPageGroup5.Text = "Begriffsverknüpfung" Me.RibbonPageGroup5.Text = "Begriffsverknüpfung"
' '
'RibbonPageGroup4
'
Me.RibbonPageGroup4.ItemLinks.Add(Me.btnEditMySearches)
Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
Me.RibbonPageGroup4.Text = "Meine Suchen"
'
'RibbonPage3 'RibbonPage3
' '
Me.RibbonPage3.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3}) Me.RibbonPage3.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3})
@@ -337,10 +352,10 @@ Partial Class frmSearchFlow
' '
Me.RibbonStatusBar1.BackColor = System.Drawing.Color.Red Me.RibbonStatusBar1.BackColor = System.Drawing.Color.Red
Me.RibbonStatusBar1.ItemLinks.Add(Me.lblResults) Me.RibbonStatusBar1.ItemLinks.Add(Me.lblResults)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 674) Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 672)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(954, 22) Me.RibbonStatusBar1.Size = New System.Drawing.Size(954, 24)
' '
'RibbonPage2 'RibbonPage2
' '
@@ -351,7 +366,7 @@ Partial Class frmSearchFlow
' '
Me.PanelControl1.Controls.Add(Me.PanelControl2) Me.PanelControl1.Controls.Add(Me.PanelControl2)
Me.PanelControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.PanelControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.PanelControl1.Location = New System.Drawing.Point(0, 160) Me.PanelControl1.Location = New System.Drawing.Point(0, 158)
Me.PanelControl1.Name = "PanelControl1" Me.PanelControl1.Name = "PanelControl1"
Me.PanelControl1.Padding = New System.Windows.Forms.Padding(30) Me.PanelControl1.Padding = New System.Windows.Forms.Padding(30)
Me.PanelControl1.Size = New System.Drawing.Size(954, 514) Me.PanelControl1.Size = New System.Drawing.Size(954, 514)
@@ -427,61 +442,61 @@ Partial Class frmSearchFlow
Me.ViewSearches.OptionsTiles.RowCount = 2 Me.ViewSearches.OptionsTiles.RowCount = 2
Me.ViewSearches.OptionsTiles.VerticalContentAlignment = DevExpress.Utils.VertAlignment.Center Me.ViewSearches.OptionsTiles.VerticalContentAlignment = DevExpress.Utils.VertAlignment.Center
Me.ViewSearches.SortInfo.AddRange(New DevExpress.XtraGrid.Columns.GridColumnSortInfo() {New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.colGroupText, DevExpress.Data.ColumnSortOrder.Ascending)}) Me.ViewSearches.SortInfo.AddRange(New DevExpress.XtraGrid.Columns.GridColumnSortInfo() {New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.colGroupText, DevExpress.Data.ColumnSortOrder.Ascending)})
TableColumnDefinition5.Length.Value = 35.0R TableColumnDefinition1.Length.Value = 35.0R
TableColumnDefinition5.PaddingRight = 5 TableColumnDefinition1.PaddingRight = 5
TableColumnDefinition6.Length.Value = 129.0R TableColumnDefinition2.Length.Value = 129.0R
ItemTemplate2.Columns.Add(TableColumnDefinition5) ItemTemplate1.Columns.Add(TableColumnDefinition1)
ItemTemplate2.Columns.Add(TableColumnDefinition6) ItemTemplate1.Columns.Add(TableColumnDefinition2)
TileViewItemElement6.Column = Me.colName TileViewItemElement1.Column = Me.colName
TileViewItemElement6.ColumnIndex = 1 TileViewItemElement1.ColumnIndex = 1
TileViewItemElement6.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement1.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement6.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze TileViewItemElement1.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
TileViewItemElement6.Text = "colName" TileViewItemElement1.Text = "colName"
TileViewItemElement6.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement1.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement7.Column = Me.colImage TileViewItemElement2.Column = Me.colImage
TileViewItemElement7.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement2.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement7.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze TileViewItemElement2.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
TileViewItemElement7.Text = "colImage" TileViewItemElement2.Text = "colImage"
TileViewItemElement7.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
ItemTemplate2.Elements.Add(TileViewItemElement6) ItemTemplate1.Elements.Add(TileViewItemElement1)
ItemTemplate2.Elements.Add(TileViewItemElement7) ItemTemplate1.Elements.Add(TileViewItemElement2)
ItemTemplate2.Name = "DefaultSmall" ItemTemplate1.Name = "DefaultSmall"
TableRowDefinition4.Length.Value = 43.0R TableRowDefinition1.Length.Value = 43.0R
ItemTemplate2.Rows.Add(TableRowDefinition4) ItemTemplate1.Rows.Add(TableRowDefinition1)
Me.ViewSearches.Templates.Add(ItemTemplate2) Me.ViewSearches.Templates.Add(ItemTemplate1)
TableColumnDefinition7.Length.Value = 35.0R TableColumnDefinition3.Length.Value = 35.0R
TableColumnDefinition7.PaddingRight = 5 TableColumnDefinition3.PaddingRight = 5
TableColumnDefinition8.Length.Value = 111.0R TableColumnDefinition4.Length.Value = 111.0R
Me.ViewSearches.TileColumns.Add(TableColumnDefinition7) Me.ViewSearches.TileColumns.Add(TableColumnDefinition3)
Me.ViewSearches.TileColumns.Add(TableColumnDefinition8) Me.ViewSearches.TileColumns.Add(TableColumnDefinition4)
TableRowDefinition5.Length.Value = 17.0R TableRowDefinition2.Length.Value = 17.0R
TableRowDefinition6.Length.Value = 45.0R TableRowDefinition3.Length.Value = 45.0R
Me.ViewSearches.TileRows.Add(TableRowDefinition5) Me.ViewSearches.TileRows.Add(TableRowDefinition2)
Me.ViewSearches.TileRows.Add(TableRowDefinition6) Me.ViewSearches.TileRows.Add(TableRowDefinition3)
TileViewItemElement8.Appearance.Normal.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold) TileViewItemElement3.Appearance.Normal.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold)
TileViewItemElement8.Appearance.Normal.Options.UseFont = True TileViewItemElement3.Appearance.Normal.Options.UseFont = True
TileViewItemElement8.Column = Me.colName TileViewItemElement3.Column = Me.colName
TileViewItemElement8.ColumnIndex = 1 TileViewItemElement3.ColumnIndex = 1
TileViewItemElement8.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement3.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement8.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze TileViewItemElement3.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
TileViewItemElement8.Text = "colName" TileViewItemElement3.Text = "colName"
TileViewItemElement8.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement3.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement9.Column = Me.colImage TileViewItemElement4.Column = Me.colImage
TileViewItemElement9.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement4.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement9.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze TileViewItemElement4.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
TileViewItemElement9.RowIndex = 1 TileViewItemElement4.RowIndex = 1
TileViewItemElement9.Text = "colImage" TileViewItemElement4.Text = "colImage"
TileViewItemElement9.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement4.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement10.Column = Me.colDescription TileViewItemElement5.Column = Me.colDescription
TileViewItemElement10.ColumnIndex = 1 TileViewItemElement5.ColumnIndex = 1
TileViewItemElement10.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement5.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement10.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze TileViewItemElement5.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze
TileViewItemElement10.RowIndex = 1 TileViewItemElement5.RowIndex = 1
TileViewItemElement10.Text = "colDescription" TileViewItemElement5.Text = "colDescription"
TileViewItemElement10.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement5.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
Me.ViewSearches.TileTemplate.Add(TileViewItemElement8) Me.ViewSearches.TileTemplate.Add(TileViewItemElement3)
Me.ViewSearches.TileTemplate.Add(TileViewItemElement9) Me.ViewSearches.TileTemplate.Add(TileViewItemElement4)
Me.ViewSearches.TileTemplate.Add(TileViewItemElement10) Me.ViewSearches.TileTemplate.Add(TileViewItemElement5)
' '
'colGroupText 'colGroupText
' '
@@ -756,4 +771,6 @@ Partial Class frmSearchFlow
Friend WithEvents RepositoryItemTrackBar2 As DevExpress.XtraEditors.Repository.RepositoryItemTrackBar Friend WithEvents RepositoryItemTrackBar2 As DevExpress.XtraEditors.Repository.RepositoryItemTrackBar
Friend WithEvents BarCheckItem1 As DevExpress.XtraBars.BarCheckItem Friend WithEvents BarCheckItem1 As DevExpress.XtraBars.BarCheckItem
Friend WithEvents colSelected As DevExpress.XtraGrid.Columns.TileViewColumn Friend WithEvents colSelected As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents btnEditMySearches As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
End Class End Class

28
ZooFlow/Search/frmSearchFlow.vb
View File

@@ -6,6 +6,7 @@ Imports DevExpress.XtraEditors.Controls
Imports DevExpress.XtraGrid Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Tile Imports DevExpress.XtraGrid.Views.Tile
Imports DevExpress.XtraSplashScreen Imports DevExpress.XtraSplashScreen
Imports DigitalData.GUIs.Common
Imports DigitalData.GUIs.ZooFlow.ClassConstants Imports DigitalData.GUIs.ZooFlow.ClassConstants
Imports DigitalData.GUIs.ZooFlow.SavedSearch Imports DigitalData.GUIs.ZooFlow.SavedSearch
Imports DigitalData.GUIs.ZooFlow.Search Imports DigitalData.GUIs.ZooFlow.Search
@@ -17,7 +18,7 @@ Public Class frmSearchFlow
Private ReadOnly LogConfig As LogConfig = My.LogConfig Private ReadOnly LogConfig As LogConfig = My.LogConfig
Private ReadOnly Logger = My.LogConfig.GetLogger() Private ReadOnly Logger = My.LogConfig.GetLogger()
Private SearchLoader As SearchLoader Private SearchLoader As SearchLoader
Private SearchRunner As SearchRunner Private WithEvents SearchRunner As SearchRunner
Private TokenTable As DataTable = Nothing Private TokenTable As DataTable = Nothing
Private FormLoading As Boolean = True Private FormLoading As Boolean = True
@@ -34,6 +35,7 @@ Public Class frmSearchFlow
} }
AddHandler SearchRunner.NeedsNewSavedSearch, AddressOf SearchRunner_NewSavedSearch AddHandler SearchRunner.NeedsNewSavedSearch, AddressOf SearchRunner_NewSavedSearch
AddHandler SearchRunner.NeedsRefresh, AddressOf SearchRunner_NeedsRefresh
TokenTable = GetTokenTable() TokenTable = GetTokenTable()
ComboBoxDateAttributes.Properties.Items.AddRange(LoadDateAttributes()) ComboBoxDateAttributes.Properties.Items.AddRange(LoadDateAttributes())
@@ -51,13 +53,18 @@ Public Class frmSearchFlow
End Sub End Sub
Private Async Sub SearchRunner_NeedsRefresh(sender As Object, e As Integer)
Dim oResult = Await SearchRunner.RunLastSearch()
SearchRunner.LastOpenedForm.RefreshResults(New List(Of DocumentResultList.DocumentResult) From {oResult})
End Sub
Private Sub SearchRunner_NewSavedSearch(sender As Object, e As EventArgs) Private Sub SearchRunner_NewSavedSearch(sender As Object, e As EventArgs)
Dim oForm As New frmEditSearch With {.IsNew = True} Dim oForm As New frmEditSearch With {.IsNew = True}
If oForm.ShowDialog() = DialogResult.OK Then If oForm.ShowDialog() = DialogResult.OK Then
' Get active tokens and create the search ' Get active tokens and create the search
Dim oTokens = SearchRunner.ActiveTokens Dim oTokens = SearchRunner.ActiveSearchParameters.SearchTokens
SearchLoader.CreateCustomSearch(oForm.Title, oForm.Description, oTokens, oForm.ImageString) SearchLoader.CreateCustomSearch(oForm.Title, oForm.Description, oTokens, oForm.ImageString)
' Reload the searches ' Reload the searches
@@ -109,12 +116,12 @@ Public Class frmSearchFlow
Private Function LoadDateAttributes() As List(Of String) Private Function LoadDateAttributes() As List(Of String)
Try Try
Dim oAttributes = My.Tables.DTIDB_ATTRIBUTE. Dim oAttributes = My.Tables.DTIDB_ATTRIBUTE.
AsEnumerable(). AsEnumerable().
Where(Function(row) CBool(row.Item("SYS_ATTRIBUTE")) = False). Where(Function(row) CBool(row.Item("SYS_ATTRIBUTE")) = False).
Where(Function(row) row.Item("TYP_ID") = 5 Or row.Item("TYP_ID") = 6). Where(Function(row) row.Item("TYP_ID") = 5 Or row.Item("TYP_ID") = 6).
Select(Function(row) row.Item("ATTR_TITLE")). Select(Function(row) row.Item("ATTR_TITLE")).
Cast(Of String). Cast(Of String).
ToList() ToList()
If My.Application.User.Language = "de-DE" Then If My.Application.User.Language = "de-DE" Then
oAttributes.Add(IDB_ADDED_WHEN_String_German) oAttributes.Add(IDB_ADDED_WHEN_String_German)
@@ -393,4 +400,9 @@ Public Class frmSearchFlow
e.Handled = False e.Handled = False
End If End If
End Sub End Sub
Private Sub btnEditMySearches_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnEditMySearches.ItemClick
Dim oForm As New frmListSearches(LogConfig, My.DatabaseIDB)
oForm.ShowDialog()
End Sub
End Class End Class

26
ZooFlow/ZooFlow.vbproj
View File

@@ -369,6 +369,12 @@
<Compile Include="frmTest.vb"> <Compile Include="frmTest.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="Modules\frmFolderImport.Designer.vb">
<DependentUpon>frmFolderImport.vb</DependentUpon>
</Compile>
<Compile Include="Modules\frmFolderImport.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Modules\Globix\ClassExclusions.vb" /> <Compile Include="Modules\Globix\ClassExclusions.vb" />
<Compile Include="Modules\Globix\ClassValidator.vb" /> <Compile Include="Modules\Globix\ClassValidator.vb" />
<Compile Include="Modules\Globix\frmGlobixNameconvention.Designer.vb"> <Compile Include="Modules\Globix\frmGlobixNameconvention.Designer.vb">
@@ -427,6 +433,12 @@
<Compile Include="Search\frmEditSearch.vb"> <Compile Include="Search\frmEditSearch.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="Search\frmListSearches.Designer.vb">
<DependentUpon>frmListSearches.vb</DependentUpon>
</Compile>
<Compile Include="Search\frmListSearches.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Search\SavedSearch.vb" /> <Compile Include="Search\SavedSearch.vb" />
<Compile Include="Search\SearchLoader.vb" /> <Compile Include="Search\SearchLoader.vb" />
<Compile Include="Search\TokenEditEx.vb"> <Compile Include="Search\TokenEditEx.vb">
@@ -607,6 +619,9 @@
<EmbeddedResource Include="frmTest.resx"> <EmbeddedResource Include="frmTest.resx">
<DependentUpon>frmTest.vb</DependentUpon> <DependentUpon>frmTest.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Modules\frmFolderImport.resx">
<DependentUpon>frmFolderImport.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Modules\Globix\frmGlobixBasicConfig.resx"> <EmbeddedResource Include="Modules\Globix\frmGlobixBasicConfig.resx">
<DependentUpon>frmGlobixBasicConfig.vb</DependentUpon> <DependentUpon>frmGlobixBasicConfig.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@@ -625,6 +640,9 @@
<EmbeddedResource Include="Search\frmEditSearch.resx"> <EmbeddedResource Include="Search\frmEditSearch.resx">
<DependentUpon>frmEditSearch.vb</DependentUpon> <DependentUpon>frmEditSearch.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Search\frmListSearches.resx">
<DependentUpon>frmListSearches.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Search\Old\frmFlowSearch.resx"> <EmbeddedResource Include="Search\Old\frmFlowSearch.resx">
<DependentUpon>frmFlowSearch.vb</DependentUpon> <DependentUpon>frmFlowSearch.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@@ -812,7 +830,6 @@
<None Include="Resources\save_16xLG.png" /> <None Include="Resources\save_16xLG.png" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Folder Include="Administration\DetailPages\" />
<Folder Include="My Project\DataSources\" /> <Folder Include="My Project\DataSources\" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
@@ -1140,6 +1157,13 @@
<None Include="Resources\alignverticalcenter.svg" /> <None Include="Resources\alignverticalcenter.svg" />
<None Include="Resources\alignhorizontalcenter.svg" /> <None Include="Resources\alignhorizontalcenter.svg" />
<None Include="Resources\columnheaders.svg" /> <None Include="Resources\columnheaders.svg" />
<Content Include="MailLicense.xml">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<None Include="Resources\menu.svg" />
<None Include="Resources\save10.svg" />
<None Include="Resources\delete2.svg" />
<None Include="Resources\actions_deletecircled7.svg" />
<Content Include="Zooflow.ico" /> <Content Include="Zooflow.ico" />
</ItemGroup> </ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />

4
ZooFlow/frmConfigBasic.vb
View File

@@ -62,8 +62,8 @@ Public Class frmConfigBasic
Private Sub SaveCatalogSetting(pKey As Integer, pValue As String) Private Sub SaveCatalogSetting(pKey As Integer, pValue As String)
Try Try
Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = '{pValue}' Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = '{pValue}'
WHERE GUID = {pKey}" WHERE GUID = {pKey}"
If My.DatabaseIDB.ExecuteNonQuery(oUpd) = True Then If My.DatabaseIDB.ExecuteNonQuery(oUpd) = True Then
bsiInfo.Caption = "Position Quicksearch1 saved!" bsiInfo.Caption = "Position Quicksearch1 saved!"

48
ZooFlow/frmFlowForm.Designer.vb generated
View File

@@ -34,10 +34,11 @@ Partial Class frmFlowForm
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.VerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.SucheEntwurfToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.mnitmFolderImport = New System.Windows.Forms.ToolStripMenuItem()
Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ZooFlowBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ZooFlowBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TreeViewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.PictureBoxSearch = New DevExpress.XtraEditors.SvgImageBox() Me.PictureBoxSearch = New DevExpress.XtraEditors.SvgImageBox()
Me.PictureBoxPM = New DevExpress.XtraEditors.SvgImageBox() Me.PictureBoxPM = New DevExpress.XtraEditors.SvgImageBox()
@@ -77,7 +78,6 @@ Partial Class frmFlowForm
Me.PMTaskBadgeGroup = New DevExpress.Utils.VisualEffects.Badge() Me.PMTaskBadgeGroup = New DevExpress.Utils.VisualEffects.Badge()
Me.PMTaskBadgeIndividual = New DevExpress.Utils.VisualEffects.Badge() Me.PMTaskBadgeIndividual = New DevExpress.Utils.VisualEffects.Badge()
Me.TimerDisplay = New System.Windows.Forms.Timer(Me.components) Me.TimerDisplay = New System.Windows.Forms.Timer(Me.components)
Me.TreeViewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuSystray.SuspendLayout() Me.ContextMenuSystray.SuspendLayout()
CType(Me.PictureBoxSearch, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBoxSearch, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBoxPM, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBoxPM, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -106,7 +106,7 @@ Partial Class frmFlowForm
' '
'ContextMenuSystray 'ContextMenuSystray
' '
Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EinblendenToolStripMenuItem, Me.ToolStripSeparator1, Me.VerwaltungToolStripMenuItem, Me.ToolStripSeparator3, Me.SucheEntwurfToolStripMenuItem, Me.TestToolStripMenuItem, Me.ToolStripSeparator2, Me.ZooFlowBeendenToolStripMenuItem, Me.TreeViewToolStripMenuItem}) Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EinblendenToolStripMenuItem, Me.ToolStripSeparator1, Me.VerwaltungToolStripMenuItem, Me.ToolStripSeparator3, Me.mnitmFolderImport, Me.TestToolStripMenuItem, Me.ToolStripSeparator2, Me.ZooFlowBeendenToolStripMenuItem, Me.TreeViewToolStripMenuItem})
Me.ContextMenuSystray.Name = "ContextMenuSystray" Me.ContextMenuSystray.Name = "ContextMenuSystray"
Me.ContextMenuSystray.Size = New System.Drawing.Size(181, 176) Me.ContextMenuSystray.Size = New System.Drawing.Size(181, 176)
' '
@@ -135,11 +135,11 @@ Partial Class frmFlowForm
Me.ToolStripSeparator3.Name = "ToolStripSeparator3" Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6) Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6)
' '
'SucheEntwurfToolStripMenuItem 'mnitmFolderImport
' '
Me.SucheEntwurfToolStripMenuItem.Name = "SucheEntwurfToolStripMenuItem" Me.mnitmFolderImport.Name = "mnitmFolderImport"
Me.SucheEntwurfToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.mnitmFolderImport.Size = New System.Drawing.Size(180, 22)
Me.SucheEntwurfToolStripMenuItem.Text = "Suche Entwurf" Me.mnitmFolderImport.Text = "Ordnerimport"
' '
'TestToolStripMenuItem 'TestToolStripMenuItem
' '
@@ -158,13 +158,19 @@ Partial Class frmFlowForm
Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden" Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden"
' '
'TreeViewToolStripMenuItem
'
Me.TreeViewToolStripMenuItem.Name = "TreeViewToolStripMenuItem"
Me.TreeViewToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.TreeViewToolStripMenuItem.Text = "treeView"
'
'PictureBoxSearch 'PictureBoxSearch
' '
Me.PictureBoxSearch.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Me.PictureBoxSearch.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBoxSearch.Cursor = System.Windows.Forms.Cursors.Hand Me.PictureBoxSearch.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBoxSearch.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox Me.PictureBoxSearch.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox
Me.PictureBoxSearch.Location = New System.Drawing.Point(21, 442) Me.PictureBoxSearch.Location = New System.Drawing.Point(21, 443)
Me.PictureBoxSearch.Name = "PictureBoxSearch" Me.PictureBoxSearch.Name = "PictureBoxSearch"
Me.PictureBoxSearch.Size = New System.Drawing.Size(158, 50) Me.PictureBoxSearch.Size = New System.Drawing.Size(158, 50)
Me.PictureBoxSearch.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom Me.PictureBoxSearch.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom
@@ -198,7 +204,7 @@ Partial Class frmFlowForm
Me.pnlQuicksearch1.Controls.Add(Me.PictureEditQuicksearch1) Me.pnlQuicksearch1.Controls.Add(Me.PictureEditQuicksearch1)
Me.pnlQuicksearch1.Controls.Add(Me.lblQuicksearch1) Me.pnlQuicksearch1.Controls.Add(Me.lblQuicksearch1)
Me.pnlQuicksearch1.Dock = System.Windows.Forms.DockStyle.Bottom Me.pnlQuicksearch1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlQuicksearch1.Location = New System.Drawing.Point(0, 497) Me.pnlQuicksearch1.Location = New System.Drawing.Point(0, 498)
Me.pnlQuicksearch1.Name = "pnlQuicksearch1" Me.pnlQuicksearch1.Name = "pnlQuicksearch1"
Me.pnlQuicksearch1.Size = New System.Drawing.Size(202, 75) Me.pnlQuicksearch1.Size = New System.Drawing.Size(202, 75)
Me.pnlQuicksearch1.TabIndex = 16 Me.pnlQuicksearch1.TabIndex = 16
@@ -323,9 +329,9 @@ Partial Class frmFlowForm
Me.barDockControlBottom.Appearance.Options.UseBackColor = True Me.barDockControlBottom.Appearance.Options.UseBackColor = True
Me.barDockControlBottom.CausesValidation = False Me.barDockControlBottom.CausesValidation = False
Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom
Me.barDockControlBottom.Location = New System.Drawing.Point(0, 774) Me.barDockControlBottom.Location = New System.Drawing.Point(0, 775)
Me.barDockControlBottom.Manager = Me.BarManager1 Me.barDockControlBottom.Manager = Me.BarManager1
Me.barDockControlBottom.Size = New System.Drawing.Size(202, 26) Me.barDockControlBottom.Size = New System.Drawing.Size(202, 25)
' '
'barDockControlLeft 'barDockControlLeft
' '
@@ -333,7 +339,7 @@ Partial Class frmFlowForm
Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left
Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0) Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0)
Me.barDockControlLeft.Manager = Me.BarManager1 Me.barDockControlLeft.Manager = Me.BarManager1
Me.barDockControlLeft.Size = New System.Drawing.Size(0, 774) Me.barDockControlLeft.Size = New System.Drawing.Size(0, 775)
' '
'barDockControlRight 'barDockControlRight
' '
@@ -341,7 +347,7 @@ Partial Class frmFlowForm
Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right
Me.barDockControlRight.Location = New System.Drawing.Point(202, 0) Me.barDockControlRight.Location = New System.Drawing.Point(202, 0)
Me.barDockControlRight.Manager = Me.BarManager1 Me.barDockControlRight.Manager = Me.BarManager1
Me.barDockControlRight.Size = New System.Drawing.Size(0, 774) Me.barDockControlRight.Size = New System.Drawing.Size(0, 775)
' '
'BarButtonItem2 'BarButtonItem2
' '
@@ -385,7 +391,7 @@ Partial Class frmFlowForm
Me.Panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Me.Panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
Me.Panel3.Location = New System.Drawing.Point(21, 434) Me.Panel3.Location = New System.Drawing.Point(21, 435)
Me.Panel3.Name = "Panel3" Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(158, 2) Me.Panel3.Size = New System.Drawing.Size(158, 2)
Me.Panel3.TabIndex = 17 Me.Panel3.TabIndex = 17
@@ -423,13 +429,13 @@ Partial Class frmFlowForm
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 202) Me.Panel2.Location = New System.Drawing.Point(0, 202)
Me.Panel2.Name = "Panel2" Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(202, 572) Me.Panel2.Size = New System.Drawing.Size(202, 573)
Me.Panel2.TabIndex = 17 Me.Panel2.TabIndex = 17
' '
'GridControlRecentFiles 'GridControlRecentFiles
' '
Me.GridControlRecentFiles.Anchor = System.Windows.Forms.AnchorStyles.Bottom Me.GridControlRecentFiles.Anchor = System.Windows.Forms.AnchorStyles.Bottom
Me.GridControlRecentFiles.Location = New System.Drawing.Point(21, 246) Me.GridControlRecentFiles.Location = New System.Drawing.Point(21, 247)
Me.GridControlRecentFiles.MainView = Me.RecentFilesView Me.GridControlRecentFiles.MainView = Me.RecentFilesView
Me.GridControlRecentFiles.MenuManager = Me.BarManager1 Me.GridControlRecentFiles.MenuManager = Me.BarManager1
Me.GridControlRecentFiles.Name = "GridControlRecentFiles" Me.GridControlRecentFiles.Name = "GridControlRecentFiles"
@@ -489,7 +495,7 @@ Partial Class frmFlowForm
Me.LabelControl1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LabelControl1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelControl1.Appearance.Options.UseFont = True Me.LabelControl1.Appearance.Options.UseFont = True
Me.LabelControl1.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None Me.LabelControl1.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None
Me.LabelControl1.Location = New System.Drawing.Point(21, 222) Me.LabelControl1.Location = New System.Drawing.Point(21, 223)
Me.LabelControl1.Name = "LabelControl1" Me.LabelControl1.Name = "LabelControl1"
Me.LabelControl1.Size = New System.Drawing.Size(158, 18) Me.LabelControl1.Size = New System.Drawing.Size(158, 18)
Me.LabelControl1.TabIndex = 0 Me.LabelControl1.TabIndex = 0
@@ -528,12 +534,6 @@ Partial Class frmFlowForm
' '
Me.TimerDisplay.Interval = 60000 Me.TimerDisplay.Interval = 60000
' '
'TreeViewToolStripMenuItem
'
Me.TreeViewToolStripMenuItem.Name = "TreeViewToolStripMenuItem"
Me.TreeViewToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.TreeViewToolStripMenuItem.Text = "treeView"
'
'frmFlowForm 'frmFlowForm
' '
Me.AllowDrop = True Me.AllowDrop = True
@@ -613,7 +613,7 @@ Partial Class frmFlowForm
Friend WithEvents Panel3 As Panel Friend WithEvents Panel3 As Panel
Friend WithEvents bbtnitmAusblenden As DevExpress.XtraBars.BarButtonItem Friend WithEvents bbtnitmAusblenden As DevExpress.XtraBars.BarButtonItem
Friend WithEvents EinblendenToolStripMenuItem As ToolStripMenuItem Friend WithEvents EinblendenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SucheEntwurfToolStripMenuItem As ToolStripMenuItem Friend WithEvents mnitmFolderImport As ToolStripMenuItem
Friend WithEvents GridControlRecentFiles As DevExpress.XtraGrid.GridControl Friend WithEvents GridControlRecentFiles As DevExpress.XtraGrid.GridControl
Friend WithEvents RecentFilesView As DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView Friend WithEvents RecentFilesView As DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView
Friend WithEvents colSecondary As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn Friend WithEvents colSecondary As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn

20
ZooFlow/frmFlowForm.vb
View File

@@ -181,7 +181,6 @@ Public Class frmFlowForm
' Runtime Variables ' Runtime Variables
Private ESCHitCount As Integer = 0 Private ESCHitCount As Integer = 0
Private IndexForm As frmGlobix_Index Private IndexForm As frmGlobix_Index
Private ResultForm As frmGlobix_Result
Private AdminForm As frmAdmin_Start Private AdminForm As frmAdmin_Start
Private InitialOverlayHandle As IOverlaySplashScreenHandle Private InitialOverlayHandle As IOverlaySplashScreenHandle
@@ -626,6 +625,7 @@ Public Class frmFlowForm
Dim oDroppedFiles = FileDropNew.GetFiles(e) Dim oDroppedFiles = FileDropNew.GetFiles(e)
If oDroppedFiles.Count > 0 Then If oDroppedFiles.Count > 0 Then
Await Globix_CheckDroppedFiles(oDroppedFiles) Await Globix_CheckDroppedFiles(oDroppedFiles)
End If End If
Await Load_Recent_Files() Await Load_Recent_Files()
@@ -675,7 +675,9 @@ Public Class frmFlowForm
Logger.Info(" CURRENT_WORKFILE: {0}", My.Application.Globix.CurrentWorkfile) Logger.Info(" CURRENT_WORKFILE: {0}", My.Application.Globix.CurrentWorkfile)
If IO.File.Exists(My.Application.Globix.CurrentWorkfile.FilePath) = True And If IO.File.Exists(My.Application.Globix.CurrentWorkfile.FilePath) = True And
My.Application.Globix.DTACTUAL_FILES.Rows.Count > 0 Then My.Application.Globix.DTACTUAL_FILES.Rows.Count > 0 Then
Globix_Open_IndexDialog() If Globix_Open_IndexDialog() = True Then
frmGlobix_Result.ShowDialog()
End If
End If End If
Next Next
Catch ex As Exception Catch ex As Exception
@@ -703,7 +705,7 @@ Public Class frmFlowForm
FileDropNew.RemoveTempDirectory() FileDropNew.RemoveTempDirectory()
End Sub End Sub
Sub Globix_Open_IndexDialog() Private Function Globix_Open_IndexDialog() As Boolean
Try Try
IndexForm = New frmGlobix_Index(My.LogConfig) IndexForm = New frmGlobix_Index(My.LogConfig)
NotifyIconReset() NotifyIconReset()
@@ -715,14 +717,15 @@ Public Class frmFlowForm
oMessage = "File successfully imported!" oMessage = "File successfully imported!"
End If End If
NotifyIcon.ShowBalloonTip(15000, "FileFlow", oMessage, ToolTipIcon.Info) NotifyIcon.ShowBalloonTip(15000, "FileFlow", oMessage, ToolTipIcon.Info)
ResultForm = New frmGlobix_Result() Cursor = Cursors.Default
ResultForm.ShowDialog() Return True
End If End If
Cursor = Cursors.Default Cursor = Cursors.Default
Catch ex As Exception Catch ex As Exception
FormHelper.ShowErrorMessage(ex, "Globix_Open_IndexDialog") FormHelper.ShowErrorMessage(ex, "Globix_Open_IndexDialog")
Return False
End Try End Try
End Sub End Function
Sub NotifyIconReset() Sub NotifyIconReset()
NI_TYPE = "INFO" NI_TYPE = "INFO"
NI_MESSAGE = String.Empty NI_MESSAGE = String.Empty
@@ -1229,9 +1232,8 @@ Public Class frmFlowForm
Me.Visible = True Me.Visible = True
End Sub End Sub
Private Sub SucheEntwurfToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SucheEntwurfToolStripMenuItem.Click Private Sub SucheEntwurfToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnitmFolderImport.Click
Dim oForm = New frmSearchFlow() frmFolderImport.ShowDialog()
oForm.Show()
End Sub End Sub
Private Sub AdvBandedGridView1_DoubleClick(sender As Object, e As EventArgs) Handles RecentFilesView.DoubleClick Private Sub AdvBandedGridView1_DoubleClick(sender As Object, e As EventArgs) Handles RecentFilesView.DoubleClick

3
ZooFlow/frmtest.vb
View File

@@ -2,6 +2,7 @@
Imports DigitalData.Modules.Base.IDB.FileStore Imports DigitalData.Modules.Base.IDB.FileStore
Imports DigitalData.GUIs.Common Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.ZooFlow Imports DigitalData.Modules.ZooFlow
Imports DevExpress.LookAndFeel
Public Class frmtest Public Class frmtest
Private Property Environment As Environment Private Property Environment As Environment
@@ -10,7 +11,7 @@ Public Class frmtest
Private Sub frmtest_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmtest_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cmbObjectStoreType.SelectedIndex = 0 cmbObjectStoreType.SelectedIndex = 0
Environment = My.Application.GetEnvironment() Environment = My.Application.GetEnvironment()
DevExpress.Skins.SkinManager.EnableFormSkins()
End Sub End Sub
Private Sub btnOpenFile_Click(sender As Object, e As EventArgs) Handles btnOpenFile.Click Private Sub btnOpenFile_Click(sender As Object, e As EventArgs) Handles btnOpenFile.Click

144
Zooflow.Setup/Product.wxs
View File

@@ -78,7 +78,7 @@
<DirectoryRef Id="INSTALLDIR"> <DirectoryRef Id="INSTALLDIR">
<Component Id="MainApplicationExe" Guid="ac6b7460-9c48-47b3-a590-da0905dd433a"> <Component Id="MainApplicationExe" Guid="ac6b7460-9c48-47b3-a590-da0905dd433a">
<File Id="MainApplicationExe" Name="$(var.ProgramName).exe" KeyPath="yes" Checksum="yes"> <File Id="MainApplicationExe" Name="$(var.ProgramName).exe" KeyPath="yes" Checksum="no">
<Shortcut Id="DesktopShortcut" Directory="DesktopFolder" Name="$(var.ProductName)" WorkingDirectory="INSTALLDIR" Icon="AppIcon.exe" IconIndex="0" Advertise="yes" /> <Shortcut Id="DesktopShortcut" Directory="DesktopFolder" Name="$(var.ProductName)" WorkingDirectory="INSTALLDIR" Icon="AppIcon.exe" IconIndex="0" Advertise="yes" />
<Shortcut Id="StartMenuShortcut" Directory="ProgramMenuFolder" Name="$(var.ProductName)" WorkingDirectory="INSTALLDIR" Icon="AppIcon.exe" IconIndex="0" Advertise="yes" /> <Shortcut Id="StartMenuShortcut" Directory="ProgramMenuFolder" Name="$(var.ProductName)" WorkingDirectory="INSTALLDIR" Icon="AppIcon.exe" IconIndex="0" Advertise="yes" />
</File> </File>
@@ -97,82 +97,84 @@
</Component> </Component>
<Component Id="Libraries" Guid="38154538-ccbb-4984-b229-e2ac9ba68177"> <Component Id="Libraries" Guid="38154538-ccbb-4984-b229-e2ac9ba68177">
<File Id="DevExpress.BonusSkins.v21.2.dll" Name="DevExpress.BonusSkins.v21.2.dll" KeyPath="yes" Checksum="yes" /> <File Id="DevExpress.BonusSkins.v21.2.dll" Name="DevExpress.BonusSkins.v21.2.dll" KeyPath="yes" Checksum="no" />
<File Id="DevExpress.Charts.v21.2.Core.dll" Name="DevExpress.Charts.v21.2.Core.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.Charts.v21.2.Core.dll" Name="DevExpress.Charts.v21.2.Core.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.CodeParser.v21.2.dll" Name="DevExpress.CodeParser.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.CodeParser.v21.2.dll" Name="DevExpress.CodeParser.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.Data.Desktop.v21.2.dll" Name="DevExpress.Data.Desktop.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.Data.Desktop.v21.2.dll" Name="DevExpress.Data.Desktop.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.Data.v21.2.dll" Name="DevExpress.Data.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.Data.v21.2.dll" Name="DevExpress.Data.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.DataAccess.v21.2.dll" Name="DevExpress.DataAccess.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.DataAccess.v21.2.dll" Name="DevExpress.DataAccess.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.DataAccess.v21.2.UI.dll" Name="DevExpress.DataAccess.v21.2.UI.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.DataAccess.v21.2.UI.dll" Name="DevExpress.DataAccess.v21.2.UI.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.DataVisualization.v21.2.Core.dll" Name="DevExpress.DataVisualization.v21.2.Core.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.DataVisualization.v21.2.Core.dll" Name="DevExpress.DataVisualization.v21.2.Core.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.Diagram.v21.2.Core.dll" Name="DevExpress.Diagram.v21.2.Core.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.Diagram.v21.2.Core.dll" Name="DevExpress.Diagram.v21.2.Core.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.Dialogs.v21.2.Core.dll" Name="DevExpress.Dialogs.v21.2.Core.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.Dialogs.v21.2.Core.dll" Name="DevExpress.Dialogs.v21.2.Core.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.Images.v21.2.dll" Name="DevExpress.Images.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.Images.v21.2.dll" Name="DevExpress.Images.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.Office.v21.2.Core.dll" Name="DevExpress.Office.v21.2.Core.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.Office.v21.2.Core.dll" Name="DevExpress.Office.v21.2.Core.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.Pdf.v21.2.Core.dll" Name="DevExpress.Pdf.v21.2.Core.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.Pdf.v21.2.Core.dll" Name="DevExpress.Pdf.v21.2.Core.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.Pdf.v21.2.Drawing.dll" Name="DevExpress.Pdf.v21.2.Drawing.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.Pdf.v21.2.Drawing.dll" Name="DevExpress.Pdf.v21.2.Drawing.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.Printing.v21.2.Core.dll" Name="DevExpress.Printing.v21.2.Core.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.Printing.v21.2.Core.dll" Name="DevExpress.Printing.v21.2.Core.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.RichEdit.v21.2.Core.dll" Name="DevExpress.RichEdit.v21.2.Core.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.RichEdit.v21.2.Core.dll" Name="DevExpress.RichEdit.v21.2.Core.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.Sparkline.v21.2.Core.dll" Name="DevExpress.Sparkline.v21.2.Core.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.Sparkline.v21.2.Core.dll" Name="DevExpress.Sparkline.v21.2.Core.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.Spreadsheet.v21.2.Core.dll" Name="DevExpress.Spreadsheet.v21.2.Core.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.Spreadsheet.v21.2.Core.dll" Name="DevExpress.Spreadsheet.v21.2.Core.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.TreeMap.v21.2.Core.dll" Name="DevExpress.TreeMap.v21.2.Core.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.TreeMap.v21.2.Core.dll" Name="DevExpress.TreeMap.v21.2.Core.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.Utils.v21.2.dll" Name="DevExpress.Utils.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.Utils.v21.2.dll" Name="DevExpress.Utils.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.Utils.v21.2.UI.dll" Name="DevExpress.Utils.v21.2.UI.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.Utils.v21.2.UI.dll" Name="DevExpress.Utils.v21.2.UI.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.Xpo.v21.2.dll" Name="DevExpress.Xpo.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.Xpo.v21.2.dll" Name="DevExpress.Xpo.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.XtraBars.v21.2.dll" Name="DevExpress.XtraBars.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.XtraBars.v21.2.dll" Name="DevExpress.XtraBars.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.XtraCharts.v21.2.dll" Name="DevExpress.XtraCharts.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.XtraCharts.v21.2.dll" Name="DevExpress.XtraCharts.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.XtraDiagram.v21.2.dll" Name="DevExpress.XtraDiagram.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.XtraDiagram.v21.2.dll" Name="DevExpress.XtraDiagram.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.XtraDialogs.v21.2.dll" Name="DevExpress.XtraDialogs.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.XtraDialogs.v21.2.dll" Name="DevExpress.XtraDialogs.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.XtraEditors.v21.2.dll" Name="DevExpress.XtraEditors.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.XtraEditors.v21.2.dll" Name="DevExpress.XtraEditors.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.XtraGrid.v21.2.dll" Name="DevExpress.XtraGrid.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.XtraGrid.v21.2.dll" Name="DevExpress.XtraGrid.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.XtraLayout.v21.2.dll" Name="DevExpress.XtraLayout.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.XtraLayout.v21.2.dll" Name="DevExpress.XtraLayout.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.XtraNavBar.v21.2.dll" Name="DevExpress.XtraNavBar.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.XtraNavBar.v21.2.dll" Name="DevExpress.XtraNavBar.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.XtraPrinting.v21.2.dll" Name="DevExpress.XtraPrinting.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.XtraPrinting.v21.2.dll" Name="DevExpress.XtraPrinting.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.XtraRichEdit.v21.2.dll" Name="DevExpress.XtraRichEdit.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.XtraRichEdit.v21.2.dll" Name="DevExpress.XtraRichEdit.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.XtraSpreadsheet.v21.2.dll" Name="DevExpress.XtraSpreadsheet.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.XtraSpreadsheet.v21.2.dll" Name="DevExpress.XtraSpreadsheet.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.XtraTreeList.v21.2.dll" Name="DevExpress.XtraTreeList.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.XtraTreeList.v21.2.dll" Name="DevExpress.XtraTreeList.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.XtraTreeMap.v21.2.dll" Name="DevExpress.XtraTreeMap.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.XtraTreeMap.v21.2.dll" Name="DevExpress.XtraTreeMap.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DevExpress.XtraVerticalGrid.v21.2.dll" Name="DevExpress.XtraVerticalGrid.v21.2.dll" KeyPath="no" Checksum="yes" /> <File Id="DevExpress.XtraVerticalGrid.v21.2.dll" Name="DevExpress.XtraVerticalGrid.v21.2.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.Controls.DocumentViewer.dll" Name="DigitalData.Controls.DocumentViewer.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.Controls.DocumentViewer.dll" Name="DigitalData.Controls.DocumentViewer.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.Controls.LookupGrid.dll" Name="DigitalData.Controls.LookupGrid.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.Controls.LookupGrid.dll" Name="DigitalData.Controls.LookupGrid.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.Controls.RegexEditor.dll" Name="DigitalData.Controls.RegexEditor.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.Controls.RegexEditor.dll" Name="DigitalData.Controls.RegexEditor.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.Controls.SnapPanel.dll" Name="DigitalData.Controls.SnapPanel.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.Controls.SnapPanel.dll" Name="DigitalData.Controls.SnapPanel.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.Controls.SQLConfig.dll" Name="DigitalData.Controls.SQLConfig.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.Controls.SQLConfig.dll" Name="DigitalData.Controls.SQLConfig.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.GUIs.ClipboardWatcher.dll" Name="DigitalData.GUIs.ClipboardWatcher.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.GUIs.ClipboardWatcher.dll" Name="DigitalData.GUIs.ClipboardWatcher.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.GUIs.Common.dll" Name="DigitalData.GUIs.Common.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.GUIs.Common.dll" Name="DigitalData.GUIs.Common.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.GUIs.GlobalIndexer.dll" Name="DigitalData.GUIs.GlobalIndexer.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.GUIs.GlobalIndexer.dll" Name="DigitalData.GUIs.GlobalIndexer.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.Modules.Base.dll" Name="DigitalData.Modules.Base.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.Modules.Base.dll" Name="DigitalData.Modules.Base.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.Modules.Config.dll" Name="DigitalData.Modules.Config.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.Modules.Config.dll" Name="DigitalData.Modules.Config.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.Modules.Database.dll" Name="DigitalData.Modules.Database.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.Modules.Database.dll" Name="DigitalData.Modules.Database.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.Modules.EDMI.API.dll" Name="DigitalData.Modules.EDMI.API.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.Modules.EDMI.API.dll" Name="DigitalData.Modules.EDMI.API.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.Modules.Encryption.dll" Name="DigitalData.Modules.Encryption.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.Modules.Encryption.dll" Name="DigitalData.Modules.Encryption.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.Modules.Filesystem.dll" Name="DigitalData.Modules.Filesystem.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.Modules.Filesystem.dll" Name="DigitalData.Modules.Filesystem.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.Modules.Interfaces.dll" Name="DigitalData.Modules.Interfaces.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.Modules.Interfaces.dll" Name="DigitalData.Modules.Interfaces.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.Modules.Language.dll" Name="DigitalData.Modules.Language.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.Modules.Language.dll" Name="DigitalData.Modules.Language.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.Modules.Logging.dll" Name="DigitalData.Modules.Logging.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.Modules.Logging.dll" Name="DigitalData.Modules.Logging.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.Modules.Messaging.dll" Name="DigitalData.Modules.Messaging.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.Modules.Messaging.dll" Name="DigitalData.Modules.Messaging.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.Modules.Patterns.dll" Name="DigitalData.Modules.Patterns.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.Modules.Patterns.dll" Name="DigitalData.Modules.Patterns.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.Modules.Windows.dll" Name="DigitalData.Modules.Windows.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.Modules.Windows.dll" Name="DigitalData.Modules.Windows.dll" KeyPath="no" Checksum="no" />
<File Id="DigitalData.Modules.ZooFlow.dll" Name="DigitalData.Modules.ZooFlow.dll" KeyPath="no" Checksum="yes" /> <File Id="DigitalData.Modules.ZooFlow.dll" Name="DigitalData.Modules.ZooFlow.dll" KeyPath="no" Checksum="no" />
<File Id="Independentsoft.Msg.dll" Name="Independentsoft.Msg.dll" KeyPath="no" Checksum="yes" /> <File Id="Independentsoft.Msg.dll" Name="Independentsoft.Msg.dll" KeyPath="no" Checksum="no" />
<File Id="Mail.dll" Name="Mail.dll" KeyPath="no" Checksum="yes" /> <File Id="Mail.dll" Name="Mail.dll" KeyPath="no" Checksum="no" />
<File Id="NLog.dll" Name="NLog.dll" KeyPath="no" Checksum="yes" /> <File Id="NLog.dll" Name="NLog.dll" KeyPath="no" Checksum="no" />
<File Id="Oracle.ManagedDataAccess.dll" Name="Oracle.ManagedDataAccess.dll" KeyPath="no" Checksum="yes" /> <File Id="Oracle.ManagedDataAccess.dll" Name="Oracle.ManagedDataAccess.dll" KeyPath="no" Checksum="no" />
</Component> </Component>
<Component Id="GDPictureExternal" Guid="fe785ceb-09fe-40fa-988d-011ebd574f81"> <Component Id="External" Guid="fe785ceb-09fe-40fa-988d-011ebd574f81">
<File Id="GdPicture.NET.14.filters.64.dll" Name="GdPicture.NET.14.filters.64.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.filters.64.dll" KeyPath="yes" Checksum="yes" /> <File Id="GdPicture.NET.14.filters.64.dll" Name="GdPicture.NET.14.filters.64.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.filters.64.dll" KeyPath="yes" Checksum="no" />
<File Id="GdPicture.NET.14.filters.dll" Name="GdPicture.NET.14.filters.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.filters.dll" KeyPath="no" Checksum="yes" /> <File Id="GdPicture.NET.14.filters.dll" Name="GdPicture.NET.14.filters.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.filters.dll" KeyPath="no" Checksum="no" />
<File Id="GdPicture.NET.14.image.gdimgplug.64.dll" Name="GdPicture.NET.14.image.gdimgplug.64.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.image.gdimgplug.64.dll" KeyPath="no" Checksum="yes" /> <File Id="GdPicture.NET.14.image.gdimgplug.64.dll" Name="GdPicture.NET.14.image.gdimgplug.64.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.image.gdimgplug.64.dll" KeyPath="no" Checksum="no" />
<File Id="GdPicture.NET.14.image.gdimgplug.dll" Name="GdPicture.NET.14.image.gdimgplug.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.image.gdimgplug.dll" KeyPath="no" Checksum="yes" /> <File Id="GdPicture.NET.14.image.gdimgplug.dll" Name="GdPicture.NET.14.image.gdimgplug.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.image.gdimgplug.dll" KeyPath="no" Checksum="no" />
<File Id="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" Name="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" KeyPath="no" Checksum="yes" /> <File Id="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" Name="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" KeyPath="no" Checksum="no" />
<File Id="GdPicture.NET.14.Imaging.Rendering.Skia.dll" Name="GdPicture.NET.14.Imaging.Rendering.Skia.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.Imaging.Rendering.Skia.dll" KeyPath="no" Checksum="yes" /> <File Id="GdPicture.NET.14.Imaging.Rendering.Skia.dll" Name="GdPicture.NET.14.Imaging.Rendering.Skia.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.Imaging.Rendering.Skia.dll" KeyPath="no" Checksum="no" />
<File Id="MailLicense.xml" Name="MailLicense.xml" KeyPath="no" Checksum="no" />
</Component> </Component>
<!-- Für weitere Dateien hier Component Elemente anlegen!! --> <!-- Für weitere Dateien hier Component Elemente anlegen!! -->
<!-- <!--
<Component Id="FirmaXYLib" Guid="PUT-GUID-HERE"> <Component Id="FirmaXYLib" Guid="PUT-GUID-HERE">
<File Id="FirmaXYLib" Name="FirmaXYLib.dll" KeyPath="yes" Checksum="yes"/> <File Id="FirmaXYLib" Name="FirmaXYLib.dll" KeyPath="yes" Checksum="no"/>
</Component> </Component>
--> -->
</DirectoryRef> </DirectoryRef>
@@ -181,7 +183,7 @@
<ComponentRef Id="MainApplicationExe" /> <ComponentRef Id="MainApplicationExe" />
<ComponentRef Id="RegistryKeys" /> <ComponentRef Id="RegistryKeys" />
<ComponentRef Id="Libraries" /> <ComponentRef Id="Libraries" />
<ComponentRef Id="GDPictureExternal" /> <ComponentRef Id="External" />
<!-- Weitere Komponenten hier hinzufügen! --> <!-- Weitere Komponenten hier hinzufügen! -->
</Feature> </Feature>