Partial Public Class vf_siniestrosextendidos
    Public ReadOnly Property NumeroGestionesNN As Long
        Get
            Return If(NumeroGestiones.HasValue, NumeroGestiones, 1)
        End Get
    End Property
    Public ReadOnly Property Abierto As Boolean
        Get
            Return Me.FechaCierre.HasValue = False
        End Get
    End Property

    Public ReadOnly Property AñoMes As String
        Get
            If Me.FechaAccidente.HasValue Then
                Return Me.FechaAccidente.Value.Year.ToString & "-" & Me.FechaAccidente.Value.Month.ToString.PadLeft(2, "0")
            Else
                Return ""
            End If
        End Get
    End Property


End Class