--Reporte de cortes, grid movimientos de caja con agrupador

Bancos/RepCortes.aspx.vb

@@ -125,6 +125,13 @@ Partial Class Bancos_RepCortes
         End If
     End Sub
 
+    Protected Sub GvIngresosRetiros_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvIngresosRetiros.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("CveMovimiento").ToString = "" Then
+                e.Row.CssClass = "Totales"
+            End If
+        End If
+    End Sub
 
 
 
@@ -167,31 +174,39 @@ Partial Class Bancos_RepCortes
         Dim Finalizado As Integer = gvr.DataKey("Finalizado").ToString.ToEntero
         Fecha = gvr.DataKey("FechaInicial").ToString
         Nombre = gvr.DataKey("Nombre").ToString
-        Dim Vent As New ClsPuntoVenta
-        Dim Vn As New ClsVentas
-        If Vn.GetCortesDetalleVentasResumen(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-            GvP.DataSource = Vn.DtResultados
-            DtCortesVentasResumen = Vn.DtResultados
+        Dim ObjPuntoVenta As New ClsPuntoVenta
+        Dim ObjVentas As New ClsVentas
+
+        If ObjVentas.GetCortesDetalleVentasResumen(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvP.DataSource = ObjVentas.DtResultados
+            DtCortesVentasResumen = ObjVentas.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
+            If ObjVentas.GetCortesDetalleVentasResumenIVA(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+                GvPorIVA.DataSource = ObjVentas.DtResultados
             End If
         End If
 
-        If Not UsuarioActual.CveEmpresa.Contiene(140, 141) AndAlso Vn.GetCortesDetalleDepositosCaja(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-            GvDep.DataSource = Vn.DtResultados
-            If Vn.DtResultados.Rows.Count > 0 Then
+        If Not UsuarioActual.CveEmpresa.Contiene(140, 141) AndAlso ObjVentas.GetCortesDetalleDepositosCaja(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvDep.DataSource = ObjVentas.DtResultados
+            If ObjVentas.DtResultados.Rows.Count > 0 Then
                 DivDep.Visible = True
             End If
         End If
 
-        If Vent.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then
-            GvD.DataSource = Vent.DtResultados
-            DtCortesVentas = Vent.DtResultados
+        If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then
+            DtCortesVentas = ObjPuntoVenta.DtResultados.Copy()
+            GvD.DataSource = DtCortesVentas
+
             divDetalle.Visible = True
         End If
+
+        If ObjPuntoVenta.GetVta_MovimientosCajasReporte(CveCorte, -1) Then
+            GvIngresosRetiros.DataSource = ObjPuntoVenta.DtResultados.Copy()
+        End If
+
         If (DtCortesVentasResumen IsNot Nothing AndAlso DtCortesVentasResumen.Rows.Count > 0) Or (DtCortesVentas IsNot Nothing AndAlso DtCortesVentas.Rows.Count > 0) Then
             HplDownPDF.Visible = True
             HplDownEXCEL.Visible = True
@@ -201,8 +216,15 @@ Partial Class Bancos_RepCortes
             HplDownPDF.Visible = False
             HplDownEXCEL.Visible = False
         End If
-        Vn.Dispose()
-        Vent.Dispose()
+        ObjVentas.Dispose()
+        ObjPuntoVenta.Dispose()
+
+
+        GvD.DataBind()
+        GvP.DataBind()
+        GvDep.DataBind()
+        GvPorIVA.DataBind()
+        GvIngresosRetiros.DataBind()
 
 
         GvD.DataBind()