123

Dokumentation/Drucken/rptHostCheckListe.vb

@@ -0,0 +1,33 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+
+Public Class rptHostCheckListe
+
+    Public dt As DataTable
+    Property DHCPAndrucken As Boolean = Nothing
+    Public counter As Integer = 0
+    Public AltColor As Color = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+
+        txtFQDN.Text = Class1.DBNull2emptyString(Fields.Item("FQDN").Value)
+        txtIPAdresse.Text = Fields.Item("IPAdresse").Value
+        txtModell.Text = Class1.DBNull2emptyString(Fields.Item("Modell").Value)
+        txtStandort.Text = Class1.DBNull2emptyString(Fields.Item("Standort").Value)
+        txtInfo.Text = ""
+        '  If Not Fields.Item("DHCP").Value = "0" And DHCPAndrucken = True Then txtFQDN.Text = Class1.DBNull2emptyString(Fields.Item("FQDN").Value) 'txtFQDN.Text = "DHCP Bereich"
+
+        counter = counter + 1
+
+        If counter Mod 2 = 0 Then
+            Detail.BackColor = Color.Transparent
+        Else
+            Detail.BackColor = AltColor
+        End If
+
+    End Sub
+
+    Private Sub rptHostCheckListe_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+        DataSource = dt
+    End Sub
+End Class