AppStd/ToolCollection
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
This commit is contained in:
OlgunR 2025-09-18 16:11:06 +02:00
parent 08dc11f292
commit 86cebc8ae6
3 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ToolCollection/ClassNIProfile.vb
View File

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

4
ToolCollection/frmNIProfileigenschaften.vb
View File

@ -814,11 +814,15 @@ Public Class frmNIProfileigenschaften
End Sub End Sub
Private Sub btnVerknüpfungen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerknüpfungen.Click 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 Cursor = Cursors.WaitCursor
Dim frm As New frmNIVerknuepfungen Dim frm As New frmNIVerknuepfungen
frm = frmNIVerknuepfungen.Instance frm = frmNIVerknuepfungen.Instance
frm.MdiParent = frmStart frm.MdiParent = frmStart
frm.Show() frm.Show()
frm.BringToFront()
Cursor = Cursors.Default Cursor = Cursors.Default
End Sub End Sub

22
ToolCollection/frmNIVerknuepfungen.vb
View File

@ -478,6 +478,8 @@ Public Class frmNIVerknuepfungen
''' </summary> ''' </summary>
''' <remarks></remarks> ''' <remarks></remarks>
Private Sub cmbProfilauswahl_DropDownItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles cmbProfilauswahl.DropDownItemClicked 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 Try
'wenn noch kein Profil geladen wurde soll das ausgewählte auf jeden Fall geladen werden 'wenn noch kein Profil geladen wurde soll das ausgewählte auf jeden Fall geladen werden
If Me._selectedProfil Is Nothing Then 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 Private Sub frmNIVerknuepfungen_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.LoadProfilesInCombobox() 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 End Sub
Private Sub btnEindIndex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEindIndex.Click Private Sub btnEindIndex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEindIndex.Click
Dim text As String = Me.txteindeutigerIndex.Text Dim text As String = Me.txteindeutigerIndex.Text