Obtener el CveAlmacenVirtual a partir del almacen seleccionado

App_Code/Modelos.vb

@@ -5105,6 +5105,12 @@ Namespace Modelos
                     Dim ValidaVirtual = True
                     Dim DtPSVirtual As New DataTable("DtTamanios")
 
+                    Dim tCveAlmacen As Integer = -1
+
+                    If ObjInventario.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                        tCveAlmacen = ObjInventario.DtResultados.FiltroPrimeroValor("CveAlmacen").ToEntero()
+                    End If
+
                     If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa, CveMovimientoRelacionado:=CveMovimientoRelacionado) Then
                         DtPSVirtual = ObjInventario.DtResultados
                     End If
@@ -5113,7 +5119,7 @@ Namespace Modelos
                     Dim CveAlmacenVirtual As Integer = -1
                     Dim CveMovimientoRelacionadoVirtual As Integer = CveMovimiento
 
-                    CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
+                    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=tCveAlmacen).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
 
                     If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then
                         CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1,

Inventarios/EntregaAlmacen.aspx.vb

@@ -2663,7 +2663,12 @@ Partial Class Inventarios_EntregaAlmacen
 
             ' COMIENZA: VIRTUAL
             If Not ErrorMovInv AndAlso TipoDocto.Contiene("Ing", "Dev") AndAlso UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso CveMovimiento > 0 Then
-                Dim DtPSVirtual As New DataTable("DtTamanios")
+                Dim DtPSVirtual As New DataTable("DtTamanios")
+                Dim tCveAlmacen As Integer = -1
+
+                If ObjInventario.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                    tCveAlmacen = ObjInventario.DtResultados.FiltroPrimeroValor("CveAlmacen").ToEntero()
+                End If
 
                 If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then
                     DtPSVirtual = ObjInventario.DtResultados
@@ -2685,7 +2690,7 @@ Partial Class Inventarios_EntregaAlmacen
                 Dim CveAlmacenVirtual As Integer = -1
                 Dim CveMovimientoRelacionadoVirtual As Integer = CveMovimiento
                 Dim ValidaVirtual As Boolean = False
-                CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
+                CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=tCveAlmacen).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
 
                 If TipoMovimiento = 1 Then
                     CveConceptoMovimientoVirtual = 37

Inventarios/RecepcionAlmacen.aspx.vb

@@ -2707,6 +2707,12 @@ Partial Class Inventarios_RecepcionAlmacen
 
                     Dim DtPSVirtual As New DataTable("DtTamanios")
 
+                    Dim tCveAlmacen As Integer = -1
+
+                    If ObjInventario.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                        tCveAlmacen = ObjInventario.DtResultados.FiltroPrimeroValor("CveAlmacen").ToEntero()
+                    End If
+
                     If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then
                         DtPSVirtual = ObjInventario.DtResultados
                     End If
@@ -2716,7 +2722,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
                         Dim CveTipoAlmacenFiltro As Integer = If(CveTipoCompra = 9, 25, 24)
 
-                        Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacenFiltro).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
+                        Dim CveAlmacenVirutal As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=tCveAlmacen).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
 
                         CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, CveMovimientoRelacionado:=CveMovimiento, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4")
                         FolioVirtual = ObjInventario.Folio

Inventarios/TraspasoAlmacen.aspx.vb

@@ -686,6 +686,9 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim CveSubProyectoOrigen, CveSubProyectoDestino As Integer
         Dim IdCtaContableOrigen, IdCtaContableDestino As Integer
 
+        Dim CveAlmacenVirtualSalida As Integer = -1
+        Dim CveAlmacenVirtualEntrada As Integer = -1
+
         DrAlmO = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimero("")
         DrAlmD = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenDestino.SelectedValue.ToEntero).FiltroPrimero("")
 
@@ -694,11 +697,14 @@ Partial Class Inventarios_TraspasoAlmacen
             TipoAlmacenOrigen = DrAlmO("CveTipoAlmacen").ToString.ToEntero
             CveSubProyectoOrigen = DrAlmO("CveSubProyecto").ToString.ToEntero
             IdCtaContableOrigen = DrAlmO("IdCtaContable").ToString.ToEntero
