diff --git a/Ventas/RepProductosServicios.aspx b/Ventas/RepProductosServicios.aspx
index c782af171..e86eb0617 100644
--- a/Ventas/RepProductosServicios.aspx
+++ b/Ventas/RepProductosServicios.aspx
@@ -393,6 +393,7 @@
<%----%>
+
<%----%>
<%----%>
@@ -423,7 +424,7 @@
-
+
|
@@ -444,6 +445,12 @@
|
|
+
+ |
+
+ |
+ |
+
diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb
index e14b4dea6..381395413 100644
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -53,8 +53,6 @@ Partial Class Ventas_RepProductosServicios
If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
CargarMarcas()
SetValues()
-
-
End If
End Sub
@@ -115,8 +113,6 @@ Partial Class Ventas_RepProductosServicios
divClasif2.Visible = True
DdlGrupo.Items.Add(New ListItem("Clasificacion2", "25"))
-
-
LblServicioDomicilioFiltro.Visible = True
DVServicioDomicilio.Visible = True
@@ -142,6 +138,12 @@ Partial Class Ventas_RepProductosServicios
DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero)
DdlPS.ddl.DataBind()
DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+ End If
+
+ If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then
+ ChkIEPS.Visible = True
+ ChkIEPS.Checked = True
+ GvDatos.Columns(6).Visible = True
End If
'CargaEstatus
@@ -334,43 +336,48 @@ Partial Class Ventas_RepProductosServicios
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
-
- If ChkMaxSub.Checked Then
+ If ChkIEPS.Checked Then
GvDatos.Columns(6).Visible = True
Else
GvDatos.Columns(6).Visible = False
End If
- If ChkAVGSub.Checked Then
+ If ChkMaxSub.Checked Then
GvDatos.Columns(7).Visible = True
Else
GvDatos.Columns(7).Visible = False
End If
- If ChkMinSub.Checked Then
+ If ChkAVGSub.Checked Then
GvDatos.Columns(8).Visible = True
Else
GvDatos.Columns(8).Visible = False
End If
- If ChkMaxTot.Checked Then
+ If ChkMinSub.Checked Then
GvDatos.Columns(9).Visible = True
Else
GvDatos.Columns(9).Visible = False
End If
- If ChkAvgTot.Checked Then
+ If ChkMaxTot.Checked Then
GvDatos.Columns(10).Visible = True
Else
GvDatos.Columns(10).Visible = False
End If
- If ChkMinTot.Checked Then
+ If ChkAvgTot.Checked Then
GvDatos.Columns(11).Visible = True
Else
GvDatos.Columns(11).Visible = False
End If
+ If ChkMinTot.Checked Then
+ GvDatos.Columns(12).Visible = True
+ Else
+ GvDatos.Columns(12).Visible = False
+ End If
+
UPDatos.Update()
End Sub
#End Region