massValidator

app/DD_PM_WINDREAM/frmValidator.vb

@@ -58,6 +58,7 @@ Public Class frmValidator
     Private _frmValidatorSearch As frmValidatorSearch 'You need a reference to Form1
     Private _dependingControl_in_action As Boolean = False
     Private DTCONTROLS As DataTable
+    Private FormLoaded As Boolean = False
 
     <DllImport("user32.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)>
     Public Shared Function SetForegroundWindow(ByVal hwnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
@@ -305,7 +306,7 @@ Public Class frmValidator
         pdfxchange = False
         sumatra = False
         RibbonControl1.Minimized = True
-
+        FormLoaded = False
 
 
         If My.Settings.frmValidatorPosition.IsEmpty = False Then
@@ -1002,6 +1003,9 @@ Public Class frmValidator
         End Try
     End Sub
     Public Sub onLookUp1(sender As Object, e As System.EventArgs)
+        If FormLoaded = False Then
+            Exit Sub
+        End If
         Dim oLookup As LookupControl2 = sender
         Try
             If Not IsNothing(oLookup.SelectedValues) Then
@@ -1492,6 +1496,7 @@ Public Class frmValidator
 
             LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'")
             If CURRENT_DOC_GUID > 0 Then
+
                 'Beschriftung des Navigators
                 'lblNavigator_anzDok.Text = position & " of " & Anzahl_ValDoks & " files"
                 If myWMDocumentPath <> String.Empty Then
@@ -1505,7 +1510,6 @@ Public Class frmValidator
 
                     Try
                         CURRENT_WMFILE = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, WINDREAM.NormalizePath(myWMDocumentPath))
-
                     Catch ex As Exception
                         LOGGER.Error(ex)
                         allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler bei Erzeugen windream-Objekt - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, Environment.UserName)
@@ -2553,6 +2557,7 @@ Public Class frmValidator
         Refresh_FileList()
         Load_Next_Document(True)
         _dependingControl_in_action = False
+        FormLoaded = True
     End Sub
     Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
         btnSave.Enabled = False