- cmabios fluctuaci[on

- cxc, guarde sesion sucursal

Inventarios/PopUpExistenciasAlmacen.aspx.vb

@@ -89,11 +89,17 @@ 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
+                    CvePrecioLista = -2
+                End If
+
                 Dim ObjVta As New ClsVentas
                 Dim objPS As New ClsProductosServicios
                 If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then
                     If ObjVta.DtResultados.Rows.Count > 0 Then
-                        If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, ObjVta.DtResultados.Rows(0)("CvePrecioLista").ToString.ToEntero, -1, DDlPS.SelectedValue.ToEntero) Then
+                        If CvePrecioLista = -1 Then CvePrecioLista = ObjVta.DtResultados.Rows(0)("CvePrecioLista").ToString.ToEntero
+                        If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioLista, -1, DDlPS.SelectedValue.ToEntero) Then
                             If objPS.DtResultados.Rows.Count > 0 Then
                                 LtPrecioPS.Text = $"Precio de venta: <b>$: {objPS.DtResultados.Rows(0)("PrecioLista").ToString.FormatoNumero} {dr("Abreviatura").ToString}</b>"
                             End If