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

14
app/DD-Record-Organiser/frmTemplates.vb
View File

@@ -12,9 +12,9 @@
MsgBox("Unexpected error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Try
DD_DMSDataSet.TBPMO_TEMPLATE.ADDED_WHOColumn.DefaultValue = Environment.UserName
DD_DMSDataSet.TBPMO_TEMPLATE_ENTITY.ADDED_WHOColumn.DefaultValue = Environment.UserName
DD_DMSDataSet.TBPMO_TEMPLATE_PATTERN.ADDED_WHOColumn.DefaultValue = Environment.UserName
DD_DMSDataSet.TBPMO_TEMPLATE.ADDED_WHOColumn.DefaultValue = USER_USERNAME
DD_DMSDataSet.TBPMO_TEMPLATE_ENTITY.ADDED_WHOColumn.DefaultValue = USER_USERNAME
DD_DMSDataSet.TBPMO_TEMPLATE_PATTERN.ADDED_WHOColumn.DefaultValue = USER_USERNAME
Catch ex As Exception
End Try
@@ -96,7 +96,7 @@
Me.Validate()
Me.TBPMO_TEMPLATEBindingSource.EndEdit()
If Me.DD_DMSDataSet.TBPMO_TEMPLATE.GetChanges Is Nothing = False Then
Me.CHANGED_WHOTextBox.Text = Environment.UserName
Me.CHANGED_WHOTextBox.Text = USER_USERNAME
Me.TBPMO_TEMPLATEBindingSource.EndEdit()
TBPMO_TEMPLATETableAdapter.Update(DD_DMSDataSet.TBPMO_TEMPLATE)
lblSaveTemplate.Visible = True
@@ -134,7 +134,7 @@
If Not IsNothing(cc) Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Office-Pattern: " & cc.Tag, False)
If Pattern_exists(cc.tag.ToString.ToUpper) = False Then
TBPMO_TEMPLATE_PATTERNTableAdapter.cmdInsertBasics(cc.tag.ToString, Environment.UserName, _TEMPLATE_ENTITY_ID)
TBPMO_TEMPLATE_PATTERNTableAdapter.cmdInsertBasics(cc.tag.ToString, USER_USERNAME, _TEMPLATE_ENTITY_ID)
End If
End If
Next cc
@@ -181,7 +181,7 @@
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If cmbEntities.SelectedIndex <> -1 Then
Try
TBPMO_TEMPLATE_ENTITYTableAdapter.Insert(_TEMPLATEID, cmbEntities.SelectedValue, Environment.UserName)
TBPMO_TEMPLATE_ENTITYTableAdapter.Insert(_TEMPLATEID, cmbEntities.SelectedValue, USER_USERNAME)
Load_Template_Entity(_TEMPLATEID)
lblSaveEntity.Visible = True
Catch ex As Exception
@@ -255,7 +255,7 @@
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnRefreshControlPattern.Click
If cmbControls.SelectedIndex <> -1 Then
Dim ctrlstring = cmbControls.SelectedValue.ToString
Dim sql = String.Format("UPDATE TBPMO_TEMPLATE_PATTERN SET FIXED_VALUE = '{0}',CHANGED_WHO = '{1}' WHERE GUID = {2}", ctrlstring, Environment.UserName, GUIDTextBox2.Text)
Dim sql = String.Format("UPDATE TBPMO_TEMPLATE_PATTERN SET FIXED_VALUE = '{0}',CHANGED_WHO = '{1}' WHERE GUID = {2}", ctrlstring, USER_USERNAME, GUIDTextBox2.Text)
If ClassDatabase.Execute_non_Query(sql, True) Then
FIXED_VALUETextBox.Text = ctrlstring
lblSavePattern.Visible = True