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

jj 17.11

Browse Source
This commit is contained in:
JenneJ
2016-11-17 16:32:30 +01:00
parent fa59a28683
commit d9384ec390
14 changed files with 2102 additions and 3053 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -123,11 +123,10 @@ Public Class frmEntities
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
Me.btnGenerate.Visible = False
End If
Catch ex As Exception
MsgBox("Error in Load_Forms:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -190,7 +189,7 @@ Public Class frmEntities
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
'Me.GroupBox1.Visible = True
insert = True
End Sub
Private Sub SaveLayout()
@@ -261,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 = Environment.UserName
Me.TBPMO_FORM_VIEWBindingSource.EndEdit()
TBPMO_FORM_VIEWTableAdapter.Update(DD_DMSDataSet.TBPMO_FORM_VIEW)
changes = True