diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb
index ee8ee8694..c01aab527 100644
--- a/Inventarios/ResguardoMaterial.aspx.vb
+++ b/Inventarios/ResguardoMaterial.aspx.vb
@@ -453,11 +453,11 @@ Partial Class Inventarios_ResguardoMaterial
             Dim Valido As Boolean = True
             Dim cantidadd As Double = txtCantidad.Text.ToDouble
             Dim Existencia As Double = GetExistencias(PSSelected, DdlUnidad.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, If(TxtnSerie.Visible, TxtnSerie.Text, "-1").ToString)
-            If Existencia - txtCantidad.Text.ToDouble < 0 Then
+            If Existencia - txtCantidad.Text.ToDouble - DtMovimientos.SUM("Cantidad", $"CvePS = {PSSelected} ") < 0 Then
                 If Existencia <= 0 Then
                     Alert("No hay existencia del producto", TipoMensaje.MsgAdvertencia)
                 Else
-                    Alert(String.Format("Solo hay en existencia: {0}", Existencia), TipoMensaje.MsgAdvertencia)
+                    Alert(String.Format("Solo hay en existencia: {0}", Existencia - DtMovimientos.SUM("Cantidad", $"CvePS = {PSSelected} ")), TipoMensaje.MsgAdvertencia)
                     If Not UsuarioActual.TienePermisoProceso(114) Then
                         cantidadd = Existencia
                     End If