31 lines
1.1 KiB
VB.net
31 lines
1.1 KiB
VB.net
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
|