75 lines
2.7 KiB
VB.net
75 lines
2.7 KiB
VB.net
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 = 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")
|
|
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "AMBAR"
|
|
txt.MaxLength = 30
|
|
lblAndererText.Text = lblAndererText.Text.Replace("8", "30")
|
|
End Select
|
|
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 |