-- cambios

- ocultar columna de amortizacón
- columna de descuentos, sale solo si tiene datos
- columna de ieps, se visualiza si la empresa la deduce
-- repventasetalle, reacomodo a modal de perosnalizar

Ventas/RepVentas.aspx.vb

@@ -78,8 +78,9 @@ Partial Class Ventas_RepVentas
             TipoCambio = 1
             TCEspecifico = -1
             CargaCombos()
-
-            'MODALIDADES
+            ConfiguraEmpresa()
+
+            'MODALIDADES
             If Request("Op") IsNot Nothing AndAlso Request("Op").ToString <> "" Then
                 Opcion = Request("Op").ToString
             Else
@@ -155,6 +156,7 @@ Partial Class Ventas_RepVentas
     Private Sub ConfiguraEmpresa()
         '  If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(8).Visible = False
         If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(9).Visible = False
+        ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS
     End Sub
 
     Private Sub CargaCombos()
@@ -210,9 +212,9 @@ Partial Class Ventas_RepVentas
 #End Region
 
 #Region "  CARGA DATOS  "
-    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
-        CargaDatos()
-        ConfiguraEmpresa()
+    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
+
+        CargaDatos()
         Personaliza()
         UPDatos.Update()
         'XmlConf(UsuarioActual.CveUsuario, 9)
@@ -252,6 +254,8 @@ Partial Class Ventas_RepVentas
             GvDatos.DataSource = Nothing
         End If
 
+        If DtVentas.SUMD("Descuento") <= 0 Then GvDatos.Columns(3).Visible = False ' se oculta descuentos, si está vac+io
+
         Agrupador = DdlGrupo.SelectedItem.Text
         CveProyecto = DdlProyecto.SelectedValue.ToEntero
         ObjVentas.Dispose()
@@ -474,82 +478,22 @@ Partial Class Ventas_RepVentas
         Personaliza()
     End Sub
 
-    Private Sub Personaliza()
-
-        If ChkSubTotal2.Checked Then
-            GvDatos.Columns(5).Visible = True
-        Else
-            GvDatos.Columns(5).Visible = False
-        End If
-
-        If ChkIEPS.Checked Then
-            GvDatos.Columns(7).Visible = True
-        Else
-            GvDatos.Columns(7).Visible = False
-        End If
-
-        If ChkRetIVA.Checked Then
-            GvDatos.Columns(8).Visible = True
-        Else
-            GvDatos.Columns(8).Visible = False
-        End If
-
-        If ChkRetISR.Checked Then
-            GvDatos.Columns(9).Visible = True
-        Else
-            GvDatos.Columns(9).Visible = False
-        End If
-
-        If ChkImpLoc.Checked Then
-            GvDatos.Columns(10).Visible = True
-        Else
-            GvDatos.Columns(10).Visible = False
-        End If
-
-        If ChkMinSub.Checked Then
-            GvDatos.Columns(12).Visible = True
-        Else
-            GvDatos.Columns(12).Visible = False
-        End If
-
-        If ChkAVGSub.Checked Then
-            GvDatos.Columns(13).Visible = True
-        Else
-            GvDatos.Columns(13).Visible = False
-        End If
-
-        If ChkMaxSub.Checked Then
-            GvDatos.Columns(14).Visible = True
-        Else
-            GvDatos.Columns(14).Visible = False
-        End If
-
-        If ChkMinTot.Checked Then
-            GvDatos.Columns(17).Visible = True
-        Else
-            GvDatos.Columns(17).Visible = False
-        End If
-
-        If ChkAvgTot.Checked Then
-            GvDatos.Columns(16).Visible = True
-        Else
-            GvDatos.Columns(16).Visible = False
-        End If
-
-        If ChkMaxTot.Checked Then
-            GvDatos.Columns(15).Visible = True
-        Else
-            GvDatos.Columns(15).Visible = False
-        End If
-
-        If CheckRefacturado.Checked Then
-            GvDatos.Columns(18).Visible = True
-        Else
-            GvDatos.Columns(18).Visible = False
-        End If
-
-
-
+    Private Sub Personaliza()
+
+        GvDatos.Columns(5).Visible = ChkSubTotal2.Checked
+        GvDatos.Columns(7).Visible = ChkIEPS.Checked
+        GvDatos.Columns(8).Visible = ChkRetIVA.Checked
+        GvDatos.Columns(9).Visible = ChkRetISR.Checked
+        GvDatos.Columns(10).Visible = ChkImpLoc.Checked
+        GvDatos.Columns(12).Visible = ChkMinSub.Checked
+        GvDatos.Columns(13).Visible = ChkAVGSub.Checked
+        GvDatos.Columns(14).Visible = ChkMaxSub.Checked
+        GvDatos.Columns(15).Visible = ChkMaxTot.Checked
+        GvDatos.Columns(16).Visible = ChkAvgTot.Checked
+        GvDatos.Columns(17).Visible = ChkMinTot.Checked
+        GvDatos.Columns(18).Visible = CheckRefacturado.Checked
+
+
         UPDatos.Update()
     End Sub
 #End Region