Entrada usados resumen totales, Cierre cultivo, Empresas acutualizar certificados

Acumuladores/EntradasUsadosResumenRep.aspx.vb

@@ -53,14 +53,25 @@ Partial Class Acumuladores_RepEntradasUsados
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
         Dim ObjAcum As New ClsAcumuladores
 
+        BtnImprimir.Visible = False
+
         If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, DdlAlmacenes.SelectedValue.ToEntero, txtFechaI.Text, txtFechaF.Text) Then
             GvAcum.DataSource = ObjAcum.DtResultados
             DatosEntradasUsados = ObjAcum.DtResultados
 
+            If DatosEntradasUsados IsNot Nothing AndAlso DatosEntradasUsados.Rows.Count > 0 Then
+                BtnImprimir.Visible = True
+            End If
+
         End If
+
         ObjAcum.Dispose()
+
         GvAcum.DataBind()
 
+        UpAcciones.Update()
+        UpDatos.Update()
+
     End Sub
 
     Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs)
@@ -163,4 +174,20 @@ Partial Class Acumuladores_RepEntradasUsados
 
 
     End Sub
+
+    Protected Sub GvAcum_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If e.Row.DataKey("CvePSCargo").ToEntero <= 0 Then
+
+                e.Row.CssClass = "Totales"
+
+            End If
+
+
+        End If
+
+    End Sub
+
 End Class