43 lines
1.5 KiB
VB.net
43 lines
1.5 KiB
VB.net
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
|