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

Vor Profilauswahl prüfen, ob Session vorhanden - frmIndex

Browse Source
This commit is contained in:
OlgunR 2025-05-07 13:28:09 +02:00
parent 199904b695
commit 574fd88b99
1 changed files with 52 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Global_Indexer/frmIndex.vb
View File

@ -11,6 +11,7 @@ Imports Limilabs.Mail
Imports DevExpress.XtraEditors Imports DevExpress.XtraEditors
Imports DigitalData.GUIs.Common Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.Base Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Windream
'Imports DevExpress.DataAccess.Native.Json 'Imports DevExpress.DataAccess.Native.Json
'Imports GdPicture.Internal.MSOfficeBinary.translator.Spreadsheet.XlsFileFormat.Records 'Imports GdPicture.Internal.MSOfficeBinary.translator.Spreadsheet.XlsFileFormat.Records
@ -1847,6 +1848,11 @@ Public Class frmIndex
Private Sub ComboBoxEdit1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboboxDoctype.EditValueChanged Private Sub ComboBoxEdit1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboboxDoctype.EditValueChanged
If ComboboxDoctype.EditValue IsNot Nothing And FormLoaded = True Then If ComboboxDoctype.EditValue IsNot Nothing And FormLoaded = True Then
WINDREAM = New Windream(LOGCONFIG, False, WMDrive, WINDREAM_BASEPATH, True, "", "", "", "")
If Not IsNothing(WINDREAM) Then
If WINDREAM.SessionLoggedin Then
Dim oSelectedItem As DocType = ComboboxDoctype.EditValue Dim oSelectedItem As DocType = ComboboxDoctype.EditValue
CURRENT_DOKART_ID = oSelectedItem.Guid CURRENT_DOKART_ID = oSelectedItem.Guid
@ -1899,6 +1905,13 @@ Public Class frmIndex
CURRENT_DOKART_DUPLICATE_HANDLING = oDocType.Item("DUPLICATE_HANDLING") CURRENT_DOKART_DUPLICATE_HANDLING = oDocType.Item("DUPLICATE_HANDLING")
Refresh_IndexeMan(oSelectedItem.Guid) Refresh_IndexeMan(oSelectedItem.Guid)
End If End If
Else
MsgBox("Es konnte keine Session aufgebaut werden.")
End If
Else
MsgBox("Es konnte keine Windream-Verbindung aufgebaut werden.")
End If
End If End If
End Sub End Sub