MS05082016

This commit is contained in:
SchreiberM
2016-08-05 14:28:00 +02:00
parent 76c1d9d66b
commit a0761e43c5
37 changed files with 11589 additions and 6467 deletions

View File

@@ -243,11 +243,16 @@
End Sub
Public Sub OpenRecordView(recordId)
JUMP_RECORD_ID = recordId
Try
JUMP_RECORD_ID = recordId
Dim frm As New frmRecordView()
frm.MdiParent = MAIN_FORM
frm.Show()
Dim frm As New frmRecordView()
'frm.MdiParent = MAIN_FORM
frm.Show()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Public Sub OpenFormConstructor(id As Integer, Optional recordId As Integer = -1)