cambios 17/02/2026

GestionGrupoSanchoToro/Almacen/ucAlbaranes.xaml.vb

@@ -92,7 +92,15 @@ Public Class ucAlbaranes
     End Function
 
     Private Sub Nuevo() Handles Me.BotonNuevoPulsado
-        FuncionesDinamicas.AbrirAP(New ucAlbaran, OtrosParametros)
+        Dim dxwta As New dxwTipoAlbaran
+        If dxwta.ShowDialog Then
+            If dxwta.Tipo = db.albaranes.TipoAlbaranEnum.RECOGIDA Or dxwta.Tipo = db.albaranes.TipoAlbaranEnum.DEVOLUCION_SUBALQUILER Then
+                FuncionesDinamicas.AbrirAP(New ucAlbaranR(dxwta.Tipo), OtrosParametros)
+            Else
+                FuncionesDinamicas.AbrirAP(New ucAlbaran(dxwta.Tipo), OtrosParametros)
+            End If
+        End If
+
     End Sub
 
     Private Sub ap_Enlazar(Celda As DevExpress.Xpf.Grid.EditGridCellData, Defecto As Boolean) Handles Me.Enlazar
@@ -104,7 +112,13 @@ Public Class ucAlbaranes
             Select Case Celda.Column.FieldName.ToLower
                 Case "numeroalbaran"
                     Dim id As Integer = ra.idAlbaran
-                    FuncionesDinamicas.AbrirAP(New ucAlbaran(id), OtrosParametros)
+                    Select Case DirectCast(ra.Tipo, albaranes.TipoAlbaranEnum)
+                        Case db.albaranes.TipoAlbaranEnum.RECOGIDA, db.albaranes.TipoAlbaranEnum.DEVOLUCION_SUBALQUILER
+                            FuncionesDinamicas.AbrirAP(New ucAlbaranR(ra.Tipo, id), OtrosParametros)
+                        Case Else
+                            FuncionesDinamicas.AbrirAP(New ucAlbaran(ra.Tipo, id), OtrosParametros)
+                    End Select
+
                 Case "razonsocial"
                     Dim id As Integer = ra.idEntidad
                     FuncionesDinamicas.AbrirAP(New ucEntidad(id), OtrosParametros)
@@ -114,7 +128,7 @@ Public Class ucAlbaranes
     End Sub
 
     Public Function ObtieneAlbaranes(TextoBusqueda As String, FechaInicio As DateOnly?, FechaFin As DateOnly?, Tipos As List(Of Integer)) As List(Of v_albaranesextendidos)
-        Dim rs As IQueryable(Of v_albaranesextendidos)
+        Dim rs As IQueryable(Of v_albaranesextendidos) = bd.v_albaranesextendidos.Where(Function(x) x.idEmpresa = EmpresaActual.idEmpresa)
         Dim la As New List(Of v_albaranesextendidos)
         Dim iNumExc As Integer = 0
         Do
@@ -122,9 +136,9 @@ Public Class ucAlbaranes
                 If TextoBusqueda <> "" Then
                     Dim parametros(0) As Object
                     Dim ExpresionBusqueda = tsWPFCore.Utilidades.Varias.GeneraExpresionBusqueda(TextoBusqueda, Me._CamposBusquedaNumericos, Me._CamposBusquedaAlfabeticos, Nothing)
-                    rs = bd.v_albaranesextendidos.Where(ExpresionBusqueda)
+                    rs = rs.Where(ExpresionBusqueda)
                 Else
-                    rs = bd.v_albaranesextendidos.AsQueryable
+                    rs = rs.AsQueryable
                 End If
 
                 If FechaInicio.HasValue Then