CBAM kafka, Auditflow

VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow_Pruefungsojekt.vb

@@ -69,9 +69,9 @@ Public Class frmAuditFlow_Pruefungsojekt
         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 txtZustaendigIntern_Mail.Text = "" Then MsgBox("Email angeben!") : Return False
+        If CheckBox2.Checked AndAlso txtZustaendigIntern_Mail.Text = "" Then MsgBox("Email angeben!") : Return False
         Return True
-    End Function
+        End Function
     Sub getValues()
         Try
 
@@ -81,14 +81,21 @@ Public Class frmAuditFlow_Pruefungsojekt
         AF_PO.wartPO_Kategorie = cboKategorie._value
 
         AF_PO.wartPO_Bezeichnung = txtBezeichnung.Text
-        AF_PO.wartPO_Kennung = txtKennung.Text
-        AF_PO.wartPO_zustaendigIntern_Mail = txtZustaendigIntern_Mail.Text
-        AF_PO.wartPO_IntervallWert = txtIntervallWert.Text
+            AF_PO.wartPO_Kennung = txtKennung.Text
+
+            If CheckBox2.Checked Then
+                AF_PO.wartPO_zustaendigIntern_Mail = txtZustaendigIntern_Mail.Text
+            Else
+                AF_PO.wartPO_zustaendigIntern_Mail = ""
+            End If
+
+            AF_PO.wartPO_IntervallWert = txtIntervallWert.Text
         AF_PO.wartPO_IntervallTyp = cboIntervall._value
         AF_PO.wartPO_zustaendigIntern_MaId = cboMA._value
-        AF_PO.wartPO_zustaendigIntern_Name = cboMA.Text
+            AF_PO.wartPO_zustaendigIntern_Name = cboMA.Text
+            AF_PO.wartPO_Beschreibung = rtbWeitereInfo.Text
 
-        AF_PO.wartPO_startdatum = datVon._value
+            AF_PO.wartPO_startdatum = datVon._value
             If datBis._value <> "" Then
                 AF_PO.wartPO_enddatum = datBis._value
             Else
@@ -96,13 +103,13 @@ Public Class frmAuditFlow_Pruefungsojekt
             End If
 
             AF_PO.wartPO_Erinnerung_VorlaufInTagen = txtErinnerungVorlaubInTagen.Text
-        AF_PO.wartPO_Aktiv = CheckBox1.Checked
+            AF_PO.wartPO_Aktiv = CheckBox1.Checked
 
-        If cboMA._value <> "" Then
-            Dim MA As New cMitarbeiter(cboMA._value)
-            AF_PO.wartPO_zustaendigIntern_Tel = MA.mit_telefonnr
-            'AF_PO= MA.mit_telefonnr
-        End If
+            If cboMA._value <> "" Then
+                Dim MA As New cMitarbeiter(cboMA._value)
+                AF_PO.wartPO_zustaendigIntern_Tel = MA.mit_telefonnr
+                'AF_PO= MA.mit_telefonnr
+            End If
 
 
         Catch ex As Exception
@@ -128,6 +135,7 @@ Public Class frmAuditFlow_Pruefungsojekt
         cboMA.changeItem(AF_PO.wartPO_zustaendigIntern_MaId)
         'cboMA.Text = AF_PO.wartPO_zustaendigIntern_Name
         txtErinnerungVorlaubInTagen.Text = AF_PO.wartPO_Erinnerung_VorlaufInTagen
+        rtbWeitereInfo.Text = If(AF_PO.wartPO_Beschreibung, "")
         CheckBox1.Checked = AF_PO.wartPO_Aktiv
 
         txtZustaendigIntern_Mail.Text = AF_PO.wartPO_zustaendigIntern_Mail 'zuletzt, sonst bei MA Wechsel überschrieben