Versión 2

GestionGrupoSanchoToro/FicherosMaestros/ucModelosGruas.xaml.vb

@@ -0,0 +1,173 @@
+
+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 Microsoft.EntityFrameworkCore
+Imports System.Linq.Dynamic.Core
+Imports bdGrupoSanchoToro.db.Utilidades
+Imports Microsoft.Win32
+Imports DevExpress.Spreadsheet
+Imports bdGrupoSanchoToro.db.modelosgruas
+Imports System.Drawing
+
+Public Class ucModelosGruas
+
+
+    Private bd As tscGrupoSanchoToro
+
+    Private CamposBusquedaAlfabeticos() As String = {"marcasgruas.Marca", "Modelo", "Codigo"}
+
+
+    Public Sub New()
+
+        ' Esta llamada es exigida por el diseñador.
+        InitializeComponent()
+        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
+
+    End Sub
+
+    'Public Overrides ReadOnly Property CampoIndice As String
+    '    Get
+    '        Return ""
+    '    End Get
+    'End Property
+
+    Public Overrides Sub Cargado()
+        Me.GridSeleccion = Me.gc
+        Me.HabilitarRefresco = True
+        'ContenedorAplicacion.btGuardar.IsVisible = False
+        'ContenedorAplicacion.siEstado.IsVisible = False
+    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 Refrescar OrElse Background Then ObtienemodelosgruasAsync(bd, Background)
+
+
+        Return tsUtilidades.EstadosAplicacion.AplicacionSinIndice
+
+    End Function
+
+    Public Overrides Sub EstableceDataContextSecundarios(Optional Background As Boolean = False)
+
+    End Sub
+
+    Public Overrides Sub EstableceTitulo()
+        Me.docpanel.Caption = "modelosgruas"
+    End Sub
+
+    Public Overrides ReadOnly Property idRegistroAplicacionActual As String
+        Get
+            Return "modelosgruas"
+        End Get
+    End Property
+
+    Public Overrides ReadOnly Property NombreTablaBase As String
+        Get
+            Return "modelosgruas"
+        End Get
+    End Property
+
+    Public Overrides ReadOnly Property DescripcionRegistro As String
+        Get
+            Return "modelosgruas"
+        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 Nuevo() Handles Me.BotonNuevoPulsado
+        FuncionesDinamicas.AbrirAP(New ucProducto, OtrosParametros)
+    End Sub
+
+    Private Sub ap_Enlazar(Celda As DevExpress.Xpf.Grid.EditGridCellData, Defecto As Boolean) Handles Me.Enlazar
+
+        Dim pr As modelosgruas = gc.CurrentItem
+        'If pr.Tipo = TipoProductoEnum.TRIBUNA Then
+        '    FuncionesDinamicas.AbrirAP(New ucProductoTribuna(pr.idProducto), OtrosParametros)
+        'Else
+        FuncionesDinamicas.AbrirAP(New ucProducto(pr.idProducto), OtrosParametros)
+        'End If
+    End Sub
+
+    Private Sub ap_AntesGuardar(sender As Object, e As ItemClickEventArgs, ByRef Cancelar As Boolean, ByRef MensajesError As Hashtable, OpcionGuardado As Integer) Handles Me.AntesGuardar
+
+    End Sub
+    Public Function Obtienemodelosgruas(TextoBusqueda As String, IncluirBajas As Boolean) As List(Of modelosgruas)
+
+        Dim iqPr = bd.modelosgruas.AsQueryable
+        If IncluirBajas = False Then iqPr = iqPr.Where(Function(x) x.FechaBaja Is Nothing)
+        Dim rs As List(Of modelosgruas)
+        Do
+            Dim iNumExc As Integer = 0
+            Try
+                If TextoBusqueda.Trim <> "" Then
+                    If TextoBusqueda <> "" Then
+                        Dim ExpresionBusqueda = tsWPFCore.Utilidades.Varias.GeneraExpresionBusqueda(TextoBusqueda, Nothing, Me.CamposBusquedaAlfabeticos, Nothing)
+                        iqPr = iqPr.Where(ExpresionBusqueda)
+                    End If
+                End If
+                rs = iqPr.OrderBy(Function(x) x.idMarcaNavigation.Marca).ThenBy(Function(x) x.Modelo).ToList
+                Exit Do
+            Catch ex As Exception
+                iNumExc += 1
+                If iNumExc > 3 Then
+                    rs = Nothing
+                    Exit Do
+                End If
+            End Try
+        Loop
+        Return rs
+    End Function
+
+    Public Async Sub ObtienemodelosgruasAsync(bd As tscGrupoSanchoToro, Background As Boolean)
+        Try
+            Dim rs As New List(Of modelosgruas)
+            Dim Busqueda = tsEFCore8.Extensiones.ObjetoNothingAVacio(Me.teBusqueda.EditValue)
+            Dim IncluirBajas = Me.cbIncluirBajas.IsChecked
+            If Background Then
+                Me.ContenedorAplicacion.IsEnabled = False
+                Await Task.Run(Sub()
+                                   rs = Obtienemodelosgruas(Busqueda, IncluirBajas)
+                               End Sub)
+            Else
+                If DXSplashScreen.IsActive = False Then DXSplashScreen.Show(Of tsWPFCore.SplashScreenTecnosis)()
+                DXSplashScreen.SetState("Buscando modelosgruas ...")
+                rs = Obtienemodelosgruas(Busqueda, IncluirBajas)
+            End If
+
+            gc.ItemsSource = rs
+            DataContext = rs
+        Catch ex As Exception
+            If DXSplashScreen.IsActive Then DXSplashScreen.Close()
+            DXMessageBox.Show(ex.Message, "Error")
+        Finally
+            Me.ContenedorAplicacion.IsEnabled = True
+            If DXSplashScreen.IsActive Then DXSplashScreen.Close()
+        End Try
+    End Sub
+    Private Sub BtBuscar_Click(sender As Object, e As RoutedEventArgs)
+        ObtienemodelosgruasAsync(bd, False)
+    End Sub
+
+    Private Sub ucmodelosgruas_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+        teBusqueda.SelectAll()
+    End Sub
+
+
+
+End Class