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

MS Adding documents

Browse Source
This commit is contained in:
Developer01 2025-01-30 15:13:58 +01:00
parent f05f6d46f8
commit 1cd24f6637
10 changed files with 76 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD-Record-Organizer/Classes/ClassFolderWatcher.vb
View File

@ -87,7 +87,7 @@ Public Class ClassFolderWatcher
'Die Datei übergeben 'Die Datei übergeben
LOGGER.Debug("OnCreated-File:" & e.FullPath) LOGGER.Debug("OnCreated-File:" & e.FullPath)
If FileExistsinDropTable(CURRENT_FILENAME) = False Then If FileExistsinDropTable(CURRENT_FILENAME) = False Then
Insert_USER_File(e.FullPath, handleType) ClassHelper.Insert_USER_File(e.FullPath, handleType)
Else Else
Console.WriteLine("File existiert bereits") Console.WriteLine("File existiert bereits")
End If End If
@ -111,16 +111,6 @@ Public Class ClassFolderWatcher
End Try End Try
End Function End Function
Public Shared Function Insert_USER_File(filename As String, handleType As String)
Try
Dim filename_only As String = Path.GetFileName(filename)
Dim ins As String = String.Format("INSERT INTO TBPMO_FILES_USER (FILENAME2WORK, USER_WORK,HANDLE_TYPE,FILENAME_ONLY) VALUES ('{0}','{1}','{2}','{3}')", filename, USER_USERNAME, handleType, filename_only)
Return MYDB_ECM.ExecuteNonQuery(ins)
Catch ex As Exception
MsgBox("Unexpected Error in Insert Scan-File: " & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
Public Shared Function DELETE_SCAN_File(filename As String) Public Shared Function DELETE_SCAN_File(filename As String)
Try Try
Dim filename_only As String = Path.GetFileName(filename) Dim filename_only As String = Path.GetFileName(filename)

10
app/DD-Record-Organizer/Classes/ClassHelper.vb
View File

@ -446,4 +446,14 @@ Public Class ClassHelper
Return False Return False
End Try End Try
End Function End Function
Public Shared Function Insert_USER_File(filename As String, handleType As String)
Try
Dim filename_only As String = Path.GetFileName(filename)
Dim ins As String = String.Format("INSERT INTO TBPMO_FILES_USER (FILENAME2WORK, USER_WORK,HANDLE_TYPE,FILENAME_ONLY) VALUES ('{0}','{1}','{2}','{3}')", filename, USER_USERNAME, handleType, filename_only)
Return MYDB_ECM.ExecuteNonQuery(ins)
Catch ex As Exception
MsgBox("Unexpected Error in Insert Scan-File: " & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
End Class End Class

52
app/DD-Record-Organizer/Classes/ClassWDRights.vb
View File

@ -86,10 +86,10 @@ Public Class ClassWDRights
If Not IsNothing(oSession) Then If Not IsNothing(oSession) Then
LOGGER.Debug("Session created.") LOGGER.Debug("Session created.")
Dim sql = String.Format("SELECT * FROM [dbo].[FNPMO_GET_RIGHTS_FOR_DOC] ({0}) where USER_OR_GROUP = 'USER'", doc_id) Dim oSql = String.Format("SELECT * FROM [dbo].[FNPMO_GET_RIGHTS_FOR_DOC] ({0},{1}) where USER_OR_GROUP = 'USER'", doc_id, CURRENT_ENTITY_ID)
DT_USER_RIGHT = MYDB_ECM.GetDatatable(sql) DT_USER_RIGHT = MYDB_ECM.GetDatatable(oSql)
sql = String.Format("SELECT * FROM [dbo].[FNPMO_GET_RIGHTS_FOR_DOC] ({0}) where USER_OR_GROUP = 'GROUP'", doc_id) oSql = String.Format("SELECT * FROM [dbo].[FNPMO_GET_RIGHTS_FOR_DOC] ({0},{1}) where USER_OR_GROUP = 'GROUP'", doc_id, CURRENT_ENTITY_ID)
DT_GROUP_RIGHT = MYDB_ECM.GetDatatable(sql) DT_GROUP_RIGHT = MYDB_ECM.GetDatatable(oSql)
If IsNothing(DT_USER_RIGHT) Then If IsNothing(DT_USER_RIGHT) Then
Dim msg = "Error while receiving rights for DocID" Dim msg = "Error while receiving rights for DocID"
LOGGER.Warn(msg) LOGGER.Warn(msg)
@ -127,6 +127,11 @@ Public Class ClassWDRights
End If End If
'############################# Rechte löschen ################################################################################ '############################# Rechte löschen ################################################################################
'############################################################################################################################# '#############################################################################################################################
If Not (DT_USER_RIGHT.Rows.Count > 0 Or DT_GROUP_RIGHT.Rows.Count > 0) Then
LOGGER.Warn("ONLY FOLDERRIGHTS WILL BE USED, AS NO RIGHTS WERE FOUND!")
Return True
End If
If deleterights = True Then If deleterights = True Then
LOGGER.Debug("rights for document will now be deleted.") LOGGER.Debug("rights for document will now be deleted.")
'Erst einmal alle anderen Rechte löschen 'Erst einmal alle anderen Rechte löschen
@ -151,7 +156,7 @@ Public Class ClassWDRights
Else Else
_msg = "Right for User: '" & UserOrGroup.aName & "'""" _msg = "Right for User: '" & UserOrGroup.aName & "'"""
End If End If
LOGGER.Debug(String.Format("[{0}] will now be deleted.", _msg)) LOGGER.Debug(String.Format("[{0}] will now be deleted ...", _msg))
If Err.Number <> 0 Then If Err.Number <> 0 Then
Dim msg = "Error in setting UserGroupRelation - Err.Number: " & Err.Number & vbCrLf & Err.Description Dim msg = "Error in setting UserGroupRelation - Err.Number: " & Err.Number & vbCrLf & Err.Description
LOGGER.Warn(msg) LOGGER.Warn(msg)
@ -169,9 +174,10 @@ Public Class ClassWDRights
End Try End Try
i += 1 i += 1
_msg = _msg.Replace(" '", "") _msg = _msg.Replace(" '", "")
LOGGER.Debug(String.Format("{0} was deleted.", _msg)) LOGGER.Debug(String.Format("{0} has been deleted!", _msg))
Next Next
LOGGER.Debug("All rights for doc were deleted....") LOGGER.Debug("All rights for doc were deleted!")
LOGGER.Debug("================================")
End If End If
Err.Clear() Err.Clear()
@ -179,29 +185,30 @@ Public Class ClassWDRights
' dann muss mindestens EIN Rechteträger mit dem Recht zur Rechteänderung ' dann muss mindestens EIN Rechteträger mit dem Recht zur Rechteänderung
' wieder zugefügt werden!!!!! Dies ist der OrgFlow-Right User! ' wieder zugefügt werden!!!!! Dies ist der OrgFlow-Right User!
'Für jeden User das Recht einzeln hinzufügen 'Für jeden User das Recht einzeln hinzufügen
LOGGER.Debug("Nun hinzufügen von User-Rechten ...")
For Each User_Row As DataRow In DT_USER_RIGHT.Rows For Each User_Row As DataRow In DT_USER_RIGHT.Rows
Dim fileright 'Recht als Integer Dim ofilerightfromFunc 'Recht als Integer
Dim StringUserRight Dim oFileRightString
oFileRightString = AD_DOMAIN & "\" & User_Row.Item("USR_NAME")
ofilerightfromFunc = User_Row.Item("USR_RIGHT")
Try Try
StringUserRight = AD_DOMAIN & "\" & User_Row.Item("USR_NAME") LOGGER.Debug(String.Format("Working on right for user-right: {0}-{1}", oFileRightString, ofilerightfromFunc))
fileright = User_Row.Item("USR_RIGHT")
LOGGER.Debug(String.Format("Working on right for user-right: {0}-{1}", StringUserRight, fileright))
Try Try
' User holen ' User holen
oUSer = oSession.GetWMObjectByName(WMEntityUser, StringUserRight) oUSer = oSession.GetWMObjectByName(WMEntityUser, oFileRightString)
LOGGER.Debug("got oUSer...") LOGGER.Debug("got oUSer...")
Catch ex As Exception Catch ex As Exception
Dim msg = String.Format("Could not create windream-Usersession for user '{0}' - check whether user is part of windream-group!", StringUserRight) Dim msg = String.Format("Could not create windream-Usersession for user '{0}' - check whether user is part of windream-group!", oFileRightString)
LOGGER.Warn(msg) LOGGER.Warn(msg)
MSG_RESULT &= msg & vbNewLine MSG_RESULT &= msg & vbNewLine
Continue For Continue For
End Try End Try
If Not IsNothing(oUSer) Then If Not IsNothing(oUSer) Then
Try Try
AccessRights.Insert2(oUSer, fileright) 'WMAccessRightAllRights) AccessRights.Insert2(oUSer, ofilerightfromFunc) 'WMAccessRightAllRights)
LOGGER.Debug("Right was set...") LOGGER.Debug("==> Right was set!")
Catch ex As Exception Catch ex As Exception
Dim msg = String.Format("Could not set right for user {0} - AccessRights.Insert2: {1}", StringUserRight, ex.Message) Dim msg = String.Format("Could not set right for user {0} - AccessRights.Insert2: {1}", oFileRightString, ex.Message)
LOGGER.Warn(msg) LOGGER.Warn(msg)
Continue For Continue For
End Try End Try
@ -209,7 +216,7 @@ Public Class ClassWDRights
Catch ex As Exception Catch ex As Exception
Dim _right Dim _right
Select Case fileright Select Case ofilerightfromFunc
Case WMAccessRightRead Case WMAccessRightRead
_right = "READ" _right = "READ"
Case WMAccessRightWrite Case WMAccessRightWrite
@ -221,13 +228,14 @@ Public Class ClassWDRights
Case WMAccessRightReadWrite Case WMAccessRightReadWrite
_right = "READ WRITE" _right = "READ WRITE"
End Select End Select
MSG_RESULT &= String.Format("Error while working on RightChange:" & vbNewLine & "Fileright: {0}" & vbNewLine & "User: {1} " & vbNewLine & "File: {2}", _right, StringUserRight, reldocpath) & vbNewLine MSG_RESULT &= String.Format("Error while working on RightChange:" & vbNewLine & "Fileright: {0}" & vbNewLine & "User: {1} " & vbNewLine & "File: {2}", _right, oFileRightString, reldocpath) & vbNewLine
LOGGER.Warn(ex.Message) LOGGER.Warn(ex.Message)
End Try End Try
Next Next
'Für jede Gruppe das Recht einzeln hinzufügen
'Für jede Gruppe das Recht einzeln hinzufügen
LOGGER.Debug("Nun hinzufügen von Gruppen-Rechten ...")
For Each Group_Row As DataRow In DT_GROUP_RIGHT.Rows For Each Group_Row As DataRow In DT_GROUP_RIGHT.Rows
Dim fileright 'Recht als Integer Dim fileright 'Recht als Integer
Dim StringGroupRight Dim StringGroupRight
@ -235,7 +243,7 @@ Public Class ClassWDRights
Try Try
StringGroupRight = AD_DOMAIN & "\" & Group_Row.Item("USR_NAME") StringGroupRight = AD_DOMAIN & "\" & Group_Row.Item("USR_NAME")
fileright = Group_Row.Item("USR_RIGHT") fileright = Group_Row.Item("USR_RIGHT")
LOGGER.Debug(String.Format("Working on right for group-right: {0}-{1}", StringGroupRight, fileright)) LOGGER.Debug(String.Format("Working on right for group-right: {0}-{1} ...", StringGroupRight, fileright))
Try Try
' User holen ' User holen
_oGroup = oSession.GetWMObjectByName(WMEntityGroups, StringGroupRight) _oGroup = oSession.GetWMObjectByName(WMEntityGroups, StringGroupRight)
@ -250,7 +258,7 @@ Public Class ClassWDRights
If Not IsNothing(_oGroup) Then If Not IsNothing(_oGroup) Then
Try Try
AccessRights.Insert2(_oGroup, fileright) 'WMAccessRightAllRights) AccessRights.Insert2(_oGroup, fileright) 'WMAccessRightAllRights)
LOGGER.Debug("Right was set...") LOGGER.Debug("==> Right was set!")
Catch ex As Exception Catch ex As Exception
Dim msg = String.Format("Could not set right for docID: {0} group {1} - AccessRights.Insert2: {2}", doc_id, StringGroupRight, ex.Message) Dim msg = String.Format("Could not set right for docID: {0} group {1} - AccessRights.Insert2: {2}", doc_id, StringGroupRight, ex.Message)
LOGGER.Warn(msg) LOGGER.Warn(msg)

