JJ_16_11

2015-11-16 15:28:39 +01:00
parent 69b738413a
commit a7f86eb783
24 changed files with 341 additions and 6741 deletions
--- a/app/DD-Record-Organiser/frmCustomAppointment.vb
+++ b/app/DD-Record-Organiser/frmCustomAppointment.vb
@@ -89,5 +89,14 @@ Partial Public Class frmCustomAppointment

    End Sub

-    
+    Private Sub btnJumpToRecord_Click(sender As Object, e As EventArgs) Handles btnJumpToRecord.Click
+        If txtRecordID.Text.Length > 0 Then
+            Dim RecordId = Integer.Parse(txtRecordID.Text)
+            JUMP_RECORD_ID = RecordId
+
+            ' TODO: Jetzt Constructor aufrufen
+            OpenFormConstructorDemo(CURRENT_CONSTRUCTOR_ID)
+            Me.Close()
+        End If
+    End Sub
 End Class