38 lines
1.4 KiB
VB.net
38 lines
1.4 KiB
VB.net
Imports ProcesosEIAC_V6
|
|
Partial Public Class estadossiniestros_eiac
|
|
Public Shared Function ObtieneSituacionSiniestroV6(Clave As claves_situacionsiniestro) As Integer
|
|
Try
|
|
Select Case Clave
|
|
Case claves_situacionsiniestro.AP
|
|
Return ClavesSituacionSiniestroEnum.ABIERTO
|
|
Case claves_situacionsiniestro.CE
|
|
Return ClavesSituacionSiniestroEnum.CERRADO
|
|
Case claves_situacionsiniestro.RA
|
|
Return ClavesSituacionSiniestroEnum.REABIERTO
|
|
Case claves_situacionsiniestro.RC
|
|
Return ClavesSituacionSiniestroEnum.RECHAZADO
|
|
Case Else
|
|
Return ClavesSituacionSiniestroEnum.DESCONOCIDA
|
|
End Select
|
|
Catch ex As Exception
|
|
Return ClavesSituacionSiniestroEnum.DESCONOCIDA
|
|
End Try
|
|
End Function
|
|
Public Enum ClavesSituacionSiniestroEnum As Integer
|
|
ABIERTO = 1
|
|
CERRADO = 2
|
|
REABIERTO = 3
|
|
RECHAZADO = 4
|
|
DESCONOCIDA = 99
|
|
End Enum
|
|
Public ReadOnly Property DescripcionSituacionSiniestro As String
|
|
Get
|
|
If SituacionSiniestro.HasValue Then
|
|
Return DirectCast(SituacionSiniestro.Value, ClavesSituacionSiniestroEnum).ToString.Replace("_", " ")
|
|
Else
|
|
Return ""
|
|
End If
|
|
End Get
|
|
End Property
|
|
End Class
|