78 lines
2.7 KiB
VB.net
78 lines
2.7 KiB
VB.net
Imports bdGestionAsegasa.estadossiniestros_eiac
|
|
Imports ProcesosEIAC_V6
|
|
|
|
Public Class accionessiniestros_eiac
|
|
|
|
|
|
Public Shared Function ObtieneAccionSiniestroV6(clave As claves_accionsiniestro) As Integer?
|
|
Try
|
|
Select Case clave
|
|
Case claves_accionsiniestro.DI
|
|
Return ClavesAccionSiniestroEnum.DOCUMENTACIÓN_O_INFORMACIÓN
|
|
Case claves_accionsiniestro.EJ
|
|
Return ClavesAccionSiniestroEnum.JUDICIAL
|
|
Case claves_accionsiniestro.EP
|
|
Return ClavesAccionSiniestroEnum.PERITACIÓN
|
|
Case claves_accionsiniestro.ER
|
|
Return ClavesAccionSiniestroEnum.REPARACIÓN
|
|
Case Else
|
|
Return ClavesAccionSiniestroEnum.DESCONOCIDA
|
|
End Select
|
|
Catch ex As Exception
|
|
Return ClavesAccionSiniestroEnum.DESCONOCIDA
|
|
End Try
|
|
End Function
|
|
|
|
Public Shared Function ObtieneSituacionAccionV6(clave As claves_situacionaccion) As Integer?
|
|
Try
|
|
Select Case clave
|
|
Case claves_situacionaccion.PD
|
|
Return ClavesSituacionAccionEnum.PENDIENTE_DE_INICIO
|
|
Case claves_situacionaccion.EC
|
|
Return ClavesSituacionAccionEnum.EN_CURSO_DE_EJECUCIÓN_INICIADA
|
|
Case claves_situacionaccion.FI
|
|
Return ClavesSituacionAccionEnum.FINALIZADA
|
|
Case Else
|
|
Return ClavesSituacionAccionEnum.DESCONOCIDA
|
|
End Select
|
|
Catch ex As Exception
|
|
Return ClavesSituacionAccionEnum.DESCONOCIDA
|
|
End Try
|
|
End Function
|
|
|
|
Public Enum ClavesAccionSiniestroEnum As Integer
|
|
DOCUMENTACIÓN_O_INFORMACIÓN = 1
|
|
JUDICIAL = 2
|
|
PERITACIÓN = 3
|
|
REPARACIÓN = 4
|
|
INDEMNIZACIÓN = 5
|
|
DESCONOCIDA = 99
|
|
End Enum
|
|
|
|
Public ReadOnly Property DescripcionAccionSiniestro As String
|
|
Get
|
|
If AccionSiniestro.HasValue Then
|
|
Return DirectCast(AccionSiniestro.Value, ClavesAccionSiniestroEnum).ToString.Replace("_", " ")
|
|
Else
|
|
Return ""
|
|
End If
|
|
End Get
|
|
End Property
|
|
Public Enum ClavesSituacionAccionEnum As Integer
|
|
PENDIENTE_DE_INICIO = 1
|
|
EN_CURSO_DE_EJECUCIÓN_INICIADA = 2
|
|
FINALIZADA = 3
|
|
DESCONOCIDA = 99
|
|
End Enum
|
|
|
|
Public ReadOnly Property DescripcionSituacionAccionSiniestro As String
|
|
Get
|
|
If AccionSiniestro.HasValue Then
|
|
Return DirectCast(SituacionAccion.Value, ClavesSituacionAccionEnum).ToString.Replace("_", " ")
|
|
Else
|
|
Return ""
|
|
End If
|
|
End Get
|
|
End Property
|
|
End Class
|