Projektdateien hinzufügen.

Aviso/frmTv.vb

@@ -0,0 +1,69 @@
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmTv
+    Public avisoID = -1
+    Dim AVISO As New cAvisoDAL
+    Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint
+
+    End Sub
+
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+        lblAndererText.ForeColor = Color.Black
+        If txt.Text = "" Then lblAndererText.ForeColor = Color.Red : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
+        If avisoID > 0 Then
+            AVISO.UpdateAvisoTVHinweis(avisoID, txt.Text)
+        End If
+    End Sub
+
+    Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
+        If avisoID > 0 Then
+            AVISO.UpdateAvisoTVHinweis(avisoID, "URGENT")
+            insertVermerk("TV-Hinweis: 'URGENT'", 48)
+            Me.Close()
+        End If
+    End Sub
+    Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click
+        If avisoID > 0 Then
+            AVISO.UpdateAvisoTVHinweis(avisoID, "DOKUMENT")
+            insertVermerk("TV-Hinweis: 'DOKUMENT'", 48)
+            Me.Close()
+        End If
+    End Sub
+    Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
+        If avisoID > 0 Then
+            AVISO.UpdateAvisoTVHinweis(avisoID, "PASSPORT")
+            insertVermerk("TV-Hinweis: 'PASSPORT'", 48)
+            Me.Close()
+        End If
+    End Sub
+
+    Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click
+        If avisoID > 0 Then
+            AVISO.UpdateAvisoTVHinweis(avisoID, "")
+            insertVermerk("TV-Hinweis gelöscht", 48)
+            Me.Close()
+        End If
+    End Sub
+
+    Private Sub frmTv_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Dim cADMIN As New cADMIN
+        txt.Text = cADMIN.getValueTxtBySql("SELECT TOP 1 AvisoTVHinweis FROM Aviso WHERE AvisoID=" & avisoID, "AVISO")
+    End Sub
+
+    Dim VermerkeDAL As New cVermerkeDAL
+
+    Sub insertVermerk(Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "")
+        'Daten zuweisen und speichern
+        Dim myVermerk As New cVermerk
+        myVermerk.VermerkID = 0
+        myVermerk.AvisoID = avisoID
+        myVermerk.Datum = Now
+        myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
+        myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
+        myVermerk.Hinweis_Vermerk = Text
+        myVermerk.VermerkCodeId = VermerkCodeId
+
+        VermerkeDAL.SpeichernVermerk(myVermerk)
+
+    End Sub
+End Class