- validación de cantidad

Acumuladores/RepRecolecciones.aspx.vb

@@ -209,6 +209,18 @@ Partial Class Acumuladores_RepRecolecciones
     End Sub
 
     Private Sub BtnModalRecoleccionGuardar_Click(sender As Object, e As EventArgs) Handles BtnModalRecoleccionGuardar.Click
+
+
+        Dim Cantidad As Decimal = HdnCantidadRecoleccion.Value.ToDecimal
+        Dim CantidadDefinido As Decimal = 0
+        For Each gvr As GridViewRow In GvModalPSRecoleccion.Rows
+            CantidadDefinido += gvr.DataKey("Cantidad").ToDecimal
+        Next
+        If CantidadDefinido <> Cantidad Then
+            Alert("La cantidad definida no es la correcta", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim ObjInventario As New ClsInventarios
         Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
         Dim ErrorMovInv As Boolean = False