diff --git a/Acumuladores/RepRecolecciones.aspx.vb b/Acumuladores/RepRecolecciones.aspx.vb index 44e8fccab..2cc61fdc3 100644 --- a/Acumuladores/RepRecolecciones.aspx.vb +++ b/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