AuditFlow

2025-08-13 16:44:01 +02:00
parent 967792860d
commit ccccddad57
14 changed files with 4381 additions and 53 deletions
--- a/VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow_Pruefungsojekt.vb
+++ b/VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow_Pruefungsojekt.vb
@@ -0,0 +1,59 @@
+Imports com.sun.org.apache.xml.internal.security.keys.content
+
+Public Class frmAuditFlow_Pruefungsojekt
+
+    Dim AF_PO As cAuditFlow_Pruefobjekte
+
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        getValues()
+    End Sub
+
+    Function checkValues() As Boolean
+        If cboFirma._value = "" Then MsgBox("Firma angeben!") : Return False
+        If cboNL._value = "" Then MsgBox("Niederlassung angeben!") : Return False
+        If cboStandort._value = "" Then MsgBox("Standort angeben!") : Return False
+        If cboKategorie._value = "" Then MsgBox("Kategorie angeben!") : Return False
+        If cboIntervall._value = "" Then MsgBox("Intervall angeben!") : Return False
+        If txtIntervallWert.Text = "" Then MsgBox("Intervall-Wert angeben!") : Return False
+        If datVon._value = "" Then MsgBox("Startdatum angeben!") : Return False
+        If txtBezeichnung.Text = "" Then MsgBox("Bezeichnung angeben!") : Return False
+        If txtMailErinnerung_SendenAnIntZust.Text = "" Then MsgBox("Email angeben!") : Return False
+        Return True
+    End Function
+    Sub getValues()
+        AF_PO.wartPO_Firma = cboFirma._value
+        AF_PO.wartPO_Niederlasung = cboNL._value
+        AF_PO.wartPO_Standort = cboStandort._value
+        AF_PO.wartPO_Kategorie = cboKategorie._value
+
+        AF_PO.wartPO_Bezeichnung = txtBezeichnung.Text
+        AF_PO.wartPO_Kennung = txtKennung.Text
+        AF_PO.wartPO_Kennung = cboKategorie._value
+        AF_PO.wartPO_MailErinnerung_SendenAnIntZust = txtMailErinnerung_SendenAnIntZust.Text
+
+
+    End Sub
+
+    Sub setValues()
+
+    End Sub
+
+    Private Sub frmAuditFlow_Pruefungsojekt_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        cboIntervall.Items.Clear()
+        cboIntervall.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboIntervall.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("*EINMALIG", "EINMALIG"))
+        cboIntervall.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TAGE", "TAGE"))
+        cboIntervall.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WOCHEN", "WOCHEN"))
+        cboIntervall.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MONATE", "MONATE"))
+        cboIntervall.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JAHRE", "JAHRE"))
+        cboIntervall.SelectedItem = 0
+
+
+    End Sub
+End Class