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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-10-20 22:24:56 +02:00
parent 787491cf6b
commit 2d7bb951d2
26 changed files with 1204 additions and 415 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Aviso/frmEintragAviso.vb
View File

@@ -29,6 +29,7 @@ Public Class frmEintragAviso
Public ATT As List(Of String)
Dim PROG As New cProgramFunctions
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Public Sub New()
InitializeComponent()
@@ -210,16 +211,28 @@ Public Class frmEintragAviso
AddHandler kdAvisierer.PropertyChanged, Sub()
If kdAvisierer.KdNr_value > 0 Then
btnAvisiererKd.Enabled = True
Dim KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdAvisierer.KdNr_value)
If KUNDE_ERW IsNot Nothing Then lblTeamAvisierer.Text = SQL.DLookup("team_bezeichnung", "tblTeams", "[team_id]='" & KUNDE_ERW.kde_TeamId & "'", "ADMIN", "")
If lblTeamAvisierer.Text <> "" Then lblTeamAvisierer.Visible = True
Else
btnAvisiererKd.Enabled = False
lblTeamAvisierer.Visible = False
End If
End Sub
AddHandler kdFrächter.PropertyChanged, Sub()
If kdFrächter.KdNr_value > 0 Then
btnFraechterKd.Enabled = True
Dim KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdFrächter.KdNr_value)
If KUNDE_ERW IsNot Nothing Then lblTeamFraechter.Text = SQL.DLookup("team_bezeichnung", "tblTeams", "[team_id]='" & KUNDE_ERW.kde_TeamId & "'", "ADMIN", "")
If lblTeamFraechter.Text <> "" Then lblTeamFraechter.Visible = True
Else
btnFraechterKd.Enabled = False
lblTeamFraechter.Visible = False
End If
End Sub
AddHandler kdAuftraggeber.PropertyChanged, Sub()
If kdAuftraggeber.KdNr_value > 0 Then