Agregar archivos de proyecto.

GestionGrupoSanchoToro/ucSeriesFacturas.xaml.vb

@@ -0,0 +1,69 @@
+Imports bdGrupoSanchoToro.db.Utilidades
+Imports DevExpress.Xpf.Grid
+Public Class ucSeriesFacturas
+    Private bd As tscGrupoSanchoToro
+    Public Overrides Sub Cargado()
+
+    End Sub
+    Public Overrides Function EstablecedcPrincipal(Optional Background As Boolean = False, Optional FuerzaNuevo As Boolean = False, Optional Refrescar As Boolean = False) As tsUtilidades.EstadosAplicacion
+        If cbIncluirBajas.IsChecked Then
+            gcSeries.ItemsSource = bd.seriesfacturas.Where(Function(x) x.idEmpresa = EmpresaActual.idEmpresa).OrderBy(Function(x) x.idSerieFactura).ToList
+        Else
+            gcSeries.ItemsSource = bd.seriesfacturas.Where(Function(x) x.idEmpresa = EmpresaActual.idEmpresa AndAlso x.FechaBaja Is Nothing).OrderBy(Function(x) x.idSerieFactura).ToList
+        End If
+
+        Return tsUtilidades.EstadosAplicacion.AplicacionSinIndice
+    End Function
+
+    Public Overrides Sub EstableceDataContextSecundarios(Optional Background As Boolean = False)
+
+    End Sub
+
+    Public Overrides Sub EstableceTitulo()
+        Me.docpanel.Caption = "Series de Facturas"
+
+    End Sub
+
+    Public Overrides ReadOnly Property idRegistroAplicacionActual As String
+        Get
+            Return "SeriesFacturas"
+        End Get
+    End Property
+
+    Public Overrides ReadOnly Property NombreTablaBase As String
+        Get
+            Return "seriesfacturas"
+        End Get
+    End Property
+
+    Public Overrides ReadOnly Property DescripcionRegistro As String
+        Get
+            Return "Serie de Factura"
+        End Get
+    End Property
+
+    Public Overrides Function ObtieneBD() As tsUtilidades.ItsContexto
+        bd = tscGrupoSanchoToro.NuevoContexto()
+        Return bd
+    End Function
+
+
+
+    Public Overrides Function ObtienePermisos() As tsUtilidades.Permisos
+        Return Comun.ObtienePermisos(Me.bd, "AP.ADMINISTRATIVOS", idUsuario)
+    End Function
+
+    Private Sub cbIncluirBajas_EditValueChanged(sender As Object, e As DevExpress.Xpf.Editors.EditValueChangedEventArgs)
+        EstablecedcPrincipal()
+    End Sub
+
+    Private Sub ucSeriesFacturas_BotonNuevoPulsado() Handles Me.BotonNuevoPulsado
+        FuncionesDinamicas.AbrirAP(New ucSerieFactura(), Me.OtrosParametros)
+
+    End Sub
+
+    Private Sub ucSeriesFacturas_Enlazar(Celda As EditGridCellData, Defecto As Boolean) Handles Me.Enlazar
+        Dim sf As db.seriesfacturas = gcSeries.CurrentItem
+        FuncionesDinamicas.AbrirAP(New ucSerieFactura(sf.idSerieFactura), Me.OtrosParametros)
+    End Sub
+End Class