diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 62670ddd6..967c7c7d9 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -13670,15 +13670,17 @@ Partial Class Ventas
             If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then
                 Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}")
                 If drr IsNot Nothing Then
-                    If RBLTipoVenta.SelectedValue.Contiene("3", "6") Then 'cuando es A-vista
+                    If RBLTipoVenta.SelectedValue.Contiene("3") Then 'cuando es A-vista
                         CveAlmacenTraspasoDestino = drr("CveAlmacenAlterno").ToString.ToEntero
+                    ElseIf RBLTipoVenta.SelectedValue.Contiene("4") Then 'cuando es Consignación
+                        CveAlmacenTraspasoDestino = drr("CveAlmacenConsignacion").ToString.ToEntero
                     Else
-                        CveAlmacenTraspasoDestino = drr("CveAlmacenAsignado").ToString.ToEntero
+                        CveAlmacenTraspasoDestino = drr("CveAlmacenAsignado").ToString.ToEntero '' cuando Fuera de Línea
                     End If
-                End If
             End If
+        End If
 
-            If Not CveAlmacenTraspasoDestino > 0 Then
+        If Not CveAlmacenTraspasoDestino > 0 Then
                 CveAlmacenTraspasoDestino = CveAlmacenAsignado
             End If
 
@@ -37774,6 +37776,8 @@ Partial Class Ventas
                 If drr IsNot Nothing Then
                     If RBLTipoVenta.SelectedValue.Contiene("6") Then
                         tCveAlmacenExistencia = drr("CveAlmacenAlterno").ToString.ToEntero
+                    ElseIf RBLTipoVenta.SelectedValue.Contiene("5") Then
+                        tCveAlmacenExistencia = drr("CveAlmacenConsignacion").ToString.ToEntero
                     Else
                         tCveAlmacenExistencia = drr("CveAlmacenAsignado").ToString.ToEntero
                     End If