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

MS Update Globix Renaming

Browse Source
This commit is contained in:
Developer01 2024-09-23 17:14:28 +02:00
parent ad46bae4f4
commit d903658c13
17 changed files with 88 additions and 93 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Global_Indexer/ClassDatatables.vb
View File

@ -120,7 +120,7 @@
FROM TBDD_USER_DOKTYPE
WHERE DOCTYPE_ID = {ProfileId}
)
AND GUID IN (SELECT USER_ID FROM [dbo].[FNDD_GET_USER_FOR_MODULE] ('GLOBIX', 1))
AND GUID IN (SELECT USER_ID FROM [dbo].[FNDD_GET_USER_FOR_MODULE] ('fileFLOW', 1))
"
Dim oDatatable As DataTable = DATABASE_ECM.GetDatatable(oSQL)

2
Global_Indexer/ClassIndexFunctions.vb
View File

@ -68,7 +68,7 @@ Public Class ClassIndexFunctions
Else
Dim oResult As DialogResult
Dim oDate As String = oFileExists.ToString("d")
Dim oBoxTitle = $"GLOBIX - {pModuleTitle}"
Dim oBoxTitle = $"fileFLOW - {pModuleTitle}"
Dim oMessage As String
If USER_LANGUAGE = "de-DE" Then

18
Global_Indexer/ClassInit.vb
View File

@ -16,15 +16,15 @@ Public Class ClassInit
LOGCONFIG = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing,
CompanyName:=My.Application.Info.CompanyName,
ProductName:=My.Application.Info.ProductName)
LOGGER = LOGCONFIG.GetLogger("Globix")
LOGGER = LOGCONFIG.GetLogger("fileFLOW")
LOGGER.Info("Programmstart: " & Now)
LOGGER.Info("Username: {0}", Environment.UserName)
End Sub
Public Sub InitConfig()
Dim oUtils = New ConfigUtils(LOGCONFIG)
oUtils.MigrateUserAppDataConfig(Application.UserAppDataPath, Application.ProductName, "Global Indexer")
oUtils.MigrateCommonAppDataConfig(Application.CommonAppDataPath, Application.ProductName, "Global Indexer")
oUtils.MigrateUserAppDataConfig(Application.UserAppDataPath, Application.ProductName, "fileFLOW")
oUtils.MigrateCommonAppDataConfig(Application.CommonAppDataPath, Application.ProductName, "fileFLOW")
CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, Application.CommonAppDataPath, Application.StartupPath)
@ -117,7 +117,7 @@ Public Class ClassInit
Public Function Load_BasicConfig()
Try
'ClassDatabase.Init()
Dim oSql As String = "SELECT * FROM TBDD_MODULES WHERE NAME = 'Global-Indexer'"
Dim oSql As String = "SELECT * FROM TBDD_MODULES WHERE NAME = 'fileFLOW'"
Dim DT As DataTable = DATABASE_ECM.GetDatatable(oSql)
If DT.Rows.Count = 1 Then
@ -241,7 +241,7 @@ Public Class ClassInit
Try
Dim oSql As String
oSql = String.Format($"SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{Environment.UserName}','GLOBIX',{1})")
oSql = String.Format($"SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{Environment.UserName}','fileFLOW',{1})")
Dim DT_CHECKUSER_MODULE As DataTable = DATABASE_ECM.GetDatatable(oSql)
If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
LOGGER.Info("DT_CHECKUSER_MODULE.Rows.Count = 0")
@ -294,18 +294,18 @@ Public Class ClassInit
End If
USER_LANGUAGE = oRow.Item("USER_LANGUAGE")
oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'fileFLOW'"
DATABASE_ECM.ExecuteNonQuery(oSql)
oSql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE, CLIENT_ID) VALUES (" & USER_ID & ",'Global-Indexer', 1)"
oSql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE, CLIENT_ID) VALUES (" & USER_ID & ",'fileFLOW', 1)"
DATABASE_ECM.ExecuteNonQuery(oSql)
oSql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')"
oSql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'fileFLOW'"
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für fileFLOW!")
If USER_IS_ADMIN = False Then
'Anmeldung wieder herausnehmen
oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Global-Indexer'"
oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'fileFLOW'"
DATABASE_ECM.ExecuteNonQuery(oSql)
LOGGER.Info(" - Wieder abgemeldet")
START_INCOMPLETE = True

