agregado procesos y bd clases

guia/Extensiones/expedientessiniestros_eiac.vb

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