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
2020-03-26 22:22:21 +01:00
parent afaac3c2a4
commit 2d28680ad0
15 changed files with 225 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Aviso/frmAvisoWeiterleiten.vb
View File

@@ -95,12 +95,12 @@ Public Class frmAvisoWeiterleiten
End Sub
Sub btnWeiterleitung_Clicked(WLart As String, id As String, bezeichnung As String)
Sub btnWeiterleitung_Clicked(WLart As String, id As String, bezeichnung As String, Optional bezeichnungFirma As String = "")
Dim text = ""
Dim code = 3
Select Case WLart
Case "T"
text = "Ins Team '" & bezeichnung & "' gegeben."
text = "Ins Team '" & bezeichnung & "' [" & bezeichnungFirma & "] gegeben."
Case "A"
text = "An '" & bezeichnung & "' gegeben."
Case "N"
@@ -159,7 +159,7 @@ Public Class frmAvisoWeiterleiten
' initButtons(sender)
'End Sub
Sub addBtn(flpFirma As FlowLayoutPanel, WLart As String, id As String, bezeichnung As String, Optional enabled As Boolean = True)
Sub addBtn(flpFirma As FlowLayoutPanel, WLart As String, id As String, bezeichnung As String, Optional enabled As Boolean = True, Optional bezeichnungFirma As String = "")
Dim btn As New Button
btn.FlatStyle = FlatStyle.Flat
btn.Size = New Size(180, 40)
@@ -169,7 +169,7 @@ Public Class frmAvisoWeiterleiten
btn.Enabled = enabled
AddHandler btn.Click, Sub()
btnWeiterleitung_Clicked(WLart, (btn.Tag), bezeichnung)
btnWeiterleitung_Clicked(WLart, (btn.Tag), bezeichnung, bezeichnungFirma)
initButtons(flpFirma, btn)
End Sub
@@ -216,7 +216,7 @@ Public Class frmAvisoWeiterleiten
Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='VERAG' order by team_id", "ADMIN")
If dt IsNot Nothing Then
For Each t In dt.Rows
addBtn(flpTeams, "T", t("team_id"), t("team_bezeichnung"))
addBtn(flpTeams, "T", t("team_id"), t("team_bezeichnung"),, "VERAG")
Next
End If
ElseIf sender Is btnIMEX Then
@@ -225,7 +225,7 @@ Public Class frmAvisoWeiterleiten
Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='IMEX' order by team_id", "ADMIN")
If dt IsNot Nothing Then
For Each t In dt.Rows
addBtn(flpTeams, "T", t("team_id"), t("team_bezeichnung"))
addBtn(flpTeams, "T", t("team_id"), t("team_bezeichnung"),, "IMEX")
Next
End If
ElseIf sender Is btnUNIPED Then
@@ -288,7 +288,7 @@ Public Class frmAvisoWeiterleiten
Private Sub btnTeam_Click(sender As Object, e As EventArgs) Handles btnTeam.Click
If dgvMitarbeiter.SelectedRows.Count > 0 Then
If dgvMitarbeiter.SelectedRows(0).Cells("mit_teamId").Value IsNot DBNull.Value AndAlso dgvMitarbeiter.SelectedRows(0).Cells("mit_teamId").Value > 0 Then
btnWeiterleitung_Clicked("T", dgvMitarbeiter.SelectedRows(0).Cells("mit_teamId").Value, dgvMitarbeiter.SelectedRows(0).Cells("Team").Value)
btnWeiterleitung_Clicked("T", dgvMitarbeiter.SelectedRows(0).Cells("mit_teamId").Value, dgvMitarbeiter.SelectedRows(0).Cells("Team").Value, dgvMitarbeiter.SelectedRows(0).Cells("mit_firma").Value)
End If
End If
End Sub