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"