25 lines
698 B
VB.net
25 lines
698 B
VB.net
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
|