AVISO/Aviso/frmAvisoWeiterleiten.vb

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, Optional bezeichnungFirma As String = "")
        Dim text = ""
        Dim code = 3
        Select Case WLart
            Case "T"
                text = "Ins Team '" & bezeichnung & "' [" & bezeichnungFirma & "] 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, 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
        '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)

        ElseIf sender Is btnFrontoffice Then
            addBtn(flpFirma, "F", "FRONTOFFICE", "FRONT-OFFICE", True)
        ElseIf sender Is btnVERIMEX Then
            addBtn(flpFirma, "F", "VERIMEX", "VERIMEX", True)

        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