MS22062016

This commit is contained in:
SchreiberM
2016-06-22 10:52:52 +02:00
parent d71de0dc2f
commit fd8e85146a
17 changed files with 1193 additions and 306 deletions

View File

@@ -43,7 +43,7 @@ Public Class ClassJumpRecord
End Try
End Sub
Private Shared Sub JumpToRecord(constructorId As Integer, recordId As Integer)
Public Shared Sub JumpToRecord(constructorId As Integer, recordId As Integer)
Try
'Dim constructorIdExists As Boolean = ClassDatabase.Execute_Scalar(String.Format("SELECT CONSTRUCT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0}", constructorId))
Dim recordIdExists As Boolean = ClassDatabase.Execute_Scalar(String.Format("SELECT GUID FROM TBPMO_RECORD WHERE GUID = {0}", recordId))