agregado procesos y bd clases

guia/Extensiones/estadossiniestros_eiac.vb

@@ -0,0 +1,37 @@
+Imports ProcesosEIAC_V6
+Partial Public Class estadossiniestros_eiac
+    Public Shared Function ObtieneSituacionSiniestroV6(Clave As claves_situacionsiniestro) As Integer
+        Try
+            Select Case Clave
+                Case claves_situacionsiniestro.AP
+                    Return ClavesSituacionSiniestroEnum.ABIERTO
+                Case claves_situacionsiniestro.CE
+                    Return ClavesSituacionSiniestroEnum.CERRADO
+                Case claves_situacionsiniestro.RA
+                    Return ClavesSituacionSiniestroEnum.REABIERTO
+                Case claves_situacionsiniestro.RC
+                    Return ClavesSituacionSiniestroEnum.RECHAZADO
+                Case Else
+                    Return ClavesSituacionSiniestroEnum.DESCONOCIDA
+            End Select
+        Catch ex As Exception
+            Return ClavesSituacionSiniestroEnum.DESCONOCIDA
+        End Try
+    End Function
+    Public Enum ClavesSituacionSiniestroEnum As Integer
+        ABIERTO = 1
+        CERRADO = 2
+        REABIERTO = 3
+        RECHAZADO = 4
+        DESCONOCIDA = 99
+    End Enum
+    Public ReadOnly Property DescripcionSituacionSiniestro As String
+        Get
+            If SituacionSiniestro.HasValue Then
+                Return DirectCast(SituacionSiniestro.Value, ClavesSituacionSiniestroEnum).ToString.Replace("_", " ")
+            Else
+                Return ""
+            End If
+        End Get
+    End Property
+End Class