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

MS Button und IDB Logik

Browse Source
This commit is contained in:
SchreiberM 2019-11-20 16:19:22 +01:00
parent 8b9b409769
commit 3508aa486c
15 changed files with 706 additions and 649 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
app/DD_PM_WINDREAM/ClassControlCreator.vb
View File

@ -288,6 +288,7 @@ Public Class ClassControlCreator
oControl.Text = row.Item("CTRL_TEXT") oControl.Text = row.Item("CTRL_TEXT")
oControl.Height = row.Item("HEIGHT") oControl.Height = row.Item("HEIGHT")
oControl.Width = row.Item("WIDTH") oControl.Width = row.Item("WIDTH")
If Not IsNothing(ctrl_image) And Not IsNothing(oBitmap) Then If Not IsNothing(ctrl_image) And Not IsNothing(oBitmap) Then
oControl.Image = oBitmap oControl.Image = oBitmap
oControl.ImageAlign = ContentAlignment.MiddleLeft oControl.ImageAlign = ContentAlignment.MiddleLeft

6
app/DD_PM_WINDREAM/ClassIDBData.vb
View File

@ -13,11 +13,13 @@
Public Function GetIndicesByBE(ByVal BusinessEntity As String) As String() Public Function GetIndicesByBE(ByVal BusinessEntity As String) As String()
Try Try
' Array für Indizes vorbereiten ' Array für Indizes vorbereiten
Dim aIndexNames(DTVWIDB_BE_ATTRIBUTE.Rows.Count - 1) As String Dim aIndexNames(DTVWIDB_BE_ATTRIBUTE.Rows.Count) As String
Dim oCount As Integer = 0 Dim oCount As Integer = 0
aIndexNames(oCount) = "ObjectID"
For Each oRow As DataRow In DTVWIDB_BE_ATTRIBUTE.Rows For Each oRow As DataRow In DTVWIDB_BE_ATTRIBUTE.Rows
aIndexNames(oCount) = oRow.Item("ATTR_TITLE")
oCount += 1 oCount += 1
aIndexNames(oCount) = oRow.Item("ATTR_TITLE")
Next Next

17
app/DD_PM_WINDREAM/ClassInit.vb
View File

@ -248,12 +248,21 @@ Public Class ClassInit
<STAThread()> <STAThread()>
Public Shared Sub InitBasics() Public Shared Sub InitBasics()
Try Try
Dim sql = String.Format("select * from TBPM_KONFIGURATION WHERE GUID = 1") Dim oSql = String.Format("select * from TBPM_KONFIGURATION WHERE GUID = 1")
CURRENT_DT_CONFIG = ClassDatabase.Return_Datatable(sql) CURRENT_DT_CONFIG = ClassDatabase.Return_Datatable(oSql)
sql = "select * from TBDD_CONNECTION" oSql = "select * from TBDD_CONNECTION"
CURRENT_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(sql) CURRENT_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(oSql)
Settings_LoadBasicConfig() Settings_LoadBasicConfig()
oSql = "Select * from TBDD_3RD_PARTY_MODULES"
Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSql)
For Each oROW As DataRow In oDT.Rows
If oROW.Item("NAME") = "GDPICTURE" Then
GDPICTURE_LICENSE = oROW.Item("LICENSE")
End If
Next
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in InitBasics: " & ex.Message, True) LOGGER.Info("Unexpected Error in InitBasics: " & ex.Message, True)

1
app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
View File

@ -385,6 +385,7 @@
</Compile> </Compile>
<Compile Include="ModuleControlProperties.vb" /> <Compile Include="ModuleControlProperties.vb" />
<Compile Include="ModuleFinalIndexProperties.vb" /> <Compile Include="ModuleFinalIndexProperties.vb" />
<Compile Include="ModuleHelper.vb" />
<Compile Include="ModuleHelperMethods.vb" /> <Compile Include="ModuleHelperMethods.vb" />
<Compile Include="ModuleMySettings.vb" /> <Compile Include="ModuleMySettings.vb" />
<Compile Include="ModuleRuntimeVariables.vb" /> <Compile Include="ModuleRuntimeVariables.vb" />

28
app/DD_PM_WINDREAM/ModuleHelper.vb Normal file
View File

@ -0,0 +1,28 @@
Module ModuleHelper
Public Function ByteArrayToBitmap(bytearray() As Byte) As Bitmap
Return New Bitmap(New System.IO.MemoryStream(bytearray))
End Function
Public Function StringToByteArray(ByVal hex As String) As Byte()
Dim NumberChars As Integer = hex.Length
Dim bytes(NumberChars / 2) As Byte
For i As Integer = 0 To NumberChars - 1 Step 2
bytes(i / 2) = Convert.ToByte(hex.Substring(i, 2), 16)
Next
Return bytes
End Function
Public Function BitmapToByteArray(bitmap As Bitmap) As Byte()
Dim bytearray As Byte()
Using stream As New System.IO.MemoryStream
bitmap.Save(stream, bitmap.RawFormat)
bytearray = stream.ToArray()
End Using
Return bytearray
End Function
End Module

2
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

@ -92,4 +92,6 @@ Module ModuleRuntimeVariables
Public LOGCONFIG As LogConfig Public LOGCONFIG As LogConfig
Public LOGGER As Logger Public LOGGER As Logger
Public CONFIG As ConfigManager(Of ClassConfig) Public CONFIG As ConfigManager(Of ClassConfig)
Public GDPICTURE_LICENSE As String
End Module End Module

8
app/DD_PM_WINDREAM/clsPatterns.vb
View File

@ -193,7 +193,13 @@ Public Class clsPatterns
While ContainsPattern(result, PATTERN_IDBA) While ContainsPattern(result, PATTERN_IDBA)
Dim indexName As String = GetNextPattern(result, PATTERN_IDBA).Value Dim indexName As String = GetNextPattern(result, PATTERN_IDBA).Value
Dim oIDBValue = IDBData.GetVariableValue(indexName) Dim oIDBValue
If indexName = "ObjectID" Then
oIDBValue = CURRENT_DOC_ID
Else
oIDBValue = IDBData.GetVariableValue(indexName)
End If
If IsNothing(oIDBValue) And oTryCounter = MAX_TRY_COUNT Then If IsNothing(oIDBValue) And oTryCounter = MAX_TRY_COUNT Then
LOGGER.Warn("Exit from ReplaceWindreamIndicies as oWMValue is still nothing and oTryCounter is 500!") LOGGER.Warn("Exit from ReplaceWindreamIndicies as oWMValue is still nothing and oTryCounter is 500!")
Throw New Exception("Max tries in ReplaceWindreamIndicies exceeded.") Throw New Exception("Max tries in ReplaceWindreamIndicies exceeded.")

12
app/DD_PM_WINDREAM/frmAdministration.Designer.vb generated
View File

@ -140,6 +140,7 @@ Partial Class frmAdministration
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.tabctrl_Profilkonfig = New System.Windows.Forms.TabControl() Me.tabctrl_Profilkonfig = New System.Windows.Forms.TabControl()
Me.TabPage5 = New System.Windows.Forms.TabPage() Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label()
Me.DISPLAY_MODEComboBox = New System.Windows.Forms.ComboBox() Me.DISPLAY_MODEComboBox = New System.Windows.Forms.ComboBox()
@ -249,7 +250,6 @@ Partial Class frmAdministration
Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter() Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter()
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter() Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.Label7 = New System.Windows.Forms.Label()
GUIDLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label()
NAMELabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label()
DESCRIPTIONLabel = New System.Windows.Forms.Label() DESCRIPTIONLabel = New System.Windows.Forms.Label()
@ -1140,6 +1140,11 @@ Partial Class frmAdministration
Me.TabPage5.Name = "TabPage5" Me.TabPage5.Name = "TabPage5"
Me.TabPage5.UseVisualStyleBackColor = True Me.TabPage5.UseVisualStyleBackColor = True
' '
'Label7
'
resources.ApplyResources(Me.Label7, "Label7")
Me.Label7.Name = "Label7"
'
'Label4 'Label4
' '
resources.ApplyResources(Me.Label4, "Label4") resources.ApplyResources(Me.Label4, "Label4")
@ -1870,11 +1875,6 @@ Partial Class frmAdministration
' '
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True
' '
'Label7
'
resources.ApplyResources(Me.Label7, "Label7")
Me.Label7.Name = "Label7"
'
'frmAdministration 'frmAdministration
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")

6
app/DD_PM_WINDREAM/frmAdministration.resx
View File

@ -2570,7 +2570,7 @@
<value>6</value> <value>6</value>
</data> </data>
<data name="gridFinalIndex.Size" type="System.Drawing.Size, System.Drawing"> <data name="gridFinalIndex.Size" type="System.Drawing.Size, System.Drawing">
<value>627, 278</value> <value>627, 281</value>
</data> </data>
<data name="gridFinalIndex.TabIndex" type="System.Int32, mscorlib"> <data name="gridFinalIndex.TabIndex" type="System.Int32, mscorlib">
<value>93</value> <value>93</value>
@ -2597,7 +2597,7 @@
<value>627, 0</value> <value>627, 0</value>
</data> </data>
<data name="PropertyGrid1.Size" type="System.Drawing.Size, System.Drawing"> <data name="PropertyGrid1.Size" type="System.Drawing.Size, System.Drawing">
<value>323, 278</value> <value>323, 281</value>
</data> </data>
<data name="PropertyGrid1.TabIndex" type="System.Int32, mscorlib"> <data name="PropertyGrid1.TabIndex" type="System.Int32, mscorlib">
<value>91</value> <value>91</value>
@ -2618,7 +2618,7 @@
<value>3, 166</value> <value>3, 166</value>
</data> </data>
<data name="Panel5.Size" type="System.Drawing.Size, System.Drawing"> <data name="Panel5.Size" type="System.Drawing.Size, System.Drawing">
<value>950, 278</value> <value>950, 281</value>
</data> </data>
<data name="Panel5.TabIndex" type="System.Int32, mscorlib"> <data name="Panel5.TabIndex" type="System.Int32, mscorlib">
<value>94</value> <value>94</value>

