LookUpControl Width wider
This commit is contained in:
Developer01
parent
e8877ffc99
commit
21777d216b
@ -7,35 +7,104 @@ Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupVS19", "SetupVS19\Setu
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "taskFLOW", "TaskFlow\taskFLOW.vbproj", "{6ACA1432-09A2-47EF-A704-C0AA73905756}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Windream", "..\..\..\2_DLL Projekte\DDModules\Windream\Windream.vbproj", "{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "LookupControl", "..\..\..\2_DLL Projekte\DDMonorepo\Controls.LookupGrid\LookupControl.vbproj", "{3DCD6D1A-C830-4241-B7E4-27430E7EA483}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
CD_ROM|Any CPU = CD_ROM|Any CPU
|
||||
CD_ROM|x86 = CD_ROM|x86
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Debug|x86 = Debug|x86
|
||||
DVD-5|Any CPU = DVD-5|Any CPU
|
||||
DVD-5|x86 = DVD-5|x86
|
||||
Release|Any CPU = Release|Any CPU
|
||||
Release|x86 = Release|x86
|
||||
SingleImage|Any CPU = SingleImage|Any CPU
|
||||
SingleImage|x86 = SingleImage|x86
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.CD_ROM|Any CPU.ActiveCfg = Debug|x86
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.CD_ROM|Any CPU.Build.0 = Debug|x86
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.CD_ROM|x86.ActiveCfg = Release|x86
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.CD_ROM|x86.Build.0 = Release|x86
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Debug|Any CPU.ActiveCfg = Debug|x86
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Debug|Any CPU.Build.0 = Debug|x86
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Debug|x86.ActiveCfg = Debug|x86
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Debug|x86.Build.0 = Debug|x86
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.DVD-5|Any CPU.ActiveCfg = Debug|x86
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.DVD-5|Any CPU.Build.0 = Debug|x86
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.DVD-5|x86.ActiveCfg = Debug|x86
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.DVD-5|x86.Build.0 = Debug|x86
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Release|Any CPU.ActiveCfg = Release|x86
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Release|Any CPU.Build.0 = Release|x86
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Release|x86.ActiveCfg = Release|x86
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Release|x86.Build.0 = Release|x86
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.SingleImage|Any CPU.ActiveCfg = Debug|x86
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.SingleImage|Any CPU.Build.0 = Debug|x86
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.SingleImage|x86.ActiveCfg = Release|x86
|
||||
{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.SingleImage|x86.Build.0 = Release|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.CD_ROM|Any CPU.ActiveCfg = Release|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.CD_ROM|Any CPU.Build.0 = Release|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.CD_ROM|x86.ActiveCfg = Debug|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.CD_ROM|x86.Build.0 = Debug|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.Debug|Any CPU.ActiveCfg = Debug|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.Debug|Any CPU.Build.0 = Debug|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.Debug|x86.ActiveCfg = Debug|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.Debug|x86.Build.0 = Debug|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.DVD-5|Any CPU.ActiveCfg = Debug|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.DVD-5|Any CPU.Build.0 = Debug|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.DVD-5|x86.ActiveCfg = Debug|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.DVD-5|x86.Build.0 = Debug|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.Release|Any CPU.ActiveCfg = Release|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.Release|Any CPU.Build.0 = Release|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.Release|x86.ActiveCfg = Release|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.Release|x86.Build.0 = Release|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.SingleImage|Any CPU.ActiveCfg = Release|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.SingleImage|Any CPU.Build.0 = Release|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.SingleImage|x86.ActiveCfg = Debug|x86
|
||||
{6ACA1432-09A2-47EF-A704-C0AA73905756}.SingleImage|x86.Build.0 = Debug|x86
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.CD_ROM|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.CD_ROM|Any CPU.Build.0 = Debug|Any CPU
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.CD_ROM|x86.ActiveCfg = Debug|Any CPU
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.CD_ROM|x86.Build.0 = Debug|Any CPU
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Debug|x86.ActiveCfg = Debug|Any CPU
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Debug|x86.Build.0 = Debug|Any CPU
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.DVD-5|Any CPU.Build.0 = Debug|Any CPU
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.DVD-5|x86.ActiveCfg = Debug|Any CPU
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.DVD-5|x86.Build.0 = Debug|Any CPU
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Release|x86.ActiveCfg = Release|Any CPU
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Release|x86.Build.0 = Release|Any CPU
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.SingleImage|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.SingleImage|Any CPU.Build.0 = Debug|Any CPU
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.SingleImage|x86.ActiveCfg = Debug|Any CPU
|
||||
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.SingleImage|x86.Build.0 = Debug|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.CD_ROM|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.CD_ROM|Any CPU.Build.0 = Debug|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.CD_ROM|x86.ActiveCfg = Debug|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.CD_ROM|x86.Build.0 = Debug|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.Debug|x86.ActiveCfg = Debug|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.Debug|x86.Build.0 = Debug|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.DVD-5|Any CPU.Build.0 = Debug|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.DVD-5|x86.ActiveCfg = Debug|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.DVD-5|x86.Build.0 = Debug|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.Release|x86.ActiveCfg = Release|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.Release|x86.Build.0 = Release|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.SingleImage|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.SingleImage|Any CPU.Build.0 = Debug|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.SingleImage|x86.ActiveCfg = Debug|Any CPU
|
||||
{3DCD6D1A-C830-4241-B7E4-27430E7EA483}.SingleImage|x86.Build.0 = Debug|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
|
||||
@ -1,4 +1,5 @@
|
||||
Imports DigitalData.Modules.EDMI.API.Constants
|
||||
Imports DevExpress.DataAccess.Native.Json
|
||||
Imports DigitalData.Modules.EDMI.API.Constants
|
||||
Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback
|
||||
|
||||
Public Class ClassFinalizeDoc
|
||||
@ -18,10 +19,11 @@ Public Class ClassFinalizeDoc
|
||||
'Jetzt finale Indexe setzen
|
||||
LOGGER.Debug("working final indices for doc: " & WMObject.aName)
|
||||
For Each dr As DataRow In CURRENT_DT_FINAL_INDEXING.Rows
|
||||
Dim value As String = dr.Item("VALUE").ToString
|
||||
Dim ovalueString As String = dr.Item("VALUE").ToString
|
||||
Dim INDEXNAME = dr.Item("INDEXNAME").ToString
|
||||
Dim oContinueOnIndifferentState As Boolean = CBool(dr.Item("CONTINUE_INDETERMINED"))
|
||||
If value.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ###
|
||||
Dim VektorBeahaviour = dr.Item("IF_VEKTOR_BEHAVIOUR").ToString
|
||||
If ovalueString.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ###
|
||||
LOGGER.Debug("indexing with dynamic sql...")
|
||||
'Dim SQL_COMMAND = dr.Item("SQL_COMMAND")
|
||||
'' Regulären Ausdruck zum Auslesen der Indexe definieren
|
||||
@ -52,32 +54,32 @@ Public Class ClassFinalizeDoc
|
||||
LOGGER.Debug("sql after ReplaceAllValues: " & sql_Statement)
|
||||
Dim oDynamic_value = DatabaseFallback.GetScalarValueECM(sql_Statement) ', CONNECTION_STRING_ECM, "Write_Final_Metadata/dynamic_value")
|
||||
If Not IsNothing(oDynamic_value) Then
|
||||
value = oDynamic_value
|
||||
ovalueString = oDynamic_value
|
||||
Else
|
||||
Continue For
|
||||
End If
|
||||
Else
|
||||
If value.StartsWith("v") Then
|
||||
If ovalueString.StartsWith("v") Then
|
||||
Select Case dr.Item("VALUE").ToString
|
||||
Case "vDate"
|
||||
value = Now.ToShortDateString
|
||||
ovalueString = Now.ToShortDateString
|
||||
Case "vUserName"
|
||||
value = USER_USERNAME
|
||||
ovalueString = USER_USERNAME
|
||||
Case Else
|
||||
value = dr.Item("VALUE")
|
||||
ovalueString = dr.Item("VALUE")
|
||||
End Select
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim result() As String
|
||||
ReDim Preserve result(0)
|
||||
result(0) = value
|
||||
result(0) = ovalueString
|
||||
|
||||
Dim oIndexType = WINDREAM.GetTypeOfIndex(INDEXNAME)
|
||||
LOGGER.Debug($"oIndexType {oIndexType.ToString}")
|
||||
If oIndexType > 4000 And oIndexType < 5000 Then
|
||||
'Hier muss nun separat als Vektorfeld indexiert werden
|
||||
If Indexiere_VektorfeldPM(value, INDEXNAME, WMObject) = True Then
|
||||
If Indexiere_VektorfeldPM(ovalueString, INDEXNAME, WMObject) = True Then
|
||||
LOGGER.Debug("FINALER INDEX '" & INDEXNAME.Replace("[%VKT", "") & "' WURDE ERFOLGREICH GESETZT")
|
||||
Else
|
||||
|
||||
@ -87,12 +89,13 @@ Public Class ClassFinalizeDoc
|
||||
End If
|
||||
Else
|
||||
LOGGER.Debug("now indexing..")
|
||||
If Indexiere_File(INDEXNAME, result, WMObject) = True Then
|
||||
|
||||
If WINDREAM_MOD.SetFileIndex(CURRENT_DOC_PATH, INDEXNAME, ovalueString, CURRENT_WMObjecttype) = True Then 'Indexiere_File(INDEXNAME, result, WMObject) = True Then
|
||||
LOGGER.Debug("FINALER INDEX '" & INDEXNAME & "' WURDE ERFOLGREICH GESETZT")
|
||||
LOGGER.Debug("")
|
||||
'Nun das Logging
|
||||
If CURRENT_PROFILE_LOG_INDEX <> "" Then
|
||||
Dim logstr = Return_LOGString(value, "DDFINALINDEX", INDEXNAME)
|
||||
Dim logstr = Return_LOGString(ovalueString, "DDFINALINDEX", INDEXNAME)
|
||||
Indexiere_VektorfeldPM(logstr, CURRENT_PROFILE_LOG_INDEX, WMObject)
|
||||
End If
|
||||
|
||||
@ -120,39 +123,73 @@ Public Class ClassFinalizeDoc
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Shared Function Indexiere_File(idxxname As String, idxvalue As Object, WMObject As WINDREAMLib.WMObject)
|
||||
Dim File_indexiert As Boolean = False
|
||||
Private Shared Function Indexiere_File(pIndexName As String, pIndexValues As Object, WMObject As WINDREAMLib.WMObject) As Boolean
|
||||
LOGGER.Debug("### Indexiere_File Begin ###")
|
||||
Dim indexierung_erfolgreich As Boolean = False
|
||||
Try
|
||||
Dim oIndexType As Integer = WINDREAM_MOD.GetIndexType(pIndexName)
|
||||
If oIndexType > 4095 Then
|
||||
LOGGER.Debug("Es Handelt sich um einen VektorIndex...")
|
||||
Dim oExistingItems = WINDREAM_MOD.GetIndexValue(CURRENT_DOC_PATH, pIndexName)
|
||||
|
||||
Dim oListofString As New List(Of String)
|
||||
If pIndexValues.Length = 0 Then
|
||||
LOGGER.Debug("oSplitArray.Length = 0")
|
||||
oListofString.Add(pIndexValues(0))
|
||||
Else
|
||||
LOGGER.Debug($"pIndexValues.Length is > 0 [{pIndexValues.length}] ...")
|
||||
For Each oStr In pIndexValues
|
||||
LOGGER.Debug("pIndexValues - oString : {0}", oStr)
|
||||
oListofString.Add(oStr)
|
||||
Next
|
||||
End If
|
||||
|
||||
If oExistingItems.Count > 0 Then
|
||||
LOGGER.Debug("oOverwrite = False and WMObject already contains [{0}] values in attribute,Values will be concatted", oExistingItems.Count)
|
||||
oListofString = oExistingItems.Concat(oListofString).ToList()
|
||||
End If
|
||||
oListofString = oListofString.Distinct().ToList()
|
||||
indexierung_erfolgreich = WINDREAM_MOD.SetFileIndexLoS(CURRENT_DOC_PATH, pIndexName, oListofString, CURRENT_WMObjecttype)
|
||||
Else
|
||||
Dim oStringValue As String = pIndexValues(0).ToString
|
||||
indexierung_erfolgreich = WINDREAM_MOD.SetFileIndex(CURRENT_DOC_PATH, pIndexName, oStringValue, CURRENT_WMObjecttype)
|
||||
End If
|
||||
Return indexierung_erfolgreich
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn("Unvorhergesehener Fehler bei Indexiere_File: " & ex.Message.ToString)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
' Try
|
||||
'Die Arrays vorbereiten
|
||||
Dim arrIndex() As String = Nothing
|
||||
Dim arrValue() As String = Nothing
|
||||
arrIndex = Nothing
|
||||
arrValue = Nothing
|
||||
'Den Indexnamen übergeben
|
||||
ReDim Preserve arrIndex(0)
|
||||
arrIndex(0) = idxxname
|
||||
'Das Array der Idnexwerte überprüfen
|
||||
If idxvalue Is Nothing = False Then
|
||||
If idxvalue.Length() > 1 Then
|
||||
LOGGER.Debug("Indexing Index '" & idxxname & "' with Arrayvalue")
|
||||
Dim anzahl As Integer = 0
|
||||
For Each indexvalue As String In idxvalue
|
||||
ReDim Preserve arrValue(anzahl)
|
||||
arrValue(anzahl) = indexvalue
|
||||
anzahl += 1
|
||||
Next
|
||||
Else
|
||||
LOGGER.Debug("Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'")
|
||||
ReDim Preserve arrValue(0)
|
||||
arrValue(0) = idxvalue(0).ToString
|
||||
End If
|
||||
'Dim _windreamPM As New ClassPMWindream
|
||||
'Jetzt das eigentliche Indexieren der Datei
|
||||
File_indexiert = WINDREAM.RunIndexing(WMObject, arrIndex, arrValue)
|
||||
''Die Arrays vorbereiten
|
||||
'Dim arrIndex() As String = Nothing
|
||||
'Dim arrValue() As String = Nothing
|
||||
'arrIndex = Nothing
|
||||
'arrValue = Nothing
|
||||
''Den Indexnamen übergeben
|
||||
'ReDim Preserve arrIndex(0)
|
||||
'arrIndex(0) = idxxname
|
||||
''Das Array der Idnexwerte überprüfen
|
||||
'If idxvalue Is Nothing = False Then
|
||||
' If idxvalue.Length() > 1 Then
|
||||
' LOGGER.Debug("Indexing Index '" & idxxname & "' with Arrayvalue")
|
||||
' Dim anzahl As Integer = 0
|
||||
' For Each indexvalue As String In idxvalue
|
||||
' ReDim Preserve arrValue(anzahl)
|
||||
' arrValue(anzahl) = indexvalue
|
||||
' anzahl += 1
|
||||
' Next
|
||||
' Else
|
||||
' LOGGER.Debug("Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'")
|
||||
' ReDim Preserve arrValue(0)
|
||||
' arrValue(0) = idxvalue(0).ToString
|
||||
' End If
|
||||
' 'Dim _windreamPM As New ClassPMWindream
|
||||
' 'Jetzt das eigentliche Indexieren der Datei
|
||||
'File_indexiert = WINDREAM.RunIndexing(WMObject, arrIndex, arrValue)
|
||||
|
||||
Return File_indexiert
|
||||
End If
|
||||
'Return File_indexiert
|
||||
' End If
|
||||
|
||||
'Catch ex As Exception
|
||||
' LOGGER.Info("Unvorhergesehener Fehler bei Indexiere_File: " & ex.Message.ToString, True)
|
||||
|
||||
@ -159,13 +159,19 @@ Public Class ClassPMWindream
|
||||
Case WMObjectVariableValueTypeInteger
|
||||
LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeInteger")
|
||||
If IsNumeric(value) = False Then
|
||||
If value = "String.Empty" Then
|
||||
convertValue = vbEmpty
|
||||
Else
|
||||
frmValidator.idxerr_message = "Unerlaubte Eingabe in Numerisches Feld: " & value
|
||||
LOGGER.Debug("Achtung: Value " & value & " kann nicht in Zahl konvertiert werden!")
|
||||
oDocument.Save()
|
||||
oDocument.unlock()
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
convertValue = CInt(value)
|
||||
End If
|
||||
|
||||
_int = True
|
||||
Case WMObjectVariableValueTypeInteger64bit
|
||||
LOGGER.Debug("Typ des windream-Indexes: Integer64bit")
|
||||
@ -289,7 +295,10 @@ Public Class ClassPMWindream
|
||||
'ReDim ArrName(0)
|
||||
'ArrName(0) = "Tournr"
|
||||
'oDocument.SetValues(ArrName, ArrValues)
|
||||
If _int = True Then
|
||||
If convertValue = "String.Empty" Or convertValue = vbEmpty Then
|
||||
LOGGER.Debug("Now Indexing simpleAttribute with vbEmpty ...")
|
||||
oDocument.SetVariableValue(aName, String.Empty)
|
||||
ElseIf _int = True Then
|
||||
oDocument.SetVariableValue(aName, CInt(convertValue))
|
||||
ElseIf _date = True Then
|
||||
oDocument.SetVariableValue(aName, CDate(convertValue))
|
||||
@ -414,7 +423,13 @@ Public Class ClassPMWindream
|
||||
LOGGER.Debug("Wert für Index vor Indexierung: [{0}]", myArray)
|
||||
|
||||
'Jetzt die Nachindexierung für Vektor-Felder
|
||||
If myArray(0) = "String.Empty" Then
|
||||
LOGGER.Debug("Now Indexing vektor-attribute with vbEmpty ...")
|
||||
oDocument.SetVariableValue(aName, vbEmpty)
|
||||
Else
|
||||
oDocument.SetVariableValue(aName, myArray)
|
||||
End If
|
||||
|
||||
LOGGER.Debug("'SetVariableValue' für VEKTOR erfolgreich", False)
|
||||
End If
|
||||
End If
|
||||
|
||||
@ -203,7 +203,8 @@
|
||||
<Reference Include="DigitalData.Modules.Windows, Version=1.5.1.0, Culture=neutral, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\DigitalData.Modules.Windows.1.5.1\lib\net462\DigitalData.Modules.Windows.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DigitalData.Modules.Windream">
|
||||
<Reference Include="DigitalData.Modules.Windream, Version=1.9.6.2, Culture=neutral, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Windream\bin\Debug\DigitalData.Modules.Windream.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DigitalData.Modules.ZooFlow">
|
||||
|
||||
@ -777,7 +777,7 @@ Public Class frmAdministration
|
||||
obj.ContinueOnIndifferentState = oValue
|
||||
ElseIf oName = "VectorBehaviour" Then
|
||||
If oValue = "Delete" Then
|
||||
obj.StringValue = ""
|
||||
obj.StringValue = "DeleteWMAttributeValue"
|
||||
ElseIf oValue = "Add" And obj.StringValue = "" Then
|
||||
obj.StringValue = "Your value to set"
|
||||
End If
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
Loading…
x
Reference in New Issue
Block a user