MS

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -201,10 +201,6 @@ Public Class frmConstructor_Main
     End Enum
 #End Region
 
-    Private Sub frmConstructor_Main_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop
-
-    End Sub
-
     Private Sub frmForm_Constructor_Main_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
         'If RECORD_CHANGED = True Then
         '    Dim ResultMessage As String
@@ -4039,6 +4035,10 @@ Public Class frmConstructor_Main
         If ClassDragDrop.Drop_File(e) = False Then
             Exit Sub
         End If
+        If clsWindream.SESSION_CREATED = False Then
+            ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!")
+            Exit Sub
+        End If
         If act_FormViewID <> 0 And (RIGHT_READ_ONLY_DOC = False And GridControlDocSearch.ContextMenuStrip.Name = "ContextMenuStripResultFiles") Or RIGHT_ADD_DOC = True Then
             Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
             Dim count_DT = ClassDatabase.Execute_Scalar(sql, True)
@@ -5429,6 +5429,10 @@ Public Class frmConstructor_Main
     End Sub
     Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening
         Try
+            If clsWindream.SESSION_CREATED = False Then
+                ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!")
+                e.Cancel = True
+            End If
             Me.Cursor = Cursors.WaitCursor
             GridViewDoc_Search.EndSelection()
             ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
@@ -6452,6 +6456,10 @@ Public Class frmConstructor_Main
 
     Private Sub cmsResultFilesBasic_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles cmsResultFilesBasic.Opening
         Try
+            If clsWindream.SESSION_CREATED = False Then
+                ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!")
+                e.Cancel = True
+            End If
             Me.Cursor = Cursors.WaitCursor
             Dim Result = clsWD_GET.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH, USER_USERNAME)
             If Not IsNothing(Result) Then