TaskFlow/app/DD_PM_WINDREAM/ClassIDBData.vb

Public Class ClassIDBData
    Public DTVWIDB_BE_ATTRIBUTE As DataTable
    ''' <summary>
    ''' Gets all indices by BusinessEntity.
    ''' </summary>
    ''' <param name="BusinessEntity">Title of Business Entity</param>
    ''' <returns>Array with all Indices</returns>
    ''' <remarks></remarks>
    Public Function Init()
        Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE"
        DTVWIDB_BE_ATTRIBUTE = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB)
    End Function
    Public Function GetIndicesByBE(ByVal BusinessEntity As String) As String()
        Try
            ' Array für Indizes vorbereiten
            Dim aIndexNames(DTVWIDB_BE_ATTRIBUTE.Rows.Count) As String
            Dim oCount As Integer = 0
            aIndexNames(oCount) = "ObjectID"
            For Each oRow As DataRow In DTVWIDB_BE_ATTRIBUTE.Rows
                oCount += 1
                aIndexNames(oCount) = oRow.Item("ATTR_TITLE")

            Next


            ' Indexarray sortiert zurückgeben
            Array.Sort(aIndexNames)
            ' Indexarray zurückgeben
            Return aIndexNames

        Catch ex As Exception
            LOGGER.Error(ex)
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error getting the IDB Indicies")
            Return Nothing
        End Try
    End Function
    Public Function GetTypeOfIndex(ByVal indexname As String) As Integer
        Try
            For Each oRow As DataRow In DTVWIDB_BE_ATTRIBUTE.Rows
                If oRow.Item("ATTR_TITLE") = indexname Then
                    Dim oType = oRow.Item("TYP_ID")
                    Return oType
                End If
            Next

        Catch ex As Exception
            LOGGER.Error(ex)
            Return Nothing
        End Try

    End Function
    Public Function GetVariableValue(oAttributeName As String) As Object
        Try
            Dim oAttributeValue
            Dim oFNSQL = $"SELECT * FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({CURRENT_DOC_ID},'{oAttributeName}','{USER_LANGUAGE}',CONVERT(BIT,'{IDB_USES_WMFILESTORE}'))"
            oAttributeValue = ClassDatabase.Return_Datatable_ConStr(oFNSQL, CONNECTION_STRING_IDB)
            Dim odt As DataTable = oAttributeValue
            If odt.Rows.Count = 1 Then
                oAttributeValue = odt.Rows(0).Item(0)
            End If
            Return oAttributeValue
        Catch ex As Exception
            LOGGER.Error(ex)
            Return Nothing
        End Try

    End Function
    Public Function Delete_Term_Object_From_Metadata(oAttributeName As String, oTerm2Delete As String) As Object
        Try
            Dim oAttributeValue
            Dim oID_IS_FOREIGN As Integer
            oID_IS_FOREIGN = 0
            If IDB_USES_WMFILESTORE Then
                oID_IS_FOREIGN = 1
            End If
            Dim oDELSQL = $"EXEC PRIDB_DELETE_TERM_OBJECT_METADATA {CURRENT_DOC_ID},'{oAttributeName}','{oTerm2Delete}','{USER_USERNAME}','{USER_LANGUAGE}',{oID_IS_FOREIGN}"
            ClassDatabase.Execute_non_Query_ConStr(oDELSQL, CONNECTION_STRING_IDB)

        Catch ex As Exception
            LOGGER.Error(ex)
            Return Nothing
        End Try

    End Function

    Public Function SetVariableValue(oAttributeName As String, oNewValue As Object, Optional CheckDeleted As Boolean = False)
        Try
            Dim omytype = oNewValue.GetType.ToString
            If omytype = "System.Data.DataTable" Then
                Dim oDTMyNewValues As DataTable = oNewValue

                If CheckDeleted = True Then
                    Dim oOldAttributeResult = GetVariableValue(oAttributeName)
                    Dim oTypeOldResult = oOldAttributeResult.GetType.ToString
                    If oTypeOldResult = "System.Data.DataTable" Then
                        Dim myOldValues As DataTable = oOldAttributeResult
                        If myOldValues.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 oOldValueRow As DataRow In myOldValues.Rows
                                Dim oExists As Boolean = False
                                For Each oNewValueRow As DataRow In oDTMyNewValues.Rows
                                    Dim oInfo1 = $"Checking oldValue[{oOldValueRow.Item(0)}] vs NewValue [{oNewValueRow.Item(1)}]"
                                    If oNewValueRow.Item(1).ToString.ToUpper = oOldValueRow.Item(0).ToString.ToUpper Then
                                        oExists = True
                                        Exit For
                                    End If
                                Next

                                If oExists = False Then
                                    Dim oInfo = $"Value [{oOldValueRow.Item(0)}] no longer existing in Vector-Attribute [{oAttributeName}]"
                                    LOGGER.Info(oInfo)
                                    Delete_Term_Object_From_Metadata(oAttributeName, oOldValueRow.Item(0))
                                End If

                            Next
                        End If
                    End If
                End If


                For Each oNewValueRow As DataRow In oDTMyNewValues.Rows
                    Dim oSuccess As Boolean = False
                    Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {CURRENT_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValueRow.Item(1).ToString}','{USER_LANGUAGE}',{CURRENT_DOC_ID},@OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
                    oSuccess = ClassDatabase.Execute_non_Query_ConStr(oFNSQL, CONNECTION_STRING_IDB)
                    If oSuccess = False Then
                        Return False
                    End If
                Next
                Return True
            Else
                Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {CURRENT_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValue}','{USER_LANGUAGE}',{CURRENT_DOC_ID},@OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
                Return ClassDatabase.Execute_non_Query_ConStr(oFNSQL, CONNECTION_STRING_IDB)
            End If

        Catch ex As Exception
            LOGGER.Error(ex)
            Return False
        End Try
    End Function
End Class