17 lines
688 B
VB.net
17 lines
688 B
VB.net
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 |