-- 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/RepVentaDetalle.aspx.vb

@@ -56,7 +56,6 @@ Partial Class RepVentaDetalle
         End Set
     End Property
 
-
     Private Property TipoCliente As Integer
         Get
             If ViewState("TipoCliente") Is Nothing Then
@@ -64,16 +63,12 @@ Partial Class RepVentaDetalle
             Else
                 Return ViewState("TipoCliente").ToString.ToEntero
             End If
-
         End Get
-
         Set(value As Integer)
             ViewState("TipoCliente") = value
         End Set
     End Property
 
-
-
     Private Property TCEspecifico As Decimal
         Get
             Return ViewState("TCEspecifico").ToString.ToDecimal
@@ -110,6 +105,7 @@ Partial Class RepVentaDetalle
             Personalizo = 0
             CargaCombos()
             InicializaValores()
+            ConfiguraEmpresa()
             CargaDatos()
 
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
@@ -370,7 +366,6 @@ Partial Class RepVentaDetalle
 #Region "CONSULTAR"
     Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
         CargaDatos()
-        ConfiguraEmpresa()
         UPDatos.Update()
     End Sub
     Private Sub CargaDatos()
@@ -423,6 +418,7 @@ Partial Class RepVentaDetalle
         End If
         ObjVentas.Dispose()
 
+        If DtVentas.SUMD("Descuento") <= 0 Then GvDatos.Columns(5).Visible = False ' se oculta descuentos, si está vac+io
         Agrupador = DdlGrupo.SelectedItem.Text
 
         GvDatos.DataBind()
@@ -451,12 +447,12 @@ Partial Class RepVentaDetalle
     End Function
 
     Private Sub ConfiguraEmpresa()
-        'Dim ObjEmpresa As New ClsEmpresas()
-        'If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
+
         If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(10).Visible = False
         If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(11).Visible = False
-        'End If
-        'ObjEmpresa.Dispose()
+
+        ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS
+
     End Sub
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then