BIN
Global_Indexer/DD_Icons_ICO_GLOBIX_1.ico
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 15 KiB

BIN
Global_Indexer/DD_Icons_ICO_GLOBIX_128.ico
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 52 KiB

9
Global_Indexer/Global_Indexer.vbproj
View File

@ -789,14 +789,9 @@
<None Include="Resources\arrow_Up_16xLG.png" />
</ItemGroup>
<ItemGroup>
<Content Include="DD_fileFLOW_ICON.ico" />
<Content Include="DD_Icons_ICO_GLOBIX_1.ico">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
<Content Include="DD_fileFLOW_ICON.ico">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="DD_Icons_ICO_GLOBIX_128.ico">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="file.ico" />
<Content Include="globe_handdrawn.ico" />
<Content Include="MailLicense.xml">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>

1
Global_Indexer/ModuleRuntime.vb
View File

@ -29,5 +29,4 @@ Module ModuleRuntime
Public Property DATABASE_ECM As MSSQLServer
Public Property DATABASE_IDB As MSSQLServer
Public Property DebugDisplay As Boolean = False
End Module

2
Global_Indexer/My Project/AssemblyInfo.vb
View File

@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.7.0.0")>
<Assembly: AssemblyVersion("2.7.0.1")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")>

4
Global_Indexer/MyDataset.Designer.vb generated
View File

@ -15855,8 +15855,8 @@ Namespace MyDatasetTableAdapters
""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT T.DOKART_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" FROM TBDD_DOKUMENTART_MODULE AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" TBDD_MODULES AS T1 ON T.MODULE_ID = "& _
"T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (T1.NAME = 'Global-Indexer'"& _
")))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE, BEZEICHNUNG"
"T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (T1.NAME = 'fileFLOW')))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"O"& _
"RDER BY SEQUENCE, BEZEICHNUNG"
Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text
End Sub

2
Global_Indexer/MyDataset.xsd
View File

@ -236,7 +236,7 @@ WHERE (GUID IN
(SELECT T.DOKART_ID
FROM TBDD_DOKUMENTART_MODULE AS T INNER JOIN
TBDD_MODULES AS T1 ON T.MODULE_ID = T1.GUID
WHERE (T1.NAME = 'Global-Indexer')))
WHERE (T1.NAME = 'fileFLOW')))
ORDER BY SEQUENCE, BEZEICHNUNG</CommandText>
<Parameters />
</DbCommand>

BIN
Global_Indexer/file.ico
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 3.4 KiB

106
Global_Indexer/frmAdministration.resx
View File

