Imports bdGestionAsegasa.accionessiniestros_eiac
Imports ProcesosEIAC_V6

Partial Public Class expedientessiniestros_eiac
    Public Shared Function ObtieneEstadoExpedienteV6(clave As claves_estadoexpediente) As Integer
        Try
            Select Case clave
                Case claves_estadoexpediente.DE
                    Return ClavesEstadoExpedienteEnum.DECLARADO
                Case claves_estadoexpediente.LI
                    Return ClavesEstadoExpedienteEnum.LIQUIDADO
                Case claves_estadoexpediente.PE
                    Return ClavesEstadoExpedienteEnum.PENDIENTE
                Case claves_estadoexpediente.RE
                    Return ClavesEstadoExpedienteEnum.REAPERTURA
                Case claves_estadoexpediente.TE
                    Return ClavesEstadoExpedienteEnum.TERMINADO
                Case Else
                    Return ClavesEstadoExpedienteEnum.DESCONOCIDA
            End Select
        Catch ex As Exception
            Return ClavesEstadoExpedienteEnum.DESCONOCIDA
        End Try
    End Function



    Public Enum ClavesEstadoExpedienteEnum As Integer
        DECLARADO = 1
        LIQUIDADO = 2
        PENDIENTE = 3
        REAPERTURA = 4
        TERMINADO = 5
        DESCONOCIDA = 99
    End Enum

    Public ReadOnly Property DescripcionEstadoExpediente As String
        Get
            Return DirectCast(EstadoExpediente, ClavesEstadoExpedienteEnum).ToString.Replace("_", " ")
        End Get
    End Property
End Class