diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index de7d61293..2726036c6 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -16717,7 +16717,7 @@ Partial Class Compras_Compras
         Dim DiferenciaPermitida = 0.6
 
         If Math.Abs(DifTotales) > DiferenciaPermitida Then
-            Alert("Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+            Alert(String.Format("Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.[{0}]", Math.Abs(DifTotales) - DiferenciaPermitida), TipoMensaje.MsgAdvertencia)
             EsValido = False
         ElseIf DifTotales <> 0 Then
             TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDouble + DifTotales).ToString