125 lines
4.5 KiB
VB.net
125 lines
4.5 KiB
VB.net
|
|
Imports bdGrupoSanchoToro.db
|
|
Imports System.Data.Entity
|
|
Imports DevExpress.Xpf.Core
|
|
Imports tsWPFCore
|
|
Imports System.Collections
|
|
Imports DevExpress.Xpf.Bars
|
|
Imports System.Threading.Tasks
|
|
Imports System.Linq.Dynamic
|
|
Imports bdGrupoSanchoToro.db.Utilidades
|
|
Imports bdGrupoSanchoToro.db.tscGrupoSanchoToro
|
|
Imports tsUtilidades
|
|
|
|
Public Class ucGrupoEnumeraciones
|
|
''Faltan funciones que no me deja crear (ej EstadoCambiado) cuando se arregle reviso
|
|
|
|
Private bd As tscGrupoSanchoToro
|
|
Private _idGrupo As Integer?
|
|
|
|
Public Sub New(Optional idGrupo As Integer? = Nothing)
|
|
|
|
' Esta llamada es exigida por el diseñador.
|
|
_idGrupo = idGrupo
|
|
InitializeComponent()
|
|
|
|
' Agregue cualquier inicialización después de la llamada a InitializeComponent().
|
|
|
|
End Sub
|
|
|
|
Public Overrides ReadOnly Property idRegistroAplicacionActual As String
|
|
Get
|
|
If Estado = tsUtilidades.EstadosAplicacion.Nuevo Then
|
|
Return "GrupoEnumeraciones.Nuevo"
|
|
Else
|
|
Return "GrupoEnumeraciones." & DirectCast(Me.DataContext, gruposenumeraciones).idGrupoEnumeracion.ToString
|
|
End If
|
|
End Get
|
|
End Property
|
|
|
|
Public Overrides ReadOnly Property DescripcionRegistro As String
|
|
Get
|
|
Return "Grupo Enumeraciones"
|
|
End Get
|
|
End Property
|
|
|
|
Public Overrides ReadOnly Property NombreTablaBase As String
|
|
Get
|
|
Return "gruposenumeraciones"
|
|
End Get
|
|
End Property
|
|
|
|
Public Overrides Sub EstableceDataContextSecundarios(Optional Background As Boolean = False)
|
|
End Sub
|
|
|
|
Public Overrides Sub EstableceTitulo()
|
|
If Me.Estado = tsUtilidades.EstadosAplicacion.ModificandoRegistro Then
|
|
Dim mv As gruposenumeraciones = Me.DataContext
|
|
Me.docpanel.Caption = "Grupo Enumeraciones " & mv.Grupo.ToString
|
|
Else
|
|
Me.docpanel.Caption = "Grupo Enumeraciones. Nuevo"
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Public Overrides Sub Cargado()
|
|
Me.Tipo_ucControlBusqueda = GetType(ucGruposEnumeraciones)
|
|
End Sub
|
|
|
|
Private Sub ucGrupoEnumeraciones_DespuesGuardar(sender As Object, e As ItemClickEventArgs, OpcionGuardado As Integer) Handles Me.DespuesGuardar
|
|
Dim gr As gruposenumeraciones = Me.DataContext
|
|
_idGrupo = gr.idGrupoEnumeracion
|
|
End Sub
|
|
|
|
Dim ra As gruposenumeraciones
|
|
' Private WithEvents blenumeraciones As ComponentModel.BindingList(Of db.enumeraciones)
|
|
Public Overrides Function EstableceDCPrincipal(Optional Background As Boolean = False, Optional FuerzaNuevo As Boolean = False, Optional Refrescar As Boolean = False) As tsUtilidades.EstadosAplicacion
|
|
Dim NuevoEstado As tsUtilidades.EstadosAplicacion
|
|
|
|
If FuerzaNuevo OrElse _idGrupo Is Nothing Then
|
|
ra = New gruposenumeraciones
|
|
NuevoEstado = tsUtilidades.EstadosAplicacion.Nuevo
|
|
Else
|
|
Dim id As Integer = _idGrupo
|
|
ra = bd.gruposenumeraciones.First(Function(X) X.idGrupoEnumeracion = id)
|
|
NuevoEstado = tsUtilidades.EstadosAplicacion.ModificandoRegistro
|
|
End If
|
|
Me.DataContext = ra
|
|
' blenumeraciones = tsWPFCore.tsUserControl.Obtienebl(ra.enumeraciones.ToList)
|
|
Me.gcEnumeraciones.ItemsSource = ra.enumeraciones ' blenumeraciones
|
|
|
|
Return NuevoEstado
|
|
End Function
|
|
|
|
|
|
|
|
Public Overrides Function ObtienePermisos() As tsUtilidades.Permisos
|
|
Return Comun.ObtienePermisos(Me.bd, "AP.ADMINISTRADOR", idUsuario)
|
|
End Function
|
|
|
|
Public Overrides Function ObtieneBD() As ItsContexto
|
|
bd = tscGrupoSanchoToro.NuevoContexto
|
|
Return bd
|
|
End Function
|
|
|
|
Private Sub tvEnumeraciones_CellValueChanged(sender As Object, e As DevExpress.Xpf.Grid.CellValueChangedEventArgs) Handles tvEnumeraciones.CellValueChanged
|
|
Select Case e.Column.FieldName.ToLower
|
|
Case "codigo"
|
|
If e.Value.ToString.Length > 0 AndAlso ra.Grupo.Length > 0 Then
|
|
If Not e.Value.ToString.StartsWith(ra.Grupo & ".") Then
|
|
Dim enu As bdGrupoSanchoToro.db.enumeraciones = e.Row
|
|
enu.Codigo = ra.Grupo & "." & e.Value.ToString
|
|
|
|
End If
|
|
End If
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub gcEnumeraciones_AntesEliminar(gc As tsGridControl, ByRef Cancelar As Boolean) Handles gcEnumeraciones.AntesEliminar
|
|
Dim enu As enumeraciones = gcEnumeraciones.CurrentItem
|
|
' enu.idEnumeracion = 1
|
|
Debug.Write("aqui")
|
|
End Sub
|
|
End Class
|
|
|