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

MS Vektrortype > 4095 und neue dlls GDPicture inkl Runtime dll

Browse Source
This commit is contained in:
Developer01
2025-01-22 12:15:33 +01:00
parent 5733509404
commit 6cb4cee7c3
9 changed files with 89 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
Global_Indexer/frmIndex.vb
View File

@@ -11,6 +11,7 @@ Imports Limilabs.Mail
Imports DevExpress.XtraEditors
Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.Base
Imports DevExpress.DataAccess.Native.Json
Public Class frmIndex
#Region "+++++ Variablen ++++++"
@@ -78,13 +79,16 @@ Public Class frmIndex
Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
_Logger = LOGCONFIG.GetLogger()
_Logger.Debug("frmIndex Logger initialized ...")
_FormHelper = New FormHelper(LOGCONFIG, Me)
_Logger.Debug("frmIndex FormHelper initialized ...")
_PostProcessing = New ClassPostprocessing(LOGCONFIG)
_Logger.Debug("frmIndex ClassPostprocessing initialized ...")
Localizer.Active = New LookupGridLocalizer()
_Logger.Debug("frmIndex LookupGridLocalizer initialized ...")
End Sub
Public Sub CloseViewer()
@@ -789,8 +793,8 @@ Public Class frmIndex
' den Typ des Zielindexes auslesen
Dim oIndexType As Integer = WINDREAM.GetIndexType(indexname)
_Logger.Debug($"oIndexType [{oIndexType}]...")
If oIndexType > 4095 And oIndexType < WINDREAM.WMObjectVariableValueTypeVector Then
_Logger.Debug($"Indexing oIndexType < WINDREAM.WMObjectVariableValueTypeVector...")
If oIndexType > 4095 Then
_Logger.Debug($"Indexing Vektor - oIndexType [{oIndexType}] ...")
Dim oSplitArray = Split(idxvalue, ClassConstants.VECTORSEPARATOR)
Dim oListofString As New List(Of String)
If oSplitArray.Length <= 1 Then
@@ -827,6 +831,7 @@ Public Class frmIndex
'Automatische Indexe Indexieren
Dim DTAut As DataTable = MyDataset.VWDDINDEX_AUTOM
If DTAut.Rows.Count > 0 Then
_Logger.Debug("Es gibt automatische Atrribute - Anzahl: " & DTAut.Rows.Count.ToString)
Dim Count As Integer = 0
For Each row As DataRow In DTAut.Rows
Dim oIsIndexed = CBool(row.Item("Indexiert"))
@@ -841,12 +846,11 @@ Public Class frmIndex
_Logger.Info("Indexvalue: " & oIndexValue.ToString)
Count += 1
' den Typ des Zielindexes auslesen
Dim indexType As Integer = WINDREAM.GetIndexType(oIndexName)
If indexType > 4095 And indexType < WINDREAM.WMObjectVariableValueTypeVector Then
_Logger.Debug("WMIndexType: " & indexType.ToString)
If indexType > 4095 Then
_Logger.Debug("Es Handelt sich um einen VektorIndex...")
Dim oExistingItems = WINDREAM.GetIndexValue(CURRENT_NEWFILENAME, oIndexName)
Dim oSplitArray = Split(oIndexValue, ClassConstants.VECTORSEPARATOR)
@@ -859,16 +863,21 @@ Public Class frmIndex
Next
End If
If oOverwrite = False Then
oListofString = oExistingItems.Concat(oListofString).ToList()
If oSplitArray.Length <= 1 Then
indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, oIndexName, oIndexValue, CURR_DOKART_OBJECTTYPE)
Else
For Each oStr In oSplitArray
oListofString.Add(oStr)
Next
If oOverwrite = False And oExistingItems.Count > 0 Then
oListofString = oExistingItems.Concat(oListofString).ToList()
End If
If oPreventMultipleValues = True Then
oListofString = oListofString.Distinct().ToList()
End If
indexierung_erfolgreich = WINDREAM.SetFileIndexLoS(CURRENT_NEWFILENAME, oIndexName, oListofString, CURR_DOKART_OBJECTTYPE)
End If
If oPreventMultipleValues = True Then
oListofString = oListofString.Distinct().ToList()
End If
indexierung_erfolgreich = WINDREAM.SetFileIndexLoS(CURRENT_NEWFILENAME, oIndexName, oListofString, CURR_DOKART_OBJECTTYPE)
Else
indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, oIndexName, oIndexValue, CURR_DOKART_OBJECTTYPE)
End If
@@ -1589,7 +1598,8 @@ Public Class frmIndex
checkItemDeleteSource.Enabled = True
checkItemDeleteSource.Checked = CONFIG.Config.DeleteOriginalFile
VIEWER_LICENSE = DATABASE_ECM.GetScalarValue("SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE' AND ACTIVE = 1")
VIEWER_LICENSE = DATABASE_ECM.GetScalarValue($"SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE
NAME = 'GDPICTURE_FILEFLOW' AND ACTIVE = 1")
DocumentViewer1.Init(LOGCONFIG, VIEWER_LICENSE)