+            CveAlmacenVirtualSalida = DrAlmO("CveAlmacenVirtual").ToString.ToEntero
+
 
             CveSucursalDestino = DrAlmD("CveSubProyecto").ToString.ToEntero
             TipoAlmacenDestino = DrAlmD("CveTipoAlmacen").ToString.ToEntero
             CveSubProyectoDestino = DrAlmD("CveSubProyecto").ToString.ToEntero
-            IdCtaContableDestino = DrAlmO("IdCtaContable").ToString.ToEntero
+            IdCtaContableDestino = DrAlmD("IdCtaContable").ToString.ToEntero
+            CveAlmacenVirtualEntrada = DrAlmD("CveAlmacenVirtual").ToString.ToEntero
 
         End If
 
@@ -863,17 +869,14 @@ Partial Class Inventarios_TraspasoAlmacen
         'VIRTUAL SALIDA
         If RealizarMovimientoVirtual Then
 
-            'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenOrigen.SelectedValue}").ToEntero()
+            'If TipoAlmacenOrigen = 27 Then
-
+            '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 25).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyectoOrigen}").ToEntero()
-            Dim CveAlmacenVirtual As Integer = -1
+            'Else
-            If TipoAlmacenOrigen = 27 Then
+            '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyectoOrigen}").ToEntero()
-                CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 25).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyectoOrigen}").ToEntero()
+            'End If
-            Else
-                CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyectoOrigen}").ToEntero()
-            End If
 
 
-            CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida)
+            CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida)
             FolioVirtualSalida = ObjInventario.Folio
             Dim dtvirtual As DataTable = Nothing
 
@@ -932,14 +935,14 @@ Partial Class Inventarios_TraspasoAlmacen
                     'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenDestino.SelectedValue}").ToEntero()
 
                     'SI EL ALMACEN DESTINO ES DE APOPYO LOGISTICO EL ALMACEN VIRTUAL DEBE SER DE APOYO LOGISTICO
-                    Dim CveAlmacenVirtual As Integer = -1
-                    If TipoAlmacenDestino = 27 Then
-                        CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =25 AND CveSubProyecto={CveSubProyectoDestino }").ToEntero()
-                    Else
-                        CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyectoDestino }").ToEntero()
-                    End If
 
-                    CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/S3")
+                    'If TipoAlmacenDestino = 27 Then
+                    '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =25 AND CveSubProyecto={CveSubProyectoDestino }").ToEntero()
+                    'Else
+                    '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyectoDestino }").ToEntero()
+                    'End If
+
+                    CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtualEntrada, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/S3")
                     FolioVirtualEntrada = ObjInventario.Folio
                     Dim dtvirtual As DataTable = Nothing
 
@@ -1690,15 +1693,15 @@ Partial Class Inventarios_TraspasoAlmacen
                 If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
                     Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero}").ToEntero()
 
-                    Dim CveTipoAlmacenOrigen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero).FiltroPrimeroValor("CveTipoAlmacen").ToEntero()
+                    Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
 
                     'SI EL ALMACEN ORIGEN ES DE APOPYO LOGISTICO EL ALMACEN VIRTUAL DEBE SER DE APOYO LOGISTICO
-                    Dim CveAlmacenVirtual As Integer = -1
+                    'Dim CveAlmacenVirtual As Integer = -1
-                    If CveTipoAlmacenOrigen = 27 Then
+                    'If CveTipoAlmacenOrigen = 27 Then
-                        CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =25 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+                    '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =25 AND CveSubProyecto={CveSubProyecto}").ToEntero()
-                    Else
+                    'Else
-                        CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+                    '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
-                    End If
+                    'End If
 
                     If CveAlmacenVirtual > 0 Then
 
@@ -1921,14 +1924,15 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim CveMovimientoVirtualEntrada As Integer = 0
             Dim FolioVirtualEntrada As Integer = 0
             If RealizarMovimientoVirtual Then
-                Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenRecepcion.SelectedValue}").ToEntero()
+                'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenRecepcion.SelectedValue}").ToEntero()
 