@ -132,7 +132,7 @@
<value>189, -255</value>
</data>
<data name="GUIDLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>23, 15</value>
<value>22, 15</value>
</data>
<data name="GUIDLabel.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -319,7 +319,7 @@
<value>170</value>
</data>
<data name="gridAvailableGroups.Size" type="System.Drawing.Size, System.Drawing">
<value>1070, 247</value>
<value>1070, 249</value>
</data>
<data name="gridAvailableGroups.TabIndex" type="System.Int32, mscorlib">
<value>88</value>
@ -382,7 +382,7 @@
<value>1</value>
</data>
<data name="SplitContainerControl2.Size" type="System.Drawing.Size, System.Drawing">
<value>1070, 564</value>
<value>1070, 566</value>
</data>
<data name="SplitContainerControl2.TabIndex" type="System.Int32, mscorlib">
<value>88</value>
@ -1073,13 +1073,13 @@
<value>Grundeinstellungen</value>
</data>
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1310, 151</value>
<value>1310, 147</value>
</data>
<data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 775</value>
<value>0, 773</value>
</data>
<data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
<value>1310, 21</value>
<value>1310, 23</value>
</data>
<data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
<value>RibbonStatusBar1</value>
@ -1220,7 +1220,7 @@
<value>150</value>
</data>
<data name="gridAvailableUsers.Size" type="System.Drawing.Size, System.Drawing">
<value>1070, 278</value>
<value>1070, 280</value>
</data>
<data name="gridAvailableUsers.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -1286,7 +1286,7 @@
<value>1</value>
</data>
<data name="SplitContainerControl5.Size" type="System.Drawing.Size, System.Drawing">
<value>1070, 564</value>
<value>1070, 566</value>
</data>
<data name="SplitContainerControl5.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -1307,7 +1307,7 @@
<value>Fill</value>
</data>
<data name="SplitContainerControl4.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 151</value>
<value>0, 147</value>
</data>
<metadata name="TBDD_DOKUMENTARTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>127, 17</value>
@ -1361,7 +1361,7 @@
<value>277</value>
</data>
<data name="GridControlProfile.Size" type="System.Drawing.Size, System.Drawing">
<value>224, 594</value>
<value>224, 596</value>
</data>
<data name="GridControlProfile.TabIndex" type="System.Int32, mscorlib">
<value>93</value>
@ -1577,7 +1577,7 @@
<value>5</value>
</data>
<data name="AKTIVCheckBox.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Bold</value>
<value>Tahoma, 8.25pt</value>
</data>
<data name="AKTIVCheckBox.Location" type="System.Drawing.Point, System.Drawing">
<value>10, 6</value>
@ -1652,13 +1652,13 @@
<value>True</value>
</data>
<data name="lblObjekttyp.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold</value>
<value>Segoe UI, 9pt</value>
</data>
<data name="lblObjekttyp.Location" type="System.Drawing.Point, System.Drawing">
<value>155, 86</value>
</data>
<data name="lblObjekttyp.Size" type="System.Drawing.Size, System.Drawing">
<value>66, 15</value>
<value>62, 15</value>
</data>
<data name="lblObjekttyp.TabIndex" type="System.Int32, mscorlib">
<value>87</value>
@ -1682,16 +1682,16 @@
<value>True</value>
</data>
<data name="Label1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold</value>
<value>Segoe UI, 9pt</value>
</data>
<data name="Label1.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
<value>155, 39</value>
<value>155, 37</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>82, 15</value>
<value>78, 15</value>
</data>
<data name="Label1.TabIndex" type="System.Int32, mscorlib">
<value>87</value>
@ -1715,7 +1715,7 @@
<value>True</value>
</data>
<data name="Label7.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold</value>
<value>Segoe UI, 9pt</value>
</data>
<data name="Label7.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
@ -1724,13 +1724,13 @@
<value>7, 37</value>
</data>
<data name="Label7.Size" type="System.Drawing.Size, System.Drawing">
<value>41, 15</value>
<value>21, 15</value>
</data>
<data name="Label7.TabIndex" type="System.Int32, mscorlib">
<value>87</value>
</data>
<data name="Label7.Text" xml:space="preserve">
<value>GUID:</value>
<value>ID:</value>
</data>
<data name="&gt;&gt;Label7.Name" xml:space="preserve">
<value>Label7</value>
@ -1748,7 +1748,7 @@
<value>True</value>
</data>
<data name="Label8.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold</value>
<value>Segoe UI, 9pt</value>
</data>
<data name="Label8.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
@ -1757,7 +1757,7 @@
<value>7, 128</value>
</data>
<data name="Label8.Size" type="System.Drawing.Size, System.Drawing">
<value>55, 15</value>
<value>53, 15</value>
</data>
<data name="Label8.TabIndex" type="System.Int32, mscorlib">
<value>87</value>
@ -1781,7 +1781,7 @@
<value>True</value>
</data>
<data name="Label15.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold</value>
<value>Segoe UI, 9pt</value>
</data>
<data name="Label15.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
@ -1790,7 +1790,7 @@
<value>7, 170</value>
</data>
<data name="Label15.Size" type="System.Drawing.Size, System.Drawing">
<value>86, 15</value>
<value>82, 15</value>
</data>
<data name="Label15.TabIndex" type="System.Int32, mscorlib">
<value>87</value>
@ -1913,16 +1913,16 @@
<value>True</value>
</data>
<data name="Label5.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold</value>
<value>Segoe UI, 9pt</value>
</data>
<data name="Label5.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Label5.Location" type="System.Drawing.Point, System.Drawing">
<value>448, 34</value>
<value>448, 37</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>64, 15</value>
<value>60, 15</value>
</data>
<data name="Label5.TabIndex" type="System.Int32, mscorlib">
<value>87</value>
@ -1946,16 +1946,16 @@
<value>True</value>
</data>
<data name="Label4.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold</value>
<value>Segoe UI, 9pt</value>
</data>
<data name="Label4.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Label4.Location" type="System.Drawing.Point, System.Drawing">
<value>70, 38</value>
<value>70, 37</value>
</data>
<data name="Label4.Size" type="System.Drawing.Size, System.Drawing">
<value>78, 15</value>
<value>73, 15</value>
</data>
<data name="Label4.TabIndex" type="System.Int32, mscorlib">
<value>87</value>
@ -2033,7 +2033,7 @@
<value>73, 56</value>
</data>
<data name="SEQUENCENumericUpDown.Size" type="System.Drawing.Size, System.Drawing">
<value>3900, 24</value>
<value>75, 24</value>
</data>
<data name="SEQUENCENumericUpDown.TabIndex" type="System.Int32, mscorlib">
<value>91</value>
@ -2078,13 +2078,13 @@
<value>True</value>
</data>
<data name="Label32.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Bold</value>
<value>Segoe UI, 9pt</value>
</data>
<data name="Label32.Location" type="System.Drawing.Point, System.Drawing">
<value>598, 39</value>
<value>598, 37</value>
</data>
<data name="Label32.Size" type="System.Drawing.Size, System.Drawing">
<value>241, 13</value>
<value>222, 15</value>
</data>
<data name="Label32.TabIndex" type="System.Int32, mscorlib">
<value>96</value>
@ -2135,7 +2135,7 @@
<value>True</value>
</data>
<data name="Label16.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold</value>
<value>Segoe UI, 9pt</value>
</data>
<data name="Label16.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
@ -2144,7 +2144,7 @@
<value>7, 212</value>
</data>
<data name="Label16.Size" type="System.Drawing.Size, System.Drawing">
<value>119, 15</value>
<value>114, 15</value>
</data>
<data name="Label16.TabIndex" type="System.Int32, mscorlib">
<value>87</value>
@ -2306,7 +2306,7 @@
<value>Bottom</value>
</data>
<data name="XtraTabControl2.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 514</value>
<value>0, 275</value>
</data>
<data name="XtraTabPageManualIndex.AutoScroll" type="System.Boolean, mscorlib">
<value>True</value>
@ -3279,7 +3279,7 @@ der Datei</value>
<value>150, 0</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>3821, 33</value>
<value>922, 274</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>96</value>
@ -3303,7 +3303,7 @@ der Datei</value>
<value>0, 0</value>
</data>
<data name="ListBoxControl3.Size" type="System.Drawing.Size, System.Drawing">
<value>150, 33</value>
<value>150, 274</value>
</data>
<data name="ListBoxControl3.TabIndex" type="System.Int32, mscorlib">
<value>95</value>
@ -3338,7 +3338,7 @@ der Datei</value>
</value>
</data>
<data name="XtraTabPageManualIndex.Size" type="System.Drawing.Size, System.Drawing">
<value>3971, 33</value>
<value>1072, 274</value>
</data>
<data name="XtraTabPageManualIndex.Text" xml:space="preserve">
<value>manuelle Indexe</value>
@ -3356,7 +3356,7 @@ der Datei</value>
<value>0</value>
</data>
<data name="XtraTabControl2.Size" type="System.Drawing.Size, System.Drawing">
<value>3973, 61</value>
<value>1074, 302</value>
</data>
<data name="XtraTabControl2.TabIndex" type="System.Int32, mscorlib">
<value>86</value>
@ -3374,7 +3374,7 @@ der Datei</value>
<value>0, 0</value>
</data>
<data name="ListBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>150, 278</value>
<value>150, 274</value>
</data>
<data name="ListBox1.TabIndex" type="System.Int32, mscorlib">
<value>97</value>
@ -4271,7 +4271,7 @@ der Datei</value>
</value>
</data>
<data name="XtraTabPageManualIndexFunctions.Size" type="System.Drawing.Size, System.Drawing">
<value>1070, 278</value>
<value>1070, 274</value>
</data>
<data name="XtraTabPageManualIndexFunctions.Text" xml:space="preserve">
<value>Nachbearbeitungsfunktionen manueller Index</value>
@ -4431,7 +4431,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
<value>0, 0</value>
</data>
<data name="ListBoxControl4.Size" type="System.Drawing.Size, System.Drawing">
<value>100, 278</value>
<value>100, 274</value>
</data>
<data name="ListBoxControl4.TabIndex" type="System.Int32, mscorlib">
<value>90</value>
@ -5181,7 +5181,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
</value>
</data>
<data name="XtraTabPageAutoIndex.Size" type="System.Drawing.Size, System.Drawing">
<value>1070, 278</value>
<value>1070, 274</value>
</data>
<data name="XtraTabPageAutoIndex.Text" xml:space="preserve">
<value>automatische/feste Indexe</value>
@ -5618,7 +5618,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
</value>
</data>
<data name="XtraTabPageFolderPath.Size" type="System.Drawing.Size, System.Drawing">
<value>1070, 278</value>
<value>1070, 274</value>
</data>
<data name="XtraTabPageFolderPath.Text" xml:space="preserve">
<value>Dynamischer Ordnerpfad</value>
@ -6073,7 +6073,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
</value>
</data>
<data name="XtraTabPageProfileRegex.Size" type="System.Drawing.Size, System.Drawing">
<value>1070, 278</value>
<value>1070, 274</value>
</data>
<data name="XtraTabPageProfileRegex.Text" xml:space="preserve">
<value>Automatische Profilauswahl</value>
@ -6505,7 +6505,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
<value>3, 4, 3, 4</value>
</data>
<data name="XtraTabPageProfiles.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 592</value>
<value>1072, 594</value>
</data>
<data name="XtraTabPageProfiles.Text" xml:space="preserve">
<value>Profil-Verwaltung</value>
@ -6523,7 +6523,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
<value>0</value>
</data>
<data name="XtraTabControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1074, 624</value>
<value>1074, 626</value>
</data>
<data name="XtraTabControl1.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -6562,7 +6562,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
</value>
</data>
<data name="tabPageUsers.Size" type="System.Drawing.Size, System.Drawing">
<value>1070, 564</value>
<value>1070, 566</value>
</data>
<data name="tabPageUsers.Text" xml:space="preserve">
<value>Gruppen-Zuordnung</value>
@ -6580,7 +6580,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
<value>1</value>
</data>
<data name="XtraTabControl3.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 592</value>
<value>1072, 594</value>
</data>
<data name="XtraTabControl3.TabIndex" type="System.Int32, mscorlib">
<value>89</value>
@ -6610,7 +6610,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
</value>
</data>
<data name="tabPageGroups.Size" type="System.Drawing.Size, System.Drawing">
<value>1070, 564</value>
<value>1070, 566</value>
</data>
<data name="tabPageGroups.Text" xml:space="preserve">
<value>Benutzer-Zuordnung</value>
@ -6662,7 +6662,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
<value>3, 4, 3, 4</value>
</data>
<data name="XtraTabPageUsersGroups.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 592</value>
<value>1072, 594</value>
</data>
<data name="XtraTabPageUsersGroups.Text" xml:space="preserve">
<value>Profil-Zuordnung</value>
@ -6707,7 +6707,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
<value>1</value>
</data>
<data name="SplitContainerControl4.Size" type="System.Drawing.Size, System.Drawing">
<value>1310, 624</value>
<value>1310, 626</value>
</data>
<data name="SplitContainerControl4.TabIndex" type="System.Int32, mscorlib">
<value>4</value>

