AuditFlow, OpenSnd_SendToAviso

VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow_Pruefungsojekt.vb

@@ -36,7 +36,7 @@ Public Class frmAuditFlow_Pruefungsojekt
                     End If
                 End If
             Catch ex As Exception
-                MsgBox(ex.Message)
+                MsgBox(ex.Message & ex.StackTrace)
             End Try
         End If
     End Sub
@@ -50,10 +50,11 @@ Public Class frmAuditFlow_Pruefungsojekt
                 If AF_PO.SAVE Then
                     Me.Close()
                 End If
+
             End If
 
         Catch ex As Exception
-
+            MsgBox(ex.Message & ex.StackTrace)
         End Try
         Me.Cursor = Cursors.Default
     End Sub
@@ -72,7 +73,9 @@ Public Class frmAuditFlow_Pruefungsojekt
         Return True
     End Function
     Sub getValues()
-        AF_PO.wartPO_Firma = cboFirma._value
+        Try
+
+            AF_PO.wartPO_Firma = cboFirma._value
         AF_PO.wartPO_Niederlasung = cboNL._value
         AF_PO.wartPO_StandortId = cboStandort._value
         AF_PO.wartPO_Kategorie = cboKategorie._value
@@ -86,9 +89,13 @@ Public Class frmAuditFlow_Pruefungsojekt
         AF_PO.wartPO_zustaendigIntern_Name = cboMA.Text
 
         AF_PO.wartPO_startdatum = datVon._value
-        AF_PO.wartPO_enddatum = datBis._value
+            If datBis._value <> "" Then
+                AF_PO.wartPO_enddatum = datBis._value
+            Else
+                AF_PO.wartPO_enddatum = Nothing
+            End If
 
-        AF_PO.wartPO_Erinnerung_VorlaufInTagen = txtErinnerungVorlaubInTagen.Text
+            AF_PO.wartPO_Erinnerung_VorlaufInTagen = txtErinnerungVorlaubInTagen.Text
         AF_PO.wartPO_Aktiv = CheckBox1.Checked
 
         If cboMA._value <> "" Then
@@ -98,8 +105,9 @@ Public Class frmAuditFlow_Pruefungsojekt
         End If
 
 
-
-
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
 
     End Sub