123

2019-05-07 17:02:34 +02:00
parent b2f61df354
commit f2d5c20559
46 changed files with 7788 additions and 275 deletions
--- a/Dokumentation/Drucken/frmPrint.vb
+++ b/Dokumentation/Drucken/frmPrint.vb
@@ -0,0 +1,47 @@
+Public Class frmPrint
+    Property ds As DataSet = Nothing
+    Property Druckart As String = "HostListe"
+    Property DruckeZugangsdaten As Boolean = False
+
+    Private Sub CmdPrint_Click(sender As Object, e As EventArgs) Handles CmdPrint.Click
+
+        If ChkDHCPDrucken.Checked = False Then deleteDHCPHostsFromDS(ds)
+        Dim dt As DataTable = Class1.OrderDataTableby(ds.Tables(0), "HOST ASC")
+
+        Dim PrintAR As New frmPrintActiveReports
+        PrintAR.DHCPAndrucken = ChkDHCPDrucken.Checked
+        PrintAR.dt = dt
+        PrintAR.DruckArt = Me.Druckart
+        PrintAR.Show()
+    End Sub
+
+    Private Sub deleteDHCPHostsFromDS(ds As DataSet)
+
+        For Each row As DataRow In ds.Tables(0).Select()
+            If Not row.Item("DHCP") = "0" Then
+                row.Delete()
+            End If
+        Next
+        ds.Tables(0).AcceptChanges()
+    End Sub
+
+    Private Sub CheckedListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles rdbHostCheckListe.CheckedChanged, rdbHostListe.CheckedChanged
+        'If rdbHostListe.Checked And Me.DruckeZugangsdaten = False Then Druckart = "HostListe"
+        'If rdbHostListe.Checked And Me.DruckeZugangsdaten = True Then Druckart = "HostListeMitZugangsdaten"
+        'If rdbHostCheckListe.Checked Then Druckart = "HostCheckListe"
+        rptSelectinator()
+    End Sub
+
+    Private Function rptSelectinator()
+        If rdbHostListe.Checked And Me.DruckeZugangsdaten = False Then Druckart = "HostListe" : lblZugangsdatenDruckWarnung.Visible = Me.DruckeZugangsdaten
+        If rdbHostListe.Checked And Me.DruckeZugangsdaten = True Then Druckart = "HostListeMitZugangsdaten" : lblZugangsdatenDruckWarnung.Visible = Me.DruckeZugangsdaten
+        If rdbHostCheckListe.Checked Then Druckart = "HostCheckListe" : lblZugangsdatenDruckWarnung.Visible = False
+
+    End Function
+
+    Private Sub frmPrint_Load(sender As Object, e As EventArgs) Handles Me.Load
+        rptSelectinator()
+        'If Me.DruckeZugangsdaten = True Then lblZugangsdatenDruckWarnung.Visible = True
+
+    End Sub
+End Class