Agregar archivos de proyecto.

GestionGrupoSanchoToro/ucConfiguracion.xaml.vb

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