From ea73d7e37b580f85bc86f6e705969ad2dd74a267 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 24 Jan 2022 08:09:43 -0700
Subject: [PATCH] Alert descuadre de poliza al actualizar compra

---
 Compras/Compras.aspx.vb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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