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

Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-08-19 07:34:28 +02:00
parent 148129ad08 9f1df254fb
commit bc820dae55
1 changed files with 14 additions and 11 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"