Obtener el CveAlmacenVirtual a partir del almacen seleccionado

2020-12-04 20:21:26 -07:00
parent 716520c738
commit 5325fa0462
5 changed files with 92 additions and 67 deletions
--- a/App_Code/Modelos.vb
+++ b/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,
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/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
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/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
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/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()
-
-            Dim CveAlmacenVirtual As Integer = -1
-            If TipoAlmacenOrigen = 27 Then
-                CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 25).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyectoOrigen}").ToEntero()
-            Else
-                CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyectoOrigen}").ToEntero()
-            End If
+            'If TipoAlmacenOrigen = 27 Then
+            '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 25).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyectoOrigen}").ToEntero()
+            '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
-                    If CveTipoAlmacenOrigen = 27 Then
-                        CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =25 AND CveSubProyecto={CveSubProyecto}").ToEntero()
-                    Else
-                        CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
-                    End If
+                    'Dim CveAlmacenVirtual As Integer = -1
+                    'If CveTipoAlmacenOrigen = 27 Then
+                    '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =25 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+                    'Else
+                    '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+                    '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
-                If TipoAlmacenDestino = 27 Then
-                    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =25 AND CveSubProyecto={CveSubProyecto}").ToEntero()
-                Else
-                    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
-                End If
+                'Dim CveAlmacenVirtual As Integer = -1
+                'If TipoAlmacenDestino = 27 Then
+                '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =25 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+                'Else
+                '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+                'End If
+                Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenRecepcion.SelectedValue.ToEntero()).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()

                If CveAlmacenVirtual > 0 Then

--- a/Ventas/Ventas.aspx.vb
+++ b/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
-            DivAlmacen.Visible = False
+            '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
        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.DataSource = Nothing
            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