administrador/SanchoToro
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2026-01-27 03

Browse Source
This commit is contained in:
Manuel Moguer
2026-01-27 13:51:55 +01:00
parent 328dc37571
commit a222729a6a
4 changed files with 30 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
GestionGrupoSanchoToro/FicherosMaestros/ucModelosGruas.xaml.vb
View File

@@ -96,7 +96,7 @@ Public Class ucModelosGruas
Private Sub ap_Enlazar(Celda As DevExpress.Xpf.Grid.EditGridCellData, Defecto As Boolean) Handles Me.Enlazar
Dim pr As modelosgruas = gc.CurrentItem
Dim pr As productos = gc.CurrentItem
'If pr.Tipo = TipoProductoEnum.TRIBUNA Then
' FuncionesDinamicas.AbrirAP(New ucProductoTribuna(pr.idProducto), OtrosParametros)
'Else
@@ -107,11 +107,11 @@ Public Class ucModelosGruas
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)
Public Function Obtienemodelosgruas(TextoBusqueda As String, IncluirBajas As Boolean) As List(Of productos)
Dim iqPr = bd.modelosgruas.AsQueryable
Dim iqPr = bd.productos.AsQueryable
If IncluirBajas = False Then iqPr = iqPr.Where(Function(x) x.FechaBaja Is Nothing)
Dim rs As List(Of modelosgruas)
Dim rs As List(Of productos)
Do
Dim iNumExc As Integer = 0
Try
@@ -136,7 +136,7 @@ Public Class ucModelosGruas
Public Async Sub ObtienemodelosgruasAsync(bd As tscGrupoSanchoToro, Background As Boolean)
Try
Dim rs As New List(Of modelosgruas)
Dim rs As New List(Of productos)
Dim Busqueda = tsEFCore8.Extensiones.ObjetoNothingAVacio(Me.teBusqueda.EditValue)
Dim IncluirBajas = Me.cbIncluirBajas.IsChecked
If Background Then
@@ -146,7 +146,7 @@ Public Class ucModelosGruas
End Sub)
Else
If DXSplashScreen.IsActive = False Then DXSplashScreen.Show(Of tsWPFCore.SplashScreenTecnosis)()
DXSplashScreen.SetState("Buscando modelosgruas ...")
DXSplashScreen.SetState("Buscando Modelos de Grúas ...")
rs = Obtienemodelosgruas(Busqueda, IncluirBajas)
End If