agregado procesos y bd clases

guia/Extensiones/vf_siniestrosextendidos.vb

@@ -0,0 +1,24 @@
+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