MS_04072016

app/DD-Record-Organiser/frmMain.vb

@@ -518,6 +518,10 @@ Public Class frmMain
                         TimerClose3Minutes.Start()
                     End If
                 End If
+            Else
+                If LICENSE_SAP_Connect = True Then
+                    Me.BarButtonItemSAPConnect.Enabled = True
+                End If
             End If
         Else
             MsgBox("Application will close now!", MsgBoxStyle.Critical)
@@ -660,7 +664,7 @@ Public Class frmMain
         OpenLogRecord()
     End Sub
 
-    Private Sub BarButtonItem14_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem14.ItemClick
+    Private Sub BarButtonItem14_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItemConnections.ItemClick
         Dim frm As New frmConnections
         frm.MdiParent = Me
         frm.Show()
@@ -746,18 +750,26 @@ Public Class frmMain
         frm.Show()
     End Sub
 
-    Private Sub BarButtonItem21_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem21.ItemClick
+    Private Sub BarButtonItem21_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItemSAPConnect.ItemClick
         Dim frm As New frmSAP_FuBa
         frm.MdiParent = Me
         frm.Show()
     End Sub
 
     Private Sub Button1_Click_1(sender As Object, e As EventArgs)
-        ClassJumpRecord.JumpToRecord(0, 95)
+
     End Sub
 
     Private Sub Button1_Click_2(sender As Object, e As EventArgs)
         Dim dt As Date = Date.Today
         MsgBox(dt.ToString("dd-MM-yyyy", CultureInfo.InvariantCulture))
     End Sub
+
+    Private Sub BarButtonItemStructureNOdes_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItemStructureNOdes.ItemClick
+        Close_Maximized_Forms()
+        Dim frm As New frmStructureNodeConfig
+        frm = frmStructureNodeConfig.Instance()
+        frm.MdiParent = MAIN_FORM
+        frm.Show()
+    End Sub
 End Class