2
app/DD-Record-Organizer/My Project/AssemblyInfo.vb
View File

@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.2.0.0")> <Assembly: AssemblyVersion("3.3.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")> <Assembly: NeutralResourcesLanguageAttribute("")>

2
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@ -4621,7 +4621,7 @@ Public Class frmConstructor_Main
MsgBox("File contains invalid operator '!" & vbNewLine & "Please rename file and try again!", MsgBoxStyle.Exclamation) MsgBox("File contains invalid operator '!" & vbNewLine & "Please rename file and try again!", MsgBoxStyle.Exclamation)
Continue For Continue For
End If End If
ClassFolderWatcher.Insert_USER_File(CURRENT_WORKFILE, DropType) ClassHelper.Insert_USER_File(CURRENT_WORKFILE, DropType)
End If End If
End If End If
Next Next

2
app/DD-Record-Organizer/frmNodeNavigation.vb
View File

@ -2117,7 +2117,7 @@ Public Class frmNodeNavigation
MsgBox("File contains invalid operator '!" & vbNewLine & "Please rename file and try again!", MsgBoxStyle.Exclamation) MsgBox("File contains invalid operator '!" & vbNewLine & "Please rename file and try again!", MsgBoxStyle.Exclamation)
Continue For Continue For
End If End If
ClassFolderWatcher.Insert_USER_File(CURRENT_WORKFILE, DropType) ClassHelper.Insert_USER_File(CURRENT_WORKFILE, DropType)
End If End If
End If End If
Next Next

