-- columna de IEPS

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