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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-11-10 15:59:24 +01:00
parent 8f6d151f3a
commit 0a5530aa8f
11 changed files with 1194 additions and 1316 deletions
Download Patch File Download Diff File Expand all files Collapse all files

283
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -324,6 +324,12 @@ Public Class frmConstructor_Main
SplitContainerTop.PanelVisibility = SplitPanelVisibility.Panel2
SplitContainerMain.Collapsed = True
NODE_NAVIGATION = True
Else
If DT_VWPMO_CONSTRUCTOR_FORMS.Rows.Count = 1 Then
SplitContainerTop.PanelVisibility = SplitPanelVisibility.Both
SplitContainerTop.CollapsePanel = SplitCollapsePanel.Panel1
SplitContainerTop.Collapsed = True
End If
End If
DT_CONSTRUCT_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID)
Dim SEL1 = String.Format("SELECT * FROM TBPMO_FORM WHERE GUID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {0} AND CONSTRUCT_ID = {1})", CURRENT_SCREEN_ID, CONSTRUCTORID)
@@ -943,7 +949,7 @@ Public Class frmConstructor_Main
DisableEditMode()
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
ChangeParentLinktsmi.Enabled = True
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
@@ -1005,19 +1011,20 @@ Public Class frmConstructor_Main
docCM_linkRecord.Enabled = True
docCM_InWork.Enabled = True
docCM_Copy.Enabled = True
RecordKopierenToolStripMenuItem.Enabled = True
CopyRecordtsmi.Enabled = True
NewVarianttsmi.Enabled = True
docCM_PropertiesFile.Enabled = True
tslblLocked.Visible = False
tslblFileslocked.Visible = False
TabFollowUp.PageEnabled = True
TabPos.PageEnabled = True
TabWindream.PageEnabled = True
WindreamsucheNeuLadenToolStripMenuItem.Enabled = True
DocSearchRefresh.Enabled = True
EntitätssucheStartenToolStripMenuItem.Enabled = True
docCM_Open.Enabled = True
docCM_InWork.Enabled = True
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
ChangeParentLinktsmi.Enabled = True
Dim tempsql
If SQL_RIGHT_READ_AND_VIEW_ONLY <> "" Then
Try
@@ -1066,13 +1073,13 @@ Public Class frmConstructor_Main
docCM_Copy.Enabled = False
docCM_RemoveLink.Enabled = False
tslblLocked.Visible = True
RecordKopierenToolStripMenuItem.Enabled = False
CopyRecordtsmi.Enabled = False
NewVarianttsmi.Enabled = False
TabFollowUp.PageEnabled = False
TabPos.PageEnabled = False
' tsButtonShowTaskOverview.Enabled = False
CreateWorkflowTasksToolStripMenuItem.Enabled = False
CreateWorkflowTasksToolStripMenuItem.Enabled = False
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = False
CreateWorkflowtaskstsmi.Enabled = False
ChangeParentLinktsmi.Enabled = False
End If
Catch ex As Exception
@@ -1114,7 +1121,7 @@ Public Class frmConstructor_Main
' Hinzufügen sollte auch bei RIGHT_ONLY_READ verfügbar sein
tslblFileslocked.Visible = True
'TabWindream.PageEnabled = False
WindreamsucheNeuLadenToolStripMenuItem.Enabled = False
DocSearchRefresh.Enabled = False
EntitätssucheStartenToolStripMenuItem.Enabled = False
docCM_Open.Enabled = False
docCM_InWork.Enabled = False
@@ -2215,7 +2222,7 @@ Public Class frmConstructor_Main
Me.Cursor = Cursors.WaitCursor
RECORD_CHANGED = False
RECORD_ID = 0
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
ChangeParentLinktsmi.Enabled = True
'Setzen von Rechten
'GetSet_Rights()
'VerknüpfungenToolStripMenuItem.Enabled = False
@@ -2289,7 +2296,7 @@ Public Class frmConstructor_Main
Get_Grid_Sql(CONSTRUCTORID, ENTITY_ID, CURRENT_CONSTRUCTOR_DETAIL_ID)
'Anzahl der Datensätze
ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where FORM_ID = " & ENTITY_ID, True)
ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = " & ENTITY_ID, True)
If CBool(LOAD_ENTITY_SEARCH_AT_STARTUP) = True Then
ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID, "ENTITY", "", True, True)
@@ -3020,6 +3027,11 @@ Public Class frmConstructor_Main
Else
selnode.Text = String.Format("{0} ({1})", selnode.Text, Get_Grid_Row_Count())
End If
Dim msg = "Anzahl Datensätze: "
If USER_LANGUAGE <> "de-DE" Then
msg = "number of records: "
End If
tslbldisplayRecords.Text = msg & Get_Grid_Row_Count()
End If
Catch ex As Exception
MsgBox("Error in LoadGrid_Selection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -3112,7 +3124,7 @@ Public Class frmConstructor_Main
Update_Status_Label(False, "")
If LogErrorsOnly = False Then ClassLogger.Add(" >> GRID_RECORD ID: " & Rec_ID.ToString, False)
'Me.pnlDetails.Visible = True
ZeigeRecordLogsToolStripMenuItem.Enabled = False
showRecordLogtsmi.Enabled = False
If FORM_TYPE = 5 And EntityLoad = False Or IS_SINGLE_RECORD = True And EntityLoad = False Then '#### Es sind untergeordnete Entitäten geöffnet####
Dim linkedRecord
' Dim pID As Integer
@@ -3219,7 +3231,7 @@ Public Class frmConstructor_Main
Dim RC = ClassDatabase.Execute_Scalar(Record_Changes, True)
If Not RC Is Nothing Then
If RC > 0 Then
ZeigeRecordLogsToolStripMenuItem.Enabled = True
showRecordLogtsmi.Enabled = True
End If
End If
@@ -3532,17 +3544,17 @@ Public Class frmConstructor_Main
If CBool(wdsearch) = False Then
windream_Docshow = False
TabWindream.PageVisible = False
WindreamsucheNeuLadenToolStripMenuItem.Enabled = False
DocSearchRefresh.Enabled = False
EntitätssucheStartenToolStripMenuItem.Enabled = False
Exit Sub
Else
TabWindream.PageVisible = True
'If IsDBNull(DTWD.Rows(0).Item(0)) Then
' windream_Docshow = False
' WindreamsucheNeuLadenToolStripMenuItem.Visible = False
' DocSearchRefresh.Visible = False
' Exit Function
'End If
WindreamsucheNeuLadenToolStripMenuItem.Enabled = True
DocSearchRefresh.Enabled = True
EntitätssucheStartenToolStripMenuItem.Enabled = True
windream_Docshow = True
If windream_inited = False Then
@@ -3566,7 +3578,7 @@ Public Class frmConstructor_Main
End Sub
Private Sub WD_DELETE_DOCS(DT_RESULT As Datatable)
Private Sub WD_DELETE_DOCS(DT_RESULT As DataTable)
Dim sw As New Stopwatch
sw.Start()
Dim elapsed As Double
@@ -3810,7 +3822,7 @@ Public Class frmConstructor_Main
Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, dateString, user)
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configid, dateString, user)
ClassDatabase.Execute_non_Query(Sql)
Catch ex As Exception
MsgBox("Error in OnDateSelectedValueChanged:" & vbNewLine & ex.Message)
@@ -3840,7 +3852,7 @@ Public Class frmConstructor_Main
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim user As String = Environment.UserName
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, value, user)
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configid, value, user)
ClassDatabase.Execute_non_Query(Sql)
Catch ex As Exception
MsgBox("Error in OnTextSelectedValueChanged:" & vbNewLine & ex.Message)
@@ -4511,9 +4523,9 @@ Public Class frmConstructor_Main
tsslblWorkflowstate.Text = text
tsslblWorkflowstate.Visible = True
If _MANUAL_WORKFLOW = True Then
CreateWorkflowTasksToolStripMenuItem.Visible = True
CreateWorkflowtaskstsmi.Visible = True
Else
CreateWorkflowTasksToolStripMenuItem.Visible = False
CreateWorkflowtaskstsmi.Visible = False
End If
'Direkten Zugriff auf RecordView Workflow erlauben
tsButtonShowTaskOverview.Visible = True
@@ -4539,7 +4551,7 @@ Public Class frmConstructor_Main
'Keine Workflows....also auch keinen Zugriff geben
tsButtonShowTaskOverview.Visible = False
If _MANUAL_WORKFLOW = True Then
CreateWorkflowTasksToolStripMenuItem.Visible = True
CreateWorkflowtaskstsmi.Visible = True
End If
tsslblWorkflowstate.Visible = False
End If
@@ -4572,64 +4584,6 @@ Public Class frmConstructor_Main
CURRENT_FORM_ID = ENTITY_ID
frmWD_EntityImport.ShowDialog()
End Sub
Private Sub WindreamsucheNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WindreamsucheNeuLadenToolStripMenuItem.Click
ClassDOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
RUN_WDSEARCH_GRID("RECORD")
' RUN_WD_SEARCH(WD_Suche, "RECORD")
End Sub
Private Sub WorkflowTasksNeuErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CreateWorkflowTasksToolStripMenuItem.Click
Dim result As MsgBoxResult
Dim stg, caption As String
If USER_LANGUAGE = "de-DE" Then
stg = "Wollen Sie die Workflowtasks für diesen Datensatz erzeugen? Alte Workflows werden gelöscht!"
caption = "Bestätigung erforderlich:"
Else
stg = "Do You really want to create workflowtasks for this record? Existing workflows will be deleted!"
caption = "Confirmation needed:"
End If
result = MessageBox.Show(stg, caption, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
CURRENT_FORM_ID = ENTITY_ID
Dim sql = "EXEC PRPMO_CREATE_WF_TASKS " & CURRENT_FORM_ID & ", " & RECORD_ID
If ClassDatabase.Execute_non_Query(sql) = True Then
VWPMO_WF_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, Environment.UserName)
Show_act_WFTask()
If USER_LANGUAGE = "de-DE" Then
stg = "Workflows erzeugt! Wollen Sie die Workflowübersicht nun anzeigen?"
caption = "Erfolgreich:"
Else
stg = "Workflows created! Would You like to show the Workflow-Overview?"
caption = "Success:"
End If
result = MessageBox.Show(stg, caption, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
ClassJumpRecord.JumpToRecord(2, RECORD_ID)
JUMP_RECORD_ID = 0
End If
Else
If USER_LANGUAGE = "de-DE" Then
stg = "Die Workflows konnten nicht erzeugt werden. Bitte prüfen Sie die Log-Datei!"
Else
stg = "Error in Creating Workflow-Tasks. Please check the logfile!"
End If
MsgBox(stg, MsgBoxStyle.Exclamation)
End If
Catch ex As Exception
MsgBox("Unexpected Error in Create Workflowtasks Record: " & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End Sub
Private Sub ZeigeRecordLogsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZeigeRecordLogsToolStripMenuItem.Click
CURRENT_RECORD_ID = RECORD_ID
frmRecord_Changes.ShowDialog()
End Sub
Private Sub FormDesignerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles FormDesignerToolStripMenuItem.Click
Try
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
@@ -4767,16 +4721,16 @@ Public Class frmConstructor_Main
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Load_Templates")
If Not IsNothing(DT) Then
If DT.Rows.Count > 0 Then
OfficeVorlagenToolStripMenuItem.Enabled = True
OfficeVorlagenToolStripMenuItem.DropDownItems.Clear()
OfficeVorlagentsmi.Enabled = True
OfficeVorlagentsmi.DropDownItems.Clear()
For Each row As DataRow In DT.Rows
Dim item As ToolStripMenuItem = OfficeVorlagenToolStripMenuItem
Dim item As ToolStripMenuItem = OfficeVorlagentsmi
Dim newItem As ToolStripMenuItem = New ToolStripMenuItem(row.Item("TEMPLATE_NAME").ToString, Nothing, AddressOf TemplateItem_Click)
newItem.Tag = row.Item("TEMPLATE_ID")
item.DropDownItems.Add(newItem) ' subitem.DropDownItems.Add(newItem)
Next
Else
OfficeVorlagenToolStripMenuItem.Enabled = False
OfficeVorlagentsmi.Enabled = False
End If
End If
Catch ex As Exception
@@ -5026,10 +4980,6 @@ Public Class frmConstructor_Main
End Try
End If
End Sub
Private Sub VerknüpfungenAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerknüpfungenAnzeigenToolStripMenuItem.Click
Show_Verknuepfungen()
End Sub
Sub Show_Verknuepfungen()
Dim result As MsgBoxResult
Dim msg = "Möchten Sie den Parent-Datensatz für den aktuellen Datensatz wirklich aktualisieren?"
@@ -5068,48 +5018,9 @@ Public Class frmConstructor_Main
Load_Entity_Data_Only()
End If
End Sub
Private Sub RecordKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RecordKopierenToolStripMenuItem.Click
Dim result As MsgBoxResult
Dim msg = "Möchten Sie den Datensatz wirklich kopieren?"
If USER_LANGUAGE <> "de-DE" Then
msg = "Would You like to copy the record?"
End If
result = MessageBox.Show(msg, "Copy Record:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Dim SQL = String.Format("EXEC PRDD_COPY_RECORD {0}, '{1}'", RECORD_ID, Environment.UserName)
If ClassDatabase.Execute_non_Query_withConn(SQL, 1) = True Then
Load_Entity_Data(ACT_EBENE)
End If
End If
End Sub
Private Sub DatenNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DatenNeuLadenToolStripMenuItem.Click
Load_Datafor_Entity()
End Sub
Private Sub AnwendungscacheFreigebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnwendungscacheFreigebenToolStripMenuItem.Click
Dim result As MsgBoxResult
Dim msg = "Möchten Sie den Anwendungscache wirklich leeren?" & vbNewLine & "Die Entität wird dann automatisch neugeladen!"
If USER_LANGUAGE <> "de-DE" Then
msg = "Would You like to clear the applications-cache?" & vbNewLine & "All data will be loaded new!"
End If
result = MessageBox.Show(msg, "Clear cache:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
Cursor = Cursors.WaitCursor
CURRENT_FORM_ID = ENTITY_ID
ClassControlValueCache.ClearCache()
DisableEditMode()
Load_Entity_Data(ACT_EBENE)
RECORD_CHANGED = False
Catch ex As Exception
MsgBox("Unexpected Error in Clear Cache:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Finally
Cursor = Cursors.Default
End Try
End If
End Sub
Private Sub grvwGrid_ColumnFilterChanged(sender As Object, e As EventArgs) Handles grvwGrid.ColumnFilterChanged
SET_ROWCOUNT_STRING()
End Sub
@@ -5122,6 +5033,11 @@ Public Class frmConstructor_Main
Else
selnode.Text = String.Format("{0} ({1})", selnode.Text, grvwGrid.RowCount)
End If
Dim msg = "Anzahl Datensätze: "
If USER_LANGUAGE <> "de-DE" Then
msg = "number of records: "
End If
tslbldisplayRecords.Text = msg & grvwGrid.RowCount
End Sub
Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
@@ -5900,7 +5816,7 @@ Public Class frmConstructor_Main
Cursor = Cursors.WaitCursor
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
If ClassDOC_SEARCH.SET_WD_RIGHTS(row.Item("DOC_ID"), row.Item("DOC_PATH"), ENTITY_ID) = True Then
Else
err = True
msg = String.Format("Unerwarteter Fehler im Rechtemodul für Datei: " & vbNewLine & "{0}" & vbNewLine & "Bitte prüfen Sie die Logdatei!", row.Item("DOC_PATH"))
@@ -6152,4 +6068,115 @@ Public Class frmConstructor_Main
MsgBox("Could not read the rights for selected file! Check the log for further infomation!", MsgBoxStyle.Exclamation)
End If
End Sub
Private Sub CreateWorkflowtaskstsbtn_Click(sender As Object, e As EventArgs) Handles CreateWorkflowtaskstsmi.Click
Dim result As MsgBoxResult
Dim stg, caption As String
If USER_LANGUAGE = "de-DE" Then
stg = "Wollen Sie die Workflowtasks für diesen Datensatz erzeugen? Alte Workflows werden gelöscht!"
caption = "Bestätigung erforderlich:"
Else
stg = "Do You really want to create workflowtasks for this record? Existing workflows will be deleted!"
caption = "Confirmation needed:"
End If
result = MessageBox.Show(stg, caption, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
CURRENT_FORM_ID = ENTITY_ID
Dim sql = "EXEC PRPMO_CREATE_WF_TASKS " & CURRENT_FORM_ID & ", " & RECORD_ID
If ClassDatabase.Execute_non_Query(sql) = True Then
VWPMO_WF_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, Environment.UserName)
Show_act_WFTask()
If USER_LANGUAGE = "de-DE" Then
stg = "Workflows erzeugt! Wollen Sie die Workflowübersicht nun anzeigen?"
caption = "Erfolgreich:"
Else
stg = "Workflows created! Would You like to show the Workflow-Overview?"
caption = "Success:"
End If
result = MessageBox.Show(stg, caption, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
ClassJumpRecord.JumpToRecord(2, RECORD_ID)
JUMP_RECORD_ID = 0
End If
Else
If USER_LANGUAGE = "de-DE" Then
stg = "Die Workflows konnten nicht erzeugt werden. Bitte prüfen Sie die Log-Datei!"
Else
stg = "Error in Creating Workflow-Tasks. Please check the logfile!"
End If
MsgBox(stg, MsgBoxStyle.Exclamation)
End If
Catch ex As Exception
MsgBox("Unexpected Error in Create Workflowtasks Record: " & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End Sub
Private Sub ChangeParentLinktsbtn_Click(sender As Object, e As EventArgs) Handles ChangeParentLinktsmi.Click
Show_Verknuepfungen()
End Sub
Private Sub CopyRecordtsbtn_Click(sender As Object, e As EventArgs) Handles CopyRecordtsmi.Click
Dim result As MsgBoxResult
Dim msg = "Möchten Sie den Datensatz wirklich kopieren?"
If USER_LANGUAGE <> "de-DE" Then
msg = "Would You like to copy the record?"
End If
result = MessageBox.Show(msg, "Copy Record:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Dim SQL = String.Format("EXEC PRDD_COPY_RECORD {0}, '{1}'", RECORD_ID, Environment.UserName)
If ClassDatabase.Execute_non_Query_withConn(SQL, 1) = True Then
Load_Entity_Data(ACT_EBENE)
End If
End If
End Sub
Private Sub showRecordLogtsbtn_Click(sender As Object, e As EventArgs) Handles showRecordLogtsmi.Click
CURRENT_RECORD_ID = RECORD_ID
frmRecord_Changes.ShowDialog()
End Sub
Private Sub DocSearchRefresh_Click(sender As Object, e As EventArgs) Handles DocSearchRefresh.Click
ClassDOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
RUN_WDSEARCH_GRID("RECORD")
End Sub
Private Sub AnwendungscacheResettsbtn_Click(sender As Object, e As EventArgs) Handles AnwendungscacheResettsmi.Click
Dim result As MsgBoxResult
Dim msg = "Möchten Sie den Anwendungscache wirklich leeren?" & vbNewLine & "Die Entität wird dann automatisch neugeladen!"
If USER_LANGUAGE <> "de-DE" Then
msg = "Would You like to clear the applications-cache?" & vbNewLine & "All data will be loaded new!"
End If
result = MessageBox.Show(msg, "Clear cache:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
Cursor = Cursors.WaitCursor
CURRENT_FORM_ID = ENTITY_ID
ClassControlValueCache.ClearCache()
DisableEditMode()
Load_Entity_Data(ACT_EBENE)
RECORD_CHANGED = False
Catch ex As Exception
MsgBox("Unexpected Error in Clear Cache:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Finally
Cursor = Cursors.Default
End Try
End If
End Sub
Private Sub OfficeVorlagenToolStripMenuItem_Click(sender As Object, e As EventArgs)
End Sub
Private Sub NewVarianttsmi_Click(sender As Object, e As EventArgs) Handles NewVarianttsmi.Click
CURRENT_FORM_ID = ENTITY_ID
CURRENT_RECORD_ID = RECORD_ID
Dim recid = CURRENT_RECORD_ID
frmNewVariant.ShowDialog()
If recid <> CURRENT_RECORD_ID Then
Load_Datafor_Entity()
LocateRecordById(CURRENT_RECORD_ID)
End If
End Sub
End Class