102 lines
3.5 KiB
VB.net
102 lines
3.5 KiB
VB.net
Public Class frmTeamsZuordnung
|
|
|
|
Dim TEAMS As New VERAG_PROG_ALLGEMEIN.cQSTeams
|
|
|
|
Public SEL_TEAM As VERAG_PROG_ALLGEMEIN.cQSTeam = Nothing
|
|
Public SEL_MA As VERAG_PROG_ALLGEMEIN.cQSTeamMA = Nothing
|
|
|
|
|
|
|
|
Sub New() 'qsId, maId)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' AddHandler Me.Shown, Sub()
|
|
'If qsId IsNot Nothing Then cboTeams.changeItem(qsId)
|
|
'If maId IsNot Nothing Then
|
|
' For Each b As Button In MyFlowLayoutPanel1.Controls
|
|
' If b.Tag = maId Then
|
|
' b.BackColor = Color.LightBlue
|
|
'End If
|
|
'Next
|
|
'End If
|
|
' End Sub
|
|
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
Private Sub frmKundeTeamZuordnung_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
|
|
cboTeams.Items.Clear()
|
|
cboTeams.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
|
For Each T In TEAMS.LIST
|
|
cboTeams.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(T.qstm_bezeichnung, T.qstm_Id)) ', TEAMS.LIST.IndexOf(T)))
|
|
Next
|
|
|
|
cboSB.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &
|
|
" FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung IN ('QS','ZOLL') AND [mit_gekuendigt]=0 order by name", False, "ADMIN", True)
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub cboTeams_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTeams.SelectedIndexChanged
|
|
initTeam()
|
|
End Sub
|
|
|
|
Sub initTeam()
|
|
dgvQsTeamMa.Rows.Clear()
|
|
SEL_TEAM = Nothing
|
|
SEL_MA = Nothing
|
|
If IsNumeric(DirectCast(cboTeams.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value) Then
|
|
TEAMS.LOAD_LIST()
|
|
SEL_TEAM = TEAMS.getTeamById(DirectCast(cboTeams.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value)
|
|
'If SEL_TEAM Is Nothing Then Exit Sub
|
|
For Each M In SEL_TEAM.MEMBER
|
|
|
|
dgvQsTeamMa.Rows.Add(M.qtma_Id, M.qtma_name)
|
|
|
|
Next
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnZuordnungAufheben_Click(sender As Object, e As EventArgs)
|
|
SEL_MA = Nothing
|
|
SEL_TEAM = Nothing
|
|
End Sub
|
|
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Dim Teamname = InputBox("Bitte geben Sie einen Teamnamen ein:")
|
|
If Teamname <> "" Then
|
|
If VERAG_PROG_ALLGEMEIN.cQSTeams.genNewTeam(Teamname) Then
|
|
initTeam()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
|
If cboSB._value <> "" Then
|
|
Dim T As New VERAG_PROG_ALLGEMEIN.cQSTeamMA
|
|
T.qtma_name = cboSB.Text
|
|
T.qtma_MaId = cboSB._value
|
|
T.qtma_QstmId = cboTeams._value
|
|
If T.INSERT() Then
|
|
initTeam()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
If dgvQsTeamMa.SelectedRows.Count > 0 Then
|
|
If vbYes = MsgBox("Möchten Sie das Teammitglied wirklich entfernen?", vbYesNoCancel) Then
|
|
Dim T As New VERAG_PROG_ALLGEMEIN.cQSTeamMA(dgvQsTeamMa.SelectedRows(0).Cells("qst_id").Value)
|
|
If T.DELETE Then
|
|
initTeam()
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
End Class |