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-12 14:48:24 +01:00
parent e879fb6881
commit afaac3c2a4
107 changed files with 16055 additions and 3324 deletions
Download Patch File Download Diff File Expand all files Collapse all files

344
Aviso/frmAvisoWeiterleiten.vb Normal file
View File

@@ -0,0 +1,344 @@

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
'tbcntr.Appearance = TabAppearance.FlatButtons
'tbcntr.ItemSize = New Size(0, 1)
'tbcntr.SizeMode = TabSizeMode.Fixed
'tbcntr.pa
Button6.PerformClick()
loaded = True
End Sub
Private Sub Panel2_Paint(sender As Object, e As PaintEventArgs)
End Sub
Private Sub MyFlowLayoutPanel1_Paint(sender As Object, e As PaintEventArgs)
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)
Dim text = ""
Dim code = 3
Select Case WLart
Case "T"
text = "Ins Team '" & bezeichnung & "' gegeben."
Case "A"
text = "An '" & bezeichnung & "' gegeben."
Case "N"
text = "An '" & bezeichnung & "' gegeben."
Case "F"
text = "An '" & bezeichnung & "' gegeben."
Case "B"
text = "An '" & bezeichnung & "' gegeben."
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)
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)
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)
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
'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, "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"))
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"))
Next
End If
ElseIf sender Is btnUNIPED Then
addBtn(flpFirma, "F", "UNISPED", "UNISPED", True)
ElseIf sender Is btnFrontoffice Then
addBtn(flpFirma, "F", "FRONTOFFICE", "FRONT-OFFICE", 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 = Windows.Forms.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)
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() = System.Windows.Forms.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