Entfernung von SetVariableValue und DLL-Refactoring

Die Funktion `SetVariableValue` wurde aus `Client.vb` entfernt, da sie umfangreiche, aber nicht mehr benötigte Logik zur Attributverarbeitung enthielt.

In `EDMI.API.vbproj` wurden Projektreferenzen durch DLL-Referenzen ersetzt (`DigitalData.Modules.Base`, `Config`, `Database`, `Logging`), um die Modularität zu verbessern.

Die Assembly-Metadaten in `AssemblyInfo.vb` wurden aktualisiert, einschließlich Copyright (2026), Trademark (2.0.0) und Assembly-Version (2.0.0.0), um die neue Hauptversion zu reflektieren.

EDMIAPI/Client.vb

@@ -331,125 +331,6 @@ Public Class Client
             Return Nothing
         End Try
     End Function
-
-    ''' <summary>
-    ''' Sets a value to an attribute
-    ''' </summary>
-    ''' <param name="pObjectId">IDB ObjectId</param>
-    ''' <param name="pAttributeName">Name of the attribute</param>
-    ''' <param name="pValue"></param>
-    ''' <param name="pOptions"></param>
-    ''' <returns></returns>
-    'Public Function SetVariableValue(pObjectId As Long, pAttributeName As String, pValue As Object, Optional pOptions As Options.SetVariableValueOptions = Nothing) As Boolean
-    '    Try
-    '        ' Set default options
-    '        If pOptions Is Nothing Then
-    '            pOptions = New Options.SetVariableValueOptions()
-    '        End If
-
-    '        Dim oOptions As New Options.GetVariableValueOptions With {
-    '            .Language = pOptions.Language,
-    '            .Username = pOptions.Username
-    '        }
-
-    '        Try
-    '            Dim oResponse = Channel.TestObjectIdExists(New TestObjectIdExistsRequest With {.ObjectId = pObjectId})
-    '            If oResponse.Exists = False Then
-    '                Return False
-    '            End If
-
-    '        Catch ex As Exception
-    '            Logger.Error(ex)
-    '            Return False
-    '        End Try
-
-    '        Dim oType = pValue.GetType.Name
-
-    '        If oType = GetType(DataTable).Name Then
-    '            Dim oValueTable As DataTable = pValue
-    '            Dim oCurrentValue As VariableValue
-
-    '            ' Get current value
-    '            oCurrentValue = GetVariableValue(pObjectId, pAttributeName, oOptions)
-
-    '            ' If current value is datatable
-    '            If oCurrentValue.Type = GetType(DataTable) Then
-
-    '                ' Convert value to Datatable
-    '                Dim oTable As DataTable = oCurrentValue.Value
-
-    '                If oTable.Rows.Count > 1 Then
-
-    '                    'now Checking whether the old row still remains in Vector? If not it will be deleted as it cannot be replaced in multivalues
-    '                    For Each oRow As DataRow In oTable.Rows
-    '                        Dim oExists As Boolean = False
-    '                        For Each oNewValueRow As DataRow In oValueTable.Rows
-    '                            Logger.Debug($"Checking oldValue[{oCurrentValue}] vs NewValue [{oNewValueRow.Item(1)}]")
-
-    '                            If oNewValueRow.Item(1).ToString.ToUpper = oRow.Item(0).ToString.ToUpper Then
-    '                                oExists = True
-    '                                Exit For
-    '                            End If
-    '                        Next
-
-    '                        If oExists = False Then
-    '                            Logger.Debug($"Value [{oRow.Item(0)}] no longer existing in Vector-Attribute [{pAttributeName}] - will be deleted!")
-    '                            DeleteTermObjectFromMetadata(pObjectId, pAttributeName, oRow.Item(0))
-    '                        End If
-
-    '                    Next
-    '                End If
-    '            Else
-    '                If oValueTable.Rows.Count > 1 Then
-
-    '                    'now Checking whether the old row still remains in Vector? If not it will be deleted as it cannot be replaced in multivalues
-    '                    Dim oExists As Boolean = False
-    '                    For Each oNewValueRow As DataRow In oValueTable.Rows
-    '                        Logger.Debug($"Checking oldValue[{oCurrentValue}] vs NewValue [{oNewValueRow.Item(1)}]")
-
-    '                        If oNewValueRow.Item(1).ToString.ToUpper = oCurrentValue.ToString.ToUpper Then
-    '                            oExists = True
-    '                            Exit For
-    '                        End If
-
-    '                    Next
-    '                    If oExists = False Then
-    '                        Logger.Debug($"Value [{oCurrentValue}] no longer existing in Vector-Attribute [{pAttributeName}] - will be deleted!")
-    '                        DeleteTermObjectFromMetadata(pObjectId, pAttributeName, oCurrentValue.Value)
-    '                    End If
-
-    '                Else
-    '                    Logger.Debug($"Value [{oCurrentValue}] of Attribute [{pAttributeName}] obviously was updated during runtime - will be deleted!")
-    '                    DeleteTermObjectFromMetadata(pObjectId, pAttributeName, oCurrentValue.Value)
-
-    '                End If
-
-    '            End If
-
-    '            For Each oNewValueRow As DataRow In oValueTable.Rows
-    '                Dim oResult As Boolean = NewObjectData(pObjectId, pAttributeName, pValue, New Options.NewObjectOptions With {
-    '                    .Language = pOptions.Language,
-    '                    .Username = pOptions.Username
-    '                })
-
-    '                If oResult = False Then
-    '                    Return False
-    '                End If
-    '            Next
-    '            Return True
-    '        Else
-    '            Return NewObjectData(pObjectId, pAttributeName, pValue, New Options.NewObjectOptions With {
-    '                .Language = pOptions.Language,
-    '                .Username = pOptions.Username
-    '            })
-    '        End If
-
-    '    Catch ex As Exception
-    '        Logger.Error(ex)
-    '        Return False
-    '    End Try
-    'End Function
-
     ''' <summary>
     ''' 
     ''' </summary>