70 lines
2.4 KiB
VB.net
70 lines
2.4 KiB
VB.net
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
|