Bei Verknüpdung verwalten aus Profileigenschaften heraus -> Laden des akutellen NI Profils - ClassNIProfile, frmNIProfileigenschaften, frmNIVerknüpfungen

ToolCollection/ClassNIProfile.vb

@@ -4,6 +4,8 @@ Public Class ClassNIProfile
     Private Shared _profiles() As ClassNIProfil
     Public Shared _windream As New ClassWindream_allgemein(CURR_LogConfig)
     Public Shared xmlConfigFile As String
+    Public Shared aktivesProfil As ClassNIProfil
+    Public Shared aktivesProfilAusProfileigenschaften As Boolean = False
 
     Public Shared Sub Init()
         Dim oConfigPath As String = My.Application.Info.DirectoryPath & "\" & My.Settings.vNIConfigDatei

ToolCollection/frmNIProfileigenschaften.vb

@@ -814,11 +814,15 @@ Public Class frmNIProfileigenschaften
     End Sub
 
     Private Sub btnVerknüpfungen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerknüpfungen.Click
+
+        ClassNIProfile.aktivesProfil = Me._selectedProfile
+        ClassNIProfile.aktivesProfilAusProfileigenschaften = True
         Cursor = Cursors.WaitCursor
         Dim frm As New frmNIVerknuepfungen
         frm = frmNIVerknuepfungen.Instance
         frm.MdiParent = frmStart
         frm.Show()
+        frm.BringToFront()
         Cursor = Cursors.Default
     End Sub
 

ToolCollection/frmNIVerknuepfungen.vb

@@ -478,6 +478,8 @@ Public Class frmNIVerknuepfungen
     ''' </summary>
     ''' <remarks></remarks>
     Private Sub cmbProfilauswahl_DropDownItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles cmbProfilauswahl.DropDownItemClicked
+        ClassNIProfile.aktivesProfil = ClassNIProfile.getProfilByName(e.ClickedItem.Text)
+        Me._selectedProfil = ClassNIProfile.aktivesProfil
         Try
             'wenn noch kein Profil geladen wurde soll das ausgewählte auf jeden Fall geladen werden
             If Me._selectedProfil Is Nothing Then
@@ -2291,8 +2293,24 @@ Public Class frmNIVerknuepfungen
 
     Private Sub frmNIVerknuepfungen_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         Me.LoadProfilesInCombobox()
-        Me._selectedProfil = Nothing
-        Me.pnlZielQuelle.Visible = False
+
+        If ClassNIProfile.aktivesProfilAusProfileigenschaften And ClassNIProfile.aktivesProfil Is Nothing = False Then
+            Me._selectedProfil = ClassNIProfile.aktivesProfil
+            Me.lblProfil.Text = "(" & Me._selectedProfil.Profilname & ")"
+            Me.lblProfil.Visible = True
+            'Me.pnlZielQuelle.Visible = False
+
+            Me.LoadSelectedProfile(Me._selectedProfil.Profilname)
+
+            ClassNIProfile.aktivesProfilAusProfileigenschaften = False
+
+            If Me._selectedProfil.Dokumenttyp Is Nothing Then
+                Me.lblProfil.Enabled = False
+            Else
+                Me.lblProfil.Enabled = True
+            End If
+        End If
+
     End Sub
     Private Sub btnEindIndex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEindIndex.Click
         Dim text As String = Me.txteindeutigerIndex.Text