neu

UID/Dienstplan/usrCntlDienstplan.vb

@@ -569,4 +569,10 @@ Public Class usrCntlDienstplan
         Next
 
     End Sub
+
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        Dim table As New DataTable()
+        Me.dataAdapterMA.Fill(table)
+        VERAG_PROG_ALLGEMEIN.cProgramFunctions.genCSVFromDT(table, True) '
+    End Sub
 End Class