Referenzen glattgezogen und MSI Paket neu konfiguriert

This commit is contained in:
Developer01
2026-05-04 14:35:33 +02:00
parent 45159b9ffc
commit bc75ea0d55
24 changed files with 528 additions and 222 deletions

View File

@@ -1,5 +1,4 @@
Imports DD_LIB_Standards
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Controls
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
@@ -40,7 +39,7 @@ Public Class ctrlApplicationAssignment
SelectedProfileId = ProfileId
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
@@ -49,7 +48,7 @@ Public Class ctrlApplicationAssignment
TBCW_PROFILE_PROCESSTableAdapter.Fill(MyDataset.TBCW_PROFILE_PROCESS, ProfileId)
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
@@ -85,7 +84,7 @@ Public Class ctrlApplicationAssignment
Process_Load(SelectedProfileId)
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
Else
@@ -104,7 +103,7 @@ Public Class ctrlApplicationAssignment
Return False
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
@@ -115,7 +114,7 @@ Public Class ctrlApplicationAssignment
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
@@ -155,7 +154,7 @@ Public Class ctrlApplicationAssignment
Window_Load()
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
Else
@@ -174,7 +173,7 @@ Public Class ctrlApplicationAssignment
Return False
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
@@ -191,7 +190,7 @@ Public Class ctrlApplicationAssignment
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
@@ -203,13 +202,13 @@ Public Class ctrlApplicationAssignment
If oRow IsNot Nothing Then
Dim oRegex = oRow.Item("REGEX")
Dim oForm As New frmRegexEditor(oRegex)
Dim oForm As New DigitalData.Controls.RegexEditor.frmRegexEditor(oRegex)
If oForm.ShowDialog() = DialogResult.OK Then
oRow.Item("REGEX") = oForm.RegexString
End If
End If
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
@@ -220,7 +219,7 @@ Public Class ctrlApplicationAssignment
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
@@ -254,7 +253,7 @@ Public Class ctrlApplicationAssignment
Control_Load()
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
Else
@@ -344,7 +343,7 @@ Public Class ctrlApplicationAssignment
Control_Load()
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
Else
@@ -363,7 +362,7 @@ Public Class ctrlApplicationAssignment
Return True
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function
@@ -379,7 +378,7 @@ Public Class ctrlApplicationAssignment
Return False
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
Return False
End Try
End Function