91 lines
2.8 KiB
VB.net
91 lines
2.8 KiB
VB.net
Imports tsWPFCore
|
|
Imports bdGrupoSanchoToro.db
|
|
Imports System.Collections
|
|
Imports bdGrupoSanchoToro.db.tscGrupoSanchoToro
|
|
Imports bdGrupoSanchoToro.db.Utilidades
|
|
Imports DevExpress.Xpf.Bars
|
|
|
|
Public Class ucConfiguracion
|
|
|
|
|
|
Private bd As tscGrupoSanchoToro
|
|
Public Overrides Sub Cargado()
|
|
Dim kk As New ucConfiguracion
|
|
End Sub
|
|
|
|
Public Overrides Function EstablecedcPrincipal(Optional Background As Boolean = False, Optional FuerzaNuevo As Boolean = False, Optional Refrescar As Boolean = False) As tsUtilidades.EstadosAplicacion
|
|
Dim enIVA = bd.enumeraciones.First(Function(X) X.Codigo = "PIVA.DEFECTO")
|
|
Dim enEAS = bd.enumeraciones.First(Function(x) x.Codigo = "CONF.EMAILASESORIA")
|
|
Dim enECO = bd.enumeraciones.First(Function(x) x.Codigo = "CONF.EMAILCOPIAOCULTA")
|
|
Dim cta = bd.cuentascorreo.First(Function(x) x.Codigo = "DEFECTO" AndAlso x.idEmpresa = EmpresaActual.idEmpresa)
|
|
'ilIVA.DataContext = enIVA
|
|
liEmailAsesoria.DataContext = enEAS
|
|
liEmailCopiaOculta.DataContext = enECO
|
|
DataContext = cta
|
|
Return tsUtilidades.EstadosAplicacion.ModificandoRegistro
|
|
End Function
|
|
|
|
Public Overrides Sub EstableceDataContextSecundarios(Optional Background As Boolean = False)
|
|
|
|
End Sub
|
|
|
|
Public Overrides Sub EstableceTitulo()
|
|
|
|
Me.docpanel.Caption = "Configuración"
|
|
Me.docpanel.Tag = "Configuración"
|
|
|
|
End Sub
|
|
|
|
Public Overrides ReadOnly Property idRegistroAplicacionActual As String
|
|
Get
|
|
Return "Configuracion"
|
|
End Get
|
|
End Property
|
|
|
|
Public Overrides ReadOnly Property NombreTablaBase As String
|
|
Get
|
|
Return "enumeraciones"
|
|
End Get
|
|
End Property
|
|
|
|
Public Overrides ReadOnly Property DescripcionRegistro As String
|
|
Get
|
|
Return "Configuración"
|
|
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
|
|
Dim per = Comun.ObtienePermisos(Me.bd, "AP.ADMINISTRATIVOS", idUsuario)
|
|
per.Nuevos = False
|
|
per.Exportar = False
|
|
per.Eliminar = False
|
|
per.Impresion = False
|
|
Return per
|
|
End Function
|
|
|
|
|
|
|
|
|
|
|
|
Public Sub New()
|
|
|
|
' Llamada necesaria para el diseñador.
|
|
InitializeComponent()
|
|
|
|
|
|
' Agregue cualquier inicialización después de la llamada a InitializeComponent().
|
|
|
|
End Sub
|
|
|
|
Private Sub ucConfiguracion_DespuesGuardar(sender As Object, e As ItemClickEventArgs, OpcionGuardado As Integer) Handles Me.DespuesGuardar
|
|
' bdGrupoSanchoToro.db.Utilidades.PorcentajeIva = bd.enumeraciones.First(Function(x) x.Codigo = "PIVA.DEFECTO").ValorNumerico1.Value
|
|
End Sub
|
|
End Class
|