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

12
app/DD-Record-Organiser/frmEntities.vb
View File

@@ -185,8 +185,8 @@ Public Class frmEntities
End Function
Private Sub TBPMO_FORMBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_FORMBindingSource.AddingNew
DD_DMSDataSet.TBPMO_FORM.ADDED_WHOColumn.DefaultValue = Environment.UserName
DD_DMSDataSet.TBPMO_FORM_VIEW.ADDED_WHOColumn.DefaultValue = Environment.UserName
DD_DMSDataSet.TBPMO_FORM.ADDED_WHOColumn.DefaultValue = USER_USERNAME
DD_DMSDataSet.TBPMO_FORM_VIEW.ADDED_WHOColumn.DefaultValue = USER_USERNAME
DD_DMSDataSet.TBPMO_FORM.SHOW_FORM_CONSTRUCTColumn.DefaultValue = True
DD_DMSDataSet.TBPMO_FORM.SINGLE_RECORDColumn.DefaultValue = False
'Me.GroupBox1.Visible = True
@@ -231,7 +231,7 @@ Public Class frmEntities
' Save FORM Properties
If DD_DMSDataSet.TBPMO_FORM.GetChanges Is Nothing = False Then
Me.CHANGED_WHOTextBoxPMOForm.Text = Environment.UserName
Me.CHANGED_WHOTextBoxPMOForm.Text = USER_USERNAME
Me.TBPMO_FORMBindingSource.EndEdit()
Try
TBPMO_FORMTableAdapter.Update(DD_DMSDataSet.TBPMO_FORM)
@@ -247,7 +247,7 @@ Public Class frmEntities
Dim sql = "SELECT (MAX(GUID)) FROM TBPMO_FORM"
Dim FORM_ID = ClassDatabase.Execute_Scalar(sql)
Dim ADDED_WHO As String = Environment.UserName
Dim ADDED_WHO As String = USER_USERNAME
'MsgBox(FORM_TITLETextBox.Text)
@@ -260,7 +260,7 @@ Public Class frmEntities
Else
Me.TBPMO_FORM_VIEWBindingSource.EndEdit()
If DD_DMSDataSet.TBPMO_FORM_VIEW.GetChanges Is Nothing = False Then
'Me.CHANGED_WHOTextBoxPMOFormView.Text = Environment.UserName
'Me.CHANGED_WHOTextBoxPMOFormView.Text = USER_USERNAME
Me.TBPMO_FORM_VIEWBindingSource.EndEdit()
TBPMO_FORM_VIEWTableAdapter.Update(DD_DMSDataSet.TBPMO_FORM_VIEW)
changes = True
@@ -336,7 +336,7 @@ Public Class frmEntities
If result = MsgBoxResult.Yes Then
Try
Dim CurrentID = GetCurrentGUID()
Dim sql As String = "EXEC PRPMO_COPY_ENTITY " & CurrentID.ToString & ", '" & Environment.UserName & "'"
Dim sql As String = "EXEC PRPMO_COPY_ENTITY " & CurrentID.ToString & ", '" & USER_USERNAME & "'"
If ClassDatabase.Execute_non_Query(sql) = True Then
'MsgBox("Die Entität wurde erfolgreich kopiert!", MsgBoxStyle.Information)
Load_TreeView()