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