agregado procesos y bd clases

guia/Extensiones/vf_documentospolizassgextendidas.vb

@@ -0,0 +1,30 @@
+Imports bdGestionAsegasa.documentospolizassg
+
+Public Class vf_documentospolizassgextendidas
+    Public Property FicheroModificado_TMP As Boolean
+    Public Property Fichero_TMP As Byte()
+    Public Property DocumentoComprobado As Boolean
+        Get
+            Return Me.FechaComprobacion.HasValue
+        End Get
+        Set(value As Boolean)
+            If value Then
+                Me.FechaComprobacion = Now
+                Me.idUsuarioComprueba = Utilidades.dsc.idUsuario
+                Me.UsuarioComprueba = Utilidades.NombreUsuario
+            Else
+                Me.FechaComprobacion = Nothing
+                Me.idUsuarioComprueba = Nothing
+                Me.UsuarioComprueba = ""
+            End If
+            Me.OnPropertyChanged("idUsuarioComprueba")
+            Me.OnPropertyChanged("FechaComprobacion")
+            Me.OnPropertyChanged("UsuarioComprueba")
+        End Set
+    End Property
+    Public ReadOnly Property DescripcionTipo
+        Get
+            Return DirectCast(Tipo, TipoDocumentoEnum).ToString.Replace("_", " ")
+        End Get
+    End Property
+End Class