7
app/DD-Record-Organizer/frmRecOrgConfig_Basic.vb
View File

@ -168,6 +168,11 @@ Public Class frmRecOrgConfig_Basic
Dim oWMMOD As DigitalData.Modules.Windream.Windream = New DigitalData.Modules.Windream.Windream(LOGCONFIG, False, WMDriveLetter, WMPATH_PREFIX, True, Me.txtServername.Text, Me.txtUser.Text, Me.txtPW.Text, Me.txtDomäne.Text) Dim oWMMOD As DigitalData.Modules.Windream.Windream = New DigitalData.Modules.Windream.Windream(LOGCONFIG, False, WMDriveLetter, WMPATH_PREFIX, True, Me.txtServername.Text, Me.txtUser.Text, Me.txtPW.Text, Me.txtDomäne.Text)
If Not IsNothing(oWMMOD) Then If Not IsNothing(oWMMOD) Then
MsgBox("The persionalized connection to windream was created successfully!", MsgBoxStyle.Information) MsgBox("The persionalized connection to windream was created successfully!", MsgBoxStyle.Information)
Dim oresult As MsgBoxResult
Dim msg = "The persionalized connection to windream was created successfully! Do You want to save this configuration?"
oresult = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If oresult = MsgBoxResult.Yes Then
Dim wrapper As New ClassEncryption("!35452didalog=") Dim wrapper As New ClassEncryption("!35452didalog=")
Dim cipherText As String = wrapper.EncryptData(Me.txtPW.Text) Dim cipherText As String = wrapper.EncryptData(Me.txtPW.Text)
Dim pw As String = cipherText Dim pw As String = cipherText
@ -175,6 +180,8 @@ Public Class frmRecOrgConfig_Basic
Dim upd = String.Format("UPDATE TBPMO_SERVICE_RIGHT_CONFIG SET AD_DOMAIN = '{0}', AD_USER = '{1}', AD_USER_PW = '{2}', AD_SERVER = '{3}', CHANGED_WHO = '{4}' WHERE GUID = 1", Me.txtDomäne.Text, Me.txtUser.Text, pw, Me.txtServername.Text, USER_USERNAME) Dim upd = String.Format("UPDATE TBPMO_SERVICE_RIGHT_CONFIG SET AD_DOMAIN = '{0}', AD_USER = '{1}', AD_USER_PW = '{2}', AD_SERVER = '{3}', CHANGED_WHO = '{4}' WHERE GUID = 1", Me.txtDomäne.Text, Me.txtUser.Text, pw, Me.txtServername.Text, USER_USERNAME)
MYDB_ECM.ExecuteNonQuery(upd) MYDB_ECM.ExecuteNonQuery(upd)
btnsave.Enabled = False btnsave.Enabled = False
End If
Else Else
MsgBox("The persionalized connection to windream could NOT be created." & vbNewLine & "Please check the User-Data!", MsgBoxStyle.Critical) MsgBox("The persionalized connection to windream could NOT be created." & vbNewLine & "Please check the User-Data!", MsgBoxStyle.Critical)
End If End If

