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

MS_KW9

Browse Source
This commit is contained in:
SchreiberM
2016-03-07 09:13:55 +01:00
parent 45e67aea4e
commit 3266da1baa
17 changed files with 8363 additions and 8828 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -108,7 +108,10 @@ Public Class frmEntities
Me.TBPMO_FORMTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_FORM, FORMID)
Me.TBPMO_FORM_VIEWTableAdapter.FillByFORMID(Me.DD_DMSDataSet.TBPMO_FORM_VIEW, FORMID)
If PARENT_IDTextBox.Text = 0 And ComboBox1.SelectedValue = 1 Then
Me.btnGenerate.Visible = True
If PARENT_IDTextBox.Text = 0 And (ComboBox1.SelectedValue = 1 Or ComboBox1.SelectedValue = 4) Then
Me.btnGenerate.Visible = True
Else
btnGenerate.Visible = False
@@ -181,6 +184,8 @@ Public Class frmEntities
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.SHOW_FORM_CONSTRUCTColumn.DefaultValue = True
DD_DMSDataSet.TBPMO_FORM.SINGLE_RECORDColumn.DefaultValue = False
Me.GroupBox1.Visible = True
insert = True
End Sub
@@ -225,8 +230,12 @@ Public Class frmEntities
If DD_DMSDataSet.TBPMO_FORM.GetChanges Is Nothing = False Then
Me.CHANGED_WHOTextBoxPMOForm.Text = Environment.UserName
Me.TBPMO_FORMBindingSource.EndEdit()
TBPMO_FORMTableAdapter.Update(DD_DMSDataSet.TBPMO_FORM)
Try
TBPMO_FORMTableAdapter.Update(DD_DMSDataSet.TBPMO_FORM)
Catch ex As Exception
MsgBox("Error in Save/Insert Entity:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Exit Sub
End Try
changes = True
End If
@@ -242,8 +251,9 @@ Public Class frmEntities
'ggg()
If FORM_ID Is Nothing = False Then
sql = String.Format("INSERT INTO TBPMO_FORM_VIEW (FORM_ID, SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO,LANGUAGE) VALUES ({0}, {1},'{2}','{3}','{4}','{5}')", FORM_ID, CURRENT_SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO, USER_LANGUAGE)
ClassDatabase.Execute_non_Query(sql)
ClassDatabase.Execute_non_Query(sql, True)
End If
Load_TreeView()
Else
Me.TBPMO_FORM_VIEWBindingSource.EndEdit()
If DD_DMSDataSet.TBPMO_FORM_VIEW.GetChanges Is Nothing = False Then
@@ -264,7 +274,7 @@ Public Class frmEntities
End If
' Load_Forms()
Catch ex As Exception
MsgBox("Error in Save:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
MsgBox("Error in Entity:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub