neu

2022-03-21 09:19:52 +01:00
parent 4491b88deb
commit a4ad6cc8c8
68 changed files with 12141 additions and 6529 deletions
--- a/Aviso/Benachrichtigung/frmAvisoBenachrichtigungReminderBestaetigen.vb
+++ b/Aviso/Benachrichtigung/frmAvisoBenachrichtigungReminderBestaetigen.vb
@@ -0,0 +1,75 @@
+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.None
+        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