MS

WISAG_PM_REPORT/RptStampSingle.vb

@@ -0,0 +1,17 @@
+Public Class RptStampSingle
+    Private Sub ReportHeaderBand1_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles ReportHeaderBand1.BeforePrint
+        Dim oSTATE As String = GetCurrentColumnValue("STATE")
+        Dim oGroupTypeID As Integer = GetCurrentColumnValue("GroupTypeID")
+        Dim myRgbColor As Color = New Color()
+
+        If oSTATE = "Genehmigt" Then
+            myRgbColor = Color.FromArgb(109, 177, 51)
+            XrPanel2.BorderColor = Color.Red 'myRgbColor
+            XrLabel1.ForeColor = Color.Red 'myRgbColor
+        Else
+
+            XrPanel2.BorderColor = Color.Red
+            XrLabel1.ForeColor = Color.Red
+        End If
+    End Sub
+End Class