93 lines
2.9 KiB
VB.net
93 lines
2.9 KiB
VB.net
|
|
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
|