27
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -67,8 +67,6 @@ Public Class frmAdministration
End If End If
ObjekttypenEintragen() ObjekttypenEintragen()
Indexe_eintragen() Indexe_eintragen()
End Sub End Sub
Sub Indexe_eintragen() Sub Indexe_eintragen()
If cmbObjekttypen.Text <> "" Then If cmbObjekttypen.Text <> "" Then
@ -80,6 +78,8 @@ Public Class frmAdministration
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
PM_VEKTOR_INDEXComboBox.Enabled = True PM_VEKTOR_INDEXComboBox.Enabled = True
Label4.Enabled = True Label4.Enabled = True
cmbLOGIndex.Enabled = True
Label9.Enabled = True
Try Try
Dim indexe = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text) Dim indexe = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text)
If indexe IsNot Nothing Then If indexe IsNot Nothing Then
@ -111,7 +111,19 @@ Public Class frmAdministration
PM_VEKTOR_INDEXComboBox.SelectedIndex = -1 PM_VEKTOR_INDEXComboBox.SelectedIndex = -1
cmbLOGIndex.SelectedIndex = -1 cmbLOGIndex.SelectedIndex = -1
End Try End Try
If Me.PM_VEKTOR_INDEXComboBox.Text <> "" Then
PM_VEKTOR_INDEXComboBox.SelectedIndex = PM_VEKTOR_INDEXComboBox.FindStringExact(Me.PM_VEKTOR_INDEXComboBox.Text)
Else
PM_VEKTOR_INDEXComboBox.SelectedIndex = -1
End If
If Me.cmbLOGIndex.Text <> "" Then
cmbLOGIndex.SelectedIndex = cmbLOGIndex.FindStringExact(Me.cmbLOGIndex.Text)
Else
cmbLOGIndex.SelectedIndex = -1
End If
Else Else
cmbLOGIndex.Enabled = False
Label9.Enabled = False
PM_VEKTOR_INDEXComboBox.Enabled = False PM_VEKTOR_INDEXComboBox.Enabled = False
Label4.Enabled = False Label4.Enabled = False
Try Try
@ -137,16 +149,7 @@ Public Class frmAdministration
End If End If
If Me.PM_VEKTOR_INDEXComboBox.Text <> "" Then
PM_VEKTOR_INDEXComboBox.SelectedIndex = PM_VEKTOR_INDEXComboBox.FindStringExact(Me.PM_VEKTOR_INDEXComboBox.Text)
Else
PM_VEKTOR_INDEXComboBox.SelectedIndex = -1
End If
If Me.cmbLOGIndex.Text <> "" Then
cmbLOGIndex.SelectedIndex = cmbLOGIndex.FindStringExact(Me.cmbLOGIndex.Text)
Else
cmbLOGIndex.SelectedIndex = -1
End If
End If End If

146
app/DD_PM_WINDREAM/frmFormDesigner.vb
View File

@ -5,6 +5,7 @@ Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraGrid.Views.Grid Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
Imports DigitalData.Controls.LookupGrid Imports DigitalData.Controls.LookupGrid
Imports System.Drawing
Public Class frmFormDesigner Public Class frmFormDesigner
Public ProfileId As Integer Public ProfileId As Integer
@ -673,57 +674,65 @@ Public Class frmFormDesigner
End Sub End Sub
Private Sub OnControl_MouseUp(sender As Control, e As MouseEventArgs) Private Sub OnControl_MouseUp(sender As Control, e As MouseEventArgs)
Mouse_IsPressed = False Try
Mouse_IsPressed = False
' Control Eigenschaften laden ' Control Eigenschaften laden
LoadControlProperties(sender) LoadControlProperties(sender)
If Mouse_IsMoving = False Then
MyBase.Cursor = Cursors.Default
Exit Sub
End If
Mouse_IsMoving = False
Dim CurrentPosition = CurrentControl.Location
Dim OldPosition As Point = DirectCast(pgControls.SelectedObject, BaseProperties).Location
If CurrentPosition.X = OldPosition.X + 2 And CurrentPosition.Y = OldPosition.Y + 2 Then
CurrentControl.Location = New Point(CurrentPosition.X - 2, CurrentPosition.Y - 2)
MyBase.Cursor = Cursors.Default
Exit Sub
End If
If Not Point.op_Inequality(CurrentPosition, OldPosition) Then
MyBase.Cursor = Cursors.Default
Exit Sub
End If
' Das Control sollte nicht außerhalb des Panels geschoben werden (Koordinaten kleiner 0)
If CurrentPosition.X < 0 Then
CurrentControl.Location = New Point(0, CurrentControl.Location.Y)
End If
If CurrentPosition.Y < 0 Then
CurrentControl.Location = New Point(CurrentControl.Location.X, 0)
End If
' Ebenso nicht über die Größe des Panels (X-Achse)
If CurrentPosition.X > pnldesigner.Width Then
CurrentControl.Location = New Point(pnldesigner.Width - CurrentControl.Width, CurrentControl.Location.Y)
End If
' Ebenso nicht über die Größe des Panels (Y-Achse)
If CurrentPosition.Y > pnldesigner.Height Then
CurrentControl.Location = New Point(CurrentControl.Location.X, pnldesigner.Height - CurrentControl.Height)
End If
DirectCast(pgControls.SelectedObject, BaseProperties).Location = CurrentControl.Location
UpdateSingleValue("X_LOC", CurrentControl.Location.X)
UpdateSingleValue("Y_LOC", CurrentControl.Location.Y)
If Mouse_IsMoving = False Then
MyBase.Cursor = Cursors.Default MyBase.Cursor = Cursors.Default
Exit Sub Catch ex As Exception
End If MsgBox(ex.Message, MsgBoxStyle.Critical)
LOGGER.Error(ex)
Mouse_IsMoving = False
Mouse_IsPressed = False
End Try
Mouse_IsMoving = False
Dim CurrentPosition = CurrentControl.Location
Dim OldPosition As Point = DirectCast(pgControls.SelectedObject, BaseProperties).Location
If CurrentPosition.X = OldPosition.X + 2 And CurrentPosition.Y = OldPosition.Y + 2 Then
CurrentControl.Location = New Point(CurrentPosition.X - 2, CurrentPosition.Y - 2)
MyBase.Cursor = Cursors.Default
Exit Sub
End If
If Not Point.op_Inequality(CurrentPosition, OldPosition) Then
MyBase.Cursor = Cursors.Default
Exit Sub
End If
' Das Control sollte nicht außerhalb des Panels geschoben werden (Koordinaten kleiner 0)
If CurrentPosition.X < 0 Then
CurrentControl.Location = New Point(0, CurrentControl.Location.Y)
End If
If CurrentPosition.Y < 0 Then
CurrentControl.Location = New Point(CurrentControl.Location.X, 0)
End If
' Ebenso nicht über die Größe des Panels (X-Achse)
If CurrentPosition.X > pnldesigner.Width Then
CurrentControl.Location = New Point(pnldesigner.Width - CurrentControl.Width, CurrentControl.Location.Y)
End If
' Ebenso nicht über die Größe des Panels (Y-Achse)
If CurrentPosition.Y > pnldesigner.Height Then
CurrentControl.Location = New Point(CurrentControl.Location.X, pnldesigner.Height - CurrentControl.Height)
End If
DirectCast(pgControls.SelectedObject, BaseProperties).Location = CurrentControl.Location
UpdateSingleValue("X_LOC", CurrentControl.Location.X)
UpdateSingleValue("Y_LOC", CurrentControl.Location.Y)
MyBase.Cursor = Cursors.Default
End Sub End Sub
Private Sub OnControl_MouseMove(sender As Control, e As MouseEventArgs) Private Sub OnControl_MouseMove(sender As Control, e As MouseEventArgs)
@ -910,8 +919,12 @@ Public Class frmFormDesigner
oButtonProps.Override_SQL = New SQLValue(NotNull(row.Item("SQL2"), "")) oButtonProps.Override_SQL = New SQLValue(NotNull(row.Item("SQL2"), ""))
oButtonProps.Enable_SQL = New SQLValue(NotNull(row.Item("SQL_ENABLE"), "")) oButtonProps.Enable_SQL = New SQLValue(NotNull(row.Item("SQL_ENABLE"), ""))
If Not IsDBNull(row.Item("IMAGE_CONTROL")) Then If Not IsDBNull(row.Item("IMAGE_CONTROL")) Then
oButtonProps.CtrlImage = New ImageValue(row.Item("IMAGE_CONTROL")) Dim obimg() As Byte = row.Item("IMAGE_CONTROL")
Dim oBitmap As Bitmap = ByteArrayToBitmap(obimg)
oButtonProps.CtrlImage = New ImageValue(Nothing)
oButton.Image = oBitmap
End If End If
props = oButtonProps props = oButtonProps
Else Else
MsgBox("This is not a supported control type!") MsgBox("This is not a supported control type!")
@ -928,7 +941,7 @@ Public Class frmFormDesigner
Private Sub pgControls_PropertyValueChanged(s As Object, e As PropertyValueChangedEventArgs) Handles pgControls.PropertyValueChanged Private Sub pgControls_PropertyValueChanged(s As Object, e As PropertyValueChangedEventArgs) Handles pgControls.PropertyValueChanged
Dim oldValue As Object = e.OldValue Dim oldValue As Object = e.OldValue
Dim newValue As Object = e.ChangedItem.Value Dim newValue = e.ChangedItem.Value
Dim prop As String = e.ChangedItem.Label Dim prop As String = e.ChangedItem.Label
Select Case prop Select Case prop
@ -1009,7 +1022,10 @@ Public Class frmFormDesigner
Case "SQLCommand" Case "SQLCommand"
UpdateSingleValue("SQL_UEBERPRUEFUNG", newValue) UpdateSingleValue("SQL_UEBERPRUEFUNG", newValue)
UpdateSingleValue("CHOICE_LIST", "") UpdateSingleValue("CHOICE_LIST", "")
Case "Enable_SQL"
UpdateSingleValue("SQL_ENABLE", newValue)
Case "Override_SQL"
UpdateSingleValue("SQL2", newValue)
Case "ChoiceList" Case "ChoiceList"
UpdateSingleValue("CHOICE_LIST", newValue) UpdateSingleValue("CHOICE_LIST", newValue)
UpdateSingleValue("SQL_UEBERPRUEFUNG", "") UpdateSingleValue("SQL_UEBERPRUEFUNG", "")
@ -1031,9 +1047,39 @@ Public Class frmFormDesigner
Case "RegexMessage" Case "RegexMessage"
UpdateSingleValue("REGEX_MESSAGE_DE", newValue) UpdateSingleValue("REGEX_MESSAGE_DE", newValue)
Case "CtrlImage"
Dim myPath As ImageValue = newValue
UpdateImage(myPath.Value)
End Select End Select
End Sub End Sub
Private Function UpdateImage(ImageLocation As String)
Try
Dim image As Bitmap = CType(System.Drawing.Image.FromFile(ImageLocation, True), Bitmap)
Dim bimage() As Byte = BitmapToByteArray(image)
'UPDATE TBPMO_FORM_CONSTRUCTOR SET MENU_IMG = @MENU_IMG, WHERE GUID = @GUID"
Dim SQL As String = "UPDATE TBPM_PROFILE_CONTROLS SET IMAGE_CONTROL = @MENU_IMG WHERE GUID = @GUID"
Dim conn As SqlClient.SqlConnection = New SqlClient.SqlConnection(CONNECTION_STRING)
Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(SQL, conn)
cmd.Parameters.Add("@MENU_IMG", SqlDbType.VarBinary).Value = bimage
cmd.Parameters.Add("@GUID", SqlDbType.Int).Value = CURRENT_CONTROL_ID
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
tslblAenderungen.Visible = True
tslblAenderungen.Text = "Änderungen gespeichert - " & Now
Return True
Catch ex As Exception
LOGGER.Error(ex)
Dim msg = $"UpdateImage - Error while saving Control (Id: {CURRENT_CONTROL_ID}): {vbCrLf}{ex.Message}"
MsgBox(msg)
LOGGER.Info(msg)
Return False
End Try
End Function
Private Function UpdateSingleValue(columnName As String, value As Object) Private Function UpdateSingleValue(columnName As String, value As Object)
Dim guid As Integer = CURRENT_CONTROL_ID Dim guid As Integer = CURRENT_CONTROL_ID
Dim escapedValue = value Dim escapedValue = value

