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

MS_21.10.2015

Browse Source
This commit is contained in:
SchreiberM
2015-10-21 11:58:58 +02:00
parent be7347af13
commit bab4910c44
18 changed files with 1885 additions and 1781 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,6 +1,7 @@
Public Class frmTemplates
Dim _TEMPLATEID As Integer
Dim _TEMPLATE_ENTITY_ID As Integer
Dim loaded As Boolean = False
Private Sub TBPMO_TEMPLATEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPMO_TEMPLATEBindingNavigatorSaveItem.Click
Me.Validate()
@@ -72,15 +73,20 @@
End Sub
Private Sub TBPMO_TEMPLATE_ENTITYBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_TEMPLATE_ENTITYBindingSource.CurrentChanged
If TBPMO_TEMPLATE_ENTITYBindingSource.Position <> -1 Then
If DD_DMSDataSet.TBPMO_TEMPLATE_ENTITY.Rows(TBPMO_TEMPLATE_ENTITYBindingSource.Position).Item("TEMPLATE_ID") = _TEMPLATEID Then
_TEMPLATE_ENTITY_ID = DD_DMSDataSet.TBPMO_TEMPLATE_ENTITY.Rows(TBPMO_TEMPLATE_ENTITYBindingSource.Position).Item("GUID")
If loaded = True Then
If TBPMO_TEMPLATE_ENTITYBindingSource.Position <> -1 Then
If DD_DMSDataSet.TBPMO_TEMPLATE_ENTITY.Rows(TBPMO_TEMPLATE_ENTITYBindingSource.Position).Item("TEMPLATE_ID") = _TEMPLATEID Then
_TEMPLATE_ENTITY_ID = DD_DMSDataSet.TBPMO_TEMPLATE_ENTITY.Rows(TBPMO_TEMPLATE_ENTITYBindingSource.Position).Item("GUID")
End If
End If
Load_Patterns()
End If
End Sub
Private Sub frmTemplates_Shown(sender As Object, e As EventArgs) Handles Me.Shown
loaded = True
Load_entity()
Load_Patterns()
End Sub