18
Global_Indexer/frmAdministration.vb
View File

@ -212,9 +212,9 @@ Public Class frmAdministration
Dim oNewID As Integer
oNewID = DATABASE_ECM.GetScalarValue("SELECT MAX(GUID) FROM TBDD_DOKUMENTART")
If IsNumeric(oNewID) Then
Dim osql = $"EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'GLOBIX', {oNewID}"
Dim osql = $"EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'fileFLOW', {oNewID}"
If DATABASE_ECM.ExecuteNonQuery(osql) = False Then
MsgBox("Fehler beim zuweisen des neuen Profils zum Modul Global-Indexer!", MsgBoxStyle.Critical, Text)
MsgBox("Fehler beim zuweisen des neuen Profils zum Modul fileFLOW/GI!", MsgBoxStyle.Critical, Text)
End If
End If
End If
@ -299,9 +299,9 @@ Public Class frmAdministration
End Sub
Private Sub btnadd_Click(sender As Object, e As EventArgs)
Dim osql = $"EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'GLOBIX',{DOKART_GUIDTextBox.Text}"
Dim osql = $"EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'fileFLOW',{DOKART_GUIDTextBox.Text}"
DATABASE_ECM.ExecuteNonQuery(osql)
LoadGlobix_Doctypes()
LoadfileFLOW_Doctypes()
End Sub
Private Sub OBJEKTTYPComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles OBJEKTTYPComboBox.SelectedIndexChanged
@ -789,7 +789,7 @@ Public Class frmAdministration
Load_PostProcessing(Me.DOKART_GUIDTextBox.Text)
End Sub
Sub LoadGlobix_Doctypes()
Sub LoadfileFLOW_Doctypes()
Dim oFocusedRow = GridViewProfile.FocusedRowHandle
Load_Dokart()
GridViewProfile.FocusedRowHandle = oFocusedRow
@ -1021,8 +1021,8 @@ Public Class frmAdministration
If result = MsgBoxResult.Yes Then
Try
Dim oGlobixId = DATABASE_ECM.GetScalarValue("SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'GLOBIX'")
Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", " & oGlobixId
Dim oFF_ID = DATABASE_ECM.GetScalarValue("SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'fileFLOW'")
Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", " & oFF_ID
If DATABASE_ECM.ExecuteNonQuery(copy) Then
If USER_LANGUAGE = "de-DE" Then
@ -1040,7 +1040,7 @@ Public Class frmAdministration
End Sub
Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
LoadGlobix_Doctypes()
LoadfileFLOW_Doctypes()
End Sub
Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
@ -1471,4 +1471,6 @@ Public Class frmAdministration
chkPreventMultipleValues.Enabled = False
End If
End Function
End Class