2
app/DD-Record-Organizer/frmScanFiles.vb
View File

@ -48,7 +48,7 @@ Public Class frmScanFiles
Else Else
handletype = "SCAN" handletype = "SCAN"
End If End If
ClassFolderWatcher.Insert_USER_File(fri.FullName, handletype) ClassHelper.Insert_USER_File(fri.FullName, handletype)
End If End If
Next fri Next fri
ClassFolderWatcher.Check_Scan_Files() ClassFolderWatcher.Check_Scan_Files()

3
app/DD-Record-Organizer/frmWM_IndexFile.vb
View File

@ -37,6 +37,8 @@ Public Class frmWM_IndexFile
Try Try
CURRENT_DOC_ID = Nothing CURRENT_DOC_ID = Nothing
Dim odeleteRights As Boolean = True Dim odeleteRights As Boolean = True
Dim oSQL = $"SELECT GUID FROM TBPMO_FILES_USER WHERE FILENAME2WORK = '{ImportFilePath}' AND WORKED = 0 AND USER_WORK = '{Environment.UserName}'"
CURRENT_FILEID = MYDB_ECM.GetScalarValue(oSQL)
CURRENT_DOKARTSTRING = vDokart CURRENT_DOKARTSTRING = vDokart
Dim err As Boolean = False Dim err As Boolean = False
@ -293,6 +295,7 @@ Public Class frmWM_IndexFile
ClassFileResult.DocID = CURRENT_DOC_ID ClassFileResult.DocID = CURRENT_DOC_ID
ClassFileResult.SET_DOCID_INDICES() ClassFileResult.SET_DOCID_INDICES()
If ClassDOC_SEARCH.CREATE_DOC_RELATED_LINKS(CURRENT_DOC_ID, CURRENT_RECORD_ID) = False Then If ClassDOC_SEARCH.CREATE_DOC_RELATED_LINKS(CURRENT_DOC_ID, CURRENT_RECORD_ID) = False Then
stg = "Unerwarteter Fehler: Der Record-Link konnte nicht erzeugt werden! Überprüfen Sie das Log." stg = "Unerwarteter Fehler: Der Record-Link konnte nicht erzeugt werden! Überprüfen Sie das Log."
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
stg = "Unexpected Error: Could not create the recordlink! Please check the log." stg = "Unexpected Error: Could not create the recordlink! Please check the log."

