agregado procesos y bd clases

2026-04-28 11:52:16 +02:00
parent 59a774c397
commit cd2e8b8530
251 changed files with 56881 additions and 49 deletions
--- a/guia/Extensiones/gestionessiniestros.vb
+++ b/guia/Extensiones/gestionessiniestros.vb
@@ -0,0 +1,20 @@
+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