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