- Se traslada versión a git desde tfs

ClasesComunes.vb

@@ -0,0 +1,139 @@
+Imports System.ComponentModel
+Imports System.Data.Entity.Core.Metadata.Edm
+Imports System.Data.Entity.Core.Objects
+Imports DevExpress.Xpf.Docking
+Imports DevExpress.Xpf.Editors
+
+Public Enum TiposModificacion
+    Modificable = 0
+    ModificableEnNuevos = 1
+    ModificableEnExistentes = 2
+    NoModificable = 3
+End Enum
+
+<TypeConverterAttribute(GetType(System.ComponentModel.ExpandableObjectConverter))>
+Public Class PropiedadesTS
+    '   Public Property ApCablin As ApCabLin
+    Public Property NombreCampo As String = ""
+    Public Property Modificable As TiposModificacion
+    Public Property Obligatorio As Boolean
+    Public Property UsualCorreccion As Boolean = True
+    Public Property Unico As Boolean = False
+    Public Property NumeroObjeto As Integer
+    Public Property CapturarEnter As Boolean = True
+    Public Property MayusculasMinusculas As CharacterCasing = CharacterCasing.Upper
+
+End Class
+<TypeConverterAttribute(GetType(System.ComponentModel.ExpandableObjectConverter))>
+Public Class PropiedadesTSGC
+    Public Property Descripcion As String
+    Public Property CamposObligatorios As String
+    Public Property CamposUnicos As String
+    Public Property PermitirEliminar As Boolean = True
+    Public Property PermitirExportar As Boolean?
+    Public Property EnlazarNulosOVacios As Boolean = False
+    Public Property PermisosDefecto As tsUtilidades.Permisos
+    Public Property CabeceraImpresion As String
+    Public Property BusquedaAcentosInsensitivo As Boolean = False
+End Class
+
+
+Public Class Plantilla
+    Property idPlantilla As Integer
+    Property Descripcion As String
+
+End Class
+Public Class Accion
+    Property idAccion As Integer
+    Property Descripcion As String
+End Class
+Public Enum TiposPermisosEnum
+    Consultar = 0
+    Nuevos = 1
+    Eliminar = 2
+    Modificar = 3
+    Otros = 4
+End Enum
+'Public Enum ModoContextoSavingChangesEnum
+'    EventoSavingChanges = 0
+'    SoloDespuesGuardar = 1
+'End Enum
+
+Public Class Configuracion
+    Public Shared ModoBusquedaAND As Boolean = True
+    Public Shared ComportamientoValidacion As Validation.InvalidValueBehavior = DevExpress.Xpf.Editors.Validation.InvalidValueBehavior.AllowLeaveEditor
+    ' Public Shared ComportamientoValidacion As Validation.InvalidValueBehavior = Validation.InvalidValueBehavior.WaitForValidValue
+    ' Public Shared ModoEventosContextoSavingChanges As ModoContextoSavingChangesEnum = ModoContextoSavingChangesEnum.EventoSavingChanges
+    '  Public Shared ModoEventosContextoSavingChanges As ModoContextoSavingChangesEnum = ModoContextoSavingChangesEnum.SoloDespuesGuardar
+    Public Shared MostrarBotonCerrarEnPestaña As Boolean = True
+    Public Shared NuevosRapido As Boolean = True
+    Public Shared BusquedaAcentosInsensitivo As Boolean = False
+    Public Delegate Function DelegadoModoSuperUsuario(Aplicacion As tsUserControl) As Boolean
+    Public Shared FuncionModoSuperUsuario As DelegadoModoSuperUsuario
+End Class
+
+
+Public Class Comun
+    Public Shared WithEvents dm As DockLayoutManager
+
+    Public Delegate Sub ErrorNoControlado(Aplicacion As String, ex As Exception)
+    Public Shared Sub RefrescaAplicaciones(lg As LayoutGroup, TagsApArefrescar() As String, DocPanelTag As String, Optional AplicacionPadre As Type = Nothing)
+
+        Try
+            Dim dcs As IEnumerable(Of BaseLayoutItem)
+            If Not TagsApArefrescar Is Nothing Then
+                For Each grupodocumentos As DocumentGroup In lg.Items.Where(Function(x) x.GetType Is GetType(DocumentGroup))
+                    For Each Etiqueta In TagsApArefrescar
+                        dcs = (From p In grupodocumentos.Items Where p.Tag = Etiqueta)
+                        If dcs.Count > 0 Then
+                            Dim dc As DocumentPanel = dcs.First
+                            Dim a = DirectCast(dc.Content, ContenedorAplicacion)._Aplicacion
+                            If a.HabilitarRefresco Then
+                                If a.RefrescoSolicitado = False Then
+                                    a.RefrescoSolicitado = True
+                                    a.Dispatcher.BeginInvoke(New Action(Sub() a.RefrescaUC(, True)), System.Windows.Threading.DispatcherPriority.SystemIdle)
+                                End If
+                            End If
+                        End If
+                    Next
+                Next
+            Else
+                For Each grupodocumentos As DocumentGroup In lg.Items.Where(Function(x) x.GetType Is GetType(DocumentGroup))
+                    dcs = (From p In grupodocumentos.Items Where p.Tag <> DocPanelTag)
+                    For Each dc As DocumentPanel In dcs
+
+                        Dim a = DirectCast(dc.Content, ContenedorAplicacion)._Aplicacion
+                        If a.HabilitarRefresco OrElse (AplicacionPadre IsNot Nothing AndAlso a.GetType Is AplicacionPadre) Then
+                            If a.RefrescoSolicitado = False Then
+                                a.RefrescoSolicitado = True
+                                a.Dispatcher.InvokeAsync(New Action(Sub() a.RefrescaUC(, True)), System.Windows.Threading.DispatcherPriority.Background)
+                            End If
+                        End If
+                    Next
+                Next
+            End If
+        Catch ex As Exception
+            Debug.Write(ex.Message)
+        End Try
+    End Sub
+End Class
+
+
+<Serializable>
+Public Class DiseñoRejillas
+    Property Rejillas As New List(Of DiseñoRejilla)
+    Property Version As String
+End Class
+<Serializable>
+Public Class DiseñoRejilla
+    Public Diseño() As Byte
+    Public Version As String
+    Public Nombre As String
+End Class
+Public Enum OperacionDiseñoEnum
+    ABRIR
+    ABRIR_DISEÑO_GUARDADO
+    GUARDAR
+    GUARDAR_COMO
+    RESTAURAR_ORIGINAL
+End Enum