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

MS

Browse Source
This commit is contained in:
SchreiberM
2022-06-09 16:42:40 +02:00
parent 8af73bd7d7
commit b263d7d70e
7 changed files with 208 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Service.EDMIService/IDB/Helpers.vb
View File

@@ -189,9 +189,13 @@ Namespace IDB
Next
End Sub
Public Function NewDynamicFolderForObject(pObjectId As Long, pFolder As String, pWho As String, pLangID As Integer) As Boolean
Public Function NewDynamicFolderForObject(pObjectId As Long, pFolder As String, pWho As String, pLangID As Integer, pLangCode As String) As Boolean
Logger.Info("Setting Dynamic Folder [{0}]", pFolder)
Dim oSql = $"
DECLARE @NEW_OBJ_MD_ID BIGINT
EXEC PRIDB_NEW_OBJ_DATA {pObjectId}, 'VIRTUAL_FOLDER', '{pWho}', 'pFolder', '{pLangCode}', 0, @OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
Database.ExecuteNonQuery(oSql)
oSql = $"
DECLARE @LAST_SN_ID BIGINT
EXEC PRIDB_NEW_DYNAMIC_FOLDER '{pFolder}','{pWho}',1,@LAST_SN_ID OUTPUT
SELECT @LAST_SN_ID"
@@ -199,7 +203,7 @@ Namespace IDB
oNodeID = Database.GetScalarValue(oSql)
If IsNothing(oNodeID) = False Then
oSql = $"DECLARE @LAST_SN_ID BIGINT
PRIDB_NEW_STUCTURE_NODE_FOR_OBJECT {pObjectId}',{oNodeID},'{pWho}',{pLangID}, @LAST_SN_ID OUTPUT"
EXEC PRIDB_NEW_STUCTURE_NODE_FOR_OBJECT {pObjectId},{oNodeID},'{pWho}',{pLangID}, @LAST_SN_ID OUTPUT"
If Database.ExecuteNonQuery(oSql) = False Then
Logger.Warn("Error while setting Dynamic Folder.")
Return False

6
Service.EDMIService/Methods/GlobalIndexer/ImportFile/ImportFileMethod.vb
View File

@@ -110,7 +110,11 @@ Namespace Methods.GlobalIndexer.ImportFile
Dim oDynamicFilePath = GetVirtualPath(
pData.File.FileInfoRaw, oProfile.DynamicPath, User, oUserAttributes, oAutoAttributes)
Helpers.NewDynamicFolderForObject(oResponse.ObjectId, oProfile.DynamicPath, User.UserName, User.LanguageId)
If oProfile.DynamicPath <> String.Empty Then
Logger.Info("Generating DynamicPath for ObjectId [{0}]", oResponse.ObjectId)
Helpers.NewDynamicFolderForObject(oResponse.ObjectId, oProfile.DynamicPath, User.UserName, User.LanguageId, User.Language)
End If
Logger.Info("Collecting Attributes for ObjectId [{0}]", oResponse.ObjectId)

2
Service.EDMIService/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.4.4.0")>
<Assembly: AssemblyVersion("2.4.5.0")>
<Assembly: AssemblyFileVersion("2.4.4.0")>