diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index a7e2bb239..2386eeb8a 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -9906,6 +9906,8 @@ Partial Class Compras_Compras
                         End If
                         'End If
 
+
+                        '---------------------------------------------------------------------------------------------------
                         ''EMPIEZA: SI USA AC
                         If UsuarioActual.Empresa.UsaAC AndAlso IdPoliza > 0 Then
                             ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
@@ -10228,7 +10230,7 @@ Partial Class Compras_Compras
                         End If
                         ''TERMINA: SI USA AC
 
-
+                        '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
                         If Not ErrorAC Then
                             Dim Cont As Integer = 0
@@ -10729,6 +10731,7 @@ Partial Class Compras_Compras
         If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then
             If ObjConta.ValorPolizaDescuadre > 0 Then
                 ErrorPrepoliza = True
+                Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia)
                 GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
             End If
         End If