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

MS_04072016

Browse Source
This commit is contained in:
SchreiberM
2016-07-04 16:37:52 +02:00
parent d47d0a9f95
commit 96bf81b88c
29 changed files with 4526 additions and 978 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
app/DD-Record-Organiser/ClassRecordView.vb
View File

@@ -6,7 +6,7 @@ Public Class ClassRecordView
Private DTControls As DataTable
Private DTValues As DataTable
Private FormId As Integer
Private Entity_ID As Integer
Private Panel As Panel
Private Const CONTROL_ID_PATTERN = "@\d{1,}@"
@@ -28,7 +28,6 @@ Public Class ClassRecordView
Me.LoadValues(Me.Panel.Controls)
Me.PreventControlValueChanges()
JUMP_RECORD_ID = 0
End Sub
#Region "Helper Functions"
@@ -36,10 +35,10 @@ Public Class ClassRecordView
' Verhindert Bestimmte Events
End Sub
Private Function GetFormId() As Integer
Dim SQL = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", Me.RecordId)
Me.FormId = ClassDatabase.Execute_Scalar(SQL)
Return Me.FormId
Private Function GetEntityId() As Integer
Dim SQL = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", RecordId)
Me.Entity_ID = ClassDatabase.Execute_Scalar(SQL)
Return Me.Entity_ID
End Function
Private Function MapRowToProps(r As DataRow) As ControlProps
@@ -175,7 +174,7 @@ Public Class ClassRecordView
Private Sub LoadControls()
Dim controls As New List(Of Control)
DTControls = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0}", GetFormId()))
DTControls = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0}", GetEntityId()))
For Each row As DataRow In DTControls.Rows
Dim props As ControlProps = MapRowToProps(row)