diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index dda8acbec..fe804f650 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -2017,7 +2017,7 @@ - + <%----%> diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 034d1b9b0..f6173c45f 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -282,9 +282,7 @@ Partial Class ProductosyServicios 'CargaFamilia(ViewState("CveSubFamilia").ToString.ToEntero) CargaSucursaless() CargaImpuestosLocales() - If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then - CargaListaPrecios() - End If + CargaListaPrecios() If UsuarioActual.TienePermisoProceso(122) Then BtnEliminar.Visible = False @@ -2986,16 +2984,18 @@ Partial Class ProductosyServicios #Region "LISTA PRECIOS" Private Sub CargaListaPrecios() - - Dim objPS As New ClsProductosServicios - If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, -1, CveClasificacion:=-1, CvePS:=CvePS, - CveProveedor:=-1, Estado:=-1, Marcas:="-1", CveModelo:=-1) Then - DtPreciosMultiple = objPS.DtResultados.Copy() - GvMultiple.DataSource = DtPreciosMultiple + If UsuarioActual.TienePermisoProceso(389) Then 'si puede actualizar precios se muestra + Dim objPS As New ClsProductosServicios + If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, -1, CveClasificacion:=-1, CvePS:=CvePS, + CveProveedor:=-1, Estado:=-1, Marcas:="-1", CveModelo:=-1) Then + DtPreciosMultiple = objPS.DtResultados.Copy() + GvMultiple.DataSource = DtPreciosMultiple + End If + objPS.Dispose() + DivListaPrecios.Visible = True + GvMultiple.DataBind() End If - objPS.Dispose() - DivListaPrecios.Visible = True - GvMultiple.DataBind() + End Sub Protected Sub GvMultiple_RowDataBound(sender As Object, e As GridViewRowEventArgs)