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()