AVISO/Aviso/frmAvisoWeiterleitenOLD.vb

Public Class frmAvisoWeiterleitenOLD

    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
    Dim Art = "" ' A..viso oder S..endung
    Dim AvisoId As Integer
    Dim SendungsId As Integer

    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
        'tbcntr.Appearance = TabAppearance.FlatButtons
        'tbcntr.ItemSize = New Size(0, 1)
        'tbcntr.SizeMode = TabSizeMode.Fixed
        'tbcntr.pa
        Button6.PerformClick()
    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.FromArgb(0, 54, 128)
        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.FromArgb(0, 54, 128)
        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."
        End Select


        'If insertVermerke() Then
        VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, SendungsId, 3, WLart, id, "WL von '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "'", 0)
        If Art = "S" Then
            ASF.insertSendungsVermerk(SendungsId, AvisoId, text, 46)
            ASF.SendungUebernehmen_Zuruecksetzen(SendungsId, AvisoId) ' , Optional MaId As Integer = -1, Optional GesendetAn As Boolean = False)
        Else
            ASF.insertVermerkAllg(AvisoId, text, 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, Button9.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(flpNiederlassung, "N", "SBG", "VERAG Salzburg")
            addBtn(flpNiederlassung, "N", "WAI", "VERAG Waidhaus")
            addBtn(flpNiederlassung, "N", "NKD", "VERAG Nickelsdorf")

            addBtn(flpAbteilung, "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 Button9 Then
            addBtn(flpFirma, "F", "FRONTOFFICE", "FRONT-OFFICE", True)

        End If

        initButtonsTop(sender)
    End Sub

End Class