19
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -980,8 +980,21 @@ Public Class frmMain
If TimerRefresh.Enabled Then If TimerRefresh.Enabled Then
TimerRefresh.Stop() TimerRefresh.Stop()
End If End If
Dim th As System.Threading.Thread
If Not Application.OpenForms().OfType(Of frmValidator).Any Then
th = New Threading.Thread(AddressOf Task_A)
th.SetApartmentState(ApartmentState.STA)
th.Start()
Else
LOGGER.Debug("Validator is already open...")
Exit Sub
End If
frmValidator.Show() ' frmValidator.ShowDialog()
Do While th.IsAlive
Loop
LOGGER.Debug("th has ended!")
'Catch ex As Exception 'Catch ex As Exception
' LOGGER.Error(ex) ' LOGGER.Error(ex)
' MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profil_from_Grid: ") ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profil_from_Grid: ")
@ -990,6 +1003,10 @@ Public Class frmMain
Decide_Load() Decide_Load()
End Sub End Sub
Public Sub Task_A()
Dim frmA = New frmValidator() ' Must be created on this thread!
Application.Run(frmA)
End Sub
Private Sub ContextMenuGrid_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuGrid.Opening Private Sub ContextMenuGrid_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuGrid.Opening
CMFileStart.Enabled = False CMFileStart.Enabled = False
CMGroupStart.Enabled = False CMGroupStart.Enabled = False

10
app/DD_PM_WINDREAM/frmValidator.Designer.vb generated
View File

@ -96,7 +96,6 @@ Partial Class frmValidator
Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter() Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -161,7 +160,6 @@ Partial Class frmValidator
'Panel1 'Panel1
' '
Me.Panel1.BackColor = System.Drawing.SystemColors.ControlLight Me.Panel1.BackColor = System.Drawing.SystemColors.ControlLight
Me.Panel1.Controls.Add(Me.CheckBox1)
Me.Panel1.Controls.Add(Me.TITLELabel1) Me.Panel1.Controls.Add(Me.TITLELabel1)
Me.Panel1.Controls.Add(Me.btnSave) Me.Panel1.Controls.Add(Me.btnSave)
Me.Panel1.Controls.Add(Me.DESCRIPTIONLabel) Me.Panel1.Controls.Add(Me.DESCRIPTIONLabel)
@ -589,12 +587,6 @@ Partial Class frmValidator
' '
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True
' '
'CheckBox1
'
resources.ApplyResources(Me.CheckBox1, "CheckBox1")
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'frmValidator 'frmValidator
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -615,7 +607,6 @@ Partial Class frmValidator
Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout() Me.StatusStrip1.PerformLayout()
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@ -710,5 +701,4 @@ Partial Class frmValidator
Friend WithEvents ToolStripButtonSearchesReload As ToolStripButton Friend WithEvents ToolStripButtonSearchesReload As ToolStripButton
Friend WithEvents ToolTip1 As ToolTip Friend WithEvents ToolTip1 As ToolTip
Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer
Friend WithEvents CheckBox1 As CheckBox
End Class End Class

391
app/DD_PM_WINDREAM/frmValidator.resx
View File

