75 lines
2.6 KiB
VB.net
75 lines
2.6 KiB
VB.net
Imports System.Security
|
|
Imports ProcesosEIAC_V6
|
|
|
|
Partial Public Class vf_siniestros_eiac_extendidos
|
|
Public Shared Function ObtienePosicionSiniestroV6(Clave As claves_posicionsiniestro) As Integer
|
|
Try
|
|
Select Case Clave
|
|
Case claves_posicionsiniestro.CU
|
|
Return ClavesPosicionSiniestroEnum.CULPA
|
|
Case claves_posicionsiniestro.RE
|
|
Return ClavesPosicionSiniestroEnum.RECLAMACIÓN
|
|
Case claves_posicionsiniestro.IN
|
|
Return ClavesPosicionSiniestroEnum.INDETERMINADO
|
|
Case claves_posicionsiniestro.NA
|
|
Return ClavesPosicionSiniestroEnum.NO_APLICA
|
|
Case Else
|
|
Return ClavesPosicionSiniestroEnum.DESCONOCIDA
|
|
End Select
|
|
Catch EX As Exception
|
|
Return ClavesPosicionSiniestroEnum.DESCONOCIDA
|
|
End Try
|
|
End Function
|
|
|
|
Public Shared Function ObtenerTipoPagoV6(formaPago As tipo_formapago, tiposPago As List(Of enumeraciones)) As Object
|
|
Dim Codigo As String = "TIPP.CO"
|
|
If formaPago IsNot Nothing Then
|
|
Try
|
|
|
|
Select Case formaPago.ClaseFormaPago
|
|
Case claves_formapago.CC
|
|
Codigo = "TIPP.BA"
|
|
Case claves_formapago.PC
|
|
Codigo = "TIPP.CIA"
|
|
Case Else
|
|
Codigo = "TIPP.CO"
|
|
End Select
|
|
Catch
|
|
End Try
|
|
End If
|
|
Return tiposPago.First(Function(x) x.Codigo = Codigo).idEnumeracion
|
|
End Function
|
|
|
|
Public Enum ClavesPosicionSiniestroEnum As Integer
|
|
CULPA = 1
|
|
RECLAMACIÓN = 2
|
|
INDETERMINADO = 3
|
|
NO_APLICA = 4
|
|
DESCONOCIDA = 99
|
|
End Enum
|
|
Public ReadOnly Property DescripcionPosicionSiniestro As String
|
|
Get
|
|
Return DirectCast(PosicionSiniestro, ClavesPosicionSiniestroEnum).ToString.Replace("_", " ")
|
|
End Get
|
|
End Property
|
|
Public Enum SituacionAsegasaENUM As Integer
|
|
NUEVO = 1
|
|
MODIFICADO = 2
|
|
POLIZA_NO_ENCONTRADA = 10
|
|
SINIESTRO_NO_ENCONTRADO = 11
|
|
VARIOS_SINIESTROS_POSIBLES = 12
|
|
VISUALIZADO = 100
|
|
DESCARTADO = 200
|
|
End Enum
|
|
|
|
Public ReadOnly Property DescripcionSituacionAsegasa As String
|
|
Get
|
|
If SituacionAsegasa.HasValue Then
|
|
Return DirectCast(SituacionAsegasa.Value, SituacionAsegasaENUM).ToString.Replace("_", " ")
|
|
Else
|
|
Return ""
|
|
End If
|
|
End Get
|
|
End Property
|
|
End Class
|