neu

Aviso/frmAvisoWeiterleitenOLD.vb

@@ -0,0 +1,210 @@
+
+
+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