MS

app/DD-Record-Organizer/Classes/ClassHelper.vb

@@ -436,4 +436,13 @@ Public Class ClassHelper
         End Try
 
     End Function
+    Public Shared Function GetDocrecordLinks(pRECORDID As Integer)
+        Try
+            Dim oSQL = $"SELECT * FROM TBPMO_DOC_RECORD_LINK WHERE RECORD_ID = {pRECORDID}"
+            CURRENT_DT_TBPMO_DOC_RECORD_LINK = clsDatabase.Return_Datatable(oSQL, False)
+        Catch ex As Exception
+            LOGGER.Warn("Unexpected Error in GetDocrecordLinks: " & ex.Message)
+            Return False
+        End Try
+    End Function
 End Class