agregado procesos y bd clases

guia/Extensiones/vf_siniestros_eiac_extendidos.vb

@@ -0,0 +1,74 @@
+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