diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx
index ad94189eb..8b002e2c8 100644
--- a/Bancos/RepCortes.aspx
+++ b/Bancos/RepCortes.aspx
@@ -315,7 +315,7 @@
- <%----%>
+ <%----%>
@@ -362,18 +362,20 @@
-
+
-
-
+
+
+
Porcentajes de IVA
+
@@ -381,20 +383,49 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
Depositos Caja
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Anexo
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -408,7 +439,7 @@
-
+
diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb
index 0c345af30..399bfd788 100644
--- a/Bancos/RepCortes.aspx.vb
+++ b/Bancos/RepCortes.aspx.vb
@@ -174,6 +174,7 @@ Partial Class Bancos_RepCortes
DtCortesVentasResumen = Vn.DtResultados
End If
If UsuarioActual.CveEmpresa.Contiene(190, 192) Then
+ DivIVA.Visible = True
If Vn.GetCortesDetalleVentasResumenIVA(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GvPorIVA.DataSource = Vn.DtResultados
End If
@@ -181,6 +182,9 @@ Partial Class Bancos_RepCortes
If Vn.GetCortesDetalleDepositosCaja(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GvDep.DataSource = Vn.DtResultados
+ If Vn.DtResultados.Rows.Count > 0 Then
+ DivDep.Visible = True
+ End If
End If
If Vent.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then
@@ -199,10 +203,26 @@ Partial Class Bancos_RepCortes
End If
Vn.Dispose()
Vent.Dispose()
+
+
GvD.DataBind()
GvP.DataBind()
GvDep.DataBind()
GvPorIVA.DataBind()
+
+ If UsuarioActual.CveEmpresa = 193 AndAlso UsuarioActual.CveRol = 1 Then
+ DivAnexo.Visible = True
+
+ Dim CveCuenta As Integer = 186367
+ Using ObjConta As New ClsContabilidad
+ If ObjConta.GetAnexoCatalogo(CveCuenta, Fecha.ToDate(), Fecha.ToDate(), -1, -1, -1, UsuarioActual.CveEmpresa, 1) Then
+ GvAnexo.DataSource = ObjConta.DtResultados
+ End If
+ End Using
+
+ GvAnexo.DataBind()
+ End If
+
UPPDetalle.Update()
UpAcciones.Update()
End Sub