55 lines
2.0 KiB
VB.net
55 lines
2.0 KiB
VB.net
Partial Public Class documentospolizassg
|
|
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
|
|
Else
|
|
Me.FechaComprobacion = Nothing
|
|
Me.idUsuarioComprueba = Nothing
|
|
End If
|
|
Me.OnPropertyChanged("idUsuarioComprueba")
|
|
Me.OnPropertyChanged("FechaComprobacion")
|
|
End Set
|
|
End Property
|
|
|
|
Public Shared Sub GeneraDocumentosASolicitar(bd As gestionasegasaEntities, Poliza As polizassg, Optional idDocsASolicitar As List(Of Integer) = Nothing)
|
|
Dim das As List(Of documentosasolicitar)
|
|
If idDocsASolicitar IsNot Nothing Then
|
|
das = bd.documentosasolicitar.Where(Function(x) idDocsASolicitar.Contains(x.idDocumento)).ToList
|
|
Else
|
|
das = bd.documentosasolicitar.Where(Function(x) x.idRamo = Poliza.idRamo).ToList
|
|
End If
|
|
|
|
Dim idDomiciliacion = bd.enumeraciones.First(Function(x) x.Codigo = "TIPP.BA").idEnumeracion
|
|
For Each d In das
|
|
Dim dp = New documentospolizassg
|
|
Poliza.documentospolizassg.Add(dp)
|
|
dp.Descripcion = d.enumeraciones.Descripcion
|
|
dp.idDocumentoASolicitar = d.idDocumento
|
|
dp.Obligatorio = d.Obligatorio
|
|
dp.Fecha = Date.Now
|
|
If d.enumeraciones.Codigo = "DOCRAM.MDTO" And Poliza.idTipoPago <> idDomiciliacion Then
|
|
dp.Obligatorio = False
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Public ReadOnly Property DescripcionTipo
|
|
Get
|
|
Return DirectCast(Tipo, TipoDocumentoEnum).ToString.Replace("_", " ")
|
|
End Get
|
|
End Property
|
|
Public Enum TipoDocumentoEnum As Integer
|
|
DESCONOCIDO = 0
|
|
PÓLIZA = 1
|
|
CARTA_SUPLEMENTO = 2
|
|
CERTIFICADO_SEGURO = 3
|
|
RECIBO = 10
|
|
OTROS = 100
|
|
End Enum
|
|
End Class
|