-                Dim CveAlmacenVirtual As Integer = -1
+                'Dim CveAlmacenVirtual As Integer = -1
-                If TipoAlmacenDestino = 27 Then
+                'If TipoAlmacenDestino = 27 Then
-                    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =25 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+                '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =25 AND CveSubProyecto={CveSubProyecto}").ToEntero()
-                Else
+                'Else
-                    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+                '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
-                End If
+                'End If
+                Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenRecepcion.SelectedValue.ToEntero()).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
 
                 If CveAlmacenVirtual > 0 Then
 

Ventas/Ventas.aspx.vb

@@ -5141,40 +5141,44 @@ Partial Class Ventas
 
     End Function
     Private Sub CargarAlmacenes()
+        If UsuarioActual.Empresa.UsaInventarios Then
+            If (CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot") AndAlso Not (UsuarioActual.CveEmpresa = 141 AndAlso EsCreaApartirDe) Then
+                DivAlmacen.Visible = False
+            Else
+                Dim DTAlmacen As DataTable
+                ddlAlmacen.Items.Clear()
+                DTAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}")
+                ddlAlmacen.DataSource = DTAlmacen
+                If DTAlmacen Is Nothing Or DTAlmacen.Rows.Count = 0 Then
+                    ddlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
+                    ddlAlmacen.SelectedValue = "-1"
+                End If
+                ddlAlmacen.DataBind()
+                If GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}").Rows.Count > 0 Then
+                    ddlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
+                End If
+            End If
 
-        If (CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot") AndAlso Not (UsuarioActual.CveEmpresa = 141 AndAlso EsCreaApartirDe) Then
+            'SI TIENE CONTRATO NO SE MUEVE
-            DivAlmacen.Visible = False
+            If Not CveContrato > 0 Then
+                DdlAlmacenAsignado.Items.Clear()
+                DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()} AND CveTipoAlmacen IN (4,10)")
+                DdlAlmacenAsignado.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
+                DdlAlmacenAsignado.SelectedValue = "-1"
+                DdlAlmacenAsignado.DataBind()
+                DdlAlmacenAsignado.SelectedValueExist(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 10 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}").ToString().ToEntero())
+            End If
+
+            If CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then
+                DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}")
+                DdlAlmacenAsignado.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
+                DdlAlmacenAsignado.SelectedValue = "-1"
+                DdlAlmacenAsignado.DataBind()
+                DdlAlmacenAsignado.SelectedValueExist(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString().ToEntero())
+            End If
         Else
-            Dim DTAlmacen As DataTable
+            ddlAlmacen.DataSource = Nothing
-            ddlAlmacen.Items.Clear()
-            DTAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}")
-            ddlAlmacen.DataSource = DTAlmacen
-            If DTAlmacen Is Nothing Or DTAlmacen.Rows.Count = 0 Then
-                ddlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
-                ddlAlmacen.SelectedValue = "-1"
-            End If
             ddlAlmacen.DataBind()
-            If GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}").Rows.Count > 0 Then
-                ddlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
-            End If
-        End If
-
-        'SI TIENE CONTRATO NO SE MUEVE
-        If Not CveContrato > 0 Then
-            DdlAlmacenAsignado.Items.Clear()
-            DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()} AND CveTipoAlmacen IN (4,10)")
-            DdlAlmacenAsignado.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
-            DdlAlmacenAsignado.SelectedValue = "-1"
-            DdlAlmacenAsignado.DataBind()
-            DdlAlmacenAsignado.SelectedValueExist(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 10 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}").ToString().ToEntero())
-        End If
-
-        If CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then
-            DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}")
-            DdlAlmacenAsignado.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
-            DdlAlmacenAsignado.SelectedValue = "-1"
-            DdlAlmacenAsignado.DataBind()
-            DdlAlmacenAsignado.SelectedValueExist(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString().ToEntero())
         End If
 
         UpINV.Update()
@@ -18025,7 +18029,7 @@ Partial Class Ventas
                     CveMovimientoEntradaDev = RowMovimiento("CveMovimiento").ToString().ToEntero()
                     Dim tCveAlmacen = RowMovimiento("CveAlmacen").ToString().ToEntero()
                     CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {tCveAlmacen}").ToEntero()
-                    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen = 24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+                    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=tCveAlmacen).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
 
                 Else
                     OcurrioError = True