From 3aae425b32d86fde5f08c93ef68e9f856fc1b9f6 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 14 Aug 2024 16:25:26 +0200
Subject: [PATCH] Fehlerbehebung

---
 Aviso/My Project/AssemblyInfo.vb |  4 ++--
 Aviso/frmHauptfenster.vb         | 25 ++++++++++++++-----------
 2 files changed, 16 insertions(+), 13 deletions(-)

diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb
index e039259..43819b4 100644
--- a/Aviso/My Project/AssemblyInfo.vb	
+++ b/Aviso/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("4.0.2.0")>
-<Assembly: AssemblyFileVersion("4.0.2.0")>
+<Assembly: AssemblyVersion("4.0.2.2")>
+<Assembly: AssemblyFileVersion("4.0.2.2")>
diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb
index 52c3688..a3192b0 100644
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -2514,23 +2514,26 @@ Public Class frmHauptfenster
 
                 Dim usrcntlAvisoID = -1
                 Dim usrcntlAktiv As DateTime
-                If pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then
-                    usrcntlAvisoID = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID
-                    usrcntlAktiv = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv
-                Else
-                    usrcntlAvisoID = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
-                    usrcntlAktiv = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
-                End If
+                If Not pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then
+                    If pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then
+                        usrcntlAvisoID = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID
+                        usrcntlAktiv = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv
+                    Else
+                        usrcntlAvisoID = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
+                        usrcntlAktiv = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
+                    End If
 
-                If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then
-                    Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-                Else
-                    If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
+                    If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then
                         Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                    Else
+                        If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
+                            Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                        End If
                     End If
                 End If
 
 
+
                 'Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
 
                 '    Case "ATILLA"