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

MS_18042016

Browse Source
This commit is contained in:
SchreiberM
2016-04-19 11:08:32 +02:00
parent 8ed70abb9a
commit 79942542e4
30 changed files with 5644 additions and 4517 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD-Record-Organiser/frmConstructorDesigner.vb
View File

@@ -353,7 +353,7 @@ Public Class frmConstructorDesigner
Me.CHANGED_WHOTextBox1.Text = Environment.UserName
Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource.EndEdit()
Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAIL)
tslblSaveDetail.Text = "Constructor-Details erfolgreich gespeichert - " & Now
tslblSaveDetail.Text = "Constructor-Details saved - " & Now
Me.tslblSaveDetail.Visible = True
Else
Me.tslblSaveDetail.Visible = False
@@ -397,7 +397,7 @@ Public Class frmConstructorDesigner
"',SEARCH_PATTERN4 = '" & SP4 & "',SEARCH_PATTERN5 = '" & SP5 & "', CHANGED_WHO = '" & Environment.UserName & "' where FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
If ClassDatabase.Execute_non_Query(sql) = True Then
lblSave1.Visible = True
lblSave1.Text = "Erfolgreich gespeichert - " & Now
lblSave1.Text = "Data saved - " & Now
End If
Catch ex As Exception
MsgBox("Error in Save DocView-properties 2:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)