10
Global_Indexer/frmStart.vb
View File

@ -47,7 +47,7 @@ Public Class frmStart
Cursor = Cursors.WaitCursor
Try
IndexForm = New frmIndex()
FileDrop = New FileDrop(LOGCONFIG, "GLOBIX")
FileDrop = New FileDrop(LOGCONFIG, "fileFLOW")
'Lizenz abgellaufen, überprüfen ob User Admin ist
If LICENSE_COUNT < USERCOUNT_LOGGED_IN Then
@ -131,7 +131,7 @@ Public Class frmStart
Private Sub frmStart_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
If START_INCOMPLETE = False Then
Dim Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
Dim Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'fileFLOW'"
DATABASE_ECM.ExecuteNonQuery(Sql)
End If
ClassWindowLocation.SaveFormLocationSize(Me)
@ -513,11 +513,11 @@ Public Class frmStart
If DTACTUAL_FILES.Rows.Count > 0 Then
ABORT_INDEXING = False
Me.TimerFolderWatch.Stop()
If LOGCONFIG.Debug And DebugDisplay = False Then
If LOGCONFIG.Debug Then
Clipboard.Clear()
Clipboard.SetText(oSql, TextDataFormat.Text)
DebugDisplay = True
MsgBox("DEBUG - Check TBGI_FILES_USER if necessary. Command copied to Clipboard")
'MsgBox("DEBUG - Check TBGI_FILES_USER if necessary. Command copied to Clipboard")
End If
For Each oRow As DataRow In DTACTUAL_FILES.Rows

