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

MS AdhocWorkflow

Browse Source
This commit is contained in:
SchreiberM
2022-11-17 17:07:33 +01:00
parent 09a61da565
commit 2e0efa7670
16 changed files with 10206 additions and 12913 deletions
Download Patch File Download Diff File Expand all files Collapse all files

92
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@@ -2,6 +2,7 @@
Imports System.Data.SqlClient
Imports System.IO
Imports DD_LIB_Standards
Imports DevExpress.Utils.Frames
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.Grid
@@ -133,7 +134,7 @@ Public Class frmAdministration
' MyIndicies_Types.Add(type)
'Next
Catch ex As Exception
_LOGGER.Error(ex)
_Logger.Error(ex)
MsgBox("Error in GetIndices windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
PM_VEKTOR_INDEXComboBox.SelectedIndex = -1
cmbLOGIndex.SelectedIndex = -1
@@ -168,7 +169,7 @@ Public Class frmAdministration
MyIndicies_Types.Add(type)
Next
Catch ex As Exception
_LOGGER.Error(ex)
_Logger.Error(ex)
MsgBox("Error in GetIndices IDB: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -217,7 +218,7 @@ Public Class frmAdministration
Me.cmbObjekttypen.Items.Add(aType.aName)
Next
Catch ex As Exception
_LOGGER.Error(ex)
_Logger.Error(ex)
MsgBox("Es konnte keine Verbindung zum windream-Server hergestellt werden.", MsgBoxStyle.Critical, "Fehler beim Zugriff auf windream-Server")
End Try
Else
@@ -232,7 +233,13 @@ Public Class frmAdministration
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnWMSuche.Click
If IDB_ACTIVE = True Then
If DISPLAY_MODEComboBox.Text = "AdHoc BlindFile" Then
Dim result As DialogResult = OpenFileDialog1.ShowDialog()
' Test result.
If result = Windows.Forms.DialogResult.OK Then
Me.WD_SEARCHTextBox.Text = OpenFileDialog1.FileName
End If
ElseIf IDB_ACTIVE = True Then
CURRENT_DESIGN_TYPE = "IDB_SEARCH"
Dim oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM) With {
.SQLCommand = Me.WD_SEARCHTextBox.Text,
@@ -255,6 +262,9 @@ Public Class frmAdministration
End If
End If
End Sub
Private Sub btnopenSuche_Click(sender As System.Object, e As System.EventArgs) Handles btnWMopenSuche.Click
@@ -268,7 +278,7 @@ Public Class frmAdministration
p.Close()
End If
Catch ex As Exception
_LOGGER.Error(ex)
_Logger.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei öffnen der windream-Suche:")
End Try
End Sub
@@ -309,7 +319,7 @@ Public Class frmAdministration
Catch ex As Exception
'Profilzuordnung'
_LOGGER.Error(ex)
_Logger.Error(ex)
End Try
End Sub
@@ -337,7 +347,7 @@ Public Class frmAdministration
TBPROFILE_USERTableAdapter.CMDInsert(profileId, userId, USER_USERNAME)
FillProfile_Zuordnung(profileId)
Catch ex As Exception
_LOGGER.Error(ex)
_Logger.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen eines Users:")
End Try
End Sub
@@ -351,7 +361,7 @@ Public Class frmAdministration
TBPROFILE_USERTableAdapter.CmdDelete(profileId, userId)
FillProfile_Zuordnung(profileId)
Catch ex As Exception
_LOGGER.Error(ex)
_Logger.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Entfernen eines Users:")
End Try
End Sub
@@ -367,7 +377,7 @@ Public Class frmAdministration
' TBPROFILE_USERTableAdapter.CMDInsert(profileId, userId, USER_USERNAME)
FillProfile_Zuordnung(profileId)
Catch ex As Exception
_LOGGER.Error(ex)
_Logger.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen einer Gruppe:")
End Try
End Sub
@@ -383,7 +393,7 @@ Public Class frmAdministration
'TBPROFILE_USERTableAdapter.cmdDelete(userId)
FillProfile_Zuordnung(profileId)
Catch ex As Exception
_LOGGER.Error(ex)
_Logger.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Entfernen einer Gruppe:")
End Try
End Sub
@@ -541,7 +551,7 @@ Public Class frmAdministration
SQLconnection.Close()
Return True
Catch ex As Exception
_LOGGER.Error(ex)
_Logger.Error(ex)
MsgBox("Fehler in Execute_SQL: " & vbNewLine & ex.Message & vbNewLine & vbNewLine & " SQL: " & SQL)
Return False
End Try
@@ -583,7 +593,7 @@ Public Class frmAdministration
Try
Me.TBDD_USERTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_USER)
Catch ex As Exception
_LOGGER.Error(ex)
_Logger.Error(ex)
MsgBox("Fehler bei LoadUsers: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler:")
End Try
End Sub
@@ -714,9 +724,9 @@ Public Class frmAdministration
Refresh_Final_indexe()
End If
Catch ex As Exception
_LOGGER.Error(ex)
_Logger.Error(ex)
MsgBox($"Error while loading Final Index properties: {ex.Message}", MsgBoxStyle.Critical)
_LOGGER.Info($"Error while loading Final Index properties: {ex.Message}")
_Logger.Info($"Error while loading Final Index properties: {ex.Message}")
End Try
End Sub
@@ -868,7 +878,7 @@ Public Class frmAdministration
End If
Catch ex As Exception
_LOGGER.Error(ex)
_Logger.Error(ex)
MsgBox("Fehler bei Anlage Profilkopie:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler:")
End Try
@@ -890,7 +900,7 @@ Public Class frmAdministration
End If
Catch ex As Exception
_LOGGER.Error(ex)
_Logger.Error(ex)
MsgBox("Fehler bei Löschen des Profils:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler:")
End Try
@@ -938,12 +948,12 @@ Public Class frmAdministration
End Try
tsbStaticInfo.Caption = $"ProfileData saved - {Now.ToLongTimeString}"
UNSAVED_CHANGES_PROFILE = False
Else
tsbStaticInfo.Caption = ""
UNSAVED_CHANGES_PROFILE = False
Else
tsbStaticInfo.Caption = ""
End If
Catch ex As Exception
_LOGGER.Error(ex)
_Logger.Error(ex)
If ex.Message.Contains("DataTable-Index") = False Then
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Speichern des Profils:")
End If
@@ -958,7 +968,7 @@ Public Class frmAdministration
Try
TBPM_PROFILEBindingSource.AddNew()
Catch ex As Exception
_LOGGER.Error(ex)
_Logger.Error(ex)
End Try
End If
@@ -1001,7 +1011,7 @@ Public Class frmAdministration
End If
Catch ex As Exception
MsgBox("Fehler beim Speichern: " & vbNewLine & vbNewLine & ex.Message)
_LOGGER.Error(ex)
_Logger.Error(ex)
End Try
End Sub
@@ -1116,9 +1126,9 @@ Public Class frmAdministration
End If
Catch ex As Exception
_LOGGER.Error(ex)
_Logger.Error(ex)
MsgBox("Error while Saving Final Index: " & ex.Message, MsgBoxStyle.Critical)
_LOGGER.Info("Error while Saving Final Index: " & ex.Message)
_Logger.Info("Error while Saving Final Index: " & ex.Message)
Finally
BarButtonItem19.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
BarButtonItem16.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
@@ -1151,7 +1161,7 @@ Public Class frmAdministration
End If
Catch ex As Exception
MsgBox("Error in Saving SQL Overview: " & vbNewLine & vbNewLine & ex.Message)
_LOGGER.Error(ex)
_Logger.Error(ex)
End Try
End Sub
@@ -1182,7 +1192,7 @@ Public Class frmAdministration
End If
Catch ex As Exception
MsgBox("Error in Saving Profile SQL: " & vbNewLine & vbNewLine & ex.Message)
_LOGGER.Error(ex)
_Logger.Error(ex)
End Try
End Sub
@@ -1214,7 +1224,7 @@ Public Class frmAdministration
End If
Catch ex As Exception
MsgBox("Error in Saving Profile SQLFinish: " & vbNewLine & vbNewLine & ex.Message)
_LOGGER.Error(ex)
_Logger.Error(ex)
End Try
End Sub
Function CHECK_QUESTION_CHANGES() As Boolean
@@ -1272,7 +1282,7 @@ Public Class frmAdministration
FillProfile_Zuordnung(profileId)
End If
Catch ex As Exception
_LOGGER.Error(ex)
_Logger.Error(ex)
MsgBox($"Error while calling FillProfile_User", MsgBoxStyle.Critical)
End Try
End If
@@ -1524,5 +1534,31 @@ Public Class frmAdministration
EditMode_Profile("Unlock")
End Sub
Private Sub DISPLAY_MODEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DISPLAY_MODEComboBox.SelectedIndexChanged
If DISPLAY_MODEComboBox.SelectedIndex <> -1 Then
If DISPLAY_MODEComboBox.Text = "AdHoc BlindFile" Then
lblSearch.Text = "Select BlindDocument:"
btnWMopenSuche.Visible = False
lblDescription.Text = "Targetpath WM:"
btnofbAHW.Visible = True
Else
btnofbAHW.Visible = False
lblDescription.Text = "Beschreibung:"
If IDB_ACTIVE Then
lblSearch.Text = "SQL-Command:"
Else
lblSearch.Text = "WM-Search:"
End If
btnWMopenSuche.Visible = True
End If
End If
End Sub
Private Sub btnofbAHW_Click(sender As Object, e As EventArgs) Handles btnofbAHW.Click
If Me.FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.DESCRIPTIONTextBox.Text = Me.FolderBrowserDialog1.SelectedPath
End If
End Sub
End Class