-- cambios guias

2020-06-02 08:14:57 -07:00
parent f3e6d01590
commit e3917bb04f
5 changed files with 13 additions and 12 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -13775,7 +13775,7 @@ Partial Class Ventas
                    End If

                    Dim PorcentajePrecio As Double = 0
-                    If PrecioSugerido = 0 Then
+                    If PrecioSugerido = 0 AndAlso CveCliente > 0 Then
                        CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                        If CvePrecioListaPS > 0 Then
                            Dim ObjPS As New ClsProductosServicios