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 @@
-
+

Detalles del Corte - +
-
- +
+
+ 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