From 6d5b1cb15da2ab7602010f49c23b03191357ba73 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 19 May 2021 14:20:25 -0700
Subject: [PATCH] -- desbloquea antes de cancelar

---
 Contabilidad/PopUpAuxiliar.aspx.vb | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb
index 115d1b7b7..7658cd839 100644
--- a/Contabilidad/PopUpAuxiliar.aspx.vb
+++ b/Contabilidad/PopUpAuxiliar.aspx.vb
@@ -247,17 +247,15 @@ Partial Class PopUpAuxiliar
 
         Dim TieneError = False
 
-        If Not TieneError Then
-            If Not Conta.UpdatePrePolizasDetalleBloquear(ClavePrePoliza, False) Then
-                TieneError = True
-            End If
-        End If
-
-        If Not Conta.RemovePrePolizas(ClavePrePoliza, UsuarioActual.CveEmpresa) Then
+        If Not Conta.UpdatePrePolizasDetalleBloquear(ClavePrePoliza, False) Then
             TieneError = True
         End If
 
-        If Conta.ValidacionPrePolizaCuadre(ClavePrePoliza, -1) Then
+        If Not TieneError AndAlso Not Conta.RemovePrePolizas(ClavePrePoliza, UsuarioActual.CveEmpresa) Then
+            TieneError = True
+        End If
+
+        If Not TieneError AndAlso Conta.ValidacionPrePolizaCuadre(ClavePrePoliza, -1) Then
             If Conta.ValorPolizaDescuadre > 0 Then
                 TieneError = True
             End If