agregado procesos y bd clases

guia/Extensiones/accionessiniestros_eiac.vb

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