@ -130,6 +130,31 @@
<value>608, 17</value> <value>608, 17</value>
</metadata> </metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="tstrplblError.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold</value>
</data>
<data name="tstrplblError.Size" type="System.Drawing.Size, System.Drawing">
<value>22, 17</value>
</data>
<data name="tstrplblError.Text" xml:space="preserve">
<value>sss</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="tstrplblError.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="tstrlbl_Info.Size" type="System.Drawing.Size, System.Drawing">
<value>89, 17</value>
</data>
<data name="tstrlbl_Info.Text" xml:space="preserve">
<value>Anzahl Dateien:</value>
</data>
<data name="tsslblDocID.Size" type="System.Drawing.Size, System.Drawing">
<value>82, 17</value>
</data>
<data name="tsslblDocID.Text" xml:space="preserve">
<value>Document-ID:</value>
</data>
<data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing"> <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 621</value> <value>0, 621</value>
</data> </data>
@ -140,7 +165,6 @@
<data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing"> <data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>962, 22</value> <value>962, 22</value>
</data> </data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib"> <data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib">
<value>4</value> <value>4</value>
</data> </data>
@ -159,117 +183,6 @@
<data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<data name="tstrplblError.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold</value>
</data>
<data name="tstrplblError.Size" type="System.Drawing.Size, System.Drawing">
<value>22, 17</value>
</data>
<data name="tstrplblError.Text" xml:space="preserve">
<value>sss</value>
</data>
<data name="tstrplblError.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="tstrlbl_Info.Size" type="System.Drawing.Size, System.Drawing">
<value>89, 17</value>
</data>
<data name="tstrlbl_Info.Text" xml:space="preserve">
<value>Anzahl Dateien:</value>
</data>
<data name="tsslblDocID.Size" type="System.Drawing.Size, System.Drawing">
<value>82, 17</value>
</data>
<data name="tsslblDocID.Text" xml:space="preserve">
<value>Document-ID:</value>
</data>
<data name="&gt;&gt;CheckBox1.Name" xml:space="preserve">
<value>CheckBox1</value>
</data>
<data name="&gt;&gt;CheckBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;CheckBox1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;CheckBox1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;TITLELabel1.Name" xml:space="preserve">
<value>TITLELabel1</value>
</data>
<data name="&gt;&gt;TITLELabel1.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;TITLELabel1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;TITLELabel1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;btnSave.Name" xml:space="preserve">
<value>btnSave</value>
</data>
<data name="&gt;&gt;btnSave.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnSave.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;btnSave.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="&gt;&gt;DESCRIPTIONLabel.Name" xml:space="preserve">
<value>DESCRIPTIONLabel</value>
</data>
<data name="&gt;&gt;DESCRIPTIONLabel.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;DESCRIPTIONLabel.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;DESCRIPTIONLabel.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="&gt;&gt;pnldesigner.Name" xml:space="preserve">
<value>pnldesigner</value>
</data>
<data name="&gt;&gt;pnldesigner.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;pnldesigner.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;pnldesigner.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="Panel1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>477, 593</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>24</value>
</data>
<data name="&gt;&gt;Panel1.Name" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Panel1.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
<value>SplitContainer1.Panel1</value>
</data>
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="TITLELabel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="TITLELabel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value> <value>Top, Left, Right</value>
</data> </data>
@ -304,7 +217,7 @@
<value>Panel1</value> <value>Panel1</value>
</data> </data>
<data name="&gt;&gt;TITLELabel1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;TITLELabel1.ZOrder" xml:space="preserve">
<value>1</value> <value>0</value>
</data> </data>
<data name="btnSave.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="btnSave.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left, Right</value> <value>Bottom, Left, Right</value>
@ -340,7 +253,7 @@
<value>Panel1</value> <value>Panel1</value>
</data> </data>
<data name="&gt;&gt;btnSave.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnSave.ZOrder" xml:space="preserve">
<value>2</value> <value>1</value>
</data> </data>
<data name="DESCRIPTIONLabel.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="DESCRIPTIONLabel.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value> <value>Top, Left, Right</value>
@ -367,7 +280,7 @@
<value>Panel1</value> <value>Panel1</value>
</data> </data>
<data name="&gt;&gt;DESCRIPTIONLabel.ZOrder" xml:space="preserve"> <data name="&gt;&gt;DESCRIPTIONLabel.ZOrder" xml:space="preserve">
<value>3</value> <value>2</value>
</data> </data>
<data name="pnldesigner.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="pnldesigner.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value> <value>Top, Bottom, Left, Right</value>
@ -397,7 +310,34 @@
<value>Panel1</value> <value>Panel1</value>
</data> </data>
<data name="&gt;&gt;pnldesigner.ZOrder" xml:space="preserve"> <data name="&gt;&gt;pnldesigner.ZOrder" xml:space="preserve">
<value>4</value> <value>3</value>
</data>
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="Panel1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>477, 593</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>24</value>
</data>
<data name="&gt;&gt;Panel1.Name" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Panel1.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
<value>SplitContainer1.Panel1</value>
</data>
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
<value>0</value>
</data> </data>
<metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>725, 17</value> <value>725, 17</value>
@ -546,6 +486,69 @@
<data name="ToolStrip1.Font" type="System.Drawing.Font, System.Drawing"> <data name="ToolStrip1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value> <value>Segoe UI, 9.75pt</value>
</data> </data>
<data name="DateiÖffnenToolStripMenuItem1.Size" type="System.Drawing.Size, System.Drawing">
<value>156, 22</value>
</data>
<data name="DateiÖffnenToolStripMenuItem1.Text" xml:space="preserve">
<value>Datei öffnen</value>
</data>
<data name="InfoToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>156, 22</value>
</data>
<data name="InfoToolStripMenuItem.Text" xml:space="preserve">
<value>Info</value>
</data>
<data name="EigenschaftenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>156, 22</value>
</data>
<data name="EigenschaftenToolStripMenuItem.Text" xml:space="preserve">
<value>Eigenschaften</value>
</data>
<data name="ToolStripDropDownButton2.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripDropDownButton2.Size" type="System.Drawing.Size, System.Drawing">
<value>67, 22</value>
</data>
<data name="ToolStripDropDownButton2.Text" xml:space="preserve">
<value>Datei</value>
</data>
<data name="ToolStripButtonSearchesReload.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonSearchesReload.Size" type="System.Drawing.Size, System.Drawing">
<value>212, 22</value>
</data>
<data name="ToolStripButtonSearchesReload.Text" xml:space="preserve">
<value>Zusätzliche Suchen aktualisieren</value>
</data>
<data name="ToolStripButtonJumpFile.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonJumpFile.Size" type="System.Drawing.Size, System.Drawing">
<value>165, 22</value>
</data>
<data name="ToolStripButtonJumpFile.Text" xml:space="preserve">
<value>Datei überspringen (F4)</value>
</data>
<data name="ToolStripButtonDeleteFile.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonDeleteFile.Size" type="System.Drawing.Size, System.Drawing">
<value>106, 22</value>
</data>
<data name="ToolStripButtonDeleteFile.Text" xml:space="preserve">
<value>Datei löschen</value>
</data>
<data name="ToolStripButtonAnnotation.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonAnnotation.Size" type="System.Drawing.Size, System.Drawing">
<value>105, 22</value>
</data>
<data name="ToolStripButtonAnnotation.Text" xml:space="preserve">
<value>Annotationen</value>
</data>
<data name="ToolStrip1.Location" type="System.Drawing.Point, System.Drawing"> <data name="ToolStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
@ -1409,39 +1412,6 @@
<data name="PdfExactZoomListBarSubItem2.Caption" xml:space="preserve"> <data name="PdfExactZoomListBarSubItem2.Caption" xml:space="preserve">
<value>Zoom</value> <value>Zoom</value>
</data> </data>
<data name="PdfExactZoomListBarSubItem2.SuperTip" type="DevExpress.Utils.SuperToolTip, DevExpress.Utils.v18.1" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOC4xLCBWZXJzaW9uPTE4LjEu
NS4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE
ZXZFeHByZXNzLkRhdGEudjE4LjEsIFZlcnNpb249MTguMS41LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi
bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s
VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw
BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh
bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz
LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl
bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl
c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF
eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA
Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs
dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz
cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z
CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl
c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl
c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA
AAAAAAAAPAEAAAAGDAAAAARab29tBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbQcAAAAN
QWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdpZHRoEk93bmVyQWxs
b3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRCb29sZWFuAwAAABNT
eXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRp
b25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAApw4RuZGVybiBkZXIg
Wm9vbS1TdHVmZSBkZXMgUERGLURva3VtZW50cy4FCwAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ
dGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5k
ZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUJAAAAJkRldkV4cHJl
c3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25tZW50AgAAAAgIAgAAAAYQAAAAAAXv////E1N5c3RlbS5E
cmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdodAAACAgJAAAAAAAAAAAAAAAF7v///yZEZXZFeHByZXNz
LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAEO
AAAACwAAAAkQAAAAAe3////v////AAAAAAAAAAAB7P///+7///8AAAAA/////w4AAAAL
</value>
</data>
<data name="PdfZoom10CheckItem2.Caption" xml:space="preserve"> <data name="PdfZoom10CheckItem2.Caption" xml:space="preserve">
<value>10%</value> <value>10%</value>
</data> </data>
@ -1484,6 +1454,39 @@
<data name="PdfSetFitVisibleZoomModeCheckItem2.Caption" xml:space="preserve"> <data name="PdfSetFitVisibleZoomModeCheckItem2.Caption" xml:space="preserve">
<value>sichtbare einpassen</value> <value>sichtbare einpassen</value>
</data> </data>
<data name="PdfExactZoomListBarSubItem2.SuperTip" type="DevExpress.Utils.SuperToolTip, DevExpress.Utils.v18.1" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOC4xLCBWZXJzaW9uPTE4LjEu
NS4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE
ZXZFeHByZXNzLkRhdGEudjE4LjEsIFZlcnNpb249MTguMS41LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi
bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s
VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw
BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh
bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz
LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl
bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl
c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF
eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA
Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs
dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz
cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z
CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl
c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl
c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA
AAAAAAAAPAEAAAAGDAAAAARab29tBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbQcAAAAN
QWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdpZHRoEk93bmVyQWxs
b3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRCb29sZWFuAwAAABNT
eXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRp
b25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAApw4RuZGVybiBkZXIg
Wm9vbS1TdHVmZSBkZXMgUERGLURva3VtZW50cy4FCwAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ
dGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5k
ZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUJAAAAJkRldkV4cHJl
c3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25tZW50AgAAAAgIAgAAAAYQAAAAAAXv////E1N5c3RlbS5E
cmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdodAAACAgJAAAAAAAAAAAAAAAF7v///yZEZXZFeHByZXNz
LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAEO
AAAACwAAAAkQAAAAAe3////v////AAAAAAAAAAAB7P///+7///8AAAAA/////w4AAAAL
</value>
</data>
<data name="BarButtonItem1.Caption" xml:space="preserve"> <data name="BarButtonItem1.Caption" xml:space="preserve">
<value>BarButtonItem1</value> <value>BarButtonItem1</value>
</data> </data>
@ -1493,69 +1496,6 @@
<metadata name="PdfBarController2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="PdfBarController2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>407, 173</value> <value>407, 173</value>
</metadata> </metadata>
<data name="ToolStripDropDownButton2.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripDropDownButton2.Size" type="System.Drawing.Size, System.Drawing">
<value>67, 22</value>
</data>
<data name="ToolStripDropDownButton2.Text" xml:space="preserve">
<value>Datei</value>
</data>
<data name="DateiÖffnenToolStripMenuItem1.Size" type="System.Drawing.Size, System.Drawing">
<value>156, 22</value>
</data>
<data name="DateiÖffnenToolStripMenuItem1.Text" xml:space="preserve">
<value>Datei öffnen</value>
</data>
<data name="InfoToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>156, 22</value>
</data>
<data name="InfoToolStripMenuItem.Text" xml:space="preserve">
<value>Info</value>
</data>
<data name="EigenschaftenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>156, 22</value>
</data>
<data name="EigenschaftenToolStripMenuItem.Text" xml:space="preserve">
<value>Eigenschaften</value>
</data>
<data name="ToolStripButtonSearchesReload.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonSearchesReload.Size" type="System.Drawing.Size, System.Drawing">
<value>212, 22</value>
</data>
<data name="ToolStripButtonSearchesReload.Text" xml:space="preserve">
<value>Zusätzliche Suchen aktualisieren</value>
</data>
<data name="ToolStripButtonJumpFile.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonJumpFile.Size" type="System.Drawing.Size, System.Drawing">
<value>165, 22</value>
</data>
<data name="ToolStripButtonJumpFile.Text" xml:space="preserve">
<value>Datei überspringen (F4)</value>
</data>
<data name="ToolStripButtonDeleteFile.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonDeleteFile.Size" type="System.Drawing.Size, System.Drawing">
<value>106, 22</value>
</data>
<data name="ToolStripButtonDeleteFile.Text" xml:space="preserve">
<value>Datei löschen</value>
</data>
<data name="ToolStripButtonAnnotation.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonAnnotation.Size" type="System.Drawing.Size, System.Drawing">
<value>105, 22</value>
</data>
<data name="ToolStripButtonAnnotation.Text" xml:space="preserve">
<value>Annotationen</value>
</data>
<metadata name="FinalIndexDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="FinalIndexDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>779, 173</value> <value>779, 173</value>
</metadata> </metadata>
@ -1568,31 +1508,4 @@
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>322, 212</value> <value>322, 212</value>
</metadata> </metadata>
<data name="CheckBox1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="CheckBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>245, 37</value>
</data>
<data name="CheckBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>89, 21</value>
</data>
<data name="CheckBox1.TabIndex" type="System.Int32, mscorlib">
<value>19</value>
</data>
<data name="CheckBox1.Text" xml:space="preserve">
<value>CheckBox1</value>
</data>
<data name="&gt;&gt;CheckBox1.Name" xml:space="preserve">
<value>CheckBox1</value>
</data>
<data name="&gt;&gt;CheckBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;CheckBox1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;CheckBox1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
</root> </root>

