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