jj 22.06 recordview

app/DD-Record-Organiser/ClassControlCommands.vb

@@ -49,6 +49,28 @@
 
     ' +++ Public Functions +++
 
+    Public Shared Function GetParentRecordId(RecordId As Integer) As Integer
+        Try
+            Dim parentId = ClassDatabase.Execute_Scalar("SELECT RECORD1_ID FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & RecordId)
+            If IsNothing(parentId) Then
+                Return 0
+            Else
+                Return parentId
+            End If
+        Catch ex As Exception
+            MsgBox("Error in GetFormId:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Function
+
+    Public Shared Function GetFormId(RecordId As Integer) As Integer
+        Try
+            Dim FormId = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM VWPMO_VALUES WHERE RECORD_ID = " & RecordId)
+            Return FormId
+        Catch ex As Exception
+            MsgBox("Error in GetFormId:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Function
+
     Public Shared Function GetControlGuid(name As String)
         Try
             Dim sql = "SELECT GUID FROM TBPMO_CONTROL WHERE UPPER(NAME) = UPPER('" & name & "')"