29 lines
920 B
VB.net
29 lines
920 B
VB.net
Partial Public Class seriesfacturas
|
|
|
|
|
|
Private Shared _ListadoSeries As List(Of String)
|
|
Public Shared ReadOnly Property ListadoSeries As List(Of String)
|
|
Get
|
|
If _ListadoSeries Is Nothing Then
|
|
Dim bd = bdGestionAsegasa.gestionasegasaEntities.NuevoContextoCN()
|
|
_ListadoSeries = bd.seriesfacturas.Select(Function(x) x.Serie).ToList
|
|
End If
|
|
Return _ListadoSeries
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property SerieDescripcion As String
|
|
Get
|
|
Return Me.Serie & " - " & Me.Descripcion
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property DescripcionClase As String
|
|
Get
|
|
Return DirectCast(Me.Clase, ClaseFacturaEnum).ToString.Replace("_", " ")
|
|
End Get
|
|
End Property
|
|
Public Enum ClaseFacturaEnum As Integer
|
|
LIQUIDACIONES_A_AGENTES = 0
|
|
End Enum
|
|
End Class
|