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

Atilla Usrcntl

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-01-26 21:59:53 +01:00
parent 02b645cfd5
commit 791a40b385
6 changed files with 2069 additions and 1977 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
Aviso/frmHauptfenster.vb
View File

@@ -946,19 +946,26 @@ Public Class frmHauptfenster
Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoId)
Case "ATILLA"
'If pnlDetailsRechts.Controls.Count > 0 Then
' MsgBox(pnlDetailsRechts.Controls(0).Name)
'End If
If pnlDetailsRechts.Controls.Count = 0 OrElse pnlDetailsRechts.Controls(0).Name <> "usrcntlAktDetailsATILLANeu" Then
pnlDetailsRechts.Controls.Clear()
Dim usrCntl As New usrcntlAktDetailsATILLANeu(AvisoId)
usrCntl.Dock = DockStyle.Fill
pnlDetailsRechts.Controls.Add(usrCntl)
If VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND Then
GoTo ELSE_ATILLA
Else
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).reload(AvisoId)
'If pnlDetailsRechts.Controls.Count > 0 Then
' MsgBox(pnlDetailsRechts.Controls(0).Name)
'End If
If pnlDetailsRechts.Controls.Count = 0 OrElse pnlDetailsRechts.Controls(0).Name <> "usrcntlAktDetailsATILLANeu" Then
pnlDetailsRechts.Controls.Clear()
Dim usrCntl As New usrcntlAktDetailsATILLANeu(AvisoId)
usrCntl.Dock = DockStyle.Fill
pnlDetailsRechts.Controls.Add(usrCntl)
Else
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).reload(AvisoId)
End If
End If
Case Else
ELSE_ATILLA:
If pnlDetailsRechts.Controls.Count = 0 OrElse pnlDetailsRechts.Controls(0).Name <> "usrcntlAktDetails" Then
pnlDetailsRechts.Controls.Clear()
Dim usrCntl As New usrcntlAktDetails(AvisoId)
@@ -5147,6 +5154,11 @@ Public Class frmHauptfenster
Private Sub TVEditorNewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TVEditorNewToolStripMenuItem.Click
frmEintragTvNew.ShowDialog(Me)
End Sub
Private Sub ATILLASENDUNGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATILLASENDUNGToolStripMenuItem.Click
VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND = True
End Sub
End Class
Public Class AvisoStatusFunctions
@@ -6744,12 +6756,20 @@ Public Class AvisoStatusFunctions
' DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2)
' End If
Case "ATILLA"
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", "AVISO") Then
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID = AvisoID Then
DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).showInfo("Akt übernommen", 2)
If VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND Then
GoTo ELSE_ATILLA
Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", "AVISO") Then
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID = AvisoID Then
DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).showInfo("Akt übernommen", 2)
End If
End If
End If
Case Else
ELSE_ATILLA:
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then
DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2)
End If