21 lines
632 B
VB.net
21 lines
632 B
VB.net
Partial Public Class gestionessiniestros
|
|
'Public Property RecordatorioVisto As Boolean
|
|
' Get
|
|
' Return Me.FechaRecordatorioVisto.HasValue
|
|
' End Get
|
|
' Set(value As Boolean)
|
|
' If value Then
|
|
' Me.FechaRecordatorioVisto = Now
|
|
' Else
|
|
' Me.FechaRecordatorioVisto = Nothing
|
|
' End If
|
|
' End Set
|
|
'End Property
|
|
Public ReadOnly Property PendienteRevision As Boolean
|
|
Get
|
|
PendienteRevision = (Me.FechaRecordatorio.HasValue AndAlso Me.FechaRecordatorio.Value <= Now)
|
|
End Get
|
|
End Property
|
|
|
|
End Class
|