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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-11-23 10:24:21 +01:00
parent a1d1b2a88e
commit fc9f391307
79 changed files with 7388 additions and 4524 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.vb
View File

@@ -60,7 +60,7 @@
lblSaveDokart.Text = msg
Me.TBDD_DOKUMENTARTBindingSource.EndEdit()
If DD_DMSDataSet.TBDD_DOKUMENTART.GetChanges Is Nothing = False Then
Me.GEANDERTWERTextBox.Text = Environment.UserName
Me.GEANDERTWERTextBox.Text = USER_USERNAME
Me.TBDD_DOKUMENTARTBindingSource.EndEdit()
Me.TBDD_DOKUMENTARTTableAdapter.Update(Me.DD_DMSDataSet.TBDD_DOKUMENTART)
If IsInsert = True Then
@@ -108,7 +108,7 @@
Try
Me.TBDD_INDEX_AUTOMBindingSource.EndEdit()
If DD_DMSDataSet.TBDD_INDEX_AUTOM.GetChanges Is Nothing = False Then
Me.CHANGED_WHOTextBox.Text = Environment.UserName
Me.CHANGED_WHOTextBox.Text = USER_USERNAME
Me.TBDD_INDEX_AUTOMBindingSource.EndEdit()
Me.TBDD_INDEX_AUTOMTableAdapter.Update(Me.DD_DMSDataSet.TBDD_INDEX_AUTOM)
Me.lblSaveIndex.Visible = True
@@ -129,16 +129,16 @@
End Try
End Sub
Private Sub TBDD_DOKUMENTARTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_DOKUMENTARTBindingSource.AddingNew
Me.DD_DMSDataSet.TBDD_DOKUMENTART.ERSTELLTWERColumn.DefaultValue = Environment.UserName
Me.DD_DMSDataSet.TBDD_DOKUMENTART.ERSTELLTWERColumn.DefaultValue = USER_USERNAME
IsInsert = True
End Sub
Private Sub TBDD_EINGANGSARTENBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_EINGANGSARTENBindingSource.AddingNew
Me.DD_DMSDataSet.TBDD_EINGANGSARTEN.ERSTELLTWERColumn.DefaultValue = Environment.UserName
Me.DD_DMSDataSet.TBDD_EINGANGSARTEN.ERSTELLTWERColumn.DefaultValue = USER_USERNAME
End Sub
Private Sub TBDD_INDEX_AUTOMBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_AUTOMBindingSource.AddingNew
Me.DD_DMSDataSet.TBDD_INDEX_AUTOM.ADDED_WHOColumn.DefaultValue = Environment.UserName
Me.DD_DMSDataSet.TBDD_INDEX_AUTOM.ADDED_WHOColumn.DefaultValue = USER_USERNAME
Me.DD_DMSDataSet.TBDD_INDEX_AUTOM.DOCTYPE_IDColumn.DefaultValue = GUIDTextBox.Text
load_Indices()
End Sub
@@ -238,7 +238,7 @@
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAddDokart_Entity.Click
Me.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter.cmdInsert(Me.cmbEntity_Doctype.SelectedValue, Me.GUIDTextBox.Text, Me.OBJEKTTYPComboBox.Text, Environment.UserName)
Me.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter.cmdInsert(Me.cmbEntity_Doctype.SelectedValue, Me.GUIDTextBox.Text, Me.OBJEKTTYPComboBox.Text, USER_USERNAME)
Refresh_DokID_FORM_VIEW()
End Sub
@@ -500,7 +500,7 @@
End If
If Changes = True Then
Dim upd = String.Format("UPDATE TBDD_DOKUMENTART SET FOLDER_FOR_INDEX = '{0}', GEANDERTWER = '{1}' WHERE GUID = {2}", FOLDER_FOR_INDEXTextBox.Text, Environment.UserName, GUIDTextBox.Text)
Dim upd = String.Format("UPDATE TBDD_DOKUMENTART SET FOLDER_FOR_INDEX = '{0}', GEANDERTWER = '{1}' WHERE GUID = {2}", FOLDER_FOR_INDEXTextBox.Text, USER_USERNAME, GUIDTextBox.Text)
If ClassDatabase.Execute_non_Query(upd) = False Then
MsgBox("Unexpected Error in Adding Variable path - Check logfile", MsgBoxStyle.Exclamation)
End If
@@ -517,7 +517,7 @@
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Try
Dim upd = String.Format("UPDATE TBDD_DOKUMENTART SET FOLDER_FOR_INDEX = '{0}', GEANDERTWER = '{1}' WHERE GUID = {2}", FOLDER_FOR_INDEXTextBox.Text, Environment.UserName, GUIDTextBox.Text)
Dim upd = String.Format("UPDATE TBDD_DOKUMENTART SET FOLDER_FOR_INDEX = '{0}', GEANDERTWER = '{1}' WHERE GUID = {2}", FOLDER_FOR_INDEXTextBox.Text, USER_USERNAME, GUIDTextBox.Text)
If ClassDatabase.Execute_non_Query(upd) = False Then
MsgBox("Unexpected Error in Adding Variable path - Check logfile", MsgBoxStyle.Exclamation)
Else