377 lines
16 KiB
VB.net
377 lines
16 KiB
VB.net
|
|
|
|
Public Class frmAvisoWeiterleiten
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Dim Art = "" ' A..viso oder S..endung
|
|
Dim AvisoId As Integer
|
|
Dim SendungsId As Integer
|
|
|
|
Dim loaded = False
|
|
|
|
|
|
Dim ASF = New AVISO.AvisoStatusFunctions
|
|
|
|
Sub New(Art As String, AvisoId As Integer, Optional SendungsId As Integer = -1)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
Me.Art = Art
|
|
Me.AvisoId = AvisoId
|
|
Me.SendungsId = SendungsId
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
Private Sub frmAvisoWeiterleiten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then
|
|
Me.Close()
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(AvisoId)
|
|
|
|
If AVISO.FIRMA = "ATILLA" Then
|
|
|
|
For Each p As Control In MyFlowLayoutPanel1.Controls.OfType(Of Button).Where(Function(ctrl) ctrl.Name <> "btnATILLA" And ctrl.Name <> "btnVERIMEX").ToList
|
|
MyFlowLayoutPanel1.Controls.Remove(p)
|
|
Next
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then btnVERIMEX.PerformClick()
|
|
Panel2.Enabled = False
|
|
Else
|
|
btnATILLA.Visible = False
|
|
End If
|
|
'tbcntr.Appearance = TabAppearance.FlatButtons
|
|
'tbcntr.ItemSize = New Size(0, 1)
|
|
'tbcntr.SizeMode = TabSizeMode.Fixed
|
|
'tbcntr.pa
|
|
Button6.PerformClick()
|
|
loaded = True
|
|
End Sub
|
|
|
|
|
|
|
|
'Private Sub Button6_Click(sender As Object, e As EventArgs)
|
|
' Dim flp As FlowLayoutPanel = flpFi
|
|
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' order by team_id", "ADMIN")
|
|
|
|
' flp.Controls.Clear()
|
|
|
|
' If dt Is Nothing Then Exit Sub
|
|
|
|
' For Each t In dt.Rows
|
|
' Dim btn As New Button
|
|
' btn.FlatStyle = FlatStyle.Flat
|
|
' btn.Size = New Size(250, 50)
|
|
' btn.Font = New Font(Me.Font.FontFamily, 10, FontStyle.Regular)
|
|
' btn.Text = t("team_bezeichnung")
|
|
' btn.Tag = t("team_id")
|
|
|
|
' AddHandler btn.Click, Sub()
|
|
' btnWeiterleitung_Clicked("T", (btn.Tag), btn.Text)
|
|
' initButtons(flp, sender)
|
|
' End Sub
|
|
|
|
' flpFirma.Controls.Add(btn)
|
|
|
|
' Next
|
|
|
|
'End Sub
|
|
|
|
Sub initButtons(flp As FlowLayoutPanel, b As Button)
|
|
For Each c In flp.Controls
|
|
DirectCast(c, Button).BackColor = Color.WhiteSmoke
|
|
DirectCast(c, Button).ForeColor = Color.Black
|
|
Next
|
|
b.BackColor = Color.SteelBlue
|
|
b.ForeColor = Color.White
|
|
|
|
End Sub
|
|
|
|
Sub initButtonsTop(b As Button)
|
|
For Each c In MyFlowLayoutPanel1.Controls
|
|
DirectCast(c, Button).BackColor = Color.WhiteSmoke
|
|
DirectCast(c, Button).ForeColor = Color.Black
|
|
Next
|
|
b.BackColor = Color.SteelBlue
|
|
b.ForeColor = Color.White
|
|
|
|
End Sub
|
|
|
|
|
|
Sub btnWeiterleitung_Clicked(WLart As String, id As String, bezeichnung As String, Optional bezeichnungFirma As String = "")
|
|
Dim text = ""
|
|
Dim WeiterleitungTextTV = ""
|
|
Dim code = 3
|
|
Select Case WLart
|
|
Case "T"
|
|
text = "Ins Team '" & bezeichnung & "' [" & bezeichnungFirma & "] gegeben."
|
|
WeiterleitungTextTV = bezeichnungFirma & "/" & bezeichnung
|
|
Case "A"
|
|
text = "An '" & bezeichnung & "' gegeben."
|
|
WeiterleitungTextTV = bezeichnung
|
|
Case "N"
|
|
text = "An '" & bezeichnung & "' gegeben."
|
|
WeiterleitungTextTV = bezeichnung
|
|
Case "F"
|
|
text = "An '" & bezeichnung & "' gegeben."
|
|
WeiterleitungTextTV = bezeichnung
|
|
Case "B"
|
|
text = "An '" & bezeichnung & "' gegeben."
|
|
WeiterleitungTextTV = bezeichnung
|
|
End Select
|
|
|
|
'Anhänge:
|
|
Dim collAnhIds = ""
|
|
Try
|
|
For Each r In dgvAnmhaenge.Rows
|
|
Dim fi As New IO.FileInfo(r.cells("clmnAnhFilePath").value)
|
|
Dim typ = ""
|
|
Dim anhId = -1
|
|
If AVISO.frmSendungAnhangImport.getFileTypeValid(fi.Extension, typ) Then
|
|
AVISO.frmSendungAnhangImport.saveToDS(AvisoId, fi.Name, r.cells("clmnAnhFilePath").value, "BENACHRICHTIGUNG", typ, , anhId,, If(Art = "S", SendungsId, Nothing))
|
|
collAnhIds &= anhId & ";"
|
|
End If
|
|
Next
|
|
If collAnhIds <> "" Then collAnhIds = collAnhIds.Substring(0, collAnhIds.Length - 1)
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
End Try
|
|
|
|
|
|
' insertVermerke
|
|
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, SendungsId, 3, WLart, id, "von '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "'", 0, collAnhIds, rtbVermerk.Text.Trim)
|
|
If Art = "S" Then
|
|
ASF.insertSendungsVermerk(SendungsId, AvisoId, text, 46)
|
|
If rtbVermerk.Text.Trim <> "" Then ASF.insertSendungsVermerk(SendungsId, AvisoId, "WL: " & rtbVermerk.Text.Trim, 46)
|
|
ASF.SendungUebernehmen_Zuruecksetzen(SendungsId, AvisoId) ' , Optional MaId As Integer = -1, Optional GesendetAn As Boolean = False)
|
|
Else
|
|
ASF.insertVermerkAllg(AvisoId, text, 46)
|
|
If rtbVermerk.Text.Trim <> "" Then ASF.insertVermerkAllg(AvisoId, "WL: " & rtbVermerk.Text.Trim, 46)
|
|
ASF.AktUebernehmen_Zuruecksetzen(AvisoId, WeiterleitungTextTV)
|
|
End If
|
|
|
|
' Me.Close()
|
|
' End If
|
|
|
|
Me.Close()
|
|
Me.DialogResult = DialogResult.OK
|
|
End Sub
|
|
|
|
'Private Sub Button5_Click(sender As Object, e As EventArgs)
|
|
' ' tbcntr.SelectedTab = tbAbteilung
|
|
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' order by team_id", "ADMIN")
|
|
|
|
' flpFirma.Controls.Clear()
|
|
' addBtn("A", "FISKAL", "VERAG Fiskal")
|
|
|
|
' initButtons(sender)
|
|
'End Sub
|
|
|
|
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)
|
|
btn.Font = New Font(Me.Font.FontFamily, 10, FontStyle.Regular)
|
|
btn.Text = bezeichnung
|
|
btn.Tag = id
|
|
btn.Enabled = enabled
|
|
|
|
AddHandler btn.Click, Sub()
|
|
btnWeiterleitung_Clicked(WLart, (btn.Tag), bezeichnung, bezeichnungFirma)
|
|
initButtons(flpFirma, btn)
|
|
End Sub
|
|
|
|
flpFirma.Controls.Add(btn)
|
|
End Sub
|
|
|
|
'Private Sub Button4_Click(sender As Object, e As EventArgs)
|
|
' ' tbcntr.SelectedTab = tbAbteilung
|
|
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' order by team_id", "ADMIN")
|
|
|
|
' flpFirma.Controls.Clear()
|
|
' addBtn("N", "SBG", "VERAG Salzburg")
|
|
' addBtn("N", "WAI", "VERAG Waidhaus")
|
|
' addBtn("N", "NKD", "VERAG Nickelsdorf")
|
|
|
|
' initButtons(sender)
|
|
'End Sub
|
|
|
|
'Private Sub Button7_Click(sender As Object, e As EventArgs)
|
|
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' order by team_id", "ADMIN")
|
|
|
|
' flpFirma.Controls.Clear()
|
|
' addBtn("F", "FRONTOFFICE", "FRONTOFFICE")
|
|
' addBtn("F", "UNISPED", "UNISPED")
|
|
|
|
' initButtons(sender)
|
|
'End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnVERAG.Click, btnIMEX.Click, btnUNIPED.Click, btnFrontoffice.Click, btnVERIMEX.Click, btnAMBAR.Click, btnATILLA.Click
|
|
'flpAbteilung.Controls.Clear()
|
|
flpTeams.Controls.Clear()
|
|
' flpNiederlassung.Controls.Clear()
|
|
flpFirma.Controls.Clear()
|
|
|
|
If sender Is btnVERAG Then
|
|
addBtn(flpFirma, "F", "VERAG", "VERAG", False)
|
|
|
|
addBtn(flpFirma, "N", "SBG", "VERAG Salzburg")
|
|
addBtn(flpFirma, "N", "WAI", "VERAG Waidhaus")
|
|
addBtn(flpFirma, "N", "NKD", "VERAG Nickelsdorf")
|
|
addBtn(flpFirma, "N", "NEU", "VERAG Neuhaus")
|
|
|
|
addBtn(flpFirma, "A", "FISK", "VERAG Fiskal")
|
|
|
|
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"),, "VERAG")
|
|
Next
|
|
End If
|
|
ElseIf sender Is btnIMEX Then
|
|
addBtn(flpFirma, "F", "IMEX", "IMEX", False)
|
|
|
|
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"),, "IMEX")
|
|
Next
|
|
End If
|
|
ElseIf sender Is btnUNIPED Then
|
|
addBtn(flpFirma, "F", "UNISPED", "UNISPED", True)
|
|
|
|
Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='UNISPED' 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"),, "IMEX")
|
|
Next
|
|
End If
|
|
ElseIf sender Is btnFrontoffice Then
|
|
addBtn(flpFirma, "F", "FRONTOFFICE", "FRONT-OFFICE", True)
|
|
ElseIf sender Is btnATILLA Then
|
|
addBtn(flpFirma, "F", "ATILLA", "ATILLA", True)
|
|
ElseIf sender Is btnVERIMEX Then
|
|
'addBtn(flpFirma, "F", "VERIMEX", "VERIMEX", True)
|
|
Dim whereTeams = ""
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then whereTeams = " AND team_bezeichnung='TEAM EXPORT' "
|
|
Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='VERIMEX' " & whereTeams & " 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"),, "VERIMEX")
|
|
Next
|
|
End If
|
|
ElseIf sender Is btnAMBAR Then
|
|
addBtn(flpFirma, "F", "AMBAR", "AMBAR", True)
|
|
|
|
End If
|
|
|
|
initButtonsTop(sender)
|
|
End Sub
|
|
|
|
Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MyTextBox1.TextChanged
|
|
initDGV()
|
|
End Sub
|
|
|
|
Sub initDGV()
|
|
If Not loaded Then Exit Sub
|
|
With dgvMitarbeiter
|
|
Dim FirmaTMP = "" ' MyComboBox1._value
|
|
Dim sqlStr = "SELECT TOP (1000) [mit_id],[mit_nname] + ' ' + [mit_vname] + ' (' + mit_niederlassung + ')' as MAname,CASE WHEN mit_firma='ALL' THEN mit_firmaHaupt ELSE mit_firma END as mit_firma,[mit_teamId],team_bezeichnung as Team "
|
|
sqlStr &= " FROM [tblMitarbeiter] left join tblteams on team_id=mit_teamid "
|
|
sqlStr &= " WHERE mit_gekuendigt=0 AND /*mit_abteilung IN ('QS','ZOLL','DISPO') AND*/ [mit_TESTonly]=0 AND [mit_pseudoUser]=0 AND [mit_ChatBenutzer]=1 "
|
|
' If MyComboBox1._value <> "" Then sqlStr &= " AND mit_firma IN ('" & FirmaTMP & "','BEIDE','ALLE','ALL')"
|
|
If MyTextBox1.Text <> "" Then sqlStr &= " AND (mit_nname LIKE '" & MyTextBox1.Text & "%' OR mit_vname LIKE '" & MyTextBox1.Text & "%' )"
|
|
|
|
sqlStr &= " order by mit_nname,mit_vname"
|
|
|
|
.DataSource = SQL.loadDgvBySql(sqlStr, "ADMIN")
|
|
|
|
If .Columns.Count = 0 Then Exit Sub
|
|
|
|
.Columns("mit_teamId").Visible = False
|
|
.Columns("mit_id").Visible = False
|
|
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
|
End With
|
|
End Sub
|
|
|
|
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs)
|
|
initDGV()
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub dgvMitarbeiter_SelectionChanged(sender As Object, e As EventArgs) Handles dgvMitarbeiter.SelectionChanged
|
|
btnBenutzer.Enabled = False
|
|
btnTeam.Enabled = False
|
|
|
|
If dgvMitarbeiter.SelectedRows.Count > 0 Then
|
|
' btnBenutzer.Enabled = True
|
|
If dgvMitarbeiter.SelectedRows(0).Cells("mit_teamId").Value IsNot DBNull.Value AndAlso dgvMitarbeiter.SelectedRows(0).Cells("mit_teamId").Value > 0 Then
|
|
btnBenutzer.Enabled = False
|
|
btnTeam.Enabled = True
|
|
End If
|
|
Else
|
|
End If
|
|
End Sub
|
|
|
|
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, dgvMitarbeiter.SelectedRows(0).Cells("mit_firma").Value)
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnBenutzer_Click(sender As Object, e As EventArgs) Handles btnBenutzer.Click
|
|
If dgvMitarbeiter.SelectedRows.Count > 0 Then
|
|
btnWeiterleitung_Clicked("B", dgvMitarbeiter.SelectedRows(0).Cells("mit_id").Value, dgvMitarbeiter.SelectedRows(0).Cells("MAname").Value)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Dim fd As New OpenFileDialog
|
|
' fd.Filter = "Excel Dateien|*.xls;*.xlsx"
|
|
fd.RestoreDirectory = True
|
|
fd.Title = "Datei auswählen"
|
|
fd.Multiselect = True
|
|
' fd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
|
|
|
|
'fd.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
|
|
'fd.FilterIndex = 2
|
|
|
|
If fd.ShowDialog() = DialogResult.OK And fd.FileName <> "" Then
|
|
' saveFileAtt(fd.FileName)
|
|
|
|
For Each fileTMp In fd.FileNames
|
|
If Not fileTMp.EndsWith(".exe") Then
|
|
dgvAnmhaenge.Rows.Add({fileTMp, New IO.FileInfo(fileTMp).Name})
|
|
End If
|
|
Next
|
|
'Dim docId = -1
|
|
'If saveToDS(fileName, fd.FileName, docId) Then
|
|
|
|
' Dim MSG As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages(CHAT.chat_id, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
|
|
' MSG.chatMg_type = "ATTACHMENT"
|
|
' MSG.chatMg_text = fileName
|
|
' MSG.chatMg_anhang_docId = docId
|
|
' MSG.chatMg_maName = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname
|
|
' MSG.chatMg_maFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
|
|
' If MSG.SAVE(True, CHAT.CHAT_MEMBERS) Then
|
|
' SEND_TOKEN_NEW_MESSAGE()
|
|
' ' CHAT.CHAT_MESSAGES.Add(MSG)
|
|
' SET_ALL_READ()
|
|
' REFRESH_CHAT()
|
|
' rtbChatMessage.Text = ""
|
|
' rtbChatMessage.Focus()
|
|
' End If
|
|
' End If
|
|
End If
|
|
dgvAnmhaenge.ClearSelection()
|
|
End Sub
|
|
|
|
End Class |