diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index ff89e081b..3006408f5 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -18573,7 +18573,7 @@ Partial Class Ventas
 
             If CvePrecioListaPS > 0 Then
                 Dim ObjPS As New ClsProductosServicios
-                If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro) Then
+                If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro, Opcion:=1) Then
                     PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDecimal
                     PorcentajePrecio = ObjPS.DtResultados.FiltroPrimeroValor("Porcentaje").ToDecimal
                 End If
@@ -20588,7 +20588,7 @@ Partial Class Ventas
                         'Dim CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CvePrecioLista", $"CveCliente = {CveCliente}").ToEntero()
                         If CvePrecioLista > 0 Then
                             Dim ObjPS As New ClsProductosServicios
-                            If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioLista, CvePS:=CvePSAdicional) Then
+                            If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioLista, CvePS:=CvePSAdicional, Opcion:=1) Then
 
                                 PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDecimal
                                 If PrecioSugerido = 0 Then
@@ -38114,7 +38114,7 @@ Partial Class Ventas
 
                     If CvePrecioListaPS > 0 Then
                         Dim ObjPS As New ClsProductosServicios
-                        If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro) Then
+                        If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro, Opcion:=1) Then
                             PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDecimal
                             PorcentajePrecio = ObjPS.DtResultados.FiltroPrimeroValor("Porcentaje").ToDecimal
                         End If
@@ -39267,12 +39267,12 @@ Partial Class Ventas
                 Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}")
 
                 If drr IsNot Nothing Then
-                    If RBLTipoVenta.SelectedValue.Contiene("6") Then
+                    If RBLTipoVenta.SelectedValue.Contiene("6") Then 'cuando es A-vista
                         tCveAlmacenExistencia = drr("CveAlmacenAlterno").ToString.ToEntero
-                    ElseIf RBLTipoVenta.SelectedValue.Contiene("5") Then
+                    ElseIf RBLTipoVenta.SelectedValue.Contiene("5") Then 'cuando es Consignación
                         tCveAlmacenExistencia = drr("CveAlmacenConsignacion").ToString.ToEntero
                     Else
-                        tCveAlmacenExistencia = drr("CveAlmacenAsignado").ToString.ToEntero
+                        tCveAlmacenExistencia = -1 'drr("CveAlmacenAsignado").ToString.ToEntero
                     End If
                 End If
             Else
@@ -39283,7 +39283,7 @@ Partial Class Ventas
                     ElseIf RBLTipoVenta.SelectedValue.Contiene("5") Then 'cuando es Consignación
                         tCveAlmacenExistencia = drr("CveAlmacenConsignacion").ToString.ToEntero
                     Else
-                        tCveAlmacenExistencia = drr("CveAlmacenAsignado").ToString.ToEntero '' cuando Fuera de Línea
+                        tCveAlmacenExistencia = -1 ' drr("CveAlmacenAsignado").ToString.ToEntero '' cuando Fuera de Línea
                     End If
                 End If
             End If