edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fehlerbehebung

Browse Source
This commit is contained in:
d.breimaier
2024-08-14 16:25:26 +02:00
parent 2a8c779333
commit 3aae425b32
2 changed files with 16 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Aviso/frmHauptfenster.vb
View File

@@ -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"