681
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -57,6 +57,7 @@ Public Class frmValidator
Private FormLoaded As Boolean = False Private FormLoaded As Boolean = False
Private ItemWorked As Boolean = False Private ItemWorked As Boolean = False
Private Override As Boolean = False Private Override As Boolean = False
Private OverrideAll As Boolean = False
Private Override_SQLCommand As String = "" Private Override_SQLCommand As String = ""
Private ControlHandleStarted As Boolean = False Private ControlHandleStarted As Boolean = False
@ -88,6 +89,7 @@ Public Class frmValidator
End Function End Function
Private Sub frmValidation_Load(sender As Object, e As System.EventArgs) Handles Me.Load Private Sub frmValidation_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Override = False Override = False
ItemWorked = False
SplitContainer1.Panel2Collapsed = True SplitContainer1.Panel2Collapsed = True
docCounter = 1 docCounter = 1
OLD_Document_Path = "" OLD_Document_Path = ""
@ -107,7 +109,7 @@ Public Class frmValidator
Dim _step = 0 Dim _step = 0
Try Try
DocumentViewer1.Init(LOGCONFIG, "21182889975216572111813147150675976632") DocumentViewer1.Init(LOGCONFIG, GDPICTURE_LICENSE)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
End Try End Try
@ -171,14 +173,14 @@ Public Class frmValidator
Try Try
If finalProfile = True Then If finalProfile = True Then
Dim text As String = IIf(IsDBNull(dr.Item("FINAL_TEXT")), "", dr.Item("FINAL_TEXT")) Dim text As String = IIf(IsDBNull(dr.Item("FINAL_TEXT")), "", dr.Item("FINAL_TEXT") & (" (F2)"))
If text <> "" Then If text <> "" Then
btnSave.Text = text btnSave.Text = text
Else Else
btnSave.Text = "Validierung speichern - Nächstes Dokument" btnSave.Text = "Validierung speichern - Nächstes Dokument & (F2)"
End If End If
Else Else
btnSave.Text = "Validierung speichern - Nächstes Dokument" btnSave.Text = "Validierung speichern - Nächstes Dokument & (F2)"
End If End If
LOGGER.Debug("Final profile Text geladen") LOGGER.Debug("Final profile Text geladen")
Catch ex As Exception Catch ex As Exception
@ -215,7 +217,7 @@ Public Class frmValidator
End If End If
LOGGER.Debug("Right_Delete: " & USER_RIGHT_FILE_DELETE.ToString) LOGGER.Debug("Right_Delete: " & USER_RIGHT_FILE_DELETE.ToString)
Load_Controls() Create_Controls()
End If End If
@ -262,15 +264,14 @@ Public Class frmValidator
If CURRENT_DOC_GUID <> 0 Then If CURRENT_DOC_GUID <> 0 Then
Try Try
If ItemWorked = False Then If ItemWorked = False Then
Dim sql = $"UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, IN_WORK_WHEN = NULL, WORK_USER = NULL, EDIT = 0 WHERE GUID = {CURRENT_DOC_GUID}" Free_File()
ClassDatabase.Execute_non_Query(sql)
End If End If
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler bei Freigabe der Dok-ID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, USER_USERNAME) allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler bei Freigabe der Dok-ID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, USER_USERNAME)
End Try End Try
End If End If
DocumentViewer1.Done()
'If VIEWER_ALL = "docview" Then 'If VIEWER_ALL = "docview" Then
' If IDB_ACTIVE = False Then ' If IDB_ACTIVE = False Then
' CloseWDDocview() ' CloseWDDocview()
@ -549,7 +550,7 @@ Public Class frmValidator
Return myObject Return myObject
End If End If
End Function End Function
Sub Load_Controls() Sub Create_Controls()
Try Try
pnldesigner.Controls.Clear() pnldesigner.Controls.Clear()
@ -992,7 +993,15 @@ Public Class frmValidator
' = $"select SQL_UEBERPRUEFUNG,SQL2 FROM TBPM_PROFILE_CONTROLS WHERE GUID = {oControlID}" ' = $"select SQL_UEBERPRUEFUNG,SQL2 FROM TBPM_PROFILE_CONTROLS WHERE GUID = {oControlID}"
oSQL = clsPatterns.ReplaceAllValues(oSQL, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) oSQL = clsPatterns.ReplaceAllValues(oSQL, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
LOGGER.Debug($"oSQL after replace {oSQL}") LOGGER.Debug($"oSQL after replace {oSQL}")
oSQL = clsPatterns.ReplaceAllValues(oSQL2, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
Dim oDT_ACTIONS As DataTable = ClassDatabase.Return_Datatable(oSQL) Dim oDT_ACTIONS As DataTable = ClassDatabase.Return_Datatable(oSQL)
If IsNothing(oDT_ACTIONS) Then
MsgBox("Something went wrong in custom action - Please check Your log!", MsgBoxStyle.Exclamation)
Exit Sub
ElseIf oDT_ACTIONS.Rows.Count = 0 Then
MsgBox("Something went wrong in custom action (No row) - Please check Your log!", MsgBoxStyle.Exclamation)
Exit Sub
End If
'Select Case'Override' as Action_Type, 'Sind Sie sicher dass Sie nicht zuständig sind?' as Question,'Nicht Zuständig' as Caption,'Red' as Color 'Select Case'Override' as Action_Type, 'Sind Sie sicher dass Sie nicht zuständig sind?' as Question,'Nicht Zuständig' as Caption,'Red' as Color
Dim oAction Dim oAction
Dim oQuestion Dim oQuestion
@ -1015,7 +1024,7 @@ Public Class frmValidator
oTitle = "" oTitle = ""
End Try End Try
Try Try
oCaption = oDT_ACTIONS?.Rows(0).Item("Caption").ToString oCaption = oDT_ACTIONS?.Rows(0).Item("CaptionButton").ToString
Catch ex As Exception Catch ex As Exception
oCaption = "" oCaption = ""
End Try End Try
@ -1024,28 +1033,38 @@ Public Class frmValidator
Catch ex As Exception Catch ex As Exception
oColor = "" oColor = ""
End Try End Try
Try
OverrideAll = CBool(oDT_ACTIONS?.Rows(0).Item("OverrideAll"))
Catch ex As Exception
OverrideAll = False
End Try
Try Try
Override_SQLCommand = oSQL2 Override_SQLCommand = oSQL2
Override_SQLCommand = clsPatterns.ReplaceAllValues(Override_SQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) Override_SQLCommand = clsPatterns.ReplaceAllValues(Override_SQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
LOGGER.Debug($"Override_SQLCommand after replace {Override_SQLCommand}")
Catch ex As Exception Catch ex As Exception
Override_SQLCommand = "" Override_SQLCommand = ""
End Try End Try
Select Case oAction Select Case oAction
Case "SetButton" Case "SetButton"
btnSave.Text = oCaption btnSave.Text = oCaption & " (F2)"
btnSave.BackColor = oColor btnSave.BackColor = oColor
Case "Override" Case "Override_Question"
If oQuestion <> "" Then If oQuestion <> "" Then
Dim result As MsgBoxResult Dim result As MsgBoxResult
result = MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) result = MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Override = True Override = True
Finish_WFStep()
End If End If
End If End If
Case "Override_Direct"
Override = True
Finish_WFStep()
Case Else
MsgBox($"No configured action provided [{oAction}]", MsgBoxStyle.Exclamation, "")
End Select End Select
@ -1592,9 +1611,9 @@ Public Class frmValidator
Dim Profilstring = $"DD-PMLog{Delimiter}Loaded profile: [{CURRENT_ProfilName}]{Delimiter}{USER_USERNAME}{Delimiter}{Now.ToString}" Dim Profilstring = $"DD-PMLog{Delimiter}Loaded profile: [{CURRENT_ProfilName}]{Delimiter}{USER_USERNAME}{Delimiter}{Now.ToString}"
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
WMIndexVectofield(Profilstring, PROFIL_LOGINDEX) WMIndexVectofield(Profilstring, PROFIL_LOGINDEX)
Else 'Else
IDBData.SetVariableValue(PROFIL_LOGINDEX, Profilstring) 'IDBData.SetVariableValue(PROFIL_LOGINDEX, Profilstring)
LOGGER.Debug("Profilname erfolgreich in Vektorfeld LOG geschrieben") 'LOGGER.Debug("Profilname erfolgreich in Vektorfeld LOG geschrieben")
'Else 'Else
' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
' My.Settings.Save() ' My.Settings.Save()
@ -2614,7 +2633,7 @@ Public Class frmValidator
End Sub End Sub
Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
btnSave.Enabled = False btnSave.Enabled = False
Abschluss() Finish_WFStep()
btnSave.Enabled = True btnSave.Enabled = True
End Sub End Sub
'Sub CloseWDDocview() 'Sub CloseWDDocview()
@ -2647,306 +2666,319 @@ Public Class frmValidator
' ' LOGGER.Info("### " & ex.Message & " ###") ' ' LOGGER.Info("### " & ex.Message & " ###")
' 'End Try ' 'End Try
'End Sub 'End Sub
Sub Abschluss() Sub Finish_WFStep()
btnSave.Enabled = False btnSave.Enabled = False
LOGGER.Debug("Abschluss für Dok: " & CURRENT_DOC_PATH & " gestartet") LOGGER.Debug("Abschluss für Dok: " & CURRENT_DOC_PATH & " gestartet")
'Eingaben auf Form überprüfen If OverrideAll = False Then
If Check_UpdateIndexe() = False Then 'Eingaben auf Form überprüfen
'lblerror.Visible = False If Check_UpdateIndexe() = False Then
'Try 'lblerror.Visible = False
Dim oErrorOcurred As Boolean = False 'Try
ItemWorked = True Dim oErrorOcurred As Boolean = False
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING, CURRENT_ProfilName) ItemWorked = True
Dim oDTFinalIndexes As DataTable = FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING, CURRENT_ProfilName)
If oDTFinalIndexes.Rows.Count > 0 Then Dim oDTFinalIndexes As DataTable = FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING
'Jetzt finale Indexe setzen If oDTFinalIndexes.Rows.Count > 0 Then
LOGGER.Debug("FINAL INDEXING STARTING...") 'Jetzt finale Indexe setzen
For Each oFinalIndexRow As DataRow In oDTFinalIndexes.Rows LOGGER.Debug("FINAL INDEXING STARTING...")
Dim oValue As String = oFinalIndexRow.Item("VALUE").ToString For Each oFinalIndexRow As DataRow In oDTFinalIndexes.Rows
Dim oIndexType = 0 Dim oValue As String = oFinalIndexRow.Item("VALUE").ToString
If IDB_ACTIVE = False Then Dim oIndexType = 0
oIndexType = WINDREAM.GetTypeOfIndex(oFinalIndexRow.Item("INDEXNAME"))
End If
If oValue.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ###
LOGGER.Debug("Indexierung mit dynamischem SQL!")
Dim oSQLCommand = oFinalIndexRow.Item("SQL_COMMAND")
LOGGER.Debug("SQL_COMMAND before ReplaceAllValues: " & oSQLCommand)
oSQLCommand = clsPatterns.ReplaceAllValues(oSQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
If IsNothing(oSQLCommand) Then
errormessage = "Error while replacing Values in final indexing - Check the log"
My.Settings.Save()
frmError.ShowDialog()
oErrorOcurred = True
End If
If Not IsNothing(oSQLCommand) Then
LOGGER.Debug("SQL_COMMAND after ReplaceAllValues: " & oSQLCommand)
Dim dynamic_value = ClassDatabase.Execute_Scalar(oSQLCommand, CONNECTION_STRING, True)
If Not IsNothing(dynamic_value) Then
LOGGER.Debug("DYNAMIC VALUE IS: " & dynamic_value.ToString)
oValue = dynamic_value
Else
LOGGER.Info("ATTENTION: DYNAMIC VALUE IS NOTHING!")
End If
End If
Else
If oValue.StartsWith("v") Then
Select Case oFinalIndexRow.Item("VALUE").ToString
Case "vDate"
oValue = Now.ToShortDateString
Case "vUserName"
oValue = USER_USERNAME
Case Else
oValue = oFinalIndexRow.Item("VALUE")
End Select
End If
End If
If oErrorOcurred Then
Exit For
End If
Dim oResult() As String
ReDim Preserve oResult(0)
oResult(0) = oValue
LOGGER.Debug($"oIndexType {oIndexType.ToString}")
If oIndexType > 4000 And oIndexType < 5000 Then
'If dr.Item("INDEXNAME").ToString.StartsWith("[%VKT") Then
' Dim PM_String = Return_PM_VEKTOR(value, dr.Item("INDEXNAME"))
'Hier muss nun separat als Vektorfeld indexiert werden
If WMIndexVectofield(oValue, oFinalIndexRow.Item("INDEXNAME"), oFinalIndexRow.Item("PREVENT_DUPLICATES"), oFinalIndexRow.Item("ALLOW_NEW_VALUES")) = False Then
LOGGER.Debug("FINALER Vektorindex '" & oFinalIndexRow.Item("INDEXNAME").ToString & "' WURDE ERFOLGREICH GESETZT")
Else
errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
My.Settings.Save()
frmError.ShowDialog()
oErrorOcurred = True
End If
Else
LOGGER.Debug("Now the final indexing...")
Dim oFIResult As Boolean = False
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
If Indexiere_File(CURRENT_WMFILE, oFinalIndexRow.Item("INDEXNAME"), oResult) = True Then oIndexType = WINDREAM.GetTypeOfIndex(oFinalIndexRow.Item("INDEXNAME"))
oFIResult = True End If
LOGGER.Debug("FINALER INDEX '" & oFinalIndexRow.Item("INDEXNAME") & "' WURDE ERFOLGREICH GESETZT") If oValue.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ###
LOGGER.Debug("Indexierung mit dynamischem SQL!")
Dim oSQLCommand = oFinalIndexRow.Item("SQL_COMMAND")
'Nun das Logging LOGGER.Debug("SQL_COMMAND before ReplaceAllValues: " & oSQLCommand)
If PROFIL_LOGINDEX <> "" Then oSQLCommand = clsPatterns.ReplaceAllValues(oSQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
Dim logstr = Return_LOGString(oValue, "DDFINALINDEX", oFinalIndexRow.Item("INDEXNAME")) If IsNothing(oSQLCommand) Then
WMIndexVectofield(logstr, PROFIL_LOGINDEX) errormessage = "Error while replacing Values in final indexing - Check the log"
My.Settings.Save()
frmError.ShowDialog()
oErrorOcurred = True
End If
If Not IsNothing(oSQLCommand) Then
LOGGER.Debug("SQL_COMMAND after ReplaceAllValues: " & oSQLCommand)
Dim dynamic_value = ClassDatabase.Execute_Scalar(oSQLCommand, CONNECTION_STRING, True)
If Not IsNothing(dynamic_value) Then
LOGGER.Debug("DYNAMIC VALUE IS: " & dynamic_value.ToString)
oValue = dynamic_value
Else
LOGGER.Info("ATTENTION: DYNAMIC VALUE IS NOTHING!")
End If End If
End If End If
Else Else
If IDBData.SetVariableValue(oFinalIndexRow.Item("INDEXNAME"), oValue) = True Then If oValue.StartsWith("v") Then
oFIResult = True Select Case oFinalIndexRow.Item("VALUE").ToString
LOGGER.Debug("final index '" & oFinalIndexRow.Item("INDEXNAME") & "' was written to IDB") Case "vDate"
If PROFIL_LOGINDEX <> "" Then oValue = Now.ToShortDateString
Dim logstr = Return_LOGString(oValue, "DDFINALINDEX", oFinalIndexRow.Item("INDEXNAME")) Case "vUserName"
oFIResult = IDBData.SetVariableValue(PROFIL_LOGINDEX, logstr) oValue = USER_USERNAME
Case Else
oValue = oFinalIndexRow.Item("VALUE")
End Select
End If
End If
If oErrorOcurred Then
Exit For
End If
Dim oResult() As String
ReDim Preserve oResult(0)
oResult(0) = oValue
LOGGER.Debug($"oIndexType {oIndexType.ToString}")
If oIndexType > 4000 And oIndexType < 5000 Then
'If dr.Item("INDEXNAME").ToString.StartsWith("[%VKT") Then
' Dim PM_String = Return_PM_VEKTOR(value, dr.Item("INDEXNAME"))
'Hier muss nun separat als Vektorfeld indexiert werden
If WMIndexVectofield(oValue, oFinalIndexRow.Item("INDEXNAME"), oFinalIndexRow.Item("PREVENT_DUPLICATES"), oFinalIndexRow.Item("ALLOW_NEW_VALUES")) = False Then
LOGGER.Debug("FINALER Vektorindex '" & oFinalIndexRow.Item("INDEXNAME").ToString & "' WURDE ERFOLGREICH GESETZT")
Else
errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
My.Settings.Save()
frmError.ShowDialog()
oErrorOcurred = True
End If
Else
LOGGER.Debug("Now the final indexing...")
Dim oFIResult As Boolean = False
If IDB_ACTIVE = False Then
If Indexiere_File(CURRENT_WMFILE, oFinalIndexRow.Item("INDEXNAME"), oResult) = True Then
oFIResult = True
LOGGER.Debug("FINALER INDEX '" & oFinalIndexRow.Item("INDEXNAME") & "' WURDE ERFOLGREICH GESETZT")
'Nun das Logging
If PROFIL_LOGINDEX <> "" Then
Dim logstr = Return_LOGString(oValue, "DDFINALINDEX", oFinalIndexRow.Item("INDEXNAME"))
WMIndexVectofield(logstr, PROFIL_LOGINDEX)
End If
End If
'Else
' If IDBData.SetVariableValue(oFinalIndexRow.Item("INDEXNAME"), oValue) = True Then
' oFIResult = True
' LOGGER.Debug("final index '" & oFinalIndexRow.Item("INDEXNAME") & "' was written to IDB")
' If PROFIL_LOGINDEX <> "" Then
' Dim logstr = Return_LOGString(oValue, "DDFINALINDEX", oFinalIndexRow.Item("INDEXNAME"))
' oFIResult = IDBData.SetVariableValue(PROFIL_LOGINDEX, logstr)
' End If
' End If
End If
If oFIResult = False Then
errormessage = "Error in final indexing:" & vbNewLine & idxerr_message
My.Settings.Save()
frmError.ShowDialog()
oErrorOcurred = True
End If
End If
If oErrorOcurred = True Then
Exit For
End If
Next
End If
''Wenn kein Fehler nach der finalen Indexierung gesetzt wurde
If Override = True And Override_SQLCommand <> "" Then
ClassDatabase.Execute_non_Query(Override_SQLCommand)
End If
If oErrorOcurred = False Then
'TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(False, "", Document_ID)
''Das Dokument
'TBPM_PROFILE_FILESTableAdapter.CmdSetEdit(Document_ID)
Dim WORK_HISTORY_ENTRY = Nothing
Try
WORK_HISTORY_ENTRY = CURRENT_DT_PROFILE.Rows(0).Item("WORK_HISTORY_ENTRY")
If IsDBNull(WORK_HISTORY_ENTRY) Then
WORK_HISTORY_ENTRY = Nothing
End If
Catch ex As Exception
LOGGER.Error(ex)
WORK_HISTORY_ENTRY = Nothing
End Try
If Not IsNothing(WORK_HISTORY_ENTRY) Then
If WORK_HISTORY_ENTRY <> String.Empty Then
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
' einen Regulären Ausdruck laden
Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
' die Vorkommen im SQL-String auslesen
Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(WORK_HISTORY_ENTRY)
'####
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente
Try
LOGGER.Debug("element in RegeX WORK_HISTORY_ENTRY: " & element.Value)
Dim CTRL_ID = element.Value.Substring(2, element.Value.Length - 3)
CTRL_ID = CTRL_ID.Replace("CTRLID", "")
Dim value_from_control
If IsNumeric(CTRL_ID) Then
For Each oControl As Control In Me.pnldesigner.Controls
Try
If IsNothing(DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid) Then
Continue For
End If
Catch ex As Exception
Continue For
End Try
If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = CTRL_ID Then
'######
Dim Type As String = oControl.GetType.ToString
Select Case Type
Case "System.Windows.Forms.TextBox"
Try
value_from_control = oControl.Text
Catch ex As Exception
LOGGER.Error(ex)
value_from_control = String.Empty
End Try
Case "System.Windows.Forms.ComboBox"
Dim cmb As ComboBox = oControl
Try
value_from_control = cmb.Text
Catch ex As Exception
LOGGER.Error(ex)
value_from_control = String.Empty
End Try
Case "System.Windows.Forms.DateTimePicker"
Dim dtp As DateTimePicker = oControl
Try
value_from_control = dtp.Value.ToString
Catch ex As Exception
LOGGER.Error(ex)
value_from_control = String.Empty
End Try
Case "System.Windows.Forms.CheckBox"
Dim chk As CheckBox = oControl
Try
value_from_control = chk.Checked
Catch ex As Exception
LOGGER.Error(ex)
value_from_control = String.Empty
End Try
End Select
End If
Next
End If
If Not IsNothing(value_from_control) And value_from_control <> String.Empty Then
WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace(element.Value, value_from_control)
End If
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in Checking control values for WORK_HISTORY_ENTRY - ERROR: " & ex.Message)
End Try
Next
If WORK_HISTORY_ENTRY.ToString.Contains("@DATE") Then
WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace("@DATE", Now.ToShortDateString)
End If
If WORK_HISTORY_ENTRY.ToString.Contains("@USERNAME") Then
WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace("@USERNAME", USER_USERNAME)
End If
Else
WORK_HISTORY_ENTRY = ""
End If
End If
Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, Environment.MachineName, WORK_HISTORY_ENTRY)
ClassDatabase.Execute_non_Query(ins)
Dim oFIsql As String
'Close_document_viewer()
If WMDocPathWindows.ToLower.EndsWith(".pdf") Then
If Not IsNothing(WORK_HISTORY_ENTRY) Then
If CBool(CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_WORK_HISTORY_ENTRY")) = True Then
oFIsql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE GUID = (SELECT MAX(GUID) FROM TBPM_FILES_WORK_HISTORY WHERE PROFIL_ID = {0} AND DOC_ID = {1})", CURRENT_ProfilGUID, CURRENT_DOC_ID)
Dim DT_ENTRY As DataTable = ClassDatabase.Return_Datatable(oFIsql, True)
If Not IsNothing(DT_ENTRY) Then
If DT_ENTRY.Rows.Count = 1 Then
Dim AnnotationString = DT_ENTRY.Rows(0).Item("WORKED_WHEN") & " " & DT_ENTRY.Rows(0).Item("WORKED_BY") & ": " & DT_ENTRY.Rows(0).Item("STATUS_COMMENT")
ClassAnnotation.Annotate_PDF("Workflow-State:", AnnotationString, 0, False)
End If
End If
End If
Dim value = CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_ALL_WORK_HISTORY_ENTRIES")
If CBool(value) = True Then
oFIsql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE DOC_ID = {1} ORDER BY GUID", CURRENT_ProfilGUID, CURRENT_DOC_ID)
Dim DT_ENTRIES As DataTable = ClassDatabase.Return_Datatable(oFIsql, True)
If Not IsNothing(DT_ENTRIES) Then
If DT_ENTRIES.Rows.Count > 0 Then
Dim AnnotationString As String = ""
For Each rw As DataRow In DT_ENTRIES.Rows
AnnotationString = AnnotationString & rw.Item("WORKED_WHEN") & " " & rw.Item("WORKED_BY") & ": " & rw.Item("STATUS_COMMENT") & vbNewLine
Next
ClassAnnotation.Annotate_PDF("Workflow History:", AnnotationString, 0, False, 10, 40)
End If
End If End If
End If End If
End If End If
If oFIResult = False Then End If
errormessage = "Error in final indexing:" & vbNewLine & idxerr_message
'wenn Move2Folder aktiviert wurde
If Move2Folder <> "" Then
idxerr_message = allgFunk.Move2Folder(WMDocPathWindows, Move2Folder, CURRENT_ProfilGUID, _windream)
If idxerr_message <> "" Then
errormessage = "Fehler bei Move2Folder:" & vbNewLine & idxerr_message
My.Settings.Save() My.Settings.Save()
frmError.ShowDialog() frmError.ShowDialog()
oErrorOcurred = True oErrorOcurred = True
End If End If
End If
'Validierungsfile löschen wenn vorhanden
'allgFunk.Delete_xffres(WMDocPathWindows, _windream)
'LOGGER.Debug("Delete_xffres ausgeführt")
End If
If oErrorOcurred = True Then End If
Exit For
End If 'Catch ex As Exception
Next ' LOGGER.Error(ex)
' errormessage = "Unexpected error in Finish:" & ex.Message
' My.Settings.Save()
' frmError.ShowDialog()
' LOGGER.Info("Unexpected error in Finish: " & ex.Message, True)
'End Try
Else
'lblerror.Visible = True
'lblerror.Text = errmessage
errormessage = oErrorMessage
frmError.ShowDialog()
End If End If
''Wenn kein Fehler nach der finalen Indexierung gesetzt wurde
If oErrorOcurred = False Then
'Das Dokument freigeben und als editiert markieren
Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, IN_WORK_WHEN = NULL, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", USER_USERNAME, CURRENT_DOC_GUID)
ClassDatabase.Execute_non_Query(sql)
'TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(False, "", Document_ID)
''Das Dokument
'TBPM_PROFILE_FILESTableAdapter.CmdSetEdit(Document_ID)
Dim WORK_HISTORY_ENTRY = Nothing
Try
WORK_HISTORY_ENTRY = CURRENT_DT_PROFILE.Rows(0).Item("WORK_HISTORY_ENTRY")
If IsDBNull(WORK_HISTORY_ENTRY) Then
WORK_HISTORY_ENTRY = Nothing
End If
Catch ex As Exception
LOGGER.Error(ex)
WORK_HISTORY_ENTRY = Nothing
End Try
If Not IsNothing(WORK_HISTORY_ENTRY) Then
If WORK_HISTORY_ENTRY <> String.Empty Then
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
' einen Regulären Ausdruck laden
Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
' die Vorkommen im SQL-String auslesen
Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(WORK_HISTORY_ENTRY)
'####
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente
Try
LOGGER.Debug("element in RegeX WORK_HISTORY_ENTRY: " & element.Value)
Dim CTRL_ID = element.Value.Substring(2, element.Value.Length - 3)
CTRL_ID = CTRL_ID.Replace("CTRLID", "")
Dim value_from_control
If IsNumeric(CTRL_ID) Then
For Each oControl As Control In Me.pnldesigner.Controls
Try
If IsNothing(DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid) Then
Continue For
End If
Catch ex As Exception
Continue For
End Try
If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = CTRL_ID Then
'######
Dim Type As String = oControl.GetType.ToString
Select Case Type
Case "System.Windows.Forms.TextBox"
Try
value_from_control = oControl.Text
Catch ex As Exception
LOGGER.Error(ex)
value_from_control = String.Empty
End Try
Case "System.Windows.Forms.ComboBox"
Dim cmb As ComboBox = oControl
Try
value_from_control = cmb.Text
Catch ex As Exception
LOGGER.Error(ex)
value_from_control = String.Empty
End Try
Case "System.Windows.Forms.DateTimePicker"
Dim dtp As DateTimePicker = oControl
Try
value_from_control = dtp.Value.ToString
Catch ex As Exception
LOGGER.Error(ex)
value_from_control = String.Empty
End Try
Case "System.Windows.Forms.CheckBox"
Dim chk As CheckBox = oControl
Try
value_from_control = chk.Checked
Catch ex As Exception
LOGGER.Error(ex)
value_from_control = String.Empty
End Try
End Select
End If
Next
End If
If Not IsNothing(value_from_control) And value_from_control <> String.Empty Then
WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace(element.Value, value_from_control)
End If
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in Checking control values for WORK_HISTORY_ENTRY - ERROR: " & ex.Message)
End Try
Next
If WORK_HISTORY_ENTRY.ToString.Contains("@DATE") Then
WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace("@DATE", Now.ToShortDateString)
End If
If WORK_HISTORY_ENTRY.ToString.Contains("@USERNAME") Then
WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace("@USERNAME", USER_USERNAME)
End If
Else
WORK_HISTORY_ENTRY = ""
End If
End If
Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, Environment.MachineName, WORK_HISTORY_ENTRY)
ClassDatabase.Execute_non_Query(ins)
'Close_document_viewer()
If WMDocPathWindows.ToLower.EndsWith(".pdf") Then
If Not IsNothing(WORK_HISTORY_ENTRY) Then
If CBool(CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_WORK_HISTORY_ENTRY")) = True Then
sql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE GUID = (SELECT MAX(GUID) FROM TBPM_FILES_WORK_HISTORY WHERE PROFIL_ID = {0} AND DOC_ID = {1})", CURRENT_ProfilGUID, CURRENT_DOC_ID)
Dim DT_ENTRY As DataTable = ClassDatabase.Return_Datatable(sql, True)
If Not IsNothing(DT_ENTRY) Then
If DT_ENTRY.Rows.Count = 1 Then
Dim AnnotationString = DT_ENTRY.Rows(0).Item("WORKED_WHEN") & " " & DT_ENTRY.Rows(0).Item("WORKED_BY") & ": " & DT_ENTRY.Rows(0).Item("STATUS_COMMENT")
ClassAnnotation.Annotate_PDF("Workflow-State:", AnnotationString, 0, False)
End If
End If
End If
Dim value = CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_ALL_WORK_HISTORY_ENTRIES")
If CBool(value) = True Then
sql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE DOC_ID = {1} ORDER BY GUID", CURRENT_ProfilGUID, CURRENT_DOC_ID)
Dim DT_ENTRIES As DataTable = ClassDatabase.Return_Datatable(sql, True)
If Not IsNothing(DT_ENTRIES) Then
If DT_ENTRIES.Rows.Count > 0 Then
Dim AnnotationString As String = ""
For Each rw As DataRow In DT_ENTRIES.Rows
AnnotationString = AnnotationString & rw.Item("WORKED_WHEN") & " " & rw.Item("WORKED_BY") & ": " & rw.Item("STATUS_COMMENT") & vbNewLine
Next
ClassAnnotation.Annotate_PDF("Workflow History:", AnnotationString, 0, False, 10, 40)
End If
End If
End If
End If
End If
'wenn Move2Folder aktiviert wurde
If Move2Folder <> "" Then
idxerr_message = allgFunk.Move2Folder(WMDocPathWindows, Move2Folder, CURRENT_ProfilGUID, _windream)
If idxerr_message <> "" Then
errormessage = "Fehler bei Move2Folder:" & vbNewLine & idxerr_message
My.Settings.Save()
frmError.ShowDialog()
oErrorOcurred = True
End If
End If
'Validierungsfile löschen wenn vorhanden
'allgFunk.Delete_xffres(WMDocPathWindows, _windream)
'LOGGER.Debug("Delete_xffres ausgeführt")
LOGGER.Debug("All Input clear")
Anzahl_validierte_Dok += 1
'tstrlbl_Info.Text = "Anzahl Dateien: " & TBPM_PROFILE_FILESTableAdapter.cmdGet_Anzahl(PROFIL_ID)
LOGGER.Debug("Anzahl hochgesetzt")
LOGGER.Debug("Validierung erfolgreich abgeschlossen")
Dim oPROCSQL = $"EXEC PRPM_CHECK_NEXT_WF {CURRENT_DOC_GUID}"
ClassDatabase.Execute_non_Query(oPROCSQL)
If CURRENT_JUMP_DOC_GUID <> 0 Then
Me.Close()
Else
'Das nächste Dokument laden
Load_Next_Document(False)
set_foreground()
If first_control Is Nothing = False Then first_control.Focus()
End If
End If
'Catch ex As Exception
' LOGGER.Error(ex)
' errormessage = "Unexpected error in Finish:" & ex.Message
' My.Settings.Save()
' frmError.ShowDialog()
' LOGGER.Info("Unexpected error in Finish: " & ex.Message, True)
'End Try
Else Else
'lblerror.Visible = True LOGGER.Info("Overriding all in action")
'lblerror.Text = errmessage If Override_SQLCommand <> "" Then
errormessage = oErrorMessage ClassDatabase.Execute_non_Query(Override_SQLCommand)
frmError.ShowDialog() End If
End If End If
'Das Dokument freigeben und als editiert markieren
Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, IN_WORK_WHEN = NULL, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", USER_USERNAME, CURRENT_DOC_GUID)
ClassDatabase.Execute_non_Query(sql)
LOGGER.Debug("All Input clear")
Anzahl_validierte_Dok += 1
'tstrlbl_Info.Text = "Anzahl Dateien: " & TBPM_PROFILE_FILESTableAdapter.cmdGet_Anzahl(PROFIL_ID)
LOGGER.Debug("Anzahl hochgesetzt")
LOGGER.Debug("Validierung erfolgreich abgeschlossen")
Dim oPROCSQL = $"EXEC PRPM_CHECK_NEXT_WF {CURRENT_DOC_GUID}"
ClassDatabase.Execute_non_Query(oPROCSQL)
If CURRENT_JUMP_DOC_GUID <> 0 Then
Me.Close()
Else
'Das nächste Dokument laden
Load_Next_Document(False)
set_foreground()
If first_control Is Nothing = False Then first_control.Focus()
End If
btnSave.Enabled = True btnSave.Enabled = True
End Sub End Sub
Function Check_Missing(control As Control, typ As String) Function Check_Missing(control As Control, typ As String)
@ -3194,8 +3226,8 @@ Public Class frmValidator
Dim oLogStr = Return_LOGString(oMyInput, oValueFromObject, oIndexName) Dim oLogStr = Return_LOGString(oMyInput, oValueFromObject, oIndexName)
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
WMIndexVectofield(oLogStr, PROFIL_LOGINDEX) WMIndexVectofield(oLogStr, PROFIL_LOGINDEX)
Else 'Else
IDBData.SetVariableValue(PROFIL_LOGINDEX, oLogStr) ' IDBData.SetVariableValue(PROFIL_LOGINDEX, oLogStr)
End If End If
End If End If
@ -3295,8 +3327,8 @@ Public Class frmValidator
Dim oMyLogString = Return_LOGString(oMyInput, oSourceValue, oIndexName) Dim oMyLogString = Return_LOGString(oMyInput, oSourceValue, oIndexName)
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
WMIndexVectofield(oMyLogString, PROFIL_LOGINDEX) WMIndexVectofield(oMyLogString, PROFIL_LOGINDEX)
Else 'Else
IDBData.SetVariableValue(PROFIL_LOGINDEX, oMyLogString) 'IDBData.SetVariableValue(PROFIL_LOGINDEX, oMyLogString)
End If End If
End If End If
@ -3405,8 +3437,8 @@ Public Class frmValidator
Dim ologStr = Return_LOGString(oMyInput, oWMValue, oIndexName) Dim ologStr = Return_LOGString(oMyInput, oWMValue, oIndexName)
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
WMIndexVectofield(ologStr, PROFIL_LOGINDEX) WMIndexVectofield(ologStr, PROFIL_LOGINDEX)
Else 'Else
IDBData.SetVariableValue(PROFIL_LOGINDEX, ologStr) 'IDBData.SetVariableValue(PROFIL_LOGINDEX, ologStr)
End If End If
End If End If
@ -3484,8 +3516,8 @@ Public Class frmValidator
Dim oLogstr = Return_LOGString(oMyInput, oObjectValue, oIndexName) Dim oLogstr = Return_LOGString(oMyInput, oObjectValue, oIndexName)
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
WMIndexVectofield(oLogstr, PROFIL_LOGINDEX) WMIndexVectofield(oLogstr, PROFIL_LOGINDEX)
Else 'Else
IDBData.SetVariableValue(PROFIL_LOGINDEX, oLogstr) 'IDBData.SetVariableValue(PROFIL_LOGINDEX, oLogstr)
End If End If
End If End If
@ -3580,8 +3612,8 @@ Public Class frmValidator
Dim oLogstr = Return_LOGString(CBool(result(0)).ToString, WertWD, oIndexName) Dim oLogstr = Return_LOGString(CBool(result(0)).ToString, WertWD, oIndexName)
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
WMIndexVectofield(oLogstr, PROFIL_LOGINDEX) WMIndexVectofield(oLogstr, PROFIL_LOGINDEX)
Else 'Else
IDBData.SetVariableValue(PROFIL_LOGINDEX, oLogstr) 'IDBData.SetVariableValue(PROFIL_LOGINDEX, oLogstr)
End If End If
End If End If
@ -3819,7 +3851,7 @@ Public Class frmValidator
End Function End Function
Private Sub btnfinal_Click(sender As System.Object, e As System.EventArgs) Private Sub btnfinal_Click(sender As System.Object, e As System.EventArgs)
Abschluss() Finish_WFStep()
End Sub End Sub
Function GetConnectionString(id As Integer) Function GetConnectionString(id As Integer)
Try Try
@ -3884,8 +3916,7 @@ Public Class frmValidator
Try Try
LOGGER.Debug("Dokument überspringen") LOGGER.Debug("Dokument überspringen")
'Das Dokument freigeben 'Das Dokument freigeben
Dim sql = $"UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, IN_WORK_WHEN = NULL, WORK_USER = NULL WHERE GUID = {CURRENT_DOC_GUID}"
ClassDatabase.Execute_non_Query(sql)
Dim oSQL = $"EXECUTE PRPM_FILES_NOT_INDEXED '{USER_USERNAME}',{CURRENT_ProfilGUID},'{WMDocPathWindows}',{CURRENT_DOC_GUID}" Dim oSQL = $"EXECUTE PRPM_FILES_NOT_INDEXED '{USER_USERNAME}',{CURRENT_ProfilGUID},'{WMDocPathWindows}',{CURRENT_DOC_GUID}"
ClassDatabase.Execute_non_Query(oSQL) ClassDatabase.Execute_non_Query(oSQL)
@ -3897,7 +3928,15 @@ Public Class frmValidator
MsgBox("Fehler bei Überspringen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Fehler bei Überspringen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Private Function Free_File()
Try
Dim sql = $"UPDATE TBPM_PROFILE_FILES SET EDIT = 0, IN_WORK = 0, IN_WORK_WHEN = NULL, WORK_USER = NULL WHERE GUID = {CURRENT_DOC_GUID}"
Return ClassDatabase.Execute_non_Query(sql)
Catch ex As Exception
LOGGER.Error(ex)
Return False
End Try
End Function
Private Sub delete_active_File() Private Sub delete_active_File()
Try Try
Dim result As MsgBoxResult Dim result As MsgBoxResult
@ -3996,7 +4035,7 @@ Public Class frmValidator
Datei_ueberspringen() Datei_ueberspringen()
ElseIf e.KeyCode = Keys.F2 Then ElseIf e.KeyCode = Keys.F2 Then
btnSave.Enabled = False btnSave.Enabled = False
Abschluss() Finish_WFStep()
btnSave.Enabled = True btnSave.Enabled = True
End If End If
@ -4070,18 +4109,18 @@ Public Class frmValidator
End Sub End Sub
Private Sub btnSave_MouseHover(sender As Object, e As EventArgs) Handles btnSave.MouseHover Private Sub btnSave_MouseHover(sender As Object, e As EventArgs) Handles btnSave.MouseHover
'Dim msg = "strg & s für speichern" Dim msg = "F2 für Seichern"
'If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
' msg = "ctrl & s for saving" msg = "F2 for saving"
'End If End If
'ToolTip1.Show(msg, btnSave) ToolTip1.Show(msg, btnSave)
End Sub End Sub
Private Sub frmValidator_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown Private Sub frmValidator_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
End Sub End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs)
End Sub End Sub
End Class End Class