From 98bf177dfd6443a6dead26cf62cd1de2cabe0b19 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 9 Jun 2020 17:48:27 -0700
Subject: [PATCH] - funcionalidad 404

---
 Inventarios/PopUpExistenciasAlmacen.aspx.vb | 2 +-
 Ventas/ActualizarPrecios.aspx.vb            | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx.vb b/Inventarios/PopUpExistenciasAlmacen.aspx.vb
index a0b53ff50..2f729867e 100644
--- a/Inventarios/PopUpExistenciasAlmacen.aspx.vb
+++ b/Inventarios/PopUpExistenciasAlmacen.aspx.vb
@@ -104,7 +104,7 @@ Partial Class Inventarios_Default
                 If dr IsNot Nothing Then
                     LtPs.Text = $"Producto: <b>{dr("PSCodigo").ToString}</b>"
                     Dim CvePrecioLista As Integer = -1
-                    If Not UsuarioActual.Empresa.Funcionalidad(404).ToString = "1" Then 'sino manneja precios de lista
+                    If Not UsuarioActual.Empresa.Funcionalidad(404).ToEntero > 0 Then 'sino manneja precios de lista
                         CvePrecioLista = -2
                     End If
 
diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb
index f170c6462..0bb9d3497 100644
--- a/Ventas/ActualizarPrecios.aspx.vb
+++ b/Ventas/ActualizarPrecios.aspx.vb
@@ -77,7 +77,7 @@ Partial Class Ventas_ActualizarPrecios
 
         DdlPrecioLista.Items.Clear()
 
-        If UsuarioActual.Empresa.Funcionalidad(404).ToString = "1" Then 'si manneja precios de lista
+        If UsuarioActual.Empresa.Funcionalidad(404).ToEntero > 0 Then 'si manneja precios de lista
             Dim ObjVta As New ClsVentas
             Dim primerItem As String = ""
             If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then