jj 20.06 recordView

This commit is contained in:
JenneJ
2016-06-20 17:04:22 +02:00
parent 333788145f
commit d71de0dc2f
7 changed files with 459 additions and 11 deletions

View File

@@ -242,6 +242,14 @@
End Sub
Public Sub OpenRecordView(recordId)
JUMP_RECORD_ID = recordId
Dim frm As New frmRecordView()
frm.MdiParent = MAIN_FORM
frm.Show()
End Sub
Public Sub OpenFormConstructor(id As Integer, Optional recordId As Integer = -1)
Try
CURRENT_CONSTRUCTOR_ID = id