AuditFlow

initATLASAufschubkonten/frmStartOptions.vb

@@ -1,4 +1,5 @@
 Imports System.Data.OleDb
+Imports System.Data.SqlClient
 Imports System.IO
 Imports System.Net
 Imports System.Net.Security
@@ -6245,4 +6246,16 @@ weiter:
             End If
         End Using
     End Sub
+
+    Private Sub Button27_Click_2(sender As Object, e As EventArgs) Handles Button27.Click
+        If txtWartungFaelligkeitAbDat._value <> "" Then
+            cAuditFlow.ErzeugeFaelligePruefungen(txtWartungFaelligkeitAbDat._value)
+        End If
+
+
+    End Sub
+
+
+
+
 End Class