Se agregó un label del total de importe

Bancos/DepositosCaja.aspx.vb

@@ -48,6 +48,7 @@ Partial Class Bancos_DepositosCaja
 
         UpGvFacturas.Update()
         GvFacturas.DataBind()
+        divLabelTotal.Visible = True
     End Sub
 
     Private Sub BtnDepositar_Click(sender As Object, e As EventArgs) Handles BtnDepositar.Click
@@ -157,4 +158,20 @@ Partial Class Bancos_DepositosCaja
         ObjContabilidad.Dispose()
     End Sub
 
+    Private Sub ObtenerTotalImporta()
+
+        Dim Total As Double = 0
+        For Each Gvr As GridViewRow In GvFacturas.Rows
+            If Gvr.FCCheckBox("ChkFactura").Checked Then
+                Total += Gvr.DataKey("Importe").ToDouble
+            End If
+        Next
+        lblValorTotal.Text = Total.ToString
+        UpGvFacturas.Update()
+    End Sub
+
+    Public Sub ChkFactura_Click(sender As Object, e As EventArgs)
+        ObtenerTotalImporta()
+    End Sub
+
 End Class