agregado procesos y bd clases

guia/Extensiones/seriesfacturas.vb

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