Projektdateien hinzufügen.

Aviso/frmInsertVermerkFachIMEX.vb

@@ -0,0 +1,92 @@
+
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmInsertVermerkFachIMEX
+    Dim AvisoID As Integer = -1
+    Sub New(id As Integer)
+        InitializeComponent()
+        Me.AvisoID = id
+    End Sub
+    Private Sub frmInsertVermerkFach_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        TextBoxOrt.Focus()
+    End Sub
+
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+        If TextBoxOrt.Text <> "" Then
+            vermerk(TextBoxOrt.Text)
+        Else
+            lblErr.Visible = True
+        End If
+    End Sub
+
+
+    Sub vermerk(t As String)
+        Dim VermerkeDAL As New cVermerkeDAL
+        Dim myVermerk As New cVermerk
+        myVermerk.AvisoID = AvisoID
+        myVermerk.Datum = Now
+        myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
+        myVermerk.Hinweis_Vermerk = "Akt liegt im Fach '" & t & "'" : myVermerk.VermerkCodeId = 35
+        VermerkeDAL.SpeichernVermerk(myVermerk)
+        Me.Close()
+    End Sub
+
+
+    Private Sub TextBoxOrt_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBoxOrt.KeyDown
+        If e.KeyCode = Keys.Return Then
+            If TextBoxOrt.Text <> "" Then
+                vermerk(TextBoxOrt.Text)
+            Else
+                lblErr.Visible = True
+            End If
+        End If
+    End Sub
+
+    Private Sub btnTan_Click(sender As Object, e As EventArgs) Handles btnIsd.Click
+        vermerk("ISD")
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnSunlog.Click
+        vermerk("SUNLOG")
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnKita.Click
+        vermerk("KITA")
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnSAMMELAKTE.Click
+        vermerk("SAMMELAKTE")
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnEINZELAKTE.Click
+        vermerk("EINZELAKTE")
+    End Sub
+
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnEvolog.Click
+        vermerk("EVOLOG")
+    End Sub
+
+    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles btnZeus.Click
+        vermerk("ZEUS")
+    End Sub
+
+    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
+        vermerk("TTS")
+    End Sub
+
+    Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
+        vermerk("UNIVERSAL/ASDEN")
+    End Sub
+
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        vermerk("ELS")
+    End Sub
+
+    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
+        vermerk("IGL")
+    End Sub
+
+    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
+        vermerk("BOSFOR")
+    End Sub
+End Class