2
SetupVS19/Config.wxi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<Include>
<!-- TODO: Put your code here. -->
<?define ProgramName="FileFlow"?>
<?define ProgramName="fileFLOW"?>
<?define ProductName="fileFLOW"?>
<?define Manufacturer="Digital Data"?>
<?define Description="Beschreibung des Programms"?>

3
SetupVS19/Product.wxs
View File

@ -103,8 +103,7 @@
<!-- Die ApplicationIco -->
<Component Id="ApplicationIco" Guid="5C2EEA18-0718-41E9-A8C6-38D3C622921B">
<File Id="ApplicationIco" Name="DD_Icons_ICO_GLOBIX_128.ico" Source="DD_Icons_ICO_GLOBIX_128.ico" KeyPath="yes" />
<File Id="ApplicationIco2" Name="DD_Icons_ICO_GLOBIX_1.ico" Source="DD_Icons_ICO_GLOBIX_1.ico" KeyPath="no" />
<File Id="ApplicationIco" Name="DD_fileFLOW_ICON.ico" Source="DD_fileFLOW_ICON.ico" KeyPath="yes" />
</Component>
<!--Digital Data Bibliotheken-->

2
SetupVS19/SetupVS19.wixproj
View File

@ -44,7 +44,7 @@
</Target>
<Target Name="BeforeBuild">
<!-- Get the programs assembly version from the .exe file -->
<GetAssemblyIdentity AssemblyFiles="..\Global_Indexer\bin\$(Configuration)\FileFlow.exe">
<GetAssemblyIdentity AssemblyFiles="..\Global_Indexer\bin\$(Configuration)\fileFLOW.exe">
<Output TaskParameter="Assemblies" ItemName="AsmInfo" />
</GetAssemblyIdentity>
<!-- Store the assembly version number in ProductVersion preprocessor variable -->