23
app/Setup_NoUpdaterVS19/Product.wxs
View File

@ -111,13 +111,13 @@
<!-- WINDREAM Bibliotheken --> <!-- WINDREAM Bibliotheken -->
<Component Id="WindreamLibs" Guid="4D11FC99-50D9-4E54-B18A-8885C9112646"> <Component Id="WindreamLibs" Guid="4D11FC99-50D9-4E54-B18A-8885C9112646">
<File Id="INDEXLibDLL" Name="AxInterop.INDEXLib.dll" Source="..\..\..\..\..\DD3rdPartyLibs\Windream\AxInterop.INDEXLib.dll" KeyPath="yes" /> <File Id="INDEXLibDLL" Name="AxInterop.INDEXLib.dll" Source="P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\TEST\DD3rdPartyLibs\Windream\AxInterop.INDEXLib.dll" KeyPath="yes" />
<File Id="AxOBJECTLISTCONTROLLibDLL" Name="AxInterop.OBJECTLISTCONTROLLib.dll" Source="..\..\..\..\..\DD3rdPartyLibs\Windream\AxInterop.OBJECTLISTCONTROLLib.dll" KeyPath="no" /> <File Id="AxOBJECTLISTCONTROLLibDLL" Name="AxInterop.OBJECTLISTCONTROLLib.dll" Source="P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\TEST\DD3rdPartyLibs\\Windream\AxInterop.OBJECTLISTCONTROLLib.dll" KeyPath="no" />
<File Id="OBJECTLISTCONTROLLibDLL" Name="Interop.OBJECTLISTCONTROLLib.dll" Source="..\..\..\..\..\DD3rdPartyLibs\Windream\Interop.OBJECTLISTCONTROLLib.dll" KeyPath="no" /> <File Id="OBJECTLISTCONTROLLibDLL" Name="Interop.OBJECTLISTCONTROLLib.dll" Source="P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\TEST\DD3rdPartyLibs\Windream\Interop.OBJECTLISTCONTROLLib.dll" KeyPath="no" />
<File Id="WINDREAMLibDLL" Name="Interop.WINDREAMLib.dll" Source="..\..\..\..\..\DD3rdPartyLibs\Windream\Interop.WINDREAMLib.dll" KeyPath="no" /> <File Id="WINDREAMLibDLL" Name="Interop.WINDREAMLib.dll" Source="P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\TEST\DD3rdPartyLibs\Windream\Interop.WINDREAMLib.dll" KeyPath="no" />
<File Id="WMOTOOLLib" Name="Interop.WMOTOOLLib.dll" Source="..\..\..\..\..\DD3rdPartyLibs\Windream\Interop.WMOTOOLLib.dll" KeyPath="no" /> <File Id="WMOTOOLLib" Name="Interop.WMOTOOLLib.dll" Source="P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\TEST\DD3rdPartyLibs\Windream\Interop.WMOTOOLLib.dll" KeyPath="no" />
<File Id="WMOBRWSLib" Name="Interop.WMOBRWSLib.dll" Source="..\..\..\..\..\DD3rdPartyLibs\Windream\Interop.WMOBRWSLib.dll" KeyPath="no" /> <File Id="WMOBRWSLib" Name="Interop.WMOBRWSLib.dll" Source="P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\TEST\DD3rdPartyLibs\Windream\Interop.WMOBRWSLib.dll" KeyPath="no" />
<File Id="WMOSRCHLib" Name="Interop.WMOSRCHLib.dll" Source="..\..\..\..\..\DD3rdPartyLibs\Windream\Interop.WMOSRCHLib.dll" KeyPath="no" /> <File Id="WMOSRCHLib" Name="Interop.WMOSRCHLib.dll" Source="P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\TEST\DD3rdPartyLibs\Windream\Interop.WMOSRCHLib.dll" KeyPath="no" />
</Component> </Component>
<!-- Oracle-Bibliothek --> <!-- Oracle-Bibliothek -->
@ -149,6 +149,7 @@
<File Id="OfficeLib" Name="Office.dll" Source="C:\Windows\assembly\GAC_MSIL\Office\15.0.0.0__71e9bce111e9429c\Office.dll" KeyPath="yes" /> <File Id="OfficeLib" Name="Office.dll" Source="C:\Windows\assembly\GAC_MSIL\Office\15.0.0.0__71e9bce111e9429c\Office.dll" KeyPath="yes" />
<File Id="Microsoft.Office.Interop.Outlook" Name="Microsoft.Office.Interop.Outlook.dll" Source="C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Outlook\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Outlook.dll" KeyPath="no" /> <File Id="Microsoft.Office.Interop.Outlook" Name="Microsoft.Office.Interop.Outlook.dll" Source="C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Outlook\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Outlook.dll" KeyPath="no" />
<File Id="Microsoft.Office.Interop.Word" Name="Microsoft.Office.Interop.Word.dll" Source="C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Word\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Word.dll" KeyPath="no" /> <File Id="Microsoft.Office.Interop.Word" Name="Microsoft.Office.Interop.Word.dll" Source="C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Word\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Word.dll" KeyPath="no" />
<File Id="InteropServices.RuntimeInformation" Name="System.Runtime.InteropServices.RuntimeInformation.dll" Source="System.Runtime.InteropServices.RuntimeInformation.dll" KeyPath="no" />
</Component> </Component>
<!-- MAIL.NET Bibliothek --> <!-- MAIL.NET Bibliothek -->
@ -174,10 +175,10 @@
<!-- GDPicture --> <!-- GDPicture -->
<Component Id="GDPictureLibs" Guid="9ea5ab43-58ff-4813-9a8b-f854784f0275"> <Component Id="GDPictureLibs" Guid="9ea5ab43-58ff-4813-9a8b-f854784f0275">
<File Id="GdPicture.NET.14" Name="GdPicture.NET.14.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll" KeyPath="yes" /> <File Id="GdPicture.NET.14" Name="GdPicture.NET.14.dll" KeyPath="yes" />
<File Id="GdPicture.NET.14.filters" Name="GdPicture.NET.14.filters.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.filters.dll" /> <File Id="GdPicture.NET.14.filters" Name="GdPicture.NET.14.filters.dll" />
<File Id="GdPicture.NET.14.image" Name="GdPicture.NET.14.image.gdimgplug.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.image.gdimgplug.dll" /> <File Id="GdPicture.NET.14.image" Name="GdPicture.NET.14.image.gdimgplug.dll" />
<File Id="GdPicture.NET.14.Imaging" Name="GdPicture.NET.14.Imaging.Rendering.Skia.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.Imaging.Rendering.Skia.dll" /> <File Id="GdPicture.NET.14.Imaging" Name="GdPicture.NET.14.Imaging.Rendering.Skia.dll" />
</Component> </Component>
<!-- DEVEXPRESS Bibliotheken --> <!-- DEVEXPRESS Bibliotheken -->