diff --git a/Ventas/RepRemisiones.aspx b/Ventas/RepRemisiones.aspx index ab2a17b23..ead8b63ad 100644 --- a/Ventas/RepRemisiones.aspx +++ b/Ventas/RepRemisiones.aspx @@ -296,6 +296,15 @@ <%----%> + + + + + + + <%----%> + + diff --git a/Ventas/RepRemisiones.aspx.vb b/Ventas/RepRemisiones.aspx.vb index 6325b7acc..48a87762a 100644 --- a/Ventas/RepRemisiones.aspx.vb +++ b/Ventas/RepRemisiones.aspx.vb @@ -92,10 +92,15 @@ Partial Class RepRemisiones Dim ObjVentas As New ClsVentas If ObjVentas.GetRepRemisionesSinFacturar(FechaI, FechaF, FechaV, Sucursales, CveCliente, CveContrato, Vendedores, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then - GvDatos.DataSource = ObjVentas.DtResultados - DtVentas = ObjVentas.DtResultados + DtVentas = ObjVentas.DtResultados.Copy() + GvDatos.DataSource = DtVentas End If - GvDatos.Columns(7).Visible = ObjVentas.DtResultados.SUMD("Descuento") > 0 + + If DtVentas IsNot Nothing Then + GvDatos.Columns(7).Visible = DtVentas.SUMD("Descuento") > 0 + End If + + GvDatos.Columns(10).Visible = UsuarioActual.TienePermisoProceso(201) ObjVentas.Dispose() GvDatos.DataBind() diff --git a/Ventas/RepRemisionesDetalle.aspx b/Ventas/RepRemisionesDetalle.aspx index 88a19d02a..5710c6555 100644 --- a/Ventas/RepRemisionesDetalle.aspx +++ b/Ventas/RepRemisionesDetalle.aspx @@ -210,6 +210,15 @@ + + + + + + + <%----%> + + diff --git a/Ventas/RepRemisionesDetalle.aspx.vb b/Ventas/RepRemisionesDetalle.aspx.vb index 98a8e5d23..43fcb6801 100644 --- a/Ventas/RepRemisionesDetalle.aspx.vb +++ b/Ventas/RepRemisionesDetalle.aspx.vb @@ -169,6 +169,8 @@ Partial Class RepRemisionesDetalle ObjVentas.Dispose() GvDatos.DataBind() + GvDatos.Columns(8).Visible = UsuarioActual.TienePermisoProceso(201) + UPDatos.Update() End Sub Public Sub CargaCombos()