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

fix status messages, fix changed_who being set on insert, fix added_when being empty for postprocessing

Browse Source
This commit is contained in:
Jonathan Jenne 2020-04-06 11:13:49 +02:00
parent 322c3b0efd
commit 8d53fdafae
1 changed files with 37 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
Global_Indexer/frmAdministration.vb
View File

@ -189,7 +189,9 @@ Public Class frmAdministration
End Try
If MyDataset.TBDD_DOKUMENTART.GetChanges Is Nothing = False Then
Me.GEANDERTWERTextBox.Text = Environment.UserName
If Not IsInsert Then
Me.GEANDERTWERTextBox.Text = Environment.UserName
End If
Try
Me.TBDD_DOKUMENTARTBindingSource.EndEdit()
@ -214,7 +216,9 @@ Public Class frmAdministration
End If
End If
txtStatus.Caption = $"Profil gespeichert - {Now.ToString}"
SetStatus("Profil gespeichert!")
Else
ClearStatus()
End If
IsInsert = False
Catch ex As Exception
@ -412,12 +416,15 @@ Public Class frmAdministration
End Sub
Sub Save_IndexMan()
Try
If Not IsInsert Then
CHANGED_WHOTextBox.Text = Environment.UserName
End If
Me.TBDD_INDEX_MANBindingSource.EndEdit()
If MyDataset.TBDD_INDEX_MAN.GetChanges Is Nothing = False Then
CHANGED_WHOTextBox.Text = Environment.UserName
Me.TBDD_INDEX_MANBindingSource.EndEdit()
TBDD_INDEX_MANTableAdapter.Update(MyDataset.TBDD_INDEX_MAN)
SetStatus("Index erfolgreich gespeichert!")
SetStatus("Manueller Index erfolgreich gespeichert!")
Else
ClearStatus()
End If
@ -433,7 +440,9 @@ Public Class frmAdministration
CHANGED_WHOTextBox3.Text = Environment.UserName
Me.TBDD_INDEX_AUTOMBindingSource.EndEdit()
TBDD_INDEX_AUTOMTableAdapter.Update(MyDataset.TBDD_INDEX_AUTOM)
SetStatus("Index erfolgreich gespeichert!")
SetStatus("Automatischer Index erfolgreich gespeichert!")
Else
ClearStatus()
End If
IsInsert = False
Catch ex As Exception
@ -811,15 +820,21 @@ Public Class frmAdministration
End Sub
Sub Save_PostProcessing()
Try
If Not IsInsert Then
CHANGED_WHOTextBox4.Text = Environment.UserName
End If
TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit()
If MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.GetChanges Is Nothing = False Then
CHANGED_WHOTextBox4.Text = Environment.UserName
TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit()
Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Update(MyDataset.TBDD_INDEX_MAN_POSTPROCESSING)
SetStatus("Funktion erfolgreich gespeichert!")
SetStatus("Nachbearbeitungsfunktion erfolgreich gespeichert!")
Else
ClearStatus()
End If
IsInsert = False
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Save Post Processing: ")
End Try
@ -828,9 +843,11 @@ Public Class frmAdministration
Private Sub TBDD_INDEX_MAN_POSTPROCESSINGBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.AddingNew
Save_Dokumentart()
EnableControls(XtraTabPageManualIndexFunctions)
MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn.DefaultValue = DateTime.Now
MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn.DefaultValue = 1
MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn.DefaultValue = "Funktions Name"
IsInsert = True
End Sub
Sub EnableControls(Control As Control, Optional Value As Boolean = True)
For Each oSubControl As Control In Control.Controls
@ -868,7 +885,8 @@ Public Class frmAdministration
txtcrFoldermanuell.Text = ""
End If
Me.TBDD_DOKUMENTARTTableAdapter.cmdUpdateFolderIndex(Environment.UserName, FOLDER_FOR_INDEXTextBox.Text, DOKART_GUIDTextBox.Text)
txtStatus.Caption = $"Profil gespeichert - {Now.ToString}"
SetStatus("Profil gespeichert")
End Sub
Private Sub cmbCrFolderIndex_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbCrFolderIndex.SelectedIndexChanged
cmbCrFolderDate.SelectedIndex = -1
@ -1002,6 +1020,8 @@ Public Class frmAdministration
TextBox5.Enabled = True
TextBox1.Enabled = True
IsInsert = True
End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
@ -1178,6 +1198,10 @@ Public Class frmAdministration
End Sub
Private Sub BarButtonItem13_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem13.ItemClick
If Not IsInsert Then
TextBox4.Text = Environment.UserName
End If
Try
Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
Catch ex As Exception
@ -1186,14 +1210,18 @@ Public Class frmAdministration
End Try
If MyDataset.TBGI_REGEX_DOCTYPE.GetChanges Is Nothing = False Then
TextBox4.Text = Environment.UserName
Try
Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
Catch ex As Exception
MsgBox("Error in Save Regex2: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
TBGI_REGEX_DOCTYPETableAdapter.Update(MyDataset.TBGI_REGEX_DOCTYPE)
SetStatus("Profilzuordnung gespeichert!")
Else
ClearStatus()
End If
IsInsert = False
End Sub
Private Sub BarButtonItem14_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem14.ItemClick