From db2f477f9a3abfc77026ad71450f8f6ccb9c11dd Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 14 Jan 2025 19:46:25 -0700
Subject: [PATCH] =?UTF-8?q?--=20validacion=20de=20prep=C3=B3liza?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/PVCobranza.aspx.vb | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index a390b3601..16da2483e 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -807,6 +807,14 @@ Partial Class Ventas_PVCobranza
                 GuardaLog(ex.ToString())
             End Try
 
+            If MsgError = "" Then
+                If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=5, CveVenta:=respFactura.CveVenta) Then
+                    If ObjConta.ValorPolizaDescuadre > 0 Then
+                        GuardaLogAD($"Ventas/Ventas-NCGeneradas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                    End If
+                End If
+            End If
+
             If MsgError = "" Then
                 ObjVentas2.Commit()
                 Dim msBuild As New StringBuilder()