76 lines
2.6 KiB
VB.net
76 lines
2.6 KiB
VB.net
Public Class frmAvisoBenachrichtigungReminderBestaetigen
|
|
|
|
Dim AB As VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen = Nothing
|
|
|
|
Sub New(AB As VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
Me.AB = AB
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
Sub New(ABId)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
Me.AB = New VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen(ABId)
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub frmAvisoWeiterleitenBestaetigen_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If AB IsNot Nothing Then
|
|
|
|
rtbVermerk.Text = AB.ab_Beschreibung
|
|
' lblName.Text = AB.ab_Mitarbeiter
|
|
lblDatUhrzeit.Text = AB.ab_Datum.ToShortDateString & " " & AB.ab_Datum.ToShortTimeString
|
|
|
|
If AB.ab_Art = "A" Then lblArt.Text = "LKW"
|
|
|
|
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
|
|
|
Me.DialogResult = DialogResult.Yes
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Dim cVermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL
|
|
Dim myVermerk As VERAG_PROG_ALLGEMEIN.cVermerk = cVermerkeDAL.LesenVermerk(AB.ab_ReminderVermerkID, "")
|
|
|
|
myVermerk.VermerkID = 0 'zurücksetzen
|
|
myVermerk.Datum = Now
|
|
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
|
myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
|
|
|
|
Select Case AB.ab_ReminderVermerkCode
|
|
Case 13
|
|
myVermerk.VermerkCodeId = 14
|
|
myVermerk.Hinweis_Vermerk = SQL.getValueTxtBySql("SELECT [Bezeichnung] FROM [VermerkeCodes] where VermerkCodeId='" & myVermerk.VermerkCodeId & "'", "AVISO")
|
|
Case Else
|
|
MsgBox("Vermerk konnte nicht quittiert werden - bitte manuell durchführen!")
|
|
End Select
|
|
|
|
Dim IdTmp = cVermerkeDAL.SpeichernVermerk(myVermerk)
|
|
cVermerkeDAL.SpeichernVermerkIDAufgehoben(AB.ab_ReminderVermerkID, IdTmp)
|
|
|
|
Me.DialogResult = DialogResult.OK
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Me.DialogResult = DialogResult.Cancel
|
|
Me.Close()
|
|
End Sub
|
|
End Class |